From 95cb641f5931e602f3be931c30d2937da39c6662 Mon Sep 17 00:00:00 2001
From: Chizi123 <joelgrun@gmail.com>
Date: Wed, 21 Nov 2018 13:04:10 +0000
Subject: [PATCH] removed everything but init
---
/dev/null | 27 ---------------------------
1 files changed, 0 insertions(+), 27 deletions(-)
diff --git a/auto-save-list/.saves-7652-JOEL-PC~ b/auto-save-list/.saves-7652-JOEL-PC~
deleted file mode 100644
index 77a1601..0000000
--- a/auto-save-list/.saves-7652-JOEL-PC~
+++ /dev/null
@@ -1,2 +0,0 @@
-c:/Users/joelg/.emacs.d/init.el
-c:/Users/joelg/.emacs.d/#init.el#
diff --git a/bookmarks b/bookmarks
deleted file mode 100644
index 6ce8ff6..0000000
--- a/bookmarks
+++ /dev/null
@@ -1,10 +0,0 @@
-;;;; Emacs Bookmark Format Version 1 ;;;; -*- coding: utf-8-emacs -*-
-;;; This format is meant to be slightly human-readable;
-;;; nevertheless, you probably don't want to edit it.
-;;; -*- End Of Bookmark File Format Version Stamp -*-
-(("Emacs init file"
- (filename . "~/.emacs.d/init.el")
- (front-context-string)
- (rear-context-string . " C-b\" 'ibuffer)\n")
- (position . 918))
-)
\ No newline at end of file
diff --git a/custom/setup-applications.el b/custom/setup-applications.el
deleted file mode 100644
index 405d087..0000000
--- a/custom/setup-applications.el
+++ /dev/null
@@ -1,31 +0,0 @@
-(provide 'setup-applications)
-
-(require 'eshell)
-(require 'em-alias)
-(require 'cl)
-
-;; Advise find-file-other-window to accept more than one file
-(defadvice find-file-other-window (around find-files activate)
- "Also find all files within a list of files. This even works recursively."
- (if (listp filename)
- (loop for f in filename do (find-file-other-window f wildcards))
- ad-do-it))
-
-;; In Eshell, you can run the commands in M-x
-;; Here are the aliases to the commands.
-;; $* means accepts all arguments.
-(eshell/alias "o" "")
-(eshell/alias "o" "find-file-other-window $*")
-(eshell/alias "vi" "find-file-other-window $*")
-(eshell/alias "vim" "find-file-other-window $*")
-(eshell/alias "emacs" "find-file-other-windpow $*")
-(eshell/alias "em" "find-file-other-window $*")
-
-(add-hook
- 'eshell-mode-hook
- (lambda ()
- (setq pcomplete-cycle-completions nil)))
-
-;; change listing switches based on OS
-(when (not (eq system-type 'windows-nt))
- (eshell/alias "ls" "ls --color -h --group-directories-first $*"))
diff --git a/custom/setup-applications.el~ b/custom/setup-applications.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-applications.el~
+++ /dev/null
diff --git a/custom/setup-communication.el b/custom/setup-communication.el
deleted file mode 100644
index 3bbf720..0000000
--- a/custom/setup-communication.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-communication)
diff --git a/custom/setup-communication.el~ b/custom/setup-communication.el~
deleted file mode 100644
index adb09cf..0000000
--- a/custom/setup-communication.el~
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-comminication)
diff --git a/custom/setup-convenience.el b/custom/setup-convenience.el
deleted file mode 100644
index 59fa0c8..0000000
--- a/custom/setup-convenience.el
+++ /dev/null
@@ -1,50 +0,0 @@
-(provide 'setup-convenience)
-
-;; use ibuffer instead of default
-(global-set-key (kbd "C-x C-b") 'ibuffer)
-
-;; GROUP: Convenience -> Revert
-
-;; update any change made on file to the current buffer
-(global-auto-revert-mode)
-
-;; GROUP: Convenience -> Hippe Expand
-;; hippie-expand is a better version of dabbrev-expand.
-;; While dabbrev-expand searches for words you already types, in current;; buffers and other buffers, hippie-expand includes more sources,
-;; such as filenames, klll ring...
-(global-set-key (kbd "M-/") 'hippie-expand) ;; replace dabbrev-expand
-(setq
- hippie-expand-try-functions-list
- '(try-expand-dabbrev ;; Try to expand word "dynamically", searching the current buffer.
- try-expand-dabbrev-all-buffers ;; Try to expand word "dynamically", searching all other buffers.
- try-expand-dabbrev-from-kill ;; Try to expand word "dynamically", searching the kill ring.
- try-complete-file-name-partially ;; Try to complete text as a file name, as many characters as unique.
- try-complete-file-name ;; Try to complete text as a file name.
- try-expand-all-abbrevs ;; Try to expand word before point according to all abbrev tables.
- try-expand-list ;; Try to complete the current line to an entire line in the buffer.
- try-expand-line ;; Try to complete the current line to an entire line in the buffer.
- try-complete-lisp-symbol-partially ;; Try to complete as an Emacs Lisp symbol, as many characters as unique.
- try-complete-lisp-symbol) ;; Try to complete word as an Emacs Lisp symbol.
- )
-
-;; GROUP: Convenience -> HL Line
-(global-hl-line-mode)
-
-;; GROUP: Convenience -> Ibuffer
-(setq ibuffer-use-other-window t) ;; always display ibuffer in another window
-
-;; GROUP: Convenience -> Linum
-(add-hook 'prog-mode-hook 'linum-mode) ;; enable linum only in programming modes
-
-;; GROUP: Convenience -> Whitespace
-
-;; whenever you create useless whitespace, the whitespace is highlighted
-(add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))
-
-;; activate whitespace-mode to view all whitespace characters
-(global-set-key (kbd "C-c w") 'whitespace-mode)
-
-;; GROUP: Convenience -> Windmove
-
-;; easier window navigation
-(windmove-default-keybindings)
diff --git a/custom/setup-convenience.el~ b/custom/setup-convenience.el~
deleted file mode 100644
index 613ca3f..0000000
--- a/custom/setup-convenience.el~
+++ /dev/null
@@ -1,50 +0,0 @@
-(provide 'setup-convenience)
-
-;; use ibuffer instead of default
-(global-set-key (kbd "C-x C-b" 'ibuffer))
-
-;; GROUP: Convenience -> Revert
-
-;; update any change made on file to the current buffer
-(global-auto-revert-mode)
-
-;; GROUP: Convenience -> Hippe Expand
-;; hippie-expand is a better version of dabbrev-expand.
-;; While dabbrev-expand searches for words you already types, in current;; buffers and other buffers, hippie-expand includes more sources,
-;; such as filenames, klll ring...
-(global-set-key (kbd "M-/") 'hippie-expand) ;; replace dabbrev-expand
-(setq
- hippie-expand-try-functions-list
- '(try-expand-dabbrev ;; Try to expand word "dynamically", searching the current buffer.
- try-expand-dabbrev-all-buffers ;; Try to expand word "dynamically", searching all other buffers.
- try-expand-dabbrev-from-kill ;; Try to expand word "dynamically", searching the kill ring.
- try-complete-file-name-partially ;; Try to complete text as a file name, as many characters as unique.
- try-complete-file-name ;; Try to complete text as a file name.
- try-expand-all-abbrevs ;; Try to expand word before point according to all abbrev tables.
- try-expand-list ;; Try to complete the current line to an entire line in the buffer.
- try-expand-line ;; Try to complete the current line to an entire line in the buffer.
- try-complete-lisp-symbol-partially ;; Try to complete as an Emacs Lisp symbol, as many characters as unique.
- try-complete-lisp-symbol) ;; Try to complete word as an Emacs Lisp symbol.
- )
-
-;; GROUP: Convenience -> HL Line
-(global-hl-line-mode)
-
-;; GROUP: Convenience -> Ibuffer
-(setq ibuffer-use-other-window t) ;; always display ibuffer in another window
-
-;; GROUP: Convenience -> Linum
-(add-hook 'prog-mode-hook 'linum-mode) ;; enable linum only in programming modes
-
-;; GROUP: Convenience -> Whitespace
-
-;; whenever you create useless whitespace, the whitespace is highlighted
-(add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))
-
-;; activate whitespace-mode to view all whitespace characters
-(global-set-key (kbd "C-c w") 'whitespace-mode)
-
-;; GROUP: Convenience -> Windmove
-
-;; easier window navigation
-(windmove-default-keybindings)
diff --git a/custom/setup-data.el b/custom/setup-data.el
deleted file mode 100644
index 19b7301..0000000
--- a/custom/setup-data.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-data)
diff --git a/custom/setup-data.el~ b/custom/setup-data.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-data.el~
+++ /dev/null
diff --git a/custom/setup-development.el b/custom/setup-development.el
deleted file mode 100644
index 6402e18..0000000
--- a/custom/setup-development.el
+++ /dev/null
@@ -1,8 +0,0 @@
-(provide 'setup-development)
-
-(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
-(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
-(add-hook 'ielm-mode-hook 'turn-on-eldoc-mode)
-
-;; Start garbage collection every 100MB to improve Emacs performance
-(setq gc-cons-threshold 100000000)
diff --git a/custom/setup-development.el~ b/custom/setup-development.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-development.el~
+++ /dev/null
diff --git a/custom/setup-editing.el b/custom/setup-editing.el
deleted file mode 100644
index e5f89f3..0000000
--- a/custom/setup-editing.el
+++ /dev/null
@@ -1,226 +0,0 @@
-(provide 'setup-editing)
-
-;; GROUP: Editing -> Editing Basics
-(setq global-mark-ring-max 5000 ; increase mark ring to contains 5000 entries
- mark-ring-max 5000 ; increase kill ring to contains 5000 entries
- mode-require-final-newline t ; add a newline to end of file
- )
-
-(setq c-default-style "linux")
-
-(set-terminal-coding-system 'utf-8)
-(set-keyboard-coding-system 'utf-8)
-(set-language-environment "UTF-8")
-(prefer-coding-system 'utf-8)
-
-(setq-default indent-tabs-mode t)
-(delete-selection-mode)
-(global-set-key (kbd "RET") 'newline-and-indent)
-
-;; GROUP: Editing -> Killing
-(setq
- kill-ring-max 5000 ; increase kill-ring capacity
- kill-whole-line t ; if NIL, kill whole line and move the next line up
- )
-
-;; display whitespace characters
-(global-set-key (kbd "C-c w") 'whitespace-mode)
-
-;; show important whitespace in diff-mode
-(add-hook 'diff-mode-hook (lambda ()
- (setq-local whitespace-style
- '(face
- tabs
- tab-mark
- spaces
- space-mark
- trailing
- indentation::space
- indentation::tab
- newline
- newline-mark))
- (whitespace-mode 1)))
-
-
-(defun prelude-move-beginning-of-line (arg)
- "Move point back to indentation of beginning of line.
-
-Move point to the first non-whitespace character on this line.
-If point is already there, move to the beginning of the line.
-Effectively toggle between the first non-whitespace character and
-the beginning of the line.
-
-If ARG is not nil or 1, move forward ARG - 1 lines first. If
-point reaches the beginning or end of the buffer, stop there."
- (interactive "^p")
- (setq arg (or arg 1))
-
- ;; Move lines first
- (when (/= arg 1)
- (let ((line-move-visual nil))
- (forward-line (1- arg))))
-
- (let ((orig-point (point)))
- (back-to-indentation)
- (when (= orig-point (point))
- (move-beginning-of-line 1))))
-
-(global-set-key (kbd "C-a") 'prelude-move-beginning-of-line)
-
-(defadvice kill-ring-save (before slick-copy activate compile)
- "When called interactively with no active region, copy a single
-line instead."
- (interactive
- (if mark-active (list (region-beginning) (region-end))
- (message "Copied line")
- (list (line-beginning-position)
- (line-beginning-position 2)))))
-
-(defadvice kill-region (before slick-cut activate compile)
- "When called interactively with no active region, kill a single
- line instead."
- (interactive
- (if mark-active (list (region-beginning) (region-end))
- (list (line-beginning-position)
- (line-beginning-position 2)))))
-
-;; kill a line, including whitespace characters until next non-whiepsace character
-;; of next line
-(defadvice kill-line (before check-position activate)
- (if (member major-mode
- '(emacs-lisp-mode scheme-mode lisp-mode
- c-mode c++-mode objc-mode
- latex-mode plain-tex-mode))
- (if (and (eolp) (not (bolp)))
- (progn (forward-char 1)
- (just-one-space 0)
- (backward-char 1)))))
-
-;; taken from prelude-editor.el
-;; automatically indenting yanked text if in programming-modes
-(defvar yank-indent-modes
- '(LaTeX-mode TeX-mode)
- "Modes in which to indent regions that are yanked (or yank-popped).
-Only modes that don't derive from `prog-mode' should be listed here.")
-
-(defvar yank-indent-blacklisted-modes
- '(python-mode slim-mode haml-mode)
- "Modes for which auto-indenting is suppressed.")
-
-(defvar yank-advised-indent-threshold 1000
- "Threshold (# chars) over which indentation does not automatically occur.")
-
-(defun yank-advised-indent-function (beg end)
- "Do indentation, as long as the region isn't too large."
- (if (<= (- end beg) yank-advised-indent-threshold)
- (indent-region beg end nil)))
-
-(defadvice yank (after yank-indent activate)
- "If current mode is one of 'yank-indent-modes,
-indent yanked text (with prefix arg don't indent)."
- (if (and (not (ad-get-arg 0))
- (not (member major-mode yank-indent-blacklisted-modes))
- (or (derived-mode-p 'prog-mode)
- (member major-mode yank-indent-modes)))
- (let ((transient-mark-mode nil))
- (yank-advised-indent-function (region-beginning) (region-end)))))
-
-(defadvice yank-pop (after yank-pop-indent activate)
- "If current mode is one of `yank-indent-modes',
-indent yanked text (with prefix arg don't indent)."
- (when (and (not (ad-get-arg 0))
- (not (member major-mode yank-indent-blacklisted-modes))
- (or (derived-mode-p 'prog-mode)
- (member major-mode yank-indent-modes)))
- (let ((transient-mark-mode nil))
- (yank-advised-indent-function (region-beginning) (region-end)))))
-
-;; prelude-core.el
-(defun prelude-duplicate-current-line-or-region (arg)
- "Duplicates the current line or region ARG times.
-If there's no region, the current line will be duplicated. However, if
-there's a region, all lines that region covers will be duplicated."
- (interactive "p")
- (pcase-let* ((origin (point))
- (`(,beg . ,end) (prelude-get-positions-of-line-or-region))
- (region (buffer-substring-no-properties beg end)))
- (-dotimes arg
- (lambda (n)
- (goto-char end)
- (newline)
- (insert region)
- (setq end (point))))
- (goto-char (+ origin (* (length region) arg) arg))))
-
-;; prelude-core.el
-(defun indent-buffer ()
- "Indent the currently visited buffer."
- (interactive)
- (indent-region (point-min) (point-max)))
-
-;; prelude-editing.el
-(defcustom prelude-indent-sensitive-modes
- '(coffee-mode python-mode slim-mode haml-mode yaml-mode)
- "Modes for which auto-indenting is suppressed."
- :type 'list)
-
-(defun indent-region-or-buffer ()
- "Indent a region if selected, otherwise the whole buffer."
- (interactive)
- (unless (member major-mode prelude-indent-sensitive-modes)
- (save-excursion
- (if (region-active-p)
- (progn
- (indent-region (region-beginning) (region-end))
- (message "Indented selected region."))
- (progn
- (indent-buffer)
- (message "Indented buffer.")))
- (whitespace-cleanup))))
-
-(global-set-key (kbd "C-c i") 'indent-region-or-buffer)
-
-;; add duplicate line function from Prelude
-;; taken from prelude-core.el
-(defun prelude-get-positions-of-line-or-region ()
- "Return positions (beg . end) of the current line
-or region."
- (let (beg end)
- (if (and mark-active (> (point) (mark)))
- (exchange-point-and-mark))
- (setq beg (line-beginning-position))
- (if mark-active
- (exchange-point-and-mark))
- (setq end (line-end-position))
- (cons beg end)))
-
-(defun kill-default-buffer ()
- "Kill the currently active buffer -- set to C-x k so that users are not asked which buffer they want to kill."
- (interactive)
- (let (kill-buffer-query-functions) (kill-buffer)))
-
-(global-set-key (kbd "C-x k") 'kill-default-buffer)
-
-;; smart openline
-(defun prelude-smart-open-line (arg)
- "Insert an empty line after the current line.
-Position the cursor at its beginning, according to the current mode.
-With a prefix ARG open line above the current line."
- (interactive "P")
- (if arg
- (prelude-smart-open-line-above)
- (progn
- (move-end-of-line nil)
- (newline-and-indent))))
-
-(defun prelude-smart-open-line-above ()
- "Insert an empty line above the current line.
-Position the cursor at it's beginning, according to the current mode."
- (interactive)
- (move-beginning-of-line nil)
- (newline-and-indent)
- (forward-line -1)
- (indent-according-to-mode))
-
-(global-set-key (kbd "C-o") 'prelude-smart-open-line)
-(global-set-key (kbd "M-o") 'open-line)
diff --git a/custom/setup-editing.el~ b/custom/setup-editing.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-editing.el~
+++ /dev/null
diff --git a/custom/setup-environment.el b/custom/setup-environment.el
deleted file mode 100644
index 314eadd..0000000
--- a/custom/setup-environment.el
+++ /dev/null
@@ -1,18 +0,0 @@
-(provide 'setup-environment)
-
-(setq inhibit-startup-screen t)
-
-(setq savehist-additional-variables '(search ring regexp-search-ring) ; also save your regexp search queries
- savehist-autosave-interval 60 ; save every minute
- )
-
-(winner-mode 1)
-
-(column-number-mode 1)
-
-;; remove backup files
-(when (eq system-type 'windows-nt)
- (defadvice backup-buffer (after my-backup-make-hidden activate)
- (let ((backup-file-name (make-backup-file-name (buffer-file-name))))
- (when (file-exists-p backup-file-name)
- (call-process "attrib.exe" nil nil nil "+I" "+H" backup-file-name)))))
diff --git a/custom/setup-environment.el~ b/custom/setup-environment.el~
deleted file mode 100644
index beaf2a9..0000000
--- a/custom/setup-environment.el~
+++ /dev/null
@@ -1,21 +0,0 @@
-(provide 'setup-environment)
-
-(setq inhibit-startup-screen t)
-
-(setq savehist-additional-variables '(search ring regexp-search-ring) ; also save your regexp search queries
- savehist-autosave-interval 60 ; save every minute
- )
-
-(winner-mode 1)
-
-(column-number-mode 1)
-
-;; (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
-;; (load-theme 'zenburn t)
-
-;; remove backup files
-(when (eq system-type 'windows-nt)
- (defadvice backup-buffer (after my-backup-make-hidden activate)
- (let ((backup-file-name (make-backup-file-name (buffer-file-name))))
- (when (file-exists-p backup-file-name)
- (call-process "attrib.exe" nil nil nil "+I" "+H" backup-file-name)))))
diff --git a/custom/setup-external.el b/custom/setup-external.el
deleted file mode 100644
index 825f61e..0000000
--- a/custom/setup-external.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-external)
diff --git a/custom/setup-external.el~ b/custom/setup-external.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-external.el~
+++ /dev/null
diff --git a/custom/setup-faces.el b/custom/setup-faces.el
deleted file mode 100644
index 382424f..0000000
--- a/custom/setup-faces.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-faces)
diff --git a/custom/setup-faces.el~ b/custom/setup-faces.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-faces.el~
+++ /dev/null
diff --git a/custom/setup-files.el b/custom/setup-files.el
deleted file mode 100644
index cef6243..0000000
--- a/custom/setup-files.el
+++ /dev/null
@@ -1,6 +0,0 @@
-(provide 'setup-files)
-
-;; tramp setup
-(when (eq window-system 'w32)
- (setq tramp-default-method "plink"))
-(setq password-cache-expiry nil)
diff --git a/custom/setup-files.el~ b/custom/setup-files.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-files.el~
+++ /dev/null
diff --git a/custom/setup-help.el b/custom/setup-help.el
deleted file mode 100644
index b1e2d96..0000000
--- a/custom/setup-help.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-help)
diff --git a/custom/setup-help.el~ b/custom/setup-help.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-help.el~
+++ /dev/null
diff --git a/custom/setup-local.el b/custom/setup-local.el
deleted file mode 100644
index e7e1092..0000000
--- a/custom/setup-local.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-local)
diff --git a/custom/setup-local.el~ b/custom/setup-local.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-local.el~
+++ /dev/null
diff --git a/custom/setup-multimedia.el b/custom/setup-multimedia.el
deleted file mode 100644
index 3481117..0000000
--- a/custom/setup-multimedia.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-multimedia)
diff --git a/custom/setup-multimedia.el~ b/custom/setup-multimedia.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-multimedia.el~
+++ /dev/null
diff --git a/custom/setup-programming.el b/custom/setup-programming.el
deleted file mode 100644
index 5963a0a..0000000
--- a/custom/setup-programming.el
+++ /dev/null
@@ -1,2 +0,0 @@
-(provide 'setup-programming)
-
diff --git a/custom/setup-programming.el~ b/custom/setup-programming.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-programming.el~
+++ /dev/null
diff --git a/custom/setup-text.el b/custom/setup-text.el
deleted file mode 100644
index ad6878e..0000000
--- a/custom/setup-text.el
+++ /dev/null
@@ -1 +0,0 @@
-(provide 'setup-text)
diff --git a/custom/setup-text.el~ b/custom/setup-text.el~
deleted file mode 100644
index e69de29..0000000
--- a/custom/setup-text.el~
+++ /dev/null
diff --git a/elpa/anaphora-20180618.2200/anaphora-autoloads.el b/elpa/anaphora-20180618.2200/anaphora-autoloads.el
deleted file mode 100644
index cd3cf82..0000000
--- a/elpa/anaphora-20180618.2200/anaphora-autoloads.el
+++ /dev/null
@@ -1,228 +0,0 @@
-;;; anaphora-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "anaphora" "anaphora.el" (0 0 0 0))
-;;; Generated autoloads from anaphora.el
-
-(let ((loads (get 'anaphora 'custom-loads))) (if (member '"anaphora" loads) nil (put 'anaphora 'custom-loads (cons '"anaphora" loads))))
-
-(defvar anaphora-use-long-names-only nil "\
-Use only long names such as `anaphoric-if' instead of traditional `aif'.")
-
-(custom-autoload 'anaphora-use-long-names-only "anaphora" t)
-
-(defun anaphora--install-traditional-aliases (&optional arg) "\
-Install traditional short aliases for anaphoric macros.
-
-With negative numeric ARG, remove traditional aliases." (let ((syms (quote ((if . t) (prog1 . t) (prog2 . t) (when . when) (while . t) (and . t) (cond . cond) (lambda . lambda) (block . block) (case . case) (ecase . ecase) (typecase . typecase) (etypecase . etypecase) (let . let) (+ . t) (- . t) (* . t) (/ . t))))) (cond ((and (numberp arg) (< arg 0)) (dolist (cell syms) (when (ignore-errors (eq (symbol-function (intern-soft (format "a%s" (car cell)))) (intern-soft (format "anaphoric-%s" (car cell))))) (fmakunbound (intern (format "a%s" (car cell))))))) (t (dolist (cell syms) (let* ((builtin (car cell)) (traditional (intern (format "a%s" builtin))) (long (intern (format "anaphoric-%s" builtin)))) (defalias traditional long) (put traditional (quote lisp-indent-function) (get builtin (quote lisp-indent-function))) (put traditional (quote edebug-form-spec) (cdr cell))))))))
-
-(unless anaphora-use-long-names-only (anaphora--install-traditional-aliases))
-
-(autoload 'anaphoric-if "anaphora" "\
-Like `if', but the result of evaluating COND is bound to `it'.
-
-The variable `it' is available within THEN and ELSE.
-
-COND, THEN, and ELSE are otherwise as documented for `if'.
-
-\(fn COND THEN &rest ELSE)" nil t)
-
-(function-put 'anaphoric-if 'lisp-indent-function '2)
-
-(autoload 'anaphoric-prog1 "anaphora" "\
-Like `prog1', but the result of evaluating FIRST is bound to `it'.
-
-The variable `it' is available within BODY.
-
-FIRST and BODY are otherwise as documented for `prog1'.
-
-\(fn FIRST &rest BODY)" nil t)
-
-(function-put 'anaphoric-prog1 'lisp-indent-function '1)
-
-(autoload 'anaphoric-prog2 "anaphora" "\
-Like `prog2', but the result of evaluating FORM2 is bound to `it'.
-
-The variable `it' is available within BODY.
-
-FORM1, FORM2, and BODY are otherwise as documented for `prog2'.
-
-\(fn FORM1 FORM2 &rest BODY)" nil t)
-
-(function-put 'anaphoric-prog2 'lisp-indent-function '2)
-
-(autoload 'anaphoric-when "anaphora" "\
-Like `when', but the result of evaluating COND is bound to `it'.
-
-The variable `it' is available within BODY.
-
-COND and BODY are otherwise as documented for `when'.
-
-\(fn COND &rest BODY)" nil t)
-
-(function-put 'anaphoric-when 'lisp-indent-function '1)
-
-(autoload 'anaphoric-while "anaphora" "\
-Like `while', but the result of evaluating TEST is bound to `it'.
-
-The variable `it' is available within BODY.
-
-TEST and BODY are otherwise as documented for `while'.
-
-\(fn TEST &rest BODY)" nil t)
-
-(function-put 'anaphoric-while 'lisp-indent-function '1)
-
-(autoload 'anaphoric-and "anaphora" "\
-Like `and', but the result of the previous condition is bound to `it'.
-
-The variable `it' is available within all CONDITIONS after the
-initial one.
-
-CONDITIONS are otherwise as documented for `and'.
-
-Note that some implementations of this macro bind only the first
-condition to `it', rather than each successive condition.
-
-\(fn &rest CONDITIONS)" nil t)
-
-(autoload 'anaphoric-cond "anaphora" "\
-Like `cond', but the result of each condition is bound to `it'.
-
-The variable `it' is available within the remainder of each of CLAUSES.
-
-CLAUSES are otherwise as documented for `cond'.
-
-\(fn &rest CLAUSES)" nil t)
-
-(autoload 'anaphoric-lambda "anaphora" "\
-Like `lambda', but the function may refer to itself as `self'.
-
-ARGS and BODY are otherwise as documented for `lambda'.
-
-\(fn ARGS &rest BODY)" nil t)
-
-(function-put 'anaphoric-lambda 'lisp-indent-function 'defun)
-
-(autoload 'anaphoric-block "anaphora" "\
-Like `block', but the result of the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions of BODY
-except the initial one.
-
-NAME and BODY are otherwise as documented for `block'.
-
-\(fn NAME &rest BODY)" nil t)
-
-(function-put 'anaphoric-block 'lisp-indent-function '1)
-
-(autoload 'anaphoric-case "anaphora" "\
-Like `case', but the result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `case'.
-
-\(fn EXPR &rest CLAUSES)" nil t)
-
-(function-put 'anaphoric-case 'lisp-indent-function '1)
-
-(autoload 'anaphoric-ecase "anaphora" "\
-Like `ecase', but the result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `ecase'.
-
-\(fn EXPR &rest CLAUSES)" nil t)
-
-(function-put 'anaphoric-ecase 'lisp-indent-function '1)
-
-(autoload 'anaphoric-typecase "anaphora" "\
-Like `typecase', but the result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `typecase'.
-
-\(fn EXPR &rest CLAUSES)" nil t)
-
-(function-put 'anaphoric-typecase 'lisp-indent-function '1)
-
-(autoload 'anaphoric-etypecase "anaphora" "\
-Like `etypecase', but result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `etypecase'.
-
-\(fn EXPR &rest CLAUSES)" nil t)
-
-(function-put 'anaphoric-etypecase 'lisp-indent-function '1)
-
-(autoload 'anaphoric-let "anaphora" "\
-Like `let', but the result of evaluating FORM is bound to `it'.
-
-FORM and BODY are otherwise as documented for `let'.
-
-\(fn FORM &rest BODY)" nil t)
-
-(function-put 'anaphoric-let 'lisp-indent-function '1)
-
-(autoload 'anaphoric-+ "anaphora" "\
-Like `+', but the result of evaluating the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions after the
-initial one.
-
-NUMBERS-OR-MARKERS are otherwise as documented for `+'.
-
-\(fn &rest NUMBERS-OR-MARKERS)" nil t)
-
-(autoload 'anaphoric-- "anaphora" "\
-Like `-', but the result of evaluating the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions after the
-initial one.
-
-NUMBER-OR-MARKER and NUMBERS-OR-MARKERS are otherwise as
-documented for `-'.
-
-\(fn &optional NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)" nil t)
-
-(autoload 'anaphoric-* "anaphora" "\
-Like `*', but the result of evaluating the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions after the
-initial one.
-
-NUMBERS-OR-MARKERS are otherwise as documented for `*'.
-
-\(fn &rest NUMBERS-OR-MARKERS)" nil t)
-
-(autoload 'anaphoric-/ "anaphora" "\
-Like `/', but the result of evaluating the previous divisor is bound to `it'.
-
-The variable `it' is available within all expressions after the
-first divisor.
-
-DIVIDEND, DIVISOR, and DIVISORS are otherwise as documented for `/'.
-
-\(fn DIVIDEND DIVISOR &rest DIVISORS)" nil t)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "anaphora" '("anaphora-install-font-lock-keywords")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; anaphora-autoloads.el ends here
diff --git a/elpa/anaphora-20180618.2200/anaphora-pkg.el b/elpa/anaphora-20180618.2200/anaphora-pkg.el
deleted file mode 100644
index edb9e64..0000000
--- a/elpa/anaphora-20180618.2200/anaphora-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "anaphora" "20180618.2200" "anaphoric macros providing implicit temp variables" 'nil :commit "3b2da3f759b244975852e79721c4a2dbad3905cf" :keywords '("extensions") :authors '(("Roland Walker" . "walker@pobox.com")) :maintainer '("Roland Walker" . "walker@pobox.com") :url "http://github.com/rolandwalker/anaphora")
diff --git a/elpa/anaphora-20180618.2200/anaphora.el b/elpa/anaphora-20180618.2200/anaphora.el
deleted file mode 100644
index fa57584..0000000
--- a/elpa/anaphora-20180618.2200/anaphora.el
+++ /dev/null
@@ -1,461 +0,0 @@
-;;; anaphora.el --- anaphoric macros providing implicit temp variables -*- lexical-binding: t -*-
-;;
-;; This code is in the public domain.
-;;
-;; Author: Roland Walker <walker@pobox.com>
-;; Homepage: http://github.com/rolandwalker/anaphora
-;; URL: http://raw.githubusercontent.com/rolandwalker/anaphora/master/anaphora.el
-;; Package-Version: 20180618.2200
-;; Version: 1.0.4
-;; Last-Updated: 18 Jun 2018
-;; EmacsWiki: Anaphora
-;; Keywords: extensions
-;;
-;;; Commentary:
-;;
-;; Quickstart
-;;
-;; (require 'anaphora)
-;;
-;; (awhen (big-long-calculation)
-;; (foo it) ; `it' is provided as
-;; (bar it)) ; a temporary variable
-;;
-;; ;; anonymous function to compute factorial using `self'
-;; (alambda (x) (if (= x 0) 1 (* x (self (1- x)))))
-;;
-;; ;; to fontify `it' and `self'
-;; (with-eval-after-load "lisp-mode"
-;; (anaphora-install-font-lock-keywords))
-;;
-;; Explanation
-;;
-;; Anaphoric expressions implicitly create one or more temporary
-;; variables which can be referred to during the expression. This
-;; technique can improve clarity in certain cases. It also enables
-;; recursion for anonymous functions.
-;;
-;; To use anaphora, place the anaphora.el library somewhere
-;; Emacs can find it, and add the following to your ~/.emacs file:
-;;
-;; (require 'anaphora)
-;;
-;; The following macros are made available
-;;
-;; `aand'
-;; `ablock'
-;; `acase'
-;; `acond'
-;; `aecase'
-;; `aetypecase'
-;; `aif'
-;; `alambda'
-;; `alet'
-;; `aprog1'
-;; `aprog2'
-;; `atypecase'
-;; `awhen'
-;; `awhile'
-;; `a+'
-;; `a-'
-;; `a*'
-;; `a/'
-;;
-;; See Also
-;;
-;; M-x customize-group RET anaphora RET
-;; http://en.wikipedia.org/wiki/On_Lisp
-;; http://en.wikipedia.org/wiki/Anaphoric_macro
-;;
-;; Notes
-;;
-;; Partially based on examples from the book "On Lisp", by Paul
-;; Graham.
-;;
-;; Compatibility and Requirements
-;;
-;; GNU Emacs version 26.1 : yes
-;; GNU Emacs version 25.x : yes
-;; GNU Emacs version 24.x : yes
-;; GNU Emacs version 23.x : yes
-;; GNU Emacs version 22.x : yes
-;; GNU Emacs version 21.x and lower : unknown
-;;
-;; Bugs
-;;
-;; TODO
-;;
-;; better face for it and self
-;;
-;;; License
-;;
-;; All code contributed by the author to this library is placed in the
-;; public domain. It is the author's belief that the portions adapted
-;; from examples in "On Lisp" are in the public domain.
-;;
-;; Regardless of the copyright status of individual functions, all
-;; code herein is free software, and is provided without any express
-;; or implied warranties.
-;;
-;;; Code:
-;;
-
-;;; requirements
-
-;; for declare, labels, do, block, case, ecase, typecase, etypecase
-(require 'cl-lib)
-
-;;; customizable variables
-
-;;;###autoload
-(defgroup anaphora nil
- "Anaphoric macros providing implicit temp variables"
- :version "1.0.4"
- :link '(emacs-commentary-link :tag "Commentary" "anaphora")
- :link '(url-link :tag "GitHub" "http://github.com/rolandwalker/anaphora")
- :link '(url-link :tag "EmacsWiki" "http://emacswiki.org/emacs/Anaphora")
- :prefix "anaphora-"
- :group 'extensions)
-
-;;;###autoload
-(defcustom anaphora-use-long-names-only nil
- "Use only long names such as `anaphoric-if' instead of traditional `aif'."
- :type 'boolean
- :group 'anaphora)
-
-;;; font-lock
-
-(defun anaphora-install-font-lock-keywords nil
- "Fontify keywords `it' and `self'."
- (font-lock-add-keywords 'emacs-lisp-mode `((,(concat "\\<" (regexp-opt '("it" "self") 'paren) "\\>")
- 1 font-lock-variable-name-face)) 'append))
-
-;;; aliases
-
-;;;###autoload
-(progn
- (defun anaphora--install-traditional-aliases (&optional arg)
- "Install traditional short aliases for anaphoric macros.
-
-With negative numeric ARG, remove traditional aliases."
- (let ((syms '(
- (if . t)
- (prog1 . t)
- (prog2 . t)
- (when . when)
- (while . t)
- (and . t)
- (cond . cond)
- (lambda . lambda)
- (block . block)
- (case . case)
- (ecase . ecase)
- (typecase . typecase)
- (etypecase . etypecase)
- (let . let)
- (+ . t)
- (- . t)
- (* . t)
- (/ . t)
- )))
- (cond
- ((and (numberp arg)
- (< arg 0))
- (dolist (cell syms)
- (when (ignore-errors
- (eq (symbol-function (intern-soft (format "a%s" (car cell))))
- (intern-soft (format "anaphoric-%s" (car cell)))))
- (fmakunbound (intern (format "a%s" (car cell)))))))
- (t
- (dolist (cell syms)
- (let* ((builtin (car cell))
- (traditional (intern (format "a%s" builtin)))
- (long (intern (format "anaphoric-%s" builtin))))
- (defalias traditional long)
- (put traditional 'lisp-indent-function
- (get builtin 'lisp-indent-function))
- (put traditional 'edebug-form-spec (cdr cell)))))))))
-
-;;;###autoload
-(unless anaphora-use-long-names-only
- (anaphora--install-traditional-aliases))
-
-;;; macros
-
-;;;###autoload
-(defmacro anaphoric-if (cond then &rest else)
- "Like `if', but the result of evaluating COND is bound to `it'.
-
-The variable `it' is available within THEN and ELSE.
-
-COND, THEN, and ELSE are otherwise as documented for `if'."
- (declare (debug t)
- (indent 2))
- `(let ((it ,cond))
- (if it ,then ,@else)))
-
-;;;###autoload
-(defmacro anaphoric-prog1 (first &rest body)
- "Like `prog1', but the result of evaluating FIRST is bound to `it'.
-
-The variable `it' is available within BODY.
-
-FIRST and BODY are otherwise as documented for `prog1'."
- (declare (debug t)
- (indent 1))
- `(let ((it ,first))
- (progn ,@body)
- it))
-
-;;;###autoload
-(defmacro anaphoric-prog2 (form1 form2 &rest body)
- "Like `prog2', but the result of evaluating FORM2 is bound to `it'.
-
-The variable `it' is available within BODY.
-
-FORM1, FORM2, and BODY are otherwise as documented for `prog2'."
- (declare (debug t)
- (indent 2))
- `(progn
- ,form1
- (let ((it ,form2))
- (progn ,@body)
- it)))
-
-;;;###autoload
-(defmacro anaphoric-when (cond &rest body)
- "Like `when', but the result of evaluating COND is bound to `it'.
-
-The variable `it' is available within BODY.
-
-COND and BODY are otherwise as documented for `when'."
- (declare (debug when)
- (indent 1))
- `(anaphoric-if ,cond
- (progn ,@body)))
-
-;;;###autoload
-(defmacro anaphoric-while (test &rest body)
- "Like `while', but the result of evaluating TEST is bound to `it'.
-
-The variable `it' is available within BODY.
-
-TEST and BODY are otherwise as documented for `while'."
- (declare (debug t)
- (indent 1))
- `(do ((it ,test ,test))
- ((not it))
- ,@body))
-
-;;;###autoload
-(defmacro anaphoric-and (&rest conditions)
- "Like `and', but the result of the previous condition is bound to `it'.
-
-The variable `it' is available within all CONDITIONS after the
-initial one.
-
-CONDITIONS are otherwise as documented for `and'.
-
-Note that some implementations of this macro bind only the first
-condition to `it', rather than each successive condition."
- (declare (debug t))
- (cond
- ((null conditions)
- t)
- ((null (cdr conditions))
- (car conditions))
- (t
- `(anaphoric-if ,(car conditions) (anaphoric-and ,@(cdr conditions))))))
-
-;;;###autoload
-(defmacro anaphoric-cond (&rest clauses)
- "Like `cond', but the result of each condition is bound to `it'.
-
-The variable `it' is available within the remainder of each of CLAUSES.
-
-CLAUSES are otherwise as documented for `cond'."
- (declare (debug cond))
- (if (null clauses)
- nil
- (let ((cl1 (car clauses))
- (sym (gensym)))
- `(let ((,sym ,(car cl1)))
- (if ,sym
- (if (null ',(cdr cl1))
- ,sym
- (let ((it ,sym)) ,@(cdr cl1)))
- (anaphoric-cond ,@(cdr clauses)))))))
-
-;;;###autoload
-(defmacro anaphoric-lambda (args &rest body)
- "Like `lambda', but the function may refer to itself as `self'.
-
-ARGS and BODY are otherwise as documented for `lambda'."
- (declare (debug lambda)
- (indent defun))
- `(cl-labels ((self ,args ,@body))
- #'self))
-
-;;;###autoload
-(defmacro anaphoric-block (name &rest body)
- "Like `block', but the result of the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions of BODY
-except the initial one.
-
-NAME and BODY are otherwise as documented for `block'."
- (declare (debug block)
- (indent 1))
- `(cl-block ,name
- ,(funcall (anaphoric-lambda (body)
- (cl-case (length body)
- (0 nil)
- (1 (car body))
- (t `(let ((it ,(car body)))
- ,(self (cdr body))))))
- body)))
-
-;;;###autoload
-(defmacro anaphoric-case (expr &rest clauses)
- "Like `case', but the result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `case'."
- (declare (debug case)
- (indent 1))
- `(let ((it ,expr))
- (cl-case it ,@clauses)))
-
-;;;###autoload
-(defmacro anaphoric-ecase (expr &rest clauses)
- "Like `ecase', but the result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `ecase'."
- (declare (debug ecase)
- (indent 1))
- `(let ((it ,expr))
- (cl-ecase it ,@clauses)))
-
-;;;###autoload
-(defmacro anaphoric-typecase (expr &rest clauses)
- "Like `typecase', but the result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `typecase'."
- (declare (debug typecase)
- (indent 1))
- `(let ((it ,expr))
- (cl-typecase it ,@clauses)))
-
-;;;###autoload
-(defmacro anaphoric-etypecase (expr &rest clauses)
- "Like `etypecase', but result of evaluating EXPR is bound to `it'.
-
-The variable `it' is available within CLAUSES.
-
-EXPR and CLAUSES are otherwise as documented for `etypecase'."
- (declare (debug etypecase)
- (indent 1))
- `(let ((it ,expr))
- (cl-etypecase it ,@clauses)))
-
-;;;###autoload
-(defmacro anaphoric-let (form &rest body)
- "Like `let', but the result of evaluating FORM is bound to `it'.
-
-FORM and BODY are otherwise as documented for `let'."
- (declare (debug let)
- (indent 1))
- `(let ((it ,form))
- (progn ,@body)))
-
-;;;###autoload
-(defmacro anaphoric-+ (&rest numbers-or-markers)
- "Like `+', but the result of evaluating the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions after the
-initial one.
-
-NUMBERS-OR-MARKERS are otherwise as documented for `+'."
- (declare (debug t))
- (cond
- ((null numbers-or-markers)
- 0)
- (t
- `(let ((it ,(car numbers-or-markers)))
- (+ it (anaphoric-+ ,@(cdr numbers-or-markers)))))))
-
-;;;###autoload
-(defmacro anaphoric-- (&optional number-or-marker &rest numbers-or-markers)
- "Like `-', but the result of evaluating the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions after the
-initial one.
-
-NUMBER-OR-MARKER and NUMBERS-OR-MARKERS are otherwise as
-documented for `-'."
- (declare (debug t))
- (cond
- ((null number-or-marker)
- 0)
- ((null numbers-or-markers)
- `(- ,number-or-marker))
- (t
- `(let ((it ,(car numbers-or-markers)))
- (- ,number-or-marker (+ it (anaphoric-+ ,@(cdr numbers-or-markers))))))))
-
-;;;###autoload
-(defmacro anaphoric-* (&rest numbers-or-markers)
- "Like `*', but the result of evaluating the previous expression is bound to `it'.
-
-The variable `it' is available within all expressions after the
-initial one.
-
-NUMBERS-OR-MARKERS are otherwise as documented for `*'."
- (declare (debug t))
- (cond
- ((null numbers-or-markers)
- 1)
- (t
- `(let ((it ,(car numbers-or-markers)))
- (* it (anaphoric-* ,@(cdr numbers-or-markers)))))))
-
-;;;###autoload
-(defmacro anaphoric-/ (dividend divisor &rest divisors)
- "Like `/', but the result of evaluating the previous divisor is bound to `it'.
-
-The variable `it' is available within all expressions after the
-first divisor.
-
-DIVIDEND, DIVISOR, and DIVISORS are otherwise as documented for `/'."
- (declare (debug t))
- (cond
- ((null divisors)
- `(/ ,dividend ,divisor))
- (t
- `(let ((it ,divisor))
- (/ ,dividend (* it (anaphoric-* ,@divisors)))))))
-
-(provide 'anaphora)
-
-;;
-;; Emacs
-;;
-;; Local Variables:
-;; indent-tabs-mode: nil
-;; mangle-whitespace: t
-;; require-final-newline: t
-;; coding: utf-8
-;; byte-compile-warnings: (not cl-functions redefine)
-;; End:
-;;
-;; LocalWords: Anaphora EXPR awhen COND ARGS alambda ecase typecase
-;; LocalWords: etypecase aprog aand acond ablock acase aecase alet
-;; LocalWords: atypecase aetypecase
-;;
-
-;;; anaphora.el ends here
diff --git a/elpa/anaphora-20180618.2200/anaphora.elc b/elpa/anaphora-20180618.2200/anaphora.elc
deleted file mode 100644
index 0e05da9..0000000
--- a/elpa/anaphora-20180618.2200/anaphora.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/archives/gnu/archive-contents b/elpa/archives/gnu/archive-contents
deleted file mode 100644
index ac43b3a..0000000
--- a/elpa/archives/gnu/archive-contents
+++ /dev/null
@@ -1,1332 +0,0 @@
-(1
- (ace-window .
- [(0 9 0)
- ((avy
- (0 2 0)))
- "Quickly switch windows." single
- ((:url . "https://github.com/abo-abo/ace-window")
- (:keywords "window" "location"))])
- (ack .
- [(1 5)
- nil "interface to ack-like tools" tar
- ((:keywords "tools" "processes" "convenience")
- (:url . "https://github.com/leoliu/ack-el"))])
- (ada-mode .
- [(5 3 2)
- ((wisi
- (1 1 6))
- (cl-lib
- (0 4))
- (emacs
- (24 3)))
- "major-mode for editing Ada sources" tar
- ((:keywords "languages" "ada")
- (:url . "http://www.nongnu.org/ada-mode/"))])
- (ada-ref-man .
- [(2012 3)
- nil "Ada Reference Manual 2012" tar
- ((:keywords "languages" "ada")
- (:url . "http://stephe-leake.org/ada/arm.html"))])
- (adaptive-wrap .
- [(0 7)
- nil "Smart line-wrapping with wrap-prefix" single
- ((:url . "http://elpa.gnu.org/packages/adaptive-wrap.html")
- (:keywords))])
- (adjust-parens .
- [(3 0)
- nil "Indent and dedent Lisp code, automatically adjust close parens" tar
- ((:url . "http://elpa.gnu.org/packages/adjust-parens.html"))])
- (aggressive-indent .
- [(1 8 3)
- ((emacs
- (24 1))
- (cl-lib
- (0 5)))
- "Minor mode to aggressively keep your code always indented" single
- ((:url . "https://github.com/Malabarba/aggressive-indent-mode")
- (:keywords "indent" "lisp" "maint" "tools"))])
- (ahungry-theme .
- [(1 10 0)
- ((emacs
- (24)))
- "Ahungry color theme for Emacs. Make sure to (load-theme 'ahungry)." tar
- ((:keywords "ahungry" "palette" "color" "theme" "emacs" "color-theme" "deftheme")
- (:url . "https://github.com/ahungry/color-theme-ahungry"))])
- (all .
- [(1 0)
- nil "Edit all lines matching a given regexp" single
- ((:url . "http://elpa.gnu.org/packages/all.html")
- (:keywords "matching"))])
- (ampc .
- [(0 2)
- nil "Asynchronous Music Player Controller" single
- ((:url . "http://elpa.gnu.org/packages/ampc.html")
- (:keywords "ampc" "mpc" "mpd"))])
- (arbitools .
- [(0 95)
- ((cl-lib
- (0 5)))
- "Package for chess tournaments administration" single
- ((:url . "http://elpa.gnu.org/packages/arbitools.html")
- (:keywords))])
- (ascii-art-to-unicode .
- [(1 12)
- nil "a small artist adjunct" single
- ((:url . "http://www.gnuvola.org/software/aa2u/")
- (:keywords "ascii" "unicode" "box-drawing"))])
- (async .
- [(1 9 2)
- nil "Asynchronous processing in Emacs" tar
- ((:keywords "async")
- (:url . "http://elpa.gnu.org/packages/async.html"))])
- (auctex .
- [(12 1 1)
- nil "Integrated environment for *TeX*" tar
- ((:url . "http://www.gnu.org/software/auctex/"))])
- (aumix-mode .
- [(7)
- nil "run the aumix program in a buffer" single
- ((:url . "http://user42.tuxfamily.org/aumix-mode/index.html")
- (:keywords "multimedia" "mixer" "aumix"))])
- (auto-correct .
- [(1 1 4)
- nil "Remembers and automatically fixes past corrections" single
- ((:url . "http://elpa.gnu.org/packages/auto-correct.html")
- (:keywords "editing"))])
- (auto-overlays .
- [(0 10 9)
- nil "Automatic regexp-delimited overlays" tar
- ((:keywords "extensions")
- (:url . "http://www.dr-qubit.org/emacs.php"))])
- (avy .
- [(0 4 0)
- ((emacs
- (24 1))
- (cl-lib
- (0 5)))
- "tree-based completion" tar
- ((:keywords "point" "location")
- (:url . "https://github.com/abo-abo/avy"))])
- (bbdb .
- [(3 2)
- ((emacs
- (24)))
- "core of BBDB" tar
- ((:url . "http://elpa.gnu.org/packages/bbdb.html"))])
- (beacon .
- [(1 3 3)
- ((seq
- (2 14)))
- "Highlight the cursor whenever the window scrolls" single
- ((:url . "https://github.com/Malabarba/beacon")
- (:keywords "convenience"))])
- (brief .
- [(5 87)
- nil "Brief Editor Emulator (Brief Mode)" tar
- ((:keywords "brief" "emulations" "crisp")
- (:url . "http://elpa.gnu.org/packages/brief.html"))])
- (bug-hunter .
- [(1 3 1)
- ((seq
- (1 3))
- (cl-lib
- (0 5)))
- "Hunt down errors by bisecting elisp files" single
- ((:url . "https://github.com/Malabarba/elisp-bug-hunter")
- (:keywords "lisp"))])
- (caps-lock .
- [(1 0)
- nil "Caps-lock as a minor mode" single
- ((:url . "http://elpa.gnu.org/packages/caps-lock.html")
- (:keywords))])
- (captain .
- [(1 0 3)
- nil "CAPiTalization is Automatic IN emacs" single
- ((:url . "http://elpa.gnu.org/packages/captain.html")
- (:keywords "editing"))])
- (chess .
- [(2 0 4)
- ((cl-lib
- (0 5)))
- "Play chess in GNU Emacs" tar
- ((:keywords "games")
- (:url . "http://elpa.gnu.org/packages/chess.html"))])
- (cl-generic .
- [(0 3)
- nil "Forward cl-generic compatibility for Emacs<25" single
- ((:url . "http://elpa.gnu.org/packages/cl-generic.html")
- (:keywords))])
- (cl-lib .
- [(0 6 1)
- nil "Properly prefixed CL functions and macros" single
- ((:url . "http://elpa.gnu.org/packages/cl-lib.html")
- (:keywords))])
- (cl-print .
- [(1 0)
- ((emacs
- (25)))
- "CL-style generic printing" single
- ((:url . "http://elpa.gnu.org/packages/cl-print.html")
- (:keywords))])
- (cobol-mode .
- [(1 0 0)
- ((cl-lib
- (0 5)))
- "Mode for editing COBOL code" single
- ((:url . "http://elpa.gnu.org/packages/cobol-mode.html")
- (:keywords "languages"))])
- (coffee-mode .
- [(0 4 1 1)
- nil "Major mode for CoffeeScript files" single
- ((:url . "http://github.com/defunkt/coffee-mode")
- (:keywords "coffeescript" "major" "mode"))])
- (compact-docstrings .
- [(0 1)
- nil "Shrink blank lines in docstrings and doc comments" single
- ((:url . "https://github.com/cpitclaudel/compact-docstrings")
- (:keywords "convenience" "faces" "lisp" "maint" "c"))])
- (company .
- [(0 9 7)
- ((emacs
- (24 3)))
- "Modular text completion framework" tar
- ((:keywords "abbrev" "convenience" "matching")
- (:url . "http://company-mode.github.io/"))])
- (company-ebdb .
- [(1)
- ((company
- (0 9 4))
- (ebdb
- (0 2)))
- "company-mode completion backend for EBDB in message-mode" single
- ((:url . "http://elpa.gnu.org/packages/company-ebdb.html")
- (:keywords))])
- (company-math .
- [(1 1)
- ((company
- (0 8 0))
- (math-symbol-lists
- (1 0)))
- "Completion backends for unicode math symbols and latex tags" tar
- ((:keywords "unicode" "symbols" "completion")
- (:url . "https://github.com/vspinu/company-math"))])
- (company-statistics .
- [(0 2 3)
- ((emacs
- (24 3))
- (company
- (0 8 5)))
- "Sort candidates using completion history" tar
- ((:keywords "abbrev" "convenience" "matching")
- (:url . "https://github.com/company-mode/company-statistics"))])
- (context-coloring .
- [(8 1 0)
- ((emacs
- (24 3)))
- "Highlight by scope" tar
- ((:keywords "convenience" "faces" "tools")
- (:url . "https://github.com/jacksonrayhamilton/context-coloring"))])
- (counsel-ebdb .
- [(1)
- ((ivy
- (0 8 0))
- (ebdb
- (0 2)))
- "Counsel integration for EBDB" single
- ((:url . "http://elpa.gnu.org/packages/counsel-ebdb.html")
- (:keywords))])
- (crisp .
- [(1 3 6)
- nil "CRiSP/Brief Emacs emulator" single
- ((:url . "http://elpa.gnu.org/packages/crisp.html")
- (:keywords "emulations" "brief" "crisp"))])
- (csv-mode .
- [(1 7)
- nil "Major mode for editing comma/char separated values" single
- ((:url . "http://elpa.gnu.org/packages/csv-mode.html")
- (:keywords "convenience"))])
- (cycle-quotes .
- [(0 1)
- nil "Cycle between quote styles" tar
- ((:keywords "convenience")
- (:url . "http://elpa.gnu.org/packages/cycle-quotes.html"))])
- (darkroom .
- [(0 1)
- ((cl-lib
- (0 5)))
- "Remove visual distractions and focus on writing" single
- ((:url . "http://elpa.gnu.org/packages/darkroom.html")
- (:keywords "convenience" "emulations"))])
- (dash .
- [(2 12 0)
- nil "A modern list library for Emacs" tar
- ((:keywords "lists")
- (:url . "http://elpa.gnu.org/packages/dash.html"))])
- (dbus-codegen .
- [(0 1)
- ((cl-lib
- (0 5)))
- "Lisp code generation for D-Bus." single
- ((:url . "http://elpa.gnu.org/packages/dbus-codegen.html")
- (:keywords "comm" "dbus" "convenience"))])
- (debbugs .
- [(0 16)
- ((soap-client
- (3 1 5))
- (cl-lib
- (0 5)))
- "SOAP library to access debbugs servers" tar
- ((:keywords "comm" "hypermedia")
- (:url . "http://elpa.gnu.org/packages/debbugs.html"))])
- (delight .
- [(1 5)
- nil "A dimmer switch for your lighter text." single
- ((:url . "https://savannah.nongnu.org/projects/delight")
- (:keywords "convenience"))])
- (dict-tree .
- [(0 14)
- ((trie
- (0 3))
- (tNFA
- (0 1 1))
- (heap
- (0 3)))
- "Dictionary data structure" single
- ((:url . "http://www.dr-qubit.org/emacs.php")
- (:keywords "extensions" "matching" "data structures trie" "tree" "dictionary" "completion" "regexp"))])
- (diff-hl .
- [(1 8 4)
- ((cl-lib
- (0 2)))
- "Highlight uncommitted changes using VC" tar
- ((:keywords "vc" "diff")
- (:url . "https://github.com/dgutov/diff-hl"))])
- (diffview .
- [(1 0)
- nil "View diffs in side-by-side format" single
- ((:url . "https://github.com/mgalgs/diffview-mode")
- (:keywords "convenience" "diff"))])
- (dired-du .
- [(0 5 1)
- ((emacs
- (24 4))
- (cl-lib
- (0 5)))
- "Dired with recursive directory sizes" tar
- ((:keywords "files" "unix" "convenience")
- (:url . "http://elpa.gnu.org/packages/dired-du.html"))])
- (dismal .
- [(1 5)
- ((cl-lib
- (0)))
- "Dis Mode Ain't Lotus: Spreadsheet program Emacs" tar
- ((:url . "http://elpa.gnu.org/packages/dismal.html"))])
- (djvu .
- [(0 5)
- nil "Edit and view Djvu files via djvused" single
- ((:url . "http://elpa.gnu.org/packages/djvu.html")
- (:keywords "files" "wp"))])
- (docbook .
- [(0 1)
- nil "Info-like viewer for DocBook" single
- ((:url . "http://elpa.gnu.org/packages/docbook.html")
- (:keywords "docs" "help"))])
- (dts-mode .
- [(0 1 0)
- nil "Major mode for Device Tree source files" single
- ((:url . "http://elpa.gnu.org/packages/dts-mode.html")
- (:keywords "languages"))])
- (easy-kill .
- [(0 9 3)
- ((emacs
- (24))
- (cl-lib
- (0 5)))
- "kill & mark things easily" tar
- ((:keywords "killing" "convenience")
- (:url . "https://github.com/leoliu/easy-kill"))])
- (ebdb .
- [(0 6)
- ((emacs
- (25 1))
- (cl-lib
- (0 5))
- (seq
- (2 15)))
- "Contact management package" tar
- ((:keywords "convenience" "mail")
- (:url . "https://github.com/girzel/ebdb"))])
- (ebdb-gnorb .
- [(1 0 2)
- ((gnorb
- (1 1 0))
- (ebdb
- (0 2)))
- "Utilities for connecting EBDB to Gnorb" single
- ((:url . "http://elpa.gnu.org/packages/ebdb-gnorb.html")
- (:keywords))])
- (ebdb-i18n-chn .
- [(1 2)
- ((pyim
- (1 6 0))
- (ebdb
- (0 2)))
- "China-specific internationalization support for EBDB" single
- ((:url . "http://elpa.gnu.org/packages/ebdb-i18n-chn.html")
- (:keywords))])
- (ediprolog .
- [(1 2)
- nil "Emacs Does Interactive Prolog" single
- ((:url . "http://elpa.gnu.org/packages/ediprolog.html")
- (:keywords "languages" "processes"))])
- (eglot .
- [(1 1)
- ((emacs
- (26 1))
- (jsonrpc
- (1 0 6)))
- "Client for Language Server Protocol (LSP) servers" tar
- ((:keywords "convenience" "languages")
- (:url . "https://github.com/joaotavora/eglot"))])
- (el-search .
- [(1 7 15)
- ((emacs
- (25))
- (stream
- (2 2 4))
- (cl-print
- (1 0)))
- "Expression based interactive search for Emacs Lisp" tar
- ((:keywords "lisp")
- (:url . "http://elpa.gnu.org/packages/el-search.html"))])
- (eldoc-eval .
- [(0 1)
- nil "Enable eldoc support when minibuffer is in use." single
- ((:url . "http://elpa.gnu.org/packages/eldoc-eval.html")
- (:keywords))])
- (electric-spacing .
- [(5 0)
- nil "Insert operators with surrounding spaces smartly" single
- ((:url . "http://elpa.gnu.org/packages/electric-spacing.html")
- (:keywords))])
- (enwc .
- [(2 0)
- ((emacs
- (25 1)))
- "The Emacs Network Client" tar
- ((:keywords "external" "network" "wicd" "manager" "nm")
- (:url . "http://elpa.gnu.org/packages/enwc.html"))])
- (epoch-view .
- [(0 0 1)
- nil "Minor mode to visualize epoch timestamps" single
- ((:url . "http://elpa.gnu.org/packages/epoch-view.html")
- (:keywords "data" "timestamp" "epoch" "unix"))])
- (ergoemacs-mode .
- [(5 16 10 12)
- ((emacs
- (24 1))
- (undo-tree
- (0 6 5))
- (cl-lib
- (0 5)))
- "Emacs mode based on common modern interface and ergonomics." tar
- ((:keywords "convenience")
- (:url . "https://github.com/ergoemacs/ergoemacs-mode"))])
- (excorporate .
- [(0 8 1)
- ((emacs
- (24 1))
- (fsm
- (0 2))
- (soap-client
- (3 1 4))
- (url-http-ntlm
- (2 0 3))
- (nadvice
- (0 3)))
- "Exchange integration" tar
- ((:keywords "calendar")
- (:url . "http://elpa.gnu.org/packages/excorporate.html"))])
- (exwm .
- [(0 20)
- ((xelb
- (0 16)))
- "Emacs X Window Manager" tar
- ((:keywords "unix")
- (:url . "https://github.com/ch11ng/exwm"))])
- (f90-interface-browser .
- [(1 1)
- nil "Parse and browse f90 interfaces" single
- ((:url . "http://github.com/wence-/f90-iface/")
- (:keywords))])
- (filladapt .
- [(2 12 2)
- ((emacs
- (24 4)))
- "Adaptive fill" single
- ((:url . "http://elpa.gnu.org/packages/filladapt.html")
- (:keywords))])
- (flylisp .
- [(0 2)
- ((emacs
- (24 1))
- (cl-lib
- (0 4)))
- "Color unbalanced parentheses and parentheses inconsistent with indentation" single
- ((:url . "http://elpa.gnu.org/packages/flylisp.html")
- (:keywords))])
- (fountain-mode .
- [(2 6 1)
- ((emacs
- (24 5)))
- "Major mode for screenwriting in Fountain markup" single
- ((:url . "http://elpa.gnu.org/packages/fountain-mode.html")
- (:keywords "wp" "text"))])
- (frame-tabs .
- [(1 1)
- nil "show buffer tabs in side window" single
- ((:url . "http://elpa.gnu.org/packages/frame-tabs.html")
- (:keywords "frames" "tabs"))])
- (fsm .
- [(0 2 1)
- ((emacs
- (24 1))
- (cl-lib
- (0 5)))
- "state machine library" single
- ((:url . "http://elpa.gnu.org/packages/fsm.html")
- (:keywords "extensions"))])
- (ggtags .
- [(0 8 13)
- ((emacs
- (24))
- (cl-lib
- (0 5)))
- "emacs frontend to GNU Global source code tagging system" single
- ((:url . "https://github.com/leoliu/ggtags")
- (:keywords "tools" "convenience"))])
- (gited .
- [(0 5 3)
- ((emacs
- (24 4))
- (cl-lib
- (0 5)))
- "Operate on Git branches like dired" tar
- ((:keywords "git" "vc" "convenience")
- (:url . "http://elpa.gnu.org/packages/gited.html"))])
- (gle-mode .
- [(1 1)
- ((cl-lib
- (0 5)))
- "Major mode to edit Graphics Layout Engine files" single
- ((:url . "http://elpa.gnu.org/packages/gle-mode.html")
- (:keywords))])
- (gnome-c-style .
- [(0 1)
- nil "minor mode for editing GNOME-style C source code" tar
- ((:keywords "gnome" "c" "coding style")
- (:url . "http://elpa.gnu.org/packages/gnome-c-style.html"))])
- (gnorb .
- [(1 6 0)
- ((cl-lib
- (0 5)))
- "Glue code between Gnus, Org, and BBDB" tar
- ((:keywords "mail" "org" "gnus" "bbdb" "todo" "task")
- (:url . "http://elpa.gnu.org/packages/gnorb.html"))])
- (gnugo .
- [(3 1 0)
- ((ascii-art-to-unicode
- (1 5))
- (xpm
- (1 0 1))
- (cl-lib
- (0 5)))
- "play GNU Go in a buffer" tar
- ((:keywords "games" "processes")
- (:url . "http://www.gnuvola.org/software/gnugo/"))])
- (gnus-mock .
- [(0 3 0)
- nil "Mock Gnus installation for testing" tar
- ((:url . "http://elpa.gnu.org/packages/gnus-mock.html"))])
- (heap .
- [(0 5)
- nil "Heap (a.k.a. priority queue) data structure" single
- ((:url . "http://www.dr-qubit.org/emacs.php")
- (:keywords "extensions" "data structures" "heap" "priority queue"))])
- (helm-ebdb .
- [(1)
- ((helm
- (1 0))
- (ebdb
- (0 2)))
- "Helm integration for EBDB" single
- ((:url . "http://elpa.gnu.org/packages/helm-ebdb.html")
- (:keywords "mail" "convenience"))])
- (highlight-escape-sequences .
- [(0 4)
- nil "Highlight escape sequences" single
- ((:url . "https://github.com/dgutov/highlight-escape-sequences")
- (:keywords "convenience"))])
- (hook-helpers .
- [(1 1 1)
- ((emacs
- (25 1)))
- "Anonymous, modifiable hook functions" tar
- ((:keywords "development" "hooks")
- (:url . "https://savannah.nongnu.org/projects/hook-helpers-el/"))])
- (html5-schema .
- [(0 1)
- nil "Add HTML5 schemas for use by nXML" tar
- ((:keywords "html" "xml")
- (:url . "https://github.com/validator/validator"))])
- (hydra .
- [(0 14 0)
- ((cl-lib
- (0 5)))
- "Make bindings that stick around." tar
- ((:keywords "bindings")
- (:url . "https://github.com/abo-abo/hydra"))])
- (hyperbole .
- [(7 0 2)
- ((emacs
- (24 4)))
- "GNU Hyperbole: The Everyday Hypertextual Information Manager" tar
- ((:keywords "comm" "convenience" "files" "frames" "hypermedia" "languages" "mail" "matching" "mouse" "multimedia" "outlines" "tools" "wp")
- (:url . "http://www.gnu.org/software/hyperbole"))])
- (ioccur .
- [(2 4)
- nil "Incremental occur" single
- ((:url . "http://elpa.gnu.org/packages/ioccur.html")
- (:keywords))])
- (iterators .
- [(0 1 1)
- ((emacs
- (25)))
- "Functions for working with iterators" single
- ((:url . "http://elpa.gnu.org/packages/iterators.html")
- (:keywords "extensions" "elisp"))])
- (ivy .
- [(0 10 0)
- ((emacs
- (24 1)))
- "Incremental Vertical completYon" tar
- ((:keywords "matching")
- (:url . "https://github.com/abo-abo/swiper"))])
- (javaimp .
- [(0 6)
- nil "Add and reorder Java import statements in Maven projects" tar
- ((:keywords "java" "maven" "programming")
- (:url . "http://elpa.gnu.org/packages/javaimp.html"))])
- (jgraph-mode .
- [(1 1)
- ((cl-lib
- (0 5)))
- "Major mode for Jgraph files" single
- ((:url . "http://elpa.gnu.org/packages/jgraph-mode.html")
- (:keywords "tex" "wp"))])
- (js2-mode .
- [(20180301)
- ((emacs
- (24 1))
- (cl-lib
- (0 5)))
- "Improved JavaScript editing mode" tar
- ((:keywords "languages" "javascript")
- (:url . "https://github.com/mooz/js2-mode/"))])
- (json-mode .
- [(0 1)
- ((emacs
- (25 1)))
- "Major mode for editing JSON files" single
- ((:url . "http://elpa.gnu.org/packages/json-mode.html")
- (:keywords "data"))])
- (jsonrpc .
- [(1 0 6)
- ((emacs
- (25 2)))
- "JSON-RPC library" single
- ((:url . "http://elpa.gnu.org/packages/jsonrpc.html")
- (:keywords "processes" "languages" "extensions"))])
- (jumpc .
- [(3 0)
- nil "jump to previous insertion points" single
- ((:url . "http://elpa.gnu.org/packages/jumpc.html")
- (:keywords))])
- (kmb .
- [(0 1)
- ((emacs
- (24 1)))
- "Kill buffers matching a regexp w/o confirmation" single
- ((:url . "http://elpa.gnu.org/packages/kmb.html")
- (:keywords "lisp" "convenience"))])
- (landmark .
- [(1 0)
- nil "Neural-network robot that learns landmarks" single
- ((:url . "http://elpa.gnu.org/packages/landmark.html")
- (:keywords "games" "neural network" "adaptive search" "chemotaxis"))])
- (let-alist .
- [(1 0 5)
- ((emacs
- (24 1)))
- "Easily let-bind values of an assoc-list by their names" single
- ((:url . "http://elpa.gnu.org/packages/let-alist.html")
- (:keywords "extensions" "lisp"))])
- (lex .
- [(1 1)
- nil "Lexical analyser construction" tar
- ((:url . "http://elpa.gnu.org/packages/lex.html"))])
- (lmc .
- [(1 4)
- ((emacs
- (24))
- (cl-lib
- (0 5)))
- "Little Man Computer in Elisp" single
- ((:url . "http://elpa.gnu.org/packages/lmc.html")
- (:keywords))])
- (load-dir .
- [(0 0 5)
- ((cl-lib
- (0 5)))
- "Load all Emacs Lisp files in a given directory" single
- ((:url . "http://elpa.gnu.org/packages/load-dir.html")
- (:keywords "lisp" "files" "convenience"))])
- (load-relative .
- [(1 3)
- nil "relative file load (within a multi-file Emacs package)" single
- ((:url . "http://github.com/rocky/emacs-load-relative")
- (:keywords "internal"))])
- (loc-changes .
- [(1 2)
- nil "keep track of positions even after buffer changes" single
- ((:url . "http://github.com/rocky/emacs-loc-changes")
- (:keywords))])
- (loccur .
- [(1 2 3)
- ((cl-lib
- (0)))
- "Perform an occur-like folding in current buffer" single
- ((:url . "https://github.com/fourier/loccur")
- (:keywords "matching"))])
- (markchars .
- [(0 2 1)
- nil "Mark chars fitting certain characteristics" single
- ((:url . "http://elpa.gnu.org/packages/markchars.html")
- (:keywords))])
- (math-symbol-lists .
- [(1 1)
- nil "Lists of Unicode math symbols and latex commands" tar
- ((:keywords "unicode" "symbols" "mathematics")
- (:url . "https://github.com/vspinu/math-symbol-lists"))])
- (memory-usage .
- [(0 2)
- nil "Analyze the memory usage of Emacs in various ways" single
- ((:url . "http://elpa.gnu.org/packages/memory-usage.html")
- (:keywords "maint"))])
- (metar .
- [(0 3)
- ((cl-lib
- (0 5)))
- "Retrieve and decode METAR weather information" single
- ((:url . "http://elpa.gnu.org/packages/metar.html")
- (:keywords "comm"))])
- (midi-kbd .
- [(0 2)
- ((emacs
- (25)))
- "Create keyboard events from Midi input" single
- ((:url . "http://elpa.gnu.org/packages/midi-kbd.html")
- (:keywords "convenience" "hardware" "multimedia"))])
- (mines .
- [(1 6)
- ((emacs
- (24 4))
- (cl-lib
- (0 5)))
- "Minesweeper game" tar
- ((:keywords "games")
- (:url . "https://github.com/calancha/Minesweeper"))])
- (minibuffer-line .
- [(0 1)
- nil "Display status info in the minibuffer window" single
- ((:url . "http://elpa.gnu.org/packages/minibuffer-line.html")
- (:keywords))])
- (minimap .
- [(1 2)
- nil "Sidebar showing a \"mini-map\" of a buffer" single
- ((:url . "http://elpa.gnu.org/packages/minimap.html")
- (:keywords))])
- (mmm-mode .
- [(0 5 7)
- ((cl-lib
- (0 2)))
- "Allow Multiple Major Modes in a buffer" tar
- ((:keywords "convenience" "faces" "languages" "tools")
- (:url . "https://github.com/purcell/mmm-mode"))])
- (multishell .
- [(1 1 5)
- ((cl-lib
- (0 5)))
- "Easily use multiple shell buffers, local and remote" tar
- ((:keywords "processes")
- (:url . "https://github.com/kenmanheimer/EmacsMultishell"))])
- (muse .
- [(3 20 2)
- nil "Authoring and publishing tool for Emacs" tar
- ((:keywords "hypermedia")
- (:url . "http://mwolson.org/projects/EmacsMuse.html"))])
- (myers .
- [(0 1)
- ((emacs
- (25)))
- "Random-access singly-linked lists" single
- ((:url . "http://elpa.gnu.org/packages/myers.html")
- (:keywords "list" "containers"))])
- (nadvice .
- [(0 3)
- nil "Forward compatibility for Emacs-24.4's nadvice" single
- ((:url . "http://elpa.gnu.org/packages/nadvice.html")
- (:keywords))])
- (nameless .
- [(1 0 2)
- ((emacs
- (24 4)))
- "Hide package namespace in your emacs-lisp code" single
- ((:url . "https://github.com/Malabarba/nameless")
- (:keywords "convenience" "lisp"))])
- (names .
- [(20151201 0)
- ((emacs
- (24 1))
- (cl-lib
- (0 5))
- (nadvice
- (0 3)))
- "Namespaces for emacs-lisp. Avoid name clobbering without hiding symbols." tar
- ((:keywords "extensions" "lisp")
- (:url . "https://github.com/Malabarba/names"))])
- (nhexl-mode .
- [(1 0)
- ((emacs
- (24 4))
- (cl-lib
- (0 5)))
- "Minor mode to edit files via hex-dump format" single
- ((:url . "http://elpa.gnu.org/packages/nhexl-mode.html")
- (:keywords "data"))])
- (nlinum .
- [(1 8 1)
- nil "Show line numbers in the margin" single
- ((:url . "http://elpa.gnu.org/packages/nlinum.html")
- (:keywords "convenience"))])
- (notes-mode .
- [(1 30)
- nil "Indexing system for on-line note-taking" tar
- ((:url . "http://elpa.gnu.org/packages/notes-mode.html"))])
- (ntlm .
- [(2 1 0)
- nil "NTLM (NT LanManager) authentication support" single
- ((:url . "http://elpa.gnu.org/packages/ntlm.html")
- (:keywords "ntlm" "sasl" "comm"))])
- (num3-mode .
- [(1 3)
- nil "highlight groups of digits in long numbers" single
- ((:url . "http://elpa.gnu.org/packages/num3-mode.html")
- (:keywords "faces" "minor-mode"))])
- (oauth2 .
- [(0 11)
- nil "OAuth 2.0 Authorization Protocol" single
- ((:url . "http://elpa.gnu.org/packages/oauth2.html")
- (:keywords "comm"))])
- (omn-mode .
- [(1 2)
- nil "Support for OWL Manchester Notation" single
- ((:url . "http://elpa.gnu.org/packages/omn-mode.html")
- (:keywords))])
- (on-screen .
- [(1 3 2)
- ((cl-lib
- (0)))
- "guide your eyes while scrolling" single
- ((:url . "https://github.com/michael-heerdegen/on-screen.el")
- (:keywords "convenience"))])
- (org .
- [(9 1 14)
- nil "Outline-based notes management and organizer" tar
- ((:keywords "outlines" "hypermedia" "calendar" "wp")
- (:url . "http://elpa.gnu.org/packages/org.html"))])
- (org-edna .
- [(1 0 -2 8)
- ((emacs
- (25 1))
- (seq
- (2 19))
- (org
- (9 0 5)))
- "Extensible Dependencies 'N' Actions" tar
- ((:keywords "convenience" "text" "org")
- (:url . "https://savannah.nongnu.org/projects/org-edna-el/"))])
- (orgalist .
- [(1 9)
- ((emacs
- (24 4)))
- "Manage Org-like lists in non-Org buffers" single
- ((:url . "http://elpa.gnu.org/packages/orgalist.html")
- (:keywords "convenience"))])
- (osc .
- [(0 1)
- nil "Open Sound Control protocol library" single
- ((:url . "http://elpa.gnu.org/packages/osc.html")
- (:keywords "comm" "processes" "multimedia"))])
- (other-frame-window .
- [(1 0 6)
- ((emacs
- (24 4)))
- "Minor mode to enable global prefix keys for other frame/window buffer placement" single
- ((:url . "http://elpa.gnu.org/packages/other-frame-window.html")
- (:keywords "frame" "window"))])
- (pabbrev .
- [(4 2 1)
- nil "Predictive abbreviation expansion" single
- ((:url . "http://elpa.gnu.org/packages/pabbrev.html")
- (:keywords))])
- (paced .
- [(1 1 3)
- ((emacs
- (25 1))
- (async
- (1 9 1)))
- "Predictive Abbreviation Completion and Expansion using Dictionaries" tar
- ((:keywords "convenience" "completion")
- (:url . "https://savannah.nongnu.org/projects/paced-el/"))])
- (parsec .
- [(0 1 3)
- ((emacs
- (24))
- (cl-lib
- (0 5)))
- "Parser combinator library" tar
- ((:keywords "extensions")
- (:url . "https://github.com/cute-jumper/parsec.el"))])
- (pinentry .
- [(0 1)
- nil "GnuPG Pinentry server implementation" single
- ((:url . "http://elpa.gnu.org/packages/pinentry.html")
- (:keywords "gnupg"))])
- (poker .
- [(0 2)
- nil "Texas hold 'em poker" single
- ((:url . "http://elpa.gnu.org/packages/poker.html")
- (:keywords "games"))])
- (posframe .
- [(0 3 0)
- ((emacs
- (26)))
- "Pop a posframe (just a frame) at point" single
- ((:url . "https://github.com/tumashu/posframe")
- (:keywords "tooltip"))])
- (psgml .
- [(1 3 4)
- nil "SGML-editing mode with parsing support" tar
- ((:keywords "languages")
- (:url . "http://elpa.gnu.org/packages/psgml.html"))])
- (python .
- [(0 26 1)
- ((emacs
- (24 1))
- (cl-lib
- (1 0)))
- "Python's flying circus support for Emacs" single
- ((:url . "https://github.com/fgallina/python.el")
- (:keywords "languages"))])
- (quarter-plane .
- [(0 1)
- nil "Minor mode for quarter-plane style editing" single
- ((:url . "http://elpa.gnu.org/packages/quarter-plane.html")
- (:keywords "convenience" "wp"))])
- (queue .
- [(0 2)
- nil "Queue data structure" single
- ((:url . "http://www.dr-qubit.org/emacs.php")
- (:keywords "extensions" "data structures" "queue"))])
- (rainbow-mode .
- [(1 0 1)
- nil "Colorize color names in buffers" single
- ((:url . "http://elpa.gnu.org/packages/rainbow-mode.html")
- (:keywords "faces"))])
- (rbit .
- [(0 1)
- nil "Red-black persistent interval trees" single
- ((:url . "http://elpa.gnu.org/packages/rbit.html")
- (:keywords "data structures" "binary tree" "intervals"))])
- (rcirc-color .
- [(0 4 1)
- ((emacs
- (24 4)))
- "color nicks" single
- ((:url . "http://elpa.gnu.org/packages/rcirc-color.html")
- (:keywords "comm"))])
- (rcirc-menu .
- [(1 1)
- nil "A menu of all your rcirc connections" single
- ((:url . "http://elpa.gnu.org/packages/rcirc-menu.html")
- (:keywords "comm"))])
- (realgud .
- [(1 4 5)
- ((load-relative
- (1 2))
- (loc-changes
- (1 2))
- (test-simple
- (1 2 0))
- (cl-lib
- (0 5))
- (emacs
- (24)))
- "A modular front-end for interacting with external debuggers" tar
- ((:keywords "gdb" "python" "perl" "go" "bash" "nodejs" "zsh" "bashdb" "zshdb" "remake" "make" "trepan" "perldb" "pdb")
- (:url . "http://github.com/realgud/realgud/"))])
- (register-list .
- [(0 1)
- nil "Interactively list/edit registers" single
- ((:url . "http://elpa.gnu.org/packages/register-list.html")
- (:keywords "register"))])
- (rich-minority .
- [(1 0 1)
- ((cl-lib
- (0 5)))
- "Clean-up and Beautify the list of minor-modes." single
- ((:url . "https://github.com/Malabarba/rich-minority")
- (:keywords "mode-line" "faces"))])
- (rnc-mode .
- [(0 2)
- nil "Emacs mode to edit Relax-NG Compact files" single
- ((:url . "http://elpa.gnu.org/packages/rnc-mode.html")
- (:keywords "xml" "relaxng"))])
- (rudel .
- [(0 3 1)
- ((emacs
- (24))
- (cl-lib
- (0 5))
- (cl-generic
- (0 3))
- (cl-print
- (1 0)))
- "A collaborative editing framework for Emacs" tar
- ((:keywords "rudel" "collaboration")
- (:url . "http://rudel.sourceforge.net/"))])
- (scroll-restore .
- [(1 0)
- nil "restore original position after scrolling" single
- ((:url . "http://elpa.gnu.org/packages/scroll-restore.html")
- (:keywords "scrolling"))])
- (sed-mode .
- [(1 0)
- nil "Major mode to edit sed scripts" single
- ((:url . "http://elpa.gnu.org/packages/sed-mode.html")
- (:keywords))])
- (seq .
- [(2 20)
- nil "Sequence manipulation functions" tar
- ((:keywords "sequences")
- (:url . "http://elpa.gnu.org/packages/seq.html"))])
- (shen-mode .
- [(0 1)
- nil "A major mode for editing shen source code" tar
- ((:keywords "languages" "shen")
- (:url . "http://elpa.gnu.org/packages/shen-mode.html"))])
- (sisu-mode .
- [(7 1 8)
- nil "Major mode for SiSU markup text" single
- ((:url . "http://www.sisudoc.org/")
- (:keywords "text" "syntax" "processes" "tools"))])
- (smart-yank .
- [(0 1 1)
- ((emacs
- (24)))
- "A different approach of yank pointer handling" single
- ((:url . "http://elpa.gnu.org/packages/smart-yank.html")
- (:keywords "convenience"))])
- (sml-mode .
- [(6 9)
- ((emacs
- (24))
- (cl-lib
- (0 5)))
- "Major mode for editing (Standard) ML" single
- ((:url . "http://elpa.gnu.org/packages/sml-mode.html")
- (:keywords "sml"))])
- (soap-client .
- [(3 1 5)
- ((cl-lib
- (0 6 1)))
- "Access SOAP web services" tar
- ((:keywords "soap" "web-services" "comm" "hypermedia")
- (:url . "http://elpa.gnu.org/packages/soap-client.html"))])
- (sokoban .
- [(1 4 6)
- ((emacs
- (23 1)))
- "Implementation of Sokoban for Emacs." tar
- ((:keywords "games")
- (:url . "http://elpa.gnu.org/packages/sokoban.html"))])
- (sotlisp .
- [(1 6 2)
- ((emacs
- (24 1)))
- "Write lisp at the speed of thought." single
- ((:url . "https://github.com/Malabarba/speed-of-thought-lisp")
- (:keywords "convenience" "lisp"))])
- (spinner .
- [(1 7 3)
- nil "Add spinners and progress-bars to the mode-line for ongoing operations" single
- ((:url . "https://github.com/Malabarba/spinner.el")
- (:keywords "processes" "mode-line"))])
- (sql-indent .
- [(1 3)
- ((cl-lib
- (0 5)))
- "Support for indenting code in SQL files." tar
- ((:keywords "languages" "sql")
- (:url . "http://elpa.gnu.org/packages/sql-indent.html"))])
- (ssh-deploy .
- [(2 0)
- ((emacs
- (24)))
- "Deployment via TRAMP, global or per directory." tar
- ((:keywords "tools" "convenience")
- (:url . "https://github.com/cjohansson/emacs-ssh-deploy"))])
- (stream .
- [(2 2 4)
- ((emacs
- (25)))
- "Implementation of streams" tar
- ((:keywords "stream" "laziness" "sequences")
- (:url . "http://elpa.gnu.org/packages/stream.html"))])
- (svg .
- [(0 1)
- ((emacs
- (25)))
- "svg image creation functions" single
- ((:url . "http://elpa.gnu.org/packages/svg.html")
- (:keywords "image"))])
- (svg-clock .
- [(1 0)
- ((svg
- (0 1))
- (emacs
- (25 0)))
- "Analog clock using Scalable Vector Graphics" single
- ((:url . "http://elpa.gnu.org/packages/svg-clock.html")
- (:keywords "demo" "svg" "clock"))])
- (tNFA .
- [(0 1 1)
- ((queue
- (0 1)))
- "Tagged non-deterministic finite-state automata" single
- ((:url . "http://www.dr-qubit.org/emacs.php")
- (:keywords "extensions" "matching" "data structures tnfa" "nfa" "dfa" "finite state automata" "automata" "regexp"))])
- (temp-buffer-browse .
- [(1 5)
- ((emacs
- (24)))
- "temp buffer browse mode" single
- ((:url . "http://elpa.gnu.org/packages/temp-buffer-browse.html")
- (:keywords "convenience"))])
- (test-simple .
- [(1 3 0)
- ((cl-lib
- (0)))
- "Simple Unit Test Framework for Emacs Lisp" single
- ((:url . "http://github.com/rocky/emacs-test-simple")
- (:keywords "unit-test"))])
- (timerfunctions .
- [(1 4 2)
- ((cl-lib
- (0 5)))
- "Enhanced versions of some timer.el functions" single
- ((:url . "http://elpa.gnu.org/packages/timerfunctions.html")
- (:keywords))])
- (tiny .
- [(0 2 1)
- nil "Quickly generate linear ranges in Emacs" tar
- ((:keywords "convenience")
- (:url . "https://github.com/abo-abo/tiny"))])
- (tramp-theme .
- [(0 2)
- ((emacs
- (24 1)))
- "Custom theme for remote buffers" single
- ((:url . "http://elpa.gnu.org/packages/tramp-theme.html")
- (:keywords "convenience" "faces"))])
- (transcribe .
- [(1 5 2)
- nil "Package for audio transcriptions" single
- ((:url . "http://elpa.gnu.org/packages/transcribe.html")
- (:keywords))])
- (trie .
- [(0 4)
- ((tNFA
- (0 1 1))
- (heap
- (0 3)))
- "Trie data structure" single
- ((:url . "http://www.dr-qubit.org/emacs.php")
- (:keywords "extensions" "matching" "data structures trie" "ternary search tree" "tree" "completion" "regexp"))])
- (undo-tree .
- [(0 6 5)
- nil "Treat undo history as a tree" single
- ((:url . "http://www.dr-qubit.org/emacs.php")
- (:keywords "convenience" "files" "undo" "redo" "history" "tree"))])
- (uni-confusables .
- [(0 1)
- nil "Unicode confusables table" tar
- ((:url . "http://elpa.gnu.org/packages/uni-confusables.html"))])
- (url-http-ntlm .
- [(2 0 4)
- ((cl-lib
- (0 5))
- (ntlm
- (2 1 0)))
- "NTLM authentication for the url library" single
- ((:url . "http://elpa.gnu.org/packages/url-http-ntlm.html")
- (:keywords "comm" "data" "processes" "hypermedia"))])
- (validate .
- [(1 0 4)
- ((emacs
- (24 1))
- (cl-lib
- (0 5))
- (seq
- (2 16)))
- "Schema validation for Emacs-lisp" single
- ((:url . "http://elpa.gnu.org/packages/validate.html")
- (:keywords "lisp"))])
- (vdiff .
- [(0 2 3)
- ((emacs
- (24 4))
- (hydra
- (0 13 0)))
- "A diff tool similar to vimdiff" single
- ((:url . "https://github.com/justbur/emacs-vdiff")
- (:keywords "diff"))])
- (vigenere .
- [(1 0)
- ((emacs
- (25 1)))
- "Run a vigenere cipher on a block of text ;" single
- ((:url . "https://elpa.gnu.org/packages/vigenere.html")
- (:keywords "data" "vigenere" "cipher"))])
- (visual-fill .
- [(0 1)
- nil "Auto-refill paragraphs without modifying the buffer" single
- ((:url . "http://elpa.gnu.org/packages/visual-fill.html")
- (:keywords))])
- (vlf .
- [(1 7 1)
- nil "View Large Files" tar
- ((:keywords "large files" "utilities")
- (:url . "https://github.com/m00natic/vlfi"))])
- (w3 .
- [(4 0 49)
- nil "Fully customizable, largely undocumented web browser for Emacs" tar
- ((:keywords "faces" "help" "comm" "news" "mail" "processes" "mouse" "hypermedia")
- (:url . "http://elpa.gnu.org/packages/w3.html"))])
- (wcheck-mode .
- [(2016 1 30)
- nil "General interface for text checkers" single
- ((:url . "https://github.com/tlikonen/wcheck-mode")
- (:keywords "text" "spell" "check" "languages" "ispell"))])
- (wconf .
- [(0 2 1)
- ((emacs
- (24 4)))
- "Minimal window layout manager" single
- ((:url . "https://github.com/ilohmar/wconf")
- (:keywords "windows" "frames" "layout"))])
- (web-server .
- [(0 1 1)
- ((emacs
- (24 3)))
- "Emacs Web Server" tar
- ((:keywords "http" "server" "network")
- (:url . "https://github.com/eschulte/emacs-web-server"))])
- (websocket .
- [(1 8)
- ((cl-lib
- (0 5)))
- "Emacs WebSocket client and server" tar
- ((:keywords "communication" "websocket" "server")
- (:url . "http://elpa.gnu.org/packages/websocket.html"))])
- (which-key .
- [(3 3 0)
- ((emacs
- (24 4)))
- "Display available keybindings in popup" tar
- ((:url . "https://github.com/justbur/emacs-which-key"))])
- (windresize .
- [(0 1)
- nil "Resize windows interactively" single
- ((:url . "http://elpa.gnu.org/packages/windresize.html")
- (:keywords "window"))])
- (wisi .
- [(1 1 6)
- ((cl-lib
- (0 4))
- (emacs
- (24 3)))
- "Utilities for implementing an indentation/navigation engine using a generalized LALR parser" tar
- ((:keywords "parser" "indentation" "navigation")
- (:url . "http://www.nongnu.org/ada-mode/wisi/wisi.html"))])
- (wpuzzle .
- [(1 1)
- nil "find as many word in a given time" single
- ((:url . "http://elpa.gnu.org/packages/wpuzzle.html")
- (:keywords))])
- (xclip .
- [(1 5)
- nil "Copy&paste GUI clipboard from text terminal" single
- ((:url . "http://elpa.gnu.org/packages/xclip.html")
- (:keywords "convenience" "tools"))])
- (xelb .
- [(0 16)
- ((emacs
- (24 4))
- (cl-generic
- (0 2)))
- "X protocol Emacs Lisp Binding" tar
- ((:keywords "unix")
- (:url . "https://github.com/ch11ng/xelb"))])
- (xpm .
- [(1 0 4)
- nil "edit XPM images" tar
- ((:keywords "multimedia" "xpm")
- (:url . "http://www.gnuvola.org/software/xpm/"))])
- (yasnippet .
- [(0 13 0)
- ((cl-lib
- (0 5)))
- "Yet another snippet extension for Emacs." tar
- ((:keywords "convenience" "emulation")
- (:url . "http://github.com/joaotavora/yasnippet"))])
- (yasnippet-classic-snippets .
- [(1 0 2)
- ((yasnippet
- (0 9 1)))
- "\"Classic\" yasnippet snippets" tar
- ((:keywords "snippets")
- (:url . "http://elpa.gnu.org/packages/yasnippet-classic-snippets.html"))])
- (zones .
- [(2018 11 20)
- nil "Zones of text - like multiple regions" single
- ((:url . "https://elpa.gnu.org/packages/zones.html")
- (:keywords "narrow" "restriction" "widen" "region" "zone"))])
- (ztree .
- [(1 0 5)
- ((cl-lib
- (0)))
- "Text mode directory tree" tar
- ((:keywords "files" "tools")
- (:url . "https://github.com/fourier/ztree"))]))
diff --git a/elpa/archives/melpa/archive-contents b/elpa/archives/melpa/archive-contents
deleted file mode 100644
index 7c54285..0000000
--- a/elpa/archives/melpa/archive-contents
+++ /dev/null
@@ -1,2 +0,0 @@
-
-(1 (zzz-to-char . [(20180101 619) ((emacs (24 4)) (cl-lib (0 5)) (avy (0 3 0))) "Fancy version of `zap-to-char' command" single ((:commit . "db8d9e660ad18a15159779efe34d7a98ef0df535") (:keywords "convenience") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/zzz-to-char"))]) (zygospore . [(20140703 852) nil "reversible C-x 1 (delete-other-windows)" single ((:commit . "1af5ee663f5a7aa08d96a77cacff834dcdf55ea8") (:authors ("Louis Kottmann" . "louis.kottmann@gmail.com")) (:maintainer "Louis Kottmann" . "louis.kottmann@gmail.com") (:url . "https://github.com/louiskottmann/zygospore.el"))]) (zweilight-theme . [(20170113 605) nil "A dark color theme for Emacs." single ((:commit . "7f45ab9e23164d65538edb2beb9692ecdc24c31e") (:authors ("Philip Arvidsson" . "contact@philiparvidsson.com")) (:maintainer "Philip Arvidsson" . "contact@philiparvidsson.com") (:url . "http://github.com/philiparvidsson/zweilight-emacs"))]) (ztree . [(20180512 1850) ((cl-lib (0))) "Text mode directory tree" tar ((:commit . "c54425a094353ec40a8179f9eab3596f76c6cf94") (:keywords "files" "tools") (:authors ("Alexey Veretennikov" . "alexey.veretennikov@gmail.com")) (:maintainer "Alexey Veretennikov" . "alexey.veretennikov@gmail.com") (:url . "https://github.com/fourier/ztree"))]) (zprint-mode . [(20181111 1945) ((emacs (24 3))) "reformat Clojure(Script) code using zprint" single ((:commit . "e1a7b7fe48e36e5cdf1269ab394d3cf779fdab58") (:keywords "tools") (:authors ("Paulus Esterhazy" . "pesterhazy@gmail.com")) (:maintainer "Paulus Esterhazy" . "pesterhazy@gmail.com") (:url . "https://github.com/pesterhazy/zprint-mode.el"))]) (zpresent . [(20180605 438) ((emacs (25 1)) (org-parser (0 4)) (dash (2 12 0)) (request (0 3 0))) "Simple presentation mode based on org files." single ((:keywords "comm") (:url . "https://bitbucket.org/zck/zpresent.el"))]) (zpl-mode . [(20180906 1059) ((emacs (24 3))) "ZIMPL major mode" single ((:commit . "35e7e23c6baf31b5e65dd7405c8ab9b13c70637e") (:url . "https://github.com/ax487/zpl-mode.git"))]) (zoutline . [(20180314 1759) nil "Simple outline library." single ((:commit . "b3ee0f0e0b916838c2d2c249beba74ffdb8d5699") (:keywords "outline") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/zoutline"))]) (zotxt . [(20180518 147) ((request-deferred (0 2 0))) "Tools to integrate emacs with Zotero via the zotxt plugin." tar ((:commit . "23a4a9f74a658222027d53a9a83cd4bcc583ca8b"))]) (zotelo . [(20160602 949) ((cl-lib (0 5))) "Manage Zotero collections from emacs" single ((:commit . "d9dc089b9adfcc70a63f2a84269a12eb7cb4c748") (:keywords "zotero" "emacs" "reftex" "bibtex" "mozrepl" "bibliography manager") (:authors ("Spinu Vitalie")) (:maintainer "Spinu Vitalie") (:url . "https://github.com/vitoshka/zotelo"))]) (zossima . [(20121124 35) ((inf-ruby (2 2 3))) "Ruby from Emacs" tar ((:commit . "991676635c374d2a12714dcf48c1ce2d6f97a375") (:keywords "ruby" "convenience") (:authors ("Phil Hagelberg")) (:maintainer "Phil Hagelberg") (:url . "https://github.com/technomancy/zossima"))]) (zop-to-char . [(20160212 1554) ((cl-lib (0 5))) "A replacement of zap-to-char." single ((:commit . "00152aa666354b27e56e20565f186b363afa0dce") (:authors ("Thierry Volpiatto" . "thierry.volpiatto@gmail.com")) (:maintainer "Thierry Volpiatto" . "thierry.volpiatto@gmail.com") (:url . "https://github.com/thierryvolpiatto/zop-to-char"))]) (zoom-window . [(20170302 827) ((emacs (24 3))) "Zoom window like tmux" single ((:commit . "cd6ecc103fc30b171bda7daf1f44a550854d0dbf") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-zoom-window"))]) (zoom . [(20180310 1221) ((emacs (24 4))) "Fixed and automatic balanced window layout" single ((:commit . "2cdb15c9e753222c8600120edecfb46c2fbfae5d") (:keywords "frames") (:authors ("Andrea Cardaci" . "cyrus.and@gmail.com")) (:maintainer "Andrea Cardaci" . "cyrus.and@gmail.com") (:url . "https://github.com/cyrus-and/zoom"))]) (zone-sl . [(20160201 1210) ((emacs (24 3))) "Zone out with steam locomotives." single ((:commit . "7ec22e3661c6348382f9fc39a9d0063dbd2352ff") (:keywords "games") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/zone-sl"))]) (zone-select . [(20160118 1419) ((emacs (24 3)) (dash (2 8))) "Select zone programs." single ((:commit . "bf30da12f1625fe6563448fccf3c506acad10af7") (:keywords "games") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/zone-select"))]) (zone-rainbow . [(20160120 1334) ((emacs (24 3))) "Zone out with rainbow." single ((:commit . "2ba4f1a87c69c4712124ebf12c1f3ea171e1af36") (:keywords "games") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/zone-rainbow"))]) (zone-nyan . [(20170818 1644) ((esxml (0 3 1))) "Zone out with nyan cat" single ((:commit . "4b1f8d95f130946718d52806489ffe2762aebfdc") (:keywords "zone") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/zone-nyan"))]) (zombie-trellys-mode . [(20150304 1448) ((emacs (24)) (cl-lib (0 5)) (haskell-mode (1 5))) "A minor mode for interaction with Zombie Trellys" single ((:commit . "7f0c45fdda3a44c3b6d1762d116abb1421b8fba2") (:keywords "languages") (:authors ("David Raymond Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Raymond Christiansen" . "david@davidchristiansen.dk"))]) (zombie . [(20141222 1616) nil "major mode for editing ZOMBIE programs" single ((:commit . "ff8cd1b4cdbb4b0b9b8fd1ec8f6fb93eba249345") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (znc . [(20160627 2032) ((cl-lib (0 2))) "ZNC + ERC" single ((:commit . "ce468d185e4a949c45fdd7586313144bc69d4fe5") (:authors ("Yaroslav Shirokov")) (:maintainer "Yaroslav Shirokov") (:url . "https://github.com/sshirokov/ZNC.el"))]) (zmq . [(20181115 2300) ((cl-lib (0 5)) (emacs (26))) "ZMQ bindings in elisp" tar ((:commit . "f6960700f9458f9fe6cbc530da97bd1037d4d882") (:keywords "comm") (:authors ("Nathaniel Nicandro" . "nathanielnicandro@gmail.com")) (:maintainer "Nathaniel Nicandro" . "nathanielnicandro@gmail.com") (:url . "https://github.com/dzop/emacs-zmq"))]) (zlc . [(20151011 157) nil "Provides zsh like completion system to Emacs" single ((:commit . "4dd2ba267ecdeac845a7cbb3147294ee7daa25f4") (:keywords "matching" "convenience") (:authors ("mooz" . "stillpedant@gmail.com")) (:maintainer "mooz" . "stillpedant@gmail.com"))]) (zig-mode . [(20181114 1346) ((emacs (24))) "A major mode for the Zig programming language" single ((:commit . "cb485ff8d5d9fab0ac88c7685072fb75df921398") (:keywords "zig" "languages") (:authors ("Andrea Orru <andreaorru1991@gmail.com>, Andrew Kelley" . "superjoe30@gmail.com")) (:maintainer "Andrea Orru <andreaorru1991@gmail.com>, Andrew Kelley" . "superjoe30@gmail.com") (:url . "https://github.com/zig-lang/zig-mode"))]) (zerodark-theme . [(20180911 1451) ((all-the-icons (2 0 0))) "A dark, medium contrast theme for Emacs" single ((:commit . "09a6bc6d8bcc7c2bb89e497dc8f6d3a29f6fe4c2") (:keywords "themes") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr") (:url . "https://github.com/NicolasPetton/zerodark-theme"))]) (zephir-mode . [(20170918 425) ((cl-lib (0 5)) (pkg-info (0 4)) (emacs (24 3))) "Major mode for editing Zephir code" single ((:commit . "c2c6b7451667e68e29c353616f54ef9195c3fffd") (:keywords "languages") (:authors ("Serghei Iakovlev" . "serghei@phalconphp.com")) (:maintainer "Serghei Iakovlev") (:url . "https://github.com/sergeyklay/zephir-mode"))]) (zeno-theme . [(20181027 118) ((emacs (24))) "A dark theme using different shades of blue" single ((:commit . "0914c4a5b1b9499e7f1ca5699b1c3ea2f4be3f1a") (:keywords "faces" "theme" "dark" "blue") (:authors ("Bharat Joshi" . "jbharat@outlook.com")) (:maintainer "Bharat Joshi" . "jbharat@outlook.com") (:url . "https://github.com/jbharat/zeno-theme"))]) (zenity-color-picker . [(20160302 1154) ((emacs (24 4))) "Insert and adjust colors using Zenity" single ((:commit . "4f4f46676a461ebc881487fb70c8c181e323db5e") (:keywords "colors") (:authors ("Samuel Laurén" . "samuel.lauren@iki.fi")) (:maintainer "Samuel Laurén" . "samuel.lauren@iki.fi") (:url . "https://bitbucket.org/Soft/zenity-color-picker.el"))]) (zencoding-mode . [(20140213 822) nil "Unfold CSS-selector-like expressions to markup" single ((:commit . "58e42af182c98cb9941d27cd042d227fbf4e146c") (:keywords "convenience") (:authors ("Chris Done" . "chrisdone@gmail.com")) (:maintainer "Chris Done" . "chrisdone@gmail.com") (:url . "https://github.com/rooney/zencoding"))]) (zenburn-theme . [(20181014 1555) nil "A low contrast color theme for Emacs." single ((:commit . "d71a0f0556c1db785738ab9b0c989df342705a81") (:authors ("Bozhidar Batsov" . "bozhidar@batsov.com")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "http://github.com/bbatsov/zenburn-emacs"))]) (zen-and-art-theme . [(20120622 1437) nil "zen and art color theme for GNU Emacs 24" single ((:commit . "a7226cbce0bca2501d69a620cb2aeabfc396c232") (:authors ("Nick Parker")) (:maintainer "Nick Parker"))]) (zel . [(20171014 832) ((emacs (25)) (frecency (0 1))) "Access frecent files easily" single ((:commit . "9dae2d212224d1deae1f62561fa8e4d689fd09f2") (:keywords "convenience" "files" "matching") (:authors ("Sebastian Christ" . "rudolfo.christ@gmail.com")) (:maintainer "Sebastian Christ" . "rudolfo.christ@gmail.com") (:url . "https://github.com/rudolfochrist/zel"))]) (zeal-at-point . [(20180131 2354) nil "Search the word at point with Zeal" single ((:commit . "0fc3263f44e95acd3e9d91057677621ce4d297ee") (:authors ("Jinzhu" . "wosmvp@gmail.com")) (:maintainer "Jinzhu" . "wosmvp@gmail.com") (:url . "https://github.com/jinzhu/zeal-at-point"))]) (z3-mode . [(20151120 2255) ((flycheck (0 23)) (emacs (24))) "A z3/SMTLIBv2 interactive development environment" single ((:commit . "163dc01d59e9880b4dc188d4e1ad84d6c0c852e1") (:keywords "z3" "yices" "mathsat" "smt" "beaver") (:authors ("Zephyr Pellerin" . "zephyr.pellerin@gmail.com")) (:maintainer "Zephyr Pellerin" . "zephyr.pellerin@gmail.com") (:url . "https://github.com/zv/z3-mode"))]) (youdao-dictionary . [(20180714 414) ((popup (0 5 0)) (pos-tip (0 4 6)) (chinese-word-at-point (0 2)) (names (0 5)) (emacs (24))) "Youdao Dictionary interface for Emacs" single ((:commit . "9496ea3ba8aa999db3dbde88d6aa37f3579d8dea") (:keywords "convenience" "chinese" "dictionary") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/youdao-dictionary.el"))]) (yoshi-theme . [(20170330 700) nil "Theme named after my cat" single ((:commit . "eab4fb67e8fec47c25c4c1393ac1211f043dbd44") (:keywords "faces") (:authors ("Tom Willemse" . "tom@ryuslash.org")) (:maintainer "Tom Willemse" . "tom@ryuslash.org") (:url . "http://projects.ryuslash.org/yoshi-theme/"))]) (yoficator . [(20180815 4) nil "Interactively yoficate Russian texts" tar ((:commit . "92d96a342a1ce29500891b71372c515c158ea0d9") (:authors ("Eugene Minkovskii" . "emin@mccme.ru") ("Alexander Krotov" . "ilabdsf@gmail.com")) (:maintainer "Eugene Minkovskii" . "emin@mccme.ru") (:url . "https://gitlab.com/link2xt/yoficator"))]) (yesql-ghosts . [(20150220 1237) ((s (1 9 0)) (dash (2 10 0)) (cider (0 8 0))) "Display ghostly yesql defqueries inline" single ((:commit . "8f1faf0137b85a5072d13e1240a463d9a35ce2bb") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (ydk-mode . [(20170113 921) nil "Language support for Yu-Gi-Oh! deck files" single ((:commit . "f3f125b29408e0b0a34fec27dcb7c02c5dbfd04e") (:keywords "faces" "games" "languages" "ydk" "yugioh" "yu-gi-oh") (:authors ("Jackson Ray Hamilton" . "jackson@jacksonrayhamilton.com")) (:maintainer "Jackson Ray Hamilton" . "jackson@jacksonrayhamilton.com") (:url . "https://github.com/jacksonrayhamilton/ydk-mode"))]) (ycmd . [(20180724 1256) ((emacs (24 4)) (dash (2 13 0)) (s (1 11 0)) (deferred (0 5 1)) (cl-lib (0 6 1)) (let-alist (1 0 5)) (request (0 3 0)) (request-deferred (0 3 0)) (pkg-info (0 6))) "emacs bindings to the ycmd completion server" tar ((:commit . "ef87d020d3314efbac2e8925c115d0ac5c128c2a") (:url . "https://github.com/abingham/emacs-ycmd"))]) (ycm . [(20150822 1836) nil "Emacs client for the YouCompleteMe auto-completion server." single ((:commit . "4da8a14abcd0f4fa3235042ade2e12b5068c0601") (:keywords "c" "abbrev") (:authors ("Ajay Gopinathan" . "ajay@gopinathan.net")) (:maintainer "Ajay Gopinathan" . "ajay@gopinathan.net"))]) (yaxception . [(20150105 1452) nil "Provide framework about exception like Java for Elisp" single ((:commit . "4e94cf3e0b9b5631b0e90eb4b7de597ee7185875") (:keywords "exception" "error" "signal") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/yaxception"))]) (yatex . [(20181107 3) nil "Yet Another tex-mode for emacs //野鳥//" tar nil]) (yatemplate . [(20180617 952) ((yasnippet (0 8 1)) (emacs (24 3))) "File templates with yasnippet" tar ((:commit . "4f4fca9f04f7088c98aa195cf33635a35a6055cb") (:keywords "files" "convenience") (:authors ("Wieland Hoffmann" . "themineo+yatemplate@gmail.com")) (:maintainer "Wieland Hoffmann" . "themineo+yatemplate@gmail.com") (:url . "https://github.com/mineo/yatemplate"))]) (yasnippet-snippets . [(20181107 2203) ((yasnippet (0 8 0))) "Collection of yasnippet snippets" tar ((:commit . "7d4e06dbd6e517d27e4f1407b6f5180f29048588") (:keywords "snippets") (:authors ("Andrea Crotti" . "andrea.crotti.0@gmail.com")) (:maintainer "Andrea Crotti" . "andrea.crotti.0@gmail.com"))]) (yasnippet . [(20181015 1212) ((cl-lib (0 5))) "Yet another snippet extension for Emacs." single ((:commit . "1d96da2e08664c31ff7f6f7441da1f4fa5680b1f") (:keywords "convenience" "emulation") (:maintainer "Noam Postavsky" . "npostavs@gmail.com") (:url . "http://github.com/joaotavora/yasnippet"))]) (yascroll . [(20170315 1906) ((cl-lib (0 3))) "Yet Another Scroll Bar Mode" single ((:commit . "fe4494e5f4faf2832e665c7de0fed99cdbb39478") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))]) (yarn-mode . [(20170709 1937) ((emacs (24 3))) "Major mode for yarn.lock files." single ((:commit . "998b408d6be05fd1c3a9fd8db6ffaab3bf86d06b") (:keywords "convenience") (:authors ("Nicolás Salas V." . "nikosalas@gmail.com")) (:maintainer "Nicolás Salas V." . "nikosalas@gmail.com") (:url . "https://github.com/anachronic/yarn-mode"))]) (yari . [(20151128 739) nil "Yet Another RI interface for Emacs" single ((:commit . "a2cb9656ee5dfe1fc2ee3854f3079a1c8e85dbe9") (:keywords "tools") (:authors ("Aleksei Gusev" . "aleksei.gusev@gmail.com")) (:maintainer "Aleksei Gusev" . "aleksei.gusev@gmail.com"))]) (yard-mode . [(20170817 1237) nil "Minor mode for Ruby YARD comments" single ((:commit . "ba74a47463b0320ae152bd42a7dd7aeecd7b5748") (:authors ("Kyle Hargraves")) (:maintainer "Kyle Hargraves") (:url . "https://github.com/pd/yard-mode.el"))]) (yara-mode . [(20170720 651) ((emacs (24))) "Major mode for editing yara rule file" single ((:commit . "af5c05b34a29fc1bd73a6d21c82cc76320b33e5c") (:keywords "yara") (:authors (nil . "binjo.cn@gmail.com")) (:maintainer nil . "binjo.cn@gmail.com") (:url . "not distributed yet"))]) (yapfify . [(20180830 733) nil "(automatically) format python buffers using YAPF." single ((:commit . "b858225e1debe6734ee718e5c3c209152652a8b3") (:authors ("Joris Engbers" . "info@jorisengbers.nl")) (:maintainer "Joris Engbers" . "info@jorisengbers.nl") (:url . "https://github.com/JorisE/yapfify"))]) (yankpad . [(20181115 2209) ((emacs (24))) "Paste snippets from an org-mode file" single ((:commit . "61c2f74b2858f383e95f89f9002f510146f53c4e") (:keywords "abbrev" "convenience") (:authors ("Erik Sjöstrand")) (:maintainer "Erik Sjöstrand") (:url . "http://github.com/Kungsgeten/yankpad"))]) (yang-mode . [(20180306 1207) nil "major mode for editing YANG files" single ((:commit . "340aec635e359609b22f7e94df15af1af2b070f6") (:authors ("Martin Bjorklund" . "mbj4668@gmail.com")) (:maintainer "Martin Bjorklund" . "mbj4668@gmail.com"))]) (yandex-weather . [(20160311 2037) nil "Fetch Yandex Weather forecasts." tar ((:commit . "6f823fd9e04ff9efb2aa65f333079e9f7e6e5b28"))]) (yaml-tomato . [(20151123 753) ((s (1 9))) "copy or show the yaml path currently under cursor." single ((:commit . "f9df1c9bdfcec629b03031b2d2032f9dc533cb14") (:keywords "yaml") (:authors ("qrczeno")) (:maintainer "qrczeno"))]) (yaml-mode . [(20180409 607) ((emacs (24 1))) "Major mode for editing YAML files" single ((:commit . "40067a10ac1360f0b9533f0bbbb2eea128e2574d") (:keywords "data" "yaml") (:authors ("Yoshiki Kurihara" . "clouder@gmail.com") ("Marshall T. Vandegrift" . "llasram@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com"))]) (yaml-imenu . [(20181001 627) ((emacs (24 4)) (yaml-mode (0))) "Enhancement of the imenu support in yaml-mode." tar ((:commit . "78a383098807014d9e7f2941196d8271677158cd") (:keywords "outlining" "convenience" "imenu") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/yaml-imenu.el"))]) (yalinum . [(20130217 1043) nil "yet another display line numbers." single ((:commit . "d3e0cbe3f4f5ca311e3298e684901d6fea3ad973") (:keywords "convenience" "tools") (:authors ("tm8st" . "tm8st@hotmail.co.jp")) (:maintainer "tm8st" . "tm8st@hotmail.co.jp"))]) (yahtzee . [(20171022 1412) ((emacs (24 3))) "The yahtzee game" single ((:commit . "2f365e48cb37446f01e88c9ec35ed0059ea98bda") (:keywords "games") (:authors ("Dimitar Dimitrov" . "mail.mitko@gmail.com")) (:maintainer "Dimitar Dimitrov" . "mail.mitko@gmail.com") (:url . "https://github.com/drdv/yahtzee"))]) (yahoo-weather . [(20181026 320) ((emacs (24))) "Displays weather information in mode-line" single ((:commit . "1d2db14daa1706e03dfe4379397eb89234a56400") (:keywords "weather" "mode-line") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/yahoo-weather-mode"))]) (yagist . [(20160418 508) ((cl-lib (0 3))) "Yet Another Emacs integration for gist.github.com" single ((:commit . "dcdbd84f348414815d02f3da8a6ee0ac271632d4") (:keywords "tools") (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/yagist.el"))]) (yafolding . [(20170305 317) nil "Yet another folding extension for Emacs" single ((:commit . "57c015ddd7c3454571c80825bc5391d7a10fa1d7") (:keywords "folding") (:authors ("Zeno Zeng" . "zenoofzeng@gmail.com")) (:maintainer "Zeno Zeng" . "zenoofzeng@gmail.com"))]) (yabin . [(20140206 351) nil "Yet Another Bignum package (A thin wrapper of calc.el)." single ((:commit . "db8c404507560ef9147fcce2b94cd706fbfa03b5") (:keywords "data") (:authors ("Daisuke Kobayashi" . "d5884jp@gmail.com")) (:maintainer "Daisuke Kobayashi" . "d5884jp@gmail.com"))]) (xwidgete . [(20171118 2116) ((emacs (25))) "enhances usability of current xwidget browser" single ((:commit . "e4e8410fe32176df85b46234717824519443fb04") (:keywords "xwidgete" "tools") (:authors ("Tu, Do Hoang" . "tuhdo1710@gmail.com")) (:maintainer "Tu, Do Hoang") (:url . "https://github.com/tuhdo/xwidgete"))]) (xtest . [(20141214 1706) ((cl-lib (0 5))) "Simple Testing with Emacs & ERT" single ((:commit . "2c2bdf32667506dd9ddf6eb311832add616bdf1c") (:keywords "testing" "ert") (:authors ("Mustafa Shameem")) (:maintainer "Mustafa Shameem") (:url . "https://github.com/promethial/xtest"))]) (xterm-keybinder . [(20160523 56) ((emacs (24 3)) (cl-lib (0 5)) (let-alist (1 0 1))) "Let you extra keybinds in xterm/urxvt" tar ((:commit . "b29c4f700b0fa0c9f627f6725b36462b8fab06d6") (:keywords "convenient") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>"))]) (xterm-color . [(20180202 2318) ((cl-lib (0 5))) "ANSI & XTERM 256 color support" single ((:commit . "42374a98f1039e105cad9f16ce585dffc96a3f1c") (:keywords "faces") (:authors (nil . "xristos@sdf.lonestar.org")) (:maintainer nil . "xristos@sdf.lonestar.org") (:url . "https://github.com/atomontage/xterm-color"))]) (xresources-theme . [(20160331 1402) nil "Use your .Xresources as your emacs theme" single ((:commit . "feb0552d31cb54210eabbc1abe32c8ea62841b6f") (:keywords "xresources" "theme") (:authors ("Marten Lienen" . "marten.lienen@gmail.com")) (:maintainer "Marten Lienen" . "marten.lienen@gmail.com"))]) (xref-js2 . [(20170530 826) ((emacs (25)) (js2-mode (20150909))) "Jump to references/definitions using ag & js2-mode's AST" single ((:commit . "d5f93605405989529c2f66b542def6c32429b927") (:keywords "javascript" "convenience" "tools") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr") (:url . "https://github.com/NicolasPetton/xref-js2"))]) (xquery-tool . [(20170605 826) nil "A simple interface to saxonb's xquery." single ((:commit . "0d1e2960c48701b83be5255d56324f65a6ee182e") (:keywords "xml" "xquery" "emacs") (:authors ("Patrick McAllister" . "pma@rdorte.org")) (:maintainer "Patrick McAllister" . "pma@rdorte.org") (:url . "https://github.com/paddymcall/xquery-tool.el"))]) (xquery-mode . [(20170214 1119) ((cl-lib (0 5))) "A simple mode for editing xquery programs" single ((:commit . "1b655ccf83d02a7bd473d2cf02359ed60bdf7369") (:url . "https://github.com/xquery-mode/xquery-mode"))]) (xo . [(20160403 646) nil "XO linter integration with compilation mode" single ((:commit . "72fcd867cfa332fdb82f732925cf8977e690af78") (:keywords "processes") (:authors ("J.A" . "jer.github@gmail.com")) (:maintainer "J.A" . "jer.github@gmail.com"))]) (xmlunicode . [(20160319 1612) nil "Unicode support for XML" tar ((:commit . "f5d185da46414c0509ebd0aa0fab416becf94612") (:keywords "utf-8" "unicode" "xml" "characters") (:authors ("Norman Walsh" . "ndw@nwalsh.com")) (:maintainer "Norman Walsh" . "ndw@nwalsh.com"))]) (xmlgen . [(20170411 1317) nil "A DSL for generating XML." single ((:commit . "dba66681f0c5e621a9e70e8afb34903c9ffe93c4") (:authors ("Philip Jackson" . "phil@shellarchive.co.uk")) (:maintainer "Philip Jackson" . "phil@shellarchive.co.uk"))]) (xml-rpc . [(20181002 1353) nil "An elisp implementation of clientside XML-RPC" single ((:commit . "8f624f8b964e9145acb504e4457c9510e87dd93c") (:keywords "xml" "rpc" "network") (:authors ("Mark A. Hershberger" . "mah@everybody.org")) (:maintainer "Mark A. Hershberger" . "mah@everybody.org") (:url . "http://github.com/hexmode/xml-rpc-el"))]) (xml-quotes . [(20151230 2249) nil "read quotations from an XML document" tar ((:commit . "26db170e80b9295861227cdf970721b12539ed44") (:keywords "xml" "quotations") (:authors ("Norman Walsh" . "ndw@nwalsh.com")) (:maintainer "Norman Walsh" . "ndw@nwalsh.com") (:url . "https://github.com/ndw/xml-quotes"))]) (xml+ . [(20170727 2351) ((emacs (24 4)) (dash (2 12 0))) "Utilities for xml and html trees" single ((:commit . "232fa863c08fc159b21dd58c39ea45dce3334895") (:keywords "xml" "html") (:authors ("Ben Dean" . "bendean837@gmail.com")) (:maintainer "Ben Dean" . "bendean837@gmail.com") (:url . "https://github.com/bddean/xml-plus"))]) (xkcd . [(20160419 1130) ((json (1 3))) "View xkcd from Emacs" single ((:commit . "66e928706fd660cfdab204c98a347b49c4267bdf") (:keywords "xkcd" "webcomic") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/vibhavp/emacs-xkcd"))]) (xcscope . [(20180426 712) nil "cscope interface for (X)Emacs" single ((:commit . "57bff67460c587acf60f513de622b4c7ab312081") (:keywords "languages" "c") (:authors ("Darryl Okahata" . "darrylo@sonic.net") ("Dima Kogan" . "dima@secretsauce.net")) (:maintainer "Dima Kogan" . "dima@secretsauce.net") (:url . "https://github.com/dkogan/xcscope.el"))]) (xcode-project . [(20181025 1244) ((emacs (25))) "A package for reading Xcode project files." tar ((:commit . "0bf9a4230fab7830350c750c39beda99ef74d72f") (:keywords "languages" "tools") (:authors ("John Buckley" . "john@olivetoast.com")) (:maintainer "John Buckley" . "john@olivetoast.com") (:url . "https://github.com/nhojb/xcode-project.git"))]) (xcode-mode . [(20160907 1208) ((emacs (24 4)) (s (1 10 0)) (dash (2 11 0)) (multiple-cursors (1 0 0))) "A minor mode for emacs to perform Xcode like actions." single ((:commit . "2ae4f512d6c601ea39d5ab785c2b5288eac24b59") (:keywords "conveniences") (:authors ("Nickolas Lanasa" . "nick@nytekproductions.com")) (:maintainer "Nickolas Lanasa" . "nick@nytekproductions.com"))]) (xbm-life . [(20160103 1017) nil "A XBM version of Conway's Game of Life" single ((:commit . "dd6a98ac9ea81b681e68f6318fed47158e5d469e") (:keywords "games") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/xbm-life"))]) (xahk-mode . [(20170821 1107) ((emacs (24 1))) "Major mode for editing AutoHotkey scripts." single ((:commit . "02012b20603c00e3b2ef32159a690ed1e05d12c3") (:keywords "languages") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://xahlee.info/mswin/emacs_autohotkey_mode.html"))]) (xah-replace-pairs . [(20180508 249) ((emacs (24 1))) "emacs lisp functions for multi-pair find/replace." single ((:commit . "4d845cfbce32d45befd7c454e3476c3ce40d2b43") (:keywords "lisp" "tools" "find replace") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/elisp_replace_string_region.html"))]) (xah-reformat-code . [(20170821 1111) nil "commands to reformat source code." single ((:commit . "7fec8b28e46b8cc2813fac5149e3bbb56c0aa6b1") (:keywords "convenience") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/emacs_reformat_lines.html"))]) (xah-math-input . [(20180906 1712) ((emacs (24 1))) "a minor mode for inputting math and Unicode symbols." single ((:commit . "d0120a451daea474abeab7f87cc64d8ddc903ab4") (:keywords "abbrev" "convenience" "unicode" "math" "latex") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/xmsi-math-symbols-input.html"))]) (xah-lookup . [(20180815 1250) ((emacs (24 1))) "look up word on internet." single ((:commit . "e3132ff21c3d0160e5bd5b7222c50dc9840727d4") (:keywords "help" "docs" "convenience") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/xah-lookup.html"))]) (xah-get-thing . [(20170821 1053) ((emacs (24 1))) "get thing or selection at point." single ((:commit . "e3ef069ea9fea3a092689d45c94c6211b51d0ea4") (:keywords "extensions" "lisp" "tools") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/elisp_get-selection-or-unit.html"))]) (xah-fly-keys . [(20181031 1817) ((emacs (24 1))) "ergonomic modal keybinding minor mode." single ((:commit . "9f122c3d680f66416c12a87db7db7a0844505120") (:keywords "convenience" "emulations" "vim" "ergoemacs") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/misc/ergoemacs_vi_mode.html"))]) (xah-find . [(20181101 1535) ((emacs (24 1))) "find replace in pure emacs lisp. Purpose similar to grep/sed." single ((:commit . "6c336c82a4887a4f5aaaa12695902aee5bb1fa30") (:keywords "convenience" "extensions" "files" "tools" "unix") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/elisp-xah-find-text.html"))]) (xah-elisp-mode . [(20181028 1444) ((emacs (24 3))) "Major mode for editing emacs lisp." single ((:commit . "675560e9ac09122e425b9544ad25793c9844dc21") (:keywords "lisp" "languages") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/xah-elisp-mode.html"))]) (xah-css-mode . [(20180629 807) ((emacs (24 3))) "Major mode for editing CSS code." single ((:commit . "9293a1a21cb7c2a6fb4ae9af0e581f30d2e45016") (:keywords "languages" "convenience" "css" "color") (:authors ("Xah Lee ( http://xahlee.info/ )")) (:maintainer "Xah Lee ( http://xahlee.info/ )") (:url . "http://ergoemacs.org/emacs/xah-css-mode.html"))]) (x86-lookup . [(20180528 1635) ((emacs (24 3)) (cl-lib (0 3))) "jump to x86 instruction documentation" single ((:commit . "609b2ba70dc5a246ac9b4b5f89eb5ef4331519bf") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/x86-lookup"))]) (x509-mode . [(20180921 803) ((emacs (24 1)) (cl-lib (0 5))) "View certificates, CRLs and keys using OpenSSL." tar ((:commit . "9eb24c8721dcad9888b70213d06d770bc2386db7") (:authors ("Fredrik Axelsson" . "f.axelsson@gmai.com") ("Package-Requires: ((emacs \"24.1\") (cl-lib \"0.5\"))")) (:maintainer "Fredrik Axelsson" . "f.axelsson@gmai.com"))]) (x-path-walker . [(20160922 1835) ((helm-core (1 9 2))) "Navigation feature for JSON/XML/HTML based on path (imenu like)" tar ((:commit . "3b01dbd7a039c6c84fdf8c8ee53ba72090ee950a") (:keywords "convenience") (:authors (nil . "<lompik@ArchOrion>")) (:maintainer nil . "<lompik@ArchOrion>"))]) (www-synonyms . [(20170128 2251) ((request (0 2 0)) (cl-lib (0 5))) "insert synonym for a word" single ((:commit . "7e37ea35064ff31c9945f0198a653647d408c936") (:keywords "lisp") (:authors ("Bernhard Specht" . "bernhard@specht.net")) (:maintainer "Bernhard Specht" . "bernhard@specht.net"))]) (wwtime . [(20151122 1610) nil "Insert a time of day with appropriate world-wide localization" single ((:commit . "d04d8fa814b5d3644efaeb28f25520ada69acbbd") (:keywords "time") (:authors ("Norman Walsh" . "ndw@nwalsh.com")) (:maintainer "Norman Walsh" . "ndw@nwalsh.com"))]) (wucuo . [(20181106 2257) ((emacs (24 4))) "Spell check code containing camel case words" single ((:commit . "4e988c101fe82f2e8c7b3710d15982fe28b8d32d") (:keywords "convenience") (:authors ("Chen Bin <chenbin DOT sh AT gmail DOT com>")) (:maintainer "Chen Bin <chenbin DOT sh AT gmail DOT com>") (:url . "http://github.com/redguardtoo/wucuo"))]) (wttrin . [(20170614 1206) ((emacs (24 4)) (xterm-color (1 0))) "Emacs frontend for weather web service wttr.in" single ((:commit . "df5427ce2a5ad4dab652dbb1c4a1834d7ddc2abc") (:keywords "comm" "weather" "wttrin") (:authors ("Carl X. Su" . "bcbcarl@gmail.com") ("ono hiroko (kuanyui)" . "azazabc123@gmail.com")) (:maintainer "Carl X. Su" . "bcbcarl@gmail.com") (:url . "https://github.com/bcbcarl/emacs-wttrin"))]) (wsd-mode . [(20180807 1130) nil "Emacs major-mode for www.websequencediagrams.com" tar ((:commit . "0583df8efb742c90dc56df00f9714e13512cf6d9") (:keywords "wsd" "diagrams" "design" "process" "modelling" "uml") (:authors ("Jostein Kjønigsen" . "jostein@gmail.com")) (:maintainer "Jostein Kjønigsen" . "jostein@gmail.com") (:url . "https://github.com/josteink/wsd-mode"))]) (ws-butler . [(20170111 2334) nil "Unobtrusively remove trailing whitespace." single ((:commit . "52321b99be69aa1b661da7743c4421a30d8b6bcb") (:authors ("Le Wang")) (:maintainer "Le Wang") (:url . "https://github.com/lewang/ws-butler"))]) (writeroom-mode . [(20170623 1027) ((emacs (24 1)) (visual-fill-column (1 9))) "Minor mode for distraction-free writing" tar ((:commit . "be822ebe916fe30e8de228289757df1a30009a57") (:keywords "text") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))]) (writegood-mode . [(20180525 1343) nil "Polish up poor writing on the fly" single ((:commit . "b71757ec337e226909fb0422f0224e31acc71733") (:keywords "writing" "weasel-words" "grammar") (:authors ("Benjamin Beckwith")) (:maintainer "Benjamin Beckwith") (:url . "http://github.com/bnbeckwith/writegood-mode"))]) (wrap-region . [(20140117 720) ((dash (1 0 3))) "Wrap text with punctation or tag" single ((:commit . "fbae9b0f106187af19823f1a6260b5c68b7252e6") (:keywords "speed" "convenience") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/wrap-region"))]) (wotd . [(20170328 1948) ((emacs (24 4)) (org (8 2 10))) "Fetch word-of-the-day from multiple online sources" single ((:commit . "d2937a3d91e014f8028a1f33d21c18cc0b065a64") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (world-time-mode . [(20140627 807) nil "show whole days of world-time diffs" single ((:commit . "ce7a3b45c87eb24cfe61eee453175d64f741d7cc") (:keywords "tools" "calendar") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk"))]) (workgroups2 . [(20141102 1922) ((cl-lib (0 4)) (dash (2 8 0)) (anaphora (1 0 0)) (f (0 17))) "New workspaces for Emacs" single ((:commit . "928d509157ec8a4a2e343b6115dff034c3243a7a") (:keywords "session" "management" "window-configuration" "persistence") (:authors ("Sergey Pashinin <sergey at pashinin dot com>")) (:maintainer "Sergey Pashinin <sergey at pashinin dot com>") (:url . "https://github.com/pashinin/workgroups2"))]) (workgroups . [(20110726 1641) nil "workgroups for windows (for Emacs)" single ((:commit . "9572b3492ee09054dc329f64ed846c962b395e39") (:keywords "session" "management" "window-configuration" "persistence") (:authors ("tlh" . "thunkout@gmail.com")) (:maintainer "tlh" . "thunkout@gmail.com"))]) (worf . [(20180620 1711) ((swiper (0 7 0)) (ace-link (0 1 0)) (hydra (0 13 0)) (zoutline (0 1 0))) "A warrior does not press so many keys! (in org-mode)" tar ((:commit . "b48e0c9bbd617ed8a8962174d804ce7a6da1c10a") (:keywords "lisp") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/worf"))]) (wordsmith-mode . [(20171025 1430) nil "Syntax analysis and NLP text-processing in Emacs (OSX-only)" single ((:commit . "589a97412138145bea70e0450eeddeb7f138d538") (:authors ("istib" . "istib@thebati.net")) (:maintainer "istib" . "istib@thebati.net"))]) (wordnut . [(20180313 443) ((emacs (24 4))) "Major mode interface to WordNet" tar ((:commit . "feac531404041855312c1a046bde7ea18c674915"))]) (wordgen . [(20170803 1820) ((emacs (24)) (cl-lib (0 5))) "Random word generator" single ((:commit . "aacad928ae99a953e034a831dfd0ebdf7d52ac1d") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/wordgen.el"))]) (wonderland . [(20130913 119) ((dash (2 0 0)) (dash-functional (1 0 0)) (multi (2 0 0)) (emacs (24))) "declarative configuration for Emacsen" single ((:commit . "89d274ad694b0e748efdac23ccd60b7d8b73d7c6") (:keywords "configuration" "profile" "wonderland") (:authors ("Christina Whyte" . "kurisu.whyte@gmail.com")) (:maintainer "Christina Whyte" . "kurisu.whyte@gmail.com") (:url . "http://github.com/kurisuwhyte/emacs-wonderland"))]) (wolfram-mode . [(20180307 13) ((emacs (24 3))) "Mathematica editing and inferior mode." single ((:commit . "be680190cac6ccf579dbce107deaae495928d1b3") (:keywords "languages" "processes" "tools") (:authors ("Daichi Mochihashi <daichi at cslab.kecl.ntt.co.jp>")) (:maintainer "Daichi Mochihashi <daichi at cslab.kecl.ntt.co.jp>") (:url . "https://github.com/kawabata/wolfram-mode/"))]) (wolfram . [(20170123 756) nil "Wolfram Alpha Integration" single ((:commit . "6b5dceae3fd6cdb4d7562510deeafa02c93c010b") (:keywords "math") (:authors ("Hans Sjunnesson" . "hans.sjunnesson@gmail.com")) (:maintainer "Hans Sjunnesson" . "hans.sjunnesson@gmail.com"))]) (wn-mode . [(20151110 552) ((emacs (24))) "numeric window switching shortcuts" single ((:commit . "f05c3151523e529af5a0a3fa8c948b61fb369f6e") (:keywords "buffers" "windows" "switching-windows") (:authors ("Anonymous")) (:maintainer "Luís Oliveira" . "luismbo@gmail.com") (:url . "https://github.com/luismbo/wn-mode"))]) (with-simulated-input . [(20170821 617) ((emacs (24 4)) (seq (2 0)) (s (0))) "A macro to simulate user input non-interactively" single ((:commit . "af9a38ce28a741e6d8742750bef5d7b5afa13796") (:keywords "lisp" "tools" "extensions") (:authors ("Ryan C. Thompson")) (:maintainer "Ryan C. Thompson"))]) (with-namespace . [(20130407 1822) ((dash (1 1 0)) (loop (1 1))) "interoperable elisp namespaces" single ((:commit . "8ac52da3a09cf46087720e30cf730d00f140cde6") (:keywords "namespaces") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (with-editor . [(20181113 1845) ((emacs (24 4)) (async (1 9))) "Use the Emacsclient as $EDITOR" tar ((:commit . "9dd9f176d96abc60365369de6d08c26c414ef1f3") (:keywords "tools") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/with-editor"))]) (wispjs-mode . [(20170720 1919) ((clojure-mode (0))) "Major mode for Wisp code." single ((:commit . "60f9f5fd9d1556e2d008939f67eb1b1d0f325fa8") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/krisajenkins/wispjs-mode"))]) (wisp-mode . [(20180520 758) nil "Tools for wisp: the Whitespace-to-Lisp preprocessor" tar ((:keywords "languages" "lisp") (:authors ("Arne Babenhauserheide" . "arne_bab@web.de")) (:maintainer "Arne Babenhauserheide" . "arne_bab@web.de"))]) (winum . [(20181119 1705) ((cl-lib (0 5)) (dash (2 13 0))) "Navigate windows and frames using numbers." single ((:commit . "efcb14fd306afbc738666e6b2e5a8a1bb5904392") (:keywords "convenience" "frames" "windows" "multi-screen") (:authors ("Thomas de Beauchêne" . "thomas.de.beauchene@gmail.com")) (:maintainer "Thomas de Beauchêne" . "thomas.de.beauchene@gmail.com") (:url . "http://github.com/deb0ch/winum.el"))]) (winring . [(20180530 18) nil "Window configuration rings" single ((:commit . "f2d072bd446b73e93b127523f19ea82b99b9267f") (:keywords "frames" "tools") (:authors ("1997-2018 Barry A. Warsaw")) (:maintainer "1997-2018 Barry A. Warsaw") (:url . "https://gitlab.com/warsaw/winring"))]) (winpoint . [(20131023 1713) nil "Remember buffer positions per-window, not per buffer" single ((:commit . "e6050093c076308184566fa1d1012423d6934773") (:keywords "convenience") (:authors ("Jorgen Schaefer" . "forcer@forcix.cx")) (:maintainer "Jorgen Schaefer" . "forcer@forcix.cx") (:url . "https://github.com/jorgenschaefer/winpoint"))]) (winnow . [(20170903 1206) ((emacs (24))) "winnow ag/grep results by matching/excluding lines" single ((:commit . "18cb6b94338f3b7b4f2cd0331dad22f82dd9e0d3") (:keywords "matching") (:authors ("Charles L.G. Comstock" . "dgtized@gmail.com")) (:maintainer "Charles L.G. Comstock" . "dgtized@gmail.com") (:url . "https://github.com/dgtized/winnow.el"))]) (windwow . [(20170816 148) ((dash (2 11 0)) (cl-lib (0 6 1)) (emacs (24))) "simple workspace management" single ((:commit . "77bad26f651744b68d31b389389147014d250f23") (:keywords "frames") (:authors ("Viju Mathew" . "viju.jm@gmail.com")) (:maintainer "Viju Mathew" . "viju.jm@gmail.com") (:url . "github.com/vijumathew/windwow"))]) (windsize . [(20181029 2257) nil "Simple, intuitive window resizing" single ((:commit . "62c2846bbe95b0a73e996c75e4a644d05f57aaaa") (:keywords "window" "resizing" "convenience") (:authors ("Chris Perkins" . "chrisperkins99@gmail.com")) (:maintainer "Chris Perkins" . "chrisperkins99@gmail.com") (:url . "http://github.com/grammati/windsize"))]) (window-purpose . [(20180926 1047) ((emacs (24 4)) (let-alist (1 0 3)) (imenu-list (0 1))) "Purpose-based window management for Emacs" tar ((:commit . "2b640955235d0a50dd1e3128612f41d595bc6dc8") (:keywords "frames") (:authors ("Bar Magal")) (:maintainer "Bar Magal") (:url . "https://github.com/bmag/emacs-purpose"))]) (window-numbering . [(20160809 1810) nil "Numbered window shortcuts" single ((:commit . "10809b3993a97c7b544240bf5d7ce9b1110a1b89") (:keywords "faces" "matching") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/window-numbering-mode/"))]) (window-number . [(20170801 151) nil "Select windows by numbers." single ((:commit . "d41722de646ffeb3f70d26e4a86a5a1ba5c6be87") (:keywords "windows") (:authors ("Johann \"Myrkraverk\" Oskarsson" . "myrkraverk@users.sourceforge.net")) (:maintainer "Nik Nyby" . "niknyby@riseup.net") (:url . "https://github.com/nikolas/window-number"))]) (window-layout . [(20170215 33) nil "window layout manager" single ((:commit . "cd2e4f967b610c2bbef53182829e47250d027056") (:keywords "window" "layout") (:authors ("SAKURAI Masashi <m.sakurai atmark kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai atmark kiwanami.net>"))]) (window-jump . [(20170809 2208) nil "Move left/right/up/down through your windows." single ((:commit . "6bdb51e9a346907d60a9625f6180bddd06be6674") (:keywords "frames" "convenience") (:authors ("Steven Thomas")) (:maintainer "Steven Thomas") (:url . "https://github.com/chumpage/chumpy-windows"))]) (window-end-visible . [(20140508 2041) nil "Find the last visible point in a window" single ((:commit . "525500fb2ebc08f3f9ea493972e5f2e1d79f89ef") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/window-end-visible"))]) (windata . [(20090830 1040) nil "convert window configuration to list" single ((:commit . "a723fc446ceaec23d5f29ecc8245d94c99d91625") (:keywords "convenience" "frames") (:authors (nil . "wenbinye@gmail.com")) (:maintainer nil . "wenbinye@gmail.com"))]) (win-switch . [(20161009 1627) nil "fast, dynamic bindings for window-switching/resizing" single ((:commit . "954eb5e4c5737f0c06368c42a7f1c3dd374d782f") (:keywords "window" "switch" "key bindings" "ergonomic" "efficient") (:authors ("Christopher Genovese" . "genovese@cmu.edu")) (:maintainer "Christopher R. Genovese" . "genovese@cmu.edu") (:url . "http://www.stat.cmu.edu/~genovese/emacs/win-switch/"))]) (wilt . [(20180220 854) ((emacs (24 3)) (dash (2 12 0)) (s (1 10 0))) "An extensions for calculating WILT in a buffer." single ((:commit . "04dbe37fa35d0b24c791421785d2c97a8cbfe2cc") (:authors ("Austin Bingham" . "austin@sixty-north.com")) (:maintainer "Austin Bingham" . "austin@sixty-north.com") (:url . "https://github.com/sixty-north/emacs-wilt"))]) (wiki-summary . [(20181010 1824) ((emacs (24))) "View Wikipedia summaries in Emacs easily." single ((:commit . "fa41ab6e50b3b80e54148af9d4bac18fd0405000") (:keywords "wikipedia" "utility") (:authors ("Danny Gratzer")) (:maintainer "Danny Gratzer") (:url . "https://github.com/jozefg/wiki-summary.el"))]) (wiki-nav . [(20150223 1354) ((button-lock (1 0 2)) (nav-flash (1 0 0))) "Simple file navigation using [[WikiStrings]]" single ((:commit . "f9082feb329432fcf2ac49a95e64bed9fda24d58") (:keywords "mouse" "button" "hypermedia" "navigation") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/button-lock"))]) (widgetjs . [(20160719 1504) ((makey (0 3)) (js2-mode (20140114)) (js2-refactor (0 6 1)) (s (1 9 0))) "Widgetjs mode" single ((:commit . "7b35a8ebea4a96aadca0ec732d4504474812fd3c") (:keywords "help") (:authors ("Nicolas Petton" . "petton.nicolas@gmail.com")) (:maintainer "Nicolas Petton" . "petton.nicolas@gmail.com"))]) (widget-mvc . [(20150102 406) nil "MVC framework for the emacs widgets" single ((:commit . "ff5a85880df7b87f9f480fe3c28438a0712b7b87") (:keywords "lisp" "widget") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>"))]) (wide-column . [(20170925 1613) nil "Calls functions dependant on column position." single ((:commit . "ce9ef4675485a7bea381077866368ef875226b10") (:keywords "minor mode" "cursor colour" "column width") (:authors ("Phillip Lord" . "p.lord@russet.org.uk")) (:maintainer "Phillip Lord" . "p.lord@russet.org.uk"))]) (whole-line-or-region . [(20181116 2249) nil "operate on current line if region undefined" single ((:commit . "6fcbd6e403a8a66813fdf64ddd3f03b904c82a88") (:keywords "convenience" "wp") (:authors ("Joe Casadonte" . "emacs@northbound-train.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (whizzml-mode . [(20180711 1610) ((emacs (24 4))) "Programming mode for editing WhizzML files" tar ((:commit . "f457052dc5426d542ca69185a5a87905f08f1310") (:keywords "languages" "lisp") (:authors ("Jose Antonio Ortega Ruiz" . "jao@bigml.com")) (:maintainer "Jose Antonio Ortega Ruiz" . "jao@bigml.com"))]) (whitespace-cleanup-mode . [(20170506 223) nil "Intelligently call whitespace-cleanup on save" single ((:commit . "6d0a35159ee04ef9f3b1a80c548f545643ddb397") (:keywords "convenience") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/whitespace-cleanup-mode"))]) (white-theme . [(20160917 1743) ((emacs (24))) "Minimalistic light color theme inspired by basic-theme" single ((:commit . "e9e6d5b9d43da6eb15e86f5fbc8b1ba83abe8c78") (:keywords "color" "theme" "minimal" "basic" "simple" "white") (:authors ("Anler Hernandez Peral" . "inbox@anler.me")) (:maintainer "Anler Hernandez Peral" . "inbox@anler.me") (:url . "http://github.com/anler/white-theme.el"))]) (white-sand-theme . [(20151117 1648) ((emacs (24))) "Emacs theme with a light background." single ((:commit . "97621edd69267dd143760d94393db2c2558c9ea4") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler"))]) (whitaker . [(20150814 1122) ((dash (2 10 0))) "Comint interface for Whitaker's Words" single ((:commit . "eaf26ea647b729ca705b73ea70312d5ffdf89448") (:keywords "processes") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))]) (which-key . [(20181114 1432) ((emacs (24 4))) "Display available keybindings in popup" single ((:commit . "43e3e3d7641a8e1c298b37e6a277612bf0898708") (:authors ("Justin Burkett" . "justin@burkett.cc")) (:maintainer "Justin Burkett" . "justin@burkett.cc") (:url . "https://github.com/justbur/emacs-which-key"))]) (what-the-commit . [(20150901 1316) nil "Random commit message generator" single ((:commit . "868c80a1b8614bcbd2225cd0290142c72f2a7956") (:keywords "git" "commit" "message") (:authors ("Dan Barbarito" . "dan@barbarito.me")) (:maintainer "Dan Barbarito" . "dan@barbarito.me") (:url . "http://barbarito.me/"))]) (wgrep-pt . [(20140510 2231) ((wgrep (2 1 5))) "Writable pt buffer and apply the changes to files" single ((:commit . "414be70bd313e482cd9f0b70fd2daad4ee23497c") (:keywords "grep" "edit" "extensions") (:authors ("Masahiro Hayashi <mhayashi1120@gmail.com>, Bailey Ling" . "bling@live.ca")) (:maintainer "Masahiro Hayashi <mhayashi1120@gmail.com>, Bailey Ling" . "bling@live.ca") (:url . "http://github.com/mhayashi1120/Emacs-wgrep/raw/master/wgrep-pt.el"))]) (wgrep-helm . [(20170510 2239) ((wgrep (2 1 1))) "Writable helm-grep-mode buffer and apply the changes to files" single ((:commit . "414be70bd313e482cd9f0b70fd2daad4ee23497c") (:keywords "grep" "edit" "extensions") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "http://github.com/mhayashi1120/Emacs-wgrep/raw/master/wgrep-helm.el"))]) (wgrep-ag . [(20160923 1103) ((wgrep (2 1 5)) (cl-lib (0 5))) "Writable ag buffer and apply the changes to files" single ((:commit . "414be70bd313e482cd9f0b70fd2daad4ee23497c") (:keywords "grep" "edit" "extensions") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "http://github.com/mhayashi1120/Emacs-wgrep/raw/master/wgrep-ag.el"))]) (wgrep-ack . [(20141012 1011) ((wgrep (2 1 1))) "Writable ack-and-a-half buffer and apply the changes to files" single ((:commit . "414be70bd313e482cd9f0b70fd2daad4ee23497c") (:keywords "grep" "edit" "extensions") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "http://github.com/mhayashi1120/Emacs-wgrep/raw/master/wgrep-ack.el"))]) (wgrep . [(20180711 626) nil "Writable grep buffer and apply the changes to files" single ((:commit . "414be70bd313e482cd9f0b70fd2daad4ee23497c") (:keywords "grep" "edit" "extensions") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "http://github.com/mhayashi1120/Emacs-wgrep/raw/master/wgrep.el"))]) (weibo . [(20150307 2242) ((cl-lib (0 5))) "Weibo client for Emacs" tar ((:commit . "a8abb50b7602fe15fe2bc6400ac29780e956b390") (:keywords "weibo") (:authors ("Austin" . "austiny.cn@gmail.com")) (:maintainer "Austin" . "austiny.cn@gmail.com") (:url . "https://github.com/austin-----/weibo.emacs"))]) (weechat-alert . [(20160416 1248) ((weechat (0 3 1)) (cl-lib (0 5)) (alert (1 2))) "Weechat notifier using alerts" single ((:commit . "a8fd557c8f335322f132c1c6c08b6741d6394e2e") (:keywords "irc" "chat" "network" "weechat") (:authors ("Andreas Klein" . "git@kungi.org")) (:maintainer "Andreas Klein" . "git@kungi.org") (:url . "https://github.com/kungi/weechat-alert"))]) (weechat . [(20180513 1010) ((s (1 3 1)) (cl-lib (0 2)) (emacs (24)) (tracking (1 2))) "Chat via WeeChat's relay protocol in Emacs" tar ((:commit . "8cbda2738149b070c09288df550781b6c604beb2"))]) (wedge-ws . [(20140714 2149) nil "Wedge whitespace between columns in text" single ((:commit . "4669115f02d9c6fee067cc5369bb38c0f9db88b2") (:keywords "formatting" "indentation") (:authors ("Anders Eurenius" . "aes@spotify.com")) (:maintainer "Anders Eurenius" . "aes@spotify.com"))]) (websocket . [(20180423 16) ((cl-lib (0 5))) "Emacs WebSocket client and server" single ((:commit . "0d96ba2ff5a25c6cd6c66f417cc9b5f38a4308ba") (:keywords "communication" "websocket" "server") (:authors ("Andrew Hyatt" . "ahyatt@gmail.com")) (:maintainer "Andrew Hyatt" . "ahyatt@gmail.com"))]) (webpaste . [(20180815 1855) ((emacs (24 4)) (request (0 2 0)) (cl-lib (0 5))) "Paste to pastebin-like services" single ((:commit . "e7fed98c30e960911426be054bad183fd1ab6a37") (:keywords "convenience" "comm" "paste") (:authors ("Elis \"etu\" Hirwing")) (:maintainer "Elis \"etu\" Hirwing") (:url . "https://github.com/etu/webpaste.el"))]) (weblogger . [(20110926 1618) ((xml-rpc (1 6 8))) "Weblog maintenance via XML-RPC APIs" single ((:commit . "b3dd4aead9d3a87e6d85e7fef4f4f3bd40d87b53") (:keywords "weblog" "blogger" "cms" "movable" "type" "openweblog" "blog") (:url . "http://launchpad.net/weblogger-el"))]) (webkit-color-picker . [(20180325 736) ((emacs (26 0)) (posframe (0 1 0))) "Insert and adjust colors using Webkit Widgets" tar ((:commit . "765cac80144cad4bc0bf59025ea0199f0486f737") (:keywords "tools") (:authors ("Ozan Sener" . "hi@ozan.email")) (:maintainer "Ozan Sener" . "hi@ozan.email") (:url . "https://github.com/osener/emacs-webkit-color-picker"))]) (web-server . [(20140906 6) ((emacs (24 3))) "Emacs Web Server" tar ((:commit . "469cd3bc117bfb8da0c03a2a2fb185e80c81d068") (:keywords "http" "server" "network") (:authors ("Eric Schulte" . "schulte.eric@gmail.com")) (:maintainer "Eric Schulte" . "schulte.eric@gmail.com") (:url . "https://github.com/eschulte/emacs-web-server"))]) (web-search . [(20181028 525) ((emacs (24 3))) "Open a web search" tar ((:commit . "24f5b49774f4fb60c903c2b65598590d1c6456d9") (:keywords "web" "search") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/web-search.el"))]) (web-narrow-mode . [(20170407 210) ((web-mode (14 0 27))) "quick narrow code block in web-mode" single ((:commit . "73bdcb7d0701abe65dab4fc295d944885e05ae33") (:keywords "web-mode" "react" "narrow" "web") (:authors ("Qquanwei" . "quanwei9958@126.com")) (:maintainer "Johan Andersson" . "quanwei9958@126.com") (:url . "https://github.com/Qquanwei/web-narrow-mode"))]) (web-mode-edit-element . [(20161114 1754) ((emacs (24 4)) (web-mode (14))) "Helper-functions for attribute- and element-handling" tar ((:commit . "8b8ac07aa8c920dafd94c96a51effb0d6c0ed1ce") (:keywords "languages" "convenience") (:authors ("Julian T. Knabenschuh" . "jtkdevelopments@gmail.com")) (:maintainer "Julian T. Knabenschuh" . "jtkdevelopments@gmail.com") (:url . "https://github.com/jtkDvlp/web-mode-edit-element"))]) (web-mode . [(20181104 2004) ((emacs (23 1))) "major mode for editing web templates" single ((:commit . "29ced993bb1a435bd82d3e7395bed13b99e87de4") (:keywords "languages") (:authors ("François-Xavier Bois <fxbois AT Google Mail Service>")) (:maintainer "François-Xavier Bois") (:url . "http://web-mode.org"))]) (web-completion-data . [(20160318 848) nil "Shared completion data for ac-html and company-web" tar ((:commit . "c272c94e8a71b779c29653a532f619acad433a4f") (:keywords "html" "auto-complete" "company") (:authors ("Olexandr Sydorchuk" . "olexandr.syd@gmail.com")) (:maintainer "Olexandr Sydorchuk" . "olexandr.syd@gmail.com") (:url . "https://github.com/osv/web-completion-data"))]) (web-beautify . [(20161115 2247) nil "Format HTML, CSS and JavaScript/JSON" single ((:commit . "e1b45321d8c11b404b12c8e55afe55eaa7c84ee9") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/web-beautify"))]) (web . [(20141231 2001) ((dash (2 9 0)) (s (1 5 0))) "useful HTTP client" single ((:commit . "483188dac4bc6b409b985c9dae45f3324a425efd") (:keywords "lisp" "http" "hypermedia") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "http://github.com/nicferrier/emacs-web"))]) (weather-metno . [(20150901 107) ((emacs (24)) (cl-lib (0 3))) "Weather data from met.no in Emacs" tar ((:commit . "bfc7137095e0ee71aad70ac46f2af677f3c051b6"))]) (wdl-mode . [(20180831 1946) nil "WDL (Workflow Definition Language) major mode" single ((:commit . "cef86e5afc136ae5ad9324cd6e6d6f860b889bcf") (:keywords "languages") (:authors ("Xiaowei Zhan" . "zhanxw@gmail.com")) (:maintainer "Xiaowei Zhan" . "zhanxw@gmail.com") (:url . "http://github.com/zhanxw/wdl-mode"))]) (wcheck-mode . [(20180126 1216) nil "General interface for text checkers" tar ((:commit . "6aa26626ccc6f7f670de092c7d40e44ab8b410f9"))]) (wc-mode . [(20170127 429) nil "Running word count with goals (minor mode)" single ((:commit . "f218f42709a651b34d6c1ddd98856f44648ef707") (:authors ("Benjamin Beckwith")) (:maintainer "Benjamin Beckwith") (:url . "https://github.com/bnbeckwith/wc-mode"))]) (wc-goal-mode . [(20140829 1359) nil "Running word count with goals (minor mode)" single ((:commit . "bf21ab9c5a449bcc20dd207a4915dcec218d2699") (:authors ("Benjamin Beckwith")) (:maintainer "Benjamin Beckwith") (:url . "https://github.com/bnbeckwith/wc-goal-mode"))]) (wavefront-obj-mode . [(20170808 1716) nil "Major mode for Wavefront obj files" single ((:commit . "34027915de6496460d8e68b5991dd24d47d54859") (:authors ("Sasha Kovar" . "sasha-emacs@arcocene.org")) (:maintainer "Sasha Kovar" . "sasha-emacs@arcocene.org") (:url . "http://github.com/abend/wavefront-obj-mode"))]) (watch-buffer . [(20120331 2044) nil "run a shell command when saving a buffer" single ((:commit . "761fd7252e6d7bf5148283c2a7ee935f087d9427") (:keywords "automation" "convenience") (:authors ("Michael Steger" . "mjsteger1@gmail.com")) (:maintainer "Michael Steger" . "mjsteger1@gmail.com") (:url . "https://github.com/mjsteger/watch-buffer"))]) (warm-night-theme . [(20161101 1428) ((emacs (24))) "Emacs 24 theme with a dark background." single ((:commit . "020f084d23409b5035150508ba6e57c2509edd64") (:authors ("martin haesler")) (:maintainer "martin haesler"))]) (wanderlust . [(20181117 717) ((semi (1 14 7))) "Yet Another Message Interface on Emacsen" tar ((:commit . "05318ec3c724d5a0dad449a16b128a601bbce5ff"))]) (wandbox . [(20170603 1231) ((emacs (24)) (request (0 3 0)) (s (1 10 0))) "Wandbox client" tar ((:commit . "e002fe41f2cd9b4ce2b1dc80b83301176e9117f1") (:keywords "tools") (:authors ("KOBAYASHI Shigeru (kosh)" . "shigeru.kb@gmail.com")) (:maintainer "KOBAYASHI Shigeru (kosh)" . "shigeru.kb@gmail.com") (:url . "https://github.com/kosh04/emacs-wandbox"))]) (wand . [(20180815 1031) ((dash (20161121 55)) (s (20160928 636))) "Magic wand for Emacs - Select and execute" tar ((:commit . "5c0d4833a3afc57e4b2398250139729cc9131d16") (:keywords "extensions" "tools") (:authors ("Ha-Duong Nguyen <cmpitgATgmail>")) (:maintainer "Ha-Duong Nguyen <cmpitgATgmail>") (:url . "https://github.com/cmpitg/wand"))]) (walkclj . [(20180718 900) ((emacs (25)) (parseclj (0 1 0)) (treepy (0 1 0))) "Manipulate Clojure parse trees" single ((:commit . "2e54fa813b11d1a87c890cdf117f30165a193024") (:keywords "languages") (:authors ("Arne Brasseur")) (:maintainer "Arne Brasseur") (:url . "https://github.com/plexus/walkclj"))]) (wakib-keys . [(20180818 1829) ((emacs (24 4))) "Minor Mode for Modern Keybindings" single ((:commit . "a858979620bd22801e5ce214dd46d69b19ccd357") (:keywords "convenience" "keybindings" "keys") (:authors ("Abdulla Bubshait")) (:maintainer "Abdulla Bubshait") (:url . "https://github.com/darkstego/wakib-keys/"))]) (wakatime-mode . [(20180920 702) nil "Automatic time tracking extension for WakaTime" single ((:commit . "2531cb58287770883ba534d20b3288955c4d6ef3") (:keywords "calendar" "comm") (:authors ("Gabor Torok" . "gabor@20y.hu")) (:maintainer "Alan Hamlett" . "alan@wakatime.com"))]) (waher-theme . [(20141115 1230) ((emacs (24 1))) "Emacs 24 theme based on waher for st2 by dduckster" single ((:commit . "60d31519fcfd8e797723d47961b255ae2f2e2c0a") (:authors ("Jasonm23" . "jasonm23@gmail.com")) (:maintainer "Jasonm23" . "jasonm23@gmail.com") (:url . "https://github.com/jasonm23/emacs-waher-theme"))]) (waf-mode . [(20170403 1940) nil "Waf integration for Emacs" single ((:commit . "20c75eabd1d54fbce8e0dbef785c9fb68577ee4f") (:authors ("Denys Valchuk" . "dvalchuk@gmail.com")) (:maintainer "Denys Valchuk" . "dvalchuk@gmail.com") (:url . "https://bitbucket.org/dvalchuk/waf-mode"))]) (wacspace . [(20180311 2350) ((dash (1 2 0)) (cl-lib (0 2))) "The WACky WorkSPACE manager for emACS" tar ((:commit . "54d19aab6fd2bc5945b7ffc58104e695064927e2"))]) (w3m . [(20181022 855) nil "an Emacs interface to w3m" tar ((:commit . "f392ad9864d3ec30e8b8151bdbd714f51be21bf3") (:keywords "w3m" "www" "hypermedia"))]) (w32-browser . [(20170101 1954) nil "Run Windows application associated with a file." single ((:commit . "e5c60eafd8f8d3546a0fa295ad5af2414d36b4e6") (:keywords "mouse" "dired" "w32" "explorer") (:authors ("Emacs Wiki, Drew Adams")) (:maintainer nil . "Drew Adams (concat \"drew.adams\" \"@\" \"oracle\" \".com\")") (:url . "http://www.emacswiki.org/w32-browser.el"))]) (vyper-mode . [(20180707 1935) ((emacs (24 3))) "Major mode for the Vyper programming language" single ((:commit . "323dfddfc38f0b11697e9ebaf04d1b53297e54e5") (:keywords "languages") (:authors ("Alex Stokes" . "r.alex.stokes@gmail.com")) (:maintainer "Alex Stokes" . "r.alex.stokes@gmail.com") (:url . "https://github.com/ralexstokes/vyper-mode"))]) (vue-mode . [(20180827 15) ((mmm-mode (0 5 5)) (vue-html-mode (0 2)) (ssass-mode (0 2)) (edit-indirect (0 1 4))) "Major mode for vue component based on mmm-mode" single ((:commit . "33436c53e3f1b683b1069043a10a77dad805df03") (:keywords "languages") (:authors ("codefalling" . "code.falling@gmail.com")) (:maintainer "codefalling" . "code.falling@gmail.com"))]) (vue-html-mode . [(20180428 2035) nil "Major mode for editing Vue.js templates" single ((:commit . "1514939804bad558584feeb6298b38d22eadf64e") (:keywords "languages" "vue" "template") (:authors ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainer "Adam Niederer" . "adam.niederer@gmail.com") (:url . "http://github.com/AdamNiederer/vue-html-mode"))]) (vscode-icon . [(20180922 2150) ((emacs (25 1))) "Utility package to provide Vscode style icons" tar ((:commit . "3ad83ee122d312775a101c975424a2c87c3a80b1") (:keywords "files" "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/vscode-icon-emacs"))]) (volume . [(20150718 2009) nil "tweak your sound card volume from Emacs" single ((:commit . "ecc1550b3c8b501d37e0f0116b54b535d15f90f6") (:authors ("Daniel Brockman" . "daniel@brockman.se")) (:maintainer "Daniel Brockman" . "daniel@brockman.se") (:url . "http://www.brockman.se/software/volume-el/"))]) (volatile-highlights . [(20160612 155) nil "Minor mode for visual feedback on some operations." single ((:commit . "9a20091f0ce7fc0a6b3e641a6a46d5f3ac4d8392") (:keywords "emulations" "convenience" "wp") (:authors ("K-talo Miyazaki <Keitaro dot Miyazaki at gmail dot com>")) (:maintainer "K-talo Miyazaki <Keitaro dot Miyazaki at gmail dot com>") (:url . "http://www.emacswiki.org/emacs/download/volatile-highlights.el"))]) (voca-builder . [(20161101 1645) ((popup (0 5 2))) "Helps you build up your vocabulary" single ((:commit . "51573beec8cd8308477b0faf453aad93e17f57c5") (:keywords "english" "vocabulary") (:authors ("Yi Tang" . "yi.tang.uk@me.com")) (:maintainer "Yi Tang" . "yi.tang.uk@me.com") (:url . "https://github.com/yitang/voca-builder"))]) (vmd-mode . [(20180223 1356) ((emacs (24 3))) "Fast Github-flavored Markdown preview using a vmd subprocess." single ((:commit . "24e38a20951dfad6e3e985c7cc6286c1e271da5f") (:keywords "markdown" "preview" "live" "vmd") (:authors ("Blake Miller" . "blak3mill3r@gmail.com")) (:maintainer "Blake Miller" . "blak3mill3r@gmail.com") (:url . "https://github.com/blak3mill3r/vmd-mode"))]) (vlf . [(20180201 2254) nil "View Large Files" tar ((:commit . "31b292dc85a374fb343789e217015683bfbdf5f1") (:keywords "large files" "utilities") (:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com") (:url . "https://github.com/m00natic/vlfi"))]) (visual-regexp-steroids . [(20170222 253) ((visual-regexp (1 1))) "Extends visual-regexp to support other regexp engines" tar ((:commit . "a6420b25ec0fbba43bf57875827092e1196d8a9e") (:keywords "external" "foreign" "regexp" "replace" "python" "visual" "feedback") (:authors ("Marko Bencun" . "mbencun@gmail.com")) (:maintainer "Marko Bencun" . "mbencun@gmail.com") (:url . "https://github.com/benma/visual-regexp-steroids.el/"))]) (visual-regexp . [(20170301 116) ((cl-lib (0 2))) "A regexp/replace command for Emacs with interactive visual feedback" single ((:commit . "b3096c2d391ff4e28a2a4e8cd82efbf11071ea85") (:keywords "regexp" "replace" "visual" "feedback") (:authors ("Marko Bencun" . "mbencun@gmail.com")) (:maintainer "Marko Bencun" . "mbencun@gmail.com") (:url . "https://github.com/benma/visual-regexp.el/"))]) (visual-fill-column . [(20180919 757) ((emacs (24 3))) "fill-column for visual-line-mode" single ((:commit . "33f68b9d94b5877f21209b68438a3cd95f801dc1") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))]) (visual-ascii-mode . [(20150129 1046) nil "Visualize ascii code (small integer) on buffer." single ((:commit . "99285a099a17472ddd9f1b4f74e9d092dd8c5947") (:keywords "presentation") (:authors ("Dewdrops" . "v_v_4474@126.com")) (:maintainer "Dewdrops" . "v_v_4474@126.com") (:url . "https://github.com/Dewdrops/visual-ascii-mode"))]) (visible-mark . [(20150624 450) nil "Make marks visible." single ((:commit . "a584db9bc88953b23a9648b3e14ade90767207f8") (:keywords "marking" "color" "faces") (:authors ("Ian Kelling" . "ian@iankelling.org")) (:maintainer "Ian Kelling" . "ian@iankelling.org") (:url . "https://gitlab.com/iankelling/visible-mark"))]) (virtualenvwrapper . [(20180212 144) ((dash (1 5 0)) (s (1 6 1))) "a featureful virtualenv tool for Emacs" single ((:commit . "bf13158dde071bdf4901709ed101aba6b8a25f7f") (:keywords "python" "virtualenv" "virtualenvwrapper") (:authors ("James J Porter" . "porterjamesj@gmail.com")) (:maintainer "James J Porter" . "porterjamesj@gmail.com") (:url . "http://github.com/porterjamesj/virtualenvwrapper.el"))]) (virtualenv . [(20140220 2301) nil "Virtualenv for Python" single ((:commit . "276c0f4d6493b402dc4d22ecdf17b2b072e911b3") (:keywords "python" "virtualenv") (:authors ("Aaron Culich" . "aculich@gmail.com")) (:maintainer "Aaron Culich" . "aculich@gmail.com"))]) (vimrc-mode . [(20181116 1919) nil "Major mode for vimrc files" single ((:commit . "13bc150a870d5d4a95f1111e4740e2b22813c30e") (:keywords "languages" "vim") (:url . "https://github.com/mcandre/vimrc-mode"))]) (vimish-fold . [(20181101 1650) ((emacs (24 4)) (cl-lib (0 5)) (f (0 18 0))) "Fold text like in Vim" single ((:commit . "ee647688a53fe91174d5450b61b882d389196f8e") (:keywords "convenience") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/vimish-fold"))]) (vim-region . [(20140329 1624) ((expand-region (20140127))) "Select region as vim" single ((:commit . "7c4a99ce3678fee40c83ab88e8ad075d2a935fdf") (:authors ("ongaeshi" . "ongaeshi0621@gmail.com")) (:maintainer "ongaeshi" . "ongaeshi0621@gmail.com") (:url . "https://github.com/ongaeshi/emacs-vim-region"))]) (vim-empty-lines-mode . [(20150111 426) ((emacs (23))) "Vim-like empty line indicator at end of files." single ((:commit . "d4a5034ca8ea0c962ad6e92c86c0fa2a74d2964b") (:keywords "emulations") (:authors ("Jonne Mickelin" . "jonne@ljhms.com")) (:maintainer "Jonne Mickelin" . "jonne@ljhms.com") (:url . "https://github.com/jmickelin/vim-empty-lines-mode"))]) (viking-mode . [(20160705 2027) nil "kill first, ask later" single ((:commit . "c76aa265d13ad91d6890d242e142d05e31f0340b") (:keywords "kill" "delete") (:authors ("T.v.Dein" . "tlinden@cpan.org")) (:maintainer "T.v.Dein" . "tlinden@cpan.org") (:url . "https://github.com/tlinden/viking-mode"))]) (viewer . [(20170107 202) nil "View-mode extension" single ((:commit . "6c8db025bf4021428f7f2c3ef9d74fb13f5d267a") (:keywords "view" "extensions") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://github.com/rubikitch/viewer/"))]) (vi-tilde-fringe . [(20141028 242) ((emacs (24))) "Displays tildes in the fringe on empty lines a la Vi." single ((:commit . "f1597a8d54535bb1d84b442577b2024e6f910308") (:keywords "emulation") (:authors ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainer "Sylvain Benner" . "sylvain.benner@gmail.com") (:url . "https://github.com/syl20bnr/vi-tilde-fringe"))]) (vhdl-tools . [(20181115 1736) ((ggtags (0 8 12)) (emacs (26 1)) (outshine (2 0)) (helm (2 9 6))) "Utilities for navigating vhdl sources." single ((:commit . "536a265d74c6fb750f35d50950bdccf12f929512") (:keywords "languages" "convenience") (:authors ("Cayetano Santos")) (:maintainer "Cayetano Santos") (:url . "https://github.com/csantosb/vhdl-tools/wiki"))]) (vhdl-capf . [(20160221 1734) nil "Completion at point function (capf) for vhdl-mode." single ((:commit . "290abe217050f33532bc9ccb04f894123402f414") (:keywords "convenience" "usability" "vhdl" "completion") (:authors ("sh-ow" . "sh-ow@users.noreply.github.com")) (:maintainer "sh-ow" . "sh-ow@users.noreply.github.com") (:url . "https://github.com/sh-ow/vhdl-capf"))]) (vertigo . [(20180829 2230) ((dash (2 11 0))) "Jump across lines using the home row." single ((:commit . "6303d17270ea92290a6960890bca515274f1682b") (:keywords "vim" "vertigo") (:authors ("Fox Kiester" . "noct@posteo.net")) (:maintainer "Fox Kiester" . "noct@posteo.net") (:url . "https://github.com/noctuid/vertigo.el"))]) (vertica-snippets . [(20181016 748) ((yasnippet (0 6 1))) "Yasnippets for Vertica" tar ((:commit . "1f80a737ed53f11d985a64c97bb99cfba8fd0b67") (:keywords "convenience" "snippets") (:authors ("Andreas Gerler" . "baron@bundesbrandschatzamt.de")) (:maintainer "Andreas Gerler" . "baron@bundesbrandschatzamt.de") (:url . "https://github.com/baron42bba/vertica-snippets"))]) (vertica . [(20131217 1511) ((sql (3 0))) "Vertica SQL mode extension" single ((:commit . "3c9647b425c5c13c30bf0cba483646af18196588") (:keywords "sql" "vertica") (:authors ("Roman Scherer" . "roman@burningswell.com")) (:maintainer "Roman Scherer" . "roman@burningswell.com"))]) (verify-url . [(20160426 1228) ((cl-lib (0 5))) "find out invalid urls in the buffer or region" single ((:commit . "d6f3623cda8cd526a2d198619b137059cb1ba1ab") (:keywords "convenience" "usability" "url") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/verify-url"))]) (veri-kompass . [(20181110 933) ((emacs (25)) (cl-lib (0 5)) (org (8 2 0))) "verilog codebase navigation facility" single ((:commit . "ca9aa51e456f3762e2ebaaae5a2b70297375a4c8") (:keywords "languages" "extensions" "verilog" "hardware" "rtl") (:maintainer nil . "andrea_corallo@yahoo.it") (:url . "https://gitlab.com/koral/veri-kompass"))]) (vector-utils . [(20140508 2041) nil "Vector-manipulation utility functions" single ((:commit . "c38ca1c6a23b2b51a6ac36c2c64e50e21cbe9d21") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/vector-utils"))]) (vdm-snippets . [(20181118 2043) ((emacs (24)) (yasnippet (0 13 0))) "YASnippets for VDM mode" tar ((:commit . "a8f9eb9addc51bc2022a1fce5ad3210961befcce") (:keywords "languages") (:authors ("Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com")) (:maintainer "Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com") (:url . "https://github.com/peterwvj/vdm-mode"))]) (vdm-mode . [(20181112 2011) ((emacs (25))) "Major mode for the Vienna Development Method" tar ((:commit . "a8f9eb9addc51bc2022a1fce5ad3210961befcce") (:keywords "languages") (:authors ("Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com")) (:maintainer "Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com") (:url . "https://github.com/peterwvj/vdm-mode"))]) (vdirel . [(20181001 1135) ((emacs (24 4)) (org-vcard (0 1 0)) (helm (1 7 0)) (seq (1 11))) "Manipulate vdir (i.e., vCard) repositories" single ((:commit . "dfe5f9478405b8292f85fc911db92e81b627626a") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://github.com/DamienCassou/vdirel"))]) (vdiff-magit . [(20180819 1802) ((emacs (24 4)) (vdiff (0 3)) (magit (2 10 0))) "magit integration for vdiff" single ((:commit . "2589b93a0a789b1d86e607cb84979c6a837eb008") (:keywords "diff") (:authors ("Justin Burkett" . "justin@burkett.cc")) (:maintainer "Justin Burkett" . "justin@burkett.cc") (:url . "https://github.com/justbur/emacs-vdiff-magit"))]) (vdiff . [(20180920 1720) ((emacs (24 4)) (hydra (0 13 0))) "A diff tool similar to vimdiff" single ((:commit . "3bfb5decd7fcef73759b247b29aeae669fb79499") (:keywords "diff") (:authors ("Justin Burkett" . "justin@burkett.cc")) (:maintainer "Justin Burkett" . "justin@burkett.cc") (:url . "https://github.com/justbur/emacs-vdiff"))]) (vcomp . [(20140906 2208) nil "compare version strings" single ((:commit . "092ef48a78e950c0576269d889be6caf9f6e61c5") (:keywords "versions") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/vcomp"))]) (vcl-mode . [(20170119 2051) nil "Syntax highlighting for Varnish Command Language" single ((:commit . "3d86c1352a7370d558d25f4c8f7be744e7d27332") (:authors ("Stig Sandbeck Mathisen" . "ssm@redpill-linpro.com")) (:maintainer "Stig Sandbeck Mathisen" . "ssm@redpill-linpro.com"))]) (vc-osc . [(20161119 1955) nil "non-resident support for osc version-control" single ((:commit . "8c09a0d5f69237285101554261b77d76b546a24b") (:authors ("Adam Spiers (see vc.el for full credits)")) (:maintainer "Adam Spiers" . "aspiers@suse.com"))]) (vc-msg . [(20180605 58) ((emacs (24 3)) (popup (0 5 0))) "Show commit information of current line" tar ((:commit . "ffd8db482cbd9fb63dace0e5ddcc7207a9c99f5e") (:keywords "git" "vc" "svn" "hg" "messenger") (:authors ("Chen Bin <chenbin DOT sh AT gmail DOT com>")) (:maintainer "Chen Bin <chenbin DOT sh AT gmail DOT com>") (:url . "http://github.com/redguardtoo/vc-msg"))]) (vc-hgcmd . [(20181120 1340) ((emacs (25 1))) "VC mercurial backend that uses hg command server" single ((:commit . "895153385e921fb40aa715229fcb91557e0567cf") (:keywords "vc") (:authors ("Andrii Kolomoiets" . "andreyk.mad@gmail.com")) (:maintainer "Andrii Kolomoiets" . "andreyk.mad@gmail.com") (:url . "https://github.com/muffinmad/emacs-vc-hgcmd"))]) (vc-fossil . [(20180215 1635) nil "VC backend for the fossil sofware configuraiton management system" tar ((:commit . "7c5af95181213db38f81f5f9586f3334301a3ea0") (:authors ("Venkat Iyer" . "venkat@comit.com")) (:maintainer "Venkat Iyer" . "venkat@comit.com"))]) (vc-darcs . [(20170905 320) ((emacs (24))) "a VC backend for darcs" single ((:commit . "390fb1ebdda1ffac45b9be02626dde3b6d95ac11") (:keywords "vc") (:authors ("Jorgen Schaefer" . "forcer@forcix.cx") ("Juliusz Chroboczek" . "jch@pps.univ-paris-diderot.fr")) (:maintainer "Libor Čapák" . "capak@inputwish.com"))]) (vc-check-status . [(20170107 1334) nil "Warn you when quitting emacs and leaving repo dirty." tar ((:commit . "37734beb16bfd8633ea328059bf9a47eed826d5c") (:keywords "vc" "convenience") (:authors ("Sylvain Rousseau <thisirs at gmail dot com>")) (:maintainer "Sylvain Rousseau <thisirs at gmail dot com>") (:url . "https://github.com/thisirs/vc-check-status"))]) (vc-auto-commit . [(20170107 1333) nil "Auto-committing feature for your repository" tar ((:commit . "446f664f4ec835532f4f18ba18b5fb731f6030aa") (:keywords "vc" "convenience") (:authors ("Sylvain Rousseau <thisirs at gmail dot com>")) (:maintainer "Sylvain Rousseau <thisirs at gmail dot com>") (:url . "http://github.com/thisirs/vc-auto-commit.git"))]) (vbasense . [(20140221 2353) ((auto-complete (1 4 0)) (log4e (0 2 0)) (yaxception (0 1))) "provide a environment like Visual Basic Editor." tar ((:commit . "8c61a492d7c15218ae1a96e2aebfe6f78bfff6db") (:keywords "vba" "completion") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-vbasense"))]) (vala-snippets . [(20150429 352) ((yasnippet (0 8 0))) "Yasnippets for Vala" tar ((:commit . "671439501060449bd100b9fffd524a86064fbfbb") (:authors ("Daniel Gopar")) (:maintainer "Daniel Gopar") (:url . "https://github.com/gopar/vala-snippets"))]) (vala-mode . [(20150324 2225) nil "Vala mode derived mode" single ((:commit . "fb2871a4492d75d03d72e60474919ab89adb267b") (:keywords "vala" "languages" "oop") (:authors ("2005 Dylan R. E. Moonfire") (" 2008 Étienne BERSAC")) (:maintainer "Étienne BERSAC" . "bersace03@laposte.net"))]) (vagrant-tramp . [(20160427 2332) ((dash (2 12 0))) "Vagrant method for TRAMP" tar ((:commit . "453ba605b28d2964bb4e10074f1e6891ebb4d2d6") (:keywords "vagrant") (:authors ("Doug MacEachern" . "dougm@vmware.com") ("Ryan Prior " . "ryanprior@gmail.com")) (:maintainer "Doug MacEachern" . "dougm@vmware.com") (:url . "https://github.com/dougm/vagrant-tramp"))]) (vagrant . [(20170301 2206) nil "Manage a vagrant box from emacs" single ((:commit . "636ce2f9af32ea199170335a9cf1201b64873440") (:keywords "vagrant" "chef") (:authors ("Robert Crim" . "rob@servermilk.com")) (:maintainer "Robert Crim" . "rob@servermilk.com") (:url . "https://github.com/ottbot/vagrant.el"))]) (v2ex-mode . [(20160720 345) ((cl-lib (0 5)) (request (0 2)) (let-alist (1 0 3))) "Major mode for visit http://v2ex.com/ site." single ((:commit . "b7d19bb594b43ea3824a6f215dd1e5d1d4c0e8ad") (:keywords "v2ex" "v2ex.com") (:authors ("Aborn Jiang" . "aborn.jiang@gmail.com")) (:maintainer "Aborn Jiang" . "aborn.jiang@gmail.com") (:url . "https://github.com/aborn/v2ex-mode"))]) (uuidgen . [(20140918 2301) nil "Provides various UUID generating functions" single ((:commit . "7eb96415484c3854a3f383d1a3e10b87ae674e22") (:keywords "extensions" "lisp" "tools") (:authors ("Kan-Ru Chen" . "koster@debian.org")) (:maintainer "Kan-Ru Chen" . "koster@debian.org"))]) (uuid . [(20120910 851) nil "UUID's for EmacsLisp" single ((:commit . "1519bfeb0e31602b840bc8dd35d7c7e732c159fe") (:keywords "lisp") (:authors ("James Mastros")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk"))]) (utop . [(20181010 2155) ((emacs (24))) "Universal toplevel for OCaml" single ((:commit . "ea38850e606dd18c94e2ccabc28485fec1c8f91f") (:keywords "ocaml" "languages") (:authors ("Jeremie Dimino" . "jeremie@dimino.org")) (:maintainer "Jeremie Dimino" . "jeremie@dimino.org") (:url . "https://github.com/diml/utop"))]) (usql . [(20180305 2323) ((emacs (25 1))) "U-SQL support for sql-mode" single ((:commit . "bfaf428b366a9a185eef84f0d645a98dc918fe3d") (:keywords "languages") (:authors ("Nicholas Barnwell" . "nb@ul.io")) (:maintainer "Nicholas Barnwell" . "nb@ul.io") (:url . "https://github.com/nickbarwell/usql.el"))]) (use-ttf . [(20180609 552) ((emacs (24 4)) (s (1 12 0))) "Use the same font cross OS." single ((:commit . "29dddac84184e0c391dc586c56e94593df4f5a59") (:authors ("Shen, Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Shen, Jen-Chieh" . "jcs090218@gmail.com") (:url . "https://github.com/jcs090218/use-ttf"))]) (use-package-ensure-system-package . [(20180913 1501) ((use-package (2 1)) (system-packages (1 0 4))) "auto install system packages" single ((:commit . "39a8b8812c2c9f6f0b299e6a04e504ef393694ce") (:keywords "convenience" "tools" "extensions") (:authors ("Justin Talbott" . "justin@waymondo.com")) (:maintainer "Justin Talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/use-package-ensure-system-package"))]) (use-package-el-get . [(20180131 505) ((use-package (1 0))) "el-get support for use package" single ((:commit . "cba87c4e9a3a66b7c10962e3aefdf11c83d737bc") (:keywords "dotemacs" "startup" "speed" "config" "package" "tools") (:authors ("Edward Knyshov" . "edvorg@gmail.com")) (:maintainer "Edward Knyshov" . "edvorg@gmail.com") (:url . "https://github.com/edvorg/use-package-el-get"))]) (use-package-chords . [(20181024 2322) ((use-package (2 1)) (bind-key (1 0)) (bind-chord (0 2)) (key-chord (0 6))) "key-chord keyword for use-package" single ((:commit . "39a8b8812c2c9f6f0b299e6a04e504ef393694ce") (:keywords "convenience" "tools" "extensions") (:authors ("Justin Talbott" . "justin@waymondo.com")) (:maintainer "Justin Talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/use-package-chords"))]) (use-package . [(20181119 2350) ((emacs (24 3)) (bind-key (2 4))) "A configuration macro for simplifying your .emacs" tar ((:commit . "39a8b8812c2c9f6f0b299e6a04e504ef393694ce") (:keywords "dotemacs" "startup" "speed" "config" "package") (:authors ("John Wiegley" . "johnw@newartisans.com")) (:maintainer "John Wiegley" . "johnw@newartisans.com") (:url . "https://github.com/jwiegley/use-package"))]) (usage-memo . [(20170926 37) nil "integration of Emacs help system and memo" single ((:commit . "88e15a9942a3e0a6e36e9c3e51e3edb746067b1a") (:keywords "convenience" "languages" "lisp" "help" "tools" "docs") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/usage-memo.el"))]) (urlenc . [(20140116 1456) nil "URL encoding/decoding utility for Emacs." single ((:commit . "835a6dcb783bbe84714bae87a3464aa0b128bfac") (:keywords "url") (:authors ("Taiki SUGAWARA" . "buzz.taiki@gmail.com")) (:maintainer "Taiki SUGAWARA" . "buzz.taiki@gmail.com") (:url . "https://github.com/buzztaiki/urlenc-el"))]) (url-shortener . [(20170805 242) nil "shorten long url and expand tinyurl" single ((:commit . "06db8270213b9e352d6c335b0663059a1353d05e") (:authors ("Yu Yang" . "yy2012cn@NOSPAM.gmail.com")) (:maintainer "Yu Yang" . "yy2012cn@NOSPAM.gmail.com") (:url . "https://github.com/yuyang0/url-shortener"))]) (uptimes . [(20180416 1323) ((cl-lib (0 5)) (emacs (24))) "Track and display emacs session uptimes." single ((:commit . "5e81f8bb419836602819045e7d5a74b76ad3e69c") (:keywords "processes" "uptime") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/uptimes.el"))]) (upbo . [(20180422 822) ((dash (2 12 0)) (emacs (24 4))) "Karma Test Runner Integration" single ((:commit . "c37728e11dedd29d849ba9523465b0cdaccea9d5") (:keywords "javascript" "js" "test" "karma") (:authors ("Sungho Kim(shiren)")) (:maintainer "Sungho Kim(shiren)") (:url . "http://github.com/shiren"))]) (untitled-new-buffer . [(20161212 1508) ((emacs (24 4)) (magic-filetype (0 2 0))) "Open untitled new buffer like other text editors." single ((:commit . "4eabc6937b0e83062ffce9de0d42110224063a6c") (:keywords "files" "convenience") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/untitled-new-buffer.el"))]) (unkillable-scratch . [(20160505 203) nil "Disallow buffers from being killed by regexp -- default is *scratch* buffer" single ((:commit . "676a5a97658830caece18fa65a23e3d113933151") (:keywords "scratch") (:authors ("Eric Crosson" . "esc@ericcrosson.com")) (:maintainer "Eric Crosson" . "esc@ericcrosson.com"))]) (universal-emotions-emoticons . [(20180729 1941) ((emacs (24 4))) "Emoticons For The Six Universal Expressions" single ((:commit . "9cedd09ee65cb9fa71f27b0ab46a8353bdc00902") (:keywords "convenience" "docs" "languages") (:authors ("Grant Rettke" . "gcr@wisdomandwonder.com")) (:maintainer nil . "<gcr@wisdomandwonder.com>") (:url . "https://github.com/grettke/universal-emotions-emoticons"))]) (unison-mode . [(20160513 1501) nil "Syntax highlighting for unison file synchronization program" single ((:commit . "0bd6a65c0d12f87fcf7bdff15fe54444959b93bf") (:keywords "symchronization" "unison") (:authors ("Karl Fogelmark" . "karlfogel@gmail.com")) (:maintainer "Karl Fogelmark" . "karlfogel@gmail.com") (:url . "https://github.com/impaktor/unison-mode"))]) (unison . [(20160704 740) ((emacs (24 1))) "sync with Unison" single ((:commit . "a78a04c0d1398d00f75a1bd4799622a65bcb0f28") (:keywords "sync") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org") (:url . "http://github.com/unhammer/unison.el"))]) (unipoint . [(20140113 2224) nil "a simple way to insert unicode characters by TeX name" single ((:commit . "5da04aebac35a5c9e1d8704f2231808d42f4b36a") (:authors ("Andrew Gwozdziewycz" . "git@apgwoz.com")) (:maintainer "Andrew Gwozdziewycz" . "git@apgwoz.com") (:url . "https://github.com/apgwoz/unipoint"))]) (unify-opening . [(20171122 2012) ((emacs (24 4))) "Unify the mechanism to open files" single ((:commit . "502469ddba6d8d52159f53976265f7d956b6b17c") (:authors ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainer "Damien Cassou" . "damien.cassou@gmail.com") (:url . "https://github.com/DamienCassou/unify-opening"))]) (unidecode . [(20180312 1926) nil "Transliterate Unicode to ASCII" tar ((:commit . "5502ada9287b4012eabb879f12f5b0a9df52c5b7") (:authors ("sindikat <sindikat at mail36 dot net>")) (:maintainer "John Mastro" . "john.b.mastro@gmail.com"))]) (unicode-whitespace . [(20140508 2041) ((ucs-utils (0 7 6)) (list-utils (0 4 2)) (persistent-soft (0 8 8)) (pcache (0 2 3))) "teach whitespace-mode about fancy characters" single ((:commit . "a18c6b38d78b94f2eb1dcc4cb4fa91b6a17efabe") (:keywords "faces" "wp" "interface") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/unicode-whitespace"))]) (unicode-troll-stopper . [(20151024 131) nil "Minor mode for Highlighting Unicode homoglyphs" single ((:commit . "15e4b57b78bf643bb56e5000078030cbb5c66e2a") (:keywords "unicode") (:authors ("Cam Saül" . "cammsaul@gmail.com")) (:maintainer "Cam Saül" . "cammsaul@gmail.com") (:url . "https://github.com/camsaul/emacs-unicode-troll-stopper"))]) (unicode-progress-reporter . [(20140508 2041) ((emacs (24 1 0)) (ucs-utils (0 7 6)) (list-utils (0 4 2)) (persistent-soft (0 8 8)) (pcache (0 2 3))) "Progress-reporter with fancy characters" single ((:commit . "5e66724fd7d15743213b082474d798117b194494") (:keywords "interface") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/unicode-progress-reporter"))]) (unicode-input . [(20141219 720) nil "Support for unicode character input" single ((:keywords "unicode" "input") (:authors ("m00nlight" . "dot_wangyushi@yeah.net")) (:maintainer "m00nlight" . "dot_wangyushi@yeah.net"))]) (unicode-fonts . [(20181001 1509) ((font-utils (0 7 8)) (ucs-utils (0 8 2)) (list-utils (0 4 2)) (persistent-soft (0 8 10)) (pcache (0 3 1))) "Configure Unicode fonts" single ((:commit . "7b88ae84e589f6c8b9386b2fb5a02ff4ccb91169") (:keywords "i18n" "faces" "frames" "wp" "interface") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/unicode-fonts"))]) (unicode-escape . [(20160614 1234) ((emacs (24)) (names (20151201 0)) (dash (2 12 1))) "Escape/Unescape unicode notations" single ((:commit . "fc69ec780d9e54c364a9252bd0cf1d2507f3fab7") (:keywords "i18n" "unicode") (:authors ("KOBAYASHI Shigeru (kosh)" . "shigeru.kb@gmail.com")) (:maintainer "KOBAYASHI Shigeru (kosh)" . "shigeru.kb@gmail.com") (:url . "https://github.com/kosh04/unicode-escape.el"))]) (unicode-enbox . [(20140508 2041) ((string-utils (0 3 2)) (ucs-utils (0 7 6)) (list-utils (0 4 2)) (persistent-soft (0 8 8)) (pcache (0 2 3))) "Surround a string with box-drawing characters" single ((:commit . "77074fac1994a4236f111d6a1d0cf79ea3fca151") (:keywords "extensions" "interface") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/unicode-enbox"))]) (unicode-emoticons . [(20150204 1108) nil "Shortcuts for common unicode emoticons" single ((:commit . "fb18631f342b0243cf77cf59ed2067c47aae5233") (:keywords "games" "entertainment" "comms") (:authors ("Gunther Hagleitner")) (:maintainer "Gunther Hagleitner") (:url . "https://github.com/hagleitn/unicode-emoticons"))]) (unfill . [(20170723 146) nil "Unfill paragraphs or regions, and toggle between filled & unfilled" single ((:commit . "df0c4dee19a3874b11c7c7f04e8a2fba629fda9b") (:keywords "utilities") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/unfill"))]) (undohist . [(20150315 1242) ((cl-lib (1 0))) "Persistent undo history for GNU Emacs" single ((:commit . "d2239a5f736724ceb9e3b6bcaa86f4064805cda0") (:keywords "convenience") (:authors ("MATSUYAMA Tomohiro" . "m2ym.pub@gmail.com")) (:maintainer "MATSUYAMA Tomohiro" . "m2ym.pub@gmail.com"))]) (underwater-theme . [(20131118 2) nil "A gentle, deep blue color theme" single ((:commit . "4eb9ef014f580adc135d91d1cd68d37a310640b6") (:keywords "faces") (:authors ("Jon-Michael Deldin" . "dev@jmdeldin.com")) (:maintainer "Jon-Michael Deldin" . "dev@jmdeldin.com"))]) (underline-with-char . [(20170814 923) ((emacs (24))) "Underline with a char" single ((:commit . "6daeba77e17dc11558ca3ccb0495524f5104d581") (:keywords "convenience") (:maintainer nil . "marcowahlsoft@gmail.com"))]) (undercover . [(20180403 1452) ((emacs (24)) (dash (2 0 0)) (shut-up (0 3 2))) "Test coverage library for Emacs Lisp" single ((:commit . "3fc54ef92f0b4b7d26d962d6ed29a81d526a3a66") (:keywords "lisp" "tests" "coverage" "tools") (:authors ("Sviridov Alexander" . "sviridov.vmi@gmail.com")) (:maintainer "Sviridov Alexander" . "sviridov.vmi@gmail.com") (:url . "https://github.com/sviridov/undercover.el"))]) (uncrustify-mode . [(20130707 1359) nil "Minor mode to automatically uncrustify." single ((:commit . "73893d000361e95784911e5ec268ad0ab2a1473c") (:keywords "uncrustify") (:authors ("Tabito Ohtani" . "koko1000ban@gmail.com")) (:maintainer "Tabito Ohtani" . "koko1000ban@gmail.com"))]) (ukrainian-holidays . [(20130720 1349) nil "Ukrainian holidays for Emacs calendar." single ((:commit . "e52b0c92843e9f4d0415a7ba3b8559785497d23d") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/ukrainian-holidays"))]) (ujelly-theme . [(20180214 1624) nil "Ujelly theme for GNU Emacs 24 (deftheme)" single ((:commit . "bf724ce7806a738d2043544061e5f9bbfc56e674") (:authors ("Mark Tran" . "mark.tran@gmail.com")) (:maintainer "Mark Tran" . "mark.tran@gmail.com") (:url . "http://github.com/marktran/color-theme-ujelly"))]) (uimage . [(20160901 1221) nil "An iimage like mode with the ability to display url images" single ((:commit . "9893d09160ef7e8c0ecdcd74fca99ffeb5f9d70d") (:keywords "lisp" "url" "image") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))]) (ucs-utils . [(20150826 1414) ((persistent-soft (0 8 8)) (pcache (0 2 3)) (list-utils (0 4 2))) "Utilities for Unicode characters" tar ((:commit . "cbfd42f822bf5717934fa2d92060e6e24a813433") (:keywords "i18n" "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/ucs-utils"))]) (ubuntu-theme . [(20150805 1506) nil "A theme inspired by the default terminal colors in Ubuntu" single ((:commit . "88b0eefc75d4cbcde103057e1c5968d4c3052f69") (:authors ("Francesc Rocher" . "francesc.rocher@gmail.com")) (:maintainer "Francesc Rocher" . "francesc.rocher@gmail.com") (:url . "http://github.com/rocher/ubuntu-theme"))]) (typoscript-mode . [(20170126 912) ((emacs (24 4)) (use-package (0))) "mode for TypoScript files" single ((:commit . "44e7567e921573c4f33c537b827f71fb1f565c32") (:keywords "typo3" "typoscript") (:authors ("Johannes Goslar")) (:maintainer "Johannes Goslar") (:url . "https://github.com/ksjogo/typoscript-mode"))]) (typo . [(20171209 1023) nil "Minor mode for typographic editing" single ((:commit . "9dad93b6f367f02f52c8d9bf15d446d922cec294") (:keywords "convenience" "wp") (:authors ("Jorgen Schaefer" . "forcer@forcix.cx")) (:maintainer "Jorgen Schaefer" . "forcer@forcix.cx") (:url . "https://github.com/jorgenschaefer/typoel"))]) (typit . [(20180317 807) ((emacs (24 4)) (f (0 18)) (mmt (0 1 1))) "Typing game similar to tests on 10 fast fingers" tar ((:commit . "4fe50d616fc60e77eb9b5a824c0a1ca4010b0746") (:keywords "games") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/typit"))]) (typing-game . [(20160426 1220) nil "a simple typing game" single ((:commit . "616435a5270274f4c7b698697674dbb2039049a4") (:keywords "lisp" "game") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))]) (typing . [(20180830 2203) nil "The Typing Of Emacs" single ((:commit . "a2ef25dde2d8eb91bd9c0c6164cb5208208647fa") (:keywords "games") (:authors ("Alex Schroeder" . "alex@gnu.org")) (:maintainer "Alex Schroeder" . "alex@gnu.org") (:url . "http://www.emacswiki.org/emacs/TypingOfEmacs"))]) (typescript-mode . [(20181018 553) nil "Major mode for editing typescript" tar ((:commit . "fbaad515c90df0f5c3634c471034e3041a4a8cfc") (:keywords "typescript" "languages") (:url . "http://github.com/ananthakumaran/typescript.el"))]) (typed-clojure-mode . [(20151003 1822) ((clojure-mode (2 1 1)) (cider (0 10 0 -4))) "Typed Clojure minor mode for Emacs" tar ((:commit . "3abd53d8cc1ad77ffe76e02849d0ab7731fd8364") (:authors ("John Walker <john.lou.walker@gmail.com>, Ambrose Bonnaire-Sergeant" . "abonnairesergeant@gmail.com")) (:maintainer "John Walker <john.lou.walker@gmail.com>, Ambrose Bonnaire-Sergeant" . "abonnairesergeant@gmail.com") (:url . "https://github.com/typedclojure/typed-clojure-mode"))]) (twittering-mode . [(20180917 328) nil "Major mode for Twitter" single ((:commit . "ad7de82cf4b72fc166970d85849e2a9a9ae5a979") (:keywords "twitter" "web") (:authors ("Tadashi MATSUO" . "tad@mymail.twin.ne.jp") ("Y. Hayamizu" . "y.hayamizu@gmail.com") ("Tsuyoshi CHO" . "Tsuyoshi.CHO+develop@Gmail.com") ("Alberto Garcia" . "agarcia@igalia.com") ("Xavier Maillard" . "xavier@maillard.im")) (:maintainer "Tadashi MATSUO" . "tad@mymail.twin.ne.jp") (:url . "http://twmode.sf.net/"))]) (twilight-theme . [(20120412 1303) nil "Twilight theme for GNU Emacs 24 (deftheme)" single ((:commit . "77c4741cb3dcf16e53d06d6c2ffdc660c40afb5b") (:authors ("Nick Parker" . "nickp@developernotes.com")) (:maintainer "Nick Parker" . "nickp@developernotes.com"))]) (twilight-bright-theme . [(20130605 843) nil "A Emacs 24 faces port of the TextMate theme" single ((:commit . "322157cb2f3bf7920ecd209dafc31bc1c7959f49") (:keywords "themes") (:authors ("Jim Myhrberg" . "contact@jimeh.me")) (:maintainer "Jim Myhrberg" . "contact@jimeh.me") (:url . "https://github.com/jimeh/twilight-bright-theme.el"))]) (twilight-anti-bright-theme . [(20160622 848) nil "A soothing Emacs 24 light-on-dark theme" single ((:commit . "523b95fcdbf4a6a6483af314ad05354a3d80f23f") (:keywords "themes") (:authors ("Jim Myhrberg" . "contact@jimeh.me")) (:maintainer "Jim Myhrberg" . "contact@jimeh.me") (:url . "https://github.com/jimeh/twilight-anti-bright-theme.el"))]) (twig-mode . [(20130220 1850) nil "A major mode for twig" single ((:commit . "2849f273a4855d3314a9c0cc84134f5b28ad5ea6") (:authors ("Bojan Matic aka moljac024")) (:maintainer "Bojan Matic aka moljac024"))]) (turnip . [(20150309 629) ((dash (2 6 0)) (s (1 9 0))) "Interacting with tmux from Emacs" single ((:commit . "2fd32562fc6fc1cda6d91aa939cfb29f9b16e9de") (:keywords "terminals" "tools") (:authors ("Johann Klähn" . "kljohann@gmail.com")) (:maintainer "Johann Klähn" . "kljohann@gmail.com"))]) (turkish . [(20170910 1511) nil "Convert to Turkish characters on-the-fly" single ((:commit . "9831a316c176bb21a1b91226323ea4133163e00c") (:keywords "turkish" "languages" "automatic" "conversion") (:authors ("Deniz Yüret")) (:maintainer "Emre Sevinç" . "emre.sevinc@gmail.com") (:url . "http://www.denizyuret.com/2006/11/emacs-turkish-mode.html"))]) (turing-machine . [(20180222 438) ((emacs (24 4))) "Single-tape Turing machine simulator" single ((:commit . "fa60b76a5bac1f54b7a1b3dc55aae7602c7e385b") (:keywords "turing" "machine" "simulation") (:authors ("Diego A. Mundo" . "diegoamundo@gmail.com")) (:maintainer "Diego A. Mundo" . "diegoamundo@gmail.com") (:url . "http://github.com/therockmandolinist/turing-machine"))]) (tup-mode . [(20140410 1614) nil "Major mode for editing files for Tup" single ((:commit . "bcc100c6485f1c81fdcd1215dfc6c41a81c215c8") (:authors ("Eric James Michael Ritz" . "lobbyjones@gmail.com")) (:maintainer "Eric James Michael Ritz" . "lobbyjones@gmail.com") (:url . "https://github.com/ejmr/tup-mode"))]) (tumblesocks . [(20140215 2047) ((htmlize (1 39)) (oauth (1 0 3)) (markdown-mode (1 8 1))) "An Emacs tumblr client." tar ((:commit . "85a6cdc2db3390593fd886c474959b675460b310"))]) (tumble . [(20160112 729) ((http-post-simple (0)) (cl-lib (0 5))) "an Tumblr mode for Emacs" single ((:commit . "e8fd7643cccf2b6ea4170f0c5f1f87d007e7fa00") (:keywords "tumblr") (:authors ("Federico Builes" . "federico.builes@gmail.com")) (:maintainer "Federico Builes" . "federico.builes@gmail.com"))]) (tuareg . [(20180918 1913) ((caml (3 12 0 1))) "OCaml mode for Emacs." tar ((:commit . "c030be472c2aea4d4b770705f9099fb00e952618") (:keywords "ocaml" "languages") (:authors ("Albert Cohen" . "Albert.Cohen@inria.fr") ("Sam Steingold" . "sds@gnu.org") ("Christophe Troestler" . "Christophe.Troestler@umons.ac.be") ("Till Varoquaux" . "till@pps.jussieu.fr") ("Sean McLaughlin" . "seanmcl@gmail.com") ("Stefan Monnier" . "monnier@iro.umontreal.ca")) (:maintainer "Albert Cohen" . "Albert.Cohen@inria.fr") (:url . "https://github.com/ocaml/tuareg"))]) (ttl-mode . [(20160505 832) nil "mode for Turtle (and Notation 3)" single nil]) (tt-mode . [(20130804 1110) nil "Emacs major mode for editing Template Toolkit files." single ((:commit . "85ed3832e7eef391f7879d9990d59c7a3493c15e") (:authors ("Dave Cross" . "dave@dave.org.uk")) (:maintainer "Dave Cross" . "dave@dave.org.uk"))]) (tss . [(20150913 1408) ((auto-complete (1 4 0)) (json-mode (1 1 0)) (log4e (0 2 0)) (yaxception (0 1))) "provide a interface for auto-complete.el/flymake.el on typescript-mode." tar ((:commit . "81ac6351a2ae258fd0ebf916dae9bd5a179fefd0") (:keywords "typescript" "completion") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-tss"))]) (ts-comint . [(20171106 647) nil "Run a Typescript interpreter in an inferior process window." single ((:commit . "8817dc7b3a6eb78c3cad42e5677c2113274a1963") (:keywords "typescript" "node" "inferior-mode" "convenience") (:authors ("Paul Huff" . "paul.huff@gmail.com")) (:maintainer "Paul Huff" . "paul.huff@gmail.com") (:url . "https://github.com/josteink/ts-comint"))]) (try . [(20170226 1605) ((emacs (24))) "Try out Emacs packages." single ((:commit . "271b0a362cadf44d0694628b9e213f54516ef913") (:keywords "packages") (:authors ("Lars Tveito" . "larstvei@ifi.uio.no")) (:maintainer "Lars Tveito" . "larstvei@ifi.uio.no") (:url . "http://github.com/larstvei/try"))]) (truthy . [(20140508 2041) ((list-utils (0 4 2))) "Test the content of a value" single ((:commit . "8ed8d07772aa8457554547eb17e264b5df2b4a69") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/truthy"))]) (trr . [(20170221 842) nil "a type-writing training program on GNU Emacs." tar ((:commit . "83660d8343ef3367837354dc684dfdde2f95826a") (:keywords "games" "faces") (:authors ("YAMAMOTO Hirotaka" . "ymmt@is.s.u-tokyo.ac.jp") ("KATO Kenji" . "kato@suri.co.jp") (" *Original Author") ("INAMURA You" . "inamura@icot.or.jp") (" *Original Author")) (:maintainer "YAMAMOTO Hirotaka" . "ymmt@is.s.u-tokyo.ac.jp"))]) (trinary . [(20180904 2313) ((emacs (24))) "Trinary logic." single ((:commit . "886232c6d7e92a8e9fe573eef46754ebe321f90d") (:keywords "languages") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/trinary-logic"))]) (trident-mode . [(20130726 1907) ((emacs (24)) (slime (20130526)) (skewer-mode (1 5 0)) (dash (1 0 3))) "Live Parenscript interaction" single ((:commit . "ad3201f47e114de35df189c3d80f0fdea9507ea9") (:keywords "languages" "lisp" "processes" "tools") (:authors ("John Mastro" . "john.b.mastro@gmail.com")) (:maintainer "John Mastro" . "john.b.mastro@gmail.com") (:url . "https://github.com/johnmastro/trident-mode.el"))]) (treepy . [(20180724 656) ((emacs (25 1))) "Generic tree traversal tools" single ((:commit . "b40e6b09eb9be45da67b8c9e4990a5a0d7a2a09d") (:keywords "lisp" "maint" "tools") (:authors ("Daniel Barreto" . "daniel.barreto.n@gmail.com")) (:maintainer "Daniel Barreto" . "daniel.barreto.n@gmail.com") (:url . "https://github.com/volrath/treepy.el"))]) (treemacs-projectile . [(20181029 624) ((projectile (0 14 0)) (treemacs (0))) "Projectile integration for treemacs" single ((:commit . "af0629b90ee8cb380316a39c42ba405469146a34") (:authors ("Alexander Miller" . "alexanderm@web.de")) (:maintainer "Alexander Miller" . "alexanderm@web.de") (:url . "https://github.com/Alexander-Miller/treemacs"))]) (treemacs-evil . [(20180803 1017) ((evil (1 2 12)) (treemacs (0))) "Evil mode integration for treemacs" single ((:commit . "af0629b90ee8cb380316a39c42ba405469146a34") (:authors ("Alexander Miller" . "alexanderm@web.de")) (:maintainer "Alexander Miller" . "alexanderm@web.de") (:url . "https://github.com/Alexander-Miller/treemacs"))]) (treemacs . [(20181120 1118) ((emacs (25 2)) (cl-lib (0 5)) (dash (2 11 0)) (s (1 10 0)) (f (0 11 0)) (ace-window (0 9 0)) (pfuture (1 2)) (hydra (0 13 2)) (ht (2 2))) "A tree style file explorer package" tar ((:commit . "af0629b90ee8cb380316a39c42ba405469146a34") (:authors ("Alexander Miller" . "alexanderm@web.de")) (:maintainer "Alexander Miller" . "alexanderm@web.de") (:url . "https://github.com/Alexander-Miller/treemacs"))]) (tree-mode . [(20151104 1331) nil "A mode to manage tree widgets" single ((:commit . "b06078826d5875d74b0e7b7ac47b0d0917610534") (:keywords "help" "convenience" "widget") (:authors (nil . "wenbinye@163.com")) (:maintainer nil . "wenbinye@163.com"))]) (travis . [(20150825 1138) ((s (1 9 0)) (dash (2 9 0)) (pkg-info (0 5 0)) (request (0 1 0))) "Emacs client for Travis" tar ((:commit . "754ef07c17fed17ab03664ad11e2b0b2ef5e78ed") (:keywords "travis") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/emacs-travis"))]) (transpose-mark . [(20150405 716) nil "Transpose data using the Emacs mark" single ((:commit . "667327602004794de97214cf336ac61650ef75b7") (:keywords "transpose" "convenience") (:authors ("Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com")) (:maintainer "Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com"))]) (transpose-frame . [(20151126 1426) nil "Transpose windows arrangement in a frame" single ((:commit . "011f420c3496b69fc22d789f64cb8091834feba7") (:keywords "window") (:authors ("S. Irie")) (:maintainer "S. Irie"))]) (transmission . [(20180728 1717) ((emacs (24 4)) (let-alist (1 0 5))) "Interface to a Transmission session" single ((:commit . "bbe4077b89afe732d346eeed1ad0783537f33480") (:keywords "comm" "tools") (:authors ("Mark Oteiza" . "mvoteiza@udel.edu")) (:maintainer "Mark Oteiza" . "mvoteiza@udel.edu"))]) (transfer-sh . [(20180603 1431) ((async (1 0))) "Simple interface for sending buffer contents to transfer.sh" single ((:commit . "55da85f963d347255a2b46568954923679331798") (:keywords "cloud" "upload" "share") (:authors ("S. Roskamp" . "steffen.roskamp@gmail.com")) (:maintainer "S. Roskamp" . "steffen.roskamp@gmail.com"))]) (tramp-term . [(20180223 1527) nil "Automatic setup of directory tracking in ssh sessions." single ((:commit . "7c29f888de0385a676dbf9a4e17bac0111f5c10a") (:keywords "tramp" "ssh") (:authors ("Randy Morris" . "randy.morris@archlinux.us")) (:maintainer "Randy Morris" . "randy.morris@archlinux.us") (:url . "https://github.com/randymorris/tramp-term.el"))]) (tramp-hdfs . [(20170821 1320) ((emacs (24 4))) "Tramp extension to access hadoop/hdfs file system in Emacs" single ((:commit . "f8406f77bf83b66306ced693a5e4aaf606f46762") (:keywords "tramp" "emacs" "hdfs" "hadoop" "webhdfs" "rest") (:authors ("Raghav Kumar Gautam" . "raghav@apache.org")) (:maintainer "Raghav Kumar Gautam" . "raghav@apache.org"))]) (tracwiki-mode . [(20150119 1621) ((xml-rpc (1 6 8))) "Emacs Major mode for working with Trac" single ((:commit . "6a620444d59b438f42383b48cd4c19c03105dba6") (:keywords "trac" "wiki" "tickets") (:authors ("Matthew Erickson" . "peawee@peawee.net")) (:maintainer "Matthew Erickson" . "peawee@peawee.net"))]) (tracking . [(20171210 2102) nil "Buffer modification tracking" tar ((:commit . "fedfa7eb8516a53fa70b6a1f4fce4b5ab66ea91f") (:authors ("Jorgen Schaefer" . "forcer@forcix.cx")) (:maintainer "Jorgen Schaefer" . "forcer@forcix.cx") (:url . "https://github.com/jorgenschaefer/circe/wiki/Tracking"))]) (traad . [(20180730 48) ((dash (2 13 0)) (deferred (0 3 2)) (popup (0 5 0)) (request (0 2 0)) (request-deferred (0 2 0)) (virtualenvwrapper (20151123)) (f (0 20 0)) (bind-map (1 1 1))) "emacs interface to the traad refactoring server." single ((:commit . "98e23363b7e8a590a2f55976123a8c3da75c87a5") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/traad"))]) (tql-mode . [(20170724 254) ((emacs (24))) "TQL mode" single ((:commit . "488add79eb3fc8ec02aedaa997fe1ed9e5c3e638") (:keywords "languages" "tql") (:authors ("Sean McLaughlin" . "seanmcl@gmail.com")) (:maintainer "Sean McLaughlin" . "seanmcl@gmail.com"))]) (toxi-theme . [(20160424 2126) ((emacs (24))) "A dark color theme by toxi" single ((:authors ("Karsten Schmidt" . "info@postspectacular.com")) (:maintainer "Karsten Schmidt" . "info@postspectacular.com") (:url . "http://bitbucket.org/postspectacular/toxi-theme/"))]) (tox . [(20160810 1555) nil "Launch current python test with tox" single ((:commit . "7655eb254038d5e34433e8a9d66b3ffc9c72e40c") (:keywords "convenience" "tox" "python" "tests") (:authors ("Chmouel Boudjnah" . "chmouel@chmouel.com")) (:maintainer "Chmouel Boudjnah" . "chmouel@chmouel.com") (:url . "https://github.com/chmouel/tox.el"))]) (totd . [(20150519 1440) ((s (1 9 0)) (cl-lib (0 5))) "Display a random daily emacs command." single ((:commit . "ca47b618ea8290776cdb5b0f1c2c335691f69660") (:keywords "help") (:authors ("Erik Hetzner" . "egh@e6h.org")) (:maintainer "Erik Hetzner" . "egh@e6h.org"))]) (total-lines . [(20171227 1239) ((emacs (24 3))) "Keep track of a buffer's total number of lines" single ((:commit . "473fa74a5416697ecd938866518bcad423f8fda6") (:keywords "convenience" "mode-line") (:authors ("Hinrik Örn Sigurðsson")) (:maintainer "Hinrik Örn Sigurðsson") (:url . "https://github.com/hinrik/total-lines"))]) (tornado-template-mode . [(20141128 1008) nil "A major mode for editing tornado templates" single ((:commit . "667c0663dbbd279b6c345446b9f2bc50eb52b747") (:authors ("Florian Mounier aka paradoxxxzero")) (:maintainer "Florian Mounier aka paradoxxxzero"))]) (tommyh-theme . [(20131004 2330) nil "A bright, bold-colored theme for emacs" single ((:commit . "46d1c69ee0a1ca7c67b569b891a2f28fed89e7d5") (:authors ("William Glass" . "william.glass@gmail.com")) (:maintainer "William Glass" . "william.glass@gmail.com"))]) (toml-mode . [(20161107 1800) ((emacs (24)) (cl-lib (0 5))) "Major mode for editing TOML files" single ((:commit . "f6c61817b00f9c4a3cab1bae9c309e0fc45cdd06") (:keywords "data" "toml") (:authors ("Felix Chern" . "idryman@gmail.com")) (:maintainer "Felix Chern" . "idryman@gmail.com") (:url . "https://github.com/dryman/toml-mode.el"))]) (toml . [(20130903 1255) nil "TOML (Tom's Obvious, Minimal Language) parser" single ((:commit . "9633a6872928e737a2335aae1065768b23d8c3b3") (:keywords "toml" "parser") (:authors ("Wataru MIYAGUNI" . "gonngo@gmail.com")) (:maintainer "Wataru MIYAGUNI" . "gonngo@gmail.com") (:url . "https://github.com/gongo/emacs-toml"))]) (tomatinho . [(20180621 1748) nil "Simple and beautiful pomodoro timer" tar ((:commit . "b53354b9b9f496c0388d6a573b06b7d6fc53d0bd") (:keywords "time" "productivity" "pomodoro technique") (:authors ("Konrad Scorciapino" . "scorciapino@gmail.com")) (:maintainer "Konrad Scorciapino" . "scorciapino@gmail.com"))]) (toggle-window . [(20141207 1548) nil "toggle current window size between half and full" single ((:commit . "e82c60e543933880402ede11e9423e48a17dde53") (:keywords "hide" "window") (:authors ("Kenny Liu")) (:maintainer "Kenny Liu") (:url . "https://github.com/deadghost/toggle-window"))]) (toggle-test . [(20140723 537) nil "Toggle between source and test files in various programming languages" single ((:commit . "e969321f274903d705995a7d0345a257576ec5ff") (:keywords "tdd" "test" "toggle" "productivity") (:authors ("Raghunandan Rao" . "r.raghunandan@gmail.com")) (:maintainer "Raghunandan Rao" . "r.raghunandan@gmail.com") (:url . "https://github.com/rags/toggle-test"))]) (toggle-quotes . [(20140710 926) nil "Toggle between single and double quoted string" single ((:commit . "33abc221d6887f0518337851318065cd86c34b03") (:keywords "convenience" "quotes") (:authors ("Jim Tian" . "tianjin.sc@gmail.com")) (:maintainer "Jim Tian" . "tianjin.sc@gmail.com") (:url . "https://github.com/toctan/toggle-quotes.el"))]) (toggle . [(20180316 3) ((cl-lib (0 5))) "quickly open corresponding file (eg test vs impl)." single ((:commit . "4ce20cc5b25a1f1b4669ea8ff2880ec764eaf7da") (:keywords "files" "extensions" "convenience") (:authors ("Ryan Davis" . "ryand-ruby@zenspider.com")) (:maintainer "Ryan Davis" . "ryand-ruby@zenspider.com"))]) (togetherly . [(20170426 616) ((cl-lib (0 3))) "allow multiple clients to edit a single buffer online" single ((:commit . "a6491bd5dd84f2aded0cd112ff06ae76ff78dfeb") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (todotxt-mode . [(20150424 1404) nil "Major mode for editing todo.txt files" single ((:commit . "dc6ae151edee88f329ba7abc5d39b7440002232f") (:keywords "wp" "files") (:authors ("Adolfo Villafiorita" . "adolfo.villafiorita@me.com")) (:maintainer "Adolfo Villafiorita" . "adolfo.villafiorita@me.com"))]) (todotxt . [(20180626 2230) nil "A major mode for editing todo.txt files" single ((:commit . "f13e404304c9d26c105de872f96b4601441b3875") (:keywords "todo.txt" "todotxt" "todotxt.el") (:authors ("Rick Dillon" . "rpdillon@killring.org")) (:maintainer "Rick Dillon" . "rpdillon@killring.org") (:url . "https://github.com/rpdillon/todotxt.el"))]) (toc-org . [(20181108 1621) nil "add table of contents to org-mode files (formerly, org-toc)" single ((:commit . "4315afd2a408c0d432ba3d8d040c2326c222fdbf") (:keywords "org-mode" "org-toc" "toc-org" "org" "toc" "table" "of" "contents") (:authors ("Sergei Nosov <sergei.nosov [at] gmail.com>")) (:maintainer "Sergei Nosov <sergei.nosov [at] gmail.com>") (:url . "https://github.com/snosov1/toc-org"))]) (tmmofl . [(20121025 1101) nil "Calls functions dependant on font lock highlighting at point" single ((:commit . "532aa6978e994e2b069ffe37aaf9a0011a07dadc") (:keywords "minor mode" "font lock" "toggling.") (:authors ("Phillip Lord" . "p.lord@hgmp.mrc.ac.uk")) (:maintainer "Phillip Lord" . "p.lord@hgmp.mrc.ac.uk"))]) (tldr . [(20180122 1112) ((emacs (24 3))) "tldr client for Emacs" single ((:commit . "398b197c8d2238628b07e1b32d0f373876279f4c") (:keywords "tools" "docs") (:authors ("Ono Hiroko" . "azazabc123@gmail.com")) (:maintainer "Ono Hiroko" . "azazabc123@gmail.com") (:url . "https://github.com/kuanyui/tldr.el"))]) (tj3-mode . [(20180519 1228) nil "major mode for editing TaskJuggler 3 files" single ((:commit . "1d98eb23f1606392f34ef1b80517cfc940fb9950") (:authors ("Christophe Rhodes" . "christophe@rhodes.io")) (:maintainer "Christophe Rhodes" . "christophe@rhodes.io") (:url . "https://github.com/csrhodes/tj3-mode"))]) (tinysegmenter . [(20141124 1013) ((cl-lib (0 5))) "Super compact Japanese tokenizer in Javascript ported to emacs lisp" single ((:commit . "872134704bd25c13a4c59552433da4c6881b5230") (:keywords "convenience") (:authors ("lugecy" . "lugecy@gmail.com")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/tinysegmenter.el"))]) (tiny-menu . [(20161213 1235) ((emacs (24 4))) "Display tiny menus." single ((:commit . "05563b94537b6eb22aeddedef2a6e59e3f88d073") (:keywords "menu" "tools") (:authors ("Aaron Bieber" . "aaron@aaronbieber.com")) (:maintainer "Aaron Bieber" . "aaron@aaronbieber.com") (:url . "https://github.com/aaronbieber/tiny-menu.el"))]) (tiny . [(20170903 949) nil "Quickly generate linear ranges in Emacs" single ((:commit . "012b2e7a67b9f067bbfa0292479861ffbaa201fa") (:keywords "convenience") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/tiny"))]) (tinkerer . [(20170906 1224) ((s (1 2 0))) "Elisp wrapper for Tinkerer Blogging Engine." single ((:commit . "e34135555f3748b578c7f8706dfd0c888fb87581") (:keywords "tinkerer" "blog" "wrapper") (:authors ("Yagnesh Raghava Yakkala" . "hi@yagnesh.org")) (:maintainer "Yagnesh Raghava Yakkala" . "hi@yagnesh.org") (:url . "https://github.com/yyr/tinkerer.el"))]) (timp . [(20160618 803) ((emacs (24 4)) (cl-lib (0 5)) (fifo-class (1 0)) (signal (1 0))) "Multithreading library" tar ((:commit . "66b21934b1eb8ee428c06dd64b3562ad44776a35") (:keywords "internal" "lisp" "processes" "tools") (:authors ("Mola-T" . "Mola@molamola.xyz")) (:maintainer "Mola-T" . "Mola@molamola.xyz") (:url . "https://github.com/mola-T/timp"))]) (timonier . [(20170411 800) ((emacs (24 4)) (s (1 11 0)) (f (0 19 0)) (dash (2 12 0)) (pkg-info (0 5 0)) (hydra (0 13 6)) (request (0 2 0)) (all-the-icons (2 0 0))) "Manage Kubernetes Applications" tar ((:commit . "0a150ea87bf695b43cf1740dfd7e553e0ae7601c") (:keywords "kubernetes" "docker") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/timonier"))]) (timesheet . [(20180802 202) ((s (1)) (org (7)) (auctex (11))) "Timesheet management add-on for org-mode" tar ((:commit . "67ca6a9f6733052066b438301fb2dd81b8b3f6eb") (:keywords "org" "timesheet") (:authors ("Tom Marble")) (:maintainer "Tom Marble") (:url . "https://github.com/tmarble/timesheet.el"))]) (timer-revert . [(20150122 2032) nil "minor mode to revert buffer for a given time interval." tar ((:commit . "615c91dec8b440d2b9b7c725dd733d7432564e45"))]) (timecop . [(20160520 1052) ((cl-lib (0 5)) (datetime-format (0 0 1))) "Freeze Time for testing" single ((:commit . "e6427538b547cbe02e1bd6ed4b765c73620bdae8") (:keywords "datetime" "testing") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/emacs-datetime"))]) (time-ext . [(20170126 1215) nil "more function for time/date" single ((:commit . "d128becf660fe3f30178eb1b05cd266741f4784a") (:keywords "lisp") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/time-ext.el"))]) (tile . [(20161225 357) ((emacs (25 1)) (s (1 9 0)) (dash (2 12 0)) (stream (2 2 3))) "Tile windows with layouts" single ((:commit . "22660f21f6e95de5aba55cd5d293d4841e9a4661") (:keywords "tile" "tiling" "window" "manager" "dynamic" "frames") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/tile"))]) (tide . [(20181025 1201) ((dash (2 10 0)) (s (1 11 0)) (flycheck (27)) (typescript-mode (0 1)) (cl-lib (0 5))) "Typescript Interactive Development Environment" tar ((:commit . "b2af64e5926b9c1493f7e39d5e928d61975816fb") (:keywords "typescript") (:authors ("Anantha kumaran" . "ananthakumaran@gmail.com")) (:maintainer "Anantha kumaran" . "ananthakumaran@gmail.com") (:url . "http://github.com/ananthakumaran/tide"))]) (tidal . [(20181102 1631) ((haskell-mode (16)) (emacs (24))) "Interact with TidalCycles for live coding patterns" single ((:commit . "55ee834048386450d3fcf5e71143dc3cefb089db") (:keywords "tools") (:authors (nil . "alex@slab.org")) (:maintainer nil . "alex@slab.org") (:url . "https://github.com/tidalcycles/Tidal"))]) (tickscript-mode . [(20171219 203) ((emacs (24 1))) "A major mode for Tickscript files" single ((:commit . "f0579f38ff14954df5002ce30ae6d4a2c978d461") (:keywords "languages") (:authors ("Marc Sherry" . "msherry@gmail.com")) (:maintainer "Marc Sherry" . "msherry@gmail.com") (:url . "https://github.com/msherry/tickscript-mode"))]) (thumb-through . [(20120119 534) nil "Plain text reader of HTML documents" single ((:commit . "08d8fb720f93c6172653e035191a8fa9c3305e63") (:keywords "html"))]) (thrift . [(20180905 1050) ((emacs (24))) "major mode for fbthrift and Apache Thrift files" single ((:commit . "4e05950f975b751cba325db1be843685b5c9bb37") (:keywords "languages"))]) (threes . [(20160820 1242) ((emacs (24)) (seq (1 11))) "A clone of Threes (a tiny puzzle game)" single ((:commit . "6981acb30b856c77cba6aba63fefbf102cbdfbb2") (:keywords "games") (:authors ("Chunyang Xu" . "xuchunyang.me@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang.me@gmail.com") (:url . "https://github.com/xuchunyang/threes.el"))]) (thread-dump . [(20170816 1850) nil "Java thread dump viewer" single ((:commit . "204c9600242756d4b514bb5ff6293e052bf4b49d") (:authors ("Dmitry Neverov")) (:maintainer "Dmitry Neverov") (:url . "http://github.com/nd/thread-dump.el"))]) (thinks . [(20170802 1128) ((cl-lib (0 5))) "Insert text in a think bubble." single ((:commit . "c02f236abc8c2025d9f01460b09b89ebdc96e28d") (:keywords "convenience" "quoting") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/thinks.el"))]) (thingopt . [(20160520 2318) nil "Thing at Point optional utilities" single ((:commit . "5679815852652479f3b3c9f3a98affc927384b2c") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))]) (therapy . [(20151113 1953) ((emacs (24))) "Hooks for managing multiple Python major versions" single ((:commit . "775a92bb7b6b0fcc5b38c0b5198a9d0a1bef788a") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/therapy"))]) (theme-looper . [(20170425 1306) ((cl-lib (0 5))) "Loop thru the available color-themes" single ((:commit . "875c2cfc84b3c143d3b14a7aba38905e35559157") (:keywords "convenience" "color-themes") (:authors ("Mohammed Ismail Ansari" . "team.terminal@gmail.com")) (:maintainer "Mohammed Ismail Ansari" . "team.terminal@gmail.com") (:url . "http://ismail.teamfluxion.com"))]) (theme-changer . [(20171221 1927) nil "Sunrise/Sunset Theme Changer for Emacs" single ((:commit . "61945695a30d678e6a5d47cbe7c8aff59a8c30ea") (:keywords "color-theme" "deftheme" "solar" "sunrise" "sunset") (:authors ("Joshua B. Griffith" . "josh.griffith@gmail.com")) (:maintainer "Joshua B. Griffith" . "josh.griffith@gmail.com") (:url . "https://github.com/hadronzoo/theme-changer"))]) (tfsmacs . [(20180911 2114) ((emacs (25)) (tablist (0 70))) "MS TFS source control interaction." single ((:commit . "13ee3f528ff616880611f563a68d921250692ef8") (:keywords "tfs" "vc") (:authors ("Dino Chiesa <dpchiesa@outlook.com>, Sebastian Monia" . "smonia@outlook.com")) (:maintainer "Dino Chiesa <dpchiesa@outlook.com>, Sebastian Monia" . "smonia@outlook.com") (:url . "http://github.com/sebasmonia/tfsmacs/"))]) (tf2-conf-mode . [(20161209 1620) nil "TF2 Configuration files syntax highlighting" single ((:commit . "536950f64c071ffd8495fb2c7ac7c63a11e25f93") (:keywords "languages") (:authors ("Guillermo Robles" . "guillerobles1995@gmail.com")) (:maintainer "Guillermo Robles" . "guillerobles1995@gmail.com") (:url . "https://github.com/wynro/emacs-tf2-conf-mode"))]) (textx-mode . [(20170516 911) ((emacs (24 3))) "Major mode for editing TextX files" single ((:commit . "72f9f0c5855b382024f0da8f56833c22a70a5cb3") (:keywords "textx") (:authors ("Novak Boškov" . "gnovak.boskov@gmail.com")) (:maintainer "Novak Boškov" . "gnovak.boskov@gmail.com") (:url . "https://github.com/novakboskov/textx-mode"))]) (textmate-to-yas . [(20160409 1708) nil "Import Textmate macros into yasnippet syntax" tar ((:commit . "be3a768b7ac4c2e24b9d4aa6e9ac1d916cdc5a73") (:keywords "yasnippet" "textmate") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew L. Fidler") (:url . "https://github.com/mlf176f2/textmate-to-yas.el/"))]) (textmate . [(20110816 2146) nil "TextMate minor mode for Emacs" single ((:commit . "350918b070148f0ace6d9d3cd4ebcaf15c1a8781") (:keywords "textmate" "osx" "mac") (:authors ("Chris Wanstrath" . "chris@ozmm.org")) (:maintainer "Chris Wanstrath" . "chris@ozmm.org"))]) (textile-mode . [(20170304 1716) nil "Textile markup editing major mode" single ((:commit . "c37aaab809503df008209390e31e19abf4e23630") (:authors ("Julien Barnier" . "julien@nozav.org")) (:maintainer "Julien Barnier" . "julien@nozav.org"))]) (texfrag . [(20181001 753) ((emacs (25)) (auctex (11 90 2))) "preview LaTeX fragments in alien major modes" single ((:commit . "87ebd2653c39abe0b02a91ab2182e6fff562f6c7") (:keywords "tex" "languages" "wp") (:authors ("Tobias Zawada" . "i@tn-home.de")) (:maintainer "Tobias Zawada" . "i@tn-home.de") (:url . "https://github.com/TobiasZawada/texfrag"))]) (tex-smart-umlauts . [(20160427 758) nil "Smart umlaut conversion for TeX." single ((:commit . "5261b931443558f4252489a1e6616034848aff02") (:keywords "tex" "wp") (:authors ("Frank Fischer <frank-fischer at shadow-soft.de>")) (:maintainer "Frank Fischer <frank-fischer at shadow-soft.de>") (:url . "http://hub.darcs.net/lyro/tex-smart-umlauts"))]) (test-simple . [(20170527 1532) ((cl-lib (0))) "Simple Unit Test Framework for Emacs Lisp" single ((:commit . "b3b69f52207d3a8111421ad7ab9ed82abbe85316") (:keywords "unit-test") (:authors ("Rocky Bernstein" . "rocky@gnu.org")) (:maintainer "Rocky Bernstein" . "rocky@gnu.org") (:url . "http://github.com/rocky/emacs-test-simple"))]) (test-kitchen . [(20171129 2035) nil "Run test-kitchen inside of emacs" single ((:commit . "0fc0ca4808425f03fbeb8125246043723e2a179a") (:keywords "chef" "ruby" "test-kitchen") (:authors ("JJ Asghar")) (:maintainer "JJ Asghar") (:url . "http://github.com/jjasghar/test-kitchen-el"))]) (test-case-mode . [(20130525 1434) ((fringe-helper (0 1 1))) "unit test front-end" single ((:commit . "6074df10ebc97ddfcc228c71c73db179e672dac3") (:keywords "tools") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/test-case-mode/"))]) (test-c . [(20180423 1720) ((emacs (24 3))) "quickly test c code" single ((:commit . "761a576f62c7021ba941f178f153c51289df1553") (:authors ("Aurélien Aptel" . "aurelien.aptel@gmail.com")) (:maintainer "Aurélien Aptel" . "aurelien.aptel@gmail.com") (:url . "http://github.com/aaptel/test-c"))]) (terraform-mode . [(20170112 517) ((emacs (24 3)) (hcl-mode (0 3))) "Major mode for terraform configuration file" single ((:commit . "6973d1acaba2835dfdf174f5a5e27de6366002e1") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-terraform-mode"))]) (tern-django . [(20160221 1923) ((emacs (24)) (tern (0 0 1)) (f (0 17 1))) "Create tern projects for django applications." tar ((:commit . "46f2cd5e96bc804069f18455a828b8e4c5ec358a") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/tern-django"))]) (tern-context-coloring . [(20161218 747) ((emacs (24 3)) (context-coloring (8 1 0)) (tern (0 0 1))) "Use Tern for context coloring" single ((:commit . "3a8e979d6cc83aabcb3dda3f5f31a6422532efba") (:keywords "convenience" "faces" "tools") (:authors ("Jackson Ray Hamilton" . "jackson@jacksonrayhamilton.com")) (:maintainer "Jackson Ray Hamilton" . "jackson@jacksonrayhamilton.com") (:url . "https://github.com/jacksonrayhamilton/tern-context-coloring"))]) (tern-auto-complete . [(20170521 1935) ((tern (0 0 1)) (auto-complete (1 4)) (cl-lib (0 5)) (emacs (24))) "Tern Completion by auto-complete.el" single ((:commit . "e94e20be8510040744fc803c9fda6bbb9625c6d2") (:authors ("<m.sakurai at kiwanami.net>")) (:maintainer "<m.sakurai at kiwanami.net>"))]) (tern . [(20181108 722) ((json (1 2)) (cl-lib (0 5)) (emacs (24))) "Tern-powered JavaScript integration" single ((:commit . "e94e20be8510040744fc803c9fda6bbb9625c6d2") (:authors ("Marijn Haverbeke")) (:maintainer "Marijn Haverbeke") (:url . "http://ternjs.net/"))]) (terminal-here . [(20180513 833) ((emacs (24)) (cl-lib (0 5))) "Run an external terminal in current directory" single ((:commit . "271cdd27b3807e76c483b63d47a8287cbabd99d0") (:keywords "tools" "frames") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com") (:url . "https://github.com/davidshepherd7/terminal-here"))]) (terminal-focus-reporting . [(20180830 719) ((emacs (24 4))) "Minor mode for terminal focus reporting." single ((:commit . "8b84bf18f4c5f1b59a11692eb706f13c3598d9a5") (:keywords "convenience") (:authors ("Vitalii Elenhaupt")) (:maintainer "Vitalii Elenhaupt") (:url . "https://github.com/veelenga/terminal-focus-reporting.el"))]) (termbright-theme . [(20151031 235) ((emacs (24 1))) "a more usable theme for white-on-black terminals" single ((:commit . "bec6ab14336c0611e85f45486276004f16d20607") (:keywords "themes") (:authors ("Brian Mastenbrook" . "brian@mastenbrook.net")) (:maintainer "Brian Mastenbrook" . "brian@mastenbrook.net") (:url . "https://github.com/bmastenbrook/termbright-theme-el"))]) (term-run . [(20151228 905) nil "Run arbitrary command in terminal buffer" single ((:commit . "bffd7b0183ca26645d191732092546eab7fca95e") (:keywords "utility" "shell" "command" "term-mode") (:authors ("10sr <8slashes+el [at] gmail [dot] com>")) (:maintainer "10sr <8slashes+el [at] gmail [dot] com>") (:url . "https://github.com/10sr/term-run-el"))]) (term-projectile . [(20170421 805) ((emacs (24)) (term-manager (0 1 0)) (projectile (0 13 0))) "projectile terminal management" single ((:commit . "13a0f1637a1f075d70211ccb8162e63a18a474da") (:keywords "projectile" "tools" "terminals" "vc") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://www.github.com/IvanMalison/term-manager"))]) (term-manager . [(20171020 841) ((dash (2 12 0)) (emacs (24 4))) "Contextual terminal management" tar ((:commit . "13a0f1637a1f075d70211ccb8162e63a18a474da") (:keywords "terminals" "tools") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://www.github.com/IvanMalison/term-manager"))]) (term-cmd . [(20160517 1045) ((emacs (24 0)) (dash (2 12 0)) (f (0 18 2))) "Send commands from programs running in term.el." tar ((:commit . "6c9cbc659b70241d2ed1601eea34aeeca0646dac"))]) (term-alert . [(20161119 945) ((emacs (24 0)) (term-cmd (1 1)) (alert (1 1)) (f (0 18 2))) "Notifications when commands complete in term.el." tar ((:commit . "47af9e6fe483ef0d393098c145f499362a33292a"))]) (term+mux . [(20140211 749) ((term+ (0 1)) (tab-group (0 1))) "term+ terminal multiplexer and session management" single ((:commit . "81b60e80cf008472bfd7fad9233af2ef722c208a") (:keywords "terminal" "emulation") (:authors ("INA Lintaro <tarao.gnn at gmail.com>")) (:maintainer "INA Lintaro <tarao.gnn at gmail.com>") (:url . "http://github.com/tarao/term+-el"))]) (term+key-intercept . [(20140211 750) ((term+ (0 1)) (key-intercept (0 1))) "term+ intercept key mapping" single ((:commit . "fd0771fd66b8c7a909aaac972194485c79ba48c4") (:keywords "terminal" "emulation") (:authors ("INA Lintaro <tarao.gnn at gmail.com>")) (:maintainer "INA Lintaro <tarao.gnn at gmail.com>") (:url . "http://github.com/tarao/term+-el"))]) (term+ . [(20170509 17) ((emacs (24)) (cl-lib (0 5))) "term-mode enhancement" tar ((:commit . "c3c9239b339c127231860de43abfa08c44c0201a") (:keywords "terminal" "emulation") (:authors ("INA Lintaro <tarao.gnn at gmail.com>")) (:maintainer "INA Lintaro <tarao.gnn at gmail.com>") (:url . "https://github.com/tarao/term-plus-el"))]) (ten-hundred-mode . [(20161028 2236) ((cl-lib (0 5))) "use only the ten hundred most usual words" tar ((:commit . "bdcfda49b1819e82d61fe90947e50bb948cf7933"))]) (temporary-persistent . [(20161210 1133) ((emacs (24 3)) (names (20151201 0)) (dash (2 12 1)) (s (1 10 0))) "Keep temp notes buffers persistent -*- lexical-binding: t" single ((:commit . "ac66f3054fc701d53f11ada9d2d9ab18ea481dc0") (:keywords "temp" "buffers" "notes") (:authors ("Kostafey" . "kostafey@gmail.com")) (:maintainer "Kostafey" . "kostafey@gmail.com") (:url . "https://github.com/kostafey/temporary-persistent"))]) (template-overlays . [(20180706 1132) ((emacs (24 4)) (ov (1 0 6))) "Display template regions using overlays" single ((:commit . "d32db58c044b2aca3720879003f55b1d57208b07") (:keywords "faces" "convenience" "templates" "overlays") (:authors ("Mariano Montone" . "marianomontone@gmail.com")) (:maintainer "Mariano Montone" . "marianomontone@gmail.com") (:url . "http://www.github.com/mmontone/template-overlays"))]) (telephone-line . [(20181120 455) ((emacs (24 4)) (cl-lib (0 5)) (cl-generic (0 2)) (seq (1 8))) "Rewrite of Powerline" tar ((:commit . "74068cd04a4a34095fe816ae71880ca271f2ea9e") (:keywords "mode-line") (:authors ("Daniel Bordak" . "dbordak@fastmail.fm")) (:maintainer "Daniel Bordak" . "dbordak@fastmail.fm") (:url . "https://github.com/dbordak/telephone-line"))]) (telepathy . [(20131209 1258) nil "Access Telepathy from Emacs" single ((:commit . "211d785b02a29ddc254422fdcc3db45262582f8c") (:keywords "telepathy" "tools") (:authors ("Nicolas Petton" . "petton.nicolas@gmail.com")) (:maintainer "Nicolas Petton" . "petton.nicolas@gmail.com"))]) (tea-time . [(20120331 820) nil "Simple timer package, useful to make perfect tea." single ((:commit . "1f6cf0bdd27c5eb3508989c5095427781f858eca") (:keywords "timer" "tea-time") (:authors ("konsty" . "antipin.konstantin@googlemail.com")) (:maintainer "Gabriel Saldana" . "gsaldana@gmail.com"))]) (tdd-status-mode-line . [(20131123 1716) nil "TDD status on the mode-line" single ((:commit . "4c082e62f4915b573338a97efcc6854d132323dc") (:keywords "faces" "tdd") (:authors ("Gergely Nagy" . "algernon@madhouse-project.org")) (:maintainer "Gergely Nagy" . "algernon@madhouse-project.org") (:url . "https://github.com/algernon/tdd-status-mode-line"))]) (tco . [(20160811 12) ((dash (1 2 0)) (emacs (24))) "tail-call optimisation for Emacs lisp" single ((:commit . "97529ed7a0939c51ce0084c0aa8b12b313654735") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (tc . [(20181109 428) nil "a Japanese input method with T-Code on Emacs" tar ((:commit . "5496f8dee27c4d925977da3cca6fcacf9b45bc58") (:authors ("Kaoru Maeda" . "maeda@src.ricoh.co.jp") ("Yasushi Saito" . "yasushi@cs.washington.edu") ("KITAJIMA Akira" . "kitajima@isc.osakac.ac.jp")) (:maintainer "KITAJIMA Akira"))]) (tbx2org . [(20140224 1559) ((dash (2 5 0)) (s (1 8 0)) (cl-lib (0 4))) "Tinderbox to org-mode conversion" single ((:commit . "08e9816ba6066f56936050b58d07ceb2187ae6f7") (:keywords "org-mode") (:authors ("istib")) (:maintainer "istib") (:url . "https://github.com/istib/tbx2org"))]) (tblui . [(20161007 1912) ((dash (2 12 1)) (magit-popup (2 6 0)) (tablist (0 70)) (cl-lib (0 5))) "Define tabulated list UI easily" single ((:commit . "bb29323bb3e27093d50cb42db3a9329a096b6e4d") (:authors ("Yuki Inoue <inouetakahiroki _at_ gmail.com>")) (:maintainer "Yuki Inoue <inouetakahiroki _at_ gmail.com>") (:url . "https://github.com/Yuki-Inoue/tblui.el"))]) (tawny-mode . [(20170422 2202) ((cider (0 12)) (emacs (25))) "Ontology Editing with Tawny-OWL" single ((:commit . "d768cce65891f11cd2f96aff54b76e5bb07cc649") (:authors ("Phillip Lord" . "phillip.lord@newcastle.ac.uk")) (:maintainer "Phillip Lord" . "phillip.lord@newcastle.ac.uk"))]) (taskpaper-mode . [(20181113 931) nil "Major mode for working with TaskPaper files" single ((:commit . "91a8a3ebbc3d8f067fcbe88933bc208518760013") (:keywords "outlines" "notetaking" "task management" "productivity" "taskpaper") (:authors ("Dmitry Safronov" . "saf.dmitry@gmail.com")) (:maintainer "Dmitry Safronov" . "saf.dmitry@gmail.com") (:url . "https://github.com/saf-dmitry/taskpaper-mode"))]) (tao-theme . [(20181020 1726) nil "This package provides two parametrized uncoloured color themes for Emacs: tao-yin and tao-yang." tar ((:commit . "c10ba53dad8aa3625191184a56c34ed456561771"))]) (tangotango-theme . [(20170924 1509) nil "Tango Palette color theme for Emacs 24." single ((:commit . "e2f2ea9c35f06dfc43a29c91c14cf0cdb19f2144") (:keywords "tango" "palette" "color" "theme" "emacs") (:authors ("Julien Barnier")) (:maintainer "Julien Barnier") (:url . "https://github.com/juba/color-theme-tangotango"))]) (tango-plus-theme . [(20170214 1708) nil "A color theme based on the tango palette" single ((:commit . "8ba8901397e3e9f1d53110487bfa0effc65015e7") (:authors ("Titus von der Malsburg" . "malsburg@posteo.de")) (:maintainer "Titus von der Malsburg" . "malsburg@posteo.de") (:url . "https://github.com/tmalsburg/tango-plus-theme"))]) (tango-2-theme . [(20120312 2025) nil "Tango 2 color theme for GNU Emacs 24" single ((:commit . "64e44c98e41ebbe3b827d54280e3b9615787daaa") (:authors ("Nick Parker")) (:maintainer "Nick Parker"))]) (take-off . [(20140531 917) ((emacs (24 3)) (web-server (0 1 0))) "Emacs remote web access" tar ((:commit . "aa9ea45566fc74febbb6ee9c409ecc4b59246215") (:authors ("Thomas Burette" . "burettethomas@gmail.com")) (:maintainer "Thomas Burette" . "burettethomas@gmail.com") (:url . "https://github.com/tburette/take-off"))]) (tagedit . [(20161121 855) ((s (1 3 1)) (dash (1 0 3))) "Some paredit-like features for html-mode" single ((:commit . "b3a70101a0dcf85498c92b7fcfa7fdbac869746c") (:keywords "convenience") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (tabula-rasa . [(20141216 547) ((emacs (24 4))) "Distraction free writing mode" single ((:commit . "e85fff9de18dc31bc6a7aca726e34a95cc5459f5") (:keywords "distraction free" "writing") (:authors ("Ido Magal" . "misc@satans.church")) (:maintainer "Ido Magal" . "misc@satans.church") (:url . "https://github.com/idomagal/Tabula-Rasa/blob/master/tabula-rasa.el"))]) (tablist . [(20170220 335) ((emacs (24 3))) "Extended tabulated-list-mode" tar ((:commit . "c834a84efb6efa32497efe1e73160fade741b836") (:keywords "extensions" "lisp") (:authors ("Andreas Politz" . "politza@fh-trier.de")) (:maintainer "Andreas Politz" . "politza@fh-trier.de"))]) (tabbar-ruler . [(20160802 307) ((tabbar (2 0 1)) (powerline (2 3)) (mode-icons (0 4 0)) (cl-lib (0 5))) "Pretty tabbar, autohide, use both tabbar/ruler" tar ((:commit . "535568189aa12a3eff7f977d2783e57b6a65ab6a") (:keywords "tabbar" "ruler mode" "menu" "tool bar.") (:authors ("Matthew Fidler, Ta Quang Trung, Nathaniel Cunningham")) (:maintainer "Matthew L. Fidler") (:url . "http://github.com/mlf176f2/tabbar-ruler.el"))]) (tabbar . [(20180726 1735) nil "Display a tab bar in the header line" tar ((:commit . "82bbda31cbe8ef367dd6501c3aa14b7f2c835910") (:keywords "convenience") (:authors ("David Ponce" . "david@dponce.com")) (:maintainer "David Ponce" . "david@dponce.com"))]) (tab-jump-out . [(20151006 130) ((dash (2 10)) (emacs (24 4))) "Use tab to jump out of delimiter pairs." single ((:commit . "1c3fec1826d2891177ea78e4e7cce1dc67e83e51") (:keywords "tab" "editing") (:authors ("Zhang Kai Yu" . "yeannylam@gmail.com")) (:maintainer "Zhang Kai Yu" . "yeannylam@gmail.com"))]) (tab-group . [(20140306 1450) nil "Grouped tabs and their tabbar" single ((:commit . "5a290ec2608e4100fb188fd60ecb77affcc3465b") (:keywords "convenience" "tabs") (:authors ("INA Lintaro <tarao.gnn at gmail.com>")) (:maintainer "INA Lintaro <tarao.gnn at gmail.com>") (:url . "http://github.com/tarao/tab-group-el"))]) (ta . [(20160619 1645) ((emacs (24 3)) (cl-lib (0 5))) "A tool to deal with Chinese homophonic characters" single ((:commit . "668ad41e71f374f8c32c8d0532f3d8485b355d35") (:keywords "tools") (:authors ("kuanyui" . "azazabc123@gmail.com")) (:maintainer "kuanyui" . "azazabc123@gmail.com") (:url . "http://github.com/kuanyui/ta.el"))]) (systemtap-mode . [(20151122 1940) nil "A mode for SystemTap" single ((:commit . "1a968c2b1f3a054bebf91ac49739d3a81ce050a9") (:keywords "tools" "languages") (:maintainer nil . "ruediger@c-plusplus.de") (:url . "https://github.com/ruediger/systemtap-mode"))]) (systemd . [(20180629 2106) ((emacs (24 4))) "Major mode for editing systemd units" tar ((:commit . "401d71c2dd24e424216ae5e4275c830f2a9c6b0c") (:keywords "tools" "unix") (:authors ("Mark Oteiza" . "mvoteiza@udel.edu")) (:maintainer "Mark Oteiza" . "mvoteiza@udel.edu"))]) (system-specific-settings . [(20140818 1457) nil "Apply settings only on certain systems" single ((:commit . "0050d85b2175095aa5ecf580a2fe43c069b0eef3") (:keywords "configuration") (:authors ("Ryan C. Thompson")) (:maintainer "Ryan C. Thompson") (:url . "https://github.com/DarwinAwardWinner/emacs-system-specific-settings"))]) (system-packages . [(20181119 2310) ((emacs (24 3))) "functions to manage system packages" single ((:commit . "2e38329f92832642a3401e67d3d8ec56cbf287fa") (:authors ("J. Alexander Branham" . "branham@utexas.edu")) (:maintainer "J. Alexander Branham" . "branham@utexas.edu") (:url . "https://gitlab.com/jabranham/system-packages"))]) (syntax-subword . [(20160519 1905) nil "make operations on words more fine-grained" single ((:authors ("Jonathan Kotta" . "jpkotta@gmail.com")) (:maintainer "Jonathan Kotta" . "jpkotta@gmail.com"))]) (syntactic-sugar . [(20140508 2041) nil "Effect-free forms such as if/then/else" single ((:commit . "7ddc4502c831abe1c4ad4c7d1ca628a2c9e13968") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/syntactic-sugar"))]) (syntactic-close . [(20181026 1631) ((emacs (24)) (cl-lib (0 5))) "Insert closing delimiter" single ((:commit . "426975d73c474eb4e6a0af20f34455aac6e89610") (:keywords "languages" "convenience") (:authors ("Emacs User Group Berlin" . "emacs-berlin@emacs-berlin.org")) (:maintainer "Emacs User Group Berlin" . "emacs-berlin@emacs-berlin.org") (:url . "https://github.com/emacs-berlin/syntactic-close"))]) (synquid . [(20160930 1550) ((flycheck (27)) (emacs (24 3))) "Major mode for editing Synquid files" single ((:commit . "28701ce1a15437202f53ab93a14bcba1de83fd2c") (:keywords "languages") (:authors ("Clément Pit-Claudel" . "clement.pitclaudel@live.com")) (:maintainer "Clément Pit-Claudel" . "clement.pitclaudel@live.com") (:url . "https://github.com/cpitclaudel/synquid-mode"))]) (synosaurus . [(20180125 1834) ((cl-lib (0 5))) "An extensible thesaurus supporting lookup and substitution." tar ((:commit . "8bf95b935976ec0a1964cf175ed57cc5f6f93bdb") (:url . "https://github.com/hpdeifel/synosaurus"))]) (synonymous . [(20180325 1817) ((emacs (24)) (cl-lib (0 5)) (request (0 2 0))) "A thesaurus at your fingertips" single ((:commit . "2cb9a674d84fddf3f1b00c9d6b13a853576acb87") (:keywords "utility") (:authors ("Katherine Whitlock" . "toroidalcode@gmail.com") ("Snippets adapted from FlySpell, authored by Manuel Serrano" . "Manuel.Serrano@inria.fr")) (:maintainer "Katherine Whitlock" . "toroidalcode@gmail.com") (:url . "http://github.com/toroidal-code/synonymous.el"))]) (syndicate . [(20160603 1523) ((evil (1 0))) "evil keybindings for org-mode" single ((:commit . "90cee202a06f5bab48268ebf9f62c43334b69f50") (:keywords "evil" "org" "bindings") (:authors ("Kawin Nikomborirak")) (:maintainer "Kawin Nikomborirak") (:url . "https://github.com/KNX32542/syndicate.git"))]) (sync-recentf . [(20160326 2001) nil "Synchronize the recent files list between Emacs instances" single ((:commit . "0052561d5c5b5c2684faedc3eead776aec06c3ed") (:keywords "recentf") (:authors ("François Févotte" . "fevotte@gmail.com")) (:maintainer "François Févotte" . "fevotte@gmail.com") (:url . "https://github.com/ffevotte/sync-recentf"))]) (symon-lingr . [(20150719 1342) ((symon (1 1 2)) (cl-lib (0 5))) "A notification-based Lingr client powered by symon.el" single ((:commit . "056d1a473e36992ff5881e5ce6fdc331cead975f") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (symon . [(20170224 833) nil "tiny graphical system monitor" single ((:commit . "8dd8b6df49b03cd7d31b85aedbe9dd08fb922335") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (symbolword-mode . [(20180401 1427) ((emacs (24)) (f (0 19 0))) "modify word split" single ((:commit . "3857c42696e20f49f274ff8bc45a6f3ee26884d4") (:authors ("ncaq" . "ncaq@ncaq.net")) (:maintainer "ncaq" . "ncaq@ncaq.net") (:url . "https://github.com/ncaq/symbolword-mode"))]) (symbol-overlay . [(20181112 818) ((emacs (24 3))) "Highlight symbols with keymap-enabled overlays" single ((:commit . "831506ee124f357d5bd4d213b9dea2d0e7ac1287") (:keywords "faces" "matching") (:authors ("wolray" . "wolray@foxmail.com")) (:maintainer "wolray" . "wolray@foxmail.com") (:url . "https://github.com/wolray/symbol-overlay/"))]) (sx . [(20180606 736) ((emacs (24 1)) (cl-lib (0 5)) (json (1 3)) (markdown-mode (2 0)) (let-alist (1 0 3))) "StackExchange client. Ask and answer questions on Stack Overflow, Super User, and the likes" tar ((:commit . "a214f46b15eb29eaf02abdd4ddc2f90c3925d15f") (:keywords "help" "hypermedia" "tools") (:authors ("Sean Allred" . "code@seanallred.com")) (:maintainer "Sean Allred" . "code@seanallred.com") (:url . "https://github.com/vermiculus/sx.el/"))]) (sws-mode . [(20150317 1945) nil "(S)ignificant (W)hite(S)pace mode" single ((:commit . "4dbde92542fc7ad61df38776980905a4721d642e") (:authors ("Brian M. Carlson and other contributors")) (:maintainer "Brian M. Carlson and other contributors") (:url . "https://github.com/brianc/jade-mode"))]) (swoop . [(20160120 1715) ((ht (2 0)) (pcre2el (1 5)) (async (1 1)) (emacs (24))) "Peculiar buffer navigation for Emacs" tar ((:commit . "a5e475db7a9f5db02ba3d08cd3c1c3594e2e01d7") (:keywords "swoop" "inner" "buffer" "search" "navigation") (:authors ("Shingo Fukuyama - http://fukuyama.co")) (:maintainer "Shingo Fukuyama - http://fukuyama.co") (:url . "https://github.com/ShingoFukuyama/emacs-swoop"))]) (switch-window . [(20181104 340) ((emacs (24))) "A *visual* way to switch window" tar ((:commit . "204f9fc1a39868a2d16ab9370a142c8c9c7a0943") (:keywords "convenience") (:authors ("Dimitri Fontaine" . "dim@tapoueh.org") ("Feng Shu" . "tumashu@163.com")) (:maintainer "Dimitri Fontaine" . "dim@tapoueh.org") (:url . "https://github.com/dimitri/switch-window"))]) (switch-buffer-functions . [(20171011 1704) nil "Hook run when current buffer changed" single ((:commit . "651696ef9dec7affbe51c81d9318288376c35899") (:keywords "hook" "utility") (:authors ("10sr <8slashes+el [at] gmail [dot] com>")) (:maintainer "10sr <8slashes+el [at] gmail [dot] com>") (:url . "https://github.com/10sr/switch-buffer-functions-el"))]) (swiper-helm . [(20180131 1744) ((emacs (24 1)) (swiper (0 1 0)) (helm (1 5 3))) "Helm version of Swiper." single ((:commit . "93fb6db87bc6a5967898b5fd3286954cc72a0008") (:keywords "matching") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/swiper-helm"))]) (swiper . [(20181118 1535) ((emacs (24 1)) (ivy (0 9 0))) "Isearch with an overview. Oh, man!" single ((:commit . "c1c1ec7cb9c99c50424416a143747f64e3083552") (:keywords "matching") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/swiper"))]) (swift3-mode . [(20160918 1250) ((emacs (24 4))) "Major-mode for Apple's Swift programming language." tar ((:commit . "4e51265c6905e17d8910e35b0b37cf51e20ecdfe") (:keywords "languages" "swift") (:url . "https://github.com/taku0/swift3-mode"))]) (swift-mode . [(20181117 1202) ((emacs (24 4)) (seq (2 3))) "Major-mode for Apple's Swift programming language." tar ((:commit . "55ce4e53f856626938b50f014c5f82947a628d6a") (:keywords "languages" "swift") (:url . "https://github.com/swift-emacs/swift-mode"))]) (sweetgreen . [(20180605 335) ((dash (2 12 1)) (helm (1 5 6)) (request (0 2 0)) (cl-lib (0 5))) "Order Salads from sweetgreen.com" single ((:commit . "e933fe466b5ef0e976967e203f88bd7a012469d1") (:keywords "salad" "food" "sweetgreen" "request") (:authors ("Diego Berrocal" . "cestdiego@gmail.com")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "https://www.github.com/CestDiego/sweetgreen.el"))]) (swap-regions . [(20180915 1346) ((emacs (24 3))) "Swap text in two regions" single ((:commit . "f4fd9880cf690e003fcde88dcf2b46adbbbb03cd") (:keywords "convenience") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/swap-regions.el"))]) (swap-buffers . [(20150506 2139) nil "The quickest way to swap buffers between windows. Based on switch-window package." single ((:commit . "46ab31359b70d935add6c6e9533443116dc51103") (:keywords "window" "swap" "buffer" "exchange") (:authors ("Evgeniy Kazakov" . "evgeniy.kazakov@gmail.com")) (:maintainer "Evgeniy Kazakov" . "evgeniy.kazakov@gmail.com") (:url . "https://github.com/ekazakov/swap-buffers"))]) (swagger-to-org . [(20160611 56) ((emacs (24)) (cl-lib (0 5)) (json (1 4))) "Convert a swagger.json file into an org-mode file" single ((:commit . "181357c71ea24bede263f5706d8781ad65e16877") (:keywords "ahungry" "emacs" "swagger" "openapi" "orgmode" "org" "export") (:authors ("Matthew Carter" . "m@ahungry.com")) (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/swagger-to-org"))]) (svnwrapper . [(20180414 1843) ((e2ansi (0 1 1))) "Highlighting and paging for shell command `svn'" tar ((:commit . "de5069f5784e5d9e87a0af0159ba5f28a3716583") (:keywords "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/svnwrapper"))]) (svg-mode-line-themes . [(20150425 2006) ((xmlgen (0 4))) "SVG-based themes for mode-line" tar ((:commit . "80a0e01839cafbd66899202e7764c33231974259") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/svg-mode-line-themes"))]) (suscolors-theme . [(20161109 2015) nil "Colorful theme, inspired by Gruvbox." single ((:commit . "b946e7924aa02fa7441c970026898f17fe97601f") (:url . "https://github.com/TheSuspiciousWombat/SusColors-emacs"))]) (supergenpass . [(20130329 548) nil "SuperGenPass for Emacs" single ((:commit . "549072ef7b5b82913cadd4758e8a0a9926f0a04a") (:keywords "supergenpass") (:authors ("Jaime Fournier" . "jaimef@linbsd.org")) (:maintainer "Jaime Fournier" . "jaimef@linbsd.org"))]) (super-save . [(20180929 727) ((emacs (24 4))) "Auto-save buffers, based on your activity." single ((:commit . "2a905b8bdfc93bee16e2d62a61c6211bbe009331") (:keywords "convenience") (:authors ("Bozhidar Batsov" . "bozhidar@batsov.com")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "https://github.com/bbatsov/super-save"))]) (suomalainen-kalenteri . [(20170801 826) nil "Finnish national and Christian holidays for calendar" tar ((:commit . "c702e33cb6e13cb28bd761844e95be112a3c04f3"))]) (sunshine . [(20181029 1654) ((cl-lib (0 5))) "Provide weather and forecast information." single ((:commit . "8959dea03377e61aaca0124ac8d2703daaae6b9a") (:keywords "tools" "weather") (:authors ("Aaron Bieber" . "aaron@aaronbieber.com")) (:maintainer "Aaron Bieber" . "aaron@aaronbieber.com") (:url . "https://github.com/aaronbieber/sunshine.el"))]) (sunny-day-theme . [(20140413 2125) nil "Emacs24 theme with a light background." single ((:commit . "420e0a6eb33fcc9b75c2c9e88ab60a975d782a00") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler") (:url . "http://github.com/mswift42/sunny-day-theme"))]) (sunburn-theme . [(20180602 1929) ((emacs (24))) "A low contrast color theme" single ((:commit . "ddb01b6f1f4f823398f7f8e08900c2b4a7811d3b") (:authors ("Martín Varela" . "martin@varela.fi")) (:maintainer "Martín Varela" . "martin@varela.fi") (:url . "http://github.com/mvarela/Sunburn-Theme"))]) (suggestion-box . [(20170830 807) ((emacs (25 1)) (popup (0 5 3))) "show tooltip on the cursor" single ((:commit . "50af0776c8caf3c79c4d37fd51cbf304ea34b68e") (:keywords "convenience") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>"))]) (suggest . [(20180916 1859) ((emacs (24 4)) (loop (1 3)) (dash (2 13 0)) (s (1 11 0)) (f (0 18 2)) (spinner (1 7 3))) "suggest elisp functions that give the output requested" tar ((:commit . "83a2679baf661ee834e9e75921fd546243a6d919") (:keywords "convenience") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk") (:url . "https://github.com/Wilfred/suggest.el"))]) (sudoku . [(20161111 706) ((emacs (24 4))) "Simple sudoku game, can download puzzles" single ((:commit . "77c11b5041b58fc943cf1668b44b40bae039cb5b") (:keywords "games") (:authors ("Zajcev Evgeny" . "zevlg@yandex.ru")) (:maintainer "Zajcev Evgeny" . "zevlg@yandex.ru"))]) (sudo-ext . [(20170126 1214) nil "sudo support" single ((:commit . "9d4580f304121ce7b8104bd4bd3b64e4dfa3c9b3") (:keywords "unix") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/sudo-ext.el"))]) (sudo-edit . [(20180731 1908) ((emacs (24)) (cl-lib (0 5))) "Open files as another user" single ((:commit . "cc3d478937b1accd38742bfceba92af02ee9357d") (:keywords "convenience") (:authors ("Nathaniel Flath" . "flat0103@gmail.com")) (:maintainer "Nathaniel Flath" . "flat0103@gmail.com") (:url . "https://github.com/nflath/sudo-edit"))]) (sudden-death . [(20180217 23) nil "Totsuzen-no-Shi" single ((:commit . "791a63d3f4df192e71f4232a9a4c5588f4b43dfb") (:authors ("yewton")) (:maintainer "yewton") (:url . "https://github.com/yewton/sudden-death.el"))]) (sublimity . [(20170820 1527) ((cl-lib (0 3))) "smooth-scrolling, minimap and distraction-free mode" tar ((:commit . "62b0c526c599a0178a16a75f16513fc1f93a0d53") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "https://github.com/zk-phi/sublimity"))]) (sublime-themes . [(20170606 1844) nil "A collection of themes based on Sublime Text" tar ((:commit . "60ee40af82eb55b79d5ed4026f1911326311603f") (:keywords "faces") (:authors ("Owain Lewis" . "owain@owainlewis.com")) (:maintainer "Owain Lewis" . "owain@owainlewis.com"))]) (subemacs . [(20170401 934) nil "Evaluating expressions in a fresh Emacs subprocess" single ((:commit . "18d53939fec8968c08dfc5aff7240ca07efb1aac") (:keywords "extensions" "lisp" "multiprocessing") (:authors ("Klaus-Dieter Bauer" . "bauer.klaus.dieter@gmail.com")) (:maintainer "Klaus-Dieter Bauer" . "bauer.klaus.dieter@gmail.com") (:url . "https://github.com/kbauer/subemacs"))]) (subatomic256-theme . [(20130621 210) nil "Fork of subatomic-theme for terminals." single ((:commit . "326177d6f99cd2b1d30df695e67ee3bc441cd96f") (:authors ("John Olsson" . "john@cryon.se")) (:maintainer "John Olsson" . "john@cryon.se") (:url . "https://github.com/cryon/subatomic256"))]) (subatomic-theme . [(20160126 1538) nil "Low contrast bluish color theme" single ((:commit . "6a4086af748b1ecb27f6ba2aa2614988db16d594") (:keywords "color-theme" "blue" "low contrast") (:authors ("John Olsson" . "john@cryon.se")) (:maintainer "John Olsson" . "john@cryon.se") (:url . "https://github.com/cryon/subatomic"))]) (stylus-mode . [(20150313 1512) ((sws-mode (0))) "Major mode for editing .jade files" single ((:commit . "4dbde92542fc7ad61df38776980905a4721d642e") (:authors ("Brian M. Carlson and other contributors")) (:maintainer "Brian M. Carlson and other contributors") (:url . "https://github.com/brianc/jade-mode"))]) (stylefmt . [(20161025 824) nil "Stylefmt interface" single ((:commit . "7a38f26bf8ff947215f34f0a064c7ca80575ccbc") (:keywords "style" "code" "formatter") (:authors ("κeen")) (:maintainer "κeen") (:url . "https://github.com/KeenS/stylefmt.el"))]) (stupid-indent-mode . [(20170525 1117) nil "Plain stupid indentation minor mode" single ((:commit . "3295e7de5e2cfddc3bf0e462e852bf58972f5d70") (:authors ("Mihai Bazon" . "mihai.bazon@gmail.com")) (:maintainer "Mihai Bazon" . "mihai.bazon@gmail.com"))]) (stumpwm-mode . [(20140131 216) nil "special lisp mode for evaluating code into running stumpwm" single ((:commit . "61a7cf27e49e0779a53c018b2342f5f1c5cc70b4") (:keywords "comm" "lisp" "tools") (:maintainer "Shawn Betts"))]) (stripe-buffer . [(20141208 1508) ((cl-lib (1 0))) "Use a different background for even and odd lines" single ((:commit . "c252080f55cb78c951b19ebab9687f6d00237baf") (:authors ("Andy Stewart" . "lazycat.manatee@gmail.com")) (:maintainer "sabof" . "esabof@gmail.com") (:url . "https://github.com/sabof/stripe-buffer"))]) (string-utils . [(20140508 2041) ((list-utils (0 4 2))) "String-manipulation utilities" single ((:commit . "c2232d691617973ecf12a970c6008a161c21da14") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/string-utils"))]) (string-inflection . [(20180827 1301) nil "underscore -> UPCASE -> CamelCase -> lowerCamelCase conversion of names" single ((:commit . "e9a50855a4c718592c28a5a892f164ecf46e39a8") (:keywords "elisp") (:authors ("akicho8" . "akicho8@gmail.com")) (:maintainer "akicho8" . "akicho8@gmail.com"))]) (string-edit . [(20160411 656) ((dash (1 2 0))) "Avoid escape nightmares by editing string in separate buffer" single ((:commit . "c44b65b4c5e9f52be9c14d88ca2f402a18d9e1dd") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (strie . [(20160211 2222) ((cl-lib (0 5))) "A simple trie data structure implementation" single ((:commit . "eb7efb0cccc127c414f6a64db11454869d9c10a8") (:authors ("James Atwood" . "jatwood@cs.umass.edu")) (:maintainer "James Atwood" . "jatwood@cs.umass.edu"))]) (strace-mode . [(20171116 2039) nil "strace output syntax highlighting" single ((:commit . "2901baa968d5180ab985ac40ca22cc20914d01f5") (:keywords "languages") (:authors ("Preston Moore" . "prestonkmoore@gmail.com")) (:maintainer "Preston Moore" . "prestonkmoore@gmail.com"))]) (stock-ticker . [(20150204 1052) ((s (1 9 0)) (request (0 2 0))) "Show stock prices in mode line" single ((:commit . "f2e564142c9de84232839a5b01979cf95b04d6a9") (:keywords "comms") (:authors ("Gunther Hagleitner")) (:maintainer "Gunther Hagleitner") (:url . "https://github.com/hagleitn/stock-ticker"))]) (stickyfunc-enhance . [(20150429 1814) ((emacs (24 3))) "An enhancement to stock `semantic-stickyfunc-mode'" single ((:commit . "13bdba51fcd83ccbc3267959d23afc94d458dcb0") (:keywords "c" "languages" "tools") (:authors ("Tu, Do Hoang" . "tuhdo1710@gmail.com")) (:maintainer "Tu, Do Hoang") (:url . "https://github.com/tuhdo/semantic-stickyfunc-enhance"))]) (sticky . [(20170926 36) nil "Sticky key for capital letters" single ((:commit . "fec4e1af38f17f5cd80eca361d8e8ef8772db366") (:keywords "convenience") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/sticky.el"))]) (stgit . [(20171130 1559) nil "major mode for StGit interaction" single ((:commit . "14d6631b354dd10fa0ffc3441473ce2d33bb24db") (:authors ("David Kågedal" . "davidk@lysator.liu.se")) (:maintainer "David Kågedal" . "davidk@lysator.liu.se") (:url . "http://www.procode.org/stgit"))]) (stem-english . [(20180109 358) ((emacs (24 3))) "- routines for stemming English word" single ((:commit . "c9fc4c6ed6bf82382e479dae80912f4ae17d31f4") (:keywords "text") (:authors ("Tsuchiya Masatoshi" . "tsuchiya@pine.kuee.kyoto-u.ac.jp")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "http://github.com/kawabata/stem-english"))]) (stem . [(20131102 1109) nil "Routines for stemming" single ((:commit . "d74e6611d6ba5025e0276a2cc7c8a90f46bfa9ac") (:keywords "stemming") (:authors ("Tsuchiya Masatoshi" . "tsuchiya@pine.kuee.kyoto-u.ac.jp")) (:maintainer "Tsuchiya Masatoshi" . "tsuchiya@pine.kuee.kyoto-u.ac.jp") (:url . "https://github.com/yuutayamada/stem"))]) (steam . [(20171109 13) ((cl-lib (0 5))) "Organize and launch Steam games" single ((:commit . "d6ca2a828b0824da51978397e198bf91c51ce793") (:keywords "games") (:authors ("Erik Sjöstrand")) (:maintainer "Erik Sjöstrand") (:url . "http://github.com/Kungsgeten/steam.el"))]) (status . [(20151230 1408) nil "This package adds support for status icons to Emacs." tar ((:commit . "b62c74bf272566f82a68622f29fb9edafea0f241"))]) (state . [(20180627 1956) ((emacs (24))) "Quick navigation between workspaces" single ((:commit . "258fe1cba00bdc2c600f866bb0406c719661d0a6") (:keywords "convenience" "workspaces") (:authors ("Sylvain Rousseau <thisirs at gmail dot com>")) (:maintainer "Sylvain Rousseau <thisirs at gmail dot com>") (:url . "https://github.com/thisirs/state.git"))]) (stash . [(20151117 1427) nil "lightweight persistent caching" single ((:commit . "c2e494d20c752b80ebbdffbf66687b3cdfc425ad") (:keywords "extensions" "data" "internal" "lisp") (:authors ("Sean Allred" . "code@seanallred.com")) (:maintainer "Sean Allred" . "code@seanallred.com") (:url . "https://www.github.com/vermiculus/stash.el/"))]) (start-menu . [(20160426 1225) ((cl-lib (0 5)) (config-parser (0 1))) "start-menu for executing external program like in windows" single ((:commit . "f7d33fed7ad2dc61156f1c1cff9e1805366fbd69") (:keywords "convenience" "menu") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/el-start-menu"))]) (standoff-mode . [(20171115 1731) nil "Create stand-off markup, also called external markup." tar ((:commit . "cf84b14066d63694d931395c6026fd0245d8a62b"))]) (stan-snippets . [(20161024 258) ((stan-mode (9 2 0)) (yasnippet (0 8 0))) "Yasnippets for Stan" tar ((:commit . "a8e88473ef996b455523dc3fbcf2d8520659652f") (:keywords "snippets") (:authors ("Jeffrey Arnold" . "jeffrey.arnold@gmail.com")) (:maintainer "Jeffrey Arnold" . "jeffrey.arnold@gmail.com") (:url . "http://github.com/stan-dev/stan-mode"))]) (stan-mode . [(20180110 2241) nil "Major mode for editing Stan files" tar ((:commit . "a8e88473ef996b455523dc3fbcf2d8520659652f") (:keywords "languanges") (:authors ("Jeffrey Arnold" . "jeffrey.arnold@gmail.com") ("Daniel Lee" . "bearlee@alum.mit.edu")) (:maintainer "Jeffrey Arnold" . "jeffrey.arnold@gmail.com") (:url . "http://github.com/stan-dev/stan-mode"))]) (stack-mode . [(20150923 1523) ((haskell-mode (13 14)) (cl-lib (0 5)) (flycheck (0 23))) "A minor mode enabling various features based on stack-ide." tar ((:commit . "f3481e239dde9817152ec00e32bfc3ebf5aaf2cb") (:keywords "haskell" "stack") (:url . "https://github.com/commercialhaskell/stack-ide"))]) (ssh-tunnels . [(20180703 2027) ((cl-lib (0 5)) (emacs (24))) "Manage SSH tunnels" single ((:commit . "a6b6ae9a5d17afa9ea39ca8c071e889deefcf8a3") (:keywords "tools" "convenience") (:authors ("death <github.com/death>")) (:maintainer "death <github.com/death>") (:url . "http://github.com/death/ssh-tunnels"))]) (ssh-deploy . [(20181106 1347) ((emacs (24))) "Deployment via TRAMP, global or per directory." tar ((:commit . "88300e389e69f08d1511bcd8f185e608c9f6fddf") (:keywords "tools" "convenience") (:authors ("Christian Johansson" . "christian@cvj.se")) (:maintainer "Christian Johansson" . "christian@cvj.se") (:url . "https://github.com/cjohansson/emacs-ssh-deploy"))]) (ssh-config-mode . [(20180922 951) nil "Mode for fontification of ~/.ssh/config" tar ((:commit . "1ec676c021269c7b9cf814cf1d12f6acdcc25588") (:keywords "ssh" "config" "emacs") (:authors ("Harley Gorrell" . "harley@panix.com")) (:maintainer "Harley Gorrell" . "harley@panix.com") (:url . "https://github.com/jhgorrell/ssh-config-mode-el"))]) (ssh-agency . [(20180508 26) ((emacs (24 4)) (dash (2 10 0))) "manage ssh-agent from Emacs" single ((:commit . "d9dbedd773ad3a831e02e162c47936d6814a850a") (:authors ("Noam Postavsky" . "npostavs@user.sourceforge.net")) (:maintainer "Noam Postavsky" . "npostavs@user.sourceforge.net") (:url . "https://github.com/magit/ssh-agency"))]) (ssh . [(20120904 2042) nil "Support for remote logins using ssh." single ((:commit . "c17cf5b43df8ac4662a0580f85898e1f078df0d1") (:keywords "unix" "comm") (:authors ("Noah Friedman" . "friedman@splode.com")) (:maintainer "Ian Eure" . "ian.eure@gmail.com"))]) (ssass-mode . [(20180428 2039) ((emacs (24 3))) "Edit Sass without a Turing Machine" single ((:commit . "da82ebb2aa7e4999c23547270d2b0b2cd9311a47") (:keywords "languages" "sass") (:authors ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainer "Adam Niederer" . "adam.niederer@gmail.com") (:url . "http://github.com/AdamNiederer/ssass-mode"))]) (srv . [(20180715 1959) ((emacs (24 3))) "perform SRV DNS requests" single ((:commit . "714387d5a5cf34d8d8cd96bdb1f9cb8ded823ff7") (:keywords "comm") (:authors ("Magnus Henoch" . "magnus.henoch@gmail.com")) (:maintainer "Magnus Henoch" . "magnus.henoch@gmail.com") (:url . "https://github.com/legoscia/srv.el"))]) (srefactor . [(20180703 1810) ((emacs (24 4))) "A refactoring tool based on Semantic parser framework" tar ((:commit . "6f2c97d17fb70f4ca2112f5a2b99a8ec162004f5") (:keywords "c" "languages" "tools") (:authors ("Tu, Do Hoang" . "tuhdo1710@gmail.com")) (:maintainer "Tu, Do Hoang") (:url . "https://github.com/tuhdo/semantic-refactor"))]) (srcery-theme . [(20181120 1554) ((emacs (24))) "Dark color theme." single ((:commit . "de92c78ee3d17a93f2105687cd99be35fb9150ad") (:keywords "faces") (:authors ("Daniel Berg")) (:maintainer "Daniel Berg") (:url . "https://github.com/srcery-colors/srcery-emacs"))]) (sr-speedbar . [(20161025 831) nil "Same frame speedbar" single ((:commit . "77a83fb50f763a465c021eca7343243f465b4a47") (:keywords "speedbar" "sr-speedbar.el") (:authors ("Sebastian Rose" . "sebastian_rose@gmx.de")) (:maintainer "Sebastian Rose" . "sebastian_rose@gmx.de") (:url . "http://www.emacswiki.org/emacs/download/sr-speedbar.el"))]) (sqlup-mode . [(20170610 1537) nil "Upcase SQL words for you" single ((:commit . "04970977b4abb4d44301651618bbf1cdb0b263dd") (:keywords "sql" "tools" "redis" "upcase") (:authors ("Aldric Giacomoni" . "trevoke@gmail.com")) (:maintainer "Aldric Giacomoni" . "trevoke@gmail.com") (:url . "https://github.com/trevoke/sqlup-mode.el"))]) (sqlite . [(20180708 1711) nil "use sqlite via elisp" single ((:commit . "dad42b8bbca4994be1871343dd18fd6528ee5797") (:authors ("Christian Giménez")) (:maintainer "Christian Giménez"))]) (sqlformat . [(20181019 159) ((emacs (24))) "Reformat SQL using sqlformat or pgformatter" single ((:commit . "c7802edf4adb68d7a7a9db14a6b42c03f0a3da2d") (:keywords "languages") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (sql-impala . [(20160427 2358) nil "comint support for Cloudera Impala" single ((:commit . "e7a2d79d60b0a6339d730fc39ca024c3d6c56de7") (:keywords "sql" "impala") (:authors ("Jason Terk" . "jason@goterkyourself.com")) (:maintainer "Jason Terk" . "jason@goterkyourself.com") (:url . "https://github.com/jterk/sql-impala"))]) (sql-clickhouse . [(20180302 1555) ((emacs (24))) "support ClickHouse as SQL interpreter" single ((:commit . "2edccd94145c55a040a3a87193793f06cf01f64f") (:authors ("Robert Schwarz" . "mail@rschwarz.net")) (:maintainer "Robert Schwarz" . "mail@rschwarz.net") (:url . "https://github.com/leethargo/sql-clickhouse"))]) (spu . [(20161214 324) ((emacs (24 4)) (signal (1 0)) (timp (1 2 0))) "Silently upgrade package in the background" tar ((:commit . "41eec86b595816e3852e8ad1a8e07e51a27fd065") (:keywords "convenience" "package") (:authors ("Mola-T" . "Mola@molamola.xyz")) (:maintainer "Mola-T" . "Mola@molamola.xyz") (:url . "https://github.com/mola-T/spu"))]) (sprunge . [(20160301 243) ((request (0 2 0)) (cl-lib (0 5))) "Upload pastes to sprunge.us" single ((:commit . "0fd386b8b29c4175022a04ad70ea5643185b6726") (:keywords "tools") (:authors ("Tom Jakubowski")) (:maintainer "Tom Jakubowski"))]) (sproto-mode . [(20151115 1805) nil "Major mode for editing sproto." single ((:commit . "0583a88273204dccd884b7edaa3590cefd31e7f7") (:keywords "sproto") (:authors ("m2q1n9")) (:maintainer "m2q1n9"))]) (sprintly-mode . [(20121006 534) ((furl (0 0 2))) "Major mode for dealing with sprint.ly" single ((:commit . "6695892bae5860b5268bf3ae62be990ee9b63c11") (:authors ("Justin Lilly" . "justin@justinlilly.com")) (:maintainer "Justin Lilly" . "justin@justinlilly.com") (:url . "https://github.com/sprintly/sprintly-mode"))]) (springboard . [(20170106 755) ((helm (1 6 9))) "Temporarily change default-directory for one command" single ((:commit . "263a8cd4582c81bfc29d7db37d5267e2488b148c") (:keywords "helm") (:authors ("John Wiegley" . "jwiegley@gmail.com")) (:maintainer "John Wiegley" . "jwiegley@gmail.com") (:url . "https://github.com/jwiegley/springboard"))]) (spray . [(20160304 2220) nil "a speed reading mode" single ((:commit . "00638bc916227f2f961013543d10e85a43a32e29") (:keywords "convenience") (:authors ("Ian Kelling" . "ian@iankelling.org")) (:maintainer "Ian Kelling" . "ian@iankelling.org") (:url . "https://github.com/ian-kelling/spray"))]) (spotlight . [(20150929 755) ((emacs (24 1)) (swiper (0 6 0)) (counsel (0 6 0))) "search files with Mac OS X spotlight" single ((:commit . "ab902900f22e7d1ea2dd8169441d2da7155aaa68") (:keywords "search" "external") (:authors ("Ben Maughan" . "benmaughan@gmail.com")) (:maintainer "Ben Maughan" . "benmaughan@gmail.com") (:url . "http://www.pragmaticemacs.com"))]) (spotify . [(20181030 810) ((cl-lib (0 5))) "Control the spotify application from emacs" single ((:commit . "29577cf1188161f98b8358c149aaf47b2c137902") (:keywords "convenience") (:authors ("R.W. van 't Veer")) (:maintainer "R.W. van 't Veer") (:url . "https://github.com/remvee/spotify-el"))]) (splitter . [(20170809 2208) nil "Manage window splits" single ((:commit . "6bdb51e9a346907d60a9625f6180bddd06be6674") (:keywords "frames" "convenience") (:authors ("Steven Thomas")) (:maintainer "Steven Thomas") (:url . "https://github.com/chumpage/chumpy-windows"))]) (splitjoin . [(20150505 1432) ((cl-lib (0 5))) "Transition between multiline and single-line code" single ((:commit . "e2945ee269e6e90f0243d6f2a33e067bb0a2873c") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-splitjoin"))]) (spiral . [(20180223 1140) ((emacs (25 1)) (a (0 1 0 -3 4)) (avy (0 4 0)) (clojure-mode (5 6 0)) (highlight (0)) (treepy (1 0 0))) "Clojure IDE based on UNREPL" tar ((:commit . "907b9792467139a942ba7b07ca0276b90770baf9") (:keywords "languages" "clojure") (:authors ("Daniel Barreto" . "daniel@barreto.tech")) (:maintainer "Daniel Barreto" . "daniel@barreto.tech") (:url . "https://github.com/Unrepl/spiral"))]) (spice-mode . [(20171028 643) ((emacs (24 3))) "Major mode for SPICE" single ((:commit . "702bf2d5c3561be44771ea77b476532d32068504") (:keywords "spice" "spice2g6" "spice3" "eldo" "hspice" "layla" "mondriaan" "fasthenry" "cdl" "spectre compatibility" "netlist editing") (:authors ("Geert A. M. Van der Plas" . "geert_vanderplas@email.com") ("Emmanuel Rouat" . "emmanuel.rouat@wanadoo.fr") ("Carlin J. Vieri, MIT AI Lab" . "cvieri@ai.mit.edu")) (:maintainer "Geert A. M. Van der Plas" . "geert_vanderplas@email.com") (:url . "http://spice-mode.4t.com/"))]) (sphinx-mode . [(20180620 915) ((f (0 20 0)) (dash (2 14 1))) "Minor mode providing sphinx support." tar ((:commit . "b5ac514e213459dcc57184086f10b5b6be3cecd8"))]) (sphinx-frontend . [(20161025 758) nil "Launch build process for rst documents via sphinx." single ((:commit . "0cbb03361c245382d3e679dded30c4fc1713c252") (:keywords "compile" "sphinx" "restructuredtext") (:authors ("Kostafey" . "kostafey@gmail.com")) (:maintainer "Kostafey" . "kostafey@gmail.com") (:url . "https://github.com/kostafey/sphinx-frontend"))]) (sphinx-doc . [(20160116 1117) ((s (1 9 0)) (cl-lib (0 5)) (dash (2 10 0))) "Sphinx friendly docstrings for Python functions" single ((:commit . "f39da2e6cae55d5d7c7ce887e69755b7529bcd67") (:keywords "sphinx" "python") (:authors ("Vineet Naik" . "naikvin@gmail.com")) (:maintainer "Vineet Naik" . "naikvin@gmail.com") (:url . "https://github.com/naiquevin/sphinx-doc.el"))]) (speeddating . [(20180319 723) ((emacs (25))) "Increase date and time at point" single ((:commit . "df69db0560f19636a66a74f3d88c793bbb18b21e") (:keywords "date" "time") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/emacs-speeddating"))]) (speed-type . [(20171230 1647) ((emacs (24 3)) (cl-lib (0 3))) "Practice touch and speed typing" single ((:commit . "7a67fcd7bf825eee890097bd4a1b3c4f531a1135") (:keywords "games") (:authors ("Gunther Hagleitner")) (:maintainer "Julien Pagès" . "j.parkouss@gmail.com") (:url . "https://github.com/parkouss/speed-type"))]) (speechd-el . [(20180105 2017) nil "Client to speech synthesizers and Braille displays." tar ((:commit . "0b25d3eb7ae219d2af9a7e9df2f3334652156bf5"))]) (speech-tagger . [(20170728 1829) ((cl-lib (0 5))) "tag parts of speech using coreNLP" tar ((:commit . "61955b40d4e8b09e66a3e8033e82893f81657c06") (:keywords "speech" "tag" "nlp" "language" "corenlp" "parsing" "natural") (:authors ("Danny McClanahan" . "danieldmcclanahan@gmail.com")) (:maintainer "Danny McClanahan" . "danieldmcclanahan@gmail.com") (:url . "https://github.com/cosmicexplorer/speech-tagger"))]) (sparql-mode . [(20180320 1802) ((cl-lib (0 5)) (emacs (24 3))) "Edit and interactively evaluate SPARQL queries." tar ((:commit . "a00bb622c54086ac1ee96c265bf7fbef12c68089") (:authors ("Craig Andera <candera at wangdera dot com>")) (:maintainer "Bjarte Johansen <Bjarte dot Johansen at gmail dot com>") (:url . "https://github.com/ljos/sparql-mode"))]) (sparkline . [(20150101 1319) ((cl-lib (0 3))) "Make sparkline images from a list of numbers" single ((:commit . "a2b5d817d272d6363b67ed8f8cc75499a19fa8d2") (:keywords "extensions") (:authors ("Willem Rein Oudshoorn" . "woudshoo@xs4all.nl")) (:maintainer "Willem Rein Oudshoorn" . "woudshoo@xs4all.nl"))]) (spark . [(20160415 201) ((emacs (24 3))) "sparkline generation" single ((:commit . "0bf148c3ede3b31d56fd75f347cdd0b0eae60025") (:keywords "lisp" "data") (:authors ("Alvin Francis Dumalus")) (:maintainer "Alvin Francis Dumalus") (:url . "https://github.com/alvinfrancis/spark"))]) (spaces . [(20170809 2208) nil "Create and switch between named window configurations." single ((:commit . "6bdb51e9a346907d60a9625f6180bddd06be6674") (:keywords "frames" "convenience") (:authors ("Steven Thomas")) (:maintainer "Steven Thomas") (:url . "https://github.com/chumpage/chumpy-windows"))]) (spacemacs-theme . [(20181107 1725) nil "Color theme with a dark and light versions" tar ((:commit . "c162ad13e4ae1965619012332d3b5f57c9172e98") (:keywords "color" "theme") (:url . "https://github.com/nashamri/spacemacs-theme"))]) (spaceline-all-the-icons . [(20170829 820) ((emacs (24 4)) (all-the-icons (2 6 0)) (spaceline (2 0 0)) (memoize (1 0 1))) "A Spaceline theme using All The Icons" tar ((:commit . "e2e195f64a541d72b6d0ba0451f1e3072234b820") (:keywords "convenience" "lisp" "tools") (:authors ("Dominic Charlesworth" . "dgc336@gmail.com")) (:maintainer "Dominic Charlesworth" . "dgc336@gmail.com") (:url . "https://github.com/domtronn/spaceline-all-the-icons.el"))]) (spaceline . [(20180628 746) ((emacs (24 4)) (cl-lib (0 5)) (powerline (2 3)) (dash (2 11 0)) (s (1 10 0))) "Modeline configuration library for powerline" tar ((:commit . "29ced71ed0097cd5eba15d6bfdbafd9d18f5bd82") (:keywords "mode-line" "powerline" "spacemacs") (:authors ("Eivind Fonn" . "evfonn@gmail.com")) (:maintainer "Eivind Fonn" . "evfonn@gmail.com") (:url . "https://github.com/TheBB/spaceline"))]) (spacegray-theme . [(20150719 1931) ((emacs (24 1))) "A Hyperminimal UI Theme" single ((:commit . "7f70ee36297e5ccf9bc90b1f81472024f5a7a749") (:keywords "themes") (:authors ("Bruce Williams" . "brwcodes@gmail.com")) (:maintainer "Bruce Williams" . "brwcodes@gmail.com") (:url . "http://github.com/bruce/emacs-spacegray-theme"))]) (sourcetrail . [(20170410 2137) ((emacs (24 4))) "Communication with Sourcetrail" single ((:commit . "b8d5557aa565ae979622312576db20515f65f977") (:keywords "external" "tool") (:authors ("Andreas Stallinger" . "astallinger@sourcetrail.com")) (:maintainer "Andreas Stallinger" . "astallinger@sourcetrail.com"))]) (sourcerer-theme . [(20161014 1625) nil "A version of sourcerer by xero" single ((:commit . "c7f8e665d53bb48fb72f95f706710d53d24bd407") (:keywords "themes") (:authors ("Bryan Gilbert" . "gilbertw1@gmail.com")) (:maintainer "Bryan Gilbert" . "gilbertw1@gmail.com") (:url . "http://github.com/gilbertw1/sourcerer-emacs"))]) (sourcemap . [(20161216 540) ((emacs (24 3))) "Sourcemap parser" single ((:commit . "64c89d296186f48d9135fb8aad501de19f64bceb") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-sourcemap"))]) (sourcekit . [(20180101 834) ((emacs (24 3)) (dash (2 12 1)) (dash-functional (1 2 0)) (request (0 2 0))) "Library to interact with sourcekittendaemon" single ((:commit . "abf9bc5a0102eb666d3aa6d6bf22f6efcc852781") (:keywords "tools" "processes") (:authors ("Nathan Kot" . "nk@nathankot.com")) (:maintainer "Nathan Kot" . "nk@nathankot.com") (:url . "https://github.com/nathankot/company-sourcekit"))]) (soundklaus . [(20160314 1231) ((dash (2 12 1)) (emacs (24)) (emms (4 0)) (s (1 11 0)) (pkg-info (0 4)) (cl-lib (0 5)) (request (0 2 0))) "Play music on SoundCloud with Emacs via EMMS" tar ((:commit . "09ec030843482594beae2664b8fe1e0ad1e66472") (:keywords "soundcloud" "music" "emms") (:authors ("r0man" . "roman@burningswell.com")) (:maintainer "r0man" . "roman@burningswell.com") (:url . "https://github.com/r0man/soundklaus.el"))]) (soundcloud . [(20150502 326) ((emms (20131016)) (json (1 2)) (deferred (0 3 1)) (string-utils (0 3 2)) (request (20140316 417)) (request-deferred (20130526 1015))) "a SoundCloud client for Emacs" single ((:commit . "f998d4276ea90258909c698f6a5a51fccb667c08") (:keywords "soundcloud" "music" "audio") (:authors ("Travis Thieman" . "travis.thieman@gmail.com")) (:maintainer "Travis Thieman" . "travis.thieman@gmail.com"))]) (sound-wav . [(20160725 1424) ((deferred (0 3 1)) (cl-lib (0 5))) "Play wav file" single ((:commit . "406868043761524118c27b1207be0f8bbda8798e") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-sound-wav"))]) (sotlisp . [(20180706 1749) ((emacs (24 1))) "Write lisp at the speed of thought." single ((:commit . "cc5730c0803a6e0f18e22d6027784b915d304318") (:keywords "convenience" "lisp") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/speed-of-thought-lisp"))]) (sotclojure . [(20170922 8) ((emacs (24 1)) (clojure-mode (4 0 0)) (cider (0 8)) (sotlisp (1 3))) "Write clojure at the speed of thought." tar ((:commit . "a480c887b53cb007b7b099c5ffcab89b9e59d7bc") (:keywords "convenience" "clojure") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/speed-of-thought-clojure"))]) (sos . [(20141215 403) ((org (7))) "StackOverflow Search" single ((:commit . "1573adca912b88b5010d99a25c83a5b2313bd39c") (:keywords "tools" "search" "questions") (:authors ("Rudolf Olah")) (:maintainer "Rudolf Olah") (:url . "https://github.com/omouse/emacs-sos"))]) (sort-words . [(20160929 1335) nil "Sort words in a selected region" single ((:commit . "7b6e108f80237363faf7ec28b2c58dec270b8601") (:keywords "tools") (:authors ("\"Aleksandar Simic\"" . "asimic@gmail.com")) (:maintainer "\"Aleksandar Simic\"" . "asimic@gmail.com") (:url . "http://github.org/dotemacs/sort-words.el"))]) (soothe-theme . [(20141027 1441) ((emacs (24 1))) "a dark colorful theme for Emacs24." single ((:commit . "0786fe70c6c1b4ddcfb932fdc6862b9611cfc09b") (:authors ("Jason Milkins" . "jasonm23@gmail.com")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com") (:url . "https://github.com/jasonm23/emacs-soothe-theme"))]) (sonic-pi . [(20171205 1205) ((cl-lib (0 5)) (osc (0 1)) (dash (2 2 0)) (emacs (24)) (highlight (0))) "A Emacs client for SonicPi" tar ((:commit . "3cf101b3b299735ed91658c7791ea4f04164e076") (:keywords "sonicpi" "ruby") (:authors ("Joseph Wilk" . "joe@josephwilk.net")) (:maintainer "Joseph Wilk" . "joe@josephwilk.net") (:url . "http://www.github.com/repl-electric/sonic-pi.el"))]) (solidity-mode . [(20181117 1518) nil "Major mode for ethereum's solidity language" tar ((:commit . "d6c48a1cb64d3c8a825dc0d06c839f2cacd4d289") (:keywords "languages" "solidity") (:authors ("Lefteris Karapetsas " . "lefteris@refu.co")) (:maintainer "Lefteris Karapetsas " . "lefteris@refu.co"))]) (solarized-theme . [(20181030 1912) ((emacs (24 1)) (cl-lib (0 5)) (dash (2 6 0))) "The Solarized color theme, ported to Emacs." tar ((:commit . "87d4758e7ecc8ed873f3326e4f8b185fd2b9da0a"))]) (solaire-mode . [(20180521 935) ((emacs (24 4)) (cl-lib (0 5))) "make certain buffers grossly incandescent" single ((:commit . "abf2ce4da77d0877efb4a035687390ce921eda4f") (:keywords "dim" "bright" "window" "buffer" "faces") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-solaire-mode"))]) (soft-stone-theme . [(20140614 835) ((emacs (24))) "Emacs 24 theme with a light background." single ((:commit . "fb475514cfb02cf30ce358a61c48e46614344d48") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler") (:url . "http://github.com/mswift42/soft-stone-theme"))]) (soft-morning-theme . [(20150918 2041) nil "Emacs24 theme with a light background." single ((:commit . "c0f9c70c97ef2be2a093cf839c4bfe27740a111c") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler") (:url . "http://github.com/mswift42/soft-morning-theme"))]) (soft-charcoal-theme . [(20140420 1643) nil "Dark charcoal theme with soft colors" single ((:commit . "5607ab977fae6638e78b1495e02da8955c9ba19f") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler") (:url . "http://github.com/mswift42/soft-charcoal-theme"))]) (socyl . [(20170212 642) ((s (1 11 0)) (dash (2 12 0)) (pkg-info (0 5 0)) (cl-lib (0 5))) "Frontend for several search tools" tar ((:commit . "1ef2da42f66f3ab31a34131e51648f352416f0ba") (:keywords "ripgrep" "sift" "ack" "pt" "ag" "grep" "search") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/socyl"))]) (snoopy . [(20171008 2004) ((emacs (24)) (cl-lib (0 6))) "minor mode for number row unshifted character insertion" single ((:commit . "ec4123bdebfe0bb7bf4feaac2dc02b59caffe386") (:keywords "lisp") (:authors ("António Nuno Monteiro" . "anmonteiro@gmail.com")) (:maintainer "António Nuno Monteiro" . "anmonteiro@gmail.com"))]) (snippet . [(20130210 2315) nil "Insert snippets of text into a buffer" single ((:commit . "11d00dd803874b93836f2010b08bd2c97b0f3c63") (:authors ("Pete Kazmier")) (:maintainer "Pete Kazmier"))]) (snazzy-theme . [(20170823 1832) ((emacs (24)) (base16-theme (2 1))) "An elegant syntax theme with bright colors" single ((:commit . "57a1763b49b4a776084c16bc70c219246fa5b412") (:keywords "faces" "theme" "color" "snazzy") (:url . "https://github.com/weijiangan/emacs-snazzy/"))]) (snapshot-timemachine-rsnapshot . [(20170324 1213) ((snapshot-timemachine (20160222 132)) (seq (2 19))) "rsnapshot backend for snapshot-timemachine" single ((:commit . "72b0b700d80f1a0442e62bbbb6a0c8c59182f97f") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr"))]) (snapshot-timemachine . [(20161221 929) ((emacs (24 4))) "Step through (Btrfs, ZFS, ...) snapshots of files" single ((:commit . "99efcebab309b11ed512a8dc62555d3834df5efb") (:authors ("Thomas Winant" . "dewinant@gmail.com")) (:maintainer "Thomas Winant" . "dewinant@gmail.com") (:url . "https://github.com/mrBliss/snapshot-timemachine"))]) (snakemake-mode . [(20181008 250) ((emacs (24 5)) (cl-lib (0 5)) (magit-popup (2 4 0))) "Major mode for editing Snakemake files" tar ((:commit . "0cadd2bbd20aae1555561e81ed72fec43ec7296e") (:keywords "tools") (:authors ("Kyle Meyer" . "kyle@kyleam.com")) (:maintainer "Kyle Meyer" . "kyle@kyleam.com") (:url . "https://github.com/kyleam/snakemake-mode"))]) (smyx-theme . [(20141127 828) nil "smyx Color Theme" single ((:commit . "6263f6b401bbabaed388c8efcfc0be2e58c51401") (:keywords "color" "theme" "smyx") (:authors ("Uriel G Maldonado" . "uriel781@gmail.com")) (:maintainer "Uriel G Maldonado" . "uriel781@gmail.com"))]) (smtpmail-multi . [(20160218 2349) nil "Use different smtp servers for sending mail" single ((:commit . "81eabfe56f620ee044ff9dd52fa8b6148d0a9f30") (:keywords "comm") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/smtpmail-multi"))]) (smotitah . [(20150218 1030) nil "Modular emacs configuration framework" tar ((:commit . "f9ab562128a5460549d016913533778e8c94bcf3"))]) (smooth-scrolling . [(20161002 1949) nil "Make emacs scroll smoothly" single ((:commit . "2462c13640aa4c75ab3ddad443fedc29acf68f84") (:keywords "convenience") (:authors ("Adam Spiers" . "emacs-ss@adamspiers.org") ("Jeremy Bondeson" . "jbondeson@gmail.com") ("Ryan C. Thompson" . "rct+github@thompsonclan.org")) (:maintainer "Adam Spiers" . "emacs-ss@adamspiers.org") (:url . "http://github.com/aspiers/smooth-scrolling/"))]) (smooth-scroll . [(20130322 414) nil "Minor mode for smooth scrolling and in-place scrolling." single ((:commit . "02320f28abb5cae28b3a18f6b9ce93129bdbfc45") (:keywords "convenience" "emulations" "frames") (:authors ("K-talo Miyazaki <Keitaro dot Miyazaki at gmail dot com>")) (:maintainer "K-talo Miyazaki <Keitaro dot Miyazaki at gmail dot com>") (:url . "http://www.emacswiki.org/emacs/download/smooth-scroll.el"))]) (smmry . [(20161024 901) nil "SMMRY client" single ((:commit . "986a1b0aec8ab1ef17dbfb7886f47e5558cf738a") (:keywords "api" "smmry") (:authors ("james sangho nah" . "microamp@protonmail.com")) (:maintainer "james sangho nah" . "microamp@protonmail.com") (:url . "https://github.com/microamp/smmry.el"))]) (sml-modeline . [(20170614 2111) nil "Show position in a scrollbar like way in mode-line" single ((:commit . "d2f9f70174c4cf68c67eb3bb8088235735e34d9a") (:authors ("Lennart Borgman (lennart O borgman A gmail O com)")) (:maintainer "Lennart Borgman (lennart O borgman A gmail O com)") (:url . "http://bazaar.launchpad.net/~nxhtml/nxhtml/main/annotate/head%3A/util/sml-modeline.el"))]) (smiles-mode . [(20160717 1120) nil "Major mode for SMILES." single ((:commit . "fbb381758adcb000a0c304be1b797f985f00e2de") (:keywords "smiles") (:authors (nil . "John Kitchin [jkitchin@andrew.cmu.edu]")) (:maintainer nil . "John Kitchin [jkitchin@andrew.cmu.edu]"))]) (smex . [(20151212 2209) ((emacs (24))) "M-x interface with Ido-style fuzzy matching." single ((:commit . "55aaebe3d793c2c990b39a302eb26c184281c42c") (:keywords "convenience" "usability") (:authors ("Cornelius Mika" . "cornelius.mika@gmail.com")) (:maintainer "Cornelius Mika" . "cornelius.mika@gmail.com") (:url . "http://github.com/nonsequitur/smex/"))]) (smeargle . [(20161212 2358) ((emacs (24 3))) "Highlighting region by last updated time" single ((:commit . "0665b1ff5109731898bc4a0ca6d939933b804777") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-smeargle"))]) (smblog . [(20170419 1021) ((emacs (24 3))) "samba log viewer" single ((:commit . "5245e7aeac20915121946f59bba30899305d950b") (:authors ("Aurélien Aptel" . "aaptel@suse.com")) (:maintainer "Aurélien Aptel" . "aaptel@suse.com") (:url . "http://github.com/aaptel/smblog-mode"))]) (smbc . [(20171229 1808) nil "View SMBC from Emacs" single ((:commit . "10538e3d575ba6ef3c94d555af2744b42dfd36c7") (:keywords "smbc" "webcomic") (:authors ("Saksham Sharma" . "saksham0808@gmail.com")) (:maintainer "Saksham Sharma" . "saksham0808@gmail.com") (:url . "https://github.com/sakshamsharma/emacs-smbc"))]) (smarty-mode . [(20100703 1158) nil "major mode for editing smarty templates" single ((:commit . "3dfdfe1571f5e9ef55a29c51e5a80046d4cb7568") (:keywords "smarty" "php" "languages" "templates") (:maintainer "Benj Carson") (:url . "none yet"))]) (smartscan . [(20170211 2033) nil "Jumps between other symbols found at point" single ((:commit . "234e077145710a174c20742de792b97ed2f965f6") (:keywords "extensions") (:authors ("Mickey Petersen" . "mickey@masteringemacs.org")) (:maintainer "Mickey Petersen" . "mickey@masteringemacs.org"))]) (smartrep . [(20150509 230) nil "Support sequential operation which omitted prefix keys." single ((:commit . "f0ff5a6d7b8603603598ae3045c98b011e58d86e") (:keywords "convenience") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/smartrep.el"))]) (smartparens . [(20181028 1005) ((dash (2 13 0)) (cl-lib (0 3))) "Automatic insertion, wrapping and paredit-like navigation with user defined pairs." tar ((:commit . "d65f3c0f47413c1a67ced979dc2062a073d907af"))]) (smart-window . [(20160717 130) ((cl-lib (0 5))) "vim-like window controlling plugin" single ((:commit . "5996461b7cbc5ab4509ac48537916eb29a8e4c16") (:keywords "window") (:authors ("Felix Chern" . "idryman@gmail.com")) (:maintainer "Felix Chern" . "idryman@gmail.com") (:url . "https://github.com/dryman/smart-window.el"))]) (smart-tabs-mode . [(20160629 1452) nil "Intelligently indent with tabs, align with spaces!" single ((:commit . "9cc2594b82b03e7d68645a4878f9359f8b8c34c5") (:keywords "languages") (:authors ("John Croisant" . "jacius@gmail.com") ("Alan Pearce" . "alan@alanpearce.co.uk") ("Daniel Dehennin" . "daniel.dehennin@baby-gnu.org") ("Matt Renaud" . "mrenaud92@gmail.com")) (:maintainer "Joel C. Salomon" . "joelcsalomon@gmail.com") (:url . "http://www.emacswiki.org/emacs/SmartTabs"))]) (smart-tab . [(20170902 2107) nil "Intelligent tab completion and indentation." single ((:commit . "76a8ec13384975d39aa1b25e5384a02558dba574") (:keywords "extensions") (:authors ("John SJ Anderson" . "genehack@genehack.org") ("Sebastien Rocca Serra" . "sroccaserra@gmail.com") ("Daniel Hackney" . "dan@haxney.org")) (:maintainer "John SJ Anderson" . "genehack@genehack.org") (:url . "http://github.com/genehack/smart-tab/tree/master"))]) (smart-shift . [(20150203 725) nil "Smart shift text left/right." single ((:commit . "a26ab2b240137e62ec4bce1698ed9c5f7b6d13ae") (:keywords "convenience" "tools") (:authors ("Bin Huang" . "huangbin88@foxmail.com")) (:maintainer "Bin Huang" . "huangbin88@foxmail.com") (:url . "https://github.com/hbin/smart-shift"))]) (smart-semicolon . [(20171008 133) ((emacs (25))) "Insert semicolon smartly" single ((:commit . "bcea2aa37befa40abf8b24a2d2314904e6df43b3") (:authors ("Iku Iwasa" . "iku.iwasa@gmail.com")) (:maintainer "Iku Iwasa" . "iku.iwasa@gmail.com") (:url . "https://github.com/iquiw/smart-semicolon"))]) (smart-region . [(20150903 1403) ((emacs (24 4)) (expand-region (0 10 0)) (multiple-cursors (1 3 0)) (cl-lib (0 5))) "Smartly select region, rectangle, multi cursors" single ((:commit . "5a8017fd8e8dc3483865951c4942cab3f96f69f6") (:keywords "marking" "region") (:authors ("Yuuki Arisawa" . "yuuki.ari@gmail.com")) (:maintainer "Yuuki Arisawa" . "yuuki.ari@gmail.com") (:url . "https://github.com/uk-ar/smart-region"))]) (smart-newline . [(20131208 340) nil "Provide smart newline for one keybind." single ((:commit . "0553a9e4be7188352de1a28f2eddfd28e7436f94") (:authors ("Satoshi Namai")) (:maintainer "Satoshi Namai"))]) (smart-mode-line-powerline-theme . [(20160706 38) ((emacs (24 3)) (powerline (2 2)) (smart-mode-line (2 5))) "smart-mode-line theme that mimics the powerline appearance." tar ((:commit . "b79f4fa5f2380b0d726a895dd7199e5483004490") (:keywords "mode-line" "faces" "themes") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/smart-mode-line"))]) (smart-mode-line-atom-one-dark-theme . [(20180915 1335) ((emacs (24 3)) (smart-mode-line (2 10))) "Atom-one-dark theme for smart-mode-line" single ((:commit . "21cf510c6dfc919517af045435f16dc3527d7d04") (:keywords "mode-line" "themes" "faces") (:authors ("Davide Restivo" . "davide.restivo@yahoo.it")) (:maintainer "Davide Restivo" . "davide.restivo@yahoo.it") (:url . "https://github.com/daviderestivo/smart-mode-line-atom-one-dark-theme"))]) (smart-mode-line . [(20180926 1036) ((emacs (24 3)) (rich-minority (0 1 1))) "A color coded smart mode-line." tar ((:commit . "b79f4fa5f2380b0d726a895dd7199e5483004490") (:keywords "mode-line" "faces" "themes") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "http://github.com/Malabarba/smart-mode-line"))]) (smart-mark . [(20150912 210) nil "Restore point after C-g when mark" single ((:commit . "04b522a23e3aae8381c6a976fc978532fcb2e7d0") (:keywords "mark" "restore") (:authors ("Kai Yu" . "yeannylam@gmail.com")) (:maintainer "Kai Yu" . "yeannylam@gmail.com"))]) (smart-jump . [(20181103 2227) ((emacs (25 1)) (dumb-jump (0 5 1))) "Smart go to definition." tar ((:commit . "aa963735196b7f64fb286163cd5c3e4d435814e5") (:keywords "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/smart-jump"))]) (smart-indent-rigidly . [(20141206 15) nil "Smart rigid indenting" single ((:commit . "323d1fe4d0b81e598249aad01bc44adb180ece0e") (:keywords "indenting" "coffee-mode" "haml-mode" "sass-mode") (:authors ("atom smith")) (:maintainer "atom smith") (:url . "https://github.com/re5et/smart-indent-rigidly"))]) (smart-hungry-delete . [(20170412 1343) ((emacs (24 3))) "smart hungry deletion of whitespace" single ((:commit . "7c1d56a92481594e14d40b5fdf6c48657a0108a0") (:keywords "convenience") (:authors ("Hauke Rehfeld" . "emacs@haukerehfeld.de")) (:maintainer "Hauke Rehfeld" . "emacs@haukerehfeld.de") (:url . "https://github.com/hrehfeld/emacs-smart-hungry-delete"))]) (smart-forward . [(20140430 713) ((expand-region (0 8 0))) "Semantic navigation" single ((:commit . "7b6dbfdbd4b646376a567c70e1a161545431b72b") (:keywords "navigation") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (smart-dash . [(20110131 316) nil "Smart-Dash minor mode" single ((:authors ("Dennis Lambe Jr." . "malsyned@malsyned.net")) (:maintainer "Dennis Lambe Jr." . "malsyned@malsyned.net"))]) (smart-cursor-color . [(20141124 1719) nil "Change cursor color dynamically" single ((:commit . "1d190f49ca77734b55ac58f1b6276e42ada967b0") (:keywords "cursor" "color" "face") (:authors ("7696122")) (:maintainer "7696122") (:url . "https://github.com/7696122/smart-cursor-color/"))]) (smart-compile . [(20180316 330) nil "an interface to `compile'" single ((:commit . "16ebc3c570f1949b8198fcc8663d6d26df32717a") (:keywords "tools" "unix") (:authors ("Seiji Zenitani" . "zenitani@mac.com")) (:maintainer "Seiji Zenitani" . "zenitani@mac.com"))]) (smart-comment . [(20160322 1839) nil "smarter commenting" single ((:commit . "17ddbd83205818763e6d68aa7a1aa9aaf414cbd4") (:keywords "lisp") (:authors ("Simon Friis Vindum" . "simon@vindum.io")) (:maintainer "Simon Friis Vindum" . "simon@vindum.io"))]) (smart-backspace . [(20171014 526) nil "intellj like backspace" single ((:commit . "a10ec44ff325ec8c4c98b1a6e44e89e60a9aa4ac") (:authors ("Takeshi Tsukamoto" . "t.t.itm.0403@gmail.com")) (:maintainer "Takeshi Tsukamoto" . "t.t.itm.0403@gmail.com") (:url . "https://github.com/itome/smart-backspace"))]) (sly-repl-ansi-color . [(20171020 1516) ((sly (0)) (cl-lib (0 5))) "Add ANSI colors support to the sly mrepl." single ((:commit . "b9cd52d1cf927bf7e08582d46ab0bcf1d4fb5048") (:keywords "sly") (:authors ("Javier \"PuercoPop\" Olaechea" . "pirata@gmail.com") ("Max Mikhanosha")) (:maintainer "Javier \"PuercoPop\" Olaechea" . "pirata@gmail.com") (:url . "https://github.com/PuercoPop/sly-repl-ansi-color"))]) (sly-quicklisp . [(20170112 935) ((sly (1 0 0 -2 2))) "Quicklisp support for SLY" tar ((:commit . "8a9e3c0c07c6861ec33b338cc46ac12e7ce6a477") (:keywords "languages" "lisp" "sly") (:authors ("João Távora" . "joaotavora@gmail.com")) (:maintainer "João Távora" . "joaotavora@gmail.com") (:url . "https://github.com/capitaomorte/sly-quicklisp"))]) (sly-named-readtables . [(20150817 1516) ((sly (1 0 0 -2 2))) "Support named readtables in Common Lisp files" tar ((:commit . "df4ed79064cf85275804e201899b677bef4ab3f5") (:keywords "languages" "lisp" "sly") (:authors ("João Távora" . "joaotavora@gmail.com")) (:maintainer "João Távora" . "joaotavora@gmail.com") (:url . "https://github.com/capitaomorte/sly-named-readtables"))]) (sly-macrostep . [(20160119 1234) ((sly (1 0 0 -2 2)) (macrostep (0 9))) "fancy macro-expansion via macrostep.el" tar ((:commit . "eb16778d104413a3e2a8d5537437c4ad76c2954b") (:keywords "languages" "lisp" "sly") (:url . "https://github.com/capitaomorte/sly-macrostep"))]) (sly-hello-world . [(20160119 1436) ((sly (1 0 0 -2 2))) "A template SLY contrib" tar ((:commit . "1bfcca692b6ec0670ed309ffe29eb9384397c183") (:keywords "languages" "lisp" "sly") (:authors ("João Távora" . "joaotavora@gmail.com")) (:maintainer "João Távora" . "joaotavora@gmail.com") (:url . "https://github.com/capitaomorte/sly-hello-world"))]) (sly . [(20181120 1521) ((emacs (24 3))) "Sylvester the Cat's Common Lisp IDE" tar ((:commit . "7f2f7931bf7b895fb5b9f11453df850b065ba030") (:keywords "languages" "lisp" "sly") (:url . "https://github.com/joaotavora/sly"))]) (slstats . [(20170823 849) ((cl-lib (0 5)) (emacs (24))) "Acquire and display stats about Second Life" single ((:commit . "e9696066abf3f2b7b818a57c062530dfd9377033") (:keywords "games") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/slstats.el"))]) (slow-keys . [(20180831 459) ((emacs (24 1))) "Slow keys mode to avoid RSI" single ((:commit . "b93ad77f9fc1d14e080d7d64864fc9cb222248b6") (:keywords "convenience") (:authors ("Manuel Uberti" . "manuel.uberti@inventati.org")) (:maintainer "Manuel Uberti" . "manuel.uberti@inventati.org") (:url . "https://github.com/manuel-uberti/slow-keys"))]) (slovak-holidays . [(20150418 855) nil "Adds a list of slovak holidays to Emacs calendar" single ((:commit . "effb16dfcd14797bf7448f5113085479db339c02") (:keywords "calendar") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (slirm . [(20160201 1425) ((emacs (24 4))) "Systematic Literature Review Mode for Emacs." single ((:commit . "9adfbe1fc67580e7d0d90f7e927a25d63a797464") (:authors ("Florian Biermann" . "fbie@itu.dk")) (:maintainer "Florian Biermann" . "fbie@itu.dk") (:url . "http://github.com/fbie/slirm"))]) (slime-volleyball . [(20140718 441) nil "An SVG Slime Volleyball Game" tar ((:commit . "159b5c0f40b109e3854e94b89ec5383854c46ae3") (:keywords "games") (:authors ("Thomas Fitzsimmons" . "fitzsim@fitzsim.org")) (:maintainer "Thomas Fitzsimmons" . "fitzsim@fitzsim.org"))]) (slime-theme . [(20170808 1322) ((emacs (24 0))) "an Emacs 24 theme based on Slime (tmTheme)" single ((:commit . "8e5880ac69e0b6a079103001cc3a90bdb688998f") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (slime-docker . [(20181107 1556) ((emacs (24)) (slime (2 16)) (docker-tramp (0 1)) (cl-lib (0 5))) "Integration of SLIME with Docker containers." tar ((:commit . "83a6ea7e4302e03f894a03f15ae0b68b101023c0") (:keywords "docker" "lisp" "slime") (:url . "https://github.com/daewok/slime-docker"))]) (slime-company . [(20180119 1843) ((emacs (24 4)) (slime (2 13)) (company (0 9 0))) "slime completion backend for company mode" single ((:commit . "4c2e2805540dea700130607fa235018a87e4a070") (:keywords "convenience" "lisp" "abbrev") (:authors ("Ole Arndt" . "anwyn@sugarshark.com")) (:maintainer "Ole Arndt" . "anwyn@sugarshark.com"))]) (slime . [(20181119 1741) ((cl-lib (0 5)) (macrostep (0 9))) "Superior Lisp Interaction Mode for Emacs" tar ((:commit . "0a1784dfbc1adeee058c7f44b5c1c0761fb36835") (:keywords "languages" "lisp" "slime") (:url . "https://github.com/slime/slime"))]) (slim-mode . [(20170728 1348) nil "Major mode for editing Slim files" single ((:commit . "3636d18ab1c8b316eea71c4732eb44743e2ded87") (:keywords "markup" "language") (:authors ("Nathan Weizenbaum")) (:maintainer "Nathan Weizenbaum") (:url . "http://github.com/slim-template/emacs-slim"))]) (slideview . [(20150324 2240) ((cl-lib (0 3))) "File slideshow" single ((:commit . "b6d170bda139aedf81b47dc55cbd1a3af512fb4c") (:keywords "files") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-slideview"))]) (slack . [(20181121 731) ((websocket (1 8)) (request (0 2 0)) (oauth2 (0 10)) (circe (2 2)) (alert (1 2)) (emojify (0 2))) "Slack client for Emacs" tar ((:commit . "186b4653c55c08efa3ff9fb9bde038576ddff9f6") (:url . "https://github.com/yuya373/emacs-slack"))]) (sl . [(20161217 1404) ((cl-lib (0 5))) "An Emacs clone of sl(1)" tar ((:commit . "0882117728be91276b815e18c2a66106bf9d69d3") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/sl.el"))]) (skype . [(20160711 824) nil "skype UI for emacs users.." tar ((:commit . "8e3b33e620ed355522aa36434ff41e3ced080629") (:keywords "skype" "chat") (:authors ("SAKURAI Masashi" . "m.sakurai@kiwanami.net")) (:maintainer "SAKURAI Masashi" . "m.sakurai@kiwanami.net"))]) (skewer-reload-stylesheets . [(20160725 1220) ((skewer-mode (1 5 3))) "live-edit CSS, SCSS, Less, and friends." tar ((:commit . "b9cc5635230ac3c0603a6da690c6e632d0a7490a") (:authors ("Nate Eagleson" . "nate@nateeag.com")) (:maintainer "Nate Eagleson" . "nate@nateeag.com"))]) (skewer-mode . [(20180706 1807) ((simple-httpd (1 4 0)) (js2-mode (20090723)) (emacs (24))) "live browser JavaScript, CSS, and HTML interaction" tar ((:commit . "a381049acc4fa2087615b4b3b26c0865841386bd"))]) (skewer-less . [(20160828 2021) ((skewer-mode (1 5 3))) "Skewer support for live LESS stylesheet updates" single ((:commit . "927d6848a1ea9428d4cc995f76bd42f7b8da6bc8") (:keywords "languages" "tools") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (skeletor . [(20170617 46) ((s (1 7 0)) (f (0 14 0)) (dash (2 2 0)) (cl-lib (0 3)) (let-alist (1 0 3)) (emacs (24 1))) "Provides project skeletons for Emacs" tar ((:commit . "01c330ec115fc29bba5d9bdf6c15beb4a44e2281") (:authors ("Chris Barrett" . "chris.d.barrett@me.com")) (:maintainer "Chris Barrett" . "chris.d.barrett@me.com"))]) (simplezen . [(20130421 1000) ((s (1 4 0)) (dash (1 1 0))) "A simple subset of zencoding-mode for Emacs." single ((:commit . "119fdf2c6890a0c56045ae72cf4fce0071a81481") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (simplenote2 . [(20171202 206) ((request-deferred (0 2 0))) "Interact with app.simplenote.com" tar ((:commit . "0fd6dbd0566af29964078e4b74baf69c2f52381a") (:keywords "simplenote") (:authors ("alpha22jp" . "alpha22jp@gmail.com")) (:maintainer "alpha22jp" . "alpha22jp@gmail.com"))]) (simplenote . [(20141118 1440) nil "Interact with simple-note.appspot.com" single ((:commit . "e836fcdb5a6497a9ffd6bceddd19b4bc52189078") (:keywords "simplenote") (:authors ("Konstantinos Efstathiou" . "konstantinos@efstathiou.gr")) (:maintainer "Konstantinos Efstathiou" . "konstantinos@efstathiou.gr"))]) (simpleclip . [(20181105 1636) nil "Simplified access to the system clipboard" single ((:commit . "2468b08ad829aaf4a90246541978be3974c60ab8") (:keywords "convenience") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/simpleclip"))]) (simple-screen . [(20161009 920) nil "Simple screen configuration manager" single ((:commit . "596e3a451d9af24730ab31a8fe15c91a4264d09d") (:keywords "tools") (:authors ("Tadashi Watanabe" . "wac@umiushi.org")) (:maintainer "Tadashi Watanabe" . "wac@umiushi.org") (:url . "https://github.com/wachikun/simple-screen"))]) (simple-rtm . [(20160222 1534) ((rtm (0 1)) (dash (2 0 0))) "Interactive Emacs mode for Remember The Milk" single ((:commit . "8c7cd96cf66ef112be5c363e3378e304f8f83999") (:keywords "remember" "the" "milk" "productivity" "todo") (:authors ("Moritz Bunkus" . "morit@bunkus.org")) (:maintainer "Moritz Bunkus" . "morit@bunkus.org"))]) (simple-paren . [(20180427 918) ((emacs (24)) (cl-lib (0 5))) "Insert paired delimiter, wrap" single ((:commit . "8d735905306c587851eff1445898499c01c530ca") (:keywords "convenience") (:authors ("Andreas Röhler, Steve Purcell")) (:maintainer "Andreas Röhler, Steve Purcell") (:url . "https://github.com/andreas-roehler/simple-paren"))]) (simple-mpc . [(20180716 129) ((s (1 10 0))) "provides a simple interface to mpc" tar ((:commit . "bee8520e81292b4c7353e45b193f9a13b482f5b2") (:keywords "multimedia" "mpd" "mpc") (:authors ("Joren Van Onder" . "joren.vanonder@gmail.com")) (:maintainer "Joren Van Onder" . "joren.vanonder@gmail.com") (:url . "https://github.com/jorenvo/simple-mpc"))]) (simple-httpd . [(20180528 1603) ((cl-lib (0 3))) "pure elisp HTTP server" single ((:commit . "49721d5b791bee0fc25b1fdd69696371d546093a") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/emacs-http-server"))]) (simple-call-tree . [(20180224 2056) ((emacs (24 3)) (anaphora (1 0 0))) "analyze source code based on font-lock text-properties" single ((:commit . "20059eb5549408def76aeb03d0d20839903dedef") (:keywords "programming") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "http://www.emacswiki.org/emacs/download/simple-call-tree.el"))]) (simple-bookmarks . [(20160804 1401) ((cl-lib (0 5))) "Bookmark / functioncall manager" tar ((:commit . "6c58337f2b7dbe9e58b5e097b1567f046a01d071") (:keywords "bookmark" "functioncall") (:authors ("Julian T. Knabenschuh" . "jtkdevelopments@gmail.com")) (:maintainer "Julian T. Knabenschuh" . "jtkdevelopments@gmail.com") (:url . "https://github.com/jtkDvlp/simple-bookmarks"))]) (simp . [(20180607 254) nil "Simple project definition, chiefly for file finding, and grepping" tar ((:commit . "d4d4b8547055347828bedccbeffdb4fd2d5a5d34") (:keywords "project" "grep" "find") (:authors ("atom smith")) (:maintainer "atom smith") (:url . "https://github.com/re5et/simp"))]) (silkworm-theme . [(20180301 1437) ((emacs (24))) "Light theme with pleasant, low contrast colors." single ((:commit . "4a297f952401cfe894dcb24174f6eda05e00fada") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler"))]) (signature . [(20140730 1949) nil "Signature Survey" tar ((:commit . "c47df2e1189a84505f9224aa78e87b6c65d13d37") (:authors ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainer "Peter Stiernström" . "peter@stiernstrom.se"))]) (signal . [(20160816 1438) ((emacs (24)) (cl-lib (0 5))) "Advanced hook" single ((:commit . "aa58327e2297df921d72a0370468b48663efd438") (:keywords "internal" "lisp" "processes" "tools") (:authors ("Mola-T" . "Mola@molamola.xyz")) (:maintainer "Mola-T" . "Mola@molamola.xyz") (:url . "https://github.com/mola-T/signal"))]) (sift . [(20160107 1015) nil "Front-end for sift, a fast and powerful grep alternative" single ((:commit . "4ce8878a0fc396ded7521ce38852d93e1d863065") (:keywords "sift" "ack" "pt" "ag" "grep" "search") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/sift.el"))]) (side-notes . [(20180524 628) ((emacs (24 5))) "Easy access to a directory notes file" single ((:commit . "981ac308b9b5d58e2af20485377e693d2a6e15aa") (:keywords "convenience") (:authors ("Paul W. Rankin" . "hello@paulwrankin.com")) (:maintainer "Paul W. Rankin" . "hello@paulwrankin.com") (:url . "https://github.com/rnkn/side-notes"))]) (sicp . [(20180823 1222) nil "Structure and Interpretation of Computer Programs in info format" tar ((:commit . "33acfa10a058aa65b6b22084a5b86a82410d794e") (:authors ("Hal Abelson") ("Jerry Sussman") ("Julie Sussman")) (:maintainer "Hal Abelson") (:url . "https://mitpress.mit.edu/sicp"))]) (sibilant-mode . [(20151119 2145) nil "Support for the Sibilant programming language" single ((:commit . "bc1b5d8cd597918bafc9b2880ee49024740e54ab") (:keywords "languages") (:authors ("Jacob Rothstein" . "hi@jbr.me")) (:maintainer "Jacob Rothstein" . "hi@jbr.me") (:url . "http://sibilantjs.info"))]) (shx . [(20181119 251) ((emacs (24 4))) "\"Extras\" for the (comint-mode) shell" single ((:commit . "a7d9dda0196423bbb673f9a4d30ac948449758f6") (:keywords "processes" "tools") (:url . "https://github.com/riscy/shx-for-emacs"))]) (shut-up . [(20180628 1830) ((cl-lib (0 3)) (emacs (24))) "Shut up would you!" single ((:commit . "081d6b01e3ba0e60326558e545c4019219e046ce") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/shut-up.el"))]) (shrink-whitespace . [(20181003 321) nil "Whitespace removal DWIM key" single ((:commit . "0407b89c142bd17e65edb666f35e2c6755bd0867") (:keywords "convenience") (:authors ("Jean-Christophe Petkovich" . "jcpetkovich@gmail.com")) (:maintainer "Jean-Christophe Petkovich" . "jcpetkovich@gmail.com") (:url . "https://gitlab.com/jcpetkovich/shrink-whitespace.el"))]) (shrink-path . [(20170813 247) ((emacs (24)) (s (1 6 1)) (dash (1 8 0)) (f (0 10 0))) "fish-style path" single ((:commit . "9d06c453d1537df46a4b703a29213cc7f7857aa0") (:authors ("Benjamin Andresen")) (:maintainer "Benjamin Andresen") (:url . "https://gitlab.com/bennya/shrink-path.el"))]) (shr-tag-pre-highlight . [(20171113 914) ((emacs (25 1)) (language-detection (0 1 0))) "Syntax highlighting code block in HTML" single ((:commit . "6182f43a36b0f82ba6edcf6e423b5f69a46a814e") (:keywords "html") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/shr-tag-pre-highlight.el"))]) (shpec-mode . [(20150530 922) nil "Minor mode for shpec specification" single ((:commit . "146adc8281d0f115df39a3a3f982ac59ab61b754") (:keywords "languages" "tools") (:authors ("AdrieanKhisbe" . "adriean.khisbe@live.fr")) (:maintainer "AdrieanKhisbe" . "adriean.khisbe@live.fr") (:url . "http://github.com/shpec/shpec-mode"))]) (showtip . [(20090830 1040) nil "Show tip at cursor" single ((:commit . "930da302809a4257e8d69425455b29e1cc91949b") (:keywords "help") (:authors ("Ye Wenbin" . "wenbinye@gmail.com")) (:maintainer "Ye Wenbin" . "wenbinye@gmail.com"))]) (show-marks . [(20130805 1449) ((fm (1 0))) "Navigate and visualize the mark-ring" single ((:commit . "97609566582e65eed0d0a854efa5c312f209115d") (:keywords "convenience") (:authors ("Greg Rowe" . "emacs@therowes.net")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/mark"))]) (show-css . [(20160210 1408) ((doom (1 3)) (s (1 10 0))) "Show the css of the html attribute the cursor is on" tar ((:commit . "771daeddd4df7a7c10f66419a837145649bab63b") (:keywords "hypermedia") (:authors ("Sheldon McGrandle" . "developer@rednemesis.com")) (:maintainer "Sheldon McGrandle" . "developer@rednemesis.com") (:url . "https://github.com/smmcg/showcss-mode"))]) (shoulda . [(20140616 1833) ((cl-lib (0 5))) "Shoulda test support for ruby" single ((:commit . "fbe8eb8efc6cfcca1713283a290882cfcdc8725e") (:keywords "ruby" "tests" "shoulda") (:authors ("Marcwebbie" . "marcwebbie@gmail.com")) (:maintainer "Marcwebbie" . "marcwebbie@gmail.com"))]) (shm . [(20180327 57) nil "Structured Haskell Mode" tar ((:commit . "7f9df73f45d107017c18ce4835bbc190dfe6782e") (:keywords "development" "haskell" "structured") (:authors ("Chris Done" . "chrisdone@gmail.com")) (:maintainer "Chris Done" . "chrisdone@gmail.com"))]) (shimbun . [(20181019 821) nil "interfacing with web newspapers" tar ((:commit . "f392ad9864d3ec30e8b8151bdbd714f51be21bf3") (:keywords "news") (:authors ("TSUCHIYA Masatoshi" . "tsuchiya@namazu.org") ("Akihiro Arisawa " . "ari@mbf.sphere.ne.jp") ("Yuuichi Teranishi " . "teranisi@gohome.org") ("Katsumi Yamaoka " . "yamaoka@jpl.org")) (:maintainer "TSUCHIYA Masatoshi" . "tsuchiya@namazu.org"))]) (shift-text . [(20130831 1655) ((cl-lib (1 0)) (es-lib (0 3))) "Move the region in 4 directions, in a way similar to Eclipse's" single ((:commit . "1be9cbf994000022172ceb746fe1d597f57ea8ba") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/shift-text"))]) (shift-number . [(20170301 1459) nil "Increase/decrease the number at point" single ((:commit . "cd099a5582fc996b800ac7607f6c38a004ce9740") (:keywords "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/shift-number.el"))]) (shen-elisp . [(20180915 2028) ((emacs (24 4))) "Shen implementation in Elisp" tar ((:commit . "73b74c8d6e3a2ea34b667d177d9f130765bfe501") (:keywords "shen" "elisp") (:url . "http://github.com/deech/shen-elisp"))]) (shelltest-mode . [(20180501 141) nil "Major mode for shelltestrunner" single ((:commit . "5fea8c9394380e822971a171905b6b5ab9be812d") (:keywords "languages") (:authors ("Dustin Fechner" . "dfe@rtrn.io")) (:maintainer "Dustin Fechner" . "dfe@rtrn.io") (:url . "https://github.com/rtrn/shelltest-mode"))]) (shelldoc . [(20151115 325) ((cl-lib (0 3)) (s (1 9 0))) "shell command editing support with man page." single ((:commit . "5df2264eb60e45066f3633df4f34834751667346") (:keywords "applications") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "http://github.com/mhayashi1120/Emacs-shelldoc"))]) (shell-toggle . [(20150226 1411) nil "Toggle to and from the shell buffer" single ((:commit . "0d01bd9a780fdb7fe6609c552523f4498649a3b9") (:keywords "processes") (:authors ("Mikael Sjödin" . "mic@docs.uu.se") ("Matthieu Moy") ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Mikael Sjödin" . "mic@docs.uu.se") (:url . "https://github.com/knu/shell-toggle.el"))]) (shell-switcher . [(20161029 552) ((emacs (24))) "Provide fast switching between shell buffers." tar ((:commit . "28a7f753dd7addd2933510526f52620cb5a22048"))]) (shell-split-string . [(20151224 1008) nil "Split strings using shell-like syntax" single ((:commit . "19f6f999c33cc66a4c91bacdcc3697c25d97bf5a") (:keywords "utility" "library" "shell" "string") (:authors ("10sr <8.slashes+el [at] gmail [dot] com>")) (:maintainer "10sr <8.slashes+el [at] gmail [dot] com>") (:url . "https://github.com/10sr/shell-split-string-el"))]) (shell-pop . [(20170304 1416) ((emacs (24)) (cl-lib (0 5))) "helps you to use shell easily on Emacs. Only one key action to work." single ((:commit . "4a3a9d093ad1add792bba764c601aa28de302b34") (:keywords "shell" "terminal" "tools") (:authors ("Kazuo YAGI" . "kazuo.yagi@gmail.com")) (:maintainer "Kazuo YAGI" . "kazuo.yagi@gmail.com") (:url . "http://github.com/kyagi/shell-pop-el"))]) (shell-history . [(20100505 839) nil "integration with shell history" single ((:commit . "ee371a81f2d2bf5a308344078329ca1e9b5ed38c") (:keywords "processes" "convenience") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/shell-history.el"))]) (shell-here . [(20150728 1704) nil "Open a shell relative to the working directory" single ((:commit . "251309141e18978d2b8014345acc6f5afcd4d509") (:keywords "unix" "tools" "processes") (:authors ("Ian Eure" . "ian.eure@gmail.com")) (:maintainer "Ian Eure" . "ian.eure@gmail.com"))]) (shell-current-directory . [(20140101 2354) nil "create new shell based on buffer directory" single ((:commit . "bf843771bf9a4aa05e054ade799eb8862f3be89a") (:keywords "shell" "comint") (:authors ("Daniel Polani")) (:maintainer "Daniel Polani"))]) (shell-command . [(20090830 1040) nil "enables tab-completion for `shell-command'" single ((:commit . "7e22125f746ce9ffbe9b0282d62f4b4bbbe672bd") (:keywords "shell") (:authors ("TSUCHIYA Masatoshi" . "tsuchiya@namazu.org")) (:maintainer "TSUCHIYA Masatoshi" . "tsuchiya@namazu.org"))]) (shampoo . [(20131230 1019) nil "A remote Smalltalk development mode" tar ((:commit . "bc193c39636c30182159c5c91c37a9a4cb50fedf"))]) (shakespeare-mode . [(20180704 2138) nil "A major mode for editing Shakespearean templates." single ((:commit . "c442eeea9d585e1b1fbb8813e33d47feec348a57") (:keywords "shakespeare" "hamlet" "lucius" "julius" "mode") (:authors ("Cody Reichert")) (:maintainer "Cody Reichert") (:url . "http://github.com/CodyReichert/shakespeare-mode"))]) (shader-mode . [(20180518 1157) ((emacs (24))) "Major mode for shader" single ((:commit . "d7dc8d0d6fe8914e8b6d5cf2081ad61e6952359c") (:authors ("midnightSuyama" . "midnightSuyama@gmail.com")) (:maintainer "midnightSuyama" . "midnightSuyama@gmail.com") (:url . "https://github.com/midnightSuyama/shader-mode"))]) (shadchen . [(20141102 1839) nil "pattern matching for elisp" single ((:commit . "35f2b9c304eec990c16efbd557198289dc7cbb1f") (:authors ("Vincent Toups")) (:maintainer "Vincent Toups"))]) (shackle . [(20171209 2201) ((cl-lib (0 5))) "Enforce rules for popups" single ((:commit . "4189c1c773aab533969b587f7801ffbcd1d7d613") (:keywords "convenience") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/shackle"))]) (sexy-monochrome-theme . [(20180526 808) nil "A sexy dark Emacs >= 24 theme for your sexy code" single ((:commit . "036bc238e48dd21aae1c34e6971d376582d8281b") (:keywords "themes") (:authors ("Volodymyr Yevtushenko" . "voloyev@vivaldi.net")) (:maintainer "Volodymyr Yevtushenko" . "voloyev@vivaldi.net") (:url . "https://github.com/voloyev/sexy-monochrome-theme"))]) (sexp-move . [(20150915 1730) nil "Improved S-Expression Movement" single ((:commit . "117f7a91ab7c25e438413753e916570122011ce7") (:keywords "sexp") (:authors ("Philip Woods" . "elzairthesorcerer@gmail.com")) (:maintainer "Philip Woods" . "elzairthesorcerer@gmail.com") (:url . "https://gitlab.com/elzair/sexp-move"))]) (seti-theme . [(20161208 1636) nil "A dark colored theme, inspired by Seti Atom Theme" single ((:commit . "cbfef2fc15d19ce4c8326e65fafdd61737077132") (:keywords "themes") (:authors ("Vlad Piersec" . "vlad.piersec@gmail.com")) (:maintainer "Vlad Piersec" . "vlad.piersec@gmail.com") (:url . "https://github.com/caisah/seti-theme"))]) (session . [(20120511 0) nil "use variables, registers and buffer places across sessions" single ((:commit . "19ea0806873daac3539a4b956e15655e99e3dd6c") (:keywords "session" "session management" "desktop" "data" "tools") (:authors ("Christoph Wedler" . "wedler@users.sourceforge.net")) (:maintainer "Christoph Wedler" . "wedler@users.sourceforge.net") (:url . "http://emacs-session.sourceforge.net/"))]) (sesman . [(20181109 1100) ((emacs (25))) "Generic Session Manager" tar ((:commit . "2a1a9a4ccfd88127e13f2655ac130c82fe84f2f7") (:keywords "process") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/vspinu/sesman"))]) (services . [(20170802 1130) ((cl-lib (0 5))) "Services database access functions." single ((:commit . "04c7986041a33dfa0b0ae57c7d6fbd600548c596") (:keywords "convenience" "net" "services") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/services.el"))]) (serverspec . [(20150623 1155) ((dash (2 6 0)) (s (1 9 0)) (f (0 16 2)) (helm (1 6 1))) "Serverspec minor mode" tar ((:commit . "b6dfe82af9869438de5e5d860ced196641f372c0") (:authors ("k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>")) (:maintainer "k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>") (:url . "http://101000lab.org"))]) (servant . [(20140216 1219) ((s (1 8 0)) (dash (2 2 0)) (f (0 11 0)) (ansi (0 3 0)) (commander (0 5 0)) (epl (0 2)) (shut-up (0 2 1)) (web-server (0 0 1))) "ELPA server written in Emacs Lisp" tar ((:commit . "4d2aa8250b54b28e6e7ee4cd5ebd98a33db2c134") (:keywords "elpa" "server") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com") ("Sebastian Wiesner" . "lunaryorn@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/servant.el"))]) (sequential-command . [(20170926 40) nil "Many commands into one command" tar ((:commit . "a48cbcbe273b33edd3ae56e68f44b4100fa3a48a") (:keywords "convenience" "lisp") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/sequential-command.el"))]) (sequences . [(20170818 1252) ((emacs (24))) "Ports of some Clojure sequence functions." single ((:commit . "564ebbd93b0beea4e75acfbf824350e90b5d5738") (:keywords "convenience") (:authors ("Tim Visher" . "tim.visher@gmail.com")) (:maintainer "Tim Visher" . "tim.visher@gmail.com"))]) (seoul256-theme . [(20180505 757) ((emacs (24 3))) "Low-contrast color scheme based on Seoul Colors." single ((:commit . "d28a9de73a5ffb1a1c9492db75a5c1efe5e9815f") (:keywords "theme") (:authors ("Anand Iyer" . "anand.ucb@gmail.com")) (:maintainer "Anand Iyer" . "anand.ucb@gmail.com") (:url . "http://github.com/anandpiyer/seoul256-emacs"))]) (sentence-navigation . [(20180408 1619) ((ample-regexps (0 1)) (cl-lib (0 5)) (emacs (24 4))) "Commands to navigate one-spaced sentences." single ((:commit . "7c5d2edeaed01196aec25031782e89adeaa089f0") (:keywords "sentence" "evil") (:authors ("Fox Kiester" . "noct@openmailbox.org")) (:maintainer "Fox Kiester" . "noct@openmailbox.org") (:url . "https://github.com/noctuid/emacs-sentence-navigation"))]) (sensitive . [(20170818 1251) ((emacs (24)) (sequences (0 1 0))) "A dead simple way to load sensitive information" single ((:commit . "69dd6125a41d8b55f4b6ba61daa4d1aa1f716fa8") (:keywords "convenience") (:authors ("Tim Visher" . "tim.visher@gmail.com")) (:maintainer "Tim Visher" . "tim.visher@gmail.com"))]) (sendto . [(20160425 1250) ((emacs (24 4))) "send the region content to a function" single ((:commit . "076b81d7a53f75b0a59b0ef3448f35570567054c") (:keywords "convenience" "region") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/sendto.el"))]) (semi . [(20180825 901) ((flim (1 14 9))) "A library to provide MIME features." tar ((:commit . "d445dbdf39bab9aaf00582506357f25f1b78d76d"))]) (selectric-mode . [(20170216 1111) nil "IBM Selectric mode for Emacs" tar ((:commit . "aed70015b29074b52a5d0c49b88b7a501d276dda") (:keywords "multimedia" "convenience" "typewriter" "selectric") (:authors ("Ricardo Bánffy" . "rbanffy@gmail.com")) (:maintainer "Ricardo Banffy" . "rbanffy@gmail.com") (:url . "https://github.com/rbanffy/selectric-mode"))]) (selected . [(20170222 834) nil "Keymap for when region is active" single ((:commit . "03edaeac90bc6000d263f03be3d889b4685e1bf7") (:keywords "convenience") (:authors ("Erik Sjöstrand")) (:maintainer "Erik Sjöstrand") (:url . "http://github.com/Kungsgeten/selected.el"))]) (select-themes . [(20160221 106) nil "Color theme selection with completing-read" single ((:commit . "236f54287519a3ea6dd7b3992d053e4f4ff5d0fe") (:authors ("Jason Milkins" . "jasonm23@gmail.com")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com") (:url . "https://github.com/jasonm23/emacs-select-themes"))]) (sekka . [(20170803 1247) ((cl-lib (0 3)) (concurrent (0 3 1)) (popup (0 5 2))) "A client for Sekka IME server" single ((:commit . "61840b57d9ae32bf8e297b175942590a1319c7e7") (:keywords "ime" "skk" "japanese") (:authors ("Kiyoka Nishiyama" . "kiyoka@sumibi.org")) (:maintainer "Kiyoka Nishiyama" . "kiyoka@sumibi.org") (:url . "https://github.com/kiyoka/sekka"))]) (seethru . [(20150218 1829) ((shadchen (1 4))) "Easily change Emacs' transparency" single ((:commit . "d87e231f99313bea75b1e69e48c0f32968c82060") (:keywords "lisp" "tools" "alpha" "transparency") (:authors ("Benaiah Mischenko" . "benaiah@mischenko.com")) (:maintainer "Benaiah Mischenko" . "benaiah@mischenko.com") (:url . "http://github.com/benaiah/seethru"))]) (seeing-is-believing . [(20170214 1320) nil "minor mode for running the seeing-is-believing ruby gem" single ((:commit . "fbbe246c0fda87bb26227bb826eebadb418a220f") (:authors ("John Cinnamond")) (:maintainer "John Cinnamond"))]) (see-mode . [(20180511 41) ((emacs (24 4)) (language-detection (0 1 0))) "Edit string in a separate buffer" single ((:commit . "b6e72ea90105b03816c334be9e43bb41dcc79abf") (:keywords "convenience") (:authors ("Marcelo Muñoz" . "ma.munoz.araya@gmail.com")) (:maintainer "Marcelo Muñoz" . "ma.munoz.araya@gmail.com") (:url . "https://github.com/marcelino-m/see-mode"))]) (secretaria . [(20181025 1957) ((emacs (24 4)) (alert (1 2)) (s (1 12)) (f (0 19 0))) "A personal assistant based on org-mode" single ((:commit . "27528f57c7543b425940db29b9b99d59d430ff09") (:keywords "org" "convenience") (:authors ("Jorge Araya Navarro" . "jorge@esavara.cr")) (:maintainer "Jorge Araya Navarro" . "jorge@esavara.cr") (:url . "https://gitlab.com/shackra/secretaria"))]) (seclusion-mode . [(20121118 2353) nil "Edit in seclusion. A Dark Room mode." single ((:commit . "9634e76c52bfb7200ff0f9f01404f743429e9ef0") (:authors (nil . "Daniel Leslie dan@ironoxide.ca")) (:maintainer nil . "Daniel Leslie dan@ironoxide.ca") (:url . "http://github.com/dleslie/seclusion-mode"))]) (searchq . [(20150829 1211) ((emacs (24 3))) "Framework of queued search tasks using GREP, ACK, AG and more." tar ((:commit . "dd510d55ad66a82c6ef022cfe7c4a73ad5365f82") (:authors ("boyw165")) (:maintainer "boyw165"))]) (search-web . [(20150312 1103) nil "Post web search queries using `browse-url'." single ((:commit . "c4ae86ac1acfc572b81f3d78764bd9a54034c331") (:authors ("Tomoya Otake" . "tomoya.ton@gmail.com")) (:maintainer "Tomoya Otake" . "tomoya.ton@gmail.com"))]) (sdlang-mode . [(20161201 711) ((emacs (24 3))) "Major mode for Simple Declarative Language files." single ((:commit . "d42a6eedefeb44919fbacf58d302b6df18f05bbc") (:keywords "languages") (:authors ("Vladimir Panteleev")) (:maintainer "Vladimir Panteleev") (:url . "https://github.com/CyberShadow/sdlang-mode"))]) (sdcv . [(20180211 1633) ((emacs (24 3)) (popup (0 5 3)) (showtip (0 1)) (pos-tip (0 4 6)) (cl-lib (0 3))) "Interface for sdcv (StartDict console version)." single ((:commit . "7cb1f8ec0fa4bb25669534d62bff58df38a992a8") (:keywords "startdict" "sdcv") (:authors ("Andy Stewart" . "lazycat.manatee@gmail.com")) (:maintainer "Andy Stewart" . "lazycat.manatee@gmail.com") (:url . "http://www.emacswiki.org/emacs/download/sdcv.el"))]) (scss-mode . [(20180123 1708) nil "Major mode for editing SCSS files" single ((:commit . "cf58dbec5394280503eb5502938f3b5445d1b53d") (:keywords "scss" "css" "mode") (:authors ("Anton Johansson" . "anton.johansson@gmail.com")) (:maintainer "Anton Johansson" . "anton.johansson@gmail.com") (:url . "https://github.com/antonj/scss-mode"))]) (scrooge . [(20180630 1022) ((emacs (24)) (cl-lib (0 5)) (dash (2 13 0)) (thrift (0 9 3))) "Major mode for Twitter Scrooge files" single ((:commit . "0a8c58e9e6708abe4ef7e415bc1e0472318bb1b0") (:keywords "scrooge" "thrift") (:authors ("Daniel McClanahan" . "danieldmcclanahan@gmail.com")) (:maintainer "Daniel McClanahan" . "danieldmcclanahan@gmail.com"))]) (scribble-mode . [(20160124 2328) ((emacs (24))) "Major mode for editing Scribble documents" single ((:commit . "34e9e5edb921813b6483e0fefa848efb6ee4b314") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/scribble-mode"))]) (scratches . [(20151006 416) ((dash (2 11 0)) (f (0 17 0))) "Multiple scratches in any language" single ((:commit . "9441afe6396ca38f08029123fab5d87429cbf315") (:keywords "scratch") (:authors ("Zhang Kai Yu" . "yeannylam@gmail.com")) (:maintainer "Zhang Kai Yu" . "yeannylam@gmail.com"))]) (scratch-pop . [(20170510 1458) ((popwin (0 7 0 -3))) "Generate, popup (& optionally backup) scratch buffer(s)." single ((:commit . "7f4172c792b10bd38898dd8963cf0ade91921869") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (scratch-palette . [(20150225 842) ((popwin (0 7 0 -3))) "make scratch buffer for each files" single ((:commit . "f6803b448079f4a81cc699cec7442ef543cd5818") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (scratch-message . [(20170107 1336) nil "Changing message in your scratch buffer" single ((:commit . "3ecc7f5e3b8a597ebd1492fd426d3720a7f34302") (:keywords "util" "scratch") (:authors ("Sylvain Rousseau <thisirs at gmail dot com>")) (:maintainer "Sylvain Rousseau <thisirs at gmail dot com>") (:url . "https://github.com/thisirs/scratch-message.git"))]) (scratch-log . [(20141115 743) nil "Utility for *scratch* buffer." single ((:commit . "1168f7f16d36ca0f4ddf2bb98881f8db62cc5dc0") (:authors ("kmori" . "morihenotegami@gmail.com")) (:maintainer "kmori" . "morihenotegami@gmail.com"))]) (scratch-ext . [(20140104 516) nil "Extensions for *scratch*" single ((:commit . "388c53cddd0466b451264894667ed64a6947ad67") (:authors ("Kouhei Yanagita" . "yanagi@shakenbu.org")) (:maintainer "Kouhei Yanagita" . "yanagi@shakenbu.org") (:url . "https://github.com/kyanagi/scratch-ext-el"))]) (scratch . [(20170614 2101) nil "Mode-specific scratch buffers" single ((:commit . "2cdf2b841ce7a0987093f65b0cc431947549f897") (:keywords "convenience" "tools" "files") (:authors ("Ian Eure" . "ian.eure@gmail.com")) (:maintainer "Ian Eure" . "ian.eure@gmail.com"))]) (scpaste . [(20180822 1551) ((htmlize (1 39))) "Paste to the web via scp." single ((:commit . "af23b09ece83a9382c3c3c1a2f09e78b8641f0a5") (:keywords "convenience" "hypermedia") (:authors ("Phil Hagelberg")) (:maintainer "Phil Hagelberg") (:url . "https://github.com/technomancy/scpaste"))]) (scp . [(20171204 251) ((emacs (25 1)) (cl-lib (0 5))) "Use the SCP command to transfer files with the remote server" single ((:commit . "447305db246d9c9240678dd9c734ed920300463a") (:keywords "convenience" "scp") (:authors ("zg" . "13853850881@163.com")) (:maintainer "zg" . "13853850881@163.com") (:url . "https://github.com/tszg/emacs-scp"))]) (sclang-snippets . [(20130513 751) ((yasnippet (0 8 0))) "Snippets for the SuperCollider Emacs mode" tar ((:commit . "c840a416b96f83bdd70491e3d1fbe2f1ae8b3f58") (:keywords "snippets") (:authors ("ptrv" . "mail@petervasil.net")) (:maintainer "ptrv" . "mail@petervasil.net"))]) (sclang-extensions . [(20160509 338) ((auto-complete (1 4 0)) (s (1 3 1)) (dash (1 2 0)) (emacs (24 1))) "Extensions for the SuperCollider Emacs mode." tar ((:commit . "e9cc79732f16fdb582129303110c163dcc0d6da0") (:keywords "sclang" "supercollider" "languages" "tools") (:authors ("Chris Barrett" . "chris.d.barrett@me.com")) (:maintainer "Chris Barrett" . "chris.d.barrett@me.com"))]) (scion . [(20130315 1255) nil "Haskell Minor Mode for Interacting with the Scion Library" single ((:commit . "99b4589175665687181a932cd836850205625f71") (:url . "https://code.google.com/p/scion-lib/"))]) (schrute . [(20170521 1840) ((emacs (24 3))) "Help you remember there is a better way to do something." single ((:commit . "59faa6c4232ae183cea93237301acad8c0763997") (:keywords "convenience") (:authors ("Jorge Araya Navarro" . "elcorreo@deshackra.com")) (:maintainer "Jorge Araya Navarro" . "elcorreo@deshackra.com") (:url . "https://bitbucket.org/shackra/dwight-k.-schrute"))]) (scheme-here . [(20141028 718) nil "cmuscheme extension for multiple inferior processes" single ((:commit . "430ba017cc530865218de23a8f7985095a58343f") (:keywords "scheme") (:authors ("Dimitris Vyzovitis" . "vyzo@media.mit.edu")) (:maintainer "Wei Zhao" . "kaihaosw@gmail.com") (:url . "https://github.com/kaihaosw/scheme-here"))]) (scheme-complete . [(20181029 1255) nil "Smart auto completion for Scheme in Emacs" single ((:commit . "b86ee41d48664839181498313f4f3dc2fef17d6f") (:authors ("Alex Shinn")) (:maintainer "Alex Shinn"))]) (scf-mode . [(20151122 248) nil "shorten file-names in compilation type buffers" single ((:commit . "dbfcdcd89034f208d65e181af58e0d73ad09f8b2") (:keywords "compilation") (:authors ("Le Wang")) (:maintainer "Le Wang") (:url . "https://github.com/lewang/scf-mode"))]) (scala-mode . [(20170802 1132) nil "Major mode for editing Scala" tar ((:commit . "56cba2903cf6e12c715dbb5c99b34c97b2679379") (:keywords "languages") (:url . "https://github.com/ensime/emacs-scala-mode"))]) (scad-preview . [(20160206 1336) ((scad-mode (91 0))) "Preview SCAD models in real-time within Emacs" single ((:commit . "fee011589671cc8f1296cb6aa81553e5bb699819") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (scad-mode . [(20180109 209) nil "A major mode for editing OpenSCAD code" single ((:commit . "470de667e5523467d353f7fa797cfc662069a043") (:keywords "languages") (:authors ("Len Trigg, Łukasz Stelmach")) (:maintainer "Len Trigg" . "lenbok@gmail.com") (:url . "https://raw.github.com/openscad/openscad/master/contrib/scad-mode.el"))]) (sbt-mode . [(20180511 1622) ((emacs (24 4))) "Interactive support for sbt projects" tar ((:commit . "e658af140547cbef495c33535c7f694a501d318c") (:keywords "languages") (:url . "https://github.com/ensime/emacs-sbt-mode"))]) (sayid . [(20181024 1838) ((cider (0 14 0))) "sayid nREPL middleware client" single ((:commit . "078378240277160b00d332065d8325e713c0b526") (:authors ("Bill Piel" . "bill@billpiel.com")) (:maintainer "Bill Piel" . "bill@billpiel.com") (:url . "https://github.com/clojure-emacs/sayid"))]) (say-what-im-doing . [(20160706 1931) nil "dictate what you're doing with text to speech" single ((:commit . "5b2ce6783b02805bcac1107a149bfba3852cd9d5") (:keywords "text to speech" "dumb" "funny") (:authors ("Benaiah Mischenko")) (:maintainer "Benaiah Mischenko") (:url . "http://github.com/benaiah/say-what-im-doing"))]) (savekill . [(20140418 229) nil "Save kill ring to disk" single ((:commit . "67fc94e3d8fe8ce3ca16f90518f6a46479b63e34") (:keywords "tools") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/savekill.el"))]) (save-visited-files . [(20170301 650) nil "save opened files across sessions" single ((:commit . "33e8d223f622001f5792c52d8b36661e46b5834c") (:authors ("Nathaniel Flath" . "nflath@gmail.com")) (:maintainer "Nathaniel Flath" . "nflath@gmail.com") (:url . "http://github.com/nflath/save-visited-files"))]) (save-load-path . [(20140206 1214) nil "save load-path and reuse it to test" single ((:commit . "6cb763a37e2b8af505bff2bcd11fd49c9ea04d66") (:keywords "lisp") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/save-load-path.el"))]) (sauron . [(20171105 1047) nil "Track (erc/org/dbus/...) events and react to them." tar ((:commit . "50f09bfc6f5bf79e72a1223e345ee720b507e56a"))]) (sass-mode . [(20161007 626) ((haml-mode (3 0 15)) (cl-lib (0 5))) "Major mode for editing Sass files" single ((:commit . "37105f46f6ea3592039f2ea7d0463ae7f042616e") (:keywords "markup" "language" "css") (:authors ("Natalie Weizenbaum")) (:maintainer "Natalie Weizenbaum") (:url . "http://github.com/nex3/haml/tree/master"))]) (sane-term . [(20160620 1347) ((emacs (24 1))) "Multi Term is crazy. This is not." single ((:commit . "ef6fd08078f49f2bb3be60855d2d002bb6a5e0d2") (:authors ("Adam Patterson" . "adam@adamrt.com")) (:maintainer "Adam Patterson" . "adam@adamrt.com") (:url . "http://github.com/adamrt/sane-term"))]) (salt-mode . [(20181015 1025) ((emacs (24 4)) (yaml-mode (0 0 12)) (mmm-mode (0 5 4)) (mmm-jinja2 (0 1))) "Major mode for Salt States" single ((:commit . "432eaf8a48a79ec5e3b6149dac28370e140155e4") (:keywords "languages") (:authors ("Ben Hayden" . "hayden767@gmail.com")) (:maintainer "Glynn Forrest" . "me@glynnforrest.com") (:url . "https://github.com/glynnforrest/salt-mode"))]) (salesforce-utils . [(20160814 154) ((cl-lib (0 5))) "simple utilities for Salesforce" single ((:commit . "73328baf0fb94ac0d0de645a8f6d42e5ae27f773") (:authors ("Sean McAfee")) (:maintainer "Sean McAfee") (:url . "https://github.com/grimnebulin/emacs-salesforce"))]) (sailfish-scratchbox . [(20171202 1332) nil "Sailfish OS scratchbox inside the emacs." single ((:commit . "bb5ed0f0b0cd72f2eb1af065b7587ec81866b089") (:keywords "sb2" "mb2" "building" "scratchbox" "sailfish") (:authors ("V. V. Polevoy" . "fx@thefx.co")) (:maintainer "V. V. Polevoy" . "fx@thefx.co") (:url . "https://github.com/vityafx/sailfish-scratchbox.el"))]) (sage-shell-mode . [(20180215 835) ((cl-lib (0 6 1)) (emacs (24 4)) (let-alist (1 0 5)) (deferred (0 5 1))) "A front-end for Sage Math" tar ((:commit . "9f07ff835e8d19afe571dbe414afb690c7b1cb5c") (:keywords "sage" "math") (:authors ("Sho Takemori" . "stakemorii@gmail.com")) (:maintainer "Sho Takemori" . "stakemorii@gmail.com") (:url . "https://github.com/sagemath/sage-shell-mode"))]) (sackspace . [(20130719 956) nil "A better backspace" single ((:commit . "fd0480eaaf6d3d11fd30ac5feb2da2f4f7572708") (:keywords "delete" "convenience") (:authors ("Michael Markert" . "markert.michael@googlemail.com")) (:maintainer "Michael Markert" . "markert.michael@googlemail.com") (:url . "http://github.com/cofi/sackspace.el"))]) (s3ed . [(20180204 1349) ((emacs (24 4)) (seq (0)) (dash (0))) "Tramp-like access to s3" tar ((:commit . "13503cb057bed29cb00a14dffe4472b5cb7748ad") (:keywords "s3" "tools") (:authors ("Matt Usifer" . "mattusifer@gmail.com")) (:maintainer "Matt Usifer" . "mattusifer@gmail.com") (:url . "https://github.com/mattusifer/s3ed"))]) (s12cpuv2-mode . [(20171013 2051) ((emacs (24 3))) "Major-mode for S12CPUV2 assembly" single ((:commit . "b17d4cf848dec1e20e66458e5c7ff77a2c051a8c") (:keywords "s12cpuv2" "assembly" "languages") (:authors ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainer "Adam Niederer" . "adam.niederer@gmail.com") (:url . "https://github.com/AdamNiederer/s12cpuv2-mode"))]) (s-buffer . [(20130605 2124) ((s (1 6 0)) (noflet (0 0 3))) "s operations for buffers" single ((:commit . "f95d234282377f00a2c3a9846681080cb95bb1df") (:keywords "lisp") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "http://github.com/nicferrier/emacs-s-buffer"))]) (s . [(20180406 808) nil "The long lost Emacs string manipulation library." single ((:commit . "03410e6a7a2b11e47e1fea3b7d9899c7df26435e") (:keywords "strings") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (ryo-modal . [(20180331 818) ((emacs (24 4))) "Roll your own modal mode" single ((:commit . "42f874467dfdce59b511f883496ce2624b133dd7") (:keywords "convenience" "modal" "keys") (:authors ("Erik Sjöstrand" . "sjostrand.erik@gmail.com")) (:maintainer "Erik Sjöstrand" . "sjostrand.erik@gmail.com") (:url . "http://github.com/Kungsgeten/ryo-modal"))]) (rvm . [(20150402 1442) nil "Emacs integration for rvm" single ((:commit . "134497bc460990c71ab8fa75431156e62c17da2d") (:keywords "ruby" "rvm") (:authors ("Yves Senn" . "yves.senn@gmx.ch")) (:maintainer "Yves Senn" . "yves.senn@gmx.ch") (:url . "http://www.emacswiki.org/emacs/RvmEl"))]) (rustic . [(20181101 1357) ((emacs (26 1)) (xterm-color (1 6)) (dash (2 13 0)) (s (1 10 0)) (f (0 18 2)) (projectile (0 14 0)) (markdown-mode (2 3)) (spinner (1 7 3))) "Rust development environment" tar ((:commit . "dd4bd58967ed9154af26aab72f0e1fd2a8c93b7e") (:keywords "languages") (:authors ("Mozilla")) (:maintainer "Mozilla"))]) (rust-playground . [(20180807 1158) ((emacs (24 3))) "Local Rust playground for short code snippets." single ((:commit . "092c8b11d62dea23953a004744833092bac85fe1") (:keywords "tools" "rust") (:authors ("Alexander I.Grafov" . "grafov@gmail.com")) (:maintainer "Alexander I.Grafov" . "grafov@gmail.com") (:url . "https://github.com/grafov/rust-playground"))]) (rust-mode . [(20181008 1628) ((emacs (24 0))) "A major emacs mode for editing Rust source code" single ((:commit . "12cb16964ce01f0e484b082ccc8a3430cc1c4158") (:keywords "languages") (:authors ("Mozilla")) (:maintainer "Mozilla") (:url . "https://github.com/rust-lang/rust-mode"))]) (russian-holidays . [(20170109 2140) nil "Russian holidays for the calendar" single ((:commit . "b285a30f29d85c48e3ea4eb93972d34a090c167b") (:authors ("Alexander I.Grafov" . "siberian@laika.name")) (:maintainer "Alexander I.Grafov" . "siberian@laika.name") (:url . "https://github.com/grafov/russian-holidays"))]) (runtests . [(20150807 831) nil "Run unit tests from Emacs" single ((:commit . "ed90249f24cc48290018df48b9b9b7172440be3e") (:keywords "test") (:authors ("Sune Simonsen" . "sune@we-knowhow.dk")) (:maintainer "Sune Simonsen" . "sune@we-knowhow.dk") (:url . "https://github.com/sunesimonsen/emacs-runtests"))]) (runner . [(20160524 743) nil "Improved \"open with\" suggestions for dired" single ((:commit . "a211d57ddc600410d07a8b534920ba905b093d87") (:keywords "shell command" "dired" "file extension" "open with") (:authors ("Thamer Mahmoud" . "thamer.mahmoud@gmail.com")) (:maintainer "Thamer Mahmoud" . "thamer.mahmoud@gmail.com") (:url . "https://github.com/thamer/runner"))]) (run-stuff . [(20180209 748) ((emacs (24 4))) "context based command execution" single ((:commit . "ed42a7bc9a197ccf1ca87f9937bf98f0a9ed3f92") (:keywords "files" "lisp" "files" "convenience" "hypermedia") (:authors ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainer "Campbell Barton" . "ideasman42@gmail.com") (:url . "https://github.com/ideasman42/emacs-run-stuff"))]) (rum-mode . [(20180127 22) ((emacs (24))) "Major mode for Rum programming language" single ((:commit . "893b1a26244ef6ea82833a9afbc13cb82c0cfb53") (:keywords "rum" "languages" "lisp") (:url . "https://github.com/rumlang/rum-mode"))]) (rufo . [(20170718 1416) ((emacs (24 3))) "use rufo to automatically format ruby files" single ((:commit . "85a6d80fb05fef396a8029b8f944c92a53faf8fe") (:authors ("Daniel Ma" . "danielhgma@gmail.com")) (:maintainer "Daniel Ma" . "danielhgma@gmail.com") (:url . "https://github.com/danielma/rufo.el"))]) (ruby-tools . [(20151209 1615) nil "Collection of handy functions for ruby-mode." tar ((:commit . "6b97066b58a4f82eb2ecea6434a0a7e981aa4c18"))]) (ruby-test-mode . [(20171016 1631) ((ruby-mode (1 0)) (pcre2el (1 8))) "Minor mode for Behaviour and Test Driven" single ((:commit . "87f6d770f8d2326c8d36099aeee5d577f3e2af69") (:keywords "ruby" "unit" "test" "rspec") (:authors ("Roman Scherer" . "roman.scherer@gmx.de") ("Caspar Florian Ebeling" . "florian.ebeling@gmail.com")) (:maintainer "Roman Scherer" . "roman.scherer@burningswell.com"))]) (ruby-refactor . [(20160214 1650) ((ruby-mode (1 2))) "A minor mode which presents various Ruby refactoring helpers." single ((:commit . "e6b7125878a08518bffec6942df0c606f748e9ee") (:keywords "refactor" "ruby") (:url . "https://github.com/ajvargo/ruby-refactor"))]) (ruby-interpolation . [(20131112 1652) nil "Ruby string interpolation helpers" single ((:commit . "1978e337601222cedf00e117bf4b5cac15d1f203") (:authors ("Arthur Leonard Andersen" . "leoc.git@gmail.com")) (:maintainer "Arthur Leonard Andersen" . "leoc.git@gmail.com") (:url . "http://github.com/leoc/ruby-interpolation.el"))]) (ruby-hash-syntax . [(20180324 209) nil "Toggle ruby hash syntax between classic and 1.9 styles" single ((:commit . "89fc364a837d7a78ecce34380f09c073a83e30e0") (:keywords "languages") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/ruby-hash-syntax"))]) (ruby-factory . [(20160102 721) ((inflections (1 1))) "Minor mode for Ruby test object generation libraries" tar ((:commit . "2bb7ccc2fccb5257376a989aa395bc7b9eb1d55d") (:keywords "ruby" "rails" "convenience") (:authors ("Skye Shaw" . "skye.shaw@gmail.com")) (:maintainer "Skye Shaw" . "skye.shaw@gmail.com") (:url . "http://github.com/sshaw/ruby-factory-mode"))]) (ruby-extra-highlight . [(20171106 1933) nil "Highlight Ruby parameters." single ((:commit . "83942d18eae361998d24c1c523b308eea821f048") (:keywords "languages" "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/ruby-extra-highlight"))]) (ruby-end . [(20141215 1223) nil "Automatic insertion of end blocks for Ruby" single ((:commit . "a136f75abb6d5577ce40d61dfeb778c2e9bb09c0") (:keywords "speed" "convenience" "ruby") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/ruby-end"))]) (ruby-electric . [(20170810 1130) nil "Minor mode for electrically editing ruby code" single ((:commit . "3553448a780a1ea5c3b0e9becd820d4762876593") (:keywords "languages" "ruby") (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/ruby-electric.el"))]) (ruby-compilation . [(20150709 640) ((inf-ruby (2 2 1))) "run a ruby process in a compilation buffer" single ((:commit . "134438af8fbdfa9c8077267c768d273a9792b484") (:keywords "test" "convenience") (:authors ("Eric Schulte")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/eschulte/rinari"))]) (ruby-additional . [(20180913 1257) ((emacs (24 3)) (ruby-mode (1 2))) "ruby-mode extensions yet to be merged into Emacs" tar ((:commit . "ee275264bc9217e43df22733c1161514805ec3d4") (:keywords "ruby" "languages") (:url . "https://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/misc/"))]) (rubocopfmt . [(20181009 1703) ((cl-lib (0 5))) "Minor-mode to format Ruby code with RuboCop on save" single ((:commit . "fc96145719a65b2551339d087ddd95b72e14646f") (:keywords "convenience" "wp" "edit" "ruby" "rubocop") (:authors ("Jim Myhrberg")) (:maintainer "Jim Myhrberg") (:url . "https://github.com/jimeh/rubocopfmt.el"))]) (rubocop . [(20170312 611) ((emacs (24))) "An Emacs interface for RuboCop" single ((:commit . "0ab1329a8634762bec5bdf5f415c05b32f990248") (:keywords "project" "convenience") (:authors ("Bozhidar Batsov")) (:maintainer "Bozhidar Batsov") (:url . "https://github.com/bbatsov/rubocop-emacs"))]) (rubik . [(20180222 2014) ((cl-lib (1 0)) (emacs (25 3))) "Rubik's Cube" single ((:commit . "c8dab1726463dbc9042a0b00186e4a8df02eb868") (:keywords "games") (:authors ("Ivan 'Kurvivor' Truskov" . "trus19@gmail.com")) (:maintainer "Ivan 'Kurvivor' Truskov" . "trus19@gmail.com") (:url . "https://github.com/Kurvivor19/rubik-mode"))]) (rtm . [(20180329 1508) ((cl-lib (1 0))) "An elisp implementation of the Remember The Milk API" single ((:commit . "3e3d09387cb84801343ecca8fb02e82f213e7bbe") (:keywords "remember" "the" "milk" "productivity" "todo") (:authors ("Friedrich Delgado Friedrichs" . "frie...@nomaden.org")) (:maintainer "Friedrich Delgado Friedrichs" . "frie...@nomaden.org") (:url . "https://github.com/pmiddend/emacs-rtm"))]) (rtags . [(20181120 756) nil "A front-end for rtags" single ((:commit . "2f87c3708cc4873a71ebad2e59842f0daa08bfaa") (:authors ("Jan Erik Hanssen" . "jhanssen@gmail.com") ("Anders Bakken" . "agbakken@gmail.com")) (:maintainer "Jan Erik Hanssen" . "jhanssen@gmail.com") (:url . "http://rtags.net"))]) (rspec-mode . [(20181120 1347) ((ruby-mode (1 0)) (cl-lib (0 4))) "Enhance ruby-mode for RSpec" tar ((:commit . "05561bb8ebb44f5a75e21b69d0ccd67716d8e938") (:keywords "rspec" "ruby") (:authors ("Peter Williams, et al.")) (:maintainer "Peter Williams, et al.") (:url . "http://github.com/pezra/rspec-mode"))]) (rsense . [(20100511 405) nil "RSense client for Emacs" single ((:commit . "8b5ee58318747ca1dde84ee41d48c4f50175cf35") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "tomo@cx4a.org")) (:maintainer "Tomohiro Matsuyama" . "tomo@cx4a.org"))]) (rpn-calc . [(20170523 142) ((popup (0 4))) "quick RPN calculator for hackers" single ((:commit . "66fcb64dbfddfc23823356b6213215bd7ab5efc6") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "https://github.com/zk-phi/rpn-calc"))]) (rpm-spec-mode . [(20160710 1136) nil "RPM spec file editing commands for Emacs/XEmacs" single ((:commit . "c1c38050c48ea330c7cea632b8785d66daeefb2b") (:keywords "unix" "languages") (:authors ("Stig Bjørlykke," . "stig@bjorlykke.org")) (:maintainer "Stig Bjørlykke," . "stig@bjorlykke.org"))]) (roy-mode . [(20121208 1158) nil "Roy major mode" single ((:commit . "0416f561edbc6b4a29fced8be84d2527a9613d65") (:keywords "extensions") (:authors ("Georgii Leontiev")) (:maintainer "Georgii Leontiev") (:url . "https://github.com/folone/roy-mode"))]) (rotate . [(20160909 836) nil "Rotate the layout of emacs" single ((:commit . "091b5ac4fc310773253efb317e3dbe8e46959ba6") (:keywords "window" "layout") (:authors ("daichi.hirata <hirata.daichi at gmail.com>")) (:maintainer "daichi.hirata <hirata.daichi at gmail.com>") (:url . "https://github.com/daichirata/emacs-rotate"))]) (rope-read-mode . [(20171003 1419) nil "Rearrange lines to read text smoothly" single ((:commit . "77b183a6f5450138388509f54a6a2ce442766e50") (:keywords "reading" "convenience" "chill") (:authors ("Marco Wahl" . "marcowahlsoft@gmail.com")) (:maintainer "Marco Wahl" . "marcowahlsoft@gmail.com") (:url . "https://github.com/marcowahl/rope-read-mode"))]) (roguel-ike . [(20160120 302) ((popup (0 5 0))) "A coffee-break roguelike" tar ((:commit . "706dcb0687e8016d7d776f9d9e5ace9fdbbca43c"))]) (robots-txt-mode . [(20180919 1541) nil "Major mode for editing robots.txt" single ((:commit . "f8fc7ee50a3d5d7a2838772ed298fb69b9051c5c") (:keywords "languages" "comm" "web") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/robots-txt-mode"))]) (robe . [(20171116 2049) ((inf-ruby (2 5 1)) (emacs (24 4))) "Code navigation, documentation lookup and completion for Ruby" tar ((:commit . "7829f4fdda41eee0add8868646ab86e6b17de4b4") (:keywords "ruby" "convenience" "rails") (:authors ("Dmitry Gutov")) (:maintainer "Dmitry Gutov") (:url . "https://github.com/dgutov/robe"))]) (rmsbolt . [(20181108 324) ((emacs (25 1))) "A compiler output viewer" tar ((:commit . "349ace73107f818bff5ecf4dee17c7192a9159e0") (:keywords "compilation" "tools") (:authors ("Jay Kamat" . "jaygkamat@gmail.com")) (:maintainer "Jay Kamat" . "jaygkamat@gmail.com") (:url . "http://gitlab.com/jgkamat/rmsbolt"))]) (rjsx-mode . [(20180913 2224) ((emacs (24 4)) (js2-mode (20170504))) "Real support for JSX" single ((:commit . "89358fd230878a19e3232a3e4ce21b7fb608faae") (:keywords "languages") (:authors ("Felipe Ochoa" . "felipe@fov.space")) (:maintainer "Felipe Ochoa" . "felipe@fov.space") (:url . "https://github.com/felipeochoa/rjsx-mode/"))]) (riscv-mode . [(20170804 1521) ((emacs (24 4))) "Major-mode for RISC V assembly" single ((:commit . "99febf97d1fa9441e8dada94fe30c2aa439c9749") (:keywords "riscv" "assembly") (:authors ("Adam Niederer <https://github.com/AdamNiederer>")) (:maintainer "Adam Niederer") (:url . "https://github.com/AdamNiederer/riscv-mode"))]) (ripgrep . [(20180323 1620) nil "Front-end for ripgrep, a command line search tool" single ((:commit . "93eca9138f6d6eea1af92f476c797ce19fa573d9") (:keywords "ripgrep" "ack" "pt" "ag" "sift" "grep" "search") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/ripgrep.el"))]) (rings . [(20160531 2027) nil "Buffer rings. Like tabs, but better." single ((:commit . "3590b222eb80652cbd27866f066bd3571d86edfc") (:keywords "utilities" "productivity") (:authors ("Konrad Scorciapino")) (:maintainer "Konrad Scorciapino") (:url . "http://github.com/konr/rings"))]) (rinari . [(20150709 640) ((ruby-mode (1 0)) (inf-ruby (2 2 5)) (ruby-compilation (0 16)) (jump (2 0))) "Rinari Is Not A Rails IDE" single ((:commit . "134438af8fbdfa9c8077267c768d273a9792b484") (:keywords "ruby" "rails" "project" "convenience" "web") (:authors ("Phil Hagelberg, Eric Schulte, Steve Purcell")) (:maintainer "Phil Hagelberg, Eric Schulte, Steve Purcell") (:url . "https://github.com/eschulte/rinari"))]) (rimero-theme . [(20180901 1348) ((emacs (24))) "Theme with a dark background suitable for UI and terminal usage." single ((:commit . "a2e706c2b34f749019979a133f08a2d94a1104b3") (:keywords "faces" "theme" "dark" "light colors") (:authors ("Yves Zoundi" . "yveszoundi@users.sf.net")) (:maintainer "Yves Zoundi" . "yveszoundi@users.sf.net") (:url . "https://github.com/yveszoundi/emacs-rimero-theme"))]) (rigid-tabs . [(20170903 1559) ((emacs (24 3))) "Fix TAB alignment in diff buffers" single ((:commit . "eba84ceaba2e57e76ad2dfbb7a7154238a25d956") (:keywords "diff" "whitespace" "version control" "magit") (:authors ("Yuri D'Elia" . "wavexx@thregr.org")) (:maintainer "Yuri D'Elia" . "wavexx@thregr.org") (:url . "https://github.com/wavexx/rigid-tabs.el"))]) (rich-minority . [(20170813 1322) ((cl-lib (0 5))) "Clean-up and Beautify the list of minor-modes." single ((:commit . "a50d9b2fd059f6a0e5b22063a5375851a087f61a") (:keywords "mode-line" "faces") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/rich-minority"))]) (rib-mode . [(20170726 1448) ((emacs (24))) "RenderMan® Interface Bytestream (RIB) Major Mode" single ((:commit . "97470158784c3c212e22e2c20b8471ee65ba59af") (:authors ("Remik Ziemlinski and Daniel Blezek" . "daniel.blezek@gmail.com")) (:maintainer "Remik Ziemlinski and Daniel Blezek" . "daniel.blezek@gmail.com") (:url . "https://github.com/blezek/rib-mode"))]) (rhtml-mode . [(20130422 1311) nil "major mode for editing RHTML files" tar ((:commit . "a6d71b38a3db867ccf82999c99805db1a3a33c33"))]) (rg . [(20181023 634) ((cl-lib (0 5)) (emacs (24 4)) (s (1 10 0)) (wgrep (2 1 10))) "A search tool based on ripgrep." tar ((:commit . "f6271b51915d2cffb041a58d1694d2319208e3a7") (:keywords "matching" "tools") (:authors ("David Landell" . "david.landell@sunnyhill.email") ("Roland McGrath" . "roland@gnu.org")) (:maintainer "David Landell" . "david.landell@sunnyhill.email") (:url . "https://github.com/dajva/rg.el"))]) (reykjavik-theme . [(20180823 1544) ((emacs (24))) "Theme with a dark background." single ((:commit . "2cd0043ae6d046f812a95bb26398ea23141beccc") (:authors ("martin haesler")) (:maintainer "martin haesler"))]) (review-mode . [(20180312 1235) nil "major mode for ReVIEW" single ((:commit . "bf38b0ce8be2eef1cf810ac6f3664d2190bb9ef7") (:authors ("Kenshi Muto" . "kmuto@debian.org")) (:maintainer "Kenshi Muto" . "kmuto@debian.org") (:url . "https://github.com/kmuto/review-el"))]) (reverse-theme . [(20141205 145) nil "Reverse theme for Emacs" single ((:commit . "8319d0d5342890a3530ffa4daafdb7c35feda1ca") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-reverse-theme"))]) (reverse-im . [(20180213 1325) ((emacs (24 4))) "Reverse mapping for keyboard layouts other than english." single ((:commit . "16931909115a922b1cf3846b1f60509b6590001f") (:keywords "input" "method") (:url . "https://github.com/a13/reverse-im.el"))]) (reveal-in-osx-finder . [(20150802 1657) nil "Reveal file associated with buffer in OS X Finder" single ((:commit . "5710e5936e47139a610ec9a06899f72e77ddc7bc") (:keywords "os x" "finder") (:authors ("Kazuki YOSHIDA")) (:maintainer "Kazuki YOSHIDA") (:url . "https://github.com/kaz-yos/reveal-in-osx-finder"))]) (restclient-test . [(20180106 2046) ((emacs (24 4)) (restclient (0))) "Run tests with restclient.el" single ((:commit . "4518561bc9661fedacb6fb352e9677207f45c418") (:authors ("Simen Heggestøyl" . "simenheg@gmail.com")) (:maintainer "Simen Heggestøyl" . "simenheg@gmail.com") (:url . "https://github.com/simenheg/restclient-test.el"))]) (restclient-helm . [(20170314 1554) ((restclient (0)) (helm (1 9 4))) "helm interface for restclient.el" single ((:commit . "859d944796ce298b5779d9d256bd8d271d57e221") (:keywords "http" "helm") (:authors ("Pavel Kurnosov" . "pashky@gmail.com")) (:maintainer "Pavel Kurnosov" . "pashky@gmail.com"))]) (restclient . [(20180316 1551) nil "An interactive HTTP client for Emacs" single ((:commit . "859d944796ce298b5779d9d256bd8d271d57e221") (:keywords "http") (:authors ("Pavel Kurnosov" . "pashky@gmail.com")) (:maintainer "Pavel Kurnosov" . "pashky@gmail.com"))]) (restart-emacs . [(20180601 1031) nil "Restart emacs from within emacs" single ((:commit . "9aa90d3df9e08bc420e1c9845ee3ff568e911bd9") (:keywords "convenience") (:authors ("Iqbal Ansari" . "iqbalansari02@yahoo.com")) (:maintainer "Iqbal Ansari" . "iqbalansari02@yahoo.com") (:url . "https://github.com/iqbalansari/restart-emacs"))]) (resize-window . [(20180918 538) ((emacs (24)) (cl-lib (0 5))) "easily resize windows" single ((:commit . "72018aa4d2401b60120588199d4cedd0dc1fbcfb") (:keywords "window" "resize") (:authors ("Dan Sutton " . "danielsutton01@gmail.com")) (:maintainer "Dan Sutton " . "danielsutton01@gmail.com") (:url . "https://github.com/dpsutton/resize-mode"))]) (requirejs-mode . [(20130215 2104) nil "Improved AMD module management" single ((:commit . "bbb0c09f8eb2d6a33c17319be8137f68bb16bc92") (:keywords "javascript" "amd" "requirejs") (:authors ("Marc-Olivier Ricard" . "marco.ricard@gmail.com")) (:maintainer "Marc-Olivier Ricard" . "marco.ricard@gmail.com"))]) (requirejs . [(20151204 719) ((js2-mode (20150713)) (popup (0 5 3)) (s (1 9 0)) (cl-lib (0 5)) (yasnippet (20151011 1823))) "Requirejs import manipulation and source traversal." tar ((:commit . "4ea2a5fcbc76e4cbb6a7461e6f05f019b75865b1") (:keywords "javascript" "requirejs") (:authors ("Joe Heyming" . "joeheyming@gmail.com")) (:maintainer "Joe Heyming" . "joeheyming@gmail.com") (:url . "https://github.com/joeheyming/requirejs-emacs"))]) (request-deferred . [(20160419 2305) ((deferred (0 3 1)) (request (0 2 0))) "Wrap request.el by deferred" single ((:commit . "a3d080e57eb8be606fbf39d1baff94e1b16e1fb8") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (request . [(20170201 147) ((emacs (24 4))) "Compatible layer for URL request in Emacs" single ((:commit . "a3d080e57eb8be606fbf39d1baff94e1b16e1fb8") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (req-package . [(20180122 500) ((use-package (1 0)) (dash (2 7 0)) (log4e (0 2 0)) (ht (0))) "A use-package wrapper for package runtime dependencies management" tar ((:commit . "0c0ac7451149dac6bfda2adfe959d1df1c273de6") (:keywords "dotemacs" "startup" "speed" "config" "package") (:authors ("Edward Knyshov" . "edvorg@gmail.com")) (:maintainer "Edward Knyshov" . "edvorg@gmail.com") (:url . "https://github.com/edvorg/req-package"))]) (repo . [(20170213 939) ((emacs (24 3))) "Running repo from Emacs" single ((:commit . "d7b87cd515bad8a67d3a892a46a23f5fe81e08de") (:keywords "convenience") (:authors ("Damien Merenne")) (:maintainer "Damien Merenne") (:url . "https://github.com/canatella/repo-el"))]) (replace-with-inflections . [(20180831 635) ((cl-lib (0 5)) (string-inflection (1 0 10)) (inflections (1 1))) "Inflection aware `query-replace'" single ((:commit . "d9201e047856492f282da65459b28aba25998dbb") (:keywords "matching") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/replace-with-inflections.el"))]) (replace-symbol . [(20160518 12) nil "Rename symbols in expressions or buffers" single ((:commit . "baf949e528aee1881f455f9c84e67718bedcb3f6") (:authors ("Brian Mastenbrook" . "brian@mastenbrook.net")) (:maintainer "Brian Mastenbrook" . "brian@mastenbrook.net") (:url . "https://github.com/bmastenbrook/replace-symbol-el"))]) (replace-pairs . [(20160207 1251) ((emacs (24 4))) "Query-replace pairs of things" single ((:commit . "acfb254dddffcee4250092fab9394ef2b42ffbc0") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com") (:url . "https://github.com/davidshepherd7/replace-pairs"))]) (replace-from-region . [(20170227 2316) nil "Replace commands whose query is from region" single ((:commit . "dc9318b9b2822da7b00ecc34d1dc965c8f96c9bb") (:keywords "replace" "search" "region") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/emacs/download/replace-from-region.el"))]) (repl-toggle . [(20180501 1028) ((fullframe (0 0 5))) "Switch to/from repl buffer for current major-mode" single ((:commit . "484739e20bdc0e879cef647a1f5f89e8ab92c9b6") (:keywords "repl" "buffers" "toggle") (:authors ("Tom Regner" . "tom@goochesa.de")) (:maintainer "Tom Regner" . "tom@goochesa.de"))]) (repeater . [(20180418 1212) ((emacs (24 4))) "Repeat recent repeated commands" single ((:commit . "854b874542b186b2408cbc58ad0591fe8eb70b6c") (:keywords "convenience") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/repeater"))]) (repeatable-motion . [(20170620 1848) ((emacs (24))) "Make repeatable versions of motions" tar ((:commit . "f29effdc4121c2dc7e3fec9b3a62debce29cda9d") (:keywords "motion" "repeatable") (:authors ("William Hatch" . "willghatch@gmail.com")) (:maintainer "William Hatch" . "willghatch@gmail.com") (:url . "https://github.com/willghatch/emacs-repeatable-motion"))]) (renpy . [(20180907 1934) nil "silly walks for Renpy" single ((:commit . "cf9c9ead6084210a4c0290a0d999a099b8d00a81") (:keywords "languages") (:authors ("PyTom" . "pytom@bishoujo.us")) (:maintainer "Dave Love" . "fx@gnu.org") (:url . "https://github.com/billywade/renpy-mode"))]) (remember-last-theme . [(20170619 2133) ((emacs (24 4))) "Remember the last used theme between sessions." single ((:commit . "0973f1aa6b96355fa376fffe8b45733b6e963c51") (:keywords "convenience" "faces") (:authors ("Anler Hernández Peral" . "inbox+emacs@anler.me")) (:maintainer "Anler Hernández Peral" . "inbox+emacs@anler.me") (:url . "https://github.com/anler/remember-last-theme"))]) (remark-mode . [(20171218 756) ((emacs (25 1)) (markdown-mode (2 0))) "Major mode for the remark slideshow tool" tar ((:commit . "e8a95f25d865d6165a7fdb1cadf5e6f0bb5ee73b") (:keywords "remark" "slideshow" "markdown" "hot reload") (:authors ("@torgeir")) (:maintainer "@torgeir"))]) (relax . [(20131029 2134) ((json (1 2))) "For browsing and interacting with CouchDB" single ((:commit . "6e33892623ab87833082262321dc8e1977209626") (:keywords "database" "http") (:authors ("Phil Hagelberg")) (:maintainer "Phil Hagelberg") (:url . "http://github.com/technomancy/relax.el"))]) (relative-buffers . [(20160221 1923) ((cl-lib (0 5)) (dash (2 6 0)) (s (1 9 0)) (f (0 16 2))) "Emacs buffers naming convention" single ((:commit . "2547475084244d266b507e563c9b4034705cfeca") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/relative-buffers"))]) (related . [(20161003 610) ((cl-lib (0 5))) "Switch back and forth between similarly named buffers." single ((:commit . "0065a2e16eeaa9bface49f7f0815b9cf9719f441") (:keywords "file" "buffer" "switch" "selection" "matching" "convenience") (:authors ("Julien Montmartin")) (:maintainer "Julien Montmartin") (:url . "https://bitbucket.org/lyude/related/raw/master/related.el"))]) (register-channel . [(20180926 2349) nil "Jump around fast using registers" single ((:commit . "9272923757402d177a0b2deab1d9c3c74601c48e") (:keywords "convenience") (:authors ("Yang Zhao" . "YangZhao11@users.noreply.github.com")) (:maintainer "Yang Zhao" . "YangZhao11@users.noreply.github.com"))]) (region-state . [(20151128 1038) nil "Show the number of chars/lines or rows/columns in the region" single ((:commit . "07ffb7d9ada2fcd204f3447f078c265d25f36f60") (:keywords "convenience") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/region-state.el"))]) (region-convert . [(20161119 259) nil "Convert string in region by Lisp function" single ((:commit . "2f8195fb81b8d27aeb42bdc4055ebce37c09717b") (:keywords "region" "convenience") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/right-click-context"))]) (region-bindings-mode . [(20140407 2214) nil "Enable custom bindings when mark is active." single ((:commit . "3fa5dbdbd7c000bebff6d9d14a4be326ec24b6fc") (:keywords "convenience") (:authors ("Fabián E. Gallina" . "fabian@anue.biz")) (:maintainer "Fabián E. Gallina" . "fabian@anue.biz") (:url . "https://github.com/fgallina/region-bindings-mode"))]) (regex-tool . [(20170104 1918) nil "A regular expression evaluation tool for programmers" single ((:commit . "0b4a0111143c88ef94bec56624cb2e00c1a054e6") (:keywords "regex" "languages" "programming" "development") (:authors ("John Wiegley" . "johnw@newartisans.com")) (:maintainer "John Wiegley" . "johnw@newartisans.com") (:url . "http://www.newartisans.com/"))]) (regex-dsl . [(20100124 1028) nil "lisp syntax for regexps" single ((:commit . "ac89ab8b7691a165ef3007cb84417125cfc0632e") (:authors ("Aliaksey Kandratsenka" . "alk@tut.by")) (:maintainer "Aliaksey Kandratsenka" . "alk@tut.by"))]) (refine . [(20180315 2228) ((emacs (24 3)) (s (1 11 0)) (dash (2 12 0)) (list-utils (0 4 4)) (loop (1 2))) "interactive value editing" single ((:commit . "0a99439a0b4ed6f79b9a240ea1270140a9e328bc") (:keywords "convenience") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (redtt . [(20181121 21) ((emacs (25 3))) "Major mode for editing redtt proofs" single ((:commit . "c95d1a0787fb92eb011df690b4bdc1029a611c0b") (:keywords "languages") (:authors ("Jonathan Sterling" . "jon@jonmsterling.com")) (:maintainer "Jonathan Sterling" . "jon@jonmsterling.com") (:url . "http://github.com/RedPRL/redtt"))]) (redtick . [(20180424 2136) ((emacs (24 4))) "Smallest pomodoro timer (1 char)" tar ((:commit . "94b4cd43ac20c64dcac96edac2c1a3b9fcc59bb9") (:keywords "calendar") (:authors ("F. Febles")) (:maintainer "F. Febles") (:url . "http://github.com/ferfebles/redtick"))]) (redshank . [(20180730 407) ((paredit (21))) "Common Lisp Editing Extensions" tar ((:commit . "d059c5841044aa163664f8bf87c1d981bf0a04fe") (:keywords "languages" "lisp") (:authors ("Michael Weber" . "michaelw@foldr.org")) (:maintainer "Michael Weber" . "michaelw@foldr.org"))]) (redprl . [(20180418 1434) ((emacs (24 3))) "Major mode for editing RedPRL proofs and interacting with RedPRL" single ((:commit . "4b13acd64cf523442f87337f7c41261e1dfd37dd") (:keywords "languages") (:authors ("Jonathan Sterling" . "jon@jonmsterling.com")) (:maintainer "Jonathan Sterling" . "jon@jonmsterling.com"))]) (redpen-paragraph . [(20160625 1050) ((emacs (24)) (cl-lib (0 5)) (json (1 4))) "RedPen interface." single ((:commit . "770ffb34b04bfa0ea8484fa1506e96c530168e13") (:keywords "document" "proofreading" "help") (:authors ("karronoli")) (:maintainer "karronoli") (:url . "https://github.com/karronoli/redpen-paragraph.el"))]) (redis . [(20150531 1948) ((emacs (24)) (cl-lib (0 5))) "Redis integration" single ((:commit . "2c33f3397bc14e7a8192867b55920492d4eead8c") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/redis.el"))]) (recursive-narrow . [(20180917 449) nil "narrow-to-region that operates recursively" single ((:commit . "94f5c16a81ecf85c7442ebc8cd04ba7553ab5244") (:authors ("Nathaniel Flath" . "flat0103@gmail.com")) (:maintainer "Nathaniel Flath" . "flat0103@gmail.com") (:url . "http://github.com/nflath/recursive-narrow"))]) (rectangle-utils . [(20160915 408) ((emacs (24)) (cl-lib (0 5))) "Some useful rectangle functions." single ((:commit . "6fe38fdd48ef5305a908b94a043a966ac3f2053a") (:authors ("Thierry Volpiatto" . "thierry.volpiatto@gmail.com")) (:maintainer "Thierry Volpiatto" . "thierry.volpiatto@gmail.com") (:url . "https://github.com/thierryvolpiatto/rectangle-utils"))]) (rect+ . [(20150621 44) nil "Extensions to rect.el" single ((:commit . "299b742faa0bc4448e0d5fe9cb98ab1eb93b8dcc") (:keywords "extensions" "data" "tools") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-rectplus"))]) (recover-buffers . [(20171009 437) nil "revisit all buffers from an auto-save file" tar ((:commit . "81a5cb53099955ebc2a411a44cba5a394ee3f2d1") (:authors ("era eriksson <http://www.iki.fi/era>")) (:maintainer "era eriksson <http://www.iki.fi/era>"))]) (recompile-on-save . [(20151126 1446) ((dash (1 1 0)) (cl-lib (0 5))) "Trigger recompilation on file save." single ((:commit . "92e11446869d878803d4f3dec5d2101380c12bb2") (:keywords "convenience" "files" "processes" "tools") (:authors ("Marian Schubert" . "marian.schubert@gmail.com")) (:maintainer "Marian Schubert" . "marian.schubert@gmail.com") (:url . "https://github.com/maio/recompile-on-save.el"))]) (recentf-remove-sudo-tramp-prefix . [(20180205 556) ((emacs (24 4))) "Normalise recentf history" single ((:commit . "6d23ebc3f52b0a66236c171c45cc77a4d3aba541") (:authors ("ncaq" . "ncaq@ncaq.net")) (:maintainer "ncaq" . "ncaq@ncaq.net") (:url . "https://github.com/ncaq/recentf-remove-sudo-tramp-prefix"))]) (recentf-ext . [(20170926 35) nil "Recentf extensions" single ((:commit . "450de5f8544ed6414e88d4924d7daa5caa55b7fe") (:keywords "convenience" "files") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/recentf-ext.el"))]) (rebox2 . [(20121113 1300) nil "Handling of comment boxes in various styles." single ((:commit . "00634eca420cc48657b81e40e599ff8548083985") (:authors ("François Pinard") ("Le Wang")) (:maintainer "Le Wang (lewang.emacs!!!gmayo.com remove exclamations, correct host, hint: google mail)") (:url . "https://github.com/lewang/rebox2"))]) (rebecca-theme . [(20180324 821) ((emacs (24))) "Rebecca Purple Theme" single ((:commit . "9ac0c71c2858b76dc5499f62c7c7fb7f9e8f16bc") (:keywords "theme" "dark") (:authors ("vic" . "vborja@apache.org")) (:maintainer "vic" . "vborja@apache.org") (:url . "https://github.com/vic/rebecca-theme"))]) (reazon . [(20180921 1437) ((emacs (26))) "miniKanren for Emacs" tar ((:commit . "020be6467a83957adcbdcb192b61f2c76a94079b") (:keywords "languages" "extensions" "lisp") (:authors ("Nick Drozd" . "nicholasdrozd@gmail.com")) (:maintainer "Nick Drozd" . "nicholasdrozd@gmail.com") (:url . "https://github.com/nickdrozd/reazon"))]) (reason-mode . [(20180727 1858) ((emacs (24 3))) "A major mode for editing ReasonML" tar ((:commit . "0ab99a03b2e47523e86d1e94ccc085e176b987df") (:keywords "languages" "ocaml") (:authors ("Mozilla")) (:maintainer "Mozilla") (:url . "https://github.com/reasonml-editor/reason-mode"))]) (realgud-rdb2 . [(20160303 843) ((realgud (1 3))) "realgud front-end for interacting with Ruby debugger2" tar ((:commit . "b394bee61e75b7c6a5fa565594aa79b74887f5df") (:authors ("Rocky Bernstein")) (:maintainer "Rocky Bernstein") (:url . "http://github.com/rocky/realgud-ruby-debugger2"))]) (realgud-pry . [(20160805 1445) ((realgud (1 4 3)) (cl-lib (0 5)) (emacs (24))) "realgud front-end to the Ruby pry debugger" tar ((:commit . "9b3834048fcbc16827c55af38f8cfef0cf6533da") (:authors ("Rocky Bernstein")) (:maintainer "Rocky Bernstein") (:url . "http://github.com/rocky/realgud-pry"))]) (realgud-old-debuggers . [(20170316 731) ((realgud (1 4 3)) (cl-lib (0 5)) (emacs (24))) "realgud front-end to older lesser-used debuggers" tar ((:commit . "1e1d573a6ba731afbe68c1309a316457ca3fbb94") (:authors ("Rocky Bernstein")) (:maintainer "Rocky Bernstein") (:url . "http://github.com/rocky/realgud-old-debuggers"))]) (realgud-byebug . [(20180309 323) ((realgud (1 4 3)) (cl-lib (0 5)) (emacs (24))) "realgud front-end to the Ruby byebug debugger" tar ((:commit . "de603d58aa9ef72a2619247a0234fccf6bc2cc9a") (:authors ("Rocky Bernstein")) (:maintainer "Rocky Bernstein") (:url . "http://github.com/rocky/realgud-byebug"))]) (realgud . [(20180925 10) ((load-relative (1 2)) (loc-changes (1 2)) (test-simple (1 2 0)) (cl-lib (0 5)) (emacs (24))) "A modular front-end for interacting with external debuggers" tar ((:commit . "36782d69c806079eb067705ef67fcb3b9299ae01") (:keywords "gdb" "python" "perl" "go" "bash" "nodejs" "zsh" "bashdb" "zshdb" "remake" "make" "trepan" "perldb" "pdb") (:authors ("Rocky Bernstein" . "rocky@gnu.org")) (:maintainer "Rocky Bernstein" . "rocky@gnu.org") (:url . "http://github.com/realgud/realgud/"))]) (real-auto-save . [(20180803 447) nil "Automatically save your all your buffers/files at regular intervals." single ((:commit . "b4f83f1e7e921e4cb762c7f525c209ff385742d8") (:authors ("Chaoji Li <lichaoji AT gmail DOT com>") ("Anand Reddy Pandikunta <anand21nanda AT gmail DOT com>")) (:maintainer "Chaoji Li <lichaoji AT gmail DOT com>"))]) (readline-complete . [(20150708 1437) nil "offers completions in shell mode" single ((:commit . "30c020c37b2741160cc37e656e13c85d826a0ebf") (:authors ("Christopher Monsanto" . "chris@monsan.to")) (:maintainer "Christopher Monsanto" . "chris@monsan.to"))]) (readability . [(20140716 27) ((oauth (1 4)) (ov (1 0)) (emacs (24 3))) "Read articles from Readability in Emacs" single ((:commit . "6c220ab8e0ca63946574ed892add5c8fd14002ce") (:keywords "readability" "oauth") (:authors ("Shingo Fukuyama - http://fukuyama.co")) (:maintainer "Shingo Fukuyama - http://fukuyama.co") (:url . "https://github.com/ShingoFukuyama/emacs-readability"))]) (read-aloud . [(20160923 500) ((emacs (24 4))) "A simple interface to TTS engines" single ((:commit . "c662366226abfb07204ab442b4f853ed85438d8a") (:keywords "multimedia") (:authors ("Alexander Gromnitsky" . "alexander.gromnitsky@gmail.com")) (:maintainer "Alexander Gromnitsky" . "alexander.gromnitsky@gmail.com") (:url . "https://github.com/gromnitsky/read-aloud.el"))]) (react-snippets . [(20181002 1046) ((yasnippet (0 7 0))) "Yasnippets for React" tar ((:commit . "87ccb640d265fe799583ab55605b84d113223694"))]) (rdxmk . [(20170630 134) nil "A small set of tools for redox developments" tar ((:commit . "e78749fb29738365ffa4d863ffabeb969ebb0bcf") (:keywords "redox" "convenience" "tools") (:authors ("Jacob Salzberg" . "jsalzbergedu@yahoo.com")) (:maintainer "Jacob Salzberg" . "jsalzbergedu@yahoo.com") (:url . "https://github.com/jsalzbergedu/rdxmk"))]) (rdp . [(20120929 154) nil "Recursive Descent Parser library" single ((:commit . "b620192afada04aec33b38cc130fef0765f41ca9") (:authors ("Christopher Wellons" . "mosquitopsu@gmail.com")) (:maintainer "Christopher Wellons" . "mosquitopsu@gmail.com") (:url . "https://github.com/skeeto/rdp"))]) (rdf-prefix . [(20180127 1806) nil "Prefix lookup for RDF" single ((:commit . "164136d05505275d42d1ca3a390f55fcc89694b8") (:keywords "convenience" "abbrev") (:authors ("Simen Heggestøyl" . "simenheg@gmail.com")) (:maintainer "Simen Heggestøyl" . "simenheg@gmail.com") (:url . "https://github.com/simenheg/rdf-prefix"))]) (rcirc-styles . [(20160207 250) ((cl-lib (0 5))) "support mIRC-style color and attribute codes" single ((:commit . "f313bf6a7470bed314b27c7a40558cb787d7bc67"))]) (rcirc-notify . [(20150219 2204) nil "libnotify popups" single ((:commit . "841a7b5a6cdb0c11a812df924d2c6a7d364fd455") (:keywords "lisp" "rcirc" "irc" "notify" "growl") (:authors ("Will Farrington, Alex Schroeder <alex@gnu.org>, Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk"))]) (rcirc-groups . [(20170731 2101) nil "an emacs buffer in rcirc-groups major mode" single ((:commit . "b68ece9d219b909244d4e3c0d8bf6a746d6fead7") (:keywords "comm" "convenience") (:authors ("Dimitri Fontaine" . "dim@tapoueh.org")) (:maintainer "Dimitri Fontaine" . "dim@tapoueh.org") (:url . "http://tapoueh.org/emacs/rcirc-groups.html"))]) (rcirc-alertify . [(20140407 119) ((alert (20140406 1353))) "Cross platform notifications for rcirc" single ((:commit . "ea5cafc55893f375eccbe013d12dbaa94bf6e259") (:keywords "comm" "convenience") (:authors ("Fabián Ezequiel Gallina" . "fgallina@gnu.org")) (:maintainer "Fabián Ezequiel Gallina" . "fgallina@gnu.org"))]) (rcirc-alert . [(20141127 1047) nil "Configurable alert messages on top of RCIRC" tar ((:commit . "0adf8ff9c47023fec578f678424be62b0f49057f") (:keywords "lisp" "rcirc" "irc" "alert" "awesome") (:maintainer "Cayetano Santos"))]) (rc-mode . [(20160913 1918) nil "Major mode for the Plan9 rc shell" single ((:commit . "fe2e0570bf9c19a292e16b18fd4b0a256df5d93f") (:keywords "rc" "plan9" "shell") (:authors ("Jordan Brown")) (:maintainer "Jordan Brown") (:url . "https://github.com/mrhmouse/rc-mode.el"))]) (rbt . [(20170202 2302) ((popup (0 5 3)) (magit (20160128 1201))) "Integrate reviewboard with emacs." single ((:commit . "32bfba9062a014e375451cf4203c29535b5efc1e") (:keywords "reviewboard" "rbt") (:authors ("Joe Heyming" . "joeheyming@gmail.com")) (:maintainer "Joe Heyming" . "joeheyming@gmail.com"))]) (rbenv . [(20141120 749) nil "Emacs integration for rbenv" single ((:commit . "2ea1a5bdc1266caef1dd77700f2c8f42429b03f1") (:keywords "ruby" "rbenv") (:authors ("Yves Senn" . "yves.senn@gmail.com")) (:maintainer "Yves Senn" . "yves.senn@gmail.com") (:url . "https://github.com/senny/rbenv.el"))]) (rats . [(20170818 1013) ((s (1 10 0)) (go-mode (1 3 1)) (cl-lib (0 5))) "Rapid testing suite for Go" single ((:commit . "a6d55aebcc54f669c6c6ffedf84364c4097903cc") (:keywords "go") (:authors ("Antoine Kalmbach" . "ane@iki.fi")) (:maintainer "Antoine Kalmbach" . "ane@iki.fi"))]) (rase . [(20120928 2045) nil "Run At Sun Event daemon" single ((:commit . "59b5f7e8102570b65040e8d55781c7ea28de7338") (:keywords "solar" "sunrise" "sunset" "midday" "midnight") (:authors ("Andrey Kotlarski" . "m00naticus@gmail.com")) (:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com") (:url . "https://github.com/m00natic/rase/"))]) (ranger . [(20170817 1557) ((emacs (24 4))) "Make dired more like ranger" single ((:commit . "6bbff5df2e55f56047fca5058d9ca93ba4963aef") (:keywords "files" "convenience" "dired") (:authors ("Rich Alesi <https://github.com/ralesi>")) (:maintainer "Rich Alesi <https://github.com/ralesi>") (:url . "https://github.com/ralesi/ranger"))]) (random-splash-image . [(20151003 130) nil "Randomly sets splash image to *GNU Emacs* buffer on startup." single ((:commit . "53a39ebfd8ac6be066a652a508a717870f94218a") (:keywords "games") (:authors ("kakakaya <kakakaya AT gmail.com>")) (:maintainer "kakakaya <kakakaya AT gmail.com>") (:url . "https://github.com/kakakaya/random-splash-image"))]) (rand-theme . [(20151219 2335) ((cl-lib (0 5))) "Random Emacs theme at start-up!" single ((:commit . "65a00e5c5150f857aa96803b68f50bc8da0215b7") (:authors ("Daniel Gopar")) (:maintainer "Daniel Gopar") (:url . "https://github.com/gopar/rand-theme"))]) (rally-mode . [(20161114 354) ((popwin (1 0 0))) "a mode to interact with the Rally Software web site." single ((:commit . "0f5e09a6abe2de7613f174b4f54863df93343134") (:keywords "rally" "ca" "agile") (:authors ("Sean LeBlanc" . "seanleblanc@gmail.com")) (:maintainer "Sean LeBlanc" . "seanleblanc@gmail.com") (:url . "https://pragcraft.wordpress.com/"))]) (rake . [(20180212 1008) ((f (0 13 0)) (dash (1 5 0)) (cl-lib (0 5))) "Run rake commands" single ((:commit . "9c204334b03b4e899fadae6e59c20cf105404128") (:keywords "rake" "ruby") (:authors ("Adam Sokolnicki" . "adam.sokolnicki@gmail.com")) (:maintainer "Adam Sokolnicki" . "adam.sokolnicki@gmail.com") (:url . "https://github.com/asok/rake.el"))]) (rainbow-identifiers . [(20141102 1526) ((emacs (24))) "Highlight identifiers according to their names" single ((:commit . "19fbfded1baa98d12335f26f6d7b20e5ae44ce2e") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/rainbow-identifiers"))]) (rainbow-delimiters . [(20170929 1132) nil "Highlight brackets according to their depth" single ((:commit . "19b93892afa0494ba749c2ca9c154e04447ad778") (:keywords "faces" "convenience" "lisp" "tools") (:authors ("Jeremy Rayman" . "opensource@jeremyrayman.com") ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/rainbow-delimiters"))]) (rainbow-blocks . [(20171025 1438) nil "Block syntax highlighting for lisp code" single ((:commit . "dd435d7bb34ff6f162a5f315df308b90b7e9f842") (:authors ("istib")) (:maintainer "istib") (:url . "https://github.com/istib/rainbow-blocks"))]) (railscasts-theme . [(20150219 1525) nil "Railscasts color theme for GNU Emacs." single ((:commit . "1340c3f6c2717761cab95617cf8dcbd962b1095b") (:keywords "railscasts" "color" "theme") (:authors ("Oleg Shaldybin")) (:maintainer "Oleg Shaldybin") (:url . "https://github.com/mikenichols/railscasts-theme"))]) (railscasts-reloaded-theme . [(20181030 750) nil "Railscasts Reloaded color theme" single ((:commit . "ae77bc04fe5a948f418ec8693f6ff2c9ea757c50") (:authors ("George Thomas" . "iamgeorgethomas@gmail.com")) (:maintainer "George Thomas" . "iamgeorgethomas@gmail.com") (:url . "https://github.com/thegeorgeous/railscasts-reloaded-theme"))]) (rails-log-mode . [(20140408 425) nil "Major mode for viewing Rails log files" single ((:commit . "ff440003ad7d47cb0ac3300f2a632f4cfd36a446") (:keywords "rails" "log") (:authors ("Anantha kumaran" . "ananthakumaran@gmail.com")) (:maintainer "Anantha kumaran" . "ananthakumaran@gmail.com"))]) (racket-mode . [(20181117 229) ((emacs (24 3)) (faceup (0 0 2)) (s (1 9 0))) "Major mode for Racket language." tar ((:commit . "dd51668ad9d5293c5eb57f37bbc4c25a201ba467") (:authors ("Greg Hendershott")) (:maintainer "Greg Hendershott") (:url . "https://github.com/greghendershott/racket-mode"))]) (racer . [(20181023 2304) ((emacs (24 3)) (rust-mode (0 2 0)) (dash (2 13 0)) (s (1 10 0)) (f (0 18 2)) (pos-tip (0 4 6))) "code completion, goto-definition and docs browsing for Rust via racer" single ((:commit . "bf8f76f17c64eff2d6ca6029ee0ab7a466590128") (:keywords "abbrev" "convenience" "matching" "rust" "tools") (:authors ("Phil Dawes")) (:maintainer "Phil Dawes") (:url . "https://github.com/racer-rust/emacs-racer"))]) (r-autoyas . [(20140101 1510) ((ess (0)) (yasnippet (0 8 0))) "Provides automatically created yasnippets for R function argument lists." tar ((:commit . "b4020ee7f5f895e0065b8b26da8a49c51432d530") (:keywords "r" "yasnippet") (:authors ("Sven Hartenstein & Matthew Fidler")) (:maintainer "Matthew Fidler") (:url . "https://github.com/mlf176f2/r-autoyas.el"))]) (quiz . [(20170818 1115) ((cl-lib (0 5)) (emacs (25))) "Multiple choice quiz game" single ((:commit . "c43151212ead2330e7ec8e5ac6914c617a12e4f8") (:keywords "games" "trivia" "quiz") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/quiz.el"))]) (quiet . [(20160508 1256) nil "disconnect from the online world for a while" single ((:commit . "6f20309f99e26fcae2601d1544b342f044e54baf") (:keywords "quiet" "distraction" "network" "detachment" "offline") (:authors ("nik gaffney" . "nik@fo.am")) (:maintainer "nik gaffney" . "nik@fo.am") (:url . "https://github.com/zzkt/quiet"))]) (quickrun . [(20170223 115) ((emacs (24 3))) "Run commands quickly" single ((:commit . "55bbe5d54b80206ea5a60bf2f58eb6368b2c8201") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-quickrun"))]) (quickref . [(20170817 1232) ((dash (1 0 3)) (s (1 0 0))) "Display relevant notes-to-self in the echo area" single ((:commit . "f368c8b8219bb90498c5ab84e26f00eedaa234cf") (:authors ("Kyle Hargraves")) (:maintainer "Kyle Hargraves") (:url . "https://github.com/pd/quickref.el"))]) (quick-shell-keybind . [(20171023 613) ((emacs (24))) "Interactively bind a key to shell commands" single ((:commit . "5f4541a5a5554d108bf16b5fd1713e962161ca1b") (:keywords "maint" "convenience" "processes") (:authors ("eyeinsky" . "eyeinsky9@gmail.com")) (:maintainer "eyeinsky" . "eyeinsky9@gmail.com") (:url . "https://github.com/eyeinsky/quick-shell-keybind"))]) (quick-preview . [(20150829 439) nil "quick preview using GNOME sushi, gloobus or quick look" single ((:commit . "29c884c6ab385ef67d9aa656ebb7c94cabeb5c35") (:keywords "files" "hypermedia") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/quick-preview.el"))]) (quick-peek . [(20180525 1411) ((emacs (24 3))) "Inline quick-peek windows" single ((:commit . "3cc57cc12f4b5f27a18cc5fb0c32c3a943c16158") (:keywords "tools" "help" "doc" "convenience") (:authors ("Clément Pit-Claudel" . "clement.pitclaudel@live.com")) (:maintainer "Clément Pit-Claudel" . "clement.pitclaudel@live.com"))]) (quick-buffer-switch . [(20151007 2208) nil "Quick switch to file or dir buffers." single ((:commit . "d5fdd67b4c9f04b7a7122da2215e4ae076a03b1b") (:keywords "emacs" "configuration") (:authors ("Sebastien Gross <seb•ɑƬ•chezwam•ɖɵʈ•org>")) (:maintainer "Sebastien Gross <seb•ɑƬ•chezwam•ɖɵʈ•org>"))]) (quelpa-use-package . [(20180812 1029) ((emacs (24 3)) (quelpa (0)) (use-package (2))) "quelpa handler for use-package" single ((:commit . "90fc1eadf3f7ff3a3bef07d229a807aba2f7beef") (:keywords "package" "management" "elpa" "use-package") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://framagit.org/steckerhalter/quelpa-use-package"))]) (quelpa . [(20181110 1619) ((emacs (24 3))) "Emacs Lisp packages built directly from source" tar ((:commit . "bc8070c43480fa5c3c0ad5775350e52bea7347c2") (:keywords "package" "management" "build" "source" "elpa") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://framagit.org/steckerhalter/quelpa"))]) (quasi-monochrome-theme . [(20180516 1513) nil "Quasi Monochrome theme" tar ((:commit . "e803bc0c2e38f350feb8297a092812e5204781c7") (:keywords "color" "theme" "monochrome"))]) (quack . [(20181106 1301) nil "enhanced support for editing and running Scheme code" single ((:commit . "2146805ce2b5a9b155d73929986f11e713787e26"))]) (qt-pro-mode . [(20170604 1841) ((emacs (24))) "Qt Pro/Pri major mode" single ((:commit . "ed3b2ebe46828107c3b85e554b0a6a4dc2eeedf6") (:keywords "extensions") (:authors ("Todd Neal" . "tolchz@gmail.com")) (:maintainer "Todd Neal" . "tolchz@gmail.com"))]) (qml-mode . [(20161016 31) nil "Major mode for editing QT Declarative (QML) code." single ((:commit . "6c5f33ba88ae010bf201a80ee8095e20a724558c") (:keywords "qml" "qt" "qt declarative") (:authors ("Yen-Chin Lee" . "coldnew.tw@gmail.com")) (:maintainer "Yen-Chin Lee" . "coldnew.tw@gmail.com") (:url . "https://github.com/coldnew/qml-mode"))]) (ql . [(20180418 2020) ((emacs (24))) "Control Quod Libet" single ((:commit . "d976414ba6aa576ad524b5ee5bfa620efd072258") (:keywords "multimedia") (:authors ("Ian Eure" . "ian.eure@gmail.com")) (:maintainer "Ian Eure" . "ian.eure@gmail.com") (:url . "https://github.com/ieure/ql-el"))]) (qiita . [(20140118 844) ((helm (1 5 9)) (markdown-mode (2 0))) "Qiita API Library for emacs" single ((:commit . "93c697b97d540fd1601a13a3d9889fb939b19878") (:keywords "qiita") (:authors ("Wataru MIYAGUNI (gonngo _at_ gmail.com)")) (:maintainer "Wataru MIYAGUNI (gonngo _at_ gmail.com)") (:url . "https://github.com/gongo/qiita-el"))]) (pyvenv . [(20180831 847) nil "Python virtual environment interface" single ((:commit . "921ae2356b6a111ac0b7e44fd04cba8e95cbe936") (:keywords "python" "virtualenv" "tools") (:authors ("Jorgen Schaefer" . "contact@jorgenschaefer.de")) (:maintainer "Jorgen Schaefer" . "contact@jorgenschaefer.de") (:url . "http://github.com/jorgenschaefer/pyvenv"))]) (pythonic . [(20180920 2315) ((emacs (25)) (s (1 9)) (f (0 17 2))) "Utility functions for writing pythonic emacs package." single ((:commit . "6a5a2a365e4ea6fc5adfa96359418c437aa351c8") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/pythonic"))]) (python-x . [(20180802 1742) ((python (0 24)) (folding (0)) (cl-lib (0 5))) "python.el extras for interactive evaluation" tar ((:commit . "74d8c7eb824846de94705b1e74ee03ef109868d1") (:keywords "python" "eval" "folding") (:url . "https://github.com/wavexx/python-x.el") (:author . "Yuri D'Elia <wavexx@thregr.org>"))]) (python-test . [(20181018 29) ((emacs (25 1))) "Python testing integration" single ((:commit . "f899975b133539e19ba822e4b0bfd1a28572967e") (:keywords "convenience" "tools" "processes") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/python-test.el"))]) (python-switch-quotes . [(20161228 809) ((emacs (24 3))) "cycle between ' and \" quotes in python strings" single ((:commit . "93f1e9b40e061a6cea480139e8b1362b6404abd0") (:keywords "python" "tools" "convenience") (:authors ("Vladimir Lagunov" . "lagunov.vladimir@gmail.com")) (:maintainer "Vladimir Lagunov" . "lagunov.vladimir@gmail.com") (:url . "https://github.com/werehuman/python-switch-quotes"))]) (python-pytest . [(20180725 1146) ((emacs (24 4)) (dash (2 12 0)) (dash-functional (2 12 0)) (magit-popup (2 12 0)) (projectile (0 14 0)) (s (1 12 0))) "helpers to run pytest" single ((:commit . "09ad688df207ee9b02c990d3897a9e2841931d97") (:keywords "pytest" "test" "python" "languages" "processes" "tools") (:authors ("wouter bolsterlee" . "wouter@bolsterl.ee")) (:maintainer "wouter bolsterlee" . "wouter@bolsterl.ee") (:url . "https://github.com/wbolster/emacs-python-pytest"))]) (python-mode . [(20181110 739) nil "Python major mode" tar ((:commit . "3954afcf093f50930f9d500dfad68cbbed84a01c"))]) (python-info . [(20151228 1852) nil "Python info manual for Emacs" tar ((:commit . "306f15441b54b25757cdfd3b327b84024ea21ed7"))]) (python-environment . [(20150310 853) ((deferred (0 3 1))) "virtualenv API for Emacs Lisp" tar ((:commit . "401006584e32864a10c69d29f14414828909362e") (:keywords "applications" "tools") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (python-docstring . [(20170508 856) nil "Smart Python docstring formatting" tar ((:commit . "d35d2e0fbe468743c19a870fec7b28a7e725790d"))]) (python-django . [(20150822 404) nil "A Jazzy package for managing Django projects" single ((:commit . "fc54ad74f0309670359b939f64d0f1fff68aeac4") (:keywords "languages") (:authors ("Fabián E. Gallina" . "fabian@anue.biz")) (:maintainer "FSF") (:url . "https://github.com/fgallina/python-django.el"))]) (python-cell . [(20181028 2140) nil "Support for MATLAB-like cells in python mode" single ((:commit . "2faa78b3f4faa12f09f9864ebd854ae7d4e95fd0") (:keywords "python" "matlab" "cell") (:authors ("Thomas Hisch" . "t.hisch@gmail.com")) (:maintainer "Thomas Hisch" . "t.hisch@gmail.com"))]) (pytest . [(20181005 1524) ((s (1 9 0))) "Easy Python test running in Emacs" single ((:commit . "1bfa7549001e61ecd59cd6eae7c6656a924d1ba4") (:keywords "pytest" "python" "testing") (:url . "https://github.com/ionrock/pytest-el"))]) (pyramid . [(20181031 1102) ((emacs (25 2)) (pythonic (0 1 1)) (tablist (0 70))) "Minor mode for working with pyramid projects" tar ((:commit . "ad207ebe31a5b027560b69e20852156a3b882c0c") (:keywords "python" "pyramid" "pylons" "convenience" "tools" "processes") (:authors ("Daniel Kraus" . "daniel@kraus.my")) (:maintainer "Daniel Kraus" . "daniel@kraus.my") (:url . "https://github.com/dakra/pyramid.el"))]) (pynt . [(20180710 726) ((emacs (24 4)) (ein (0 13 1)) (epc (0 1 1)) (deferred (0 5 1))) "Generate and scroll EIN buffers from python code" single ((:commit . "4af6a0668057986ad8d297d9152d897baf77e303") (:keywords "convenience") (:authors ("Edward Banner" . "edward.banner@gmail.com")) (:maintainer "Edward Banner" . "edward.banner@gmail.com") (:url . "https://github.com/ebanner/pynt"))]) (pylint . [(20170402 1255) nil "minor mode for running `pylint'" single ((:commit . "6e37ca37a78024dcc79ceb2431b0dfebd526f3ad") (:keywords "languages" "python") (:authors ("Ian Eure" . "ian.eure@gmail.com")) (:maintainer "Jonathan Kotta" . "jpkotta@gmail.com"))]) (pyimpsort . [(20160130 453) ((emacs (24 3))) "Sort python imports." tar ((:commit . "d5c61d70896b642646dfd3c809c06174ae086c1a") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/pyimpsort.el"))]) (pyimport . [(20180308 1752) ((dash (2 8 0)) (s (1 9 0)) (shut-up (0 3 2))) "Manage Python imports!" single ((:commit . "a6f63cf7ed93f0c0f7c207e6595813966f8852b9") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (pyim-wbdict . [(20180930 458) ((pyim (1 0))) "Some wubi dicts for pyim" tar ((:commit . "55c7eed02c3253de12c71b925b8d9ef23425b64c") (:keywords "convenience" "chinese" "pinyin" "input-method" "complete") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/pyim-wbdict"))]) (pyim-cangjie5dict . [(20170730 246) ((pyim (1 0))) "Some cangjie5 dicts for pyim" tar ((:commit . "c8618590780b818db1a67a29bc47c5d25903517a") (:keywords "convenience" "chinese" "pinyin" "input-method" "complete") (:authors ("Yuanchen Xie" . "yuanchen.gm@gmail.com")) (:maintainer "Yuanchen Xie" . "yuanchen.gm@gmail.com") (:url . "https://github.com/erstern/pyim-cangjie5dict"))]) (pyim-basedict . [(20170727 259) nil "The default pinyin dict of pyim" tar ((:commit . "3196cb210e056702c5a4ea1dac1d8e1e27740fab") (:keywords "convenience" "chinese" "pinyin" "input-method" "complete") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/pyim-basedict"))]) (pyim . [(20181109 1350) ((emacs (24 4)) (popup (0 1)) (async (1 6)) (pyim-basedict (0 1))) "A Chinese input method support quanpin, shuangpin, wubi and cangjie." tar ((:commit . "8648d467d79b3bf1c3a99623f9329939cacc40da") (:keywords "convenience" "chinese" "pinyin" "input-method") (:authors ("Ye Wenbin <wenbinye@163.com>, Feng Shu" . "tumashu@163.com")) (:maintainer "Ye Wenbin <wenbinye@163.com>, Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/pyim"))]) (pygen . [(20161121 506) ((elpy (1 12 0)) (python-mode (6 2 2)) (dash (2 13 0))) "Python code generation using Elpy and Python-mode." single ((:commit . "9019ff44ba49d7295b1476530feab91fdadb084b") (:keywords "python" "code generation") (:authors ("Jack Crawley <http://www.github.com/jackcrawley>")) (:maintainer "Jack Crawley <http://www.github.com/jackcrawley>") (:url . "https://github.com/JackCrawley/pygen/"))]) (pyfmt . [(20150521 2056) nil "Emacs interface to pyfmt" single ((:commit . "cb92be2cf0804cc53142dc5edb36f8e0ef5cec32") (:keywords "tools") (:authors ("Alexandre Héaumé" . "aheaume@gmail.com")) (:maintainer "Alexandre Héaumé" . "aheaume@gmail.com") (:url . "https://github.com/aheaume/pyfmt.el"))]) (pyenv-mode-auto . [(20180620 1252) ((pyenv-mode (0 1 0)) (s (1 11 0)) (f (0 17 0))) "Automatically activates pyenv version if .python-version file exists." single ((:commit . "b6eef88ad89865a7e0ec8bae8c6ce8239cb649c6") (:keywords "python" "pyenv") (:authors ("Sviatoslav Bulbakha" . "mail@ssbb.me")) (:maintainer "Sviatoslav Bulbakha" . "mail@ssbb.me") (:url . "https://github.com/ssbb/pyenv-mode-auto"))]) (pyenv-mode . [(20170801 2348) ((pythonic (0 1 0))) "Integrate pyenv with python-mode" single ((:commit . "eabb1c66f9e0c0500fef4d089508aad246d81dc0") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/pyenv-mode"))]) (pydoc-info . [(20110301 834) nil "Better Python support for info-lookup-symbol." tar nil]) (pydoc . [(20181025 51) nil "functional, syntax highlighted pydoc navigation" single ((:commit . "abb948e27efaf2452f339c62cd99a1c69930bbfe") (:keywords "pydoc" "python") (:authors ("John Kitchin" . "jkitchin@andrew.cmu.edu")) (:maintainer "Brian J. Lopes" . "statmobile@gmail.com") (:url . "https://github.com/statmobile/pydoc"))]) (pycoverage . [(20160325 112) ((emacs (24 3))) "Support for coverage stats on Python 2.X and 3" tar ((:commit . "4f5451f4d6e1e2ddd5878fc7d18f5fc4fc92a83d") (:keywords "project" "convenience") (:authors ("matt harrison")) (:maintainer "matt harrison") (:url . "https://github.com/mattharrison/pycoverage.el"))]) (pycarddavel . [(20150831 1216) ((helm (1 7 0)) (emacs (24 0))) "Integrate pycarddav" single ((:commit . "a6d81ee4eb8309cd82f6082aeca68c5a015702a3") (:keywords "helm" "pyccarddav" "carddav" "message" "mu4e" "contacts") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me"))]) (py-yapf . [(20160925 1122) nil "Use yapf to beautify a Python buffer" single ((:commit . "a878304202ad827a1f3de3dce1badd9ca8731146") (:authors ("Friedrich Paetzke" . "f.paetzke@gmail.com")) (:maintainer "Friedrich Paetzke" . "f.paetzke@gmail.com") (:url . "https://github.com/paetzke/py-yapf.el"))]) (py-test . [(20151117 622) ((dash (2 9 0)) (f (0 17)) (emacs (24 4))) "A test runner for Python code." single ((:commit . "3b2a0bdaacb54df6f2bee8317423e5c0d159d5cf") (:keywords "python" "testing" "py.test") (:authors ("Bogdan Paul Popa" . "popa.bogdanp@gmail.com")) (:maintainer "Bogdan Paul Popa" . "popa.bogdanp@gmail.com") (:url . "https://github.com/Bogdanp/py-test.el"))]) (py-smart-operator . [(20170531 1209) ((s (1 9 0))) "smart-operator for python-mode" single ((:commit . "0c8a66faca4b35158d0b5885472cb75286039167") (:keywords "python" "convenience" "smart-operator") (:authors ("Rustem Muslimov" . "r.muslimov@gmail.com")) (:maintainer "Rustem Muslimov" . "r.muslimov@gmail.com"))]) (py-isort . [(20160925 1018) nil "Use isort to sort the imports in a Python buffer" single ((:commit . "e67306f459c47c53a65604e4eea88a3914596560") (:authors ("Friedrich Paetzke" . "paetzke@fastmail.fm")) (:maintainer "Friedrich Paetzke" . "paetzke@fastmail.fm") (:url . "http://paetzke.me/project/py-isort.el"))]) (py-import-check . [(20130802 1111) nil "Finds the unused python imports using importchecker" single ((:commit . "9787f87745a4234cd9bed711860b707902bc8ae4") (:keywords "python" "import" "check") (:authors ("Sibi" . "sibi@psibi.in")) (:maintainer "Sibi" . "sibi@psibi.in") (:url . "https://github.com/psibi/emacs-py-import-check"))]) (py-gnitset . [(20170821 1732) nil "Run your Python tests any way you'd like" single ((:commit . "1e993cc29cbc31e06fe1e335dec198e21972fa55") (:authors ("Brandon W Maister" . "quodlibetor@gmail.com")) (:maintainer "Brandon W Maister" . "quodlibetor@gmail.com") (:url . "https://www.github.com/quodlibetor/py-gnitset"))]) (py-autopep8 . [(20160925 1052) nil "Use autopep8 to beautify a Python buffer" single ((:commit . "68e12d8788c91c7ec53a68acf1d23adb2ffa4788") (:authors ("Friedrich Paetzke" . "f.paetzke@gmail.com")) (:maintainer "Friedrich Paetzke" . "f.paetzke@gmail.com") (:url . "http://paetzke.me/project/py-autopep8.el"))]) (px . [(20170317 2330) nil "preview inline latex in any mode" single ((:commit . "0c52f7933eab3ca1642ab0df151db9950430c9e2") (:authors ("Aurélien Aptel" . "aurelien.aptel@gmail.com")) (:maintainer "Aurélien Aptel" . "aurelien.aptel@gmail.com") (:url . "http://github.com/aaptel/preview-latex"))]) (pushover . [(20170818 2103) ((cl-lib (0 5))) "Pushover API Access" single ((:commit . "bbe3ac8df3c532a72da4552615af960b8a577588") (:keywords "notifications") (:authors ("Samuel W. Flint" . "swflint@flintfam.org")) (:maintainer "Samuel W. Flint" . "swflint@flintfam.org") (:url . "http://github.com/swflint/pushover.el"))]) (pushbullet . [(20140809 1232) ((grapnel (0 5 2)) (json (1 2))) "Emacs client for the PushBullet Android app" single ((:commit . "73c59a0f1dc04875b3e5a2c8afbc26c32128e445") (:keywords "convenience") (:authors ("Abhishek L" . "abhishek.lekshmanan@gmail.com")) (:maintainer "Abhishek L" . "abhishek.lekshmanan@gmail.com") (:url . "http://www.github.com/theanalyst/revolver"))]) (purty-mode . [(20131004 2259) nil "Safely pretty-print greek letters, mathematical symbols, or anything else." single ((:commit . "8eef77317a3bab07ade212353a50fbd3f20f365a") (:authors ("James Atwood" . "jatwood@cs.umass.edu")) (:maintainer "James Atwood" . "jatwood@cs.umass.edu"))]) (purple-haze-theme . [(20141015 229) ((emacs (24 0))) "an overtly purple color theme for Emacs24." single ((:commit . "3e245cbef7cd09e6b3ee124963e372a04e9a6485") (:authors ("Jason Milkins" . "jasonm23@gmail.com")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com") (:url . "https://github.com/jasonm23/emacs-purple-haze-theme"))]) (purp-theme . [(20181012 1454) nil "No description available." tar ((:commit . "9c0c1246008ed0844a90661e45c660d99451425e"))]) (purescript-mode . [(20181028 838) ((cl-lib (0 6))) "A PureScript editing mode" tar ((:commit . "a6c7e4cc5ea29cf96478490a57d495e745d6e054"))]) (puppet-mode . [(20180813 1947) ((emacs (24 1)) (pkg-info (0 4))) "Major mode for Puppet manifests" single ((:commit . "7dee1b5a5debac6e56f9107492a413b6c0edb94d") (:keywords "languages") (:authors ("Bozhidar Batsov" . "bozhidar@batsov.com") ("Sebastian Wiesner" . "swiesner@lunaryorn.com") ("Russ Allbery" . "rra@stanford.edu")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "https://github.com/voxpupuli/puppet-mode"))]) (punpun-theme . [(20161103 847) nil "A bleak theme" tar ((:commit . "cce8b10b2df6f9187a9eaa0c3f21ff0dda175968"))]) (pungi . [(20150222 1246) ((jedi (0 2 0 -3 2)) (pyvenv (1 5))) "Integrates jedi with virtualenv and buildout python environments" single ((:commit . "a2d4d439ea371be0b064a12248288903b8a521a0") (:keywords "convenience") (:authors ("Matthew Russell" . "matthew.russell@horizon5.org")) (:maintainer "Matthew Russell" . "matthew.russell@horizon5.org"))]) (punctuality-logger . [(20141120 2031) nil "Punctuality logger for Emacs" single ((:commit . "e09e5dd37bc92289fa2f7dc44aed51a7b5e04bb0") (:keywords "reminder" "calendar") (:authors ("Philip Woods" . "elzairthesorcerer@gmail.com")) (:maintainer "Philip Woods" . "elzairthesorcerer@gmail.com") (:url . "https://gitlab.com/elzair/punctuality-logger"))]) (pulseaudio-control . [(20180627 1150) nil "Use `pactl' to manage PulseAudio volumes." single ((:commit . "1da372ec79f5d2fb901d1f9f0679fee8848fd011") (:keywords "multimedia" "hardware" "sound" "pulseaudio") (:authors ("Alexis" . "flexibeast@gmail.com") ("Ellington Santos" . "ellingtonsantos@gmail.com") ("Sergey Trofimov" . "sarg@sarg.org.ru")) (:maintainer "Alexis" . "flexibeast@gmail.com") (:url . "https://github.com/flexibeast/pulseaudio-control"))]) (pug-mode . [(20180513 2126) ((emacs (24 4)) (cl-lib (0 5))) "Major mode for jade/pug template files" single ((:commit . "685fd3414d89736bf232f5d1a6bed9e0353b98fe") (:keywords "markup" "language" "jade" "pug") (:authors ("Nathan Weizenbaum")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-pug-mode"))]) (pt . [(20161226 1959) nil "A front-end for pt, The Platinum Searcher." single ((:commit . "6d99b2aaded3ece3db19a20f4b8f1d4abe382622") (:keywords "pt" "ack" "ag" "grep" "search") (:authors ("Bailey Ling")) (:maintainer "Bailey Ling") (:url . "https://github.com/bling/pt.el"))]) (psysh . [(20171023 529) ((emacs (24 3)) (s (1 9 0)) (f (0 17))) "PsySH, PHP interactive shell (REPL)" single ((:commit . "926af4ae0c068ed699fc939f4b3e642aaa6f7c9e") (:keywords "processes" "php") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/psysh.el"))]) (psession . [(20181111 1412) ((emacs (24)) (cl-lib (0 5)) (async (1 9 3))) "Persistent save of elisp objects." single ((:commit . "ce7c28dc5aed37a3a3c4bd9a099032c15e5ef9e1") (:authors ("Thierry Volpiatto" . "thierry.volpiatto@gmail.com")) (:maintainer "Thierry Volpiatto" . "thierry.volpiatto@gmail.com") (:url . "https://github.com/thierryvolpiatto/psession"))]) (psci . [(20180418 1233) ((purescript-mode (13 10)) (dash (2 9 0)) (s (1 9 0)) (f (0 17 1))) "Major mode for purescript repl psci" tar ((:commit . "3f5ef1141a97c4b5507204d48e8aeccd553e4591") (:keywords "purescript" "psci" "repl" "major" "mode") (:authors ("Antoine R. Dumont <eniotna.t AT gmail.com>")) (:maintainer "Antoine R. Dumont <eniotna.t AT gmail.com>") (:url . "https://github.com/ardumont/emacs-psci"))]) (psc-ide . [(20181002 1319) ((dash (2 13 0)) (dash-functional (1 2 0)) (company (0 8 7)) (cl-lib (0 5)) (s (1 10 0)) (emacs (24 4)) (flycheck (0 24)) (let-alist (1 0 4)) (seq (1 11))) "Minor mode for PureScript's psc-ide tool." tar ((:commit . "01a158b77210fec9c1bfc0caffaf08fccc0412ac") (:keywords "languages") (:authors ("Erik Post" . "erik@shinsetsu.nl") ("Dmitry Bushenko" . "d.bushenko@gmail.com") ("Christoph Hegemann") ("Brian Sermons")) (:maintainer "Erik Post" . "erik@shinsetsu.nl") (:url . "https://github.com/epost/psc-ide-emacs"))]) (proxy-mode . [(20180521 330) ((emacs (25))) "A minor mode to toggle proxy." single ((:commit . "1cf689c2408945081215550589936a7eaab14987") (:keywords "comm" "proxy") (:url . "https://github.com/stardiviner/proxy-mode"))]) (protocols . [(20170802 1132) ((cl-lib (0 5))) "Protocol database access functions." single ((:commit . "d0f7c4acb05465f1a0d4be54363bbd2802647e77") (:keywords "convenience" "net" "protocols") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/protocols.el"))]) (protobuf-mode . [(20170526 1650) nil "major mode for editing protocol buffers." single ((:commit . "9313cdc442c22bc62694742597ce7c543d195a73") (:keywords "google" "protobuf" "languages") (:authors ("Alexandre Vassalotti" . "alexandre@peadrop.com")) (:maintainer "Alexandre Vassalotti" . "alexandre@peadrop.com"))]) (prosjekt . [(20151127 1416) ((dash (2 8 0))) "a software project tool for emacs" tar ((:commit . "a864a8be5842223043702395f311e3350c28e9db") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/prosjekt"))]) (proportional . [(20171025 2337) ((emacs (25 1))) "use a proportional font everywhere" single ((:commit . "f671ffe8fd803e2fc462e2e1844aeeab1a13918e") (:keywords "faces") (:authors ("Johannes Goslar")) (:maintainer "Johannes Goslar") (:url . "https://github.com/ksjogo/proportional"))]) (propfont-mixed . [(20150113 2211) ((emacs (24)) (cl-lib (0 5))) "Use proportional fonts with space-based indentation." single ((:commit . "0b461ef4754a469610dba71874a34b6da42176bf") (:keywords "faces") (:authors ("Kirill Ignatiev <github.com/ikirill>")) (:maintainer "Kirill Ignatiev <github.com/ikirill>") (:url . "https://github.com/ikirill/propfont-mixed"))]) (prop-menu . [(20150728 1118) ((emacs (24 3)) (cl-lib (0 5))) "Create and display a context menu based on text and overlay properties" single ((:commit . "50b102c1c0935fd3e0c465feed7f27d66b21cdf3") (:keywords "convenience") (:authors ("David Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Christiansen" . "david@davidchristiansen.dk") (:url . "https://github.com/david-christiansen/prop-menu-el"))]) (proof-general . [(20181115 1610) ((emacs (24 3))) "A generic front-end for proof assistants (interactive theorem provers)" tar ((:commit . "05df29f7ff065d8da45b81691c602b6cf075e4a0"))]) (prompts . [(20160916 1041) ((dash (2 13 0))) "utilities for working with text prompts." single ((:commit . "1cd5e732ff2a86b47836eb7252e5b59cd4b6ab26") (:keywords "input" "minibuffer") (:authors ("Ben Moon" . "guiltydolphin@gmail.com")) (:maintainer "Ben Moon" . "guiltydolphin@gmail.com") (:url . "https://github.com/guiltydolphin/prompts.el"))]) (prompt-text . [(20160106 1409) nil "Various information in minibuffer prompt" single ((:commit . "bb9265ebfada42d0e3c67c809665e1e5d980691e") (:keywords "utility" "minibuffer") (:authors ("10sr <8slashes+el [at] gmail [dot] com>")) (:maintainer "10sr <8slashes+el [at] gmail [dot] com>") (:url . "https://github.com/10sr/prompt-text-el"))]) (promise . [(20180409 952) ((emacs (25)) (async (1 9))) "Promises/A+" tar ((:commit . "f623fa7466983fd1ba7034371f599434c03da723") (:keywords "async" "promise" "convenience") (:authors ("chuntaro" . "chuntaro@sakura-games.jp")) (:maintainer "chuntaro" . "chuntaro@sakura-games.jp") (:url . "https://github.com/chuntaro/emacs-promise"))]) (projmake-mode . [(20161031 1715) ((dash (20150611 922)) (indicators (20130217 1405))) "Project oriented automatic builder and error highlighter, flymake for projects" tar ((:commit . "a897701f7e8f8cc11459ed44eb0e454db2a460c1"))]) (projekt . [(20150324 848) ((emacs (24))) "some kind of staging for CVS" single ((:commit . "a65e554e5d8b0def08c5d06f3fe34fec40bebd83") (:authors ("Engelke Eschner" . "tekai@gmx.li")) (:maintainer "Engelke Eschner" . "tekai@gmx.li"))]) (projector . [(20180724 1822) ((alert (1 1)) (projectile (0 11 0)) (cl-lib (0 5))) "Lightweight library for managing project-aware shell and command buffers" single ((:commit . "d4aad9449960457932c19123c7ea2d60a67d1cca") (:authors ("Justin Talbott" . "justin@waymondo.com")) (:maintainer "Justin Talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/projector"))]) (projectile-variable . [(20170208 1718) ((emacs (24)) (cl-lib (0 5))) "Store project local variables." single ((:commit . "8d348ac70bdd6dc320c13a12941b32b38140e264") (:keywords "project" "convenience") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/projectile-variable"))]) (projectile-trailblazer . [(20170928 1624) ((emacs (24 4)) (projectile (0 12 0)) (inflections (1 1)) (inf-ruby (2 2 6)) (f (0 13 0)) (rake (0 3 2))) "Minor mode for Rails projects using trailblazer" single ((:commit . "a37a4f7b7f727d98e4c74c0256e059e84263553d") (:keywords "rails" "projectile" "trailblazer" "languages") (:authors ("Michael Dahl" . "michael.dahl84@gmail.com")) (:maintainer "Michael Dahl" . "michael.dahl84@gmail.com") (:url . "https://github.com/micdahl/projectile-trailblazer"))]) (projectile-speedbar . [(20170517 243) ((projectile (0 11 0)) (sr-speedbar (0))) "projectile integration for speedbar" single ((:commit . "dcab13db72c2084edbebe808e35f1126fe0b3bcd") (:keywords "project" "convenience" "speedbar" "projectile") (:authors ("Anshul Verma" . "anshul.verma86@gmail.com")) (:maintainer "Anshul Verma" . "anshul.verma86@gmail.com") (:url . "https://github.com/anshulverma/projectile-speedbar"))]) (projectile-sift . [(20160107 1015) ((sift (0 2 0)) (projectile (0 13 0))) "Run a sift with Projectile" single ((:commit . "4ce8878a0fc396ded7521ce38852d93e1d863065") (:keywords "sift" "projectile") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/sift.el"))]) (projectile-ripgrep . [(20180914 1500) ((ripgrep (0 3 0)) (projectile (0 14 0))) "Run ripgrep with Projectile" single ((:commit . "93eca9138f6d6eea1af92f476c797ce19fa573d9") (:keywords "ripgrep" "projectile") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/ripgrep.el"))]) (projectile-rails . [(20181009 1317) ((emacs (24 3)) (projectile (0 12 0)) (inflections (1 1)) (inf-ruby (2 2 6)) (f (0 13 0)) (rake (0 3 2))) "Minor mode for Rails projects based on projectile-mode" single ((:commit . "af0f826f2e1b1aad4e31e089e5fc7b5937e82359") (:keywords "rails" "projectile") (:authors ("Adam Sokolnicki" . "adam.sokolnicki@gmail.com")) (:maintainer "Adam Sokolnicki" . "adam.sokolnicki@gmail.com") (:url . "https://github.com/asok/projectile-rails"))]) (projectile-hanami . [(20160505 1311) ((emacs (24 3)) (projectile (0 12 0)) (rake (0 3 2)) (inf-ruby (2 2 6))) "Minor mode for Hanami projects based on projectile" single ((:commit . "c4b8e7d4dfec789ef8493a7c5d4ce0cf7937e579") (:keywords "hanami" "ruby" "projectile") (:authors ("Arjan van der Gaag")) (:maintainer "Arjan van der Gaag") (:url . "https://github.com/avdgaag/projectile-hanami"))]) (projectile-git-autofetch . [(20180418 2336) ((projectile (0 14 0)) (alert (1 2))) "automatically fetch git repositories" single ((:commit . "55855886bccb5a22fbeb2b1c86ef2e9ff4de9067") (:keywords "tools" "vc") (:authors ("Andreas Müller" . "code@0x7.ch")) (:maintainer "Andreas Müller" . "code@0x7.ch") (:url . "https://github.com/andrmuel/projectile-git-autofetch"))]) (projectile-direnv . [(20160306 138) ((emacs (24)) (s (1 11 0)) (dash (2 12 0)) (projectile (0 13 0))) "Set environment variables from .envrc" single ((:commit . "d5d29e5228f840b7a25358a2fd50353ef2dc9b16") (:keywords "convenience") (:authors ("Christian Romney" . "crommney@pointslope.com")) (:maintainer "Christian Romney" . "crommney@pointslope.com") (:url . "https://github.com/christianromney/projectile-direnv"))]) (projectile-codesearch . [(20180508 1522) ((codesearch (20171122 431)) (projectile (20150405 126))) "Integration of codesearch into projectile" single ((:commit . "f6eb96f034a925444412cfa03e45e0ccbbafe3f2") (:keywords "tools" "development" "search") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/emacs-codesearch"))]) (projectile . [(20181106 1631) ((emacs (25 1)) (pkg-info (0 4))) "Manage and navigate projects in Emacs easily" single ((:commit . "9482d69e5ca6549ec7baea58f86c1445b544563b") (:keywords "project" "convenience") (:authors ("Bozhidar Batsov" . "bozhidar@batsov.com")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "https://github.com/bbatsov/projectile"))]) (project-shells . [(20171107 851) ((emacs (24 3)) (seq (2 19))) "Manage the shell buffers of each project" single ((:commit . "d9401de750e444697c2eb9de1ff79f2a2eba4af8") (:keywords "processes" "terminals") (:authors ("\"Huang, Ying\"" . "huang.ying.caritas@gmail.com")) (:maintainer "\"Huang, Ying\"" . "huang.ying.caritas@gmail.com") (:url . "https://github.com/hying-caritas/project-shells"))]) (project-root . [(20110206 2030) nil "Define a project root and take actions based upon it." single ((:authors ("Philip Jackson" . "phil@shellarchive.co.uk")) (:maintainer "Philip Jackson" . "phil@shellarchive.co.uk"))]) (project-persist-drawer . [(20151108 1222) ((project-persist (0 3))) "Use a project drawer with project-persist." tar ((:commit . "35bbe132a4fab6a0fec15ce6c0fd2fe6a4aa9626"))]) (project-persist . [(20180906 1302) nil "A minor mode to allow loading and saving of project settings." tar ((:commit . "26d9435bef44da2a1b0892eba822f9f487b98eec"))]) (project-explorer . [(20150504 14) ((cl-lib (0 3)) (es-lib (0 3)) (es-windows (0 1)) (emacs (24))) "A project explorer sidebar" single ((:commit . "589a09008706f5f4ef91393dc4306eede0d15ca9") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/project-explorer"))]) (project-abbrev . [(20180706 254) ((emacs (24 4))) "Customize abbreviation expansion in the project." single ((:commit . "3678f1bc0084c1092467f8fc1778fecdbe255c43") (:authors ("Shen, Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Shen, Jen-Chieh" . "jcs090218@gmail.com") (:url . "https://github.com/jcs090218/project-abbrev"))]) (programmer-dvorak . [(20150427 137) nil "Input method for Programmer Dvorak." single ((:commit . "3288a8f058eca4cab390a564babbbcb17cfa0350") (:keywords "dvorak" "programmer-dvorak" "input-method") (:authors ("Chenyun Yang" . "yangchenyun@gmail.com")) (:maintainer "Chenyun Yang" . "yangchenyun@gmail.com") (:url . "https://github.com/yangchenyun/programmer-dvorak"))]) (prognth . [(20130920 1759) nil "Extend prog1 to arbitrary index" single ((:commit . "2f1ca4d34b1fd581163e1df122c85418137e8e62") (:keywords "lisp") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))]) (prog-fill . [(20180607 132) ((emacs (25 1)) (cl-lib (0 6 1))) "Smartly format lines to use vertical space." single ((:commit . "3fbf7da6dd826e95c9077d659566ee29814a31d8") (:keywords "ahungry" "convenience" "c" "formatting" "editing") (:authors ("Matthew Carter" . "m@ahungry.com")) (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/prog-fill"))]) (professional-theme . [(20150315 1100) nil "Emacs port of Vim's professional theme" single ((:commit . "0927d1474049a193f9f366bde5eb1887b9ba20ed") (:keywords "theme" "light" "professional") (:authors ("Juanjo Alvarez" . "juanjo@juanjoalvarez.net")) (:maintainer "Juanjo Alvarez" . "juanjo@juanjoalvarez.net") (:url . "https://github.com/juanjux/emacs-professional-theme"))]) (prodigy . [(20180511 938) ((s (1 8 0)) (dash (2 4 0)) (f (0 14 0)) (emacs (24))) "Manage external services from within Emacs" single ((:commit . "701dccaa56de9e6a330c05bde33bce4f3b3d6a97") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/prodigy.el"))]) (processing-snippets . [(20140426 1428) ((yasnippet (0 8 0))) "Snippets for processing-mode" tar ((:commit . "448aba82970c98322629eaf2746e73be6c30c98e"))]) (processing-mode . [(20171022 2302) nil "Major mode for Processing 2.0" single ((:commit . "448aba82970c98322629eaf2746e73be6c30c98e") (:keywords "languages" "snippets") (:authors ("Peter Vasil" . "mail@petervasil.net")) (:maintainer "Peter Vasil" . "mail@petervasil.net") (:url . "https://github.com/ptrv/processing2-emacs"))]) (proc-net . [(20130322 12) nil "network process tools" single ((:commit . "10861112a1f3994c8e6374d6c5bb5d734cfeaf73") (:keywords "processes") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "http://github.com/nicferrier/emacs-procnet"))]) (private-diary . [(20151216 1657) ((emacs (24 0))) "maintain a private diary in Emacs" single ((:commit . "0c86fb6150ad8ed14f94def3504f5a68f4147283") (:keywords "diary" "encryption") (:authors ("James P. Ascher" . "jpa4q@virginia.edu")) (:maintainer "James P. Ascher" . "jpa4q@virginia.edu") (:url . "https://github.com/cacology/private-diary"))]) (private . [(20150122 157) ((aes (0 6))) "take care of your private configuration files." single ((:commit . "9266d01c095895cc3ee9de95bc20511e88353755") (:keywords "private" "configuration" "backup" "recover") (:authors ("Cheung Mou Wai" . "yeannylam@gmail.com")) (:maintainer "Cheung Mou Wai" . "yeannylam@gmail.com") (:url . "https://github.com/cheunghy/private"))]) (pretty-symbols . [(20140814 959) nil "Draw tokens as Unicode glyphs." single ((:commit . "582cbe51ecfe1cc0a5b185bc06113c8a661e3956") (:keywords "faces") (:authors ("David Röthlisberger" . "david@rothlis.net")) (:maintainer "David Röthlisberger" . "david@rothlis.net") (:url . "http://github.com/drothlis/pretty-symbols"))]) (pretty-sha-path . [(20141105 1826) nil "Prettify Guix/Nix store paths" single ((:commit . "a2b43dd9de423a38d67cda2e3bd9412f7d363257") (:keywords "faces" "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://gitorious.org/alezost-emacs/pretty-sha-path"))]) (pretty-mode . [(20160614 1846) nil "Redisplay parts of the buffer as pretty Unicode symbols." single ((:commit . "59466813f6a46bed926ddcbae1a70b0eae7f73a0") (:keywords "pretty" "unicode" "symbols") (:authors ("Arthur Danskin" . "arthurdanskin@gmail.com")) (:maintainer "Dmitri Akatov" . "akatov@gmail.com") (:url . "https://github.com/akatov/pretty-mode"))]) (prettify-greek . [(20160603 908) nil "Greek letters for prettify-symbols" single ((:commit . "698d07a6ffe85f6fb53f3bfec4f49380c25cfd90") (:keywords "faces") (:url . "https://gitlab.com/fommil/emacs-prettify-greek"))]) (prettier-js . [(20180109 726) nil "Minor mode to format JS code on file save" single ((:commit . "fac9dd29720f8417bd8cd5dd8ab5138c6dd7d701") (:keywords "convenience" "wp" "edit" "js") (:authors ("James Long and contributors")) (:maintainer "James Long and contributors") (:url . "https://github.com/prettier/prettier-emacs"))]) (presentation . [(20180427 224) ((emacs (24 4)) (cl-lib (0 5))) "Display large character for presentation" single ((:commit . "f53f67aeab97e8eea6d1f12df5f7ce3b1b03b879") (:keywords "environment" "faces" "frames") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/emacs-presentation-mode"))]) (preseed-generic-mode . [(20180210 500) nil "Debian preseed file major mode" single ((:commit . "3aa8806c4a659064baa01751400c53fbaf847f66") (:authors ("Tong Sun" . "suntong@users.sourceforge.net")) (:maintainer "Tong Sun" . "suntong@users.sourceforge.net") (:url . "https://github.com/suntong/preseed-generic-mode"))]) (prescient . [(20181022 2256) ((emacs (25 1))) "Better sorting and filtering." single ((:commit . "1623a0d4e5b9a752db45923fd91da48b49c85068") (:keywords "extensions") (:authors ("Radon Rosborough" . "radon.neon@gmail.com")) (:maintainer "Radon Rosborough" . "radon.neon@gmail.com") (:url . "https://github.com/raxod502/prescient.el"))]) (preproc-font-lock . [(20151107 2018) nil "Highlight C-style preprocessor directives." single ((:commit . "565fda9f5fdeb0598986174a07e9fb09f7604397") (:keywords "c" "languages" "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/preproc-font-lock"))]) (prassee-theme . [(20180709 1004) ((emacs (24))) "A high contrast color theme for Emacs." single ((:commit . "81126f69cdbaab836c00ae7a49aaf89d4229fde1") (:keywords "dark" "high-contrast" "faces") (:authors ("Prassee " . "prassee.sathian@gmail.com")) (:maintainer "Prassee " . "prassee.sathian@gmail.com") (:url . "https://github.com/prassee/prassee-emacs-theme"))]) (ppd-sr-speedbar . [(20151108 1224) ((sr-speedbar (20140914 2339)) (project-persist-drawer (0 0 4))) "Sr Speedbar adaptor for project-persist-drawer." tar ((:commit . "d88d7f63f695824c435dd996405454d1e46d2aa3"))]) (powerthesaurus . [(20180719 908) ((emacs (24)) (request (0 3 0)) (s (1 12 0))) "Powerthesaurus integration" single ((:commit . "ab39b050e801934872f3dcaa60b50b0d30ecf367") (:keywords "convenience" "writing") (:url . "http://github.com/SavchenkoValeriy/emacs-powerthesaurus"))]) (powershell . [(20181011 1951) ((emacs (24))) "Mode for editing PowerShell scripts" single ((:commit . "c9a20e5a8b02dc5d7ccd2b1974eba28a9348ad5e") (:keywords "powershell" "languages") (:authors ("Frédéric Perrin <frederic (dot) perrin (arobas) resel (dot) fr>")) (:maintainer "Frédéric Perrin <frederic (dot) perrin (arobas) resel (dot) fr>") (:url . "http://github.com/jschaf/powershell.el"))]) (powerline-evil . [(20151112 1510) ((evil (1 0 8)) (powerline (2 3))) "Utilities for better Evil support for Powerline" tar ((:commit . "98b3a102b6dba6632aa0755a7257300c9b164309") (:keywords "evil" "mode-line" "powerline") (:authors ("Chris Johnson" . "raugturi@gmail.com")) (:maintainer "Chris Johnson" . "raugturi@gmail.com") (:url . "http://github.com/raugturi/powerline-evil/"))]) (powerline . [(20180322 248) ((cl-lib (0 2))) "Rewrite of Powerline" tar ((:commit . "af5ef31a33c3589a9be0b2a55a2741582e605efd") (:keywords "mode-line") (:authors ("Donald Ephraim Curtis" . "dcurtis@milkbox.net")) (:maintainer "Donald Ephraim Curtis" . "dcurtis@milkbox.net") (:url . "http://github.com/milkypostman/powerline/"))]) (pow . [(20140420 806) ((emacs (24)) (cl-lib (0 5))) "pow (http://pow.cx/) manager for emacs" tar ((:commit . "ea83986b8ca8e27cb996290d6463b111ec0966ce") (:keywords "develop" "web" "pow") (:authors ("yukihiro hara" . "yukihr@gmail.com")) (:maintainer "yukihiro hara" . "yukihr@gmail.com") (:url . "http://github.com/yukihr/emacs-pow"))]) (pov-mode . [(20161115 743) nil "Major mode for editing POV-Ray scene files." tar ((:commit . "9fc1db3aab7c27155674dd1a87ec62606035d074"))]) (postcss-sorting . [(20180211 956) ((emacs (24))) "postcss-sorting interface" single ((:commit . "deb0c935d2904c11a965758a9aee5a0e905f21fc") (:authors ("Peiwen Lu" . "hi@peiwen.lu")) (:maintainer "Peiwen Lu" . "hi@peiwen.lu") (:url . "https://github.com/P233/postcss-sorting.el"))]) (posframe . [(20180927 602) ((emacs (26))) "Pop a posframe (just a frame) at point" single ((:commit . "2f4baf00ab9184dff75ec97fc520d1c91e1acb9c") (:keywords "tooltip") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/posframe"))]) (pos-tip . [(20150318 1513) nil "Show tooltip at point" single ((:commit . "051e08fec5cf30b7574bdf439f79fef7d42d689d") (:keywords "tooltip") (:authors ("S. Irie")) (:maintainer "S. Irie"))]) (portage-navi . [(20141208 1355) ((concurrent (0 3 1)) (ctable (0 1 2))) "portage viewer" single ((:commit . "8016c3e99fe6cef101d479a3d69185796b22ca2f") (:keywords "tools" "gentoo") (:authors ("<m.sakurai at kiwanami.net>")) (:maintainer "<m.sakurai at kiwanami.net>") (:url . "https://github.com/kiwanami/emacs-portage-navi"))]) (popwin . [(20150315 1300) nil "Popup Window Manager." single ((:commit . "95dea14c60019d6cccf9a3b33e0dec4e1f22c304") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))]) (popup-switcher . [(20171205 851) ((cl-lib (0 3)) (popup (0 5 3))) "switch to other buffers and files via popup." single ((:commit . "f5788a31918e37bb5c04139048c667bcec9f1b62") (:keywords "popup" "switch" "buffers" "functions") (:authors ("Kostafey" . "kostafey@gmail.com")) (:maintainer "Kostafey" . "kostafey@gmail.com") (:url . "https://github.com/kostafey/popup-switcher"))]) (popup-kill-ring . [(20131020 1854) ((popup (0 4)) (pos-tip (0 4))) "interactively insert item from kill-ring" single ((:commit . "5773dfadc104a906c088a3ec62e8cdd3e01e57fa") (:keywords "popup" "kill-ring" "pos-tip") (:authors ("khiker" . "khiker.mail+elisp@gmail.com")) (:maintainer "khiker" . "khiker.mail+elisp@gmail.com") (:url . "https://github.com/waymondo/popup-kill-ring"))]) (popup-imenu . [(20170326 1040) ((dash (2 12 1)) (popup (0 5 3)) (flx-ido (0 6 1))) "imenu index popup" single ((:commit . "c5e2e69adbd3a630e4cb750965a1aee8c10c1f09") (:keywords "popup" "imenu") (:authors ("Igor Shymko" . "igor.shimko@gmail.com")) (:maintainer "Igor Shymko" . "igor.shimko@gmail.com") (:url . "https://github.com/ancane/popup-imenu"))]) (popup-edit-menu . [(20170404 1425) ((emacs (24))) "a popup context edit menu package" single ((:commit . "925600a6e29183841199e866cf55e566a6a1b002") (:keywords "lisp" "pop-up" "context" "edit" "menu") (:authors ("Debugfan Chin" . "debugfanchin@gmail.com")) (:maintainer "Debugfan Chin" . "debugfanchin@gmail.com"))]) (popup-complete . [(20141109 308) ((popup (0 5 0))) "completion with popup" single ((:commit . "caa655a6d8472e9a4bfa1311126d90d7d1b07fca") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-popup-complete"))]) (popup . [(20160709 1429) ((cl-lib (0 5))) "Visual Popup User Interface" single ((:commit . "80829dd46381754639fb764da11c67235fe63282") (:keywords "lisp") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))]) (poporg . [(20170403 751) nil "Pop a comment or string to an empty buffer for text editing" single ((:commit . "2c58d68c81ecca4140bf179f19ed153ec804b65a") (:keywords "outlines" "tools") (:authors ("François Pinard" . "pinard@iro.umontreal.ca") ("Joseph Rabinoff" . "rabinoff@post.harvard.edu")) (:maintainer "Joseph Rabinoff" . "rabinoff@post.harvard.edu") (:url . "https://github.com/QBobWatson/poporg"))]) (pophint . [(20170918 248) ((log4e (0 2 0)) (yaxception (0 3))) "Provide navigation using pop-up tips, like Firefox's Vimperator Hint Mode" tar ((:commit . "909025c5a871ca4b9ec7aed7f1a27c819a94dba1") (:keywords "popup") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-pophint"))]) (ponylang-mode . [(20180804 1521) ((dash (2 10 0))) "Major mode for Pony code" single ((:commit . "be6f9dce623415656320f32e350e28da75c53437") (:keywords "languages" "programming") (:url . "https://github.com/seantallen/ponylang-mode"))]) (pony-snippets . [(20160205 411) ((yasnippet (0 8 0))) "Yasnippets for Pony" tar ((:commit . "a6615ab0693f17fc47ec45753202010238157810") (:keywords "snippets" "pony") (:url . "https://github.com/seantallen/pony-snippets"))]) (pony-mode . [(20170807 1522) nil "Minor mode for working with Django Projects" tar ((:commit . "760684d30b6c234d1b88c9a4673a808f36f7f341"))]) (pomodoro . [(20150716 1746) nil "A timer for the Pomodoro Technique" single ((:commit . "4a299b8f5e6623010224dcb3e524ff288c6a082c") (:authors ("David Kerschner" . "dkerschner@gmail.com")) (:maintainer "David Kerschner" . "dkerschner@gmail.com"))]) (pomidor . [(20180614 828) ((emacs (24 3)) (alert (1 2))) "Simple and cool pomodoro timer" tar ((:commit . "8859aecdb48b76a36c5e251793da0f108b2dfeb4") (:keywords "tools" "time" "applications" "pomodoro technique") (:authors ("TatriX" . "tatrics@gmail.com")) (:maintainer "TatriX" . "tatrics@gmail.com") (:url . "https://github.com/TatriX/pomidor"))]) (polymode . [(20181118 1144) ((emacs (25))) "Extensible framework for multiple major modes" tar ((:commit . "ce328b8c9526f495536e4502fc6f606e1b2b8d06") (:keywords "languages" "multi-modes" "processes") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/vitoshka/polymode"))]) (poly-slim . [(20181010 2138) ((emacs (25)) (polymode (0 1 5)) (slim-mode (1 1))) "Polymodes for slim" single ((:commit . "1ec1ca8120e087cd1f33baee7b7059c324149f4b") (:keywords "emacs") (:authors ("Siavash Sajjadi and Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/polymode/poly-slim"))]) (poly-ruby . [(20180905 929) ((emacs (25)) (polymode (0 1 2))) "Provides poly-ruby-mode" single ((:commit . "794ebb926ace23e9c1398da934701951432dcea2") (:keywords "languages") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/poly-ruby.el"))]) (poly-org . [(20181010 2137) ((emacs (25)) (polymode (0 1 5))) "Polymode for org-mode" single ((:commit . "3f74d3ba0ad8ffe01bbc0994fcc4e5fc7aef6121") (:keywords "languages" "multi-modes") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/polymode/poly-org"))]) (poly-noweb . [(20181010 2137) ((emacs (25)) (polymode (0 1 5))) "Polymode for noweb" single ((:commit . "d604d62fa311c6d18dc10058b637eb95bd684eee") (:keywords "languages" "multi-modes") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/polymode/poly-noweb"))]) (poly-markdown . [(20181010 2137) ((emacs (25)) (polymode (0 1 5)) (markdown-mode (2 3))) "Polymode for markdown-mode" single ((:commit . "d55d14273ba1ad05c6f1adf7ca5457b5a89acfce") (:keywords "emacs") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/polymode/poly-markdown"))]) (poly-erb . [(20181019 1402) ((emacs (25)) (polymode (0 1 5))) "Polymode for erb" single ((:commit . "61fa4640a1cb08120c2c70bfc32029cc79b31b79") (:keywords "emacs") (:authors ("Siavash Sajjadi and Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/polymode/poly-erb"))]) (poly-R . [(20181024 2054) ((emacs (25)) (polymode (0 1 5)) (poly-markdown (0 1 5)) (poly-noweb (0 1 5))) "Various polymodes for R language" single ((:commit . "b9236aab9043747bf764703e7b84f3c6bb526dec") (:keywords "languages" "multi-modes") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/polymode/poly-R"))]) (pollen-mode . [(20181022 130) ((emacs (24 3)) (cl-lib (0 5))) "major mode for editing pollen files" single ((:commit . "3b57f40f78eb4458e7be41dc4051f9cf0ff6982e") (:keywords "languages" "pollen" "pollenpub") (:authors ("Junsong Li <ljs.darkfish AT GMAIL>")) (:maintainer "Junsong Li") (:url . "https://github.com/lijunsong/pollen-mode"))]) (pointback . [(20100210 1552) nil "Restore window points when returning to buffers" single ((:commit . "e3a02c1784d81b5a1d2477338d049af581ed19f8") (:keywords "convenience") (:authors ("Markus Triska" . "markus.triska@gmx.at")) (:maintainer "Markus Triska" . "markus.triska@gmx.at"))]) (point-stack . [(20170808 1658) nil "Back and forward navigation through buffer locations" single ((:commit . "76e17311e3a810314c7d31ac46dc55450ff30fa2") (:authors ("Matt Harrison" . "matthewharrison@gmail.com") ("Dmitry Gutov" . "dgutov@yandex.ru")) (:maintainer "Matt Harrison" . "matthewharrison@gmail.com"))]) (point-pos . [(20170421 1632) nil "Save and restore point positions" single ((:commit . "442bccb40791832cbc2d6f5c8f53be745aea2b73") (:keywords "tools" "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/point-pos.el"))]) (poet-theme . [(20180924 329) nil "A theme for prose." tar ((:commit . "44439fd84143632760abfd5d8a65436e787955fd") (:authors ("Kunal Bhalla" . "bhalla.kunal@gmail.com")) (:maintainer "Kunal Bhalla" . "bhalla.kunal@gmail.com") (:url . "https://github.com/kunalb/poet/"))]) (podcaster . [(20161020 1535) ((cl-lib (0 5))) "Podcast client" single ((:commit . "9854517025deb5d556168a68955fb7b662239f5c") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/podcaster"))]) (pocket-reader . [(20180819 2007) ((emacs (25 1)) (dash (2 13 0)) (kv (0 0 19)) (pocket-lib (0 1)) (s (1 10)) (ov (1 0 6)) (rainbow-identifiers (0 2 2)) (org-web-tools (0 1)) (ht (2 2))) "Client for Pocket reading list" single ((:commit . "0eb2e678b3fdc8899e420e6ecca03a2ada4b6283") (:keywords "pocket") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "https://github.com/alphapapa/pocket-reader.el"))]) (pocket-mode . [(20171201 1315) ((emacs (24 4)) (pocket-api (0 1))) "Manage your pocket" single ((:commit . "229de7d35b7e5605797591c46aa8200d7efc363c") (:keywords "convenience" "pocket") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))]) (pocket-lib . [(20180712 23) ((emacs (25 1)) (request (0 2)) (dash (2 13 0)) (kv (0 0 19)) (s (1 12 0))) "Library for accessing getpocket.com API" single ((:commit . "8dd89153472d2e49bf9a3b3507b93c2acf0b44ac") (:keywords "pocket") (:authors (nil . "Adam Porter <adam@alphapapa.net")) (:maintainer nil . "Adam Porter <adam@alphapapa.net") (:url . "https://github.com/alphapapa/pocket-lib.el"))]) (pocket-api . [(20180403 109) ((emacs (24 4)) (request (0 2))) "another pocket api" single ((:commit . "3eb9430b9db90bc02e736e433eb86389f7655189") (:keywords "convenience" "pocket") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/pocket-api.el"))]) (po-mode . [(20180505 1115) nil "major mode for GNU gettext PO files" single ((:commit . "17b1b16277d81af3afd5c51c53eda385e33f3178") (:keywords "i18n" "gettext"))]) (pmdm . [(20151109 1836) nil "poor man's desktop-mode alternative." single ((:authors ("Iñigo Serna" . "inigoserna@gmail.com")) (:maintainer "Iñigo Serna" . "inigoserna@gmail.com") (:url . "https://bitbucket.com/inigoserna/pmdm.el"))]) (plur . [(20160504 924) ((emacs (24 4))) "Easily search and replace multiple variants of a word" single ((:commit . "5bdd3b9a2f0624414bd596e798644713cd1545f0") (:authors ("Chunyang Xu" . "xuchunyang.me@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang.me@gmail.com") (:url . "https://github.com/xuchunyang/plur"))]) (plsense-direx . [(20140520 2008) ((direx (0 1 -3)) (plsense (0 3 2)) (log4e (0 2 0)) (yaxception (0 3 2))) "Perl Package Explorer" single ((:commit . "8a2f465264c74e04524cc789cdad0190ace43f6c") (:keywords "perl" "convenience") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/plsense-direx"))]) (plsense . [(20151104 1445) ((auto-complete (1 4 0)) (log4e (0 2 0)) (yaxception (0 2 0))) "provide interface for PlSense that is a development tool for Perl." single ((:commit . "d50f9dccc98f42bdb42f1d1c8142246e03879218") (:keywords "perl" "completion") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-plsense"))]) (plim-mode . [(20140813 13) nil "Major mode for editing Plim files" single ((:commit . "92e39190286f172567ceb02c80e1df3b81abfa2d") (:keywords "markup" "language") (:authors ("Dong Weiming")) (:maintainer "Dong Weiming") (:url . "http://github.com/dongweiming/plim-mode"))]) (plenv . [(20130707 616) nil "A plenv wrapper for Emacs" single ((:commit . "ee937d0f3a1a7ba2d035f45be896d3ed8fefaee2") (:keywords "emacs" "perl") (:authors ("Kenta Sato" . "karupa@cpan.org")) (:maintainer "Kenta Sato" . "karupa@cpan.org"))]) (playground . [(20180624 326) ((emacs (24 4))) "Manage sandboxes for alternative configurations" single ((:commit . "9212790026bea9ab5fb4ecf0da1163be8ab00776") (:keywords "maint") (:authors ("Akira Komamura" . "akira.komamura@gmail.com")) (:maintainer "Akira Komamura" . "akira.komamura@gmail.com") (:url . "https://github.com/akirak/emacs-playground"))]) (playerctl . [(20180301 1354) nil "Control your music player (e.g. Spotify) with playerctl" single ((:commit . "3eee541423c2e5eb9f23a26fa9aa88c9c5a19ad1") (:keywords "multimedia" "playerctl" "music") (:authors ("Thomas Luquet" . "thomas@luquet.net")) (:maintainer "Thomas Luquet" . "thomas@luquet.net") (:url . "https://github.com/thomasluquet/playerctl.el"))]) (play-routes-mode . [(20170426 733) nil "Play Framework Routes File Support" single ((:commit . "22d7b87e0eaf0330f2b2283872f8dc08a3258771") (:keywords "play" "scala") (:authors ("M.Riehl <max@flatmap.ninja>, P.Haun" . "bomgar85@googlemail.com")) (:maintainer "M.Riehl <max@flatmap.ninja>, P.Haun" . "bomgar85@googlemail.com") (:url . "https://github.com/brocode/play-routes-mode/"))]) (play-crystal . [(20180114 1024) ((emacs (24 4)) (dash (2 12 0)) (request (0 2 0))) "https://play.crystal-lang.org integration." single ((:commit . "0b4810a9025213bd11dbcbfd38b3ca928829e0a5") (:keywords "convenience") (:authors ("Vitalii Elenhaupt")) (:maintainer "Vitalii Elenhaupt") (:url . "https://github.com/veelenga/play-crystal.el"))]) (platformio-mode . [(20161210 1339) ((projectile (0 13 0))) "PlatformIO integration" single ((:commit . "1466aed132a77f48fcb31938d64abb1a1e58ec42") (:authors ("Zach Massia" . "zmassia@gmail.com")) (:maintainer "Zach Massia" . "zmassia@gmail.com") (:url . "https://github.com/zachmassia/platformio-mode"))]) (plaster . [(20180127 2050) ((emacs (24 3))) "Pasting to a plaster host with buffers." single ((:commit . "2e61d16af81b96ff3191afd7a880f032d245182b") (:keywords "convenience" "paste service") (:authors ("Nicolas Hafner" . "shinmera@tymoon.eu")) (:maintainer "Nicolas Hafner" . "shinmera@tymoon.eu") (:url . "http://github.com/shirakumo/plaster/"))]) (plantuml-mode . [(20180816 1012) ((emacs (25 0))) "Major mode for PlantUML" single ((:commit . "b358a53bb0ab195f0193169d0d6869a3ef2c543e") (:keywords "uml" "plantuml" "ascii") (:authors ("Zhang Weize (zwz)")) (:maintainer "Carlo Sciolla (skuro)"))]) (planet-theme . [(20161031 217) ((emacs (24))) "A dark theme inspired by Gmail's 'Planets' theme of yore" single ((:commit . "b0a310ff36565fe22224c407cf59569986698a32") (:keywords "themes") (:authors ("Charlie McMackin" . "charlie.mac@gmail.com")) (:maintainer "Charlie McMackin" . "charlie.mac@gmail.com") (:url . "https://github.com/cmack/emacs-planet-theme"))]) (plan9-theme . [(20180804 1441) nil "A color theme for Emacs based on Plan9" single ((:commit . "4c1050b8ed42e0f99ef64c77ec370a786bd0003c") (:authors ("John Louis Del Rosario" . "john2x@gmail.com")) (:maintainer "John Louis Del Rosario" . "john2x@gmail.com") (:url . "https://github.com/john2x/plan9-theme.el"))]) (plain-theme . [(20171124 410) ((emacs (24))) "Plain theme without syntax highlighting" single ((:commit . "a3d5389a44326314da21f147bad2ede60e2cf986"))]) (pkgbuild-mode . [(20181116 1331) ((emacs (25 1))) "Interface to the ArchLinux package manager" single ((:commit . "c27b65c3deb116b296cef013f342159d9dec5c11") (:keywords "languages") (:authors ("Juergen Hoetzel" . "juergen@hoetzel.info")) (:maintainer "Juergen Hoetzel" . "juergen@hoetzel.info") (:url . "https://github.com/juergenhoetzel/pkgbuild-mode"))]) (pkg-info . [(20150517 1143) ((epl (0 8))) "Information about packages" single ((:commit . "76ba7415480687d05a4353b27fea2ae02b8d9d61") (:keywords "convenience") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/lunaryorn/pkg-info.el"))]) (pixiv-novel-mode . [(20160220 1421) nil "Major mode for pixiv novel" single ((:commit . "0d1ca524d92b91f20a7105402a773bc21779b434") (:keywords "novel" "pixiv") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))]) (pixie-mode . [(20180626 541) ((clojure-mode (3 0 1)) (inf-clojure (1 0 0))) "Major mode for Pixie-lang" single ((:commit . "a40c2632cfbe948852a5cdcfd44e6a65db11834d") (:authors ("John Walker" . "john.lou.walker@gmail.com")) (:maintainer "John Walker" . "john.lou.walker@gmail.com") (:url . "https://github.com/johnwalker/pixie-mode"))]) (pivotal-tracker . [(20170720 1516) nil "Interact with Pivotal Tracker through its API" single ((:commit . "0311d117037c74512149a4a78b269c2e46d7dfba") (:authors ("John Andrews")) (:maintainer "John Andrews") (:url . "http://github.com/jxa/pivotal-tracker"))]) (pippel . [(20180710 856) ((emacs (25 1)) (s (1 11 0)) (dash (2 12 0))) "Frontend to python package manager pip" tar ((:commit . "21a5200e8e5ccaa1911abb4ebf090b76ca839756") (:authors ("Fritz Stelzer" . "brotzeitmacher@gmail.com")) (:maintainer "Fritz Stelzer" . "brotzeitmacher@gmail.com") (:url . "https://github.com/brotzeitmacher/pippel"))]) (pipenv . [(20180719 547) ((emacs (25 1)) (f (0 19 0)) (s (1 12 0))) "A Pipenv porcelain." single ((:commit . "5582bf60577de74e6301871c6b77ac86b6ce1970") (:authors ("Paul Walsh" . "paulywalsh@gmail.com")) (:maintainer "Paul Walsh" . "paulywalsh@gmail.com") (:url . "https://github.com/pwalsh/pipenv.el"))]) (pip-requirements . [(20181027 1629) ((dash (2 8 0))) "A major mode for editing pip requirements files." single ((:commit . "216cd1690f80cc965d4ae47b8753fc185f778ff6") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (pinyinlib . [(20170827 2142) nil "Convert first letter of Pinyin to Simplified/Traditional Chinese characters" single ((:commit . "45f05d3dbb4fe957f7ab332ca6f94675848b6aa3") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (pinyin-search . [(20160515 358) ((pinyinlib (0 1 0))) "Search Chinese by Pinyin" single ((:commit . "2e877a76851009d41bde66eb33182a03a7f04262") (:keywords "chinese" "search") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/pinyin-search.el"))]) (pinyin . [(20180620 1241) ((cl-lib (0 5)) (emacs (24))) "Convert Hanzi to Pinyin (汉字转拼音)" tar ((:commit . "a325e790e9dd7c5028c4c8d110b08e9d78227382") (:keywords "extensions") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/pinyin.el"))]) (pinot . [(20140211 2026) nil "Emacs interface to pinot-search" tar ((:commit . "67fda555a155b22bb2ce44ba618b4bd6fc5f144a") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (pine-script-mode . [(20181110 151) ((emacs (24))) "Trading View Pine Script major mode" single ((:commit . "f7892d373e30df0b2e8d2191e4ddb2064a92dd3c") (:keywords "extensions") (:authors ("Eric Crosson" . "eric.s.crosson@utexas.edu")) (:maintainer "Eric Crosson" . "eric.s.crosson@utexas.edu") (:url . "https://github.com/ericcrosson/pine-script-mode"))]) (pinboard-popular . [(20180511 1726) ((loop (1 4))) "Displays links from the pinboard.in popular page." single ((:commit . "c0bc76cd35f8ecf34723c64a702b82eec2751318") (:keywords "pinboard") (:url . "https://github.com/asimpson/pinboard-popular"))]) (pinboard-api . [(20140324 1148) nil "Rudimentary http://pinboard.in integration" single ((:commit . "b7b5214d0c35178f8dca08cf22d6ef3c21f0fce4") (:keywords "pinboard" "www") (:authors ("Danie Roux" . "danie@danieroux.com")) (:maintainer "Danie Roux" . "danie@danieroux.com") (:url . "https://github.com/danieroux/pinboard-api-el"))]) (pillar . [(20141112 1811) ((makey (0 3))) "Major mode for editing Pillar files" tar ((:commit . "13a7f676544cc66005ccd8e6fc1c25e4ccd6f909") (:keywords "markup" "major-mode") (:authors ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainer "Damien Cassou" . "damien.cassou@gmail.com") (:url . "http://github.com/DamienCassou/pillar-mode"))]) (pig-snippets . [(20130913 624) ((yasnippet (0 8 0))) "Snippets for pig-mode" tar ((:commit . "4c6c6e1b1bb719d8adc6c47cc24665f6fe558959"))]) (pig-mode . [(20180520 1400) nil "Major mode for Pig files" single ((:commit . "4c6c6e1b1bb719d8adc6c47cc24665f6fe558959") (:maintainer "David A. Shamma"))]) (picpocket . [(20180914 1819) ((emacs (24 4))) "Image viewer" single ((:commit . "6fd88b8711c4370662c0f9c462170187d092a046") (:keywords "multimedia") (:authors ("Johan Claesson" . "johanclaesson@bredband.net")) (:maintainer "Johan Claesson" . "johanclaesson@bredband.net") (:url . "https://github.com/johanclaesson/picpocket"))]) (picolisp-mode . [(20150516 855) nil "Major mode for PicoLisp programming." single ((:commit . "1a537b14090813f46cbba54636d40365e1a8067e") (:keywords "picolisp" "lisp" "programming") (:authors ("Alexis" . "flexibeast@gmail.com")) (:maintainer "Alexis" . "flexibeast@gmail.com") (:url . "https://github.com/flexibeast/picolisp-mode"))]) (pickle . [(20180628 237) ((emacs (25 1)) (cl-lib (0 6 1))) "Major mode for editing cucumber gherkin files." single ((:commit . "568570b7d376026fbcb7c3df1ad8f605bd14c820") (:keywords "languages" "cucumber" "gherkin") (:authors ("Matthew Carter" . "m@ahungry.com")) (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/pickle-mode"))]) (pianobar . [(20180417 104) nil "thin wrapper for Pianobar, a Pandora Radio client" single ((:commit . "3154c4cb7401017fd441fcd6a7a0b669a4406882") (:authors ("Aaron Griffith" . "aargri@gmail.com")) (:maintainer "Aaron Griffith" . "aargri@gmail.com") (:url . "http://github.com/agrif/pianobar.el"))]) (phpunit . [(20180829 1438) ((s (1 12 0)) (f (0 19 0)) (pkg-info (0 6)) (cl-lib (0 5)) (emacs (24 3))) "Launch PHP unit tests using phpunit" tar ((:commit . "fe6bc91c3bd8b329c6d26ad883a025f06b5121ee") (:keywords "tools" "php" "tests" "phpunit") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com") ("Eric Hansen" . "hansen.c.eric@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/phpunit.el"))]) (phpstan . [(20180721 1935) ((emacs (24 3))) "Interface to PHPStan." single ((:commit . "beac0e0e7160454d4f42162b3502a36ccf488120") (:keywords "tools" "php") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/phpstan.el"))]) (phpcbf . [(20180519 838) ((s (1 9 0))) "Format PHP code in Emacs using PHP_CodeSniffer's phpcbf" single ((:commit . "a31020fc4c5add7339e009faea66894dc02a77f1") (:keywords "tools" "php") (:authors ("nishimaki10")) (:maintainer "nishimaki10") (:url . "https://github.com/nishimaki10/emacs-phpcbf"))]) (phpactor . [(20181028 556) ((emacs (24 3)) (cl-lib (0 5)) (f (0 17)) (composer (0 1))) "Interface to Phpactor" tar ((:commit . "eda8b34a729b3acb641aafa30552c501dec27d37") (:keywords "tools" "php") (:authors ("USAMI Kenta" . "tadsan@zonu.me") ("Mikael Kermorgant" . "mikael@kgtech.fi")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/phpactor.el"))]) (php-scratch . [(20161103 2217) ((emacs (24 3)) (s (1 11 0)) (php-mode (1 17 0))) "A scratch buffer to interactively evaluate php code" single ((:commit . "3aa66d1d53b84b779374edff7a7e6b5f2cd7575d") (:authors ("Tijs Mallaerts" . "tijs.mallaerts@gmail.com")) (:maintainer "Tijs Mallaerts" . "tijs.mallaerts@gmail.com"))]) (php-runtime . [(20180922 2215) ((emacs (25)) (cl-lib (0 5))) "Language binding bridge to PHP" single ((:commit . "a205c8dc4d19619b5e37478caeec0c74b7502b3c") (:keywords "processes" "php") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/php-runtime.el"))]) (php-refactor-mode . [(20171124 635) nil "Minor mode to quickly and safely perform common refactorings" single ((:commit . "7a794b0618df2882b1bd586fdd698dba0bc5130d") (:keywords "php" "refactor") (:authors ("Matthew M. Keeler" . "keelerm84@gmail.com")) (:maintainer "Matthew M. Keeler" . "keelerm84@gmail.com") (:url . "https://github.com/keelerm84/php-refactor-mode.el"))]) (php-mode . [(20180829 520) ((emacs (24 3)) (cl-lib (0 5))) "Major mode for editing PHP code" tar ((:commit . "1f04813f46219e626b385d0d96abefad914bfae0") (:keywords "languages" "php") (:authors ("Eric James Michael Ritz")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/php-mode"))]) (php-eldoc . [(20140202 1941) nil "eldoc backend for php" tar ((:commit . "df05064146b884d9081e10657e32dc480f070cfe") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/php-eldoc"))]) (php-cs-fixer . [(20170506 1833) ((cl-lib (0 5))) "php-cs-fixer wrapper." single ((:commit . "ca2c075a22ad156c336d2aa093fb6394c9f6c112") (:keywords "languages" "php") (:authors ("Philippe Ivaldi for OVYA")) (:maintainer "Philippe Ivaldi for OVYA") (:url . "https://github.com/OVYA/php-cs-fixer"))]) (php-boris-minor-mode . [(20140209 1835) ((php-boris (0 0 1)) (highlight (0))) "a minor mode to evaluate PHP code in the Boris repl" single ((:commit . "c70e176dd6545f2d42ca3427e87b469635616d8a") (:keywords "php" "repl" "eval") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://github.com/steckerhalter/php-boris-minor-mode"))]) (php-boris . [(20130527 821) nil "Run boris php REPL" single ((:commit . "f2faebf610c917f7091f7ec0cd97645629c4f819") (:keywords "php" "commint" "repl" "boris") (:authors ("Tom Regner")) (:maintainer "Tom Regner" . "tom@goochesa.de"))]) (php-auto-yasnippets . [(20170331 114) ((php-mode (1 11)) (yasnippet (0 8 0))) "Creates snippets for PHP functions" tar ((:commit . "03e1f0899c081813901ac15c2f7a675a37cca9f5") (:authors ("Eric James Michael Ritz")) (:maintainer "Eric James Michael Ritz") (:url . "https://github.com/ejmr/php-auto-yasnippets"))]) (phoenix-dark-pink-theme . [(20170729 1403) nil "Originally a port of the Sublime Text 2 theme" single ((:commit . "4defbb76b00c1a29f060813898578152d6be623d") (:authors ("J Irving" . "j@lollyshouse.ca")) (:maintainer "J Irving" . "j@lollyshouse.ca") (:url . "http://github.com/j0ni/phoenix-dark-pink"))]) (phoenix-dark-mono-theme . [(20170729 1406) nil "Monochromatic version of the Phoenix theme" single ((:commit . "a54f515d162148bcb38676980bc2316adb3d7b8b") (:authors ("J Irving" . "j@lollyshouse.ca")) (:maintainer "J Irving" . "j@lollyshouse.ca") (:url . "http://github.com/j0ni/phoenix-dark-mono"))]) (phi-search-migemo . [(20170618 921) ((phi-search (2 2 0)) (migemo (1 9 1))) "migemo extension for phi-search" single ((:commit . "308909ebfc8003d16673f97ca9eb26a667b72969") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (phi-search-mc . [(20160324 1503) ((phi-search (2 0 0)) (multiple-cursors (1 2 1))) "multiple-cursors extension for phi-search" single ((:commit . "7aa671910f766437089aec26c3aa7814222d1356") (:keywords "search" "cursors") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/phi-search-mc.el"))]) (phi-search-dired . [(20150405 714) ((phi-search (2 2 0))) "interactive filtering for dired powered by phi-search" single ((:commit . "162a5e4507c72512affae22744bb606a906d4193") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (phi-search . [(20180322 129) nil "another incremental search & replace, compatible with \"multiple-cursors\"" tar ((:commit . "9a089b8271cb1cff9640848850298c9ec855286c") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (phi-rectangle . [(20151208 654) nil "another rectangle-mark command (rewrite of rect-mark)" single ((:commit . "0c12716afc71d803d1f39417469521dc465762d9") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (phi-grep . [(20170606 807) ((cl-lib (0 1))) "Interactively-editable recursive grep implementation in elisp" single ((:commit . "ab9bd8d25e751a9cbfa108b49839293230b6e8b5") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://github.com/zk-phi/phi-grep"))]) (phi-autopair . [(20170217 353) ((paredit (20))) "another simple-minded autopair implementation" single ((:commit . "3c7556779c3a53b045f5df33ae2a0c67469cbf60") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (phan . [(20180528 339) ((emacs (24)) (composer (0 0 8)) (f (0 17))) "Utility functions for Phan (PHP static analizer)" single ((:commit . "6b077b3421a0b2c0b98a6906b8ab0d14d9d7bf50") (:keywords "tools" "php") (:authors ("USAMI Kenta" . "tadsan@pixiv.com")) (:maintainer "USAMI Kenta" . "tadsan@pixiv.com") (:url . "https://github.com/emacs-php/phan.el"))]) (phabricator . [(20160510 1425) ((emacs (24 4)) (dash (1 0)) (projectile (0 13 0)) (s (1 10 0)) (f (0 17 2))) "Phabricator/Arcanist helpers for Emacs." single ((:commit . "d09d6f059aea92d3b11c68664a5e80c901182ab8") (:keywords "phabricator" "arcanist" "diffusion") (:authors ("Andrew Tulloch")) (:maintainer "Andrew Tulloch") (:url . "https://github.com/ajtulloch/phabricator.el"))]) (ph . [(20161029 1522) ((emacs (24 3))) "A global minor mode for managing multiple projects." tar ((:commit . "ed80dad9211583ed0db633448b3624c99b7fac23"))]) (pgdevenv . [(20150105 2236) nil "Manage your PostgreSQL development envs" tar ((:commit . "7f1d5bc734750aca98cf67a9491cdbd5615fd132") (:keywords "emacs" "postgresql" "development" "environment" "shell" "debug" "gdb") (:authors ("Dimitri Fontaine" . "dim@tapoueh.org")) (:maintainer "Dimitri Fontaine" . "dim@tapoueh.org"))]) (pg . [(20130731 2142) nil "Emacs Lisp interface to the PostgreSQL RDBMS" single ((:commit . "4f6516ec3946d95dcef49abb6703cc89ecb5183d") (:keywords "data" "comm" "database" "postgresql") (:authors ("Eric Marsden" . "emarsden@laas.fr")) (:maintainer "Helmut Eller" . "heller@common-lisp.net"))]) (pfuture . [(20180922 1315) ((emacs (25 2))) "a simple wrapper around asynchronous processes" single ((:commit . "c06e78b37ac3fba72ea446f11da38a6a5cba428c") (:authors ("Alexander Miller" . "alexanderm@web.de")) (:maintainer "Alexander Miller" . "alexanderm@web.de") (:url . "https://github.com/Alexander-Miller/pfuture"))]) (perspeen . [(20171203 1021) ((emacs (25 0)) (powerline (2 4))) "An package for multi-workspace" tar ((:commit . "edb70c530bda50ff3d1756e32a703d5fef5e5480") (:keywords "lisp") (:authors ("Peng Li" . "seudut@gmail.com")) (:maintainer "Peng Li" . "seudut@gmail.com") (:url . "https://github.com/seudut/perspeen"))]) (perspective . [(20181120 114) ((cl-lib (0 5))) "switch between named \"perspectives\" of the editor" single ((:commit . "2c8cf56d170c3eb1fcc1a8fe41026b780e0ffead") (:keywords "workspace" "convenience" "frames") (:authors ("Natalie Weizenbaum" . "nex342@gmail.com")) (:maintainer "Natalie Weizenbaum" . "nex342@gmail.com") (:url . "http://github.com/nex3/perspective-el"))]) (persp-projectile . [(20180616 1944) ((perspective (1 9)) (projectile (0 11 0)) (cl-lib (0 3))) "Perspective integration with Projectile" single ((:commit . "533808b3e4f8f95a1e3ed9c55d9aa720277ebd5f") (:keywords "project" "convenience") (:authors ("Daniel Wu")) (:maintainer "Daniel Wu"))]) (persp-mode-projectile-bridge . [(20170315 1120) ((persp-mode (2 9)) (projectile (0 13 0)) (cl-lib (0 5))) "persp-mode + projectile integration." single ((:commit . "f6453cd7b8b4352c06e771706f2c5b7e2cdff1ce") (:keywords "persp-mode" "projectile") (:authors ("Constantin Kulikov (Bad_ptr)" . "zxnotdead@gmail.com")) (:maintainer "Constantin Kulikov (Bad_ptr)" . "zxnotdead@gmail.com") (:url . "https://github.com/Bad-ptr/persp-mode-projectile-bridge.el"))]) (persp-mode . [(20180930 1720) nil "windows/buffers sets shared among frames + save/load." single ((:commit . "689f63e7370cd9424d84b9f7b2eb3d1955443313") (:keywords "perspectives" "session" "workspace" "persistence" "windows" "buffers" "convenience") (:authors ("Constantin Kulikov (Bad_ptr)" . "zxnotdead@gmail.com")) (:maintainer "Constantin Kulikov (Bad_ptr)" . "zxnotdead@gmail.com") (:url . "https://github.com/Bad-ptr/persp-mode.el"))]) (persp-fr . [(20180801 727) ((emacs (25 0)) (persp-mode (2 9 6)) (dash (2 13 0))) "In persp-mode, show perspective list in the GUI window title" single ((:commit . "3f536440b120499464106fd25f182d7580192870") (:keywords "perspectives" "workspace" "windows" "convenience") (:authors ("Francesc Rocher" . "francesc.rocher@gmail.com")) (:maintainer "Francesc Rocher" . "francesc.rocher@gmail.com") (:url . "http://github.com/rocher/persp-fr"))]) (persistent-soft . [(20150223 1853) ((pcache (0 3 1)) (list-utils (0 4 2))) "Persistent storage, returning nil on failure" single ((:commit . "a1e0ddf2a12a6f18cab565dee250f070384cbe02") (:keywords "data" "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/persistent-soft"))]) (persistent-scratch . [(20180929 1413) ((emacs (24))) "Preserve the scratch buffer across Emacs sessions" single ((:commit . "2e6678a837db85e68da713bbd4772c7fb88d83d4") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/persistent-scratch"))]) (persistent-overlays . [(20161128 700) nil "Minor mode to store selected overlays to be loaded later" tar ((:commit . "f563c8b966edc78c9d806661c4eb80e4781c4eab") (:keywords "overlays" "persistent") (:authors ("Michael Neilly" . "mneilly@yahoo.com")) (:maintainer "Michael Neilly" . "mneilly@yahoo.com") (:url . "https://github.com/mneilly/Emacs-Persistent-Overlays"))]) (perlbrew . [(20161109 709) nil "A perlbrew wrapper for Emacs" single ((:commit . "3a3406c3307c92aa30f9400d430925c434a3b6f0") (:keywords "emacs" "perl") (:authors ("Kentaro Kuribayashi" . "kentarok@gmail.com")) (:maintainer "Kentaro Kuribayashi" . "kentarok@gmail.com"))]) (perl6-mode . [(20180619 1159) ((emacs (24 4)) (pkg-info (0 1))) "Major mode for editing Perl 6 code" tar ((:commit . "88de065795d6863b23b6042576b9e90f8cbf8798") (:keywords "languages") (:authors ("Hinrik Örn Sigurðsson" . "hinrik.sig@gmail.com")) (:maintainer "Hinrik Örn Sigurðsson" . "hinrik.sig@gmail.com") (:url . "https://github.com/hinrik/perl6-mode"))]) (per-buffer-theme . [(20160318 2201) ((cl-lib (0 5))) "Change theme according to buffer name or major mode." single ((:keywords "themes") (:authors ("Iñigo Serna" . "inigoserna@gmail.com")) (:maintainer "Iñigo Serna" . "inigoserna@gmail.com") (:url . "https://bitbucket.com/inigoserna/per-buffer-theme.el"))]) (pelican-mode . [(20180604 2207) ((emacs (25))) "Minor mode for editing Pelican sites" single ((:commit . "209ad24318e1f28675da430aa10ef3467694b9ac") (:keywords "convenience" "editing") (:authors ("Joe Wreschnig" . "joe.wreschnig@gmail.com")) (:maintainer "Joe Wreschnig" . "joe.wreschnig@gmail.com") (:url . "https://git.korewanetadesu.com/pelican-mode.git"))]) (peg . [(20150708 641) nil "Parsing Expression Grammars in Emacs Lisp" single ((:commit . "081efeca91d790c7fbc90871ac22c40935f4833b"))]) (peep-dired . [(20160321 2237) nil "Peep at files in another window from dired buffers" single ((:commit . "c88a9a3050197840edfe145f11e0bb9488de32f4") (:keywords "files" "convenience") (:authors ("Adam Sokolnicki" . "adam.sokolnicki@gmail.com")) (:maintainer "Adam Sokolnicki" . "adam.sokolnicki@gmail.com"))]) (peek-mode . [(20130620 1946) ((elnode (0 9 8 1))) "Serve buffers live over HTTP with elnode backend" tar ((:commit . "55a7dd011375330c7d57322257a5167516702c71") (:authors ("Erik Iverson" . "erik@sigmafield.org")) (:maintainer "Erik Iverson" . "erik@sigmafield.org") (:url . "https://github.com/erikriverson/peek-mode"))]) (peacock-theme . [(20170808 1320) ((emacs (24 0))) "an Emacs 24 theme based on Peacock (tmTheme)" single ((:commit . "9e46fbfb562b6e26c6e3d6d618b044b3694da4c8") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (pdfgrep . [(20181007 1728) ((emacs (24 4))) "run `pdfgrep' and display the results." single ((:commit . "e251cd5c88a4ba5cb69008ba412d329f4d59e1d2") (:keywords "extensions" "mail" "pdf" "grep") (:authors ("Jérémy Compostella" . "jeremy.compostella@gmail.com")) (:maintainer "Jérémy Compostella" . "jeremy.compostella@gmail.com") (:url . "https://github.com/jeremy-compostella/pdfgrep"))]) (pdf-tools . [(20181118 2051) ((emacs (24 3)) (tablist (0 70)) (let-alist (1 0 4))) "Support library for PDF documents." tar ((:commit . "9e765939ee42d59ba0280e52a2ce70f41c61f71e") (:keywords "files" "multimedia") (:authors ("Andreas Politz" . "politza@fh-trier.de")) (:maintainer "Andreas Politz" . "politza@fh-trier.de"))]) (pdb-mode . [(20150128 1751) nil "Major mode for editing Protein Data Bank files" single ((:commit . "855fb18ebb73b5df30c8d7677c2bcd0f361b138a") (:keywords "data" "pdb") (:authors (nil . "charles.bond@uwa.edu.au")) (:maintainer nil . "aix.bing@gmail.com") (:url . "http://bondxray.org/software/pdb-mode/"))]) (pcsv . [(20150220 1131) nil "Parser of csv" single ((:commit . "798e0933f8d0818beb17aebf3b1056bbf74e03d0") (:keywords "data") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-pcsv/raw/master/pcsv.el"))]) (pcre2el . [(20161120 2103) ((emacs (24)) (cl-lib (0 3))) "regexp syntax converter" single ((:commit . "0b5b2a2c173aab3fd14aac6cf5e90ad3bf58fa7d") (:authors ("joddie <jonxfield at gmail.com>")) (:maintainer "joddie <jonxfield at gmail.com>") (:url . "https://github.com/joddie/pcre2el"))]) (pcomplete-extension . [(20180707 455) ((emacs (24)) (cl-lib (0 5))) "additional completion for pcomplete" single ((:commit . "bb941272b54f49f780819f7ce4fd2c802de9a0da") (:authors ("Thierry Volpiatto" . "thierry.volpiatto@gmail.com")) (:maintainer "Thierry Volpiatto" . "thierry.volpiatto@gmail.com") (:url . "https://github.com/thierryvolpiatto/pcomplete-extension"))]) (pcmpl-pip . [(20171201 833) ((s (1 12 0)) (f (0 19 0)) (seq (2 15))) "pcomplete for pip" single ((:commit . "8b001b579fc015f80ee0e4f3211058b830bf7c47") (:keywords "pcomplete" "pip" "python" "tools") (:authors ("Wei Zhao" . "kaihaosw@gmail.com")) (:maintainer "Wei Zhao" . "kaihaosw@gmail.com"))]) (pcmpl-homebrew . [(20181105 309) nil "pcomplete for homebrew" single ((:commit . "3dc4eb22231d82edb9d33d17287bd9a018f7645e") (:keywords "pcomplete" "homebrew" "tools" "cask" "services") (:authors ("hiddenlotus" . "kaihaosw@gmail.com")) (:maintainer "hiddenlotus" . "kaihaosw@gmail.com"))]) (pcmpl-git . [(20170121 59) nil "pcomplete for git" tar ((:commit . "9472ac70baeda025ef7becd1cf141d72aec93f32") (:keywords "tools") (:authors ("Leo Liu" . "sdl.web@gmail.com")) (:maintainer "Leo Liu" . "sdl.web@gmail.com"))]) (pcmpl-args . [(20120912 524) nil "Enhanced shell command completion" single ((:commit . "2ba03b3125ada8037585e545b88bd85b79da5c37") (:keywords "abbrev" "completion" "convenience" "processes" "terminals" "unix") (:authors ("Jonathan Waltman" . "jonathan.waltman@gmail.com")) (:maintainer "Jonathan Waltman" . "jonathan.waltman@gmail.com") (:url . "https://github.com/JonWaltman/pcmpl-args.el"))]) (pcap-mode . [(20161025 1448) ((emacs (24 3))) "Major mode for working with PCAP files" single ((:commit . "52780669af0ade136f84d73f21b4dbb7ab655416") (:keywords "pcap" "packets" "tcpdump" "wireshark" "tshark") (:authors ("Aaron Conole" . "aconole@bytheb.org")) (:maintainer "Aaron Conole" . "aconole@bytheb.org"))]) (pcache . [(20170105 2214) ((eieio (1 3))) "persistent caching for Emacs." single ((:commit . "1f8086077d770e524492e6fa59b07856e85a6fea") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Yann Hodique" . "yann.hodique@gmail.com"))]) (pc-bufsw . [(20180107 1840) nil "PC style quick buffer switcher" single ((:commit . "b99ba484e18ebf2b88654704146746490bb7625f") (:keywords "buffer") (:authors ("Igor Bukanov" . "igor@mir2.org")) (:maintainer "Igor Bukanov" . "igor@mir2.org") (:url . "https://github.com/ibukanov/pc-bufsw"))]) (pbcopy . [(20150225 459) nil "Emacs Interface to pbcopy" single ((:commit . "338f7245746b5de1bb96c5cc2b32bfd9b5d83272") (:keywords "mac" "osx" "pbcopy") (:authors ("Daniel Nelson")) (:maintainer "Daniel Nelson") (:url . "https://github.com/jkp/pbcopy.el"))]) (paxedit . [(20160730 1727) ((cl-lib (0 5)) (paredit (23))) "Structured, Context Driven LISP Editing and Refactoring" single ((:commit . "09f3d5aeb108937a801e77ef413e29eaa4ecc4be") (:keywords "lisp" "refactoring" "context") (:authors ("Mustafa Shameem")) (:maintainer "Mustafa Shameem") (:url . "https://github.com/promethial/paxedit"))]) (pathify . [(20160423 846) nil "Symlink your scripts into a PATH directory" single ((:commit . "401b184c743694a60b3bc4273fc43de05cd5ac4b") (:keywords "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://gitlab.com/alezost-emacs/pathify"))]) (path-helper . [(20181112 1828) ((emacs (24))) "Set PATH environment variables from config files" single ((:commit . "f04b637aca9d2d87bb14896ac8961668284a0fb9") (:keywords "tools" "unix") (:authors ("Arnaud Rouanet" . "arnaud@rouanet.org")) (:maintainer "Arnaud Rouanet" . "arnaud@rouanet.org") (:url . "https://github.com/arouanet/path-helper"))]) (path-headerline-mode . [(20140423 1332) nil "Displaying file path on headerline." single ((:commit . "b5b2725c6a8b1cb592fc242b7dbbd54b4dff2e69") (:keywords "headerline") (:authors ("7696122")) (:maintainer "7696122") (:url . "https://github.com/7696122/path-headerline-mode"))]) (pastery . [(20171114 349) ((emacs (24 4)) (request (0 2 0))) "paste snippets to pastery.net." tar ((:commit . "4493be98b743b4d062cb4e00760125e394a55022") (:keywords "tools") (:authors ("Bruno Dias" . "dias.h.bruno@gmail.com")) (:maintainer "Bruno Dias" . "dias.h.bruno@gmail.com") (:url . "https://github.com/diasbruno/pastery.el"))]) (pastelmac-theme . [(20151031 236) ((emacs (24 1))) "a soothing theme with a pastel color palette" single ((:commit . "bead21741e3f46f6506e8aef4469d4240a819389") (:keywords "themes") (:authors ("Brian Mastenbrook" . "brian@mastenbrook.net")) (:maintainer "Brian Mastenbrook" . "brian@mastenbrook.net") (:url . "https://github.com/bmastenbrook/pastelmac-theme-el"))]) (pastehub . [(20140615 620) nil "A client for the PasteHub cloud service" single ((:commit . "37b045c67659c078f1517d0fbd5282dab58dca23") (:authors ("Kiyoka Nishiyama")) (:maintainer "Kiyoka Nishiyama") (:url . "https://github.com/kiyoka/pastehub"))]) (pastebin . [(20101125 2002) nil "A simple interface to the www.pastebin.com webservice" single ((:commit . "8e9a829298ce0f747ab80758aa26caeb2af6cb30"))]) (paste-of-code . [(20170709 2355) ((emacs (24 3)) (request (0 2 0))) "paste code on https://paste.ofcode.org" single ((:commit . "92d258e8ec98598d847ecab82903f9224c7c2050") (:keywords "lisp") (:authors ("Bernhard Specht" . "bernhard@specht.net")) (:maintainer "Bernhard Specht" . "bernhard@specht.net"))]) (password-vault . [(20160126 1820) ((cl-lib (0 2)) (emacs (24))) "A Password manager for Emacs." single ((:commit . "dc56e6c2f5da66f1ab63736cecf08fb2c6c2b30f") (:keywords "password" "productivity") (:authors ("Javier \"PuercoPop\" Olaechea" . "pirata@gmail.com")) (:maintainer "Javier \"PuercoPop\" Olaechea" . "pirata@gmail.com") (:url . "http://github.com/PuercoPop/password-vault"))]) (password-store-otp . [(20180815 610) ((emacs (25)) (s (1 9 0)) (password-store (0 1))) "Password store (pass) OTP extension support" single ((:commit . "1819cd88463cd98a5be9a63273b09202dc2bba63") (:keywords "tools" "pass") (:authors ("Daniel Barreto")) (:maintainer "Daniel Barreto") (:url . "https://github.com/volrath/password-store-otp.el"))]) (password-store . [(20181031 1440) ((emacs (24)) (f (0 11 0)) (s (1 9 0)) (with-editor (2 5 11))) "Password store (pass) support" single ((:commit . "d29a389a40524c684595f51bb937f66958bc14ea") (:keywords "tools" "pass" "password" "password-store") (:authors ("Svend Sorensen" . "svend@svends.net")) (:maintainer "Svend Sorensen" . "svend@svends.net") (:url . "https://www.passwordstore.org/"))]) (password-mode . [(20170412 629) nil "Hide password text using overlays" single ((:commit . "ed764a4ec1011526457c71b7c37fa9a659a866ab") (:keywords "docs" "password" "passphrase") (:authors ("Jürgen Hötzel" . "juergen@archlinux.org")) (:maintainer "Jürgen Hötzel" . "juergen@archlinux.org"))]) (password-generator . [(20150222 2040) nil "Password generator for humans. Good, Bad, Phonetic passwords included." single ((:commit . "c8193d5e963bda0a2f8e51fd4a94dcf37c76f282") (:authors ("Zargener" . "zargener@gmail.com")) (:maintainer "Zargener" . "zargener@gmail.com") (:url . "http://github.com/zargener/emacs-password-genarator"))]) (passthword . [(20141201 923) ((cl-lib (0 5))) "Simple password manager" single ((:commit . "30bace842eaaa6b48cb2251fb84868ebca0467d6") (:authors ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainer "Peter Stiernström" . "peter@stiernstrom.se"))]) (passmm . [(20180622 2326) ((emacs (24 4)) (password-store (0))) "A minor mode for pass (Password Store)." single ((:commit . "898709c63130d6c0422af544ebac64eae04d24ac") (:authors ("Peter Jones" . "pjones@devalot.com")) (:maintainer "Peter Jones" . "pjones@devalot.com") (:url . "https://github.com/pjones/passmm"))]) (pass . [(20180201 1251) ((emacs (24 3)) (password-store (0 1)) (password-store-otp (0 1 5)) (f (0 17))) "Major mode for password-store.el" single ((:commit . "da08fed8dbe1bac980088d47b01f90154dbb8d8b") (:keywords "password-store" "password" "keychain") (:authors ("Nicolas Petton" . "petton.nicolas@gmail.com") ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Nicolas Petton" . "petton.nicolas@gmail.com"))]) (pasp-mode . [(20180404 1700) ((emacs (24 3))) "- A major mode for editing Answer Set Programs." single ((:commit . "59385eb0e8ebcfc8c11dd811fb145d4b0fa3cc92") (:keywords "asp" "pasp" "answer set programs" "potassco answer set programs" "major mode" "languages") (:authors ("Henrik Jürges" . "juerges.henrik@gmail.com")) (:maintainer "Henrik Jürges" . "juerges.henrik@gmail.com") (:url . "https://github.com/santifa/pasp-mode"))]) (parseclj . [(20180602 2006) ((emacs (25)) (a (0 1 0 -3 4))) "Clojure/EDN parser" tar ((:commit . "dc0d165b0a8633f5b11ed9175a6e421c52f4d314") (:keywords "lisp") (:authors ("Arne Brasseur" . "arne@arnebrasseur.net")) (:maintainer "Arne Brasseur" . "arne@arnebrasseur.net"))]) (parsec . [(20180730 16) ((emacs (24)) (cl-lib (0 5))) "Parser combinator library" single ((:commit . "2cbbbc2254aa7bcaa4fb5e07c8c1bf2f381dba26") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/parsec.el"))]) (parsebib . [(20181031 1021) ((emacs (24 3))) "A library for parsing bib files" single ((:commit . "27b30f5220b80637ed55f3b062ce2823adb40477") (:keywords "text" "bibtex") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))]) (parse-csv . [(20160512 1723) nil "Parse strings with CSV fields into s-expressions" single ((:commit . "96bef1ffbc89ea12d13311c9fa239c5c3e864890") (:keywords "csv") (:authors ("Edward Marco Baringer (Common Lisp)") ("Matt Curtis" . "matt.r.curtis@gmail.com")) (:maintainer "Matt Curtis" . "matt.r.curtis@gmail.com") (:url . "https://github.com/mrc/el-csv"))]) (parrot . [(20181026 1612) ((emacs (24 1))) "Party Parrot rotates gracefully in mode-line." tar ((:commit . "2403f11e7e238b57629edd446da47828a3f549b7") (:keywords "party" "parrot" "rotate" "sirocco" "kakapo" "games") (:authors ("Daniel Ting" . "deep.paren.12@gmail.com")) (:maintainer "Daniel Ting" . "deep.paren.12@gmail.com") (:url . "https://github.com/dp12/parrot.git"))]) (parinfer . [(20180904 844) ((dash (2 13 0)) (cl-lib (0 5))) "Simpler Lisp editing" tar ((:commit . "a7c041454e05ec2b88333a73e72debaa671ed596") (:keywords "parinfer") (:authors ("Shi Tianshu")) (:maintainer "Shi Tianshu") (:url . "https://github.com/DogLooksGood/parinfer-mode"))]) (parent-mode . [(20150824 2300) nil "get major mode's parent modes" single ((:commit . "db692cf08deff2f0e973e6e86e26662b44813d1b") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/parent-mode"))]) (paren-face . [(20180318 2025) nil "a face for parentheses in lisp modes" single ((:commit . "a45d111153a76c481fa0b36d6172ac90e073dfc4") (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/paren-face"))]) (paren-completer . [(20160501 1052) ((emacs (24 3))) "Automatically, language agnostically, fill in delimiters." single ((:commit . "74183a8e13fa1266271bdcbcb4bfb29a4f915f0a") (:keywords "convenience") (:authors ("Matthew Bregg")) (:maintainer "Matthew Bregg") (:url . "https://github.com/MatthewBregg/paren-completer"))]) (paredit-menu . [(20160128 1733) ((paredit (25))) "Adds a menu to paredit.el as memory aid" single ((:commit . "cc0ae85bd819f9ebfa4f2a419ab3b2d70e39c9c8") (:keywords "paredit") (:authors ("Phillip Lord" . "phillip.lord@newcastle.ac.uk")) (:maintainer "Phillip Lord" . "phillip.lord@newcastle.ac.uk"))]) (paredit-everywhere . [(20180506 849) ((paredit (22))) "Enable some paredit features in non-lisp buffers" single ((:commit . "653d7a58fb370d5f7df367464d8d05e23a70b29d") (:keywords "languages" "convenience") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (paredit . [(20171127 205) nil "minor mode for editing parentheses" single ((:commit . "acbe10fdd85d2e91831adf70b6a828bc7e900da0") (:keywords "lisp") (:authors ("Taylor R. Campbell" . "campbell+paredit@mumble.net")) (:maintainer "Taylor R. Campbell" . "campbell+paredit@mumble.net"))]) (paradox . [(20181027 2234) ((emacs (24 4)) (seq (1 7)) (let-alist (1 0 3)) (spinner (1 7 3)) (hydra (0 13 2))) "A modern Packages Menu. Colored, with package ratings, and customizable." tar ((:commit . "798bdabdca6575d677631b1c482e975c9372d536") (:keywords "package" "packages") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/paradox"))]) (paperless . [(20180224 1245) ((emacs (24 4)) (f (0 11 0)) (s (1 10 0)) (cl-lib (0 6 1))) "A major mode for sorting and filing PDF documents." tar ((:commit . "b3b6c05da393f6b1292a3d5937bc4499baabd0b6") (:keywords "pdf" "convenience") (:authors ("Anthony Green" . "green@moxielogic.com")) (:maintainer "Anthony Green" . "green@moxielogic.com") (:url . "http://github.com/atgreen/paperless"))]) (paper-theme . [(20180429 2215) ((emacs (24))) "A minimal Emacs colour theme." single ((:commit . "05f2655321f020fd4c069d1939f0902eaa837eb4") (:keywords "theme" "paper") (:authors ("Göktuğ Kayaalp")) (:maintainer "Göktuğ Kayaalp") (:url . "https://cadadr.github.io/elisp/index.html#paper"))]) (pangu-spacing . [(20170317 857) nil "Minor-mode to add space between Chinese and English characters." single ((:commit . "a4463dbb74abdeddb6c1c132a1f8fcf67ed87498") (:authors ("coldnew" . "coldnew.tw@gmail.com")) (:maintainer "coldnew" . "coldnew.tw@gmail.com") (:url . "http://github.com/coldnew/pangu-spacing"))]) (pandoc-mode . [(20180917 721) ((hydra (0 10 0)) (dash (2 10 0))) "Minor mode for interacting with Pandoc" tar ((:commit . "d594ce399fc75eb553a6d8572713b827f744d95b") (:keywords "text" "pandoc") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))]) (pandoc . [(20161128 1157) ((emacs (24 4))) "Pandoc interface" single ((:commit . "198d262d09e30448f1672338b0b5a81cf75e1eaa") (:keywords "hypermedia" "documentation" "markup" "converter") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/pandoc.el"))]) (panda-theme . [(20180807 1143) ((emacs (24))) "Panda Theme" single ((:commit . "53b4cbb6bfdd531a8366bf1d01eede420e1f93c9") (:authors ("jamiecollinson" . "jamiecollinson@gmail.com")) (:maintainer "jamiecollinson" . "jamiecollinson@gmail.com") (:url . "https://github.com/jamiecollinson/emacs-panda-theme"))]) (pamparam . [(20180415 748) ((emacs (24 3)) (lispy (0 26 0)) (worf (0 1 0)) (hydra (0 13 4))) "Simple and fast flashcards." single ((:commit . "8fa25d06fb2ae6d992e738a10d8b2150e109d9bf") (:keywords "outlines" "hypermedia" "flashcards" "memory") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/pamparam"))]) (pallet . [(20150512 702) ((dash (2 10 0)) (s (1 9 0)) (f (0 17 1)) (cask (0 7))) "A package management tool for Emacs, using Cask." tar ((:commit . "b8d0df1883224a371ac0a3bc9b9c1c4dc61e6ac0"))]) (palimpsest . [(20170119 2032) nil "Various deletion strategies when editing" single ((:commit . "e6d5944393c260ceb724462c84046cc62c9ae916") (:authors ("Daniel Szmulewicz" . "daniel.szmulewicz@gmail.com")) (:maintainer "Daniel Szmulewicz" . "daniel.szmulewicz@gmail.com"))]) (pager-default-keybindings . [(20130719 2057) ((pager (1 0))) "Add the default keybindings suggested for pager.el" single ((:commit . "dbbd49c2ac5906d1dabf9e9c832bfebc1ab405b3") (:authors ("Nathaniel Flath" . "nflath@gmail.com")) (:maintainer "Nathaniel Flath" . "nflath@gmail.com") (:url . "http://github.com/nflath/pager-default-keybindings"))]) (pager . [(20151202 120) nil "windows-scroll commands" single ((:commit . "5c791ed23f1136e04040d6f4bc9b4ca5b6dc919f") (:authors (nil . "Mikael Sjödin -- mic@docs.uu.se")) (:maintainer nil . "Mikael Sjödin -- mic@docs.uu.se"))]) (page-break-lines . [(20171210 831) ((emacs (24 4))) "Display ^L page breaks as tidy horizontal lines" single ((:commit . "fd3b7e38ad8747cd009ead7ef1bb150849ccc693") (:keywords "convenience" "faces") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/page-break-lines"))]) (paganini-theme . [(20180815 1921) ((emacs (24 0))) "A colorful, dark and warm theme." single ((:commit . "255c5a2a8abee9c5935465ec42b9c3604c178c3c") (:authors ("Onur Temizkan")) (:maintainer "Onur Temizkan") (:url . "https://github.com/onurtemizkan/paganini"))]) (pact-mode . [(20180905 1647) ((emacs (24 3))) "Mode for Pact, a LISPlike smart contract language." single ((:commit . "e4e4487c1d55b3fb8775abd948be28442efcffec") (:keywords "pact" "lisp" "languages" "blockchain" "smartcontracts" "tools" "mode") (:authors ("Stuart Popejoy")) (:maintainer "Stuart Popejoy" . "stuart@kadena.io") (:url . "https://github.com/kadena-io/pact-mode"))]) (pacmacs . [(20160131 832) ((emacs (24 4)) (dash (2 11 0)) (dash-functional (1 2 0)) (cl-lib (0 5)) (f (0 18 0))) "Pacman for Emacs" tar ((:commit . "d813e9c62c2540fe619234824fc60e128c786442") (:authors ("Codingteam" . "codingteam@conference.jabber.ru")) (:maintainer "Alexey Kutepov" . "reximkut@gmail.com") (:url . "http://github.com/codingteam/pacmacs.el"))]) (packed . [(20180318 1729) ((emacs (24 3))) "package manager agnostic Emacs Lisp package utilities" single ((:commit . "c41c3dfda86ae33832ffc146923e2a4675cbacfa") (:keywords "compile" "convenience" "lisp" "package" "library") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacscollective/packed"))]) (package-utils . [(20180514 1415) ((restart-emacs (0 1 1))) "Extensions for package.el" single ((:commit . "5621b95c56b55499f0463fd8b29501da25d861bd") (:keywords "package" "convenience") (:authors ("Philippe Vaucher" . "philippe.vaucher@gmail.com")) (:maintainer "Philippe Vaucher" . "philippe.vaucher@gmail.com") (:url . "https://github.com/Silex/package-utils"))]) (package-safe-delete . [(20150116 1607) ((emacs (24)) (epl (0 7 -4))) "Safely delete package.el packages" single ((:commit . "138171e4fc03c0ef05a8260cbb5cd2e114c1c194") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/package-safe-delete"))]) (package-lint-flymake . [(20181117 856) ((emacs (26)) (package-lint (0 5))) "A package-lint Flymake backend" single ((:commit . "83f34f747a13633c92210e6110e3c5377397761c") (:url . "https://github.com/purcell/package-lint"))]) (package-lint . [(20181115 103) ((cl-lib (0 5)) (emacs (24))) "A linting library for elisp package authors" tar ((:commit . "77422967927abf60166d31c9b52c640f1239066e") (:keywords "lisp") (:authors ("Steve Purcell" . "steve@sanityinc.com") ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/package-lint"))]) (package-filter . [(20161122 719) nil "package archive whitelist and blacklist" single ((:commit . "bc73b41aea1d65ca44ef1593ca13126df9bbb39e") (:authors ("Donald Ephraim Curtis" . "dcurtis@milkbox.net")) (:maintainer "Donald Ephraim Curtis" . "dcurtis@milkbox.net") (:url . "https://github.com/milkypostman/package-filter"))]) (package-build . [(20181005 2241) ((cl-lib (0 5))) "Tools for assembling a package archive" tar ((:commit . "0a22c3fbbf661822ec1791739953b937a12fa623") (:keywords "tools") (:authors ("Donald Ephraim Curtis" . "dcurtis@milkbox.net")) (:maintainer "Donald Ephraim Curtis" . "dcurtis@milkbox.net"))]) (package+ . [(20170816 256) nil "Extensions for the package library." single ((:commit . "9213f6134eabc2cff5826779ced437714324c066") (:keywords "extensions" "tools") (:authors ("Ryan Davis" . "ryand-ruby@zenspider.com")) (:maintainer "Ryan Davis" . "ryand-ruby@zenspider.com") (:url . "TBA"))]) (pacfiles-mode . [(20181028 1744) ((emacs (26)) (cl-lib (0 5))) "pacnew and pacsave merging tool" tar ((:commit . "ff58f387e0f85ca20c4c9f119bf13303bf8b5a76") (:keywords "files" "pacman" "arch" "pacnew" "pacsave" "update" "linux") (:authors ("Carlos G. Cordero <http://github/UndeadKernel>")) (:maintainer "Carlos G. Cordero" . "pacfiles@binarycharly.com") (:url . "https://github.com/UndeadKernel/pacfiles-mode"))]) (pabbrev . [(20160320 2101) nil "Predictive abbreviation expansion" single ((:commit . "56400d5d256b42ffe45c229ea9827f026b650cf5") (:authors ("Phillip Lord" . "phillip.lord@newcastle.ac.uk")) (:maintainer "Phillip Lord" . "phillip.lord@newcastle.ac.uk"))]) (p4 . [(20150721 1937) nil "Simple Perforce-Emacs Integration" single ((:commit . "eff047caa75dbe4965defca9d1212454cdb755d5") (:authors ("Gareth Rees" . "gdr@garethrees.org")) (:maintainer "Gareth Rees" . "gdr@garethrees.org") (:url . "https://github.com/gareth-rees/p4.el"))]) (ox-wk . [(20181111 934) ((emacs (24 4)) (org (8 3))) "Wiki Back-End for Org Export Engine" single ((:commit . "9fc37e7e2f789b0ba07cb117ea1e1dcd14a2fd83") (:keywords "org" "wp" "wiki") (:authors ("Vilibald Wanča" . "vilibald@wvi.cz")) (:maintainer "Vilibald Wanča" . "vilibald@wvi.cz") (:url . "https://github.com/w-vi/ox-wk.el"))]) (ox-twiki . [(20170803 2039) ((org (8)) (cl-lib (0 5))) "org Twiki and Foswiki export" single ((:commit . "99d0c25d56dbf75ce894a84e776ba4459208dbc2") (:keywords "org") (:authors ("Derek Feichtinger" . "derek.feichtinger@psi.ch")) (:maintainer "Derek Feichtinger" . "derek.feichtinger@psi.ch") (:url . "https://github.com/dfeich/org8-wikiexporters"))]) (ox-twbs . [(20161103 2016) nil "Bootstrap compatible HTML Back-End for Org" single ((:commit . "2414e6b1de7deb6dd2ae79a7be633fdccb9c2f28") (:keywords "org" "html" "publish" "twitter" "bootstrap") (:authors ("Carsten Dominik <carsten at orgmode dot org>") ("Jambunathan K <kjambunathan at gmail dot com>") ("Brandon van Beekum <marsmining at gmail dot com>")) (:maintainer "Carsten Dominik <carsten at orgmode dot org>") (:url . "https://github.com/marsmining/ox-twbs"))]) (ox-tufte . [(20160926 1607) ((org (8 2)) (emacs (24))) "Tufte HTML org-mode export backend" single ((:commit . "49d7ea78fde063b407ce6fa57739f90c83500682") (:keywords "org" "tufte" "html") (:authors ("M. Lee Hinman")) (:maintainer "M. Lee Hinman") (:url . "https://github.com/dakrone/ox-tufte"))]) (ox-trac . [(20171026 1823) ((org (9 0))) "Org Export Backend to Trac WikiFormat" single ((:commit . "03cc31efb1aa06991918f1071e250a9d58f96cfb") (:keywords "org-mode" "trac") (:authors ("Brian J. Carlson <hacker (at) abutilize (dot) com>")) (:maintainer "Brian J. Carlson <hacker (at) abutilize (dot) com>") (:url . "https://github.com/JalapenoGremlin/ox-trac"))]) (ox-tiddly . [(20180626 2052) ((org (8)) (cl-lib (0 5))) "org TiddlyWiki exporter" single ((:commit . "99d0c25d56dbf75ce894a84e776ba4459208dbc2") (:keywords "org") (:authors ("Derek Feichtinger" . "derek.feichtinger@psi.ch")) (:maintainer "Derek Feichtinger" . "derek.feichtinger@psi.ch") (:url . "https://github.com/dfeich/org8-wikiexporters"))]) (ox-textile . [(20180502 947) ((org (8 1))) "Textile Back-End for Org Export Engine" single ((:commit . "b179abaa6616604c6efe32cb509e62ad46e7374e") (:keywords "org" "textile") (:authors ("Yasushi SHOJI" . "yasushi.shoji@gmail.com")) (:maintainer "Yasushi SHOJI" . "yasushi.shoji@gmail.com") (:url . "https://github.com/yashi/org-textile"))]) (ox-slack . [(20181119 1131) ((org (9 1 4)) (ox-gfm (1 0))) "Slack Exporter for org-mode" single ((:commit . "96d90914e6df1a0141657fc51f1dc5bb8f1da6bd") (:keywords "org" "slack" "outlines") (:authors ("Matt Price")) (:maintainer "Matt Price") (:url . "https://github.com/titaniumbones/ox-slack"))]) (ox-rst . [(20180315 13) ((emacs (24 4)) (org (8 2 4))) "Export reStructuredText using org-mode." single ((:commit . "a74b60883b0d844c80efb364dac1560b85f2548f") (:keywords "org" "rst" "rest" "restructuredtext") (:authors ("Masanao Igarashi" . "syoux2@gmail.com")) (:maintainer "Masanao Igarashi" . "syoux2@gmail.com") (:url . "https://github.com/masayuko/ox-rst"))]) (ox-reveal . [(20161027 926) ((org (20150330))) "reveal.js Presentation Back-End for Org Export Engine" single ((:commit . "001567cc12d50ba07612edd1718b86a12e8c2547") (:keywords "outlines" "hypermedia" "slideshow" "presentation") (:authors ("Yujie Wen <yjwen.ty at gmail dot com>")) (:maintainer "Yujie Wen <yjwen.ty at gmail dot com>"))]) (ox-qmd . [(20170402 1657) ((org (8 0))) "Qiita Markdown Back-End for Org Export Engine" single ((:commit . "3a24c7a0b3ec80e494b977e14a3dfb94c9f1d8ec") (:keywords "org" "wp" "markdown" "qiita") (:authors ("0x60DF" . "0x60DF@gmail.com")) (:maintainer "0x60DF" . "0x60DF@gmail.com") (:url . "https://github.com/0x60df/ox-qmd"))]) (ox-pukiwiki . [(20150124 1716) ((org (8 1))) "Pukiwiki Back-End for Org Export Engine" single ((:commit . "bdbde2c294f5d3de11f08a3fe19f01175d2e011a") (:keywords "org" "pukiwiki") (:authors ("Yasushi SHOJI" . "yasushi.shoji@gmail.com")) (:maintainer "Yasushi SHOJI" . "yasushi.shoji@gmail.com") (:url . "https://github.com/yashi/org-pukiwiki"))]) (ox-pandoc . [(20180510 1338) ((org (8 2)) (emacs (24)) (dash (2 8)) (ht (2 0)) (cl-lib (0 5))) "org exporter for pandoc." single ((:commit . "aa37dc7e94213d4ebedb85c384c1ba35007da18e") (:keywords "tools") (:authors ("KAWABATA, Taichi" . "kawabata.taichi@gmail.com")) (:maintainer "KAWABATA, Taichi" . "kawabata.taichi@gmail.com") (:url . "https://github.com/kawabata/ox-pandoc"))]) (ox-nikola . [(20151114 1116) ((emacs (24 4)) (org (8 2 4)) (ox-rst (0 2))) "Export Nikola articles using org-mode." single ((:commit . "5bcbc1a38f6619f62294194f13ca0cd4ca14dd48") (:keywords "org" "nikola") (:authors ("IGARASHI Masanao" . "syoux2@gmail.com")) (:maintainer "IGARASHI Masanao" . "syoux2@gmail.com") (:url . "https://github.com/masayuko/ox-nikola"))]) (ox-minutes . [(20180202 1734) ((emacs (24 4))) "Plain text backend for Org for Meeting Minutes" single ((:commit . "27c29f3fdb9181322ae56f8bace8d95e621230e5") (:keywords "org" "exporter" "notes") (:authors ("Kaushal Modi" . "kaushal.modi@gmail.com")) (:maintainer "Kaushal Modi" . "kaushal.modi@gmail.com") (:url . "https://github.com/kaushalmodi/ox-minutes"))]) (ox-mediawiki . [(20180105 2154) ((cl-lib (0 5)) (s (1 9 0))) "Mediawiki Back-End for Org Export Engine" single ((:commit . "a9327150293e370e500ba55bddfe5fc435c6bf9b") (:keywords "org" "wp" "mediawiki") (:authors ("Tom Alexander" . "tomalexander@paphus.com")) (:maintainer "Tom Alexander" . "tomalexander@paphus.com") (:url . "https://github.com/tomalexander/orgmode-mediawiki"))]) (ox-mdx-deck . [(20181115 1847) ((emacs (24)) (ox-hugo (0 7))) "org-mode to mdx-deck exporter" single ((:commit . "2e46ac76f7ac279c371474cbbf39634bbe40f4c7") (:keywords "lisp" "org" "ox" "mdx" "deck") (:authors ("Joshua Wolfe")) (:maintainer "Joshua Wolfe") (:url . "https://github.com/WolfeCub/ox-mdx-deck/"))]) (ox-jira . [(20171001 916) ((org (8 3))) "JIRA Backend for Org Export Engine" single ((:commit . "db2ec528f46c9e611624ba28611c440a99bff255") (:keywords "outlines" "hypermedia" "wp") (:authors ("Stig Brautaset" . "stig@brautaset.org")) (:maintainer "Stig Brautaset" . "stig@brautaset.org") (:url . "https://github.com/stig/ox-jira.el"))]) (ox-jekyll-md . [(20180831 1732) nil "Export Jekyll on Markdown articles using org-mode." single ((:commit . "ff7b81733354c2b427293e531bb51647fa84fc88") (:keywords "org" "jekyll") (:authors ("Elsa Gonsiorowski" . "gonsie@me.com")) (:maintainer "Elsa Gonsiorowski" . "gonsie@me.com"))]) (ox-jekyll . [(20180813 1755) nil "Export Jekyll articles using org-mode." single ((:commit . "102c53b1333abbf15b7c5c3ee1dc27124d1c0d68") (:keywords "org" "jekyll") (:authors ("Elsa Gonsiorowski" . "gonsie@me.com")) (:maintainer "Elsa Gonsiorowski" . "gonsie@me.com"))]) (ox-ioslide . [(20161015 1338) ((emacs (24 1)) (org (8 0)) (cl-lib (0 5)) (f (0 17 2)) (makey (0 3))) "Export org-mode to Google I/O HTML5 slide." tar ((:commit . "6555680be5364c8ddd2bf446865cb1a82adb6b9e") (:keywords "html" "presentation") (:authors ("coldnew" . "coldnew.tw@gmail.com")) (:maintainer "coldnew" . "coldnew.tw@gmail.com") (:url . "http://github.com/coldnew/org-ioslide"))]) (ox-impress-js . [(20150412 1716) ((org (8))) "impress.js Back-End for Org Export Engine" tar ((:commit . "91c6d2af6af308ade352a03355c4fb551b238c6b") (:keywords "outlines" "hypermedia" "calendar" "wp") (:authors ("Takumi Kinjo <takumi dot kinjo at gmail dot org>")) (:maintainer "Takumi Kinjo <takumi dot kinjo at gmail dot org>") (:url . "https://github.com/kinjo/org-impress-js.el"))]) (ox-hugo . [(20181106 2350) ((emacs (24 4)) (org (9 0))) "Hugo Markdown Back-End for Org Export Engine" tar ((:commit . "7fb284ec4b7f47ff1286598220650c5b24b56b45") (:keywords "org" "markdown" "docs") (:url . "https://ox-hugo.scripter.co"))]) (ox-html5slide . [(20131228 606) ((org (8 0))) "Export org-mode to HTML5 slide." single ((:commit . "4703dfbd9d79161509def673d2c1e118d722a58f") (:keywords "html" "presentation") (:authors ("coldnew" . "coldnew.tw@gmail.com")) (:maintainer "coldnew" . "coldnew.tw@gmail.com") (:url . "http://github.com/coldnew/org-html5slide"))]) (ox-gfm . [(20170628 2102) nil "Github Flavored Markdown Back-End for Org Export Engine" single ((:commit . "99f93011b069e02b37c9660b8fcb45dab086a07f") (:keywords "org" "wp" "markdown" "github") (:authors ("Lars Tveito")) (:maintainer "Lars Tveito"))]) (ox-epub . [(20181101 1854) ((emacs (24 3)) (org (9))) "Export org mode projects to EPUB" single ((:commit . "a66eeb00daa01ad403ac1a1db953ddbf9054be07") (:keywords "hypermedia") (:authors ("Mark Meyer" . "mark@ofosos.org")) (:maintainer "Mark Meyer" . "mark@ofosos.org") (:url . "http://github.com/ofosos/org-epub"))]) (ox-clip . [(20180306 340) ((org (8 2)) (htmlize (0))) "Cross-platform formatted copying for org-mode" single ((:commit . "594c90953a91948505bb394350adf110e041f19a") (:keywords "org-mode") (:authors ("John Kitchin" . "jkitchin@andrew.cmu.edu")) (:maintainer "John Kitchin" . "jkitchin@andrew.cmu.edu") (:url . "https://github.com/jkitchin/ox-clip/ox-clip.el"))]) (ox-bibtex-chinese . [(20170723 309) ((emacs (24 4))) "Let ox-bibtex work well for Chinese users" tar ((:commit . "2ad2364399229144110db7ef6365ad0461d6a38c"))]) (ox-asciidoc . [(20171111 1154) ((org (8 1))) "AsciiDoc Back-End for Org Export Engine" single ((:commit . "e75d9565dd07dc59d11fa92d392ab47cecb3c902") (:keywords "org" "asciidoc") (:authors ("Yasushi SHOJI" . "yasushi.shoji@gmail.com")) (:maintainer "Yasushi SHOJI" . "yasushi.shoji@gmail.com") (:url . "https://github.com/yashi/org-asciidoc"))]) (owdriver . [(20170401 1312) ((smartrep (0 0 3)) (log4e (0 2 0)) (yaxception (0 2 0))) "Quickly perform various actions on other windows" single ((:commit . "d934f182bafe29aa16c173440eff3fef08b0ec10") (:keywords "convenience") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/owdriver"))]) (overseer . [(20180226 619) ((emacs (24)) (dash (2 10 0)) (pkg-info (0 4)) (f (0 18 1))) "Ert-runner Integration Into Emacs" single ((:commit . "02d49f582e80e36b4334c9187801c5ecfb027789") (:authors ("Samuel Tonini" . "tonini.samuel@gmail.com")) (:maintainer "Samuel Tonini" . "tonini.samuel@gmail.com") (:url . "http://www.github.com/tonini/overseer.el"))]) (overcast-theme . [(20180315 1943) ((emacs (24))) "A dark but vibrant color theme for Emacs" single ((:commit . "009257956522dedf07d9e136ee41ac0b1b0b3518") (:keywords "theme") (:authors ("Mohammed Ismail Ansari" . "team.terminal@gmail.com")) (:maintainer "Mohammed Ismail Ansari" . "team.terminal@gmail.com") (:url . "http://ismail.teamfluxion.com"))]) (ov . [(20150312 528) ((emacs (24 3))) "Overlay library for Emacs Lisp" single ((:commit . "fae7215b3dedba2a9ced145284332e4609bfdc38") (:keywords "overlay") (:authors ("Shingo Fukuyama - http://fukuyama.co")) (:maintainer "Shingo Fukuyama - http://fukuyama.co") (:url . "https://github.com/ShingoFukuyama/ov.el"))]) (outshine . [(20181024 1414) ((outorg (2 0)) (cl-lib (0 5))) "outline with outshine outshines outline" tar ((:commit . "345d85ab5467ec6015fc58fe268936da93be0a5c") (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/outshine"))]) (outrespace . [(20180711 1432) ((emacs (24 4))) "c++ namespace utility functions" single ((:commit . "7dafed7e1cabf4a0bb55e5c6465e83796e3fdabe") (:keywords "tools" "c++" "namespace") (:authors ("Dan Harms" . "danielrharms@gmail.com")) (:maintainer "Dan Harms" . "danielrharms@gmail.com") (:url . "https://github.com/articuluxe/outrespace.git"))]) (outorg . [(20170414 1915) ((emacs (24 4))) "Org-style comment editing" single ((:commit . "78b0695121fb974bc4e971eb4ef7f8afd6d89d64") (:maintainer "Adam Porter") (:url . "https://github.com/alphapapa/outorg"))]) (outlook . [(20180428 1430) ((emacs (24 4))) "send emails in MS Outlook style" tar ((:commit . "359683aff91b38bd1398a6ed4058a06f09a02d65") (:keywords "mail") (:authors ("Andrew Savonichev")) (:maintainer "Andrew Savonichev") (:url . "https://github.com/asavonic/outlook.el"))]) (outlined-elisp-mode . [(20131108 1127) nil "outline-minor-mode settings for emacs lisp" single ((:commit . "c16cb02b540448919ad148f2be6a41523ee5489c") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (outline-toc . [(20170730 1130) nil "Sidebar showing a \"table of contents\"." single ((:commit . "31f04bea19cfcfb01a94d1fd2b72391cb02b7463") (:keywords "convenience" "outlines") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/outline-toc.el"))]) (outline-minor-faces . [(20181111 906) ((emacs (25 1))) "Headings faces for outline-minor-mode" single ((:commit . "3dc548f145f26a1405910d69468728846d575f79") (:keywords "outlines") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/bicycle"))]) (outline-magic . [(20180619 1819) nil "outline mode extensions for Emacs" single ((:commit . "2a5f07417b696cf7541d435c43bafcc64817636b") (:keywords "outlines") (:authors ("Carsten Dominik" . "dominik@science.uva.nl")) (:maintainer "Thorsten Jolitz <tjolitz AT gmail DOT com>"))]) (other-emacs-eval . [(20180408 1348) ((emacs (25 1)) (async (1 9 2))) "Evaluate the Emacs Lisp expression in other Emacs" single ((:commit . "8ace5acafef65daabf0c6619eff60733d7f5d792") (:keywords "tools") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/other-emacs-eval"))]) (otama . [(20160404 1032) nil "Org-table Manipulator" single ((:commit . "c114fd8006762f891bc120a7c0ea213872e7ab31") (:keywords "database" "org-mode") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net"))]) (osx-trash . [(20160520 1300) ((emacs (24 1))) "System trash for OS X" tar ((:commit . "0f1dc052d0a750b8c75f14530a4897f5d4324b4e") (:keywords "files" "convenience" "tools" "unix") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/lunaryorn/osx-trash.el"))]) (osx-pseudo-daemon . [(20170722 607) nil "Daemon mode that plays nice with OSX." single ((:commit . "d235680a72677f11925b912428ad1a57b664e3e8") (:keywords "convenience" "osx") (:authors ("Ryan C. Thompson")) (:maintainer "Ryan C. Thompson") (:url . "https://github.com/DarwinAwardWinner/osx-pseudo-daemon"))]) (osx-org-clock-menubar . [(20150205 2111) nil "simple menubar integration for org-clock" tar ((:commit . "9964d2a97cc2fb6570dc4116da44f73bd8eb7cb3") (:keywords "org" "osx") (:authors ("Jordon Biondo" . "jordonbiondo@gmail.com")) (:maintainer "Jordon Biondo" . "jordonbiondo@gmail.com") (:url . "https://github.com/jordonbiondo/osx-org-clock-menubar"))]) (osx-location . [(20150613 917) nil "Watch and respond to changes in geographical location on OS X" tar ((:commit . "8bb3a94cc9f04b922d2d730fe08596cc6ee12bf2"))]) (osx-lib . [(20160920 0) ((emacs (24 4))) "Basic function for Apple/OSX." single ((:commit . "fdbbb41e07ba64d6a09b54bd142a7c7b83bfd09f") (:keywords "apple" "applescript" "osx" "finder" "emacs" "elisp" "vpn" "speech") (:authors ("Raghav Kumar Gautam" . "raghav@apache.org")) (:maintainer "Raghav Kumar Gautam" . "raghav@apache.org"))]) (osx-dictionary . [(20171026 734) ((cl-lib (0 5))) "Interface for OSX Dictionary.app" tar ((:commit . "b16630ecf69f87ac873486d8b9c8c03e6c9ea7fa") (:keywords "mac" "dictionary") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/osx-dictionary.el"))]) (osx-clipboard . [(20141012 717) nil "Use the OS X clipboard from terminal Emacs" single ((:commit . "e46dd31327a3f92f77b013b4c9b1e5fdd0e5c73d") (:authors ("Jon Oddie <jonxfield at gmail.com>")) (:maintainer "Jon Oddie <jonxfield at gmail.com>") (:url . "https://github.com/joddie/osx-clipboard-mode"))]) (osx-browse . [(20140508 2041) ((string-utils (0 3 2)) (browse-url-dwim (0 6 6))) "Web browsing helpers for OS X" single ((:commit . "44ded7cc3a7ee426c1c3257fae534c121f7e752e") (:keywords "hypermedia" "external") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/osx-browse"))]) (origami . [(20180101 1553) ((s (1 9 0)) (dash (2 5 0)) (emacs (24)) (cl-lib (0 5))) "Flexible text folding" tar ((:commit . "1f38085c8f9af7842765ed63f7d6dfe4dab59366") (:keywords "folding") (:authors ("Greg Sexton" . "gregsexton@gmail.com")) (:maintainer "Greg Sexton" . "gregsexton@gmail.com") (:url . "https://github.com/gregsexton/origami.el"))]) (orgtbl-show-header . [(20141023 837) nil "Show the header of the current column in the minibuffer" single ((:commit . "112d54a44682f065318ed0c9c89a8f5b8907342a") (:authors ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainer "Damien Cassou" . "damien.cassou@gmail.com"))]) (orgtbl-join . [(20150121 2246) ((cl-lib (0 5))) "join columns from another table" tar ((:commit . "ccf5e0d96e053dc289da39a048715fcf36835ff2") (:keywords "org" "table" "join" "filtering") (:authors ("Thierry Banel tbanelwebmin at free dot fr")) (:maintainer "Thierry Banel tbanelwebmin at free dot fr"))]) (orgtbl-ascii-plot . [(20151215 2151) nil "ascii-art bar plots in org-mode tables" single ((:commit . "cd91f6ae26a7402e192a1f4fd6248f5797edf19e") (:keywords "org" "table" "ascii" "plot") (:authors ("Thierry Banel tbanelwebmin at free dot fr") ("Michael Brand")) (:maintainer "Thierry Banel tbanelwebmin at free dot fr"))]) (orgtbl-aggregate . [(20180731 2154) nil "Create an aggregated Org table from another one" tar ((:commit . "7e87e0fb0784be9370462614ec0ffc9d9ae6ef1c") (:keywords "org" "table" "aggregation" "filtering"))]) (orgnav . [(20170608 1713) ((helm (2 7 0)) (s (1 11 0)) (dash (1 11 0)) (emacs (24))) "Org tree navigation using helm" tar ((:commit . "9e2cac9c1a67af5f0080e60022e821bf7b70312d") (:keywords "convenience" "outlines") (:authors ("Facet Framer" . "facet@facetframer.com")) (:maintainer "Facet Framer" . "facet@facetframer.com") (:url . "http://github.com/facetframer/orgnav"))]) (orglue . [(20171220 1226) ((org (8 1)) (epic (0 2))) "more functionality to org-mode." tar ((:commit . "ae2a45c19b52e45db7891093a3ff17ba2e51c507") (:keywords "org") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net"))]) (orglink . [(20180318 2023) ((emacs (24 3)) (dash (2 12 1)) (org (8 3))) "use Org Mode links in other modes" single ((:commit . "e9e90e16ddaceaf99c9b251a215d6338b9762b4d") (:keywords "hypertext") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/orglink"))]) (orgit . [(20180318 2001) ((emacs (24 4)) (dash (2 13 0)) (magit (2 10 0)) (org (8 3 3))) "support for Org links to Magit buffers" single ((:commit . "d909f92d3b1b42184143fd5e6d4c6a2762477ab7") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/orgit"))]) (orgbox . [(20180827 218) ((org (8 0)) (cl-lib (0 5))) "Mailbox-like task scheduling Org." single ((:commit . "609e5e37348815ec3ba53ab6d643e38b0cc4fe17") (:keywords "org") (:authors ("Yasuhito Takamiya" . "yasuhito@gmail.com")) (:maintainer "Yasuhito Takamiya" . "yasuhito@gmail.com") (:url . "https://github.com/yasuhito/orgbox"))]) (organize-imports-java . [(20180623 1909) ((emacs (26)) (f (0 20 0)) (s (1 12 0)) (cl-lib (0 6))) "Mimic Eclipse's Organize Imports functionality." single ((:commit . "98dca0c9e046e03a3f14946c3f7af05debdf8197") (:authors ("Shen, Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Shen, Jen-Chieh" . "jcs090218@gmail.com") (:url . "https://github.com/jcs090218/organize-imports-java"))]) (organic-green-theme . [(20180522 1620) nil "Low-contrast green color theme." single ((:commit . "200ac4a636eeb6faf1793d1937e62a343debc437"))]) (org2web . [(20171005 2317) ((cl-lib (1 0)) (ht (1 5)) (mustache (0 22)) (htmlize (1 47)) (org (8 0)) (dash (2 0 0)) (el2org (0 10)) (simple-httpd (0 1))) "A static site generator based on org mode." tar ((:commit . "5243b399927a4c474bb3b8d1c8a00799df1f27d7"))]) (org2jekyll . [(20170225 915) ((dash-functional (2 11 0)) (s (1 9 0)) (deferred (0 3 1)) (kv (0 0 19))) "Minor mode to publish org-mode post to jekyll without specific yaml" tar ((:commit . "52a19a5d372116262b9d613f4ec8490a3b49e329") (:keywords "org-mode" "jekyll" "blog" "publish") (:authors ("Antoine R. Dumont <eniotna.t AT gmail.com>")) (:maintainer "Antoine R. Dumont <eniotna.t AT gmail.com>") (:url . "https://github.com/ardumont/org2jekyll"))]) (org2issue . [(20160427 118) ((org (8 0)) (emacs (24 4)) (ox-gfm (0 1)) (gh (0 1)) (s (20160405 920))) "export org to github issue" single ((:commit . "0f7f13463e389f2d8d7d830a928042d0cf1c71eb") (:keywords "convenience" "github" "org") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/org2issue"))]) (org2elcomment . [(20170324 945) ((org (8 3 4))) "Convert Org file to Elisp comments" single ((:commit . "c88a75d9587c484ead18f7adf08592b09c1cceb0") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (org2ctex . [(20181012 151) ((emacs (24 4))) "Export org to ctex (a latex macro for Chinese)" single ((:commit . "2143992462594ce63733305f75f7c7d08123710a") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/org2ctex"))]) (org2blog . [(20171219 311) ((org (8 3)) (xml-rpc (1 6 12)) (metaweblog (1 0 1)) (htmlize (1 51))) "Blog from Org mode to wordpress" tar ((:commit . "aa7a5730f4a58a53c41370dcde7bec43d5c1a2cd"))]) (org-wunderlist . [(20150818 213) ((request-deferred (0 2 0)) (alert (1 1)) (emacs (24)) (cl-lib (0 5)) (org (8 2 4)) (s (1 9 0))) "Org sync with Wunderlist" single ((:commit . "f7f1ca73661356b9fa072efd73431592ff1182e1") (:keywords "convenience") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/org-wunderlist.el"))]) (org-wild-notifier . [(20180222 425) ((alert (1 2)) (dash (2 13 0)) (emacs (24 4))) "Customizable org-agenda notifications" single ((:commit . "d0df145d9bbb72b2c315b7d8007cb6a59fea2095") (:keywords "notification" "alert" "org" "org-agenda" "agenda") (:authors ("Artem Khramov" . "futu.fata@gmail.com")) (:maintainer "Artem Khramov" . "futu.fata@gmail.com") (:url . "https://github.com/akhramov/org-wild-notifier.el"))]) (org-web-tools . [(20181120 501) ((emacs (25 1)) (org (9 0)) (dash (2 12)) (esxml (0 3 4)) (s (1 10 0)) (request (0 3 0))) "Display and capture web content with Org-mode" tar ((:commit . "38097ce6bbc73f7eef360e367c0b06b6ac3a9a0f") (:keywords "hypermedia" "outlines" "org" "web") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/org-web-tools"))]) (org-wc . [(20180610 253) nil "Count words in org mode trees." single ((:commit . "0716c1e8276f6953e139e357e97566e792c8be19") (:authors ("Simon Guest")) (:maintainer "Simon Guest"))]) (org-vcard . [(20170929 1110) nil "org-mode support for vCard export and import." tar ((:commit . "dbe266b79df4fb31f1766010322bf4e383ce1c03") (:keywords "outlines" "org" "vcard") (:authors ("Alexis" . "flexibeast@gmail.com")) (:maintainer "Alexis" . "flexibeast@gmail.com") (:url . "https://github.com/flexibeast/org-vcard"))]) (org-variable-pitch . [(20180429 2215) ((emacs (25))) "Minor mode for variable pitch text in org mode." single ((:commit . "05f2655321f020fd4c069d1939f0902eaa837eb4") (:keywords "faces") (:authors ("Göktuğ Kayaalp" . "self@gkayaalp.com")) (:maintainer "Göktuğ Kayaalp" . "self@gkayaalp.com") (:url . "https://cadadr.github.io/elisp/index.html#ovp"))]) (org-trello . [(20180331 631) ((request-deferred (0 2 0)) (deferred (0 4 0)) (s (1 11 0)) (dash-functional (2 12 1)) (dash (2 12 1))) "Minor mode to synchronize org-mode buffer and trello board" tar ((:commit . "e2e8a3d45057645e4caae7d46a79d2d9be2894bd"))]) (org-tree-slide . [(20180906 949) nil "A presentation tool for org-mode" single ((:commit . "d45152fad1c0a153251073806f1b65ebd3731411") (:keywords "org-mode" "presentation" "narrowing") (:authors ("Takaaki ISHIKAWA <takaxp at ieee dot org>")) (:maintainer "Takaaki ISHIKAWA <takaxp at ieee dot org>"))]) (org-transform-tree-table . [(20150110 1433) ((dash (2 10 0)) (s (1 3 0))) "Transform org-mode tree with properties to a table, and the other way around" single ((:commit . "0a9bf07f01bc5fc3b349aff64e83999a8de83b52") (:keywords "org-mode" "table" "org-table" "tree" "csv" "convert") (:authors (nil . "Johan Lindstrom <buzzwordninja not_this_bit@googlemail.com>")) (:maintainer nil . "Johan Lindstrom <buzzwordninja not_this_bit@googlemail.com>") (:url . "https://github.com/jplindstrom/emacs-org-transform-tree-table"))]) (org-tracktable . [(20161118 1329) ((emacs (24)) (cl-lib (0 5))) "Track your writing progress in an org-table" single ((:commit . "8e0e60a582a034bd66d5efb72d513140b7d4d90a") (:keywords "org" "writing") (:authors ("tty-tourist" . "andreasrasholm@protonmail.com")) (:maintainer "tty-tourist" . "andreasrasholm@protonmail.com") (:url . "https://github.com/tty-tourist/org-tracktable"))]) (org-toodledo . [(20150301 1113) ((request-deferred (0 2 0)) (emacs (24)) (cl-lib (0 5))) "Toodledo integration for Emacs Org mode" tar ((:commit . "2c91a92bd07ae4a546771b018a6faa0e06399968") (:keywords "outlines" "data") (:authors ("Christopher J. White" . "emacs@grierwhite.com")) (:maintainer "Christopher J. White" . "emacs@grierwhite.com"))]) (org-timeline . [(20180812 1119) ((dash (2 13 0)) (emacs (24 3))) "Add graphical view of agenda to agenda buffer." single ((:commit . "701f13246ad1ce286be69cc16c1126536b71e7ca") (:keywords "calendar") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/org-timeline/"))]) (org-time-budgets . [(20151111 801) ((alert (0 5 10)) (cl-lib (0 5))) "Define time budgets and display clocked time." single ((:commit . "baa1ce6333157fed3b3799a80e6cf8c73c9e2c18") (:authors ("Arthur Leonard Andersen" . "leoc.git@gmail.com")) (:maintainer "Arthur Leonard Andersen" . "leoc.git@gmail.com"))]) (org-themis . [(20160122 404) ((cl-lib (0 4))) "Experimental project management mode for org-mode" single ((:commit . "78aadbbe22b1993be5c4accd0d3f91a4e85c9a3c") (:keywords "org-mode" "elisp" "project") (:maintainer "Zachary Elliott" . "contact@zell.io") (:url . "http://github.com/zellio/org-themis"))]) (org-tfl . [(20170923 1218) ((org (0 16 2)) (cl-lib (0 5)) (emacs (24 1))) "Transport for London meets Orgmode" tar ((:commit . "f0d7d39106a1de5457f5160cddd98ab892b61066") (:keywords "org" "tfl") (:authors ("storax (David Zuber), <zuber [dot] david [at] gmx [dot] de>")) (:maintainer "storax (David Zuber), <zuber [dot] david [at] gmx [dot] de>") (:url . "https://github.com/storax/org-tfl"))]) (org-table-sticky-header . [(20170409 114) ((org (8 2 10)) (emacs (24 4))) "Sticky header for org-mode tables" single ((:commit . "93dc69efc00ac9fd3cc2ece5100f51df33ec7d8b") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (org-table-comment . [(20120209 1851) nil "Org table comment modes." single ((:commit . "33b9966c33ecbc3e27cca67c2f2cdea04364d74e") (:keywords "org-mode" "orgtbl") (:authors ("Matthew L. Fidler <matthew dot fidler at gmail . com>")) (:maintainer "Matthew L. Fidler") (:url . "http://github.com/mlf176f2/org-table-comment.el"))]) (org-sync-snippets . [(20170824 1828) ((org (8 3 5)) (emacs (24 3)) (f (0 17 3))) "Export snippets to org-mode and vice versa" single ((:commit . "0f264a032d371d7dbb4a7cbaf0ea2f91b5a629ca") (:keywords "snippet" "org-mode" "yasnippet" "tools") (:authors ("Adrien Brochard")) (:maintainer "Adrien Brochard") (:url . "https://github.com/abrochard/org-sync-snippets"))]) (org-sync . [(20180221 1927) ((cl-lib (0 5)) (org (8 2)) (emacs (24))) "Synchronize Org documents with External Issue Trackers" tar ((:commit . "095335063b306871970f981898a220f62ad0ae4e") (:keywords "org" "synchronization" "issue tracking" "github" "redmine") (:authors ("Aurelien Aptel <aurelien dot aptel at gmail dot com>")) (:maintainer "Andrei Beliankou" . "arbox@yandex.ru") (:url . "https://github.com/arbox/org-sync"))]) (org-super-agenda . [(20181121 335) ((emacs (25 1)) (s (1 10 0)) (dash (2 13)) (org (9 0)) (ht (2 2))) "Supercharge your agenda" tar ((:commit . "4af03c98028008cdd5c2f50c28c0ab68990ac70d") (:keywords "hypermedia" "outlines" "org" "agenda") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/org-super-agenda"))]) (org-sticky-header . [(20170423 435) ((emacs (24 4)) (org (8 3 5))) "Show off-screen Org heading at top of window" single ((:commit . "aae8dbc7f3b33c4dd35dc38d83791d7c23757060") (:keywords "hypermedia" "outlines" "org") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/org-sticky-header"))]) (org-static-blog . [(20180528 648) ((emacs (24 3))) "a simple org-mode based static blog generator" single ((:commit . "f69d2fd6671fb250fbd87df5efa898a7bf5b9bda") (:authors ("Bastian Bechtold")) (:maintainer "Bastian Bechtold") (:url . "https://github.com/bastibe/org-static-blog"))]) (org-starter . [(20180917 1205) ((emacs (25 1)) (dash (2 12)) (dash-functional (1 2 0))) "A basic configuration framework for org mode" single ((:commit . "a1274f901366a39c2eeeaa36644c0bdd9837374b") (:authors ("Akira Komamura" . "akira.komamura@gmail.com")) (:maintainer "Akira Komamura" . "akira.komamura@gmail.com") (:url . "https://github.com/akirak/org-starter"))]) (org-send-ebook . [(20181016 800) ((emacs (25)) (cl-lib (0 5)) (seq (2 20))) "Send org link file to ebook reader." single ((:commit . "b4913a709f9206115c3e3ea73e217029cc0fb3de") (:keywords "org" "link" "ebook" "kindle" "epub" "mobi") (:url . "https://github.com/stardiviner/org-send-ebook"))]) (org-seek . [(20161217 502) ((emacs (24 3)) (ag (0 48))) "Searching Org-mode files with search tools." single ((:commit . "1f51e6634e3b9a6a29d335d0d14370a6ffef2265") (:keywords "org" "search" "ag" "pt") (:authors ("stardiviner" . "numbchild@gmail.com")) (:maintainer "stardiviner" . "numbchild@gmail.com") (:url . "https://github.com/stardiviner/org-seek.el"))]) (org-rtm . [(20160214 1236) ((rtm (0 1))) "Simple import/export from rememberthemilk to org-mode" single ((:commit . "adc42ad1fbe92ab447ccc9553780f4456f2508d2") (:keywords "outlines" "data") (:authors ("Philipp Middendorf" . "pmidden@secure.mailbox.org")) (:maintainer "Philipp Middendorf" . "pmidden@secure.mailbox.org") (:url . "https://github.com/pmiddend/org-rtm"))]) (org-rich-yank . [(20181120 1354) ((emacs (24 4))) "paste with org-mode markup and link to source" single ((:commit . "d2f350c5296cf05d6c84b02762ba44f09a02b4e3") (:keywords "convenience" "hypermedia" "org") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org") (:url . "https://github.com/unhammer/org-rich-yank"))]) (org-review . [(20160907 537) nil "schedule reviews for Org entries" single ((:commit . "058e75b7f28d2ad2390290fe17a63d98ef5ab763") (:keywords "org" "review") (:authors ("Alan Schmitt" . "alan.schmitt@polytechnique.org")) (:maintainer "Alan Schmitt" . "alan.schmitt@polytechnique.org") (:url . "https://github.com/brabalan/org-review"))]) (org-repo-todo . [(20171228 119) nil "Simple repository todo management with org-mode" single ((:commit . "f73ebd91399c5760ad52c6ad9033de1066042003") (:keywords "convenience") (:authors ("justin talbott" . "justin@waymondo.com")) (:maintainer "justin talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/org-repo-todo"))]) (org-ref . [(20181115 51) ((dash (2 11 0)) (htmlize (1 51)) (helm (1 5 5)) (helm-bibtex (2 0 0)) (ivy (0 8 0)) (hydra (0 13 2)) (key-chord (0)) (s (1 10 0)) (f (0 18 0)) (emacs (24 4)) (pdf-tools (0 7))) "citations, cross-references and bibliographies in org-mode" tar ((:commit . "1b5cf239d2abe203b9c64000c9010bbb6bf18fb4") (:keywords "org-mode" "cite" "ref" "label") (:authors ("John Kitchin" . "jkitchin@andrew.cmu.edu")) (:maintainer "John Kitchin" . "jkitchin@andrew.cmu.edu") (:url . "https://github.com/jkitchin/org-ref"))]) (org-redmine . [(20160711 1114) nil "Redmine tools using Emacs OrgMode" single ((:commit . "e77d013bc3784947c46a5c53f03cd7d3c68552fc") (:keywords "redmine" "org") (:authors ("Wataru MIYAGUNI" . "gonngo@gmail.com")) (:maintainer "Wataru MIYAGUNI" . "gonngo@gmail.com") (:url . "https://github.com/gongo/org-redmine"))]) (org-recent-headings . [(20170908 429) ((emacs (25 1)) (org (9 0 5)) (dash (2 13 0)) (frecency (0 1))) "Jump to recently used Org headings" single ((:commit . "a09c2670c400c7a4fbbf0ac05d2d9226aa10e8f4") (:keywords "hypermedia" "outlines" "org") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/org-recent-headings"))]) (org-readme . [(20151204 1217) ((http-post-simple (1 0)) (yaoddmuse (0 1 1)) (header2 (21 0)) (lib-requires (21 0)) (cl-lib (0 5))) "Integrates Readme.org and Commentary/Change-logs." tar ((:commit . "4cb9f768d282a2835b4510b6504ff9ede487007d") (:keywords "header2" "readme.org" "emacswiki" "git") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew L. Fidler") (:url . "https://github.com/mlf176f2/org-readme"))]) (org-randomnote . [(20171210 1357) ((f (0 19 0)) (dash (2 12 0))) "Find a random note in your Org-Mode files" single ((:commit . "c89eb4cf625ea7e7624b6a2d3d5676ce25ab03d7") (:authors ("Michael Fogleman" . "michaelwfogleman@gmail.com")) (:maintainer "Michael Fogleman" . "michaelwfogleman@gmail.com") (:url . "http://github.com/mwfogleman/org-randomnote"))]) (org-random-todo . [(20180312 804) ((emacs (24 3)) (alert (1 2))) "show a random TODO (with alert) every so often" single ((:commit . "8357350a66bbc4e0e5cb590acc104d39870cf736") (:keywords "org" "todo" "notification" "calendar") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org"))]) (org-radiobutton . [(20180612 1028) ((dash (2 13 0)) (emacs (24))) "Radiobutton for org-mode lists." single ((:commit . "4182aafbe5ae1bdfb0b07efa435bdba8bbd7199d") (:keywords "outlines") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/org-radiobutton"))]) (org-protocol-jekyll . [(20170328 1639) ((cl-lib (0 5))) "Jekyll's handler for org-protocol" single ((:commit . "dec064a42d6dfe81dfde7ba59ece5ca103ac6334") (:authors ("Vladimir S. Ivanov" . "ivvl82@gmail.com")) (:maintainer "Vladimir S. Ivanov" . "ivvl82@gmail.com"))]) (org-projectile-helm . [(20180601 1822) ((org-projectile (1 0 0)) (helm (2 3 1)) (emacs (25))) "helm functions for org-projectile" single ((:commit . "c798b1dff1d94304fa3621a905cbb572c7cb1d33") (:keywords "org" "projectile" "todo" "helm" "outlines") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/org-projectile"))]) (org-projectile . [(20180601 242) ((projectile (0 11 0)) (dash (2 10 0)) (emacs (24)) (s (1 9 0)) (org-category-capture (0 0 0))) "Repository todo management for org-mode" single ((:commit . "c798b1dff1d94304fa3621a905cbb572c7cb1d33") (:keywords "org-mode" "projectile" "todo" "tools" "outlines") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/org-projectile"))]) (org-preview-html . [(20180625 619) ((org (8 0)) (emacs (24 4))) "automatically use eww to preview the current org file on save" single ((:commit . "8ba7ecd7ac624f33b3e2395f477bbff4f1ec4efe") (:keywords "convenience" "eww" "org") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/org-preview-html"))]) (org-present-remote . [(20181001 2141) ((org-present (9)) (elnode (0 9)) (emacs (24))) "A web-based remote control for org-present" single ((:commit . "2defabacd04b1d3a76de81b07d7f7c89d67babca") (:keywords "comm" "docs") (:authors ("Duncan Bayne" . "duncan@bayne.id.au")) (:maintainer "Duncan Bayne" . "duncan@bayne.id.au") (:url . "https://gitlab.com/duncan-bayne/org-present-remote"))]) (org-present . [(20180303 2330) ((org (7))) "Minimalist presentation minor-mode for Emacs org-mode." single ((:commit . "d13acd70eff6a1608bc991920232146a0de76b21") (:authors ("Ric Lister")) (:maintainer "Ric Lister") (:url . "https://github.com/rlister/org-present"))]) (org-pomodoro . [(20171108 2114) ((alert (0 5 10)) (cl-lib (0 5))) "Pomodoro implementation for org-mode." tar ((:commit . "3deed1c26dcbda4d5231b9085ddf68e302b0f9dc") (:authors ("Arthur Leonard Andersen" . "leoc.git@gmail.com")) (:maintainer "Arthur Leonard Andersen" . "leoc.git@gmail.com") (:url . "https://github.com/lolownia/org-pomodoro"))]) (org-pdfview . [(20180225 1006) ((org (8 2 10)) (pdf-tools (0 80))) "Support for links to documents in pdfview mode" single ((:commit . "09ef4bf8ff8319c1ac78046c7e6b89f6a0beb82c") (:keywords "org" "pdf-view" "pdf-tools") (:authors ("Markus Hauck" . "markus1189@gmail.com")) (:maintainer "Markus Hauck" . "markus1189@gmail.com"))]) (org-password-manager . [(20180227 1810) ((org (8 2 10)) (s (1 9 0)) (dash (2 13 0))) "Password manager for Org Mode." single ((:commit . "4b30a36e71182553a02e4dd415369290d98ec03a") (:keywords "password") (:authors ("Leandro Facchinetti" . "me@leafac.com")) (:maintainer "Leandro Facchinetti" . "me@leafac.com") (:url . "https://git.leafac.com/org-password-manager"))]) (org-parser . [(20171003 436) ((emacs (25 1)) (dash (2 12 0)) (ht (2 1))) "parse org files into structured datatypes." single ((:keywords "files" "outlines" "tools") (:url . "https://bitbucket.org/zck/org-parser.el"))]) (org-page . [(20170807 224) ((ht (1 5)) (simple-httpd (1 4 6)) (mustache (0 22)) (htmlize (1 47)) (org (8 0)) (dash (2 0 0)) (cl-lib (0 5)) (git (0 1 1))) "a static site generator based on org mode" tar ((:commit . "50430ababf73a2d090881a952e9770badaf7478b"))]) (org-outlook . [(20160705 1338) nil "Outlook org" tar ((:commit . "ec32d8d9d8ffd17e6de4de0b52fc3f5ad9b4cc0d") (:keywords "org-outlook") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew L. Fidler") (:url . "https://github.com/mlf176f2/org-outlook.el"))]) (org-outline-numbering . [(20180705 1501) ((emacs (24)) (org (8 3)) (cl-lib (0 6)) (ov (1 0 6))) "Show outline numbering as overlays in org-mode" single ((:commit . "b95b6a7ed9289637cb512232470633b330ca9713") (:keywords "wp" "convenience") (:authors ("Anders Johansson")) (:maintainer "Anders Johansson") (:url . "https://gitlab.com/andersjohansson/org-outline-numbering"))]) (org-onenote . [(20171008 500) ((oauth2 (0 11)) (request (0 2 0)) (org (8 2 10))) "export org-mode document to onenote." single ((:commit . "5ce5cf4edb143180e0b185ac26826d39ae5bc929") (:keywords "tools" "docs" "org-mode" "onenote") (:authors ("Frei Zhang" . "ifree0@gmail.com")) (:maintainer "Frei Zhang" . "ifree0@gmail.com") (:url . "https://github.com/ifree/org-onenote"))]) (org-octopress . [(20170821 415) ((org (9 0)) (orglue (0 1)) (ctable (0 1 1))) "Compose octopress articles using org-mode." tar ((:commit . "38598ef98d04076a8eb78d549907ddfde8d3a652") (:keywords "org" "jekyll" "octopress" "blog") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net"))]) (org-noter . [(20181106 2341) ((emacs (24 4)) (cl-lib (0 6)) (org (9 0))) "A synchronized, Org-mode, document annotator" single ((:commit . "8e5d8eacffe251a4b6ab55f6cb36e0830f5fe8dc") (:keywords "lisp" "pdf" "interleave" "annotate" "external" "sync" "notes" "documents" "org-mode") (:authors (nil . "Gonçalo Santos (aka. weirdNox@GitHub)")) (:maintainer nil . "Gonçalo Santos (aka. weirdNox@GitHub)") (:url . "https://github.com/weirdNox/org-noter"))]) (org-notebook . [(20170322 452) ((emacs (24)) (org (8)) (cl-lib (0 5))) "Ease the use of org-mode as a notebook" single ((:commit . "86042d866bf441e2c9bb51f995e5994141b78517") (:keywords "convenience" "tools") (:authors ("Paul Elder" . "paul.elder@amanokami.net")) (:maintainer "Paul Elder" . "paul.elder@amanokami.net"))]) (org-multiple-keymap . [(20150329 106) ((org (8 2 4)) (emacs (24)) (cl-lib (0 5))) "Set keymap to elements, such as timestamp and priority." single ((:commit . "8ebc532df7f0dd6e6c3aa7c380a51d4166c668e8") (:keywords "convenience" "org-mode") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/org-multiple-keymap.el"))]) (org-msg . [(20181111 1815) ((emacs (24 4)) (htmlize (1 54))) "Org mode to send and reply to email in HTML." single ((:commit . "9c9ae7b37dc1404ff6d4de4b543ae01dd1562914") (:keywords "extensions" "mail") (:authors ("Jérémy Compostella" . "jeremy.compostella@gmail.com")) (:maintainer "Jérémy Compostella" . "jeremy.compostella@gmail.com") (:url . "https://github.com/jeremy-compostella/org-msg"))]) (org-mru-clock . [(20180419 1306) ((emacs (24 3))) "clock in/out of tasks with completion and persistent history" single ((:commit . "72e6cd0a6458ae0392f587026233f553278ab481") (:keywords "convenience" "calendar") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org"))]) (org-mobile-sync . [(20180606 524) ((emacs (24 3 50)) (org (8 0))) "automatically sync org-mobile on changes" single ((:commit . "06764b943a528827df1e2acc6bc7806cc2c1351f") (:keywords "org-mode" "org" "mobile" "sync" "todo") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://framagit.org/steckerhalter/org-mobile-sync"))]) (org-mind-map . [(20180826 2340) ((emacs (24)) (dash (1 8 0)) (org (8 2 10))) "Creates a directed graph from org-mode files" single ((:commit . "16a8aac5462c01c4e7b6b7915381fde42fd3caf6") (:keywords "orgmode" "extensions" "graphviz" "dot") (:authors ("Ted Wiles" . "theodore.wiles@gmail.com")) (:maintainer "Ted Wiles" . "theodore.wiles@gmail.com") (:url . "https://github.com/theodorewiles/org-mind-map"))]) (org-mime . [(20181023 2314) ((emacs (24 4)) (cl-lib (0 5))) "org html export for text/html MIME emails" single ((:commit . "1e792ef0616069b3ec74a4b7d96fced8c9c6eb8a") (:keywords "mime" "mail" "email" "html") (:authors ("Eric Schulte")) (:maintainer "Chen Bin (redguardtoo)") (:url . "http://github.com/org-mime/org-mime"))]) (org-make-toc . [(20181118 500) ((emacs (25 1)) (dash (2 12)) (s (1 10 0)) (org (9 0))) "Automatic tables of contents for Org files" single ((:commit . "a73ec43211a2ec41a8dadae2e82a516c8bf5856a") (:keywords "org" "convenience") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/org-make-toc"))]) (org-listcruncher . [(20180815 603) ((cl-lib (0 5)) (seq (2 3)) (emacs (24 4))) "Parse Org mode list contents into table" single ((:commit . "50bd8c22cde3b9b091889861e44a5043b53556f7") (:keywords "convenience") (:authors ("Derek Feichtinger" . "dfeich@gmail.com")) (:maintainer "Derek Feichtinger" . "dfeich@gmail.com") (:url . "https://github.com/dfeich/org-listcruncher"))]) (org-linkany . [(20160207 411) ((log4e (0 2 0)) (yaxception (0 1))) "Insert link using anything.el/helm.el on org-mode" single ((:commit . "8cfe2f1a46e6654a79f56505349d1396263cecb3") (:keywords "org" "completion") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/org-linkany"))]) (org-link-travis . [(20140405 2327) ((org (7))) "Insert/Export the link of Travis CI on org-mode" single ((:commit . "596615ad8373d9090bd4138da683524f0ad0bda5") (:keywords "org") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/org-link-travis"))]) (org-link-minor-mode . [(20170805 1852) ((org (8))) "Enable org-mode links in non-org modes" single ((:commit . "7b92df60f3fee7f609d649d80ef243b45771ebea") (:authors ("Sean O'Halpin <sean dot ohalpin at gmail dot com>")) (:maintainer "Sean O'Halpin <sean dot ohalpin at gmail dot com>") (:url . "https://github.com/seanohalpin/org-link-minor-mode"))]) (org-kanban . [(20180916 816) ((dash (2 13 0)) (emacs (24 4)) (org (9 1))) "kanban dynamic block for org-mode." single ((:commit . "8091bdd96d0bf405e4d88766cd31a31f2afe8a36") (:keywords "org-mode" "org" "kanban" "tools") (:authors ("Christian Köstlin" . "christian.koestlin@gmail.com")) (:maintainer "Christian Köstlin" . "christian.koestlin@gmail.com") (:url . "http://github.com/gizmomogwai/org-kanban"))]) (org-journal . [(20181115 714) ((emacs (25 1))) "a simple org-mode based journaling mode" single ((:commit . "3ae2e7d7e372dee08143282a9137bf4dfc946645") (:authors ("Bastian Bechtold")) (:maintainer "Bastian Bechtold") (:url . "http://github.com/bastibe/org-journal"))]) (org-jira . [(20181118 310) ((emacs (24 5)) (cl-lib (0 5)) (request (0 2 0)) (s (0 0 0)) (dash (2 14 1))) "Syncing between Jira and Org-mode." tar ((:commit . "45f3e8f19f511fae2012828a99b8e3254708531c") (:keywords "ahungry" "jira" "org" "bug" "tracker") (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/org-jira"))]) (org-iv . [(20171001 1022) ((impatient-mode (1 0 0)) (org (8 0)) (cl-lib (0 5))) "a tool used to view html (in browser) generated by org-file once the org-file changes" tar ((:commit . "7f2bb1b32647655fd9d6684f6f09dcc66b61b0cd"))]) (org-index . [(20181019 1258) ((emacs (24 4))) "A personal adaptive index for org" single ((:commit . "905e3dba6bdc009aa3fe7df0391f5f46afc0f68d") (:authors ("Marc Ihm" . "org-index@2484.de")) (:maintainer "Marc Ihm" . "org-index@2484.de") (:url . "https://github.com/marcIhm/org-index"))]) (org-if . [(20150920 1513) nil "Interactive Fiction Authoring System for Org-Mode." tar ((:commit . "fab602cc1bbee7a4e99c0083e129219d3f9ed2e8"))]) (org-grep . [(20151202 1229) ((cl-lib (0 5))) "Kind of M-x rgrep adapted for Org mode." single ((:commit . "5bdd04c0f53b8a3d656f36ea17bba3df7f0cb684") (:authors ("François Pinard" . "pinard@iro.umontreal.ca")) (:maintainer "François Pinard" . "pinard@iro.umontreal.ca") (:url . "https://github.com/pinard/org-grep"))]) (org-gnome . [(20150614 1457) ((alert (1 2)) (telepathy (0 1)) (gnome-calendar (0 1))) "Orgmode integration with the GNOME desktop" single ((:commit . "122e14cf6f8104150a65246a9a7c10e1d7939862") (:keywords "org" "gnome") (:authors ("Nicolas Petton" . "petton.nicolas@gmail.com")) (:maintainer "Nicolas Petton" . "petton.nicolas@gmail.com"))]) (org-gcal . [(20181004 748) ((request-deferred (0 2 0)) (alert (1 1)) (emacs (24)) (cl-lib (0 5)) (org (8 2 4))) "Org sync with Google Calendar" single ((:commit . "d1c2549e7e220880848bef5a8fcc06cbb82dbd9f") (:keywords "convenience") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "Raimon Grau" . "raimonster@gmail.com") (:url . "https://github.com/kidd/org-gcal.el"))]) (org-fancy-priorities . [(20180328 2331) nil "Display org priorities as custom strings" single ((:commit . "819bb993b71e7253cefef7047306ab4e0f9d0a86") (:keywords "convenience" "faces" "outlines") (:authors ("Harry Bournis" . "harrybournis@gmail.com")) (:maintainer "Harry Bournis" . "harrybournis@gmail.com") (:url . "https://github.com/harrybournis/org-fancy-priorities"))]) (org-evil . [(20180620 1517) ((dash (2 13 0)) (evil (0)) (monitor (0)) (org (0))) "Evil extensions for Org." tar ((:commit . "3b4620edc606412ef75c0b5aa637af22486eb126") (:keywords "convenience" "evil" "org") (:authors ("Ben Moon" . "software@guiltydolphin.com")) (:maintainer "Ben Moon" . "software@guiltydolphin.com") (:url . "https://github.com/guiltydolphin/org-evil"))]) (org-emms . [(20181010 1114) ((emacs (24))) "Play multimedia files from org-mode" single ((:commit . "07a8917f3d628c32e5de1dbd118ac08203772533") (:keywords "multimedia") (:authors ("Jonathan Gregory <jgrg at autistici dot org>")) (:maintainer "Jonathan Gregory <jgrg at autistici dot org>") (:url . "https://gitlab.com/jagrg/org-emms"))]) (org-elisp-help . [(20161122 55) ((cl-lib (0 5)) (org (9 0))) "org links to emacs-lisp documentation" single ((:commit . "3e33ab1a2933dd7f2782ef91d667a37f12d633ab") (:keywords "org" "remember" "lisp") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/org-elisp-help"))]) (org-ehtml . [(20150506 2358) ((web-server (20140109 2200)) (emacs (24 3))) "Export Org-mode files as editable web pages" tar ((:commit . "9df85de1a0fe1e7b2d6c000777c1a0c0217f92d0"))]) (org-edit-latex . [(20170908 1522) ((emacs (24 4)) (auctex (11 90))) "Edit embedded LaTeX in a dedicated buffer" single ((:commit . "1f228310ef2f3f2959a527f6d99e42ce977384c8") (:keywords "org" "latex") (:authors ("James Wong" . "jianwang.academic@gmail.com")) (:maintainer "James Wong" . "jianwang.academic@gmail.com") (:url . "https://github.com/et2010/org-edit-latex"))]) (org-easy-img-insert . [(20160915 2008) ((emacs (24 4))) "An easier way to add images from the web in org mode" single ((:commit . "9f8aaa7f68ff1f0d8d7b1e9b618abb15002f971e") (:keywords "convenience" "hypermedia" "files") (:authors ("Tashrif Sanil" . "tashrifsanil@kloke-source.com")) (:maintainer "Tashrif Sanil" . "tashrifsanil@kloke-source.com") (:url . "https://github.com/tashrifsanil/org-easy-img-insert"))]) (org-dropbox . [(20150114 509) ((dash (2 2)) (names (20150000)) (emacs (24))) "move Dropbox notes from phone into org-mode datetree" single ((:commit . "75dab6d6f0438a7a8a18ccf3a5d55f50bf531f6e") (:keywords "dropbox" "android" "notes" "org-mode") (:authors ("Heikki Lehvaslaiho" . "heikki.lehvaslaiho@gmail.com")) (:maintainer "Heikki Lehvaslaiho" . "heikki.lehvaslaiho@gmail.com") (:url . "https://github.com/heikkil/org-dropbox"))]) (org-drill-table . [(20180115 1009) ((s (1 7 0)) (dash (2 2 0)) (cl-lib (0 3)) (org (8 2)) (emacs (24 1))) "Generate drill cards from org tables" single ((:commit . "2729aaa42c1e2720d9bf7bcc125e92dcf48b7f7d") (:authors ("Chris Barrett" . "chris.d.barrett@me.com")) (:maintainer "Chris Barrett" . "chris.d.barrett@me.com"))]) (org-dp . [(20180311 923) ((cl-lib (0 5))) "Declarative Local Programming with Org Elements" tar ((:commit . "e720f1c155a795a5b65a04790ad195c413449716") (:authors ("Thorsten Jolitz <tjolitz AT gmail DOT com>")) (:maintainer "Thorsten Jolitz <tjolitz AT gmail DOT com>") (:url . "https://github.com/tj64/org-dp"))]) (org-download . [(20180925 1528) ((async (1 2))) "Image drag-and-drop for Emacs org-mode" single ((:commit . "07b98eb4f7252e3f64a306c09dfb618be6ac181d") (:keywords "images" "screenshots" "download") (:authors ("Oleh Krehel")) (:maintainer "Oleh Krehel") (:url . "https://github.com/abo-abo/org-download"))]) (org-dotemacs . [(20180802 28) ((org (7 9 3)) (cl-lib (0 5))) "Store your emacs config as an org file, and choose which bits to load." single ((:commit . "49072168158b6cd45796e92e940c9ac71e181722") (:keywords "local") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/org-dotemacs"))]) (org-doing . [(20161017 1620) nil "Keep track of what you're doing" tar ((:commit . "07ddbfc238cba31e4990c9b52e9a2757b39111da") (:keywords "tools" "org") (:authors ("Rudolf Olah")) (:maintainer "Rudolf Olah") (:url . "https://github.com/omouse/org-doing"))]) (org-dashboard . [(20171223 1924) ((cl-lib (0 5))) "Visually summarize progress in org files" single ((:commit . "02c0699771d199075a286e4502340ca6e7c9e831") (:keywords "outlines" "calendar") (:authors ("Massimiliano Mirra" . "hyperstruct@gmail.com")) (:maintainer "Massimiliano Mirra" . "hyperstruct@gmail.com") (:url . "http://github.com/bard/org-dashboard"))]) (org-cua-dwim . [(20120203 534) nil "Org-mode and Cua mode compatibility layer" single ((:commit . "a55d6c7009fc0b22f1110c07de629acc955c85e4") (:keywords "org-mode" "cua-mode") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew L. Fidler"))]) (org-context . [(20170107 1337) nil "Contextual capture and agenda commands for Org-mode" single ((:commit . "a3b4a4ce6d15e3c2d45eb5dcb78bea81913f3e21") (:keywords "org" "capture" "agenda" "convenience") (:authors ("Sylvain Rousseau <thisirs at gmail dot com>")) (:maintainer "Sylvain Rousseau <thisirs at gmail dot com>") (:url . "https://github.com/thisirs/org-context"))]) (org-commentary . [(20160802 637) ((dash (2 0)) (emacs (24 4)) (org (8 0))) "generate or update conventional library headers using Org mode files" tar ((:commit . "821ccb994811359c42f4e3d459e0e88849d42b75") (:keywords "convenience" "docs" "tools") (:authors ("Sergei Maximov" . "s.b.maximov@gmail.com")) (:maintainer "Sergei Maximov" . "s.b.maximov@gmail.com") (:url . "https://github.com/smaximov/org-commentary"))]) (org-clock-today . [(20161014 920) ((emacs (25))) "Show the total clocked time of the current day in the mode line" single ((:commit . "02b8fd541a01040405a9a1400c46dcb68b7c2a3a") (:authors ("Tijs Mallaerts" . "tijs.mallaerts@gmail.com")) (:maintainer "Tijs Mallaerts" . "tijs.mallaerts@gmail.com"))]) (org-clock-split . [(20180909 2047) ((emacs (24))) "Split clock entries" single ((:commit . "b2f1497b62e7f4a767be02e249e4ac95d4f8f21c") (:keywords "calendar") (:authors ("Justin Taft <https://github.com/justintaft>")) (:maintainer "Justin Taft <https://github.com/justintaft>") (:url . "https://github.com/justintaft/emacs-org-clock-split"))]) (org-clock-csv . [(20180314 257) ((org (8 3)) (s (1 0))) "Export `org-mode' clock entries to CSV format." single ((:commit . "5f96532e7a2c4a56a414a9e34f7a76b2f29d5d03") (:keywords "calendar" "data" "org") (:authors ("Aaron Jacobs" . "atheriel@gmail.com")) (:maintainer "Aaron Jacobs" . "atheriel@gmail.com") (:url . "https://github.com/atheriel/org-clock-csv"))]) (org-clock-convenience . [(20160830 1856) ((cl-lib (0 5)) (org (8)) (emacs (24 3))) "convenience functions for org time tracking" single ((:commit . "2d3fab0991ef7fa8d94c46a63a66abd289c79d9e") (:keywords "org") (:authors ("Derek Feichtinger <dfeich.gmail.com>")) (:maintainer "Derek Feichtinger <dfeich.gmail.com>") (:url . "https://github.com/dfeich/org-clock-convenience"))]) (org-cliplink . [(20181022 1239) ((emacs (24 4))) "insert org-mode links from the clipboard" tar ((:commit . "7ab98f2b17a627e907b50c27737ec1a8ae8b0f3d") (:authors ("Alexey Kutepov" . "reximkut@gmail.com")) (:maintainer "Alexey Kutepov" . "reximkut@gmail.com") (:url . "http://github.com/rexim/org-cliplink"))]) (org-chef . [(20181105 2035) ((org (0)) (emacs (24))) "Cookbook and recipe management with org-mode." tar ((:commit . "a35ad92970bdf6e251756cfecf5455997b8f8599") (:keywords "convenience" "abbrev" "outlines" "org" "food" "recipes" "cooking") (:authors ("Calvin Beck" . "hobbes@ualberta.ca")) (:maintainer "Calvin Beck" . "hobbes@ualberta.ca") (:url . "https://github.com/Chobbes/org-chef"))]) (org-category-capture . [(20180601 242) ((org (9 0 0)) (emacs (24))) "Contextualy capture of org-mode TODOs." single ((:commit . "c798b1dff1d94304fa3621a905cbb572c7cb1d33") (:keywords "org-mode" "todo" "tools" "outlines") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/org-projectile"))]) (org-capture-pop-frame . [(20160518 1008) ((emacs (24 4))) "Run org-capture in a new pop frame" single ((:commit . "b16fd712de62cf0d1f9befd03be6ab5983cb3301") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/org-capture-pop-frame.git"))]) (org-caldav . [(20180403 2036) ((org (7))) "Sync org files with external calendar through CalDAV" single ((:commit . "8d3492c27a09f437d2d94f2736c56d7652e87aa0") (:keywords "calendar" "caldav") (:authors ("David Engster" . "deng@randomsample.de")) (:maintainer "David Engster" . "deng@randomsample.de"))]) (org-bullets . [(20180208 2343) nil "Show bullets in org-mode as UTF-8 characters" single ((:commit . "b56f2e3812626f2c4ac1686073d102c71f4a8513") (:authors ("sabof")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacsorphanage/org-bullets"))]) (org-brain . [(20181114 2246) ((emacs (25)) (org (9))) "Org-mode concept mapping" single ((:commit . "d2bd1461e69189a39bbe40ae0d0be080b13d0ba0") (:keywords "outlines" "hypermedia") (:authors ("Erik Sjöstrand" . "sjostrand.erik@gmail.com")) (:maintainer "Erik Sjöstrand" . "sjostrand.erik@gmail.com") (:url . "http://github.com/Kungsgeten/org-brain"))]) (org-bookmark-heading . [(20180904 1709) ((emacs (24 4)) (f (0 17 2))) "Emacs bookmark support for org-mode" single ((:commit . "eba5ef7a3c992c4a9da86f64d12fca0c1158208a") (:keywords "hypermedia" "outlines") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/org-bookmark-heading"))]) (org-board . [(20180530 1820) nil "bookmarking and web archival system for Org mode." single ((:commit . "38de9ff14099bb79b55ddf73b68b8e30ebd7b280") (:keywords "org" "bookmarks" "archives") (:authors ("Charles A. Roelli " . "charles@aurox.ch")) (:maintainer "Charles A. Roelli " . "charles@aurox.ch") (:url . "https://github.com/scallywag/org-board"))]) (org-beautify-theme . [(20170908 2218) nil "A sub-theme to make org-mode more beautiful." single ((:commit . "df6a1114fda313e1689363e196c8284fbe2a2738") (:keywords "org" "theme") (:authors ("Jonathan Arkell" . "jonnay@jonnay.net")) (:maintainer "Jonathan Arkell" . "jonnay@jonnay.net"))]) (org-babel-eval-in-repl . [(20170511 1214) ((eval-in-repl (0 9 2)) (matlab-mode (3 3 6)) (ess (16 10)) (emacs (24))) "Eval org-mode babel code blocks in various REPLs." tar ((:commit . "bfa72c582ac1531ad42aba23e2b1267ab68e31f6") (:keywords "literate programming" "reproducible research" "async execution") (:authors ("Takeshi Teshima" . "diadochos.developer@gmail.com")) (:maintainer "Takeshi Teshima" . "diadochos.developer@gmail.com") (:url . "https://github.com/diadochos/org-babel-eval-in-repl"))]) (org-autolist . [(20170924 1901) nil "Improved list management in org-mode" single ((:commit . "c82d1e83e982b5f0c106b8800e5b0cfd5f73fdc1") (:keywords "lists" "checklists" "org-mode") (:authors ("Calvin Young")) (:maintainer "Calvin Young") (:url . "https://github.com/calvinwyoung/org-autolist"))]) (org-attach-screenshot . [(20180420 525) nil "screenshots integrated with org attachment dirs" single ((:commit . "6b1edbd2384191122a30788ac72f2233c2df0294") (:keywords "org") (:authors ("Derek Feichtinger" . "derek.feichtinger@psi.ch")) (:maintainer "Derek Feichtinger" . "derek.feichtinger@psi.ch") (:url . "https://github.com/dfeich/org-screenshot"))]) (org-alert . [(20180524 133) ((s (1 10 0)) (dash (2 11 0)) (alert (1 2))) "Notify org deadlines via notify-send" single ((:commit . "f87bff4acbd839acb4d2245b56b2c3d21f950911") (:keywords "org" "org-mode" "notify" "notifications" "calendar") (:authors ("Stephen Pegoraro" . "spegoraro@tutive.com")) (:maintainer "Stephen Pegoraro" . "spegoraro@tutive.com") (:url . "https://github.com/groksteve/org-alert"))]) (org-agenda-property . [(20140626 2116) ((emacs (24 2))) "Display org properties in the agenda buffer." single ((:commit . "3b469f3e93de0036547f3631cd0366d53f7584c8") (:keywords "calendar") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/org-agenda-property"))]) (org-ac . [(20170401 1307) ((auto-complete-pcmp (0 0 1)) (log4e (0 2 0)) (yaxception (0 1))) "Some auto-complete sources for org-mode" single ((:commit . "41e3ef8e4039619d0370c23c66730b3b2e9e32ed") (:keywords "org" "completion") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/org-ac"))]) (orca . [(20171030 1916) ((emacs (24 3))) "Org Capture" single ((:commit . "5e1744afb793dda744ddc6fe342144b5e90bea08") (:keywords "org" "convenience") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/orca"))]) (operate-on-number . [(20150707 623) nil "Operate on number at point with arithmetic functions" single ((:commit . "ceb3be565a29326c1098244fac0c50606723a56e") (:keywords "editing") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/operate-on-number.el"))]) (openwith . [(20120531 2136) nil "Open files with external programs" single ((:keywords "files" "processes") (:authors ("Markus Triska" . "markus.triska@gmx.at")) (:maintainer "Markus Triska" . "markus.triska@gmx.at") (:url . "https://bitbucket.org/jpkotta/openwith"))]) (openstack-cgit-browse-file . [(20130819 927) nil "Browse the current file in OpenStack cgit" single ((:commit . "244219288b9aef41155044697bb114b7af83ab8f") (:keywords "convenience" "vc" "git" "cgit" "gerrit" "openstack") (:authors ("Chmouel Boudjnah" . "chmouel@chmouel.com")) (:maintainer "Chmouel Boudjnah" . "chmouel@chmouel.com") (:url . "https://github.com/chmouel/openstack-cgit-browse-file"))]) (opensource . [(20160926 1616) ((s (1 11 0)) (dash (2 12 1)) (pkg-info (0 6 0)) (request (0 2 0))) "Client for Opensource API" tar ((:commit . "13499b7ae602c735e40c1c494bda6252a2f1c98f") (:keywords "opensource") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/OpenSourceOrg/el-opensourceorg"))]) (opener . [(20161207 1810) ((request (0 2 0)) (emacs (24)) (cl-lib (0 5))) "opening urls as buffers" tar ((:commit . "c384f67278046fdcd220275fdd212ab85672cbeb") (:keywords "url" "http" "files") (:authors ("Tim Reddehase" . "tr@rightsrestricted.com")) (:maintainer "Tim Reddehase" . "tr@rightsrestricted.com") (:url . "https://github.com/0robustus1/opener.el"))]) (opencl-mode . [(20170816 1249) nil "Syntax coloring for opencl kernels" single ((:commit . "6e69434d0fa6e11a542acad370611bba18d3bc5c") (:keywords "c" "opencl") (:authors ("Salmane Bah" . "salmane.bah@u-bordeaux.fr")) (:maintainer "Salmane Bah" . "salmane.bah@u-bordeaux.fr") (:url . "https://github.com/salmanebah/opencl-mode"))]) (opencc . [(20170722 816) ((emacs (24 4))) "中文简繁转换 <-> 中文簡繁轉換 (Convert Chinese with OpenCC)" single ((:commit . "8c539f72669ba9a99d8b5198db5ea930897ad1b9") (:keywords "chinese") (:authors ("徐春阳" . "mail@xuchunyang.me")) (:maintainer "徐春阳" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/emacs-opencc"))]) (open-junk-file . [(20161210 1114) nil "Open a junk (memo) file to try-and-error" single ((:commit . "558bec7372b0fed4c4cb6074ab906535fae615bd") (:keywords "convenience" "tools") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/open-junk-file.el"))]) (open-in-msvs . [(20170123 2228) nil "Open current file:line:column in Microsoft Visual Studio" tar ((:commit . "e0d071c83188ad5db8f3297d6ce784b4ed554a04") (:keywords "convenience" "usability" "integration" "visual studio" "msvs" "ide") (:authors ("Evgeny Panasyuk")) (:maintainer "Evgeny Panasyuk") (:url . "https://github.com/evgeny-panasyuk/open-in-msvs"))]) (opam . [(20150719 1220) ((emacs (24 1))) "OPAM tools" single ((:commit . "4d589de5765728f56af7078fae328b6792de8600") (:keywords "convenience") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/lunaryorn/opam.el"))]) (one-time-pad-encrypt . [(20160329 1513) nil "One time pad encryption within file" single ((:commit . "87cc1f124024ce3d277299ca0ac703f182937d9f") (:keywords "convenience") (:authors ("Garvin Guan" . "garvin.guan@gmail.com")) (:maintainer "Garvin Guan" . "garvin.guan@gmail.com") (:url . "https://github.com/garvinguan/emacs-one-time-pad/"))]) (one-themes . [(20181030 1142) ((emacs (24))) "One Colorscheme" tar ((:commit . "1b50f2f88fe5e207cbe6d68db710361e3bc4a9ce") (:authors ("Balaji Sivaraman" . "balaji@balajisivaraman.com")) (:maintainer "Balaji Sivaraman" . "balaji@balajisivaraman.com") (:url . "http://github.com/balajisivaraman/emacs-one-themes"))]) (on-screen . [(20160302 950) ((cl-lib (0))) "guide your eyes while scrolling" single ((:commit . "206468aa4de299ad26c2db12b757f5ad7290912f") (:keywords "convenience") (:authors ("Michael Heerdegen" . "michael_heerdegen@web.de")) (:maintainer "Michael Heerdegen" . "michael_heerdegen@web.de") (:url . "https://github.com/michael-heerdegen/on-screen.el"))]) (on-parens . [(20180202 2241) ((dash (2 10 0)) (emacs (24)) (evil (1 1 6)) (smartparens (1 6 3))) "smartparens wrapper to fit with evil-mode/vim normal-state" single ((:commit . "7a41bc02bcffd265f8a69ed4b4e0df3c3009aaa4") (:keywords "evil" "smartparens") (:authors ("William G Hatch")) (:maintainer "William G Hatch"))]) (omtose-phellack-theme . [(20161111 2120) nil "A dark theme, with cold bluish touch." tar ((:commit . "66f99633e199e65bd28641626435e8e59246529a"))]) (omnisharp . [(20181023 505) ((emacs (24 4)) (flycheck (30)) (dash (2 12 0)) (auto-complete (1 4)) (popup (0 5 1)) (csharp-mode (0 8 7)) (cl-lib (0 5)) (s (1 10 0)) (shut-up (0 3 2)) (f (0 19 0))) "Omnicompletion (intellisense) and more for C#" tar ((:commit . "260b2423b7b909b12b98d84e5b05b5b4e20040d0") (:keywords "languages" "csharp" "c#" "ide" "auto-complete" "intellisense") (:authors ("Mika Vilpas and others")) (:maintainer "Mika Vilpas and others") (:url . "https://github.com/Omnisharp/omnisharp-emacs"))]) (omnibox . [(20180423 49) ((emacs (26 1)) (dash (2 13)) (frame-local (0 0 1))) "Selection package" single ((:commit . "8ee75c71c20c438ebc43ba24ef6f543633d118f3") (:keywords "completion" "selection" "convenience" "frames") (:authors ("Sebastien Chapuis" . "sebastien@chapu.is")) (:maintainer "Sebastien Chapuis" . "sebastien@chapu.is") (:url . "https://github.com/sebastiencs/omnibox"))]) (omni-tags . [(20170426 2109) ((pcre2el (1 7)) (cl-lib (0 5))) "Highlight and Actions for 'Tags'" tar ((:commit . "8f0f6c302fab900b7681e5c039f90850cbbabd33") (:keywords "convenience") (:authors ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainer "Adrien Becchis" . "adriean.khisbe@live.fr") (:url . "http://github.com/AdrieanKhisbe/omni-tags.el"))]) (omni-scratch . [(20171009 2151) nil "Easy and mode-specific draft buffers" single ((:commit . "9eee3161e5cb6df58618548a2173f4da7d194814") (:keywords "convenience" "languages" "tools") (:authors ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainer "Adrien Becchis" . "adriean.khisbe@live.fr") (:url . "https://github.com/AdrieanKhisbe/omni-scratch.el"))]) (omni-quotes . [(20170425 1832) ((dash (2 8)) (omni-log (0 3 3)) (f (0 19 0)) (s (1 11 0)) (ht (2 1))) "Random quotes displayer" tar ((:commit . "454116c1dd6581baaeefd6b9310b1b6b7a5c36d0") (:keywords "convenience") (:authors ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainer "Adrien Becchis" . "adriean.khisbe@live.fr") (:url . "https://github.com/AdrieanKhisbe/omni-quotes.el"))]) (omni-log . [(20170930 1235) ((emacs (24)) (ht (2 0)) (s (1 6 1)) (dash (2 13 0))) "Logging utilities" tar ((:commit . "11e959473c1bd9415d0cda785940c36ba6ad44ab") (:keywords "convenience" "languages" "tools") (:authors ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainer "Adrien Becchis" . "adriean.khisbe@live.fr") (:url . "https://github.com/AdrieanKhisbe/omni-log.el"))]) (omni-kill . [(20171016 2140) nil "Kill all the things" single ((:commit . "904549c8fd6ac3cf22b5d7111ca8944e179cffea") (:keywords "convenience" "editing" "tools") (:authors ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainer "Adrien Becchis" . "adriean.khisbe@live.fr"))]) (om-mode . [(20140915 2110) nil "Insert Om component template with life cycle." single ((:commit . "cdc0c2912321f8438b0f3449ba8aca50ec150bba") (:keywords "clojurescript") (:authors ("Daniel Szmulewicz" . "daniel.szmulewicz@gmail.com")) (:maintainer "Daniel Szmulewicz" . "daniel.szmulewicz@gmail.com"))]) (olivetti . [(20180531 737) ((emacs (24 4))) "Minor mode for a nice writing environment" single ((:commit . "02272654f1d920ea2da5a4b553acd5e5cc096ab1") (:keywords "wp" "text") (:authors ("Paul Rankin" . "hello@paulwrankin.com")) (:maintainer "Paul Rankin" . "hello@paulwrankin.com") (:url . "https://github.com/rnkn/olivetti"))]) (oldlace-theme . [(20150705 1300) ((emacs (24))) "Emacs 24 theme with an 'oldlace' background." single ((:commit . "5c6f437203b0783b36a7aff4a578de4a0c8c4ee6") (:authors ("martin haesler")) (:maintainer "martin haesler"))]) (old-norse-input . [(20170816 1842) ((emacs (24))) "An input method for Old Norse" single ((:commit . "c2e21ee72c3768e9152aff6baf12a19cde1d0c53") (:keywords "languages") (:authors ("David Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Christiansen" . "david@davidchristiansen.dk") (:url . "https://github.com/david-christiansen/emacs-old-norse-input"))]) (offlineimap . [(20150916 1158) nil "Run OfflineIMAP from Emacs" single ((:commit . "cc3e067e6237a1eb7b21c575a41683b1febb47f1") (:authors ("Julien Danjou" . "julien@danjou.info")) (:maintainer "Julien Danjou" . "julien@danjou.info") (:url . "http://julien.danjou.info/offlineimap-el.html"))]) (octopress . [(20181009 2351) nil "A lightweight wrapper for Jekyll and Octopress." tar ((:commit . "d4d16f52278b14a271131a11e9cc0a94316de10e") (:keywords "octopress" "blog") (:authors ("Aaron Bieber" . "aaron@aaronbieber.com")) (:maintainer "Aaron Bieber" . "aaron@aaronbieber.com") (:url . "https://github.com/aaronbieber/octopress.el"))]) (octo-mode . [(20161008 1229) ((emacs (24))) "Major mode for Octo assembly language" single ((:commit . "bd4db7e5e3275b24c74e6a23c11d04f54e9feca5") (:keywords "languages") (:authors ("John Olsson" . "john@cryon.se")) (:maintainer "John Olsson" . "john@cryon.se") (:url . "https://github.com/cryon/octo-mode"))]) (octicons . [(20151101 340) ((cl-lib (0 5))) "octicons utility" tar ((:commit . "a61e561966ffd8faa3b48ce5b3a4eec10c59708b") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-octicons"))]) (ocp-indent . [(20180417 1549) nil "automatic indentation with ocp-indent" single ((:commit . "ccfa9d8fbdf564d5b12d22b859843ffd702f8e24") (:keywords "ocaml" "languages") (:url . "http://www.typerex.org/ocp-indent.html"))]) (ocodo-svg-modelines . [(20150516 1419) ((svg-mode-line-themes (0))) "A collection of beautiful SVG modelines" tar ((:commit . "c7b0789a177219f117c4de5659ecfa8622958c40"))]) (oceanic-theme . [(20161015 819) nil "Oceanic theme." single ((:commit . "a92ee9b470843c923e6cdcafdd65106ff994d04d") (:keywords "oceanic" "color" "theme") (:authors ("Tengfei Guo")) (:maintainer "Tengfei Guo") (:url . "https://github.com/terry3/oceanic-theme"))]) (occur-x . [(20130610 1343) nil "Extra functionality for occur" single ((:commit . "352f5fab207d8a1d3dd048073ff127a83e97c82b") (:keywords "occur" "search" "convenience") (:authors ("Juan-Leon Lahoz" . "juanleon1@gmail.com")) (:maintainer "Juan-Leon Lahoz" . "juanleon1@gmail.com"))]) (occur-context-resize . [(20170904 2309) nil "dynamically resize context around matches in occur-mode" single ((:commit . "cdee5a631ceed9337579d4090e0acf8140747f80") (:keywords "matching") (:authors ("Charles L.G. Comstock" . "dgtized@gmail.com")) (:maintainer "Charles L.G. Comstock" . "dgtized@gmail.com") (:url . "https://github.com/dgtized/occur-context-resize.el"))]) (occidental-theme . [(20130312 1958) nil "Custom theme for faces based on Adwaita" single ((:commit . "fd2db7256d4f78c43d99c3cddb1c39106d479816") (:authors ("William Stevenson" . "yhvh2000@gmail.com") ("Erik Timan" . "dev@timan.info")) (:maintainer "William Stevenson" . "yhvh2000@gmail.com") (:url . "http://github.com/olcai/occidental-theme"))]) (obsidian-theme . [(20170719 948) nil "port of the eclipse obsidian theme" single ((:commit . "f45efb2ebe9942466c1db6abbe2d0e6847b785ea") (:authors ("martin haesler")) (:maintainer "martin haesler") (:url . "http://github.com/mswift42/obsidian-theme"))]) (objed . [(20181120 923) ((emacs (25)) (cl-lib (0 5))) "Navigate and edit text objects." tar ((:commit . "333a9d5fdb945bb41d899b298bda297d8563c372") (:keywords "convenience") (:authors ("Clemens Radermacher" . "clemera@posteo.net")) (:maintainer "Clemens Radermacher" . "clemera@posteo.net") (:url . "https://github.com/clemera/objed"))]) (objc-font-lock . [(20141021 1822) nil "Highlight Objective-C method calls." single ((:commit . "34b457d577f97ca94b8792d025f9a909c7610612") (:keywords "languages" "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/objc-font-lock"))]) (obfusurl . [(20170809 1524) ((cl-lib (0 5))) "Obfuscate URLs so they aren't spoilers" single ((:commit . "7a5a41905000ce2ec1fd72509a5567e5fd9f47e5") (:keywords "convenience" "web" "text") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/obfusurl.el"))]) (oberon . [(20120715 909) nil "Major mode for editing Oberon/Oberon-2 program texts" single ((:commit . "fb57d18ce13835a8a69b6bafecdd9193ca9a59a3") (:keywords "oberon" "oberon-2" "languages" "oop") (:authors ("Karl Landström" . "karl@karllandstrom.se")) (:maintainer "Karl Landström" . "karl@karllandstrom.se"))]) (ob-uart . [(20170521 858) nil "org-babel support for UART communication" single ((:commit . "90daeac90a9e75c20cdcf71234c67b812110c50e") (:keywords "tools" "comm" "org-mode" "uart" "literate programming" "reproducible development") (:authors ("Andreas Müller")) (:maintainer "Andreas Müller") (:url . "https://www.0x7.ch"))]) (ob-typescript . [(20150804 1230) ((emacs (24)) (org (8 0))) "org-babel functions for typescript evaluation" single ((:commit . "9dcbd226cbfb75e790dd9de91d9401dde85a889a") (:keywords "literate programming" "reproducible research" "typescript") (:authors ("KURASHIKI Satoru")) (:maintainer "KURASHIKI Satoru") (:url . "https://github.com/lurdan/ob-typescript"))]) (ob-translate . [(20170720 1919) ((google-translate (0 11)) (org (8))) "Translation of text blocks in org-mode." single ((:commit . "9d9054a51bafd5a29a8135964069b4fa3a80b169") (:keywords "org" "babel" "translate" "translation") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/krisajenkins/ob-translate"))]) (ob-tmux . [(20180831 1017) ((emacs (25 1)) (seq (2 3)) (s (1 9 0))) "Babel Support for Interactive Terminal" single ((:commit . "73bed0ebad27f0ad57ea67582494543eb2fab73d") (:keywords "literate programming" "interactive shell" "tmux") (:authors ("Allard Hendriksen")) (:maintainer "Allard Hendriksen") (:url . "https://github.com/ahendriksen/ob-tmux"))]) (ob-swift . [(20170921 1325) ((org (8))) "org-babel functions for swift evaluation" single ((:commit . "ed478ddbbe41ce5373efde06b4dd0c3663c9055f") (:keywords "org" "babel" "swift") (:authors ("Feng Zhou" . "zf.pascal@gmail.com")) (:maintainer "Feng Zhou" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/ob-swift"))]) (ob-sql-mode . [(20180426 1911) ((emacs (24 4))) "SQL code blocks evaluated by sql-mode" single ((:commit . "8f38e4a882f79a53a96dc6f2a0a17b7878a461ad") (:keywords "languages" "org" "org-babel" "sql") (:authors (nil . "Nik Clayton nik@google.com")) (:maintainer nil . "Nik Clayton nik@google.com") (:url . "http://github.com/nikclayton/ob-sql-mode"))]) (ob-sml . [(20130829 1843) ((sml-mode (6 4))) "org-babel functions for template evaluation" single ((:commit . "958165c92b6cff6cada5c85c8ae5887806b8451b") (:keywords "literate programming" "reproducible research") (:authors ("David Nolen")) (:maintainer "David Nolen") (:url . "http://orgmode.org"))]) (ob-sagemath . [(20170131 233) ((sage-shell-mode (0 0 8)) (s (1 8 0)) (emacs (24))) "org-babel functions for SageMath evaluation" tar ((:commit . "68d3e516c712bc7aa5042f305f3eb5bbb6d656c2") (:keywords "sagemath" "org-babel") (:authors ("Sho Takemori" . "stakemorii@gmail.com")) (:maintainer "Sho Takemori" . "stakemorii@gmail.com") (:url . "https://github.com/stakemori/ob-sagemath"))]) (ob-rust . [(20180911 1535) nil "Org-babel functions for Rust" tar ((:commit . "6a82587598cd097e9642be916243c31f1231b24a") (:keywords "rust" "languages" "org" "babel") (:authors ("Mican Zhang")) (:maintainer "Mican Zhang") (:url . "https://github.com/micanzhang/ob-rust"))]) (ob-restclient . [(20180904 709) ((restclient (0))) "org-babel functions for restclient-mode" single ((:commit . "00b2c5a6637ab6e504708612357ffb29b5416e4b") (:keywords "literate programming" "reproducible research") (:authors ("Alf Lervåg")) (:maintainer "Alf Lervåg") (:url . "http://orgmode.org"))]) (ob-prolog . [(20180720 1044) nil "org-babel functions for prolog evaluation." single ((:commit . "85ada8fc1f523167f137746c82d823a194160141") (:keywords "literate programming" "reproducible research") (:authors ("Bjarte Johansen")) (:maintainer "Bjarte Johansen") (:url . "https://github.com/ljos/ob-prolog"))]) (ob-nim . [(20170809 1830) ((cl-lib (0 5))) "Babel Functions for nim" single ((:commit . "bf1642cb93f0a898804dc13fd9408d2964403bd2") (:keywords "literate programming" "reproducible research") (:authors ("Lompik")) (:maintainer "Lompik"))]) (ob-mongo . [(20170720 1919) ((org (8))) "Execute mongodb queries within org-mode blocks." single ((:commit . "371bf19c7c10eab2f86424f8db8ab685997eb5aa") (:keywords "org" "babel" "mongo" "mongodb") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/krisajenkins/ob-mongo"))]) (ob-ml-marklogic . [(20170622 1833) nil "org-babel functions for MarkLogic evaluation" tar ((:commit . "f678af0f440b3030e311ed6fbc444200be04da91") (:keywords "marklogic" "xquery" "javascript" "sparql") (:authors ("Norman Walsh" . "ndw@nwalsh.com")) (:maintainer "Norman Walsh" . "ndw@nwalsh.com") (:url . "http://github.com/ndw/ob-ml-marklogic"))]) (ob-mermaid . [(20180522 1659) nil "org-babel support for mermaid evaluation" single ((:commit . "5deaea757b3a5de874d94e40c03116fbc8195308") (:keywords "lisp") (:authors ("Alexei Nunez" . "alexeirnunez@gmail.com")) (:maintainer "Alexei Nunez" . "alexeirnunez@gmail.com") (:url . "https://github.com/arnm/ob-mermaid"))]) (ob-lfe . [(20170725 1420) ((org (8))) "org-babel functions for lfe evaluation" single ((:commit . "f7780f58e650b4d29dfd834c662b1d354b620a8e") (:keywords "org" "babel" "lfe" "lisp" "erlang") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/ob-lfe"))]) (ob-kotlin . [(20180823 1321) ((org (8))) "org-babel functions for kotlin evaluation" single ((:commit . "96e420cbd2e9ea8a77043e5dcaebdfc6da17492a") (:keywords "org" "babel" "kotlin") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/ob-kotlin"))]) (ob-ipython . [(20180224 953) ((s (1 9 0)) (dash (2 10 0)) (dash-functional (1 2 0)) (f (0 17 2)) (emacs (24))) "org-babel functions for IPython evaluation" tar ((:commit . "7147455230841744fb5b95dcbe03320313a77124") (:keywords "literate programming" "reproducible research") (:authors ("Greg Sexton" . "gregsexton@gmail.com")) (:maintainer "Greg Sexton" . "gregsexton@gmail.com") (:url . "http://www.gregsexton.org"))]) (ob-hy . [(20180702 540) ((emacs (24 4))) "org-babel functions for Hy-lang evaluation" tar ((:commit . "a42ecaf440adc03e279afe43ee5ef6093ddd542a") (:keywords "hy" "literate programming" "reproducible research") (:authors ("Brantou" . "brantou89@gmail.com")) (:maintainer "Brantou" . "brantou89@gmail.com") (:url . "https://github.com/brantou/ob-hy"))]) (ob-http . [(20180707 1448) ((s (1 9 0)) (cl-lib (0 5))) "http request in org-mode babel" tar ((:commit . "b1428ea2a63bcb510e7382a1bf5fe82b19c104a7") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/ob-http"))]) (ob-go . [(20181107 1941) nil "org-babel functions for go evaluation" tar ((:commit . "237aded7aeb236573514fb26f23129852fd3c206") (:keywords "golang" "go" "literate programming" "reproducible research") (:authors ("K. Adam Christensen")) (:maintainer "K. Adam Christensen") (:url . "http://orgmode.org"))]) (ob-fsharp . [(20170618 1429) ((emacs (25)) (fsharp-mode (1 9 8))) "Org-Babel F#" single ((:commit . "0b2fdd9bb4f38af8b5cf4914627af52f5b43d9f7") (:keywords "literate programming" "reproducible research") (:authors ("Jürgen Hötzel" . "juergen@archlinux.org")) (:maintainer "Jürgen Hötzel" . "juergen@archlinux.org") (:url . "https://github.com/juergenhoetzel/ob-fsharp"))]) (ob-elvish . [(20180427 1900) nil "org-babel functions for Elvish shell" single ((:commit . "369181ceae1190bf971c71aebf9fc6133bd98c39") (:keywords "literate programming" "elvish" "shell" "languages" "processes" "tools") (:authors ("Diego Zamboni" . "diego@zzamboni.org")) (:maintainer "Diego Zamboni" . "diego@zzamboni.org") (:url . "https://github.com/zzamboni/ob-elvish"))]) (ob-elixir . [(20170725 1419) ((org (8))) "org-babel functions for elixir evaluation" single ((:commit . "8990a8178b2f7bd93504a9ab136622aab6e82e32") (:keywords "org" "babel" "elixir") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/ob-elixir"))]) (ob-diagrams . [(20160407 1237) nil "org-babel functions for diagrams evaluation" single ((:commit . "ed6649616325ca5b2d2109f74aded8bcb8aa5186") (:keywords "literate programming" "reproducible research") (:authors ("Daniel Bergey")) (:maintainer "Daniel Bergey") (:url . "http://orgmode.org"))]) (ob-dart . [(20170106 1624) nil "org-babel functions for Dart evaluation" single ((:commit . "04d63b922a5469506560ca0c00678e57131e0269") (:keywords "literate programming" "reproducible research" "emacs" "org" "babel" "dart") (:authors ("Milan Zimmermann")) (:maintainer "Milan Zimmermann") (:url . "http://github.org/mzimmerm/ob-dart"))]) (ob-dao . [(20170816 1558) ((org (8))) "Org Babel Functions for Dao" single ((:commit . "fa92f62a63c684d689f57e790e5dd614c5bba270") (:keywords "literate programming" "reproducible research" "org" "babel" "dao") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/ob-dao"))]) (ob-cypher . [(20170725 1420) ((s (1 9 0)) (cypher-mode (0 0 6)) (dash (2 10 0)) (dash-functional (1 2 0))) "query neo4j using cypher in org-mode blocks" single ((:commit . "114bdf6db20ee0ade060bb5df379ddee48ff4f26") (:keywords "org" "babel" "cypher" "neo4j") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/ob-cypher"))]) (ob-crystal . [(20180126 718) ((emacs (24 3))) "org-babel functions for Crystal evaluation" tar ((:commit . "d84c1adee4b269cdba06a97caedb8071561a09af") (:keywords "crystal" "literate programming" "reproducible research") (:authors ("Brantou" . "brantou89@gmail.com")) (:maintainer "Brantou" . "brantou89@gmail.com") (:url . "https://github.com/brantou/ob-crystal"))]) (ob-coffeescript . [(20180126 719) ((emacs (24 4))) "org-babel functions for coffee-script evaluation, and fully implementation!" single ((:commit . "5a5bb04aea9c2a6eab5b05f90f5c7cb6de7b4261") (:keywords "coffee-script" "literate programming" "reproducible research") (:authors ("Brantou" . "brantou89@gmail.com")) (:maintainer "Brantou" . "brantou89@gmail.com") (:url . "https://github.com/brantou/ob-coffeescript"))]) (ob-coffee . [(20170725 1424) ((org (8))) "org-babel functions for coffee-script evaluation" tar ((:commit . "7f0b330273e8af7777de87a75fe52a89798e4548") (:keywords "org" "babel" "coffee-script") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/ob-coffee"))]) (ob-clojurescript . [(20180406 1828) ((emacs (24 4)) (org (9 0))) "org-babel functions for ClojureScript evaluation" single ((:commit . "17ee1558aa94c7b0246fd03f684884122806cfe7") (:keywords "literate programming" "reproducible research") (:authors ("Larry Staton Jr.")) (:maintainer "Larry Staton Jr.") (:url . "https://gitlab.com/statonjr/ob-clojurescript"))]) (ob-cfengine3 . [(20180102 1812) nil "Org Babel functions for CFEngine 3" single ((:commit . "93ebcfceec3734f4bd187ae123686187d66fd401") (:keywords "tools" "convenience") (:authors ("Nick Anderson" . "nick@cmdln.org")) (:maintainer "Nick Anderson" . "nick@cmdln.org") (:url . "https://github.com/nickanderson/ob-cfengine3"))]) (ob-browser . [(20170720 1918) ((org (8))) "Render HTML in org-mode blocks." tar ((:commit . "a347d9df1c87b7eb660be8723982c7ad2563631a") (:keywords "org" "babel" "browser" "phantomjs") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/krisajenkins/ob-browser"))]) (ob-blockdiag . [(20170728 101) nil "org-babel functions for blockdiag evaluation" single ((:commit . "634fcf64a4ae735afe7001d865b03f5d71e23046") (:keywords "tools" "convenience") (:authors ("Dmitry Moskowski")) (:maintainer "Dmitry Moskowski") (:url . "https://github.com/corpix/ob-blockdiag.el"))]) (ob-axiom . [(20171103 2248) ((emacs (24 2)) (axiom-environment (20171021))) "An org-babel backend for the axiom-environment system" single ((:commit . "5d6b2cd12f639c11b032185c4c5fe4f5bba15b08") (:keywords "axiom" "openaxiom" "fricas") (:authors ("Paul Onions")) (:maintainer "Paul Onions"))]) (ob-async . [(20180816 1553) ((async (1 9)) (org (9 0 1)) (emacs (24 4)) (dash (2 14 1))) "Asynchronous org-babel src block execution" single ((:commit . "2470490e6efb3f8efde1702f7986f6e31cc1ab6c") (:keywords "tools") (:authors ("Andrew Stahlman" . "andrewstahlman@gmail.com")) (:maintainer "Andrew Stahlman" . "andrewstahlman@gmail.com") (:url . "https://github.com/astahlman/ob-async"))]) (ob-applescript . [(20160914 2027) nil "org-babel functions for template evaluation" single ((:commit . "bc708af6cf45707d4e8d8f00ea59a7e413bfaca7") (:keywords "literate programming" "reproducible research" "mac") (:authors ("Stig Brautaset")) (:maintainer "Stig Brautaset") (:url . "http://github.com/stig/ob-applescript.el"))]) (oauth . [(20130128 151) nil "Oauth library." tar ((:commit . "ee4744ad76a1560281b0c4944575a3bd598c6458") (:keywords "comm") (:authors ("Peter Sanford <peter AT petersdanceparty.com>")) (:maintainer "Peter Sanford <peter AT petersdanceparty.com>"))]) (o-blog . [(20151202 2339) nil "Standalone orgmode blog exporter" tar ((:commit . "e466c59478feddc8126c43c1b98550474af484c0") (:keywords "emacs") (:authors ("Sébastien Gross <seb•ɑƬ•chezwam•ɖɵʈ•org>")) (:maintainer "Sébastien Gross <seb•ɑƬ•chezwam•ɖɵʈ•org>"))]) (nyx-theme . [(20170910 1307) ((emacs (24))) "Dark theme" single ((:commit . "afe2b8c3b5421b4c292d182dcf77079b278e93d8") (:keywords "themes" "dark-theme") (:authors ("Guido Schmidt")) (:maintainer "Guido Schmidt" . "guido.schmidt.2912@gmail.com") (:url . "https://github.com/GuidoSchmidt/emacs-nyx-theme"))]) (nyan-mode . [(20170423 740) nil "Nyan Cat shows position in current buffer in mode-line." tar ((:commit . "a85ac925367ddc542827182a2d9f0133b421c41b") (:keywords "nyan" "cat" "lulz" "scrolling" "pop tart cat" "build something amazing") (:authors ("Jacek \"TeMPOraL\" Zlydach" . "temporal.pl@gmail.com")) (:maintainer "Jacek \"TeMPOraL\" Zlydach" . "temporal.pl@gmail.com") (:url . "https://github.com/TeMPOraL/nyan-mode/"))]) (nvm . [(20171217 1636) ((s (1 8 0)) (dash (2 4 0)) (f (0 14 0)) (dash-functional (2 4 0))) "Manage Node versions within Emacs" single ((:commit . "bc0a33257ec16e9f575bb6914b5949199897ada9") (:keywords "node" "nvm") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/nvm.el"))]) (nv-delete-back . [(20170224 1249) ((emacs (24))) "backward delete like modern text editors" single ((:commit . "44d506105989873dc1725e0cfc675925b35c9c98") (:keywords "lisp") (:authors ("Nicolas Vaughan <n.vaughan [at] oxon.org>")) (:maintainer "Nicolas Vaughan <n.vaughan [at] oxon.org>"))]) (nummm-mode . [(20131117 1014) nil "Display the number of minor modes instead of their names" single ((:commit . "81951e12032274543c5f7a585b29bd93961e94e4") (:authors ("Andreu Gil" . "agpchil@gmail.com")) (:maintainer "Andreu Gil" . "agpchil@gmail.com") (:url . "http://github.com/agpchil/nummm-mode"))]) (numbers . [(20170802 1134) ((emacs (24))) "Display information and trivia about numbers" single ((:commit . "dd02508b788a13b7d4dbcc4923fa23134b783ab3") (:keywords "games" "trivia" "maths" "numbers") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/numbers.el"))]) (number-lock . [(20160830 200) nil "Enter symbols on your number keys without pressing shift" single ((:commit . "74417b1238953bf485961a0dd7d20f5c36ae25ea") (:keywords "convenience") (:authors ("Liu233w" . "wwwlsmcom@outlook.com")) (:maintainer "Liu233w" . "wwwlsmcom@outlook.com") (:url . "https://github.com/Liu233w/number-lock.el"))]) (number . [(20170901 1312) nil "Working with numbers at point." single ((:commit . "bbc278d34dbcca83e70e3be855ec98b23debfb99"))]) (nubox . [(20170619 910) nil "Nubox color theme (dark, light and tty versions)" tar ((:commit . "1ccb8035ae42727ba6bdd5c1106fbceddeeed370") (:keywords "faces") (:authors ("Martijn Terpstra" . "bigmartijn@gmail.com")) (:maintainer "Martijn Terpstra" . "bigmartijn@gmail.com"))]) (nu-mode . [(20181021 2032) ((undo-tree (0 6 5)) (ace-window (0)) (avy (0)) (which-key (0)) (transpose-frame (0))) "Modern Emacs Prompts Based Keybinding." tar ((:commit . "1c20826ee462ad991e8b9cdeedfacb6bf1c159bf"))]) (nsis-mode . [(20180719 308) nil "NSIS-mode" tar ((:commit . "a49f5dbc8a5e60d3bbb803582efb5468bbbe7507") (:keywords "nsis") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew L. Fidler") (:url . "http://github.com/mlf176f2/nsis-mode"))]) (ns-auto-titlebar . [(20181022 2154) ((emacs (24 4))) "Set the MacOS transparent titlebar to match theme" single ((:commit . "b16092e8058af63ad2bc222f166b0aa3cb66bf9d") (:keywords "frames") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/ns-auto-titlebar"))]) (nrepl-sync . [(20140807 1554) ((cider (0 6))) "connect to nrepl port and eval .sync.clj." single ((:commit . "bab53a2361526d63a24cda176d07a1247bf5b399") (:authors ("Phillip Lord" . "phillip.lord@newcastle.ac.uk")) (:maintainer "Phillip Lord" . "phillip.lord@newcastle.ac.uk") (:url . "https://github.com/phillord/lein-sync"))]) (nrepl-eval-sexp-fu . [(20140311 1041) ((highlight (0 0 0)) (smartparens (0 0 0)) (thingatpt (0 0 0))) "Tiny functionality enhancements for evaluating sexps." single ((:commit . "3a24b7d4bca13e87c987a4ddd212da914ff59191") (:keywords "lisp" "highlight" "convenience") (:authors ("Takeshi Banse" . "takebi@laafc.net")) (:maintainer "Takeshi Banse" . "takebi@laafc.net"))]) (npm-mode . [(20180720 1701) ((emacs (24 1))) "minor mode for working with npm projects" single ((:commit . "4f4b9fc2c07290ae87f65179df95be5221e76bf2") (:keywords "convenience" "project" "javascript" "node" "npm") (:authors ("Allen Gooch" . "allen.gooch@gmail.com")) (:maintainer "Allen Gooch" . "allen.gooch@gmail.com") (:url . "https://github.com/mojochao/npm-mode"))]) (noxml-fold . [(20170823 1357) nil "Fold away XML things." single ((:commit . "46c7f6a008672213238a9f8d7a416ce80916aa62") (:keywords "xml" "folding") (:authors ("Patrick McAllister" . "pma@rdorte.org")) (:maintainer "Patrick McAllister" . "pma@rdorte.org") (:url . "https://github.com/paddymcall/noxml-fold"))]) (nova-theme . [(20180905 1911) ((emacs (24 3))) "A dark, pastel color theme" single ((:commit . "932c83e6e06e795c2a380b69eee3913a3a805cea") (:keywords "theme" "dark" "nova" "pastel" "faces") (:authors ("Muir Manders" . "muir+emacs@mnd.rs")) (:maintainer "Muir Manders" . "muir+emacs@mnd.rs") (:url . "https://github.com/muirmanders/emacs-nova-theme"))]) (nov . [(20181118 750) ((dash (2 12 0)) (esxml (0 3 3)) (emacs (24 4))) "Featureful EPUB reader mode" single ((:commit . "3bb7a4038f0c2100df671c9f1f33b785ed4ae296") (:keywords "hypermedia" "multimedia" "epub") (:authors ("Vasilij Schneidermann" . "mail@vasilij.de")) (:maintainer "Vasilij Schneidermann" . "mail@vasilij.de") (:url . "https://github.com/wasamasa/nov.el"))]) (notmuch-labeler . [(20131230 1719) ((notmuch (0))) "Improve notmuch way of displaying labels" tar ((:commit . "d65d1129555d368243df4770ecc1e7ccb88efc58") (:keywords "emacs" "package" "elisp" "notmuch" "emails") (:authors ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainer "Damien Cassou" . "damien.cassou@gmail.com") (:url . "https://github.com/DamienCassou/notmuch-labeler"))]) (notmuch . [(20181021 1330) nil "run notmuch within emacs" tar ((:commit . "7f726c6e87517eb9c84119a1c5e3a63bfaaa49f6") (:url . "https://notmuchmail.org/"))]) (nose . [(20140520 1648) nil "Easy Python test running in Emacs" single ((:keywords "nose" "python" "testing"))]) (northcode-theme . [(20180423 1649) ((emacs (24))) "A dark theme focused on blue and orange colors." single ((:commit . "4d3750461ba25ec45321318b5f1af4e8fdf16147") (:authors ("Andreas Larsen" . "andreas@northcode.no")) (:maintainer "Andreas Larsen" . "andreas@northcode.no") (:url . "https://github.com/Northcode/northcode-theme.el"))]) (nordless-theme . [(20180613 750) nil "A mostly colorless theme" single ((:commit . "e4da9d2465a123ea28e33a507cc7ab69692cde86") (:keywords "theme" "dark") (:authors ("Thomas Letan" . "contact@thomasletan.fr")) (:maintainer "Thomas Letan" . "contact@thomasletan.fr") (:url . "https://github.com/lethom/nordless-theme.el"))]) (nord-theme . [(20180913 1749) ((emacs (24))) "An arctic, north-bluish clean and elegant theme" single ((:commit . "c4e0b5548e2f3a149658617b33813cb115bdecfe") (:authors ("Arctic Ice Studio" . "development@arcticicestudio.com")) (:maintainer "Arctic Ice Studio" . "development@arcticicestudio.com") (:url . "https://github.com/arcticicestudio/nord-emacs"))]) (nofrils-acme-theme . [(20180620 1248) ((emacs (24))) "Port of \"No Frils Acme\" Vim theme." tar ((:commit . "98ad7bfaff1d85b33dc162645670285b067c6f92") (:authors ("Eric Sessoms" . "esessoms@protonmail.com")) (:maintainer "Eric Sessoms" . "esessoms@protonmail.com") (:url . "https://gitlab.com/esessoms/nofrils-theme"))]) (noflet . [(20141102 1454) nil "locally override functions" single ((:commit . "7ae84dc3257637af7334101456dafe1759c6b68a") (:keywords "lisp") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "https://github.com/nicferrier/emacs-noflet"))]) (nodenv . [(20181023 1543) ((emacs (24 4))) "Integration with nodenv" tar ((:commit . "832fb0cbac4513edde7ebd6d1ab971c54313be36") (:keywords "node" "environment" "tools") (:authors ("Gong Qijian" . "gongqijian@gmail.com")) (:maintainer "Gong Qijian" . "gongqijian@gmail.com") (:url . "https://github.com/twlz0ne/nodenv.el"))]) (nodemcu-mode . [(20180501 2225) ((emacs (25))) "Minor mode for NodeMCU" single ((:commit . "8effd9f3df40b6b92a2f05e4d54750b624afc4a7") (:keywords "tools") (:authors ("Andreas Müller" . "code@0x7.ch")) (:maintainer "Andreas Müller" . "code@0x7.ch") (:url . "https://github.com/andrmuel/nodemcu-mode"))]) (nodejs-repl . [(20181024 1654) nil "Run Node.js REPL" single ((:commit . "d518947584c8041a36ffa103e2d487d852cd12ee") (:authors ("Takeshi Arabiki")) (:maintainer "Takeshi Arabiki"))]) (node-resolver . [(20140930 1723) ((cl-lib (0 5))) "hook to install node modules in background" single ((:commit . "ef9d0486907a746a80b02ffc6208a09c168a9f7c") (:keywords "convenience" "nodejs" "javascript" "npm") (:authors ("Dave Justice")) (:maintainer "Dave Justice") (:url . "https://github.com/meandavejustice/node-resolver.el"))]) (noctilux-theme . [(20161113 1442) ((emacs (24))) "Dark theme inspired by LightTable" single ((:commit . "a3265a1be7f4d73f44acce6d968ca6f7add1f2ca") (:authors ("Simon Manning" . "simon@ecksdee.org")) (:maintainer "Simon Manning" . "simon@ecksdee.org") (:url . "https://github.com/sjrmanning/noctilux-theme"))]) (nocomments-mode . [(20170213 2037) nil "Minor mode that makes comments invisible." single ((:commit . "5a41a20cc44dfe4a9ea584354ed6dbc15dd92f46") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/nocomments-mode"))]) (noccur . [(20150514 2120) nil "Run multi-occur on project/dired files" single ((:commit . "6cc02ce07178a61ae38a849f80472c01969272bc") (:keywords "convenience") (:authors ("Nicolas Petton" . "petton.nicolas@gmail.com")) (:maintainer "Nicolas Petton" . "petton.nicolas@gmail.com"))]) (noaa . [(20181120 2017) ((request (0 2 0)) (cl-lib (0 5)) (emacs (24)) (dash (2 14 1))) "Get NOAA weather data" single ((:commit . "0ee07ec1b4b6314d4641773acf056b5b1c794237") (:authors ("David Thompson")) (:maintainer "David Thompson") (:url . "https://github.com/thomp/noaa"))]) (no-littering . [(20181030 1247) ((cl-lib (0 5))) "help keeping ~/.emacs.d clean" single ((:commit . "b9c8dcfd5d0757aeca2fb772ff233cd6f1fd75db") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacscollective/no-littering"))]) (no-emoji . [(20180515 1837) ((emacs (24))) "Show :emoji-name: instead of emoji characters" single ((:commit . "ebceeab50dbfe4d60235180a57633745dbc18c77") (:keywords "extensions") (:authors ("Peter" . "craven@gmx.net")) (:maintainer "Peter" . "craven@gmx.net") (:url . "https://github.com/ecraven/no-emoji"))]) (nnir-est . [(20180710 2103) nil "Gnus nnir interface for HyperEstraier" single ((:commit . "6d0d5c8e33f4e4ccbc22350324c0990d2676fb5a") (:keywords "mail") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/nnir-est"))]) (nm . [(20151110 1910) ((notmuch (0 21)) (peg (0 6)) (company (0)) (emacs (24 3))) "NEVERMORE: an email interface for Notmuch" tar ((:commit . "5a3f29174b3a4b2b2e7a700a862f3b16a942687e") (:authors ("Trevor Jim")) (:maintainer "Trevor Jim") (:url . "https://github.com/tjim/nevermore"))]) (nlinum-relative . [(20160526 708) ((emacs (24 4)) (nlinum (1 5))) "Relative line number with nlinum" single ((:commit . "5b9950c97ba79a6f0683e38b13da23f39e01031c") (:keywords "convenience") (:authors ("codefalling" . "code.falling@gmail.com")) (:maintainer "codefalling" . "code.falling@gmail.com"))]) (nlinum-hl . [(20170614 48) ((emacs (24 4)) (nlinum (1 7)) (cl-lib (0 5))) "heal nlinum's line numbers" single ((:commit . "d5ca1490e0cde0605e34a6a17de8cc236c9810da") (:keywords "nlinum" "highlight" "current" "line" "faces") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-nlinum-hl"))]) (nixos-options . [(20160209 1841) ((emacs (24))) "Interface for browsing and completing NixOS options." single ((:commit . "45c8d90748304c90e1503c9fa8db0443f3d4bd89") (:keywords "unix") (:authors ("Diego Berrocal" . "cestdiego@gmail.com") ("Travis B. Hartwell" . "nafai@travishartwell.net")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "http://www.github.com/travisbhartwell/nix-emacs/"))]) (nix-update . [(20180425 48) ((emacs (25))) "Update \"fetch\" blocks in .nix expressions" single ((:commit . "d92b2c190dbaeb16751be724fe381f8a796c424c") (:keywords "nix") (:authors ("John Wiegley" . "johnw@newartisans.com")) (:maintainer "John Wiegley" . "johnw@newartisans.com") (:url . "https://github.com/jwiegley/nix-update-el"))]) (nix-sandbox . [(20171004 1706) ((dash (2 12 1)) (s (1 10 0))) "Utility functions to work with nix-shell sandboxes" single ((:commit . "45c8d90748304c90e1503c9fa8db0443f3d4bd89") (:authors ("Sven Keidel" . "svenkeidel@gmail.com")) (:maintainer "Sven Keidel" . "svenkeidel@gmail.com") (:url . "https://github.com/travisbhartwell/nix-emacs"))]) (nix-mode . [(20181120 2253) ((emacs (24 3))) "Major mode for editing .nix files" tar ((:commit . "90ac0a74b205f11dc456676b6dbefc5072e7eb6c") (:keywords "nix" "languages" "tools" "unix") (:maintainer "Matthew Bauer" . "mjbauer95@gmail.com") (:url . "https://github.com/NixOS/nix-mode"))]) (nix-buffer . [(20180212 1518) ((f (0 17 3)) (emacs (24 4))) "Set up buffer environments with nix" single ((:commit . "db57cda36e7477bdc7ef5a136357b971b1d4d099") (:authors ("Shea Levy")) (:maintainer "Shea Levy") (:url . "https://github.com/shlevy/nix-buffer/tree/master/"))]) (ninja-mode . [(20181024 1439) ((emacs (24))) "Major mode for editing .ninja files" single ((:commit . "5a78423193c48cae4800eb1ec44b62d14ae03920"))]) (nimbus-theme . [(20181109 1214) nil "An awesome dark theme" single ((:commit . "e1fbbb5644c0ef5cd070f958ca17f4e5978c2ab6") (:keywords "faces") (:authors ("Marcin Swieczkowski" . "scatman@bu.edu")) (:maintainer "Marcin Swieczkowski" . "scatman@bu.edu") (:url . "https://github.com/m-cat/nimbus-theme"))]) (nim-mode . [(20181028 1713) ((emacs (24 4)) (epc (0 1 1)) (let-alist (1 0 1)) (commenter (0 5 1)) (flycheck-nimsuggest (0 8 1))) "A major mode for the Nim programming language" tar ((:commit . "2acb601e6b3bf81f2fe29cfa1f3967e81bd12564") (:keywords "nim" "languages") (:authors ("Simon Hafner")) (:maintainer "Simon Hafner" . "hafnersimon@gmail.com"))]) (nikola . [(20170703 2021) ((async (1 5)) (emacs (24 3))) "Simple wrapper for nikola" single ((:commit . "964715ac30943c9d6976999cad208dc60d09def0") (:keywords ":" "nikola") (:authors (": drymer <drymer [ AT ] autistici.org>")) (:maintainer ": drymer <drymer [ AT ] autistici.org>") (:url . ": https://git.daemons.it/drymer/nikola.el"))]) (night-owl-theme . [(20180630 2131) ((emacs (24))) "A color theme for the night owls out there" single ((:commit . "6c73732986015c6a36919f16096d5e4f81b516ad") (:authors ("Aaron Jensen" . "aaronjensen@gmail.com")) (:maintainer "Aaron Jensen" . "aaronjensen@gmail.com") (:url . "http://github.com/aaronjensen/night-owl-theme"))]) (niconama . [(20170910 1501) ((emacs (24)) (request (20170131 1747)) (cl-lib (0 5))) "Tools for Niconico Live Broadcast" single ((:commit . "96e7553e50e6bf7b58aac50f52c9b0b8edb41c56") (:keywords "comm") (:url . "https://github.com/NOBUTOKA/niconama.el"))]) (niceify-info . [(20160416 1244) nil "improve usability of Info pages" single ((:commit . "38df5062bc3b99d1074cab3e788b5ed66732111c"))]) (nginx-mode . [(20170612 437) nil "major mode for editing nginx config files" single ((:commit . "a2bab83c2eb233d57d76b236e7c141c2ccc97005") (:keywords "languages" "nginx") (:authors ("Andrew J Cosgriff" . "andrew@cosgriff.name")) (:maintainer "Andrew J Cosgriff" . "andrew@cosgriff.name"))]) (ng2-mode . [(20180920 12) ((typescript-mode (0 1))) "Major modes for editing Angular 2" tar ((:commit . "db55c94c6697ca0e99d6713218bd8f47d2d374e3") (:keywords "typescript" "angular" "angular2" "template") (:authors ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainer "Adam Niederer" . "adam.niederer@gmail.com") (:url . "http://github.com/AdamNiederer/ng2-mode"))]) (nexus . [(20140114 1305) nil "REST Client for Nexus Maven Repository servers" tar ((:commit . "c46f499951b90839aa8683779fe43d8f01672a60") (:keywords "comm") (:authors ("Juergen Hoetzel" . "juergen@archlinux.org")) (:maintainer "Juergen Hoetzel" . "juergen@archlinux.org"))]) (newlisp-mode . [(20160226 1545) nil "newLISP editing mode for Emacs" single ((:commit . "ac23be40c81a360988ab803d365f1510733f6db4") (:keywords "language" "lisp" "newlisp") (:authors ("KOBAYASHI Shigeru <shigeru.kb[at]gmail.com>")) (:maintainer "KOBAYASHI Shigeru <shigeru.kb[at]gmail.com>") (:url . "https://github.com/kosh04/newlisp-mode"))]) (never-comment . [(20140104 2207) nil "Never blocks are comment" single ((:commit . "74ded8f1e7f23240f5f6032d0451fb0a51733bc4") (:authors ("Scott Frazer")) (:maintainer "Toon Claes") (:url . "http://stackoverflow.com/a/4554658/89376"))]) (network-watch . [(20171123 1146) ((emacs (24 3))) "Support for intermittent network connectivity" single ((:commit . "958dd0d419e4f9402648a86b754091ba346e01b8") (:keywords "unix" "tools" "hardware" "lisp") (:authors ("Juan Amiguet Vercher" . "jamiguet@gmail.com")) (:maintainer "Juan Amiguet Vercher" . "jamiguet@gmail.com") (:url . "https://github.com/jamiguet/network-watch"))]) (netrunner . [(20160910 2332) ((popup (0 5 3)) (company (0 9 0)) (helm (1 9 5))) "Create Android: Netrunner decklists using Company, Helm and org-mode" single ((:commit . "c64672992175c8c1073c0f56c2e471839db71a0f") (:keywords "games") (:authors ("Erik Sjöstrand")) (:maintainer "Erik Sjöstrand") (:url . "http://github.com/Kungsgeten/netrunner"))]) (netherlands-holidays . [(20150202 1617) nil "Netherlands holidays for Emacs calendar." single ((:commit . "26236178cdd650df9958bf5a086e184096559f00") (:keywords "calendar") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/netherlands-holidays"))]) (netease-music . [(20181028 1254) ((names (0 5)) (emacs (25))) "listen netease music" single ((:commit . "31c31cff44d2889c0456ac11d5d38227f15f03b6") (:keywords "multimedia" "chinese" "music") (:authors ("hiro方圆" . "wfy11235813@gmail.com")) (:maintainer "hiro方圆" . "wfy11235813@gmail.com") (:url . "https://github.com/nicehiro/netease-music"))]) (nerdtab . [(20180811 339) ((emacs (24 5))) "Keyboard-oriented tabs" single ((:commit . "74ccc14d7956712e477a34b4a733284e8b3832a6") (:keywords "convenience") (:authors ("Yuan Fu" . "casouri@gmail.com")) (:maintainer "Yuan Fu" . "casouri@gmail.com") (:url . "https://github.com/casouri/nerdtab"))]) (neotree . [(20181120 2232) ((cl-lib (0 5))) "A tree plugin like NerdTree for Vim" tar ((:commit . "f66e8be792af2bd1cc28308fda2901e2f4d02c91") (:authors ("jaypei" . "jaypei97159@gmail.com")) (:maintainer "jaypei" . "jaypei97159@gmail.com") (:url . "https://github.com/jaypei/emacs-neotree"))]) (neon-mode . [(20180406 1156) nil "Simple major mode for editing neon files" single ((:commit . "99d15e46beaf1e7d71e39a00cce810df1f33229d") (:keywords "conf") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (nemerle . [(20161029 2023) nil "major mode for editing nemerle programs" single ((:commit . "6904f590bf8b25a97838c6733dd2e53bd68467fd") (:keywords "nemerle" "mode" "languages") (:authors ("Jacek Sliwerski (rzyjontko)" . "rzyj@o2.pl")) (:maintainer "Jacek Sliwerski (rzyjontko)" . "rzyj@o2.pl"))]) (neato-graph-bar . [(20171231 153) ((emacs (24 3))) "Neat-o graph bars CPU/memory etc." single ((:commit . "c59f15ed9a40aecc174aa22c4bbfa7978e182705") (:authors ("Robert Cochran" . "robert-git@cochranmail.com")) (:maintainer "Robert Cochran" . "robert-git@cochranmail.com") (:url . "https://gitlab.com/RobertCochran/neato-graph-bar"))]) (nclip . [(20130617 2015) nil "Network (HTTP) Clipboard" tar ((:commit . "af88e38b1f04be02bf2e57affc662dbd0f828e67") (:keywords "nclip" "clipboard" "network") (:authors ("Marian Schubert" . "marian.schubert@gmail.com")) (:maintainer "Marian Schubert" . "marian.schubert@gmail.com") (:url . "http://www.github.com/maio/nclip.el"))]) (ncl-mode . [(20180129 703) ((emacs (24))) "Major Mode for editing NCL scripts and other goodies" tar ((:commit . "602292712a9e6b7e7c25155978999e77d06b7338"))]) (navorski . [(20141203 1824) ((s (1 9 0)) (dash (1 5 0)) (multi-term (0 8 14))) "Helping you live in the terminal, like Viktor did." single ((:commit . "698c1c62da70164aebe9a7a5d034778fbc30ea5b") (:keywords "terminal") (:authors ("Roman Gonzalez <romanandreg@gmail.com>, Tavis Rudd" . "tavis@birdseye-sw.com")) (:maintainer "Roman Gonzalez" . "romanandreg@gmail.com"))]) (navi2ch . [(20150330 216) nil "Navigator for 2ch for Emacsen" tar ((:commit . "f39d93c32acd5b9c3a7fb1a9fe14c5e1c4b5288e") (:keywords "network" "2ch") (:authors ("Taiki SUGAWARA" . "taiki@users.sourceforge.net")) (:maintainer "Taiki SUGAWARA" . "taiki@users.sourceforge.net"))]) (navi-mode . [(20180516 248) ((outshine (2 0)) (outorg (2 0))) "major-mode for easy buffer-navigation" single ((:commit . "7c3fd1a9b520300abfdb1b7c3de21403e81a95bf") (:maintainer "Adam Porter") (:url . "https://github.com/alphapapa/navi"))]) (nav-flash . [(20140508 2041) nil "Briefly highlight the current line" single ((:commit . "53f5bc59e3f32c1192d15637d3979732dacb2c35") (:keywords "extensions" "navigation" "interface") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/nav-flash"))]) (nav . [(20120507 707) nil "Emacs mode for filesystem navigation" tar ((:commit . "c5eb234c063f435dbdcd1f8bdc46cfc68c973ebe") (:authors ("Issac Trotts" . "issactrotts@google.com")) (:maintainer "Issac Trotts" . "issactrotts@google.com"))]) (nasm-mode . [(20180711 1909) ((emacs (24 3))) "NASM x86 assembly major mode" single ((:commit . "1d4871ef184fc5da792bccbae1ea189f876706fc") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/nasm-mode"))]) (nash-mode . [(20160830 1212) nil "Nash major mode" single ((:commit . "2cd96535eb7d669a94306183e95ee37333872c1a") (:keywords "nash" "languages") (:authors ("Tiago Natel de Moura")) (:maintainer "Tiago Natel de Moura") (:url . "https://github.com/tiago4orion/nash-mode.el"))]) (narrowed-page-navigation . [(20150109 519) ((emacs (24)) (cl-lib (0 5))) "A minor mode for showing one page at a time" single ((:commit . "b215adbac4873f56fbab65772062f0f5be8058a1") (:keywords "outlines") (:authors ("David Raymond Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Raymond Christiansen" . "david@davidchristiansen.dk"))]) (narrow-reindent . [(20150722 1906) ((emacs (24 4))) "Defines a minor mode to left-align narrowed regions." single ((:commit . "87466aac4dbeb79597124dd077bf5c704872fd3d") (:authors ("J David Smith" . "emallson@atlanis.net")) (:maintainer "J David Smith" . "emallson@atlanis.net") (:url . "https://github.com/emallson/narrow-reindent.el"))]) (naquadah-theme . [(20180212 1240) nil "A theme based on Tango color set" single ((:commit . "999056526db5095ce600c83672fc80cb744bd93e"))]) (nanowrimo . [(20151105 228) nil "Track progress for nanowrimo" single ((:authors ("Ivan Andrus <darthandrus at gmail.com>")) (:maintainer "Ivan Andrus <darthandrus at gmail.com>") (:url . "https://bitbucket.org/gvol/nanowrimo-mode"))]) (nand2tetris-assembler . [(20171201 1813) ((nand2tetris (1 1 0))) "Assembler For the Nand2tetris Course" single ((:commit . "33acee34d24b1c6a87db833b7d23449cf858f64f") (:keywords "nand2tetris-assembler" "hdl") (:authors ("Diego Berrocal" . "cestdiego@gmail.com")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "http://www.github.com/CestDiego/nand2tetris-assembler.el/"))]) (nand2tetris . [(20171201 1813) ((emacs (24))) "Major mode for HDL files in the nand2tetris course" tar ((:commit . "33acee34d24b1c6a87db833b7d23449cf858f64f") (:keywords "nand2tetris" "hdl") (:authors ("Diego Berrocal" . "cestdiego@gmail.com")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "http://www.github.com/CestDiego/nand2tetris.el/"))]) (namespaces . [(20130326 2250) nil "An implementation of namespaces for Elisp, with an emphasis on immutabilty." single ((:commit . "3d02525d9b9a5ae6e7be3adefd880121436e6270") (:authors ("Chris Barrett")) (:maintainer "Chris Barrett") (:url . "https://github.com/chrisbarrett/elisp-namespaces"))]) (names . [(20180321 1155) ((emacs (24 1)) (cl-lib (0 5))) "Namespaces for emacs-lisp. Avoid name clobbering without hiding symbols." tar ((:commit . "d8baba5360e5253938a25d3e005455b6d2d86971") (:keywords "extensions" "lisp") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/names"))]) (nameless . [(20180215 2221) ((emacs (24 4))) "Hide package namespace in your emacs-lisp code" single ((:commit . "3cd4ade5433c8e2041dfff9d9624d9e676d9c5ee") (:keywords "convenience" "lisp") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/nameless"))]) (nameframe-projectile . [(20160928 403) ((nameframe (0 4 1 -2)) (projectile (0 13 0))) "Nameframe integration with Projectile" single ((:commit . "aafb8c5c5fbe0510e2f5d5b6b6b5dd0b73abe5d8") (:authors ("John Del Rosario" . "john2x@gmail.com")) (:maintainer "John Del Rosario" . "john2x@gmail.com") (:url . "https://github.com/john2x/nameframe"))]) (nameframe-perspective . [(20170406 119) ((nameframe (0 4 1 -2)) (perspective (1 12))) "Nameframe integration with perspective.el" single ((:commit . "aafb8c5c5fbe0510e2f5d5b6b6b5dd0b73abe5d8") (:authors ("John Del Rosario" . "john2x@gmail.com")) (:maintainer "John Del Rosario" . "john2x@gmail.com") (:url . "https://github.com/john2x/nameframe"))]) (nameframe . [(20171107 56) nil "Manage frames by name." single ((:commit . "aafb8c5c5fbe0510e2f5d5b6b6b5dd0b73abe5d8") (:authors ("John Del Rosario" . "john2x@gmail.com")) (:maintainer "John Del Rosario" . "john2x@gmail.com") (:url . "https://github.com/john2x/nameframe"))]) (name-this-color . [(20151014 2030) ((emacs (24)) (cl-lib (0 5)) (dash (2 11 0))) "Match RGB codes to names easily and precisely" single ((:commit . "e37cd1291d5d68d4c8d6386eab9cb9d94fd3bcfa") (:keywords "lisp" "color" "hex" "rgb" "shade" "name") (:url . "https://github.com/knl/name-this-color.el"))]) (n4js . [(20150714 231) ((emacs (24)) (cypher-mode (0))) "Neo4j Shell" single ((:commit . "3991ed8975151d5e8d568e952362df810f7ffab7") (:keywords "neo4j" "shell" "comint") (:authors ("TruongTx" . "me@truongtx.me")) (:maintainer "TruongTx" . "me@truongtx.me") (:url . "https://github.com/tmtxt/n4js.el"))]) (myterminal-controls . [(20170426 236) ((emacs (24)) (cl-lib (0 5))) "Quick toggle controls at a key-stroke" single ((:commit . "aae4f50f9f22d374eaaac2ce95e522f13dcc8fc0") (:keywords "convenience" "shortcuts") (:authors ("Mohammed Ismail Ansari" . "team.terminal@gmail.com")) (:maintainer "Mohammed Ismail Ansari" . "team.terminal@gmail.com") (:url . "http://ismail.teamfluxion.com"))]) (mysql2sqlite . [(20170725 2216) nil "Convert mysql databases into sqlite databases." single ((:commit . "8e6e74451c942e2e92f90dc13222b95a7dbb285e"))]) (mysql-to-org . [(20181012 2034) ((emacs (24 3)) (s (1 11 0))) "Minor mode to output the results of mysql queries to org tables" single ((:commit . "7c986065adcbe13a525e1da5db8aa4c80b0ef7a3") (:authors ("Tijs Mallaerts" . "tijs.mallaerts@gmail.com")) (:maintainer "Tijs Mallaerts" . "tijs.mallaerts@gmail.com"))]) (mynt-mode . [(20150512 2049) ((virtualenvwrapper (20131514))) "Minor mode to work with the mynt static site generator" single ((:commit . "23d4489167bfa899634548cb41ed32fdeb3600c9") (:keywords "convenience") (:authors ("Christian Brassat")) (:maintainer "Christian Brassat") (:url . "https://github.com/crshd/mynt-mode"))]) (mykie . [(20150808 2205) ((emacs (24 3)) (cl-lib (0 5))) "Command multiplexer: Register multiple functions to a keybind" tar ((:commit . "7676f0e883af1d1054e404e97691f3c13aba196f") (:keywords "emacs" "configuration" "keybind") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/mykie-el"))]) (myanmar-input-methods . [(20160106 1537) nil "Emacs Input Method for Myanmar" single ((:commit . "9d4e0d6358c61bde7a2274e430ef71683faea32e") (:keywords "myanmar" "unicode" "keyboard") (:authors ("Ye Lin Kyaw" . "yelinkyaw@gmail.com")) (:maintainer "Ye Lin Kyaw" . "yelinkyaw@gmail.com") (:url . "http://github.com/yelinkyaw/emacs-myanmar-input-methods"))]) (mxf-view . [(20180501 740) ((emacs (25))) "Simple MXF viewer" single ((:commit . "6ca3cc93d995fac5fc4d72275e1e984e9857ffcb") (:keywords "data" "multimedia") (:authors ("Tomotaka SUWA" . "tomotaka.suwa@gmail.com")) (:maintainer "Tomotaka SUWA" . "tomotaka.suwa@gmail.com") (:url . "https://github.com/t-suwa/mxf-view"))]) (mwim . [(20181110 1900) nil "Switch between the beginning/end of line or code" single ((:commit . "b4f3edb4c0fb8f8b71cecbf8095c2c25a8ffbf85") (:keywords "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/mwim.el"))]) (mw-thesaurus . [(20180629 525) ((emacs (25))) "Merriam-Webster Thesaurus" single ((:commit . "b3f8c3aae2b68a4e6cc054c6c99d3b3135e781d1") (:keywords "wp" "matching") (:authors ("Ag Ibragimov")) (:maintainer "Ag Ibragimov") (:url . "https://github.com/agzam/mw-thesaurus.el"))]) (mvn . [(20181002 1617) nil "helpers for compiling with maven" single ((:commit . "ffa40235b7dabb6c6c165f64f32a963cde8031f0") (:keywords "compilation" "maven" "java") (:authors ("Andrew Gwozdziewycz" . "git@apgwoz.com")) (:maintainer "Andrew Gwozdziewycz" . "git@apgwoz.com") (:url . "https://github.com/apgwoz/mvn-el"))]) (mutant . [(20160124 1353) ((emacs (24 4)) (dash (2 1 0))) "An interface for the Mutant testing tool" single ((:commit . "de9cdefe48c880128a8f62c6699d7416e9c8ced1") (:keywords "mutant" "testing") (:authors ("Pedro Lambert")) (:maintainer "Pedro Lambert") (:url . "http://github.com/p-lambert/mutant.el"))]) (mustard-theme . [(20170808 1319) ((emacs (24 0))) "an Emacs 24 theme based on Mustard (tmTheme)" single ((:commit . "3b15d992c79590d7ea2503004e2a863b57e274b5") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (mustang-theme . [(20170719 946) nil "port of vim's mustang theme" single ((:commit . "dda6d04803f1c9b196b620ef564e7768fee15de2") (:authors ("martin haesler")) (:maintainer "martin haesler") (:url . "http://github.com/mswift42/mustang-theme"))]) (mustache-mode . [(20141024 1432) nil "A major mode for editing Mustache files." single ((:commit . "bf9897eb287ca47ced65d7d4e07ea61ea0aec39f") (:authors ("Tony Gentilcore") ("Chris Wanstrath") ("Daniel Hackney")) (:maintainer "Tony Gentilcore"))]) (mustache . [(20170923 1233) ((ht (0 9)) (s (1 3 0)) (dash (1 2 0))) "a mustache templating library in emacs lisp" tar ((:commit . "5e39654b933a18131146a0f3b3e3dc55c5058124"))]) (multitran . [(20181107 1414) ((emacs (24)) (cl-lib (0 5))) "Interface to multitran" single ((:commit . "9e10b29c4e7cc64736a832649fa9fad8781fc65f") (:keywords "dictionary" "hypermedia") (:authors ("Zajcev Evgeny" . "zevlg@yandex.ru")) (:maintainer "Zajcev Evgeny" . "zevlg@yandex.ru"))]) (multiple-cursors . [(20180913 1237) ((cl-lib (0 5))) "Multiple cursors for Emacs." tar ((:commit . "6a7c3c0853e3fe9e4b8e5985dbed8fd4075f33ff"))]) (multifiles . [(20130615 2133) nil "View and edit parts of multiple files in one buffer" single ((:commit . "dddfe64b8e1c1cd1f9ccc1f03405477fc0d53897") (:keywords "multiple" "files") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (multicolumn . [(20150202 2251) nil "Creating and managing multiple side-by-side windows." single ((:commit . "c7a3afecd470859b2e60aa7c554d6e4d436df7fa") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/multicolumn"))]) (multi-web-mode . [(20130824 354) nil "multiple major mode support for web editing" tar ((:commit . "ad1c8d1c870334052d244c7ae3636cb7b9357b7c") (:keywords "convenience" "languages" "wp") (:authors ("Fabián E. Gallina" . "fabian@anue.biz")) (:maintainer "Fabián E. Gallina" . "fabian@anue.biz") (:url . "https://github.com/fgallina/multi-web-mode"))]) (multi-term . [(20160619 933) nil "Managing multiple terminal buffers in Emacs." single ((:commit . "f954e4e18b0a035151d34852387e724d87a3316f") (:keywords "term" "terminal" "multiple buffer") (:authors ("Andy Stewart" . "lazycat.manatee@gmail.com")) (:maintainer "Andy Stewart" . "lazycat.manatee@gmail.com") (:url . "http://www.emacswiki.org/emacs/download/multi-term.el"))]) (multi-run . [(20181118 2314) ((emacs (24)) (window-layout (1 4))) "Manage multiple terminals and run commands on them" tar ((:commit . "ce5ce0c56b56a9f47915dd8b83a94db353b548a5") (:keywords "tools" "terminals") (:authors ("Sagar Jha")) (:maintainer "Sagar Jha") (:url . "https://www.github.com/sagarjha/multi-run"))]) (multi-project . [(20171217 2011) ((emacs (25))) "Find files, compile, search, and switch between" single ((:keywords "convenience" "project" "management") (:authors ("Shawn Ellis" . "shawn.ellis17@gmail.com")) (:maintainer "Shawn Ellis" . "shawn.ellis17@gmail.com") (:url . "https://bitbucket.org/ellisvelo/multi-project/overview"))]) (multi-line . [(20170822 226) ((emacs (24 3)) (s (1 9 0)) (cl-lib (0 5)) (dash (2 12 0)) (shut-up (0 3 2))) "multi-line statements" tar ((:commit . "d5ae863ced0adeb7032ada398005f27a6c669d79") (:keywords "multi" "line" "length" "whitespace" "programming" "tools" "convenience" "files") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/multi-line"))]) (multi-compile . [(20160306 2223) ((emacs (24)) (dash (2 12 1))) "Multi target interface to compile." single ((:commit . "bd0331854774e7a269ce8a7dd49580cd397c0ec2") (:keywords "tools" "compile" "build") (:authors ("Kvashnin Vladimir" . "reangd@gmail.com")) (:maintainer "Kvashnin Vladimir" . "reangd@gmail.com") (:url . "https://github.com/ReanGD/emacs-multi-compile"))]) (multi . [(20131013 1544) ((emacs (24))) "Clojure-style multi-methods for emacs lisp" single ((:commit . "0987ab71692717ed457cb3984de184db9185806d") (:keywords "multimethod" "generic" "predicate" "dispatch") (:authors ("Christina Whyte" . "kurisu.whyte@gmail.com")) (:maintainer "Christina Whyte" . "kurisu.whyte@gmail.com") (:url . "http://github.com/kurisuwhyte/emacs-multi"))]) (muban . [(20180415 1219) ((emacs (25))) "Lightweight template expansion tool" single ((:commit . "7078e439ee0433a8fbd1cb174464496f9a9d00fa") (:keywords "abbrev" "tools") (:authors ("Jiahao Li" . "jiahaowork@gmail.com")) (:maintainer "Jiahao Li" . "jiahaowork@gmail.com") (:url . "https://github.com/jiahaowork/muban.el"))]) (mu4e-query-fragments . [(20170923 1322) ((emacs (24 4))) "mu4e query fragments extension" single ((:commit . "34ddad4e6785f575333efcc66153d892daa1c884") (:keywords "mu4e" "mail" "convenience") (:authors ("Yuri D'Elia" . "wavexx@thregr.org")) (:maintainer "Yuri D'Elia" . "wavexx@thregr.org") (:url . "https://github.com/wavexx/mu4e-query-fragments.el"))]) (mu4e-maildirs-extension . [(20180606 812) ((dash (0 0 0))) "Show mu4e maildirs summary in mu4e-main-view" single ((:commit . "3ef4c48516be66e73d24fe764aadbcfc126b7964") (:authors ("Andreu Gil Pàmies" . "agpchil@gmail.com")) (:maintainer "Andreu Gil Pàmies" . "agpchil@gmail.com") (:url . "http://github.com/agpchil/mu4e-maildirs-extension"))]) (mu4e-jump-to-list . [(20180425 1832) ((emacs (24 4)) (cl-lib (0 5))) "mu4e jump-to-list extension" single ((:commit . "e336ffe84b55edaaf4e48040d4d9156a9f4c881e") (:keywords "mu4e" "mail" "convenience") (:authors ("Yuri D'Elia" . "wavexx@thregr.org")) (:maintainer "Yuri D'Elia" . "wavexx@thregr.org") (:url . "https://github.com/wavexx/mu4e-jump-to-list.el"))]) (mu4e-conversation . [(20181105 1722) ((emacs (25 1))) "Show a complete thread in a single buffer" single ((:commit . "54368a009474276247bdf39683e25ea68ae1f943") (:keywords "mail" "convenience" "mu4e") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainer "Pierre Neidhardt" . "mail@ambrevar.xyz") (:url . "https://gitlab.com/Ambrevar/mu4e-conversation"))]) (mu4e-alert . [(20180305 646) ((alert (1 2)) (s (1 10 0)) (ht (2 0)) (emacs (24 3))) "Desktop notification for mu4e" single ((:commit . "96a293b28646f4620e257f24748becc4a06843cd") (:keywords "mail" "convenience") (:authors ("Iqbal Ansari" . "iqbalansari02@yahoo.com")) (:maintainer "Iqbal Ansari" . "iqbalansari02@yahoo.com") (:url . "https://github.com/iqbalansari/mu4e-alert"))]) (mu-cite . [(20160130 1100) ((flim (1 14 9))) "A library to provide MIME features." tar ((:commit . "aea3c2d01eb3284d5e0124059d368e8c6b6ffddc"))]) (mtg-deck-mode . [(20180613 2010) ((emacs (25 1))) "Major mode to edit MTG decks" tar ((:commit . "8265b8ed17fcd4406760c19aa6ee9c76068b1ab0") (:keywords "data" "mtg" "magic") (:authors ("Mattias Bengtsson" . "mattias.jc.bengtsson@gmail.com")) (:maintainer "Mattias Bengtsson" . "mattias.jc.bengtsson@gmail.com") (:url . "https://github.com/mattiasb/mtg-deck-mode"))]) (msvc . [(20171225 1538) ((emacs (24)) (cl-lib (0 5)) (cedet (1 0)) (ac-clang (2 0 0))) "Microsoft Visual C/C++ mode" tar ((:commit . "dfc529aa6da8b46b0a0c7db9a0e5e9bc33ab1fb3") (:keywords "languages" "completion" "syntax check" "mode" "intellisense") (:authors ("yaruopooner [https://github.com/yaruopooner]")) (:maintainer "yaruopooner [https://github.com/yaruopooner]") (:url . "https://github.com/yaruopooner/msvc"))]) (mqtt-mode . [(20180605 1731) ((emacs (25)) (dash (2 12 0))) "client for interaction with MQTT servers" single ((:commit . "36d1d4296d79e17b8f35e8e14f2708980eb502db") (:keywords "tools") (:authors ("Andreas Müller" . "code@0x7.ch")) (:maintainer "Andreas Müller" . "code@0x7.ch") (:url . "https://github.com/andrmuel/mqtt-mode"))]) (mqr . [(20180527 1204) ((emacs (24 4))) "Multi-dimensional query and replace" single ((:commit . "4ade19d4620b8b61340290bf63fa56d5e493859f") (:keywords "convenience" "extensions" "lisp") (:authors ("Tino Calancha" . "tino.calancha@gmail.com")) (:maintainer "Tino Calancha" . "tino.calancha@gmail.com") (:url . "https://github.com/calancha/multi-replace"))]) (mpv . [(20180602 1014) ((cl-lib (0 5)) (emacs (24)) (json (1 3)) (org (8 0))) "control mpv for easy note-taking" single ((:commit . "9dedf3b7c1bfd778284df7f394207ce0447ea7aa") (:keywords "tools" "multimedia") (:authors ("Johann Klähn" . "kljohann@gmail.com")) (:maintainer "Johann Klähn" . "kljohann@gmail.com") (:url . "https://github.com/kljohann/mpv.el"))]) (mpmc-queue . [(20180303 2029) ((emacs (26 0)) (queue (0 2 0))) "a multiple-producer-multiple-consumer queue" single ((:commit . "df07d6bef7468edb1d73ef73b8331b94d0e5d0ca") (:keywords "lisp" "async") (:authors ("Sho Mizoe" . "sho.mizoe@gmail.com")) (:maintainer "Sho Mizoe" . "sho.mizoe@gmail.com") (:url . "https://github.com/smizoe/mpmc-queue"))]) (mpdel . [(20181018 1208) ((emacs (25 1)) (libmpdel (0 7 0))) "Play and control your MPD music" tar ((:commit . "b9ada1670d6c104ebee3d186977a09b0aaca0d5e") (:keywords "multimedia") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://gitlab.petton.fr/mpdel/mpdel"))]) (mpages . [(20150710 1404) nil "An Emacs buffer for quickly writing your Morning Pages" single ((:commit . "39a72a0931ab1cdbfdf0ab9f412dc12d43a3829f") (:authors ("Sean Levin")) (:maintainer "Sean Levin") (:url . "https://github.com/slevin/mpages"))]) (mozc-temp . [(20160228 840) ((emacs (24)) (dash (2 10 0)) (mozc (0))) "Use mozc temporarily" single ((:commit . "01f09b6c0b308e9f7057fb2aa80171e2ce328bb8") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com") (:url . "https://github.com/HKey/mozc-temp"))]) (mozc-popup . [(20150224 34) ((popup (0 5 2)) (mozc (0))) "Mozc with popup" single ((:commit . "f0684b875a7427ec08f8df13939a486e5d5cf420") (:keywords "i18n" "extentions") (:authors ("Daisuke Kobayashi" . "d5884jp@gmail.com")) (:maintainer "Daisuke Kobayashi" . "d5884jp@gmail.com"))]) (mozc-im . [(20160412 22) ((mozc (0))) "Mozc with input-method-function interface." single ((:commit . "df614a1076c28a11551fb3e822868bae47e855a5") (:keywords "i18n" "extentions") (:authors ("Daisuke Kobayashi" . "d5884jp@gmail.com")) (:maintainer "Daisuke Kobayashi" . "d5884jp@gmail.com"))]) (mozc . [(20180101 800) nil "minor mode to input Japanese with Mozc" single ((:commit . "afb03ddfe72dde4cf2409863a3bfea160f7a66d8") (:keywords "mule" "multilingual" "input method"))]) (moz-controller . [(20151209 206) ((moz (0))) "Control Firefox from Emacs" single ((:commit . "46f665c03574fa922de767fc29795e0db4a7c5c6") (:authors ("任文山 (Ren Wenshan) <renws1990 at gmail.com>")) (:maintainer "任文山 (Ren Wenshan) <renws1990 at gmail.com>") (:url . "https://github.com/RenWenshan/emacs-moz-controller"))]) (moz . [(20150805 1706) nil "Lets current buffer interact with inferior mozilla." single ((:commit . "ab3e79914445039ceb62f7f2dc342358fec3492e") (:authors ("Massimiliano Mirra, <bard [at] hyperstruct [dot] net>")) (:maintainer "Massimiliano Mirra, <bard [at] hyperstruct [dot] net>") (:url . "http://github.com/bard/mozrepl/raw/master/chrome/content/moz.el"))]) (mowedline . [(20161122 235) nil "elisp utilities for using mowedline" single ((:commit . "6121b7d4aacd18f7b24da226e61dbae054e50a7c") (:authors ("John Foerch" . "jjfoerch@earthlink.net")) (:maintainer "John Foerch" . "jjfoerch@earthlink.net"))]) (move-text . [(20170909 330) nil "Move current line or region with M-up or M-down." single ((:commit . "7cbc941a9150468609010a93c429117da2523903") (:keywords "edit") (:authors ("Jason Milkins" . "jasonm23@gmail.com")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com") (:url . "https://github.com/emacsfodder/move-text"))]) (move-dup . [(20180531 1237) nil "Eclipse-like moving and duplicating lines or rectangles." single ((:commit . "24e5b6d7222cbe2437c602f1af37d5807569961a") (:keywords "convenience" "text" "edit") (:authors ("Jimmy Yuen Ho Wong" . "wyuenho@gmail.com")) (:maintainer "Jimmy Yuen Ho Wong" . "wyuenho@gmail.com") (:url . "https://github.com/wyuenho/move-dup"))]) (mouse-slider-mode . [(20161021 1914) ((emacs (24 3)) (cl-lib (0 3))) "scale numbers dragged under the mouse" single ((:commit . "b3c19cd231edecce76787c5a9bbe5e4046d91f88") (:authors ("Christopher Wellons" . "mosquitopsu@gmail.com")) (:maintainer "Christopher Wellons" . "mosquitopsu@gmail.com") (:url . "https://github.com/skeeto/mouse-slider-mode"))]) (motion-mode . [(20140920 156) ((flymake-easy (0 7)) (flymake-cursor (1 0 2))) "major mode for RubyMotion enviroment" tar ((:commit . "4c94180e3ecea611a61240a0c0cd48f1032c4a55") (:authors ("Satoshi Namai")) (:maintainer "Satoshi Namai") (:url . "https://github.com/ainame/motion-mode"))]) (mote-mode . [(20160123 29) ((ruby-mode (1 1))) "Mote minor mode" single ((:commit . "666c6641addbd3b337a7aa01fd2742ded2f41b83") (:authors ("Leandro López (inkel)" . "inkel.ar@gmail.com")) (:maintainer "Leandro López (inkel)" . "inkel.ar@gmail.com") (:url . "http://inkel.github.com/mote-mode/"))]) (mosey . [(20180614 1649) ((emacs (24 4))) "Mosey around your buffers" single ((:commit . "2e3ac9d334fa2937ed5267193dfd25d8e1f14dc2") (:keywords "convenience") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/mosey.el"))]) (morlock . [(20180318 2023) nil "more font-lock keywords for elisp" single ((:commit . "b883d48024ddfffebe2d0dd69f5ed54c617f8834") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/morlock"))]) (morganey-mode . [(20170118 934) ((emacs (24 4))) "Major mode for editing Morganey files" single ((:commit . "5cf3870432a2aeb69d373abe63b3be1f325f6d21") (:authors ("Alexey Kutepov" . "reximkut@gmail.com")) (:maintainer "Alexey Kutepov" . "reximkut@gmail.com") (:url . "https://github.com/morganey-lang/morganey-mode"))]) (moonscript . [(20170831 2226) ((cl-lib (0 5)) (emacs (24))) "Major mode for editing MoonScript code" tar ((:commit . "56f90471e2ced2b0a177aed4d8c2f854797e9cc7") (:authors ("@GriffinSchneider, @k2052, @EmacsFodder")) (:maintainer "@GriffinSchneider, @k2052, @EmacsFodder"))]) (moom . [(20180910 438) ((emacs (25 1))) "Commands to control frame position and size" tar ((:commit . "a8820f19a8168ab395ba835872606280ad96916d") (:keywords "frames" "faces" "convenience") (:authors ("Takaaki ISHIKAWA <takaxp at ieee dot org>")) (:maintainer "Takaaki ISHIKAWA <takaxp at ieee dot org>") (:url . "https://github.com/takaxp/Moom"))]) (moody . [(20181014 1447) ((emacs (25 3))) "Tabs and ribbons for the mode line" single ((:commit . "f0cfdcff5946775a22e5b789899269669ba58ecd") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/moody"))]) (monroe . [(20180703 1746) nil "Yet another client for nREPL" single ((:commit . "7eeac4f5127f7d74cd975542a8b901742b682922") (:keywords "languages" "clojure" "nrepl" "lisp") (:authors ("Sanel Zukan" . "sanelz@gmail.com")) (:maintainer "Sanel Zukan" . "sanelz@gmail.com") (:url . "http://www.github.com/sanel/monroe"))]) (monotropic-theme . [(20181015 1230) ((emacs (24))) "Monotropic Theme" single ((:commit . "36df566aa8225e303f6c9d90c00740dd678a415e") (:authors ("caffo")) (:maintainer "caffo") (:url . "https://github.com/caffo/monotropic-theme"))]) (monokai-theme . [(20180730 1329) nil "A fruity color theme for Emacs." single ((:commit . "f4ef092129f4a35edaee0a9b2219c17e86309730") (:authors ("Kelvin Smith" . "oneKelvinSmith@gmail.com")) (:maintainer "Kelvin Smith" . "oneKelvinSmith@gmail.com") (:url . "http://github.com/oneKelvinSmith/monokai-emacs"))]) (monokai-alt-theme . [(20170630 2048) ((emacs (24))) "Theme with a dark background. Based on sublime monokai theme." single ((:commit . "f342b6afc31f929be0626eca2d696ee9fab78011") (:authors ("Dmytro Koval")) (:maintainer "Dmytro Koval") (:url . "https://github.com/dawidof/emacs-monokai-theme"))]) (monochrome-theme . [(20140326 1050) nil "A dark Emacs 24 theme for your focused hacking sessions" tar ((:commit . "bfca67fe7365310bc47ae9ca96c417caada54896") (:authors ("Xavier Noria" . "fxn@hashref.com")) (:maintainer "Xavier Noria" . "fxn@hashref.com"))]) (monky . [(20181120 2337) nil "Control Hg from Emacs." tar ((:commit . "d5e787c153eeb35241c165cfda852d37f8dae562"))]) (monitor . [(20161018 1144) ((dash (2 13 0))) "Utilities for monitoring expressions." tar ((:commit . "63f4643a0ee81616dbb692b8b03bae21df2283e2") (:keywords "lisp" "monitor" "utility") (:authors ("Ben Moon" . "software@guiltydolphin.com")) (:maintainer "Ben Moon" . "software@guiltydolphin.com") (:url . "https://github.com/guiltydolphin/monitor"))]) (mongo . [(20150315 1219) nil "MongoDB driver for Emacs Lisp" tar ((:commit . "595529ddd70ecb9fab8b11daad2c3929941099d6") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))]) (molokai-theme . [(20151016 1545) nil "molokai theme with Emacs theme engine" single ((:commit . "04a44f21184b6a26caae4f2c92db9019d883309c") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/alloy-d/color-theme-molokai"))]) (molecule . [(20180527 743) ((emacs (25 1))) "Simple wrapper for molecule" single ((:commit . "2ef72b81d9aa24ea782b71a061a3abdad6cae162") (:keywords ":" "languages" "terminals") (:authors (": drymer <drymer [ AT ] autistici.org>")) (:maintainer ": drymer <drymer [ AT ] autistici.org>") (:url . "https://git.daemons.it/drymer/molecule.el"))]) (moe-theme . [(20180617 200) nil "A colorful eye-candy theme. Moe, moe, kyun!" tar ((:commit . "ee6d7a1c84ac7a11fcc82dfc3b174eee1c8461fa") (:url . "https://github.com/kuanyui/moe-theme.el"))]) (modtime-skip-mode . [(20140128 2201) nil "Minor mode for disabling modtime and supersession checks on files." single ((:commit . "c0e49523aa26b2263a8693691ac775988015f592") (:authors ("Jordon Biondo" . "biondoj@mail.gvsu.edu")) (:maintainer "Jordon Biondo" . "biondoj@mail.gvsu.edu") (:url . "http://www.github.com/jordonbiondo/modtime-skip-mode"))]) (modern-cpp-font-lock . [(20180110 2031) nil "Font-locking for \"Modern C++\"" single ((:commit . "9b10e1831bac34685be89e32e83ed969c4bac683") (:keywords "languages" "c++" "cpp" "font-lock") (:authors ("Ludwig PACIFICI" . "ludwig@lud.cc")) (:maintainer "Ludwig PACIFICI" . "ludwig@lud.cc") (:url . "https://github.com/ludwigpacifici/modern-cpp-font-lock"))]) (mode-line-debug . [(20180318 2225) nil "show status of `debug-on-error' in the mode-line" single ((:commit . "a0fcc394b07d2414bd6f722da10f1c7567333f6b") (:keywords "convenience" "lisp") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/mode-line-debug"))]) (mode-line-bell . [(20181029 516) nil "Flash the mode line instead of ringing the bell" single ((:commit . "4985ba42f5a19f46ddbf9b3622453a9694995ce5") (:keywords "convenience") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (mode-icons . [(20180910 1504) ((emacs (24)) (cl-lib (0 5))) "Show icons for modes" tar ((:commit . "26138d825cba7e6bd882707a909505d5536acb9b") (:keywords "multimedia") (:authors ("Tom Willemse" . "tom@ryuslash.org")) (:maintainer "Tom Willemse" . "tom@ryuslash.org") (:url . "http://ryuslash.org/projects/mode-icons.html"))]) (modalka . [(20180101 613) ((emacs (24 4))) "Easily introduce native modal editing of your own design" single ((:commit . "9d990341aa13ea27ba4e47ad02b1a9619af22792") (:keywords "modal" "editing") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/modalka"))]) (mocker . [(20150917 154) ((eieio (1 3)) (el-x (0 2 4))) "mocking framework for emacs" single ((:commit . "6a1d7c9189bd721debd1a60707526e43a733f537") (:keywords "lisp" "testing") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Yann Hodique" . "yann.hodique@gmail.com"))]) (mocha-snippets . [(20170104 527) ((yasnippet (0 8 0))) "Yasnippets for the Mocha JS Testing Framework" tar ((:commit . "e054137bd78f0d236e983874da1f345d30a71816") (:keywords "test" "javascript") (:authors ("Charles Lowell" . "cowboyd@frontside.io")) (:maintainer "Charles Lowell" . "cowboyd@frontside.io"))]) (mocha . [(20180321 2322) ((js2-mode (20150909)) (f (0 18))) "Run Mocha or Jasmine tests" single ((:commit . "33e1b521a8a8d0225df353b51f1e8a4588ee32d0") (:keywords "javascript" "mocha" "jasmine") (:authors ("Al Scott")) (:maintainer "Al Scott") (:url . "http://github.com/scottaj/mocha.el"))]) (mobdebug-mode . [(20140110 346) ((lua-mode (20130419)) (emacs (24))) "Major mode for MobDebug" single ((:commit . "e1d483bc4e341c762bc5c0a8c52306a8d01ea0da") (:authors ("Shihpin Tseng" . "deftsp@gmail.com")) (:maintainer "Shihpin Tseng" . "deftsp@gmail.com") (:url . "https://github.com/deftsp/mobdebug-mode"))]) (mo-vi-ment-mode . [(20131029 633) nil "Provide vi-like cursor movement that's easy on the fingers" single ((:commit . "f45b014261f8fab19254920bd1d92f3a83263411") (:keywords "convenience") (:authors ("Ajay MT" . "ajay.tatachar@gmail.com")) (:maintainer "Ajay MT" . "ajay.tatachar@gmail.com"))]) (mo-git-blame . [(20160129 1759) nil "An interactive, iterative 'git blame' mode for Emacs" single ((:commit . "254a675eb794cdbbdef9fa2b4b7bb510b70089c0") (:keywords "tools") (:authors ("Moritz Bunkus" . "moritz@bunkus.org")) (:maintainer "Moritz Bunkus" . "moritz@bunkus.org"))]) (mmt . [(20180101 619) ((emacs (24 1)) (cl-lib (0 3))) "Missing macro tools for Emacs Lisp" single ((:commit . "e860009ce531ee05d2902309db5f804326596b45") (:keywords "macro" "emacs-lisp") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/mmt"))]) (mmm-mako . [(20121020 651) ((mmm-mode (0 4 8))) "MMM submode class for Mako Templates" single ((:authors ("Philip Jenvey" . "pjenvey@underboss.org")) (:maintainer "Philip Jenvey" . "pjenvey@underboss.org") (:url . "https://bitbucket.org/pjenvey/mmm-mako"))]) (mmm-jinja2 . [(20170313 1420) ((mmm-mode (0 5 4))) "MMM submode class for Jinja2 Templates" single ((:commit . "c8cb763174fa2fb61b9a0e5e0ff8cb0210f8492f") (:authors ("Ben Hayden" . "hayden767@gmail.com")) (:maintainer "Ben Hayden" . "hayden767@gmail.com") (:url . "https://github.com/glynnforrest/mmm-jinja2"))]) (mkdown . [(20140517 1418) ((markdown-mode (2 0))) "Pretty Markdown previews based on mkdown.com" tar ((:commit . "8e23de82719af6c5b53b52b3308a02b3a1fb872e") (:keywords "markdown") (:authors ("Andrew Tulloch")) (:maintainer "Andrew Tulloch") (:url . "https://github.com/ajtulloch/mkdown.el"))]) (mixed-pitch . [(20181119 2303) ((emacs (24 3))) "Use a variable pitch, keeping fixed pitch where it's sensible" single ((:commit . "9acced5c7797fe855550d0870e874bbf030169fa") (:authors ("J. Alexander Branham" . "branham@utexas.edu")) (:maintainer "J. Alexander Branham" . "branham@utexas.edu") (:url . "https://gitlab.com/jabranham/mixed-pitch"))]) (mips-mode . [(20180502 1457) nil "Major-mode for MIPS assembly" single ((:commit . "75152fc78baa762af4f83602f6cb3c8b9bcebca3") (:keywords "languages" "mips" "assembly") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-mips-mode"))]) (mip-mode . [(20151127 617) nil "virtual projects for emacs." single ((:commit . "7c88c383b4c7ed0a4c1dc397735f365c1fcb461c") (:keywords "workspaces" "workspace" "project" "projects" "mip-mode") (:authors ("Eeli Reilin" . "gaudecker@fea.st")) (:maintainer "Eeli Reilin" . "gaudecker@fea.st"))]) (minor-mode-hack . [(20170926 34) nil "Change priority of minor-mode keymaps" single ((:commit . "9688994e23ccb2de568225ef125b41c46e5667c3") (:keywords "lisp") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/minor-mode-hack.el"))]) (minizinc-mode . [(20180201 1450) ((emacs (24 1))) "Major mode for MiniZinc code" single ((:commit . "2512521ba7f8e263a06db88df663fc6b3cca7e16") (:keywords "languages" "minizinc") (:url . "http://github.com/m00nlight/minizinc-mode"))]) (minitest . [(20160628 1820) ((dash (1 0 0))) "An Emacs mode for ruby minitest files" tar ((:commit . "1aadb7865c1dc69c201cecee275751ecec33a182") (:authors ("Arthur Neves")) (:maintainer "Arthur Neves") (:url . "https://github.com/arthurnn/minitest-emacs"))]) (minions . [(20181030 2101) ((emacs (25 2)) (dash (2 13 0))) "A minor-mode menu for the mode line" single ((:commit . "d36d2445420460c81bcd4822d0bfcbafaec2c682") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/minions"))]) (minimal-theme . [(20160608 1022) nil "A light/dark minimalistic Emacs 24 theme." tar ((:commit . "430e0d3fc2044c16aa9f10961841febbd60df285") (:keywords "color" "theme" "minimal") (:authors ("Anler Hp <anler86 [at] gmail.com>")) (:maintainer "Anler Hp <anler86 [at] gmail.com>") (:url . "http://github.com/ikame/minimal-theme"))]) (minimal-session-saver . [(20140508 2041) nil "Very lean session saver" single ((:commit . "cf654ac549850746dc21091746e4bcc1aef7668e") (:keywords "tools" "frames" "project") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/minimal-session-saver"))]) (miniedit . [(20100419 1745) nil "Enhanced editing for minibuffer fields." single ((:commit . "e12bf659c3eb92dd8a4cb77642dc0865c54667a3"))]) (minibuffer-cua . [(20130906 1134) nil "Make CUA mode's S-up/S-down work in minibuffer" single ((:commit . "adc4979a64f8b36e05960e9afa0746dfa9e2e4c7") (:keywords "completion" "editing") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/minibuffer-cua.el"))]) (minibuffer-complete-cycle . [(20130813 1645) nil "Cycle through the *Completions* buffer" single ((:commit . "3df80135887d0169e02294a948711f6dfeca4a6f") (:keywords "completion") (:authors ("Akinori MUSHA" . "knu@iDaemons.org") ("Kevin Rodgers" . "ihs_4664@yahoo.com")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/minibuffer-complete-cycle"))]) (minibuf-isearch . [(20151226 1943) nil "incremental search on minibuffer history" single ((:commit . "2846c6ac369ee623dad4cd3c8a7a6d9078965516") (:keywords "minibuffer" "history" "incremental search") (:authors ("Keiichiro Nagano" . "knagano@sodan.org") ("Hideyuki SHIRAI " . "shirai@meadowy.org")) (:maintainer "Keiichiro Nagano" . "knagano@sodan.org"))]) (mini-header-line . [(20170621 1221) ((emacs (24 4))) "a minimal header-line" single ((:commit . "73b6724e0a26c4528d93768191c8aa59e6bce2e5") (:keywords "header-line" "mode-line") (:authors ("Johannes Goslar")) (:maintainer "Johannes Goslar") (:url . "https://github.com/ksjogo/mini-header-line"))]) (mingus . [(20180713 636) ((libmpdee (2 1))) "MPD Interface" tar ((:commit . "686d383f48b196c916c5fcb6ddc3bcff8a0c4b14") (:keywords "multimedia" "elisp" "music" "mpd") (:authors ("Niels Giesen <pft on #emacs>")) (:maintainer "Niels Giesen <pft on #emacs>") (:url . "https://github.com/pft/mingus"))]) (minesweeper . [(20150414 522) nil "play minesweeper in Emacs" single ((:keywords "game" "fun" "minesweeper" "inane" "diversion") (:authors ("Zachary Kanfer" . "zkanfer@gmail.com")) (:maintainer "Zachary Kanfer" . "zkanfer@gmail.com") (:url . "https://bitbucket.org/zck/minesweeper.el"))]) (milkode . [(20140927 529) nil "Command line search and direct jump with Milkode" single ((:commit . "ba97e2aeefa1d9d0b3835bf08edd0de248b0c513") (:keywords "milkode" "search" "grep" "jump" "keyword") (:authors ("ongaeshi")) (:maintainer "ongaeshi"))]) (migemo . [(20160924 1441) ((cl-lib (0 5))) "Japanese incremental search through dynamic pattern expansion" single ((:commit . "e4744efae1b2fdea2bbd2ceaff0f6ea0bb739f5a") (:authors ("Satoru Takabayashi" . "satoru-t@is.aist-nara.ac.jp")) (:maintainer "Satoru Takabayashi" . "satoru-t@is.aist-nara.ac.jp") (:url . "https://github.com/emacs-jp/migemo"))]) (midje-mode . [(20170809 403) ((cider (0 1 4)) (clojure-mode (1 0))) "Minor mode for running Midje tests in emacs" tar ((:commit . "10ad5b6084cd03d5cd268b486a7c3c246d85535f"))]) (micgoline . [(20160415 326) ((emacs (24 3)) (powerline (2 3))) "powerline mode, color schemes from microsoft and google's logo." single ((:commit . "837504263bb1711203b0f7efecd6b7b5f272fae0") (:keywords "mode-line" "powerline" "theme") (:authors ("yzprofile" . "yzprofiles@gmail.com")) (:maintainer "yzprofile" . "yzprofiles@gmail.com") (:url . "https://github.com/yzprofile/micgoline"))]) (mic-paren . [(20170731 1907) nil "advanced highlighting of matching parentheses" single ((:commit . "d0410c7d805c9aaf51a1bcefaaef092bed5824c4") (:keywords "languages" "faces" "parenthesis" "matching") (:authors ("Mikael Sjödin" . "mic@docs.uu.se") ("Klaus Berndl " . "berndl@sdm.de") ("Jonathan Kotta" . "jpkotta@gmail.com")) (:maintainer "ttn"))]) (mhc . [(20180724 458) ((calfw (20150703))) "Message Harmonized Calendaring system." tar ((:commit . "2cd1e97fa2e32e7dfde5ee7878fb9a915fb6a3b8") (:keywords "calendar") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net") (:url . "http://www.quickhack.net/mhc"))]) (mgmtconfig-mode . [(20180222 2057) ((emacs (24 3))) "mgmt configuration management language" single ((:commit . "43b5b4f5a409b203e4331fed962857e4ba034cd9") (:keywords "languages") (:authors ("Peter Oliver" . "mgmtconfig@mavit.org.uk")) (:maintainer "Mgmt contributors <https://github.com/purpleidea/mgmt>") (:url . "https://github.com/purpleidea/mgmt/misc/emacs"))]) (mexican-holidays . [(20160109 2142) nil "Mexico holidays for Emacs calendar." single ((:commit . "43ced1f9e40a04be6927d1a1be64060f9be4f5c5") (:keywords "calendar") (:authors ("Saúl Gutiérrez" . "me@sggc.me")) (:maintainer "Saúl Gutiérrez" . "me@sggc.me") (:url . "https://github.com/shopClerk/mexican-holidays"))]) (mew . [(20180911 123) nil "Messaging in the Emacs World" tar ((:commit . "91a78fd6c6d74d0881d68c51dcd9be8cae065c02") (:authors ("Kazu Yamamoto" . "Kazu@Mew.org")) (:maintainer "Kazu Yamamoto" . "Kazu@Mew.org"))]) (metaweblog . [(20171217 240) ((xml-rpc (1 6 8))) "An emacs library to access metaweblog based weblogs" tar ((:commit . "aa14380eb7e7b879a0c16c96866b20a987cd3f2a"))]) (metascript-mode . [(20150709 57) ((emacs (24 3))) "Major mode for the Metascript programming language" single ((:commit . "edb361c7b0e5de231e5334a17b90652fb1df78f9") (:keywords "languages" "metascript" "mjs") (:url . "http://github.com/metascript/metascript-mode"))]) (metamorph . [(20180930 2028) ((emacs (24 4))) "Transform your buffers with lisp" single ((:commit . "d9dc7037b7eed7b3fe85ea50e91f332e3f831514") (:keywords "metaprogramming" "wp") (:authors ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainer "Adam Niederer" . "adam.niederer@gmail.com") (:url . "http://github.com/AdamNiederer/metamorph"))]) (metalheart-theme . [(20160710 641) ((emacs (24))) "Low-contrast theme with a dark blue-green background." single ((:commit . "ec98ea2c11dc1213dae8cbe1fe0cee73ca138bb2") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler"))]) (meta-presenter . [(20170426 234) nil "A simple multi-file presentation tool for Emacs" single ((:commit . "4e7aae56e5abf6deaadbda84fd5ec4e3e19c22be") (:keywords "productivity" "presentation") (:authors ("Mohammed Ismail Ansari" . "team.terminal@gmail.com")) (:maintainer "Mohammed Ismail Ansari" . "team.terminal@gmail.com") (:url . "http://ismail.teamfluxion.com"))]) (messages-are-flowing . [(20170219 120) nil "visible indication when composing \"flowed\" emails" single ((:commit . "ef879726957c850c3a5afd7f1118604991e37e32") (:keywords "mail") (:authors ("Magnus Henoch" . "magnus.henoch@gmail.com")) (:maintainer "Magnus Henoch" . "magnus.henoch@gmail.com"))]) (meson-mode . [(20181115 2125) ((emacs (24 3))) "Major mode for the Meson build system files" single ((:commit . "b507a87455af906e6c49aa4af70eba5b1d1af9ef") (:keywords "languages" "tools") (:authors ("Michal Sojka" . "sojkam1@fel.cvut.cz")) (:maintainer "Michal Sojka" . "sojkam1@fel.cvut.cz") (:url . "https://github.com/wentasah/meson-mode"))]) (merlin-eldoc . [(20180830 1016) ((emacs (24 4)) (merlin (3 0))) "eldoc for OCaml and Reason" single ((:commit . "85dec436648f43c050048524fae7a3ad7ad4c019") (:keywords "merlin" "ocaml" "languages" "eldoc") (:authors ("Louis Roché" . "louis@louisroche.net")) (:maintainer "Louis Roché" . "louis@louisroche.net") (:url . "https://github.com/khady/merlin-eldoc"))]) (merlin . [(20180816 815) nil "Mode for Merlin, an assistant for OCaml." tar ((:commit . "b9c4dc9730c4cb5aaf52d9f446a54b0a1c2c98c0") (:keywords "ocaml" "languages") (:authors ("Frédéric Bour <frederic.bour(_)lakaban.net>")) (:maintainer "Frédéric Bour <frederic.bour(_)lakaban.net>") (:url . "https://github.com/ocaml/merlin"))]) (mentor . [(20181029 2007) ((xml-rpc (1 6 9)) (seq (1 11)) (cl-lib (0 5)) (async (1 9 3))) "Frontend for the rTorrent bittorrent client" tar ((:commit . "9415472470ff23ee9600d94123c51c455d63018d") (:keywords "comm" "processes" "bittorrent") (:authors ("Stefan Kangas" . "stefankangas@gmail.com")) (:maintainer "Stefan Kangas" . "stefankangas@gmail.com"))]) (memolist . [(20150804 1721) ((markdown-mode (22 0)) (ag (0 45))) "memolist.el is Emacs port of memolist.vim." single ((:commit . "60c296e202a71e9dcf1c3936d47b5c4b95c5839f") (:keywords "markdown" "memo") (:authors ("mikanfactory <k952i4j14x17_at_gmail.com>")) (:maintainer "mikanfactory") (:url . "http://github.com/mikanfactory/emacs-memolist"))]) (memoize . [(20180614 1930) nil "Memoization functions" single ((:commit . "9a561268ffb550b257a08710489a95cd087998b6") (:authors ("Christopher Wellons" . "mosquitopsu@gmail.com")) (:maintainer "Christopher Wellons" . "mosquitopsu@gmail.com") (:url . "https://github.com/skeeto/emacs-memoize"))]) (melpa-upstream-visit . [(20130720 1033) ((s (1 6 0))) "A set of kludges to visit a melpa-hosted package's homepage" single ((:commit . "7310c74fdead3c0f86ad6eff76cf989e63f70f66") (:keywords "convenience") (:authors ("Alessandro Piras" . "laynor@gmail.com")) (:maintainer "Alessandro Piras" . "laynor@gmail.com"))]) (mellow-theme . [(20170808 1317) ((emacs (24 0))) "an Emacs 24 theme based on Mellow (tmTheme)" single ((:commit . "2bdf18f05f5212b6f269d9a94afe2cf201766891") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (melancholy-theme . [(20170220 2048) nil "A dark theme for dark minds" single ((:commit . "a9e13ca7051731b3a2c2aece9f3e3033b9a5e41d") (:authors ("Sod Oscarfono" . "sod@oscarfono.com")) (:maintainer "Sod Oscarfono" . "sod@oscarfono.com") (:url . "http://github.com/techquila/melancholy-theme"))]) (meghanada . [(20181116 1302) ((emacs (24 3)) (yasnippet (0 6 1)) (company (0 9 0)) (flycheck (0 23))) "A better java development mode" tar ((:commit . "4914ab1496d88251f179dc3b6158fc65e999804a") (:keywords "languages" "java") (:authors ("Yutaka Matsubara" . "yutaka.matsubara@gmail.com")) (:maintainer "Yutaka Matsubara" . "yutaka.matsubara@gmail.com") (:url . "https://github.com/mopemope/meghanada-emacs"))]) (mediawiki . [(20170813 555) nil "mediawiki frontend" single ((:commit . "8473e12d1839f5287a4227586bf117dad820f867") (:keywords "mediawiki" "wikipedia" "network" "wiki") (:authors ("Mark A. Hershberger" . "mah@everybody.org")) (:maintainer "Mark A. Hershberger" . "mah@everybody.org") (:url . "https://github.com/hexmode/mediawiki-el"))]) (md4rd . [(20180626 536) ((emacs (25 1)) (hierarchy (0 7 0)) (request (0 3 0)) (cl-lib (0 6 1)) (dash (2 12 0)) (s (1 12 0)) (tree-mode (1 0 0))) "Mode for reddit (browse it)." single ((:commit . "75fbf295d896230c4b441dc773d266fa6cd7a509") (:keywords "ahungry" "reddit" "browse" "news") (:authors ("Matthew Carter" . "m@ahungry.com")) (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/md4rd"))]) (md-readme . [(20160811 1646) nil "Markdown-formatted READMEs for your ELisp" tar ((:commit . "bf818dd847c8b06b3b5100c5d3cf24cf96662528") (:keywords "lisp" "help" "readme" "markdown" "header" "documentation" "github") (:authors ("Thomas Kappler" . "tkappler@gmail.com")) (:maintainer "Thomas Kappler" . "tkappler@gmail.com") (:url . "http://github.com/thomas11/md-readme/tree/master"))]) (mc-extras . [(20181109 1735) ((multiple-cursors (1 2 1))) "Extra functions for multiple-cursors mode." tar ((:commit . "053abc52181b8718559d7361a587bbb795faf164") (:keywords "editing" "cursors") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/mc-extras.el"))]) (mbsync . [(20181002 640) nil "run mbsync to fetch mails" single ((:commit . "f549eccde6033449d24cd5b6148599484850c403") (:authors ("Dimitri Fontaine" . "dim@tapoueh.org")) (:maintainer "Dimitri Fontaine" . "dim@tapoueh.org") (:url . "https://github.com/dimitri/mbsync-el"))]) (mbo70s-theme . [(20170808 1315) ((emacs (24 0))) "70s style palette, with similarities to mbo theme" single ((:commit . "bed3db8965708ed4e9482b224a9b084765c052f2") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (mbe . [(20151126 1134) ((emacs (24)) (cl-lib (0 5))) "Macros by Example" single ((:commit . "bb10aa8f26bb7e9b1d5746934c94edb00402940c") (:keywords "tools" "macros") (:authors ("Ian Price" . "ianprice90@googlemail.com")) (:maintainer "Ian Price" . "ianprice90@googlemail.com") (:url . "https://github.com/ijp/mbe.el"))]) (mb-url . [(20181011 1752) ((cl-lib (0))) "Multiple Backends for Emacs URL package." tar ((:commit . "224b92353094aec25c9c46159d71ab2db5831498") (:url . "https://github.com/dochang/mb-url") (:keywords "url"))]) (maxframe . [(20170120 1705) nil "maximize the emacs frame based on display size" single ((:commit . "13bda6dd9f1d96aa4b9dd9957a26cefd399a7772") (:keywords "display" "frame" "window" "maximize") (:authors ("Ryan McGeary")) (:maintainer "Ryan McGeary"))]) (maven-test-mode . [(20141220 557) ((s (1 9)) (emacs (24))) "Utilities for navigating test files and running maven test tasks." single ((:commit . "a19151861df2ad8ae4880a2e7c86ddf848cb569a") (:keywords "java" "maven" "test") (:authors ("Renan Ranelli")) (:maintainer "Renan Ranelli") (:url . "http://github.com/rranelli/maven-test-mode"))]) (maude-mode . [(20160222 1607) nil "Emacs mode for the programming language Maude" single ((:commit . "c9543bb8a172fa77af592388e7f520a4a6d38987") (:keywords "maude") (:authors ("Ellef Gjelstad <ellefg+maude*ifi.uio.no>")) (:maintainer "Rudi Schlatte" . "rudi@constantly.at"))]) (matlab-mode . [(20180928 1526) nil "Major mode for MATLAB(R) dot-m files" tar ((:commit . "3fbca4259b2584bde08df07ba51944d7e3e2b4f4") (:url . "http://sourceforge.net/projects/matlab-emacs/") (:keywords "matlab" "programming" "language" "(X)emacs"))]) (math-symbols . [(20170818 1459) ((helm (1 0))) "Math Symbol Input methods and conversion tools" tar ((:commit . "3f8b466f002e1b28ddbe9a6f236c9a1352adb17d") (:keywords "i18n" "languages" "tex") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/math-symbols"))]) (math-symbol-lists . [(20170221 1353) nil "Lists of Unicode math symbols and latex commands" tar ((:commit . "1af8fdcab7941a62287c2d04b8876e1538f39c60") (:keywords "unicode" "symbols" "mathematics") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/vspinu/math-symbol-lists"))]) (material-theme . [(20171123 1840) ((emacs (24 1))) "A Theme based on the colors of the Google Material Design" tar ((:commit . "b66838d220ad380a16da1d8878936974b26f815d") (:keywords "themes") (:authors ("Christoph Paulik" . "cpaulik@gmail.com")) (:maintainer "Christoph Paulik" . "cpaulik@gmail.com") (:url . "http://github.com/cpaulik/emacs-material-theme"))]) (mastodon . [(20180811 220) ((emacs (24 4))) "Client for Mastodon" tar ((:commit . "585a2dd79f6f929378237c3a678cf43efdf37407") (:authors ("Johnson Denen" . "johnson.denen@gmail.com")) (:maintainer "Johnson Denen" . "johnson.denen@gmail.com") (:url . "https://github.com/jdenen/mastodon.el"))]) (maruo-macro-mode . [(20160616 1349) ((emacs (24 3))) "Major mode for editing Hidemaru/Maruo macro script" single ((:commit . "8fc9a38ad051eafa8eb94038711acc52c5d1d8d5") (:keywords "programming" "editor" "macro") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))]) (marshal . [(20180124 1239) ((eieio (1 4)) (json (1 3)) (ht (2 1))) "eieio extension for automatic (un)marshalling" single ((:commit . "f038689cbd5b3680b80b44edd0c7a63ca3038e26") (:keywords "eieio") (:authors ("Yann Hodique" . "hodiquey@vmware.com")) (:maintainer "Yann Hodique" . "hodiquey@vmware.com") (:url . "https://github.com/sigma/marshal.el"))]) (marmalade-client . [(20141231 2007) ((web (0 5 2)) (kv (0 0 19)) (gh (0 8 0))) "client for marmalade API from emacs" tar ((:commit . "f315dea57e4fbebd9ee0668c0bafd4c45c7b754a") (:keywords "lisp") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "https://github.com/nicferrier/emacs-marmalade-upload"))]) (markup-faces . [(20141110 817) nil "collection of faces for markup language modes" single ((:commit . "98a807ed82473eb41c6a201ed7ef816d6bcd67b0") (:keywords "wp" "faces") (:authors ("Florian Kaufmann" . "sensorflo@gmail.com")) (:maintainer "Florian Kaufmann" . "sensorflo@gmail.com") (:url . "https://github.com/sensorflo/markup-faces"))]) (markup . [(20170420 1129) ((cl-lib (0 5))) "Simple markup generation helpers." single ((:commit . "876da2d3f23473475bb0fd0a1480ae11d2671291") (:keywords "convenience" "markup" "html") (:authors ("Arthur Leonard Andersen" . "leoc.git@gmail.com")) (:maintainer "Arthur Leonard Andersen" . "leoc.git@gmail.com") (:url . "http://github.com/leoc/markup.el"))]) (markdownfmt . [(20160609 1241) ((emacs (24))) "Format markdown using markdownfmt" single ((:commit . "187a74eb4fd9e8520ce08da42d1d292b9af7f2b7") (:keywords "markdown") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/emacs-markdownfmt"))]) (markdown-toc . [(20170711 1949) ((s (1 9 0)) (dash (2 11 0)) (markdown-mode (2 1))) "A simple TOC generator for markdown file" tar ((:commit . "7038f4f6d5c2bc7e4aea89699a607ac2b7dd16a8"))]) (markdown-preview-mode . [(20180929 725) ((emacs (24 3)) (websocket (1 6)) (markdown-mode (2 0)) (cl-lib (0 5)) (web-server (0 1 1)) (uuidgen (0 3))) "markdown realtime preview minor mode." tar ((:commit . "cba12b77764df0fd3cf7008073df1badfa216073") (:keywords "markdown" "gfm" "convenience") (:authors ("Igor Shymko" . "igor.shimko@gmail.com")) (:maintainer "Igor Shymko" . "igor.shimko@gmail.com") (:url . "https://github.com/ancane/markdown-preview-mode"))]) (markdown-preview-eww . [(20160111 1502) ((emacs (24 4))) "Realtime preview by eww" single ((:commit . "5853f836425c877c8a956501f0adda137ef1d3b7") (:authors ("niku" . "niku@niku.name")) (:maintainer "niku" . "niku@niku.name") (:url . "https://github.com/niku/markdown-preview-eww"))]) (markdown-mode . [(20181112 1529) ((emacs (24 4)) (cl-lib (0 5))) "Major mode for Markdown-formatted text" single ((:commit . "d18a8f856d19dfac8fa6e6e72b2448e262045fcc") (:keywords "markdown" "github flavored markdown" "itex") (:authors ("Jason R. Blevins" . "jblevins@xbeta.org")) (:maintainer "Jason R. Blevins" . "jblevins@xbeta.org") (:url . "https://jblevins.org/projects/markdown-mode/"))]) (markdown-mode+ . [(20170320 2104) ((markdown-mode (20111229))) "extra functions for markdown-mode" tar ((:commit . "411d079f4430a33c34ec0bbcb1535fe1145a2509") (:keywords "markdown" "latex" "osx" "rtf") (:authors ("Donald Ephraim Curtis")) (:maintainer "Donald Ephraim Curtis") (:url . "http://github.com/milkypostman/markdown-mode-plus"))]) (mark-tools . [(20130614 1025) nil "Some simple tools to access the mark-ring in Emacs" single ((:commit . "a11b61effa90bd0abc876d12573674d36fc17f0c") (:authors ("Alex Bennée" . "alex@bennee.com")) (:maintainer "Alex Bennée" . "alex@bennee.com") (:url . "https://github.com/stsquad/emacs-mark-tools"))]) (mark-multiple . [(20121118 1554) nil "Sorta lets you mark several regions at once." tar ((:commit . "f6a53c7c5283d640ae718f4548b0fda78877a375"))]) (marcopolo . [(20160421 1004) ((s (1 9 0)) (dash (2 9 0)) (pkg-info (0 5 0)) (request (0 1 0))) "Emacs client to the Docker HUB/Registry API" tar ((:commit . "9193aabdf12223087b5ed58f1507d5d8a24a4381") (:keywords "docker") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/marcopolo"))]) (map-regexp . [(20130522 2103) ((cl-lib (0 2))) "map over matches of a regular expression" single ((:commit . "b8e06284ec1c593d7d2bda5f35597a63de46333f") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/map-regexp"))]) (map-progress . [(20140310 2132) nil "mapping macros that report progress" single ((:commit . "3167eb218510953fb97e7d50948a625eaa3f0005") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/map-progress/"))]) (mandoku-tls . [(20171118 240) ((emacs (24 4)) (mandoku (20170301)) (github-clone (0 2)) (hydra (0 13 6)) (helm (1 7 0)) (org (9 0)) (helm-charinfo (20170601))) "A tool to access the TLS database" single ((:commit . "ffeebf5bd451ac1806ddfe1744fbbd036a56f902") (:keywords "convenience") (:authors ("Christian Wittern" . "cwittern@gmail.com")) (:maintainer "Christian Wittern" . "cwittern@gmail.com") (:url . "https://github.com/mandoku/mandoku-tls"))]) (mandoku . [(20180403 1106) ((org (8 0)) (magit (20151028)) (github-clone (20150705)) (git (20140128))) "A tool to access repositories of premodern Chinese texts" tar ((:commit . "f230c871de8aab1be7b7a9718cd930548a90baa8"))]) (mandm-theme . [(20180915 1940) nil "An M&M color theme." single ((:commit . "b560aa0129c55a2f4fcc5e67a7d6c66ee4dc3124") (:authors ("Christian Hopps" . "chopps@gmail.com")) (:maintainer "Christian Hopps" . "chopps@gmail.com") (:url . "https://github.com/choppsv1/emacs-mandm-theme.git"))]) (manage-minor-mode . [(20140310 1600) ((emacs (24 3))) "Manage your minor-modes easily" single ((:commit . "1bed33b0752380b548b822fe72e6858c5fe70c8e") (:keywords "minor-mode" "manage" "emacs") (:authors ("Shingo Fukuyama - http://fukuyama.co")) (:maintainer "Shingo Fukuyama - http://fukuyama.co") (:url . "https://github.com/ShingoFukuyama/manage-minor-mode"))]) (man-commands . [(20151221 2221) ((cl-lib (0 5))) "Add interactive commands for every manpages installed in your computer." single ((:commit . "f4ba0c3790855d7544dff92d470d212f24de1d9d") (:authors ("Nathaniel Flath" . "nflath@gmail.com")) (:maintainer "Nathaniel Flath" . "nflath@gmail.com") (:url . "http://github.com/nflath/man-commands"))]) (malyon . [(20161208 2125) ((cl-lib (0 5))) "mode to execute Z-code files version 3, 5, 8" single ((:commit . "0d9882650720b4a791556f5e2d917388965d6fc0") (:keywords "games" "emulations") (:authors ("Peter Ilberg <peter.ilberg@gmail.com>, Christopher Madsen <cjm@cjmweb.net>, Erik Selberg" . "erik@selberg.org")) (:maintainer "Christopher Madsen <cjm@cjmweb.net>, Erik Selberg" . "erik@selberg.org") (:url . "https://github.com/speedenator/malyon"))]) (mallard-snippets . [(20131023 1851) ((yasnippet (0 8 0)) (mallard-mode (0 1 1))) "Yasnippets for Mallard" tar ((:commit . "70c5293f10722f2ace73bdf74d9a18f95b040edc") (:keywords "snippets" "mallard") (:authors ("Jaromir Hradilek" . "jhradilek@gmail.com")) (:maintainer "Jaromir Hradilek" . "jhradilek@gmail.com") (:url . "https://github.com/jhradilek/emacs-mallard-snippets"))]) (mallard-mode . [(20131204 425) nil "Major mode for editing Mallard files" tar ((:commit . "c48170c1ace4959abcc5fb1df0d4cb149cff44c1") (:keywords "xml" "mallard") (:authors ("Jaromir Hradilek" . "jhradilek@gmail.com")) (:maintainer "Jaromir Hradilek" . "jhradilek@gmail.com") (:url . "https://github.com/jhradilek/emacs-mallard-mode"))]) (malinka . [(20171202 1021) ((s (1 9 0)) (dash (2 4 0)) (f (0 11 0)) (cl-lib (0 3)) (rtags (0 0)) (projectile (0 11 0))) "A C/C++ project configuration package for Emacs" single ((:commit . "d4aa517c7a9022eae16c758c7efdb3a0403542d7") (:keywords "c" "c++" "project-management") (:authors ("Lefteris Karapetsas" . "lefteris@refu.co")) (:maintainer "Lefteris Karapetsas" . "lefteris@refu.co") (:url . "https://github.com/LefterisJP/malinka"))]) (makey . [(20131231 1430) ((cl-lib (0 2))) "interactive commandline mode" single ((:commit . "a61781e69d3b451551e269446e1c5f624ab81137") (:authors ("Mickey Petersen" . "mickey@masteringemacs.org")) (:maintainer "Mickey Petersen" . "mickey@masteringemacs.org"))]) (makefile-executor . [(20180720 832) ((emacs (24 3)) (dash (2 11 0)) (f (0 11 0)) (s (1 10 0))) "Commands for conveniently running makefile targets" single ((:commit . "9a7d78f814a4b372d8f8179819cb1b37b83b1973") (:keywords "processes") (:authors ("Lowe Thiderman" . "lowe.thiderman@gmail.com")) (:maintainer "Lowe Thiderman" . "lowe.thiderman@gmail.com") (:url . "https://github.com/thiderman/makefile-executor.el"))]) (make-it-so . [(20180128 2107) ((swiper (0 8 0)) (emacs (24))) "Transform files with Makefile recipes." tar ((:commit . "bc3b01d6b9ed6ff66ebbd524234f9d6df60dd4be") (:keywords "make" "dired") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/make-it-so"))]) (make-color . [(20140625 1150) nil "Alternative to picking color - update fg/bg color by pressing r/g/b/... keys" single ((:commit . "5ca1383ca9228bca82120b238bdc119f302b75c0") (:keywords "color") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/make-color.el"))]) (major-mode-icons . [(20170301 714) ((emacs (24 3)) (powerline (2 4)) (all-the-icons (2 3 0))) "display icon for major-mode on mode-line." tar ((:commit . "e6117a236b2ad52e948576550b183053321dfc91") (:keywords "frames" "multimedia") (:url . "http://github.com/stardiviner/major-mode-icons"))]) (majapahit-theme . [(20160817 1848) nil "Color theme with a dark and light versions" tar ((:commit . "77c96df7619666b2102d90d452eeadf04adc89a6") (:keywords "color" "theme") (:url . "https://gitlab.com/franksn/majapahit-theme"))]) (magnatune . [(20151030 1935) ((dash (2 9 0)) (s (1 9 0))) "browse magnatune's music catalog" tar ((:commit . "605b01505ba30589c77ebb4c96834b5072ccbdd4"))]) (magma-mode . [(20180413 1427) ((cl-lib (0 3)) (dash (2 6 0)) (f (0 17 1))) "Magma mode for Emacs" tar ((:commit . "d8e41b3c0bc7d37be78fdbcabf6c13c9e182dfaa") (:url . "https://github.com/ThibautVerron/magma-mode"))]) (magithub . [(20181116 1355) ((emacs (25)) (magit (2 12)) (s (1 12 0)) (ghub+ (0 3)) (git-commit (2 12)) (markdown-mode (2 3))) "Magit interfaces for GitHub" tar ((:commit . "94e9f9a1a168e324ec7b79e3437afd1c1fb80200") (:keywords "git" "tools" "vc") (:authors ("Sean Allred" . "code@seanallred.com")) (:maintainer "Sean Allred" . "code@seanallred.com") (:url . "https://github.com/vermiculus/magithub"))]) (magit-topgit . [(20160313 1954) ((emacs (24 4)) (magit (2 1 0))) "TopGit extension for Magit" single ((:commit . "11489ea798bc88d0ea5244bbf725285eedfefbef") (:keywords "vc" "tools") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Robin Green" . "greenrd@greenrd.org"))]) (magit-todos . [(20181009 424) ((emacs (25 2)) (async (1 9 2)) (dash (2 13 0)) (f (0 17 2)) (hl-todo (1 9 0)) (magit (2 13 0)) (pcre2el (1 8)) (s (1 12 0))) "Show source file TODOs in Magit" single ((:commit . "ccfb2c5df0d6371aee0d4abc4a55c403ee2b0241") (:keywords "magit" "vc") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/magit-todos"))]) (magit-tbdiff . [(20181120 122) ((emacs (24 4)) (magit (2 10 0))) "Magit extension for git-tbdiff" single ((:commit . "156751e38af34b76d591762c5a5b04739d0806ca") (:keywords "vc" "tools") (:authors ("Kyle Meyer" . "kyle@kyleam.com")) (:maintainer "Kyle Meyer" . "kyle@kyleam.com") (:url . "https://github.com/magit/magit-tbdiff"))]) (magit-svn . [(20170213 1233) ((emacs (24 4)) (magit (2 1 0))) "Git-Svn extension for Magit" single ((:commit . "c833903732a14478f5c4cfc561bae7c50671b36c") (:keywords "vc" "tools") (:authors ("Phil Jackson" . "phil@shellarchive.co.uk")) (:maintainer "Phil Jackson" . "phil@shellarchive.co.uk"))]) (magit-stgit . [(20180522 1242) ((emacs (24 4)) (magit (2 1 0))) "StGit extension for Magit" single ((:commit . "186e60489f5449d87d94aca24b9d65e2f26a3bc5") (:keywords "vc" "tools") (:authors ("Lluís Vilanova" . "vilanova@ac.upc.edu")) (:maintainer "Lluís Vilanova" . "vilanova@ac.upc.edu"))]) (magit-rbr . [(20181009 2016) ((magit (2 13 0)) (emacs (24 3))) "Support for git rbr in Magit" single ((:commit . "029203b3e48537205052a058e964f058cd802c3c") (:keywords "git" "magit" "rbr" "tools") (:authors ("Anatoly Fayngelerin" . "fanatoly+magitrbr@gmail.com")) (:maintainer "Anatoly Fayngelerin" . "fanatoly+magitrbr@gmail.com") (:url . "https://github.com/fanatoly/magit-rbr"))]) (magit-popup . [(20181003 921) ((emacs (24 4)) (async (1 9 2)) (dash (2 13 0))) "Define prefix-infix-suffix command combos" tar ((:commit . "8436447e3166b797edc596cf220f3bf9b41ff4d0") (:keywords "bindings") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/magit-popup"))]) (magit-p4 . [(20170414 1246) ((magit (2 1)) (magit-popup (2 1)) (p4 (12 0)) (cl-lib (0 5))) "git-p4 plug-in for Magit" single ((:commit . "01e8bb24830861c50109878812550b4265cba82b") (:keywords "vc" "tools") (:authors ("Damian T. Dobroczy\\\\'nski" . "qoocku@gmail.com")) (:maintainer "Aleksey Fedotov" . "lexa@cfotr.com") (:url . "https://github.com/qoocku/magit-p4"))]) (magit-org-todos . [(20180709 1950) ((magit (2 0 0)) (emacs (24))) "Add local todo items to the magit status buffer" single ((:commit . "9ffa3efb098434d837cab4bacd1601fdfc6fe999") (:keywords "org-mode" "magit" "tools") (:authors ("Daniel Ma")) (:maintainer "Daniel Ma") (:url . "http://github.com/danielma/magit-org-todos"))]) (magit-lfs . [(20170312 2224) ((emacs (24 4)) (magit (2 10 3)) (dash (2 13 0))) "Magit plugin for Git LFS" single ((:commit . "799282fce73b668d2cf6e4fa87f889fec8e25333") (:keywords "magit" "git" "lfs" "tools" "vc") (:authors ("Junyoung Clare Jang" . "jjc9310@gmail.com")) (:maintainer "Junyoung Clare Jang" . "jjc9310@gmail.com") (:url . "https://github.com/ailrun/magit-lfs"))]) (magit-imerge . [(20181120 255) ((emacs (24 4)) (magit (2 10 0))) "Magit extension for git-imerge" single ((:commit . "5b45efa65317886640c339d1c71d2b9e00e98b77") (:keywords "vc" "tools") (:authors ("Kyle Meyer" . "kyle@kyleam.com")) (:maintainer "Kyle Meyer" . "kyle@kyleam.com") (:url . "https://github.com/magit/magit-imerge"))]) (magit-gitflow . [(20170929 824) ((magit (2 1 0)) (magit-popup (2 2 0))) "gitflow extension for magit" single ((:commit . "cc41b561ec6eea947fe9a176349fb4f771ed865b") (:keywords "vc" "tools") (:authors ("Jan Tatarik" . "Jan.Tatarik@gmail.com")) (:maintainer "Jan Tatarik" . "Jan.Tatarik@gmail.com") (:url . "https://github.com/jtatarik/magit-gitflow"))]) (magit-gh-pulls . [(20180716 1636) ((emacs (24 4)) (gh (0 9 1)) (magit (2 12 0)) (pcache (0 2 3)) (s (1 6 1))) "GitHub pull requests extension for Magit" single ((:commit . "6949e973f3e951cb0bfe75d889e0fcccc33ba733") (:keywords "git" "tools") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Yann Hodique" . "yann.hodique@gmail.com") (:url . "https://github.com/sigma/magit-gh-pulls"))]) (magit-gerrit . [(20160226 930) ((magit (2 3 1))) "Magit plugin for Gerrit Code Review" single ((:commit . "ece6f369694aca17f3ac166ed2801b432acfe20d") (:authors ("Brian Fransioli" . "assem@terranpro.org")) (:maintainer "Brian Fransioli" . "assem@terranpro.org") (:url . "https://github.com/terranpro/magit-gerrit"))]) (magit-find-file . [(20150702 830) ((magit (2 1 0)) (dash (2 8 0))) "completing-read over all files in Git" single ((:commit . "c3ea91bab37d10a814a829728ec972811f728d60") (:keywords "git") (:authors ("Bradley Wright" . "brad@intranation.com")) (:maintainer "Bradley Wright" . "brad@intranation.com") (:url . "https://github.com/bradleywright/magit-find-file.el"))]) (magit-filenotify . [(20151116 2340) ((magit (1 3 0)) (emacs (24 4))) "Refresh status buffer when git tree changes" single ((:commit . "c0865b3c41af20b6cd89de23d3b0beb54c8401a4") (:keywords "tools") (:authors ("Rüdiger Sonderfeld" . "ruediger@c-plusplus.de")) (:maintainer "Rüdiger Sonderfeld" . "ruediger@c-plusplus.de"))]) (magit-annex . [(20181120 226) ((cl-lib (0 3)) (magit (2 90 0))) "Control git-annex from Magit" single ((:commit . "21cb2927d672cc6bf631d8373a361b1766ccf004") (:keywords "vc" "tools") (:authors ("Kyle Meyer" . "kyle@kyleam.com") ("Rémi Vanicat" . "vanicat@debian.org")) (:maintainer "Kyle Meyer" . "kyle@kyleam.com") (:url . "https://github.com/magit/magit-annex"))]) (magit . [(20181116 1412) ((emacs (25 1)) (async (20180527)) (dash (20180910)) (ghub (20181107)) (git-commit (20181104)) (magit-popup (20181003)) (with-editor (20181103))) "A Git porcelain inside Emacs." tar ((:commit . "36d89c88e1337ec2b33c75c3d426289c66f86b10"))]) (magik-mode . [(20181005 841) nil "mode for editing Magik + some utils." tar ((:commit . "d87b9a5be8fc56e48241e02bab4b4a2d347b999d") (:keywords "languages") (:url . "http://github.com/roadrunner1776/magik"))]) (magic-latex-buffer . [(20170531 5) ((cl-lib (0 5)) (emacs (24 3))) "Magically enhance LaTeX-mode font-locking for semi-WYSIWYG editing" single ((:commit . "c03277d5619d9adcd871f3e6480a1a27985810cb") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (magic-filetype . [(20180219 1552) ((emacs (24)) (s (1 9 0))) "Enhance filetype major mode" single ((:commit . "019494add5ff02dd36cb3f500142fc51125522cc") (:keywords "emulations" "vim" "ft" "file" "magic-mode") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/magic-filetype.el"))]) (mag-menu . [(20150505 1850) ((splitter (0 1 0))) "Intuitive keyboard-centric menu system" single ((:commit . "9b9277021cd09fb1dba64b1d2a00705d20914bd6") (:keywords "convenience") (:authors ("Steven Thomas")) (:maintainer "Steven Thomas") (:url . "https://github.com/chumpage/mag-menu"))]) (madhat2r-theme . [(20170203 30) ((emacs (24))) "dark color theme that is easy on the eyes" single ((:commit . "6b387f09de055cfcc15d74981cd4f32f8f9a7323") (:keywords "color" "theme") (:authors ("Micah Duke")) (:maintainer "Micah Duke") (:url . "https://github.com/madhat2r/madhat2r-theme"))]) (macrostep . [(20161120 2106) ((cl-lib (0 5))) "interactive macro expander" tar ((:commit . "424e3734a1ee526a1bd7b5c3cd1d3ef19d184267") (:keywords "lisp" "languages" "macro" "debugging") (:authors ("joddie" . "j.j.oddie@gmail.com")) (:maintainer "joddie" . "j.j.oddie@gmail.com") (:url . "https://github.com/joddie/macrostep"))]) (macro-math . [(20130328 1604) nil "in-buffer mathematical operations" single ((:commit . "216e59371e9ee39c34117ba79b9acd78bb415750") (:keywords "convenience") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/macro-math/"))]) (maces-game . [(20170903 1551) ((dash (2 12 0)) (cl-lib (0 5)) (emacs (24))) "another anagram game." tar ((:commit . "c0fb795f5642467ea528d2f04d904547e8a77ecd") (:keywords "games" "word games" "anagram") (:authors ("Pawel Bokota" . "pawelb.lnx@gmail.com")) (:maintainer "Pawel Bokota" . "pawelb.lnx@gmail.com") (:url . "https://github.com/pawelbx/anagram-game"))]) (mac-pseudo-daemon . [(20170728 1940) ((cl-lib (0 1))) "Daemon mode that plays nice with Mac OS." single ((:commit . "d235680a72677f11925b912428ad1a57b664e3e8") (:keywords "convenience" "osx" "mac") (:authors ("Ryan C. Thompson")) (:maintainer "Ryan C. Thompson") (:url . "https://github.com/DarwinAwardWinner/osx-pseudo-daemon"))]) (m-buffer . [(20170407 2141) ((seq (2 14))) "List-Oriented, Functional Buffer Manipulation" tar ((:commit . "8681342aaffa187e5c54945ab91b812965a96d19") (:authors ("Phillip Lord" . "phillip.lord@russet.org.uk")) (:maintainer "Phillip Lord" . "phillip.lord@russet.rg.uk"))]) (lyrics . [(20180812 1841) ((emacs (25 1)) (seq (2 15))) "Show lyrics" single ((:commit . "d0b920be634a5be81ad49418cfaada0f0a57d6cd") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/lyrics.el"))]) (lxd-tramp . [(20181023 7) ((emacs (24 4)) (cl-lib (0 6))) "TRAMP integration for LXD containers" single ((:commit . "f335c76245f62b02cf67a9376eca6f3863c8a75a") (:keywords "lxd" "lxc" "convenience") (:authors ("Yc.S" . "onixie@gmail.com")) (:maintainer "Yc.S" . "onixie@gmail.com") (:url . "https://github.com/onixie/lxd-tramp.git"))]) (lxc-tramp . [(20180523 2024) ((emacs (24)) (cl-lib (0 6))) "TRAMP integration for LXC containers" single ((:commit . "1aab85fef50df2067902bff13e1bac5e6366908b") (:keywords "lxc" "convenience") (:authors ("montag451")) (:maintainer "montag451") (:url . "https://github.com/montag451/lxc-tramp"))]) (lxc . [(20140410 2022) nil "lxc integration with Emacs" single ((:commit . "88bed56c954d1edd9ff5ce0ced2c02dcf9f71835") (:keywords "processes") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "https://github.com/nicferrier/emacs-lxc"))]) (lv . [(20181110 1740) nil "Other echo area" single ((:commit . "5c5b9ca3262594c92f8f73c98db5ed0f1efd0319") (:authors ("Oleh Krehel")) (:maintainer "Oleh Krehel"))]) (lusty-explorer . [(20180628 1346) nil "Dynamic filesystem explorer and buffer switcher" single ((:commit . "fc4b2f0f8a07db107234490fdfbf72f8b76a6643") (:keywords "convenience" "files" "matching"))]) (lush-theme . [(20180816 2200) ((emacs (24))) "A dark theme with lush colors" single ((:commit . "7cfc993709d712f75c51b505078608c9e1c11466") (:keywords "theme" "dark" "strong colors") (:authors ("Andre Richter" . "andre.o.richter@gmail.com")) (:maintainer "Andre Richter" . "andre.o.richter@gmail.com") (:url . "https://github.com/andre-richter/emacs-lush-theme"))]) (luarocks . [(20170430 2305) ((emacs (24)) (cl-lib (0 5))) "luarocks tools" single ((:commit . "cee27ba0716edf338077387969883226dd2b7484") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/luarocks.el"))]) (lua-mode . [(20180323 1021) nil "a major-mode for editing Lua scripts" tar ((:commit . "99312b8d6c500ba3067da6d81efcfbbea05a1cbd") (:keywords "languages" "processes" "tools") (:authors ("2011-2013 immerrr" . "immerrr+lua@gmail.com") ("2010-2011 Reuben Thomas" . "rrt@sc3d.org") ("2006 Juergen Hoetzel" . "juergen@hoetzel.info") ("2004 various (support for Lua 5 and byte compilation)") ("2001 Christian Vogler" . "cvogler@gradient.cis.upenn.edu") ("1997 Bret Mogilefsky" . "mogul-lua@gelatinous.com") ("tcl-mode by Gregor Schmid" . "schmid@fb3-s7.math.tu-berlin.de") ("with tons of assistance from") ("Paul Du Bois" . "pld-lua@gelatinous.com") ("Aaron Smith" . "aaron-lua@gelatinous.com")) (:maintainer "2011-2013 immerrr" . "immerrr+lua@gmail.com") (:url . "http://immerrr.github.com/lua-mode"))]) (lsp-vue . [(20181030 1136) ((emacs (25 1)) (lsp-mode (3 0))) "Vue support for lsp-mode" single ((:commit . "85567342323943b37bb4e90376d3fae740be4aeb") (:authors ("Nikita Sivakov" . "cryptomaniac.512@gmail.com")) (:maintainer "Nikita Sivakov" . "cryptomaniac.512@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-vue"))]) (lsp-ui . [(20181031 2002) ((emacs (25 1)) (dash (2 14)) (dash-functional (1 2 0)) (flycheck (31)) (lsp-mode (5 0)) (markdown-mode (2 3))) "UI modules for lsp-mode" tar ((:commit . "5138e720451dfbcae2f55a8380416340d5706583") (:keywords "lsp") (:authors ("Sebastien Chapuis <sebastien@chapu.is>, Fangrui Song" . "i@maskray.me")) (:maintainer "Sebastien Chapuis <sebastien@chapu.is>, Fangrui Song" . "i@maskray.me") (:url . "https://github.com/emacs-lsp/lsp-ui"))]) (lsp-typescript . [(20180906 524) ((lsp-mode (3 0)) (typescript-mode (0 1)) (emacs (25 1))) "Javascript/Typescript support for lsp-mode" single ((:commit . "ab62826962887e82f0bc968817be4fc89a6953e4") (:keywords "languages" "tools") (:authors ("George Pittarelli" . "g@gjp.cc")) (:maintainer "George Pittarelli" . "g@gjp.cc") (:url . "https://github.com/emacs-lsp/lsp-javascript"))]) (lsp-sh . [(20180913 158) ((lsp-mode (3 0))) "Shell support for lsp-mode" single ((:commit . "d9e94837ccbb54eafa381833d2a9a0089e01096b") (:keywords "sh" "shell" "bash") (:authors ("Mike Wilkerson" . "wilkystyle@gmail.com")) (:maintainer "Mike Wilkerson" . "wilkystyle@gmail.com") (:url . "https://github.com/wilkystyle/lsp-sh"))]) (lsp-rust . [(20180305 1308) ((emacs (25)) (lsp-mode (3 0)) (rust-mode (0 3 0)) (dash (1 0)) (markdown-mode (2 3))) "Rust support for lsp-mode" single ((:commit . "ecc889cc8735b280e0e6e84d2f4526b0048148b3") (:keywords "rust") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-rust"))]) (lsp-ruby . [(20180910 1921) ((lsp-mode (3 0)) (emacs (25 1))) "Ruby support for lsp-mode" single ((:commit . "690caff89ccf48d0b45688466482e78ec734e75b") (:keywords "languages" "tools") (:authors ("George Pittarelli" . "g@gjp.cc")) (:maintainer "George Pittarelli" . "g@gjp.cc") (:url . "https://github.com/emacs-lsp/lsp-ruby"))]) (lsp-python . [(20181108 754) ((lsp-mode (3 0))) "Python support for lsp-mode" single ((:commit . "9b67b63c4c8c53c77eda8b8081b8d458e655ba55") (:keywords "python") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-python"))]) (lsp-php . [(20180331 1644) ((emacs (25 1)) (lsp-mode (3 4))) "PHP support for lsp-mode" single ((:commit . "f96e23570120eca765132504df852a78d8b4d042") (:authors ("Declspeck" . "declspeck@declblog.com") ("zg" . "13853850881@163.com")) (:maintainer "Declspeck" . "declspeck@declblog.com") (:url . "https://github.com/emacs-lsp/lsp-php"))]) (lsp-p4 . [(20180728 1915) ((lsp-mode (3 0))) "P4 support for lsp-mode" single ((:commit . "9ac56f8932d6bfb332b6c84bc79361eba6df370a") (:keywords "lsp" "p4") (:authors ("Dmitri Makarov")) (:maintainer "Dmitri Makarov") (:url . "https://github.com/dmakarov/p4ls"))]) (lsp-ocaml . [(20180610 1854) ((emacs (25 1)) (lsp-mode (3 0))) "OCaml support for lsp-mode" single ((:commit . "5a8c776b6d75b502703243b3d628fccd813481b0") (:keywords "languages" "ocaml" "reason" "lsp") (:authors ("Antonio N. Monteiro" . "anmonteiro@gmail.com")) (:maintainer "Antonio N. Monteiro" . "anmonteiro@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-ocaml"))]) (lsp-mode . [(20181115 308) ((emacs (25 1))) "Minor mode for interacting with Language Servers" tar ((:commit . "9e0426cf88190a5c350a5436ab11af6f8d4d412e") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-mode"))]) (lsp-javascript-typescript . [(20180614 2011) ((lsp-mode (3 0)) (typescript-mode (0 1)) (emacs (25 1))) "Javascript/Typescript support for lsp-mode" single ((:commit . "ab62826962887e82f0bc968817be4fc89a6953e4") (:keywords "languages" "tools") (:authors ("George Pittarelli" . "g@gjp.cc")) (:maintainer "George Pittarelli" . "g@gjp.cc") (:url . "https://github.com/emacs-lsp/lsp-javascript"))]) (lsp-javascript-flow . [(20180613 508) ((lsp-mode (3 0)) (emacs (25 1))) "Javascript/Flow support for lsp-mode" single ((:commit . "ab62826962887e82f0bc968817be4fc89a6953e4") (:keywords "languages" "tools") (:authors ("Ozan Sener" . "hi@ozan.email")) (:maintainer "Ozan Sener" . "hi@ozan.email") (:url . "https://github.com/emacs-lsp/lsp-javascript"))]) (lsp-javacomp . [(20181029 2028) ((emacs (25 1)) (lsp-mode (3 0)) (s (1 2 0))) "Provide Java IDE features powered by JavaComp." single ((:commit . "2b5130951f758eb9d3000b9e391b5e7a3b63d371") (:keywords "java" "tools" "lsp") (:url . "https://github.com/tigersoldier/lsp-javacomp"))]) (lsp-java . [(20181102 1943) ((emacs (25 1)) (lsp-mode (3 0)) (markdown-mode (2 3)) (dash (2 14 1)) (f (0 20 0)) (ht (2 0)) (dash-functional (1 2 0))) "Java support for lsp-mode" tar ((:commit . "7eebaf5d45763627a5e49180d9f76a82432d62e3") (:keywords "java") (:url . "https://github.com/emacs-lsp/lsp-java"))]) (lsp-intellij . [(20180831 2051) ((emacs (25 1)) (lsp-mode (4 1))) "intellij lsp client" single ((:commit . "cf30f0ac63bd0140e758840b8ab070e8313697b2") (:keywords "languages" "processes" "tools") (:authors ("Ruin0x11" . "ipickering2@gmail.com")) (:maintainer "Ruin0x11" . "ipickering2@gmail.com") (:url . "https://github.com/Ruin0x11/lsp-intellij"))]) (lsp-html . [(20180629 725) ((lsp-mode (4 2))) "HTML support for lsp-mode" single ((:commit . "53b3c30511cab7e5f1e4ad15094b407b27cdc7f5") (:keywords "languages" "html" "lsp") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-html"))]) (lsp-haskell . [(20181023 657) ((lsp-mode (3 0)) (haskell-mode (1 0))) "Haskell support for lsp-mode" single ((:commit . "1d18fb6b3c055d665dd0bc8694fd74782091d5cf") (:keywords "haskell") (:url . "https://github.com/emacs-lsp/lsp-haskell"))]) (lsp-hack . [(20181114 1747) ((lsp-mode (4 2))) "lsp-mode client for hacklang" single ((:commit . "2a9025a331aa08ebc4ad3524fe69eaa6f624ceae") (:authors ("John Allen" . "oss@porcnick.com")) (:maintainer "John Allen" . "oss@porcnick.com") (:url . "https://github.com/jra3/lsp-hack"))]) (lsp-go . [(20180914 515) ((lsp-mode (3 0))) "Go support for lsp-mode" single ((:commit . "2327556e78682770a7a434610b08115f20ea5b1a") (:keywords "go" "golang") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-go"))]) (lsp-fortran . [(20180904 1636) ((lsp-mode (3 0))) "Fortran support for lsp-mode" single ((:commit . "dd990e5b1e8177c807dd935b6ffa76b495a54b4f") (:keywords "fortran" "fortran" "language server") (:authors ("Magnus Badel")) (:maintainer "Magnus Badel") (:url . "https://github.com/MagB93/lsp-fortran"))]) (lsp-dart . [(20181021 1708) ((emacs (25 1)) (lsp-mode (3 0))) "Dart support for lsp-mode" single ((:commit . "4979ccf88f09a8576fb739597eca22f4ece0a7e8") (:keywords "languages" "lsp" "dart") (:authors ("Gong Qijian" . "gongqijian@gmail.com")) (:maintainer "Gong Qijian" . "gongqijian@gmail.com") (:url . "https://github.com/twlz0ne/lsp-dart"))]) (lsp-css . [(20180627 1951) ((lsp-mode (3 0)) (emacs (25 1))) "CSS/LESS/SASS support for lsp-mode" single ((:commit . "1395b48209c5744e19f688ebb5fe8201e5a006df") (:keywords "languages" "tools") (:authors ("George Pittarelli" . "g@gjp.cc")) (:maintainer "George Pittarelli" . "g@gjp.cc") (:url . "https://github.com/emacs-lsp/lsp-css"))]) (lsp-clangd . [(20180828 1657) ((lsp-mode (3 0)) (emacs (24 3))) "clangd support for lsp-mode" single ((:commit . "37ca521483e3ce5b63b97672916368dbf4566a67") (:keywords "lsp" "clang" "clangd" "c" "c++" "objective-c" "objective-c++") (:authors ("Thomas Brown" . "tabsoftwareconsulting@gmail.com")) (:maintainer "Thomas Brown" . "tabsoftwareconsulting@gmail.com") (:url . "https://github.com/emacs-lsp/lsp-clangd"))]) (love-minor-mode . [(20170727 536) ((lua-mode (20130419))) "Minor mode for working on LÖVE projects" single ((:commit . "3ca8f3405338f2d6f4fbcdd5e89342a46378543a") (:authors ("Eric James Michael Ritz")) (:maintainer "Eric James Michael Ritz") (:url . "https://github.com/ejmr/love-minor-mode"))]) (lorem-ipsum . [(20140911 2108) nil "Insert dummy pseudo Latin text." single ((:commit . "4b39f6fed455d67f635b3837cf5668bf74d0f6cd") (:keywords "tools" "language" "convenience") (:authors ("Jean-Philippe Theberge" . "jphil21@sourceforge.net")) (:maintainer "Joe Schafer" . "joe@jschaf.com"))]) (loop . [(20160813 1407) nil "friendly imperative loop structures" single ((:commit . "e22807f83a0890dc8a904c51ee0742c34efccc6c") (:keywords "loop" "while" "for each" "break" "continue") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (look-mode . [(20151211 1826) nil "quick file viewer for image and text file browsing" single ((:commit . "d65f75e8ea24eff2ac31c53b4835b45127eedd56") (:authors ("Peter H. Mao <peter.mao@gmail.com>" . "peterm@srl.caltech.edu")) (:maintainer "Peter H. Mao <peter.mao@gmail.com>" . "peterm@srl.caltech.edu"))]) (look-dired . [(20160729 2323) ((look-mode (1 0))) "Extensions to look-mode for dired buffers" single ((:commit . "9bfa4e5e6f3810705b6426c88493ea0bf6b15640") (:keywords "convenience") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/look-dired"))]) (lolcode-mode . [(20111002 847) nil "Major mode for editing LOLCODE" single ((:commit . "1914f1ba87587ecf5f175eeb2144c28e9f039317") (:keywords "lolcode" "major" "mode") (:authors ("Bodil Stokke" . "lolcode@bodil.tv")) (:maintainer "Bodil Stokke" . "lolcode@bodil.tv") (:url . "http://github.com/bodil/lolcode-mode"))]) (logview . [(20181027 1757) ((emacs (24 4)) (datetime (0 6 1)) (extmap (1 0))) "Major mode for viewing log files" single ((:commit . "bd662d467dbd7c93cfe1e3058e4f11c49314fd6a") (:keywords "files" "tools") (:authors ("Paul Pogonyshev" . "pogonyshev@gmail.com")) (:maintainer "Paul Pogonyshev" . "pogonyshev@gmail.com") (:url . "https://github.com/doublep/logview"))]) (logstash-conf . [(20170524 1929) nil "basic mode for editing logstash configuration" single ((:commit . "4e127f9aec190786613445aa88efa307ff7c6748") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (logpad . [(20180607 1915) nil "Simulate Windows Notepad for logging." single ((:keywords "files" "outlines" "notepad") (:authors ("Jens K. Loewe" . "git@tuxproject.de")) (:maintainer "Jens K. Loewe" . "git@tuxproject.de") (:url . "https://bitbucket.org/tux_/logpad.el"))]) (lognav-mode . [(20180708 1022) ((emacs (24 3))) "Navigate Log Error Messages" single ((:keywords "log" "error" "lognav-mode" "convenience") (:authors ("Shawn Ellis" . "shawn.ellis17@gmail.com")) (:maintainer "Shawn Ellis" . "shawn.ellis17@gmail.com") (:url . "https://bitbucket.org/ellisvelo/lognav-mode"))]) (logito . [(20120225 2055) ((eieio (1 3))) "logging library for Emacs" single ((:commit . "824acb89d2cc18cb47281a4fbddd81ad244a2052") (:keywords "lisp" "tool") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Yann Hodique" . "yann.hodique@gmail.com"))]) (logalimacs . [(20131021 1829) ((popwin (0 6 2)) (popup (0 5 0)) (stem (20130120))) "Front-end to logaling-command for Ruby gems" single ((:commit . "8286e39502250fc6c3c6656a7f46a8eee8e9a713") (:keywords "translation" "logaling-command") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/logaling/logalimacs"))]) (log4j-mode . [(20160108 1918) nil "major mode for viewing log files" single ((:commit . "26171b1e723502055e085393b0ecdcb6db406010") (:keywords "tools") (:authors ("Johan Dykstrom" . "jody4711-sf@yahoo.se")) (:maintainer "Johan Dykstrom" . "jody4711-sf@yahoo.se") (:url . "http://log4j-mode.sourceforge.net"))]) (log4e . [(20170401 1304) nil "provide logging framework for elisp" single ((:commit . "c69424e407be0d9d0e54b427d8b18b1ac5a607e2") (:keywords "log") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/log4e"))]) (lodgeit . [(20150312 1349) nil "Paste to a lodgeit powered pastebin" single ((:commit . "ec9b8e5cbb17bcf8ac4bdddd1d361cb60e59384c") (:keywords "pastebin" "lodgeit") (:authors ("Eric Larson" . "eric@ionrock.org")) (:maintainer "Eric Larson" . "eric@ionrock.org") (:url . "https://github.com/ionrock/lodgeit-el"))]) (lockfile-mode . [(20170625 507) nil "Major mode for .lock files" single ((:commit . "fcfef88460cb3cd67c4d83a1801d0326d282feac") (:authors ("Preetpal S. Sohal")) (:maintainer "Preetpal S. Sohal") (:url . "https://github.com/preetpalS/emacs-lockfile-mode"))]) (loccur . [(20161227 1051) ((emacs (24 3))) "Perform an occur-like folding in current buffer" single ((:commit . "650d91dda0d313c8f445a0803c07809d857dee0f") (:keywords "matching") (:authors ("Alexey Veretennikov" . "alexey.veretennikov@gmail.com")) (:maintainer "Alexey Veretennikov" . "alexey.veretennikov@gmail.com") (:url . "https://github.com/fourier/loccur"))]) (loc-changes . [(20160801 1708) nil "keep track of positions even after buffer changes" single ((:commit . "4d1dcdf7631c23b1259ad4f72bf9686cf95fb46c") (:authors ("Rocky Bernstein" . "rocky@gnu.org")) (:maintainer "Rocky Bernstein" . "rocky@gnu.org") (:url . "http://github.com/rocky/emacs-loc-changes"))]) (load-theme-buffer-local . [(20120702 2036) nil "Install emacs24 color themes by buffer." single ((:commit . "e606dec66f16a06140b9aad625a4fd52bca4f936") (:keywords "faces") (:authors ("Victor Borja" . "vic.borja@gmail.com")) (:maintainer "Victor Borja" . "vic.borja@gmail.com") (:url . "http://github.com/vic/color-theme-buffer-local"))]) (load-relative . [(20170526 1010) nil "relative file load (within a multi-file Emacs package)" tar ((:commit . "738896e3da491b35399178ed2c6bc92cc728d119") (:keywords "internal") (:authors ("Rocky Bernstein" . "rocky@gnu.org")) (:maintainer "Rocky Bernstein" . "rocky@gnu.org") (:url . "http://github.com/rocky/emacs-load-relative"))]) (load-env-vars . [(20180511 2210) ((emacs (24))) "Load environment variables from files" single ((:commit . "3808520efaf9492033f6e11a9bffd68eabf02a0f") (:keywords "lisp") (:authors ("Jorge Dias" . "jorge@mrdias.com")) (:maintainer "Jorge Dias" . "jorge@mrdias.com") (:url . "https://github.com/diasjorge/emacs-load-env-vars"))]) (lms . [(20170804 1622) ((emacs (25 1))) "Squeezebox / Logitech Media Server frontend" single ((:keywords "multimedia") (:authors ("Iñigo Serna" . "inigoserna@gmail.com")) (:maintainer "Iñigo Serna" . "inigoserna@gmail.com") (:url . "https://bitbucket.com/inigoserna/lms.el"))]) (livid-mode . [(20131116 1344) ((skewer-mode (1 5 3)) (s (1 8 0))) "Live browser eval of JavaScript every time a buffer changes" single ((:commit . "dfe5212fa64738bc4138bfebf349fbc8bc237c26") (:authors ("Murphy McMahon")) (:maintainer "Murphy McMahon") (:url . "https://github.com/pandeiro/livid-mode"))]) (livescript-mode . [(20140613 421) nil "Major mode for editing LiveScript files" single ((:commit . "90a918d9686e256e6d4d439cc20f24dad8d3b804") (:keywords "languages" "livescript") (:authors ("Hisamatsu Yasuyuki" . "yas@null.net")) (:maintainer "Hisamatsu Yasuyuki" . "yas@null.net") (:url . "https://github.com/yhisamatsu/livescript-mode"))]) (livereload . [(20170629 650) ((emacs (25)) (websocket (1 8))) "Livereload server" tar ((:commit . "1e501d7e46dbd476c2c7cc9d20b5ac9d41fb1955") (:keywords "convenience") (:authors ("João Távora" . "joaotavora@gmail.com")) (:maintainer "João Távora" . "joaotavora@gmail.com"))]) (lively . [(20171005 754) nil "interactively updating text" single ((:commit . "348675828c6a81bfa1ac311ca465aad813542c1b") (:authors ("Luke Gorrie" . "luke@bup.co.nz")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (live-py-mode . [(20181116 536) ((emacs (24 3))) "Live Coding in Python" tar ((:commit . "e823a86707a5821ad761fd27a9c9e90ac47d2319") (:keywords "live" "coding") (:authors ("Don Kirkby http://donkirkby.github.io")) (:maintainer "Don Kirkby http://donkirkby.github.io") (:url . "http://donkirkby.github.io/live-py-plugin/"))]) (live-code-talks . [(20180907 1647) ((emacs (24)) (cl-lib (0 5)) (narrowed-page-navigation (0 1))) "Support for slides with live code in them" single ((:commit . "97f16a9ee4e6ff3e0f9291eaead772c66e3e12ae") (:keywords "docs" "multimedia") (:authors ("David Raymond Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Raymond Christiansen" . "david@davidchristiansen.dk"))]) (literate-starter-kit . [(20150730 1854) ((emacs (24 3))) "A literate starter kit to configure Emacs using Org-mode files." tar ((:commit . "6dce1d01781966c14558aa553cfc85008c06e115"))]) (literate-coffee-mode . [(20170211 1515) ((coffee-mode (0 5 0))) "major-mode for Literate CoffeeScript" single ((:commit . "55ce0305495f4a38c8063c4bd63deb1e1252373d") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-literate-coffee-mode"))]) (literal-string . [(20170301 1530) ((markdown-mode (2 0)) (emacs (25))) "edit string literals in a dedicated buffer" single ((:commit . "2ca4fc08b8e19e6183b1f1db747bb0a4aa4f98eb") (:keywords "lisp" "tools" "docs") (:authors ("Joost Diepenmaat" . "joost@zeekat.nl")) (:maintainer "Joost Diepenmaat" . "joost@zeekat.nl") (:url . "https://github.com/joodie/literal-string-mode/"))]) (litecoin-ticker . [(20160612 11) ((json (1 2))) "litecoin price in modeline" single ((:commit . "3d8047c736e4ee0b8638953f8cc63eaefad34106") (:authors ("Zhe Lei")) (:maintainer "Zhe Lei"))]) (litable . [(20160922 1559) ((dash (2 6 0))) "dynamic evaluation replacement with emacs" single ((:commit . "90a2dca14a6da9b24fe332a65cff899ab4a90810") (:keywords "lisp") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))]) (lit-mode . [(20141123 1736) nil "Major mode for lit" single ((:commit . "c61c403afc8333a5649c5421ab1a6341dc1c7d92") (:keywords "languages" "tools") (:authors ("Hector A Escobedo" . "ninjahector.escobedo@gmail.com")) (:maintainer "Hector A Escobedo" . "ninjahector.escobedo@gmail.com"))]) (list-utils . [(20160414 1402) nil "List-manipulation utility functions" single ((:commit . "acf18aca1131a90f8d673974673e3c5d8fdc6a86") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/list-utils"))]) (list-unicode-display . [(20150219 901) ((cl-lib (0 5))) "Search for and list unicode characters by name" single ((:commit . "222c21c68ccc930b2843ea919c960de9be3b55c2") (:keywords "convenience") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (list-packages-ext . [(20151115 1716) ((s (1 6 0)) (ht (1 5 0)) (persistent-soft (0 8 6))) "Extras for list-packages" single ((:commit . "b4dd644e4369c9aa66f5bb8895ea49ebbfd0a27a") (:keywords "convenience" "tools") (:authors ("Alessandro Piras" . "laynor@gmail.com")) (:maintainer "Alessandro Piras" . "laynor@gmail.com"))]) (list-environment . [(20151227 256) nil "A tabulated process environment editor" single ((:commit . "b7ca30b05905047be2e55199a6475f8d98ce318b") (:keywords "processes" "unix") (:authors ("Charles L.G. Comstock" . "dgtized@gmail.com")) (:maintainer "Charles L.G. Comstock" . "dgtized@gmail.com"))]) (lispyville . [(20181111 1142) ((lispy (0)) (evil (1 2 12)) (cl-lib (0 5)) (emacs (24 4))) "A minor mode for integrating evil with lispy." single ((:commit . "4d87b4532d549bed5fdac38ee137ad23451d0abf") (:keywords "vim" "evil" "lispy" "lisp" "parentheses") (:authors ("Fox Kiester" . "noct@openmailbox.org")) (:maintainer "Fox Kiester" . "noct@openmailbox.org") (:url . "https://github.com/noctuid/lispyville"))]) (lispyscript-mode . [(20170720 1917) nil "Major mode for LispyScript code." single ((:commit . "def632e3335b0c481fbcf5a17f18b0a8c58dd12f") (:keywords "lisp" "languages") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/krisajenkins/lispyscript-mode"))]) (lispy . [(20181114 2049) ((emacs (24 1)) (ace-window (0 9 0)) (iedit (0 9 9)) (swiper (0 7 0)) (hydra (0 13 4)) (zoutline (0 1 0))) "vi-like Paredit" tar ((:commit . "4a9247144b77c904b45c21e94c4dbca91ef56c95"))]) (lispxmp . [(20170926 23) nil "Automagic emacs lisp code annotation" single ((:commit . "7ad077b4ee91ce8a42f84eeddb9fc7ea4eac7814") (:keywords "lisp" "convenience") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/lispxmp.el"))]) (lisp-extra-font-lock . [(20181008 1921) nil "Highlight bound variables and quoted exprs." single ((:commit . "4605eccbe1a7fcbd3cacf5b71249435413b4db4f") (:keywords "languages" "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/lisp-extra-font-lock"))]) (liso-theme . [(20160410 2029) nil "Eclectic Dark Theme for GNU Emacs" single ((:commit . "844688245eb860d23043455e165ee24503454c81") (:keywords "theme" "themes") (:authors ("Vlad Piersec" . "vlad.piersec@gmail.com")) (:maintainer "Vlad Piersec" . "vlad.piersec@gmail.com") (:url . "https://github.com/caisah/liso-theme"))]) (liquid-types . [(20151202 735) ((flycheck (0 13)) (dash (1 2)) (emacs (24 1)) (popup (0 5 2)) (pos-tip (0 5 0)) (flycheck-liquidhs (0 0 1)) (button-lock (1 0 2))) "show inferred liquid-types" single ((:commit . "cc4bacbbf204ef9cf0756f78dfebee2c6ae14d7b") (:authors ("Ranjit Jhala" . "jhala@cs.ucsd.edu")) (:maintainer "Ranjit Jhala" . "jhala@cs.ucsd.edu"))]) (linum-relative . [(20180124 1047) nil "display relative line number in emacs." single ((:commit . "c74a6981b688a5e1e6b8e0809363963ff558ce4d") (:keywords "converience") (:authors ("coldnew" . "coldnew.tw@gmail.com")) (:maintainer "coldnew" . "coldnew.tw@gmail.com") (:url . "http://github.com/coldnew/linum-relative"))]) (linum-off . [(20160217 2137) nil "Provides an interface for turning line-numbering off" single ((:commit . "116e66ac259b183e0763b85616888316ab196822") (:keywords "line" "numbering") (:authors ("Matthew L. Fidler, Florian Adamsky (see wiki)")) (:maintainer "Matthew L. Fidler") (:url . "http://www.emacswiki.org/emacs/auto-indent-mode.el "))]) (linphone . [(20130524 1109) nil "Emacs interface to Linphone" tar ((:commit . "99af3db941b7f4e5272bb48bff96c1ce4ceac302") (:keywords "comm") (:authors ("Yoni Rabkin" . "yonirabkin@member.fsf.org")) (:maintainer "Yoni Rabkin" . "yonirabkin@member.fsf.org") (:url . "https://github.com/zabbal/emacs-linphone"))]) (link-hint . [(20180519 2130) ((avy (0 4 0)) (emacs (24 1)) (cl-lib (0 5))) "Use avy to open, copy, etc. visible links." single ((:commit . "23df5fa36ab182452be6b772475eab67b846dd92") (:keywords "convenience" "url" "avy" "link" "links" "hyperlink") (:authors ("Fox Kiester" . "noct@openmailbox.org")) (:maintainer "Fox Kiester" . "noct@openmailbox.org") (:url . "https://github.com/noctuid/link-hint.el"))]) (link . [(20140718 329) nil "Hypertext links in text buffers" single ((:commit . "a23b8f4a422d0de69a006ed010eff5795319db98") (:keywords "interface" "hypermedia") (:authors ("Torsten Hilbrich" . "torsten.hilbrich@gmx.net")) (:maintainer "Torsten Hilbrich" . "torsten.hilbrich@gmx.net"))]) (linguistic . [(20181019 1542) nil "A package for basic linguistic analysis." tar ((:commit . "04ceb873ba41cd7cb4dc09e537a6dbb80cd12d65") (:keywords "linguistics" "text analysis" "matching") (:authors ("Andrew Favia <drewlinguistics01 at gmail dot com>")) (:maintainer "Andrew Favia <drewlinguistics01 at gmail dot com>") (:url . "https://github.com/andcarnivorous/linguistic"))]) (lingr . [(20100807 1731) nil "Lingr Client for GNU Emacs" single ((:commit . "4215a8704492d3c860097cbe2649936c22c196df") (:keywords "chat" "client" "internet") (:authors ("lugecy" . "lugecy@gmail.com")) (:maintainer "lugecy" . "lugecy@gmail.com") (:url . "http://github.com/lugecy/lingr-el"))]) (lines-at-once . [(20180422 247) ((emacs (25))) "Insert and edit multiple lines at once" single ((:commit . "a018ba90549384d52ec58c2685fd14a0f65252be") (:keywords "abbrev" "tools") (:authors ("Jiahao Li" . "jiahaowork@gmail.com")) (:maintainer "Jiahao Li" . "jiahaowork@gmail.com") (:url . "https://github.com/jiahaowork/lines-at-once.el"))]) (line-up-words . [(20180219 1024) nil "Align words in an intelligent way" single ((:commit . "b6713d19dbc507a30e39f892f698a511f1cf3d1f") (:url . "https://github.com/janestreet/line-up-words"))]) (line-reminder . [(20180603 552) ((emacs (24 4)) (cl-lib (0 6))) "Remind current line status by current buffer." single ((:commit . "07543e7a2c09dee204e312e0318e7b230fb14ec7") (:authors ("Shen, Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Shen, Jen-Chieh" . "jcs090218@gmail.com") (:url . "https://github.com/jcs090218/line-reminder"))]) (light-soap-theme . [(20150607 1445) ((emacs (24))) "Emacs 24 theme with a light background." single ((:commit . "76a787bd40c6b567ae68ced7f5d9f9f10725e00d"))]) (lice . [(20170220 943) nil "License And Header Template" tar ((:commit . "4339929927c62bd636f89bb39ea999d18d269250") (:keywords "template" "license" "tools") (:authors ("Taiki Sugawara" . "buzz.taiki@gmail.com")) (:maintainer "Taiki Sugawara" . "buzz.taiki@gmail.com") (:url . "https://github.com/buzztaiki/lice-el"))]) (libmpdel . [(20181016 653) ((emacs (25 1))) "Communication with an MPD server" single ((:commit . "76711d7c32fe617647098f01d4fee9b3c1eaab46") (:keywords "multimedia") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://gitlab.petton.fr/mpdel/libmpdel"))]) (libmpdee . [(20160117 2301) nil "Client end library for mpd, a music playing daemon" single ((:commit . "a6ca3b7d6687f3ba60996b9b5044ad1d3b228290") (:keywords "music" "mpd") (:authors ("Ramkumar R. Aiyengar" . "andyetitmoves@gmail.com")) (:maintainer "Ramkumar R. Aiyengar" . "andyetitmoves@gmail.com"))]) (libgit . [(20181120 1359) ((emacs (25 1))) "Thin bindings to libgit2." tar ((:commit . "a952314d674b55b5119b5378cd82749a3a18e27f") (:keywords "git" "vc") (:authors ("Eivind Fonn" . "evfonn@gmail.com")) (:maintainer "Eivind Fonn" . "evfonn@gmail.com") (:url . "https://github.com/TheBB/libegit2"))]) (libelcouch . [(20180604 753) ((emacs (25 1)) (request (0 3 0))) "Communication with CouchDB" single ((:commit . "1faa877fd83c31f612eacb1d12645b2b4cfb57ed") (:keywords "tools") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://gitlab.petton.fr/elcouch/libelcouch/"))]) (lfe-mode . [(20170121 1254) nil "Lisp Flavoured Erlang mode" tar ((:commit . "ea62f924b7abbe2a0ff65e27be47acb7f452bc38"))]) (lexbind-mode . [(20141027 1429) nil "Puts the value of lexical-binding in the mode line" single ((:commit . "fa0a6848c1cfd3fbf45db43dc2deef16377d887d") (:keywords "convenience" "lisp") (:authors ("Andrew Kirkpatrick" . "ubermonk@gmail.com")) (:maintainer "Andrew Kirkpatrick" . "ubermonk@gmail.com") (:url . "https://github.com/spacebat/lexbind-mode"))]) (levenshtein . [(20090830 1040) nil "Edit distance between two strings." single ((:commit . "070925197ebf6b704e6e00c4f2d2ec783f3df38c") (:keywords "lisp") (:authors ("Aaron S. Hawley <ashawley at uvm dot edu>,") ("Art Taylor")) (:maintainer "Aaron S. Hawley <ashawley at uvm dot edu>,"))]) (leuven-theme . [(20181120 1033) nil "Awesome Emacs color theme on white background" tar ((:commit . "77dcc0bd277541ce90438e9ea9fc3f3fe5d90e22") (:keywords "color" "theme") (:authors ("Fabrice Niessen <(concat \"fniessen\" at-sign \"pirilampo.org\")>")) (:maintainer "Fabrice Niessen <(concat \"fniessen\" at-sign \"pirilampo.org\")>") (:url . "https://github.com/fniessen/emacs-leuven-theme"))]) (letterbox-mode . [(20170702 125) ((emacs (24 3))) "hide sensitive text on a buffer" single ((:commit . "88c67a51d67216d569a28e8423200883fde096dd") (:keywords "password" "convenience") (:authors ("Fernando Leboran" . "f.leboran@gmail.com")) (:maintainer "Fernando Leboran" . "f.leboran@gmail.com") (:url . "http://github.com/pacha64/letterbox-mode"))]) (letcheck . [(20160202 1948) nil "Check the erroneous assignments in let forms" single ((:commit . "edf188ca2f85349e971b83f164c6484264e79426") (:keywords "convenience") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/letcheck"))]) (less-css-mode . [(20161001 453) nil "Major mode for editing LESS CSS files (lesscss.org)" single ((:commit . "c7fa3d56d83206b28657f2e56439dc62280a2bf2") (:keywords "less" "css" "mode") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/less-css-mode"))]) (lentic-server . [(20160717 2052) ((lentic (0 8)) (web-server (0 1 1))) "Web Server for Emacs Literate Source" single ((:commit . "8e809fafbb27a98f815b544d9d9ee15843eb6a36") (:authors ("Phillip Lord" . "phillip.lord@newcastle.ac.uk")) (:maintainer "Phillip Lord" . "phillip.lord@newcastle.ac.uk"))]) (lentic . [(20161202 2152) ((emacs (24 4)) (m-buffer (0 13)) (dash (2 5 0)) (f (0 17 2)) (s (1 9 0))) "One buffer as a view of another" tar ((:commit . "678db9327209a1e6200c9272f4080595dc68f8a5") (:authors ("Phillip Lord" . "phillip.lord@russet.org.uk")) (:maintainer "Phillip Lord" . "phillip.lord@russet.org.uk"))]) (lenlen-theme . [(20170329 245) ((color-theme-solarized (20150110))) "a solarized-based kawaii light theme" single ((:commit . "b8a6412c81633b10fb98ba0930f55b25071c084a") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (lemon-mode . [(20130216 1304) nil "A major mode for editing lemon grammar files" single ((:commit . "155bfced6c9afc8072a0133d3d1baa54c6d67430") (:keywords "lemon") (:authors ("mooz" . "stillpedant@gmail.com")) (:maintainer "mooz" . "stillpedant@gmail.com"))]) (legalese . [(20150820 1724) nil "Add legalese to your program files" single ((:commit . "ec23e69d18329456beed9546a1d6c72f96db91cf") (:keywords "convenience") (:authors ("Jorgen Schaefer" . "forcer@forcix.cx")) (:maintainer "Jorgen Schaefer" . "forcer@forcix.cx") (:url . "https://github.com/jorgenschaefer/legalese"))]) (leerzeichen . [(20170422 1313) nil "Minor mode to display whitespace characters." single ((:commit . "5acf9855ecb2b2cd5da4402bb48df149e7525cc5") (:keywords "whitespace" "characters") (:authors ("Felix Geller" . "fgeller@gmail.com")) (:maintainer "Felix Geller" . "fgeller@gmail.com") (:url . "http://github.com/fgeller/leerzeichen.el"))]) (ledger-mode . [(20181107 1942) ((emacs (24 3))) "Helper code for use with the \"ledger\" command-line tool" tar ((:commit . "1f5c68fb59d81d2fffe49436ee99a8c291a4fe41"))]) (leanote . [(20161223 139) ((emacs (24 4)) (cl-lib (0 5)) (request (0 2)) (let-alist (1 0 3)) (pcache (0 4 0)) (s (1 10 0)) (async (1 9))) "A minor mode writing markdown leanote" single ((:commit . "d499e7b59bb1f1a2fabc0e4c26fb101ed62ebc7b") (:keywords "leanote" "note" "markdown") (:authors ("Aborn Jiang" . "aborn.jiang@gmail.com")) (:maintainer "Aborn Jiang" . "aborn.jiang@gmail.com") (:url . "https://github.com/aborn/leanote-emacs"))]) (lean-mode . [(20180906 1645) ((emacs (24 3)) (dash (2 12 0)) (dash-functional (1 2 0)) (s (1 10 0)) (f (0 19 0)) (flycheck (30))) "A major mode for the Lean language" tar ((:commit . "9d6b8471e2044310b4cd7cd3213b1fc8f78ec499") (:keywords "languages") (:authors ("Leonardo de Moura" . "leonardo@microsoft.com") ("Soonho Kong " . "soonhok@cs.cmu.edu") ("Gabriel Ebner " . "gebner@gebner.org") ("Sebastian Ullrich" . "sebasti@nullri.ch")) (:maintainer "Sebastian Ullrich" . "sebasti@nullri.ch") (:url . "https://github.com/leanprover/lean-mode"))]) (lcr . [(20180902 1919) ((dash (2 12 0)) (emacs (25 1))) "lightweight coroutines" single ((:commit . "c14f40692292d59156c7632dbdd2867c086aa75f") (:keywords "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/lcr"))]) (lcb-mode . [(20160816 540) ((emacs (24))) "LiveCode Builder major mode" single ((:commit . "be0768e9aa6f9b8e76f2230f4f7f4d152a766b9a") (:keywords "languages") (:authors ("Peter TB Brett" . "peter@peter-b.co.uk")) (:maintainer "Peter TB Brett" . "peter@peter-b.co.uk") (:url . "https://github.com/peter-b/lcb-mode"))]) (lavender-theme . [(20170808 1313) ((emacs (24 0))) "an Emacs 24 theme based on Lavender (tmTheme)" single ((:commit . "ef5e959b95d7fb8152137bc186c4c24e986c1e3c") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (launchctl . [(20150518 1309) ((emacs (24 1))) "Interface to launchctl on Mac OS X." single ((:commit . "73f8f52a5aa9a0be9bdcf68c29ad0fa2b4a115a4") (:keywords "tools" "convenience") (:authors ("Peking Duck <github.com/pekingduck>")) (:maintainer "Peking Duck <github.com/pekingduck>") (:url . "http://github.com/pekingduck/launchctl-el"))]) (launch-mode . [(20170106 512) ((emacs (24 4))) "Major mode for launch-formatted text" tar ((:commit . "25ebd4ba77afcbe729901eb74923dbe9ae81c313") (:authors ("iory" . "ab.ioryz@gmail.com")) (:maintainer "iory" . "ab.ioryz@gmail.com") (:url . "https://github.com/iory/launch-mode"))]) (launch . [(20130619 2204) nil "launch files with OS-standard associated applications." single ((:commit . "e7c3b573fc05fe4d3d322389079909311542e799") (:keywords "convenience" "processes") (:authors ("Simon Law" . "sfllaw@sfllaw.ca")) (:maintainer "Simon Law" . "sfllaw@sfllaw.ca") (:url . "https://github.com/sfllaw/emacs-launch"))]) (latexdiff . [(20180521 2232) ((emacs (24 4))) "Latexdiff integration in Emacs" single ((:commit . "024ee7a4fd235695dacd9f53594fef3d79bee88b") (:keywords "tex" "vc" "tools" "git" "helm") (:authors ("Launay Gaby" . "gaby.launay@tutanota.com")) (:maintainer "Launay Gaby" . "gaby.launay@tutanota.com") (:url . "http://github.com/galaunay/latexdiff.el"))]) (latex-unicode-math-mode . [(20170123 1816) nil "Input method for Unicode math symbols" tar ((:commit . "eb4a5c9f9b00a58d2ca80f90782a851f4c8497b8") (:authors ("Christoph Dittmann" . "github@christoph-d.de")) (:maintainer "Christoph Dittmann" . "github@christoph-d.de") (:url . "https://github.com/Christoph-D/latex-unicode-math-mode"))]) (latex-preview-pane . [(20181008 1822) nil "Makes LaTeX editing less painful by providing a updatable preview pane" tar ((:commit . "5297668a89996b50b2b62f99cba01cc544dbed2e"))]) (latex-pretty-symbols . [(20151112 1044) nil "Display many latex symbols as their unicode counterparts" single ((:keywords "convenience" "display") (:authors ("Erik Parmann" . "eparmann@gmail.com") ("Pål Drange")) (:maintainer "Erik Parmann" . "eparmann@gmail.com") (:url . "https://bitbucket.org/mortiferus/latex-pretty-symbols.el"))]) (latex-math-preview . [(20170522 2155) nil "preview LaTeX mathematical expressions." single ((:commit . "775887a89447dd19541b121161cc02e9799d0d3a") (:keywords "latex" "tex") (:authors ("Takayuki YAMAGUCHI" . "d@ytak.info")) (:maintainer "Takayuki YAMAGUCHI" . "d@ytak.info") (:url . "https://gitlab.com/latex-math-preview/latex-math-preview"))]) (latex-extra . [(20170817 147) ((auctex (11 86 1)) (cl-lib (0 5))) "Adds several useful functionalities to LaTeX-mode." single ((:commit . "82d99b8b0c2db20e5270749582e03bcc2443ffb5") (:keywords "tex") (:authors ("Artur Malabarba" . "artur@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "artur@endlessparentheses.com") (:url . "http://github.com/Malabarba/latex-extra"))]) (lastpass . [(20171208 1016) ((emacs (24 4)) (seq (1 9)) (cl-lib (0 5))) "LastPass command wrapper" single ((:commit . "a4529ce70b8187ed9ac4972997df152af58ef2eb") (:keywords "extensions" "processes" "lpass" "lastpass") (:authors ("Petter Storvik")) (:maintainer "Petter Storvik") (:url . "https://github.com/storvik/emacs-lastpass"))]) (language-detection . [(20161123 1813) ((emacs (24)) (cl-lib (0 5))) "Automatic language detection from code snippets" single ((:commit . "54a6ecf55304fba7d215ef38a4ec96daff2f35a4") (:authors ("Andreas Jansson" . "andreas@jansson.me.uk")) (:maintainer "Andreas Jansson" . "andreas@jansson.me.uk") (:url . "https://github.com/andreasjansson/language-detection.el"))]) (langtool . [(20180409 1016) ((cl-lib (0 3))) "Grammar check utility using LanguageTool" single ((:commit . "d93286722cff3fecf8641a4a6c3b0691f30362fe") (:keywords "docs") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-langtool"))]) (langdoc . [(20150218 645) ((cl-lib (0 2))) "Help to define help document mode for various languages" single ((:commit . "2c7223bacb116992d700ecb19a60df5c09c63424") (:keywords "convenience" "eldoc") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com") (:url . "https://github.com/tom-tan/langdoc/"))]) (lang-refactor-perl . [(20131122 2127) nil "Simple refactorings, primarily for Perl" single ((:commit . "691bd69639de6b7af357e3b7143563ececd9c497") (:keywords "languages" "refactoring" "perl") (:authors (nil . "Johan Lindstrom <buzzwordninja not_this_bit@googlemail.com>")) (:maintainer nil . "Johan Lindstrom <buzzwordninja not_this_bit@googlemail.com>") (:url . "https://github.com/jplindstrom/emacs-lang-refactor-perl"))]) (lammps-mode . [(20180801 1319) ((emacs (24 4))) "basic syntax highlighting for LAMMPS files" single ((:commit . "a5b68d7a59975770b56ee8f6e66fa4f703a72ffe") (:keywords "languages" "faces") (:authors ("Aidan Thompson <athomps at sandia.gov>")) (:maintainer "Rohit Goswami <r95g10 at gmail.com>") (:url . "https://github.com/lammps/lammps/tree/master/tools/emacs"))]) (labburn-theme . [(20170502 907) nil "A lab color space zenburn theme." single ((:commit . "e95334acd8a73fbe8e156f70e047014a87e92e66") (:keywords "theme" "zenburn") (:authors ("Johannes Goslar")) (:maintainer "Johannes Goslar") (:url . "https://github.com/ksjogo/labburn-theme"))]) (lab-themes . [(20181015 1820) ((emacs (24))) "A custom theme carefully constructed in the LAB space" tar ((:commit . "dd1676e901c458cfcd7b9f331535150ae38a36f2") (:keywords "lisp") (:authors ("MetroWind" . "chris.corsair@gmail.com")) (:maintainer "MetroWind" . "chris.corsair@gmail.com") (:url . "https://github.com/MetroWind/lab-theme"))]) (kwin . [(20150308 1812) nil "communicatewith the KWin window manager" single ((:commit . "d4f8f3593598b71ee596e0a87b2c1d6a912a9566") (:authors ("Simon Hafner")) (:maintainer "Simon Hafner") (:url . "http://github.com/reactormonk/kwin-minor-mode"))]) (kv . [(20140108 1534) nil "key/value data structure functions" single ((:commit . "721148475bce38a70e0b678ba8aa923652e8900e") (:keywords "lisp") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk"))]) (kurecolor . [(20180401 1221) ((emacs (24 1)) (s (1 0))) "color editing goodies for Emacs" single ((:commit . "a27153f6a01f38226920772dc4917b73166da5e6") (:authors ("Jason Milkins" . "jasonm23@gmail.com")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com"))]) (kubernetes-tramp . [(20171026 1622) ((emacs (24)) (cl-lib (0 5))) "TRAMP integration for kubernetes containers" single ((:commit . "9fa84df71f6e88bc23a756cdf2df393a35aec945") (:keywords "kubernetes" "convenience") (:authors ("Giovanni Ruggiero" . "giovanni.ruggiero+github@gmail.com")) (:maintainer "Giovanni Ruggiero" . "giovanni.ruggiero+github@gmail.com") (:url . "https://github.com/gruggiero/kubernetes-tramp"))]) (kubernetes-evil . [(20171123 219) ((kubernetes (0 12 0)) (evil (1 2 12))) "Kubernetes keybindings for evil-mode." single ((:commit . "2b5ce22b12bd8a569cb0a8019a395173e3a13523") (:authors ("Chris Barrett" . "chris+emacs@walrus.cool")) (:maintainer "Chris Barrett" . "chris+emacs@walrus.cool"))]) (kubernetes . [(20180706 1220) ((emacs (25 1)) (dash (2 12 0)) (magit (2 8 0))) "Magit-like porcelain for Kubernetes." tar ((:commit . "2b5ce22b12bd8a569cb0a8019a395173e3a13523") (:authors ("Chris Barrett" . "chris+emacs@walrus.cool")) (:maintainer "Chris Barrett" . "chris+emacs@walrus.cool"))]) (ksp-cfg-mode . [(20180609 547) ((cl-lib (0 5))) "major mode for editing KSP CFG files" single ((:commit . "fda64705f605fb8fccee53a5040fe4865ca17d44") (:keywords "data") (:authors ("Emily Backes" . "lucca@accela.net")) (:maintainer "Emily Backes" . "lucca@accela.net") (:url . "http://github.com/lashtear/ksp-cfg-mode"))]) (kroman . [(20150827 2340) nil "Korean hangul romanization" single ((:commit . "90402b6ae40383e75d8ba97d66eee93eebf40f70") (:keywords "korean" "roman") (:authors ("Zhang Kai Yu" . "yeannylam@gmail.com")) (:maintainer "Zhang Kai Yu" . "yeannylam@gmail.com"))]) (kpm-list . [(20170924 1352) nil "An emacs buffer list that tries to intelligently group together buffers." single ((:commit . "e0f5112e5ce8ec1b603f4428fa51681c68bb28f5") (:authors ("Kevin Mahoney")) (:maintainer "Kevin Mahoney") (:url . "https://github.com/KMahoney/kpm-list/"))]) (kotlin-mode . [(20181109 1818) ((emacs (24 3))) "Major mode for kotlin" single ((:commit . "666187a086c042e70b65b13ea83b34a493440d95") (:keywords "languages") (:authors ("Shodai Yokoyama" . "quantumcars@gmail.com")) (:maintainer "Shodai Yokoyama" . "quantumcars@gmail.com"))]) (kosmos-theme . [(20170502 1850) ((emacs (24))) "Black and lightgray theme with not so much syntax highlighting." single ((:commit . "616456d2376a75dc31190ad65137d179fbad4336") (:authors ("Maxim Kim" . "habamax@gmail.com")) (:maintainer "Maxim Kim" . "habamax@gmail.com") (:url . "https://github.com/habamax/kosmos-theme"))]) (korean-holidays . [(20170301 445) nil "Korean holidays for calendar." single ((:commit . "6e94c2e071069aee9ed12ebbfd9b0ad863b8c78e") (:keywords "calendar") (:authors ("SeungKi Kim" . "tttuuu888@gmail.com")) (:maintainer "SeungKi Kim" . "tttuuu888@gmail.com") (:url . "https://github.com/tttuuu888/korean-holidays"))]) (kooten-theme . [(20161023 905) ((emacs (24 1))) "Dark color theme" single ((:commit . "d10197b4dd7af02cd14aeab2573c273a294798c3") (:keywords "themes") (:authors ("Pascal van Kooten" . "kootenpv@gmail.com")) (:maintainer "Pascal van Kooten" . "kootenpv@gmail.com") (:url . "http://github.com/kootenpv/emacs-kooten-theme"))]) (kolon-mode . [(20140122 1134) nil "Syntax highlighting for Text::Xslate's Kolon syntax" single ((:commit . "5af0955e280ae991862189ebecd3937c5fc8fb9f") (:keywords "xslate" "perl") (:authors ("Sam Tran")) (:maintainer "Sam Tran") (:url . "https://github.com/samvtran/kolon-mode"))]) (kodi-remote . [(20181120 2027) ((request (0 2 0)) (let-alist (1 0 4)) (json (1 4)) (elnode (20140203 1506))) "Remote Control for Kodi" single ((:commit . "a8ba7f3744d18002b192b787ba3463861d6b9453") (:keywords "kodi" "tools" "convinience") (:authors ("Stefan Huchler" . "stefan.huchler@mail.de")) (:maintainer "Stefan Huchler" . "stefan.huchler@mail.de") (:url . "http://github.com/spiderbit/kodi-remote.el"))]) (know-your-http-well . [(20160208 2304) nil "Look up the meaning of HTTP headers, methods, relations, status codes" tar ((:commit . "3cc5ab6d2764ab7aacb1b6e026abaccbeb6c37f2"))]) (klere-theme . [(20180415 1823) ((emacs (24))) "A dark theme with lambent color highlights and incremental grays" single ((:commit . "c064f9e5c44173c239fce239a62c8d5e61827672") (:authors ("Wamm K. D." . "jaft.r@outlook.com")) (:maintainer "Wamm K. D." . "jaft.r@outlook.com") (:url . "https://github.com/WammKD/emacs-klere-theme"))]) (kixtart-mode . [(20150611 1604) ((emacs (24))) "major mode for Kixtart scripting files" single ((:commit . "1c2356797e7b766bbaaa2b341176a8b10499cd79") (:keywords "languages") (:authors ("Ryrun <https://github.com/ryrun>")) (:maintainer "Ryrun <https://github.com/ryrun>") (:url . "https://github.com/ryrun/kixtart-mode"))]) (kiwix . [(20170927 820) ((emacs (24 4)) (cl-lib (0 5))) "Kiwix interface and support." single ((:commit . "86dbead6c0017beefd92a0b64a0bb5f5d12c5b16") (:keywords "kiwix" "wikipedia") (:authors ("stardiviner" . "numbchild@gmail.com")) (:maintainer "stardiviner" . "numbchild@gmail.com") (:url . "https://github.com/stardiviner/kiwix.el"))]) (kivy-mode . [(20180702 2029) nil "Emacs major mode for editing Kivy files" single ((:commit . "372b81964f55d2ca74641944ab8c908172306e59") (:authors ("Dean Serenevy" . "dean@serenevy.net")) (:maintainer "Dean Serenevy" . "dean@serenevy.net"))]) (kite-mini . [(20160508 1106) ((dash (2 11 0)) (websocket (1 5))) "Remotely evaluate JavaScript in the WebKit debugger" tar ((:commit . "a68619dbc109c7989f3448426d8c1ee9e797c11f") (:keywords "webkit") (:authors ("Tung Dao" . "me@tungdao.com")) (:maintainer "Tung Dao" . "me@tungdao.com") (:url . "https://github.com/tungd/kite-mini.el"))]) (kite . [(20130201 1938) ((json (1 2)) (websocket (0 93 1))) "WebKit inspector front-end" tar ((:commit . "7ed74d1147a6ddd152d3da65dc30df3517d53144") (:keywords "tools") (:authors ("Julian Scheid" . "julians37@gmail.com")) (:maintainer "Julian Scheid" . "julians37@gmail.com"))]) (killer . [(20120808 1122) nil "kill and delete text" single ((:commit . "7bbb223f875402a7b2abee4baa5a54f10bd97212") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "http://github.com/tarsius/killer"))]) (kill-ring-search . [(20140422 1555) nil "incremental search for the kill ring" single ((:commit . "23535b4a01a1cb1574604e36c49614e84e85c883") (:keywords "convenience" "matching") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/kill-ring-search/"))]) (kill-or-bury-alive . [(20180101 618) ((emacs (24 4)) (cl-lib (0 5))) "Precise control over buffer killing in Emacs" single ((:commit . "0ba8f44efe60058ef66b10a059fd30489b42546f") (:keywords "buffer" "killing" "convenience") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/kill-or-bury-alive"))]) (kibit-helper . [(20150508 1533) ((s (0 8)) (emacs (24))) "Conveniently use the Kibit Leiningen plugin from Emacs" single ((:commit . "16bdfff785ee05d8e74a5780f6808506d990cef7") (:keywords "languages" "clojure" "kibit") (:authors ("Jonas Enlund") ("James Elliott" . "james@brunchboy.com")) (:maintainer "Jonas Enlund") (:url . "http://www.github.com/brunchboy/kibit-helper"))]) (keyword-search . [(20180424 1102) nil "browser keyword search from Emacs" tar ((:commit . "f8475ecaddb8804a9be6bee47678207c86ac8dee") (:keywords "web" "search" "keyword") (:maintainer "Jens Petersen") (:url . "https://github.com/juhp/keyword-search"))]) (keyswap . [(20160813 957) ((emacs (24 3))) "swap bindings between key pairs" single ((:commit . "cd682a7c4a8d64d6bae6a005db5045232e5e7b95") (:keywords "convenience") (:authors ("Matthew Malcomson" . "hardenedapple@gmail.com")) (:maintainer "Matthew Malcomson" . "hardenedapple@gmail.com") (:url . "http://github.com/hardenedapple/keyswap.el"))]) (keyset . [(20150220 530) ((dash (2 8 0)) (cl-lib (0 5))) "A small library for structuring key bindings." single ((:commit . "41bbfc4dbed5de6ecf3ec1dba634c7c26241ca84") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com") (:url . "https://github.com/HKey/keyset"))]) (keypress-multi-event . [(20180817 853) ((emacs (24 3))) "Perform different actions for the same keypress." single ((:commit . "ec94209e52e17427e513b0b24ac2de1ac90b3762") (:keywords "abbrev" "convenience" "wp" "keyboard") (:authors ("Boruch Baum" . "boruch_baum@gmx.com")) (:maintainer "Boruch Baum" . "boruch_baum@gmx.com") (:url . "https://www.github.com/Boruch_Baum/emacs-keypress-multi-event"))]) (keymap-utils . [(20180318 2237) ((cl-lib (0 3))) "keymap utilities" single ((:commit . "1ad766dbc111ec78b1a292da97b9bd4856cd2ff7") (:keywords "convenience" "extensions") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/keymap-utils"))]) (keyfreq . [(20160516 1416) ((cl-lib (0 5))) "track command frequencies" single ((:commit . "9c665c8c219d18866403897936427bb408e3d6b9") (:authors ("Ryan Yeske, Michal Nazarewicz (mina86/AT/mina86.com)")) (:maintainer "David Capello, Xah lee"))]) (keydef . [(20090428 1931) nil "a simpler way to define keys, with kbd syntax" single ((:commit . "dff2be9f58d12d8c6a490ad0c1b2b10b55528dc0") (:keywords "convenience" "lisp" "customization" "keyboard" "keys") (:authors ("Michael John Downes" . "mjd@ams.org")) (:maintainer "Michael John Downes" . "mjd@ams.org"))]) (keychain-environment . [(20180318 2223) nil "load keychain environment variables" single ((:commit . "d3643196de6dc79ea77f9f4805028350fd76100b") (:keywords "gnupg" "pgp" "ssh") (:authors ("Paul Tipper <bluefoo at googlemail dot com>")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/keychain-environment"))]) (keycast . [(20180318 2021) ((emacs (25 3))) "Show current command and its key in the mode line" single ((:commit . "46370b8a72922902921d3ed2fa194564568053dc") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/keycast"))]) (key-seq . [(20150907 756) ((key-chord (0 6))) "map pairs of sequentially pressed keys to commands" single ((:commit . "e29b083a6427d061638749194fc249ef69ad2cc0") (:keywords "convenience" "keyboard" "keybindings") (:authors ("Vyacheslav Levit" . "dev@vlevit.org")) (:maintainer "Vyacheslav Levit" . "dev@vlevit.org") (:url . "http://github.com/vlevit/key-seq.el"))]) (key-leap . [(20160831 1447) ((emacs (24 3))) "Leap between lines by typing keywords" single ((:commit . "b3f6ef15c8a13870475d5af159fa24b30f97dea0") (:keywords "point" "convenience") (:authors ("Martin Rykfors" . "martinrykfors@gmail.com")) (:maintainer "Martin Rykfors" . "martinrykfors@gmail.com") (:url . "https://github.com/MartinRykfors/key-leap"))]) (key-intercept . [(20140211 749) nil "Intercept prefix keys" single ((:commit . "d9a60edb4ce893f2d3d94f242164fdcc62d43cf2") (:keywords "keyboard") (:authors ("INA Lintaro <tarao.gnn at gmail.com>")) (:maintainer "INA Lintaro <tarao.gnn at gmail.com>") (:url . "http://github.com/tarao/key-intercept-el"))]) (key-combo . [(20150324 1439) nil "map key sequence to commands" single ((:commit . "2fb5c65bc82d5bd2964e2b163822429ab45d90a1") (:keywords "keyboard" "input") (:authors ("Yuuki Arisawa" . "yuuki.ari@gmail.com")) (:maintainer "Vitalie Spinu" . "spinuvit@gmail.com") (:url . "https://github.com/uk-ar/key-combo"))]) (key-chord . [(20160227 1238) nil "map pairs of simultaneously pressed keys to commands" single ((:commit . "72443e9ff3c4f1c3ccaced3130236801efde3d83") (:keywords "keyboard" "chord" "input") (:authors ("David Andersson <l.david.andersson(at)sverige.nu>")) (:maintainer "David Andersson <l.david.andersson(at)sverige.nu>"))]) (kerl . [(20150424 2005) nil "Emacs integration for kerl" single ((:commit . "1732ee26213f021bf040919c45ad276aafcaae14") (:keywords "tools") (:authors ("Correl Roush" . "correl@gmail.com")) (:maintainer "Correl Roush" . "correl@gmail.com") (:url . "http://github.com/correl/kerl.el/"))]) (kdeconnect . [(20180126 2340) nil "An interface for KDE Connect" single ((:commit . "ca0cbf9a628ba7b519b43fa85e0d988ca26bf853") (:keywords "kdeconnect" "android") (:authors ("Carl Lieberman" . "dev@carl.ac")) (:maintainer "Carl Lieberman" . "dev@carl.ac"))]) (karma . [(20160220 1245) ((pkg-info (0 4)) (emacs (24))) "Karma Test Runner Emacs Integration" single ((:commit . "31d3e7708246183d7ed0686be92bf23140af348c") (:keywords "language" "javascript" "js" "karma" "testing") (:authors ("Samuel Tonini")) (:maintainer "Samuel Tonini") (:url . "http://github.com/tonini/karma.el"))]) (kapacitor . [(20180910 442) ((emacs (25 1)) (magit (2 13 0)) (magit-popup (2 12 4))) "Main file for kapacitor-mode" single ((:commit . "b0e95f98b965f215be6ead14779949d5cf358ea5") (:keywords "kapacitor" "emacs" "magit" "tools") (:authors ("Manoj Kumar Manikchand" . "manojm.321@gmail.com")) (:maintainer "Manoj Kumar Manikchand" . "manojm.321@gmail.com") (:url . "http://github.com/Manoj321/kapacitor-el"))]) (kaomoji . [(20171227 440) ((emacs (24 3)) (helm-core (1 9 1))) "Input kaomoji superb easily" tar ((:commit . "90a1490743b2a30762f5454c9d9309018eff83dd") (:keywords "tools" "fun") (:authors ("Ono Hiroko" . "azazabc123@gmail.com")) (:maintainer "Ono Hiroko" . "azazabc123@gmail.com") (:url . "https://github.com/kuanyui/kaomoji.el"))]) (kaolin-themes . [(20181117 836) ((emacs (25 1)) (autothemer (0 2 2)) (cl-lib (0 6))) "A set of eye pleasing themes" tar ((:commit . "7ddbe315c85082a6ed9ded576ed8b9e9ed8fe1f2") (:keywords "dark" "light" "teal" "blue" "violet" "purple" "brown" "theme" "faces") (:authors ("Ogden Webb" . "ogdenwebb@gmail.com")) (:maintainer "Ogden Webb" . "ogdenwebb@gmail.com") (:url . "https://github.com/ogdenwebb/emacs-kaolin-themes"))]) (kanji-mode . [(20160826 1139) nil "View stroke order for kanji characters at cursor" tar ((:commit . "eda4f8666486689d36317db7dbda54fb73d3e3d2") (:authors ("Wojciech Gac" . "wojciech.s.gac@gmail.com")) (:maintainer "Wojciech Gac" . "wojciech.s.gac@gmail.com") (:url . "http://github.com/wsgac/kanji-mode "))]) (kanban . [(20170418 810) nil "Parse org-todo headlines to use org-tables as Kanban tables" single ((:keywords "outlines" "convenience") (:authors ("Arne Babenhauserheide" . "arne_bab@web.de")) (:maintainer "Arne Babenhauserheide" . "arne_bab@web.de"))]) (kaleidoscope-evil-state-flash . [(20170728 1020) ((evil (1 2 12)) (kaleidoscope (0 1 0)) (s (1 11 0))) "Flash keyboard LEDs when changing Evil state" single ((:commit . "52b5be3277f65cb5ca657973e9bd7f914b996356") (:authors ("Gergely Nagy")) (:maintainer "Gergely Nagy") (:url . "https://github.com/algernon/kaleidoscope.el"))]) (kaleidoscope . [(20170808 817) ((s (1 11 0))) "Controlling Kaleidoscope-powered devices." single ((:commit . "52b5be3277f65cb5ca657973e9bd7f914b996356") (:authors ("Gergely Nagy")) (:maintainer "Gergely Nagy") (:url . "https://github.com/algernon/kaleidoscope.el"))]) (kakapo-mode . [(20171004 451) ((cl-lib (0 5))) "TABS (hard or soft) for indentation (leading whitespace), and SPACES for alignment." single ((:commit . "292e07203c676361a1d918deb5acf2123cd70eaf") (:keywords "indentation") (:url . "https://github.com/listx/kakapo-mode"))]) (kaesar-mode . [(20160128 1008) ((kaesar (0 1 4)) (cl-lib (0 3))) "Encrypt/Decrypt buffer by AES with password." single ((:commit . "d087075cb1a46c2c85cd075220e09b2eaef9b86e") (:keywords "data" "convenience") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-kaesar"))]) (kaesar-file . [(20160128 1008) ((kaesar (0 1 1))) "Encrypt/Decrypt file by AES with password." single ((:commit . "d087075cb1a46c2c85cd075220e09b2eaef9b86e") (:keywords "data" "files") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-kaesar"))]) (kaesar . [(20160128 1008) ((cl-lib (0 3))) "Another AES algorithm encrypt/decrypt string with password." single ((:commit . "d087075cb1a46c2c85cd075220e09b2eaef9b86e") (:keywords "data") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-kaesar"))]) (jvm-mode . [(20150422 708) ((dash (2 6 0)) (emacs (24))) "Monitor and manage your JVMs" single ((:commit . "3355dbaf5b0185aadfbad24160399abb32c5bea0") (:keywords "convenience") (:authors ("Martin Trojer" . "martin.trojer@gmail.com")) (:maintainer "Martin Trojer" . "martin.trojer@gmail.com") (:url . "https://github.com/martintrojer/jvm-mode.el"))]) (jumplist . [(20151120 345) ((cl-lib (0 5))) "Jump like vim jumplist or ex jumplist" single ((:commit . "c482d137d95bc5e1bcd790cdbde25b7f729b2502") (:keywords "jumplist" "vim") (:authors ("ganmacs <ganmacs_at_gmail.com>")) (:maintainer "ganmacs <ganmacs_at_gmail.com>") (:url . "https://github.com/ganmacs/jumplist"))]) (jump-tree . [(20171014 1551) nil "Treat position history as a tree" tar ((:commit . "282267dc6305889e31d46b405b7ad4dfe5923b66") (:keywords "convenience" "position" "jump" "tree") (:authors ("Wen Yang" . "yangwen0228@foxmail.com")) (:maintainer "Wen Yang" . "yangwen0228@foxmail.com") (:url . "https://github.com/yangwen0228/jump-tree"))]) (jump-to-line . [(20130122 1653) nil "Jump to line number at point." single ((:commit . "01ef8c3529d85e6c59cc20840acbc4a8e8325bc8") (:keywords "jump" "line" "back" "file" "ruby" "csharp" "python" "perl") (:authors ("ongaeshi")) (:maintainer "ongaeshi"))]) (jump-char . [(20180601 1348) nil "navigation by char" single ((:commit . "1e31a3c687f2b3c71bbfab881c6d75915534bb9e") (:authors ("Le Wang")) (:maintainer "Le Wang") (:url . "https://github.com/lewang/jump-char"))]) (jump . [(20161127 128) ((findr (0 7)) (inflections (2 4)) (cl-lib (0 5))) "build functions which contextually jump between files" single ((:commit . "e4f1372cf22e811faca52fc86bdd5d817498a4d8") (:keywords "project" "convenience" "navigation") (:authors ("Eric Schulte")) (:maintainer "Eric Schulte") (:url . "http://github.com/eschulte/jump.el"))]) (jumblr . [(20170727 2043) ((s (1 8 0)) (dash (2 2 0))) "an anagram game for emacs" tar ((:commit . "34533dfb9db8538c005f4eaffafeff7ed193729f") (:keywords "anagram" "word game" "games") (:url . "https://github.com/mkmcc/jumblr"))]) (julia-shell . [(20161125 1910) ((julia-mode (0 3))) "Major mode for an inferior Julia shell" tar ((:commit . "583a0b2ca20461ab4356929fd0f2212c22341b69") (:authors ("Dennis Ogbe" . "dogbe@purdue.edu")) (:maintainer "Dennis Ogbe" . "dogbe@purdue.edu"))]) (julia-repl . [(20180923 1124) ((emacs (25))) "A minor mode for a Julia REPL" single ((:commit . "d8b94c6dbfa47fd51540b9d5b1bb0c2dfce3ebc2") (:keywords "languages") (:authors ("Tamas Papp" . "tkpapp@gmail.com")) (:maintainer "Tamas Papp" . "tkpapp@gmail.com") (:url . "https://github.com/tpapp/julia-repl"))]) (julia-mode . [(20180816 2117) nil "Major mode for editing Julia source code" single ((:commit . "ec01995f60486480cf2240bbd3b9a2ff3fa9e0f0") (:keywords "languages") (:url . "https://github.com/JuliaLang/julia"))]) (jtags . [(20160211 2029) nil "enhanced tags functionality for Java development" tar ((:commit . "b50daa48510f71e74ce0ec2eb85030896a79cf96") (:keywords "languages" "tools") (:authors ("Alexander Baltatzis" . "alexander@baltatzis.com") ("Johan Dykstrom" . "jody4711-sf@yahoo.se")) (:maintainer "Johan Dykstrom" . "jody4711-sf@yahoo.se") (:url . "http://jtags.sourceforge.net"))]) (jsx-mode . [(20130908 1724) nil "major mode for JSX" single ((:commit . "47213429c09259126cddb5742482cfc444c70d50") (:authors ("Takeshi Arabiki (abicky)")) (:maintainer "Takeshi Arabiki (abicky)") (:url . "https://github.com/jsx/jsx-mode.el"))]) (jst . [(20150604 1138) ((s (1 9)) (f (0 17)) (dash (2 10)) (pcache (0 3)) (emacs (24 4))) "JS test mode" single ((:commit . "2a3fd16c992f7790dc67134ef06a814c3d20579c") (:keywords "js" "javascript" "jasmine" "coffee" "coffeescript") (:authors ("Cheung Hoi Yu" . "yeannylam@gmail.com")) (:maintainer "Cheung Hoi Yu" . "yeannylam@gmail.com") (:url . "https://github.com/cheunghy/jst-mode"))]) (jss . [(20130508 1423) ((emacs (24 1)) (websocket (0)) (js2-mode (0))) "An emacs interface to webkit and mozilla debuggers" tar ((:commit . "41749257aecf13c7bd6ed489b5ab3304d06e40bc") (:keywords "languages") (:authors ("Marco Baringer" . "mb@bese.it")) (:maintainer "Marco Baringer" . "mb@bese.it"))]) (jsonnet-mode . [(20180822 1619) ((emacs (24))) "Major mode for editing jsonnet files" single ((:commit . "0d68681d501fd57ebde5ed4fe100033a5d3aafa8") (:keywords "languages") (:authors ("Nick Lanham")) (:maintainer "Nick Lanham") (:url . "https://github.com/mgyucht/jsonnet-mode"))]) (json-snatcher . [(20150512 347) ((emacs (24))) "Grabs the path to JSON values in a JSON file" single ((:commit . "c4cecc0a5051bd364373aa499c47a1bb7a5ac51c") (:authors ("Sterling Graham" . "sterlingrgraham@gmail.com")) (:maintainer "Sterling Graham" . "sterlingrgraham@gmail.com") (:url . "http://github.com/sterlingg/json-snatcher"))]) (json-rpc . [(20180104 1528) ((emacs (24 1)) (cl-lib (0 5))) "JSON-RPC library" single ((:commit . "0992ae71964055230aa5d4d934a1b93b5dfd7eb4") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/elisp-json-rpc"))]) (json-reformat . [(20160212 853) nil "Reformatting tool for JSON" single ((:commit . "8eb6668ed447988aea06467ba8f42e1f2178246f") (:keywords "json") (:authors ("Wataru MIYAGUNI" . "gonngo@gmail.com")) (:maintainer "Wataru MIYAGUNI" . "gonngo@gmail.com") (:url . "https://github.com/gongo/json-reformat"))]) (json-navigator . [(20171220 819) ((emacs (24 3)) (hierarchy (0 6 0))) "View and navigate JSON structures" single ((:commit . "7a1fec93500c46ccba4086d10115d8188607d0d0") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://github.com/DamienCassou/json-navigator"))]) (json-mode . [(20180718 809) ((json-reformat (0 0 5)) (json-snatcher (1 0 0))) "Major mode for editing JSON files." single ((:commit . "ffc92b1eefc54963703b43be140f4c8c8ad348f7") (:authors ("Josh Johnston")) (:maintainer "Josh Johnston") (:url . "https://github.com/joshwnj/json-mode"))]) (jsfmt . [(20180920 1008) nil "Interface to jsfmt command for javascript files" single ((:commit . "ca141a135c7700eaedef92561d334e1fb7dc28a1") (:authors ("Brett Langdon" . "brett@blangdon.com")) (:maintainer "Brett Langdon" . "brett@blangdon.com") (:url . "https://github.com/brettlangdon/jsfmt.el"))]) (jscs . [(20151015 1749) ((emacs (24 1)) (cl-lib (0 5))) "Consistent JavaScript editing using JSCS" single ((:commit . "9d39d0f2355e69a020bf76242504f3a33e013ccf") (:keywords "languages" "convenience") (:authors ("papaeye" . "papaeye@gmail.com")) (:maintainer "papaeye" . "papaeye@gmail.com") (:url . "https://github.com/papaeye/emacs-jscs"))]) (js3-mode . [(20160515 1550) nil "An improved JavaScript editing mode" tar ((:commit . "229aeb374f1b1f3ee5c59b8ba3eebb6385c232cb") (:keywords "javascript" "languages") (:authors ("Thom Blake" . "webmaster@thomblake.com")) (:maintainer "Thom Blake" . "webmaster@thomblake.com"))]) (js2-refactor . [(20180502 1042) ((js2-mode (20101228)) (s (1 9 0)) (multiple-cursors (1 0 0)) (dash (1 0 0)) (s (1 0 0)) (yasnippet (0 9 0 1))) "A JavaScript refactoring library for emacs." tar ((:commit . "79124b3274c43ad1f9ec6205fa362576552db02f"))]) (js2-mode . [(20180724 801) ((emacs (24 1)) (cl-lib (0 5))) "Improved JavaScript editing mode" tar ((:commit . "5165f4dc3805add174e48f0d64c5617d10ac3507") (:keywords "languages" "javascript") (:authors ("Steve Yegge" . "steve.yegge@gmail.com") ("mooz" . "stillpedant@gmail.com") ("Dmitry Gutov" . "dgutov@yandex.ru")) (:maintainer "Steve Yegge" . "steve.yegge@gmail.com") (:url . "https://github.com/mooz/js2-mode/"))]) (js2-highlight-vars . [(20170418 1829) ((emacs (24 4)) (js2-mode (20150908))) "highlight occurrences of the variable under cursor" single ((:commit . "e3bb177e50f76b272e8073a94d4f46be6512a163") (:authors ("Mihai Bazon" . "mihai.bazon@gmail.com")) (:maintainer "Mihai Bazon" . "mihai.bazon@gmail.com") (:url . "http://mihai.bazon.net/projects/editing-javascript-with-emacs-js2-mode/js2-highlight-vars-mode"))]) (js2-closure . [(20170816 1918) ((js2-mode (20150909))) "Google Closure dependency manager" single ((:commit . "f59db386d7d0693935d0bf52babcd2c203c06d04") (:keywords "javascript" "closure") (:authors ("Justine Tunney" . "jart@google.com")) (:maintainer "Justine Tunney" . "jart@google.com") (:url . "http://github.com/jart/js2-closure"))]) (js-import . [(20180817 1056) ((emacs (24 4)) (f (0 19 0)) (projectile (0 14 0)) (dash (2 13 0))) "Import Javascript files from your current project or dependencies" single ((:commit . "c98e74a0b43d6ccb8764cf572cdde95ca27f5633") (:keywords "tools") (:authors ("Jakob Lind" . "karl.jakob.lind@gmail.com")) (:maintainer "Jakob Lind" . "karl.jakob.lind@gmail.com") (:url . "https://github.com/jakoblind/js-import"))]) (js-format . [(20170119 102) ((emacs (24 1)) (js2-mode (20101228))) "Format or transform code style using NodeJS server with different javascript formatter" tar ((:commit . "544bda9be72b74ec2d442543ba60cff727d96669") (:keywords "js" "javascript" "format" "standard" "jsbeautify" "esformatter" "airbnb") (:authors ("James Yang" . "jamesyang999@gmail.com")) (:maintainer "James Yang" . "jamesyang999@gmail.com") (:url . "http://github.com/futurist/js-format.el"))]) (js-doc . [(20160715 434) nil "Insert JsDoc style comment easily" single ((:commit . "f0606e89d5aa89146f96edb38cf69af0068a9d1e") (:keywords "document" "comment") (:authors ("mooz" . "stillpedant@gmail.com")) (:maintainer "mooz" . "stillpedant@gmail.com") (:url . "https://github.com/mooz/js-doc"))]) (js-comint . [(20181106 2238) ((emacs (24 3))) "JavaScript interpreter in window." single ((:commit . "01be9d821269c513665d00416f6dac5c77808801") (:keywords "javascript" "node" "inferior-mode" "convenience") (:authors ("Paul Huff" . "paul.huff@gmail.com")) (:maintainer "Chen Bin <chenbin.sh AT gmail DOT com>") (:url . "https://github.com/redguardtoo/js-comint"))]) (js-codemod . [(20171104 1154) ((emacs (24 4))) "Run js-codemod on current line or selected region" tar ((:commit . "014e56c846487d1eeaf8a91dd503b9d96eb1510a") (:keywords "js" "codemod" "region") (:authors (nil . "Torgeir Thoresen <@torgeir>")) (:maintainer nil . "Torgeir Thoresen <@torgeir>"))]) (js-auto-format-mode . [(20180807 1352) ((emacs (24))) "Minor mode for auto-formatting JavaScript code" single ((:commit . "29d245b4d126a5fc5153a4d8f17396be4165b4a6") (:keywords "languages") (:authors ("Masafumi Koba" . "ybiquitous@gmail.com")) (:maintainer "Masafumi Koba" . "ybiquitous@gmail.com") (:url . "https://github.com/ybiquitous/js-auto-format-mode"))]) (js-auto-beautify . [(20161031 509) ((web-beautify (0 3 1)) (web-mode (14 0 27))) "auto format you js/jsx file" single ((:commit . "180d15af7b5dfaab4ee1954cca2fdc797932f9de") (:authors (nil . "quanwei9958@126.com")) (:maintainer nil . "quanwei9958@126.com"))]) (jquery-doc . [(20150812 758) nil "jQuery api documentation interface for emacs" tar ((:commit . "24032284919b942ec27707d929bdd8bf48420062") (:keywords "docs" "jquery") (:authors ("Anantha kumaran" . "ananthakumaran@gmail.com")) (:maintainer "Anantha kumaran" . "ananthakumaran@gmail.com"))]) (jq-mode . [(20181103 1258) ((emacs (25 1))) "Edit jq scripts." tar ((:commit . "d6bbd83baf0746f22564f7ae92db44e06da6e08c") (:authors ("Bjarte Johansen <Bjarte dot Johansen at gmail dot com>")) (:maintainer "Bjarte Johansen <Bjarte dot Johansen at gmail dot com>") (:url . "https://github.com/ljos/jq-mode"))]) (jpop . [(20170410 1250) ((emacs (24)) (dash (2 11 0)) (cl-lib (0 5))) "Lightweight project caching and navigation framework" tar ((:commit . "7628b03260be96576b34459d45959ee77d8b2110") (:keywords "project" "convenience") (:authors ("Dom Charlesworth" . "dgc336@gmail.com")) (:maintainer "Dom Charlesworth" . "dgc336@gmail.com") (:url . "https://github.com/domtronn/jpop.el"))]) (jonprl-mode . [(20160819 59) ((emacs (24 3)) (cl-lib (0 5)) (yasnippet (0 8 0))) "A major mode for editing JonPRL files" tar ((:commit . "6059bb64891fae45827174e044d6a87ac07172d8") (:keywords "languages") (:authors ("David Raymond Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Raymond Christiansen" . "david@davidchristiansen.dk"))]) (jknav . [(20121006 2025) nil "Automatically enable j/k keys for line-based navigation" single ((:commit . "861245715c728503dad6573278fdd75c271dbf8b") (:keywords "keyboard" "navigation") (:authors ("Aaron Culich" . "aculich@gmail.com")) (:maintainer "Aaron Culich" . "aculich@gmail.com"))]) (jist . [(20161229 1721) ((emacs (24 4)) (dash (2 12 0)) (seq (1 11)) (let-alist (1 0 4)) (magit (2 1 0)) (request (0 2 0))) "Gist integration" single ((:commit . "da0692452e312a99bb27d8708504b521798aca48") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/jist.el"))]) (jira-markup-mode . [(20150601 2109) nil "Emacs Major mode for JIRA-markup-formatted text files" single ((:commit . "4fc534c47df26a2f402bf835ebe2ed89474a4062") (:keywords "jira" "markup") (:authors ("Matthias Nuessler" . "m.nuessler@web.de>")) (:maintainer "Matthias Nuessler" . "m.nuessler@web.de>") (:url . "https://github.com/mnuessler/jira-markup-mode"))]) (jinja2-mode . [(20141128 1007) nil "A major mode for jinja2" single ((:commit . "cfaa7bbe7bb290cc500440124ce89686f3e26f86") (:authors ("Florian Mounier aka paradoxxxzero")) (:maintainer "Florian Mounier aka paradoxxxzero"))]) (jg-quicknav . [(20170809 130) ((s (1 9 0)) (cl-lib (0 5))) "Quickly navigate the file system to find a file." single ((:commit . "c8d53e774d63e68a944092c08a026b57da741038") (:keywords "navigation") (:authors ("Jeff Gran" . "jeff@jeffgran.com")) (:maintainer "Jeff Gran" . "jeff@jeffgran.com") (:url . "https://github.com/jeffgran/jg-quicknav"))]) (jetbrains . [(20180301 502) ((emacs (24 3)) (cl-lib (0 5)) (f (0 17))) "JetBrains IDE bridge" single ((:commit . "56f71a17d455581c10d48f6dbb31d9e2126227bf") (:keywords "tools" "php") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/jetbrains.el"))]) (jenkins-watch . [(20121004 2326) nil "Watch continuous integration build status" single ((:commit . "37b84dfbd98240a57ff798e1ff8bc7dba2913577") (:authors ("Andrew Taylor" . "ataylor@redtoad.ca")) (:maintainer "Andrew Taylor" . "ataylor@redtoad.ca") (:url . "https://github.com/ataylor284/jenkins-watch"))]) (jenkins . [(20170721 936) ((dash (2 12)) (emacs (24 3)) (json (1 4))) "Minimalistic Jenkins client for Emacs" single ((:commit . "1ec967973db685c9d84133ec6a5e06489ce06b62") (:keywords "jenkins" "convenience") (:authors ("Rustem Muslimov" . "r.muslimov@gmail.com")) (:maintainer "Rustem Muslimov" . "r.muslimov@gmail.com"))]) (jemdoc-mode . [(20170704 2027) ((emacs (24 3))) "Major mode for editing jemdoc files" single ((:commit . "529b4d4681e1198b9892f340fdd6c3f1592a047a") (:keywords "convenience" "usability") (:authors ("Dimitar Dimitrov" . "mail.mitko@gmail.com")) (:maintainer "Dimitar Dimitrov" . "mail.mitko@gmail.com") (:url . "https://github.com/drdv/jemdoc-mode"))]) (jekyll-modes . [(20141117 1314) ((polymode (0 2))) "Major modes (markdown and HTML) for authoring Jekyll content" single ((:commit . "7cb10b50fd2883e3f7b10fdfd98f19f2f0b2381c") (:keywords "docs") (:authors ("Fredrik Appelberg" . "fredrik@milgrim.local")) (:maintainer "Fredrik Appelberg" . "fredrik@milgrim.local") (:url . "https://github.com/fred-o/jekyll-modes"))]) (jedi-direx . [(20140310 936) ((jedi (0 1 2)) (direx (0 1 -3))) "Tree style source code viewer for Python buffer" single ((:commit . "7a2e677400717ed12b959cb5988e7b3fb1c12117") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (jedi-core . [(20181117 954) ((emacs (24)) (epc (0 1 0)) (python-environment (0 0 2)) (cl-lib (0 5))) "Common code of jedi.el and company-jedi.el" tar ((:commit . "f0ec869f352e8c37a53c73b579ac94bad064c0d9") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (jedi . [(20160426 456) ((emacs (24)) (jedi-core (0 2 2)) (auto-complete (1 4))) "a Python auto-completion for Emacs" single ((:commit . "f0ec869f352e8c37a53c73b579ac94bad064c0d9") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (jdee . [(20180831 1500) ((emacs (24 3)) (flycheck (30)) (memoize (1 0 1)) (dash (2 13 0)) (s (1 12 0))) "Java Development Environment for Emacs" tar ((:commit . "8451b811b11d8cb428bafab31752e93180a3c724") (:keywords "java" "tools") (:authors ("Paul Kinnucan" . "pkinnucan@attbi.com")) (:maintainer "Paul Landes") (:url . "http://github.com/jdee-emacs/jdee"))]) (jdecomp . [(20170224 2200) ((emacs (24 5))) "Interface to Java decompilers" single ((:commit . "692866abc83deedce62be8d6040cf24dda7fb7a8") (:keywords "decompile" "java" "languages" "tools") (:authors ("Tianxiang Xiong" . "tianxiang.xiong@gmail.com")) (:maintainer "Tianxiang Xiong" . "tianxiang.xiong@gmail.com") (:url . "https://github.com/xiongtx/jdecomp"))]) (jbeans-theme . [(20180309 1625) ((emacs (24))) "Jbeans theme for GNU Emacs 24 (deftheme)" single ((:commit . "3caa95998d8492a2ca6c17971de499ca15609871") (:authors ("Adam Olsen" . "arolsen@gmail.com")) (:maintainer "Adam Olsen" . "arolsen@gmail.com") (:url . "https://github.com/synic/jbeans-emacs"))]) (jazz-theme . [(20170411 1411) nil "A warm color theme for Emacs 24+." single ((:commit . "b1cb78a97cc4050f19d88a89e455c3e52d98240e") (:authors ("Roman Parykin" . "donderom@ymail.com")) (:maintainer "Roman Parykin" . "donderom@ymail.com") (:url . "https://github.com/donderom/jazz-theme"))]) (jaword . [(20170426 627) ((tinysegmenter (0 1))) "Minor-mode for handling Japanese words better" single ((:commit . "ac062b0e5ab4bd3270497e80aa0f3ac033a0493f") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (javap-mode . [(20120223 2208) nil "Javap major mode" single ((:commit . "864c1130e204b2072e1d19cd027b6fce8ebe6629") (:url . "http://github.com/hiredman/javap-mode"))]) (javadoc-lookup . [(20160214 31) ((cl-lib (0 3))) "Javadoc Emacs integration with Maven" tar ((:commit . "507a2dd443d60b537b8f779c1847e2cd0ccd1382") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/javadoc-lookup"))]) (java-snippets . [(20160627 252) ((yasnippet (0 8 0))) "Yasnippets for Java" tar ((:commit . "6d0e2768823be27dbe07448f4cb244cd657a7136") (:authors ("Takayoshi Kimura")) (:maintainer "Takayoshi Kimura") (:url . "https://github.com/nekop/yasnippet-java-mode"))]) (java-imports . [(20170913 1410) ((emacs (24 4)) (s (1 10 0)) (pcache (0 3 2))) "Code for dealing with Java imports" single ((:commit . "e96ff44ed48b362ab6227b8b802b84d84f78bcaa") (:keywords "java") (:authors ("Lee Hinman" . "lee@writequit.org")) (:maintainer "Lee Hinman" . "lee@writequit.org") (:url . "http://www.github.com/dakrone/emacs-java-imports"))]) (jastadd-ast-mode . [(20161219 926) ((emacs (24))) "Major mode for editing JastAdd AST files" single ((:commit . "a29fdb470cbf0a398164950a3b0d2217de48e0c0") (:keywords "languages") (:authors ("Rudi Schlatte" . "rudi@constantly.at")) (:maintainer "Rudi Schlatte" . "rudi@constantly.at") (:url . "https://github.com/rudi/jastadd-ast-mode"))]) (jasminejs-mode . [(20150527 5) nil "A minor mode for manipulating jasmine test files" tar ((:commit . "9f8044bf81ab5b4841a30b0bd099916e1b7ff54a") (:keywords "javascript" "jasmine") (:authors ("Eric Stolten" . "stoltene2@gmail.com")) (:maintainer "Eric Stolten" . "stoltene2@gmail.com") (:url . "https://github.com/stoltene2/jasminejs-mode"))]) (jar-manifest-mode . [(20160501 26) nil "Major mode to edit JAR manifest files" single ((:commit . "270dae14c481300f75ed96dad3a5ae42ca928a1d") (:keywords "convenience" "languages") (:authors ("Omair Majid" . "omair.majid@gmail.com")) (:maintainer "Omair Majid" . "omair.majid@gmail.com") (:url . "http://github.com/omajid/jar-manifest-mode"))]) (jape-mode . [(20140903 1506) nil "An Emacs editing mode mode for GATE's JAPE files" single ((:commit . "85b9182850707b5d107391f6caee5bd401507a7d") (:keywords "languages" "jape" "gate") (:url . "http://github.com/tanzoniteblack/jape-mode"))]) (japanlaw . [(20160129 820) ((cl-lib (0 5))) "Japan law from law.e-gov.go.jp" single ((:commit . "c160e195cda0e02a709a2d39c62bc2a1ed39a09a") (:keywords "docs" "help") (:authors ("Kazushi NODA (http://www.ne.jp/asahi/alpha/kazu/)")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com"))]) (japanese-holidays . [(20160928 618) ((cl-lib (0 3))) "calendar functions for the Japanese calendar" single ((:commit . "0bccfac342d6ebda1c1a35c3babca0c800ff0c9b") (:keywords "calendar") (:authors ("Takashi Hattori" . "hattori@sfc.keio.ac.jp") ("Hiroya Murata" . "lapis-lazuli@pop06.odn.ne.jp")) (:maintainer "Takashi Hattori" . "hattori@sfc.keio.ac.jp") (:url . "https://github.com/emacs-jp/japanese-holidays"))]) (jammer . [(20160310 859) nil "Punish yourself for using Emacs inefficiently" single ((:commit . "48aa795df6df7ae6484518bcd0398293ca49d7c6") (:keywords "games") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/jammer"))]) (jade-mode . [(20160525 1441) nil "Major mode for editing .jade files" single ((:commit . "4dbde92542fc7ad61df38776980905a4721d642e") (:authors ("Brian M. Carlson and other contributors")) (:maintainer "Brian M. Carlson and other contributors") (:url . "https://github.com/brianc/jade-mode"))]) (jack-connect . [(20141207 1207) nil "Manage jack connections within Emacs" single ((:commit . "b00658dfe3d5d67431c18ffa693d5a3705067ba0") (:authors ("Stefano Barbi" . "stefanobarbi@gmail.com")) (:maintainer "Stefano Barbi" . "stefanobarbi@gmail.com"))]) (jabber-otr . [(20150918 1144) ((emacs (24)) (jabber (0 8 92))) "Off-The-Record messaging for jabber.el" tar ((:commit . "2692b1530234e0ba9a0d6c1eaa1cbe8679f193c0") (:keywords "comm") (:authors ("Magnus Henoch" . "magnus.henoch@gmail.com")) (:maintainer "Magnus Henoch" . "magnus.henoch@gmail.com") (:url . "https://github.com/legoscia/emacs-jabber-otr/"))]) (jabber . [(20180927 2325) ((fsm (0 2)) (srv (0 2))) "A Jabber client for Emacs." tar ((:commit . "fff33826f42e040dad7ef64ea312d85215d3b0a1"))]) (j-mode . [(20171224 1856) nil "Major mode for editing J programs" tar ((:commit . "e8725ac8af95498faabb2ca3ab3bd809a8f148e6") (:keywords "j" "languages") (:url . "http://github.com/zellio/j-mode"))]) (iy-go-to-char . [(20141029 1546) nil "Go to next CHAR which is similar to \"f\" and \"t\" in vim" single ((:commit . "04ab4f5f3a241cbbc9b8c178a22b412a62f632f9") (:keywords "navigation" "search") (:authors ("Ian Yang <doit dot ian (at) gmail dot com>")) (:maintainer "Ian Yang <doit dot ian (at) gmail dot com>") (:url . "https://github.com/doitian/iy-go-to-char"))]) (ix . [(20131027 1629) ((grapnel (0 5 3))) "Emacs client for http://ix.io pastebin" single ((:commit . "aea4c54a5cc5a6f26637353c16a3a0e70fc76963") (:authors ("Abhishek L" . "abhishekl.2006@gmail.com")) (:maintainer "Abhishek L" . "abhishekl.2006@gmail.com") (:url . "http://www.github.com/theanalyst/ix.el"))]) (ivy-youtube . [(20181031 1208) ((request (0 2 0)) (ivy (0 8 0)) (cl-lib (0 5))) "Query YouTube and play videos in your browser" single ((:commit . "57e773e29412dc87e9bf007b15ac8dbed149e7fc") (:keywords "youtube" "multimedia" "mpv" "vlc") (:authors ("Brunno dos Santos")) (:maintainer "Brunno dos Santos") (:url . "https://github.com/squiter/ivy-youtube"))]) (ivy-ycmd . [(20180909 1225) ((ycmd (1 3)) (emacs (24)) (ivy (0 10 0)) (dash (2 14 1))) "Ivy interface to ycmd" single ((:commit . "25bfee8f676e4ecbb645e4f30b47083410a00c58") (:keywords "tools") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/emacs-ivy-ycmd"))]) (ivy-yasnippet . [(20181002 1655) ((emacs (24)) (ivy (0 10 0)) (yasnippet (0 12 2)) (dash (2 14 1)) (cl-lib (0))) "Preview yasnippets with ivy" single ((:commit . "32580b4fd23ebf9ca7dde96704f7d53df6e253cd") (:keywords "convenience") (:authors ("Michał Krzywkowski" . "k.michal@zoho.com")) (:maintainer "Michał Krzywkowski" . "k.michal@zoho.com") (:url . "https://github.com/mkcms/ivy-yasnippet"))]) (ivy-xref . [(20180821 1211) ((emacs (25 1)) (ivy (0 10 0))) "Ivy interface for xref results" single ((:commit . "61864f82e554121be0a26ba0a1d8f48b669dd5f0") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/ivy-xref"))]) (ivy-xcdoc . [(20160917 1055) ((ivy (0 8 0)) (emacs (24 4))) "Search Xcode documents with ivy interface." single ((:commit . "5ea22af36c4c2737fb0bec53432c233482d8b314") (:keywords "ivy" "xcode" "xcdoc") (:authors ("C.T.Chen" . "chenct@7adybird.com")) (:maintainer "C.T.Chen" . "chenct@7adybird.com") (:url . "https://github.com/hex2010/emacs-ivy-xcdoc"))]) (ivy-todo . [(20171208 1609) ((ivy (0 8 0)) (emacs (24 3))) "Manage org-mode TODOs with ivy" single ((:commit . "964e347cea1a6097854d7113f5b07f6c5ef81df0") (:keywords "convenience") (:authors ("Erik Sjöstrand" . "sjostrand.erik@gmail.com")) (:maintainer "Erik Sjöstrand" . "sjostrand.erik@gmail.com") (:url . "http://github.com/Kungsgeten/ivy-todo"))]) (ivy-rtags . [(20170523 454) ((ivy (0 7 0)) (rtags (2 10))) "RTags completion back-end for ivy" single ((:commit . "194cd70d38c3e2e01b9de04d006f94573510aebb") (:authors ("Jan Erik Hanssen" . "jhanssen@gmail.com") ("Anders Bakken" . "agbakken@gmail.com")) (:maintainer "Jan Erik Hanssen" . "jhanssen@gmail.com") (:url . "http://rtags.net"))]) (ivy-rich . [(20181001 1147) ((emacs (24 4)) (ivy (0 8 0))) "More friendly display transformer for ivy." single ((:commit . "dee5d60f655c93f4f9f0e40507244112bd90dab5") (:keywords "ivy") (:authors ("Yevgnen Koh" . "wherejoystarts@gmail.com")) (:maintainer "Yevgnen Koh" . "wherejoystarts@gmail.com"))]) (ivy-purpose . [(20160724 1003) ((emacs (24)) (ivy (0 8)) (window-purpose (1 5))) "Ivy Interface for Purpose" single ((:commit . "0495f2f3aed64d7e0028125e76a9a68f8fc4107e") (:authors ("Bar Magal (2016)")) (:maintainer "Bar Magal (2016)") (:url . "https://github.com/bmag/ivy-purpose"))]) (ivy-prescient . [(20181022 2256) ((emacs (25 1)) (prescient (2 2 1)) (ivy (0 10 0))) "prescient.el + Ivy" single ((:commit . "1623a0d4e5b9a752db45923fd91da48b49c85068") (:keywords "extensions") (:authors ("Radon Rosborough" . "radon.neon@gmail.com")) (:maintainer "Radon Rosborough" . "radon.neon@gmail.com") (:url . "https://github.com/raxod502/prescient.el"))]) (ivy-posframe . [(20180818 424) ((emacs (26 0)) (posframe (0 1 0)) (ivy (0 10 0))) "Using posframe to show Ivy" single ((:commit . "b92aaa1c4695e2c6012cdbc1469b89e8c0dac4c2") (:keywords "abbrev" "convenience" "matching" "ivy") (:authors ("Feng Shu")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/ivy-posframe"))]) (ivy-phpunit . [(20180219 915) ((ivy (0 10 0)) (phpunit (0 7 0)) (emacs (25))) "Ivy integration for phpunit.el" single ((:commit . "ffedb0138d36564e8e36a28fd9bc71ea8944681f") (:keywords "convenience" "tools" "ivy" "phpunit" "php") (:authors ("12pt")) (:maintainer "12pt") (:url . "https://github.com/12pt/ivy-phpunit"))]) (ivy-pass . [(20170812 1955) ((emacs (24)) (ivy (0 8 0)) (password-store (1 6 5))) "ivy interface for pass" single ((:commit . "5b523de1151f2109fdd6a8114d0af12eef83d3c5") (:keywords "pass" "password" "convenience" "data") (:authors ("ecraven")) (:maintainer "ecraven") (:url . "https://github.com/ecraven/ivy-pass/"))]) (ivy-pages . [(20160728 1920) ((emacs (24 1)) (ivy (0 8 0))) "Complete current buffer's pages with Ivy" single ((:commit . "47b03a1f9384502cf22369ff31a2898c863d3aff") (:keywords "convenience" "matching") (:authors ("Igor Epstein" . "igorepst@gmail.com")) (:maintainer "Igor Epstein" . "igorepst@gmail.com") (:url . "https://github.com/igorepst/ivy-pages"))]) (ivy-mpdel . [(20180502 1848) ((emacs (25 1)) (ivy (0 10 0)) (libmpdel (0 5 0)) (mpdel (0 4 0))) "Ivy interface to navigate MPD" single ((:commit . "3f7d91cb10416b26a8e465d8c22e0faad4a722a8") (:keywords "multimedia") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://gitlab.petton.fr/mpdel/ivy-mpdel"))]) (ivy-lobsters . [(20171202 2041) ((ivy (0 8 0)) (cl-lib (0 5))) "Browse lobste.rs stories with ivy." single ((:commit . "4364df4b3685fd1b50865ac9360fb948c0288dd1") (:authors ("Julien Blanchard <https://github.com/julienXX>")) (:maintainer "Julien Blanchard <https://github.com/julienXX>") (:url . "https://github.com/julienXX/ivy-lobsters"))]) (ivy-hydra . [(20180614 2200) ((emacs (24 1)) (ivy (0 9 0)) (hydra (0 13 4))) "Additional key bindings for Ivy" single ((:commit . "18019278d2b849b1287d299a894a4b98c9707ba2") (:keywords "convenience") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/swiper"))]) (ivy-historian . [(20170716 420) ((emacs (24 4)) (historian (20170111)) (ivy (0 8 0)) (flx (0 6 1))) "Persistently store selected minibuffer candidates" single ((:commit . "6be869f585b854eb849303c452ab4f91dab04fa9") (:keywords "convenience" "ivy") (:authors ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainer "PythonNut" . "pythonnut@pythonnut.com") (:url . "https://github.com/PythonNut/historian.el"))]) (ivy-gitlab . [(20180312 1647) ((s (1 9 0)) (dash (2 9 0)) (ivy (0 8 0)) (gitlab (0 8))) "Ivy interface to Gitlab" single ((:commit . "68318aca3206d50701039c9aae39734ca29a49f9") (:keywords "gitlab" "ivy") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/emacs-gitlab"))]) (ivy-feedwrangler . [(20180618 1522) nil "No description available." single ((:commit . "051eac49cae32b16fab2e06ff0115cd8fb5dc499"))]) (ivy-erlang-complete . [(20180716 444) ((async (1 9)) (counsel (0 8 0)) (ivy (0 8 0)) (erlang (19 2)) (emacs (24 4))) "Erlang context sensitive completion at point using ivy. It also support xref and eldoc." tar ((:commit . "6dad91e4951ed6fd8886bfee587144da18b57049"))]) (ivy-dired-history . [(20170626 556) ((ivy (0 9 0)) (counsel (0 9 0)) (cl-lib (0 5))) "use ivy to open recent directories" single ((:commit . "c9c67ea1ee5e68443f0e6006ba162d6c8d868b69") (:authors ("纪秀峰" . "jixiuf@gmail.com")) (:maintainer "纪秀峰" . "jixiuf@gmail.com") (:url . "https://github.com/jixiuf/ivy-dired-history"))]) (ivy-bibtex . [(20181030 2142) ((swiper (0 7 0)) (parsebib (1 0)) (s (1 9 0)) (dash (2 6 0)) (f (0 16 2)) (cl-lib (0 5)) (biblio (0 2))) "A bibliography manager based on Ivy" tar ((:commit . "af05ccb498d89550644cc01c80628053d4d2d73f") (:authors ("Justin Burkett" . "justin@burkett.cc")) (:maintainer "Titus von der Malsburg" . "malsburg@posteo.de"))]) (ivy . [(20181120 1847) ((emacs (24 1))) "Incremental Vertical completYon" tar ((:commit . "18019278d2b849b1287d299a894a4b98c9707ba2") (:keywords "matching") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/swiper"))]) (ivs-edit . [(20170818 1441) ((emacs (24 3)) (dash (2 6 0)) (cl-lib (1 0))) "IVS (Ideographic Variation Sequence) editing tool" tar ((:commit . "5db39c234aa7393b591168a4fd0a9a4cbbca347d") (:keywords "text") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "http://github.com/kawabata/ivs-edit"))]) (ivariants . [(20170823 224) ((emacs (24 3)) (ivs-edit (1 0))) "Ideographic variants editor and browser" tar ((:commit . "ca0b74d32b5d2d77a45cc6ad6edc00be0ee85284") (:keywords "i18n" "languages") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "http://github.com/kawabata/ivariants"))]) (iterator . [(20170207 838) ((emacs (24)) (cl-lib (0 5))) "A library to create and use elisp iterators objects." single ((:commit . "9da54f9aed945b46866782cdf962c9e530419297") (:authors ("Thierry Volpiatto <thierry dot volpiatto at gmail dot com>")) (:maintainer "Thierry Volpiatto <thierry dot volpiatto at gmail dot com>") (:url . "https://github.com/thierryvolpiatto/iterator"))]) (iter2 . [(20181020 1502) ((emacs (25 1))) "Reimplementation of Elisp generators" single ((:commit . "3b418e05e93ea380baf905de14efda4c174f779c") (:keywords "elisp" "extensions") (:authors ("Paul Pogonyshev" . "pogonyshev@gmail.com")) (:maintainer "Paul Pogonyshev" . "pogonyshev@gmail.com") (:url . "https://github.com/doublep/iter2"))]) (itasca . [(20170601 1622) ((emacs (24 3))) "Major modes for Itasca software data files." tar ((:commit . "3d15dd1b70d6db69b0f4758a3e28b8b506cc84ca") (:keywords "itasca" "flac" "3dec" "udec" "flac3d" "pfc" "pfc2d" "pfc3d" "fish") (:authors ("Jason Furtney" . "jkfurtney@gmail.com")) (:maintainer "Jason Furtney" . "jkfurtney@gmail.com") (:url . "http://github.com/jkfurtney/itasca-emacs/"))]) (itail . [(20171112 804) nil "An interactive tail mode" single ((:commit . "6e43c20da03be3b9c6ece93b7dc3495975ec1888") (:keywords "tail") (:authors ("atom smith")) (:maintainer "atom smith") (:url . "https://github.com/re5et/itail"))]) (iss-mode . [(20141001 1913) nil "Mode for InnoSetup install scripts" single ((:commit . "3b517aff31529bab33f8d7b562bd17aff0107fd1") (:authors ("Stefan Reichoer," . "stefan@xsteve.at")) (:maintainer "Stefan Reichoer," . "stefan@xsteve.at"))]) (isortify . [(20180612 1322) ((emacs (25)) (pythonic (0 1 0))) "(automatically) format python buffers using isort." single ((:commit . "442f12fa91695a43a4b542f7b82d6ac9b004729b") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/isortify"))]) (isolate . [(20181018 2235) ((emacs (25))) "Surrounding tool with flexible customizations." single ((:commit . "39ecc20ce57e338ece07fbd4f23b2a659c2365ca") (:keywords "convenience") (:authors ("Yuan Fu" . "casouri@gmail.com")) (:maintainer "Yuan Fu" . "casouri@gmail.com") (:url . "https://github.com/casouri/isolate"))]) (isgd . [(20150414 936) nil "Shorten URLs using the isgd.com shortener service" single ((:commit . "764306dadd5a9213799081a48aba22f7c75cca9a") (:authors ("Chmouel Boudjnah" . "chmouel@chmouel.com")) (:maintainer "Chmouel Boudjnah" . "chmouel@chmouel.com") (:url . "https://github.com/chmouel/isgd.el"))]) (isend-mode . [(20171118 1545) nil "Interactively send parts of an Emacs buffer to an interpreter" single ((:commit . "88d4576e70e5874115c305ab2767d181dfda5985") (:authors ("François Févotte" . "fevotte@gmail.com")) (:maintainer "François Févotte" . "fevotte@gmail.com") (:url . "https://github.com/ffevotte/isend-mode.el"))]) (isearch-symbol-at-point . [(20130728 2221) nil "Use isearch to search for the symbol at point" single ((:commit . "51a1029bec1ec414885f9edb7e5947603dffdab2") (:keywords "isearch") (:authors ("atom smith")) (:maintainer "atom smith") (:url . "https://github.com/re5et/isearch-symbol-at-point"))]) (isearch-dabbrev . [(20141224 622) ((cl-lib (0 5))) "Use dabbrev in isearch" single ((:commit . "1efe7abba4923015cbc2462395deaec5446a9cc8") (:keywords "dabbrev" "isearch") (:authors ("Dewdrops" . "v_v_4474@126.com")) (:maintainer "Dewdrops" . "v_v_4474@126.com") (:url . "https://github.com/Dewdrops/isearch-dabbrev"))]) (irony-eldoc . [(20170502 1908) ((emacs (24)) (cl-lib (0 5)) (irony (0 1))) "irony-mode support for eldoc-mode" single ((:commit . "0df5831eaae264a25422b061eb2792aadde8b3f2") (:keywords "c" "c++" "objc" "convenience" "tools") (:authors ("Kirill Ignatiev <github.com/ikirill>")) (:maintainer "Kirill Ignatiev <github.com/ikirill>") (:url . "https://github.com/ikirill/irony-eldoc"))]) (irony . [(20181030 834) ((cl-lib (0 5)) (json (1 2))) "C/C++ minor mode powered by libclang" tar ((:commit . "0a5ea0b9e7c28ec7d0685b108b8fb1f71f4365f4") (:keywords "c" "convenience" "tools") (:authors ("Guillaume Papin" . "guillaume.papin@epitech.eu")) (:maintainer "Guillaume Papin" . "guillaume.papin@epitech.eu") (:url . "https://github.com/Sarcasm/irony-mode"))]) (iregister . [(20150515 2107) nil "Interactive register commands for Emacs." tar ((:commit . "6a48c66187289de5f300492be11c83e98410c018") (:keywords "convenience") (:authors ("Andrey Tykhonov" . "atykhonov@gmail.com")) (:maintainer "Andrey Tykhonov" . "atykhonov@gmail.com") (:url . "https://github.com/atykhonov/iregister.el"))]) (ir-black-theme . [(20130303 755) nil "Port of ir-black theme" single ((:commit . "36e930d107604b5763c80294a6f92aaa02e6c272") (:keywords "faces") (:authors ("Jon-Michael Deldin" . "dev@jmdeldin.com")) (:maintainer "Jon-Michael Deldin" . "dev@jmdeldin.com"))]) (iqa . [(20181024 2253) ((emacs (24 3))) "Init file(and directory) Quick Access." single ((:commit . "b45614f5204ed851de0abe93907aa94de5e37379") (:url . "https://github.com/a13/iqa.el"))]) (ipython-shell-send . [(20180910 446) ((emacs (24))) "Send code (including magics) to ipython shell" single ((:commit . "95dea09628c91f03df79befd7532d79afac1244e") (:keywords "tools" "processes") (:authors ("Jack Kamm" . "jackkamm@gmail.com")) (:maintainer "Jack Kamm" . "jackkamm@gmail.com") (:url . "https://github.com/jackkamm/ipython-shell-send-el"))]) (ipretty . [(20180606 522) nil "Interactive Emacs Lisp pretty-printing" single ((:commit . "042f5cc4e6f81d59115e8335c582bb5c571c2585") (:keywords "pretty-print" "elisp" "buffer") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://framagit.org/steckerhalter/ipretty"))]) (iplayer . [(20161120 2120) nil "Browse and download BBC TV/radio shows" single ((:commit . "b788fffa4b36bbd558047ffa6be51b1f0f462f23") (:keywords "multimedia" "bbc") (:authors ("Christophe Rhodes" . "csr21@cantab.net")) (:maintainer "Christophe Rhodes" . "csr21@cantab.net") (:url . "https://github.com/csrhodes/iplayer-el"))]) (ipcalc . [(20170926 805) ((cl-lib (0 5))) "IP subnet calculator" single ((:commit . "2720f7e3e662e04e195f8338b81a499cf321296a") (:keywords "networking" "tools") (:authors ("\"Aleksandar Simic\"" . "asimic@gmail.com")) (:maintainer "\"Aleksandar Simic\"" . "asimic@gmail.com") (:url . "http://github.com/dotemacs/ipcalc.el"))]) (iodine-theme . [(20151031 1639) ((emacs (24))) "A light emacs color theme" single ((:commit . "02fb780e1d8d8a6b9c709bfac399abe1665c6999") (:keywords "themes") (:authors ("Srđan Panić" . "srdja.panic@gmail.com")) (:maintainer "Srđan Panić" . "srdja.panic@gmail.com") (:url . "https://github.com/srdja/iodine-theme"))]) (ioccur . [(20130822 548) nil "Incremental occur" single ((:commit . "4c0ef992a6fcd2aed62e3866d56650463108ab5a") (:authors ("Thierry Volpiatto <thierry dot volpiatto at gmail dot com>")) (:maintainer "Thierry Volpiatto <thierry dot volpiatto at gmail dot com>") (:url . "https://github.com/thierryvolpiatto/ioccur"))]) (io-mode-inf . [(20140128 1934) nil "Interaction with an Io interpreter." single ((:commit . "6dd2bac3fd87484bb7d97e135b06c29d70b444b6") (:keywords "io" "languages") (:url . "https://github.com/slackorama/io-emacs"))]) (io-mode . [(20161004 756) nil "Major mode to edit Io language files in Emacs" single ((:commit . "fd65ae769093defcf554d6d637eba6e6dfc29f56") (:keywords "languages" "io") (:authors ("Sergei Lebedev" . "superbobry@gmail.com")) (:maintainer "Sergei Lebedev" . "superbobry@gmail.com") (:url . "https://github.com/superbobry/io-mode"))]) (inverse-acme-theme . [(20170823 254) ((autothemer (0 2)) (cl-lib (0 5))) "A theme that looks like an inverse of Acme's color scheme." single ((:commit . "74d6f3e2f6534371509dd2d77006435156c276d6") (:authors ("Dylan Johnson")) (:maintainer "Dylan Johnson") (:url . "http://github.com/djohnson/inverse-acme-theme"))]) (interval-tree . [(20130325 1407) ((dash (1 1 0))) "Interval tree data structure for 1D range queries" single ((:commit . "301302f480617091cf3ab6989caac385d52543dc") (:keywords "extensions" "data structure") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/interval-tree"))]) (interval-list . [(20150327 1718) ((dash (2 4 0)) (cl-lib (0 5)) (emacs (24 4))) "Interval list data structure for 1D selections" single ((:commit . "38af7ecf0a493ad8f487074938a2a115f3531177") (:keywords "extensions" "data structure") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/interval-list"))]) (intero . [(20181109 1547) ((flycheck (0 25)) (company (0 8)) (emacs (24 4)) (haskell-mode (13 0))) "Complete development mode for Haskell" single ((:commit . "4be2a4a5de81bae504654a6b3a5d8a340be00e7e") (:keywords "haskell" "tools") (:authors ("Chris Done" . "chrisdone@fpcomplete.com")) (:maintainer "Chris Done" . "chrisdone@fpcomplete.com") (:url . "https://github.com/commercialhaskell/intero"))]) (interleave . [(20171004 624) nil "Interleaving text books since 2015" single ((:commit . "87549df30cbc681baf86b238bd14c7cf7ec11fc4") (:authors ("Sebastian Christ" . "rudolfo.christ@gmail.com")) (:maintainer "Sebastian Christ" . "rudolfo.christ@gmail.com") (:url . "https://github.com/rudolfochrist/interleave"))]) (interaction-log . [(20160305 1301) ((cl-lib (0))) "exhaustive log of interactions with Emacs" single ((:commit . "a49a06746d4df6bcfceec3c48dece065d635f9f9") (:keywords "convenience") (:authors ("Michael Heerdegen" . "michael_heerdegen@web.de")) (:maintainer "Michael Heerdegen" . "michael_heerdegen@web.de") (:url . "https://github.com/michael-heerdegen/interaction-log.el"))]) (intellij-theme . [(20171017 1415) nil "Inspired by IntelliJ's default theme" single ((:commit . "1bbfff8e6742d18e9b77ed796f44da3b7bd10606") (:keywords "faces") (:authors ("Vladimir Polushin" . "vovapolu@gmail.com")) (:maintainer "Vladimir Polushin" . "vovapolu@gmail.com"))]) (intel-hex-mode . [(20180423 31) nil "Mode for Intel Hex files." single ((:commit . "e83c94e1c31a8435a88b3ae395f2bc842ef83217") (:keywords "tools" "hex") (:maintainer "Michael Schuldt" . "mbschuldt@gmail.com") (:url . "https://github.com/mschuldt/intel-hex-mode"))]) (instapaper . [(20130104 1421) nil "add URLs to instapaper from emacs" single ((:authors ("Jason F. McBrayer" . "jmcbray@carcosa.net")) (:maintainer "Jason F. McBrayer" . "jmcbray@carcosa.net") (:url . "htts://bitbucket.org/jfm/emacs-instapaper"))]) (insfactor . [(20141117 2) nil "Client for a Clojure project with insfactor in it" single ((:commit . "7ef5446cebb08a17d4106d2e6f3c053e49e1e829") (:keywords "clojure") (:authors ("John D. Hume" . "duelin.markers@gmail.com")) (:maintainer "John D. Hume" . "duelin.markers@gmail.com") (:url . "http://github.com/duelinmarkers/insfactor.el"))]) (insert-shebang . [(20180403 1214) nil "Insert shebang line automatically." single ((:commit . "7bfea92ba1dae9d13d442e2f84f9fb6c05a0a9bd") (:keywords "shebang" "tool" "convenience") (:authors ("Sachin Patil" . "iclcoolster@gmail.com")) (:maintainer "Sachin Patil" . "iclcoolster@gmail.com") (:url . "http://github.com/psachin/insert-shebang"))]) (inlineR . [(20120520 1432) nil "insert Tag for inline image of R graphics" single ((:commit . "29357186beca825e3d0451b700ec09b9ed65e37b") (:keywords "convenience" "iimage.el" "cacoo.el") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/inlineR.el"))]) (inline-docs . [(20170523 450) ((emacs (24 3))) "Show inline contextual docs." single ((:commit . "b57f1681be6147f999cdc12abff414a0442e8897") (:keywords "inline" "docs" "overlay") (:authors ("stardiviner" . "numbchild@gmail.com")) (:maintainer "stardiviner" . "numbchild@gmail.com") (:url . "https://github.com/stardiviner/inline-docs.el"))]) (inline-crypt . [(20170824 900) nil "Simple inline encryption via openssl" tar ((:commit . "281385b383f850fd2e895926b1cef804dd052633"))]) (inkpot-theme . [(20181119 706) nil "port of vim's inkpot theme" single ((:commit . "054c125b49247a08af5a391992817776fd0e8af6") (:keywords "color" "theme") (:authors ("Sarah Iovan" . "sarah@hwaetageek.com") ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainer "Sarah Iovan" . "sarah@hwaetageek.com") (:url . "https://github.com/ideasman42/emacs-inkpot-theme"))]) (ink-mode . [(20160814 1116) ((emacs (24 3))) "Major mode for writing interactive fiction in Ink" single ((:commit . "e35f26abbaf8ea23c5aa0a0c7ef15334cdfb7b48") (:keywords "languages") (:authors ("Erik Sjöstrand")) (:maintainer "Erik Sjöstrand") (:url . "http://github.com/Kungsgeten/ink-mode"))]) (initsplit . [(20160919 1818) nil "code to split customizations into different files" single ((:commit . "c941d436eb2b10b01c76a582c5a2b23fb30751aa") (:keywords "lisp") (:authors ("John Wiegley <johnw@gnu.org>, Dave Abrahams" . "dave@boostpro.com")) (:maintainer "John Wiegley <johnw@gnu.org>, Dave Abrahams" . "dave@boostpro.com") (:url . "http://www.gci-net.com/users/j/johnw/emacs.html"))]) (init-open-recentf . [(20161206 1445) ((emacs (24 4))) "Open recentf immediately after Emacs is started" single ((:commit . "7d8fb124806291f7f6ef2ec3a664ea25899b6d68") (:keywords "files" "recentf" "after-init-hook") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/init-open-recentf.el"))]) (init-loader . [(20160528 1315) nil "Loader for configuration files" single ((:commit . "5d3cea1004c11ff96b33020e337b03b925c67c42") (:authors ("IMAKADO" . "ken.imakado@gmail.com")) (:maintainer "IMAKADO" . "ken.imakado@gmail.com") (:url . "https://github.com/emacs-jp/init-loader/"))]) (ini-mode . [(20170424 909) nil "Major mode for Windows-style ini files." single ((:commit . "2194cfa2fd13196a37350ec20b3f00dcf6162b7c") (:keywords "languages" "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/ini-mode"))]) (inherit-local . [(20170409 1649) ((emacs (24 3))) "Inherited buffer-local variables" single ((:commit . "b1f4ff9c41f9d64e4adaf5adcc280b82f084cdc7") (:authors ("Shea Levy")) (:maintainer "Shea Levy") (:url . "https://github.com/shlevy/inherit-local/tree-master/"))]) (info-colors . [(20180205 1150) ((emacs (24)) (cl-lib (0 5))) "Extra colors for Info-mode" single ((:commit . "a8ebb7b8efa314c08ea8110d8b1876afb562bb45") (:keywords "faces") (:authors ("Tuấn-Anh Nguyễn" . "ubolonton@gmail.com")) (:maintainer "Tuấn-Anh Nguyễn" . "ubolonton@gmail.com") (:url . "https://github.com/ubolonton/info-colors"))]) (info-buffer . [(20170112 1422) nil "Display info topics in separate buffers" single ((:commit . "d35dad6e766c6e2ddb8dc6acb4ce5b6e10fbcaa7") (:keywords "docs" "info") (:authors ("Lluís Vilanova" . "vilanova@ac.upc.edu")) (:maintainer "Lluís Vilanova" . "vilanova@ac.upc.edu") (:url . "http://www.github.com/llvilanova/info-buffer"))]) (info-beamer . [(20180604 2122) ((emacs (24 4))) "Utilities for working with info-beamer" single ((:commit . "af443795af20481af91ac54a489b20f6a9d90b0a") (:keywords "tools" "processes" "comm") (:authors ("Daniel Kraus" . "daniel@kraus.my")) (:maintainer "Daniel Kraus" . "daniel@kraus.my") (:url . "https://github.com/dakra/info-beamer.el"))]) (inflections . [(20170913 916) ((cl-lib (0 5)) (emacs (24))) "convert english words between singular and plural" single ((:commit . "e4f1372cf22e811faca52fc86bdd5d817498a4d8") (:keywords "languages" "tools" "wp") (:authors ("Dmitry Galinsky, Howard Yeh")) (:maintainer "Dmitry Galinsky, Howard Yeh") (:url . "https://github.com/eschulte/jump.el"))]) (inferior-spim . [(20160826 1346) nil "inferior mode for spim." single ((:commit . "fb9aa091f6058bf320793f1a608c1ed7322c1f47") (:keywords "spim" "inferior" "mips") (:authors ("hiddenlotus" . "kaihaosw@gmail.com")) (:maintainer "hiddenlotus" . "kaihaosw@gmail.com"))]) (inf-ruby . [(20180521 1348) nil "Run a Ruby process in a buffer" single ((:commit . "49d59a7897f594e3be74ecbddae83719f9a6c0f0") (:keywords "languages" "ruby") (:authors ("Yukihiro Matsumoto") ("Nobuyoshi Nakada") ("Cornelius Mika" . "cornelius.mika@gmail.com") ("Dmitry Gutov" . "dgutov@yandex.ru") ("Kyle Hargraves" . "pd@krh.me")) (:maintainer "Yukihiro Matsumoto") (:url . "http://github.com/nonsequitur/inf-ruby"))]) (inf-mongo . [(20180408 1338) nil "Run a MongoDB shell process in a buffer" single ((:commit . "2e498d1c88bd1904eeec18ed06b1a0cf8bdc2a92") (:keywords "databases" "mongodb") (:authors ("Tobias Svensson")) (:maintainer "Tobias Svensson") (:url . "http://github.com/endofunky/inf-mongo"))]) (inf-crystal . [(20180119 211) ((emacs (24 3)) (crystal-mode (0 1 0))) "Run a Inferior-Crystal process in a buffer" single ((:commit . "02007b2a2a3bea44902d7c83c4acba1e39d278e3") (:keywords "languages" "crystal") (:authors ("Brantou" . "brantou89@gmail.com")) (:maintainer "Brantou" . "brantou89@gmail.com") (:url . "https://github.com/brantou/inf-crystal.el"))]) (inf-clojure . [(20180402 2103) ((emacs (24 4)) (clojure-mode (5 6))) "Run an external Clojure process in an Emacs buffer" single ((:commit . "59868ff0433f7631c362ce25879bd4271d350ebc") (:keywords "processes" "clojure") (:url . "http://github.com/clojure-emacs/inf-clojure"))]) (indy . [(20150610 1706) nil "A minor mode and EDSL to manage your mode's indentation rules." single ((:commit . "4604867d8111f0e186a5351e68e054a77cb14abf") (:keywords "convenience" "matching" "tools") (:authors ("Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com")) (:maintainer "Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com"))]) (indium . [(20181015 908) ((emacs (25)) (seq (2 16)) (js2-mode (20140114)) (js2-refactor (0 9 0)) (company (0 9 0))) "JavaScript Awesome Development Environment" tar ((:commit . "042a47aa63a1156f26c332f04f87d354877106ed") (:keywords "tools" "javascript") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr") (:url . "https://github.com/NicolasPetton/indium"))]) (indicators . [(20161211 1126) ((dash (2 13 0)) (cl-lib (0 5 0))) "Display the buffer relative location of line in the fringe." single ((:commit . "f62a1201f21453e3aca93f48483e65ae8251432e") (:keywords "fringe" "frames") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/indicators.el"))]) (indent-tools . [(20180124 1208) ((s (0)) (hydra (0)) (yafolding (0))) "Indent, navigate (and more) by blocks of indentation: yaml, python etc." tar ((:commit . "b650b2ca82ccd9ccb4f3142afa0da4737ddd364f") (:keywords "indentation" "movements" "navigation" "kill" "fold" "yaml" "python") (:authors ("vindarel" . "ehvince@mailz.org")) (:maintainer "vindarel" . "ehvince@mailz.org") (:url . "https://gitlab.com/emacs-stuff/indent-tools/"))]) (indent-info . [(20180423 1912) nil "show indentation information in status bar" single ((:commit . "d218b4cb3726476caee91db6f6c920856ab992bc") (:keywords "convenience" "tools") (:authors ("Terje Larsen" . "terlar@gmail.com")) (:maintainer "Terje Larsen" . "terlar@gmail.com") (:url . "https://github.com/terlar/indent-info.el"))]) (indent-guide . [(20170221 1127) nil "show vertical lines to guide indentation" single ((:commit . "d64f43011c72068e008621e620009ec592b35913") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (importmagic . [(20180520 303) ((f (0 11 0)) (epc (0 1 0)) (emacs (24 3))) "Fix Python imports using importmagic." tar ((:commit . "bbc131278f8cd62f3e71b6f4a86b0c91792a3524") (:keywords "languages" "convenience") (:authors ("Nicolás Salas V." . "nikosalas@gmail.com")) (:maintainer "Nicolás Salas V." . "nikosalas@gmail.com") (:url . "https://github.com/anachronic/importmagic.el"))]) (import-popwin . [(20170218 1407) ((emacs (24 3)) (popwin (0 6))) "popwin buffer near by import statements with popwin" single ((:commit . "bb05a9e226f8c63fe7b18a3e92010357049ab5ba") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-import-popwin"))]) (import-js . [(20180709 1833) ((grizzl (0 1 0)) (emacs (24))) "Import Javascript dependencies" single ((:commit . "fb1f167e33c388b09a2afd32fbda90a67bfb2e40") (:keywords "javascript") (:authors ("Kevin Kehl" . "kevin.kehl@gmail.com")) (:maintainer "Kevin Kehl" . "kevin.kehl@gmail.com") (:url . "http://github.com/Galooshi/emacs-import-js/"))]) (impatient-mode . [(20181002 1231) ((cl-lib (0 3)) (simple-httpd (1 5 0)) (htmlize (1 40))) "Serve buffers live over HTTP" tar ((:commit . "96f6a05f8de74e19d570217fe83f0734623ddb0c") (:authors ("Brian Taylor" . "el.wubo@gmail.com")) (:maintainer "Brian Taylor" . "el.wubo@gmail.com") (:url . "https://github.com/netguy204/imp.el"))]) (immutant-server . [(20140311 2208) nil "Run your Immutant server in Emacs" single ((:commit . "2a21e65588acb6a976f2998e30b21fdabdba4dbb") (:authors ("David Leatherman" . "leathekd@gmail.com")) (:maintainer "David Leatherman" . "leathekd@gmail.com") (:url . "http://www.github.com/leathekd/immutant-server.el"))]) (immortal-scratch . [(20160517 2118) nil "respawn the scratch buffer when it's killed" single ((:authors ("Jonathan Kotta" . "jpkotta@gmail.com")) (:maintainer "Jonathan Kotta" . "jpkotta@gmail.com"))]) (imgbb . [(20180609 1649) ((emacs (24)) (request (0 3 0))) "Simple image upload client for imgbb.com" single ((:commit . "a524a46263835aa474f908827ebab4e8fa586001") (:keywords "extensions") (:authors ("Peter" . "craven@gmx.net")) (:maintainer "Peter" . "craven@gmx.net") (:url . "https://github.com/ecraven/imgbb.el"))]) (imenus . [(20180505 1717) ((cl-lib (0 5))) "Imenu for multiple buffers and without subgroups" single ((:commit . "149cfa579ee231014d3341a0e05add69759757a5") (:keywords "tools" "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/imenus.el"))]) (imenu-list . [(20180601 1402) ((cl-lib (0 5))) "Show imenu entries in a separate buffer" single ((:commit . "04f0632f7b8c81be8747617768c57b66e5d60994") (:authors ("Bar Magal (2015)")) (:maintainer "Bar Magal (2015)") (:url . "https://github.com/bmag/imenu-list"))]) (imenu-anywhere . [(20170805 1855) ((cl-lib (0 5))) "ido/ivy/helm imenu across same mode/project/etc buffers" single ((:commit . "fc7f0fd2f19e5ebee70156a99bf87393123893e3") (:keywords "ido" "imenu" "tags") (:authors ("Vitalie Spinu <spinuvit.list[ aaattt ]gmail[ dot ]com>")) (:maintainer "Vitalie Spinu <spinuvit.list[ aaattt ]gmail[ dot ]com>") (:url . "https://github.com/vitoshka/imenu-anywhere"))]) (imapfilter . [(20180318 2027) nil "run the imapfilter executable" single ((:commit . "79bbbe918319bc1e8f42a0bef53dc7c77fe868ea") (:keywords "mail") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/imapfilter"))]) (imake . [(20180318 2259) ((emacs (24 3))) "Simple, opinionated make target runner" single ((:commit . "7df5fb9684a0288313ef5f64594078d477105959") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/imake"))]) (imakado . [(20141024 923) nil "imakado's usefull macros and functions" single ((:commit . "00a1e7eea2cb9e9066343a23927d6c747707902f") (:keywords "convenience") (:authors ("imakado <ken.imakado_at_gmail.com>")) (:maintainer "imakado") (:url . "https://github.com/imakado/emacs-imakado"))]) (image-dired+ . [(20150430 544) ((cl-lib (0 3))) "Image-dired extensions" single ((:commit . "b68094625d963056ad64e0e44af0e2266b2eadc7") (:keywords "extensions" "multimedia") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-image-diredx"))]) (image-archive . [(20150621 132) ((emacs (24)) (cl-lib (0 5))) "Image thumbnails in archive file with non-blocking" single ((:commit . "8d29535bd832329ffeeac780aae7aa8919af1175") (:keywords "multimedia") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-image-archive"))]) (image+ . [(20150707 1616) ((cl-lib (0 3))) "Image manipulate extensions for Emacs" single ((:commit . "6834d0c09bb4df9ecc0d7a559bd7827fed48fffc") (:keywords "multimedia" "extensions") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-imagex"))]) (igv . [(20141210 1227) nil "Control Integrative Genomic Viewer within Emacs" single ((:commit . "47ac6ceede252f451348a2c696398c0cb5279555") (:authors ("Stefano Barbi" . "stefanobarbi@gmail.com")) (:maintainer "Stefano Barbi" . "stefanobarbi@gmail.com"))]) (ignoramus . [(20160414 1409) nil "Ignore backups, build files, et al." single ((:commit . "b37dc7c07edd9d152436f9019c14df158b599be3") (:keywords "convenience" "tools") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/ignoramus"))]) (iflipb . [(20171113 2044) nil "interactively flip between recently visited buffers" single ((:commit . "a5ad1fbd1173cff5228dab265515c92c0778f86a") (:authors ("Joel Rosdahl" . "joel@rosdahl.net")) (:maintainer "Joel Rosdahl" . "joel@rosdahl.net") (:url . "https://github.com/jrosdahl/iflipb"))]) (ietf-docs . [(20150928 957) nil "Fetch, Cache and Load IETF documents" single ((:commit . "ede30d6d26044069e1731fd20c0ab2324552c0b4") (:keywords "ietf" "rfc") (:authors ("Christian E. Hopps" . "chopps@gmail.com")) (:maintainer "Christian E. Hopps" . "chopps@gmail.com") (:url . "https://github.com/choppsv1/ietf-docs"))]) (iedit . [(20181114 950) nil "Edit multiple regions in the same way simultaneously." tar ((:commit . "35505ad860be27feaee71e8caf646706bf8ee31d") (:keywords "occurrence" "region" "simultaneous" "refactoring") (:authors ("Victor Ren" . "victorhge@gmail.com")) (:maintainer "Victor Ren" . "victorhge@gmail.com") (:url . "https://www.emacswiki.org/emacs/Iedit"))]) (ids-edit . [(20170818 1502) ((emacs (24 3))) "IDS (Ideographic Description Sequence) editing tool" tar ((:commit . "8562a6cbfb3f2d44bc6f62ab15081a80f8fee502") (:keywords "i18n" "wp") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "http://github.com/kawabata/ids-edit"))]) (idris-mode . [(20180922 2051) ((emacs (24)) (prop-menu (0 1)) (cl-lib (0 5))) "Major mode for editing Idris code" tar ((:commit . "0e3508aca4d1f46f8c062f84c386d9e5533a21c3") (:keywords "languages") (:url . "https://github.com/idris-hackers/idris-mode"))]) (idomenu . [(20141123 2120) nil "imenu tag selection a la ido" single ((:commit . "4b0152d606360c70204fb4c27f68de79ca885386") (:authors ("Georg Brandl" . "georg@python.org")) (:maintainer "Georg Brandl" . "georg@python.org"))]) (ido-yes-or-no . [(20161108 2351) ((ido-completing-read+ (0))) "Use Ido to answer yes-or-no questions" single ((:commit . "c55383b1fce5879e87e7ca6809fc60534508e182") (:keywords "convenience" "completion" "ido") (:authors ("Ryan C. Thompson")) (:maintainer "Ryan C. Thompson") (:url . "https://github.com/DarwinAwardWinner/ido-yes-or-no"))]) (ido-vertical-mode . [(20180618 2101) nil "Makes ido-mode display vertically." single ((:commit . "16c4c1a112796ee0bcf401ea39d3e2643a89feaf") (:keywords "convenience") (:authors ("Steven Degutis")) (:maintainer "Christopher Reichert" . "creichert07@gmail.com") (:url . "https://github.com/creichert/ido-vertical-mode.el"))]) (ido-springboard . [(20170106 755) nil "Temporarily change default-directory for one command" single ((:commit . "263a8cd4582c81bfc29d7db37d5267e2488b148c") (:keywords "ido") (:authors ("John Wiegley" . "jwiegley@gmail.com")) (:maintainer "John Wiegley" . "jwiegley@gmail.com") (:url . "https://github.com/jwiegley/springboard"))]) (ido-sort-mtime . [(20171121 859) nil "Sort Ido's file list by modification time" single ((:commit . "f638ff0c922af862f5211779f2311a27fde428eb") (:keywords "convenience" "files") (:authors ("Paweł Kraśnicki")) (:maintainer "Paweł Kraśnicki"))]) (ido-skk . [(20151111 950) ((emacs (24 4)) (ddskk (20150912 1820))) "ido interface for skk henkan" single ((:commit . "89a2e62799bff2841ff634517c86084c4ce69246") (:keywords "languages") (:authors ("tsukimizake <shomasd_at_gmail.com>")) (:maintainer "tsukimizake <shomasd_at_gmail.com>") (:url . "https://github.com/tsukimizake/ido-skk"))]) (ido-select-window . [(20131220 2047) ((emacs (24 1))) "Select a window using ido and buffer names" single ((:commit . "a64707d8d154664d50d12e26417d586e4c3dd78b") (:authors ("Peter Jones" . "pjones@devalot.com")) (:maintainer "Peter Jones" . "pjones@devalot.com") (:url . "https://github.com/pjones/ido-select-window"))]) (ido-occur . [(20160820 1440) ((dash (2 13 0))) "Yet another `occur' with `ido'." single ((:commit . "522af5d55b3d4cd6885f3b4100913566c202cec4") (:keywords "inner" "buffer" "search") (:authors ("Danil" . "danil@kutkevich.org")) (:maintainer "Danil" . "danil@kutkevich.org") (:url . "https://github.com/danil/ido-occur"))]) (ido-occasional . [(20150214 1248) ((emacs (24 1))) "Use ido where you choose." single ((:commit . "d405f1795e1e0c63be411ee2825184738d29c33a") (:keywords "completion") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/ido-occasional"))]) (ido-migemo . [(20150921 2244) ((migemo (1 9 1))) "Migemo plug-in for Ido" single ((:commit . "e71114a92dd69cb46abf3fb71a09ce27506fcf77") (:keywords "files") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/ido-migemo.el"))]) (ido-load-library . [(20140611 1600) ((persistent-soft (0 8 8)) (pcache (0 2 3))) "Load-library alternative using ido-completing-read" single ((:commit . "e03b55957c93aa1a7dd190e173e16ec59dbb2ba7") (:keywords "maint" "completion") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/ido-load-library"))]) (ido-hacks . [(20150331 1909) nil "Put more IDO in your IDO" single ((:commit . "b7e7514a0e011e4d767d1f5755c5eae9d85f83dc") (:keywords "convenience") (:authors ("Andreas Politz")) (:maintainer "Scott Jaderholm" . "jaderholm@gmail.com"))]) (ido-grid-mode . [(20160122 1139) ((emacs (24 4))) "Display ido-prospects in the minibuffer in a grid." single ((:commit . "7cfca3988a6dc3ad18e28abe114218095ff2366f") (:keywords "convenience") (:authors ("Tom Hinton")) (:maintainer "Tom Hinton" . "t@larkery.com") (:url . "https://github.com/larkery/ido-grid-mode.el"))]) (ido-gnus . [(20140216 1646) ((gnus (5 13))) "Access gnus groups or servers using ido" single ((:commit . "f5fe3f6aa8086f675ba216abace9e3d5f2e3a089") (:keywords "comm") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/ido-gnus"))]) (ido-flex-with-migemo . [(20180817 1440) ((flx-ido (0 6 1)) (migemo (1 9 1)) (emacs (24 4))) "use ido with flex and migemo" single ((:commit . "acced7c19f3ad505cc27cd95ab05593b8194d2e5") (:keywords "matching") (:authors ("ROCKTAKEY " . "rocktakey@gmail.com")) (:maintainer "ROCKTAKEY " . "rocktakey@gmail.com") (:url . "https://github.com/ROCKTAKEY/ido-flex-with-migemo"))]) (ido-exit-target . [(20170717 1851) ((emacs (24 4))) "Commands and keys for selecting other window and frame targets within ido" single ((:commit . "e56fc6928649c87ccf39d56d84ab53ebaced1f73") (:keywords "convenience" "tools" "extensions") (:authors ("justin talbott" . "justin@waymondo.com")) (:maintainer "justin talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/ido-exit-target"))]) (ido-describe-bindings . [(20161023 1102) ((dash (2 13 0))) "Yet another `describe-bindings' with `ido'." single ((:commit . "a142ff1c33df23ed9665497d0dcae2943b3c706a") (:keywords "help") (:authors ("Danil <danil@kutkevich.org>, Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Danil <danil@kutkevich.org>, Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/danil/ido-describe-bindings"))]) (ido-completing-read+ . [(20180628 244) ((emacs (24 4)) (cl-lib (0 5)) (s (0 1)) (memoize (1 1))) "A completing-read-function using ido" single ((:commit . "51d9d4e667aaf2833e94614e5eeffdbbcab4ee98") (:keywords "ido" "completion" "convenience") (:authors ("Ryan Thompson")) (:maintainer "Ryan Thompson") (:url . "https://github.com/DarwinAwardWinner/ido-completing-read-plus"))]) (ido-complete-space-or-hyphen . [(20180929 150) nil "Complete SPACE or HYPHEN when type SPACE in ido" single ((:commit . "ed60ebed113e4e1552efeab0c416f7c88428268e") (:keywords "ido" "completion") (:authors ("Ian Yang <me (at) iany.me>")) (:maintainer "Ian Yang <me (at) iany.me>") (:url . "https://github.com/doitian/ido-complete-space-or-hyphen"))]) (ido-clever-match . [(20151011 1726) ((emacs (24 4)) (cl-lib (0 5))) "Alternative matcher for ido." single ((:commit . "f173473e99c8b0756f12e4cc8f67e68fa59eadd3") (:keywords "ido" "flex") (:authors ("Bogdan Paul Popa" . "popa.bogdanp@gmail.com")) (:maintainer "Bogdan Paul Popa" . "popa.bogdanp@gmail.com") (:url . "https://github.com/Bogdanp/ido-clever-match"))]) (ido-at-point . [(20151021 757) ((emacs (24))) "ido-style completion-at-point" single ((:commit . "e5907bbe8a3d148d07698b76bd994dc3076e16ee") (:keywords "convenience" "abbrev") (:authors ("katspaugh")) (:maintainer "katspaugh") (:url . "https://github.com/katspaugh/ido-at-point"))]) (idle-require . [(20090715 2203) nil "load elisp libraries while Emacs is idle" single ((:commit . "33592bb098223b4432d7a35a1d65ab83f47c1ec1") (:keywords "internal") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/idle-require/"))]) (idle-highlight-mode . [(20120920 1648) nil "highlight the word the point is on" single ((:commit . "c466f2a9e291f9da1167dc879577b2e1a7880482") (:keywords "convenience") (:authors ("Phil Hagelberg, Cornelius Mika")) (:maintainer "Phil Hagelberg, Cornelius Mika") (:url . "http://www.emacswiki.org/cgi-bin/wiki/IdleHighlight"))]) (idle-highlight-in-visible-buffers-mode . [(20181027 1531) nil "highlight the word the point is on" single ((:commit . "8d8de309d5bd4b035c01bf7f0cfc6e079c79d898") (:keywords "convenience") (:authors ("Ignacy Moryc")) (:maintainer "Ignacy Moryc") (:url . "https://github.com/ignacy/idle-highlight-in-visible-buffers"))]) (identica-mode . [(20130204 2253) nil "Major mode API client for status.net open microblogging" tar ((:commit . "cf9183ee11ac922e85c7c908f04e2d00b03111b3") (:keywords "identica" "web") (:authors ("Gabriel Saldana" . "gsaldana@gmail.com")) (:maintainer "Gabriel Saldana" . "gsaldana@gmail.com") (:url . "http://blog.gabrielsaldana.org/identica-mode-for-emacs/"))]) (idea-darkula-theme . [(20160416 2303) ((emacs (24 1))) "Color theme based on IntelliJ IDEA Darkula color theme" single ((:commit . "52602d9b91883e1f297d000951aeed48bf60176e") (:keywords "themes") (:authors ("Alexey Veretennikov <alexey dot veretennikov at gmail dot com>")) (:maintainer "Alexey Veretennikov <alexey dot veretennikov at gmail dot com>") (:url . "http://github.com/fourier/idea-darkula-theme"))]) (id-manager . [(20170320 1246) nil "id-password management" single ((:commit . "14ebc35db298aac4dedc8aa188bc46bacab81f3b") (:keywords "password" "convenience") (:authors ("SAKURAI Masashi <m.sakurai atmark kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai atmark kiwanami.net>"))]) (ibuffer-vc . [(20181025 324) ((cl-lib (0 2))) "Group ibuffer's list by VC project, or show VC status" single ((:commit . "1a2dcdbaf1d314620b0512ce32e27dbcc6916e73") (:keywords "themes") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "http://github.com/purcell/ibuffer-vc"))]) (ibuffer-tramp . [(20151118 1739) nil "Group ibuffer's list by TRAMP connection" single ((:commit . "bcad0bda3a67f55d1be936bf8fa9ef735fe1e3f3") (:keywords "convenience") (:authors ("Svend Sorensen" . "svend@ciffer.net")) (:maintainer "Svend Sorensen" . "svend@ciffer.net") (:url . "http://github.com/svend/ibuffer-tramp"))]) (ibuffer-sidebar . [(20180219 131) ((emacs (25 1))) "Sidebar for `ibuffer'" single ((:commit . "7ddf1b5a158b33e9a7d3fe5dad7ea626a464d2bc") (:keywords "ibuffer" "files" "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/ibuffer-sidebar"))]) (ibuffer-rcirc . [(20150215 2118) ((cl-lib (0 2))) "Ibuffer integration for rcirc" single ((:commit . "8a4409b1c679d65c819dee4085faf929840e79f8") (:keywords "buffer" "convenience" "comm") (:authors ("Fabián Ezequiel Gallina" . "fgallina@gnu.org")) (:maintainer "Fabián Ezequiel Gallina" . "fgallina@gnu.org") (:url . "https://github.com/fgallina/ibuffer-rcirc"))]) (ibuffer-projectile . [(20180325 325) ((projectile (0 11 0))) "Group ibuffer's list by projectile root" single ((:commit . "1e89bfa7cae0629d29f24af3d81774b88b3cede0") (:keywords "themes") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "http://github.com/purcell/ibuffer-projectile"))]) (ibuffer-git . [(20110508 731) nil "show git status in ibuffer column" single ((:commit . "d326319c05ddb8280885b31f9094040c1b365876") (:keywords "convenience") (:authors ("Jonathan Rockway" . "jon@jrock.us")) (:maintainer "Jonathan Rockway" . "jon@jrock.us"))]) (iasm-mode . [(20171023 1422) nil "interactive assembly major mode." single ((:commit . "abbec7f308f9ce97beeb57e459fff35f559b4c18") (:keywords ":" "tools") (:authors ("Rémi Attab" . "remi.attab@gmail.com")) (:maintainer "Rémi Attab" . "remi.attab@gmail.com") (:url . "https://github.com/RAttab/iasm-mode"))]) (ialign . [(20181002 1655) ((emacs (24 4))) "visual align-regexp" single ((:commit . "2504a9e8c6c5ce6b470541955154af31a8f9d3ca") (:keywords "tools" "editing" "align" "interactive") (:authors ("Michał Krzywkowski" . "k.michal@zoho.com")) (:maintainer "Michał Krzywkowski" . "k.michal@zoho.com") (:url . "https://github.com/mkcms/interactive-align"))]) (i3wm . [(20170822 1438) nil "i3wm integration library" single ((:commit . "71391dc61063fee77ad174f3b2ca25c60b41009e") (:keywords "convenience" "extensions") (:authors ("Samuel W. Flint" . "swflint@flintfam.org")) (:maintainer "Samuel W. Flint" . "swflint@flintfam.org") (:url . "https://git.flintfam.org/swf-projects/emacs-i3"))]) (i2b2-mode . [(20140710 104) nil "Highlights corresponding PHI data in the text portion of an i2b2 XML Document." single ((:commit . "db10efcfc8bed369a516bbf7526ede41f98cb95a") (:keywords "xml" "phi" "i2b2" "deidi2b2") (:authors ("Dan LaManna" . "dan.lamanna@gmail.com")) (:maintainer "Dan LaManna" . "dan.lamanna@gmail.com"))]) (hydra . [(20181110 1740) ((cl-lib (0 5))) "Make bindings that stick around." tar ((:commit . "5c5b9ca3262594c92f8f73c98db5ed0f1efd0319") (:keywords "bindings") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/hydra"))]) (hyde . [(20160508 308) nil "Major mode to help create and manage Jekyll blogs" tar ((:commit . "a8cd6ed00ecd8d7de0ded2f4867015b412b15b76"))]) (hydandata-light-theme . [(20160816 418) nil "A light color theme that is easy on your eyes" single ((:commit . "0fbc91678ef65e1f65d7ec6792ff0b2f104d16a9") (:keywords "color-theme" "theme") (:authors ("David Chkhikvadze" . "david.chk@outlook.com")) (:maintainer "David Chkhikvadze" . "david.chk@outlook.com"))]) (hyai . [(20170301 1447) ((cl-lib (0 5)) (emacs (24))) "Haskell Yet Another Indentation" single ((:commit . "e1cd115c19225bbe0e1183d9a8c289eadaeb37b6") (:authors ("Iku Iwasa" . "iku.iwasa@gmail.com")) (:maintainer "Iku Iwasa" . "iku.iwasa@gmail.com") (:url . "https://github.com/iquiw/hyai"))]) (hy-mode . [(20180702 1940) ((dash (2 13 0)) (dash-functional (1 2 0)) (s (1 11 0)) (emacs (24))) "Major mode for Hylang" single ((:commit . "71a12a9208c4b87859bcbb6978e7915dd518e8dd") (:keywords "languages" "lisp" "python") (:url . "http://github.com/hylang/hy-mode"))]) (hungry-delete . [(20170412 102) nil "hungry delete minor mode" single ((:commit . "0434458d3f6b2b585f332271feaa054bf4ec96d7") (:authors ("Nathaniel Flath" . "flat0103@gmail.com")) (:maintainer "Nathaniel Flath" . "flat0103@gmail.com") (:url . "http://github.com/nflath/hungry-delete"))]) (hungarian-holidays . [(20161020 1138) nil "Adds a list of Hungarian public holidays to Emacs calendar" single ((:commit . "653108769279499d84a79267c90e640d98823872") (:keywords "calendar") (:authors ("Gergely Polonkai" . "gergely@polonkai.eu")) (:maintainer "Gergely Polonkai" . "gergely@polonkai.eu"))]) (hugsql-ghosts . [(20180425 1129) ((s (1 9 0)) (dash (2 10 0)) (cider (0 14 0))) "Display hugsql defqueries in clojure code as an overlay." single ((:commit . "f3ebc60c66204ad39058cb84eb4bd5facce091df") (:authors ("Roland Kaercher" . "roland.kaercher@gmail.com")) (:maintainer "Roland Kaercher" . "roland.kaercher@gmail.com") (:url . "https://github.com/rkaercher/hugsql-ghosts"))]) (httprepl . [(20141101 1734) ((s (1 9 0)) (dash (2 5 0)) (emacs (24))) "An HTTP REPL" single ((:commit . "cfa3693267a8ed1c96a86a126823f37dbfe077d8") (:keywords "http" "repl") (:authors ("Greg Sexton" . "gregsexton@gmail.com")) (:maintainer "Greg Sexton" . "gregsexton@gmail.com") (:url . "https://github.com/gregsexton/httprepl.el"))]) (httpcode . [(20121002 345) nil "explains the meaning of an HTTP status code" single ((:commit . "a45e735082b09477cd704a99294d336cdbeb12ba") (:authors ("Ruslan Spivak" . "ruslan.spivak@gmail.com")) (:maintainer "Ruslan Spivak" . "ruslan.spivak@gmail.com") (:url . "http://github.com/rspivak/httpcode.el"))]) (http-twiddle . [(20160801 1911) nil "send & twiddle & resend HTTP requests" single ((:commit . "4d0c73b7dcbde8b483d4f3a75c49c74d2fe3ca45") (:keywords "http" "rest" "soap") (:authors ("Luke Gorrie" . "luke@synap.se")) (:maintainer "Hasan Veldstra" . "h@vidiowiki.com") (:url . "https://github.com/hassy/http-twiddle/blob/master/http-twiddle.el"))]) (http-post-simple . [(20170715 940) nil "HTTP POST requests using the url library" single ((:commit . "f53697fca278c741051aeb668b00466b5e0fd3fe") (:keywords "comm" "data" "processes" "hypermedia") (:authors ("Tom Schutzer-Weissmann")) (:maintainer "Tom Schutzer-Weissmann"))]) (http . [(20181008 2121) ((emacs (24 4)) (request (0 2 0)) (edit-indirect (0 1 4))) "Yet another HTTP client" single ((:commit . "1bbfff5994e16ffc185c4ac28d792cb040da3351") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/http.el"))]) (htmlize . [(20180923 1829) nil "Convert buffer text and decorations to HTML." single ((:commit . "8db0aa6aab77475a732b7363f0d57bd3933c18fd") (:keywords "hypermedia" "extensions") (:authors ("Hrvoje Niksic" . "hniksic@gmail.com")) (:maintainer "Hrvoje Niksic" . "hniksic@gmail.com"))]) (html2org . [(20170418 501) ((emacs (24 4))) "Convert html to org format text" single ((:commit . "6904aed40259ad8afccff079ebd8a07bff319ebc") (:keywords "convenience" "html" "org") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "http://github.com/lujun9972/html2org.el"))]) (html-to-markdown . [(20151105 840) ((cl-lib (0 5))) "HTML to Markdown converter written in Emacs-lisp." single ((:commit . "60c5498c801be186478cf7c05be05b4430c4a144") (:keywords "tools" "wp" "languages") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/html-to-markdown"))]) (html-to-hiccup . [(20161028 1401) ((emacs (25 1)) (dash (2 13 0)) (s (1 10 0))) "Convert HTML to Hiccup syntax" single ((:commit . "99217a5058626d253ed8ada51a7642071fe54ba5") (:keywords "html" "hiccup" "clojure") (:authors ("Arne Brasseur" . "arne@arnebrasseur.net")) (:maintainer "Arne Brasseur" . "arne@arnebrasseur.net") (:url . "https://github.com/plexus/html-to-hiccup"))]) (html-script-src . [(20120403 1815) nil "Insert <script src=\"..\"> for popular JavaScript libraries" single ((:commit . "66460f8ab1b24656e6f3ce5bd50cff6a81be8422") (:keywords "tools" "convenience") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/html-script-src"))]) (html-check-frag . [(20160131 535) ((emacs (24 3))) "Check html-fragments" single ((:commit . "feb89765eafd69dfcf07afeebded8985dc456e7c") (:keywords "html") (:authors ("Tobias.Zawada" . "i@tn-home.de")) (:maintainer "Tobias.Zawada" . "i@tn-home.de"))]) (ht . [(20180129 2234) ((dash (2 12 0))) "The missing hash table library for Emacs" single ((:commit . "5a665d00dc8fda77bad2a43277d8809c23e46ab8") (:keywords "hash table" "hash map" "hash") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (howm . [(20180929 1214) ((cl-lib (0 5))) "Wiki-like note-taking tool" tar ((:commit . "f707233a99f425d67ddb86b197edeaa3f03a280d") (:authors ("HIRAOKA Kazuyuki" . "khi@users.osdn.me")) (:maintainer "HIRAOKA Kazuyuki" . "khi@users.osdn.me") (:url . "https://howm.osdn.jp"))]) (howdoi . [(20150204 43) nil "Instant coding answers via Emacs." tar ((:commit . "5fbf7069ee160c597a328e5ce5fb32920e1ca88f"))]) (how-many-lines-in-project . [(20140807 442) nil "Calculate how many lines are there in your project." single ((:commit . "8a37ef885d004fe2ce231bfe05ed4867c6192d9b") (:keywords "project" "convenience") (:authors ("Wei Zhao" . "kaihaosw@gmail.com")) (:maintainer "Wei Zhao" . "kaihaosw@gmail.com"))]) (hound . [(20170627 1959) ((request (0 2 0)) (cl-lib (0 5))) "Display hound search results in a compilation window" single ((:commit . "0c5a250ef82870dca737a429b6e9b9db93874ed3") (:authors ("Ryan Young")) (:maintainer "Ryan Young"))]) (horoscope . [(20180409 641) ((emacs (24))) "generate horoscopes." single ((:commit . "f4c683e991adce0a8f9023f15050f306f9b9a9ed") (:keywords "extensions" "games") (:authors ("Bob Manson" . "manson@cygnus.com")) (:maintainer "Noah Friedman" . "friedman@prep.ai.mit.edu") (:url . "https://github.com/mschuldt/horoscope.el"))]) (hookify . [(20141216 2209) ((s (1 9 0)) (dash (1 5 0))) "Interactive commands to create temporary hooks" single ((:commit . "21baae7393b07257de5796402fde0ca72fb00d77") (:keywords "hook" "convenience") (:authors ("Philippe Vaucher" . "philippe.vaucher@gmail.com")) (:maintainer "Philippe Vaucher" . "philippe.vaucher@gmail.com") (:url . "https://github.com/Silex/hookify"))]) (honcho . [(20180707 24) ((emacs (25 1)) (sudo-edit (0 1))) "Run and manage long-running services" single ((:commit . "f6a89a27e255b3ecb1f0b13058933558b1f0c6fb") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/honcho.el"))]) (homebrew-mode . [(20160615 1320) ((emacs (24 4)) (inf-ruby (2 4 0)) (dash (1 2 0))) "minor mode for editing Homebrew formulae" single ((:commit . "d422307aee2f897d1a92e3b959c3214bc54cbe38") (:keywords "homebrew" "brew" "ruby") (:authors ("Alex Dunn" . "dunn.alex@gmail.com")) (:maintainer "Alex Dunn" . "dunn.alex@gmail.com") (:url . "https://github.com/dunn/homebrew-mode"))]) (home-end . [(20180817 855) ((emacs (24 3)) (keypress-multi-event (1 0))) "Smart multi-purpose home / end keys" single ((:commit . "359201766f41307958b6963f2a6b8cd8c7e64158") (:keywords "abbrev" "convenience" "wp" "keyboard") (:authors ("Boruch Baum" . "boruch_baum@gmx.com")) (:maintainer "Boruch Baum" . "boruch_baum@gmx.com") (:url . "https://www.github.com/Boruch_Baum/emacs-home-end"))]) (holiday-pascha-etc . [(20160822 58) nil "Eastern Christian analog to holiday-easter-etc" single ((:commit . "eb198656f63cb8679fb0e3a8248782df071a0f3c") (:authors ("Mark A. Hershberger" . "mah@everybody.org")) (:maintainer "Mark A. Hershberger" . "mah@everybody.org") (:url . "http://github.com/hexmode/holiday-pascha-etc"))]) (hoa-pp-mode . [(20151027 736) ((emacs (24 1)) (names (20150723 0))) "Major mode for Hoa PP grammars" single ((:commit . "925b79930a3f4377b0fb2a36b3c6d5566d4b9a8e") (:keywords "php" "hoa") (:authors ("Steven Rémot")) (:maintainer "Steven Rémot") (:url . "https://github.com/hoaproject/Contributions-Emacs-Pp"))]) (hoa-mode . [(20151203 1650) nil "Major mode for the Hanoi Omega Automata format" single ((:commit . "3c608e15b655d2375c5f81323ac561c7848dc029") (:keywords "major-mode" "automata" "convenience") (:authors ("Alexandre Duret-Lutz" . "adl@lrde.epita.fr")) (:maintainer "Alexandre Duret-Lutz" . "adl@lrde.epita.fr") (:url . "https://gitlab.lrde.epita.fr/spot/emacs-modes"))]) (hmac . [(20180429 2010) ((cl-lib (0 5)) (emacs (25))) "hash-based message authentication code" single ((:commit . "30132cd3fee7d3d91a9f04709d49ca0dcb96d565") (:authors ("Sean McAfee")) (:maintainer "Sean McAfee") (:url . "https://github.com/grimnebulin/emacs-hmac"))]) (hlinum . [(20180422 412) ((cl-lib (0 2))) "Extension for linum.el to highlight current line number" single ((:commit . "f17360fe93de6df99a05b4b64b0a1ca4ee45abb6") (:keywords "convenience" "extensions") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com") (:url . "https://github.com/tom-tan/hlinum-mode/"))]) (hlint-refactor . [(20170818 448) nil "Apply HLint suggestions" single ((:commit . "92c69aa01c65968e86c15db087bb1ea785e4736c") (:keywords "haskell" "refactor") (:url . "https://github.com/mpickering/hlint-refactor-mode"))]) (hledger-mode . [(20180821 1433) ((emacs (24 4)) (popup (0 5 3)) (async (1 9)) (htmlize (1 47))) "A mode for writing journal entries for hledger." tar ((:commit . "af51c0a7a0952c244e5c6bb818ab4ce3b9806609") (:keywords "data") (:authors ("Narendra Joshi" . "narendraj9@gmail.com")) (:maintainer "Narendra Joshi" . "narendraj9@gmail.com") (:url . "https://github.com/narendraj9/hledger-mode.git"))]) (hl-todo . [(20181031 1909) nil "highlight TODO and similar keywords" single ((:commit . "24b9925b1b2c7ad6bf7b66800395f74abf035c5f") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/hl-todo"))]) (hl-sentence . [(20171018 1519) nil "highlight a sentence based on customizable face" single ((:commit . "86ae38d3103bd20da5485cbdd59dfbd396c45ee4") (:keywords "highlighting") (:authors ("Donald Ephraim Curtis" . "dcurtis@milkbox.net")) (:maintainer "Donald Ephraim Curtis" . "dcurtis@milkbox.net") (:url . "http://github.com/milkypostman/hl-sentence"))]) (hl-indent . [(20170429 2104) ((emacs (24)) (cl-lib (0 5))) "Highlight irregular indentation." single ((:commit . "bdb2e0177a7c8b29af26998e688b856adc6ded93") (:keywords "convenience" "faces") (:authors ("Kirill Ignatiev <github.com/ikirill>")) (:maintainer "Kirill Ignatiev <github.com/ikirill>") (:url . "https://github.com/ikirill/hl-indent"))]) (hl-anything . [(20160422 1708) ((emacs (24 3))) "Highlight symbols, selections, enclosing parens and more." tar ((:commit . "8696bc55a8cba408f0fc83a907a9ec529d79e558") (:authors ("boyw165")) (:maintainer "boyw165"))]) (hiwin . [(20150825 827) nil "Visible active window mode." single ((:commit . "6ee8ed051405653bd9b7332d7e9fbb591d954051") (:keywords "faces" "editing" "emulating") (:authors ("k.sugita")) (:maintainer "k.sugita"))]) (hive . [(20131217 1512) ((sql (3 0))) "Hive SQL mode extension" single ((:commit . "11b5172e081ad8079fc78758bef6f306f82ae32b") (:keywords "sql" "hive") (:authors ("Roman Scherer" . "roman@burningswell.com")) (:maintainer "Roman Scherer" . "roman@burningswell.com"))]) (historyf . [(20151124 159) nil "file history library like browser" single ((:commit . "196c058ceb092fdd56b0e4ce85b7e714d6f72224") (:authors ("k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>")) (:maintainer "k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>") (:url . "https://github.com/k1LoW/emacs-historyf"))]) (history . [(20160821 1602) ((emacs (24 3))) "History utility for source code navigation" tar ((:commit . "5317663fb45bbd5e96d258cb0807dcc266ce67ff") (:authors ("boyw165")) (:maintainer "boyw165") (:url . "https://github.com/boyw165/history"))]) (historian . [(20180619 1923) ((emacs (24 4))) "Persistently store selected minibuffer candidates" single ((:commit . "6be869f585b854eb849303c452ab4f91dab04fa9") (:keywords "convenience") (:authors ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainer "PythonNut" . "pythonnut@pythonnut.com") (:url . "https://github.com/PythonNut/historian.el"))]) (hippie-namespace . [(20140508 2041) nil "Special treatment for namespace prefixes in hippie-expand" single ((:commit . "d0d0f15c67ab8bef5e9d1e29a89ecd3613a60b49") (:keywords "convenience" "lisp" "tools" "completion") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/hippie-namespace"))]) (hippie-expand-slime . [(20170723 146) nil "Hook slime's completion into hippie-expand" single ((:commit . "39bbae94896a62854d31754debdfae71d35fec62") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/hippie-expand-slime"))]) (hippie-exp-ext . [(20160502 2326) nil "Extension of hippie-expand" single ((:commit . "4eda13f90da51ab217d024701f4c30f91ffcb90e") (:keywords "abbrev" "convenience" "completions" "hippie-expand") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/emacs/download/hippie-exp-ext.el"))]) (hindent . [(20180518 902) ((cl-lib (0 5))) "Indent haskell code using the \"hindent\" program" single ((:commit . "ffe03701050d159387c06103ecaf8147716d5cb8") (:authors ("Chris Done" . "chrisdone@gmail.com")) (:maintainer "Chris Done" . "chrisdone@gmail.com") (:url . "https://github.com/chrisdone/hindent"))]) (himp . [(20181002 1654) ((emacs (24 3)) (vimish-fold (0 1 0))) "Automatically hide imports/documentation" single ((:commit . "3975c76cc9e7c6bfe7fe04ad95d8659cfed46b58") (:keywords "convenience" "tools") (:authors ("Michał Krzywkowski" . "k.michal@zoho.com")) (:maintainer "Michał Krzywkowski" . "k.michal@zoho.com") (:url . "http://github.com/mkcms/himp/"))]) (highlight2clipboard . [(20151020 1840) ((htmlize (1 47))) "Copy text to clipboard with highlighting." tar ((:commit . "6ce58a060d9c5843ccb8c79ec2bba7858c68ac15") (:keywords "tools") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren"))]) (highlight-unique-symbol . [(20130612 542) ((deferred (0 3 2))) "highlight symbols which not appear in the repository" single ((:commit . "4141bf86a94e30d94d9af9c29d40b16886226e1c") (:authors ("hitode909" . "hitode909@gmail.com")) (:maintainer "hitode909" . "hitode909@gmail.com") (:url . "https://github.com/hitode909/emacs-highlight-unique-symbol"))]) (highlight-thing . [(20170919 1404) nil "Minimalistic minor mode to highlight current thing under point." single ((:commit . "4eadd178175772fb04ae50e1199d797a6375ad4d") (:keywords "highlight" "thing" "symbol") (:authors ("Felix Geller" . "fgeller@gmail.com")) (:maintainer "Felix Geller" . "fgeller@gmail.com") (:url . "https://github.com/fgeller/highlight-thing.el"))]) (highlight-symbol . [(20160102 2009) nil "automatic and manual symbol highlighting" single ((:commit . "7a789c779648c55b16e43278e51be5898c121b3a") (:keywords "faces" "matching") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/highlight-symbol/"))]) (highlight-stages . [(20161212 1457) nil "highlight staged (quasi-quoted) expressions" single ((:commit . "29cbc5b78261916da042ddb107420083da49b271") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (highlight-refontification . [(20170211 2024) nil "Visualize font-lock refontification." single ((:commit . "32632897d88c4611fadb08517ca00ef5cbc989b6") (:keywords "faces" "tools") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/highlight-refontification"))]) (highlight-quoted . [(20140916 1822) ((emacs (24))) "Highlight Lisp quotes and quoted symbols" single ((:commit . "24103478158cd19fbcfb4339a3f1fa1f054f1469") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/highlight-quoted"))]) (highlight-parentheses . [(20180704 1102) nil "highlight surrounding parentheses" single ((:commit . "f0bd58c8dadd2db703b7bfd09e911b5fda05b3df") (:keywords "faces" "matching") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Tassilo Horn" . "tsdh@gnu.org") (:url . "https://github.com/tsdh/highlight-parentheses.el"))]) (highlight-operators . [(20170213 2220) nil "a face for operators in programming modes" single ((:authors ("Jonathan Kotta" . "jpkotta@gmail.com")) (:maintainer "Jonathan Kotta" . "jpkotta@gmail.com"))]) (highlight-numbers . [(20181013 1744) ((emacs (24)) (parent-mode (2 0))) "Highlight numbers in source code" single ((:commit . "8b4744c7f46c72b1d3d599d4fb75ef8183dee307") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/highlight-numbers"))]) (highlight-leading-spaces . [(20151216 1222) ((emacs (24 4))) "Highlight leading spaces" single ((:commit . "840db19d863dd97993fd9f893f5be501627b6354") (:authors ("Thomas Winant" . "dewinant@gmail.com")) (:maintainer "Thomas Winant" . "dewinant@gmail.com") (:url . "https://github.com/mrBliss/highlight-leading-spaces"))]) (highlight-indentation . [(20171218 937) nil "Minor modes for highlighting indentation" single ((:commit . "35e2c1d4f8f368685893128f77f90454cb9c2708") (:authors ("Anton Johansson" . "anton.johansson@gmail.com")) (:maintainer "Anton Johansson" . "anton.johansson@gmail.com") (:url . "https://github.com/antonj/Highlight-Indentation-for-Emacs"))]) (highlight-indent-guides . [(20181106 1821) ((emacs (24))) "Minor mode to highlight indentation" single ((:commit . "fc99ee753ac9d53ce91fb032f97430a551e04466") (:authors ("DarthFennec" . "darthfennec@derpymail.org")) (:maintainer "DarthFennec" . "darthfennec@derpymail.org") (:url . "https://github.com/DarthFennec/highlight-indent-guides"))]) (highlight-function-calls . [(20170908 500) ((emacs (24 4))) "Highlight function/macro calls" single ((:commit . "f7a1eaf95fc64cc0db4d0567f9ff79ec4ae04787") (:keywords "faces" "highlighting") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/highlight-function-calls"))]) (highlight-escape-sequences . [(20171117 1237) nil "Highlight escape sequences" single ((:commit . "08d846a7aa748209d65fecead2b6a766c3e5cb41") (:keywords "convenience") (:authors ("Dmitry Gutov" . "dgutov@yandex.ru") ("Pavel Matcula" . "dev.plvlml@gmail.com")) (:maintainer "Dmitry Gutov" . "dgutov@yandex.ru") (:url . "https://github.com/dgutov/highlight-escape-sequences"))]) (highlight-doxygen . [(20180829 1818) nil "Highlight Doxygen comments" single ((:commit . "53f2250018725fa19548e1771ee79fcc23641694") (:keywords "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/highlight-doxygen"))]) (highlight-defined . [(20181106 1718) ((emacs (24))) "Syntax highlighting of known Elisp symbols" single ((:commit . "8e05be23e555ab05edc6fb188f5ce28ef495c946") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/highlight-defined"))]) (highlight-context-line . [(20170319 2142) nil "Improve orientation when scrolling" single ((:commit . "716e10a0c7b703b5f1d9c6ca1481524a4d06b7b8") (:keywords "faces" "services" "user") (:authors ("Stefan Kamphausen <www.skamphausen.de>")) (:maintainer "Stefan Kamphausen <www.skamphausen.de>") (:url . "https://github.com/ska2342/highlight-context-line/"))]) (highlight-blocks . [(20151201 1615) ((emacs (24))) "Highlight the blocks point is in" single ((:commit . "9c4240a5d16008db430d1a81c76dad474d3deb0c") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/highlight-blocks"))]) (highlight . [(20181002 1151) nil "Highlighting commands." single ((:commit . "ea733e17884aeae19172407e20559fc693fdd3a7") (:keywords "faces" "help" "local") (:authors ("Drew Adams")) (:maintainer nil . "Drew Adams (concat \"drew.adams\" \"@\" \"oracle\" \".com\")") (:url . "https://www.emacswiki.org/emacs/download/highlight.el"))]) (hierarchy . [(20171221 1151) ((emacs (25 1))) "Library to create and display hierarchy structures" single ((:commit . "06f21d3fc16c44c1fa45dc9c91d10100b4db9355") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://github.com/DamienCassou/hierarchy"))]) (hideshow-org . [(20120223 2250) nil "Provides org-mode like hide and show for hideshow.el" single ((:commit . "16419e52e6cdd2f46f755144c0ab11ce00d1a626") (:keywords "c" "c++" "java" "lisp" "tools" "editing" "comments" "blocks" "hiding" "outlines" "org-mode") (:authors ("Shane Celis <shane (at) gnufoo (dot) org>")) (:maintainer "Shane Celis <shane (at) gnufoo (dot) org>"))]) (hide-mode-line . [(20180302 1910) ((emacs (24 4))) "minor mode that hides/masks your modeline" single ((:commit . "86b9057391edad75467261c2e579603567e608f9") (:keywords "frames" "mode-line") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-hide-mode-line"))]) (hide-lines . [(20151127 1840) nil "Commands for hiding lines based on a regexp" single ((:commit . "331122bf19361130351cfe55968c2a7820329eb3") (:keywords "convenience") (:authors ("Mark Hulme-Jones <ture at plig cucumber dot net>")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/hide-lines"))]) (hi2 . [(20141005 1931) nil "indentation module for Haskell Mode" single ((:commit . "c9d199727b5cdcb9e36a972b38131ce4611fd6c8") (:keywords "indentation" "haskell") (:authors ("Gergely Risko" . "gergely@risko.hu")) (:maintainer "Gergely Risko" . "gergely@risko.hu") (:url . "https://github.com/errge/hi2"))]) (hgrc-mode . [(20150409 2043) nil "major mode for editing hgrc files" single ((:commit . "314e8320b82cc1ce74b1bd372f296252e7a23090") (:keywords "convenience" "vc" "hg") (:authors ("Omair Majid" . "omair.majid@gmail.com")) (:maintainer "Omair Majid" . "omair.majid@gmail.com") (:url . "http://github.com/omajid/hgrc-mode"))]) (hgignore-mode . [(20160501 7) nil "a major mode for editing hgignore files" single ((:commit . "7aa9f3b8a9c610dbd80b952061b40194e1d9c5bd") (:keywords "convenience" "vc" "hg") (:authors ("Omair Majid" . "omair.majid@gmail.com")) (:maintainer "Omair Majid" . "omair.majid@gmail.com") (:url . "http://github.com/omajid/hgignore-mode"))]) (hfst-mode . [(20160708 1202) nil "major mode for editing HFST files" single ((:commit . "ac1bb9dd92545d3e7fdc05c83996c227cc15c6b8") (:keywords "languages") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org") (:url . "http://wiki.apertium.org/wiki/Emacs"))]) (hexo . [(20180815 219) ((emacs (24 3))) "Major mode & tools for Hexo" single ((:commit . "6bca18f911f6b2cd5c055ed73ddec98c385f9f86") (:keywords "tools" "hexo") (:authors ("Ono Hiroko (kuanyui)" . "azazabc123@gmail.com")) (:maintainer "Ono Hiroko (kuanyui)" . "azazabc123@gmail.com") (:url . "https://github.com/kuanyui/hexo.el"))]) (heroku-theme . [(20150523 219) nil "Heroku color theme" single ((:commit . "8083643fe92ec3a1c3eb82f1b8dc2236c9c9691d") (:authors ("Jonathan Chu" . "me@jonathanchu.is")) (:maintainer "Jonathan Chu" . "me@jonathanchu.is") (:url . "https://github.com/jonathanchu/color-theme-heroku"))]) (heroku . [(20120629 1813) nil "Interface to Heroku apps." single ((:commit . "92af1c073b593c4def99c8777c869992aa4d0b3a") (:keywords "convenience" "api" "database") (:authors ("Phil Hagelberg" . "technomancy@gmail.com")) (:maintainer "Phil Hagelberg" . "technomancy@gmail.com") (:url . "https://github.com/technomancy/heroku.el"))]) (hemisu-theme . [(20130508 1844) nil "Hemisu for Emacs." tar ((:commit . "5c206561aa2c844ecdf3e3b672c3235e559ddd7f") (:authors ("Andrzej Sliwa")) (:maintainer "Andrzej Sliwa") (:url . "http://github/anrzejsliwa/django-theme"))]) (hemera-theme . [(20180916 924) ((emacs (24))) "Light theme" single ((:commit . "b67c902b210b37b00cac68726822404543147ba8") (:keywords "themes" "light-theme") (:authors ("Guido Schmidt")) (:maintainer "Guido Schmidt" . "guido.schmidt.2912@gmail.com") (:url . "https://github.com/GuidoSchmidt/emacs-hemera-theme"))]) (helpful . [(20181031 2008) ((emacs (25 1)) (dash (2 12 0)) (dash-functional (1 2 0)) (s (1 11 0)) (f (0 20 0)) (elisp-refs (1 2)) (shut-up (0 3))) "a better *help* buffer" single ((:commit . "039345ef60b4722d050c94ab1978540137df35f9") (:keywords "help" "lisp") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk") (:url . "https://github.com/Wilfred/helpful"))]) (helm-zhihu-daily . [(20160625 1145) ((helm (1 0)) (cl-lib (0 5)) (emacs (24 4))) "Helm interface for 知乎日报 (http://daily.zhihu.com)" single ((:commit . "be27dcc6be1eb97663b65581a9a5c0fc81cfaba7") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/helm-zhihu-daily"))]) (helm-z . [(20171204 325) ((helm (1 0))) "Show z directory list with helm.el support." single ((:commit . "37212220bebea8b9c238cb1bbacd8332b7f26c03") (:authors ("yynozk" . "yynozk@gmail.com")) (:maintainer "yynozk" . "yynozk@gmail.com") (:url . "https://github.com/yynozk/helm-z"))]) (helm-youtube . [(20161114 248) ((request (0 2 0)) (helm (2 3 1)) (cl-lib (0 5))) "Query YouTube and play videos in your browser" single ((:commit . "202c27fc3b54927611e9d9c764465e1b42ef7e41") (:keywords "youtube" "multimedia") (:authors ("Maximilian Roquemore" . "maximus12793@gmail.com")) (:maintainer "Maximilian Roquemore" . "maximus12793@gmail.com") (:url . "https://github.com/maximus12793/helm-youtube"))]) (helm-xref . [(20180528 1516) ((emacs (25 1)) (helm (1 9 4))) "Helm interface for xref results" single ((:commit . "6f7e8eeec5cc4db64a76ba242c0f2f61e7ee1e46") (:authors ("Fritz Stelzer" . "brotzeitmacher@gmail.com")) (:maintainer "Fritz Stelzer" . "brotzeitmacher@gmail.com") (:url . "https://github.com/brotzeitmacher/helm-xref"))]) (helm-xcdoc . [(20160116 1018) ((helm (1 5)) (emacs (24 4))) "Search Xcode Document by docsetutil and eww with helm interface" single ((:commit . "a85612149a6d8e18ab309b3db2d222ce39c42049") (:authors ("Ryo Fujimoto" . "fujimisakri@gmail.com")) (:maintainer "Ryo Fujimoto" . "fujimisakri@gmail.com") (:url . "https://github.com/fujimisakari/emacs-helm-xcdoc"))]) (helm-wordnet . [(20160128 1507) ((emacs (24)) (helm (1 7 0)) (cl-lib (0 5))) "Helm interface to local wordnet dictionary" single ((:commit . "a36dbc6fcb570b812870bc1e190f203e0a0042fc") (:keywords "dictionary" "wordnet" "emacs" "elisp" "helm") (:authors ("Raghav Kumar Gautam" . "rgautam@apache.com")) (:maintainer "Raghav Kumar Gautam" . "rgautam@apache.com") (:url . "https://github.com/raghavgautam/helm-wordnet"))]) (helm-w3m . [(20181029 726) ((helm (1 5)) (w3m (0 0)) (cl-lib (0 5)) (emacs (24 1))) "W3m bookmark - helm interface." single ((:commit . "c15d926631198d6d759ec8881837bcca5a64963b"))]) (helm-w32-launcher . [(20141223 2014) ((emacs (24)) (helm (1 6 5)) (cl-lib (0 5))) "Start Menu entry launcher using Helm" tar ((:commit . "3e59ad62b89dd21d334af0203d445a83eb25dc5b") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/helm-w32-launcher"))]) (helm-unicode . [(20180608 1407) ((helm (1 9 8)) (emacs (24 4))) "Helm command for unicode characters." single ((:commit . "fbeb0c5e741a6f462520884b744d43a9acbe1d34"))]) (helm-tramp . [(20180829 709) ((emacs (24 3)) (helm (2 0))) "Tramp helm interface for ssh, docker, vagrant" single ((:commit . "523a902fe69be5f770f79f815630e7e5d4766e9d") (:authors ("Masashı Mıyaura")) (:maintainer "Masashı Mıyaura") (:url . "https://github.com/masasam/emacs-helm-tramp"))]) (helm-themes . [(20160918 545) ((helm-core (2 0)) (emacs (24 4))) "Color theme selection with helm interface" single ((:commit . "1160af42590b0d845a55e65e1e782d9e4027fd6e") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-themes"))]) (helm-tail . [(20180624 903) ((emacs (25 1)) (helm (2 7 0))) "Read recent output from various sources" single ((:commit . "cdbbd9bfb121534a4c089df84325cf776ba2c578") (:keywords "maint" "tools") (:authors ("Akira Komamura" . "akira.komamura@gmail.com")) (:maintainer "Akira Komamura" . "akira.komamura@gmail.com") (:url . "https://github.com/akirak/helm-tail"))]) (helm-systemd . [(20180131 434) ((emacs (24 4)) (helm (1 9 2)) (with-editor (2 5 0))) "helm's systemd interface" single ((:commit . "96f5cd3ee3412539c2f8d145201f47c4f8e53b4f") (:keywords "convenience") (:authors (nil . "<lompik@oriontabArch>")) (:maintainer nil . "<lompik@oriontabArch>"))]) (helm-system-packages . [(20181012 655) ((emacs (24 4)) (helm (2 8 7)) (seq (1 8))) "Helm UI wrapper for system package managers." tar ((:commit . "d25e88c6791fb6166aa3f69693670750e56caa5b") (:keywords "helm" "packages") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainer "Pierre Neidhardt" . "mail@ambrevar.xyz") (:url . "https://github.com/emacs-helm/helm-system-packages"))]) (helm-swoop . [(20180215 1154) ((helm (1 0)) (emacs (24 3))) "Efficiently hopping squeezed lines powered by helm interface" single ((:commit . "c66336b8245ddc51c4206f19c119f1081920985c") (:keywords "helm" "swoop" "inner" "buffer" "search") (:authors ("Shingo Fukuyama - http://fukuyama.co")) (:maintainer "Shingo Fukuyama - http://fukuyama.co") (:url . "https://github.com/ShingoFukuyama/helm-swoop"))]) (helm-sql-connect . [(20170319 1251) ((helm (0 0 0))) "Choose a database to connect to via Helm." single ((:commit . "5aead55b6f8636140945714d8c332b287ab9ef10") (:keywords "tools" "convenience" "comm") (:authors ("Eric Hansen" . "hansen.c.eric@gmail.com")) (:maintainer "Eric Hansen" . "hansen.c.eric@gmail.com") (:url . "https://github.com/eric-hansen/helm-sql-connect"))]) (helm-spotify-plus . [(20180107 1138) ((emacs (24 4)) (helm (2 0 0)) (multi (2 0 1))) "Control Spotify search and select music with Helm." single ((:commit . "895f241f1259891d5c89cd42023f119f9fa121d6") (:authors ("Wanderson Ferreira <https://github.com/wandersoncferreira> and Luis Moneda <https://github.com/lgmoneda>")) (:maintainer "Wanderson Ferreira <https://github.com/wandersoncferreira> and Luis Moneda <https://github.com/lgmoneda>"))]) (helm-spotify . [(20160905 2147) ((helm (0 0 0)) (multi (2 0 0))) "Control Spotify with Helm." single ((:commit . "f7a62d1ff88e3127de9be7cd3e818b0a92268ab3") (:keywords "helm" "spotify") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/krisajenkins/helm-spotify"))]) (helm-spaces . [(20161001 1409) ((helm-core (2 2)) (spaces (0 1 0))) "helm sources for spaces" single ((:commit . "877e2b5178926308d6a7c2a37477bb12c33a96d4") (:keywords "helm" "frames" "convenience") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/helm-spaces"))]) (helm-smex . [(20171004 2008) ((emacs (24)) (smex (3 0)) (helm (1 7 7))) "Helm interface for smex" single ((:commit . "2269375dfa452b88b5170d1a5d5849ebb2c1e413") (:keywords "convenience") (:authors ("Peter Vasil" . "mail@petervasil.net")) (:maintainer "Peter Vasil" . "mail@petervasil.net"))]) (helm-slime . [(20181110 934) ((emacs (24)) (helm-core (1 9 8)) (slime (2 18)) (cl-lib (0 5))) "helm-sources and some utilities for SLIME." single ((:commit . "070d024147e1632b7358711b7f8fb77a28dcf265") (:keywords "convenience" "helm" "slime") (:authors ("Takeshi Banse" . "takebi@laafc.net")) (:maintainer "Takeshi Banse" . "takebi@laafc.net") (:url . "https://github.com/emacs-helm/helm-slime"))]) (helm-sheet . [(20130630 1239) ((helm (1 0))) "helm sources for sheet" single ((:commit . "d360b68d0ddb09aa1854e7b2f3cb39caeee26463") (:keywords "helm" "sheet") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/helm-sheet"))]) (helm-selected . [(20171223 210) ((emacs (24 4)) (helm (2 8 6)) (selected (1 1))) "helm extension for selected.el" single ((:commit . "6743ede584571319e4c29204197e9ff6b7ee97cf") (:keywords "extensions" "convenience") (:authors ("Takaaki ISHIKAWA <takaxp at ieee dot org>")) (:maintainer "Takaaki ISHIKAWA <takaxp at ieee dot org>") (:url . "https://github.com/takaxp/helm-selected"))]) (helm-sage . [(20160514 745) ((cl-lib (0 5)) (helm (1 5 6)) (sage-shell-mode (0 1 0))) "A helm extension for sage-shell-mode." single ((:commit . "f14e9281d8f2162df7d8f9c2ad9ad1248a24803b") (:keywords "sage" "math" "helm") (:authors ("Sho Takemori" . "stakemorii@gmail.com")) (:maintainer "Sho Takemori" . "stakemorii@gmail.com") (:url . "https://github.com/stakemori/helm-sage"))]) (helm-safari . [(20160404 324) ((helm (1 9 1)) (emacs (24))) "Browse your Safari bookmarks and history" single ((:commit . "664c7f4488829228eed7e90cd53002e14bec555b") (:keywords "tools") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/helm-safari"))]) (helm-rubygems-org . [(20140826 1156) ((emacs (24)) (helm (1 6 3)) (cl-lib (0 5))) "Use helm to search rubygems.org" single ((:commit . "6aaed984f698cbdf9f9aceb0221404563e28764d") (:keywords "ruby" "rubygems" "gemfile" "helm") (:authors ("Chad Albers" . "calbers@neomantic.com")) (:maintainer "Chad Albers" . "calbers@neomantic.com") (:url . "https://github.com/neomantic/helm-rubygems-org"))]) (helm-rubygems-local . [(20130712 111) ((helm (1 5 3))) "Installed local rubygems find-file for helm" single ((:commit . "289cb33d41c703af9791d6da46b55f070013c2e3") (:authors ("hadashiA" . "dev@hadashikick.jp")) (:maintainer "hadashiA" . "dev@hadashikick.jp") (:url . "https://github.com/f-kubotar/helm-rubygems-local"))]) (helm-rtags . [(20170813 411) ((helm (2 0)) (rtags (2 10))) "A front-end for rtags" single ((:commit . "194cd70d38c3e2e01b9de04d006f94573510aebb") (:authors ("Jan Erik Hanssen" . "jhanssen@gmail.com") ("Anders Bakken" . "agbakken@gmail.com")) (:maintainer "Jan Erik Hanssen" . "jhanssen@gmail.com") (:url . "http://rtags.net"))]) (helm-ros . [(20160812 1752) ((helm (1 9 9)) (xterm-color (1 0)) (cl-lib (0 5))) "Interfaces ROS with helm" single ((:commit . "92b0b215f6a017f0f57f1af15466cc0b2a5a0135") (:keywords "helm" "ros") (:authors ("David Landry" . "davidlandry93@gmail.com")) (:maintainer "David Landry" . "davidlandry93@gmail.com") (:url . "https://www.github.com/davidlandry93/helm-ros"))]) (helm-robe . [(20151209 355) ((helm (1 7 7))) "completing read function for robe" single ((:commit . "6e69543b4ee76c5f8f3f2510c76e6d9aed17a370") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-robe"))]) (helm-rhythmbox . [(20160524 1158) ((helm (1 5 0)) (cl-lib (0 5))) "control Rhythmbox's play queue via Helm" single ((:commit . "c92e1ded34ddd4e62e7e9a558259c232e05193fa") (:authors ("Thomas Winant" . "dewinant@gmail.com")) (:maintainer "Thomas Winant" . "dewinant@gmail.com") (:url . "https://github.com/mrBliss/helm-rhythmbox"))]) (helm-rg . [(20180629 920) ((emacs (25)) (cl-lib (0 5)) (dash (2 13 0)) (helm (2 8 8))) "a helm interface to ripgrep" single ((:commit . "d356a2abb6359d709487ed49414e151627287577") (:keywords "find" "file" "files" "helm" "fast" "rg" "ripgrep" "grep" "search" "match") (:authors ("Danny McClanahan")) (:maintainer "Danny McClanahan") (:url . "https://github.com/cosmicexplorer/helm-rg"))]) (helm-recoll . [(20160731 921) ((helm (1 9 9))) "helm interface for the recoll desktop search tool." single ((:commit . "cc4c4fa9c8f4f99383647baa8512b60523dc8b36") (:keywords "convenience") (:authors ("Thierry Volpiatto <thierry.volpiatto at gmail.com>")) (:maintainer "Thierry Volpiatto <thierry.volpiatto at gmail.com>") (:url . "https://github.com/emacs-helm/helm-recoll"))]) (helm-rdefs . [(20161130 536) ((emacs (24)) (helm (1 6 4))) "rdefs with helm interface" single ((:commit . "cd3a6b3af3015ee58ef30cb7c81c79ebe5fc867b") (:keywords "matching" "tools") (:authors ("Hiroshi Saito" . "monodie@gmail.com")) (:maintainer "Hiroshi Saito" . "monodie@gmail.com") (:url . "https://github.com/saidie/helm-rdefs"))]) (helm-rb . [(20131123 1639) ((helm (1 0)) (helm-ag-r (20131123))) "Search Ruby's method by ag and display helm" tar ((:commit . "4949d646420a9849af234dacdd8eb34a77c662fd") (:keywords "searching" "ruby") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/helm-rb"))]) (helm-rails . [(20130424 1519) ((helm (1 5 1)) (inflections (1 1))) "Helm extension for Rails projects." single ((:commit . "506d9948d45dfbc575c9c4c0d102c1ad2f511e82") (:keywords "helm" "rails" "git") (:authors ("Adam Sokolnicki" . "adam.sokolnicki@gmail.com")) (:maintainer "Adam Sokolnicki" . "adam.sokolnicki@gmail.com") (:url . "https://github.com/asok/helm-rails"))]) (helm-rage . [(20180118 1532) ((helm (1 9 8)) (emacs (24 4)) (dash (2 13 0)) (s (1 11 0))) "Helm command for rage characters." tar ((:commit . "5d0aefb53d859186181d4bdcfeff7d315339c7b8") (:keywords "helm" "rage" "meme") (:url . "https://github.com/bomgar/helm-rage"))]) (helm-qiita . [(20180301 1435) ((helm (2 8 2))) "Qiita with helm interface" single ((:commit . "3ccb85640bf54491ed3c3c8110d454ae181650dc") (:authors ("Takashi Masuda" . "masutaka.net@gmail.com")) (:maintainer "Takashi Masuda" . "masutaka.net@gmail.com") (:url . "https://github.com/masutaka/emacs-helm-qiita"))]) (helm-pydoc . [(20160918 542) ((helm-core (2 0)) (emacs (24 4))) "pydoc with helm interface" tar ((:commit . "85480a29b56dacde425655bc8f5a597c785afdf5") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-pydoc"))]) (helm-purpose . [(20170114 1636) ((emacs (24)) (helm (1 9 2)) (window-purpose (1 4))) "Helm Interface for Purpose" single ((:commit . "9ff4c21c1e9ebc7afb851b738f815df7343bb287") (:authors ("Bar Magal (2016)")) (:maintainer "Bar Magal (2016)") (:url . "https://github.com/bmag/helm-purpose"))]) (helm-pt . [(20160214 2342) ((helm (1 5 6))) "Helm interface to the platinum searcher" tar ((:commit . "8acc52911dad1ed0c3975f134a468762afe0b76b") (:keywords "helm" "platinum searcher"))]) (helm-prosjekt . [(20140129 717) ((prosjekt (0 3)) (helm (1 5 9))) "Helm integration for prosjekt." single ((:commit . "a864a8be5842223043702395f311e3350c28e9db") (:authors ("Sohail Somani" . "sohail@taggedtype.net")) (:maintainer "Sohail Somani" . "sohail@taggedtype.net") (:url . "https://github.com/abingham/prosjekt"))]) (helm-projectile . [(20180815 1514) ((helm (1 9 9)) (projectile (0 14 0)) (cl-lib (0 3))) "Helm integration for Projectile" single ((:commit . "8a2dbc973548fac89356c11d70f7f474ea1367a5") (:keywords "project" "convenience") (:authors ("Bozhidar Batsov")) (:maintainer "Bozhidar Batsov") (:url . "https://github.com/bbatsov/helm-projectile"))]) (helm-project-persist . [(20151210 1543) ((helm (1 5 2)) (project-persist (0 1 4))) "Helm integration for project-persist package" single ((:commit . "357950fbac18090985a750e40d5d8b10ee9dcd53") (:keywords "project-persist" "project" "helm") (:authors ("Sliim" . "sliim@mailoo.org")) (:maintainer "Sliim" . "sliim@mailoo.org"))]) (helm-proc . [(20161006 305) ((helm (1 6 0))) "Helm interface for managing system processes" tar ((:commit . "576d31c2d74ba3897d56e2acd2b0993f52c2547c"))]) (helm-posframe . [(20180610 1748) ((emacs (26 0)) (posframe (0 1 0)) (helm (0 1))) "Using posframe to show helm window" single ((:commit . "d28f96ea92ee9393658901bb552723db10f40dc3") (:keywords "abbrev" "convenience" "matching" "helm") (:authors ("Feng Shu")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/helm-posframe"))]) (helm-phpunit . [(20160513 853) ((helm (1 9 5)) (phpunit (0 7 0))) "Helm integration for phpunit.el" single ((:commit . "739f26204ad2ba76c25f45e8eab1e5216f7c3518") (:keywords "phpunit" "helm" "php") (:authors ("Eric Hansen" . "hansen.c.eric@gmail.com")) (:maintainer "Eric Hansen" . "hansen.c.eric@gmail.com") (:url . "https://github.com/eric-hansen/phpunit-helm"))]) (helm-perspeen . [(20170228 1345) ((perspeen (0 1 0)) (helm (2 5 0))) "Helm interface for perspeen." single ((:commit . "7fe2922d85608bfa9e18269fc44181428b8849ff") (:keywords "projects" "lisp") (:authors ("Yoshinobu Fujimoto")) (:maintainer "Yoshinobu Fujimoto") (:url . "https://github.com/jimo1001/helm-perspeen"))]) (helm-perldoc . [(20160918 556) ((helm-core (2 0)) (deferred (0 3 1)) (emacs (24 4))) "perldoc with helm interface" tar ((:commit . "1979f9f67814c11ec9498502237c89a5e1153100") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-perldoc"))]) (helm-pass . [(20180607 2348) ((emacs (25)) (helm (0)) (password-store (0)) (auth-source-pass (4 0 0))) "helm interface of pass, the standard Unix password manager" single ((:commit . "fdff8f8f2e2b8a61caed7b6c171624700dbe1346") (:authors ("J. Alexander Branham" . "branham@utexas.edu")) (:maintainer "J. Alexander Branham" . "branham@utexas.edu") (:url . "https://github.com/jabranham/helm-pass"))]) (helm-pages . [(20161121 226) ((helm (1 6 5)) (emacs (24)) (cl-lib (0 5))) "Pages in current buffer as Helm datasource" single ((:commit . "51dcb9374d1df9feaae85e60cfb39b970554ecba") (:keywords "convenience" "helm" "outlines") (:authors ("David Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Christiansen" . "david@davidchristiansen.dk"))]) (helm-orgcard . [(20151001 1524) ((helm-core (1 7 7))) "browse the orgcard by helm" single ((:commit . "9655ac340d1ccc5f3d1c0f7c49be8dd3556d4d0d") (:keywords "convenience" "helm" "org") (:authors ("Yuhei Maeda <yuhei.maeda_at_gmail.com>")) (:maintainer "Yuhei Maeda") (:url . "https://github.com/emacs-jp/helm-orgcard"))]) (helm-org-rifle . [(20180923 2209) ((emacs (24 4)) (dash (2 12)) (f (0 18 1)) (helm (1 9 4)) (s (1 10 0))) "Rifle through your Org files" single ((:commit . "e272fc43b964ef06a2673afd7c341dba87ae9ac4") (:keywords "hypermedia" "outlines") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/helm-org-rifle"))]) (helm-open-github . [(20170220 159) ((emacs (24 4)) (helm-core (1 7 7)) (gh (0 8 2))) "Utilities of Opening Github Page" single ((:commit . "2f03d97552a1233db7694116d5f80ecde7612756") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-open-github"))]) (helm-notmuch . [(20180730 1722) ((helm (1 9 3)) (notmuch (0 21))) "Search emails with Notmuch and Helm" single ((:commit . "9988eb0f787c82c779f2417b5613b9142a5b1c9b") (:keywords "mail") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/helm-notmuch"))]) (helm-nixos-options . [(20151013 2309) ((nixos-options (0 0 1)) (helm (1 5 6))) "Helm Interface for nixos-options" single ((:commit . "45c8d90748304c90e1503c9fa8db0443f3d4bd89") (:keywords "unix") (:authors ("Diego Berrocal" . "cestdiego@gmail.com") ("Travis B. Hartwell" . "nafai@travishartwell.net")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "http://www.github.com/travisbhartwell/nix-emacs/"))]) (helm-navi . [(20170402 1452) ((emacs (24 4)) (helm (1 9 4)) (navi-mode (2 0)) (s (1 10 0))) "Helm for navi-mode" single ((:commit . "2256591174ff79f889450fdc10822316819d6476") (:keywords "navigation" "outlines") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/emacs-helm/helm-navi"))]) (helm-mu . [(20180513 921) ((helm (1 5 5))) "Helm sources for searching emails and contacts" single ((:commit . "77e6fea24e01481418738421dbcfe28ef1bd63cf") (:authors ("Titus von der Malsburg" . "malsburg@posteo.de")) (:maintainer "Titus von der Malsburg" . "malsburg@posteo.de") (:url . "https://github.com/emacs-helm/helm-mu"))]) (helm-mt . [(20160918 452) ((emacs (24)) (helm (0 0)) (multi-term (0 0)) (cl-lib (0 5))) "helm multi-term management" single ((:commit . "d2bff4100118483bc398c56d0ff095294209265b") (:keywords "helm" "multi-term") (:authors ("Didier Deshommes" . "dfdeshom@gmail.com")) (:maintainer "Didier Deshommes" . "dfdeshom@gmail.com") (:url . "https://github.com/dfdeshom/helm-mt"))]) (helm-mode-manager . [(20151124 938) ((helm (1 5 3))) "Select and toggle major and minor modes with helm" single ((:commit . "5d9c3ca4f8205d07ff4e03c4c3e88f596751c1fc") (:authors ("istib")) (:maintainer "istib") (:url . "https://github.com/istib/helm-mode-manager"))]) (helm-migemo . [(20151010 356) ((emacs (24 4)) (helm-core (1 7 8)) (migemo (1 9)) (cl-lib (0 5))) "Migemo plug-in for helm" single ((:commit . "66c6a19d07c6a385daefd2090d0709d26b608b4e") (:keywords "matching" "convenience" "tools" "i18n") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "Yuhei Maeda <yuhei.maeda_at_gmail.com>") (:url . "https://github.com/emacs-jp/helm-migemo"))]) (helm-make . [(20181107 2126) ((helm (1 5 3)) (projectile (0 11 0))) "Select a Makefile target with helm" single ((:commit . "f86c3973af760df6d7d0ecc61c3d9d14e1d93e2b") (:keywords "makefile") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/helm-make"))]) (helm-ls-svn . [(20150717 739) ((emacs (24 1)) (helm (1 7 0)) (cl-lib (0 5))) "helm extension to list svn files" single ((:commit . "4d4dc1a272f27fba5fdd7cc47e5d309b53c63ae3") (:keywords "helm" "svn") (:authors ("Chunyang Xu" . "chunyang@macports.org")) (:maintainer "Chunyang Xu" . "chunyang@macports.org") (:url . "https://svn.macports.org/repository/macports/users/chunyang/helm-ls-svn.el/helm-ls-svn.el"))]) (helm-ls-hg . [(20150909 543) ((helm (1 7 8))) "List hg files in hg project." single ((:commit . "61b91a22fcfb62d0fc56e361ec01ce96973c7165"))]) (helm-ls-git . [(20180711 923) ((helm (1 7 8))) "list git files." single ((:commit . "e38cee59c42fbf16b6de239a537d27af58473394"))]) (helm-lobsters . [(20150213 1546) ((helm (1 0)) (cl-lib (0 5))) "helm front-end for lobste.rs" single ((:commit . "53c5b42baf72776dcba891fc3d7cd7d47721e9b0") (:authors ("Julien BLANCHARD" . "julien@sideburns.eu")) (:maintainer "Julien BLANCHARD" . "julien@sideburns.eu") (:url . "https://github.com/julienXX/helm-lobste.rs"))]) (helm-lines . [(20180601 2033) ((emacs (24 4)) (helm (1 9 8))) "A helm interface for completing by lines" single ((:commit . "3bfe15a60c6405682085ab289de3eb364624c4e9") (:keywords "files" "helm" "ag" "pt" "vc" "git" "lines" "complete" "tools" "languages") (:authors ("@torgeir")) (:maintainer "@torgeir") (:url . "https://github.com/torgeir/helm-lines.el/"))]) (helm-lib-babel . [(20180510 1324) ((cl-lib (0 5)) (helm (1 9 2)) (emacs (24 4))) "helm insertion of babel function references" single ((:commit . "41bc0cdea8a604c6c8dc83ed5066644d33688fad") (:keywords "convenience") (:authors ("Derek Feichtinger" . "dfeich@gmail.com")) (:maintainer "Derek Feichtinger" . "dfeich@gmail.com") (:url . "https://github.com/dfeich/helm-lib-babel.el"))]) (helm-lean . [(20171102 1454) ((emacs (24 3)) (dash (2 12 0)) (helm (2 8 0)) (lean-mode (3 3 0))) "Helm interfaces for lean-mode" single ((:commit . "9d6b8471e2044310b4cd7cd3213b1fc8f78ec499") (:keywords "languages") (:authors ("Leonardo de Moura" . "leonardo@microsoft.com") ("Soonho Kong " . "soonhok@cs.cmu.edu") ("Gabriel Ebner " . "gebner@gebner.org") ("Sebastian Ullrich" . "sebasti@nullri.ch")) (:maintainer "Sebastian Ullrich" . "sebasti@nullri.ch") (:url . "https://github.com/leanprover/lean-mode"))]) (helm-lastpass . [(20180722 806) ((emacs (25 1)) (helm (2 0)) (csv (2 1))) "Helm interface of LastPass" single ((:commit . "82e1ffb6ae77d9d9e29c398eb013cd20ce963f77") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/helm-lastpass"))]) (helm-kythe . [(20170709 726) ((emacs (25)) (dash (2 12 0)) (helm (2 0))) "Google Kythe helm interface" single ((:commit . "eabbef4948f8ec7c7b2fac498e9145dfdb10ca82") (:authors ("Fangrui Song" . "i@maskray.me")) (:maintainer "Fangrui Song" . "i@maskray.me") (:url . "https://github.com/MaskRay/emacs-helm-kythe"))]) (helm-jstack . [(20150603 422) ((emacs (24)) (helm (1 7 0)) (cl-lib (0 5))) "Helm interface to Jps & Jstack for Java/JVM processes" single ((:commit . "2064f7215dcf4ccbd6a7b8784223251507746da4") (:keywords "java" "jps" "jstack" "jvm" "emacs" "elisp" "helm") (:authors ("Raghav Kumar Gautam" . "rgautam@apache.com")) (:maintainer "Raghav Kumar Gautam" . "rgautam@apache.com"))]) (helm-js-codemod . [(20171106 1044) ((emacs (24 4)) (helm-core (1 9 8)) (js-codemod (1 0 0))) "A helm interface for running js-codemods" single ((:commit . "18503d94e64418e8ea5c5854f197ae9f3009cdbf") (:keywords "helm" "js" "codemod" "region") (:authors (nil . "Torgeir Thoresen <@torgeir>")) (:maintainer nil . "Torgeir Thoresen <@torgeir>"))]) (helm-jira . [(20180802 815) ((emacs (25)) (cl-lib (0 5)) (helm (1 9 9))) "Helm bindings for JIRA/Bitbucket/stash" single ((:commit . "75d6ed5bd7a041fa8c1adb21cbbbe57b5a7c7cc7") (:keywords "tools" "helm" "jira" "bitbucket" "stash") (:authors ("Roman Decker <roman dot decker at gmail dot com>")) (:maintainer "Roman Decker <roman dot decker at gmail dot com>") (:url . "https://github.com/DeX3/helm-jira"))]) (helm-j-cheatsheet . [(20170217 829) ((helm (1 5 3))) "Quick J reference for Emacs" single ((:commit . "6c47e7162b9ba2de4b41221d01180146973d860b") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/helm-j-cheatsheet"))]) (helm-itunes . [(20151013 648) ((helm (1 6 1))) "Play local iTunes and Spotify tracks" single ((:commit . "966de755a5aadbe02311a6cef77bd4790e84c263") (:authors ("Adam Schwartz" . "adam@adamschwartz.io")) (:maintainer "Adam Schwartz" . "adam@adamschwartz.io") (:url . "https://github.com/daschwa/helm-itunes"))]) (helm-ispell . [(20151231 853) ((helm-core (1 7 7))) "ispell-complete-word with helm interface" single ((:commit . "cb735695ab3a0e66c123c2f3f3e8911fb1c2d5fc") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-ispell"))]) (helm-img-tiqav . [(20151224 2322) ((helm-img (0 0 1))) "An helm-source for joking." single ((:commit . "33a7e9508bc8f37d53320b56c92b53d321a57bb0") (:keywords "convenience") (:authors ("Sho Matsumoto <l3msh0_at_gmail.com>")) (:maintainer "l3msh0") (:url . "https://github.com/l3msh0/helm-img"))]) (helm-img . [(20151224 2321) ((helm (1 7 7)) (cl-lib (0 5))) "Utilities for making image sources for helm." tar ((:commit . "aa3f8a5dce8d0413bf07584f07153a39015c2bfc") (:keywords "convenience") (:authors ("Sho Matsumoto <l3msh0_at_gmail.com>")) (:maintainer "l3msh0") (:url . "https://github.com/l3msh0/helm-img"))]) (helm-idris . [(20141202 1757) ((helm (0 0 0)) (idris-mode (0 9 14))) "A Helm datasource for Idris documentation, queried from the compiler" single ((:commit . "a2f45d6817974f318b55ad9b7fd19d5df132d47e") (:keywords "languages" "helm") (:authors ("David Raymond Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Raymond Christiansen" . "david@davidchristiansen.dk"))]) (helm-hunks . [(20171217 1933) ((emacs (24 4)) (helm (1 9 8))) "A helm interface for git hunks - browsing, staging, unstaging and killing" single ((:commit . "6392bf716f618eac23ce81140aceb0dfacb9c6d0") (:keywords "helm" "git" "hunks" "vc") (:authors ("@torgeir")) (:maintainer "@torgeir"))]) (helm-hoogle . [(20161027 534) ((helm (1 6 2)) (emacs (24 4))) "Use helm to navigate query results from Hoogle" single ((:commit . "73969a9d46d2121a849a01a9f7ed3636d01f7bbc") (:keywords "haskell" "programming" "hoogle") (:authors ("John Wiegley" . "jwiegley@gmail.com")) (:maintainer "John Wiegley" . "jwiegley@gmail.com") (:url . "https://github.com/jwiegley/haskell-config"))]) (helm-helm-commands . [(20130902 1748) ((helm (1 5 4))) "List all helm commands with helm" single ((:commit . "3a05aa19c976501343ad9ae630a36810921a85f6") (:keywords "convenience") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/helm-helm-commands"))]) (helm-hayoo . [(20151014 651) ((helm (1 6 0)) (json (1 2)) (haskell-mode (13 7))) "Source and configured helm for searching hayoo" single ((:commit . "dd4c0c8c87521026edf1b808c4de01fa19b7c693") (:keywords "helm") (:authors ("Markus Hauck" . "markus1189@gmail.com")) (:maintainer "Markus Hauck" . "markus1189@gmail.com"))]) (helm-hatena-bookmark . [(20180804 546) ((helm (2 8 2))) "Hatena::Bookmark with helm interface" single ((:commit . "274e18182fe20c11e96009387a8e38e8cd2a1d7e") (:authors ("Takashi Masuda" . "masutaka.net@gmail.com")) (:maintainer "Takashi Masuda" . "masutaka.net@gmail.com") (:url . "https://github.com/masutaka/emacs-helm-hatena-bookmark"))]) (helm-gtags . [(20170116 529) ((emacs (24 4)) (helm (2 0))) "GNU GLOBAL helm interface" single ((:commit . "108e93d0d099ebb7b98847388f368311cf177033") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-gtags"))]) (helm-growthforecast . [(20140120 344) ((helm (1 5 9))) "helm extensions for growthforecast." single ((:commit . "0f94ac090d6c354058ad89a86e5c18385c136d9b") (:authors ("Daichi Hirata" . "daichi.hirat@gmail.com")) (:maintainer "Daichi Hirata" . "daichi.hirat@gmail.com") (:url . "https://github.com/daic-h/helm-growthforecast"))]) (helm-grepint . [(20161001 1413) ((helm (1 0)) (emacs (24))) "Generic helm interface to grep" single ((:commit . "a62ca27515ff6a366b89b420500eb16d380cc653") (:keywords "grep" "grepping" "searching" "helm") (:authors ("Kalle Kankare" . "kalle.kankare@iki.fi")) (:maintainer "Kalle Kankare" . "kalle.kankare@iki.fi") (:url . "https://github.com/kopoli/helm-grepint"))]) (helm-google . [(20180606 520) ((helm (0))) "Emacs Helm Interface for quick Google searches" single ((:commit . "48e91a73d5f48c39d7a219022a24440cff548e1a") (:keywords "helm" "google" "search" "browse" "searx") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://framagit.org/steckerhalter/helm-google"))]) (helm-go-package . [(20161103 153) ((emacs (24 4)) (helm-core (2 2 1)) (go-mode (1 4 0)) (deferred (0 4 0))) "helm sources for Go programming language's package" single ((:commit . "e42c563936c205ceedb930a687c11b4bb56447bc") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/helm-go-package"))]) (helm-gitlab . [(20180312 1647) ((s (1 9 0)) (dash (2 9 0)) (helm (1 0)) (gitlab (0 8 0))) "Helm interface to Gitlab" single ((:commit . "68318aca3206d50701039c9aae39734ca29a49f9") (:keywords "gitlab" "helm") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/emacs-gitlab"))]) (helm-gitignore . [(20170211 8) ((gitignore-mode (1 1 0)) (helm (1 7 0)) (request (0 1 0)) (cl-lib (0 5))) "Generate .gitignore files with gitignore.io." single ((:commit . "2a2e7da7855a6db0ab3bb6a6a087863d7abd4391") (:keywords "helm" "gitignore" "gitignore.io") (:authors ("Juan Placencia")) (:maintainer "Juan Placencia") (:url . "https://github.com/jupl/helm-gitignore"))]) (helm-github-stars . [(20180718 111) ((helm (1 6 8)) (emacs (24 4))) "Helm integration for your starred repositories on github" single ((:commit . "809cf88e2984b121348b1046e1d3890f1fd580b4") (:keywords "helm" "github" "stars") (:authors ("Sliim" . "sliim@mailoo.org") ("xuchunyang" . "xuchunyang56@gmail.com")) (:maintainer "Sliim" . "sliim@mailoo.org") (:url . "https://github.com/Sliim/helm-github-stars"))]) (helm-git-grep . [(20170614 1411) ((helm-core (2 2 0))) "helm for git grep, an incremental git-grep(1)" single ((:commit . "744cea07dba6e6a5effbdba83f1b786c78fd86d3") (:authors ("mechairoi")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/helm-git-grep"))]) (helm-git-files . [(20141212 1317) ((helm (1 5 9))) "helm for git files" single ((:commit . "43193960774069369ac6964bbf7c026900206fa8") (:keywords "helm" "git") (:authors ("INA Lintaro <tarao.gnn at gmail.com>") ("TAKAGI Kentaro <kentaro0910_at_gmail.com>")) (:maintainer "INA Lintaro <tarao.gnn at gmail.com>"))]) (helm-git . [(20120630 2103) nil "Helm extension for Git." single ((:commit . "cb96a52b5aecadd3c27aba7749d14e43ab128d55") (:keywords "helm" "git") (:authors ("Marian Schubert" . "marian.schubert@gmail.com")) (:maintainer "Marian Schubert" . "marian.schubert@gmail.com") (:url . "https://github.com/maio/helm-git"))]) (helm-ghs . [(20170715 541) ((emacs (24)) (helm (2 2 0))) "ghs with helm interface" single ((:commit . "17a70bf16255d90d67c8350e88200ec8bfd47563") (:authors ("iory" . "ab.ioryz@gmail.com")) (:maintainer "iory" . "ab.ioryz@gmail.com") (:url . "https://github.com/iory/emacs-helm-ghs"))]) (helm-ghq . [(20161015 817) ((helm (2 2 0))) "ghq with helm interface" single ((:commit . "49481685adbb25b3f766aabfdb7472becc673a94") (:authors ("Takashi Masuda" . "masutaka.net@gmail.com")) (:maintainer "Takashi Masuda" . "masutaka.net@gmail.com") (:url . "https://github.com/masutaka/emacs-helm-ghq"))]) (helm-ghc . [(20141105 1459) ((emacs (24)) (cl-lib (0 5)) (helm (1 6 4)) (ghc (5 2 1 0))) "A Helm datasource for ghc-mod errors" single ((:commit . "e5ee7b8d3b745d162553aecfbd41381c4de85f35") (:keywords "languages" "helm") (:authors ("David Raymond Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Raymond Christiansen" . "david@davidchristiansen.dk"))]) (helm-fuzzy-find . [(20171106 400) ((emacs (24 1)) (helm (1 7 0))) "Find file using Fuzzy Search" single ((:commit . "de2abbf7ca13609587325bacd4a1ed4376b5c927") (:keywords "helm" "fuzzy" "find" "file") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/helm-fuzzy-find"))]) (helm-fuzzier . [(20160605 2145) ((emacs (24 3)) (helm (1 7 0))) "Better fuzzy matching for Helm" single ((:commit . "8798dcf3583b863df5b9dea7fe3b0179ba1c35bc") (:keywords "convenience" "helm" "fuzzy") (:authors ("Ephram Perdition")) (:maintainer "Ephram Perdition") (:url . "http://github.com/EphramPerdition/helm-fuzzier"))]) (helm-frame . [(20170515 1950) ((emacs (24 4))) "open helm buffers in a dedicated frame" single ((:commit . "389e6461a423d649b7062ba99a2234bef7770059") (:keywords "lisp" "helm" "popup" "frame") (:authors ("chee" . "chee@snake.dog")) (:maintainer "chee" . "chee@snake.dog"))]) (helm-flyspell . [(20170210 1901) ((helm (1 6 5))) "Helm extension for correcting words with flyspell" single ((:commit . "8d4d947c687cb650cb149aa2271ad5201ea92594") (:keywords "convenience") (:authors ("Andrzej Pronobis")) (:maintainer "Andrzej Pronobis") (:url . "https://github.com/pronobis/helm-flyspell"))]) (helm-flymake . [(20160610 2) ((helm (1 0))) "helm interface for flymake" single ((:commit . "72cf18a1a1f843db9bb5d58301739ea9ccb1655b") (:authors ("Akira Tamamori" . "tamamori5917@gmail.com")) (:maintainer "Akira Tamamori" . "tamamori5917@gmail.com") (:url . "https://github.com/tam17aki"))]) (helm-flycheck . [(20160710 829) ((dash (2 12 1)) (flycheck (28)) (helm-core (1 9 8))) "Show flycheck errors with helm" single ((:commit . "3cf7d3bb194acacc6395f88360588013d92675d6") (:keywords "helm" "flycheck") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/helm-flycheck"))]) (helm-flx . [(20180103 516) ((emacs (24 4)) (helm (1 7 9)) (flx (0 5))) "Sort helm candidates by flx score" single ((:commit . "6640fac5cb16bee73c95b8ed1248a4e5e113690e") (:keywords "convenience" "helm" "fuzzy" "flx") (:authors ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainer "PythonNut" . "pythonnut@pythonnut.com") (:url . "https://github.com/PythonNut/helm-flx"))]) (helm-firefox . [(20161202 1317) ((helm (1 5)) (cl-lib (0 5)) (emacs (24 1))) "Firefox bookmarks" single ((:commit . "0ad34b7b5abc485a86cae6920c14de861cbeb085") (:url . "https://github.com/emacs-helm/helm-firefox"))]) (helm-filesets . [(20140929 1835) ((helm (1 6 3)) (filesets+ (0))) "A helm source for emacs filesets" single ((:commit . "b352910af4c3099267a8aa0169c7f743b35bb1fa") (:keywords "filesets") (:authors ("Graham Clark" . "grclark@gmail.com")) (:maintainer "Graham Clark" . "grclark@gmail.com") (:url . "https://github.com/gcla/helm-filesets"))]) (helm-exwm . [(20180827 837) ((emacs (25 2)) (helm (2 8 5)) (exwm (0 15))) "Helm for EXWM buffers" single ((:commit . "e21c6ffabadd2fe8d6c7805b6027cc59a6f914e9") (:keywords "helm" "exwm") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainer "Pierre Neidhardt" . "mail@ambrevar.xyz") (:url . "https://github.com/emacs-helm/helm-exwm"))]) (helm-ext . [(20180526 350) ((emacs (24 4)) (helm (2 5 3))) "A few extensions to Helm" tar ((:commit . "90b788aced21ec467a234b6b77b5a6ebae6de75f") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (helm-eww . [(20180827 836) ((emacs (24 4)) (helm (2 8 6)) (seq (1 8))) "Helm UI wrapper for EWW." single ((:commit . "2bb7b644f953c45b5dd03298b556312440618026") (:keywords "helm" "packages") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainer "Pierre Neidhardt" . "mail@ambrevar.xyz") (:url . "https://github.com/emacs-helm/helm-eww"))]) (helm-etags-plus . [(20170113 1414) ((helm (1 7 8))) "Another Etags helm.el interface" single ((:commit . "704f0991ee4a2298b01c33aafc224eef322e15e3") (:keywords "helm" "etags") (:authors ("纪秀峰(Joseph)" . "jixiuf@gmail.com")) (:maintainer "纪秀峰(Joseph)" . "jixiuf@gmail.com") (:url . "https://github.com/jixiuf/helm-etags-plus"))]) (helm-emms . [(20180406 528) ((helm (1 5)) (emms (0 0)) (cl-lib (0 5)) (emacs (24 1))) "Emms for Helm." single ((:commit . "d3f9bdef8ff0d093eaf6e26af50ea905ab53fdec") (:url . "https://github.com/emacs-helm/helm-emms"))]) (helm-emmet . [(20160713 1231) ((helm (1 0)) (emmet-mode (1 0 2))) "helm sources for emmet-mode's snippets" single ((:commit . "f0364e736b10cf44232053a78de04133a88185ae") (:keywords "convenience" "helm" "emmet") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/helm-emmet"))]) (helm-elscreen . [(20170709 914) ((helm (2 8 0)) (elscreen (0)) (cl-lib (0 5)) (emacs (24 1))) "Elscreen with helm interface" single ((:commit . "b8212866939dc4a1e1dc23ad572407b688e130e3") (:keywords "files" "convenience") (:authors ("Thierry Volpiatto" . "thierry.volpiatto@gmail.com")) (:maintainer "Thierry Volpiatto" . "thierry.volpiatto@gmail.com") (:url . "https://github.com/emacs-helm/helm-elscreen"))]) (helm-dirset . [(20151209 12) ((f (0 16 2)) (helm (1 6 1)) (s (1 9 0)) (cl-lib (0 5))) "helm sources for multi directories" single ((:commit . "eb30810cd26e1ee73d84a863e6b2667700e9aead") (:keywords "files" "directories") (:authors ("k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>")) (:maintainer "k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>") (:url . "http://101000lab.org"))]) (helm-dired-recent-dirs . [(20131228 1414) ((helm (1 0))) "Show recent dirs with helm.el support." single ((:commit . "3bcd125b44f5a707588ae3868777d91192351523") (:keywords "helm" "dired" "zsh") (:authors ("Akisute" . "akisute3@gmail.com")) (:maintainer "Akisute" . "akisute3@gmail.com"))]) (helm-dired-history . [(20170524 1046) ((helm (1 9 8)) (cl-lib (0 5))) "Show dired history with helm.el support." single ((:commit . "281523f9fc46cf00fafd670ba5cd16552a607212") (:keywords "helm" "dired history") (:authors ("Joseph(纪秀峰)" . "jixiuf@gmail.com")) (:maintainer "Joseph(纪秀峰)" . "jixiuf@gmail.com") (:url . "https://github.com/jixiuf/helm-dired-history"))]) (helm-directory . [(20170706 402) ((emacs (24 4)) (helm (2 0))) "selecting directory before select the file" single ((:commit . "51bd7cd6e40a84a7efda894283ec76a0107830ad") (:authors ("Masashı Mıyaura")) (:maintainer "Masashı Mıyaura") (:url . "https://github.com/masasam/emacs-helm-directory"))]) (helm-dictionary . [(20160817 2033) ((helm (1 5 5))) "Helm source for looking up dictionaries" single ((:commit . "805ce850d4cbe811227d9c9b16cc51f652198f3f") (:authors ("Titus von der Malsburg" . "malsburg@posteo.de") ("Michael Heerdegen" . "michael_heerdegen@web.de")) (:maintainer "Titus von der Malsburg" . "malsburg@posteo.de") (:url . "https://github.com/emacs-helm/helm-dictionary"))]) (helm-describe-modes . [(20160212 518) ((helm (1 9)) (cl-lib (0 5)) (emacs (24 1))) "Helm interface to major and minor modes." single ((:commit . "11fb36af119b784539d31c6160002de1957408aa") (:keywords "docs" "convenience") (:authors ("Tianxiang Xiong" . "tianxiang.xiong@gmail.com")) (:maintainer "Tianxiang Xiong" . "tianxiang.xiong@gmail.com") (:url . "https://github.com/emacs-helm/helm-describe-modes"))]) (helm-descbinds . [(20180429 1456) ((helm (1 5))) "A convenient `describe-bindings' with `helm'" single ((:commit . "033be73f21778633813264ce1634a6e1ad873d8e") (:keywords "helm" "help") (:authors ("Taiki SUGAWARA" . "buzz.taiki@gmail.com")) (:maintainer "Taiki SUGAWARA" . "buzz.taiki@gmail.com") (:url . "https://github.com/emacs-helm/helm-descbinds"))]) (helm-dash . [(20180503 918) ((helm (1 9 2)) (cl-lib (0 5))) "Offline documentation browser for +150 APIs using Dash docsets." single ((:commit . "0ac2db529577fa63f2ed32310062873c585b91de") (:keywords "docs") (:authors ("Raimon Grau" . "raimonster@gmail.com") ("Toni Reina " . "areina0@gmail.com")) (:maintainer "Raimon Grau" . "raimonster@gmail.com") (:url . "http://github.com/areina/helm-dash"))]) (helm-ctest . [(20180821 1005) ((s (1 9 0)) (dash (2 11 0)) (helm-core (1 7 4))) "Run ctest from within emacs" single ((:commit . "0c73689692a290f56080e95325c15362e90d529b") (:keywords "helm" "ctest") (:authors ("Dan LaManna" . "me@danlamanna.com")) (:maintainer "Dan LaManna" . "me@danlamanna.com"))]) (helm-css-scss . [(20140627 25) ((helm (1 0)) (emacs (24))) "CSS/SCSS/LESS Selectors with helm interface" single ((:commit . "ab8348aa98e0daa2f1b771e35bdb06bfacbe5016") (:keywords "scss" "css" "less" "selector" "helm") (:authors ("Shingo Fukuyama - http://fukuyama.co")) (:maintainer "Shingo Fukuyama - http://fukuyama.co") (:url . "https://github.com/ShingoFukuyama/helm-css-scss"))]) (helm-cscope . [(20170326 722) ((xcscope (1 0)) (helm (1 6 7)) (cl-lib (0 5)) (emacs (24 1))) "Helm interface for xcscope.el." single ((:commit . "3cc7259ab4989f9f7ca039e703cdac14b907530a") (:keywords "cscope" "helm") (:authors ("alpha22jp" . "alpha22jp@gmail.com")) (:maintainer "alpha22jp" . "alpha22jp@gmail.com") (:url . "https://github.com/alpha22jp/helm-cscope.el"))]) (helm-core . [(20181119 2038) ((emacs (24 4)) (async (1 9 3))) "Development files for Helm" tar ((:commit . "fa119eb9c79fb444a8ffd865a894380682f31840") (:url . "https://emacs-helm.github.io/helm/"))]) (helm-company . [(20180828 1612) ((helm (1 5 9)) (company (0 6 13))) "Helm interface for company-mode" single ((:commit . "d3fc093a0e833b4dee6561c00d6df3d62aa50f3f") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Daniel Ralston" . "Sodel-the-Vociferous@users.noreply.github.com") (:url . "https://github.com/Sodel-the-Vociferous/helm-company"))]) (helm-commandlinefu . [(20150611 545) ((emacs (24 1)) (helm (1 7 0)) (json (1 3)) (let-alist (1 0 3))) "Search and browse commandlinefu.com from helm" single ((:commit . "9ee7e018c5db23ae9c8d1c8fa969876f15b7280d") (:keywords "commandlinefu.com") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/helm-commandlinefu"))]) (helm-codesearch . [(20180204 433) ((s (1 10 0)) (dash (2 12 0)) (helm (1 7 7)) (cl-lib (0 5))) "helm interface for codesearch" single ((:commit . "87a68168b7c1490769305db0df60035e47799a75") (:keywords "tools") (:authors ("Youngjoo Lee" . "youngker@gmail.com")) (:maintainer "Youngjoo Lee" . "youngker@gmail.com"))]) (helm-cmd-t . [(20170125 1459) nil "cmd-t style completion" tar ((:commit . "7fa3d4a9f7271512e54c5de999079b27c9eec6bf") (:keywords "helm" "project-management" "completion" "convenience" "cmd-t" "textmate") (:authors ("Le Wang")) (:maintainer "Le Wang") (:url . "https://github.com/lewang/helm-cmd-t"))]) (helm-clojuredocs . [(20160405 723) ((edn (1 1 2)) (helm (1 5 7))) "search for help in clojuredocs.org" single ((:commit . "5a7f0f2cb401be0b09e73262a1c18265ab9a3cea") (:keywords "helm" "clojure") (:authors ("Michal Buczko" . "michal.buczko@gmail.com")) (:maintainer "Michal Buczko" . "michal.buczko@gmail.com") (:url . "https://github.com/mbuczko/helm-clojuredocs"))]) (helm-circe . [(20160207 652) ((emacs (24)) (helm (0 0)) (circe (0 0)) (cl-lib (0 5))) "helm circe buffer management." single ((:commit . "9091651d9fdd8d49d8ff6f9dcf3a2ae416c9f15a") (:keywords "helm" "circe") (:authors ("Les Harris" . "les@lesharris.com")) (:maintainer "Les Harris" . "les@lesharris.com") (:url . "https://github.com/lesharris/helm-circe"))]) (helm-cider-history . [(20150719 2120) ((helm (1 4 0)) (cider (0 9 0))) "Helm interface for cider history" single ((:commit . "c391fcb2e162a02001605a0b9449783575a831fd") (:keywords "convenience") (:authors ("Andreas Klein" . "git@kungi.org")) (:maintainer "Andreas Klein" . "git@kungi.org") (:url . "https://github.com/Kungi/helm-cider-history"))]) (helm-cider . [(20180307 458) ((emacs (24 4)) (cider (0 16)) (helm-core (2 8))) "Helm interface to CIDER" tar ((:commit . "9363cc537f06233345aa3af5cd46aa5681ad607b") (:keywords "cider" "clojure" "helm" "languages") (:authors ("Tianxiang Xiong" . "tianxiang.xiong@gmail.com")) (:maintainer "Tianxiang Xiong" . "tianxiang.xiong@gmail.com") (:url . "https://github.com/clojure-emacs/helm-cider"))]) (helm-chronos . [(20150528 2036) ((chronos (1 2)) (helm (1 7 1))) "helm interface for chronos timers" tar ((:commit . "a14fc3d65dd96ce6616234b3f7b8b08b4c1817ef") (:keywords "calendar") (:authors ("David Knight" . "dxknight@opmbx.org")) (:maintainer "David Knight" . "dxknight@opmbx.org") (:url . "http://github.com/dxknight/helm-chronos"))]) (helm-chrome . [(20160719 520) ((helm (1 5)) (cl-lib (0 3)) (emacs (24))) "Helm interface for Chrome bookmarks" single ((:commit . "fd630ace4b4b4f33355a973743bbfe0c90ce4830") (:keywords "tools") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/helm-chrome"))]) (helm-charinfo . [(20170810 1231) ((emacs (24)) (helm (1 7 0)) (cl-lib (0 5))) "A helm source for character information" single ((:commit . "91798a49dc115342a7e01e48b264e9a0bf5ea414") (:keywords "convenience") (:authors ("Christian Wittern" . "cwittern@gmail.com")) (:maintainer "Christian Wittern" . "cwittern@gmail.com") (:url . "https://github.com/cwittern/helm-charinfo"))]) (helm-c-yasnippet . [(20170128 1542) ((helm (1 7 7)) (yasnippet (0 8 0)) (cl-lib (0 3))) "helm source for yasnippet.el" single ((:commit . "65ca732b510bfc31636708aebcfe4d2d845b59b0") (:keywords "convenience" "emulation") (:authors ("Kenji.I (Kenji Imakado)" . "ken.imakaado@gmail.com")) (:maintainer "Kenji.I (Kenji Imakado)" . "ken.imakaado@gmail.com"))]) (helm-c-moccur . [(20151230 924) ((helm (20120811)) (color-moccur (2 71))) "helm source for color-moccur.el" single ((:commit . "b0a906f85fa352db091f88b91a9c510de607dfe9") (:keywords "convenience" "emulation") (:authors ("Kenji.I (Kenji Imakado)" . "ken.imakaado@gmail.com")) (:maintainer "Kenji.I (Kenji Imakado)" . "ken.imakaado@gmail.com"))]) (helm-bundle-show . [(20151221 1230) ((helm (1 8 0))) "bundle show with helm interface" single ((:commit . "850fecb36f609f1dfd5d20ca0170c9a6b7f90ab9") (:authors ("Takashi Masuda" . "masutaka.net@gmail.com")) (:maintainer "Takashi Masuda" . "masutaka.net@gmail.com") (:url . "https://github.com/masutaka/emacs-helm-bundle-show"))]) (helm-books . [(20170325 631) ((helm (1 7 7))) "Helm interface for searching books" single ((:commit . "625aadec1541a5ca36951e4ce1301f4b6fe2bf3f") (:authors ("grugrut" . "grugruglut+github@gmail.com")) (:maintainer "grugrut" . "grugruglut+github@gmail.com") (:url . "https://github.com/grugrut/helm-books"))]) (helm-bm . [(20160321 1331) ((bm (1 0)) (cl-lib (0 5)) (helm (1 9 3)) (s (1 11 0))) "helm sources for bm.el" single ((:commit . "d66341f5646c23178d4d8bffb6cfebe3fb73f1d7") (:keywords "helm" "bookmark") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/helm-bm"))]) (helm-bind-key . [(20141109 515) ((bind-key (1 0)) (helm (1 6 4))) "helm-source for for bind-key." single ((:commit . "9da6ad8b7530e72fb4ac67be8c6a482898dddc25") (:keywords "convenience" "emulation") (:authors ("Yuhei Maeda <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe"))]) (helm-bibtexkey . [(20140214 1504) ((helm (1 5 8))) "Bibtexkey source for helm" tar ((:commit . "aa1637ea5c8c5f1817e480fc2a3750cafab3d99f") (:keywords "bib" "tex") (:authors ("TAKAGI Kentaro <kentaro0910_at_gmail.com>")) (:maintainer "TAKAGI Kentaro <kentaro0910_at_gmail.com>") (:url . "https://github.com/kenbeese/helm-bibtexkey"))]) (helm-bibtex . [(20181030 2142) ((helm (1 5 5)) (parsebib (1 0)) (s (1 9 0)) (dash (2 6 0)) (f (0 16 2)) (cl-lib (0 5)) (biblio (0 2))) "A bibliography manager based on Helm" tar ((:commit . "af05ccb498d89550644cc01c80628053d4d2d73f") (:authors ("Titus von der Malsburg" . "malsburg@posteo.de")) (:maintainer "Titus von der Malsburg" . "malsburg@posteo.de"))]) (helm-bbdb . [(20180505 1508) ((helm (1 5)) (bbdb (3 1 2))) "Helm interface for bbdb" single ((:commit . "db286b0ee0ea18142f7d005e465832bb755bb0cb") (:url . "https://github.com/emacs-helm/helm-bbdb"))]) (helm-backup . [(20180911 614) ((helm (1 5 5)) (s (1 8 0)) (cl-lib (0))) "Backup each file change using git" single ((:commit . "691fe542f38fc7c8cca409997f6a0ff5d76ad6c2") (:keywords "backup" "convenience" "files" "tools" "vc") (:authors ("Anthony HAMON" . "hamon.anth@gmail.com")) (:maintainer "Anthony HAMON" . "hamon.anth@gmail.com") (:url . "http://github.com/antham/helm-backup"))]) (helm-aws . [(20180514 1032) ((helm (1 5 3)) (cl-lib (0 5)) (s (1 9 0))) "Manage AWS EC2 server instances directly from Emacs" single ((:commit . "b36c744b3f00f458635a91d1f5158fccbb5baef6") (:authors ("istib")) (:maintainer "istib") (:url . "https://github.com/istib/helm-aws"))]) (helm-ag-r . [(20131123 1531) ((helm (1 0))) "Search something by ag and display by helm" single ((:commit . "67de4ebafe9b088db950eefa5ef590a6d78b4ac8") (:keywords "searching") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/helm-ag-r"))]) (helm-ag . [(20170209 1545) ((emacs (24 4)) (helm (2 0))) "the silver searcher with helm interface" single ((:commit . "2fc02c4ead29bf0db06fd70740cc7c364cb650ac") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-ag"))]) (helm-addressbook . [(20170903 728) ((helm (2 8 2)) (addressbook-bookmark (1 0)) (cl-lib (0 5)) (emacs (24 4))) "Helm for addressbook bookmarks." single ((:commit . "62497f72d46afd3a9f9f94b27d062a82fb232de4") (:url . "https://github.com/emacs-helm/helm-addressbook"))]) (helm-ad . [(20151209 1015) ((dash (2 8 0)) (helm (1 6 2))) "helm source for Active Directory" single ((:commit . "8ac044705d8620ee354a9cfa8cc1b865e83c0d55") (:keywords "comm") (:authors ("Takahiro Noda" . "takahiro.noda+github@gmail.com")) (:maintainer "Takahiro Noda" . "takahiro.noda+github@gmail.com"))]) (helm-ack . [(20141030 1226) ((helm (1 0)) (cl-lib (0 5))) "Ack command with helm interface" single ((:commit . "889bc225318d14c6e3be80e73b1d9d6fb30e48c3") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-helm-ack"))]) (helm-R . [(20120820 14) ((helm (20120517)) (ess (20120509))) "helm-sources and some utilities for GNU R." single ((:commit . "b0eb9d5f6a483a9dbe6eb6cf1f2024d4f5938bc2") (:keywords "convenience") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/helm-R.el"))]) (helm . [(20181120 1326) ((emacs (24 4)) (async (1 9 3)) (popup (0 5 3)) (helm-core (3 0))) "Helm is an Emacs incremental and narrowing framework" tar ((:commit . "fa119eb9c79fb444a8ffd865a894380682f31840") (:url . "https://emacs-helm.github.io/helm/"))]) (heaven-and-hell . [(20180421 921) ((emacs (24 4))) "easy toggle light/dark themes" single ((:commit . "0e4191065a1c18b50734a437f3cafb629b89edc0") (:keywords "faces") (:authors ("Valentin Ignatev" . "valentignatev@gmail.com")) (:maintainer "Valentin Ignatev" . "valentignatev@gmail.com") (:url . "https://github.com/valignatev/heaven-and-hell"))]) (headlong . [(20150417 1526) nil "reckless completion" single ((:commit . "f6830f87f236eee88263cb6976125f72422abe72") (:keywords "completion") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/headlong"))]) (hcl-mode . [(20170107 827) ((emacs (24 3))) "Major mode for Hashicorp" single ((:commit . "0f2c5ec7e7bcf77c8548e8cac8721ea935ca1b5e") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-hcl-mode"))]) (hc-zenburn-theme . [(20150928 1633) nil "An higher contrast version of the Zenburn theme." single ((:commit . "fd0024a5191cdce204d91c8f1db99ba31640f6e9") (:authors ("Nantas Nardelli" . "nantas.nardelli@gmail.com")) (:maintainer "Nantas Nardelli" . "nantas.nardelli@gmail.com") (:url . "https:github.com/edran/hc-zenburn-emacs"))]) (hayoo . [(20140831 1221) ((emacs (24)) (json (1 3))) "Query hayoo and show results in a tabulated buffer." single ((:commit . "3ca2fb0c4d5f337d0410c21b2702dd147014e984") (:keywords "hayoo" "haskell") (:authors ("Marko Bencun" . "mbencun@gmail.com")) (:maintainer "Marko Bencun" . "mbencun@gmail.com") (:url . "https://github.com/benma/hayoo.el/"))]) (haxor-mode . [(20160618 1129) ((emacs (24 0))) "Major mode for editing Haxor Assembly Files" single ((:commit . "6fa25a8e6b6a59481bc0354c2fe1e0ed53cbdc91") (:keywords "haxor") (:authors ("Krzysztof Magosa" . "krzysztof@magosa.pl")) (:maintainer "Krzysztof Magosa" . "krzysztof@magosa.pl") (:url . "https://github.com/krzysztof-magosa/haxor-mode"))]) (haxe-mode . [(20131004 842) nil "An Emacs major mode for Haxe" single ((:authors ("Jens Peter Secher")) (:maintainer "Jens Peter Secher") (:url . "http://people.debian.org/~jps/misc/haxe-mode.el"))]) (haxe-imports . [(20170330 2304) ((emacs (24 4)) (s (1 10 0)) (pcache (0 3 1))) "Code for dealing with Haxe imports" single ((:commit . "f104a641f3dfe698359d9aca1f28d9383cf43e04") (:keywords "haxe") (:authors ("Juan Karlo Licudine" . "karlo@accidentalrebel.com")) (:maintainer "Juan Karlo Licudine" . "karlo@accidentalrebel.com") (:url . "http://www.github.com/accidentalrebel/emacs-haxe-imports"))]) (haste . [(20141030 2034) ((json (1 2))) "Emacs client for hastebin (http://hastebin.com/about.md)" single ((:commit . "22d05aacc3296ab50a7361222ab139fb4d447c25") (:authors ("Ric Lister")) (:maintainer "Ric Lister") (:url . "http://github.com/rlister/emacs-haste-client"))]) (hasky-stack . [(20181108 1707) ((emacs (24 4)) (f (0 18 0)) (magit-popup (2 10))) "Interface to the Stack Haskell development tool" single ((:commit . "b62b18d6d2f4f3cf2a75b137c5ec12fa6b934910") (:keywords "tools" "haskell") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/hasky-mode/hasky-stack"))]) (hasky-extensions . [(20180108 512) ((emacs (24 4)) (avy-menu (0 2))) "Toggle Haskell language extensions" single ((:commit . "6909022bccb7e5c26d1c4e5fa20cbc6b65c62d69") (:keywords "programming") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/hasky-mode/hasky-extensions"))]) (hasklig-mode . [(20181110 1859) ((emacs (25))) "Hasklig ligatures" single ((:commit . "386c098c93a744f6b30ad937d193eebf0fd79e1b") (:authors ("Daniel Mendler")) (:maintainer "Daniel Mendler") (:url . "https://github.com/minad/hasklig-mode"))]) (haskell-tab-indent . [(20170701 958) nil "tab-based indentation for haskell-mode" single ((:commit . "b4cb851aef96c42ec7b3cc37b6fdd867fe5a0853") (:keywords "indentation" "haskell") (:authors ("Sean Whitton" . "spwhitton@spwhitton.name")) (:maintainer "Sean Whitton" . "spwhitton@spwhitton.name") (:url . "https://spwhitton.name/tech/code/haskell-tab-indent/"))]) (haskell-snippets . [(20160919 22) ((cl-lib (0 5)) (yasnippet (0 8 0))) "Yasnippets for Haskell" tar ((:commit . "07b0f460b946fd1be26c29652cb0468b47782f3a") (:keywords "snippets" "haskell") (:authors ("Luke Hoersten" . "luke@hoersten.org")) (:maintainer "Luke Hoersten" . "luke@hoersten.org") (:url . "https://github.com/haskell/haskell-snippets"))]) (haskell-mode . [(20180917 923) ((emacs (24 3))) "A Haskell editing mode" tar ((:commit . "6a70c1858c7d505ba23185e209ef7eacf703ed8f") (:keywords "haskell" "cabal" "ghc" "repl") (:url . "https://github.com/haskell/haskell-mode"))]) (haskell-emacs-text . [(20150713 1416) ((haskell-emacs (2 4 0))) "Haskell functions from Data.Text" tar ((:commit . "a2c6a079175904689eed7c6c200754bfa85d1ed9") (:keywords "haskell" "emacs" "ffi") (:authors ("Florian Knupfer")) (:maintainer "Florian Knupfer") (:url . "https://github.com/knupfer/haskell-emacs/modules/text"))]) (haskell-emacs-base . [(20150714 1559) ((haskell-emacs (2 4 0))) "Haskell functions from Prelude" tar ((:commit . "a2c6a079175904689eed7c6c200754bfa85d1ed9") (:keywords "haskell" "emacs" "ffi") (:authors ("Florian Knupfer")) (:maintainer "Florian Knupfer") (:url . "https://github.com/knupfer/haskell-emacs/modules/base"))]) (haskell-emacs . [(20160904 2026) nil "Write emacs extensions in haskell" tar ((:commit . "a2c6a079175904689eed7c6c200754bfa85d1ed9") (:keywords "haskell" "emacs" "ffi") (:authors ("Florian Knupfer")) (:maintainer "Florian Knupfer") (:url . "https://github.com/knupfer/haskell-emacs"))]) (harvest . [(20170822 1746) ((swiper (0 7 0)) (hydra (0 13 0)) (s (1 11 0))) "Harvest integration" single ((:commit . "7acbc0564b250521b67131ee2a0a92720239454f") (:keywords "harvest") (:authors ("Kosta Harlan" . "kosta@kostaharlan.net")) (:maintainer "Kosta Harlan" . "kosta@kostaharlan.net") (:url . "https://github.com/kostajh/harvest.el"))]) (hardhat . [(20160414 1413) ((ignoramus (0 7 0))) "Protect against clobbering user-writable files" single ((:commit . "9038a49ab55cd4c502cf7f07ed0d1b9b6bc3626e") (:keywords "convenience") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/hardhat"))]) (hardcore-mode . [(20151114 701) nil "Disable arrow keys + optionally backspace and return" single ((:commit . "b1dda19692b4a7a58a689e81784a9b35be39e70d") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (handoff . [(20150917 600) nil "Get your hand off that mouse, damn it!" single ((:commit . "75dc7a7e352f38679f65d0ca80ad158798e168bd") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/handoff.el"))]) (handlebars-sgml-mode . [(20130623 2333) nil "Add Handlebars contextual indenting support to sgml-mode" single ((:commit . "c76df93a9a8c1b1b3efdcc4add32bf93304192a4") (:authors ("Geoff Jacobsen" . "geoffjacobsen@gmail.com")) (:maintainer "Geoff Jacobsen" . "geoffjacobsen@gmail.com") (:url . "http://github.com/jacott/handlebars-sgml-mode"))]) (handlebars-mode . [(20150211 1749) nil "A major mode for editing Handlebars files." single ((:commit . "81f6b73fea8f397807781a1b51568397af21a6ef") (:authors ("Tony Gentilcore") ("Chris Wanstrath") ("Daniel Hackney") ("Daniel Evans")) (:maintainer "Tony Gentilcore"))]) (hamlet-mode . [(20131208 724) ((cl-lib (0 3)) (dash (2 3 0)) (s (1 7 0))) "Hamlet editing mode" single ((:commit . "7362b955e556a3d007fa06945a27e5b99349527d") (:keywords "wp" "languages" "comm") (:authors (nil . "Kata <lightquake@amateurtopologist.com")) (:maintainer nil . "Kata <lightquake@amateurtopologist.com") (:url . "https://github.com/lightquake/hamlet-mode"))]) (haml-mode . [(20170924 453) ((emacs (24)) (cl-lib (0 5))) "Major mode for editing Haml files" single ((:commit . "1cbb2de8f0fc25f35448c5cad04642f28078f3bb") (:keywords "markup" "languages" "html") (:authors ("Natalie Weizenbaum")) (:maintainer "Natalie Weizenbaum") (:url . "https://github.com/nex3/haml-mode"))]) (hamburger-menu . [(20160825 2031) ((emacs (24 5))) "Mode line hamburger menu" single ((:commit . "3568159c693c30bed7f61580e4f3b6241253ad4e") (:keywords "hamburger" "menu") (:authors ("Iain Nicol")) (:maintainer "Iain Nicol") (:url . "https://gitlab.com/iain/hamburger-menu-mode"))]) (hamburg-theme . [(20160123 740) ((emacs (24))) "Color Theme with a dark blue background." single ((:commit . "aacefdf1501d97a5afc0e63c8ead4b2463323028") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler"))]) (ham-mode . [(20150811 1306) ((html-to-markdown (1 2)) (markdown-mode (2 0))) "Html As Markdown. Transparently edit an html file using markdown" single ((:commit . "3a141986a21c2aa6eefb428983352abb8b7907d2") (:keywords "convenience" "emulation" "wp") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/ham-mode"))]) (hal-mode . [(20160704 1746) nil "Major mode for editing HAL files" single ((:commit . "cd2f66f219ee520198d4586fb6b169cef7ad3f21") (:keywords "language") (:authors ("Alexander Rössler")) (:maintainer "Alexander Rössler") (:url . "https://github.com/strahlex/hal-mode/"))]) (hackernews . [(20180903 612) ((json (1 2))) "Access the Hacker News aggregator from Emacs" tar ((:commit . "ee077c4734ac6a1990dff6043a7deb2f57825c40"))]) (hacker-typer . [(20170206 1520) ((emacs (24))) "Pretend to write code like a pro" tar ((:commit . "d5a23714a4ccc5071580622f278597d5973f40bd") (:keywords "hacker" "typer" "multimedia" "games") (:authors ("Diego A. Mundo" . "diegoamundo@gmail.com")) (:maintainer "Diego A. Mundo" . "diegoamundo@gmail.com") (:url . "http://github.com/therockmandolinist/emacs-hacker-typer"))]) (hack-time-mode . [(20170527 1610) ((emacs (24 4))) "Forge time" single ((:commit . "73d6fcf8b39283526e5d4e3919193611e25a0898") (:keywords "time" "convenience") (:authors ("Marco Wahl" . "marcowahlsoft@gmail.com")) (:maintainer "Marco Wahl" . "marcowahlsoft@gmail.com") (:url . "https://gitlab.com/marcowahl/hack-time-mode"))]) (hack-mode . [(20181107 1748) ((emacs (25 1)) (s (1 11 0))) "Major mode for the Hack programming language" single ((:commit . "96d941984706f9bb97f8705ed1a0125c2c1647fd") (:authors ("John Allen" . "jallen@fb.com")) (:maintainer "John Allen" . "jallen@fb.com") (:url . "https://github.com/hhvm/hack-mode"))]) (habitica . [(20181024 1811) ((org (8 3 5)) (emacs (24 3))) "Interface for habitica.com" single ((:commit . "d977984ac342e9177ba98f400b3c160c450c936d") (:keywords "habitica" "todo") (:authors ("Adrien Brochard")) (:maintainer "Adrien Brochard") (:url . "https://github.com/abrochard/emacs-habitica"))]) (habamax-theme . [(20181001 850) ((emacs (24))) "Boring white background color that gets the job done." single ((:commit . "6e86a1b23b6e2aaf40d4374b5673da00a28be447") (:authors ("Maxim Kim" . "habamax@gmail.com")) (:maintainer "Maxim Kim" . "habamax@gmail.com") (:url . "https://github.com/habamax/habamax-theme"))]) (gxref . [(20170411 1753) ((emacs (25))) "xref backend using GNU Global." single ((:commit . "380b02c3c3c2586c828456716eef6a6392bb043b") (:keywords "xref" "global" "tools") (:authors ("Dedi Hirschfeld")) (:maintainer "Dedi Hirschfeld") (:url . "https://github.com/dedi/gxref"))]) (gvpr-mode . [(20131208 1718) nil "A major mode offering basic syntax coloring for gvpr scripts." single ((:commit . "3d6cc6f4416faf2a1913821d12ba6eb624362af0") (:keywords "graphviz" "gv" "dot" "gvpr" "graph") (:authors ("Rod Waldhoff" . "r.waldhoff@gmail.com")) (:maintainer "Rod Waldhoff" . "r.waldhoff@gmail.com") (:url . "https://raw.github.com/rodw/gvpr-lib/master/extra/gvpr-mode.el"))]) (guru-mode . [(20170730 731) nil "Become an Emacs guru" single ((:commit . "c180e05ebc1484764aad245c85b69de779826e4e") (:keywords "convenience") (:authors ("Bozhidar Batsov")) (:maintainer "Bozhidar Batsov") (:url . "https://github.com/bbatsov/guru-mode"))]) (gulp-task-runner . [(20170718 2041) nil "Gulp task runner" single ((:commit . "877990e956b1d71e2d9c7c3e5a129ad199b9debb") (:keywords "convenience" "javascript") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr"))]) (guix . [(20181028 1414) ((emacs (24 3)) (dash (2 11 0)) (geiser (0 8)) (bui (1 1 0)) (magit-popup (2 1 0)) (edit-indirect (0 1 4))) "Interface for GNU Guix" tar ((:commit . "bffd65a26c6960e2af2abb57274e4818cf683960") (:keywords "tools") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://emacs-guix.gitlab.io/website/"))]) (guide-key-tip . [(20161011 823) ((guide-key (1 2 3)) (pos-tip (0 4 5))) "Show guide-key.el hints using pos-tip.el" single ((:commit . "02c5d4b0b65f3e91be5a47f0ff1ae5e86e00c64e") (:keywords "help" "convenience" "tooltip") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/guide-key-tip"))]) (guide-key . [(20150108 635) ((dash (2 10 0)) (popwin (0 3 0)) (s (1 9 0))) "Guide the following key bindings automatically and dynamically" single ((:commit . "9236d287a7272e307fb941237390a96037c8c0a2") (:keywords "help" "convenience") (:authors ("Tsunenobu Kai" . "kai2nenobu@gmail.com")) (:maintainer "Tsunenobu Kai" . "kai2nenobu@gmail.com") (:url . "https://github.com/kai2nenobu/guide-key"))]) (guess-language . [(20170620 1008) ((cl-lib (0 5)) (emacs (24))) "Robust automatic language detection" tar ((:commit . "1f1602f74d7159e7fb8c90f92ec5a3d1df5429da") (:authors ("Titus von der Malsburg" . "malsburg@posteo.de")) (:maintainer "Titus von der Malsburg" . "malsburg@posteo.de") (:url . "https://github.com/tmalsburg/guess-language.el"))]) (gtk-pomodoro-indicator . [(20171230 1640) nil "A pomodoro indicator for the GTK tray" tar ((:commit . "eb59b229de0dde307b20654075a9bbac69899a66") (:keywords "convenience" "pomodoro") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/gtk-pomodoro-indicator"))]) (gscholar-bibtex . [(20170913 2157) nil "Retrieve BibTeX from Google Scholar and other online sources(ACM, IEEE, DBLP)" single ((:commit . "ba4ce159e385d695d8560e8b06b3cbe48424861c") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (gs-mode . [(20151202 1006) nil "Major mode for editing GrADS script files" single ((:commit . "1a13051db21b999c7682a015b33a03096ff9d891") (:keywords "grads" "script" "major-mode") (:authors ("Joe Wielgosz" . "joew@cola.iges.org")) (:maintainer "Joe Wielgosz" . "joew@cola.iges.org"))]) (gruvbox-theme . [(20181013 1144) ((autothemer (0 2))) "A retro-groove colour theme for Emacs" tar ((:commit . "39124183cf47d25780cd02e33e57743484b4c680") (:authors ("Jason Milkins" . "jasonm23@gmail.com")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com") (:url . "http://github.com/greduan/emacs-theme-gruvbox"))]) (grunt . [(20160316 1528) ((dash (2 9 0)) (ansi-color (3 4 2)) (emacs (24 3))) "Some glue to stick Emacs and Gruntfiles together" single ((:commit . "4c269e2738658643ec2ed9ef61a2a3d71b08d304") (:keywords "convenience" "grunt") (:authors ("Daniel Gempesaw" . "dgempesaw@sharecare.com")) (:maintainer "Daniel Gempesaw" . "dgempesaw@sharecare.com") (:url . "https://github.com/gempesaw/grunt.el"))]) (gruber-darker-theme . [(20180529 712) nil "Gruber Darker color theme for Emacs 24." single ((:commit . "c7687ec0511941db1371dcd70b31061d74aa5668") (:authors ("Alexey Kutepov" . "reximkut@gmail.com")) (:maintainer "Alexey Kutepov" . "reximkut@gmail.com") (:url . "http://github.com/rexim/gruber-darker-theme"))]) (groovy-mode . [(20181111 1057) ((s (1 12 0)) (emacs (24 3)) (dash (2 13 0))) "Major mode for Groovy source files" tar ((:commit . "f80b6795f645aff592ffbdc6b500084955094f5c") (:keywords "languages") (:authors ("Russel Winder" . "russel@winder.org.uk") ("Jim Morris" . "morris@wolfman.com") ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Russel Winder" . "russel@winder.org.uk"))]) (groovy-imports . [(20161003 851) ((emacs (24 4)) (s (1 10 0)) (pcache (0 3 2))) "Code for dealing with Groovy imports" single ((:commit . "e56d7dda617555ec6205644d32ffddf2e1fa43d9") (:keywords "groovy") (:authors ("Miro Bezjak")) (:maintainer "Miro Bezjak") (:url . "http://www.github.com/mbezjak/emacs-groovy-imports"))]) (grizzl . [(20160818 737) ((cl-lib (0 5)) (emacs (24 3))) "Fast fuzzy search index for Emacs." single ((:commit . "1e917253ce2b846f0272b8356fad3dbff9cd513a") (:keywords "convenience" "usability") (:authors ("Chris Corbyn" . "chris@w3style.co.uk")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "https://github.com/grizzl/grizzl"))]) (grin . [(20110806 658) nil "run grin and grind (python replacements for grep and find) putting hits in a grep buffer" single ((:keywords "python" "grin" "grind" "grep" "find") (:authors ("Darius Powell" . "dariusp686@gmail.com")) (:maintainer "Darius Powell" . "dariusp686@gmail.com") (:url . "http://bitbucket.org/dariusp686/emacs-grin"))]) (greymatters-theme . [(20150621 1123) ((emacs (24))) "Emacs 24 theme with a light background." single ((:commit . "a7220a8c6cf18ccae2b76946b6f01188a7c9d5d1") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler"))]) (grep-context . [(20181002 1654) ((emacs (24 4)) (dash (2 12 0)) (cl-lib (0 5 0))) "Increase context in compilation and grep buffers" single ((:commit . "5a4e3efdf775755c1bbefcfe4b461c1166d81d7d") (:keywords "convenience" "search" "grep" "compile") (:authors ("Michał Krzywkowski" . "k.michal@zoho.com")) (:maintainer "Michał Krzywkowski" . "k.michal@zoho.com") (:url . "https://github.com/mkcms/grep-context"))]) (grep-a-lot . [(20131006 1347) nil "manages multiple search results buffers for grep.el" single ((:commit . "9f9f645b9e308a0d887b66864ff97d0fca1ba4ad") (:keywords "tools" "convenience" "search") (:authors ("Avi Rozen" . "avi.rozen@gmail.com")) (:maintainer "Avi Rozen" . "avi.rozen@gmail.com") (:url . "https://github.com/ZungBang/emacs-grep-a-lot"))]) (gregorio-mode . [(20170705 1451) nil "Gregorio Mode for .gabc files" single ((:commit . "736fd3d05fb67f707cca1a7ce24e3ee7ca5e9567") (:keywords "gregorio" "chant") (:authors ("Fr. John Jenkins" . "jenkins@sspx.ng")) (:maintainer "Fr. John Jenkins" . "jenkins@sspx.ng") (:url . "https://jsrjenkins.github.io/gregorio-mode/"))]) (green-screen-theme . [(20180816 1502) nil "A nice color theme for those who miss green CRTs" single ((:commit . "774e8f6c033786406267f71ec07319d906a30b75") (:keywords "faces" "theme") (:authors ("Ricardo Banffy" . "rbanffy@gmail.com")) (:maintainer "Ricardo Banffy" . "rbanffy@gmail.com") (:url . "https://github.com/rbanffy/green-screen-emacs"))]) (green-phosphor-theme . [(20150515 1447) nil "A light color theme with muted, autumnal colors." single ((:commit . "fa42f598626adfdc5450e5c380fa2d5df6110f28") (:keywords "color" "theme") (:authors ("Adam Alpern" . "adam.alpern@gmail.com")) (:maintainer "Adam Alpern" . "adam.alpern@gmail.com") (:url . "http://github.com/aalpern/emacs-color-theme-green-phosphor"))]) (green-is-the-new-black-theme . [(20180323 203) nil "A cool and minimalist green blackened theme engine" single ((:commit . "8a03687a2b8b55c5dc7f099086019278d505d8d8") (:keywords "faces" "themes") (:authors ("Fred Campos" . "fred.tecnologia@gmail.com")) (:maintainer "Fred Campos" . "fred.tecnologia@gmail.com") (:url . "https://github.com/fredcamps/green-is-the-new-black-emacs"))]) (grayscale-theme . [(20171005 802) nil "A simple grayscale theme" single ((:commit . "53ad50e10e68f2f076ebfc96e10ecef7a932d38d") (:keywords "lisp") (:authors ("Kaleb Elwert" . "belak@coded.io")) (:maintainer "Kaleb Elwert" . "belak@coded.io") (:url . "https://github.com/belak/emacs-grayscale-theme"))]) (grass-mode . [(20170503 1500) ((cl-lib (0 2)) (dash (2 8 0))) "Provides Emacs modes for interacting with the GRASS GIS program" single ((:keywords "grass" "gis") (:authors ("Tyler Smith" . "tyler@plantarum.ca")) (:maintainer "Tyler Smith" . "tyler@plantarum.ca"))]) (grapnel . [(20131001 1534) nil "HTTP request lib with flexible callback dispatch" single ((:commit . "fbd0f9a51139973d35e4014855964fa435e8ecaf") (:authors ("David Leatherman" . "leathekd@gmail.com")) (:maintainer "David Leatherman" . "leathekd@gmail.com") (:url . "http://www.github.com/leathekd/grapnel"))]) (graphviz-dot-mode . [(20181118 551) nil "Mode for the dot-language used by graphviz (att)." single ((:commit . "243de72e09ddd5cdc4863613af8b749827a5e1cd") (:keywords "mode" "dot" "dot-language" "dotlanguage" "graphviz" "graphs" "att") (:maintainer "Pieter Pareit" . "pieter.pareit@gmail.com") (:url . "http://ppareit.github.com/graphviz-dot-mode/"))]) (graphql-mode . [(20180303 2358) ((emacs (24 3))) "Major mode for editing GraphQL schemas" single ((:commit . "36b1a4ed9fe78ccd1f386111644e69a5424a1a7b") (:keywords "languages") (:authors ("David Vazquez Pua" . "davazp@gmail.com")) (:maintainer "David Vazquez Pua" . "davazp@gmail.com"))]) (graphql . [(20180912 31) ((emacs (25))) "GraphQL utilities" single ((:commit . "e2b309689f4faf9225f290080f836e988c5a576d") (:keywords "hypermedia" "tools" "lisp") (:authors ("Sean Allred" . "code@seanallred.com")) (:maintainer "Sean Allred" . "code@seanallred.com") (:url . "https://github.com/vermiculus/graphql.el"))]) (graphene-meta-theme . [(20161204 1607) nil "Integrated theming for common packages" single ((:commit . "62cc73fee31f1bd9474027b83a249feee050271e") (:keywords "defaults") (:authors ("Robert Dallas Gray" . "mail@robertdallasgray.com")) (:maintainer "Robert Dallas Gray" . "mail@robertdallasgray.com") (:url . "https://github.com/rdallasgray/graphene"))]) (graphene . [(20180529 1112) ((dash (2 10 0)) (exec-path-from-shell (1 9)) (ppd-sr-speedbar (0 0 6)) (sr-speedbar (20140505)) (ido-completing-read+ (4 3)) (smex (3 0)) (web-mode (11 2)) (smartparens (1 8 0)) (graphene-meta-theme (0 0 2)) (flycheck (0 23)) (company (0 8 12))) "Friendly Emacs defaults" tar ((:commit . "cc8477fcfb7771ea4e5bbaf3c01f9e679234c1c1"))]) (grandshell-theme . [(20180606 517) nil "Dark color theme for Emacs > 24 with intensive colors." tar ((:commit . "0ed8e4273607dd4fcaa742b4097259233b09eda6"))]) (grails-projectile-mode . [(20160327 1324) ((projectile (0 10 0)) (emacs (24)) (cl-lib (0 5))) "Grails mode with Projectile for projects management." tar ((:commit . "8efca50ce92b556fe9d467b157d7aec635bcc017") (:keywords "grails" "projectile") (:authors ("Yves Zoundi" . "rimerosolutions@gmail.com")) (:maintainer "Yves Zoundi") (:url . "https://github.com/yveszoundi/grails-projectile-mode"))]) (grails-mode . [(20160504 911) nil "minor-mode that adds some Grails project management to a grails project" single ((:commit . "f80b6795f645aff592ffbdc6b500084955094f5c") (:keywords "languages") (:authors ("Jim Morris" . "morris@wolfman.com")) (:maintainer "Russel Winder" . "russel@winder.org.uk") (:url . "http://blog.wolfman.com"))]) (grails . [(20160417 636) ((emacs (24))) "Minor mode for Grails projects" single ((:commit . "fa638abe5c37f3f8af4fcd32f212453185ce50b1") (:url . "https://github.com/lifeisfoo/emacs-grails"))]) (gradle-mode . [(20150313 1905) ((s (1 8 0))) "Gradle integration with Emacs' compile" single ((:commit . "e4d665d5784ecda7ddfba015f07c69be3cfc45f2") (:keywords "gradle") (:authors ("Daniel Mijares" . "daniel.j.mijares@gmail.com")) (:maintainer "Daniel Mijares" . "daniel.j.mijares@gmail.com") (:url . "http://github.com/jacobono/emacs-gradle-mode"))]) (grab-x-link . [(20180205 1146) ((emacs (24)) (cl-lib (0 5))) "Grab links from X11 apps and insert into Emacs" single ((:commit . "d19f0c0da0ddc55005a4c1cdc2b8c5de8bea1e8c") (:keywords "hyperlink") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/grab-x-link"))]) (grab-mac-link . [(20180328 1445) ((emacs (24))) "Grab link from Mac Apps and insert it into Emacs" single ((:commit . "35edb57d136c2a9726fd14e6a59cce4fc0248771") (:keywords "mac" "hyperlink") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/grab-mac-link.el"))]) (gpastel . [(20180420 650) ((emacs (24 3))) "Integrates GPaste with the kill-ring" single ((:commit . "ae11a0ae58577321605c338809fc5ae29b38fc72") (:keywords "tools") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://gitlab.petton.fr/DamienCassou/desktop-environment"))]) (govet . [(20170808 1724) nil "linter/problem finder for the Go source code" single ((:commit . "1c05817cf8b96589076c7ac4e52ee58a860a0cbf") (:url . "https://godoc.org/golang.org/x/tools/cmd/vet"))]) (govc . [(20180524 2023) ((emacs (24 3)) (dash (1 5 0)) (s (1 9 0)) (magit-popup (2 0 50)) (json-mode (1 6 0))) "Interface to govc for managing VMware ESXi and vCenter" single ((:commit . "ac4f46595a7bf1d15d7bdf10d6132b39ea856fdf") (:keywords "convenience") (:authors ("The govc developers")) (:maintainer "The govc developers") (:url . "https://github.com/vmware/govmomi/tree/master/govc/emacs"))]) (goto-last-change . [(20150109 1823) nil "Move point through buffer-undo-list positions" single ((:commit . "58b0928bc255b47aad318cd183a5dce8f62199cc") (:keywords "convenience") (:authors ("Kevin Rodgers" . "ihs_4664@yahoo.com")) (:maintainer "Kevin Rodgers" . "ihs_4664@yahoo.com") (:url . "https://github.com/camdez/goto-last-change.el"))]) (goto-gem . [(20140729 1845) ((s (1 9 0))) "Open dired in gem directory" single ((:commit . "e3206f11f48bb7e798514a4ca2c2f60649613e5e") (:keywords "gemfile" "convenience") (:authors ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainer "Peter Stiernström" . "peter@stiernstrom.se"))]) (goto-chg . [(20180105 1833) nil "goto last change" single ((:commit . "e5b38e4e1378f6ea48fa9e8439f49c2998654aa4") (:keywords "convenience" "matching") (:authors ("David Andersson <l.david.andersson(at)sverige.nu>")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@github.com") (:url . "https://github.com/emacs-evil/goto-chg"))]) (gotham-theme . [(20171013 1916) nil "A very dark Emacs color theme." single ((:commit . "5e97554d1f9639698faedb0660e63694be33bd84") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/gotham-theme"))]) (gotest . [(20180617 1333) ((emacs (24 3)) (s (1 11 0)) (f (0 19 0)) (go-mode (1 5 0))) "Launch GO unit tests" single ((:commit . "36e09a6bf1face4c56d4a7707935c992786e0076") (:keywords "languages" "go" "tests") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/gotest.el"))]) (gorepl-mode . [(20170905 945) ((emacs (24)) (s (1 11 0)) (f (0 19 0)) (hydra (0 13 0))) "Go REPL Interactive Development in top of Gore" single ((:commit . "bbd27f6a0a77f484e2a3f082d70dc69da63ae52a") (:keywords "languages" "go" "golang" "gorepl") (:authors ("Manuel Alonso" . "manuteali@gmail.com")) (:maintainer "Manuel Alonso" . "manuteali@gmail.com") (:url . "http://www.github.com/manute/gorepl-mode"))]) (gore-mode . [(20151123 1927) ((go-mode (1 0 0))) "Simple mode for gore, a command-line evaluator for golang." single ((:commit . "94d7f3e99104e06167967c98fdc201049c433c2d") (:keywords "go" "repl") (:authors ("Sergey Pashaev" . "sergey.pashaev@gmail.com")) (:maintainer "Sergey Pashaev" . "sergey.pashaev@gmail.com"))]) (goose-theme . [(20160828 1245) ((emacs (24 1))) "A gray color theme" single ((:commit . "acd017b50ab25a75fd1331eb3de66467e2042e9c") (:authors ("Stephen Whipple" . "shw@wicdmedia.org")) (:maintainer "Stephen Whipple" . "shw@wicdmedia.org") (:url . "https://github.com/thwg/goose-theme"))]) (google-translate . [(20180926 1925) nil "Emacs interface to Google Translate." tar ((:commit . "eb1c4f51d522d2252dadfb4cd7ea045ccd344b98"))]) (google-this . [(20170810 1215) ((emacs (24 1))) "A set of functions and bindings to google under point." single ((:commit . "8a2e3ca5da6a8c89bfe99a21486c6c7db125dc84") (:keywords "convenience" "hypermedia") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Malabarba/emacs-google-this"))]) (google-maps . [(20171002 1434) ((emacs (24 3))) "Access Google Maps from Emacs" tar ((:commit . "c0e5dccfdc9f7f77ff8f29177547be47833d7156") (:keywords "comm") (:authors ("Julien Danjou" . "julien@danjou.info")) (:maintainer "Julien Danjou" . "julien@danjou.info") (:url . "https://julien.danjou.info/projects/emacs-packages#google-maps"))]) (google-contacts . [(20180919 1314) ((oauth2 (0 10)) (cl-lib (0 5))) "Support for Google Contacts in Emacs" tar ((:commit . "2273582713712a58e71156a8a29972d42e8e690e") (:keywords "comm") (:authors ("Julien Danjou" . "julien@danjou.info")) (:maintainer "Julien Danjou" . "julien@danjou.info") (:url . "http://julien.danjou.info/projects/emacs-packages#google-contacts"))]) (google-c-style . [(20180130 1736) nil "Google's C/C++ style for c-mode" single ((:commit . "9f41862c0efa7681e2147910d39629c73a2b2702") (:keywords "c" "tools"))]) (google . [(20140416 1748) nil "Emacs interface to the Google API" single ((:commit . "3b3189a8b201c8d36fed6e61496274e530dd40bd") (:keywords "comm" "processes" "tools") (:authors ("Edward O'Connor" . "ted@oconnor.cx")) (:maintainer "Edward O'Connor" . "ted@oconnor.cx"))]) (gom-mode . [(20131008 253) nil "Major mode for Gomfile" single ((:commit . "972e33df1d38ff323bc97de87477305826013701") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-gom-mode"))]) (golint . [(20180221 2015) nil "lint for the Go source code" single ((:commit . "c67002cb31c3a748b7688c27f20d8358b4193582") (:url . "https://github.com/golang/lint"))]) (goldendict . [(20180121 920) ((emacs (24 4)) (cl-lib (0 5))) "query word smartly with goldendict.el" single ((:commit . "1aac19daaec811deb9afe45eea4929309c09ac8b") (:keywords "dict" "goldendict") (:url . "https://github.com/stardiviner/goldendict.el"))]) (golden-ratio-scroll-screen . [(20170224 229) nil "Scroll half screen down or up, and highlight current line" single ((:commit . "44e947194d3e5cbe0fd2f3c4886a4e6e1a0c0791") (:keywords "scroll" "screen" "highlight") (:authors ("纪秀峰 <jixiuf at gmail dot com>")) (:maintainer "纪秀峰 <jixiuf at gmail dot com>") (:url . "https://github.com/jixiuf/golden-ratio-scroll-screen"))]) (golden-ratio . [(20150819 1120) nil "Automatic resizing of Emacs windows to the golden ratio" single ((:commit . "72b028808b41d23fa3f7e8c0d23d2c475e7b46ae") (:keywords "window" "resizing") (:authors ("Roman Gonzalez" . "romanandreg@gmail.com")) (:maintainer "Roman Gonzalez" . "romanandreg@gmail.com"))]) (gold-mode . [(20140607 206) ((sws-mode (0))) "Major mode for editing .gold files" single ((:commit . "6d3aa59602b1b835495271c8c9741ac344c2eab1") (:keywords "golang" "template" "gold") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/gold-mode-el"))]) (godoctor . [(20180710 2152) nil "Frontend for godoctor" single ((:commit . "4b45ff3d0572f0e84056e4c3ba91fcc178199859") (:keywords "go" "golang" "refactoring") (:authors ("Sangho Na" . "microamp@protonmail.com")) (:maintainer "Sangho Na" . "microamp@protonmail.com") (:url . "https://github.com/microamp/godoctor.el"))]) (god-mode . [(20180117 1134) nil "God-like command entering minor mode" tar ((:commit . "344167ed9b4c212273dd056e7481cf1373b461d0") (:authors ("Chris Done" . "chrisdone@gmail.com")) (:maintainer "Chris Done" . "chrisdone@gmail.com") (:url . "https://github.com/chrisdone/god-mode"))]) (gobgen . [(20161020 1523) ((emacs (24 4))) "Generate GObject descendants using a detailed form" single ((:commit . "ed2c2b0d217deae293096f3cf14aa492791ddd4f") (:keywords "gobject" "glib" "gtk" "helper" "utilities") (:authors ("Gergely Polonkai" . "gergely@polonkai.eu")) (:maintainer "Gergely Polonkai" . "gergely@polonkai.eu"))]) (go-tag . [(20180227 411) ((emacs (24 0)) (go-mode (1 5 0))) "Edit Golang struct field tag" single ((:commit . "59b243f2fa079d9de9d56f6e2d94397e9560310a") (:keywords "tools") (:authors ("Brantou" . "brantou89@gmail.com")) (:maintainer "Brantou" . "brantou89@gmail.com") (:url . "https://github.com/brantou/emacs-go-tag"))]) (go-stacktracer . [(20150430 2142) nil "parse Go stack traces" single ((:commit . "a2ac6d801b389f80ca4e2fcc1ab44513a9e55976") (:keywords "tools") (:authors ("Samer Masterson" . "samer@samertm.com")) (:maintainer "Samer Masterson" . "samer@samertm.com") (:url . "https://github.com/samertm/go-stacktracer.el"))]) (go-snippets . [(20180113 611) ((yasnippet (0 8 0))) "Yasnippets for go" tar ((:commit . "d437df148879566ffe7f2e503a3cf2602aa9fb28"))]) (go-scratch . [(20150810 440) ((go-mode (1 3 1)) (emacs (24))) "*scratch* buffer for Go" single ((:commit . "3f68cbcce04f59eb8e83af109164731ec0454be0") (:keywords "languages" "go") (:authors ("Emanuel Evans" . "mail@emanuel.industries")) (:maintainer "Emanuel Evans" . "mail@emanuel.industries"))]) (go-rename . [(20180627 648) ((go-mode (1 3 1))) "Integration of the 'gorename' tool into Emacs." single ((:commit . "120fb911f1d8038f828da85eed8aaad977dabd8c") (:keywords "tools"))]) (go-projectile . [(20181023 2144) ((projectile (0 10 0)) (go-mode (0)) (go-eldoc (0 16)) (go-rename (0)) (go-guru (0))) "Go add-ons for Projectile" single ((:commit . "7910884b4de560f3fc70b53752f658ef9cdc02cd") (:keywords "project" "convenience") (:authors ("Doug MacEachern" . "dougm@vmware.com")) (:maintainer "Doug MacEachern" . "dougm@vmware.com") (:url . "https://github.com/dougm/go-projectile"))]) (go-playground-cli . [(20160503 914) ((emacs (24)) (request (0 2 0)) (deferred (0 3 2)) (names (20151201 404)) (s (1 10 0)) (f (0 17 2)) (let-alist (1 0 4)) (cl-lib (0 5))) "Go Playground client tool" single ((:commit . "60beebd98e3930641d41cee0189c579626f223bc") (:authors ("KOBAYASHI Shigeru (kosh)" . "shigeru.kb@gmail.com")) (:maintainer "KOBAYASHI Shigeru (kosh)" . "shigeru.kb@gmail.com") (:url . "https://github.com/kosh04/go-playground-cli"))]) (go-playground . [(20181103 1846) ((emacs (24)) (go-mode (1 4 0)) (gotest (0 13 0))) "Local Golang playground for short snippets." single ((:commit . "fe75581eb81bb13ab129d2bbbc4af9a8b605fc3b") (:keywords "tools" "golang") (:authors ("Alexander I.Grafov (axel)" . "grafov@gmail.com")) (:maintainer "Alexander I.Grafov (axel)" . "grafov@gmail.com") (:url . "https://github.com/grafov/go-playground"))]) (go-mode . [(20181012 329) nil "Major mode for the Go programming language" single ((:commit . "120fb911f1d8038f828da85eed8aaad977dabd8c") (:keywords "languages" "go") (:authors ("The go-mode Authors")) (:maintainer "The go-mode Authors") (:url . "https://github.com/dominikh/go-mode.el"))]) (go-imports . [(20180710 528) nil "Insert go import statement given package name" tar ((:commit . "d9950309c868aa46c45f8671413e53f97dc7fe0b") (:keywords "tools" "go" "import") (:authors ("Yaz Saito")) (:maintainer "Yaz Saito") (:url . "https://github.com/yasushi-saito/go-imports"))]) (go-impl . [(20170125 1552) ((emacs (24 3)) (go-mode (1 3 0))) "impl integration for go-mode" single ((:commit . "69f0d0ef05771487e15abec500cd06befd171abf") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-go-impl"))]) (go-imenu . [(20181029 1029) ((emacs (24 3))) "Enhance imenu for go language" single ((:commit . "4f3f334ed0b6f6afaca6b9775636a52ad3843053") (:keywords "tools") (:authors ("Brantou" . "brantou89@gmail.com")) (:maintainer "Brantou" . "brantou89@gmail.com") (:url . "https://github.com/brantou/go-imenu.el"))]) (go-guru . [(20181012 330) ((go-mode (1 3 1)) (cl-lib (0 5))) "Integration of the Go 'guru' analysis tool into Emacs." single ((:commit . "120fb911f1d8038f828da85eed8aaad977dabd8c") (:keywords "tools"))]) (go-gopath . [(20160705 1034) ((cl-lib (0 5))) "Will guess GOPATH using gb and projectile." single ((:commit . "5172fc53f21edbf9347d5ee7d1d745da1ec88a15") (:authors ("Andrew Kirilenko" . "andrew.kirilenko.main@gmail.com")) (:maintainer "Andrew Kirilenko" . "andrew.kirilenko.main@gmail.com") (:url . "http://github.com/iced/go-gopath/"))]) (go-gen-test . [(20171023 358) ((emacs (24 3)) (s (1 12))) "Generate tests for go code with gotests" single ((:commit . "44c202ac97e728e93a35cee028a0ea8dd6e4292c") (:keywords "languages") (:authors ("Sergey Kostyaev" . "feo.me@ya.ru")) (:maintainer "Sergey Kostyaev" . "feo.me@ya.ru") (:url . "https://github.com/s-kostyaev/go-gen-test"))]) (go-fill-struct . [(20171225 331) ((emacs (24))) "Fill struct for golang." single ((:commit . "a613d0b378473eef39e8fd5724abe790aea84321") (:keywords "tools") (:authors ("Sergey Kostyaev" . "feo.me@ya.ru")) (:maintainer "Sergey Kostyaev" . "feo.me@ya.ru") (:url . "https://github.com/s-kostyaev/go-fill-struct"))]) (go-errcheck . [(20160723 43) nil "errcheck integration for go-mode" single ((:commit . "9db21eccecedc2490793f176246094167164af31") (:authors ("Dominik Honnef" . "dominikh@fork-bomb.org")) (:maintainer "Dominik Honnef" . "dominikh@fork-bomb.org"))]) (go-eldoc . [(20170305 1427) ((emacs (24 3)) (go-mode (1 0 0))) "eldoc for go-mode" single ((:commit . "cbbd2ea1e94a36004432a9ac61414cb5a95a39bd") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-go-eldoc"))]) (go-dlv . [(20160517 2046) ((go-mode (1 3 1))) "Go Delve - Debug Go programs interactively with the GUD." single ((:commit . "45a9e8a047c9995eb7c802268d96b3e527569f41") (:keywords "go" "debug" "debugger" "delve" "interactive" "gud") (:authors ("Marko Bencun" . "mbencun@gmail.com")) (:maintainer "Marko Bencun" . "mbencun@gmail.com") (:url . "https://github.com/benma/go-dlv.el/"))]) (go-direx . [(20150316 143) ((direx (1 0 0)) (cl-lib (0 5))) "Tree style source code viewer for Go language" single ((:commit . "8f2206469328ee932c7f1892f5e1fb02dec98432") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-go-direx"))]) (go-complete . [(20151015 928) ((go-mode (0)) (cl-lib (0 5))) "Native code completion for Go" single ((:commit . "e39efc356f6e19f17db3f3d2c81f28d38b31a55e") (:keywords "go" "golang" "completion") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/vibhavp/go-complete"))]) (go-autocomplete . [(20170626 1023) ((auto-complete (1 4 0))) "auto-complete-mode backend for go-mode" single ((:commit . "7b1d4e18cdc58a74dc1bd4c2d45b3f1b2ca227c3") (:keywords "languages") (:authors ("Mikhail" . "tensai@cirno.in")) (:maintainer "Mikhail" . "tensai@cirno.in"))]) (go-add-tags . [(20161123 1227) ((emacs (24 3)) (s (1 11 0))) "Add field tags for struct fields" single ((:commit . "54879945e46a0884c5f93d7fd6c866a9cdf401ac") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-go-add-tags"))]) (go . [(20161111 249) ((emacs (24))) "Play GO, translate and transfer between GO back ends" tar ((:commit . "ff45fb44d9cb6579d8511d8b6156ed0b34d5ac97") (:keywords "game" "go" "sgf") (:authors ("Eric Schulte" . "schulte.eric@gmail.com")) (:maintainer "Eric Schulte" . "schulte.eric@gmail.com") (:url . "http://eschulte.github.io/el-go/"))]) (gnus-x-gm-raw . [(20140610 731) ((log4e (0 2 0)) (yaxception (0 1))) "Search mail of Gmail using X-GM-RAW as web interface" single ((:commit . "978bdfcecc8844465b71641c2e909fcdc66b22be") (:keywords "gnus") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/gnus-x-gm-raw"))]) (gnus-summary-ext . [(20180113 1316) nil "Extra limit and process mark commands for the gnus summary buffer" single ((:commit . "025fd853fe9280ae696a89ec2c2cac9befd010aa") (:keywords "comm") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/gnus-summary-ext"))]) (gnus-select-account . [(20170722 511) nil "Select an account before writing a mail in gnus" single ((:commit . "ddc8c135eeaf90f5b6692a033af2badae36e68ce") (:keywords "convenience") (:authors ("Feng Shu " . "tumashu@163.com")) (:maintainer "Feng Shu " . "tumashu@163.com") (:url . "https://github.com/tumashu/gnus-select-account"))]) (gnus-desktop-notify . [(20180623 1538) ((gnus (1 0))) "Gnus Desktop Notification global minor mode" single ((:commit . "44ebe0241a19f4052cd427dff408206542aa3c8f") (:authors ("Yuri D'Elia <wavexx AT thregr.org>")) (:maintainer "Yuri D'Elia <wavexx AT thregr.org>") (:url . "http://www.thregr.org/~wavexx/software/gnus-desktop-notify.el/"))]) (gnus-alias . [(20150316 42) nil "an alternative to gnus-posting-styles" single ((:commit . "9447d3ccb4c0e75d0468899cccff7aa249657bac") (:keywords "personality" "identity" "news" "mail" "gnus") (:authors ("Joe Casadonte" . "emacs@northbound-train.com")) (:maintainer "Mark A. Hershberger" . "mah@everybody.org"))]) (gnuplot-mode . [(20171013 1616) nil "Major mode for editing gnuplot scripts" single ((:commit . "601f6392986f0cba332c87678d31ae0d0a496ce7") (:keywords "gnuplot" "plotting") (:url . "https://github.com/mkmcc/gnuplot-mode"))]) (gnuplot . [(20141231 2137) nil "drive gnuplot from within emacs" tar ((:commit . "21f9046e3f5caad41b750b5c9cee02fa4fd20fb9") (:keywords "gnuplot" "plotting") (:authors ("Bruce Ravel" . "bruceravel1@gmail.com")) (:maintainer "Bruce Ravel" . "bruceravel1@gmail.com"))]) (gnu-apl-mode . [(20180130 700) ((emacs (24))) "Integrate GNU APL with Emacs" tar ((:commit . "fa569827c916ed46e410e9f28e4b4d28f8567654") (:keywords "languages" "apl") (:url . "https://github.com/lokedhs/gnu-apl-mode"))]) (gntp . [(20141025 250) nil "Growl Notification Protocol for Emacs" single ((:commit . "767571135e2c0985944017dc59b0be79af222ef5") (:authors ("Engelke Eschner" . "tekai@gmx.li")) (:maintainer "Engelke Eschner" . "tekai@gmx.li"))]) (gnomenm . [(20150316 1918) ((s (1 9 0)) (dash (2 3 0)) (kv (0 0 19))) "Emacs interface to Gnome nmcli command" single ((:commit . "9065cda44ffc9e06239b8189a0154d31314c3b4d") (:keywords "processes" "hardware") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "http://github.com/nicferrier/emacs-nm"))]) (gnome-calendar . [(20161110 1256) nil "Integration with the GNOME Shell calendar" single ((:commit . "489f9f15f7bb35696b1cc19db75b554ae8328df2") (:keywords "gnome" "calendar") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr"))]) (gmpl-mode . [(20171031 2054) ((emacs (24))) "Major mode for editing GMPL(MathProg) files" single ((:commit . "c5d362169819ee8b8e8954145daee7e260c54921") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (gmail2bbdb . [(20170423 1144) nil "import email and name into bbdb from vcard." single ((:commit . "a84fa385cfaec7fc5f1518c368e52722da139f99") (:keywords "vcard" "bbdb" "email" "contact" "gmail") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/gmail2bbdb"))]) (gmail-message-mode . [(20160627 1847) ((ham-mode (1 0))) "A major-mode for editing gmail messages using markdown syntax." single ((:commit . "ec36672a9dc93c09ebe2f77597b498d11883d008") (:keywords "mail" "convenience" "emulation") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/gmail-message-mode"))]) (glsl-mode . [(20170927 1436) nil "major mode for Open GLSL shader files" single ((:commit . "384968506cf25c5c2df61b32fdfdbd041e3bf651") (:keywords "languages") (:url . "http://artis.inrialpes.fr/~Xavier.Decoret/resources/glsl-mode/"))]) (glab . [(20180821 1551) nil "minuscule client library for the Gitlab API" single ((:commit . "d75ba1bd8843f53ae3e37b206187b3b97d9f3540") (:keywords "tools") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/ghub"))]) (gl-conf-mode . [(20170714 1310) ((emacs (24 3))) "Mode for editing gitolite config files" single ((:commit . "9136a9b737e0a5b6471a91571d104c487c43f35b") (:keywords "git" "gitolite" "languages") (:authors ("Luis Lloret")) (:maintainer "Luis Lloret") (:url . "https://github.com/llloret/gitolite-emacs"))]) (gitter . [(20180122 856) ((emacs (24 4)) (let-alist (1 0 4))) "An Emacs Gitter client" single ((:commit . "11cb9b4b45f67bdc24f055a9bfac21d2bd19ea1a") (:keywords "gitter" "chat" "client" "internet") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/gitter.el"))]) (gitpatch . [(20170722 410) ((emacs (24 3))) "Git-format patch toolkit" single ((:commit . "577d5adf65c8133caa325c10e89e1e2fc323c907") (:keywords "convenience") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/gitpatch"))]) (gitolite-clone . [(20160609 2355) ((dash (2 10 0)) (s (1 9 0)) (pcache (0 3 1)) (emacs (24))) "Clone gitolite repositories from a completing list" single ((:commit . "d8a4c2875c984e51137c980b5773f42703602721") (:keywords "gitolite" "clone" "git") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/gitolite-clone"))]) (gitlab-ci-mode-flycheck . [(20180604 2204) ((emacs (25)) (flycheck (31)) (gitlab-ci-mode (1))) "Flycheck support for ‘gitlab-ci-mode’" single ((:commit . "30ea0eab74b24818f187242b079845785035e967") (:keywords "tools" "vc" "convenience") (:authors ("Joe Wreschnig")) (:maintainer "Joe Wreschnig") (:url . "https://gitlab.com/joewreschnig/gitlab-ci-mode-flycheck/"))]) (gitlab-ci-mode . [(20180604 2203) ((emacs (25)) (yaml-mode (0 0 12))) "mode for editing GitLab CI files" single ((:commit . "b9fd692d27351e959c4d272a2149def63ef1c00c") (:keywords "tools" "vc") (:authors ("Joe Wreschnig")) (:maintainer "Joe Wreschnig") (:url . "https://gitlab.com/joewreschnig/gitlab-ci-mode/"))]) (gitlab . [(20180312 1647) ((s (1 9 0)) (dash (2 9 0)) (pkg-info (0 5 0)) (request (0 1 0))) "Emacs client for Gitlab" tar ((:commit . "68318aca3206d50701039c9aae39734ca29a49f9") (:keywords "gitlab") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/emacs-gitlab"))]) (gitignore-templates . [(20180327 1326) ((emacs (24 3))) "Access GitHub .gitignore templates" single ((:commit . "b0705b8de4cbdd631c64c4e0024d62ba4ad68052") (:keywords "tools") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/gitignore-templates.el"))]) (gitignore-mode . [(20180318 1956) nil "Major mode for editing .gitignore files" single ((:commit . "55468314a5f6b77d2c96be62c7005ac94545e217") (:keywords "convenience" "vc" "git") (:authors ("Sebastian Wiesner" . "lunaryorn@gmail.com")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/git-modes"))]) (github-theme . [(20170630 2201) nil "The GitHub color theme for Emacs." single ((:commit . "29f00a51d949a248a5f6355a97131e216747c797") (:authors ("Philip Arvidsson" . "philip@philiparvidsson.com")) (:maintainer "Philip Arvidsson" . "philip@philiparvidsson.com") (:url . "https://github.com/philiparvidsson/GitHub-Theme-for-Emacs"))]) (github-stars . [(20181118 448) ((emacs (25 1)) (ghub (2 0 0))) "Browse your Github Stars" single ((:commit . "807de6da3ab32d278d68a1b709c012f6bfa4d280") (:keywords "tools") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/github-stars.el"))]) (github-search . [(20170824 323) ((magit (0 8 1)) (gh (1 0 0))) "Clone repositories by searching github" single ((:commit . "c5fa1d9f8f9bcf201fa31478a6f5e02ed5ac086b") (:keywords "github" "search" "clone" "api" "gh" "magit" "vc" "tools") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/github-search"))]) (github-pullrequest . [(20170116 616) ((emacs (24 4)) (request (0 2 0)) (dash (2 11 0)) (magit (2 10 0))) "Create and fetch Github Pull requests with ease" single ((:commit . "6ae5c38b0fc15b638b5ba4490112d9822ce5e267") (:keywords "tools") (:authors ("Jakob Lind" . "karl.jakob.lind@gmail.com")) (:maintainer "Jakob Lind" . "karl.jakob.lind@gmail.com") (:url . "https://github.com/jakoblind/github-pullrequest"))]) (github-notifier . [(20180421 316) ((emacs (24))) "Displays your GitHub notifications unread count in mode-line" single ((:commit . "274f3812926ea371346f639fcee98066f6e8c96f") (:keywords "github" "mode-line") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/github-notifier.el"))]) (github-modern-theme . [(20171109 1251) nil "The GitHub color theme for Emacs." single ((:commit . "a7e7b8e5e9c122138e79e837caf9b7299e748d44") (:authors ("Philip Arvidsson" . "philip@philiparvidsson.com")) (:maintainer "Philip Arvidsson" . "philip@philiparvidsson.com") (:url . "https://github.com/philiparvidsson/GitHub-Theme-for-Emacs"))]) (github-issues . [(20160616 1841) ((emacs (24))) "Functions and modes for managing GitHub projects' issues" single ((:commit . "816f7712b0eb05bffec0add3507302862d2629c4") (:keywords "github" "issues") (:authors ("Leandro M. López (inkel)" . "inkel.ar@gmail.com")) (:maintainer "Leandro M. López (inkel)" . "inkel.ar@gmail.com") (:url . "http://inkel.github.com/github-issues.el/"))]) (github-elpa . [(20180831 811) ((package-build (1 0)) (commander (0 7 0)) (git (0 1 1))) "Build and publish ELPA repositories with GitHub Pages" tar ((:commit . "32979fa1080f19d10c108d2776fbfe16547b4cf8") (:authors (nil . "10sr<8slashes+el@gmail.com>")) (:maintainer nil . "10sr<8slashes+el@gmail.com>") (:url . "https://github.com/10sr/github-elpa"))]) (github-clone . [(20160623 310) ((gh (0 7 2)) (magit (2 1 0)) (emacs (24 4))) "Fork and clone github repos" single ((:commit . "467b40ca60a6c26257466ebc43c74414df7f19cc") (:keywords "vc" "tools") (:authors ("Charles L.G. Comstock" . "dgtized@gmail.com")) (:maintainer "Charles L.G. Comstock" . "dgtized@gmail.com") (:url . "https://github.com/dgtized/github-clone.el"))]) (github-browse-file . [(20160205 1427) ((cl-lib (0 5))) "View the file you're editing on GitHub" single ((:commit . "9742a5183af853788c6ecb83fb7ee0b00d1675ac") (:keywords "convenience" "vc" "git" "github") (:authors ("Ozan Sener" . "ozan@ozansener.com")) (:maintainer "Ozan Sener" . "ozan@ozansener.com") (:url . "https://github.com/osener/github-browse-file"))]) (gitconfig-mode . [(20180318 1956) nil "Major mode for editing .gitconfig files" single ((:commit . "55468314a5f6b77d2c96be62c7005ac94545e217") (:keywords "convenience" "vc" "git") (:authors ("Sebastian Wiesner" . "lunaryorn@gmail.com")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/git-modes"))]) (gitconfig . [(20130718 935) nil "Emacs lisp interface to work with git-config variables" single ((:commit . "7612a37ca14009cac8fb8d6b6f54adad739a5741") (:keywords "git" "gitconfig" "git-config") (:authors ("Samuel Tonini")) (:maintainer "Samuel Tonini"))]) (gitattributes-mode . [(20180318 1956) nil "Major mode for editing .gitattributes files" single ((:commit . "55468314a5f6b77d2c96be62c7005ac94545e217") (:keywords "convenience" "vc" "git") (:authors ("Rüdiger Sonderfeld" . "ruediger@c-plusplus.net")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/git-modes"))]) (git-wip-timemachine . [(20150408 1006) ((s (1 9 0))) "Walk through git-wip revisions of a file" single ((:commit . "ed4c7931a5f5233bf3e358b1e81647d063526460") (:keywords "git") (:authors ("Tim Krones" . "t.krones@gmx.net")) (:maintainer "Tim Krones" . "t.krones@gmx.net") (:url . "https://github.com/itsjeyd/git-wip-timemachine"))]) (git-timemachine . [(20181114 1342) ((emacs (24 3))) "Walk through git revisions of a file" single ((:commit . "4eb2ee6eabcc437bc3a1addc19ba38eed165743d") (:keywords "git") (:authors ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainer "Peter Stiernström" . "peter@stiernstrom.se") (:url . "https://github.com/pidu/git-timemachine"))]) (git-ps1-mode . [(20181115 349) nil "Global minor-mode to print __git_ps1" single ((:commit . "b9188e26a64fa6f8678da6cbf5e3e865065f4f04") (:keywords "utility" "mode-line" "git") (:authors ("10sr <8slashes+el [at] gmail [dot] com>")) (:maintainer "10sr <8slashes+el [at] gmail [dot] com>") (:url . "https://github.com/10sr/git-ps1-mode-el"))]) (git-msg-prefix . [(20180118 1446) ((emacs (24)) (s (1 10 0)) (dash (2 9 0))) "Insert commit message prefix (issue number)" single ((:commit . "848f2c7475f5e4937b09f55e85ea89a3be5f8588") (:keywords "vc" "tools") (:authors ("Raimon Grau" . "raimonster@gmail.com")) (:maintainer "Raimon Grau" . "raimonster@gmail.com") (:url . "http://github.com/kidd/git-msg-prefix.el"))]) (git-messenger . [(20170102 440) ((emacs (24 3)) (popup (0 5 0))) "Pop up last commit information of current line" single ((:commit . "83815915eb8c1cb47443ff34bca3fecf7d2edf3a") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-git-messenger"))]) (git-link . [(20181031 259) ((emacs (24 3))) "Get the GitHub/Bitbucket/GitLab URL for a buffer location" single ((:commit . "976723dfdb9ae42e093a3cb32fc41841e94201e6") (:keywords "git" "vc" "github" "bitbucket" "gitlab" "convenience") (:authors ("Skye Shaw" . "skye.shaw@gmail.com")) (:maintainer "Skye Shaw" . "skye.shaw@gmail.com") (:url . "http://github.com/sshaw/git-link"))]) (git-lens . [(20180328 1417) ((emacs (24 4))) "Show new, deleted or modified files in branch" single ((:commit . "ea49e2e005af977a08331f8caa8f64d102b3b932") (:keywords "vc" "convenience") (:authors ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainer "Peter Stiernström" . "peter@stiernstrom.se") (:url . "https://github.com/pidu/git-lens"))]) (git-io . [(20180317 1752) ((emacs (24 4))) "git.io integration" single ((:commit . "48753acba73b48b997bb678fb5e2a938ae63b5d6") (:keywords "convenience" "files") (:authors ("Tejas Bubane" . "tejasbubane@gmail.com")) (:maintainer "Tejas Bubane" . "tejasbubane@gmail.com") (:url . "https://github.com/tejasbubane/emacs-git-io"))]) (git-gutter-fringe . [(20170113 533) ((git-gutter (0 88)) (fringe-helper (0 1 1)) (cl-lib (0 5)) (emacs (24))) "Fringe version of git-gutter.el" single ((:commit . "16226caab44174301f1659f7bf8cc67a76153445") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-git-gutter-fringe"))]) (git-gutter-fringe+ . [(20140729 1103) ((git-gutter+ (0 1)) (fringe-helper (1 0 1))) "Fringe version of git-gutter+.el" single ((:commit . "7a2f49d2455a3a872e90e5f7dd4e6b27f1d96cfc") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/nonsequitur/git-gutter-fringe-plus"))]) (git-gutter . [(20161105 1356) ((emacs (24 3))) "Port of Sublime Text plugin GitGutter" single ((:commit . "00c05264af046b5ce248e5b0bc42f117d9c27a09") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-git-gutter"))]) (git-gutter+ . [(20151204 1723) ((git-commit (0)) (dash (0))) "Manage Git hunks straight from the buffer" single ((:commit . "b7726997806d9a2da9fe84ff00ecf21d62b6f975") (:keywords "git" "vc") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/nonsequitur/git-gutter-plus"))]) (git-dwim . [(20170126 1214) nil "Context-aware git commands such as branch handling" single ((:commit . "485c732130686c2f28a026e385366006435394b9") (:keywords "git" "tools" "convenience") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/git-dwim.el"))]) (git-commit-insert-issue . [(20171102 1841) ((projectile (0)) (s (0)) (github-issues (0)) (gitlab (0)) (bitbucket (0))) "Get issues list when typing \"Fixes #\"" single ((:commit . "f986923b04b587206ce7ee8e0c456768600e8be7") (:keywords "git" "github" "gitlab" "bitbucket" "commit" "issues") (:authors ("Vindarel")) (:maintainer "Vindarel") (:url . "https://gitlab.com/emacs-stuff/git-commit-insert-issue/"))]) (git-commit . [(20181116 1408) ((emacs (25 1)) (dash (20180910)) (with-editor (20181103))) "Edit Git commit messages" single ((:commit . "36d89c88e1337ec2b33c75c3d426289c66f86b10") (:keywords "git" "tools" "vc") (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/magit/magit"))]) (git-command . [(20160111 1303) ((term-run (0 1 4)) (with-editor (2 3 1))) "Yet another Git interface" single ((:commit . "dce465ca1cd80e16df0f8dce8e427a76e9edc3b7") (:keywords "utility" "git") (:authors ("10sr <8slashes+el [at] gmail [dot] com>")) (:maintainer "10sr <8slashes+el [at] gmail [dot] com>") (:url . "https://github.com/10sr/git-command-el"))]) (git-blamed . [(20161028 1926) nil "Minor mode for incremental blame for Git" single ((:commit . "cef196abf398e2dd11f775d1e6cd8690567408aa") (:keywords "git" "version control" "release management"))]) (git-auto-commit-mode . [(20161229 1617) nil "Emacs Minor mode to automatically commit and push" single ((:commit . "2c8197e5d7813734d6a49f9b9c0b227b7ae022a8") (:keywords "vc") (:authors ("Tom Willemse" . "tom@ryuslash.org")) (:maintainer "Tom Willemse" . "tom@ryuslash.org") (:url . "http://projects.ryuslash.org/git-auto-commit-mode/"))]) (git-attr . [(20180925 2003) ((emacs (24 3))) "Git attributes of buffer file" tar ((:commit . "8f6290c76e7827d5a198e7dc04516bcfb2128c06") (:keywords "vc") (:authors ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainer "Arne Jørgensen" . "arne@arnested.dk") (:url . "https://github.com/arnested/emacs-git-attr"))]) (git-annex . [(20180427 1556) nil "Mode for easy editing of git-annex'd files" single ((:commit . "ebdb44aef1883f1b2b8058e05d30fb9315b03707") (:keywords "files" "data" "git" "annex") (:authors ("John Wiegley" . "jwiegley@gmail.com")) (:maintainer "John Wiegley" . "jwiegley@gmail.com") (:url . "https://github.com/jwiegley/git-annex-el"))]) (git . [(20140128 1041) ((s (1 7 0)) (dash (2 2 0)) (f (0 10 0))) "An Elisp API for programmatically using Git" single ((:commit . "a3396a7027a7d986598c6a2d6d5599bac918f3da") (:keywords "git") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/git.el"))]) (gist . [(20171128 406) ((emacs (24 1)) (gh (0 10 0))) "Emacs integration for gist.github.com" single ((:commit . "314fe6ab80fae35b95f0734eceb82f72813b6f41") (:keywords "tools") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Yann Hodique" . "yann.hodique@gmail.com") (:url . "https://github.com/defunkt/gist.el"))]) (gildas-mode . [(20181022 649) ((polymode (0 1 5)) (emacs (25))) "Major mode for Gildas" single ((:commit . "d0c9e997e2aa0bcd9b8b7db082d69100448cb1b2") (:keywords "languages" "gildas") (:authors ("Sébastien Maret" . "sebastien.maret@icloud.com")) (:maintainer "Sébastien Maret" . "sebastien.maret@icloud.com") (:url . "https://github.com/smaret/gildas-mode"))]) (gift-mode . [(20180530 1235) nil "major mode for editing GIFT format quizzes" single ((:commit . "b0441ae6e02f343be3b611a2d4b40495ecd932f0") (:authors ("Christophe Rhodes" . "christophe@rhodes.io")) (:maintainer "Christophe Rhodes" . "christophe@rhodes.io") (:url . "https://github.com/csrhodes/gift-mode"))]) (gif-screencast . [(20180827 835) ((emacs (25 1))) "One-frame-per-action GIF recording" single ((:commit . "62e69ea464e87f1f7791d95a4fbbe9b70a84668a") (:keywords "multimedia" "screencast") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainer "Pierre Neidhardt" . "mail@ambrevar.xyz") (:url . "https://gitlab.com/ambrevar/emacs-gif-screencast"))]) (ghub . [(20181112 1755) ((emacs (25 1)) (dash (2 14 1)) (graphql (0 1 1)) (let-alist (1 0 5)) (treepy (1 0 0))) "Minuscule client libraries for Git forge APIs." tar ((:commit . "f389fce41cd1bd1805bad18d12e237362af05283"))]) (ghub+ . [(20181113 32) ((emacs (25)) (ghub (2 0)) (apiwrap (0 5))) "a thick GitHub API client built on ghub" single ((:commit . "51ebffe549286b3c0b0565a373f44f4d64fc57af") (:keywords "extensions" "multimedia" "tools") (:authors ("Sean Allred" . "code@seanallred.com")) (:maintainer "Sean Allred" . "code@seanallred.com") (:url . "https://github.com/vermiculus/ghub-plus"))]) (ghq . [(20160803 1557) nil "Ghq interface for emacs" single ((:commit . "aae4b8cb22fd6c24d2c9e3962c7e8e9dac6d9825") (:keywords "ghq") (:authors ("Roman Coedo" . "romancoedo@gmail.com")) (:maintainer "Roman Coedo" . "romancoedo@gmail.com"))]) (ghost-blog . [(20171023 742) ((markdown-mode (1 0))) "A package to manage Ghost blog" single ((:commit . "71b358643cc9a2db1bf752281ff94aba9b59e4cc") (:keywords "ghost" "blog") (:authors ("Javier Aguirre" . "hello@javaguirre.net")) (:maintainer "Javier Aguirre" . "hello@javaguirre.net") (:url . "https://github.com/javaguirre/ghost-blog"))]) (gherkin-mode . [(20171224 1353) nil "An emacs major mode for editing gherkin files." single ((:commit . "0313492e7da152f0aa73ddf96c0287ded8f51253") (:keywords "languages") (:authors ("Craig Andera")) (:maintainer "Craig Andera"))]) (ghci-completion . [(20151125 1257) ((emacs (24 1)) (cl-lib (0 5))) "Completion for GHCi commands in inferior-haskell buffers" single ((:commit . "c47e23d585d2a3c7b13aac163693fdc4f2bb90e5") (:keywords "convenience") (:authors ("Oleksandr Manzyuk" . "manzyuk@gmail.com")) (:maintainer "Oleksandr Manzyuk" . "manzyuk@gmail.com"))]) (ghc-imported-from . [(20141124 1932) ((emacs (24 1))) "Haskell documentation lookup with ghc-imported-from" single ((:commit . "fcff08628a19f5d26151564659218cc677779b79") (:keywords "languages") (:authors ("David Raymond Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Raymond Christiansen" . "david@davidchristiansen.dk"))]) (ghc . [(20180121 1218) ((haskell-mode (13 0))) "Sub mode for Haskell mode" tar ((:commit . "96c2207f0e9019f958d39582d4bf4af3bc9469d2"))]) (gh-md . [(20151207 1740) ((emacs (24))) "Render markdown using the Github api" single ((:commit . "693cb0dcadff70e813e1a9d303d227aff7898557") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/gh-md.el"))]) (gh . [(20180308 2138) ((emacs (24 3)) (pcache (0 4 1)) (logito (0 1)) (marshal (0 6 3))) "A GitHub library for Emacs" tar ((:commit . "f029fc11f345ef04ab62ee91c38657e29c462fea"))]) (ggtags . [(20181031 1803) ((emacs (25))) "emacs frontend to GNU Global source code tagging system" single ((:commit . "669676461c74ffd30b81dce60cf4f081270f2858") (:keywords "tools" "convenience") (:authors ("Leo Liu" . "sdl.web@gmail.com")) (:maintainer "Leo Liu" . "sdl.web@gmail.com") (:url . "https://github.com/leoliu/ggtags"))]) (ggo-mode . [(20130524 1143) nil "Gengetopt major mode" single ((:commit . "e326899d9ed8217c7a4ea6cfdc4dd7aea61d6c1b") (:keywords "extensions" "convenience" "local") (:authors ("Matthew K. Junker" . "junker@alum.mit.edu")) (:maintainer "Matthew K. Junker" . "junker@alum.mit.edu"))]) (gf . [(20181028 1542) ((s (1 0)) (ht (2 0))) "Major mode for editing GF code" single ((:commit . "30b3127f229e0db522c7752f6957ca01b2ea2821") (:keywords "languages") (:authors ("Johan Bockgård" . "bojohan+mail@dd.chalmers.se")) (:maintainer "bruno cuconato" . "bcclaro+emacs@gmail.com") (:url . "https://github.com/GrammaticalFramework/gf-emacs-mode"))]) (gerrit-download . [(20150714 1408) ((emacs (24 0)) (magit (2 1 0))) "Show gerrit reviews in a diff buffer." single ((:commit . "d568acc7c5935188c9bc19ba72719a6092d9f6fd") (:keywords "tools" "gerrit" "git") (:authors ("Chmouel Boudjnah" . "chmouel@chmouel.com")) (:maintainer "Chmouel Boudjnah" . "chmouel@chmouel.com") (:url . "https://github.com/chmouel/gerrit-download.el"))]) (german-holidays . [(20161011 713) nil "German holidays for Emacs calendar" single ((:commit . "d7d540c229c1a8be68ee09fbda08fe3ea31b7d29") (:authors ("Sebastian Christ" . "rudolfo.christ@gmail.com")) (:maintainer "Sebastian Christ" . "rudolfo.christ@gmail.com") (:url . "https://github.com/rudolfochrist/german-holidays"))]) (genrnc . [(20140612 1237) ((deferred (0 3 1)) (concurrent (0 3)) (log4e (0 2 0)) (yaxception (0 1))) "generate RELAX NG Compact Schema from RELAX NG Schema, XML Schema and DTD." tar ((:commit . "da75b1966a73ad215ec2ced4522c25f4d0bf1f9a") (:keywords "xml") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-genrnc"))]) (general . [(20181020 2323) ((emacs (24 4)) (cl-lib (0 5))) "Convenience wrappers for keybindings." single ((:commit . "f48c43c4449677fa629aac2693ffcb850ca58c89") (:keywords "vim" "evil" "leader" "keybindings" "keys") (:authors ("Fox Kiester" . "noct@openmailbox.org")) (:maintainer "Fox Kiester" . "noct@openmailbox.org") (:url . "https://github.com/noctuid/general.el"))]) (geiser . [(20181117 650) nil "GNU Emacs and Scheme talk to each other" tar ((:commit . "dcf754c0b9cdb87ffa5930ef8ffbae9256f2d07d") (:url . "http://www.nongnu.org/geiser/"))]) (geeknote . [(20160717 1249) ((emacs (24))) "Use Evernote in Emacs through geeknote" single ((:commit . "8ed607c76864afcc9c338972ab093caf4501cbf8") (:keywords "evernote" "geeknote" "note" "emacs-evernote" "evernote-mode") (:authors ("Evan Dale Aromin")) (:maintainer "Evan Dale Aromin") (:url . "http://github.com/avendael/emacs-geeknote"))]) (geben-helm-projectile . [(20160611 59) ((emacs (24)) (geben (0 26)) (helm-projectile (0 13 0))) "Integrate helm-projectile with geben" single ((:commit . "31ce0faca5dcc71924884f03fd5a7a25d00ccd9b") (:keywords "ahungry" "emacs" "geben" "helm" "projectile" "debug") (:authors ("Matthew Carter" . "m@ahungry.com")) (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/geben-helm-projectile"))]) (geben . [(20170801 1251) ((emacs (24 3)) (cl-lib (0 5))) "DBGp protocol frontend, a script debugger" tar ((:commit . "ec3f5e9376cf1ea5615990bd8c212543d57f033b") (:keywords "c" "comm" "tools") (:authors ("Matthew Carter" . "m@ahungry.com")) (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/geben"))]) (gdscript-mode . [(20180118 456) ((emacs (24 3))) "Major mode for editing Godot GDScript files" single ((:commit . "31af5283eaec207bc864022a28e2824132471eaf") (:keywords "languages") (:authors ("Adam Bark" . "adam@adambark.com")) (:maintainer "Adam Bark" . "adam@adambark.com") (:url . "https://github.com/AdamBark/gdscript-mode"))]) (gather . [(20141230 1338) nil "Gather string in buffer." single ((:commit . "50809fbc22d70a1c724c2dd99ac5a1f818ffeb6b") (:keywords "matching" "convenience" "tools") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-gather/raw/master/gather.el"))]) (gap-mode . [(20180809 445) nil "Major mode for editing files in the GAP programing language." tar ((:keywords "gap") (:authors ("Michael Smith" . "smith@pell.anu.edu.au") ("Gary Zablackis") ("Goetz Pfeiffer") ("Ivan Andrus" . "darthandrus@gmail.com")) (:maintainer "Ivan Andrus" . "darthandrus@gmail.com") (:url . "https://bitbucket.org/gvol/gap-mode"))]) (gandalf-theme . [(20130809 947) nil "Gandalf color theme" single ((:commit . "4e472fc851431458537d458d09c1f5895e338536") (:keywords "color" "theme") (:authors ("Peter Vasil" . "mail@petervasil.net")) (:maintainer "Peter Vasil" . "mail@petervasil.net"))]) (gams-mode . [(20181112 601) ((emacs (24 3))) "Major mode for General Algebraic Modeling System (GAMS)" single ((:commit . "210bd355dd2075bde3fd76c880aa489a25a54cb5") (:keywords "languages" "tools" "gams") (:authors ("Shiro Takeda")) (:maintainer "Shiro Takeda") (:url . "http://shirotakeda.org/en/gams/gams-mode/"))]) (gams-ac . [(20180423 926) ((emacs (24)) (auto-complete (1 0)) (gams-mode (4 0))) "auto-complete source file for GAMS mode" single ((:commit . "66d04ff36033f54205c19bc1d893e926d4dbf02e") (:keywords "languages" "tools" "gams-mode" "auto-complete") (:authors ("Shiro Takeda")) (:maintainer "Shiro Takeda") (:url . "https://github.com/ShiroTakeda/gams-ac"))]) (fzf . [(20180619 145) ((emacs (24 4))) "A front-end for fzf." single ((:commit . "521d18933cb586337c4e34281bdc71ac07202c98") (:keywords "fzf" "fuzzy" "search") (:authors ("Bailey Ling")) (:maintainer "Bailey Ling") (:url . "https://github.com/bling/fzf.el"))]) (fyure . [(20130216 1314) nil "An interface to fix Japanese hyoki-yure" tar ((:commit . "b6977f1eb148e8b63259f7233b55bb050e44d9b8") (:keywords "languages") (:authors ("Masafumi Oyamada" . "stillpedant@gmail.com")) (:maintainer "Masafumi Oyamada" . "stillpedant@gmail.com"))]) (fxrd-mode . [(20170728 1801) ((s (1 2))) "Major mode for editing fixed field width files" tar ((:commit . "18a603474abb5a786a8d9f20c283d5f7beed3540") (:keywords "convenience") (:authors ("Marc Sherry" . "msherry@gmail.com")) (:maintainer "Marc Sherry" . "msherry@gmail.com") (:url . "https://github.com/msherry/fxrd-mode"))]) (fwb-cmds . [(20180318 2219) nil "misc frame, window and buffer commands" single ((:commit . "90258a5c7dbbaa2ac227e0fb4ff6c7d5aec3628f") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/fwb-cmds"))]) (fvwm-mode . [(20160411 1138) nil "A major mode for editing Fvwm configuration files" single ((:commit . "6832a1c1f68bf6249c3fd6672ea8e27dc7a5c79e") (:keywords "files") (:authors ("Bert Geens" . "bert@lair.be")) (:maintainer "Bert Geens" . "bert@lair.be") (:url . "https://github.com/theBlackDragon/fvwm-mode"))]) (fuzzy . [(20150730 337) nil "Fuzzy Matching" single ((:commit . "534d723ad2e06322ff8d9bd0ba4863d243f698e7") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))]) (futhark-mode . [(20181101 1900) ((cl-lib (0 5))) "major mode for editing Futhark source files" single ((:commit . "8ab840c6d2d24696b916bfb28c99d4d0043ab64e") (:keywords "languages") (:url . "https://github.com/diku-dk/futhark"))]) (furl . [(20150509 316) nil "Friendly URL retrieval" single ((:commit . "014438271e0ef27333dfcd599cb247f12a20d870") (:authors ("Natalie Weizenbaum" . "nweiz@google.com")) (:maintainer "Natalie Weizenbaum" . "nweiz@google.com"))]) (fuo . [(20180314 1648) ((emacs (24 4))) "feeluown client." single ((:commit . "5318bef9d935b53031e6312652554920def69af2") (:keywords "feeluown" "multimedia" "unix") (:authors ("cosven" . "yinshaowen241@gmail.com")) (:maintainer "cosven" . "yinshaowen241@gmail.com") (:url . "http://github.com/cosven/emacs-fuo"))]) (function-args . [(20171031 1704) ((ivy (0 9 1))) "C++ completion for GNU Emacs" tar ((:commit . "609b25305670fff08d5e357298e7128e4f4e3497") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/function-args"))]) (fullframe . [(20170816 1003) ((cl-lib (0 5))) "Generalized automatic execution in a single frame" single ((:commit . "d6a5217f7f2a5a5edcb75140f3fa69b3a50f1cdd") (:keywords "fullscreen") (:authors ("Tom Regner" . "tom@goochesa.de")) (:maintainer "Tom Regner" . "tom@goochesa.de"))]) (full-ack . [(20140223 1732) nil "a front-end for ack" single ((:commit . "761d846e105b150f8e6d13d7a8983f0248313a45") (:keywords "tools" "matching") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/full-ack/"))]) (fuff . [(20170202 1503) ((seq (2 3))) "Find files with findutils, recursively" single ((:commit . "278e849913df87bd8756c59382282d87474802c3") (:keywords "files" "project" "convenience") (:authors ("Joel Moberg")) (:maintainer "Joel Moberg") (:url . "https://github.com/joelmo/fuff"))]) (fuel . [(20180224 2211) ((cl-lib (0 2)) (emacs (24 2))) "Major mode for the Factor programming language." tar ((:commit . "d82ce045ea74e6221077da5d94efe6bacc0964e0"))]) (fstar-mode . [(20181110 1349) ((emacs (24 3)) (dash (2 11)) (company (0 8 12)) (quick-peek (1 0)) (yasnippet (0 11 0)) (flycheck (30 0)) (company-quickhelp (2 2 0))) "Support for F* programming" tar ((:commit . "0089f2d4451f73c389f82ebff9e22773f2d0014d") (:keywords "convenience" "languages") (:authors ("Clément Pit-Claudel" . "clement.pitclaudel@live.com")) (:maintainer "Clément Pit-Claudel" . "clement.pitclaudel@live.com") (:url . "https://github.com/FStarLang/fstar-mode.el"))]) (fsharp-mode . [(20180518 1820) ((company (0 8 0)) (company-quickhelp (1 2 0)) (popup (0 5 3)) (pos-tip (0 4 5)) (s (1 3 1)) (dash (1 1 0)) (flycheck (0 25))) "F# mode for Emacs" tar ((:commit . "68d2121a7317d90fe3794c9295d117f4aebd1438"))]) (fsbot-data-browser . [(20160921 1533) nil "browse the fsbot database using tabulated-list-mode" single ((:commit . "6bca4f7de63e31839d2542f6c678b79931dec344") (:keywords "fsbot" "irc" "tabulated-list-mode") (:authors ("Benaiah Mischenko")) (:maintainer "Benaiah Mischenko") (:url . "http://github.com/benaiah/fsbot-data-browser"))]) (fringe-helper . [(20140620 2109) nil "helper functions for fringe bitmaps" single ((:commit . "ef4a9c023bae18ec1ddd7265f1f2d6d2e775efdd") (:keywords "lisp") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/fringe-helper/"))]) (fringe-current-line . [(20140111 411) nil "show current line on the fringe." single ((:commit . "0ef000bac76abae30601222e6f06c7d133ab4942") (:authors ("Kouhei Yanagita" . "yanagi@shakenbu.org")) (:maintainer "Kouhei Yanagita" . "yanagi@shakenbu.org") (:url . "http://github.com/kyanagi/fringe-current-line/raw/master/fringe-current-line.el"))]) (free-keys . [(20160726 2050) ((cl-lib (0 3))) "Show free keybindings for modkeys or prefixes" single ((:commit . "edfd69dc369b2647447b7c28c7c1163b1ddf45b4") (:keywords "convenience") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/free-keys"))]) (frecency . [(20170909 631) ((emacs (25 1)) (a (0 1)) (dash (2 13 0))) "Library for sorting items by frequency and recency of access" single ((:commit . "31ef9ff4af1a4fed3dcc24ea74037feea8795c87") (:keywords "libraries" "recency" "recent" "frequency" "frequent") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/frecency.el"))]) (framesize . [(20131017 2132) ((key-chord (0 5 20080915))) "change the size of frames in Emacs" single ((:commit . "f2dbf5d2513b2bc45f2085370a55c1754b6025da") (:keywords "frames") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "http://github.com/nicferrier/emacs-framesize"))]) (frameshot . [(20181110 1910) ((emacs (25 3))) "Take screenshots of a frame" single ((:commit . "3e1c9c2b34a3ab25cf373c411321280cc00096f6") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/frameshot"))]) (frames-only-mode . [(20180114 1848) ((emacs (24 4)) (dash (2 13 0)) (s (1 11 0))) "Use frames instead of Emacs windows" single ((:commit . "9a398dd58ebc1814183432118d11957b46746556") (:keywords "frames" "windows") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com") (:url . "https://github.com/davidshepherd7/frames-only-mode"))]) (frame-tag . [(20170111 6) ((cl-lib (0 5))) "Minor mode that assigns a unique number to each frame for easy switching" single ((:commit . "73d6163568c7d32952175e663318b872f995a4e5") (:keywords "frame" "movement") (:authors ("Wong Liang Zan" . "zan@liangzan.net")) (:maintainer "Wong Liang Zan" . "zan@liangzan.net") (:url . "http://github.com/liangzan/frame-tag.el"))]) (frame-purpose . [(20180624 57) ((emacs (25 1)) (dash (2 12)) (dash-functional (1 2 0))) "Purpose-specific frames" single ((:commit . "ef571eb64acb4fef5c5ab22bc1e87a0e6614efa4") (:keywords "buffers" "convenience" "frames") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/frame-purpose.el"))]) (frame-mode . [(20170419 2127) ((s (1 9 0)) (emacs (24 4))) "Use frames instead of windows" single ((:commit . "fcdbafbda45758cd60ab3acb492fbbd692987a58") (:keywords "frames") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/frame-mode"))]) (frame-local . [(20180330 940) ((emacs (25 1))) "Variables local to a frame" single ((:commit . "7ee1106c3bcd4022f48421f8cb1ef4f995da816e") (:keywords "frames" "tools" "local" "lisp") (:authors ("Sebastien Chapuis" . "sebastien@chapu.is")) (:maintainer "Sebastien Chapuis" . "sebastien@chapu.is") (:url . "https://github.com/sebastiencs/frame-local"))]) (fraktur-mode . [(20160815 227) ((cl-lib (0 5))) "Easily insert Unicode mathematical Fraktur characters" single ((:commit . "514baf5546aed12a0d9fa0fe66e87cdcc7843b08") (:keywords "unicode" "fraktur" "math" "mathematical") (:authors ("Grant Rettke" . "gcr@wisdomandwonder.com")) (:maintainer nil . "<gcr@wisdomandwonder.com>") (:url . "https://github.com/grettke/fraktur-mode"))]) (fountain-mode . [(20181011 843) ((emacs (24 5))) "Major mode for screenwriting in Fountain markup" single ((:commit . "6f2d72ecbe8d6cad637f3eac4de88dff469dd42c") (:keywords "wp" "text") (:authors ("Paul Rankin" . "hello@paulwrankin.com")) (:maintainer "Paul Rankin" . "hello@paulwrankin.com"))]) (fortune-cookie . [(20170407 2217) nil "Print a fortune in your scratch buffer." single ((:commit . "bad99a2cd090f6646c7ee1125b95dd98744939c6") (:keywords "fortune" "cowsay" "scratch" "startup") (:authors ("Andrew Schwartzmeyer" . "andrew@schwartzmeyer.com")) (:maintainer "Andrew Schwartzmeyer" . "andrew@schwartzmeyer.com") (:url . "https://github.com/andschwa/fortune-cookie"))]) (fortpy . [(20150715 2032) ((epc (0 1 0)) (auto-complete (1 4)) (python-environment (0 0 2)) (pos-tip (0 4 5))) "a Fortran auto-completion for Emacs" tar ((:commit . "c614517e9396ef7a78be3b8786fbf303879cf43b") (:authors ("Conrad Rosenbrock <rosenbrockc at gmail.com>")) (:maintainer "Conrad Rosenbrock <rosenbrockc at gmail.com>"))]) (forth-mode . [(20170527 1930) nil "Programming language mode for Forth" tar ((:commit . "522256d98d1a909983bcfd3ae20c65226d5929b6") (:keywords "languages" "forth") (:authors ("Lars Brinkhoff" . "lars@nocrew.org")) (:maintainer "Lars Brinkhoff" . "lars@nocrew.org") (:url . "http://github.com/larsbrinkhoff/forth-mode"))]) (format-sql . [(20150422 1333) nil "Use format-sql to make your SQL readable in directly Emacs." single ((:commit . "97f475c245cd6c81a72a265678e2087cee66ac7b") (:authors ("Friedrich Paetzke" . "paetzke@fastmail.fm")) (:maintainer "Friedrich Paetzke" . "paetzke@fastmail.fm") (:url . "https://github.com/paetzke/format-sql.el"))]) (format-all . [(20181108 921) ((emacs (24)) (cl-lib (0 5))) "Auto-format C, C++, JS, Python, Ruby and 30 other languages" single ((:commit . "76054ed7236f18737cca4566fe8be7257f58cd81") (:keywords "languages" "util") (:authors ("Lassi Kortela" . "lassi@lassi.io")) (:maintainer "Lassi Kortela" . "lassi@lassi.io") (:url . "https://github.com/lassik/emacs-format-all-the-code"))]) (form-feed . [(20160102 2253) nil "Display ^L glyphs as horizontal lines" single ((:commit . "799ca3e72b20a59a755a094b8cead57f654f3170") (:keywords "faces") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/form-feed"))]) (forest-blue-theme . [(20160627 842) ((emacs (24))) "Emacs theme with a dark background." single ((:commit . "58096ce1a25615d2bae806c3775bae3e2775019d") (:authors ("olkinn")) (:maintainer "olkinn"))]) (foreman-mode . [(20170725 1422) ((s (1 9 0)) (dash (2 10 0)) (dash-functional (1 2 0)) (f (0 17 2)) (emacs (24))) "View and manage Procfile-based applications" single ((:commit . "22b3bb13134b617870ed1e888af739f4818be929") (:keywords "foreman") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/foreman-mode"))]) (foreign-regexp . [(20180224 1121) nil "search and replace by foreign regexp." tar ((:commit . "2ec5c44f27c2396ee487aa0ed77ae47d143fa5aa") (:keywords "convenience" "emulations" "matching" "tools" "unix" "wp") (:authors ("K-talo Miyazaki <Keitaro dot Miyazaki at gmail dot com>")) (:maintainer "K-talo Miyazaki <Keitaro dot Miyazaki at gmail dot com>"))]) (forecast . [(20180429 2215) ((emacs (24 4))) "Weather forecasts" single ((:commit . "05f2655321f020fd4c069d1939f0902eaa837eb4") (:keywords "weather" "forecast") (:authors ("Göktuğ Kayaalp" . "self@gkayaalp.com")) (:maintainer "Göktuğ Kayaalp" . "self@gkayaalp.com") (:url . "https://cadadr.github.io/elisp/index.html#forecast-el"))]) (fontify-face . [(20180420 1624) ((emacs (24))) "Fontify symbols representing faces with that face." single ((:commit . "fc3325c98427523d86f0b411e0515cec51ac3d8a") (:keywords "faces") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/fontify-face"))]) (fontawesome . [(20170305 1356) ((emacs (24 4))) "fontawesome utility" tar ((:commit . "a743f80bfd53767ca9ee32da34c5ca032172a480") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-fontawesome"))]) (font-utils . [(20150806 1751) ((persistent-soft (0 8 8)) (pcache (0 2 3))) "Utility functions for working with fonts" single ((:commit . "9192d3f8ee6a4e75f34c3fed10378674cc2b11d3") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/font-utils"))]) (font-lock-studio . [(20170127 2051) ((emacs (24 3))) "interactive debugger for Font Lock keywords." single ((:commit . "12c35967b31233e06946c70627aa3152dacfe261") (:keywords "faces" "tools") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/font-lock-studio"))]) (font-lock-profiler . [(20170208 2008) ((emacs (24 3))) "Coverage and timing tool for font-lock keywords." single ((:commit . "6e096458416888a4f63cca0d6bc5965a052753c8") (:keywords "faces" "tools") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/font-lock-profiler"))]) (folding . [(20170925 1538) nil "A folding-editor-like minor mode." single ((:commit . "3bf134fd1ecfa8767ab7020c25281ea5ce9968a2") (:keywords "tools") (:maintainer "Jari Aalto <jari aalto A T cante dt net>"))]) (fold-this . [(20180828 1336) nil "Just fold this region please" single ((:commit . "59ec711ee5f4decf197b8168e333b691b852c827") (:keywords "convenience") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (fold-dwim-org . [(20131203 1351) ((fold-dwim (1 2))) "Fold DWIM bound to org key-strokes." single ((:commit . "c09bb2b46d65afbd1d0febc6fded7495be7a3037") (:keywords "folding" "emacs" "org-mode") (:authors ("Matthew L. Fidler & Shane Celis")) (:maintainer "Matthew L. Fidler") (:url . "https://github.com/mlf176f2/fold-dwim-org"))]) (fold-dwim . [(20140208 1637) nil "Unified user interface for Emacs folding modes" single ((:commit . "c46f4bb2ce91b4e307136320e72c28dd50b6cd8b") (:authors ("Peter Heslin" . "p.j.heslin@dur.ac.uk")) (:maintainer "Peter Heslin" . "p.j.heslin@dur.ac.uk") (:url . "http://www.dur.ac.uk/p.j.heslin/Software/Emacs"))]) (foggy-night-theme . [(20160209 1508) ((emacs (24))) "Dark low contrast theme with soft and muted colors." single ((:commit . "60a12abdac29c2d913e1cf24485d0cc083e26093") (:authors ("Martin Haesler")) (:maintainer "Martin Haesler"))]) (focus-autosave-mode . [(20160519 2116) ((emacs (24 4))) "Automatically save files in focus-out-hook." single ((:commit . "2e0844fabb6f0dc9e0f31928e4785febf38b9e35") (:keywords "convenience" "files" "frames" "mouse") (:authors ("Wojciech Siewierski" . "wojciech.siewierski@onet.pl")) (:maintainer "Wojciech Siewierski" . "wojciech.siewierski@onet.pl"))]) (focus . [(20171204 503) ((emacs (24)) (cl-lib (0 5))) "Dim the font color of text in surrounding sections" single ((:commit . "045ee6175e9340f873db03445c74ff9eefa35a27") (:authors ("Lars Tveito" . "larstvei@ifi.uio.no")) (:maintainer "Lars Tveito" . "larstvei@ifi.uio.no") (:url . "http://github.com/larstvei/Focus"))]) (fn . [(20170210 204) ((emacs (24)) (cl-lib (0 5)) (dash (2 12 1)) (dash-functional (1 2 0))) "Concise anonymous functions for Emacs Lisp" single ((:commit . "f685fd0c08ec3b1d1b9974b37e62edd78a000cb8") (:keywords "functional") (:authors ("Troy Pracy")) (:maintainer "Troy Pracy"))]) (fm-bookmarks . [(20170104 1716) ((emacs (24 3)) (cl-lib (0 5))) "Use file manager bookmarks (eg Dolphin, Nautilus, PCManFM) in Dired" single ((:commit . "11dacfd16a926bfecba96a94c6b13e162c7717f7") (:keywords "files" "convenience") (:authors ("Ono Hiroko" . "azazabc123@gmail.com")) (:maintainer "Ono Hiroko" . "azazabc123@gmail.com") (:url . "http://github.com/kuanyui/fm-bookmarks.el"))]) (flyspell-popup . [(20170529 815) ((popup (0 5 0))) "Correcting words with Flyspell in popup menus" single ((:commit . "29311849bfd253b9b689bf331860b4c4d3bd4dde") (:keywords "convenience") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/flyspell-popup"))]) (flyspell-lazy . [(20180224 2106) nil "Improve flyspell responsiveness using idle timers" single ((:commit . "3ebf68cc9eb10c972a2de8d7861cbabbbce69570") (:keywords "spelling") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/flyspell-lazy"))]) (flyspell-correct-popup . [(20180928 504) ((flyspell-correct (0 5 0)) (popup (0 5 3))) "correcting words with flyspell via popup interface" single ((:commit . "204f145678df5e34a48ea3beae888a1bd6809974") (:authors ("Boris Buliga" . "boris@d12frosted.io")) (:maintainer "Boris Buliga" . "boris@d12frosted.io") (:url . "https://github.com/d12frosted/flyspell-correct"))]) (flyspell-correct-ivy . [(20180929 1331) ((flyspell-correct (0 5 0)) (ivy (0 8 0))) "correcting words with flyspell via ivy interface" single ((:commit . "204f145678df5e34a48ea3beae888a1bd6809974") (:authors ("Boris Buliga" . "boris@d12frosted.io")) (:maintainer "Boris Buliga" . "boris@d12frosted.io") (:url . "https://github.com/d12frosted/flyspell-correct"))]) (flyspell-correct-helm . [(20180928 504) ((flyspell-correct (0 5 0)) (helm (1 9 0))) "correcting words with flyspell via helm interface" single ((:commit . "204f145678df5e34a48ea3beae888a1bd6809974") (:authors ("Boris Buliga" . "boris@d12frosted.io")) (:maintainer "Boris Buliga" . "boris@d12frosted.io") (:url . "https://github.com/d12frosted/flyspell-correct"))]) (flyspell-correct . [(20181106 801) nil "correcting words with flyspell via custom interface" tar ((:commit . "204f145678df5e34a48ea3beae888a1bd6809974") (:authors ("Boris Buliga" . "boris@d12frosted.io")) (:maintainer "Boris Buliga" . "boris@d12frosted.io") (:url . "https://github.com/d12frosted/flyspell-correct"))]) (flyparens . [(20140723 1846) nil "Check for unbalanced parens on the fly" tar ((:commit . "af9b8cfd647d0e5f97684d613dc2eea7cfc19398") (:keywords "faces" "convenience" "lisp" "matching" "parentheses" "parens") (:authors ("Jisang Yoo")) (:maintainer "Jisang Yoo"))]) (flymd . [(20160617 1214) ((cl-lib (0 5))) "On the fly markdown preview" tar ((:commit . "84d5a68bcfed4a295952c33ffcd11e880978d9d7") (:keywords "markdown" "convenience") (:authors ("Mola-T" . "Mola@molamola.xyz")) (:maintainer "Mola-T" . "Mola@molamola.xyz") (:url . "https://github.com/mola-T/flymd"))]) (flymake-yaml . [(20130423 1548) ((flymake-easy (0 1))) "A flymake handler for YAML" single ((:commit . "24cb5b744a1796e554e6dbfc6eeb237d06a00b10") (:keywords "yaml") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/flymake-yaml"))]) (flymake-vala . [(20150326 531) ((flymake-easy (0 1))) "A flymake handler for vala-mode files" single ((:commit . "c3674f461fc84fb0300cd3a562fb903a59782745") (:keywords "convenience" "vala") (:authors ("Daniel Lawrence" . "dannyla@linux.com")) (:maintainer "Daniel Lawrence" . "dannyla@linux.com") (:url . "https://github.com/daniellawrence/flymake-vala"))]) (flymake-solidity . [(20170805 644) ((flymake-easy (0 10))) "A flymake handler for solidity using solc" single ((:commit . "48bfe9525f764d8a68cc0270905dbf45bfd00bb8") (:authors ("Pascal van Kooten" . "kootenpv@gmail.com")) (:maintainer "Pascal van Kooten" . "kootenpv@gmail.com") (:url . "https://github.com/kootenvp/flymake-solidity"))]) (flymake-shellcheck . [(20180830 1145) ((emacs (26))) "A bash/sh Flymake backend" single ((:commit . "deed7160f2be6bfffe46c4cc77d0f1fefd03f82a") (:authors ("Federico Tedin" . "federicotedin@gmail.com")) (:maintainer "Federico Tedin" . "federicotedin@gmail.com") (:url . "https://github.com/federicotdn/flymake-shellcheck"))]) (flymake-shell . [(20170723 146) ((flymake-easy (0 1))) "A flymake syntax-checker for shell scripts" single ((:commit . "a16cf453056b9849cc7c912bb127fb0b08fc6dab") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-shell"))]) (flymake-sass . [(20170723 146) ((flymake-easy (0 1))) "Flymake handler for sass and scss files" single ((:commit . "2de28148e92deb93bff3d55fe14e7c67ac476056") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-sass"))]) (flymake-rust . [(20170729 2139) ((flymake-easy (0 1))) "A flymake handler for rust-mode files" single ((:commit . "2f42d1f2dad73ec9de460eda6176e3ab25c446f0") (:authors ("Joao Oliveira" . "joaoxsouls@gmail.com")) (:maintainer "Joao Oliveira" . "joaoxsouls@gmail.com") (:url . "https://github.com/joaoxsouls/flymake-rust"))]) (flymake-ruby . [(20170723 146) ((flymake-easy (0 1))) "A flymake handler for ruby-mode files" single ((:commit . "6c320c6fb686c5223bf975cc35178ad6b195e073") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-ruby"))]) (flymake-racket . [(20180912 109) ((emacs (26 1))) "Flymake extension for Racket." single ((:commit . "cf5c1d10280693bd2b8a6533fbca4383fb998c07") (:keywords "languages" "racket" "scheme") (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/flymake-racket"))]) (flymake-python-pyflakes . [(20170723 146) ((flymake-easy (0 8))) "A flymake handler for python-mode files using pyflakes (or flake8)" single ((:commit . "1d65c26bf65a5dcbd29fcd967e2feb90e1e7a33d") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-python-pyflakes"))]) (flymake-puppet . [(20170801 554) ((flymake-easy (0 9))) "Flymake handler using puppet-lint" single ((:commit . "8a772395f4ccc59d883712ab53a92a17c1d9a429") (:authors ("Ben Prew")) (:maintainer "Ben Prew") (:url . "https://github.com/benprew/flymake-puppet"))]) (flymake-phpcs . [(20140713 631) ((flymake-easy (0 9))) "making flymake work with PHP CodeSniffer" single ((:commit . "a4d383474e055e554aaf1cd617055d5d7181aa50") (:keywords "flymake" "phpcs" "php") (:authors ("Akiha Senda")) (:maintainer "Akiha Senda") (:url . "https://github.com/senda-akiha/flymake-phpcs/"))]) (flymake-php . [(20170723 146) ((flymake-easy (0 1))) "A flymake handler for php-mode files" single ((:commit . "c045d01e002ba5e09b05f40e25bf5068d02126bc") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-php"))]) (flymake-perlcritic . [(20120328 814) ((flymake (0 3))) "Flymake handler for Perl to invoke Perl::Critic" tar ((:commit . "edfaa86500ddfa8a6a6f51f5581a81a821277df6") (:authors ("Sam Graham <libflymake-perlcritic-emacs BLAHBLAH illusori.co.uk>")) (:maintainer "Sam Graham <libflymake-perlcritic-emacs BLAHBLAH illusori.co.uk>") (:url . "https://github.com/illusori/emacs-flymake-perlcritic"))]) (flymake-lua . [(20170129 154) nil "Flymake for Lua" single ((:commit . "84589f20066921a5b79cf3a1f914a223a2552d2a") (:keywords "lua") (:authors (nil . "Sébastien Roccaserra (format \"<%s%s@%s.%s>\" \"s\" \"roccaserra\" \"yahoo\" \"com\")")) (:maintainer nil . "Sébastien Roccaserra (format \"<%s%s@%s.%s>\" \"s\" \"roccaserra\" \"yahoo\" \"com\")"))]) (flymake-less . [(20151111 738) ((less-css-mode (0 15)) (flymake-easy (0 1))) "Flymake handler for LESS stylesheets (lesscss.org)" single ((:commit . "32d3c28a9a5c52b82d1741ff9d715013b6498421") (:keywords "languages") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (flymake-ktlint . [(20180831 346) ((emacs (26 1))) "Flymake extension for Ktlint." single ((:commit . "33730a4818b74cb27196f06a9b23045d0af4c16d") (:keywords "languages" "ktlint") (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/flymake-ktlint"))]) (flymake-json . [(20180511 911) ((flymake-easy (0 1))) "A flymake handler for json using jsonlint" single ((:commit . "ae58795f948402e987cda4c15f10354f8ec2d0fd") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-json"))]) (flymake-jslint . [(20170723 146) ((flymake-easy (0 1))) "A flymake handler for javascript using jslint" single ((:commit . "8edb82be605542b0ef62d38d818adcdde335eecb") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-jslint"))]) (flymake-jshint . [(20140319 2200) ((flymake-easy (0 8))) "making flymake work with JSHint" single ((:commit . "79dd554c227883c487db38ac111306c8d5382c95") (:keywords "flymake" "jshint" "javascript") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (flymake-hlint . [(20170723 146) ((flymake-easy (0 1))) "A flymake handler for haskell-mode files using hlint" single ((:commit . "f910736b26784efc9a2fa29503f45c1f1dd0aa38") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-hlint"))]) (flymake-haskell-multi . [(20170723 146) ((flymake-easy (0 1))) "Syntax-check haskell-mode using both ghc and hlint" tar ((:commit . "b564a94312259885b1380272eb867bf52a164020"))]) (flymake-haml . [(20170723 146) ((flymake-easy (0 1))) "A flymake handler for haml files" single ((:commit . "22a81e8484734552d461e7ae7305664dc244447e") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-haml"))]) (flymake-gradle . [(20180924 200) ((emacs (26 1))) "Flymake extension for Gradle." single ((:commit . "c6045dd00e0bb1ec2b19df32756c61cbc5b3728b") (:keywords "languages" "gradle") (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/flymake-gradle"))]) (flymake-google-cpplint . [(20140205 1325) ((flymake-easy (0 9))) "Help to comply with the Google C++ Style Guide" single ((:commit . "905d32e84a27f18a78bec455ca930ab1ff9ae31e") (:keywords "flymake" "c" "c++") (:authors ("Akiha Senda" . "senda.akiha@gmail.com")) (:maintainer "Akiha Senda" . "senda.akiha@gmail.com") (:url . "https://github.com/senda-akiha/flymake-google-cpplint/"))]) (flymake-go . [(20150714 733) nil "A flymake handler for go-mode files" single ((:commit . "ae83761aa908c1a50ff34af04f00dcc46bca2ce9") (:keywords "go" "flymake") (:authors ("Michael Fellinger" . "michael@iron.io") ("Robert Zaremba" . "robert.marek.zaremba@wp.eu")) (:maintainer "Michael Fellinger" . "michael@iron.io") (:url . "https://github.com/robert-zaremba/flymake-go"))]) (flymake-gjshint . [(20130327 1232) nil "A flymake handler for javascript using both jshint and gjslint" single ((:commit . "dc957c14cb060819585de8aedb330e24efa4b784") (:keywords "flymake" "javascript" "jshint" "gjslint") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com"))]) (flymake-elixir . [(20130810 1417) nil "A flymake handler for elixir-mode .ex files." single ((:commit . "3810566cffe35d04cc3f01e27fe397d68d52f802") (:authors ("Sylvain Benner" . "syl20bnr@gmail.com")) (:maintainer "Sylvain Benner" . "syl20bnr@gmail.com"))]) (flymake-easy . [(20140818 755) nil "Helpers for easily building flymake checkers" single ((:commit . "de41ea49503f71f997e5c359a2ad08df696c0147") (:keywords "convenience" "internal") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-easy"))]) (flymake-cursor . [(20120322 1757) ((flymake (0 3))) "Show flymake messages in the minibuffer after delay" single ((:commit . "ecc539082c3fc9e91bba33d72c26989217411593") (:keywords "languages" "mode" "flymake") (:authors ("Unknown Original Author") ("Dino Chiesa" . "dpchiesa@hotmail.com") ("Sam Graham <libflymake-emacs BLAHBLAH illusori.co.uk>")) (:maintainer "Sam Graham <libflymake-emacs BLAHBLAH illusori.co.uk>") (:url . "https://github.com/illusori/emacs-flymake-cursor"))]) (flymake-css . [(20170723 146) ((flymake-easy (0 1))) "Flymake support for css using csslint" single ((:commit . "de090163ba289910ceeb61b13368ce42d0f2dfd8") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-css"))]) (flymake-cppcheck . [(20140415 1257) ((flymake-easy (0 9))) "Flymake work with Cppcheck for C/C++" single ((:commit . "9554f504d425a04fa6a875f7e3179bc7cf07dd03") (:keywords "flymake" "cppcheck" "c" "c++") (:authors ("Akiha Senda" . "senda.akiha@gmail.com")) (:maintainer "Akiha Senda" . "senda.akiha@gmail.com") (:url . "https://github.com/senda-akiha/flymake-cppcheck/"))]) (flymake-coffee . [(20170723 146) ((flymake-easy (0 1))) "A flymake handler for coffee script" single ((:commit . "dee295acf30820ed15fe0de17137d50bc27fc80c") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/flymake-coffee"))]) (flycheck-ycmd . [(20181016 618) ((emacs (24)) (dash (2 13 0)) (flycheck (0 22)) (ycmd (1 2)) (let-alist (1 0 5))) "flycheck integration for ycmd" single ((:commit . "ef87d020d3314efbac2e8925c115d0ac5c128c2a") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/emacs-ycmd"))]) (flycheck-yang . [(20180312 1831) ((yang-mode (0 9 4)) (flycheck (0 18))) "YANG flycheck checker" single ((:commit . "47881fc42ef0163c47064b72b5d6dbef4f83d778") (:authors (nil . "Andrew Fort (@andaru)")) (:maintainer nil . "Andrew Fort (@andaru)"))]) (flycheck-yamllint . [(20170325 1735) ((flycheck (30))) "Flycheck integration for YAMLLint" single ((:commit . "c2b273d84f15bd03464d6722391e595d7c179a5c") (:keywords "convenience" "languages" "tools") (:authors ("Krzysztof Magosa" . "krzysztof@magosa.pl")) (:maintainer "Krzysztof Magosa" . "krzysztof@magosa.pl") (:url . "https://github.com/krzysztof-magosa/flycheck-yamllint"))]) (flycheck-xcode . [(20180122 651) ((emacs (25 1)) (flycheck (0 25))) "Flycheck extension for Apple's Xcode." single ((:commit . "6147ab777e2c08e4f5ffdbd85d3013ca700fa835") (:keywords "languages" "xcode") (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/flycheck-xcode"))]) (flycheck-vdm . [(20181108 2022) ((emacs (24)) (flycheck (32 -4)) (vdm-mode (0 0 3))) "Syntax checking for vdm-mode" single ((:commit . "a8f9eb9addc51bc2022a1fce5ad3210961befcce") (:keywords "languages") (:authors ("Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com")) (:maintainer "Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com") (:url . "https://github.com/peterwvj/vdm-mode"))]) (flycheck-vale . [(20180928 742) ((emacs (24 4)) (flycheck (0 22)) (let-alist (1 0 4))) "flycheck integration for vale" single ((:commit . "131dacdf55e2b469d64543e4ae373aa93ec40a4f") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/flycheck-vale"))]) (flycheck-title . [(20170216 2346) ((flycheck (30)) (emacs (24))) "show flycheck errors in the frame title" single ((:commit . "6faea67be8661faf8152217869d16e993cc2bc49") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (flycheck-tip . [(20171020 1048) ((flycheck (29)) (emacs (24 1)) (popup (0 5 0))) "Show flycheck/flymake errors by tooltip" tar ((:commit . "9b0072d92e6b4a52834bf5a34120a0f5e1c8c2fd") (:keywords "flycheck") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/flycheck-tip"))]) (flycheck-tcl . [(20180327 1259) ((emacs (24 4)) (flycheck (0 22))) "A flycheck checker for Tcl using tclchecker" single ((:commit . "7ca23f4673e178b9f5dcc8a82b86cf05b15d7236") (:authors ("Niels Widger" . "niels.widger@gmail.com")) (:maintainer "Niels Widger" . "niels.widger@gmail.com") (:url . "https://github.com/nwidger/flycheck-tcl"))]) (flycheck-swiftlint . [(20180830 340) ((emacs (25 1)) (flycheck (0 25))) "Flycheck extension for Swiftlint." single ((:commit . "65101873c4c9f8e7eac9471188b161eeddda1555") (:keywords "languages" "swiftlint" "swift" "emacs") (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/flycheck-swiftlint"))]) (flycheck-swift3 . [(20181116 1202) ((emacs (24 4)) (flycheck (26))) "Flycheck: Swift support for Apple swift-mode" single ((:commit . "37994f11c93f585119647e6ba10761e9766b593d") (:keywords "convenience" "languages" "tools") (:authors ("Goichi Hirakawa" . "gooichi@gyazsquare.com")) (:maintainer "Goichi Hirakawa" . "gooichi@gyazsquare.com") (:url . "https://github.com/GyazSquare/flycheck-swift3"))]) (flycheck-swift . [(20170129 549) ((emacs (24 4)) (flycheck (0 25))) "Flycheck extension for Apple's Swift." single ((:commit . "4c5ad401252400a78da395fd56a71e67ff8c2761") (:keywords "languages" "swift"))]) (flycheck-status-emoji . [(20180330 2325) ((cl-lib (0 1)) (emacs (24)) (flycheck (0 20)) (let-alist (1 0))) "Show flycheck status using cute, compact emoji" single ((:commit . "4bd113ab42dec9544b66e0a27ed9008ce8148433") (:keywords "convenience" "languages" "tools") (:authors ("Ben Liblit" . "liblit@acm.org")) (:maintainer "Ben Liblit" . "liblit@acm.org") (:url . "https://github.com/liblit/flycheck-status-emoji"))]) (flycheck-stack . [(20160520 944) ((flycheck (26)) (haskell-mode (13))) "Flychecker using stack ghci" single ((:commit . "f04235e00998000ee2c305f5a3ee72bb5dbbc926"))]) (flycheck-soar . [(20181106 852) ((emacs (25 1)) (flycheck (0 22))) "Analyze the SQL statements using mi soar." single ((:commit . "d2f03a0af9b625a645f3194dc24cfeee94d92760") (:keywords "convenience") (:authors ("zg" . "13853850881@163.com")) (:maintainer "zg" . "13853850881@163.com") (:url . "https://github.com/tszg/flycheck-soar"))]) (flycheck-rust . [(20180904 1117) ((emacs (24 1)) (flycheck (28)) (dash (2 13 0)) (seq (2 3)) (let-alist (1 0 4))) "Flycheck: Rust additions and Cargo support" single ((:commit . "f1220ccd9acbdb2556765f49f2f3dcb00dca2970") (:keywords "tools" "convenience") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/flycheck/flycheck-rust"))]) (flycheck-rtags . [(20180619 824) ((emacs (24)) (flycheck (0 23)) (rtags (2 10))) "RTags Flycheck integration." single ((:commit . "194cd70d38c3e2e01b9de04d006f94573510aebb") (:authors ("Christian Schwarzgruber" . "c.schwarzgruber.cs@gmail.com")) (:maintainer "Christian Schwarzgruber" . "c.schwarzgruber.cs@gmail.com") (:url . "http://rtags.net"))]) (flycheck-rebar3 . [(20180806 2103) ((flycheck (27))) "Rebar3 flycheck integration for Erlang projects" single ((:commit . "3cca1268c54643204b5bae52e3f0bf5bc921018c") (:keywords "erlang" "flycheck" "rebar3") (:authors ("Joe DeVivo")) (:maintainer "Joe DeVivo") (:url . "https://github/joedevivo/flycheck-rebar3"))]) (flycheck-pyre . [(20181014 155) ((emacs (24)) (flycheck (29)) (cl-lib (0 6))) "Support Pyre in flycheck" tar ((:commit . "58ba48d570e11011a4b70609f3a2565772010ad2") (:authors ("Vyacheslav Linnik" . "vyacheslav.linnik@gmail.com")) (:maintainer "Vyacheslav Linnik" . "vyacheslav.linnik@gmail.com") (:url . "https://github.com/linnik/flycheck-pyre"))]) (flycheck-pyflakes . [(20170330 2311) ((flycheck (0 18))) "Support pyflakes in flycheck" single ((:commit . "61b045939e3743b2162b7e4e73249c66fc2b8f65") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (flycheck-pycheckers . [(20181114 2039) ((flycheck (0 18))) "multiple syntax checker for Python, using Flycheck" tar ((:commit . "73f348b68532c856a32e3c962ebbee14f7b6c059") (:keywords "convenience" "tools" "languages") (:url . "https://github.com/msherry/flycheck-pycheckers"))]) (flycheck-purescript . [(20161121 1707) ((emacs (24 3)) (flycheck (0 22)) (dash (2 12 0)) (let-alist (1 0 4)) (seq (1 11))) "Flycheck: PureScript support" single ((:commit . "30f0435d5e2715053c8c6170b2bce2ae462ac819") (:keywords "convenience" "tools" "languages") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/flycheck-purescript"))]) (flycheck-prospector . [(20180524 450) ((flycheck (0 22))) "Support prospector in flycheck" single ((:commit . "92f2680573290ba4a69a2d6e140f44680efce6a8") (:authors ("Carlos Coelho" . "carlospecter@gmail.com")) (:maintainer "Carlos Coelho" . "carlospecter@gmail.com") (:url . "https://github.com/chocoelho/flycheck-prospector"))]) (flycheck-posframe . [(20180322 607) ((flycheck (0 24)) (emacs (26)) (posframe (0 3 0))) "Show flycheck error messages using posframe.el" single ((:commit . "61bdfd4b04e1651163fdcaa7dc631ad073b3e513") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/flycheck-posframe"))]) (flycheck-pos-tip . [(20180610 1615) ((emacs (24 1)) (flycheck (0 22)) (pos-tip (0 4 6))) "Display Flycheck errors in GUI tooltips" single ((:commit . "909113977d37739387c7f099d74a724cfe6efcec") (:keywords "tools" "convenience") (:authors ("Akiha Senda" . "senda.akiha@gmail.com") ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/flycheck/flycheck-pos-tip"))]) (flycheck-popup-tip . [(20170812 2351) ((flycheck (0 22)) (popup (0 5)) (emacs (24))) "Display Flycheck error messages using popup.el" single ((:commit . "ef86aad907f27ca076859d8d9416f4f7727619c6") (:keywords "convenience" "tools" "flycheck" "tooltip") (:authors ("Saša Jovanić" . "sasa@simplify.ba")) (:maintainer "Saša Jovanić" . "sasa@simplify.ba") (:url . "https://github.com/flycheck/flycheck-popup-tip/"))]) (flycheck-pony . [(20160501 2117) ((flycheck (0 25 1))) "Pony support in Flycheck" single ((:commit . "ef27475a14090396a01924d131bfee9e163cf6e9") (:keywords "tools" "convenience") (:url . "https://github.com/seantallen/flycheck-pony"))]) (flycheck-plantuml . [(20171018 111) ((flycheck (0 24)) (emacs (24 4)) (plantuml-mode (1 2 2))) "Integrate plantuml with flycheck" single ((:commit . "183be89e1dbba0b38237dd198dff600e0790309d") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/flycheck-plantuml"))]) (flycheck-pkg-config . [(20180430 2243) ((dash (2 8 0)) (s (1 9 0)) (flycheck (29))) "configure flycheck using pkg-config" single ((:commit . "e72e4c1b8153611ed82695673af84096f4d52795") (:keywords "flycheck") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (flycheck-phpstan . [(20180801 1741) ((emacs (24 3)) (flycheck (26)) (phpstan (0 2 1))) "Flycheck integration for PHPStan" single ((:commit . "beac0e0e7160454d4f42162b3502a36ccf488120") (:keywords "convenience" "php") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/phpstan.el"))]) (flycheck-perl6 . [(20180509 2201) ((emacs (24 3)) (flycheck (0 22))) "Perl 6 support in Flycheck" single ((:commit . "b804702305d7a6e26f762ff98cfdeec2e9dd4cb7") (:keywords "tools" "convenience") (:authors ("Hinrik Örn Sigurðsson" . "hinrik.sig@gmail.com")) (:maintainer "Hinrik Örn Sigurðsson" . "hinrik.sig@gmail.com") (:url . "https://github.com/hinrik/flycheck-perl6"))]) (flycheck-pact . [(20180920 2052) ((emacs (24 3)) (flycheck (0 25)) (pact-mode (0 0 4))) "Flycheck support for pact-mode" single ((:commit . "0e10045064ef89ec8b6f5a473073d47b976a2ca3") (:keywords "pact" "lisp" "languages" "blockchain" "smartcontracts" "tools" "linting") (:authors ("Stuart Popejoy")) (:maintainer "Stuart Popejoy" . "stuart@kadena.io") (:url . "http://github.com/kadena-io/flycheck-pact"))]) (flycheck-package . [(20161111 2251) ((flycheck (0 22)) (package-lint (0 2))) "A Flycheck checker for elisp package authors" single ((:commit . "6d99248b45eea1e5236062f38e524230efdb1a84") (:keywords "lisp") (:authors ("Steve Purcell" . "steve@sanityinc.com") ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (flycheck-ocaml . [(20170730 2153) ((emacs (24 1)) (flycheck (0 22)) (merlin (3 0 1)) (let-alist (1 0 3))) "Flycheck: OCaml support" single ((:commit . "8707a7bf545a8639a6a5c600a98d9a2ea1487dc9") (:keywords "convenience" "tools" "languages") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/flycheck/flycheck-ocaml"))]) (flycheck-objc-clang . [(20181116 1201) ((emacs (24 4)) (flycheck (26))) "Flycheck: Objective-C support using Clang" single ((:commit . "a3781e47f14068c811534a3348bf479eeb3f2041") (:keywords "convenience" "languages" "tools") (:authors ("Goichi Hirakawa" . "gooichi@gyazsquare.com")) (:maintainer "Goichi Hirakawa" . "gooichi@gyazsquare.com") (:url . "https://github.com/GyazSquare/flycheck-objc-clang"))]) (flycheck-nimsuggest . [(20171027 2208) ((flycheck (0 23)) (emacs (24 3))) "flycheck backend for Nim using nimsuggest" single ((:commit . "dc9a5de1cb3ee05db5794d824610959a1f603bc9") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/flycheck-nimsuggest"))]) (flycheck-nim . [(20160715 428) ((dash (2 4 0)) (flycheck (0 20))) "Defines a flycheck syntax checker for nim" single ((:commit . "6d27349b66e44578851e6148299709d64d2bde41") (:authors ("Adam Schwalm" . "adamschwalm@gmail.com")) (:maintainer "Adam Schwalm" . "adamschwalm@gmail.com") (:url . "https://github.com/ALSchwalm/flycheck-nim"))]) (flycheck-mypy . [(20180907 1016) ((flycheck (0 18))) "Support mypy in flycheck" single ((:commit . "6f99166f5229c7b4298cff1818b7eaece1c9c8bd") (:authors ("Lorenzo Bolla" . "lbolla@gmail.com")) (:maintainer "Lorenzo Bolla" . "lbolla@gmail.com"))]) (flycheck-mmark . [(20180203 1732) ((emacs (24 4)) (flycheck (0 29))) "Flycheck checker for the MMark markdown processor" single ((:commit . "7fdcc48ff6ffa5e7db126a76f4948ab08b9eb8d4") (:keywords "convenience" "text") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mmark-md/flycheck-mmark"))]) (flycheck-mix . [(20170118 1430) ((flycheck (27)) (elixir-mode (1 8 0))) "Elixir mix flycheck integration" single ((:commit . "76684d4b5987925b98b254aab656f8bf8198ab88") (:keywords "elixir" "flycheck" "mix") (:authors ("Tomasz Kowal" . "tomekowal@gmail.com")) (:maintainer "Tomasz Kowal" . "tomekowal@gmail.com") (:url . "https://github.com/tomekowal/flycheck-mix"))]) (flycheck-mercury . [(20181118 1952) ((flycheck (0 22)) (s (1 9 0)) (dash (2 4 0))) "Mercury support in Flycheck" single ((:commit . "b6807a8db70981e21a91a93324c31e49de85c89f") (:keywords "convenience" "languages" "tools") (:authors ("Matthias Güdemann" . "matthias.gudemann@gmail.com")) (:maintainer "Matthias Güdemann" . "matthias.gudemann@gmail.com") (:url . "https://github.com/flycheck/flycheck-mercury"))]) (flycheck-liquidhs . [(20170412 2326) ((flycheck (0 15))) "A flycheck checker for Haskell using liquid (i.e. liquidhaskell)" single ((:commit . "c27252ac24d77f4b6eec76a4ba9cd61761a3fba9") (:keywords "convenience" "languages" "tools") (:authors ("Ranjit Jhala" . "jhala@cs.ucsd.edu")) (:maintainer "Ranjit Jhala" . "jhala@cs.ucsd.edu") (:url . "https://github.com/ucsd-progsys/liquidhaskell/flycheck-liquid.el"))]) (flycheck-lilypond . [(20171203 1332) ((emacs (24 3)) (flycheck (0 22))) "LilyPond support in Flycheck" single ((:commit . "cc1b7677a932c42e5dab1661ad7b923d4aae744c") (:keywords "tools" "convenience") (:authors ("Hinrik Örn Sigurðsson" . "hinrik.sig@gmail.com")) (:maintainer "Hinrik Örn Sigurðsson" . "hinrik.sig@gmail.com") (:url . "https://github.com/hinrik/flycheck-lilypond"))]) (flycheck-ledger . [(20180819 321) ((flycheck (0 15))) "Flycheck integration for ledger files" single ((:commit . "8d7f52a4c7f80ca396ef0fc6c7d8e9f005778dfc") (:keywords "convenience" "languages" "tools") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (flycheck-kotlin . [(20170122 1137) ((flycheck (0 18))) "Support kotlin in flycheck" single ((:commit . "cbb9fbf70dbe8efcc3971b3606ee95c97469b1fe") (:authors ("Elric Milon" . "whirm_REMOVETHIS__@gmx.com")) (:maintainer "Elric Milon" . "whirm_REMOVETHIS__@gmx.com"))]) (flycheck-julia . [(20170729 2141) ((emacs (24)) (flycheck (0 22))) "Julia support for Flycheck" single ((:commit . "213b60a5a9a1cb7887260e1d159b5bb27167cbb6") (:keywords "convenience" "tools" "languages") (:authors ("Guido Kraemer" . "guido.kraemer@gmx.de")) (:maintainer "Guido Kraemer" . "guido.kraemer@gmx.de") (:url . "https://github.com/gdkrmr/flycheck-julia"))]) (flycheck-joker . [(20180913 504) ((flycheck (0 18))) "Add Clojure syntax checker (via Joker) to flycheck" single ((:commit . "51e99e697761ee8dab863930910abdba7607c1bd") (:authors ("Roman Bataev" . "roman.bataev@gmail.com")) (:maintainer "Roman Bataev" . "roman.bataev@gmail.com"))]) (flycheck-jest . [(20180411 328) ((emacs (25 1)) (flycheck (0 25))) "Flycheck extension for Jest." single ((:commit . "08f27c5ed97c83c445f99fab58f0b6c826f14449") (:keywords "languages" "jest") (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/flycheck-jest"))]) (flycheck-irony . [(20180604 2152) ((emacs (24 1)) (flycheck (0 22)) (irony (0 2 0))) "Flycheck: C/C++ support via Irony" single ((:commit . "42dbecd4a865cabeb301193bb4d660e26ae3befe") (:keywords "convenience" "tools" "c") (:authors ("Guillaume Papin" . "guillaume.papin@epitech.eu")) (:maintainer "Guillaume Papin" . "guillaume.papin@epitech.eu") (:url . "https://github.com/Sarcasm/flycheck-irony/"))]) (flycheck-inline . [(20180821 849) ((emacs (25 1)) (flycheck (31))) "Display Flycheck errors inline" single ((:commit . "6381d676462dab74f337e6fed9ada121fec25caf") (:keywords "tools" "convenience") (:authors ("fmdkdd")) (:maintainer "fmdkdd") (:url . "https://github.com/flycheck/flycheck-inline"))]) (flycheck-hdevtools . [(20160926 702) ((flycheck (0 21 -4 1)) (dash (2 0))) "A flycheck checker for Haskell using hdevtools" single ((:commit . "eab1fc184854341a56154623a131cab6ff0ce18c") (:keywords "convenience" "languages" "tools") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/flycheck/flycheck-hdevtools"))]) (flycheck-haskell . [(20181117 1001) ((emacs (24 3)) (flycheck (0 25)) (haskell-mode (13 7)) (dash (2 4 0)) (seq (1 11)) (let-alist (1 0 1))) "Flycheck: Automatic Haskell configuration" tar ((:commit . "072c854a65a73b441624a90a8aa3b86ec64cdd1e") (:keywords "tools" "convenience") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/flycheck/flycheck-haskell"))]) (flycheck-grammalecte . [(20181115 1646) ((emacs (24)) (flycheck (26))) "Integrate Grammalecte with Flycheck" tar ((:commit . "fe5d94dc6175fe8cc09965956fda5c0de0b280d6") (:keywords "i18n" "text") (:authors ("Guilhem Doulcier" . "guilhem.doulcier@espci.fr") ("Étienne Deparis" . "etienne@depar.is")) (:maintainer "Guilhem Doulcier" . "guilhem.doulcier@espci.fr") (:url . "https://git.deparis.io/flycheck-grammalecte/"))]) (flycheck-gradle . [(20180924 200) ((emacs (25 1)) (flycheck (0 25))) "Flycheck extension for Gradle." single ((:commit . "6a61daada4b2353a1c7c223cf8d5bccb907534c8") (:keywords "languages" "gradle") (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/flycheck-gradle"))]) (flycheck-gometalinter . [(20180424 941) ((emacs (24)) (flycheck (0 22))) "flycheck checker for gometalinter" single ((:commit . "422f6e4b77b27fd7370f0c88437ac5072c9d3413") (:keywords "convenience" "tools" "go") (:authors ("Diep Pham" . "me@favadi.com")) (:maintainer "Diep Pham" . "me@favadi.com") (:url . "https://github.com/favadi/flycheck-gometalinter"))]) (flycheck-golangci-lint . [(20180711 817) ((emacs (24)) (flycheck (0 22))) "Flycheck checker for golangci-lint" single ((:commit . "b4b51aa6fe5335c0f46f2f83c7dc32e4141ff9f1") (:keywords "convenience" "tools" "go") (:authors ("Wei Jian Gan" . "weijiangan@outlook.com")) (:maintainer "Wei Jian Gan" . "weijiangan@outlook.com") (:url . "https://github.com/weijiangan/flycheck-golangci-lint"))]) (flycheck-ghcmod . [(20150114 632) ((flycheck (0 21 -4 1)) (dash (2 0))) "A flycheck checker for Haskell using ghcmod" single ((:commit . "6bb7b7d879f05bbae54e99eb04806c877adf3ccc") (:keywords "convenience" "languages" "tools") (:authors ("Shen Chao" . "scturtle@gmail.com")) (:maintainer "Shen Chao" . "scturtle@gmail.com") (:url . "https://github.com/scturtle/flycheck-ghcmod"))]) (flycheck-flow . [(20180801 1242) ((flycheck (0 18)) (json (1 4))) "Support Flow in flycheck" single ((:commit . "5d42270c798918c05c5e983e774063930bd87838") (:authors ("Lorenzo Bolla" . "lbolla@gmail.com")) (:maintainer "Lorenzo Bolla" . "lbolla@gmail.com"))]) (flycheck-flawfinder . [(20170116 327) ((flycheck (0 24)) (emacs (24 4))) "Integrate flawfinder with flycheck" single ((:commit . "7d964d38023b088adf3ffc2fddeead81f4491a45") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/flycheck-flawfinder"))]) (flycheck-elsa . [(20181029 1421) ((emacs (25)) (seq (2 0)) (cask (0 8 4))) "Flycheck for Elsa." single ((:commit . "a48d1b1c28f908dcb0bc3aece38c161059df336d") (:keywords "convenience") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/emacs-elsa/flycheck-elsa"))]) (flycheck-elm . [(20181107 146) ((flycheck (0 29 -4)) (emacs (24 4)) (let-alist (1 0 5)) (seq (2 20))) "Flycheck support for the elm language" single ((:commit . "debd0af563cb6c2944367a691c7fa3021d9378c1") (:authors ("Brian Sermons")) (:maintainer "Brian Sermons") (:url . "https://github.com/bsermons/flycheck-elm"))]) (flycheck-elixir . [(20180810 642) ((flycheck (0 25))) "Support Elixir in flycheck" single ((:commit . "11998d7e3e63a33453e934d25b3673f7c558e579") (:authors ("Lorenzo Bolla" . "lbolla@gmail.com")) (:maintainer "Lorenzo Bolla" . "lbolla@gmail.com"))]) (flycheck-dtrace . [(20180903 1630) ((emacs (25 1)) (flycheck (0 22))) "Flycheck: DTrace support" single ((:commit . "951fab3a15c11d92b9fac1ea4791a80dfe034a00") (:keywords "languages" "convenience" "tools") (:authors ("Jürgen Hötzel" . "juergen@hoetzel.info")) (:maintainer "Jürgen Hötzel" . "juergen@hoetzel.info"))]) (flycheck-dogma . [(20170125 721) ((flycheck (29))) "flycheck checker for elixir dogma" single ((:commit . "eea1844a81e87e2488b05e703a93272d0fc3bc74") (:authors ("Aaron Jensen" . "aaronjensen@gmail.com")) (:maintainer "Aaron Jensen" . "aaronjensen@gmail.com") (:url . "https://github.com/aaronjensen/flycheck-dogma"))]) (flycheck-dmd-dub . [(20180625 1635) ((flycheck (0 24)) (f (0 18 2))) "Sets flycheck-dmd-include-paths from dub package information" single ((:commit . "d7df2895d7d27cc39916816e3c32a60ce0e1d2d9") (:keywords "languages") (:authors ("Atila Neves" . "atila.neves@gmail.com")) (:maintainer "Atila Neves" . "atila.neves@gmail.com") (:url . "http://github.com/atilaneves/flycheck-dmd-dub"))]) (flycheck-dialyzer . [(20160326 1430) ((flycheck (0 18))) "Support dialyzer in flycheck" single ((:commit . "a5df0db95ac69f397b5f85d325a6d88cf8974f64") (:authors ("Lorenzo Bolla" . "lbolla@gmail.com")) (:maintainer "Lorenzo Bolla" . "lbolla@gmail.com"))]) (flycheck-dialyxir . [(20170515 1525) ((flycheck (29))) "flycheck checker for elixir dialyxir" single ((:commit . "adfb73374cb2bee75724822972f405f2ec371199") (:authors ("Aaron Jensen" . "aaronjensen@gmail.com")) (:maintainer "Aaron Jensen" . "aaronjensen@gmail.com") (:url . "https://github.com/aaronjensen/flycheck-dialyxir"))]) (flycheck-demjsonlint . [(20161115 718) ((flycheck (30))) "Flychecker for json-mode using jsonlint from demjson" tar ((:commit . "a3dfe1df8ecdea76c076c0849901427567356228") (:keywords "convenience" "tools") (:authors ("Zenkie Zhu" . "451218651@qq.com")) (:maintainer "Zenkie Zhu" . "451218651@qq.com") (:url . "https://github.com/z4139jq/flycheck-demjsonlint"))]) (flycheck-dedukti . [(20171103 1212) ((flycheck (0 19)) (dedukti-mode (0 1))) "Flycheck integration of Dedukti" single ((:commit . "3dbff5646355f39d57a3ec514f560a6b0082a1cd") (:keywords "convenience" "languages" "tools" "flycheck" "dedukti") (:authors ("Raphaël Cauderlier")) (:maintainer "Raphaël Cauderlier") (:url . "https://github.com/rafoo/flycheck-dedukti"))]) (flycheck-d-unittest . [(20160522 417) ((flycheck (0 21 -4 1)) (dash (1 4 0))) "Add D unittest support to flycheck" single ((:commit . "3e614f23cb4a5566fd7988dbcaaf254af81c7718") (:keywords "flycheck" "d") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com") (:url . "https://github.com/tom-tan/flycheck-d-unittest/"))]) (flycheck-cython . [(20170724 958) ((flycheck (0 25))) "Support Cython in flycheck" single ((:commit . "ecc4454d35ab5317ab66a04406f36f0c1dbc0b76") (:authors ("Lorenzo Bolla" . "lbolla@gmail.com")) (:maintainer "Lorenzo Bolla" . "lbolla@gmail.com"))]) (flycheck-cstyle . [(20160905 2341) ((flycheck (0 24)) (emacs (24 4))) "Integrate cstyle with flycheck" single ((:commit . "207285140a353d08cf1fc450cacab158bc98ba82") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/flycheck-cstyle"))]) (flycheck-css-colorguard . [(20161031 1122) ((flycheck (0 22)) (emacs (24))) "Detect similar colors in CSS" single ((:commit . "ae94fa0396acd99f9ec36d9572459df793f37fe8") (:keywords "flycheck" "css" "colorguard") (:authors ("Saša Jovanić" . "info@simplify.ba")) (:maintainer "Saša Jovanić" . "info@simplify.ba") (:url . "https://github.com/Simplify/flycheck-css-colorguard/"))]) (flycheck-crystal . [(20180627 242) ((flycheck (30))) "Add support for Crystal to Flycheck" single ((:commit . "8649736fea8960a5e54c3ec934484f231a518ea5") (:keywords "tools" "crystal") (:url . "https://github.com/crystal-lang-tools/emacs-crystal-mode"))]) (flycheck-credo . [(20170526 1545) ((flycheck (29))) "flycheck checker for elixir credo" single ((:commit . "e88f11ead53805c361ec7706e44c3dfee1daa19f") (:authors ("Aaron Jensen" . "aaronjensen@gmail.com")) (:maintainer "Aaron Jensen" . "aaronjensen@gmail.com") (:url . "https://github.com/aaronjensen/flycheck-credo"))]) (flycheck-coverity . [(20170704 59) ((flycheck (0 24)) (dash (2 12 0)) (emacs (24 4))) "Integrate Coverity with flycheck" single ((:commit . "cb211e3dd50413a5042eb20175be518214591c9d") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/flycheck-coverity"))]) (flycheck-color-mode-line . [(20171122 707) ((flycheck (0 15)) (dash (1 2)) (emacs (24 1))) "Change mode line color with Flycheck status" single ((:commit . "cc474804d4e8088a627485faaf4217a5781aec7d") (:keywords "convenience" "language" "tools") (:authors ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainer "Sylvain Benner" . "sylvain.benner@gmail.com"))]) (flycheck-clojure . [(20180721 1412) ((cider (0 8 1)) (flycheck (0 22 -4 1)) (let-alist (1 0 1)) (emacs (24))) "Flycheck: Clojure support" single ((:commit . "d81d875f83f7db26cd7bf43d0f9bab272fb54a3c") (:authors ("Peter Fraenkel" . "pnf@podsnap.com") ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Peter Fraenkel" . "pnf@podsnap.com") (:url . "https://github.com/clojure-emacs/squiggly-clojure"))]) (flycheck-clangcheck . [(20150712 710) ((cl-lib (0 5)) (seq (1 7)) (flycheck (0 17))) "A Flycheck checker difinition for ClangCheck." single ((:commit . "24a9424c484420073a24443a829fd5779752362b") (:authors ("kumar8600" . "kumar8600@gmail.com")) (:maintainer "kumar8600" . "kumar8600@gmail.com") (:url . "https://github.com/kumar8600/flycheck-clangcheck"))]) (flycheck-clang-tidy . [(20171024 808) ((flycheck (0 30))) "Flycheck syntax checker using clang-tidy" single ((:commit . "b8ebd49693f67e08e420ba847cc88f6721ef9e3e") (:keywords "convenience" "languages" "tools") (:authors (nil . "Sebastian Nagel<sebastian.nagel@ncoding.at>")) (:maintainer nil . "Sebastian Nagel<sebastian.nagel@ncoding.at>") (:url . "https://github.com/ch1bo/flycheck-clang-tidy"))]) (flycheck-clang-analyzer . [(20180917 1425) ((flycheck (0 24)) (emacs (24 4))) "Integrate Clang Analyzer with flycheck" single ((:commit . "5c707505e3ea806fddb54d031ab64351293d7c2d") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/flycheck-clang-analyzer"))]) (flycheck-checkpatch . [(20170217 1025) ((emacs (25)) (flycheck (30))) "Flycheck support for checkpatch.pl tool" single ((:commit . "6461fc7b0d493eb9863814055f8bce5fa35739de") (:authors ("Alexander Yarygin" . "yarygin.alexander@gmail.com")) (:maintainer "Alexander Yarygin" . "yarygin.alexander@gmail.com") (:url . "https://github.com/zpp0/flycheck-checkpatch"))]) (flycheck-checkbashisms . [(20160224 1706) ((emacs (24)) (flycheck (0 25))) "checkbashisms checker for flycheck" single ((:commit . "0794ad763d7cd81286283f6400bc89a81e8e07d4") (:keywords "convenience" "tools" "sh" "unix") (:authors ("Cuong Le" . "cuong.manhle.vn@gmail.com")) (:maintainer "Cuong Le" . "cuong.manhle.vn@gmail.com") (:url . "https://github.com/Gnouc/flycheck-checkbashisms"))]) (flycheck-cask . [(20160928 926) ((emacs (24 1)) (flycheck (0 14)) (dash (2 4 0))) "Cask support in Flycheck" single ((:commit . "c3a51147eddeb7347de81f6a498fc96538bac499") (:keywords "tools" "convenience") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/flycheck/flycheck-cask"))]) (flycheck-bashate . [(20160630 440) ((flycheck (0 24)) (emacs (24 4))) "Integrate bashate with flycheck" single ((:commit . "77fa03dbc578c34fe71ca44926bac2aff8f2b021") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/flycheck-bashate"))]) (flycheck-ats2 . [(20170225 1636) ((emacs (24 1)) (flycheck (0 22))) "Flycheck: ATS2 support" single ((:commit . "9f77add8408462af35bdddf87e37a661880255e3") (:keywords "convenience" "tools" "languages") (:authors ("Mark Laws" . "mdl@60hz.org")) (:maintainer "Mark Laws" . "mdl@60hz.org") (:url . "http://github.com/drvink/flycheck-ats2"))]) (flycheck-apertium . [(20160406 1318) ((flycheck (0 25))) "Apertium checkers in flycheck" tar ((:commit . "71cf49d5aaee962b995583384bfa045a1d4c3db7") (:keywords "convenience" "tools" "xml") (:authors ("Kevin Brubeck Unhammer" . "unhammer+apertium@mm.st")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer+apertium@mm.st") (:url . "http://wiki.apertium.org/wiki/Emacs"))]) (flycheck . [(20181018 1021) ((dash (2 12 1)) (pkg-info (0 4)) (let-alist (1 0 4)) (seq (1 11)) (emacs (24 3))) "On-the-fly syntax checking" tar ((:commit . "894d96f75fed380a3a26103da88bb9c75a7997f3") (:keywords "convenience" "languages" "tools") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Clément Pit-Claudel" . "clement.pitclaudel@live.com") (:url . "http://www.flycheck.org"))]) (flx-isearch . [(20180103 514) ((emacs (24)) (flx (20140821)) (cl-lib (0 5))) "Fuzzy incremental searching for emacs" single ((:commit . "f132fd6367e369885ab3a865fbfe20eee989bc0b") (:keywords "convenience" "search" "flx") (:authors ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainer "PythonNut" . "pythonnut@pythonnut.com") (:url . "https://github.com/pythonnut/flx-isearch"))]) (flx-ido . [(20180117 1519) ((flx (0 1)) (cl-lib (0 3))) "flx integration for ido" single ((:commit . "46040d0b096a0340d91235561f27a959a61d0fef") (:authors ("Le Wang")) (:maintainer "Le Wang") (:url . "https://github.com/lewang/flx"))]) (flx . [(20151030 1812) ((cl-lib (0 3))) "fuzzy matching with good sorting" single ((:commit . "46040d0b096a0340d91235561f27a959a61d0fef") (:authors ("Le Wang")) (:maintainer "Le Wang") (:url . "https://github.com/lewang/flx"))]) (fluxus-mode . [(20170210 1941) ((osc (0 1)) (emacs (24 4))) "Major mode for interfacing with Fluxus" single ((:commit . "3661d4dfdaf249138e7f215f15f291c9391ede8d") (:keywords "languages") (:authors ("modula t." . "defaultxr@gmail.com")) (:maintainer "modula t." . "defaultxr@gmail.com") (:url . "https://github.com/defaultxr/fluxus-mode"))]) (flucui-themes . [(20181015 1821) ((emacs (24))) "Custom theme inspired by the Flat UI palette" tar ((:commit . "eba54099a8a42524ccf41fe724ad495d528abcd2") (:keywords "lisp") (:authors ("MetroWind" . "chris.corsair@gmail.com")) (:maintainer "MetroWind" . "chris.corsair@gmail.com") (:url . "https://github.com/MetroWind/flucui-theme"))]) (flower . [(20181025 1626) ((emacs (24 4)) (clomacs (0 0 3))) "Emacs task tracker client." tar ((:commit . "49e224ab26d85f5cd4a3ad9cdac391264b80ad5e") (:keywords "hypermedia" "outlines" "tools" "vc") (:authors ("Sergey Sobko" . "SSobko@ptsecurity.com")) (:maintainer "Sergey Sobko" . "SSobko@ptsecurity.com") (:url . "https://github.com/PositiveTechnologies/flower"))]) (flow-minor-mode . [(20180315 1824) ((emacs (25 1))) "Flow type mode based on web-mode." single ((:commit . "d1b32a7dd0d33c6a00a106da5f4b2323602cbd3e") (:url . "https://github.com/an-sh/flow-minor-mode"))]) (floobits . [(20180801 524) ((json (1 2)) (highlight (0))) "Floobits plugin for real-time collaborative editing" tar ((:commit . "489b294a7f30ecd2af2edc0823dead8102f27af6") (:keywords "comm" "tools") (:authors ("Matt Kaniaris") ("Geoff Greer")) (:maintainer "Matt Kaniaris") (:url . "http://github.com/Floobits/floobits-emacs"))]) (fliptext . [(20171124 2056) nil "Input method for flipping characters upside down" single ((:commit . "fd821f645ffebae6ae3894afa7ba7fc06f91afc6") (:keywords "games" "i18n") (:authors ("André Riemann" . "andre.riemann@web.de")) (:maintainer "André Riemann" . "andre.riemann@web.de"))]) (flimenu . [(20170418 147) ((dash (2 10 0)) (emacs (24 4))) "Flatten imenu automatically" single ((:commit . "9351201d89b05cbdaec312a6ebd7fd10c38d6112") (:keywords "imenu" "browse" "structure" "hook" "mode" "matching" "tools" "convenience" "files") (:authors ("Ivan Malison" . "IvanMalison@gmail.com")) (:maintainer "Ivan Malison" . "IvanMalison@gmail.com") (:url . "https://github.com/IvanMalison/flimenu"))]) (flim . [(20180328 2324) ((apel (10 8))) "A library to provide basic features about message representation or encoding." tar ((:commit . "faaa2b1f2bb8fcf835ddfb8981654e4d3b2bdbc6"))]) (flex-isearch . [(20170308 2010) nil "Flex matching (like ido) in isearch." single ((:keywords "convenience" "search") (:authors ("Jonathan Kotta" . "jpkotta@gmail.com")) (:maintainer "Jonathan Kotta" . "jpkotta@gmail.com") (:url . "https://bitbucket.org/jpkotta/flex-isearch"))]) (flex-compile . [(20181107 426) ((emacs (25)) (buffer-manage (0 7)) (dash (2 13 0))) "Run, evaluate and compile for a many languages and modes." tar ((:commit . "a06f07e658d460cb662fa51c1c5d439ebee10375") (:keywords "compilation" "integration") (:authors ("Paul Landes")) (:maintainer "Paul Landes") (:url . "https://github.com/plandes/flex-compile"))]) (flex-autopair . [(20120809 1218) nil "Automatically insert pair braces and quotes, insertion conditions & actions are highly customizable." single ((:commit . "4bb757f2556a4a51828e2fed8fb81e31e83052cb") (:keywords "keyboard" "input") (:authors ("Yuuki Arisawa" . "yuuki.ari@gmail.com")) (:maintainer "Yuuki Arisawa" . "yuuki.ari@gmail.com") (:url . "https://github.com/uk-ar/flex-autopair.el"))]) (flatui-theme . [(20160619 127) nil "A color theme for Emacs based on flatuicolors.com" single ((:commit . "9c15db5526c15c8dba55023f5698372b19c2a780") (:authors ("John Louis Del Rosario" . "john2x@gmail.com")) (:maintainer "John Louis Del Rosario" . "john2x@gmail.com") (:url . "https://github.com/john2x/flatui-theme.el"))]) (flatui-dark-theme . [(20170513 1422) ((emacs (24))) "Dark color theme with colors from https://flatuicolors.com/" single ((:commit . "5b959a9f743f891e4660b1b432086417947872ea") (:keywords "color" "theme" "dark" "flatui" "faces") (:authors ("Andrew Phillips" . "theasp@gmail.com")) (:maintainer "Andrew Phillips" . "theasp@gmail.com") (:url . "https://github.com/theasp/flatui-dark-theme"))]) (flatland-theme . [(20171113 1521) nil "A simple theme for Emacs based on the Flatland theme for Sublime Text" single ((:commit . "a98a6f19ad4dff0fa3fad1ea487b7d0ef634a19a") (:authors ("Greg Chapple" . "info@gregchapple.com")) (:maintainer "Greg Chapple" . "info@gregchapple.com") (:url . "http://github.com/gregchapple/flatland-emacs"))]) (flatland-black-theme . [(20170808 1312) ((emacs (24 0))) "an Emacs 24 theme based on Flatland Black (tmTheme)" single ((:commit . "348c5d5fe615e6ea13cadc17f046e506e789ce07") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/flatland-black-theme"))]) (flash-region . [(20130923 1817) nil "Flash a region" single ((:commit . "261b3597b23cdd40e5c14262a5687bcc6c1d0901") (:keywords "utility") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))]) (flappymacs . [(20171023 1004) nil "flappybird clone for emacs" single ((:commit . "27f3e21acb22f786606481e3f4e5dc1edbaaaed4") (:keywords "games") (:authors ("Takayuki Sato")) (:maintainer "Takayuki Sato") (:url . "https://github.com/taksatou/flappymacs"))]) (flame . [(20180303 2016) ((emacs (24))) "automatic generation of flamage, as if we needed more." single ((:commit . "a749b2a77b87e505572d0f1f5d59fac76348bb73") (:keywords "games") (:authors ("Ian G. Batten" . "batten@uk.ac.bham.multics") ("Noah Friedman" . "friedman@splode.com")) (:maintainer "Noah Friedman" . "friedman@splode.com") (:url . "https://github.com/mschuldt/flame"))]) (fixmee . [(20150223 1355) ((button-lock (1 0 2)) (nav-flash (1 0 0)) (back-button (0 6 0)) (smartrep (0 0 3)) (string-utils (0 3 2)) (tabulated-list (0))) "Quickly navigate to FIXME notices in code" single ((:commit . "1b8b3460f1e3c3c1784b2a63fb9f4fb3bb4dc084") (:keywords "navigation" "convenience") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/fixmee"))]) (fix-word . [(20180101 615) ((emacs (24 1)) (cl-lib (0 5))) "Convenient word transformation" single ((:commit . "8e66b6a7b599c6c5098490e83ef4e69acf307603") (:keywords "word" "convenience") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/fix-word"))]) (fix-muscle-memory . [(20160823 439) nil "Simple hacks to fix muscle memory problems" single ((:commit . "a123e04f8a1d2982cbf930efb909cad9522ac884") (:keywords "spelling" "typing") (:authors ("Jonathan Arkell" . "jonnay@jonnay.net")) (:maintainer "Jonathan Arkell" . "jonnay@jonnay.net"))]) (fix-input . [(20180101 620) ((emacs (24 4))) "Make input methods play nicely with alternative keyboard layout on OS level" single ((:commit . "37bc0734a2e71d66245ee3960879577e5ef906bb") (:keywords "input" "method") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/fix-input"))]) (fish-mode . [(20180827 303) ((emacs (24))) "Major mode for fish shell scripts" single ((:commit . "35fc7c1e243a7410823088a571ecf378e9f3efa6") (:keywords "fish" "shell") (:authors ("Tony Wang" . "wwwjfy@gmail.com")) (:maintainer "Tony Wang" . "wwwjfy@gmail.com"))]) (fish-completion . [(20180827 829) nil "Add fish completion to pcomplete (shell and Eshell)" single ((:commit . "a73526d67c4c5f7f2e425cec79d56c7517c7f1e9") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainer "Pierre Neidhardt" . "mail@ambrevar.xyz") (:url . "https://gitlab.com/Ambrevar/emacs-fish-completion"))]) (firrtl-mode . [(20180221 2355) ((emacs (24 3))) "mode for working with FIRRTL files" single ((:commit . "1ac00d526018945389bcb2292dbdd8395381774a") (:keywords "languages" "firrtl") (:authors ("Schuyler Eldridge" . "schuyler.eldridge@ibm.com")) (:maintainer "Schuyler Eldridge" . "schuyler.eldridge@ibm.com") (:url . "https://github.com/ibm/firrtl-mode"))]) (firestarter . [(20161219 1323) nil "Execute (shell) commands on save" single ((:commit . "4d6b106f325ac1802eabce3c8a7cd0a4c7a32864") (:keywords "convenience") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/firestarter"))]) (fireplace . [(20160811 1219) nil "A cozy fireplace for emacs" single ((:commit . "23a444f749bcb2b804593e3b2cb9c73cc59231fb") (:keywords "games") (:authors ("Johan Sivertsen" . "johanvts@gmail.com")) (:maintainer "Johan Sivertsen" . "johanvts@gmail.com") (:url . "https://github.com/johanvts/emacs-fireplace"))]) (firefox-controller . [(20160320 1847) ((moz (0)) (popwin (1 0 0)) (cl-lib (0 5))) "An improved Firefox controller" single ((:commit . "a8af8cbf70afaf6b89a26d6ac69af8e92afc181f") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/emacs-firefox-controller"))]) (firecode-theme . [(20170808 1311) ((emacs (24 0))) "an Emacs 24 theme based on FireCode (tmTheme)" single ((:commit . "8b7b03ecdd41e70dab145b98906017e1392eaef4") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (fiplr . [(20140724 645) ((grizzl (0 1 0)) (cl-lib (0 1))) "Fuzzy Search for Files in Projects" tar ((:commit . "3f50159fd42125440d5b0eb9d6398560461f030b"))]) (fingers . [(20160817 829) nil "Modal editing with universal text manipulation helpers." tar ((:commit . "fed0f742afb1d72eaef29d8da394467550a030fa") (:keywords "fingers" "modal" "editing" "workman") (:authors ("Felix Geller" . "fgeller@gmail.com")) (:maintainer "Felix Geller" . "fgeller@gmail.com") (:url . "http://github.com/fgeller/fingers.el"))]) (findr . [(20130127 2032) nil "Breadth-first file-finding facility for (X)Emacs" single ((:commit . "1ddbc0464bb05dcda392b62666ad17239a2152d3") (:keywords "files") (:authors ("David Bakhash" . "cadet@bu.edu")) (:maintainer "David Bakhash" . "cadet@bu.edu"))]) (find-things-fast . [(20150519 2226) nil "Find things fast, leveraging the power of git" single ((:commit . "efc7c189019ed65430e2f9e910e8e0a5ca9d2d03") (:keywords "project" "convenience") (:authors ("Elvio Toccalino and Elliot Glaysher and Phil Hagelberg and Doug Alcorn")) (:maintainer "Elvio Toccalino and Elliot Glaysher and Phil Hagelberg and Doug Alcorn"))]) (find-temp-file . [(20170107 1339) nil "Open quickly a temporary file" single ((:commit . "513005d19d72d71f34481ee00158dd57bd93206f") (:keywords "convenience") (:authors ("Sylvain Rousseau <thisirs at gmail dot com>")) (:maintainer "Sylvain Rousseau <thisirs at gmail dot com>") (:url . "https://github.com/thisirs/find-temp-file.git"))]) (find-file-in-repository . [(20151113 1319) nil "Quickly find files in a git, mercurial or other repository" single ((:commit . "8a8c84a6dbe7a2bba4564c3b58c92d157abfa3f8") (:keywords "files" "convenience" "repository" "project" "source control") (:authors ("Samuel Hoffstaetter" . "samuel@hoffstaetter.com")) (:maintainer "Samuel Hoffstaetter" . "samuel@hoffstaetter.com") (:url . "https://github.com/hoffstaetter/find-file-in-repository"))]) (find-file-in-project . [(20181020 1413) ((ivy (0 10 0)) (emacs (24 3))) "Find file/directory and review Diff/Patch/Commit efficiently everywhere" single ((:commit . "83c9384e0c85ee8e0e4ad79d13a24181b43ae0b0") (:keywords "project" "convenience") (:authors ("Phil Hagelberg, Doug Alcorn, and Will Farrington")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "https://github.com/technomancy/find-file-in-project"))]) (find-by-pinyin-dired . [(20180210 218) ((pinyinlib (0 1 0))) "Find file by first PinYin character of Chinese Hanzi" single ((:commit . "3b4781148dddc84a701ad76c0934ed991ecd59d5") (:keywords "hanzi" "chinese" "dired" "find" "file" "pinyin") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/find-by-pinyin-dired"))]) (finalize . [(20170418 1945) ((emacs (24 1)) (cl-generic (0 3)) (cl-lib (0 3)) (eieio (1 4))) "finalizers for Emacs Lisp" tar ((:commit . "846731531e7d1d80451787992e07bfe7dedbe9ff"))]) (fillcode . [(20171029 1625) nil "Fill (wrap) function calls and expressions in source code" single ((:commit . "d0a9e20f5fcc24a786d09ea19bfb9237681ba823") (:authors ("Ryan Barrett" . "fillcode@ryanb.org")) (:maintainer "Ryan Barrett" . "fillcode@ryanb.org") (:url . "https://snarfed.org/fillcode"))]) (fill-function-arguments . [(20180427 1702) ((emacs (24 4))) "Convert function arguments to/from single line" single ((:commit . "7e4d6928f978a7ead825b4f49092b1d1ca63a0e1") (:keywords "convenience") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com") (:url . "https://github.com/davidshepherd7/fill-function-arguments"))]) (fill-column-indicator . [(20171209 1924) nil "Graphically indicate the fill column" single ((:commit . "d2536b1c48f78679e15a2b50cd5d8c0ffde4b155") (:keywords "convenience") (:authors ("Alp Aker" . "alp.tekin.aker@gmail.com")) (:maintainer "Alp Aker" . "alp.tekin.aker@gmail.com"))]) (filelock . [(20180524 2215) ((emacs (24)) (cl-lib (0)) (f (0))) "Functions for manipulating file locks" single ((:commit . "17a5ca6e0dee14d2e7d92c84be91143bca9d9663") (:keywords "extensions" "files" "tools") (:authors ("Ryan C. Thompson")) (:maintainer "Ryan C. Thompson") (:url . "https://github.com/DarwinAwardWinner/emacs-filelock"))]) (figlet . [(20160218 2237) nil "Annoy people with big, ascii art text" single ((:authors ("Philip Jackson" . "phil@shellarchive.co.uk")) (:maintainer "Philip Jackson" . "phil@shellarchive.co.uk"))]) (fifo-class . [(20160425 558) nil "First in first out abstract class" single ((:commit . "8fe4cf690727f4ac7b67f29c55f845df023c3f21") (:keywords "lisp") (:authors ("Mola-T" . "Mola@molamola.xyz")) (:maintainer "Mola-T" . "Mola@molamola.xyz") (:url . "https://github.com/mola-T/fifo-class"))]) (fic-mode . [(20180603 2035) nil "Show FIXME/TODO/BUG(...) in special face only in comments and strings" single ((:commit . "a05fc36ed54ba0c6dc22ac216a6a72cf191ca13d") (:url . "https://github.com/lewang/fic-mode"))]) (fetch . [(20131201 730) nil "Fetch and unpack resources" single ((:commit . "3f2793afcbbc32f320e572453166f9354ecc6d06") (:authors ("Christian 'crshd' Brassat" . "christian.brassat@gmail.com")) (:maintainer "Christian 'crshd' Brassat" . "christian.brassat@gmail.com") (:url . "https://github.com/crshd/fetch.el"))]) (fennel-mode . [(20181105 431) nil "a major-mode for editing Fennel code" single ((:commit . "b7335f7116944cbe82f20b4012cfcf0073f090ae") (:keywords "languages" "tools") (:authors ("Phil Hagelberg")) (:maintainer "Phil Hagelberg") (:url . "https://gitlab.com/technomancy/fennel-mode"))]) (feebleline . [(20180914 2100) nil "Replace modeline with a slimmer proxy" single ((:commit . "89ddf31ecad885e5491e8d6b71b48c1591b3faec") (:authors ("Benjamin Lindqvist" . "benjamin.lindqvist@gmail.com")) (:maintainer "Benjamin Lindqvist" . "benjamin.lindqvist@gmail.com") (:url . "https://github.com/tautologyclub/feebleline"))]) (feature-mode . [(20170907 1448) nil "Major mode for editing Gherkin (i.e. Cucumber) user stories" tar ((:commit . "722b352c4f0b800a9356dd369c79612782b3b847"))]) (fd-dired . [(20180731 1049) ((emacs (25))) "find-dired alternative using fd" single ((:commit . "fd4c3f490b0b6727592b85f1635e57638dec8f91") (:keywords "tools" "fd" "find" "dired") (:authors ("Rashawn Zhang" . "namy.19@gmail.com")) (:maintainer "Rashawn Zhang" . "namy.19@gmail.com") (:url . "https://github.com/yqrashawn/fd-dired"))]) (fcopy . [(20150304 1403) nil "Funny Copy, set past point HERE then search copy text" single ((:commit . "e355f6ec889d8ecbdb096019c2dc660b1cec4941") (:keywords "convenience") (:authors ("Masayuki Ataka" . "masayuki.ataka@gmail.com")) (:maintainer "Masayuki Ataka" . "masayuki.ataka@gmail.com") (:url . "https://github.com/ataka/fcopy"))]) (fcitx . [(20170914 200) nil "Make fcitx better in Emacs" single ((:commit . "095332fbeb994c908c533fe2ad068c0728211c3d") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/fcitx.el"))]) (faustine . [(20171122 1202) ((emacs (24 3)) (faust-mode (0 3))) "Edit, visualize, build and run Faust code" single ((:commit . "07a38963111518f86123802f9d477be0d4689a3f") (:keywords "languages" "faust") (:authors ("Yassin Philip" . "xaccrocheur@gmail.com")) (:maintainer "Yassin Philip" . "xaccrocheur@gmail.com") (:url . "https://bitbucket.org/yphil/faustine"))]) (faust-mode . [(20180205 926) nil "Faust syntax colorizer for Emacs." single ((:commit . "7c31b22bdbfd2f8c16ec117d2975d56dd61ac15c") (:keywords "languages" "faust") (:authors ("rukano" . "rukano@gmail.com")) (:maintainer "Yassin Philip" . "xaccrocheur@gmail.com") (:url . "https://github.com/rukano/emacs-faust-mode"))]) (fastnav . [(20120211 1457) nil "Fast navigation and editing routines." single ((:commit . "1019ba2b61d1a070204099b23da347278a61bc89") (:keywords "nav" "fast" "fastnav" "navigation") (:authors ("Zsolt Terek" . "zsolt@google.com")) (:maintainer "Zsolt Terek" . "zsolt@google.com"))]) (fastdef . [(20160713 1329) ((ivy (0 7 0)) (w3m (0 0))) "Insert terminology from Google top search results" single ((:commit . "0696f41dc150d35ce31fe8d2ea74f4173818bb55") (:keywords "terminology" "org-mode" "markdown") (:authors ("Chen Bin <chenin DOT sh AT gmail DOT com>")) (:maintainer "Chen Bin <chenin DOT sh AT gmail DOT com>") (:url . "http://github.com/redguardtoo/fastdef"))]) (fasd . [(20180606 505) nil "Emacs integration for the command-line productivity booster `fasd'" single ((:commit . "020c6a4b5fd1498a84ae142d2e32c7ff678fb029") (:keywords "cli" "bash" "zsh" "autojump") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://framagit.org/steckerhalter/emacs-fasd"))]) (farmhouse-theme . [(20160713 2244) nil "Farmhouse Theme, Emacs edition" tar ((:commit . "7ddc1ff13b4a3d5466bd0d33ecb86100352e83a7") (:keywords "color" "theme") (:url . "https://github.com/mattly/emacs-farmhouse-theme"))]) (fancy-narrow . [(20171031 16) nil "narrow-to-region with more eye candy." single ((:commit . "9f4a587f6a5a387271fb665e13f59d41fd42504c") (:keywords "faces" "convenience") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/fancy-narrow"))]) (fancy-battery . [(20150101 1204) ((emacs (24 1))) "Fancy battery display" single ((:commit . "9b88ae77a01aa3edc529840338bcb2db7f445822") (:keywords "convenience" "tools" "hardware") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com") (:url . "https://github.com/lunaryorn/fancy-battery.el"))]) (fakir . [(20140729 1652) ((noflet (0 0 8)) (dash (1 3 2)) (kv (0 0 19))) "fakeing bits of Emacs" single ((:commit . "1fca406ad7de80fece6319ff75d4230b648534b0") (:keywords "lisp" "tools") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "http://github.com/nicferrier/emacs-fakir"))]) (fakespace . [(20120818 6) nil "fake namespaces with defpackage" single ((:commit . "d1bd1f4b14b2690d7a67f9a52622ec51ed84813a") (:authors ("Christopher Wellons" . "mosquitopsu@gmail.com")) (:maintainer "Christopher Wellons" . "mosquitopsu@gmail.com") (:url . "https://github.com/skeeto/elisp-fakespace"))]) (faff-theme . [(20181114 1336) nil "Light Emacs color theme on cornsilk3 background" single ((:commit . "646ab8b56093614679b8465993eae9678e792c12") (:keywords "color" "theme") (:authors ("James Ferguson <(concat \"wjcferguson\" at-sign \"gmail.com\")>")) (:maintainer "James Ferguson <(concat \"wjcferguson\" at-sign \"gmail.com\")>") (:url . "https://github.com/WJCFerguson/emacs-faff-theme"))]) (factlog . [(20130210 140) ((deferred (0 3 1))) "File activity logger" single ((:commit . "6503d77ea882c995b051d22e72db336fb28770fc") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>") (:url . "https://github.com/tkf/factlog"))]) (faceup . [(20170925 1946) nil "Markup language for faces and font-lock regression testing" single ((:commit . "6c92dad56a133e14e7b27831e1bcf9b3a71ff154") (:keywords "faces" "languages") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/faceup"))]) (face-explorer . [(20170710 1901) nil "Library and tools for faces and text properties" single ((:commit . "13bd4553bc4b09215a04d0267be1cb4ed834775c") (:keywords "faces") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/face-explorer"))]) (fabric . [(20171116 656) nil "Launch Fabric using Emacs" tar ((:commit . "df79be341d0b34ed23850f9894136092fa5fea8c") (:keywords "python" "fabric") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@chmouel.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@chmouel.com") (:url . "https://github.com/nlamirault/fabric.el"))]) (f3 . [(20180130 1158) ((emacs (24 3)) (helm (2 8 8)) (cl-lib (0 5))) "a helm interface to find" tar ((:commit . "000009ce4adf7a57eae80512f29c4ec2a1391ce5") (:keywords "find" "file" "files" "helm" "fast" "finder") (:authors ("Danny McClanahan")) (:maintainer "Danny McClanahan") (:url . "https://github.com/cosmicexplorer/f3"))]) (f . [(20180106 922) ((s (1 7 0)) (dash (2 2 0))) "Modern API for working with files and directories" single ((:commit . "de6d4d40ddc844eee643e92d47b9d6a63fbebb48") (:keywords "files" "directories") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/f.el"))]) (eziam-theme . [(20180414 1029) nil "A mostly monochrome theme, inspired by Tao and Leuven, with dark and light versions." tar ((:commit . "96595833110cd64c391e0ccd5230782a8f0a4e08"))]) (ez-query-replace . [(20170814 1321) ((dash (1 2 0)) (s (1 11 0))) "a smarter context-sensitive query-replace that can be reapplied" single ((:commit . "f5dbd2d3e5e62e6b7e7cc1a98fc4d0cd411e5afa") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (eyuml . [(20141028 2227) ((request (0 2 0)) (s (1 8 0))) "Write textual uml diagram from emacs using yuml.me" single ((:commit . "eb29c37316e44a14741f16e894fbcfcb7537dc80") (:keywords "uml") (:authors ("Anthony HAMON" . "hamon.anth@gmail.com")) (:maintainer "Anthony HAMON" . "hamon.anth@gmail.com") (:url . "http://github.com/antham/eyuml"))]) (eyebrowse . [(20180514 1919) ((dash (2 7 0)) (emacs (24 3 1))) "Easy window config switching" single ((:commit . "dfeea9e9cd6dcd78ddc9fccdf9a21f7317f754bc") (:keywords "convenience") (:authors ("Vasilij Schneidermann" . "v.schneidermann@gmail.com")) (:maintainer "Vasilij Schneidermann" . "v.schneidermann@gmail.com") (:url . "https://github.com/wasamasa/eyebrowse"))]) (exwm-x . [(20181117 918) ((cl-lib (0 5)) (exwm (0 17)) (switch-window (0 10)) (swiper (0 9 0)) (bind-key (1 0)) (counsel (0 9 0)) (ivy (0 9 0))) "A derivative wm based on EXWM (emacs x window manager)" tar ((:commit . "c33cc513513c83b55a6c490f68fdb2196d44657d") (:keywords "window-manager" "exwm") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/exwm-x"))]) (exwm-surf . [(20171204 1140) ((emacs (24 4)) (exwm (0 16))) "Interface for Surf (surf.suckless.org) under exwm" single ((:commit . "6c17e2c1597fe4b7b454a1dac23b9127ac951e94") (:keywords "extensions") (:authors ("Peter" . "craven@gmx.net")) (:maintainer "Peter" . "craven@gmx.net") (:url . "https://github.com/ecraven/exwm-surf"))]) (exwm-edit . [(20180905 743) ((emacs (24 4))) "Edit mode for EXWM" single ((:commit . "961c0f3ea45766b888c73d7353da13d329538034") (:keywords "convenience") (:authors ("Ag Ibragimov")) (:maintainer "Ag Ibragimov") (:url . "https://github.com/agzam/exwm-edit"))]) (extmap . [(20181028 1645) ((emacs (24 1))) "Externally-stored constant mapping for Elisp" single ((:commit . "1139b57d8f4276fe56b8416fdaf4745f2cdfe7c3") (:keywords "lisp") (:authors ("Paul Pogonyshev" . "pogonyshev@gmail.com")) (:maintainer "Paul Pogonyshev" . "pogonyshev@gmail.com") (:url . "https://github.com/doublep/extmap"))]) (extend-dnd . [(20151122 1850) nil "R drag and Drop" tar ((:commit . "80c966c93b82c9bb5c6225a432557c39144fc602") (:keywords "extend" "drag and drop") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew L. Fidler") (:url . "https://github.com/mlf176f2/extend-dnd"))]) (extempore-mode . [(20180105 621) ((emacs (24 4))) "Emacs major mode for Extempore source files" single ((:commit . "ae5f40d4b0883a4519e460cd7720e5fcc3a68fa5") (:keywords "extempore") (:authors ("Ben Swift" . "ben@benswift.me")) (:maintainer "Ben Swift" . "ben@benswift.me") (:url . "http://github.com/extemporelang/extempore-emacs-mode"))]) (exsqlaim-mode . [(20170607 1003) ((s (1 10 0))) "Use variables inside sql queries" single ((:commit . "a2e0a62ec8b87193d8eaa695774bfd689324b06c") (:authors ("Ahmad Nazir Raja" . "ahmadnazir@gmail.com")) (:maintainer "Ahmad Nazir Raja" . "ahmadnazir@gmail.com") (:url . "https://github.com/ahmadnazir/exsqlaim-mode"))]) (express . [(20140508 2041) ((string-utils (0 3 2))) "Alternatives to `message'" single ((:commit . "93dae7377eace4a5413ba99aecb6f26f90798725") (:keywords "extensions" "message" "interface") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/express"))]) (expand-region . [(20180817 1134) nil "Increase selected region by semantic units." tar ((:commit . "ed3292473035dc8f3d2f321e82974ef87327808f"))]) (expand-line . [(20151006 207) nil "Expand selection by line" single ((:commit . "75a5d0241f35dd0748ab8ecb4ff16891535be372") (:authors ("Kai Yu" . "yeannylam@gmail.com")) (:maintainer "Kai Yu" . "yeannylam@gmail.com"))]) (exotica-theme . [(20180212 2329) ((emacs (24))) "A dark theme with vibrant colors" single ((:commit . "ff3ef4f6fa38c93b99becad977c7810c990a4d2f") (:keywords "faces" "theme" "dark" "vibrant colors") (:authors ("Bharat Joshi" . "jbharat@outlook.com")) (:maintainer "Bharat Joshi" . "jbharat@outlook.com") (:url . "https://github.com/jbharat/exotica-theme"))]) (exiftool . [(20170822 2132) ((emacs (25))) "Elisp wrapper around ExifTool" single ((:commit . "3a07dbcb975577734d4abf6d68e1ab83a01951bb") (:keywords "data") (:authors ("Arun I" . "arunisaac@systemreboot.net")) (:maintainer "Arun I" . "arunisaac@systemreboot.net") (:url . "https://git.systemreboot.net/exiftool.el"))]) (exec-path-from-shell . [(20180324 204) nil "Get environment variables such as $PATH from the shell" single ((:commit . "9bc0f4a762f16d488376fb52409c58239a86d75d") (:keywords "unix" "environment") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/exec-path-from-shell"))]) (exato . [(20180305 1042) ((evil (1 2 13)) (emacs (24))) "EXATO: Evil XML/HTML Attributes Text Object" single ((:commit . "88266fa7fcfbef704032f671b94f756f2f98bd4f") (:authors ("Filipe Silva" . "filipe.silva@gmail.com")) (:maintainer "Filipe Silva" . "filipe.silva@gmail.com") (:url . "https://github.com/ninrod/exato"))]) (eww-lnum . [(20150102 1512) nil "Conkeror-like functionality for eww" single ((:commit . "4b0ecec769919ecb05ca4fb15ec51911ba589929") (:keywords "eww" "browse" "conkeror") (:authors ("Andrey Kotlarski" . "m00naticus@gmail.com")) (:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com") (:url . "https://github.com/m00natic/eww-lnum"))]) (ewmctrl . [(20170922 217) nil "Use `wmctrl' to manage desktop windows via EWMH/NetWM." single ((:commit . "3d0217c4d6cdb5c308b6cb4293574f470d4faacf") (:keywords "desktop" "windows" "ewmh" "netwm") (:authors ("Alexis" . "flexibeast@gmail.com") ("Adam Plaice" . "plaice.adam@gmail.com")) (:maintainer "Alexis" . "flexibeast@gmail.com") (:url . "https://github.com/flexibeast/ewmctrl"))]) (evm . [(20141007 1156) ((dash (2 3 0)) (f (0 13 0))) "Emacs Version Manager" single ((:commit . "d0623b2355436a5fd9f7238b419782080c79196b") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/evm"))]) (evil-visualstar . [(20160223 48) ((evil (0))) "Starts a * or # search from the visual selection" single ((:commit . "06c053d8f7381f91c53311b1234872ca96ced752") (:keywords "evil" "vim" "visualstar") (:authors ("Bailey Ling")) (:maintainer "Bailey Ling") (:url . "https://github.com/bling/evil-visualstar"))]) (evil-visual-replace . [(20171016 613) ((evil (1 0 0))) "search/replace commands for evil visual state, inc. blocks" single ((:commit . "163fc827a1ffc106475da470c37fb26f4cc9b008") (:keywords "evil" "search" "replace" "regexp" "block" "rectangular" "region" "visual") (:authors ("Troy Pracy")) (:maintainer "Troy Pracy") (:url . "https://github.com/troyp/evil-visual-replace"))]) (evil-visual-mark-mode . [(20150202 1800) ((evil (1 0 9)) (dash (2 10))) "Display evil marks on buffer" single ((:commit . "094ee37599492885ff3144918fcdd9b74dadaaa0") (:keywords "evil") (:authors ("Roman Gonzalez" . "romanandreg@gmail.com")) (:maintainer "Roman Gonzalez" . "romanandreg@gmail.com"))]) (evil-vimish-fold . [(20171030 1151) ((emacs (24 4)) (evil (1 0 0)) (vimish-fold (0 2 0))) "Integrate vimish-fold with evil" single ((:commit . "c617fecb91303f8c63f85a6101a503fdc88aae84") (:authors ("Alex Murray" . "murray.alex@gmail.com")) (:maintainer "Alex Murray" . "murray.alex@gmail.com") (:url . "https://github.com/alexmurray/evil-vimish-fold"))]) (evil-tutor-ja . [(20160917 132) ((evil (1 0 9)) (evil-tutor (0 1))) "Japanese Vimtutor adapted to Evil and wrapped in a major-mode" tar ((:commit . "99af7d82e02ce3bcdfaff47c5c80b57327a7ea8d") (:keywords "convenience" "editing" "evil" "japanese") (:authors ("Kenji Miyazaki" . "kenjizmyzk@gmail.com")) (:maintainer "Kenji Miyazaki" . "kenjizmyzk@gmail.com") (:url . "https://github.com/kenjimyzk/evil-tutor-ja"))]) (evil-tutor . [(20150103 650) ((evil (1 0 9))) "Vimtutor adapted to Evil and wrapped in a major-mode" tar ((:commit . "4e124cd3911dc0d1b6817ad2c9e59b4753638f28") (:keywords "convenience" "editing" "evil") (:authors ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainer "Sylvain Benner" . "sylvain.benner@gmail.com") (:url . "https://github.com/syl20bnr/evil-tutor"))]) (evil-textobj-syntax . [(20181101 1404) ((names (0 5)) (emacs (24)) (evil (0))) "Provides syntax text objects." single ((:commit . "933752ff2ae22d1bbcda394bdeed5c575d90d1d8") (:keywords "evil" "syntax" "highlight" "text-object") (:url . "https://github.com/laishulu/evil-textobj-syntax"))]) (evil-textobj-line . [(20150729 1522) ((evil (1 0 0))) "evil textobj line" single ((:commit . "3d401b6831bdbeec967ec8e64177a8950251e812") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-evil-textobj-line"))]) (evil-textobj-entire . [(20150422 1254) ((emacs (24)) (evil (1 0 0))) "text object for entire lines of buffer for evil" single ((:commit . "5b3a98f3a69edc3a788f539f6ffef4a0ef5e853d") (:keywords "convenience" "emulations") (:authors ("supermomonga")) (:maintainer "supermomonga") (:url . "https://github.com/supermomonga/evil-textobj-entire"))]) (evil-textobj-column . [(20170905 1905) ((names (0 5)) (emacs (24)) (evil (0))) "Provides column text objects." single ((:commit . "835d7036d0bc9a6e44fc9b7c54ccf2a7c01428cd") (:keywords "evil" "column" "text-object") (:authors ("Fox Kiester" . "noct@openmailbox.org")) (:maintainer "Fox Kiester" . "noct@openmailbox.org") (:url . "https://github.com/noctuid/evil-textobj-column"))]) (evil-textobj-anyblock . [(20170905 1907) ((cl-lib (0 5)) (evil (1 1 0))) "Textobject for the closest user-defined blocks." single ((:commit . "ff00980f0634f95bf2ad9956b615a155ea8743be") (:keywords "evil") (:authors ("Fox Kiester" . "noct@openmailbox.org")) (:maintainer "Fox Kiester" . "noct@openmailbox.org") (:url . "https://github.com/noctuid/evil-textobj-anyblock"))]) (evil-text-object-python . [(20160815 841) ((emacs (24)) (evil (1 2 12))) "Python specific evil text objects" single ((:commit . "3b3fb01e7ad7eeeeae1143695547fe75148cc44f") (:keywords "evil" "python" "text-object") (:authors ("Wouter Bolsterlee" . "wouter@bolsterl.ee")) (:maintainer "Wouter Bolsterlee" . "wouter@bolsterl.ee") (:url . "https://github.com/wbolster/evil-text-object-python"))]) (evil-test-helpers . [(20180109 1840) ((evil (1 2 13))) "unit test helpers for Evil" single ((:commit . "99bcf8c31ee72a3a571e013f40d105618fb92d19") (:authors ("Vegard Øye <vegard_oye at hotmail.com>")) (:maintainer "Vegard Øye <vegard_oye at hotmail.com>"))]) (evil-terminal-cursor-changer . [(20170401 842) ((evil (1 0 8))) "Change cursor shape and color by evil state in terminal" single ((:commit . "b49ca4393d2f3cc6014174950059b36a5cb22949") (:keywords "evil" "terminal" "cursor") (:authors ("7696122")) (:maintainer "7696122") (:url . "https://github.com/7696122/evil-terminal-cursor-changer"))]) (evil-tabs . [(20160217 1520) ((evil (0 0 0)) (elscreen (0 0 0))) "Integrating Vim-style tabs for Evil mode users." single ((:commit . "53d3314a810017b6056ab6796aef671f5ea1c063") (:keywords "evil" "tab" "tabs" "vim") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/krisajenkins/evil-tabs"))]) (evil-swap-keys . [(20170726 1820) ((emacs (24))) "intelligently swap keys on text input with evil" single ((:commit . "56bc201e265a6bd482a7c41a7c81d2238341ef3a") (:keywords "evil" "key" "swap" "numbers" "symbols") (:authors ("Wouter Bolsterlee" . "wouter@bolsterl.ee")) (:maintainer "Wouter Bolsterlee" . "wouter@bolsterl.ee") (:url . "https://github.com/wbolster/evil-swap-keys"))]) (evil-surround . [(20181020 1248) ((evil (1 2 12))) "emulate surround.vim from Vim" single ((:commit . "63ce01848878ce011eb4fee59c51109dd1e3ddb5") (:keywords "emulation" "vi" "evil") (:authors ("Tim Harper <timcharper at gmail dot com>") ("Vegard Øye <vegard_oye at hotmail dot com>")) (:maintainer "Tim Harper <timcharper at gmail dot com>"))]) (evil-string-inflection . [(20180313 1755) ((emacs (24)) (evil (1 2 13)) (string-inflection (1 0 6))) "snake_case -> CamelCase -> etc. for text objects" single ((:commit . "008b74a9b2994abfb4ff5b679b8a5a26fd45e98a") (:authors ("Filipe Silva" . "filipe.silva@gmail.com")) (:maintainer "Filipe Silva" . "filipe.silva@gmail.com") (:url . "https://github.com/ninrod/evil-string-inflection"))]) (evil-space . [(20151208 1228) ((evil (1 0 0))) "Repeat motion in Evil. Correct the behaviour of what SPC should do." single ((:commit . "a9c07284d308425deee134c9d88a2d538dd229e6") (:keywords "space" "repeat" "motion") (:authors ("Quang Linh LE" . "linktohack@gmail.com")) (:maintainer "Quang Linh LE" . "linktohack@gmail.com") (:url . "http://github.com/linktohack/evil-space"))]) (evil-snipe . [(20180731 1731) ((emacs (24 4)) (evil (1 2 12)) (cl-lib (0 5))) "emulate vim-sneak & vim-seek" single ((:commit . "8dd076cc56eb9b04494e4e303b86a959b048350b") (:keywords "emulation" "vim" "evil" "sneak" "seek") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/evil-snipe"))]) (evil-smartparens . [(20171210 1513) ((evil (1 0)) (emacs (24 4)) (smartparens (1 10 1))) "Evil support for smartparens" single ((:commit . "026d4a3cfce415a4dfae1457f871b385386e61d3") (:keywords "evil" "smartparens") (:authors ("Lars Andersen" . "expez@expez.com")) (:maintainer "Lars Andersen" . "expez@expez.com") (:url . "https://www.github.com/expez/evil-smartparens"))]) (evil-search-highlight-persist . [(20170523 334) ((highlight (0))) "Persistent highlights after search" single ((:commit . "979d2dec58d3b9c5ca5fdf4bb802a0209913794e") (:authors ("Juanjo Alvarez" . "juanjo@juanjoalvarez.net")) (:maintainer "Juanjo Alvarez" . "juanjo@juanjoalvarez.net"))]) (evil-rsi . [(20160221 2104) ((evil (1 0 0))) "Use emacs motion keys in evil, inspired by vim-rsi" single ((:commit . "65ae60866be494e4622fe383e23975e04d2a42a3") (:keywords "evil" "rsi" "evil-rsi") (:authors ("Quang Linh LE" . "linktohack@gmail.com")) (:maintainer "Quang Linh LE" . "linktohack@gmail.com") (:url . "http://github.com/linktohack/evil-rsi"))]) (evil-replace-with-register . [(20170713 925) ((evil (1 0 8))) "Port of vim plugin ReplaceWithRegister" single ((:commit . "91cc7bf21a94703c441cc9212214075b226b7f67") (:keywords "evil" "plugin") (:authors ("Dewdrops" . "v_v_4474@126.com")) (:maintainer "Dewdrops" . "v_v_4474@126.com") (:url . "https://github.com/Dewdrops/evil-ReplaceWithRegister"))]) (evil-replace-with-char . [(20180324 2206) ((evil (1 2 13)) (emacs (24))) "replace chars of a text object with a char" single ((:commit . "ed4a12d5bff11163eb03ad2826c52fd30f51a8d3") (:authors ("Filipe Silva" . "filipe.silva@gmail.com")) (:maintainer "Filipe Silva" . "filipe.silva@gmail.com") (:url . "https://github.com/ninrod/evil-replace-with-char"))]) (evil-rails . [(20160621 2258) ((evil (1 0)) (projectile-rails (1 0))) "Rails support for Evil Mode" single ((:commit . "c8669783d8a40719b2604c58a4c06c248cab272f") (:keywords "ruby" "rails" "vim" "project" "convenience" "web" "evil" "projectile") (:authors ("Antono Vasiljev" . "antono.vasiljev@gmail.com")) (:maintainer "Antono Vasiljev" . "antono.vasiljev@gmail.com") (:url . "https://github.com/antono/evil-rails"))]) (evil-quickscope . [(20160202 1924) ((evil (0))) "Highlight unique characters in words for f,F,t,T navigation" single ((:commit . "37a20e4c56c6058abf186ad4013c155e695e876f") (:keywords "faces" "emulation" "vim" "evil") (:authors ("Michael Chen" . "blorbx@gmail.com")) (:maintainer "Michael Chen" . "blorbx@gmail.com") (:url . "http://github.com/blorbx/evil-quickscope"))]) (evil-python-movement . [(20180724 1420) ((emacs (25 1)) (cl-lib (0 5)) (dash (2 13 0)) (evil (1 0)) (s (1 12 0))) "Port Neovim's python movement to Evil" single ((:commit . "9936b3b7f8d96415d517c1f3604637889484a637") (:authors ("Felipe Lema <felipelema en mortemale punto org>")) (:maintainer "Felipe Lema <felipelema en mortemale punto org>") (:url . "https://bitbucket.org/FelipeLema/evil-python-movement.el/"))]) (evil-paredit . [(20150413 2048) ((evil (1 0 9)) (paredit (25 -2))) "Paredit support for evil keybindings" single ((:commit . "e058fbdcf9dbf7ad6cc77f0172d7517ef233d55f") (:keywords "paredit" "evil") (:authors ("Roman Gonzalez" . "romanandreg@gmail.com")) (:maintainer "Roman Gonzalez" . "romanandreg@gmail.com") (:url . "https://github.com/roman/evil-paredit"))]) (evil-org . [(20180323 2306) ((emacs (24 4)) (evil (1 0))) "evil keybindings for org-mode" tar ((:commit . "b6d652a9163d3430a9e0933a554bdbee5244bbf6") (:keywords "evil" "vim-emulation" "org-mode" "key-bindings" "presets") (:maintainer "Somelauw") (:url . "https://github.com/Somelauw/evil-org-mode.git"))]) (evil-opener . [(20161207 1810) ((evil (1 2 12)) (opener (0 2 2))) "opening urls as buffers in evil" tar ((:commit . "c384f67278046fdcd220275fdd212ab85672cbeb") (:keywords "url" "http" "files") (:authors ("Tim Reddehase" . "tr@rightsrestricted.com")) (:maintainer "Tim Reddehase" . "tr@rightsrestricted.com") (:url . "https://github.com/0robustus1/opener.el"))]) (evil-numbers . [(20140606 1251) nil "increment/decrement numbers like in vim" single ((:commit . "6ea1c8c3a9b37bed63d48f1128e9a4910e68187e") (:keywords "numbers" "increment" "decrement" "octal" "hex" "binary") (:authors ("Michael Markert" . "markert.michael@googlemail.com")) (:maintainer "Michael Markert" . "markert.michael@googlemail.com") (:url . "http://github.com/cofi/evil-numbers"))]) (evil-nerd-commenter . [(20180722 2325) ((emacs (24 4))) "Comment/uncomment lines efficiently. Like Nerd Commenter in Vim" tar ((:commit . "275c95c89cc09c7096bd6fd0deabd49f29634f5d") (:keywords "commenter" "vim" "line" "evil") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/evil-nerd-commenter"))]) (evil-multiedit . [(20181009 1515) ((emacs (24 4)) (evil (1 2 12)) (iedit (0 97)) (cl-lib (0 5))) "multiple cursors for evil-mode" single ((:commit . "ea38ac2f96c19a45591ece0e8b60252efe324657") (:keywords "multiple cursors" "editing" "iedit") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/evil-multiedit"))]) (evil-mu4e . [(20180613 1039) ((emacs (24 4)) (evil (1 2 10))) "evil-based key bindings for mu4e" single ((:commit . "5b22c1e30246318f233264506272d770f63897ca") (:authors ("Joris Engbers" . "info@jorisengbers.nl")) (:maintainer "Joris Engbers" . "info@jorisengbers.nl") (:url . "https://github.com/JorisE/evil-mu4e"))]) (evil-mc-extras . [(20170202 1649) ((emacs (24 3)) (evil (1 2 12)) (cl-lib (0 5)) (evil-mc (0 0 2)) (evil-numbers (0 4))) "Extra functionality for evil-mc" tar ((:commit . "8c1af3232dd1e15b2ea38360b8cd1e857e11c416") (:keywords "evil" "editing" "multiple-cursors" "vim" "evil-multiple-cursors" "evil-mc" "evil-mc-extras") (:authors ("Gabriel Adomnicai" . "gabesoft@gmail.com")) (:maintainer "Gabriel Adomnicai" . "gabesoft@gmail.com") (:url . "https://github.com/gabesoft/evil-mc-extras"))]) (evil-mc . [(20180921 1727) ((emacs (24 3)) (evil (1 2 13)) (cl-lib (0 5))) "Multiple cursors for evil-mode" tar ((:commit . "2af29ecd2fbed1571c4cc2501dfb2e38ffd4bfa2") (:keywords "evil" "editing" "multiple-cursors" "vim" "evil-multiple-cursors" "evil-mc" "evil-mc") (:authors ("Gabriel Adomnicai" . "gabesoft@gmail.com")) (:maintainer "Gabriel Adomnicai" . "gabesoft@gmail.com") (:url . "https://github.com/gabesoft/evil-mc"))]) (evil-matchit . [(20181111 604) ((evil (1 2 0)) (emacs (24 4))) "Vim matchit ported to Evil" tar ((:commit . "7d65b4167b1f0086c2b42b3aec805e47a0d355c4") (:keywords "matchit" "vim" "evil") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/evil-matchit"))]) (evil-mark-replace . [(20150424 718) ((evil (1 0 8))) "replace the thing in marked area" single ((:commit . "56cf191724a3e82239ca47a17b071c20aedb0617") (:keywords "mark" "replace" "evil") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/evil-mark-replace"))]) (evil-magit . [(20180702 1553) ((evil (1 2 3)) (magit (2 6 0))) "evil-based key bindings for magit" single ((:commit . "9e2275b14807168451e10b93d69e420e435f21ef") (:authors ("Justin Burkett" . "justin@burkett.cc")) (:maintainer "Justin Burkett" . "justin@burkett.cc") (:url . "https://github.com/justbur/evil-magit"))]) (evil-lispy . [(20170304 1059) ((lispy (0 26 0)) (evil (1 2 12)) (hydra (0 13 5))) "precision Lisp editing with Evil and Lispy" tar ((:commit . "040a7ee130c2403a1d6dac591b94b202bb48e186") (:keywords "lisp") (:authors ("Brandon Carrell <brandoncarrell@gmail.com>, Mika Vilpas" . "mika.vilpas@gmail.com")) (:maintainer "Brandon Carrell <brandoncarrell@gmail.com>, Mika Vilpas" . "mika.vilpas@gmail.com") (:url . "https://github.com/sp3ctum/evil-lispy"))]) (evil-lisp-state . [(20160404 248) ((evil (1 0 9)) (bind-map (0)) (smartparens (1 6 1))) "An evil state to edit Lisp code" single ((:commit . "3c65fecd9917a41eaf6460f22187e2323821f3ce") (:keywords "convenience" "editing" "evil" "smartparens" "lisp" "mnemonic") (:authors ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainer "Sylvain Benner" . "sylvain.benner@gmail.com") (:url . "https://github.com/syl20bnr/evil-lisp-state"))]) (evil-lion . [(20170811 614) ((emacs (24 3)) (evil (1 0 0))) "Evil align operator, port of vim-lion" single ((:commit . "aaa3874ad54c31b4322ac5bbc63e331498b11d61") (:keywords "emulations" "evil" "vim") (:authors ("edkolev" . "evgenysw@gmail.com")) (:maintainer "edkolev" . "evgenysw@gmail.com") (:url . "http://github.com/edkolev/evil-lion"))]) (evil-ledger . [(20180802 1612) ((emacs (24 4)) (evil (1 2 12)) (ledger-mode (0))) "Make `ledger-mode' more `evil'." single ((:commit . "7a9f9f5d39c42fffdba8004f8982642351f2b233") (:keywords "convenience" "evil" "languages" "ledger" "vim-emulation") (:authors ("Aaron Jacobs" . "atheriel@gmail.com")) (:maintainer "Aaron Jacobs" . "atheriel@gmail.com") (:url . "https://github.com/atheriel/evil-ledger"))]) (evil-leader . [(20140606 1243) ((evil (0))) "let there be <leader>" single ((:commit . "39f7014bcf8b36463e0c7512c638bda4bac6c2cf") (:keywords "evil" "vim-emulation" "leader") (:authors ("Michael Markert" . "markert.michael@googlemail.com")) (:maintainer "Michael Markert" . "markert.michael@googlemail.com") (:url . "http://github.com/cofi/evil-leader"))]) (evil-indent-textobject . [(20130831 2219) ((evil (0))) "evil textobjects based on indentation" single ((:commit . "70a1154a531b7cfdbb9a31d6922482791e20a3a7") (:keywords "convenience" "evil") (:authors ("Michael Markert" . "markert.michael@gmail.com")) (:maintainer "Michael Markert" . "markert.michael@gmail.com") (:url . "http://github.com/cofi/evil-indent-textobject"))]) (evil-indent-plus . [(20151109 1906) ((evil (0)) (cl-lib (0 5))) "Evil textobjects based on indentation" single ((:commit . "0c7501e6efed661242c3a20e0a6c79a6455c2c40") (:keywords "convenience" "evil") (:authors ("Eivind Fonn" . "evfonn@gmail.com")) (:maintainer "Eivind Fonn" . "evfonn@gmail.com") (:url . "http://github.com/TheBB/evil-indent-plus"))]) (evil-iedit-state . [(20180607 558) ((evil (1 0 9)) (iedit (0 97))) "Evil states to interface iedit mode." single ((:commit . "f75cff4ecbd5beaa9ca64a6c157c4105f078daec") (:keywords "convenience" "editing" "evil" "iedit" "mnemonic") (:authors ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainer "Sylvain Benner" . "sylvain.benner@gmail.com") (:url . "https://github.com/syl20bnr/evil-iedit-state"))]) (evil-goggles . [(20180725 952) ((emacs (24 4)) (evil (1 0 0))) "Add a visual hint to evil operations" single ((:commit . "d7876e6566ac82b7c3251a59651e7db6ab756589") (:keywords "emulations" "evil" "vim" "visual") (:authors ("edkolev" . "evgenysw@gmail.com")) (:maintainer "edkolev" . "evgenysw@gmail.com") (:url . "http://github.com/edkolev/evil-goggles"))]) (evil-god-state . [(20141117 255) ((evil (1 0 8)) (god-mode (2 12 0))) "use god-mode keybindings in evil-mode" single ((:commit . "3d44197dc0a1fb40e7b7ff8717f8a8c339ce1d40") (:keywords "evil" "leader" "god-mode") (:authors ("Eric Seidel")) (:maintainer "Eric Seidel") (:url . "https://github.com/gridaphobe/evil-god-state"))]) (evil-fringe-mark . [(20180728 647) ((emacs (24 3)) (evil (1 0 0)) (fringe-helper (0 1 1)) (goto-chg (1 6))) "Display evil-mode marks in the fringe" tar ((:commit . "37521e190dc0414a2bfddd6b219527b1a8dd3f58") (:authors ("Andrew Smith" . "andy.bill.smith@gmail.com")) (:maintainer "Andrew Smith" . "andy.bill.smith@gmail.com") (:url . "https://github.com/Andrew-William-Smith/evil-fringe-mark"))]) (evil-find-char-pinyin . [(20160514 2041) ((evil (1 2 12)) (pinyinlib (0 1 0))) "Evil's f/F/t/T/evil-snipe commands with Pinyin support" single ((:commit . "04e277946d658f1a73c68dcbbadea9c21097a31c") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (evil-extra-operator . [(20161213 403) ((evil (1 0 7))) "Evil operator for evaluating codes, taking notes, searching via google, etc." single ((:commit . "e16a9b36f9901254da9af8a73871061616410fc3") (:keywords "evil" "plugin") (:authors ("Dewdrops" . "v_v_4474@126.com")) (:maintainer "Dewdrops" . "v_v_4474@126.com") (:url . "http://github.com/Dewdrops/evil-extra-operator"))]) (evil-expat . [(20180719 816) ((emacs (24 3)) (evil (1 0 0))) "Evil ex commands" single ((:commit . "3ff831784c5f301330ecced5ebd43cce42980d2b") (:keywords "emulations" "evil" "vim") (:authors ("edkolev" . "evgenysw@gmail.com")) (:maintainer "edkolev" . "evgenysw@gmail.com") (:url . "http://github.com/edkolev/evil-expat"))]) (evil-exchange . [(20170511 259) ((evil (1 2 8)) (cl-lib (0 3))) "Exchange text more easily within Evil" single ((:commit . "47691537815150715e64e6f6ec79be7746c96120") (:keywords "evil" "plugin") (:authors ("Dewdrops" . "v_v_4474@126.com")) (:maintainer "Dewdrops" . "v_v_4474@126.com") (:url . "http://github.com/Dewdrops/evil-exchange"))]) (evil-ex-shell-command . [(20180903 614) ((emacs (24 4)) (evil (1 1 0))) "invoke shell-command right from evil-ex" single ((:commit . "dd31672b1f6b67072b06805c9460f90bc682488a") (:keywords "tools" "shell-command" "evil") (:authors ("Rashawn Zhang" . "namy.19@gmail.com")) (:maintainer "Rashawn Zhang" . "namy.19@gmail.com") (:url . "https://github.com/yqrashawn/evil-ex-shell-command"))]) (evil-ex-fasd . [(20180903 612) ((emacs (24 4)) (evil (1 1 0)) (fasd (0))) "using fasd right from evil-ex" single ((:commit . "ed8fbbe23a8a268d9dcbf1a6132e928ba2c655c5") (:keywords "tools" "fasd" "evil" "navigation") (:authors ("Rashawn Zhang" . "namy.19@gmail.com")) (:maintainer "Rashawn Zhang" . "namy.19@gmail.com") (:url . "https://github.com/yqrashawn/evil-ex-fasd"))]) (evil-escape . [(20180910 1234) nil "No description available." single ((:commit . "f4e9116bfbaac8c9d210c17ad488e0982291245f"))]) (evil-embrace . [(20160519 1829) ((emacs (24 4)) (embrace (0 1 0)) (evil-surround (0))) "Evil integration of embrace.el" single ((:commit . "4379adea032b25e359d01a36301b4a5afdd0d1b7") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (evil-ediff . [(20170724 1923) ((evil (1 2 3))) "Make ediff a little evil" single ((:commit . "50d26cb0654fca8f8fd7227410e5cbf0b8f681cf") (:authors ("Justin Burkett" . "justin@burkett.cc")) (:maintainer "Justin Burkett" . "justin@burkett.cc") (:url . "https://github.com/justbur/evil-ediff"))]) (evil-easymotion . [(20180114 654) ((emacs (24)) (avy (0 3 0)) (cl-lib (0 5))) "A port of vim's easymotion to emacs" single ((:commit . "79c13ed3bce018ac09d358e642e5bd7025e93603") (:keywords "convenience" "evil") (:authors ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainer "PythonNut" . "pythonnut@pythonnut.com") (:url . "https://github.com/pythonnut/evil-easymotion"))]) (evil-dvorak . [(20160416 1841) ((evil (1 0 8))) "evil keybindings for that work with dvorak mode" tar ((:commit . "824f7c56980d72a0ff04c662223540cd66f13754") (:keywords "evil" "vim-emulation" "dvorak" "keyboard") (:url . "https://github.com/jbranso/evil-dvorak.git"))]) (evil-commentary . [(20170413 1451) ((evil (1 0 0))) "Comment stuff out. A port of vim-commentary." tar ((:commit . "395f91014b69844b81660c155f42eb9b1b3d199d") (:keywords "evil" "comment" "commentary" "evil-commentary") (:authors ("Quang Linh LE" . "linktohack@gmail.com")) (:maintainer "Quang Linh LE" . "linktohack@gmail.com") (:url . "http://github.com/linktohack/evil-commentary"))]) (evil-collection . [(20181114 950) ((emacs (25 1)) (cl-lib (0 5)) (evil (1 2 13))) "A set of keybindings for Evil mode" tar ((:commit . "dfa412db04b3714a14a1879679daddefb873b89b") (:keywords "evil" "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/emacs-evil/evil-collection"))]) (evil-colemak-minimal . [(20171006 1317) ((emacs (24)) (evil (1 2 12))) "Minimal Colemak key bindings for evil-mode" single ((:commit . "6d98b6da60f414524a0d718f76024c26dce742b3") (:keywords "colemak" "evil") (:authors ("Bryan Allred" . "bryan@revolvingcow.com")) (:maintainer "Bryan Allred" . "bryan@revolvingcow.com") (:url . "https://github.com/bmallred/evil-colemak-minimal"))]) (evil-colemak-basics . [(20170425 1209) ((emacs (24)) (evil (1 2 12)) (evil-snipe (2 0 3))) "Basic Colemak key bindings for evil-mode" single ((:commit . "7844079b47f47bb1dc24c885b0ac2e67524fa960") (:keywords "colemak" "evil") (:authors ("Wouter Bolsterlee" . "wouter@bolsterl.ee")) (:maintainer "Wouter Bolsterlee" . "wouter@bolsterl.ee") (:url . "https://github.com/wbolster/evil-colemak-basics"))]) (evil-cleverparens . [(20170718 413) ((evil (1 0)) (paredit (1)) (smartparens (1 6 1)) (emacs (24 4)) (dash (2 12 0))) "Evil friendly minor-mode for editing lisp." tar ((:commit . "8c45879d49bfa6d4e414b6c1df700a4a51cbb869") (:keywords "cleverparens" "parentheses" "evil" "paredit" "smartparens") (:authors ("Olli Piepponen" . "opieppo@gmail.com")) (:maintainer "Olli Piepponen" . "opieppo@gmail.com") (:url . "https://github.com/luxbock/evil-cleverparens"))]) (evil-better-visual-line . [(20181026 1028) ((evil (1 2 13))) "gj and gk visual line mode fix" single ((:commit . "15f77e67fcc3c48db323ccd8c8c4bc249e2911b8") (:keywords "evil" "vim" "motion") (:authors ("<nuckollsp at gmail.com>")) (:maintainer "<nuckollsp at gmail.com>") (:url . "https://github.com/yourfin/evil-better-visual-line"))]) (evil-avy . [(20150908 748) ((emacs (24 1)) (cl-lib (0 5)) (avy (0 3 0)) (evil (1 2 3))) "set-based completion" single ((:commit . "2dd955cc3ecaa7ddeb67b295298abdc6d16dd3a5") (:keywords "point" "location" "evil" "vim") (:authors ("Yufan Lou" . "loganlyf@gmail.com")) (:maintainer "Yufan Lou" . "loganlyf@gmail.com") (:url . "https://github.com/louy2/evil-avy"))]) (evil-args . [(20180908 2157) ((evil (1 0 8))) "Motions and text objects for delimited arguments in Evil." single ((:commit . "758ad5ae54ad34202064fec192c88151c08cb387") (:keywords "evil" "vim-emulation") (:authors ("Connor Smith" . "wconnorsmith@gmail.com")) (:maintainer "Connor Smith" . "wconnorsmith@gmail.com") (:url . "http://github.com/wcsmith/evil-args"))]) (evil-anzu . [(20170124 718) ((evil (1 0 0)) (anzu (0 46))) "anzu for evil-mode" single ((:commit . "9bca6ca14d865e7e005bc02a28a09b4ae74facc9") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com") ("Fredrik Bergroth" . "fbergroth@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-evil-anzu"))]) (evil . [(20181107 1016) ((emacs (24 1)) (undo-tree (0 6 3)) (goto-chg (1 6)) (cl-lib (0 5))) "Extensible Vi layer for Emacs." tar ((:commit . "99bcf8c31ee72a3a571e013f40d105618fb92d19"))]) (eve-mode . [(20170822 2231) ((emacs (25)) (polymode (1 0)) (markdown-mode (2 0))) "Major mode for editing Eve documents." single ((:commit . "a4661114d9c18725691b76321d72167ca5a9070a") (:keywords "languages" "wp" "tools") (:authors ("Joshua Cole" . "joshuafcole@gmail.com")) (:maintainer "Joshua Cole" . "joshuafcole@gmail.com") (:url . "https://github.com/witheve/emacs-eve-mode"))]) (evalator-clojure . [(20160208 2148) ((cider (0 10 0)) (evalator (1 0 0))) "Clojure evaluation context for evalator via CIDER." tar ((:commit . "caa4e0a137bdfada86593128a654e16aa617ad50") (:keywords "languages" "clojure" "cider" "helm") (:authors ("Sean Irby")) (:maintainer "Sean Irby" . "sean.t.irby@gmail.com") (:url . "http://www.github.com/seanirby/evalator-clojure"))]) (evalator . [(20160213 128) ((helm-core (1 9 1))) "Package for interactive transformation of data with helm" tar ((:commit . "f30da4da48c0b3f3cfa1fc1c7cfdb53ffe79df36") (:keywords "languages" "elisp" "helm") (:authors ("Sean Irby")) (:maintainer "Sean Irby" . "sean.t.irby@gmail.com") (:url . "http://www.github.com/seanirby/evalator"))]) (eval-sexp-fu . [(20180510 203) ((cl-lib (0)) (highlight (0))) "Tiny functionality enhancements for evaluating sexps." single ((:commit . "1cfd0f3e167d63080692fad97ffe0091b024ad73") (:keywords "lisp" "highlight" "convenience") (:authors ("Takeshi Banse" . "takebi@laafc.net")) (:maintainer "Takeshi Banse" . "takebi@laafc.net"))]) (eval-in-repl . [(20171122 1343) ((dash (0 0 0)) (paredit (0 0 0)) (ace-window (0 0 0))) "Consistent ESS-like eval interface for various REPLs" tar ((:commit . "fea05a5b81d74ac53cb2a83aa83a73d9526bcc42") (:url . "https://github.com/kaz-yos/eval-in-repl/"))]) (eval-expr . [(20120619 647) nil "enhanced eval-expression command" single ((:commit . "a0e69e83de41df8dbccefc1962ab4f02206a3328") (:keywords "lisp" "extensions") (:authors ("Noah Friedman" . "friedman@splode.com")) (:maintainer nil . "friedman@splode.com"))]) (euslisp-mode . [(20170830 1929) ((emacs (24 3)) (s (1 9)) (exec-path-from-shell (0)) (helm-ag (0 58))) "Major mode for Euslisp-formatted text" single ((:commit . "db62a2d148482317794727982576494596365a55") (:keywords "euslisp" "euslisp" "github") (:authors ("iory" . "ab.ioryz@gmail.com")) (:maintainer "iory" . "ab.ioryz@gmail.com") (:url . "https://github.com/iory/euslisp-mode"))]) (ethan-wspace . [(20170507 2030) nil "whitespace customizations for emacs" single ((:commit . "e055ee6730c0b03525d32e67511ef6c51e4c29e4") (:keywords "whitespace" "tab" "newline" "trailing" "clean") (:authors ("Ethan Glasser-Camp" . "ethan@betacantrips.com")) (:maintainer "Ethan Glasser-Camp" . "ethan@betacantrips.com"))]) (eterm-256color . [(20181026 1529) ((emacs (24 4)) (xterm-color (1 7)) (f (0 19 0))) "Customizable 256 colors for term." tar ((:commit . "1340f69a78faf4e709ee29875550ecc9f434b216") (:keywords "faces") (:authors ("Diego A. Mundo" . "diegoamundo@gmail.com")) (:maintainer "Diego A. Mundo" . "diegoamundo@gmail.com") (:url . "http://github.com/dieggsy/eterm-256color"))]) (etable . [(20161028 2009) ((dash (2 9 0)) (interval-list (0 1)) (emacs (24 4))) "Implementation of javax.swing.JTable for Emacs." tar ((:commit . "d502141f0c69bf95256ba5cb9cd15350c7e942d2"))]) (esxml . [(20171129 807) nil "Library for working with xml via esxml and sxml" tar ((:commit . "5548ceba17deae0c3c6d0092672edc4de3c75ce3"))]) (esup . [(20180727 342) ((cl-lib (0 5)) (emacs (24))) "the Emacs StartUp Profiler (ESUP)" tar ((:commit . "5acb60e8d7a8fef854178f325682765820522b10") (:keywords "convenience" "processes") (:authors ("Joe Schafer" . "joe@jschaf.com")) (:maintainer "Joe Schafer" . "joe@jschaf.com") (:url . "http://github.com/jschaf/esup"))]) (ess-view . [(20181001 1730) ((ess (15)) (s (1 8 0)) (f (0 16 0))) "View R dataframes in a spreadsheet software" single ((:commit . "d4e5a340b7bcc58c434867b97923094bd0680283") (:keywords "extensions" "ess") (:authors ("Bocci Gionata" . "boccigionata@gmail.com")) (:maintainer "Bocci Gionata" . "boccigionata@gmail.com") (:url . "https://github.com/GioBo/ess-view"))]) (ess-smart-underscore . [(20181112 2102) ((ess (0))) "Ess Smart Underscore" tar ((:commit . "17fde1f2bffffeb67520922e09ebf66693ef0c6f") (:keywords "ess" "underscore") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew Fidler") (:url . "http://github.com/mlf176f2/ess-smart-underscore.el"))]) (ess-smart-equals . [(20150202 601) ((emacs (24)) (ess (5 0))) "better smart-assignment with =-key in R and S" single ((:commit . "e0f5f18f01ed252fde50d051adf1fa6254a254c9") (:keywords "r" "s" "ess" "convenience") (:authors ("Christopher R. Genovese" . "genovese@cmu.edu")) (:maintainer "Christopher R. Genovese" . "genovese@cmu.edu") (:url . "https://github.com/genovese/ess-smart-equals"))]) (ess-R-data-view . [(20130509 1158) ((ctable (20130313 1743)) (popup (20130324 1305)) (ess (20130225 1754))) "Data viewer for GNU R" single ((:commit . "d6e98d3ae1e2a2ea39a56eebcdb73e99d29562e9") (:keywords "convenience") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/ess-R-data-view.el"))]) (ess . [(20181119 1451) ((julia-mode (0 3))) "Emacs Speaks Statistics" tar ((:commit . "3d617ae97ee6e0fb5ed65180f8b2d1bb858efb28") (:authors ("David Smith" . "dsmith@stats.adelaide.edu.au") ("A.J. Rossini" . "blindglobe@gmail.com") ("Richard M. Heiberger" . "rmh@temple.edu") ("Kurt Hornik" . "Kurt.Hornik@R-project.org") ("Martin Maechler" . "maechler@stat.math.ethz.ch") ("Rodney A. Sparapani" . "rsparapa@mcw.edu") ("Stephen Eglen" . "stephen@gnu.org") ("Sebastian P. Luque" . "spluque@gmail.com") ("Henning Redestig" . "henning.red@googlemail.com") ("Vitalie Spinu" . "spinuvit@gmail.com") ("Lionel Henry" . "lionel.hry@gmail.com") ("J. Alexander Branham" . "alex.branham@gmail.com")) (:maintainer "ESS Core Team" . "ESS-core@r-project.org"))]) (esqlite-helm . [(20151116 850) ((esqlite (0 2 0)) (helm (20131207 845))) "Define helm source for sqlite database" single ((:commit . "bc4047e09b8f6c34802db86095cd465935670dce") (:keywords "data") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-esqlite"))]) (esqlite . [(20151206 1206) ((pcsv (1 3 3))) "Manipulate sqlite file from Emacs" single ((:commit . "bc4047e09b8f6c34802db86095cd465935670dce") (:keywords "data") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-esqlite"))]) (espy . [(20180929 1602) ((emacs (24))) "Emacs Simple Password Yielder" single ((:commit . "3daf31d55dc04bc0cd87f668b0ad106e67711349") (:keywords "convenience") (:authors ("Sebastian Wålinder" . "s.walinder@gmail.com")) (:maintainer "Sebastian Wålinder" . "s.walinder@gmail.com") (:url . "https://github.com/walseb/espy"))]) (espuds . [(20160905 1300) ((s (1 7 0)) (dash (2 2 0)) (f (0 12 1))) "Ecukes step definitions" single ((:commit . "78fc53feaf77a98d63894cd410faee2a18107b00") (:keywords "test") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/ecukes/espuds"))]) (espresso-theme . [(20181025 826) nil "Espresso Tutti Colori port for Emacs" single ((:commit . "d2fa034eb833bf37cc6842017070725e0da9b046") (:authors ("Martin Kühl <purl.org/net/mkhl>")) (:maintainer "Martin Kühl <purl.org/net/mkhl>") (:url . "https://github.com/dgutov/espresso-theme"))]) (eslintd-fix . [(20180429 1455) ((dash (2 12 0)) (emacs (24 3))) "use eslint_d to automatically fix js files" single ((:commit . "90e451af4daa190d6c0e29fb714b0501a7cce89a") (:authors ("Aaron Jensen" . "aaronjensen@gmail.com")) (:maintainer "Aaron Jensen" . "aaronjensen@gmail.com") (:url . "https://github.com/aaronjensen/eslintd-fix"))]) (eslint-fix . [(20180514 700) nil "Fix JavaScript files using ESLint" single ((:commit . "f81f3b47a47460611fbdbdae1d23275ec78f2f8d") (:keywords "tools" "javascript" "eslint" "lint" "formatting" "style") (:authors ("Neri Marschik" . "marschik_neri@cyberagent.co.jp")) (:maintainer "Neri Marschik" . "marschik_neri@cyberagent.co.jp") (:url . "https://github.com/codesuki/eslint-fix"))]) (eshell-z . [(20170117 438) ((cl-lib (0 5))) "cd to frequent directory in eshell" single ((:commit . "c9334cbc1552234df3437f35d98e32f4d18446b8") (:keywords "convenience") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/eshell-z"))]) (eshell-up . [(20170425 1737) ((emacs (24))) "Quickly go to a specific parent directory in eshell" single ((:commit . "9c100bae5c3020e8d9307e4332d3b64e7dc28519") (:keywords "eshell") (:authors ("Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com")) (:maintainer "Peter W. V. Tran-Jørgensen" . "peter.w.v.jorgensen@gmail.com") (:url . "https://github.com/peterwvj/eshell-up"))]) (eshell-prompt-extras . [(20180110 634) nil "Display extra information for your eshell prompt." single ((:commit . "1d8825dcc005b488c6366d0b3015fc6686194eea") (:keywords "eshell" "prompt") (:authors ("Wei Zhao" . "kaihaosw@gmail.com")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/hiddenlotus/eshell-prompt-extras"))]) (eshell-git-prompt . [(20170909 1452) ((emacs (24 1)) (cl-lib (0 5)) (dash (2 11 0))) "Some Eshell prompt for Git users" single ((:commit . "b6bb2d7bd4e393b4170b29891cfefb72ae020aab") (:keywords "eshell" "git") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/eshell-git-prompt"))]) (eshell-fringe-status . [(20170117 2316) nil "Show last status in fringe" single ((:commit . "adc6997c68e39c0d52a2af1b2fd5cf2057783797") (:authors ("Tom Willemse" . "tom@ryuslash.org")) (:maintainer "Tom Willemse" . "tom@ryuslash.org") (:url . "http://projects.ryuslash.org/eshell-fringe-status/"))]) (eshell-fixed-prompt . [(20170804 1335) ((emacs (25)) (s (1 11 0))) "Restrict eshell to a single fixed prompt" single ((:commit . "4351b214de6d4e8e45279930448e2f93b491848e") (:authors ("Tijs Mallaerts" . "tijs.mallaerts@gmail.com")) (:maintainer "Tijs Mallaerts" . "tijs.mallaerts@gmail.com"))]) (eshell-did-you-mean . [(20150915 1952) ((emacs (24 1)) (cl-lib (0 5))) "command not found (\"did you mean…\" feature) in Eshell" single ((:commit . "7cb6ef8e2274d0a50a9e114d412307a6543533d5") (:keywords "eshell") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/eshell-did-you-mean"))]) (eshell-bookmark . [(20170922 1514) ((emacs (24 3))) "Integrate bookmarks with eshell." single ((:commit . "deda4b848b2fb979dbe73ead2cb866610e3596ed") (:keywords "convenience" "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/eshell-bookmark"))]) (eshell-autojump . [(20150927 724) nil "autojump command for Eshell" single ((:commit . "c6a8b81a16576df9875e721fbbfe6690d04e7e43") (:authors ("Alex Schroeder")) (:maintainer "Yen-Chin, Lee" . "coldnew.tw@gmail.com") (:url . "http://github.com/coldnew/eshell-autojump"))]) (esh-help . [(20170830 411) ((dash (1 4 0))) "Add some help functions and support for Eshell" single ((:commit . "8a8a9d4d9852f8bd96da3b94e95ff57097ac8ec6") (:keywords "eshell" "extensions") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com") (:url . "https://github.com/tom-tan/esh-help/"))]) (esh-buf-stack . [(20140107 1018) nil "Add a buffer stack feature to Eshell" single ((:commit . "ce0ea5aadca3150eaa9d2e6ec20296add4e99176") (:keywords "eshell" "extensions") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com"))]) (esh-autosuggest . [(20171224 255) ((emacs (24 4)) (company (0 9 4))) "History autosuggestions for eshell" single ((:commit . "2fd996c1a29b21e60854a3c90d7d4fc3d5b0aded") (:keywords "completion" "company" "matching" "convenience" "abbrev") (:authors ("Diego A. Mundo" . "diegoamundo@gmail.com")) (:maintainer "Diego A. Mundo" . "diegoamundo@gmail.com") (:url . "http://github.com/dieggsy/esh-autosuggest"))]) (esa . [(20180403 1525) ((cl-lib (0 5))) "Interface to esa.io" single ((:commit . "417e0ac55abe9b17e0b7165d0df26bc018aff42e") (:keywords "tools" "esa") (:authors ("Nab Inno" . "nab@blahfe.com")) (:maintainer "Nab Inno" . "nab@blahfe.com") (:url . "https://github.com/nabinno/esa.el"))]) (es-windows . [(20140211 904) ((cl-lib (0 3)) (emacs (24))) "Window-management utilities" single ((:commit . "239e30408cb1adb4bc8bd63e2df34711fa910b4f") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/es-windows"))]) (es-mode . [(20181004 2217) ((dash (2 11 0)) (cl-lib (0 5)) (spark (1 0)) (s (1 11 0)) (request (0 3 0))) "A major mode for editing and executing Elasticsearch queries" tar ((:commit . "1b7aca9b4e9fcebf4a67682203035eaf75b692e2") (:keywords "elasticsearch") (:authors ("Lee Hinman" . "lee@writequit.org")) (:maintainer "Lee Hinman" . "lee@writequit.org") (:url . "http://www.github.com/dakrone/es-mode"))]) (es-lib . [(20141111 1830) ((cl-lib (0 3))) "A collection of emacs utilities" tar ((:commit . "753b27363e39c10edc9e4e452bdbbbe4d190df4a") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/es-lib"))]) (ert-runner . [(20180831 1145) ((s (1 6 1)) (dash (1 8 0)) (f (0 10 0)) (commander (0 2 0)) (ansi (0 1 0)) (shut-up (0 1 0))) "Opinionated Ert testing workflow" tar ((:commit . "90b8fdd5970ef76a4649be60003b37f82cdc1a65") (:keywords "test") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/ert-runner.el"))]) (ert-modeline . [(20140115 1015) ((s (1 3 1)) (dash (1 2 0)) (emacs (24 1)) (projectile (0 9 1))) "displays ert test results in the modeline." single ((:commit . "e7be2b81191afb437b70368a819770f8f750e4af") (:keywords "tools" "tests" "convenience") (:authors ("Chris Barrett" . "chris.d.barrett@me.com")) (:maintainer "Chris Barrett" . "chris.d.barrett@me.com"))]) (ert-junit . [(20181118 2256) ((ert (0)) (emacs (23 4))) "JUnit XML reports from ert results" single ((:commit . "b0649e94460aff5176dee5b33f28946bffb602d5") (:keywords "tools" "test" "unittest" "ert") (:authors ("Ola Nilsson" . "ola.nilsson@gmail.com")) (:maintainer "Ola Nilsson" . "ola.nilsson@gmail.com") (:url . "http://bitbucket.org/olanilsson/ert-junit"))]) (ert-expectations . [(20121009 734) nil "The simplest unit test framework in the world" single ((:commit . "aed70e002c4305b66aed7f6d0d48e9addd2dc1e6") (:keywords "test" "unittest" "ert" "expectations") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/emacs/download/ert-expectations.el"))]) (ert-async . [(20151011 1359) nil "Async support for ERT" single ((:commit . "f64a7ed5b0d2900c9a3d8cc33294bf8a79bc8526") (:keywords "test") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/ert-async.el"))]) (eros . [(20180415 618) ((emacs (24 4))) "Evaluation Result OverlayS for Emacs Lisp" single ((:commit . "dd8910279226259e100dab798b073a52f9b4233a") (:keywords "convenience" "lisp") (:authors ("Tianxiang Xiong" . "tianxiang.xiong@gmail.com")) (:maintainer "Tianxiang Xiong" . "tianxiang.xiong@gmail.com") (:url . "https://github.com/xiongtx/eros"))]) (erlstack-mode . [(20181019 2117) ((emacs (25 1)) (dash (2 12 0))) "Minor mode for analysing Erlang stacktraces" single ((:commit . "984ffddb18432ce3e11528052da8c1a5beb31e72") (:keywords "tools" "erlang") (:authors ("k32")) (:maintainer "k32") (:url . "https://github.com/k32/erlstack-mode"))]) (erlang . [(20181011 1236) ((emacs (24 1))) "Erlang major mode" tar ((:commit . "0bcc9fa7fbe302f26cddd48e23d5d5d3eec21943"))]) (ergoemacs-status . [(20160318 538) ((powerline (2 3)) (mode-icons (0 1 0))) "Adaptive Status Bar / Mode Line" single ((:commit . "d952cc2361adf6eb4d6af60950ad4ab699c81320") (:authors ("Matthew Fidler")) (:maintainer "Matthew Fidler"))]) (ergoemacs-mode . [(20180709 1345) ((emacs (24 1)) (undo-tree (0 6 5)) (cl-lib (0 5))) "Emacs mode based on common modern interface and ergonomics." tar ((:commit . "a5d46653fd3a521276630c81bf75d3e8d224e5cb") (:keywords "convenience") (:authors ("Xah Lee" . "xah@xahlee.org") ("David Capello" . "davidcapello@gmail.com") ("Matthew L. Fidler" . "matthew.fidler@gmail.com")) (:maintainer "Matthew L. Fidler" . "matthew.fidler@gmail.com") (:url . "https://github.com/ergoemacs/ergoemacs-mode"))]) (erefactor . [(20160121 959) ((cl-lib (0 3))) "Emacs-Lisp refactoring utilities" single ((:commit . "bf68085e5635eb94fd85709f8e1355c1f5534745") (:keywords "extensions" "tools" "maint") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com") (:url . "https://github.com/mhayashi1120/Emacs-erefactor"))]) (eredis . [(20181119 131) ((dash (0))) "eredis, a Redis client in emacs lisp" single ((:commit . "cfbfc25832f6fbc507bdd56b02e3a0b851a3c368") (:keywords "redis" "api" "tools" "org") (:authors ("Justin Heyes-Jones" . "justinhj@gmail.com")) (:maintainer "Justin Heyes-Jones" . "justinhj@gmail.com") (:url . "http://github.com/justinhj/eredis/"))]) (ereader . [(20170810 501) ((emacs (24 4)) (dash (2 12 1)) (s (1 10 0)) (xml+ (0 0 0))) "Major mode for reading ebooks with org-mode integration" tar ((:commit . "f3bbd3f13195f8fba3e3c880aab0e4c60430dcf3") (:keywords "epub" "ebook") (:authors ("Ben Dean" . "bendean837@gmail.com")) (:maintainer "Ben Dean" . "bendean837@gmail.com") (:url . "https://github.com/bddean/emacs-ereader"))]) (ercn . [(20150523 1503) nil "Flexible ERC notifications" single ((:commit . "79a4df5609046ae2e2e3375998287be6dda80615") (:authors ("David Leatherman" . "leathekd@gmail.com")) (:maintainer "David Leatherman" . "leathekd@gmail.com") (:url . "http://www.github.com/leathekd/ercn"))]) (erc-yt . [(20150426 1249) ((dash (2 10 0))) "An erc module to display youtube links nicely" single ((:commit . "43e7d49325b17a3217a6ffb4a9daf75c5ff4e6f8") (:keywords "multimedia") (:authors ("William Stevenson" . "yhvh2000@gmail.com")) (:maintainer "William Stevenson" . "yhvh2000@gmail.com"))]) (erc-youtube . [(20150603 2136) nil "Show info about a YouTube URL in an ERC buffer." single ((:commit . "97054ba8475b442e2aa81e5a291f668b7f28697f") (:keywords "multimedia") (:authors ("Raimon Grau Cuscó" . "raimonster@gmail.com")) (:maintainer "Raimon Grau Cuscó" . "raimonster@gmail.com"))]) (erc-view-log . [(20140227 2039) nil "Major mode for viewing ERC logs" single ((:commit . "c5a25f0cbca84ed2e4f72068c02b66bd0ea3b266") (:keywords "erc" "viewer" "logs" "colors") (:authors ("Antoine Levitt") ("Thomas Riccardi" . "riccardi.thomas@gmail.com")) (:maintainer "Antoine Levitt") (:url . "http://github.com/Niluge-KiWi/erc-view-log/raw/master/erc-view-log.el"))]) (erc-twitch . [(20170427 606) ((json (1 3)) (erc (5 0))) "Support for Twitch emotes for ERC." single ((:commit . "53c6af0cb72e56d897d30a40e7e5066668d6b5ec") (:keywords "twitch" "erc" "emotes") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/vibhavp/erc-twitch"))]) (erc-tweet . [(20150920 1258) nil "shows text of a tweet when an url is posted in erc buffers" single ((:commit . "91fed61e139fa788d66a7358f0d50acc896414b8") (:keywords "extensions") (:authors ("Raimon Grau" . "raimonster@gmail.com")) (:maintainer "Raimon Grau" . "raimonster@gmail.com"))]) (erc-track-score . [(20130328 1215) nil "Add score support to tracked channel buffers" single ((:commit . "5b27531ea6b1a4c4b703b270dfa9128cb5bfdaa3") (:authors ("Julien Danjou" . "julien@danjou.info")) (:maintainer "Julien Danjou" . "julien@danjou.info") (:url . "http://julien.danjou.info/erc-track-score.html"))]) (erc-terminal-notifier . [(20140115 1024) nil "OSX notifications via the terminal-notifier gem for Emacs ERC." single ((:commit . "a3dacb935845e4a20031212bbd82b2170f68d2a8") (:keywords "erc" "terminal-notifier" "nick") (:authors ("Julien Blanchard" . "julien@sideburns.eu")) (:maintainer "Julien Blanchard" . "julien@sideburns.eu") (:url . "http://github.com/julienXX/"))]) (erc-status-sidebar . [(20171223 2124) ((emacs (24 5)) (seq (2 3))) "a hexchat-like activity overview for ERC channels" single ((:commit . "ea4189a1dbfe60117359c36e681ad7c389e2968c") (:authors ("Andrew Barbarello")) (:maintainer "Andrew Barbarello") (:url . "https://github.com/drewbarbs/erc-status-sidebar"))]) (erc-social-graph . [(20150508 1204) nil "A social network graph module for ERC." single ((:commit . "e6ef3416a1c5064054bf054d9f0c1c7bf54a9cd0") (:keywords "erc" "graph") (:authors ("Vibhav Pant" . "vibhavp@gmail.com")) (:maintainer "Vibhav Pant" . "vibhavp@gmail.com") (:url . "https://github.com/vibhavp/erc-social-graph"))]) (erc-scrolltoplace . [(20180608 606) ((emacs (24 0)) (switch-buffer-functions (0 0 1))) "An Erc module to scrolltobottom better with keep-place" single ((:commit . "feb0fbf1fd4bdf220ae2d31ea7c066d8e62089f9") (:keywords "erc" "module" "comm" "scrolltobottom" "keep-place") (:authors ("Jay Kamat" . "jaygkamat@gmail.com")) (:maintainer "Jay Kamat" . "jaygkamat@gmail.com") (:url . "http://gitlab.com/jgkamat/erc-scrolltoplace"))]) (erc-image . [(20180522 1424) nil "Show received image urls in the ERC buffer" single ((:commit . "82fb3871f02e24b1e880770b9a3d187aab43d0f0") (:keywords "multimedia") (:authors ("Jon de Andrés Frías" . "jondeandres@gmail.com") ("Raimon Grau Cuscó" . "raimonster@gmail.com")) (:maintainer "Jon de Andrés Frías" . "jondeandres@gmail.com"))]) (erc-hl-nicks . [(20180415 1946) nil "ERC nick highlighter that ignores uniquifying chars when colorizing" single ((:commit . "756c4438a8245ccd3e389bf6c9850ee8453783ec") (:authors ("David Leatherman" . "leathekd@gmail.com")) (:maintainer "David Leatherman" . "leathekd@gmail.com") (:url . "http://www.github.com/leathekd/erc-hl-nicks"))]) (erc-hipchatify . [(20170314 1637) ((emacs (24 4)) (s (1 10 0)) (alert (1 2)) (request (0 2 0))) "Provide emoticons and html rendering for HipChat" single ((:keywords "erc" "bitlbee" "hipchat" "multimedia") (:authors ("Sean Farley" . "sean@farley.io")) (:maintainer "Sean Farley" . "sean@farley.io") (:url . "https://bitbucket.org/seanfarley/erc-hipchatify"))]) (erc-crypt . [(20161228 1539) ((cl-lib (0 5))) "Symmetric Encryption for ERC" single ((:commit . "731f9264a5bf08a8fc0b5ce69e72058c86f873a5") (:keywords "comm") (:authors (nil . "xristos@sdf.lonestar.org")) (:maintainer nil . "xristos@sdf.lonestar.org") (:url . "https://github.com/atomontage/erc-crypt"))]) (erc-colorize . [(20170107 1339) nil "Per user colorization of whole message" single ((:commit . "d026a016dcb9d63d9ac66d30627a92a8f1681bbd") (:keywords "erc" "convenience") (:authors ("Sylvain Rousseau <thisirs at gmail dot com>")) (:maintainer "Sylvain Rousseau <thisirs at gmail dot com>") (:url . "https://github.com/thisirs/erc-colorize.git"))]) (eproject . [(20180312 1642) ((helm (1 6 4))) "assign files to projects, programatically" tar ((:commit . "068218d2cf2138cb2e8fc29b57e773a0097a7e8b") (:keywords "programming" "projects") (:authors ("Jonathan Rockway" . "jon@jrock.us")) (:maintainer "Jonathan Rockway" . "jon@jrock.us"))]) (eprime-mode . [(20140513 1816) nil "An E-prime checking mode for Emacs" single ((:commit . "17a481af26496be91c07139a9bfc05cfe722506f") (:keywords "e-prime" "english" "grammar") (:authors ("Andrew Hynes" . "andrewhynes@openmailbox.org")) (:maintainer "Andrew Hynes" . "andrewhynes@openmailbox.org") (:url . "https://github.com/AndrewHynes/eprime-mode"))]) (epresent . [(20160411 201) ((org (8)) (cl-lib (0 5))) "Simple presentation mode for Emacs Org-mode" single ((:commit . "6c8abedcf46ff08091fa2bba52eb905c6290057d") (:keywords "gui") (:url . "https://github.com/dakrone/epresent"))]) (epm . [(20161027 734) ((emacs (24 3)) (epl (0 8))) "Emacs Package Manager" tar ((:commit . "ab3d194fc4d11520d6b9bce4746d7242f3f1606a") (:authors ("Chunyang Xu" . "xuchunyang.me@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang.me@gmail.com") (:url . "https://github.com/xuchunyang/epm"))]) (epl . [(20180205 2049) ((cl-lib (0 3))) "Emacs Package Library" single ((:commit . "78ab7a85c08222cd15582a298a364774e3282ce6") (:keywords "convenience") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/cask/epl"))]) (epkg . [(20181104 1943) ((closql (1 0 0)) (dash (2 14 1)) (emacs (25 1))) "browse the Emacsmirror package database" tar ((:commit . "c42bc98a711ffa8d2a7b9096b563ac0edb0b9bf3") (:keywords "tools") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacscollective/epkg"))]) (epic . [(20170210 23) ((htmlize (1 47))) "Evernote Picker for Cocoa Emacs" single ((:commit . "a41826c330eb0ea061d58a08cc861b0c4ac8ec4e") (:keywords "evernote" "applescript") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net") (:url . "https://github.com/yoshinari-nomura/epic"))]) (epc . [(20140610 534) ((concurrent (0 3 1)) (ctable (0 1 2))) "A RPC stack for the Emacs Lisp" tar ((:commit . "e1bfa5ca163273859336e3cc89b4b6460f7f8cda") (:keywords "lisp" "rpc") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>") (:url . "https://github.com/kiwanami/emacs-epc"))]) (eopengrok . [(20160904 659) ((s (1 9 0)) (dash (2 10 0)) (magit (2 1 0)) (cl-lib (0 5))) "opengrok interface for emacs" single ((:commit . "78f734328aaf19c52720415c037708ece1944c4c") (:keywords "tools") (:authors ("Youngjoo Lee" . "youngker@gmail.com")) (:maintainer "Youngjoo Lee" . "youngker@gmail.com"))]) (envdir . [(20160221 1923) ((emacs (24)) (dash (2 10 0)) (f (0 17 2))) "Modify environment according to files in a specified directory" single ((:commit . "f29346c55ccf11d8c75628edc6d430ed63c36917") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/envdir-mode"))]) (ensime . [(20180615 1330) ((scala-mode (0 23)) (sbt-mode (0 2)) (yasnippet (0 10 0)) (company (0 9 0)) (dash (2 12 1)) (s (1 11 0)) (popup (0 5 3))) "ENhanced Scala Interaction Mode for Emacs" tar ((:commit . "34eb11dac3ec9d1c554c2e55bf056ece6983add7") (:keywords "languages") (:url . "https://github.com/ensime/ensime-emacs"))]) (enotify . [(20130407 1348) nil "A networked notification system for emacs" tar ((:commit . "7fd2f48ef4ff32c8f013c634ea2dd6b1d1409f80"))]) (eno . [(20160110 1034) ((dash (2 12 1)) (edit-at-point (1 0))) "Goto/copy/cut any word/symbol/line in view, similar to ace-jump/easymotion" single ((:commit . "40075bb1ed9e62f42c5799f3d3721734742ed417") (:authors (nil . "<e.enoson@gmail.com>")) (:maintainer nil . "<e.enoson@gmail.com>") (:url . "http://github.com/enoson/eno.el"))]) (enlive . [(20170725 1417) nil "query html document with css selectors" single ((:commit . "604a8ca272b6889f114e2b5a13adb5b1dc4bae86") (:keywords "css" "selector" "query") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com") (:url . "http://github.com/zweifisch/enlive"))]) (enh-ruby-mode . [(20180730 2309) ((emacs (24))) "Major mode for editing Ruby files" tar ((:commit . "09e1ed06c1cf323e3b4d45cd86353087e6a12fde") (:keywords "languages" "elisp" "ruby") (:authors ("Geoff Jacobsen")) (:maintainer "Geoff Jacobsen") (:url . "http://github.com/zenspider/Enhanced-Ruby-Mode"))]) (engine-mode . [(20180401 1646) ((cl-lib (0 5))) "Define and query search engines from within Emacs." single ((:commit . "fd5a235b2c93b95143d676e6b654e388d7cdd956") (:authors ("Harry R. Schwartz" . "hello@harryrschwartz.com")) (:maintainer "Harry R. Schwartz" . "hello@harryrschwartz.com") (:url . "https://github.com/hrs/engine-mode"))]) (encourage-mode . [(20151128 905) ((emacs (24 4))) "Encourages you in your work. :D" single ((:commit . "99edacf2d94d168d3da0609860dc7253db7c9815") (:keywords "fun") (:authors ("Patrick Mosby" . "patrick@schreiblogade.de")) (:maintainer "Patrick Mosby" . "patrick@schreiblogade.de") (:url . "https://github.com/halbtuerke/encourage-mode.el"))]) (enclose . [(20121008 1614) nil "Enclose cursor within punctuation pairs." tar ((:commit . "2747653e84af39017f503064bc66ed1812a77259"))]) (emr . [(20180921 2115) ((s (1 3 1)) (dash (1 2 0)) (cl-lib (0 2)) (popup (0 5 0)) (emacs (24 1)) (list-utils (0 3 0)) (paredit (24 0 0)) (projectile (0 9 1)) (clang-format (0)) (iedit (0 97))) "Emacs refactoring system." tar ((:commit . "8856b2ed7e45dd33a5f81e1302a2fba736c64dd6") (:keywords "tools" "convenience" "refactoring") (:authors ("Chris Barrett" . "chris.d.barrett@me.com")) (:maintainer "Chris Barrett" . "chris.d.barrett@me.com"))]) (empos . [(20151011 1916) nil "Locate bibtex citations from within emacs" single ((:commit . "7b99ad30e56937adb7e6349777e5a2045597d564") (:keywords "citations" "reference" "bibtex" "reftex") (:authors ("Dimitris Alikaniotis <da352 [at] cam.ac.uk>")) (:maintainer "Dimitris Alikaniotis <da352 [at] cam.ac.uk>") (:url . "http://github.com/dimalik/empos/"))]) (emojify-logos . [(20180814 917) ((emojify (0 4))) "Add logos to emojify" tar ((:commit . "a3e78bcbdf863092d4c9b026ac08bf7d1c7c0e8b") (:authors ("mxgoldstein" . "m_goldstein@gmx.net")) (:maintainer "mxgoldstein" . "m_goldstein@gmx.net") (:url . "https://github.com/mxgoldstein/emojify-logos"))]) (emojify . [(20180611 1538) ((seq (1 11)) (ht (2 0)) (emacs (24 3))) "Display emojis in Emacs" tar ((:commit . "38ae28d95b58e9fb86a3495a2dda3e5de254c4fc") (:keywords "multimedia" "convenience") (:authors ("Iqbal Ansari" . "iqbalansari02@yahoo.com")) (:maintainer "Iqbal Ansari" . "iqbalansari02@yahoo.com") (:url . "https://github.com/iqbalansari/emacs-emojify"))]) (emoji-recall . [(20160723 2208) ((emacs (24))) "How many emoji can you recall from memory?" tar ((:commit . "d9122f8fb1467309260109a1985cd14f18fdf631") (:keywords "game") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/emoji-recall.el"))]) (emoji-fontset . [(20160726 1924) nil "Set font face for Emoji." single ((:commit . "10be897fa5165fd40fd35a89e38c759e008fa775") (:keywords "emoji" "font" "config") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))]) (emoji-display . [(20140117 1013) nil "emoji displaying module" single ((:commit . "bb4217f6400151a9cfa6d4524b8427f01feb5193") (:keywords "emoji") (:authors ("Kazuhiro Ito" . "kzhr@d1.dion.ne.jp")) (:maintainer "Kazuhiro Ito" . "kzhr@d1.dion.ne.jp") (:url . "https://github.com/ikazuhiro/emoji-display"))]) (emoji-cheat-sheet-plus . [(20150617 1331) ((emacs (24)) (helm (1 6 4))) "emoji-cheat-sheet for emacs" tar ((:commit . "96a003127d646a2683d81ca906a17eace0a6413e") (:keywords "emacs" "emoji") (:authors ("Sylvain Benner (based on the work of Shingo Fukuyama)")) (:maintainer "Sylvain Benner (based on the work of Shingo Fukuyama)") (:url . "https://github.com/syl20bnr/emacs-emoji-cheat-sheet-plus"))]) (emms-state . [(20160504 805) ((emms (0))) "Display track description and playing time in the mode line" single ((:commit . "77930300222333b71eafd495cc1fee3a3585eb23") (:keywords "emms") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/emms-state.el"))]) (emms-soundcloud . [(20131221 1145) ((emms (20131016)) (json (1 2))) "EMMS source for Soundcloud audio sharing platform" single ((:commit . "87e5cbf9609d1f26c24dc834fdeb78b33d453c2b") (:keywords "emms" "soundcloud") (:authors ("Ozan Sener" . "ozan@ozansener.com")) (:maintainer "Ozan Sener" . "ozan@ozansener.com") (:url . "http://github.com/osener/emms-soundcloud"))]) (emms-player-simple-mpv . [(20180316 1549) ((emacs (24)) (cl-lib (0 5)) (emms (4 0))) "An extension of emms-player-simple.el for mpv JSON IPC" tar ((:commit . "101d120ccdee1c2c213fd2f0423c858b21649c00") (:keywords "emms" "mpv") (:authors ("momomo5717")) (:maintainer "momomo5717") (:url . "https://github.com/momomo5717/emms-player-simple-mpv"))]) (emms-player-mpv-jp-radios . [(20180325 1117) ((emacs (24)) (cl-lib (0 5)) (emms (4 0)) (emms-player-simple-mpv (0 1 7))) "EMMS players and stream lists of Japan radio stations" tar ((:commit . "f6b37f5878c741124d5fca43c5b80af873541edd") (:keywords "emms" "mpv" "radio") (:url . "https://github.com/momomo5717/emms-player-mpv-jp-radios"))]) (emms-player-mpv . [(20180503 2127) ((emms (0))) "mpv support for EMMS" single ((:commit . "9c9ffc6f00a737a6db6377681a88e5292ebcf86b") (:keywords "multimedia" "emms" "mpv") (:url . "https://github.com/dochang/emms-player-mpv/"))]) (emms-mode-line-cycle . [(20160221 1120) ((emacs (24)) (emms (4 0))) "Display the emms mode line as a ticker" single ((:commit . "2c2f395e484a1d345050ddd61ff5fab71a92a6bc") (:keywords "emms" "mode-line") (:authors ("momomo5717")) (:maintainer "momomo5717") (:url . "https://github.com/momomo5717/emms-mode-line-cycle"))]) (emms-mark-ext . [(20130529 327) ((emms (3 0))) "Extra functions for emms-mark-mode and emms-tag-edit-mode" single ((:commit . "ec68129e3e9e469e5bf160c6a1b7030e322f3541") (:keywords "convenience" "multimedia") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/emms-mark-ext"))]) (emms-info-mediainfo . [(20131223 1300) ((emms (0))) "Info-method for EMMS using medianfo" single ((:commit . "bce16eae9eacd38719fea62a9755225a888da59d") (:keywords "multimedia" "processes") (:authors ("Fabián Ezequiel Gallina" . "fgallina@gnu.org")) (:maintainer "Fabián Ezequiel Gallina" . "fgallina@gnu.org"))]) (emms-bilibili . [(20180103 418) ((emacs (25)) (cl-lib (0 5))) "Play Bilibili in EMMS." single ((:commit . "294bca3dfc42fe3a55fb326ab39bc0fcfc8c5090") (:keywords "emms" "bilibili") (:url . "https://github.com/stardiviner/emms-bilibili"))]) (emms . [(20181101 1813) ((cl-lib (0 5))) "The Emacs Multimedia System" tar ((:commit . "56d9ec27dbbe75496e338f6621e196c04472470f") (:keywords "emms" "mp3" "mpeg" "multimedia") (:authors ("Jorgen Schäfer" . "forcer@forcix.cx")) (:maintainer "Jorgen Schäfer" . "forcer@forcix.cx") (:url . "http://www.gnu.org/software/emms/"))]) (emmet-mode . [(20180613 341) nil "Unofficial Emmet's support for emacs" single ((:commit . "1acb821e0142136344ccf40c1e5fb664d7db2e70") (:keywords "convenience") (:authors ("Shin Aoyama" . "smihica@gmail.com")) (:maintainer "Shin Aoyama" . "smihica@gmail.com") (:url . "https://github.com/smihica/emmet-mode"))]) (emlib . [(20161126 1523) ((dash (2 13 0)) (cl-lib (0 5))) "A Machine Learning library for Emacs" tar ((:commit . "dea2af00f551ea580c641d86dd69219f7d4f3685") (:keywords "data" "ai" "neural networks" "ml") (:authors ("Narendra Joshi" . "narendraj9@gmail.com")) (:maintainer "Narendra Joshi" . "narendraj9@gmail.com") (:url . "https://github.com/narendraj9/emlib.git"))]) (embrace . [(20171031 1833) ((cl-lib (0 5)) (expand-region (0 10 0))) "Add/Change/Delete pairs based on `expand-region'" single ((:commit . "dd5da196e5bcc5e6d87e1937eca0c21da4334ef2") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (ember-yasnippets . [(20160526 1658) ((yasnippet (0 8 0))) "Snippets for Ember.js development" tar ((:commit . "3b5bd01569646237bf1b540d097e12f9118b67f4") (:keywords "tools" "abbrev" "languages") (:authors ("Ron White" . "ronco@costite.com")) (:maintainer "Ron White" . "ronco@costite.com"))]) (ember-mode . [(20181001 936) ((cl-lib (0 5))) "Ember navigation mode for emacs" single ((:commit . "88e5ffd33d8664b4d5124d6aa2ea9ed8d50c8c9e") (:keywords "ember" "ember.js" "emberjs") (:authors ("Aad Versteden" . "madnificent@gmail.com")) (:maintainer "Aad Versteden" . "madnificent@gmail.com"))]) (emaps . [(20180712 1916) nil "utilities for working with keymaps." single ((:commit . "823b8f72e6459c9f1a5dd62451ee4005ef71d955") (:keywords "convenience" "keyboard" "keymap" "utility") (:authors ("Ben Moon" . "software@guiltydolphin.com")) (:maintainer "Ben Moon" . "software@guiltydolphin.com") (:url . "https://github.com/GuiltyDolphin/emaps"))]) (emamux-ruby-test . [(20130812 1639) ((emamux (0 1)) (projectile (0 9 1))) "Ruby test with emamux" single ((:commit . "23b73c650573b340351a919da3da416acfc2ac84") (:url . "https://github.com/syohex/emamux-ruby-test"))]) (emamux . [(20170227 337) ((emacs (24 3))) "Interact with tmux" single ((:commit . "39f57786b2cdd3844888df42d71c7bd251f07158") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-emamux"))]) (emacsshot . [(20161018 1443) nil "Snapshot a frame or window from within Emacs" tar ((:commit . "11ace77ab718292d05b82d93178380aff591468b") (:keywords "convenience") (:authors ("Marco Wahl" . "marcowahlsoft@gmail.com")) (:maintainer "Marco Wahl") (:url . "https://github.com/marcowahl/emacsshot"))]) (emacsql-sqlite . [(20180128 2052) ((emacs (25 1)) (emacsql (2 0 0))) "EmacSQL back-end for SQLite" tar ((:commit . "f8c3d9fce28ab7d5b0c9fcf2c1236151ca7add24") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/emacsql"))]) (emacsql-psql . [(20171219 227) ((emacs (25 1)) (emacsql (2 0 0))) "EmacSQL back-end for PostgreSQL via psql" tar ((:commit . "f8c3d9fce28ab7d5b0c9fcf2c1236151ca7add24") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/emacsql"))]) (emacsql-mysql . [(20171219 227) ((emacs (25 1)) (emacsql (2 0 0))) "EmacSQL back-end for MySQL" single ((:commit . "f8c3d9fce28ab7d5b0c9fcf2c1236151ca7add24") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/emacsql"))]) (emacsql . [(20181111 1005) ((emacs (25 1))) "high-level SQL database front-end" tar ((:commit . "f8c3d9fce28ab7d5b0c9fcf2c1236151ca7add24") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/emacsql"))]) (emacsist-view . [(20160426 1223) nil "Mode for viewing emacsist.com" single ((:commit . "f67761259ed779a9bc95c9a4e0474522990c5c6b") (:keywords "convenience" "usability") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/emacsist-view"))]) (emacsc . [(20161028 1706) nil "helper for emacsc(1)" tar ((:commit . "421e0c567358769e32f670ae8e949d99abae0c28") (:keywords "tools") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/emacsc"))]) (emacsagist . [(20140331 1830) ((cl-lib (0 5))) "Search Packagist.org packages without leaving Emacs" single ((:commit . "aba342ba59c254a88017f25e9fb7a8cd6f2fda83") (:keywords "tools") (:authors ("Brian Zwahr" . "echosa@icloud.com")) (:maintainer "Brian Zwahr" . "echosa@icloud.com") (:url . "http://github.com/echosa/emacsagist"))]) (emacs-setup . [(20120727 1426) nil "Package for maintaining your emacs configuration. Clean up your .emacs!" tar ((:commit . "c783ec13e3b39093fffb6f6d64dccdce8ce4d375"))]) (elx . [(20181111 1007) ((emacs (25 1))) "extract information from Emacs Lisp libraries" single ((:commit . "c554db7e7f2c0c8a503def7739b8205193ba821f") (:keywords "docs" "libraries" "packages") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacscollective/elx"))]) (elwm . [(20150817 1007) ((dash (1 1 0))) "Minimalistic window manager for emacs" single ((:commit . "c33b183f006ad476c3a44dab316f580f8b369930") (:keywords "docs") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/elwm"))]) (elvish-mode . [(20180809 1612) ((emacs (24 3))) "Defines a major mode for Elvish" single ((:commit . "c3a7e31564256b9755b1ab9fb40d32ad78cd1ad2") (:authors ("Adam Schwalm" . "adamschwalm@gmail.com")) (:maintainer "Adam Schwalm" . "adamschwalm@gmail.com") (:url . "https://github.com/ALSchwalm/elvish-mode"))]) (elscreen-separate-buffer-list . [(20161107 358) ((emacs (24 4)) (elscreen (1 4 6))) "Separate buffer list manager for elscreen" single ((:commit . "7652d827aa1b8c1b04303c5b4b0bda5e8f85565e") (:keywords "elscreen") (:authors ("wamei" . "wamei.cho@gmail.com")) (:maintainer "wamei" . "wamei.cho@gmail.com"))]) (elscreen-multi-term . [(20151022 233) ((emacs (24 4)) (elscreen (1 4 6)) (multi-term (1 3))) "Multi term for elscreen" single ((:commit . "7b6048a0dd80f69460a62bbc6f1af8856141a5ea") (:keywords "elscreen" "multi term") (:authors ("wamei" . "wamei.cho@gmail.com")) (:maintainer "wamei" . "wamei.cho@gmail.com"))]) (elscreen-mew . [(20160504 1835) ((elscreen (20120413 807))) "ElScreen Add-On for Mew" single ((:commit . "c90a23441d836da14a1cb12788432308ba58e2b6") (:authors ("Takashi Masuda" . "masutaka.net@gmail.com")) (:maintainer "Takashi Masuda" . "masutaka.net@gmail.com") (:url . "https://github.com/masutaka/elscreen-mew"))]) (elscreen-fr . [(20160920 953) ((elscreen (0)) (seq (1 11))) "Use frame title as screen tab" single ((:commit . "b9c11f80d277086d5d5bf88623e15fc7adbbbe3c") (:authors ("Francesc Rocher" . "francesc.rocher@gmail.com")) (:maintainer "Francesc Rocher" . "francesc.rocher@gmail.com") (:url . "http://github.com/rocher/elscreen-fr"))]) (elscreen-buffer-group . [(20181027 528) ((emacs (24 4)) (elscreen (0)) (cl-lib (0 5))) "elscreen buffer group" single ((:commit . "cd671c4a86ff6e481d24d060b4069e518940f9c9") (:keywords "buffer") (:authors ("Jeff Gran" . "jeff@jeffgran.com") ("Author: Ryan C. Thompson")) (:maintainer "Jeff Gran" . "jeff@jeffgran.com") (:url . "https://github.com/jeffgran/elscreen-buffer-group"))]) (elscreen . [(20181009 451) ((emacs (24))) "Emacs window session manager" tar ((:commit . "cc58337faf5ba1eae7e87f75f6ff3758675688f2") (:keywords "window" "convenience") (:authors ("Naoto Morishima" . "naoto@morishima.net")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/elscreen"))]) (elsa . [(20181119 2147) ((trinary (1 0 0)) (emacs (25 1)) (f (0)) (dash (2 14)) (cl-lib (0 3))) "Emacs Lisp Static Analyser" tar ((:commit . "9a2f3d5abfac44ab50aa9b6c34bbe8b9562741b1"))]) (elquery . [(20180917 2217) ((emacs (25 1)) (s (1 11 0)) (dash (2 13 0))) "The HTML library for elisp." single ((:commit . "eac429d8550fbf1582c57d5e16fed9f320d6eb30") (:keywords "html" "hypermedia" "tools" "webscale") (:authors ("Adam Niederer")) (:maintainer "Adam Niederer") (:url . "https://github.com/AdamNiederer/elquery"))]) (elpygen . [(20171225 1736) ((emacs (25)) (yasnippet (0 8 0))) "Generate a Python function/method using a symbol under point" single ((:commit . "21929c997a05968f9eefe52b85a76ceaab3b0d81") (:keywords "python" "languages" "tools") (:authors ("Vladimir Kazanov" . "vkazanov@inbox.ru")) (:maintainer "Vladimir Kazanov" . "vkazanov@inbox.ru") (:url . "https://github.com/vkazanov/elpygen"))]) (elpy . [(20181103 1105) ((company (0 9 2)) (emacs (24 4)) (find-file-in-project (3 3)) (highlight-indentation (0 5 0)) (pyvenv (1 3)) (yasnippet (0 8 0)) (s (1 11 0))) "Emacs Python Development Environment" tar ((:commit . "c60189ec9bba29b75f32dfab814a9c7af96520eb"))]) (elpa-mirror . [(20181013 256) ((emacs (24 4))) "Create local package repository so package upgrade never breaks" single ((:commit . "4e94c5058f67ace2f739f5b3a8cd04d30289febf") (:keywords "cloud" "mirror" "elpa") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/elpa-mirror"))]) (elpa-clone . [(20170502 1214) ((emacs (24 4)) (cl-lib (0))) "Clone ELPA archive" single ((:commit . "92f4c9d3570ad002575a90d0cc4a522c203a1110") (:keywords "comm" "elpa" "clone" "mirror") (:authors ("ZHANG Weiyi" . "dochang@gmail.com")) (:maintainer "ZHANG Weiyi" . "dochang@gmail.com") (:url . "https://github.com/dochang/elpa-clone"))]) (elpa-audit . [(20141023 1331) nil "Handy functions for inspecting and comparing package archives" single ((:commit . "727da50e626977351aff2675b6540a36818bbbe6") (:keywords "maint") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/elpa-audit"))]) (eloud . [(20160731 1557) ((emacs (24 4))) "A lightweight, interactive screen reader" single ((:commit . "82c97918585bd2a749251ae87d7732ca9d856c16") (:keywords "extensions") (:authors ("Patrick Smyth" . "patricksmyth01@gmail.com")) (:maintainer "Patrick Smyth" . "patricksmyth01@gmail.com") (:url . "https://github.com/smythp/eloud"))]) (elogcat . [(20151121 41) ((s (1 9 0)) (dash (2 10 0))) "logcat interface" single ((:commit . "4f311b7a07565b0d060334bc68edb36f2bff703f") (:keywords "tools") (:authors ("Youngjoo Lee" . "youngker@gmail.com")) (:maintainer "Youngjoo Lee" . "youngker@gmail.com"))]) (elog . [(20160724 2255) ((eieio (1 3))) "logging library extended from logito" single ((:commit . "a67237d9813c7591614d95e2ef31cc5e5ed3f31b") (:keywords "lisp" "tool" "log") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))]) (elnode . [(20140203 2306) ((web (0 1 4)) (dash (1 1 0)) (noflet (0 0 7)) (s (1 5 0)) (creole (0 8 14)) (fakir (0 1 6)) (db (0 0 5)) (kv (0 0 17))) "The Emacs webserver." tar ((:commit . "3f2bf225853e40a2a10386ee5ae0bd6ba5d44ce9"))]) (elmine . [(20170511 720) ((s (1 10 0))) "Redmine API access via elisp." single ((:commit . "432d2f2f7cb5b533f25b993d1001abcadcebe8ed") (:keywords "tools") (:authors ("Arthur Andersen" . "leoc.git@gmail.com")) (:maintainer "Arthur Andersen" . "leoc.git@gmail.com") (:url . "http://github.com/leoc/elmine"))]) (elmacro . [(20180628 1411) ((s (1 11 0)) (dash (2 13 0))) "Convert keyboard macros to emacs lisp" single ((:commit . "89b9b0feabafd01fee48111d67131c4c9b5fed9a") (:keywords "macro" "elisp" "convenience") (:authors ("Philippe Vaucher" . "philippe.vaucher@gmail.com")) (:maintainer "Philippe Vaucher" . "philippe.vaucher@gmail.com") (:url . "https://github.com/Silex/elmacro"))]) (elm-yasnippets . [(20160401 524) ((yasnippet (0 8 0))) "Yasnippets for Elm" tar ((:commit . "45a11a0cef0c36633fb3477d3dc4167e82779ba4") (:keywords "snippets") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com"))]) (elm-test-runner . [(20180918 2255) ((emacs (24 4))) "Enhanced support for running elm-test" single ((:commit . "73696add403cee6547fcb6eb4e49798e1583d0e2") (:authors ("Juan Edi")) (:maintainer "Juan Edi") (:url . "https://github.com/juanedi/elm-test-runner"))]) (elm-mode . [(20181114 2235) ((f (0 17)) (let-alist (1 0 5)) (seq (2 2)) (s (1 7 0)) (emacs (24 4)) (dash (2 13 0))) "Major mode for Elm" tar ((:commit . "a52c0c6216145ec1cf39d06541ad74f33f4816cc") (:authors ("Joseph Collard")) (:maintainer "Joseph Collard") (:url . "https://github.com/jcollard/elm-mode"))]) (elixir-yasnippets . [(20150417 1239) ((yasnippet (0 8 0))) "Yasnippets for Elixir" tar ((:commit . "980ca7626c14ef0573bec0035ec7942796062783"))]) (elixir-mode . [(20180711 1245) ((emacs (24)) (pkg-info (0 4))) "Major mode for editing Elixir files" tar ((:commit . "bfd09392a0253e4b96c642472e5d5b757a5254f8") (:keywords "languages" "elixir") (:url . "https://github.com/elixir-lang/emacs-elixir"))]) (elisp-slime-nav . [(20160128 1909) ((cl-lib (0 2))) "Make M-. and M-, work in elisp like they do in slime" single ((:commit . "34938422929800839e2f935aca890cd4a229ca99") (:keywords "navigation" "slime" "elisp" "emacs-lisp") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/elisp-slime-nav"))]) (elisp-sandbox . [(20131116 1842) nil "Evaluate EmacsLisp expressions in a sandbox" single ((:commit . "d894d68934ef09c42f72ac4e1173a0bedc23f139") (:keywords "lisp") (:authors ("Joel McCracken <mccracken.joel@gmail.com>, D. Goel" . "deego@gnufans.org")) (:maintainer "Joel McCracken <mccracken.joel@gmail.com>, D. Goel" . "deego@gnufans.org") (:url . "https://github.com/joelmccracken/elisp-sandbox"))]) (elisp-refs . [(20181111 2223) ((dash (2 12 0)) (loop (1 2)) (s (1 11 0))) "find callers of elisp functions or macros" single ((:commit . "686aa5e6a6cc7cd20c6e11837251e19f303211b6") (:keywords "lisp") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (elisp-lint . [(20180224 2042) ((emacs (24))) "basic linting for Emacs Lisp" single ((:commit . "04b0d36ec0e4dc1bb54c2bf4c2d16b2af8cf6a39") (:keywords "lisp" "maint" "tools") (:authors ("Nikolaj Schumacher <bugs * nschum de>,")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>,") (:url . "http://github.com/gonewest818/elisp-lint/"))]) (elisp-format . [(20160508 952) nil "Format elisp code" single ((:commit . "03cc293eb2f78ec58fc1d84279af06816a04b979") (:authors (nil . "Andy Stewart lazycat.manatee@gmail.com")) (:maintainer "Yuki Inoue inouetakahiroki _at_ gmail.com") (:url . "https://github.com/Yuki-Inoue/elisp-format"))]) (elisp-docstring-mode . [(20170304 1615) nil "Major mode for editing elisp docstrings." single ((:commit . "f512e509dd690f65133e55563ebbfd2dede5034f") (:keywords "languages") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (elisp-depend . [(20161230 1550) nil "Parse depend libraries of elisp file." single ((:commit . "e4b201ac7dcee4489d58800c299fd04aaa61d07a"))]) (elisp-def . [(20180806 723) ((dash (2 12 0)) (f (0 19 0)) (s (1 11 0)) (emacs (24 3))) "macro-aware go-to-definition for elisp" single ((:commit . "368b04da68783601b52e3169312183381871cf9e") (:keywords "lisp") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (elhome . [(20161025 2042) ((initsplit (20120630))) "A framework for a \"home\" Emacs configuration" tar ((:commit . "e789e806469af3e9705f72298683c21f6c3a516d") (:keywords "lisp") (:authors ("Dave Abrahams" . "dave@boostpro.com")) (:maintainer "Demyan Rogozhin" . "demyan.rogozhin@gmail.com") (:url . "http://github.com/demyanrogozhin/elhome"))]) (elgrep . [(20181023 959) ((emacs (25 1)) (async (1 9 2))) "Searching files for regular expressions" single ((:commit . "d648df1f2bde466d74c4810d7abab700a10b30d0") (:keywords "tools" "matching" "files" "unix") (:authors ("Tobias Zawada" . "naehring@smtp.1und1.de")) (:maintainer "Tobias Zawada" . "naehring@smtp.1und1.de") (:url . "https://github.com/TobiasZawada/elgrep"))]) (elfeed-web . [(20180829 1716) ((simple-httpd (1 4 3)) (elfeed (1 4 0)) (emacs (24 1))) "web interface to Elfeed" tar ((:commit . "afafa1f7d9e29de55ce5b1709074738a7e185f2a"))]) (elfeed-protocol . [(20181117 1159) ((emacs (24 4)) (elfeed (2 1 1)) (cl-lib (0 5)) (auth-source (0))) "Provide owncloud/ttrss protocols for elfeed" tar ((:commit . "29895e39400a31750dfd3d9a327840d7a59384df") (:keywords "news") (:authors ("Xu Fasheng" . "fasheng.xu@gmail.com")) (:maintainer "Xu Fasheng" . "fasheng.xu@gmail.com") (:url . "https://github.com/fasheng/elfeed-protocol"))]) (elfeed-org . [(20181015 1100) ((elfeed (1 1 1)) (org (8 2 7)) (dash (2 10 0)) (s (1 9 0)) (cl-lib (0 5))) "Configure elfeed with one or more org-mode files" single ((:commit . "607b8bf4923a995260a072559b77bee188614a06") (:keywords "news") (:authors ("Remy Honig" . "remyhonig@gmail.com")) (:maintainer "Remy Honig" . "remyhonig@gmail.com") (:url . "https://github.com/remyhonig/elfeed-org"))]) (elfeed-goodies . [(20171127 651) ((popwin (1 0 0)) (powerline (2 2)) (elfeed (2 0 0)) (cl-lib (0 5)) (noflet (0 0 10)) (ace-jump-mode (2 0))) "Elfeed goodies" tar ((:commit . "fc0c3e72f9fcd7bbf5237f6f2323bc666e8240b4") (:authors ("Gergely Nagy")) (:maintainer "Gergely Nagy") (:url . "https://github.com/algernon/elfeed-goodies"))]) (elfeed . [(20180916 1338) ((emacs (24 3))) "an Emacs Atom/RSS feed reader" tar ((:commit . "afafa1f7d9e29de55ce5b1709074738a7e185f2a"))]) (elf-mode . [(20161009 748) ((emacs (24 3))) "Show symbols in binaries" single ((:commit . "cd280d683cd3341d8bb31af6db7e3b74a133e6ab") (:keywords "matching") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/elf-mode"))]) (elein . [(20120120 1116) nil "running leiningen commands from emacs" single ((:commit . "d4c0c0491dbb7c90e953d7a16172107c37103605") (:keywords "tools" "processes") (:authors ("R.W. van 't Veer")) (:maintainer "R.W. van 't Veer") (:url . "https://github.com/remvee/elein"))]) (electric-spacing . [(20161209 1957) nil "Insert operators with surrounding spaces smartly" single ((:commit . "9d0f8a213133f2619a4e9dfbba3b00d4348c07b0") (:authors ("William Xu" . "william.xwl@gmail.com")) (:maintainer "William Xu" . "william.xwl@gmail.com"))]) (electric-operator . [(20181030 2155) ((dash (2 10 0)) (emacs (24 4))) "Automatically add spaces around operators" tar ((:commit . "3057f786b2a7b00364da2995da482858e94046e1") (:keywords "electric") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com") (:url . "https://github.com/davidshepherd7/electric-operator"))]) (electric-case . [(20150417 1112) nil "insert camelCase, snake_case words without \"Shift\"ing" single ((:commit . "bac64e772107e3dc721a9819f63b9ebdc28a81f7") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (eldoc-overlay . [(20171219 940) ((emacs (24 3)) (inline-docs (1 0 1)) (quick-peek (1 0))) "Display eldoc with contextual documentation overlay." single ((:commit . "a391396f4cdf30a2f27a4c426b58b44ab3d0f0d0") (:keywords "documentation" "eldoc" "overlay") (:authors ("stardiviner" . "numbchild@gmail.com")) (:maintainer "stardiviner" . "numbchild@gmail.com") (:url . "https://github.com/stardiviner/eldoc-overlay"))]) (eldoc-eval . [(20180607 1157) nil "Enable eldoc support when minibuffer is in use." single ((:commit . "f59a1ae7ecfa97ef659c7adb93e0673419acc485") (:authors ("Thierry Volpiatto" . "thierry.volpiatto@gmail.com")) (:maintainer "Thierry Volpiatto" . "thierry.volpiatto@gmail.com"))]) (elcouch . [(20180809 936) ((emacs (25 1)) (json-mode (1 0 0)) (libelcouch (0 8 0))) "View and manipulate CouchDB databases" single ((:commit . "ae9b6261c5167d538914bfdbc4d34a36e50b5bc2") (:keywords "data" "tools") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://gitlab.petton.fr/DamienCassou/elcouch"))]) (elcord . [(20181028 650) ((emacs (25))) "Allows you to integrate Rich Presence from Discord" tar ((:commit . "2224b0dd9137c04a62dd8ff7078ab80e9289643e") (:keywords "games") (:authors ("heatingdevice") ("Wilfredo Velázquez-Rodríguez" . "zulu.inuoe@gmail.com")) (:maintainer "heatingdevice") (:url . "https://github.com/Mstrodl/elcord"))]) (elcontext . [(20180526 1304) ((ht (2 3)) (hydra (0 14 0)) (emacs (24 3)) (f (0 20 0)) (osx-location (0 4)) (uuidgen (0 3))) "Create context specific actions" tar ((:commit . "f434ffc655e6349a4dd52285ff68a9194bcfc949") (:keywords "calendar" "convenience") (:authors ("Thomas Sojka")) (:maintainer "Thomas Sojka") (:url . "https://github.com/rollacaster/elcontext"))]) (elbank . [(20180316 1343) ((emacs (25)) (seq (2 16))) "Personal finances reporting application" tar ((:commit . "fa9bc7dec0a8fd489e90b9f178719344cc8d315a") (:keywords "tools" "personal-finances") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr"))]) (el2org . [(20180311 1555) ((emacs (25 1))) "Convert elisp file to org file" single ((:commit . "81f1c97db8911f5bdf92c729630ab509de4ec73f") (:keywords "convenience") (:authors ("Feng Shu <tumashu AT 163.com>")) (:maintainer "Feng Shu <tumashu AT 163.com>") (:url . "https://github.com/tumashu/el2org"))]) (el2markdown . [(20170630 1858) nil "Convert commentary section of elisp files to markdown." single ((:commit . "368d99313683cd943c99feaffca356be60bdb636") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/el2markdown"))]) (el-x . [(20140111 2201) nil "main entry point for el-x package" tar ((:commit . "e7c333d4fc31a90f4dca951efe21129164b42605") (:keywords "lisp") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Yann Hodique" . "yann.hodique@gmail.com"))]) (el-spy . [(20131226 2008) nil "Mocking framework for Emacs lisp. It also support spy, proxy." single ((:commit . "b1dead9d1877660856ada22d906ac4e54695aec7") (:keywords "test") (:authors ("Yuuki Arisawa" . "yuuki.ari@gmail.com")) (:maintainer "Yuuki Arisawa" . "yuuki.ari@gmail.com") (:url . "https://github.com/uk-ar/el-spy"))]) (el-sprunge . [(20140107 139) ((web-server (20140105 2246)) (htmlize (20130207 1202)) (emacs (24 3))) "Command line paste server with Emacs highlighting" tar ((:commit . "37855ec60aeb4d565c49a4d711edc7341e9a22cb"))]) (el-spice . [(20180128 1721) nil "Extra spice for emacs lisp programming" tar ((:commit . "4e0852ebf5d8e9cbb3eaaa6ae9c53d126b53f58c") (:keywords "languages" "extensions") (:authors ("Vedang Manerikar" . "vedang.manerikar@gmail.com")) (:maintainer "Vedang Manerikar" . "vedang.manerikar@gmail.com") (:url . "https://github.com/vedang/el-spice"))]) (el-spec . [(20121018 704) nil "ruby's rspec like syntax test frame work" single ((:commit . "1dbc465401d4aea5560318c4f13ff30920a0718d") (:keywords "test") (:authors ("Yuuki Arisawa" . "yuuki.ari@gmail.com")) (:maintainer "Yuuki Arisawa" . "yuuki.ari@gmail.com") (:url . "https://github.com/uk-ar/el-spec"))]) (el-pocket . [(20170922 1249) ((web (0 5 2)) (emacs (24))) "Read and write to Pocket (getpocket.com)" single ((:commit . "a80abfb67efe68ada1d7d0a73aecee57e763baaa") (:keywords "emacs" "pocket" "bookmarks") (:authors ("Tod Davies" . "davies.t.o@gmail.com")) (:maintainer "Tod Davies" . "davies.t.o@gmail.com") (:url . "http://github.com/pterygota/el-pocket"))]) (el-patch . [(20181018 1610) ((emacs (25))) "Future-proof your Elisp." single ((:commit . "3051dd30d6d90b855da16332b5b16b4f754a39c6") (:keywords "extensions") (:authors ("Radon Rosborough" . "radon.neon@gmail.com")) (:maintainer "Radon Rosborough" . "radon.neon@gmail.com") (:url . "https://github.com/raxod502/el-patch"))]) (el-mock . [(20170824 1954) nil "Tiny Mock and Stub framework in Emacs Lisp" single ((:commit . "5df1d3a956544f1d3ad0bcd81daf47fff33ab8cc") (:keywords "lisp" "testing" "unittest") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/el-mock.el"))]) (el-init-viewer . [(20150303 828) ((emacs (24)) (cl-lib (0 5)) (ctable (0 1 2)) (dash (2 10 0)) (anaphora (1 0 0)) (el-init (0 1 4))) "Record viewer for el-init" single ((:commit . "8a2ab457586962bde0da2a1c56a37ce6363ae690") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com") (:url . "https://github.com/HKey/el-init-viewer"))]) (el-init . [(20150728 920) ((emacs (24)) (cl-lib (0 5)) (anaphora (1 0 0))) "A loader inspired by init-loader" single ((:commit . "65c48ec47fea84d16ff2d1ef7015b4d220fcf5ff") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com") (:url . "https://github.com/HKey/el-init"))]) (el-get . [(20181006 225) nil "Manage the external elisp bits and pieces you depend upon" tar ((:commit . "424487ed3aef4e6a08b48084654e7210deb0512e") (:keywords "emacs" "package" "elisp" "install" "elpa" "git" "git-svn" "bzr" "cvs" "svn" "darcs" "hg" "apt-get" "fink" "pacman" "http" "http-tar" "emacswiki") (:authors ("Dimitri Fontaine" . "dim@tapoueh.org")) (:maintainer "Dimitri Fontaine" . "dim@tapoueh.org") (:url . "http://www.emacswiki.org/emacs/el-get"))]) (el-fly-indent-mode . [(20180422 243) ((emacs (25))) "Indent Emacs Lisp on the fly" single ((:commit . "4917f486a7be7482dedfea0a7ac3d01cab4ce21c") (:keywords "lisp" "languages") (:authors ("Jiahao Li" . "jiahaowork@gmail.com")) (:maintainer "Jiahao Li" . "jiahaowork@gmail.com") (:url . "https://github.com/jiahaowork/el-fly-indent-mode.el"))]) (el-autoyas . [(20120918 1317) nil "Automatically create Emacs-Lisp Yasnippets" tar ((:commit . "bde0251ecb504f585dfa27c205c8e312655310cc") (:keywords "emacs" "lisp" "mode" "yasnippet") (:authors ("Matthew L. Fidler")) (:maintainer "Matthew L. Fidler") (:url . "https://github.com/mlf176f2/el-autoyas.el"))]) (ejc-sql . [(20181113 1055) ((emacs (25 1)) (clomacs (0 0 3)) (dash (2 12 1)) (auto-complete (1 5 1)) (spinner (1 7 1)) (direx (1 0 0))) "Emacs SQL client uses Clojure JDBC." tar ((:commit . "9eef50aeecf58fe7cc88722c8ade62edbe22c34e") (:keywords "sql" "jdbc") (:authors ("Kostafey" . "kostafey@gmail.com")) (:maintainer "Kostafey" . "kostafey@gmail.com") (:url . "https://github.com/kostafey/ejc-sql"))]) (eink-theme . [(20170717 1507) nil "E Ink color theme" single ((:commit . "4c990bb3428f725735fa1f733ef4c5ad61f632b0") (:authors ("Marian Schubert" . "marian.schubert@gmail.com")) (:maintainer "Marian Schubert" . "marian.schubert@gmail.com") (:url . "http://github.com/maio/eink-emacs"))]) (ein-mumamo . [(20150302 28) ((ein (0 4))) "Multiple major mode support for Emacs IPython Notebook" single ((:commit . "028fefec499598add1a87b92ed991891f38f0c7b") (:authors ("Takafumi Arakaki <aka.tkf at gmail.com>") (": John Miller <millejoh at mac.com>")) (:maintainer "Takafumi Arakaki <aka.tkf at gmail.com>"))]) (ein . [(20181113 2117) ((websocket (1 7)) (auto-complete (1 4 0)) (request (0 3)) (deferred (0 5)) (request-deferred (0 2 0)) (cl-generic (0 3)) (dash (2 13 0)) (s (1 11 0)) (skewer-mode (1 6 2))) "Emacs IPython Notebook" tar ((:commit . "07bc906df91bc60d1f39426ea2e86482aa03370c"))]) (eimp . [(20120826 2039) nil "Emacs Image Manipulation Package" single ((:commit . "2e7536fe6d8f7faf1bad7a8ae37faba0162c3b4f") (:keywords "files" "frames") (:authors ("Matthew P. Hodges" . "MPHodges@member.fsf.org")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk"))]) (eide . [(20180626 1959) nil "IDE interface" tar ((:commit . "6bd4c3b67a532527b3514c72bf2d7371172b8a93"))]) (ego . [(20180301 104) ((emacs (24 5)) (ht (1 5)) (mustache (0 22)) (htmlize (1 47)) (org (8 0)) (dash (2 0 0)) (simple-httpd (1 4 5))) "a static site generator based on org mode, forked from org-page." tar ((:commit . "719809679c1a60887735db41abae53b61f08ef59"))]) (eglot . [(20181119 2026) ((emacs (26 1)) (jsonrpc (1 0 6))) "Client for Language Server Protocol (LSP) servers" single ((:commit . "d66f2eb1d85c40291b55106d8d694d0298b3fddb") (:keywords "convenience" "languages") (:authors ("João Távora" . "joaotavora@gmail.com")) (:maintainer "João Távora" . "joaotavora@gmail.com") (:url . "https://github.com/joaotavora/eglot"))]) (egison-mode . [(20181109 1624) nil "Egison editing mode" single ((:commit . "932d3d05527b2abfccb835798aa615543d740623") (:authors ("Satoshi Egi" . "egisatoshi@gmail.com")) (:maintainer "Satoshi Egi" . "egisatoshi@gmail.com") (:url . "https://github.com/egisatoshi/egison3/blob/master/elisp/egison-mode.el"))]) (egg . [(20180713 918) nil "Emacs Got Git - Emacs interface to Git" tar ((:commit . "5bf9879eec067e25a60f2363137c9e69f7b5cc68") (:keywords "git" "version control" "release management") (:authors ("Bogolisk" . "bogolisk@gmail.com")) (:maintainer "Bogolisk" . "bogolisk@gmail.com"))]) (eg . [(20170830 815) ((cl-lib (0 5)) (emacs (24 3))) "Norton Guide reader" single ((:commit . "1c7f1613d2aaae728ef540305f6ba030616f86bd") (:keywords "docs") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/eg.el"))]) (efire . [(20151009 2031) ((circe (1 2))) "Use campfire from Emacs" single ((:commit . "91a644662afb352475efad0b377713656f131e5c") (:keywords "convenience" "tools") (:authors ("João Távora" . "joaotavora@gmail.com")) (:maintainer "João Távora" . "joaotavora@gmail.com") (:url . "https://github.com/capitaomorte/efire"))]) (edts . [(20171030 709) ((auto-complete (1 3 1)) (auto-highlight-symbol (1 53)) (dash (2 13)) (erlang (2 4 1)) (f (0 19 0)) (popup (0 4)) (s (1 11 0))) "Erlang Development Tool Suite" tar ((:commit . "6ef4bdf571235ee1b078db321402270cabff7fda"))]) (edn . [(20160215 1219) ((cl-lib (0 3)) (emacs (24 1)) (peg (0 6))) "Support for reading and writing the edn data format from elisp" single ((:commit . "be9e32d1b49e35247b263b0243df7cfdc8d413ab") (:keywords "edn" "clojure") (:authors ("Lars Andersen" . "expez@expez.com")) (:maintainer "Lars Andersen" . "expez@expez.com") (:url . "https://www.github.com/expez/edn.el"))]) (editorconfig-generate . [(20181116 635) ((emacs (24))) "Generate .editorconfig" single ((:commit . "2921b53700dedf16b57d684439add187663954cd") (:keywords "tools") (:authors ("10sr" . "8.slashes@gmail.com")) (:maintainer "10sr" . "8.slashes@gmail.com") (:url . "https://github.com/10sr/emacs-lisp/blob/master/editorconfig-generate.el"))]) (editorconfig-domain-specific . [(20180505 924) ((cl-lib (0 5)) (editorconfig (0 6 0))) "Apply brace style and other \"domain-specific\" EditorConfig properties" single ((:commit . "e9824160fb2e466afa755240ee3ab7cc5657fb04") (:keywords "editorconfig" "util") (:authors ("Lassi Kortela" . "lassi@lassi.io")) (:maintainer "Lassi Kortela" . "lassi@lassi.io") (:url . "https://github.com/lassik/editorconfig-emacs-domain-specific"))]) (editorconfig-custom-majormode . [(20180816 244) ((editorconfig (0 6 0))) "Decide major-mode and mmm-mode from EditorConfig" single ((:commit . "13ad1c83f847bedd4b3a19f9df7fd925853b19de") (:keywords "editorconfig" "util") (:authors ("10sr <8slashes+el [at] gmail [dot] com>")) (:maintainer "10sr <8slashes+el [at] gmail [dot] com>") (:url . "https://github.com/10sr/editorconfig-custom-majormode-el"))]) (editorconfig-charset-extras . [(20180223 457) ((editorconfig (0 6 0))) "Extra EditorConfig Charset Support" single ((:commit . "ddf60923c6f4841cb593b2ea04c9c710a01d262f") (:keywords "tools") (:authors ("10sr" . "8.slashes@gmail.com")) (:maintainer "10sr" . "8.slashes@gmail.com") (:url . "https://github.com/10sr/editorconfig-charset-extras-el"))]) (editorconfig . [(20181115 709) ((cl-lib (0 5))) "EditorConfig Emacs Plugin" tar ((:commit . "d6e48c863ed246be8894c6ee3c3c088ab4db4711") (:authors ("EditorConfig Team" . "editorconfig@googlegroups.com")) (:maintainer "EditorConfig Team" . "editorconfig@googlegroups.com") (:url . "https://github.com/editorconfig/editorconfig-emacs#readme"))]) (edit-server-htmlize . [(20130329 2248) ((edit-server (1 9))) "(de)HTMLization hooks for edit-server.el" single ((:commit . "e7f8dadfabe869c77ca241cd6fbd4c52bd908392") (:authors ("Roland McGrath" . "roland@hack.frob.com")) (:maintainer "Roland McGrath" . "roland@hack.frob.com") (:url . "https://github.com/frobtech/edit-server-htmlize"))]) (edit-server . [(20181016 1125) nil "server that responds to edit requests from Chrome" single ((:commit . "81eb5211f79cf5a2234b7a932f6006d27d506aa5") (:authors ("Alex Bennée" . "alex@bennee.com")) (:maintainer "Alex Bennée" . "alex@bennee.com") (:url . "https://github.com/stsquad/emacs_chrome"))]) (edit-list . [(20100930 1443) nil "edit a single list" single ((:commit . "f460d3f9e208a4e606fe6ded307f1b011916ca71") (:authors ("Michael Olson" . "mwolson@gnu.org")) (:maintainer "Michael Olson" . "mwolson@gnu.org") (:url . "http://mwolson.org/static/dist/elisp/edit-list.el"))]) (edit-indirect-region-latex . [(20161129 645) ((emacs (24 3)) (ht (2 2)) (edit-indirect (0 1 4))) "Edit LaTeX regions in separate buffers, e.g. for English grammar checks" single ((:commit . "05043f2c0c9838947d3ca4b51b695deb7c47612e") (:authors ("Hirotaka Niitsuma" . "hirotaka.niitsuma@gmail.com")) (:maintainer "Hirotaka Niitsuma" . "hirotaka.niitsuma@gmail.com") (:url . "https://github.com/niitsuma/edit-indirect-region-latex"))]) (edit-indirect . [(20180422 1807) ((emacs (24 3))) "Edit regions in separate buffers" single ((:commit . "de645d8144e8a08f039a9c88185121ec81d957ef") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/edit-indirect"))]) (edit-color-stamp . [(20130529 1733) ((es-lib (0 2)) (cl-lib (1 0))) "Edit a hex color stamp, using a QT or the internal color picker" tar ((:commit . "32dc1ca5bcf3dcf83fad5e39b55dc5b77becb3d3") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/edit-color-stamp"))]) (edit-at-point . [(20150716 1324) nil "edit(copy,cut..) current things(word,symbol..) under cursor" single ((:commit . "3b800c11685102e1eab62ec71c5fc1589ebb81a7") (:authors (nil . "<e.enoson@gmail.com>")) (:maintainer nil . "<e.enoson@gmail.com>") (:url . "http://github.com/enoson/edit-at-point.el"))]) (edebug-x . [(20130616 625) nil "Extensions for Edebug" single ((:commit . "a2c2c42553d3bcbd5ac11898554865acbed1bc46") (:keywords "extensions") (:authors ("Scott Barnett" . "scott.n.barnett@gmail.com")) (:maintainer "Scott Barnett" . "scott.n.barnett@gmail.com") (:url . "https://github.com/ScottyB/edebug-x"))]) (ede-php-autoload-drupal . [(20170316 2158) ((ede-php-autoload (1 0 0)) (f (0 19 0)) (s (1 7 0))) "Drupal support for ede-php-autoload" single ((:commit . "54a04241d94fabc4f4d16ae4dc8ba4f0c6e3b435") (:keywords "programming" "php" "drupal") (:authors ("Thomas Fini Hansen" . "xen@xen.dk")) (:maintainer "Thomas Fini Hansen" . "xen@xen.dk"))]) (ede-php-autoload-composer-installers . [(20170221 2026) ((ede-php-autoload (1 0 0)) (f (0 19 0)) (s (1 7 0))) "Composer installers support for ede-php-autoload" single ((:commit . "7840439802c7d11ee086bbf465657f3da12f9f66") (:keywords "programming" "php") (:authors ("Thomas Fini Hansen" . "xen@xen.dk")) (:maintainer "Thomas Fini Hansen" . "xen@xen.dk") (:url . "https://github.com/xendk/ede-php-autoload-composer-installers"))]) (ede-php-autoload . [(20180901 1255) nil "Simple EDE PHP Project" tar ((:commit . "8a4eeeaa93b8d87b65a107c4ebcbeb14528d9449") (:keywords "php" "project" "ede") (:authors ("Steven Rémot" . "steven.remot@gmail.com") ("original code for C++ by Eric M. Ludlam" . "eric@siege-engine.com")) (:maintainer "Steven Rémot" . "steven.remot@gmail.com") (:url . "https://github.com/emacs-php/ede-php-autoload"))]) (ede-compdb . [(20150920 2033) ((ede (1 2)) (semantic (2 2)) (cl-lib (0 4))) "Support for compilation database projects in EDE" single ((:commit . "d6d8466cd62876fc90adeff5875a1a584fd846cd") (:keywords "development" "ninja" "build" "cedet" "ede") (:authors ("Alastair Rankine" . "alastair@girtby.net")) (:maintainer "Alastair Rankine" . "alastair@girtby.net"))]) (edbi-sqlite . [(20160221 1923) ((emacs (24)) (edbi (0 1 3))) "Open sqlite files with edbi" single ((:commit . "52cb9ca1af7691b592f2cfd2f007847e7a4ccd5f") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/edbi-sqlite"))]) (edbi-minor-mode . [(20160706 1447) ((edbi (0 1 3))) "Use edbi with regular SQL files." single ((:commit . "566a2141a6eb9d9d5d7e1bd7c251d1c5e8f0d2ec") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/edbi-minor-mode"))]) (edbi-django . [(20180924 2234) ((emacs (25)) (pythonic (0 1 0)) (edbi (0 1 3))) "Run edbi with django settings" single ((:commit . "c5ae06c4bad57b53c2dbb313cd59e96a1606814d") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/edbi-django"))]) (edbi-database-url . [(20160221 1923) ((emacs (24)) (edbi (0 1 3))) "Run edbi with database url" single ((:commit . "d56c580268cd93651998c4c6b1c5558e6b6ca90f") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/edbi-database-url"))]) (edbi . [(20160225 141) ((concurrent (0 3 1)) (ctable (0 1 2)) (epc (0 1 1))) "Emacs Database Interface" tar ((:commit . "6f50aaf4bde75255221f2292c7a4ad3fa9d918c0"))]) (ecukes . [(20171216 1208) ((commander (0 6 1)) (espuds (0 2 2)) (ansi (0 3 0)) (dash (2 2 0)) (s (1 8 0)) (f (0 11 0))) "Cucumber for Emacs." tar ((:commit . "3a77ba9f1064c2bca47b401974c009e65727c46e"))]) (eclipse-theme . [(20160430 1022) nil "Theme based on Eclipse circa 2010" single ((:commit . "dc54d9312d97210823b922038076e2b1b132eff2") (:keywords "themes") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/eclipse-theme"))]) (eclim . [(20181108 1134) ((dash (2 11 0)) (json (1 2)) (popup (0 5 2)) (s (1 9 0)) (cl-lib (0 5)) (yasnippet (0 10 0))) "An interface to the Eclipse IDE." tar ((:commit . "23f5b294f833ce58516d7b9ae08a7792d70022a1"))]) (ecb . [(20170728 1921) nil "a code browser for Emacs" tar ((:commit . "1330a44cf3c171781083b0b926ab7622f64e6e81") (:keywords "browser" "code" "programming" "tools") (:authors ("Jesper Nordenberg" . "mayhem@home.se") ("Klaus Berndl" . "klaus.berndl@sdm.de") ("Kevin A. Burton" . "burton@openprivacy.org")) (:maintainer "Klaus Berndl" . "klaus.berndl@sdm.de"))]) (ebib . [(20181018 706) ((dash (2 5 0)) (seq (2 15)) (parsebib (2 3)) (emacs (24 4))) "a BibTeX database manager" tar ((:commit . "0163cbaf843661b1bd612936cbf26e7d1d77235c") (:keywords "text" "bibtex") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))]) (ebf . [(20160211 1758) ((dash (2 11 0)) (dash-functional (1 2 0)) (cl-lib (0 5))) "brainfuck language transpiler to Emacs Lisp" tar ((:commit . "4cd9c26354d8be6571354b2954d21fba882e78a2") (:authors ("Alexey Kutepov" . "reximkut@gmail.com")) (:maintainer "Alexey Kutepov" . "reximkut@gmail.com") (:url . "http://github.com/rexim/ebf"))]) (ebal . [(20180101 616) ((emacs (24 4)) (f (0 18 0))) "Emacs interface to Cabal and Stack" single ((:commit . "1740118125ae7aa6ba82d36e1fe0e69065a6fcaa") (:keywords "convenience" "cabal" "haskell") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/ebal"))]) (easy-repeat . [(20150516 848) ((emacs (24 4))) "Repeat easily" single ((:commit . "060f0e6801c82c40c06961dc0528a00e18947a8c") (:keywords "repeat" "convenience") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/easy-repeat.el"))]) (easy-kill-extras . [(20180920 1334) ((easy-kill (0 9 4))) "Extra functions for easy-kill." tar ((:commit . "b8ce8350cc86e0229f195082557970cd51def960") (:keywords "killing" "convenience") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/easy-kill-extras.el"))]) (easy-kill . [(20181114 2330) ((emacs (24)) (cl-lib (0 5))) "kill & mark things easily" single ((:commit . "2a6309d98aa6b71df6bbbcdf15cab3187c521a6b") (:keywords "killing" "convenience") (:authors ("Leo Liu" . "sdl.web@gmail.com")) (:maintainer "Leo Liu" . "sdl.web@gmail.com") (:url . "https://github.com/leoliu/easy-kill"))]) (easy-jekyll . [(20181104 1256) ((emacs (24 4))) "Major mode managing jekyll blogs" single ((:commit . "3b810558b5816a5413460e77f4c6009dd8dfedcc") (:authors ("Masashı Mıyaura")) (:maintainer "Masashı Mıyaura") (:url . "https://github.com/masasam/emacs-easy-jekyll"))]) (easy-hugo . [(20181030 1238) ((emacs (24 4)) (popup (0 5 3))) "Write blogs made with hugo by markdown or org-mode" single ((:commit . "2a87555a74fdc22d690fd19a04eaa53ad51d694b") (:authors ("Masashı Mıyaura")) (:maintainer "Masashı Mıyaura") (:url . "https://github.com/masasam/emacs-easy-hugo"))]) (easy-escape . [(20161209 1544) nil "Improve readability of escape characters in regular expressions" single ((:commit . "63fa5fcf9a53b7d3c1e872081e65afad5a722ba8") (:keywords "convenience" "lisp" "tools") (:authors ("Clément Pit--Claudel" . "clement.pitclaudel@live.com")) (:maintainer "Clément Pit--Claudel" . "clement.pitclaudel@live.com") (:url . "https://github.com/cpitclaudel/easy-escape"))]) (easy-after-load . [(20170817 1231) nil "eval-after-load for all files in a directory" single ((:commit . "29e20145da49ac9ea40463c552130777408040de") (:authors ("Kyle Hargraves")) (:maintainer "Kyle Hargraves") (:url . "https://github.com/pd/easy-after-load"))]) (eacl . [(20180607 1358) ((emacs (24 3)) (ivy (0 9 1))) "Auto-complete line(s) by grepping project" single ((:commit . "ccf1401b1acff67fe445c95e8be7b09e8c3ae5d8") (:keywords "abbrev" "convenience" "matching") (:authors ("Chen Bin <chenbin DOT sh AT gmail DOT com>")) (:maintainer "Chen Bin <chenbin DOT sh AT gmail DOT com>") (:url . "http://github.com/redguardtoo/eacl"))]) (e2wm-term . [(20141009 1308) ((e2wm (1 2)) (log4e (0 2 0)) (yaxception (0 3 2))) "Perspective of e2wm.el for work in terminal" single ((:commit . "65b5ac88043d5c4048920a048f3599904ca55981") (:keywords "tools" "window manager") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/e2wm-term"))]) (e2wm-sww . [(20140524 858) ((e2wm (1 2))) "Plugin of e2wm.el to switch plugin quickly" single ((:commit . "1063f9854bd34db5ac771cd1036cecc89834729d") (:keywords "tools" "window manager") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/e2wm-sww"))]) (e2wm-svg-clock . [(20150106 1306) ((e2wm (20130225 1602)) (svg-clock (0 4))) "e2wm plugin for svg-clock" single ((:commit . "d425925e3afffcbe2ff74edc80b714e4319d4c94") (:keywords "convenience" "e2wm") (:authors ("Yuhei Maeda <yuhei.maeda_at_gmail.com>")) (:maintainer "Yuhei Maeda") (:url . "https://github.com/myuhe/e2wm-svg-clock.el"))]) (e2wm-pkgex4pl . [(20140525 1047) ((e2wm (1 2)) (plsense-direx (0 2 0))) "Plugin of e2wm.el for package explorer of Perl" single ((:commit . "7ea994450727190c4f3cb46cb429ba41b692ecc0") (:keywords "tools" "window manager" "perl") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/e2wm-pkgex4pl"))]) (e2wm-direx . [(20170509 1301) ((e2wm (1 2)) (direx (0 1 -3))) "Plugin of e2wm.el for direx.el" single ((:commit . "b47f19d15436cc28233a812a1150689f61d11046") (:keywords "tools" "window manager" "convenience") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/e2wm-direx"))]) (e2wm-bookmark . [(20151123 521) ((e2wm (1 2))) "Bookmark plugin for e2wm.el" single ((:commit . "bad816b6d8049984d69bcd277b7d325fb84d55eb") (:keywords "convenience") (:authors ("Yuhei Maeda <yuhei.maeda_at_gmail.com>")) (:maintainer "Yuhei Maeda <yuhei.maeda_at_gmail.com>"))]) (e2wm-R . [(20151230 926) ((e2wm (1 3)) (inlineR (1 0)) (ess (15 3))) "some e2wm plugin and perspective for GNU R" single ((:commit . "4350601ee1a96bf89777b3f09f1b79b88e2e6e4d") (:keywords "convenience" "e2wm") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/e2wm-R.el"))]) (e2wm . [(20170215 36) ((window-layout (1 4))) "simple window manager for emacs" tar ((:commit . "4353d3394c77a49f8f0291c239858c8c5e877549") (:keywords "tools" "window manager") (:authors ("SAKURAI Masashi <m.sakurai atmark kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai atmark kiwanami.net>"))]) (e2ansi . [(20180403 1915) ((face-explorer (0 0 3))) "Syntax highlighting support for `less', powered by Emacs." tar ((:commit . "f886e687d50ff58063a92d40623f2400fa913af0") (:keywords "faces" "languages") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/e2ansi"))]) (dynamic-spaces . [(20171027 1851) nil "When editing, don't move text separated by spaces" single ((:commit . "97ae8480c257ba573ca3d06dbf602f9b23c41d38") (:keywords "convenience") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/dynamic-spaces"))]) (dynamic-ruler . [(20160602 808) nil "Displays a dynamic ruler at point." single ((:commit . "c9c0de6fe5721f06b50e01d9b4684b519c71b367") (:keywords "ruler" "tools" "convenience") (:authors ("Francesc Rocher" . "francesc.rocher@gmail.com")) (:maintainer "Francesc Rocher" . "francesc.rocher@gmail.com") (:url . "http://rocher.github.io/dynamic-ruler"))]) (dynamic-fonts . [(20140731 1226) ((font-utils (0 7 0)) (persistent-soft (0 8 8)) (pcache (0 2 3))) "Set faces based on available fonts" single ((:commit . "ab0c65accbdb59acaed5b263327e22ec019b3e82") (:keywords "faces" "frames") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/dynamic-fonts"))]) (dylan-mode . [(20180928 505) nil "Major mode for editing Dylan programs." tar ((:commit . "a347998ae3ab69c181e09d73f49e11666e89fe71") (:authors ("Robert Stockton" . "rgs@cs.cmu.edu")) (:maintainer "Chris Page" . "cpage@opendylan.org"))]) (dyalog-mode . [(20180605 2113) ((cl-lib (0 2)) (emacs (24))) "Major mode for editing Dyalog APL source code" tar ((:keywords "languages") (:authors ("Joakim Hårsman" . "joakim.harsman@gmail.com")) (:maintainer "Joakim Hårsman" . "joakim.harsman@gmail.com") (:url . "https://bitbucket.org/harsman/dyalog-mode/"))]) (dut-mode . [(20170729 2111) ((emacs (24))) "Major mode for the Dut programming language" single ((:commit . "9235c7acaa6690942e9de8b7acd1e4be0c859dc1") (:keywords "languages" "gut") (:authors ("The dut-mode Authors")) (:maintainer "The dut-mode Authors") (:url . "https://github.com/dut-lang/dut-mode"))]) (duplicate-thing . [(20181031 1500) nil "Duplicate current line & selection" single ((:commit . "9d8fd05e3e5caa35d3f2a0c0032c92f0c0908e21") (:keywords "convenience" "command" "duplicate" "line" "selection") (:authors ("ongaeshi")) (:maintainer "ongaeshi") (:url . "https://github.com/ongaeshi/duplicate-thing"))]) (dummyparens . [(20141009 1024) nil "parenthesis auto-pairing and wrapping" single ((:commit . "9798ef1d0eaa24e4fe66f8aa6022a8c62714cc89") (:keywords "dummyparens" "auto-pair" "wrapping") (:authors ("Sergei Nosov <sergei.nosov [at] gmail.com>")) (:maintainer "Sergei Nosov <sergei.nosov [at] gmail.com>") (:url . "https://github.com/snosov1/dummyparens"))]) (dumb-jump . [(20181022 2224) ((emacs (24 3)) (f (0 20 0)) (s (1 11 0)) (dash (2 9 0)) (popup (0 5 3))) "jump to definition for multiple languages without configuration." single ((:commit . "0c893392f6f5e797fc4dcda67cdc44c7ceed31ca") (:keywords "programming") (:authors ("jack angers")) (:maintainer "jack angers"))]) (dumb-diff . [(20171211 2122) ((emacs (24 3))) "fast arbitrary diffs" single ((:commit . "1a2331d283049b71a07c1b06b1e0627a950d55f4") (:keywords "programming" "diff") (:authors ("jack angers")) (:maintainer "jack angers"))]) (ducpel . [(20140702 1154) ((cl-lib (0 5))) "Logic game with sokoban elements" tar ((:commit . "b53b935ab95c02b82ccf38f63c89e39e99477a55") (:keywords "games") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/ducpel"))]) (dts-mode . [(20161103 1223) nil "Major mode for Devicetree source code" single ((:commit . "9ee0854446dcc6c53d2b8d2941051768dba50344") (:keywords "languages") (:authors ("Ben Gamari" . "ben@smart-cactus.org")) (:maintainer "Ben Gamari" . "ben@smart-cactus.org"))]) (dtrt-indent . [(20180921 2221) nil "Adapt to foreign indentation offsets" tar ((:commit . "e860db7235147ed5ac1fd8f12b51dbb7cf2e75f1") (:keywords "convenience" "files" "languages" "c") (:authors ("Julian Scheid" . "julians37@googlemail.com")) (:maintainer "Julian Scheid" . "julians37@googlemail.com"))]) (dtrace-script-mode . [(20150214 623) nil "DTrace code editing commands for Emacs" single ((:commit . "801af1ef16075d31a19830ebb8404bbf3a322f10"))]) (dsvn . [(20130120 2057) nil "Subversion interface" single ((:commit . "17bce692e9bd5a43373d5cb1d66da50e1acb903b") (:keywords "docs") (:authors ("David Kågedal" . "davidk@lysator.liu.se") (" Mattias Engdegård" . "mattiase@acm.org")) (:maintainer "Mattias Engdegård" . "mattiase@acm.org"))]) (drupal-spell . [(20130520 1655) nil "Aspell extra dictionary for Drupal" tar ((:commit . "cddf1dbc71fb4c5c4c50317db6830467fa97cff0") (:keywords "wp") (:authors ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainer "Arne Jørgensen" . "arne@arnested.dk") (:url . "https://github.com/arnested/drupal-spell"))]) (drupal-mode . [(20171120 2309) ((php-mode (1 5 0))) "Advanced minor mode for Drupal development" tar ((:commit . "47fda0a38a5b197f4606137d9c3b7d44aaeaa886") (:keywords "programming" "php" "drupal") (:authors ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainer "Arne Jørgensen" . "arne@arnested.dk") (:url . "https://github.com/arnested/drupal-mode"))]) (dropbox . [(20181105 306) ((json (1 2)) (oauth (1 0 3))) "Emacs backend for dropbox" single ((:commit . "761254c7de1bd8f76b2065ee2522e66ce3be032d") (:keywords "dropbox") (:authors ("Pavel Panchekha" . "me@pavpanchekha.com")) (:maintainer "Pavel Panchekha" . "me@pavpanchekha.com"))]) (drone . [(20161106 918) nil "Launch your drone test suite if drone.yml is present" single ((:commit . "1d4ee037ad3208847a4235426edf0c4a3e7b1899") (:keywords "drone" "tests" "ci") (:authors ("Oliver Marks" . "oly@digitaloctave.com")) (:maintainer "Oliver Marks" . "oly@digitaloctave.com") (:url . "https://github.com/olymk2/emacs-drone"))]) (drill-instructor-AZIK-force . [(20151123 514) ((popup (0 5))) "Support AZIK input" tar ((:commit . "008cea202dc31d7d6fb1e7d8e6334d516403b7a5"))]) (drawille . [(20160418 1838) ((cl-lib (0 5))) "Drawille implementation in elisp" tar ((:commit . "d914845725719d8293e2f0dea3c9c7e0a1e0e62a") (:keywords "graphics") (:authors ("Josuah Demangeon" . "josuah.demangeon@gmail.com")) (:maintainer "Josuah Demangeon" . "josuah.demangeon@gmail.com") (:url . "https://github.com/sshbio/elisp-drawille"))]) (drag-stuff . [(20161108 749) nil "Drag stuff (lines, words, region, etc...) around" tar ((:commit . "6d06d846cd37c052d79acd0f372c13006aa7e7c8"))]) (draft-mode . [(20140609 1456) nil "Rough drafting for Emacs." single ((:commit . "4779fb32daf53746459da2def7e08004492d4f18") (:keywords "draft" "drafting") (:authors ("Eeli Reilin" . "gaudecker@fea.st")) (:maintainer "Eeli Reilin" . "gaudecker@fea.st") (:url . "https://github.com/gaudecker/draft-mode"))]) (dracula-theme . [(20180710 1324) ((emacs (24))) "Dracula Theme" single ((:commit . "a1c9888b7876ace60a536d27fb290e788bffc9cb") (:authors ("film42")) (:maintainer "film42") (:url . "https://github.com/dracula/emacs"))]) (dr-racket-like-unicode . [(20161021 1211) ((emacs (24 1))) "DrRacket-style unicode input" single ((:commit . "4953f1c8a68472e157a0dcd0a7e35a4ec2577133") (:keywords "i18n" "tools") (:authors ("David Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Christiansen" . "david@davidchristiansen.dk"))]) (dpkg-dev-el . [(20181022 8) ((debian-el (37))) "Emacs modes for debian packaging" tar ((:commit . "a80f8ac5d81720cce90cf3bc5fbb45d50b1953d7"))]) (dpaste_de . [(20131015 1225) ((web (0 3 7))) "Emacs mode to paste to dpaste.de" single ((:commit . "f0c39e8864299f735642f7d9fa490689398ce39d") (:keywords "pastebin") (:authors ("Thejaswi Puthraya" . "thejaswi.puthraya@gmail.com")) (:maintainer "Thejaswi Puthraya" . "thejaswi.puthraya@gmail.com"))]) (dpaste . [(20160303 2112) nil "Emacs integration for dpaste.com" single ((:commit . "5ebabb466a6ae70882549855b6b2194fc32189f8") (:keywords "paste" "pastie" "pastebin" "dpaste" "python") (:authors ("Greg Newman" . "greg@gregnewman.org") ("Guilherme Gondim" . "semente@taurinus.org")) (:maintainer "Greg Newman" . "greg@gregnewman.org"))]) (downplay-mode . [(20151125 2009) nil "focus attention on a region of the buffer" single ((:commit . "4a2c3addc73c8ca3816345c3c11c08af265baedb") (:authors ("Toby Crawley" . "toby@tcrawley.org")) (:maintainer "Toby Crawley" . "toby@tcrawley.org") (:url . "https://github.com/tobias/downplay-mode/"))]) (download-region . [(20180124 133) ((cl-lib (0 3))) "Simple in-buffer download manager" single ((:commit . "bbba3ecd80818d5d940d41fe89a6e2ec5dd2c53c") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (dotnet . [(20181117 1531) nil "Interact with dotnet CLI tool" single ((:commit . "70ed170caeeecba5fddbd82b0d6aec967b6c6ee4") (:keywords ".net" "tools") (:authors ("Julien BLANCHARD" . "julien@sideburns.eu")) (:maintainer "Julien BLANCHARD" . "julien@sideburns.eu") (:url . "https://github.com/julienXX/dotnet.el"))]) (dotenv-mode . [(20180207 1914) ((emacs (24 3))) "Major mode for .env files" single ((:commit . "f4c52bcd5313379b9f2460db7f7a33119dfa96ea") (:authors ("Preetpal S. Sohal")) (:maintainer "Preetpal S. Sohal") (:url . "https://github.com/preetpalS/emacs-dotenv-mode"))]) (dot-mode . [(20180312 2300) ((emacs (24 3))) "minor mode to repeat typing or commands" single ((:commit . "6ca22b73bcdae2363ee9641b822a60685df16a3e") (:keywords "convenience") (:authors ("Robert Wyrick" . "rob@wyrick.org")) (:maintainer "Robert Wyrick" . "rob@wyrick.org") (:url . "https://github.com/wyrickre/dot-mode"))]) (doom-themes . [(20181101 218) ((emacs (24 4)) (all-the-icons (1 0 0)) (cl-lib (0 5))) "an opinionated pack of modern color-themes" tar ((:commit . "2aa163b8322a55a69296552bc03b1b84413d5abc") (:keywords "dark" "light" "blue" "atom" "one" "theme" "neotree" "icons" "faces" "nova") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-doom-theme"))]) (doom-modeline . [(20181120 1529) ((emacs (25 1)) (all-the-icons (1 0 0)) (shrink-path (0 2 0)) (eldoc-eval (0 1)) (dash (2 11 0))) "A minimal and modern modeline" single ((:commit . "69f3029c31ffe91e23bc2728fbbee9acf98b8e0e") (:keywords "faces" "mode-line") (:authors ("Vincent Zhang" . "seagle0128@gmail.com")) (:maintainer "Vincent Zhang" . "seagle0128@gmail.com") (:url . "https://github.com/seagle0128/doom-modeline"))]) (doom . [(20180301 2308) ((cl-lib (0 5))) "DOM implementation and manipulation library" single ((:commit . "e59040aefc92dd9b3134eb623624307fb9e4327b") (:keywords "xml" "dom") (:authors ("Alex Schroeder" . "alex@gnu.org") ("Henrik.Motakef" . "elisp@henrik-motakef.de") ("Katherine Whitlock" . "toroidal-code@gmail.com") ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Alex Schroeder") (:url . "http://www.github.com/kensanata/doom.el/"))]) (doneburn-theme . [(20181110 1857) nil "A light theme based on Bozhidar Batsov's Zenburn" single ((:commit . "9c31dd6d664436df73c776560c7a660041b3a5bf") (:keywords "faces" "themes") (:authors ("Manuel Uberti" . "manuel.uberti@inventati.org")) (:maintainer "Manuel Uberti" . "manuel.uberti@inventati.org") (:url . "http://github.com/manuel-uberti/doneburn-emacs"))]) (dollaro . [(20151123 1302) ((s (1 6 0))) "simple text templates" single ((:commit . "500127f0172ac7a1eec627e026b59136580a74ac") (:keywords "tools" "convenience") (:authors ("Alessandro Piras" . "laynor@gmail.com")) (:maintainer "Alessandro Piras" . "laynor@gmail.com"))]) (dokuwiki-mode . [(20170223 1301) nil "Major mode for DokuWiki document" single ((:commit . "e4e116f6fcc373e3f5937c1a7daa5c2c9c6d3fa1") (:keywords "hypermedia" "text" "dokuwiki") (:authors ("Tsunenobu Kai" . "kai2nenobu@gmail.com")) (:maintainer "Tsunenobu Kai" . "kai2nenobu@gmail.com") (:url . "https://github.com/kai2nenobu/emacs-dokuwiki-mode"))]) (dokuwiki . [(20180102 59) ((emacs (24 3)) (xml-rpc (1 6 8))) "Edit Remote DokuWiki Pages Using XML-RPC" single ((:commit . "594c4d4904dcc2796bbbd2c0845d9e7c09ccf6f7") (:keywords "convenience") (:authors ("Juan Karlo Licudine" . "accidentalrebel@gmail.com")) (:maintainer "Juan Karlo Licudine" . "accidentalrebel@gmail.com") (:url . "http://www.github.com/accidentalrebel/emacs-dokuwiki"))]) (dockerfile-mode . [(20181104 1800) ((emacs (24)) (s (1 12))) "Major mode for editing Docker's Dockerfiles" single ((:commit . "7223d92718f78fa3ab15667cdb2ed90cfeb579e7") (:url . "https://github.com/spotify/dockerfile-mode"))]) (docker-tramp . [(20170207 325) ((emacs (24)) (cl-lib (0 5))) "TRAMP integration for docker containers" tar ((:commit . "8e2b671eff7a81af43b76d9dfcf94ddaa8333a23") (:keywords "docker" "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/docker-tramp.el"))]) (docker-compose-mode . [(20180324 1752) ((emacs (24 3)) (dash (2 12 0)) (yaml-mode (0 0 12))) "Major mode for editing docker-compose files" single ((:commit . "c9f131d2c90d652435d407fd36c40feebfed1dad") (:keywords "convenience") (:authors ("Ricardo Martins")) (:maintainer "Ricardo Martins") (:url . "https://github.com/meqif/docker-compose-mode"))]) (docker-api . [(20160525 720) ((dash (2 12 1)) (request (0 2 0)) (s (1 11 0))) "Emacs interface to the Docker API" tar ((:commit . "206144346b7fa4165223349cfeb64a75d47ddd1b") (:authors ("Philippe Vaucher" . "philippe.vaucher@gmail.com")) (:maintainer "Philippe Vaucher" . "philippe.vaucher@gmail.com") (:url . "https://github.com/Silex/docker-api.el"))]) (docker . [(20181101 504) ((emacs (24 5)) (dash (2 14 1)) (docker-tramp (0 1)) (magit-popup (2 12 4)) (s (1 12 0)) (tablist (0 70)) (json-mode (1 7 0))) "Emacs interface to Docker" tar ((:commit . "c36bce1bad03833e0d35e260ed1e402c152606ba") (:keywords "filename" "convenience") (:authors ("Philippe Vaucher" . "philippe.vaucher@gmail.com")) (:maintainer "Philippe Vaucher" . "philippe.vaucher@gmail.com") (:url . "https://github.com/Silex/docker.el"))]) (docean . [(20180605 1744) ((emacs (24)) (cl-lib (0 5)) (request (0 2 0))) "Interact with DigitalOcean from Emacs." single ((:commit . "bbe2298fd21f7876fc2d5c52a69b931ff59df979") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/docean.el"))]) (docbook-snippets . [(20150714 1625) ((yasnippet (0 8 0))) "Yasnippets for DocBook" tar ((:commit . "b06297fdec039a541aaa6312cb328a11062cfab4") (:keywords "snippets" "docbook") (:authors ("Jaromir Hradilek" . "jhradilek@gmail.com")) (:maintainer "Jaromir Hradilek" . "jhradilek@gmail.com") (:url . "https://github.com/jhradilek/emacs-docbook-snippets"))]) (dna-mode . [(20170804 814) nil "a major mode for editing dna sequences" tar ((:commit . "471d374de22c33eaddd8e41dd8ae29753fab2f6a") (:keywords "dna" "emacs" "editing") (:authors ("Harley Gorrell" . "harley@panix.com")) (:maintainer "Harley Gorrell" . "harley@panix.com") (:url . "http://www.mahalito.net/~harley/elisp/dna-mode.el"))]) (dmenu . [(20180118 1245) ((cl-lib (0 5))) "simulate the dmenu command line program" single ((:commit . "6e492cd4ee4fb39ecda92776707fc270f54d25e7") (:keywords "convenience" "usability") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))]) (dkmisc . [(20131110 1115) ((emacs (24 1))) "Miscellaneous functions required by dk* packages." tar ((:commit . "fe3d49c6f8322b6f89466361acd97585bdfe0608"))]) (dklrt . [(20131110 1341) ((dkmisc (0 50)) (ledger-mode (20130908 1357)) (emacs (24 1))) "Ledger Recurring Transactions." tar ((:commit . "5d6c99f8018335256ab934b4c1049708ae2d48ba"))]) (dkl . [(20161005 7) nil "Display keyboard layout." tar ((:commit . "6b4584f86037bda3383960c678d51f340229fb91") (:keywords "input" "keyboard" "layout") (:authors ("Alexis" . "flexibeast@gmail.com")) (:maintainer "Alexis" . "flexibeast@gmail.com") (:url . "https://github.com/flexibeast/dkl"))]) (dkdo . [(20131110 1119) ((dkmisc (0 50)) (emacs (24 1))) "Do List major mode based on org-mode." tar ((:commit . "fd6bb105e8331fafb6385c5238c988c4c5bbe2da"))]) (djangonaut . [(20180727 1544) ((emacs (25 2)) (magit-popup (2 6 0)) (pythonic (0 1 0)) (f (0 20 0)) (s (1 12 0))) "Minor mode to interact with Django projects" single ((:commit . "3e154709def09020a9b9eb29d330fb1f833a8250") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/djangonaut"))]) (django-theme . [(20131022 902) nil "Custom face theme for Emacs" single ((:commit . "86c8142b3eb1addd94a43aa6f1d98dab06401af0") (:authors ("Andrzej Sliwa")) (:maintainer "Andrzej Sliwa") (:url . "http://github/anrzejsliwa/django-theme"))]) (django-snippets . [(20131229 1611) ((yasnippet (0 8 0))) "Yasnippets for django" tar ((:commit . "a71b8dd984e7f724b8321246e5c353a4ae5c986e") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/myfreeweb/django-mode"))]) (django-mode . [(20170522 714) ((projectile (0)) (s (0)) (helm-make (0))) "Major mode for Django web framework." tar ((:commit . "a71b8dd984e7f724b8321246e5c353a4ae5c986e") (:keywords "languages") (:authors ("Greg V" . "floatboth@me.com")) (:maintainer "Greg V" . "floatboth@me.com"))]) (django-manage . [(20160819 212) ((hydra (0 13 2))) "Django minor mode for commanding manage.py" single ((:commit . "876fb2cb627d465adfdc905841279784bcdd7ee8") (:keywords "languages") (:authors ("Daniel Gopar" . "gopardaniel@yahoo.com")) (:maintainer "Daniel Gopar" . "gopardaniel@yahoo.com"))]) (django-commands . [(20181029 804) ((emacs (25 1))) "Run django commands" single ((:commit . "4e6387175b56095e53732cf1d3b3422eb85696fb") (:keywords "tools") (:authors ("Andrii Kolomoiets" . "andreyk.mad@gmail.com")) (:maintainer "Andrii Kolomoiets" . "andreyk.mad@gmail.com") (:url . "https://github.com/muffinmad/emacs-django-commands"))]) (dizzee . [(20171201 916) nil "A more pleasant way to manage your project's subprocesses in Emacs." tar ((:commit . "e3cf1c2ea5d0fc00747524b6f3c5b905d0a8c8e1"))]) (dix-evil . [(20170105 1423) ((dix (0 3 0)) (evil (1 0 7))) "optional evil-integration with dix.el" single ((:commit . "bcc7fd7aef5d25171978c386c620e09d0ba8d2f8") (:keywords "languages") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org") (:url . "http://wiki.apertium.org/wiki/Emacs"))]) (dix . [(20170224 1415) ((cl-lib (0 5))) "minor mode for editing Apertium XML dictionary files" tar ((:commit . "bcc7fd7aef5d25171978c386c620e09d0ba8d2f8") (:keywords "languages") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org") (:url . "http://wiki.apertium.org/wiki/Emacs"))]) (ditz-mode . [(20150729 940) nil "Emacs interface to Ditz issue tracking system" single ((:keywords "tools") (:authors ("Glenn Hutchings" . "zondo42@gmail.com")) (:maintainer "Glenn Hutchings" . "zondo42@gmail.com"))]) (distinguished-theme . [(20151216 2015) nil "A dark and elegant theme for emacs." single ((:commit . "9b1d25ac59465a5016d187ea84b7614c95a29b3b") (:authors ("Kim Silkebækken" . "kim.silkebaekken@gmail.com")) (:maintainer "Kim Silkebækken" . "kim.silkebaekken@gmail.com") (:url . "https://github.com/Lokaltog/distinguished-theme"))]) (distel-completion-lib . [(20180827 1344) nil "Completion library for Erlang/Distel" single ((:commit . "acc4c0a5521904203d797fe96b08e5fae4233c7e") (:keywords "erlang" "distel" "completion") (:authors ("Sebastian Weddmark Olsson")) (:maintainer "Sebastian Weddmark Olsson") (:url . "github.com/sebastiw/distel-completion"))]) (dist-file-mode . [(20180830 418) ((emacs (24)) (cl-lib (0 5)) (s (1 9 0))) "Dispatch major mode for *.dist files" single ((:commit . "e1ce8f592bc5d4d86d2f09e334728ac0d524c761") (:keywords "files" "convenience") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/dist-file-mode.el"))]) (display-theme . [(20140115 1556) ((emacs (24))) "display current theme(s) at mode-line" single ((:commit . "b180b3be7a74ae4799a14e7e4bc2fe10e3ff7a15") (:keywords "tools") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/emacs-display-theme/"))]) (dispass . [(20140202 1531) ((dash (1 0 0))) "Emacs wrapper for DisPass" single ((:commit . "b6e8f89040ebaaf0e7609b04bc27a8979f0ae861") (:keywords "processes") (:authors ("Tom Willemsen" . "tom@ryuslash.org")) (:maintainer "Tom Willemsen" . "tom@ryuslash.org") (:url . "http://projects.ryuslash.org/dispass.el/"))]) (disk . [(20171116 731) nil "simplified find-file, revert-file, save-buffer interface" single ((:commit . "283e54e3be7d08f959076240b2ab324e25632137") (:keywords "convenience") (:authors ("Alex Schroeder" . "alex@gnu.org") ("Peter Barabas" . "peter.barabas+disk@gmail.com")) (:maintainer "Alex Schroeder" . "alex@gnu.org") (:url . "http://www.emacswiki.org/emacs/DiskKey"))]) (discover-my-major . [(20180606 511) ((makey (0 2))) "Discover key bindings and their meaning for the current Emacs major mode" single ((:commit . "c592e5e67454f0d1b68669ac0c270073164b16b3") (:keywords "discover" "help" "major-mode" "keys") (:authors ("steckerhalter")) (:maintainer "steckerhalter") (:url . "https://framagit.org/steckerhalter/discover-my-major"))]) (discover-js2-refactor . [(20140129 1552) ((js2-refactor (20131221 501)) (discover (20140103 1339))) "Adds discover context menu for js2-refactor" single ((:commit . "3812abf61f39f3e73a9f3daefa6fed4f21a429ba") (:keywords "js2-refactor" "discover") (:authors ("Nicolas Petton" . "petton.nicolas@gmail.com")) (:maintainer "Nicolas Petton" . "petton.nicolas@gmail.com"))]) (discover-clj-refactor . [(20150328 1459) ((clj-refactor (0 14 0)) (discover (0 3))) "Adds discover context menu for clj-refactor" single ((:commit . "3fbd5c1162739e606d7cf5d4f5d7426547d99647") (:keywords "clj-refactor" "discover" "convenience") (:authors ("Marian Schubert" . "marian.schubert@gmail.com")) (:maintainer "Marian Schubert" . "marian.schubert@gmail.com"))]) (discover . [(20140103 2139) ((makey (0 3))) "discover more of Emacs" single ((:commit . "7b0044bbb3b3bd5d811fdfb0f5ac6ec8de1239df") (:authors ("Mickey Petersen" . "mickey@fyeah.org")) (:maintainer "Mickey Petersen" . "mickey@fyeah.org"))]) (discourse . [(20160911 819) ((cl-lib (0 5)) (request (0 2)) (s (1 11 0))) "discourse api" single ((:commit . "a86c7e608851e186fe12e892a573994f08c8e65e") (:keywords "lisp" "discourse") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/discourse-api"))]) (disaster . [(20171016 2152) nil "Disassemble C/C++ code under cursor in Emacs" single ((:commit . "10a785facc60d89d78e0d5177985ab1af1741bb4") (:keywords "tools") (:authors ("Justine Tunney" . "jtunney@gmail.com")) (:maintainer "Justine Tunney" . "jtunney@gmail.com") (:url . "https://github.com/jart/disaster"))]) (disable-mouse . [(20171227 115) nil "Disable mouse commands globally" single ((:commit . "541363bd6353b8b05375552bab884a6315ea545c") (:keywords "mouse") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/disable-mouse"))]) (dirtree-prosjekt . [(20140129 904) ((prosjekt (0 3)) (dirtree (0 1))) "dirtree integration for prosjekt." single ((:commit . "a864a8be5842223043702395f311e3350c28e9db") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/prosjekt"))]) (dirtree . [(20140129 832) ((tree-mode (1 1 1 1)) (windata (0))) "Directory tree views" single ((:commit . "ba55f1e716e386fdd37cb8e7f48616e405dc7251") (:authors ("Ye Wenbin" . "wenbinye@gmail.com")) (:maintainer "Ye Wenbin" . "wenbinye@gmail.com"))]) (direx-grep . [(20140515 1506) ((direx (0 1 -3))) "Grep node of direx.el using incremental search like anything.el/helm.el" single ((:commit . "1109a512a80b2673a70b18b8568514049017faad") (:keywords "convenience") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/direx-grep"))]) (direx . [(20170422 1327) nil "Simple Directory Explorer" tar ((:commit . "a79bfdb5980cf6ed7bfb3b41ddc471a7b6c0ede4") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))]) (direnv . [(20180513 823) ((emacs (24 4)) (dash (2 12 0)) (with-editor (2 5 10))) "direnv support" single ((:commit . "6cf079fe8171bdf4bebefe02e8353d7f13847ebd") (:keywords "direnv" "environment" "processes" "unix" "tools") (:authors ("Wouter Bolsterlee" . "wouter@bolsterl.ee")) (:maintainer "Wouter Bolsterlee" . "wouter@bolsterl.ee") (:url . "https://github.com/wbolster/emacs-direnv"))]) (diredful . [(20160529 2017) nil "colorful file names in dired buffers" single ((:commit . "c08e163d9d6c62f7b07e94d54c96c2e364e67e0e") (:keywords "dired" "colors" "extension" "widget") (:authors ("Thamer Mahmoud" . "thamer.mahmoud@gmail.com")) (:maintainer "Thamer Mahmoud" . "thamer.mahmoud@gmail.com") (:url . "https://github.com/thamer/diredful"))]) (diredfl . [(20180211 214) ((emacs (24))) "Extra font lock rules for a more colourful dired" single ((:commit . "9b2a89951cee8bdf5c0cb67f9c3ad6ac73abf9cb") (:keywords "faces") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/diredfl"))]) (dired-toggle-sudo . [(20151109 1006) nil "Browse directory with sudo privileges." single ((:commit . "02449dbda4e168f99fe5352c9628df5d39e11483") (:keywords "emacs" "dired") (:authors ("Sebastien Gross <seb•ɑƬ•chezwam•ɖɵʈ•org>")) (:maintainer "Sebastien Gross <seb•ɑƬ•chezwam•ɖɵʈ•org>"))]) (dired-toggle . [(20140907 2049) nil "provide a simple way to toggle dired buffer for current directory" single ((:commit . "84efb9ec9c327e4da53cdb7cda5b51dcd0ede0e5") (:keywords "dired" "toggle") (:authors ("Xu FaSheng" . "fasheng.xu@gmail.com")) (:maintainer "Xu FaSheng") (:url . "https://github.com/fasheng/dired-toggle"))]) (dired-subtree . [(20180922 1615) ((dash (2 5 0)) (dired-hacks-utils (0 0 1))) "Insert subdirectories in a tree-like fashion" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (dired-single . [(20180824 312) nil "Reuse the current dired buffer to visit a directory" single ((:commit . "b0ccca83df0542c5525c047ae283c0eadf500f5c") (:keywords "dired" "reuse" "buffer") (:authors ("Joe Casadonte" . "emacs@northbound-train.com")) (:maintainer "crocket" . "crockabiscuit@gmail.com"))]) (dired-sidebar . [(20181111 1740) ((emacs (25 1)) (dired-subtree (0 0 1))) "Tree browser leveraging dired" single ((:commit . "f7782416e5e8e5018f775106dc61dd3a4e5dda84") (:keywords "dired" "files" "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com") (:url . "https://github.com/jojojames/dired-sidebar"))]) (dired-rsync . [(20180906 1002) ((s (1 12 0)) (dash (2 0 0)) (emacs (24))) "Allow rsync from dired buffers" single ((:commit . "e112bf22c913d1491bb2149250be866ceb1806ff") (:authors ("Alex Bennée" . "alex@bennee.com")) (:maintainer "Alex Bennée" . "alex@bennee.com") (:url . "https://github.com/stsquad/dired-rsync"))]) (dired-rifle . [(20181012 2131) nil "Call rifle(1) from dired" single ((:commit . "a4f7b1e798397688b9c00d3507fcd395ece17a40") (:keywords "files" "convenience") (:authors ("Wojciech Siewierski <wojciech dot siewierski at onet dot pl>")) (:maintainer "Wojciech Siewierski <wojciech dot siewierski at onet dot pl>") (:url . "https://github.com/vifon/dired-rifle.el"))]) (dired-recent . [(20180921 2238) ((emacs (24))) "Dired visited paths history" single ((:commit . "7c5a818ab88fdfa779674931cc6d9466308fcd86") (:keywords "files") (:authors ("Wojciech Siewierski <wojciech dot siewierski at onet dot pl>")) (:maintainer "Wojciech Siewierski <wojciech dot siewierski at onet dot pl>") (:url . "https://github.com/vifon/dired-recent.el"))]) (dired-ranger . [(20180401 2206) ((dash (2 7 0)) (dired-hacks-utils (0 0 1))) "Implementation of useful ranger features for dired" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (dired-rainbow . [(20171202 2248) ((dash (2 5 0)) (dired-hacks-utils (0 0 1))) "Extended file highlighting according to its type" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))]) (dired-quick-sort . [(20161208 2112) ((hydra (0 13 0))) "Persistent quick sorting of dired buffers in various ways." single ((:commit . "1845f978d313f750a5b70b832457ed803c4ffbdb") (:keywords "convenience" "files") (:authors ("Hong Xu" . "hong@topbug.net")) (:maintainer "Hong Xu" . "hong@topbug.net") (:url . "https://gitlab.com/xuhdev/dired-quick-sort#dired-quick-sort"))]) (dired-open . [(20180922 1113) ((dash (2 5 0)) (dired-hacks-utils (0 0 1))) "Open files from dired using using custom actions" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (dired-narrow . [(20181114 1723) ((dash (2 7 0)) (dired-hacks-utils (0 0 1))) "Live-narrowing of search results for dired" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (dired-launch . [(20180607 1841) nil "Use dired as a launcher" single ((:commit . "ad45940f76ef2f6c3bb55e998829b311de191dae") (:keywords "dired" "launch") (:authors ("David Thompson")) (:maintainer "David Thompson") (:url . "https://github.com/thomp/dired-launch"))]) (dired-k . [(20170313 1503) ((emacs (24 3))) "highlight dired buffer by file size, modified time, git status" tar ((:commit . "c50e8f73358060a448bff66db2d330b52bbeffc1") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-dired-k"))]) (dired-imenu . [(20140109 1610) nil "imenu binding for dired mode" single ((:commit . "610e21fe0988c85931d34894d3eee2442c79ab0a") (:keywords "dired" "imenu") (:authors ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainer "Damien Cassou" . "damien.cassou@gmail.com") (:url . "https://github.com/DamienCassou/dired-imenu"))]) (dired-icon . [(20170223 526) ((emacs (24 3))) "A minor mode to display a list of associated icons in dired buffers." tar ((:commit . "f60e10757a5011235b519231ad35974ff25963ed") (:keywords "dired" "files") (:authors ("Hong Xu" . "hong@topbug.net")) (:maintainer "Hong Xu" . "hong@topbug.net") (:url . "https://gitlab.com/xuhdev/dired-icon"))]) (dired-hide-dotfiles . [(20170314 2039) ((emacs (25 1))) "Hide dotfiles in dired" single ((:commit . "b715f643ec805b3b8aca334595e6589320f04a49") (:keywords "files") (:authors ("Mattias Bengtsson" . "mattias.jc.bengtsson@gmail.com")) (:maintainer "Mattias Bengtsson" . "mattias.jc.bengtsson@gmail.com") (:url . "https://github.com/mattiasb/dired-hide-dotfiles"))]) (dired-hacks-utils . [(20160527 2136) ((dash (2 5 0))) "Utilities and helpers for dired-hacks collection" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (dired-filter . [(20180922 1107) ((dash (2 10 0)) (dired-hacks-utils (0 0 1)) (f (0 17 0)) (cl-lib (0 3))) "Ibuffer-like filtering for dired" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (dired-filetype-face . [(20180907 1339) nil "Set different faces for different filetypes in dired" single ((:commit . "7ade7f7e8c2d7518c65f3f0343a10c272da0f47e") (:keywords "dired" "filetype" "face") (:authors ("纪秀峰 <jixiuf at gmail dot com>")) (:maintainer "纪秀峰 <jixiuf at gmail dot com>") (:url . "https://github.com/jixiuf/dired-filetype-face"))]) (dired-fdclone . [(20180403 608) nil "dired functions and settings to mimic FDclone" single ((:commit . "903d7a736d240ef7352989a4e5d0ff9129c2ee3c") (:keywords "unix" "directories" "dired") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org") (:url . "https://github.com/knu/dired-fdclone.el"))]) (dired-explorer . [(20180607 221) ((cl-lib (0 5))) "minor-mode provides Explorer like select file at dired." single ((:commit . "3ade0a31b5340271d05e9bf443f2504960f6c6dd") (:keywords "dired" "explorer") (:maintainer "jidaikobo-shibata"))]) (dired-efap . [(20140122 1656) nil "Edit Filename At Point in a dired buffer" single ((:commit . "624757b2e54d9a13e2183118d6c113e37684b90c") (:keywords "dired" "environment" "files" "renaming") (:authors ("Juan-Leon Lahoz" . "juanleon1@gmail.com")) (:maintainer "Juan-Leon Lahoz" . "juanleon1@gmail.com") (:url . "https://github.com/juan-leon/dired-efap"))]) (dired-dups . [(20130527 2125) nil "Find duplicate files and display them in a dired buffer" single ((:commit . "694ad128c822c59348ced16c4a0c1356d43da47a") (:keywords "unix") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/dired-dups"))]) (dired-collapse . [(20180724 1644) ((dash (2 10 0)) (f (0 19 0)) (dired-hacks-utils (0 0 1))) "Collapse unique nested paths in dired listing" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (dired-avfs . [(20161012 1104) ((dash (2 5 0)) (dired-hacks-utils (0 0 1))) "AVFS support for dired" single ((:commit . "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3") (:keywords "files") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))]) (dired-atool . [(20180303 740) ((emacs (24))) "Pack/unpack files with atool on dired." single ((:commit . "bfa95c2a9ef81e8de51a15b2a43f707899946f9c") (:keywords "files") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com") (:url . "https://github.com/HKey/dired-atool"))]) (dircmp . [(20141204 1756) nil "Compare and sync directories." tar ((:commit . "558ee0b601c2de9d247612085aafe2926f56a09f") (:keywords "unix" "tools") (:authors ("Matt McClure -- http://matthewlmcclure.com")) (:maintainer "Matt McClure -- http://matthewlmcclure.com") (:url . "https://github.com/matthewlmcclure/dircmp-mode"))]) (dionysos . [(20160810 1056) ((libmpdee (2 1 0)) (alert (1 2)) (s (1 11 0)) (dash (2 12 1)) (pkg-info (0 5 0)) (cl-lib (0 5))) "Dionysos, a music player for Emacs" tar ((:commit . "0aac21caadabc5a7f09e18a9dcb02f3dec26588b") (:keywords "music") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/dionysos"))]) (dimmer . [(20180218 411) ((emacs (25))) "visually highlight the selected buffer" single ((:commit . "d033fdda154e688e45cca35902dbff9915351b98") (:keywords "faces" "editing") (:authors ("Neil Okamoto")) (:maintainer "Neil Okamoto") (:url . "https://github.com/gonewest818/dimmer.el"))]) (diminish . [(20170419 1736) nil "Diminished modes are minor modes with no modeline display" single ((:commit . "565a983a39d2e2cffab5df13b34f3b6116723208") (:keywords "extensions" "diminish" "minor" "codeprose") (:authors ("Will Mengarini" . "seldon@eskimo.com")) (:maintainer "Martin Yrjölä" . "martin.yrjola@gmail.com") (:url . "https://github.com/myrjola/diminish.el"))]) (dim-autoload . [(20180318 2027) nil "dim or hide autoload cookie lines" single ((:commit . "788320fe089fafbdf1cb09d2ab4d29d64a804e21") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/dim-autoload"))]) (dim . [(20160818 949) ((emacs (24 4))) "Change mode-line names of major/minor modes" single ((:commit . "79b81724b951fedffdd3113f473c18990af837a9") (:keywords "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/dim.el"))]) (digitalocean-helm . [(20180610 746) ((emacs (24 3)) (helm (2 5)) (digitalocean (0 1))) "Create and manipulate digitalocean droplets" single ((:commit . "b125c9882eded7d73ec109d152b26625f333440b") (:keywords "processes" "tools") (:authors ("Oliver Marks" . "oly@digitaloctave.com")) (:maintainer "Oliver Marks" . "oly@digitaloctave.com") (:url . "https://gitlab.com/olymk2/digitalocean-api"))]) (digitalocean . [(20180603 925) ((request (2 5)) (emacs (24 4))) "Create and manipulate digitalocean droplets" single ((:commit . "1cac663c4bcb7f8325783954df6c0caf3dc20f6e") (:keywords "processes" "tools") (:authors ("Oliver Marks" . "oly@digitaloctave.com")) (:maintainer "Oliver Marks" . "oly@digitaloctave.com") (:url . "https://github.com/olymk2/emacs-digitalocean"))]) (digit-groups . [(20160817 226) ((dash (2 11 0))) "Highlight place-value positions in numbers" single ((:authors ("Michael D. Adams <http://michaeldadams.org>")) (:maintainer "Michael D. Adams <http://michaeldadams.org>") (:url . "http://bitbucket.com/adamsmd/digit-groups"))]) (digistar-mode . [(20160218 1955) nil "major mode for Digistar scripts" single ((:commit . "15288b1e1a04b79b5ab7097fdd26d48b2ff41076") (:keywords "languages") (:authors ("John Foerch" . "jjfoerch@earthlink.net")) (:maintainer "John Foerch" . "jjfoerch@earthlink.net"))]) (diffview . [(20150929 511) nil "View diffs in side-by-side format" single ((:commit . "031b70913e755c5e55222680f80185032a7d1728") (:keywords "convenience" "diff") (:authors ("Mitchel Humpherys" . "mitch.special@gmail.com")) (:maintainer "Mitchel Humpherys" . "mitch.special@gmail.com") (:url . "https://github.com/mgalgs/diffview-mode"))]) (diffscuss-mode . [(20141014 2357) nil "Major mode for diffscuss files." single ((:commit . "e0aacd8b3d9f886f27222c1397f0655e849e0af7") (:keywords "tools") (:authors ("Edmund Jorgensen" . "edmund@hut8labs.com")) (:maintainer "Edmund Jorgensen" . "edmund@hut8labs.com"))]) (difflib . [(20171227 1518) ((emacs (24 4)) (cl-generic (0 3)) (ht (2 2)) (s (1 12 0))) "Helpers for computing deltas between sequences." single ((:commit . "b08850251812d71e62fd6956081299590acdf37b") (:keywords "matching" "tools" "string") (:authors ("Diego A. Mundo" . "diegoamundo@gmail.com")) (:maintainer "Diego A. Mundo" . "diegoamundo@gmail.com") (:url . "http://github.com/dieggsy/difflib.el"))]) (diff-hl . [(20180201 1155) ((cl-lib (0 2)) (emacs (24 3))) "Highlight uncommitted changes using VC" tar ((:commit . "154c64affe7bdd16da814d198277d29bd1b6bb2a") (:keywords "vc" "diff") (:authors ("Dmitry Gutov" . "dgutov@yandex.ru")) (:maintainer "Dmitry Gutov" . "dgutov@yandex.ru") (:url . "https://github.com/dgutov/diff-hl"))]) (dictionary . [(20140718 329) ((connection (1 10)) (link (1 10))) "Client for rfc2229 dictionary servers" single ((:commit . "a23b8f4a422d0de69a006ed010eff5795319db98") (:keywords "interface" "dictionary") (:authors ("Torsten Hilbrich" . "torsten.hilbrich@gmx.net")) (:maintainer "Torsten Hilbrich" . "torsten.hilbrich@gmx.net"))]) (dictcc . [(20171213 2134) ((emacs (24 4)) (cl-lib (0 5)) (ivy (0 10 0))) "Look up translations on dict.cc" single ((:commit . "7b988413f7719820cd846827525142a23f401e50") (:keywords "convenience") (:authors ("Marten Lienen" . "marten.lienen@gmail.com")) (:maintainer "Marten Lienen" . "marten.lienen@gmail.com"))]) (dic-lookup-w3m . [(20180526 1621) ((w3m (20120723 324)) (stem (20120826))) "look up dictionaries on the Internet" tar ((:commit . "3254ab10cbf0078c7162557dd1f68dac28459cf9") (:keywords "emacs-w3m" "w3m" "dictionary") (:authors ("mcprvmec")) (:maintainer "mcprvmec"))]) (diary-manager . [(20181027 222) ((emacs (25))) "Simple personal diary." single ((:commit . "1960f854073d37ac0ba6855efda833a790263ee2") (:keywords "extensions") (:authors ("Radon Rosborough" . "radon.neon@gmail.com")) (:maintainer "Radon Rosborough" . "radon.neon@gmail.com") (:url . "https://github.com/raxod502/diary-manager"))]) (dhall-mode . [(20181104 109) ((emacs (24 4))) "a major mode for dhall configuration language" single ((:commit . "1fa48e3aaa1623f2ac3d63a0681f3fb9343fee7a") (:keywords "languages") (:authors ("Sibi Prabakaran" . "sibi@psibi.in")) (:maintainer "Sibi Prabakaran" . "sibi@psibi.in") (:url . "https://github.com/psibi/dhall-mode"))]) (dfmt . [(20170728 1023) nil "Emacs Interface to D indenting/formatting tool dfmt." single ((:commit . "21b9094e907b7ac53f5ecb4ff4539613a9d12434") (:keywords "tools" "convenience" "languages" "dlang") (:authors ("Per Nordlöw")) (:maintainer "Kirill Babikhin <qsimpleq>") (:url . "https://github.com/qsimpleq/elisp-dfmt"))]) (devdocs . [(20170731 850) nil "Launch DevDocs search" single ((:commit . "a2d51e824f0cc48a9dd611cc740bc8b86143e611") (:authors ("Chunyang Xu" . "xuchunyang.me@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang.me@gmail.com") (:url . "https://github.com/xuchunyang/DevDocs.el"))]) (desktop-registry . [(20140119 2143) nil "Keep a central registry of desktop files" single ((:commit . "244c2e7f9f0a1050aa8a47ad0b38f4e4584682dd") (:keywords "convenience") (:authors ("Tom Willemse" . "tom@ryuslash.org")) (:maintainer "Tom Willemse" . "tom@ryuslash.org") (:url . "http://projects.ryuslash.org/desktop-registry/"))]) (desktop-environment . [(20180423 853) ((emacs (25 1))) "Helps you control your GNU/Linux computer" single ((:commit . "62fbceded526b8e35c90803bcf80e33ebfe8473a") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://gitlab.petton.fr/DamienCassou/desktop-environment"))]) (desktop+ . [(20170107 2132) ((emacs (24 4)) (dash (2 11 0)) (f (0 17 2))) "Handle special buffers when saving & restoring sessions" single ((:commit . "88055cee526a000056201898499cebbd35e3ea76") (:authors ("François Févotte" . "fevotte@gmail.com")) (:maintainer "François Févotte" . "fevotte@gmail.com") (:url . "https://github.com/ffevotte/desktop-plus"))]) (describe-number . [(20151101 55) ((yabin (1 1))) "Describe arbitrarily large number at point." single ((:commit . "40618345a37831804b29589849a785ef5aa5ac24") (:keywords "describe" "value" "help") (:authors ("Morten Slot Kristensen <msk AT nullpointer DOT dk>")) (:maintainer "Morten Slot Kristensen <msk AT nullpointer DOT dk>") (:url . "https://github.com/netromdk/describe-number"))]) (demo-it . [(20180404 332) nil "Create demonstrations" tar ((:commit . "4f74e6f1bb6519587303e20fe59470853b1a0352") (:keywords "demonstration" "presentation" "test") (:authors ("Howard Abrams" . "howard.abrams@gmail.com")) (:maintainer "Howard Abrams" . "howard.abrams@gmail.com"))]) (demangle-mode . [(20180516 245) ((cl-lib (0 1)) (emacs (24))) "Automatically demangle C++ symbols" single ((:commit . "a34b062c8a08d35fe2b9ee66e92f6f9626aae9a3") (:keywords "c" "tools") (:authors ("Ben Liblit" . "liblit@acm.org")) (:maintainer "Ben Liblit" . "liblit@acm.org") (:url . "https://github.com/liblit/demangle-mode"))]) (delim-kill . [(20100517 620) nil "Kill text between delimiters." single ((:commit . "1dbe47344f2d2cbc8c54beedf0cf0bf10fd203c1") (:keywords "convenience" "languages") (:authors ("Thomas Kappler" . "tkappler@gmail.com")) (:maintainer "Thomas Kappler" . "tkappler@gmail.com") (:url . "http://github.com/thomas11/delim-kill/tree/master"))]) (deft . [(20181029 213) nil "quickly browse, filter, and edit plain text notes" single ((:commit . "47d268355b0d988804e19896770b29da7f01c7aa") (:keywords "plain text" "notes" "simplenote" "notational velocity") (:authors ("Jason R. Blevins" . "jrblevin@xbeta.org")) (:maintainer "Jason R. Blevins" . "jrblevin@xbeta.org") (:url . "https://jblevins.org/projects/deft/"))]) (defrepeater . [(20180830 410) ((emacs (25 2)) (s (1 12 0))) "Easily make commands repeatable" single ((:commit . "9c027a2561fe141dcfb79f75fcaee36cd0386ec1") (:keywords "convenience") (:authors ("Adam Porter" . "adam@alphapapa.net")) (:maintainer "Adam Porter" . "adam@alphapapa.net") (:url . "http://github.com/alphapapa/defrepeater.el"))]) (defproject . [(20151201 2219) ((emacs (24))) "Manager dir-locals and project specific variables" single ((:commit . "674d48a5e34cb4bba76faa38ee901322ec649086") (:keywords "convenience") (:authors (nil . "<kotfic@gmail.com>")) (:maintainer nil . "<kotfic@gmail.com>") (:url . "https://github.com/kotfic/defproject"))]) (define-word . [(20180706 2029) ((emacs (24 3))) "display the definition of word at point." single ((:commit . "637cd29837d4bd5567e17a11a479fd2edfb0e2c1") (:keywords "dictionary" "convenience") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/define-word"))]) (deferred . [(20170901 1330) ((emacs (24 4))) "Simple asynchronous functions for emacs lisp" single ((:commit . "2239671d94b38d92e9b28d4e12fd79814cfb9c16") (:keywords "deferred" "async") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>") (:url . "https://github.com/kiwanami/emacs-deferred"))]) (default-text-scale . [(20180521 649) nil "Easily adjust the font size in all frames" single ((:commit . "512d701df5e2079cad33329184fd7683c3b0b0af") (:keywords "frames" "faces") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/default-text-scale"))]) (dedukti-mode . [(20171103 1212) nil "Major mode for Dedukti files" single ((:commit . "d7c3505a1046187de3c3aeb144455078d514594e") (:keywords "languages" "dedukti") (:authors ("Raphaël Cauderlier")) (:maintainer "Raphaël Cauderlier") (:url . "https://github.com/rafoo/dedukti-mode"))]) (dedicated . [(20090428 1931) nil "A very simple minor mode for dedicated buffers" single ((:commit . "8275fb672f9cc4ba6682ebda0ef91db827e32992") (:keywords "dedicated" "buffer") (:authors ("Eric Crampton" . "eric@atdesk.com")) (:maintainer "Eric Crampton" . "eric@atdesk.com"))]) (decl . [(20171212 1458) ((dash (2 5 0)) (emacs (24 3)) (cl-lib (0 3))) "Library for organizing code declaratively" single ((:commit . "ff7f8a4f1225cbdf141c86172104e67a4cf58c86") (:authors ("Preetpal S. Sohal")) (:maintainer "Preetpal S. Sohal") (:url . "https://github.com/preetpalS/decl.el"))]) (decide . [(20180316 1801) nil "rolling dice and other random things" single ((:commit . "257f0e39ac60ca375942950b44eeaee04cb9d961") (:authors ("Pelle Nilsson" . "perni@lysator.liu.se")) (:maintainer "Pelle Nilsson" . "perni@lysator.liu.se"))]) (debug-print . [(20140126 19) ((emacs (24))) "A nice printf debugging environment by the way Gauche do" single ((:commit . "d817fd9ea2d3f8d2c1ace4d8af155684f3a99dc5") (:keywords "extensions" "lisp" "tools" "maint") (:authors ("Ken Okada" . "keno.ss57@gmail.com")) (:maintainer "Ken Okada" . "keno.ss57@gmail.com") (:url . "https://github.com/kenoss/debug-print"))]) (debpaste . [(20160113 2347) ((xml-rpc (1 6 7))) "Interface for getting/posting/deleting pastes from paste.debian.net" single ((:commit . "6f2a400665062468ebd03a2ce1de2a73d9084958") (:keywords "paste") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "http://github.com/alezost/debpaste.el"))]) (debian-el . [(20181020 1513) nil "Emacs helpers specific to Debian users" tar ((:commit . "a499822afc2154ca83edf6a605ed22c5a932fa12"))]) (deadgrep . [(20181021 1349) ((emacs (25 1)) (dash (2 12 0)) (s (1 11 0)) (spinner (1 7 3))) "fast, friendly searching with ripgrep" single ((:commit . "4e177d7c540f0a6d317f08a15dcfec6ba97609fc") (:keywords "tools") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk") (:url . "https://github.com/Wilfred/deadgrep"))]) (ddskk . [(20180707 532) ((ccc (1 43)) (cdb (20141201 754))) "Simple Kana to Kanji conversion program." tar ((:commit . "b05c610e27b86e71fb4e8d67292ef6a696dd5992"))]) (db-pg . [(20130131 1902) ((pg (0 12)) (db (0 0 6))) "A PostgreSQL adapter for emacs-db" single ((:commit . "7d5ab86b74b05fe003b3b434d4835f37f3f3eded") (:keywords "data" "comm" "database" "postgresql") (:authors ("Nic Ferrier" . "nic@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nic@ferrier.me.uk"))]) (db . [(20140421 2111) ((kv (0 0 11))) "A database for EmacsLisp" single ((:commit . "b3a423fb8e72f9013009cbe033d654df2ce31438") (:keywords "data" "lisp") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk"))]) (dayone . [(20160105 1240) ((uuid (0 0 3)) (mustache (0 22)) (ht (1 5))) "Utility script for Day One" tar ((:commit . "ab628274f0806451f23bce16f62a6a11cbf91a2b") (:keywords "day one" "tools" "convenience") (:authors ("mori-dev" . "mori.dev.asdf@gmail.com")) (:maintainer "mori-dev" . "mori.dev.asdf@gmail.com") (:url . "https://github.com/mori-dev/emacs-dayone"))]) (datomic-snippets . [(20180817 1045) ((s (1 4 0)) (dash (1 2 0)) (yasnippet (0 6 1))) "Yasnippets for Datomic" tar ((:commit . "4a14228840d5252e13d2bf6209670f26345bbb84"))]) (datetime-format . [(20160612 1715) nil "Datetime functions" single ((:commit . "e6427538b547cbe02e1bd6ed4b765c73620bdae8") (:keywords "datetime" "calendar") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/emacs-datetime"))]) (datetime . [(20181021 1750) ((emacs (24 1)) (extmap (1 0))) "Parsing, formatting and matching timestamps" tar ((:commit . "178befd4881f407ad97c05fadb74589ade7297f2") (:keywords "lisp" "i18n") (:authors ("Paul Pogonyshev" . "pogonyshev@gmail.com")) (:maintainer "Paul Pogonyshev" . "pogonyshev@gmail.com") (:url . "https://github.com/doublep/datetime"))]) (date-field . [(20141129 105) ((dash (2 9 0)) (log4e (0 2 0)) (yaxception (0 3 2))) "Date widget" single ((:commit . "11c9170d1f7b343233f7716d4c0a62be024c1654") (:keywords "widgets") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-date-field"))]) (date-at-point . [(20150308 1243) nil "Add `date' to `thing-at-point' function" single ((:commit . "38df823d05df08ec0748a4185113fae5f99090e9") (:keywords "convenience") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/date-at-point.el"))]) (dashboard . [(20180902 1848) ((emacs (24 4)) (page-break-lines (0 11))) "A startup screen extracted from Spacemacs" tar ((:commit . "caef4564d50cc00b748d98f6180f26d4036cc8c6") (:keywords "startup" "screen" "tools") (:authors ("Rakan Al-Hneiti")) (:maintainer "Rakan Al-Hneiti") (:url . "https://github.com/rakanalh/emacs-dashboard"))]) (dash-functional . [(20180107 1618) ((dash (2 0 0)) (emacs (24))) "Collection of useful combinators for Emacs Lisp" single ((:commit . "6514359b8606a6a9a94068ccd601fcd6379d6584") (:keywords "lisp" "functions" "combinators"))]) (dash-at-point . [(20180710 1356) nil "Search the word at point with Dash" single ((:commit . "4d795a23a8428c421d5107f1b005c9d8e0d1816c") (:authors ("Shinji Tanaka" . "shinji.tanaka@gmail.com")) (:maintainer "Shinji Tanaka" . "shinji.tanaka@gmail.com") (:url . "https://github.com/stanaka/dash-at-point"))]) (dash . [(20180910 1856) nil "A modern list library for Emacs" single ((:commit . "6514359b8606a6a9a94068ccd601fcd6379d6584") (:keywords "lists") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (dart-mode . [(20181012 346) ((emacs (24 5)) (cl-lib (0 5)) (dash (2 10 0)) (flycheck (0 23)) (s (1 10))) "Major mode for editing Dart files" single ((:commit . "5d0a7cd09305d2dc4584e72a008db3f099228000") (:keywords "language") (:authors ("Natalie Weizenbaum")) (:maintainer "Natalie Weizenbaum") (:url . "https://github.com/nex3/dart-mode"))]) (darktooth-theme . [(20181013 906) ((autothemer (0 2))) "From the darkness... it watches" single ((:commit . "780f9e25ae4abccab4e053f2caba7add4bc9d3be") (:url . "http://github.com/emacsfodder/emacs-theme-darktooth"))]) (darkokai-theme . [(20181019 1859) nil "A darker variant on Monokai." single ((:commit . "b887fc6080f8e021058bff7f53fad84c82c81a7a") (:url . "http://github.com/sjrmanning/darkokai"))]) (darkmine-theme . [(20160406 624) nil "Yet another emacs dark color theme." single ((:commit . "7f7e82ca03bcad52911fa41fb3e204e32d6ee63e") (:authors ("Pierre Lecocq" . "pierre.lecocq@gmail.com")) (:maintainer "Pierre Lecocq" . "pierre.lecocq@gmail.com") (:url . "https://github.com/pierre-lecocq/darkmine-theme"))]) (darkburn-theme . [(20170423 1652) nil "A not-so-low contrast color theme for Emacs." single ((:commit . "0af794ff7fac19778ac8a7efb92455c6f6c2158f") (:authors ("Jonas Gorauskas" . "jgorauskas@gmail.com")) (:maintainer "Jonas Gorauskas" . "jgorauskas@gmail.com") (:url . "http://github.com/gorauskas/darkburn-theme"))]) (dark-souls . [(20140314 1128) nil "Prepare to die" single ((:commit . "94122b1215423e58dcf18584a2bd022029d54d4b") (:keywords "games") (:authors ("Tom Jakubowski" . "tom@crystae.net")) (:maintainer "Tom Jakubowski" . "tom@crystae.net") (:url . "http://github.com/tomjakubowski/dark-souls.el"))]) (dark-mint-theme . [(20160302 642) nil "dark & minty fresh theme" single ((:commit . "95c30a26de31549cd341184ba9ab2be8fdc67eba"))]) (dark-krystal-theme . [(20170808 1300) ((emacs (24 0))) "an Emacs 24 theme based on Dark Krystal (tmTheme)" single ((:commit . "79084b99665dc9ffb0ec62cc092349a5ecebebbc") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (darcula-theme . [(20171227 1845) nil "Inspired by IntelliJ's Darcula theme" single ((:commit . "d9b82b58ded9014985be6658f4ab17e26ed9e93e") (:keywords "faces") (:authors ("Sam Halliday" . "Sam.Halliday@gmail.com")) (:maintainer "Sam Halliday" . "Sam.Halliday@gmail.com") (:url . "https://gitlab.com/fommil/emacs-darcula-theme"))]) (darcsum . [(20140316 410) nil "a pcl-cvs like interface for managing darcs patches" tar ((:commit . "00c252b51cb24c25fb74f529960ebd631514a4c1") (:keywords "completion" "convenience" "tools" "vc") (:authors ("John Wiegley" . "johnw@gnu.org")) (:maintainer "John Wiegley" . "johnw@gnu.org"))]) (dap-mode . [(20181026 1913) ((emacs (25 1)) (dash (2 14 1)) (lsp-mode (4 0)) (dash-functional (1 2 0)) (tree-mode (1 1 1 1)) (bui (1 1 0)) (f (0 20 0)) (s (1 12 0))) "Debug Adapter Protocol mode" tar ((:commit . "c99258d944f877bcf778375511582c852e4f3e76") (:keywords "languages" "debug") (:authors ("Ivan Yonchovski" . "yyoncho@gmail.com")) (:maintainer "Ivan Yonchovski" . "yyoncho@gmail.com") (:url . "https://github.com/yyoncho/dap-mode"))]) (dante . [(20180916 729) ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (haskell-mode (13 14)) (s (1 11 0)) (lcr (1 0))) "Development mode for Haskell" single ((:commit . "f16562abe570f5ca0e7abbf8c7058c81976a921f") (:keywords "haskell" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/dante"))]) (danneskjold-theme . [(20181101 757) nil "Beautiful high-contrast Emacs theme." tar ((:commit . "5c55c2ced259e8bbf658b23fc0cb74946caa009e"))]) (dakrone-theme . [(20170801 1933) nil "dakrone's custom dark theme" single ((:commit . "232ad1be5f3572dcbdf528f1655109aa355a6937") (:keywords "color" "themes") (:authors ("Lee Hinman <lee _AT_ writequit.org>")) (:maintainer "Lee Hinman <lee _AT_ writequit.org>") (:url . "https://github.com/dakrone/dakrone-theme"))]) (dakrone-light-theme . [(20170808 2140) nil "dakrone's custom light theme" single ((:commit . "06f198dc8b4ca7421990b30a23d89c8e0b8c5de4") (:keywords "color" "themes" "faces") (:authors ("Lee Hinman <lee _AT_ writequit.org>")) (:maintainer "Lee Hinman <lee _AT_ writequit.org>") (:url . "https://github.com/dakrone/dakrone-light-theme"))]) (daemons . [(20180610 1510) ((emacs (25 1))) "UI for managing init system daemons (services)" tar ((:commit . "dcf42cb3178d7245d6d49de346d5e2b44e5b7498") (:keywords "unix" "convenience") (:authors ("Chris Bowdon")) (:maintainer "Chris Bowdon") (:url . "https://github.com/cbowdon/daemons.el"))]) (dad-joke . [(20170928 658) ((emacs (24))) "Get/display dad jokes" single ((:commit . "bee47e7b746b403228fa7d7361cb095de19ac9ba") (:keywords "games") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/dad-joke.el"))]) (dactyl-mode . [(20140906 1725) nil "Major mode for editing Pentadactyl config files" single ((:commit . "cc55fe6b987271d9647492b8df4c812d884f661f") (:keywords "languages" "vim") (:url . "https://github.com/luxbock/dactyl-mode"))]) (d-mode . [(20181011 1927) ((emacs (24 3))) "D Programming Language major mode for (X)Emacs" single ((:commit . "385cda4afad79000b4cb7704861faf34009b0fc2") (:keywords "d" "programming" "language" "emacs" "cc-mode") (:authors ("William Baxter")) (:maintainer "Russel Winder" . "russel@winder.org.uk"))]) (czech-holidays . [(20160113 1752) nil "Adds a list of Czech public holidays to Emacs calendar" single ((:commit . "d136fa09a152b3cd80db6d55c7b4ddfe07b90fbf") (:keywords "calendar") (:authors ("David Chkhikvadze" . "david.chk@outlook.com")) (:maintainer "David Chkhikvadze" . "david.chk@outlook.com"))]) (cython-mode . [(20180213 1654) nil "Major mode for editing Cython files" single ((:commit . "f158e490b9e8515cf47cf301f996c1b7e631eebb"))]) (cypher-mode . [(20151110 1142) nil "major mode for editing cypher scripts" single ((:commit . "ce8543d7877c736c574a17b49874c9dcdc7a06d6") (:keywords "cypher" "graph") (:authors ("François-Xavier Bois <fxbois AT Google Mail Service>")) (:maintainer "François-Xavier Bois") (:url . "http://github.com/fxbois/cypher-mode"))]) (cyphejor . [(20180101 618) ((emacs (24 4))) "Shorten major mode names using user-defined rules" single ((:commit . "df449180d28691c9bdbef7bcb25aee75b2af50ca") (:keywords "mode-line" "major-mode") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/cyphejor"))]) (cycle-themes . [(20150403 309) ((cl-lib (0 5))) "A global minor mode to make switching themes easier" single ((:commit . "6e125d11fdbc6b78fc9f219eb2609a5e29815898") (:keywords "themes" "utility" "global minor mode") (:url . "http://github.com/toroidal-code/cycle-themes.el"))]) (cycle-resize . [(20160521 1557) nil "Cycle resize the current window horizontally or vertically" single ((:commit . "7d255d6fe85f12c967a0f7fcfcf18633be194c88") (:authors ("Pierre Lecocq")) (:maintainer "Pierre Lecocq") (:url . "https://github.com/pierre-lecocq/cycle-resize"))]) (cycbuf . [(20131203 2037) nil "Cycle buffers, inspired by swbuff.el, swbuff-x.el, and bs.el" single ((:commit . "1079b41c3eb27d65b66d4399959bb6253f84858e") (:keywords "files" "convenience" "buffer switching") (:authors ("Martin Pohlack martinp (at) gmx.de")) (:maintainer "Martin Pohlack martinp (at) gmx.de") (:url . "https://github.com/martinp26/cycbuf"))]) (cyberpunk-theme . [(20180609 509) nil "Cyberpunk Color Theme" single ((:commit . "f8967e46b8bdb3eaf7b72474f2d70997dc1152e9") (:keywords "color" "theme" "cyberpunk") (:authors ("Nicholas M. Van Horn" . "nvanhorn@protonmail.com")) (:maintainer "Nicholas M. Van Horn" . "nvanhorn@protonmail.com"))]) (cwl-mode . [(20171205 945) ((yaml-mode (0 0 13)) (emacs (24 4))) "A major mode for editing CWL" single ((:commit . "bdeb9c0734126f940db80bfb8b1dc735dab671c7") (:keywords "languages" "cwl" "common workflow language") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com") (:url . "https://github.com/tom-tan/cwl-mode"))]) (cursor-test . [(20131207 1732) ((emacs (24))) "testing library for cursor position in emacs." single ((:commit . "e09956e048b88fd2ee8dd90b5678baed8b04d31b") (:authors ("ainame")) (:maintainer "ainame") (:url . "https://github.com/ainame/cursor-test.el"))]) (cuda-mode . [(20151214 321) nil "NVIDIA CUDA Major Mode" single ((:commit . "9ae9eacfdba3559b5456342d0d03296290df8ff5") (:keywords "c" "languages") (:authors ("Jack Morrison" . "jackmorrison1@gmail.com")) (:maintainer "Jack Morrison" . "jackmorrison1@gmail.com"))]) (cucumber-goto-step . [(20131210 519) ((pcre2el (1 5))) "Jump to cucumber step definition" single ((:commit . "f2713ffb26ebe1b757d1f2ea80e900b55e5895aa") (:authors ("Glen Stampoultzis" . "gstamp@gmail.com")) (:maintainer "Glen Stampoultzis" . "gstamp@gmail.com") (:url . "http://orthogonal.me"))]) (cubicle-mode . [(20171009 1957) nil "Major mode for the Cubicle model checker" single ((:commit . "c2fba597da83b9ddc1195f1c8710d5330db24735") (:authors ("Alain Mebsout")) (:maintainer "Alain Mebsout"))]) (cubicaltt . [(20171108 1402) ((emacs (24 1)) (cl-lib (0 5))) "Mode for cubical type theory" single ((:commit . "a5c6f94bfc0da84e214641e0b87aa9649ea114ea") (:keywords "languages") (:url . "https://github.com/mortberg/cubicaltt"))]) (ctxmenu . [(20140303 2142) ((popup (20140205 103)) (log4e (0 2 0)) (yaxception (0 1))) "Provide a context menu like right-click." tar ((:commit . "5c2376859562b98c07c985d2b483658e4c0e888e") (:keywords "popup") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-ctxmenu"))]) (ctl-mode . [(20151202 1006) nil "Major mode for editing GrADS script files" single ((:commit . "1a13051db21b999c7682a015b33a03096ff9d891") (:keywords "grads" "script" "major-mode") (:authors ("Joe Wielgosz" . "joew@cola.iges.org")) (:maintainer "Joe Wielgosz" . "joew@cola.iges.org"))]) (ctags-update . [(20170728 758) nil "(auto) update TAGS in parent directory using exuberant-ctags" single ((:commit . "783bf91eba1cd27cbb739067a24e15e5e04564e6") (:keywords "exuberant-ctags" "etags") (:authors (nil . "Joseph(纪秀峰) jixiuf@gmail.com")) (:maintainer nil . "Joseph(纪秀峰) jixiuf@gmail.com") (:url . "https://github.com/jixiuf/ctags-update"))]) (ctable . [(20171006 11) nil "Table component for Emacs Lisp" single ((:commit . "b8830d1ca95abb100a81bc32011bd17d5ecba000") (:keywords "table") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>") (:url . "https://github.com/kiwanami/emacs-ctable"))]) (csv . [(20161113 1510) nil "Functions for reading and parsing CSV files." single ((:commit . "aa1dfa1263565d5fac3879c21d8ddf5f8915e411") (:keywords "extensions" "data" "csv") (:authors ("Ulf Jasper" . "ulf.jasper@web.de")) (:maintainer "Ulf Jasper" . "ulf.jasper@web.de"))]) (cssh . [(20150810 1709) nil "clusterssh implementation for emacs" single ((:commit . "2fe2754235225a59b63f08b130cfd4352e2e1c3f") (:keywords "clusterssh" "ssh" "cssh") (:authors ("Dimitri Fontaine" . "dim@tapoueh.org")) (:maintainer "Dimitri Fontaine" . "dim@tapoueh.org") (:url . "http://tapoueh.org/emacs/cssh.html"))]) (css-eldoc . [(20150125 323) nil "an eldoc-mode plugin for CSS source code" tar ((:commit . "c558ac4c470742c98a37290e6b409db28183df30") (:authors ("Zeno Zeng" . "zenoes@qq.com")) (:maintainer "Zeno Zeng" . "zenoes@qq.com"))]) (css-comb . [(20160416 559) nil "Sort CSS properties in a particular order using CSS Comb" single ((:commit . "6fa45e5af8a8bd3af6c1154cde3540e32c4206ee") (:authors ("Charanjit Singh" . "ckhabra@gmail.com")) (:maintainer "Charanjit Singh" . "ckhabra@gmail.com") (:url . "https://github.com/channikhabra/css-comb.el"))]) (css-autoprefixer . [(20180311 1600) ((emacs (24))) "Adds autoprefix to CSS" single ((:commit . "386a5defc8543a3b87820f1761c075c7d1d93b38") (:keywords "convenience" "usability" "css") (:authors (nil . "Kyung Mo Kweon<kkweon@gmail.com> and contributors")) (:maintainer nil . "Kyung Mo Kweon<kkweon@gmail.com> and contributors") (:url . "https://github.com/kkweon/emacs-css-autoprefixer"))]) (csound-mode . [(20180925 1814) ((emacs (25)) (shut-up (0 3 2)) (multi (2 0 1))) "A major mode for interacting and coding Csound" tar ((:commit . "9bc2d0badf8316cca2d167348bb81a82e34297c8") (:authors ("Hlöðver Sigurðsson" . "hlolli@gmail.com")) (:maintainer "Hlöðver Sigurðsson" . "hlolli@gmail.com") (:url . "https://github.com/hlolli/csound-mode"))]) (csharp-mode . [(20181011 718) nil "C# mode derived mode" single ((:commit . "239527c1f27cf5246505f1faf23269487fdbfdd2") (:keywords "c#" "languages" "oop" "mode") (:authors ("Dylan R. E. Moonfire (original)")) (:maintainer "Jostein Kjønigsen" . "jostein@gmail.com") (:url . "https://github.com/josteink/csharp-mode"))]) (csgo-conf-mode . [(20161209 1619) nil "CS:GO Configuration files syntax highlighting" single ((:commit . "57e7224f87a3ccc76b5564cc95fa0ff43bb6807c") (:keywords "languages") (:authors ("Guillermo Robles" . "guillerobles1995@gmail.com")) (:maintainer "Guillermo Robles" . "guillerobles1995@gmail.com") (:url . "https://github.com/wynro/emacs-csgo-conf-mode"))]) (crystal-playground . [(20180830 501) ((emacs (25)) (crystal-mode (0 1 2))) "Local crystal playground for short code snippets." single ((:commit . "fb3691b1281207b459c5be50015a626f356dc40d") (:keywords "tools" "crystal") (:authors ("Jason Howell")) (:maintainer "Jason Howell") (:url . "https://github.com/jasonrobot/crystal-playground"))]) (crystal-mode . [(20180827 329) ((emacs (24 4))) "Major mode for editing Crystal files" single ((:commit . "8649736fea8960a5e54c3ec934484f231a518ea5") (:keywords "languages" "crystal") (:url . "https://github.com/crystal-lang-tools/emacs-crystal-mode"))]) (cryptsy-public-api . [(20141008 1228) ((json (1 2))) "Library for working with the Cryptsy public API" single ((:commit . "795c204452f880c0087663e7c35faf26ea34af4d") (:keywords "cryptsy" "bitcoin" "litecoin" "dogecoin") (:authors ("Phil Newton" . "phil@sodaware.net")) (:maintainer "Phil Newton" . "phil@sodaware.net"))]) (cryptol-mode . [(20180321 1808) nil "Cryptol major mode for Emacs" single ((:commit . "91f8ad617e5db2fad57a7be1da211f22f3b51550") (:keywords "cryptol" "cryptography") (:authors (nil . "Austin Seipp <aseipp [@at] pobox [dot] com>")) (:maintainer nil . "Austin Seipp <aseipp [@at] pobox [dot] com>") (:url . "http://github.com/thoughtpolice/cryptol-mode"))]) (crux . [(20181108 827) ((seq (1 11))) "A Collection of Ridiculously Useful eXtensions" single ((:commit . "308f17d914e2cd79cbc809de66d02b03ceb82859") (:keywords "convenience") (:authors ("Bozhidar Batsov" . "bozhidar@batsov.com")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "https://github.com/bbatsov/crux"))]) (crm-custom . [(20160117 6) ((cl-lib (0 5))) "Alternate `completing-read-multiple' that uses `completing-read'" single ((:commit . "f1aaccf64306a5f99d9bf7ba815d7ea41c15518d") (:keywords "completion" "minibuffer" "multiple elements") (:authors ("Ryan C. Thompson" . "rct@thompsonclan.org")) (:maintainer "Ryan C. Thompson" . "rct@thompsonclan.org") (:url . "https://github.com/DarwinAwardWinner/crm-custom"))]) (cricbuzz . [(20180804 2254) ((enlive (0 0 1)) (f (0 19 0)) (dash (2 13 0)) (s (1 11 0))) "Cricket scores from cricbuzz in emacs" single ((:commit . "0b95d45991bbcd2fa58d96ce921f6a57ba42c153") (:keywords "cricket" "score") (:authors ("Abhinav Tushar" . "abhinav.tushar.vs@gmail.com")) (:maintainer "Abhinav Tushar" . "abhinav.tushar.vs@gmail.com") (:url . "https://github.com/lepisma/cricbuzz.el"))]) (creole-mode . [(20130722 50) nil "a markup mode for creole" single ((:commit . "b5e79b2ec5f19fb5aacf689b5febc3e0b61515c4") (:keywords "hypermedia" "wp") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk") (:url . "https://github.com/nicferrier/creole-mode"))]) (creole . [(20140924 1500) ((noflet (0 0 3)) (kv (0 0 17))) "A parser for the Creole Wiki language" single ((:commit . "7d5cffe93857f6c75ca09ac79c0e47b8d4410e53") (:keywords "lisp" "creole" "wiki") (:authors ("Nic Ferrier" . "nferrier@ferrier.me.uk")) (:maintainer "Nic Ferrier" . "nferrier@ferrier.me.uk"))]) (creds . [(20140510 1706) ((s (1 9 0)) (dash (2 5 0))) "A parser credentials file library (not limited to credentials entries)" tar ((:commit . "b059397a7d59481f05fbb1bb9c8d3c2c69226482"))]) (creamsody-theme . [(20170222 1058) ((autothemer (0 2))) "Straight from the soda fountain." single ((:commit . "32fa3f4e461da92700523b1b20e7b28974c19a26") (:url . "http://github.com/emacsfodder/emacs-theme-creamsody"))]) (crappy-jsp-mode . [(20140311 931) nil "A pretty crappy major-mode for jsp." single ((:commit . "6c45ab92b452411cc0fab9bcee2f456276b4fc40") (:keywords "jsp" "major" "mode"))]) (cquery . [(20180811 2131) ((emacs (25 1)) (lsp-mode (3 4)) (dash (0 13))) "cquery client for lsp-mode" tar ((:commit . "a803e92e77e1ffc74c13a753c1eb4f6f47127a97") (:keywords "languages" "lsp" "c++") (:authors ("Tobias Pisani")) (:maintainer "Tobias Pisani") (:url . "https://github.com/jacobdufault/cquery"))]) (cql-mode . [(20160721 339) ((emacs (24))) "Major mode for editting CQLs" single ((:commit . "2529ade55c125a89d8215f096a74733a90611c5d") (:keywords "cql" "cassandra") (:authors ("Yuki Inoue <inouetakahiroki at gmail.com>")) (:maintainer "Yuki Inoue <inouetakahiroki at gmail.com>") (:url . "https://github.com/Yuki-Inoue/cql-mode"))]) (cpputils-cmake . [(20181006 328) nil "Easy realtime C++ syntax check and IntelliSense with CMake." single ((:commit . "64b2b05eff5398b4cd522e66efaf14553ab18ff4") (:keywords "cmake" "intellisense" "flymake" "flycheck") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/cpputils-cmake"))]) (cpanfile-mode . [(20161001 710) ((emacs (24 4))) "Major mode for cpanfiles" single ((:commit . "eda675703525198df1f76ddf250bffa40217ec5d") (:keywords "perl") (:authors ("Zak B. Elep" . "zakame@zakame.net")) (:maintainer "Zak B. Elep" . "zakame@zakame.net") (:url . "https://github.com/zakame/cpanfile-mode"))]) (cp5022x . [(20120323 2335) nil "cp50220, cp50221, cp50222 coding system" single ((:commit . "ea7327dd75e54539576916f592ae1be98179ae35") (:keywords "languages" "cp50220" "cp50221" "cp50222" "cp51932" "cp932") (:authors ("ARISAWA Akihiro" . "ari@mbf.ocn.ne.jp")) (:maintainer "ARISAWA Akihiro" . "ari@mbf.ocn.ne.jp"))]) (coverlay . [(20180518 2255) ((emacs (24 1)) (cl-lib (0 5))) "Test coverage overlays" single ((:commit . "8205a845d58755dd7640b2e2b5991bf842998935") (:keywords "coverage" "overlay") (:authors ("Takuto Wada <takuto.wada at gmail com>")) (:maintainer "Takuto Wada <takuto.wada at gmail com>") (:url . "https://github.com/twada/coverlay.el"))]) (coverage . [(20180227 457) ((ov (1 0)) (cl-lib (0 5))) "Code coverage line highlighting" single ((:commit . "c73d984168955ca0f47f44b0464aa45282df42b6") (:keywords "coverage" "metrics" "simplecov" "ruby" "rspec") (:authors ("Kieran Trezona-le Comte" . "trezona.lecomte@gmail.com")) (:maintainer "Kieran Trezona-le Comte" . "trezona.lecomte@gmail.com") (:url . "https://github.com/trezona-lecomte/coverage"))]) (cov . [(20180415 2031) ((emacs (24 4)) (f (0 18 2)) (s (1 11 0)) (elquery (0))) "Show coverage stats in the fringe." single ((:commit . "7c72a949b9628296af97cc7e4df0af6c3824d66e") (:keywords "coverage" "gcov" "c") (:authors ("Adam Niederer")) (:maintainer "Adam Niederer") (:url . "https://github.com/AdamNiederer/cov"))]) (counsel-world-clock . [(20171202 737) ((ivy (0 9 0)) (s (1 12 0))) "Display world clock using Ivy." single ((:commit . "04153fbb21e51b1cfd042bdfc6ed1e8355a1edd7") (:authors ("Kuang Chen <http://github.com/kchenphy>")) (:maintainer "Kuang Chen <http://github.com/kchenphy>") (:url . "https://github.com/kchenphy/counsel-world-clock"))]) (counsel-tramp . [(20180911 157) ((emacs (24 3)) (counsel (0 10))) "Tramp ivy interface for ssh, docker, vagrant" single ((:commit . "d44b986135fc09c8feefdba3caa55cc59cefc1e8") (:authors ("Masashı Mıyaura")) (:maintainer "Masashı Mıyaura") (:url . "https://github.com/masasam/emacs-counsel-tramp"))]) (counsel-spotify . [(20180320 322) ((emacs (25)) (ivy (0 9 0))) "Control Spotify search and select music with Ivy." single ((:commit . "9033e207dccdfea7fe590d2e102d50fcd2bd22e3") (:authors ("Lautaro García <https://github.com/Lautaro-Garcia>")) (:maintainer "Lautaro García <https://github.com/Lautaro-Garcia>"))]) (counsel-pydoc . [(20171018 2042) ((emacs (24 3)) (ivy (0 9 1))) "run pydoc with counsel" single ((:commit . "1d8ff8ca3b9d69453cde423b1887fbb490a95c9e") (:keywords "completion" "matching") (:authors (nil . "Hao Deng(denghao8888@gmail.com)")) (:maintainer nil . "Hao Deng(denghao8888@gmail.com)") (:url . "https://github.com/co-dh/pydoc_utils"))]) (counsel-projectile . [(20181020 1906) ((counsel (0 10 0)) (projectile (1 0 0))) "Ivy integration for Projectile" single ((:commit . "7607fb8bb4eb7fbe0ec20f9644b6bbaa5c363330") (:keywords "project" "convenience") (:authors ("Eric Danan")) (:maintainer "Eric Danan") (:url . "https://github.com/ericdanan/counsel-projectile"))]) (counsel-osx-app . [(20160821 809) ((ivy (0 8 0)) (emacs (24 3))) "launch osx applications via ivy interface" single ((:commit . "b1c54cbc033c4939966910d85ce035503079e108") (:authors ("Boris Buliga" . "d12frosted@gmail.com")) (:maintainer "Boris Buliga" . "d12frosted@gmail.com") (:url . "https://github.com/d12frosted/counsel-osx-app"))]) (counsel-org-clock . [(20180623 1317) ((emacs (24 3)) (ivy (0 10 0)) (dash (2 0))) "Counsel commands for org-clock" single ((:commit . "960c919ed730f95b740cc6b3b9c17e0e1765d7d8") (:authors ("Akira Komamura" . "akira.komamura@gmail.com")) (:maintainer "Akira Komamura" . "akira.komamura@gmail.com") (:url . "https://github.com/akirak/counsel-org-clock"))]) (counsel-org-capture-string . [(20180816 724) ((emacs (25 1)) (ivy (0 10))) "Counsel for org-capture-string" single ((:commit . "0fd5d72397a9268a89dd26de2a6c355f127453ac") (:keywords "outlines") (:authors ("Akira Komamura" . "akira.komamura@gmail.com")) (:maintainer "Akira Komamura" . "akira.komamura@gmail.com") (:url . "https://github.com/akirak/counsel-org-capture-string"))]) (counsel-notmuch . [(20180714 40) ((emacs (24)) (ivy (0 10 0)) (notmuch (0 21)) (s (1 12 0))) "Search emails in Notmuch asynchronously with Ivy" single ((:commit . "f4c864eca400abe0bb7420bcee80f2f8259ca0ff") (:keywords "mail") (:authors ("Alexander Fu Xi" . "fuxialexander@gmail.com")) (:maintainer "Alexander Fu Xi" . "fuxialexander@gmail.com") (:url . "https://github.com/fuxialexander/counsel-notmuch"))]) (counsel-gtags . [(20170326 1259) ((emacs (24 3)) (counsel (0 8 0))) "ivy for GNU global" single ((:commit . "220ebb48419ee6891ecbf9ea8fe130b494b17ee2") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-counsel-gtags"))]) (counsel-etags . [(20181119 1135) ((emacs (24 4)) (counsel (0 9 1))) "Fast and complete Ctags/Etags solution using ivy" tar ((:commit . "ccbfe83926f989e67bf84ee46f825bb1194fffef") (:keywords "tools" "convenience") (:authors ("Chen Bin" . "chenbin.sh@gmail.com")) (:maintainer "Chen Bin" . "chenbin.sh@gmail.com") (:url . "http://github.com/redguardtoo/counsel-etags"))]) (counsel-dash . [(20160729 1529) ((emacs (24 4)) (dash (2 12 1)) (dash-functional (1 2 0)) (helm-dash (1 3 0)) (counsel (0 8 0))) "Browse dash docsets using Ivy" single ((:commit . "07fa74a94ff4da5b6c8c4810f5e143e701b480d2") (:keywords "dash" "ivy" "counsel") (:authors ("Nathan Kot" . "nk@nathankot.com")) (:maintainer "Nathan Kot" . "nk@nathankot.com") (:url . "https://github.com/nathankot/counsel-dash"))]) (counsel-css . [(20180302 1036) ((emacs (24 4)) (counsel (0 7 0)) (cl-lib (0 5))) "stylesheet-selector-aware swiper" single ((:commit . "0536af00236cdce1ed08b40dd46c917e8b4b8869") (:keywords "convenience" "tools" "counsel" "swiper" "selector" "css" "less" "scss") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-counsel-css"))]) (counsel-codesearch . [(20180925 803) ((codesearch (1)) (counsel (0 10 0)) (emacs (24)) (ivy (0 10 0))) "Counsel interface for codesearch.el" single ((:commit . "b7989fad3e06f301c31d5e896c42b6cc549a0e0c") (:keywords "tools") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/emacs-counsel-codesearch"))]) (counsel-bbdb . [(20171130 137) ((ivy (0 8 0)) (emacs (24 3))) "Quick search&input email from BBDB based on ivy" single ((:commit . "c86f4b9ef99c9db0b2c4196a300d61300dc2d0c1") (:keywords "mail" "abbrev" "convenience" "matching") (:authors ("Chen Bin <chenbin.sh AT gmail>")) (:maintainer "Chen Bin <chenbin.sh AT gmail>") (:url . "https://github.com/redguard/counsel-bbdb"))]) (counsel . [(20181120 1844) ((emacs (24 3)) (swiper (0 9 0))) "Various completion functions using Ivy" single ((:commit . "18019278d2b849b1287d299a894a4b98c9707ba2") (:keywords "convenience" "matching" "tools") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/swiper"))]) (cosmo . [(20170922 744) ((emacs (24 4))) "Cosmological Calculator" single ((:commit . "dd83b09a49a2843606b28279b674b2207040b36b") (:keywords "tools") (:authors ("Francesco Montanari" . "fmnt@fmnt.info")) (:maintainer "Francesco Montanari" . "fmnt@fmnt.info") (:url . "https://gitlab.com/montanari/cosmo-el"))]) (corral . [(20160502 701) nil "Quickly surround text with delimiters" single ((:commit . "e7ab6aa118e46b93d4933d1364bc273f57cd6911") (:authors ("Kevin Liu" . "mail@nivekuil.com")) (:maintainer "Kevin Liu" . "mail@nivekuil.com") (:url . "http://github.com/nivekuil/corral"))]) (coq-commenter . [(20170822 2309) ((dash (2 13 0)) (s (1 11 0)) (cl-lib (0 5))) "Coq commenting minor mode for proof" single ((:commit . "7fe9a2cc0ebdb0b1e54a24eb7971d757fb588ac3") (:keywords "comment" "coq" "proof") (:authors ("Junyoung Clare Jang" . "jjc9310@gmail.com")) (:maintainer "Junyoung Clare Jang" . "jjc9310@gmail.com") (:url . "http://github.com/ailrun/coq-commenter"))]) (copyit-pandoc . [(20160624 2028) ((emacs (24)) (copyit (0 0 1)) (pandoc (0 0 1))) "Copy it, yank anything!" single ((:commit . "f50d033b129d467fb517a351adf3f16cabd82a62") (:keywords "convinience" "yank" "clipboard") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/emacs-copyit"))]) (copyit . [(20161126 1229) ((emacs (24)) (cl-lib (0 5)) (s (1 9 0))) "Copy it, yank anything!" single ((:commit . "f50d033b129d467fb517a351adf3f16cabd82a62") (:keywords "convenience" "yank" "clipboard") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/emacs-copyit"))]) (copy-file-on-save . [(20180604 1419) ((emacs (24 3)) (cl-lib (0 5)) (f (0 17)) (s (1 7 0))) "Copy file on save, automatic deployment it." single ((:commit . "5af6d5fcc35ddf9050eada96fd5f334bf0661b62") (:keywords "files" "comm" "deploy") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/emacs-auto-deployment"))]) (copy-as-format . [(20171216 16) ((cl-lib (0 5))) "Copy buffer locations as GitHub/Slack/JIRA/HipChat/... formatted code" single ((:commit . "971957166fe64d914ec4be209b4f80efeeabbb19") (:keywords "github" "slack" "jira" "hipchat" "gitlab" "bitbucket" "org-mode" "pod" "rst" "asciidoc" "tools" "convenience") (:authors ("Skye Shaw" . "skye.shaw@gmail.com")) (:maintainer "Skye Shaw" . "skye.shaw@gmail.com") (:url . "https://github.com/sshaw/copy-as-format"))]) (control-mode . [(20160624 1710) nil "A \"control\" mode, similar to vim's \"normal\" mode" single ((:commit . "72d6179b60adc438aada74083b2bf4264b575de3") (:keywords "convenience" "emulations") (:authors ("Stephen Marsh" . "stephen.david.marsh@gmail.com")) (:maintainer "Stephen Marsh" . "stephen.david.marsh@gmail.com") (:url . "https://github.com/stephendavidmarsh/control-mode"))]) (contrast-color . [(20160903 1807) ((emacs (24 3)) (cl-lib (0 5))) "Pick best contrast color for you" single ((:commit . "c5fb77a211ebbef3185ada37bea7420534c33f94") (:keywords "color" "convenience") (:authors ("Yuta Yamada <cokesboy[at]gmail.com>")) (:maintainer "Yuta Yamada <cokesboy[at]gmail.com>") (:url . "https://github.com/yuutayamada/contrast-color-el"))]) (contextual-menubar . [(20180205 709) nil "display the menubar only on a graphical display" single ((:commit . "f76f55232ac07df76ef9a334a0c527dfab97c40b") (:authors ("Aaron Jensen" . "aaronjensen@gmail.com")) (:maintainer "Aaron Jensen" . "aaronjensen@gmail.com") (:url . "https://github.com/aaronjensen/contextual-menubar"))]) (contextual . [(20180726 800) ((emacs (24)) (dash (2 12 1)) (cl-lib (0 5))) "Contextual profile management system" single ((:commit . "e3c0de4a2e06757a0e8407c3c6e75930026191e3") (:keywords "convenience" "tools") (:authors ("Alexander Kahl" . "ak@sodosopa.io")) (:maintainer "Alexander Kahl" . "ak@sodosopa.io") (:url . "https://github.com/lshift-de/contextual"))]) (constant-theme . [(20180921 1012) ((emacs (24 1))) "A calm, dark, almost monochrome color theme." tar ((:commit . "f7d5bb79b39be65951485c17fe2092cc74b75c7b") (:keywords "themes") (:authors ("Jannis Pohlmann" . "contact@jannispohlmann.de")) (:maintainer "Jannis Pohlmann" . "contact@jannispohlmann.de") (:url . "https://github.com/jannis/emacs-constant-theme"))]) (connection . [(20140718 329) nil "TCP-based client connection" single ((:commit . "a23b8f4a422d0de69a006ed010eff5795319db98") (:keywords "network") (:authors ("Torsten Hilbrich" . "torsten.hilbrich@gmx.net")) (:maintainer "Torsten Hilbrich" . "torsten.hilbrich@gmx.net"))]) (conllu-mode . [(20181104 1742) ((emacs (25)) (cl-lib (0 5)) (flycheck (30)) (hydra (0 13 0)) (s (1 0))) "editing mode for CoNLL-U files" tar ((:commit . "1813121d8aafa0edf28741ad6f013573168cd4a6") (:keywords "extensions") (:authors ("bruno cuconato" . "bcclaro+emacs@gmail.com")) (:maintainer "bruno cuconato" . "bcclaro+emacs@gmail.com") (:url . "https://github.com/odanoburu/conllu-mode"))]) (conkeror-minor-mode . [(20150114 1604) nil "Mode for editing conkeror javascript files." single ((:commit . "476e81c27b056e21c192391fe674a2bf875466b0") (:keywords "programming" "tools") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com>")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com>") (:url . "http://github.com/Bruce-Connor/conkeror-minor-mode"))]) (confluence . [(20151021 128) ((xml-rpc (1 6 4))) "Emacs mode for interacting with confluence wikis" tar ((:commit . "4518d270a07760644c4204985c83d234ece4738b") (:keywords "confluence" "wiki" "xmlrpc") (:authors ("James Ahlborn")) (:maintainer "James Ahlborn") (:url . "http://code.google.com/p/confluence-el/"))]) (config-parser . [(20160426 1219) ((emacs (24 4))) "a library for parsing config file" single ((:commit . "85d559e7889d8f5b98b8794b79426ae25ec3caa5") (:keywords "convenience" "config") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/el-config-parser"))]) (config-general-mode . [(20171024 1840) nil "Config::General config file mode" single ((:commit . "b4a8e6ba0bb027a77e4a0f701409f3e57bb2e4c0") (:keywords "files") (:authors ("T.v.Dein" . "tlinden@cpan.org")) (:maintainer "T.v.Dein" . "tlinden@cpan.org") (:url . "https://github.com/tlinden/config-general-mode"))]) (conda . [(20181107 1951) ((emacs (24 4)) (pythonic (0 1 0)) (dash (2 13 0)) (s (1 11 0)) (f (0 18 2))) "Work with your conda environments" single ((:commit . "94e9ece8c90f234b3fafd0fb82a1c24e3473c78e") (:keywords "python" "environment" "conda") (:authors ("Rami Chowdhury" . "rami.chowdhury@gmail.com")) (:maintainer "Rami Chowdhury" . "rami.chowdhury@gmail.com") (:url . "http://github.com/necaris/conda.el"))]) (concurrent . [(20161229 330) ((emacs (24 3)) (deferred (0 5 0))) "Concurrent utility functions for emacs lisp" single ((:commit . "2239671d94b38d92e9b28d4e12fd79814cfb9c16") (:keywords "deferred" "async" "concurrent") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>") (:url . "https://github.com/kiwanami/emacs-deferred/blob/master/README-concurrent.markdown"))]) (composer . [(20180923 1140) ((emacs (24)) (s (1 9 0)) (f (0 17)) (request (0 2 0)) (seq (1 9)) (php-runtime (0 1 0))) "Interface to PHP Composer" single ((:commit . "6c1578b2352c81cc9a22616a70db2a14b7d2b67f") (:keywords "tools" "php" "dependency" "manager") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/composer.el"))]) (composable . [(20170724 647) ((emacs (24 4))) "composable editing" tar ((:commit . "ac981974f89607393cc61314aaa19672d45b0650") (:keywords "lisp") (:authors ("Simon Friis Vindum" . "simon@vindum.io")) (:maintainer "Simon Friis Vindum" . "simon@vindum.io"))]) (company-ycmd . [(20180520 1053) ((ycmd (1 3)) (company (0 9 3)) (deferred (0 5 1)) (s (1 11 0)) (dash (2 13 0)) (let-alist (1 0 5)) (f (0 19 0))) "company-mode backend for ycmd" single ((:commit . "ef87d020d3314efbac2e8925c115d0ac5c128c2a") (:url . "https://github.com/abingham/emacs-ycmd"))]) (company-ycm . [(20140904 1817) ((ycm (0 1))) "company-ycm" single ((:commit . "4da8a14abcd0f4fa3235042ade2e12b5068c0601") (:keywords "abbrev") (:authors ("Ajay Gopinathan" . "ajay@gopinathan.net")) (:maintainer "Ajay Gopinathan" . "ajay@gopinathan.net"))]) (company-web . [(20180402 1155) ((company (0 8 0)) (dash (2 8 0)) (cl-lib (0 5 0)) (web-completion-data (0 1 0))) "Company version of ac-html, complete for web,html,emmet,jade,slim modes" tar ((:commit . "f0cc9187c9c34f72ad71f5649a69c74f996bae9a") (:keywords "html" "company") (:authors ("Olexandr Sydorchuk" . "olexandr.syd@gmail.com")) (:maintainer "Olexandr Sydorchuk" . "olexandr.syd@gmail.com") (:url . "https://github.com/osv/company-web"))]) (company-try-hard . [(20150902 2206) ((emacs (24 3)) (company (0 8 0)) (dash (2 0))) "get all completions from company backends" single ((:commit . "70b94cfc40c576af404e743133979048e1bd2610") (:keywords "matching") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (company-terraform . [(20180703 1233) ((emacs (24 4)) (company (0 8 12)) (terraform-mode (0 6))) "A company backend for terraform" tar ((:commit . "9c1146bfe23d4c461f4a59577faf4e46fcca7fe9") (:keywords "abbrev" "convenience" "terraform" "company") (:authors ("Rafał Cieślak" . "rafalcieslak256@gmail.com")) (:maintainer "Rafał Cieślak" . "rafalcieslak256@gmail.com") (:url . "https://github.com/rafalcieslak/emacs-company-terraform"))]) (company-tern . [(20161004 1847) ((company (0 8 0)) (tern (0 0 1)) (dash (2 8 0)) (dash-functional (2 8 0)) (s (1 9 0)) (cl-lib (0 5 0))) "Tern backend for company-mode" single ((:commit . "10ac058b065ae73c1f30e9fb7d969dd1a79387be") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/company-tern"))]) (company-tabnine . [(20181114 417) ((emacs (25)) (company (0 9 3)) (cl-lib (0 5)) (unicode-escape (1 1)) (s (1 12 0))) "A company-mode backend for TabNine" single ((:commit . "85277a840357142c44843172b2a2898ad74587a7") (:keywords "convenience") (:authors ("Tommy Xiang" . "tommyx058@gmail.com")) (:maintainer "Tommy Xiang" . "tommyx058@gmail.com") (:url . "https://github.com/TommyX12/company-tabnine/"))]) (company-suggest . [(20180527 1631) ((company (0 9 0)) (emacs (25 1))) "Company-mode back-end for search engine suggests" single ((:commit . "e1fa663b48639c76d91d1f5ac3b23215aa3dabc3") (:keywords "completion" "convenience") (:authors ("Jürgen Hötzel" . "juergen@archlinux.org")) (:maintainer "Jürgen Hötzel" . "juergen@archlinux.org") (:url . "https://github.com/juergenhoetzel/company-suggest"))]) (company-statistics . [(20170210 1933) ((emacs (24 3)) (company (0 8 5))) "Sort candidates using completion history" single ((:commit . "e62157d43b2c874d2edbd547c3bdfb05d0a7ae5c") (:keywords "abbrev" "convenience" "matching") (:authors ("Ingo Lohmar" . "i.lohmar@gmail.com")) (:maintainer "Ingo Lohmar" . "i.lohmar@gmail.com") (:url . "https://github.com/company-mode/company-statistics"))]) (company-sourcekit . [(20170126 1153) ((emacs (24 3)) (company (0 8 12)) (dash (2 12 1)) (dash-functional (1 2 0)) (sourcekit (0 2 0))) "company-mode completion backend for SourceKit" single ((:commit . "abf9bc5a0102eb666d3aa6d6bf22f6efcc852781") (:keywords "abbrev") (:authors ("Nathan Kot" . "nk@nathankot.com")) (:maintainer "Nathan Kot" . "nk@nathankot.com") (:url . "https://github.com/nathankot/company-sourcekit"))]) (company-solidity . [(20181117 1518) ((company (0 9 0)) (cl-lib (0 5 0)) (solidity-mode (0 1 9))) "Company-mode back-end for solidity-mode" single ((:commit . "d6c48a1cb64d3c8a825dc0d06c839f2cacd4d289") (:keywords "solidity" "completion" "company") (:authors ("Samuel Smolkin" . "sam@future-precedent.org")) (:maintainer "Samuel Smolkin" . "sam@future-precedent.org") (:url . "https://github.com/ethereum/emacs-solidity"))]) (company-shell . [(20170518 541) ((emacs (24 4)) (company (0 8 12)) (dash (2 12 0)) (cl-lib (0 5))) "Company mode backend for shell functions" single ((:commit . "6ae625f80d90e0779c79de38e8f83a336c1d00fa") (:keywords "company" "shell" "auto-completion") (:authors ("Alexander Miller" . "alexanderm@web.de")) (:maintainer "Alexander Miller" . "alexanderm@web.de") (:url . "https://github.com/Alexander-Miller/company-shell"))]) (company-rtags . [(20180730 338) ((emacs (24 3)) (company (0 8 1)) (rtags (2 10))) "RTags back-end for company" single ((:commit . "194cd70d38c3e2e01b9de04d006f94573510aebb") (:authors ("Jan Erik Hanssen" . "jhanssen@gmail.com") ("Anders Bakken" . "agbakken@gmail.com")) (:maintainer "Jan Erik Hanssen" . "jhanssen@gmail.com") (:url . "http://rtags.net"))]) (company-restclient . [(20151202 1201) ((cl-lib (0 5)) (company (0 8 0)) (emacs (24)) (know-your-http-well (0 2 0)) (restclient (0 0 0))) "company-mode completion back-end for restclient-mode" single ((:commit . "19d819b14b7cd186a840369060963a08377d052e") (:authors ("Iku Iwasa" . "iku.iwasa@gmail.com")) (:maintainer "Iku Iwasa" . "iku.iwasa@gmail.com") (:url . "https://github.com/iquiw/company-restclient"))]) (company-reftex . [(20180713 841) ((emacs (25 1)) (s (1 12)) (company (0 8))) "Company backend based on RefTeX." single ((:commit . "d96ce340851499452c8d4d64bee80a3d7f9e9275") (:keywords "bib" "tex" "company" "latex" "reftex" "references" "labels" "citations") (:authors ("Eivind Fonn" . "evfonn@gmail.com")) (:maintainer "Eivind Fonn" . "evfonn@gmail.com") (:url . "https://github.com/TheBB/company-reftex"))]) (company-racer . [(20171205 310) ((emacs (24 4)) (cl-lib (0 5)) (company (0 8 0)) (deferred (0 3 1))) "Company integration for racer" single ((:commit . "a00381c9d416f375f783fcb6ae8d40669ce1f567") (:keywords "convenience") (:authors ("Mario Rodas" . "marsam@users.noreply.github.com")) (:maintainer "Mario Rodas" . "marsam@users.noreply.github.com") (:url . "https://github.com/emacs-pe/company-racer"))]) (company-quickhelp . [(20180525 1003) ((emacs (24 3)) (company (0 8 9)) (pos-tip (0 4 6))) "Popup documentation for completion candidates" single ((:commit . "479676cade80a9f03802ca3d956591820ed5c537") (:keywords "company" "popup" "documentation" "quickhelp") (:authors ("Lars Andersen" . "expez@expez.com")) (:maintainer "Lars Andersen" . "expez@expez.com") (:url . "https://www.github.com/expez/company-quickhelp"))]) (company-qml . [(20170428 1708) ((qml-mode (0 1)) (company (0 8 12))) "Company backend for QML files" tar ((:commit . "4af4f32a7ad86d86bb9293fb0b675aec513b5736") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))]) (company-prescient . [(20181022 2256) ((emacs (25 1)) (prescient (2 2 1)) (company (0 9 6))) "prescient.el + Company" single ((:commit . "1623a0d4e5b9a752db45923fd91da48b49c85068") (:keywords "extensions") (:authors ("Radon Rosborough" . "radon.neon@gmail.com")) (:maintainer "Radon Rosborough" . "radon.neon@gmail.com") (:url . "https://github.com/raxod502/prescient.el"))]) (company-posframe . [(20180610 1710) ((emacs (26 0)) (company (0 9 0)) (posframe (0 1 0))) "Use a posframe as company candidate menu" single ((:commit . "47861f501891d3c67958353c25f4dce13b386c3d") (:keywords "abbrev" "convenience" "matching") (:authors ("Clément Pit-Claudel, Feng Shu")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/company-posframe"))]) (company-pollen . [(20160812 1510) ((company (0 9 0)) (pollen-mode (1 0))) "company-mode completion backend for pollen" single ((:commit . "3b57f40f78eb4458e7be41dc4051f9cf0ff6982e") (:keywords "languages" "pollen" "pollenpub" "company") (:authors ("Junsong Li <ljs.darkfish AT GMAIL>")) (:maintainer "Junsong Li") (:url . "https://github.com/lijunsong/pollen-mode"))]) (company-plsense . [(20180118 58) ((company (0 9 3)) (cl-lib (0 5 0)) (dash (2 12 0)) (s (1 12)) (emacs (24))) "Company backend for Perl" single ((:commit . "b48e3181e08ec597269621d621aa06636f02d883") (:authors ("Troy Hinckley" . "troy.hinckley@gmail.com")) (:maintainer "Troy Hinckley" . "troy.hinckley@gmail.com") (:url . "https://github.com/CeleritasCelery/company-plsense"))]) (company-phpactor . [(20181110 902) ((emacs (24 3)) (cl-lib (0 5)) (company (0 9 6)) (phpactor (0 1 0))) "company-mode backend for Phpactor" single ((:commit . "eda8b34a729b3acb641aafa30552c501dec27d37") (:keywords "tools" "php") (:authors ("Martin Tang" . "martin.tang365@gmail.com") ("Mikael Kermorgant" . "mikael@kgtech.fi")) (:maintainer "Martin Tang" . "martin.tang365@gmail.com") (:url . "https://github.com/emacs-php/phpactor.el"))]) (company-php . [(20181110 303) ((cl-lib (0 5)) (ac-php-core (1)) (company (0 9))) "company completion source for php" single ((:commit . "1883d3178ded71534a7e93189bc789d65e4a000e") (:keywords "completion" "convenience" "intellisense") (:authors (nil . "xcwenn@qq.com [https://github.com/xcwen]")) (:maintainer nil . "xcwenn@qq.com [https://github.com/xcwen]") (:url . "https://github.com/xcwen/ac-php"))]) (company-nixos-options . [(20160215 857) ((company (0 8 0)) (nixos-options (0 0 1)) (cl-lib (0 5 0))) "Company Backend for nixos-options" single ((:commit . "45c8d90748304c90e1503c9fa8db0443f3d4bd89") (:keywords "unix") (:authors ("Diego Berrocal" . "cestdiego@gmail.com") ("Travis B. Hartwell" . "nafai@travishartwell.net")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "http://www.github.com/travisbhartwell/nix-emacs/"))]) (company-ngram . [(20170129 1913) ((cl-lib (0 5)) (company (0 8 0))) "N-gram based completion" tar ((:commit . "09a68b802e64799e95f205b438d469bbd78cd2e6") (:authors ("kshramt")) (:maintainer "kshramt") (:url . "https://github.com/kshramt/company-ngram"))]) (company-nginx . [(20180604 2) ((emacs (24))) "company-mode keywords support for nginx-mode" single ((:commit . "3074a5d322562f36867ef67bffeb25f1c0d8aca9") (:keywords "company" "nginx") (:url . "https://github.com/stardiviner/company-nginx"))]) (company-nand2tetris . [(20171201 1813) ((nand2tetris (1 1 0)) (company (0 5)) (cl-lib (0 5 0))) "Company backend for nand2tetris major mode" single ((:commit . "33acee34d24b1c6a87db833b7d23449cf858f64f") (:keywords "nand2tetris" "hdl" "company") (:authors ("Diego Berrocal" . "cestdiego@gmail.com")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "http://www.github.com/CestDiego/nand2tetris.el/"))]) (company-math . [(20171016 1514) ((company (0 8 0)) (math-symbol-lists (1 2))) "Completion backends for unicode math symbols and latex tags" single ((:commit . "3481f03ebb6a613ff85b71ca8edd2d5842c49012") (:keywords "unicode" "symbols" "completion") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/vspinu/company-math"))]) (company-lua . [(20171108 2306) ((company (0 8 12)) (s (1 10 0)) (f (0 17 0)) (lua-mode (20151025))) "Company backend for Lua" tar ((:commit . "29f6819de4d691e5fd0b62893a9f4fbc1c6fcb52") (:authors ("Peter Vasil" . "mail@petervasil.net")) (:maintainer "Peter Vasil" . "mail@petervasil.net"))]) (company-lsp . [(20181105 1644) ((emacs (25 1)) (lsp-mode (3 4)) (company (0 9 0)) (s (1 2 0)) (dash (2 11 0))) "Company completion backend for lsp-mode." single ((:commit . "d333e5594f8d5e5cb96309f8a913747ff83ab089") (:url . "https://github.com/tigersoldier/company-lsp"))]) (company-lean . [(20171102 1454) ((emacs (24 3)) (dash (2 12 0)) (dash-functional (1 2 0)) (s (1 10 0)) (f (0 19 0)) (company (0 9 3)) (lean-mode (3 3 0))) "A company backend for lean-mode" single ((:commit . "9d6b8471e2044310b4cd7cd3213b1fc8f78ec499") (:keywords "languages") (:authors ("Leonardo de Moura" . "leonardo@microsoft.com") ("Soonho Kong " . "soonhok@cs.cmu.edu") ("Gabriel Ebner " . "gebner@gebner.org") ("Sebastian Ullrich" . "sebasti@nullri.ch")) (:maintainer "Sebastian Ullrich" . "sebasti@nullri.ch") (:url . "https://github.com/leanprover/lean-mode"))]) (company-jedi . [(20151217 321) ((emacs (24)) (cl-lib (0 5)) (company (0 8 11)) (jedi-core (0 2 7))) "company-mode completion back-end for Python JEDI" single ((:commit . "2f54e791e10f5dc0ff164bfe97f1878359fab6f6") (:authors ("Boy" . "boyw165@gmail.com")) (:maintainer "Boy" . "boyw165@gmail.com"))]) (company-irony-c-headers . [(20151018 909) ((cl-lib (0 5)) (company (0 9 0)) (irony (0 2 0))) "Company mode backend for C/C++ header files with Irony" single ((:commit . "72c386aeb079fb261d9ec02e39211272f76bbd97") (:keywords "c" "company") (:authors ("Yutian Li" . "hotpxless@gmail.com")) (:maintainer "Yutian Li" . "hotpxless@gmail.com") (:url . "https://github.com/hotpxl/company-irony-c-headers"))]) (company-irony . [(20170905 2046) ((emacs (24 1)) (company (0 8 0)) (irony (1 1 0)) (cl-lib (0 5))) "company-mode completion back-end for irony-mode" single ((:commit . "52aca45bcd0f2cb0648fcafa2bbb4f8ad4b2fee7") (:keywords "convenience") (:authors ("Guillaume Papin" . "guillaume.papin@epitech.eu")) (:maintainer "Guillaume Papin" . "guillaume.papin@epitech.eu") (:url . "https://github.com/Sarcasm/company-irony/"))]) (company-inf-ruby . [(20140805 2054) ((company (0 6 10)) (inf-ruby (2 2 7)) (emacs (24 1))) "company-mode completion back-end for inf-ruby" single ((:commit . "fe3e4863bc971fbb81edad447efad5795ead1b17") (:authors ("Dmitry Gutov" . "dgutov@yandex.ru")) (:maintainer "Dmitry Gutov" . "dgutov@yandex.ru") (:url . "https://github.com/company-mode/company-inf-ruby"))]) (company-go . [(20180427 1856) ((company (0 8 0)) (go-mode (1 0 0))) "company-mode backend for Go (using gocode)" single ((:commit . "fa5c674aad2c2d9b67b2339701b192d95da2849d") (:keywords "languages") (:authors ("nsf" . "no.smile.face@gmail.com")) (:maintainer "nsf" . "no.smile.face@gmail.com"))]) (company-glsl . [(20171015 1749) ((company (0 9 4)) (glsl-mode (2 0)) (emacs (24 4))) "Support glsl in company-mode" single ((:commit . "a262c12c3bcd0807718c4edcaf2b054e30ef0e26") (:authors ("Guido Schmidt" . "git@guidoschmidt.cc")) (:maintainer "Guido Schmidt" . "git@guidoschmidt.cc") (:url . "https://github.com/guidoschmidt/company-glsl"))]) (company-ghci . [(20160311 200) ((company (0 8 11)) (haskell-mode (13))) "company backend which uses the current ghci process." single ((:commit . "c2d74a41166e76de2e78c87f582ba3a1179b2aa6") (:authors ("Hector Orellana" . "hofm92@gmail.com")) (:maintainer "Hector Orellana" . "hofm92@gmail.com"))]) (company-ghc . [(20170918 833) ((cl-lib (0 5)) (company (0 8 0)) (ghc (5 4 0 0)) (emacs (24))) "company-mode ghc-mod backend" single ((:commit . "8b264b5c3c0e42c0d0c4e9315559896c9b0edfdc") (:keywords "haskell" "completion") (:authors ("Iku Iwasa" . "iku.iwasa@gmail.com")) (:maintainer "Iku Iwasa" . "iku.iwasa@gmail.com") (:url . "https://github.com/iquiw/company-ghc"))]) (company-flx . [(20180103 518) ((emacs (24)) (company (0 8 12)) (flx (0 5))) "flx based fuzzy matching for company" single ((:commit . "16ca0d2f84e8e768bf2db8c5cfe421230a00bded") (:keywords "convenience" "company" "fuzzy" "flx") (:authors ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainer "PythonNut" . "pythonnut@pythonnut.com") (:url . "https://github.com/PythonNut/company-flx"))]) (company-flow . [(20180225 2159) ((company (0 8 0)) (dash (2 13 0))) "Flow backend for company-mode" single ((:commit . "76ef585c70d2a3206c2eadf24ba61e59124c3a16") (:authors ("Aaron Jensen" . "aaronjensen@gmail.com")) (:maintainer "Aaron Jensen" . "aaronjensen@gmail.com") (:url . "https://github.com/aaronjensen/company-flow"))]) (company-erlang . [(20170123 538) ((emacs (24 4)) (ivy-erlang-complete (0 1)) (company (0 9 2))) "company backend based on ivy-erlang-complete" single ((:commit . "bc0524a16f17b66c7397690e4ca0e004f09ea6c5") (:keywords "tools") (:authors ("Sergey Kostyaev" . "feo.me@ya.ru")) (:maintainer "Sergey Kostyaev" . "feo.me@ya.ru"))]) (company-emoji . [(20180925 2008) ((cl-lib (0 5)) (company (0 8 0))) "company-mode backend for emoji" tar ((:commit . "f0d91d5be0077b20b418a3ba37d36f431fae322f") (:keywords "emoji" "company") (:authors ("Alex Dunn" . "dunn.alex@gmail.com")) (:maintainer "Alex Dunn" . "dunn.alex@gmail.com") (:url . "https://github.com/dunn/company-emoji.git"))]) (company-emacs-eclim . [(20180911 1121) ((eclim (0 3)) (company (0 7)) (cl-lib (0 5))) "Eclim company backend" single ((:commit . "23f5b294f833ce58516d7b9ae08a7792d70022a1"))]) (company-edbi . [(20160221 1923) ((company (0 8 5)) (edbi (0 1 3)) (cl-lib (0 5 0)) (s (1 9 0))) "Edbi backend for company-mode" single ((:commit . "ffaeff75d0457285d16d11db772881542a6026ad") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/company-edbi"))]) (company-distel . [(20180827 1344) ((distel-completion-lib (1 0 0))) "Erlang/distel completion backend for company-mode" single ((:commit . "acc4c0a5521904203d797fe96b08e5fae4233c7e") (:keywords "erlang" "distel" "company") (:authors ("Sebastian Weddmark Olsson")) (:maintainer "Sebastian Weddmark Olsson") (:url . "github.com/sebastiw/distel-completion"))]) (company-dict . [(20180216 956) ((emacs (24 4)) (company (0 8 12)) (parent-mode (2 3))) "A backend that emulates ac-source-dictionary" single ((:commit . "7ab6331d8095e9b93c726da754102fd708c0002e") (:keywords "company" "dictionary" "ac-source-dictionary") (:authors ("Henrik Lissner <http://github/hlissner>")) (:maintainer "Henrik Lissner" . "henrik@lissner.net") (:url . "https://github.com/hlissner/emacs-company-dict"))]) (company-dcd . [(20170516 910) ((company (0 9)) (flycheck-dmd-dub (0 7)) (yasnippet (0 8)) (popwin (0 7)) (cl-lib (0 5)) (ivy (20160804 326))) "Company backend for Dlang using DCD." single ((:commit . "4832188a9e42287539a69c372fe1643166a6a7aa") (:keywords "languages") (:authors ("tsukimizake <shomasd_at_gmail.com>")) (:maintainer "tsukimizake <shomasd_at_gmail.com>") (:url . "http://github.com/tsukimizake/company-dcd"))]) (company-coq . [(20181107 2136) ((company-math (1 1)) (company (0 8 12)) (yasnippet (0 11 0)) (dash (2 12 1)) (cl-lib (0 5))) "A collection of extensions for Proof General's Coq mode" tar ((:commit . "24f33527c5917cdd4c3c139f966c49c33b21d4d0"))]) (company-childframe . [(20180705 546) ((emacs (26 0)) (company-posframe (0 1 0))) "Please use company-posframe instead." single ((:commit . "562eaa1e3a0c39dd36f10cda37a3724384fde1df") (:keywords "abbrev" "convenience" "matching") (:authors ("Clément Pit-Claudel, Feng Shu")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/company-mode/company-mode"))]) (company-cabal . [(20170917 1317) ((cl-lib (0 5)) (company (0 8 0)) (emacs (24))) "company-mode cabal backend" tar ((:commit . "62112a7259e24bd6c08885629a185afe512b7d3d") (:authors ("Iku Iwasa" . "iku.iwasa@gmail.com")) (:maintainer "Iku Iwasa" . "iku.iwasa@gmail.com") (:url . "https://github.com/iquiw/company-cabal"))]) (company-c-headers . [(20180814 1730) ((emacs (24 1)) (company (0 8))) "Company mode backend for C/C++ header files" single ((:commit . "41331192b3961c8e3a51540678e1d11eaa346f03") (:keywords "development" "company") (:authors ("Alastair Rankine" . "alastair@girtby.net")) (:maintainer "Alastair Rankine" . "alastair@girtby.net"))]) (company-box . [(20180607 1545) ((emacs (26 0 91)) (dash (2 13)) (dash-functional (1 2 0)) (company (0 9 6))) "Company front-end with icons" tar ((:commit . "6e047e6fd7226a1b8292a74985db82bbccc679c7") (:keywords "company" "completion" "front-end" "convenience") (:authors ("Sebastien Chapuis" . "sebastien@chapu.is")) (:maintainer "Sebastien Chapuis" . "sebastien@chapu.is") (:url . "https://github.com/sebastiencs/company-box"))]) (company-bibtex . [(20171105 644) ((company (0 9 0)) (cl-lib (0 5)) (parsebib (1 0))) "Company completion for bibtex keys" single ((:commit . "da67faf3a6faba8e7f1b222dedfc5521b02c7655") (:keywords "company-mode" "bibtex") (:authors ("GB Gardner" . "gbgar@users.noreply.github.com")) (:maintainer "GB Gardner" . "gbgar@users.noreply.github.com") (:url . "https://github.com/gbgar/company-bibtex"))]) (company-axiom . [(20171024 2010) ((emacs (24)) (company (0 9)) (axiom-environment (20171021))) "A company-mode backend for the axiom-environment system" single ((:commit . "5d6b2cd12f639c11b032185c4c5fe4f5bba15b08") (:keywords "axiom" "openaxiom" "fricas" "axiom-environment") (:authors ("Paul Onions" . "paul.onions@acm.org")) (:maintainer "Paul Onions" . "paul.onions@acm.org"))]) (company-auctex . [(20180725 1912) ((yasnippet (0 8 0)) (company (0 8 0)) (auctex (11 87))) "Company-mode auto-completion for AUCTeX" single ((:commit . "48c42c58ce2f0e693301b0cb2d085055410c1b25") (:authors ("Christopher Monsanto <chris@monsan.to>, Alexey Romanov" . "alexey.v.romanov@gmail.com")) (:maintainer "Christopher Monsanto <chris@monsan.to>, Alexey Romanov" . "alexey.v.romanov@gmail.com") (:url . "https://github.com/alexeyr/company-auctex/"))]) (company-arduino . [(20160306 1739) ((emacs (24 1)) (company (0 8 0)) (irony (0 1 0)) (cl-lib (0 5)) (company-irony (0 1 0)) (company-c-headers (20140930)) (arduino-mode (1 0))) "company-mode for Arduino" single ((:commit . "d7e369702b8eee63e6dfdeba645ce28b6dc66fb1") (:keywords "convenience" "development" "company") (:authors ("Yuta Yamada" . "sleepboy.zzz@gmail.com")) (:maintainer "Yuta Yamada" . "sleepboy.zzz@gmail.com") (:url . "https://github.com/yuutayamada/company-arduino"))]) (company-ansible . [(20180701 1813) ((emacs (24 4)) (company (0 8 12))) "A company back-end for ansible" tar ((:commit . "c6dc714e3a15f89671ae5e8fe668858b20ef63e8") (:keywords "ansible") (:authors ("Krzysztof Magosa" . "krzysztof@magosa.pl")) (:maintainer "Krzysztof Magosa" . "krzysztof@magosa.pl") (:url . "https://github.com/krzysztof-magosa/company-ansible"))]) (company-anaconda . [(20181025 1305) ((company (0 8 0)) (anaconda-mode (0 1 1)) (cl-lib (0 5 0)) (dash (2 6 0)) (s (1 9))) "Anaconda backend for company-mode" single ((:commit . "0ab70de1740e67cee451abcf3685c7525ff9e95a") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/anaconda-mode"))]) (company . [(20181105 2312) ((emacs (24 3))) "Modular text completion framework" tar ((:commit . "c95a6b41d621de4253b77e512aa61fc0e75acddc") (:keywords "abbrev" "convenience" "matching") (:authors ("Nikolaj Schumacher")) (:maintainer "Dmitry Gutov" . "dgutov@yandex.ru") (:url . "http://company-mode.github.io/"))]) (common-lisp-snippets . [(20180226 1523) ((yasnippet (0 8 0))) "Yasnippets for Common Lisp" tar ((:commit . "1ddf808311ba4d9e8444a1cb50bd5ee75e4111f6") (:keywords "snippets") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/common-lisp-snippets"))]) (commify . [(20161106 2334) ((s (1 9 0))) "Toggle grouping commas in numbers" single ((:commit . "78732c2fa6c1a10288b7436d7c561ec9ebdd41be") (:keywords "convenience" "editing" "numbers" "grouping" "commas") (:authors ("Daniel E. Doherty" . "ded-commify@ddoherty.net")) (:maintainer "Daniel E. Doherty" . "ded-commify@ddoherty.net") (:url . "https://github.com/ddoherty03/commify"))]) (commenter . [(20160219 1627) ((emacs (24 4)) (let-alist (1 0 4))) "multiline-comment support package" single ((:commit . "6d1885419434ba779270c6fda0e30d390bb074bd") (:keywords "comment") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/commenter"))]) (commentary-theme . [(20180816 2115) ((emacs (24))) "A minimal theme with contrasting comments" single ((:commit . "1e2a64719b9d52992c6cdb91911ab313bcd69a77") (:url . "https://github.com/pzel/commentary-theme"))]) (comment-tags . [(20170910 1735) ((emacs (24 5))) "Highlight & navigate comment tags like 'TODO'." single ((:commit . "7d914097f0a03484af71e621db533737fc692f58") (:keywords "convenience" "comments" "tags") (:authors ("Vincent Dumas" . "vincekd@gmail.com")) (:maintainer "Vincent Dumas" . "vincekd@gmail.com") (:url . "https://github.com/vincekd/comment-tags"))]) (comment-dwim-2 . [(20170809 2054) nil "An all-in-one comment command to rule them all" single ((:commit . "8da8aba4cab4a0a1eef3aea2de219227526876e4") (:keywords "convenience") (:authors ("Rémy Ferré" . "dev@remyferre.net")) (:maintainer "Rémy Ferré" . "dev@remyferre.net") (:url . "https://github.com/remyferre/comment-dwim-2"))]) (commander . [(20140120 1852) ((s (1 6 0)) (dash (2 0 0)) (cl-lib (0 3)) (f (0 6 1))) "Emacs command line parser" single ((:commit . "c93985dc318fe89e5a29abc21d19fb41e2fd14d2") (:keywords "cli" "argv") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/commander.el"))]) (command-queue . [(20160328 1725) ((emacs (24 3))) "shell command queue" single ((:commit . "f327c6f852592229a755ec6de0c62c6aeafd6659") (:authors ("Yuki INOUE <inouetakahiroki at gmail.com>")) (:maintainer "Yuki INOUE <inouetakahiroki at gmail.com>") (:url . "https://github.com/Yuki-Inoue/command-queue"))]) (command-log-mode . [(20160413 447) nil "log keyboard commands to buffer" single ((:commit . "af600e6b4129c8115f464af576505ea8e789db27") (:keywords "help") (:authors ("Michael Weber" . "michaelw@foldr.org")) (:maintainer "Michael Weber" . "michaelw@foldr.org") (:url . "https://github.com/lewang/command-log-mode"))]) (comint-intercept . [(20170317 1228) ((emacs (24 3))) "Intercept input in comint-mode" single ((:commit . "a329abf01fa8e0c6b02b46b29bcb421a21120dc5") (:keywords "processes" "terminals") (:authors ("\"Huang, Ying\"" . "huang.ying.caritas@gmail.com")) (:maintainer "\"Huang, Ying\"" . "huang.ying.caritas@gmail.com") (:url . "https://github.com/hying-caritas/comint-intercept"))]) (comb . [(20180831 721) ((emacs (25 1))) "Interactive grep tool for manual static analysis" tar ((:commit . "69d59284e19428794b5c0aaa9be0e7d2770cc846") (:keywords "matching") (:authors ("Andrea Cardaci" . "cyrus.and@gmail.com")) (:maintainer "Andrea Cardaci" . "cyrus.and@gmail.com") (:url . "https://github.com/cyrus-and/comb"))]) (com-css-sort . [(20180927 1543) ((emacs (24 4)) (s (1 12 0))) "Common way of sorting the CSS attributes." single ((:commit . "d4121d2dc88b2f33c1b60a326a07e6f78e1f7a91") (:authors ("Shen, Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Shen, Jen-Chieh" . "jcs090218@gmail.com") (:url . "https://github.com/jcs090218/com-css-sort"))]) (column-enforce-mode . [(20171030 1900) nil "Highlight text that extends beyond a column" single ((:commit . "2341a2b6a33d4b8b74c35062ec9cfe1bffd61944") (:authors ("Jordon Biondo")) (:maintainer "Jordon Biondo") (:url . "www.github.com/jordonbiondo/column-enforce-mode"))]) (colormaps . [(20171008 2224) ((emacs (25))) "Hex colormaps" single ((:commit . "19fbb64a6288d505b9cf45c9b5a3eed0bfb135e2") (:keywords "tools") (:authors ("Abhinav Tushar" . "lepisma@fastmail.com")) (:maintainer "Abhinav Tushar" . "lepisma@fastmail.com") (:url . "https://github.com/lepisma/colormaps.el"))]) (color-theme-x . [(20180227 46) ((cl-lib (0 5))) "convert color themes to X11 resource settings" single ((:commit . "6c2264aa6c5d9a72caeae67ebaa4472090e70350") (:keywords "convenience" "faces" "frames") (:authors ("Matthew Kennedy" . "mkennedy@killr.ath.cx")) (:maintainer "Andrew Johnson" . "andrew@andrewjamesjohnson.com") (:url . "https://github.com/ajsquared/color-theme-x"))]) (color-theme-solarized . [(20171024 1525) ((color-theme (6 5 5))) "Solarized themes for Emacs" tar ((:commit . "f3ca8902ea056fb8e46cb09f09c96294e31cd4ee"))]) (color-theme-sanityinc-tomorrow . [(20181024 1728) nil "A version of Chris Kempson's \"tomorrow\" themes" tar ((:commit . "d3c694f4c423bc8cfc74bd80d624b974ebc94e02") (:keywords "faces" "themes") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "http://github.com/purcell/color-theme-sanityinc-tomorrow"))]) (color-theme-sanityinc-solarized . [(20181021 2055) nil "A version of Ethan Schoonover's Solarized themes" tar ((:commit . "fa2afc66beebdf7936b9f1391878798d6426730c") (:keywords "themes") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "http://github.com/purcell/color-theme-sanityinc-solarized"))]) (color-theme-modern . [(20161219 1144) ((emacs (24))) "Reimplement colortheme with Emacs 24 theme framework." tar ((:commit . "42a79266f1d7b473e9328e67a455e505e6c3eff5") (:url . "https://github.com/emacs-jp/replace-colorthemes/"))]) (color-theme-buffer-local . [(20170126 601) ((color-theme (0))) "Install color-themes by buffer." single ((:commit . "e606dec66f16a06140b9aad625a4fd52bca4f936") (:keywords "faces") (:authors ("Victor Borja" . "vic.borja@gmail.com")) (:maintainer "Victor Borja" . "vic.borja@gmail.com") (:url . "http://github.com/vic/color-theme-buffer-local"))]) (color-theme-approximate . [(20140228 436) nil "Makes Emacs theme works on terminal transparently" single ((:commit . "f54301ca39bc5d2ffb000f233f8114184a3e7d71") (:authors ("Tung Dao" . "me@tungdao.com")) (:maintainer "Tung Dao" . "me@tungdao.com"))]) (color-theme . [(20080305 834) nil "install color themes" tar ((:commit . "eeb07560b30aaf7934dfd21f5c2518a479905cd9") (:keywords "faces") (:authors ("Jonadab the Unsightly One" . "jonadab@bright.net")) (:maintainer "Xavier Maillard" . "zedek@gnu.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme"))]) (color-moccur . [(20141223 35) nil "multi-buffer occur (grep) mode" single ((:commit . "4f1c59ffd1ccc2ab1a171cd6b721e8cb9e002fb7") (:keywords "convenience") (:url . "http://www.bookshelf.jp/elc/color-moccur.el"))]) (color-identifiers-mode . [(20181120 1951) ((dash (2 5 0)) (emacs (24))) "Color identifiers based on their names" single ((:commit . "4ba39f0274e1f85e50c956c507f942d950891a20") (:keywords "faces" "languages") (:authors ("Ankur Dave" . "ankurdave@gmail.com")) (:maintainer "Ankur Dave" . "ankurdave@gmail.com") (:url . "https://github.com/ankurdave/color-identifiers-mode"))]) (colonoscopy-theme . [(20170808 1309) ((emacs (24 0))) "an Emacs 24 theme based on Colonoscopy (tmTheme)" single ((:commit . "64bbb322b13dae91ce9f1e3581f836f94f800ead") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (colemak-evil . [(20171015 2307) ((evil (20170323 1140))) "Colemak-friendly keybindings for Evil." single ((:commit . "192c779281ae1fbf2405dcdb55b3c5b2a1d0b3d1") (:authors ("Patrick Brinich-Langlois" . "pbrinichlanglois@gmail.com")) (:maintainer "Patrick Brinich-Langlois" . "pbrinichlanglois@gmail.com") (:url . "https://github.com/patbl/colemak-evil"))]) (coin-ticker . [(20170611 727) ((request (0 3 0)) (emacs (25))) "Show a cryptocurrency price ticker" single ((:commit . "9efab90fe4e6f29464af14e0d8fd1e20c0147b80") (:keywords "news") (:authors ("Evan Klitzke" . "evan@eklitzke.org")) (:maintainer "Evan Klitzke" . "evan@eklitzke.org") (:url . "https://github.com/eklitzke/coin-ticker-mode"))]) (coffee-mode . [(20170324 940) ((emacs (24 3))) "Major mode for CoffeeScript code" single ((:commit . "86ab8aae8662e8eff54d3013010b9c693b16eac5") (:keywords "coffeescript" "major" "mode") (:authors ("Chris Wanstrath" . "chris@ozmm.org")) (:maintainer "Chris Wanstrath" . "chris@ozmm.org") (:url . "http://github.com/defunkt/coffee-mode"))]) (coffee-fof . [(20131012 1230) ((coffee-mode (0 4 1))) "A coffee-mode configuration for `ff-find-other-file'." single ((:commit . "211529594bc074721c6cbc4edb73a63cc05f89ac") (:keywords "coffee-mode") (:authors ("Yasuyki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyki Oka" . "yasuyk@gmail.com") (:url . "http://github.com/yasuyk/coffee-fof"))]) (codic . [(20150926 1127) ((emacs (24)) (cl-lib (0 5))) "Search Codic (codic.jp) naming dictionaries" tar ((:commit . "52bbb6997ef4ab9fb7fea43bbfff7f04671aa557") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-codic"))]) (codesearch . [(20181006 1431) ((log4e (0 3 1))) "Core support for managing codesearch tools" tar ((:commit . "f6eb96f034a925444412cfa03e45e0ccbbafe3f2") (:keywords "tools" "development" "search") (:authors ("Austin Bingham" . "austin.bingham@gmail.com") ("Youngjoo Lee" . "youngker@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/emacs-codesearch"))]) (codebug . [(20140929 2137) nil "Interact with codebug" single ((:commit . "ac0e4331ba94ccb5203fa492570e1ca6b90c3d52") (:authors ("Shane Dowling")) (:maintainer "Shane Dowling") (:url . "http://www.shanedowling.com/"))]) (code-stats . [(20181110 1952) ((emacs (25)) (request (0 3 0))) "Code::Stats plugin" single ((:commit . "20d60ded0743f01206c3c2e92ab73788def9adcb") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me") (:url . "https://github.com/xuchunyang/code-stats-emacs"))]) (code-library . [(20160426 1218) ((gist (1 3 1))) "use org-mode to collect code snippets" single ((:commit . "32d59c5c845d6dbdda18f9bd1c03a58d55417fc5") (:keywords "lisp" "code") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))]) (code-archive . [(20180706 213) ((emacs (24 3))) "git supported code archive and reference for org-mode" single ((:commit . "bc51428d2761dedc20bca1014cc2760b3af87e0e") (:authors ("Michael Schuldt" . "mbschuldt@gmail.com")) (:maintainer "Michael Schuldt" . "mbschuldt@gmail.com") (:url . "https://github.com/mschuldt/code-archive"))]) (cobra-mode . [(20140116 2116) nil "Major mode for .NET-based Cobra language" single ((:commit . "acd6e53f6286af5176471d01f25257e5ddb6dd01") (:keywords "languages") (:authors ("Taylor \"Nekroze\" Lawson")) (:maintainer "Taylor \"Nekroze\" Lawson") (:url . "http://github.com/Nekroze/cobra-mode"))]) (cobalt . [(20180304 1155) ((emacs (24))) "Easily use the Cobalt.rs static site generator" single ((:commit . "634ace275697e188746ca22a30ff94380ec756be") (:keywords "convenience") (:authors ("Juan Karlo Licudine" . "accidentalrebel@gmail.com")) (:maintainer "Juan Karlo Licudine" . "accidentalrebel@gmail.com") (:url . "https://github.com/cobalt-org/cobalt.el"))]) (cnfonts . [(20180830 2128) ((emacs (24))) "A simple Chinese fonts config tool" tar ((:commit . "6d07b14e5c04033966056dd231047f110ce925c0") (:keywords "convenience" "chinese" "font") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:url . "https://github.com/tumashu/cnfonts"))]) (cmm-mode . [(20150225 746) nil "Major mode for C-- source code" single ((:commit . "c3ad514dff3eb30434f6b20d953276d4c00de1ee"))]) (cmd-to-echo . [(20161203 2133) ((emacs (24 4)) (s (1 11 0)) (shell-split-string (20151224 208))) "Show the output of long-running commands in the echo area" single ((:commit . "e0e874fc0e1ad6d291e39ed76023445297ad438a") (:authors ("Tijs Mallaerts" . "tijs.mallaerts@gmail.com")) (:maintainer "Tijs Mallaerts" . "tijs.mallaerts@gmail.com"))]) (cmake-project . [(20171121 1115) nil "Integrates CMake build process with Emacs" single ((:commit . "d3f408f226eff3f77f7e00dd519f4efc78fd292d") (:keywords "c" "cmake" "languages" "tools") (:authors ("Alexander Lamaison" . "alexander.lamaison@gmail")) (:maintainer "Alexander Lamaison" . "alexander.lamaison@gmail") (:url . "http://github.com/alamaison/emacs-cmake-project"))]) (cmake-mode . [(20180709 1426) nil "major-mode for editing CMake sources" single ((:commit . "ec43aca7037987e189a39ebe2c93c7b4e219a9a7"))]) (cmake-ide . [(20181023 1430) ((emacs (24 4)) (cl-lib (0 5)) (seq (1 11)) (levenshtein (0)) (s (1 11 0))) "Calls CMake to find out include paths and other compiler flags" single ((:commit . "0a90200a74913f07c0ed08d1a1d5ebe314af26a4") (:keywords "languages") (:authors ("Atila Neves" . "atila.neves@gmail.com")) (:maintainer "Atila Neves" . "atila.neves@gmail.com") (:url . "http://github.com/atilaneves/cmake-ide"))]) (cmake-font-lock . [(20170117 2025) ((cmake-mode (0 0))) "Advanced, type aware, highlight support for CMake" single ((:commit . "8be491b4b13338078e524e2fe6213c93e18a101e") (:keywords "faces" "languages") (:authors ("Anders Lindgren")) (:maintainer "Anders Lindgren") (:url . "https://github.com/Lindydancer/cmake-font-lock"))]) (cm-mode . [(20170203 2107) ((cl-lib (0 5))) "Minor mode for CriticMarkup" single ((:commit . "276d49c859822265070ae5dfbb403fd7d8d06436") (:keywords "text" "markdown") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))]) (clues-theme . [(20161213 1127) ((emacs (24 0))) "an Emacs 24 theme which may well be fully awesome..." single ((:commit . "abd61f2b7f3e98de58ca26e6d1230e70c6406cc7") (:authors ("Jason Milkins" . "jasonm23@gmail.com")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com") (:url . "https://github.com/emacsfodder/emacs-clues-theme"))]) (cloud-to-butt-erc . [(20130627 2308) nil "Replace 'the cloud' with 'my butt'" single ((:commit . "6710c03d1bc91736435cbfe845924940cae34e5c") (:authors ("David Leatherman" . "leathekd@gmail.com")) (:maintainer "David Leatherman" . "leathekd@gmail.com") (:url . "http://www.github.com/leathekd/cloud-to-butt-erc"))]) (closure-lint-mode . [(20101118 2124) nil "minor mode for the Closure Linter" single ((:commit . "bc3d2fd5c35580bf1b8af43b12484c95a343b4b5") (:keywords "tools" "closure" "javascript" "lint" "flymake") (:authors ("Roman Scherer" . "roman@burningswell.com")) (:maintainer "Roman Scherer" . "roman@burningswell.com") (:url . "https://github.com/r0man/closure-lint-mode"))]) (closql . [(20181031 2158) ((emacs (25 1)) (emacsql-sqlite (3 0 0))) "store EIEIO objects using EmacSQL" single ((:commit . "012b94f8695e194455111fd54eff0b94dd0dd0db") (:keywords "extensions") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacscollective/closql"))]) (clomacs . [(20181003 1735) ((emacs (24 3)) (cider (0 18 0)) (s (1 12 0)) (simple-httpd (1 4 6))) "Simplifies Emacs Lisp interaction with Clojure." single ((:commit . "6c83a0e2ac13e8fcc4b99183dbb3426bfe8bbb9c") (:keywords "clojure" "interaction") (:authors ("Kostafey" . "kostafey@gmail.com")) (:maintainer "Kostafey" . "kostafey@gmail.com") (:url . "https://github.com/clojure-emacs/clomacs"))]) (clojure-snippets . [(20180314 1308) ((yasnippet (0 10 0))) "Yasnippets for clojure" tar ((:commit . "6068dca90467a0f4ebc2cd39338a173d6f5ddc04"))]) (clojure-quick-repls . [(20150814 736) ((cider (0 8 1)) (dash (2 9 0))) "Quickly create Clojure and ClojureScript repls for a project." single ((:commit . "730311dd3ac4e0aceb0204f818b422017873467f") (:keywords "languages" "clojure" "cider" "clojurescript") (:url . "https://github.com/symfrog/clojure-quick-repls"))]) (clojure-mode-extra-font-locking . [(20180114 1711) ((clojure-mode (3 0))) "Extra font-locking for Clojure mode" single ((:commit . "0d2e6a6d744c31b2c0992e5a7a0eb348daa29b7d") (:keywords "languages" "lisp") (:authors ("Bozhidar Batsov" . "bozhidar@batsov.com")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "http://github.com/clojure-emacs/clojure-mode"))]) (clojure-mode . [(20181119 1200) ((emacs (25 1))) "Major mode for Clojure code" single ((:commit . "0d2e6a6d744c31b2c0992e5a7a0eb348daa29b7d") (:keywords "languages" "clojure" "clojurescript" "lisp") (:url . "http://github.com/clojure-emacs/clojure-mode"))]) (clojure-cheatsheet . [(20180201 804) ((helm (1 7 7)) (cider (0 9 0))) "The Clojure Cheatsheet for Emacs" single ((:commit . "85c382317a56bbdfac03ae95999c28fc0cde65d7") (:keywords "clojure" "cider" "cheatsheet" "helm") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com") (:url . "https://github.com/clojure-emacs/clojure-cheatsheet"))]) (clojars . [(20180825 1951) ((request-deferred (0 2 0))) "clojars.org search interface" single ((:commit . "696c5b056e45067512a7d6dcce2515f3c639f61b") (:keywords "docs" "help" "tools") (:authors ("Joshua Miller" . "josh@joshmiller.io")) (:maintainer "Joshua Miller" . "josh@joshmiller.io") (:url . "https://github.com/joshuamiller/clojars.el"))]) (clocker . [(20160125 2305) ((projectile (0 11 0)) (dash (2 10))) "Note taker and clock-in enforcer" single ((:commit . "4a4831ed4e42e18976edd16b844cb16cb78f3c17") (:keywords "org") (:authors ("Roman Gonzalez" . "romanandreg@gmail.com")) (:maintainer "Roman Gonzalez" . "romanandreg@gmail.com"))]) (cloc . [(20170728 1824) ((cl-lib (0 5))) "count lines of code over emacs buffers" single ((:commit . "f30f0472e465cc8d433d2473e9d3b8dfe2c94491") (:keywords "cloc" "count" "source" "code" "lines") (:authors ("Danny McClanahan" . "danieldmcclanahan@gmail.com")) (:maintainer "Danny McClanahan" . "danieldmcclanahan@gmail.com") (:url . "https://github.com/cosmicexplorer/cloc-emacs"))]) (clmemo . [(20160326 1623) nil "Change Log MEMO" tar ((:commit . "846a81b984d71edf8278a4d9f9b886e44d5b8365") (:keywords "convenience") (:authors ("Masayuki Ataka" . "masayuki.ataka@gmail.com")) (:maintainer "Masayuki Ataka" . "masayuki.ataka@gmail.com") (:url . "https://github.com/ataka/clmemo"))]) (cljsbuild-mode . [(20160402 1700) nil "A minor mode for the ClojureScript 'lein cljsbuild' command" single ((:commit . "fa2315660cb3ce944b5e16c679dcf5afd6a97f4c") (:keywords "clojure" "clojurescript" "leiningen" "compilation") (:url . "http://github.com/kototama/cljsbuild-mode"))]) (cljr-helm . [(20160913 828) ((clj-refactor (0 13 0)) (helm-core (1 7 7)) (cl-lib (0 5))) "Wraps clojure refactor commands with helm" single ((:commit . "f2fc7b698a56e4a44d5dfbc6a55d77a93c0fa9a4") (:keywords "helm" "clojure" "refactor") (:authors ("Phil Jackson" . "phil@shellarchive.co.uk")) (:maintainer "Phil Jackson" . "phil@shellarchive.co.uk") (:url . "https://github.com/philjackson/cljr-helm"))]) (clj-refactor . [(20180826 2149) ((emacs (25 1)) (seq (2 19)) (yasnippet (0 6 1)) (paredit (24)) (multiple-cursors (1 2 2)) (clojure-mode (5 6 1)) (cider (0 17 0)) (edn (1 1 2)) (inflections (2 3)) (hydra (0 13 2))) "A collection of commands for refactoring Clojure code" tar ((:commit . "ec158357c4f7a375bc47f89de71ea28028a3bfa0") (:keywords "convenience" "clojure" "cider") (:authors ("Magnar Sveen" . "magnars@gmail.com") ("Lars Andersen" . "expez@expez.com") ("Benedek Fazekas" . "benedek.fazekas@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (clips-mode . [(20170909 823) nil "Major mode for editing CLIPS code and REPL" tar ((:commit . "dd38e2822640a38f7d8bfec4f69d8dd24be27074"))]) (clippy . [(20161028 1954) ((pos-tip (1 0))) "Show tooltip with function documentation at point" single ((:commit . "ad4b5dba4cede6d4b21533186303d3d3e9a2510f") (:keywords "docs") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com") (:url . "https://github.com/Fuco1/clippy.el"))]) (clipmon . [(20180129 1054) nil "Clipboard monitor - watch system clipboard, add changes to kill ring/autoinsert" tar ((:commit . "95dc56c7ed84a654ec90f4740eb6df1050de8cf1") (:keywords "convenience") (:authors ("Brian Burns" . "bburns.km@gmail.com")) (:maintainer "Brian Burns" . "bburns.km@gmail.com") (:url . "https://github.com/bburns/clipmon"))]) (cliphist . [(20171113 538) ((emacs (24 3)) (ivy (0 9 0))) "Read data from clipboard managers at Linux and Mac" tar ((:commit . "3cf4723defb41196c25bd174630dddd7caa579f2") (:keywords "clipboard" "manager" "history") (:authors ("Chen Bin <chenin DOT sh AT gmail DOT com>")) (:maintainer "Chen Bin <chenin DOT sh AT gmail DOT com>") (:url . "http://github.com/redguardtoo/cliphist"))]) (click-mode . [(20180611 44) ((emacs (24))) "Major mode for the Click Modular Router Project" single ((:commit . "b94ea8cce89cf0e753b2ab915202d49ffc470fb6") (:keywords "click" "router") (:authors ("Brian Malehorn" . "bmalehorn@gmail.com")) (:maintainer "Brian Malehorn" . "bmalehorn@gmail.com") (:url . "https://github.com/bmalehorn/click-mode"))]) (clevercss . [(20131229 155) nil "A major mode for editing CleverCSS files" single ((:commit . "b8a3c0dd674367c62b1a1ffec84d88fe0c0219bc") (:keywords "languages" "css") (:authors ("Joe Schafer" . "joesmoe10@gmail.com")) (:maintainer "Joe Schafer" . "joesmoe10@gmail.com"))]) (clear-text . [(20160406 2043) nil "Make you use clear text" tar ((:commit . "b50669b6077d6948f72cb3c649281d206e0c2f2b") (:keywords "convenience") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/clear-text.el"))]) (clean-buffers . [(20160529 2259) ((cl-lib (0 5))) "clean useless buffers" single ((:commit . "1be6c54e3095761b6b64bf749faae3dfce94e72a") (:keywords "convenience" "usability" "buffers") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))]) (clean-aindent-mode . [(20171017 2043) nil "Simple indent and unindent, trims indent white-space" single ((:commit . "a97bcae8f43a9ff64e95473e4ef0d8bafe829211") (:keywords "indentation" "whitespace" "backspace") (:authors ("peter marinov" . "efravia@gmail.com")) (:maintainer "peter marinov" . "efravia@gmail.com") (:url . "https://github.com/pmarinov/clean-aindent-mode"))]) (clang-format . [(20180406 1514) ((cl-lib (0 3))) "Format code using clang-format" single ((:commit . "5556c31528af2661bed3011bd63ffc0ed44e18a0") (:keywords "tools" "c"))]) (cl-lib-highlight . [(20140127 2112) ((cl-lib (0 3))) "full cl-lib font-lock highlighting" single ((:commit . "fd1b308e6e989791d1df14438efa6b77d20f7c7e") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/cl-lib-highlight"))]) (cl-format . [(20160413 45) nil "CL format routine." tar ((:commit . "4380cb8009c47cc6d9098b383082b93b1aefa460"))]) (citeproc . [(20180429 757) ((emacs (25)) (dash (2 13 0)) (s (1 12 0)) (f (0 18 0)) (queue (0 2)) (string-inflection (1 0)) (org (9))) "A CSL 1.0.1 Citation Processor" tar ((:commit . "44f147d228d2d652cdd404d31e987e14519c3eef") (:keywords "bib") (:authors ("András Simonyi" . "andras.simonyi@gmail.com")) (:maintainer "András Simonyi" . "andras.simonyi@gmail.com") (:url . "https://github.com/andras-simonyi/citeproc-el"))]) (circe-notifications . [(20180102 2318) ((emacs (24 4)) (circe (2 3)) (alert (1 2))) "Add desktop notifications to Circe." single ((:commit . "291149ac12877bbd062da993479d3533a26862b0") (:authors ("Ruben Maher" . "r@rkm.id.au")) (:maintainer "Ruben Maher" . "r@rkm.id.au") (:url . "https://github.com/eqyiel/circe-notifications"))]) (circe . [(20180525 1231) ((cl-lib (0 5))) "Client for IRC in Emacs" tar ((:commit . "fedfa7eb8516a53fa70b6a1f4fce4b5ab66ea91f") (:url . "https://github.com/jorgenschaefer/circe"))]) (circadian . [(20181024 1256) ((emacs (24 4))) "Theme-switching based on daytime" single ((:commit . "414127acad8e2e0092ca60918e6a7cb89da6e28a") (:keywords "themes") (:authors ("Guido Schmidt")) (:maintainer "Guido Schmidt" . "git@guidoschmidt.cc") (:url . "https://github.com/GuidoSchmidt/circadian"))]) (cinspect . [(20150716 233) ((emacs (24)) (cl-lib (0 5)) (deferred (0 3 1)) (python-environment (0 0 2))) "Use cinspect to look at the CPython source of builtins and other C objects!" single ((:commit . "4e199a90f89b335cccda1518aa0963e0a1d4fbab") (:keywords "python") (:authors ("Ben Yelsey" . "ben.yelsey@gmail.com")) (:maintainer "Ben Yelsey" . "ben.yelsey@gmail.com") (:url . "https://github.com/inlinestyle/cinspect-mode"))]) (cil-mode . [(20160622 1430) nil "Common Intermediate Language mode" single ((:commit . "a78a88ca9a66a82f069329a96e34b67478ae2d9b") (:keywords "languages") (:authors ("Friedrich von Never" . "friedrich@fornever.me")) (:maintainer "Friedrich von Never" . "friedrich@fornever.me") (:url . "https://github.com/ForNeVeR/cil-mode"))]) (ciel . [(20180914 815) ((emacs (24))) "A command that is clone of \"ci\" in vim." single ((:commit . "429773a3c551691a463ecfddd634b8bae2f48503") (:keywords "convinience") (:authors ("Takuma Matsushita" . "cs14095@gmail.com")) (:maintainer "Takuma Matsushita" . "cs14095@gmail.com") (:url . "https://github.com/cs14095/ciel.el"))]) (cider-spy . [(20160313 1440) ((emacs (24 4)) (cider (0 10 0)) (dash (2 5 0)) (cl-lib (0 5)) (noflet (0 0 15))) "Spy on CIDER to get info" single ((:commit . "0224608d240e9900e588b6df049c2a87c24fc936") (:keywords "languages" "clojure" "cider" "nrepl") (:authors ("Jon Pither" . "jon.pither@gmail.com")) (:maintainer "Jon Pither" . "jon.pither@gmail.com") (:url . "http://www.github.com/jonpither/cider-spy"))]) (cider-hydra . [(20181015 727) ((cider (0 18 0)) (hydra (0 13 0))) "Hydras for CIDER." single ((:commit . "5956c3909cd9beae11f64973e4f0d830cea7860d") (:keywords "convenience" "tools") (:authors ("Tianxiang Xiong" . "tianxiang.xiong@gmail.com")) (:maintainer "Tianxiang Xiong" . "tianxiang.xiong@gmail.com") (:url . "https://github.com/clojure-emacs/cider-hydra"))]) (cider-eval-sexp-fu . [(20160907 800) ((emacs (24)) (highlight (0)) (eval-sexp-fu (0 4 0))) "Briefly highlights an evaluated sexp." single ((:commit . "5687e7b33e17f2be40b036dac82da4a5bc6705fb") (:keywords "languages" "clojure" "cider") (:authors ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainer "Sylvain Benner" . "sylvain.benner@gmail.com"))]) (cider-decompile . [(20151122 537) ((cider (0 3 0)) (javap-mode (9))) "decompilation extension for cider" single ((:commit . "5d87035f3c3c14025e8f01c0c53d0ce2c8f56651") (:keywords "languages" "clojure" "cider") (:authors ("Dmitry Bushenko")) (:maintainer "Dmitry Bushenko") (:url . "http://www.github.com/clojure-emacs/cider-decompile"))]) (cider . [(20181118 1736) ((emacs (25)) (clojure-mode (5 9)) (pkg-info (0 4)) (queue (0 2)) (spinner (1 7)) (seq (2 16)) (sesman (0 3 2))) "Clojure Interactive Development Environment that Rocks" tar ((:commit . "1fd1275a5621096bb3320498e032db3764d09f56") (:keywords "languages" "clojure" "cider") (:authors ("Tim King" . "kingtim@gmail.com") ("Phil Hagelberg" . "technomancy@gmail.com") ("Bozhidar Batsov" . "bozhidar@batsov.com") ("Artur Malabarba" . "bruce.connor.am@gmail.com") ("Hugo Duncan" . "hugo@hugoduncan.org") ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Bozhidar Batsov" . "bozhidar@batsov.com") (:url . "http://www.github.com/clojure-emacs/cider"))]) (chyla-theme . [(20180302 1658) nil "chyla.org - green color theme." single ((:commit . "ae5e7ecace2ab474151eb0ac5ef07fba2dc32f8a") (:authors ("Adam Chyła" . "adam@chyla.org")) (:maintainer "Adam Chyła" . "adam@chyla.org") (:url . "https://github.com/chyla/ChylaThemeForEmacs"))]) (chruby . [(20180114 1652) ((cl-lib (0 5))) "Emacs integration for chruby" single ((:commit . "42bc6d521f832eca8e2ba210f30d03ad5529788f") (:keywords "languages") (:authors ("Arne Brasseur" . "arne@arnebrasseur.net")) (:maintainer "Arne Brasseur" . "arne@arnebrasseur.net") (:url . "https://github.com/plexus/chruby.el"))]) (chronos . [(20150602 1529) nil "multiple simultaneous countdown / countup timers" tar ((:commit . "b360d9dae57aa553cf2a14ffa0756a51ad71de09") (:keywords "calendar") (:authors ("David Knight" . "dxknight@opmbx.org")) (:maintainer "David Knight" . "dxknight@opmbx.org") (:url . "http://github.com/dxknight/chronos"))]) (choice-program . [(20180921 313) ((emacs (25)) (cl-lib (1 0))) "parameter based program" tar ((:commit . "08ce5a5dd79690aed12fd9d152d8cb4be988fdb1") (:keywords "exec" "execution" "parameter" "option") (:authors ("Paul Landes")) (:maintainer "Paul Landes") (:url . "https://github.com/plandes/choice-program"))]) (chinese-yasdcv . [(20171015 144) ((cl-lib (0 5)) (pyim (1 6 0))) "Yet another StarDict frontend" tar ((:commit . "5ab830daf1273d5a5cddcb94b56a9737f12d996f") (:keywords "convenience" "chinese" "dictionary") (:authors ("Feng Shu" . "tumashu@gmail.com")) (:maintainer "Feng Shu" . "tumashu@gmail.com") (:url . "https://github.com/tumashu/chinese-yasdcv"))]) (chinese-word-at-point . [(20170811 941) ((cl-lib (0 5))) "Add `chinese-word' thing to `thing-at-point'" single ((:commit . "8223d7439e005555b86995a005b225ae042f0538") (:keywords "convenience" "chinese") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com") (:url . "https://github.com/xuchunyang/chinese-word-at-point.el"))]) (chinese-wbim . [(20150624 350) nil "Enable Wubi Input Method in Emacs." tar ((:commit . "57ff61ff3895d77335709d24b40cefc4d10b0095"))]) (chinese-number . [(20161008 509) nil "Convert numbers between Arabic and Chinese formats" single ((:commit . "7311c2a0c5eea5f016a90d733dfe75144c302fb2") (:authors (nil . "zhcosin<zhcosin@163.com>")) (:maintainer nil . "zhcosin<zhcosin@163.com>") (:url . "https://github.com/zhcosin/chinese-number"))]) (chinese-conv . [(20170807 2128) ((cl-lib (0 5))) "Conversion between Chinese Characters with opencc or cconv" single ((:commit . "b56815bbb163d642e97fa73093b5a7e87cc32574") (:authors ("gucong" . "gucong43216@gmail.com")) (:maintainer "gucong" . "gucong43216@gmail.com") (:url . "https://github.com/gucong/emacs-chinese-conv"))]) (chicken-scheme . [(20141116 1939) nil "Scheme-mode extensions for Chicken Scheme" single ((:commit . "19b0b08b5592063e852cae094b394c7d1f923639") (:authors ("Daniel Leslie" . "dan@ironoxide.ca")) (:maintainer "Daniel Leslie" . "dan@ironoxide.ca") (:url . "http://github.com/dleslie/chicken-scheme"))]) (cherry-blossom-theme . [(20150622 342) ((emacs (24 0))) "a soothing color theme for Emacs24." single ((:commit . "eea7653e00f35973857ee23b27bc2fae5e753e50") (:authors ("Ben Yelsey" . "byelsey1@gmail.com")) (:maintainer "Ben Yelsey" . "byelsey1@gmail.com") (:url . "https://github.com/inlinestyle/emacs-cherry-blossom-theme"))]) (chef-mode . [(20180628 1453) nil "minor mode for editing an opscode chef repository" single ((:commit . "048d691cb63981ae235763d4a6ced4af5c729924") (:keywords "chef" "knife") (:authors ("Maciej Pasternacki" . "maciej@pasternacki.net")) (:maintainer "Maciej Pasternacki" . "maciej@pasternacki.net"))]) (cheerilee . [(20160313 1835) ((xelb (0 1))) "Toolkit library" tar ((:commit . "41bd81b5b0bb657241ceda5be6af5e07254d7376") (:keywords "tools"))]) (chee . [(20171123 2233) ((dash (2 12 1)) (s (1 10 0)) (f (0 18 2))) "Interface to chee using dired and image-dired" tar ((:commit . "669ff9ee429f24c3c2d03b83d9cb9aec5f86bb8b") (:url . "https://github.com/eikek/chee/tree/release/0.3.0/emacs"))]) (checkbox . [(20141117 58) ((emacs (24)) (cl-lib (0 5))) "Quick manipulation of textual checkboxes" single ((:commit . "335afa4404adf72973195a580458927004664d98") (:keywords "convenience") (:authors ("Cameron Desautels" . "camdez@gmail.com")) (:maintainer "Cameron Desautels" . "camdez@gmail.com") (:url . "http://github.com/camdez/checkbox.el"))]) (cheatsheet . [(20170126 2150) ((emacs (24)) (cl-lib (0 5))) "create your own cheatsheet" single ((:commit . "e4f8e0110167ea16a17a74517d1f10cb7ff805b8") (:keywords "convenience" "usability") (:authors ("Shirin Nikita" . "shirin.nikita@gmail.com")) (:maintainer "Shirin Nikita" . "shirin.nikita@gmail.com") (:url . "http://github.com/darksmile/cheatsheet/"))]) (cheat-sh . [(20170802 1118) ((emacs (24))) "Interact with cheat.sh" single ((:commit . "e90445124f3f145a047779e42d070a3c5e150f70") (:keywords "docs" "help") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/cheat-sh.el"))]) (chatwork . [(20170511 442) nil "ChatWork client for Emacs" single ((:commit . "fea231d479f06bf40dbfcf45de143eecc9ed744c") (:keywords "web") (:authors ("Masayuki Ataka" . "masayuki.ataka@gmail.com")) (:maintainer "Masayuki Ataka" . "masayuki.ataka@gmail.com") (:url . "https://github.com/ataka/chatwork"))]) (charmap . [(20160309 946) nil "Unicode table for Emacs" single ((:commit . "bd4b3e466d7a9433cf35167e3a68ec74fe631bb2") (:keywords "unicode" "character" "ucs") (:authors ("Anan Mikami" . "lateau@gmail.com")) (:maintainer "Anan Mikami" . "lateau@gmail.com") (:url . "https://github.com/lateau/charmap"))]) (char-menu . [(20180101 618) ((emacs (24 3)) (avy-menu (0 1))) "Create your own menu for fast insertion of arbitrary symbols" single ((:commit . "82f0422179737bcb9f93481aebaf1071d54fc859") (:keywords "convenience" "editing") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/char-menu"))]) (chapel-mode . [(20160504 808) nil "a CC Mode for Chapel derived from derived-mode-ex.el" single ((:commit . "6e095edd7639f5f0a81e14d6412410b49466697e") (:keywords "chapel" "languages" "oop") (:authors ("Steven T Balensiefer")) (:maintainer "Russel Winder" . "russel@winder.org.uk"))]) (change-inner . [(20150707 1544) ((expand-region (0 7))) "Change contents based on semantic units" single ((:commit . "52c543a4b9808c0d15b565fcdf646c9779de33e8") (:keywords "convenience" "extensions") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (challenger-deep-theme . [(20180816 2258) ((emacs (24))) "challenger-deep Theme" single ((:commit . "443ca72dca966b3d27dbec9eab54a09cbd76eac0") (:authors ("MaxSt")) (:maintainer "MaxSt") (:url . "https://github.com/challenger-deep-theme/emacs"))]) (cg . [(20181022 1316) ((emacs (24 3))) "major mode for editing Constraint Grammar files" single ((:commit . "34a892aa77c9870006bae988c79f694f2e5a68a3") (:keywords "languages") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org") (:url . "https://visl.sdu.dk/constraint_grammar.html"))]) (cftag-mode . [(20170812 540) ((emacs (25))) "Emacs mode for editing tag-based CFML files" single ((:commit . "86e77dcbb583191a3e755bdc29534f33d82bfc56") (:authors ("Andrew Myers" . "am2605@gmail.com")) (:maintainer "Andrew Myers" . "am2605@gmail.com") (:url . "https://github.com/am2605/cftag-mode"))]) (cframe . [(20170917 2209) ((emacs (25)) (buffer-manage (0 6)) (dash (2 13 0))) "customize a frame and fast switch size and positions" single ((:commit . "bb99672502046e87c8f029ce98c637f762a4fc54") (:keywords "frame" "customize") (:authors ("Paul Landes")) (:maintainer "Paul Landes") (:url . "https://github.com/plandes/cframe"))]) (cfml-mode . [(20170904 249) ((emacs (25)) (mmm-mode (0 5 4)) (cftag-mode (1 0 0))) "Emacs mode for editing CFML files" single ((:commit . "86e77dcbb583191a3e755bdc29534f33d82bfc56") (:authors ("Andrew Myers" . "am2605@gmail.com")) (:maintainer "Andrew Myers" . "am2605@gmail.com") (:url . "https://github.com/am2605/cfml-mode"))]) (cff . [(20160118 2018) ((cl-lib (0 5)) (emacs (24))) "Search of the C/C++ file header by the source and vice versa" single ((:commit . "b6ab2a28e64ef06f281ec74cfe3114e450644dfa") (:keywords "find-file") (:authors ("Alexey Veretennikov" . "alexey.veretennikov@gmail.com")) (:maintainer "Alexey Veretennikov" . "alexey.veretennikov@gmail.com") (:url . "https://github.com/fourier/cff"))]) (cfengine-code-style . [(20171115 2108) nil "C code style for CFEngine project." single ((:commit . "369d6d449119ecdbdcdd333c0b09ede82770cc91") (:authors ("Mikhail Gusarov" . "mikhail.gusarov@cfengine.com")) (:maintainer "Mikhail Gusarov" . "mikhail.gusarov@cfengine.com") (:url . "https://github.com/cfengine/core"))]) (ceylon-mode . [(20180606 1324) ((emacs (25))) "Major mode for editing Ceylon source code" single ((:commit . "948515672bc596dc118e8e3ede3ede5ec6a3c95a") (:keywords "languages" "ceylon") (:authors ("Lucas Werkmeister" . "mail@lucaswerkmeister.de")) (:maintainer "Lucas Werkmeister" . "mail@lucaswerkmeister.de") (:url . "https://github.com/lucaswerkmeister/ceylon-mode"))]) (cerbere . [(20181113 1641) ((pkg-info (0 5))) "Unit testing in Emacs for several programming languages" tar ((:commit . "bb18d932b16541105d41a668dbf6fc4e833a6dc2") (:keywords "python" "go" "php" "phpunit" "elisp" "ert" "tests" "tdd") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com") (:url . "https://github.com/nlamirault/cerbere"))]) (centimacro . [(20140306 1427) nil "Assign multiple macros as global key bindings" single ((:commit . "1b97a9b558ed9c49d5da1bfbf29b2506575c2742") (:keywords "macros") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/centimacro"))]) (centered-window . [(20171127 949) ((emacs (24 4))) "Center the text when there's only one window" single ((:commit . "24f7c5be9def20879f46659082d497e67b55d7af") (:keywords "faces" "windows") (:authors ("Anler Hernández Peral" . "inbox+emacs@anler.me")) (:maintainer "Anler Hernández Peral" . "inbox+emacs@anler.me") (:url . "https://github.com/anler/centered-window-mode"))]) (centered-cursor-mode . [(20180112 1555) nil "cursor stays vertically centered" single ((:commit . "00fb47d227f9e211ec1c58161a501a1550c3a60d") (:keywords "convenience") (:authors ("André Riemann" . "andre.riemann@web.de")) (:maintainer "André Riemann" . "andre.riemann@web.de") (:url . "https://github.com/andre-r/centered-cursor-mode.el"))]) (celestial-mode-line . [(20180518 822) ((emacs (24))) "Show lunar phase and sunrise/-set time in modeline" single ((:commit . "3f5794aca99b977f1592cf1ab4516ae7922196a1") (:keywords "extensions") (:authors ("Peter" . "craven@gmx.net")) (:maintainer "Peter" . "craven@gmx.net") (:url . "https://github.com/ecraven/celestial-mode-line"))]) (celery . [(20170225 924) ((emacs (24)) (dash-functional (2 11 0)) (s (1 9 0)) (deferred (0 3 2))) "a minor mode to draw stats from celery and more?" single ((:commit . "51197d74f5eaa8ae09144af7663a2f4277f07d16") (:keywords "celery" "convenience") (:authors ("ardumont" . "eniotna.t@gmail.com")) (:maintainer "ardumont" . "eniotna.t@gmail.com") (:url . "https://github.com/ardumont/emacs-celery"))]) (cedit . [(20141231 1614) nil "paredit-like commands for c-like languages" single ((:commit . "0878d851b6307c162bfbddd2bb02789e5e27bc2c") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (cdnjs . [(20161031 1522) ((dash (2 13 0)) (deferred (0 4)) (f (0 17 2)) (pkg-info (0 5))) "A front end for http://cdnjs.com" single ((:commit . "ce19880d3ec3d81e6c665d0b1dfea99cc7a3f908") (:keywords "tools") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/cdnjs.el"))]) (cdlatex . [(20140707 1126) nil "Fast input methods for LaTeX environments and math" single ((:commit . "ff534912b93fc2c7a6b191b1c8d6d699a46bbb01") (:keywords "tex") (:authors ("Carsten Dominik" . "carsten.dominik@gmail.com")) (:maintainer "Carsten Dominik" . "carsten.dominik@gmail.com"))]) (cdb . [(20151205 1343) nil "constant database (cdb) reader for Emacs Lisp" single ((:commit . "b05c610e27b86e71fb4e8d67292ef6a696dd5992") (:keywords "cdb") (:authors ("Yusuke Shinyama <yusuke at cs . nyu . edu>")) (:maintainer "SKK Development Team" . "skk@ring.gr.jp"))]) (cd-compile . [(20141108 1957) nil "run compile in a specific directory" single ((:commit . "10284ccae86afda4a37b09ba90acd1e2efedec9f") (:authors ("Jamie Nicol" . "jamie@thenicols.net")) (:maintainer "Jamie Nicol" . "jamie@thenicols.net"))]) (ccls . [(20181106 546) ((emacs (25 1)) (lsp-mode (4 2)) (dash (0 14)) (projectile (1 0 0))) "ccls client for lsp-mode" tar ((:commit . "07ad553950e69f862f7c74c9b1f02c00ab450d22") (:keywords "languages" "lsp" "c++") (:authors ("Tobias Pisani, Fangrui Song")) (:maintainer "Tobias Pisani, Fangrui Song") (:url . "https://github.com/MaskRay/emacs-ccls"))]) (ccc . [(20151205 1343) nil "buffer local cursor color control library" single ((:commit . "b05c610e27b86e71fb4e8d67292ef6a696dd5992") (:keywords "cursor") (:authors ("Masatake YAMATO" . "masata-y@is.aist-nara.ac.jp")) (:maintainer "SKK Development Team" . "skk@ring.gr.jp") (:url . "https://github.com/skk-dev/ddskk/blob/master/READMEs/README.ccc.org"))]) (cbm . [(20171116 1240) ((cl-lib (0 5))) "Switch to similar buffers." single ((:commit . "5b41c936ba9f6d170309a85ffebc9939c1050b31") (:keywords "buffers") (:authors ("Lukas Fürmetz" . "fuermetz@mailbox.org")) (:maintainer "Lukas Fürmetz" . "fuermetz@mailbox.org") (:url . "http://github.com/akermu/cbm.el"))]) (catmacs . [(20170826 1157) ((emacs (24))) "Simple CAT interface for Yaesu Transceivers." single ((:commit . "65d3e0563abe6ff9577202cf2278074d4130fbdd") (:keywords "comm" "hardware") (:authors ("Frank Singleton" . "b17flyboy@gmail.com")) (:maintainer "Frank Singleton" . "b17flyboy@gmail.com") (:url . "https://bitbucket.org/pymaximus/catmacs"))]) (caskxy . [(20140513 1539) ((log4e (0 2 0)) (yaxception (0 1))) "Control Cask in Emacs" single ((:commit . "dc18dcab7ed526070ab76de071c9c5272e6ac40e") (:keywords "convenience") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/caskxy"))]) (cask-package-toolset . [(20170921 2256) ((emacs (24)) (cl-lib (0 3)) (s (1 6 1)) (dash (1 8 0)) (f (0 10 0)) (commander (0 2 0)) (ansi (0 1 0)) (shut-up (0 1 0))) "Toolsettize your package" tar ((:commit . "2c74cd827e88c7f8360581a841e45f0b794510e7") (:keywords "convenience" "tools") (:authors ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainer "Adrien Becchis" . "adriean.khisbe@live.fr") (:url . "http://github.com/AdrieanKhisbe/cask-package-toolset.el"))]) (cask-mode . [(20160410 1449) ((emacs (24 3))) "major mode for editing Cask files" single ((:commit . "7c6719d3bb4fe552958634bd5a11abc56681f3a7") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (cask . [(20181107 942) ((s (1 8 0)) (dash (2 2 0)) (f (0 16 0)) (epl (0 5)) (shut-up (0 1 0)) (cl-lib (0 3)) (package-build (1 2)) (ansi (0 4 1))) "Cask: Project management for Emacs package development" tar ((:commit . "199b4380dd3e178ff9df3a9d13d044d67e522b3f") (:keywords "speed" "convenience") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/cask/cask"))]) (caseformat . [(20160115 1615) ((emacs (24)) (cl-lib (0 5)) (dash (2 12 1)) (s (1 10 0))) "Format based letter case converter" single ((:commit . "92a31f6a7cae0b4e2af106cd6f2b0abe6c2d8921") (:keywords "convenience") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com") (:url . "https://github.com/HKey/caseformat"))]) (caroline-theme . [(20160318 520) ((emacs (24))) "A trip down to New Orleans..." single ((:commit . "222fd483db304509f9e422dc82883d808e023ceb") (:authors ("Jack Killilea" . "jaaacckz1@gmail.com")) (:maintainer "Jack Killilea" . "jaaacckz1@gmail.com") (:url . "https://github.com/xjackk/carolines-theme"))]) (cargo . [(20181112 722) ((emacs (24 3)) (rust-mode (0 2 0)) (markdown-mode (2 4))) "Emacs Minor Mode for Cargo, Rust's Package Manager." tar ((:commit . "f8504cd51021741a3931c28dc5e87cc16687420b") (:keywords "tools") (:authors ("Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com")) (:maintainer "Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com"))]) (carbon-now-sh . [(20180331 1735) ((emacs (24 4)) (dash (2 12 0))) "https://carbon.now.sh integration." single ((:commit . "71dee6bc4f2a2cb02b9b7b5e643c4c92b880e6a4") (:keywords "convenience") (:authors ("Vitalii Elenhaupt")) (:maintainer "Vitalii Elenhaupt") (:url . "https://github.com/veelenga/carbon-now-sh.el"))]) (capture . [(20130828 1644) nil "screencasting with \"avconv\" or \"ffmpeg\"" tar ((:commit . "1bb26060311da76767f70096218313fc93b0c806") (:authors ("Sergey Pashinin <sergey at pashinin dot com>")) (:maintainer "Sergey Pashinin <sergey at pashinin dot com>"))]) (cangjie . [(20181015 1220) ((emacs (24)) (s (1 12 0)) (dash (2 14 1)) (f (0 2 0))) "retrieve cangjie code for han characters" single ((:commit . "98b53c3ffc289d5fbc893651b17280ed2f043d0b") (:keywords "convenience" "writing") (:url . "https://github.com/kisaragi-hiu/cangjie.el"))]) (caml . [(20181011 1328) nil "OCaml code editing commands for Emacs" tar ((:commit . "5daea807289deace6d53f10992ba3541e0e86bb8") (:keywords "ocaml") (:authors ("Jacques Garrigue" . "garrigue@kurims.kyoto-u.ac.jp") ("Ian T Zimmerman" . "itz@rahul.net")) (:maintainer "Damien Doligez" . "damien.doligez@inria.fr") (:url . "https://github.com/ocaml/ocaml/"))]) (camcorder . [(20160405 434) ((emacs (24)) (names (20150000)) (cl-lib (0 5))) "Record screencasts in gif or other formats." single ((:commit . "b13d939990e6709492efefc0945798adc1c0fcb9") (:keywords "multimedia" "screencast") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/camcorder.el"))]) (calmer-forest-theme . [(20130926 510) nil "Darkish theme with green/orange tint" single ((:commit . "87ba7bae389084d13fe3bc34e0c923017eda6ba0") (:authors ("Artur Hefczyc, created 2003-04-18") ("David Caldwell" . "david@porkrind.org")) (:maintainer "Artur Hefczyc, created 2003-04-18") (:url . "https://github.com/caldwell/calmer-forest-theme"))]) (call-graph . [(20180509 1335) ((emacs (25 1)) (cl-lib (0 6 1)) (hierarchy (0 7 0)) (tree-mode (1 0 0)) (ivy (0 10 0))) "Library to generate call graph for c/c++ functions" single ((:commit . "7e51c1eea59b13e6c1c099680492ebcd58893399") (:keywords "programming" "convenience") (:authors ("Huming Chen" . "chenhuming@gmail.com")) (:maintainer "Huming Chen" . "chenhuming@gmail.com") (:url . "https://github.com/beacoder/call-graph"))]) (calfw-org . [(20160303 258) nil "calendar view for org-agenda" single ((:commit . "03abce97620a4a7f7ec5f911e669da9031ab9088") (:keywords "calendar" "org") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>"))]) (calfw-ical . [(20150703 819) nil "calendar view for ical format" single ((:commit . "03abce97620a4a7f7ec5f911e669da9031ab9088") (:keywords "calendar") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>"))]) (calfw-howm . [(20170704 4) nil "calendar view for howm" single ((:commit . "03abce97620a4a7f7ec5f911e669da9031ab9088") (:keywords "calendar") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>"))]) (calfw-gcal . [(20120111 1000) nil "edit Google calendar for calfw.el." tar ((:commit . "14aab20687d6cc9e6c5ddb9e11984c4e14c3d870") (:keywords "convenience" "calendar" "calfw.el") (:authors ("myuhe <yuhei.maeda_at_gmail.com>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/calfw-gcal.el"))]) (calfw-cal . [(20170320 1206) nil "calendar view for emacs diary" single ((:commit . "03abce97620a4a7f7ec5f911e669da9031ab9088") (:keywords "calendar") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>"))]) (calfw . [(20180118 45) nil "Calendar view framework on Emacs" single ((:commit . "03abce97620a4a7f7ec5f911e669da9031ab9088") (:keywords "calendar") (:authors ("SAKURAI Masashi <m.sakurai at kiwanami.net>")) (:maintainer "SAKURAI Masashi <m.sakurai at kiwanami.net>") (:url . "https://github.com/kiwanami/emacs-calfw"))]) (calendar-norway . [(20180906 1502) nil "Norwegian calendar" single ((:commit . "8d1fda8268caa74ba5e712c7675ed3c34e46e2d4") (:keywords "calendar" "norwegian" "localization") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org"))]) (cal-china-x . [(20180211 1901) ((cl-lib (0 5))) "Chinese localization, lunar/horoscope/zodiac info and more..." tar ((:commit . "e9b309065829af3a9a0c526509bd64d9228fdced") (:authors ("William Xu" . "william.xwl@gmail.com")) (:maintainer "William Xu" . "william.xwl@gmail.com") (:url . "https://github.com/xwl/cal-china-x"))]) (cakecrumbs . [(20180929 139) ((emacs (24 4))) "Show parents on header for HTML/Jade/Sass/Stylus" single ((:commit . "cf8c1df885eee004602f73c4f841301e200e5850") (:keywords "languages" "html" "jade" "pug" "sass" "scss" "stylus") (:authors ("ono hiroko <kuanyui.github.io>")) (:maintainer "ono hiroko <kuanyui.github.io>") (:url . "https://github.com/kuanyui/cakecrumbs.el"))]) (cake-inflector . [(20140415 858) ((s (1 9 0))) "Lazy porting CakePHP infrector.php to el" single ((:commit . "a1d338ec4840b1b1bc14f7f9298c07e2c1d2d8fc") (:authors ("k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>")) (:maintainer "k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>") (:url . "https://github.com/k1LoW/emacs-cake-inflector"))]) (cacoo . [(20120319 2359) ((concurrent (0 3 1))) "Minor mode for Cacoo : http://cacoo.com" tar ((:commit . "c9fa04fbe97639b24698709530361c2bb5f3273c"))]) (cache . [(20111019 2300) nil "implementation of a hash table whose key-value pairs expire" single ((:commit . "7499586b6c8224df9f5c5bc4dec96b008258d580") (:authors ("Nathaniel Flath")) (:maintainer "Nathaniel Flath"))]) (cabledolphin . [(20160204 938) ((emacs (24 4)) (seq (1 0))) "capture Emacs network traffic" single ((:commit . "fffc192cafa61558e924323d6da8166fe5f2a6f9") (:keywords "comm") (:authors ("Magnus Henoch" . "magnus.henoch@gmail.com")) (:maintainer "Magnus Henoch" . "magnus.henoch@gmail.com"))]) (c0-mode . [(20151110 1852) nil "Major mode for editing C0 files" tar ((:commit . "c214093c36864d6208fcb9e6a72413ed17ed5d60") (:keywords "c0" "languages") (:authors ("Jakob Max Uecker")) (:maintainer "Jakob Max Uecker") (:url . "http://c0.typesafety.net/"))]) (c-eldoc . [(20181109 439) nil "helpful description of the arguments to C functions" single ((:commit . "e35c0e40f71c25804919f6c01fd27e95c2e2adb7") (:authors ("Nathaniel Flath" . "flat0103@gmail.com")) (:maintainer "Nathaniel Flath" . "flat0103@gmail.com") (:url . "http://github.com/nflath/c-eldoc"))]) (c-c-combo . [(20151224 255) nil "Make stuff happen when you reach a target wpm" tar ((:commit . "a261a833499a7fdc29610863b3aafc74818770ba") (:authors ("Diego Berrocal" . "cestdiego@gmail.com")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com") (:url . "https://www.github.com/CestDiego/c-c-combo.el"))]) (button-lock . [(20150223 1354) nil "Clickable text defined by regular expression" single ((:commit . "f9082feb329432fcf2ac49a95e64bed9fda24d58") (:keywords "mouse" "button" "hypermedia" "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/button-lock"))]) (buttercup . [(20181103 1106) nil "Behavior-Driven Emacs Lisp Testing" tar ((:commit . "4089d5f66dcf1dd25d8e56fe6508f1fa48ac097c"))]) (butler . [(20150812 8) ((deferred (0 3 2)) (json (1 2)) (emacs (24))) "Emacs client for Jenkins" tar ((:commit . "8ceb35737107572455cca9a61ff46b3ff78f1016"))]) (busybee-theme . [(20170719 928) nil "port of vim's mustang theme" single ((:commit . "66b2315b030582d0ebee605cf455d386d8c30fcd") (:authors ("martin haesler")) (:maintainer "martin haesler") (:url . "http://github.com/mswift42/busybee-theme"))]) (buster-snippets . [(20151125 1010) ((yasnippet (0 8 0))) "Yasnippets for the Buster javascript testing framework" tar ((:commit . "bb8769dae132659858e74d52f3f4e8790399423a") (:keywords "snippets") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (buster-mode . [(20140928 1213) nil "Minor mode to speed up development when writing tests with Buster.js" single ((:commit . "de6958ef8369400922618b8d1e99abfa91b97ac5") (:keywords "buster" "testing" "javascript"))]) (bury-successful-compilation . [(20181106 403) nil "Bury the *compilation* buffer after successful compilation" single ((:commit . "674644c844184605a1bb4f9487a60f7a780a6fe7") (:keywords "compilation") (:authors ("Eric Crosson" . "esc@ericcrosson.com")) (:maintainer "Eric Crosson" . "esc@ericcrosson.com"))]) (bundler . [(20160815 915) ((inf-ruby (2 1)) (cl-lib (0 5))) "Interact with Bundler from Emacs" single ((:commit . "f981f67c33b42243e57a78c358dffff70022b56b") (:keywords "bundler" "ruby") (:authors ("Tobias Svensson" . "tob@tobiassvensson.co.uk")) (:maintainer "Tobias Svensson" . "tob@tobiassvensson.co.uk") (:url . "http://github.com/endofunky/bundler.el"))]) (build-status . [(20171111 1947) ((cl-lib (0 5))) "Mode line build status indicator" single ((:commit . "ef44185d9dd748ea578d68398f3f729a8adb45b5") (:keywords "mode-line" "ci" "circleci" "travis-ci") (:authors ("Skye Shaw" . "skye.shaw@gmail.com")) (:maintainer "Skye Shaw" . "skye.shaw@gmail.com") (:url . "http://github.com/sshaw/build-status"))]) (build-helper . [(20161009 1755) ((projectile (0 9 0))) "Utilities to help build code" single ((:commit . "7a6fe71125a26ed1c492dab77cc688a7fe1d68ac") (:keywords "convenience") (:authors ("Afonso Bordado" . "afonsobordado@az8.co")) (:maintainer "Afonso Bordado" . "afonsobordado@az8.co") (:url . "http://github.com/afonso360/build-helper"))]) (build-farm . [(20180906 1858) ((emacs (24 4)) (bui (1 1 0)) (magit-popup (2 1 0))) "Interface for Nix and Guix build farms (Hydra and Cuirass)" tar ((:commit . "e244dea35566a10253d61be430d3caf81b779af8") (:keywords "tools") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://gitlab.com/alezost-emacs/build-farm"))]) (bui . [(20180812 2113) ((emacs (24 3)) (dash (2 11 0))) "Buffer interface library" tar ((:commit . "bd3c5ee32d28d80c6eb54b0340626103c32e3093") (:keywords "tools") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/bui.el"))]) (bug-reference-github . [(20180128 1314) nil "Set `bug-reference-url-format' in Github repos" tar ((:commit . "f570a0532bfb44f095b42cf68ab1f69799101137") (:keywords "programming" "tools") (:authors ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainer "Arne Jørgensen" . "arne@arnested.dk") (:url . "https://github.com/arnested/bug-reference-github"))]) (bufshow . [(20130726 1838) ((emacs (24 1))) "A simple presentation tool for Emacs." single ((:commit . "d60a554e7239e6f7520d9c3436d5ecdbc9cf6957") (:authors ("Peter Jones" . "pjones@pmade.com")) (:maintainer "Peter Jones" . "pjones@pmade.com") (:url . "https://github.com/pjones/bufshow"))]) (buffer-watcher . [(20170913 839) ((f (0 16 2)) (cl-lib (0 5))) "Easily run shell scripts per filetype/directory when a buffer is saved" single ((:commit . "b32c67c8a5d724257d759f4c903d0dedc32246ef") (:authors ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Nicolas Petton" . "nicolas@petton.fr"))]) (buffer-utils . [(20140512 1400) nil "Buffer-manipulation utility functions" single ((:commit . "685b13457e3a2085b7584e41365d2aa0779a1b6f") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/buffer-utils"))]) (buffer-sets . [(20170718 340) ((cl-lib (0 5))) "Sets of Buffers for Buffer Management" single ((:commit . "4a4ccb0d6916c3e9fba737bb7b48e8aac921954e") (:keywords "buffer-management") (:authors ("Samuel W. Flint" . "swflint@flintfam.org")) (:maintainer "Samuel W. Flint" . "swflint@flintfam.org") (:url . "http://github.com/swflint/buffer-sets"))]) (buffer-move . [(20160615 1803) nil "easily swap buffers" single ((:commit . "cb517ecf8409b5fdcda472d7190c6021f0c49751") (:keywords "lisp" "convenience") (:url . "https://github.com/lukhas/buffer-move"))]) (buffer-manage . [(20180528 1613) ((emacs (25)) (choice-program (0 3)) (dash (2 13 0))) "manage buffers" tar ((:commit . "8bbe342a4dafcfdaf305baea98bd4208036ab89a") (:keywords "interactive" "buffer" "management") (:authors ("Paul Landes")) (:maintainer "Paul Landes") (:url . "https://github.com/plandes/buffer-manage"))]) (buffer-flip . [(20180307 2251) nil "Cycle through buffers like Alt-Tab in Windows" single ((:commit . "e093360e05164c78255866c1ac8f966aa38ba514") (:keywords "convenience") (:authors ("Russell Black" . "killdash9@github")) (:maintainer "Russell Black" . "killdash9@github") (:url . "https://github.com/killdash9/buffer-flip.el"))]) (buffer-buttons . [(20150106 1439) nil "Define, save, and load code-safe buttons in files for emacs" single ((:commit . "2feb8494fa7863b98256bc85da670d74a3a8a975") (:authors ("Ryan Pavlik" . "rpavlik@gmail.com")) (:maintainer "Ryan Pavlik" . "rpavlik@gmail.com") (:url . "https://github.com/rpav/buffer-buttons"))]) (buckwalter . [(20180107 1643) nil "Write arabic using Buckwalter transliteration" single ((:commit . "2aa5451c3682c268adebc6b1191a796466732f53") (:keywords "arabic" "transliteration" "i18n") (:authors ("Joe HAKIM RAHME" . "joehakimrahme@gmail.com")) (:maintainer "Joe HAKIM RAHME" . "joehakimrahme@gmail.com") (:url . "https://github.com/joehakimrahme/buckwalter-arabic"))]) (bubbleberry-theme . [(20141017 944) ((emacs (24 1))) "A theme based on LightTable for Emacs24" single ((:commit . "22e9adf4586414024e4592972022ec297321b320") (:authors ("Jason Milkins" . "jasonm23@gmail.com") ("Gaurav Giri github.com/grvgr")) (:maintainer "Jason Milkins" . "jasonm23@gmail.com") (:url . "https://github.com/jasonm23/emacs-bubbleberry-theme"))]) (bts-github . [(20170401 1249) ((bts (0 0 1)) (gh (0 8 2))) "A plugin of bts.el for GitHub" single ((:commit . "ef2cf9202dc2128e5efdb613bfde9276a8cd95ad") (:keywords "convenience" "git" "github") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-bts-github"))]) (bts . [(20151109 1333) ((widget-mvc (0 0 2)) (log4e (0 3 0)) (yaxception (0 3 3)) (dash (2 9 0)) (s (1 9 0)) (pos-tip (0 4 5))) "A unified UI for various bug tracking systems" single ((:commit . "df42d58a36447697f93b56e69f5e700b2baef1f9") (:keywords "convenience") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/emacs-bts"))]) (btc-ticker . [(20151113 1459) ((json (1 2)) (request (0 2 0))) "Shows latest bitcoin price" single ((:commit . "845235b545f070d0812cd1654cbaa4997565824f") (:keywords "news") (:authors ("Jorge Niedbalski R." . "jnr@metaklass.org")) (:maintainer "Jorge Niedbalski R." . "jnr@metaklass.org"))]) (bshell . [(20170903 1837) ((emacs (25)) (buffer-manage (0 5))) "manage and track multiple inferior shells" single ((:commit . "884a8b906617d305e9d5d2c3750618d2f86f9aed") (:keywords "interactive" "shell" "management") (:authors ("Paul Landes")) (:maintainer "Paul Landes") (:url . "https://github.com/plandes/bshell"))]) (brutalist-theme . [(20181023 1222) nil "Brutalist theme" tar ((:commit . "8899f4f4a7faf0080977cd137e0ad7b00c40f1e8") (:authors ("Gergely Nagy")) (:maintainer "Gergely Nagy") (:url . "https://git.madhouse-project.org/algernon/brutalist-theme.el"))]) (browse-url-dwim . [(20140731 1922) ((string-utils (0 3 2))) "Context-sensitive external browse URL or Internet search" single ((:commit . "3d611dbb167c286109ac53995ad68286d87aafb9") (:keywords "hypermedia") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/browse-url-dwim"))]) (browse-kill-ring . [(20171219 1908) nil "interactively insert items from kill-ring" single ((:commit . "8debc43e41d7e51532698331c6f283905890b904") (:keywords "convenience") (:authors ("Colin Walters" . "walters@verbum.org")) (:maintainer "browse-kill-ring" . "browse-kill-ring@tonotdo.com") (:url . "https://github.com/browse-kill-ring/browse-kill-ring"))]) (browse-at-remote . [(20180622 631) ((f (0 17 2)) (s (1 9 0)) (cl-lib (0 5))) "Open github/gitlab/bitbucket/stash page from Emacs" single ((:commit . "99af94ada33badd3e1eceb704e07f62c1eef513a") (:keywords "github" "gitlab" "bitbucket" "convenience") (:authors ("Rustem Muslimov" . "r.muslimov@gmail.com")) (:maintainer "Rustem Muslimov" . "r.muslimov@gmail.com"))]) (broadcast . [(20151205 212) ((emacs (24 4))) "Links buffers together for simultaneous editing." single ((:commit . "f6f9cd2e0e3f8c31d6b8e7446c27eb0e50b25f16") (:keywords "convenience" "frames" "link" "cursors") (:authors ("Russell Black" . "killdash9@github")) (:maintainer "Russell Black" . "killdash9@github") (:url . "https://github.com/killdash9/broadcast.el"))]) (brainfuck-mode . [(20150113 842) ((langdoc (20130601 1450))) "Brainfuck mode for Emacs" single ((:commit . "36e69552bb3b97a4f888d362c59845651bd0d492") (:keywords "brainfuck" "langdoc") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com") (:url . "https://github.com/tom-tan/brainfuck-mode/"))]) (bracketed-paste . [(20160407 2348) ((emacs (24 3))) "bracketed paste mode support within emacs -nw" single ((:commit . "843ce3bbb63d560face889e13a57a2f7543957d5") (:keywords "terminals") (:authors ("Takeshi Banse" . "takebi@laafc.net")) (:maintainer "Takeshi Banse" . "takebi@laafc.net"))]) (bpr . [(20180220 1844) ((emacs (24))) "Background Process Runner" tar ((:commit . "af84a83dea09d86e77d87ac30604f2c5b4bf4117") (:keywords "background" "async" "process" "management") (:authors ("Ilya Babanov" . "ilya-babanov@ya.ru")) (:maintainer "Ilya Babanov" . "ilya-babanov@ya.ru") (:url . "https://github.com/ilya-babanov/emacs-bpr"))]) (bpe . [(20141228 2205) ((emacs (24 1))) "Blog from Org mode to Blogger" single ((:commit . "7b5b25f83506e6c9f4075d3803fa32404943a189") (:keywords "blogger" "blog") (:authors ("Yuta Yamada <cokesboy\"at\"gmail.com>")) (:maintainer "Yuta Yamada <cokesboy\"at\"gmail.com>") (:url . "https://github.com/yuutayamada/bpe"))]) (boxquote . [(20170802 1117) ((cl-lib (0 5))) "Quote text with a semi-box." single ((:commit . "7e47e0e2853bc1215739b2e28f260e9eed93b2c5") (:keywords "quoting") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/boxquote.el"))]) (boron-theme . [(20170808 1308) ((emacs (24 0))) "an Emacs 24 theme based on Boron (tmTheme)" single ((:commit . "87ae1a765e07429fec25d2f29b004f84b52d2e0a") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (borland-blue-theme . [(20160117 1321) ((emacs (24 1))) "Blue/yellow theme based on old DOS Borland/Turbo C IDE" single ((:commit . "db74eefebbc89d3c62575f8f50b319e87b4a3470") (:keywords "themes") (:authors ("Alexey Veretennikov <alexey dot veretennikov at gmail dot com>")) (:maintainer "Alexey Veretennikov <alexey dot veretennikov at gmail dot com>") (:url . "http://github.com/fourier/borland-blue-theme"))]) (borg . [(20181031 2202) ((emacs (26)) (dash (2 14 1)) (epkg (3 1 1)) (magit (2 13 0))) "assimilate Emacs packages as Git submodules" tar ((:commit . "73990d3039f94da4ba213a3423f42f47f454d5db") (:keywords "tools") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacscollective/borg"))]) (boon . [(20181014 927) ((emacs (25 1)) (expand-region (0 10 0)) (dash (2 12 0)) (multiple-cursors (1 3 0))) "Ergonomic Command Mode for Emacs." tar ((:commit . "675719ec1f6608a690fc613214920ac3c0d350a3"))]) (bool-flip . [(20161215 1539) ((emacs (24 3))) "flip the boolean under the point" single ((:commit . "f58a9a7b9ab875bcfbd57c8262697ae404eb4485") (:keywords "boolean" "convenience" "usability") (:authors ("Michael Brandt" . "michaelbrandt5@gmail.com")) (:maintainer "Michael Brandt" . "michaelbrandt5@gmail.com") (:url . "http://github.com/michaeljb/bool-flip/"))]) (boogie-friends . [(20171025 255) ((cl-lib (0 5)) (dash (2 10 0)) (flycheck (0 23)) (yasnippet (0 9 0 1)) (company (0 8 12))) "A collection of programming modes for Boogie, Dafny, and Z3 (SMTLIB v2)." tar ((:commit . "ff9903783013f3598b6f44c99d47b25c5cdbed00"))]) (bonjourmadame . [(20170919 1134) nil "Say \"Hello ma'am!\"" single ((:commit . "d3df185fce78aefa689fded8e56a654f0fde4ac0"))]) (bongo . [(20171119 242) ((cl-lib (0 5)) (emacs (24 1))) "play music with Emacs" tar ((:commit . "3d246be1e8d14865f5253567ab8fee5d4e9c470c"))]) (bolt-mode . [(20180310 810) ((emacs (24 3))) "Editing support for Bolt language" single ((:commit . "85a5a752bfbebb4aed884326c25db64c000e9934") (:keywords "languages") (:authors ("Mikhail Pontus" . "mpontus@gmail.com")) (:maintainer "Mikhail Pontus" . "mpontus@gmail.com") (:url . "https://github.com/mpontus/bolt-mode"))]) (bog . [(20180815 2213) ((cl-lib (0 5))) "Extensions for research notes in Org mode" single ((:commit . "b5df3647f55359f8546dcfa991a351673a069a49") (:keywords "bib" "outlines") (:authors ("Kyle Meyer" . "kyle@kyleam.com")) (:maintainer "Kyle Meyer" . "kyle@kyleam.com") (:url . "https://github.com/kyleam/bog"))]) (bnfc . [(20160605 1927) ((emacs (24 3))) "Define context-free grammars for the BNFC tool" single ((:commit . "1b58df1dd0cb9b81900632fb2843a03b94f56fdb") (:keywords "languages" "tools") (:authors ("Jacob Mitchell" . "jmitchell@member.fsf.org")) (:maintainer "Jacob Mitchell" . "jmitchell@member.fsf.org") (:url . "https://github.com/jmitchell/bnfc-mode"))]) (bmx-mode . [(20180929 1132) ((emacs (25 1)) (cl-lib (0 5)) (company (0 9 4)) (dash (2 13 0)) (s (1 12 0))) "Batch Mode eXtras" single ((:commit . "536b332edc3b98cc97588c937c7368803ba5961c") (:keywords "c" "convenience" "tools") (:authors ("Jostein Kjønigsen" . "jostein@gmail.com")) (:maintainer "Jostein Kjønigsen" . "jostein@gmail.com") (:url . "http://github.com/josteink/bmx-mode"))]) (bm . [(20181012 1631) nil "Visible bookmarks in buffer." tar ((:commit . "b85d407b53e1d852c47fcea2a245a4e67e48c38a") (:keywords "bookmark" "highlight" "faces" "persistent") (:authors ("Jo Odland <jo.odland(at)gmail.com>")) (:maintainer "Jo Odland <jo.odland(at)gmail.com>") (:url . "https://github.com/joodland/bm"))]) (blog-minimal . [(20181021 849) ((ht (1 5)) (simple-httpd (1 4 6)) (mustache (0 22)) (s (1 11 0)) (org (9 0 3))) "a simple static site generator based on org mode" tar ((:commit . "356c878322258159021eecdd15757e11cf02e335") (:keywords "tools") (:authors ("Thank Fly" . "thiefuniverses@gmail.com")) (:maintainer "Thank Fly" . "thiefuniverses@gmail.com") (:url . "https://github.com/thiefuniverse/blog-minimal"))]) (blog-admin . [(20170923 1409) ((ctable (0 1 1)) (s (1 10 0)) (f (0 17 3)) (names (20151201 0)) (cl-lib (0 5))) "Blog admin for emacs with hexo/org-page supported" tar ((:commit . "b5f2e1dad7d68ec903619f7280bb0bcb7e398a1e") (:keywords "tools" "blog" "org" "hexo" "org-page") (:authors (nil . "code.falling@gmail.com")) (:maintainer nil . "code.falling@gmail.com"))]) (blockdiag-mode . [(20160427 524) ((emacs (24 3))) "Major mode for editing blockdiag files" single ((:commit . "f3b21ba433d60327cebd103ae4492200750e24a9") (:authors ("xcezx" . "main.xcezx@gmail.com")) (:maintainer "xcezx" . "main.xcezx@gmail.com") (:url . "https://github.com/xcezx/xdiag-mode"))]) (bln-mode . [(20180730 1223) nil "binary line navigation minor mode for cursor movement in long lines" single ((:commit . "b5e86b1bc8b7ac25bf8ec07056824861c4c3f050") (:keywords "motion" "location" "cursor" "convenience") (:authors ("Maarten Grachten")) (:maintainer "Maarten Grachten") (:url . "https://github.com/mgrachten/bln-mode"))]) (bliss-theme . [(20170808 1307) ((emacs (24 0))) "an Emacs 24 theme based on Bliss (tmTheme)" single ((:commit . "c3cf6d8a666ab26909b7da158f9e94df71a5fbbf") (:authors ("Jason Milkins")) (:maintainer "Jason Milkins") (:url . "https://github.com/emacsfodder/tmtheme-to-deftheme"))]) (blimp . [(20180903 2240) ((emacs (25)) (eimp (1 4 0))) "Bustling Image Manipulation Package" single ((:commit . "a4c538c52f2371f4a184e4c905584c6decf7b407") (:keywords "multimedia" "unix") (:authors ("Sebastian Wålinder" . "s.walinder@gmail.com")) (:maintainer "Sebastian Wålinder" . "s.walinder@gmail.com") (:url . "https://github.com/walseb/blimp"))]) (blgrep . [(20150401 1416) ((clmemo (20140321 715))) "Block grep" tar ((:commit . "605beda210610a5829750a987f5fcebea97af546") (:keywords "tools" "convenience") (:authors ("Masayuki Ataka" . "masayuki.ataka@gmail.com")) (:maintainer "Masayuki Ataka" . "masayuki.ataka@gmail.com"))]) (blacken . [(20181025 1814) ((emacs (25 2))) "Reformat python buffers using the \"black\" formatter" single ((:commit . "d6929cf32adb180ac3c11da9861f62f57a66a64f") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/blacken"))]) (blackboard-theme . [(20161216 656) ((emacs (24))) "TextMate Blackboard Theme" single ((:commit . "d8b984f2541bb86eb4363a2b4c94631e49843d4a") (:authors ("Dong Zheng")) (:maintainer "Dong Zheng") (:url . "https://github.com/don9z/blackboard-theme"))]) (blackboard-bold-mode . [(20160813 206) ((cl-lib (0 5))) "Easily insert Unicode mathematical double-struck characters" single ((:commit . "5299cb064ba71baa3e331b8560bf8dd38cbbc4ed") (:keywords "unicode" "double struck" "blackboard bold" "math" "mathematical") (:authors ("Grant Rettke" . "gcr@wisdomandwonder.com")) (:maintainer nil . "<gcr@wisdomandwonder.com>") (:url . "https://github.com/grettke/blackboard-bold-mode"))]) (bitlbee . [(20151203 0) nil "Help get Bitlbee (http://www.bitlbee.org) up and running." single ((:commit . "3a92a4119e0c007df2c7dcf1b1c3a5f23ee40e05"))]) (bitbucket . [(20170405 446) ((emacs (24)) (request (0 1 0)) (s (1 9 0))) "Bitbucket API wrapper" tar ((:commit . "5e663da1bd38a14c1ecf4d66a79d4321ac833bcf") (:keywords "bitbucket") (:authors ("2017 Tjaart van der Walt" . "tjaart@tjaart.co.za")) (:maintainer "2017 Tjaart van der Walt" . "tjaart@tjaart.co.za") (:url . "http://github.com/tjaartvdwalt/bitbucket.el/"))]) (bitbake . [(20180326 758) ((emacs (24 1)) (dash (2 6 0)) (mmm-mode (0 5 4)) (s (1 10 0))) "Running bitbake from emacs" single ((:commit . "e5088c4b3dfb4feb96850fbc281b4207d23c7713") (:keywords "convenience") (:authors ("Damien Merenne")) (:maintainer "Damien Merenne") (:url . "https://github.com/canatella/bitbake-el"))]) (bison-mode . [(20160617 552) nil "Major mode for editing bison, yacc and lex files." single ((:commit . "314af3b7af7eb897fd3932616cb8600a85228cea") (:keywords "bison-mode" "yacc-mode") (:authors ("Eric Beuscher" . "beuscher@eecs.tulane.edu")) (:maintainer "Eric Beuscher" . "beuscher@eecs.tulane.edu"))]) (birds-of-paradise-plus-theme . [(20130419 2129) nil "A brown/orange light-on-dark theme for Emacs 24 (deftheme)." single ((:commit . "bb9f9d4ef7f7872a388ec4eee1253069adcadb6f") (:keywords "themes") (:authors ("Jim Myhrberg" . "contact@jimeh.me")) (:maintainer "Jim Myhrberg" . "contact@jimeh.me") (:url . "https://github.com/jimeh/birds-of-paradise-plus-theme.el"))]) (bing-dict . [(20181111 200) nil "Minimalists' English-Chinese Bing dictionary" tar ((:commit . "51266b11bca22923c3a86bc101abf9145d1397d3") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/bing-dict.el"))]) (bind-map . [(20161207 1511) ((emacs (24 3))) "Bind personal keymaps in multiple locations" single ((:commit . "bf4181e3a41463684adfffc6c5c305b30480e30f") (:authors ("Justin Burkett" . "justin@burkett.cc")) (:maintainer "Justin Burkett" . "justin@burkett.cc") (:url . "https://github.com/justbur/emacs-bind-map"))]) (bind-key . [(20180513 430) nil "A simple way to manage personal keybindings" single ((:commit . "39a8b8812c2c9f6f0b299e6a04e504ef393694ce") (:keywords "keys" "keybinding" "config" "dotemacs") (:authors ("John Wiegley" . "johnw@newartisans.com")) (:maintainer "John Wiegley" . "johnw@newartisans.com") (:url . "https://github.com/jwiegley/use-package"))]) (bind-chord . [(20171204 2010) ((bind-key (1 0)) (key-chord (0 6))) "key-chord binding helper for use-package-chords" single ((:commit . "39a8b8812c2c9f6f0b299e6a04e504ef393694ce") (:keywords "convenience" "tools" "extensions") (:authors ("Justin Talbott" . "justin@waymondo.com")) (:maintainer "Justin Talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/use-package-chords"))]) (binclock . [(20170802 1116) ((cl-lib (0 5))) "Display the current time using a binary clock." single ((:commit . "87042230d7f3fe3e9a77fae0dbab7d8f7e7794ad") (:keywords "games" "time" "display") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:url . "https://github.com/davep/binclock.el"))]) (bifocal . [(20181110 341) ((emacs (24 4))) "Split-screen scrolling for comint-mode buffers" single ((:commit . "add30c678488cec04976a85ba8cda20805938a01") (:keywords "frames" "processes" "tools") (:url . "https://github.com/riscy/bifocal-mode"))]) (bicycle . [(20180909 2126) ((emacs (25 1))) "cycle outline and code visibility" single ((:commit . "42a5db3514019d539500a67f913411f5533a1eb3") (:keywords "outlines") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/bicycle"))]) (bibtex-utils . [(20170817 1919) nil "Provides utilities for extending BibTeX mode" single ((:commit . "ed5ccce46c2088a28a2f0c49caa679d2f20567f0") (:keywords "bibtex") (:authors ("Tyler Smith" . "tyler@plantarum.ca")) (:maintainer "Tyler Smith" . "tyler@plantarum.ca") (:url . "https://github.com/plantarum/bibtex-utils"))]) (bibslurp . [(20151202 2346) ((s (1 6 0)) (dash (1 5 0))) "retrieve BibTeX entries from NASA ADS" single ((:commit . "aeba96368f2a06959e4fe945375ce2a54d34b189") (:keywords "bibliography" "nasa ads") (:url . "https://github.com/mkmcc/bibslurp"))]) (bibretrieve . [(20180901 928) ((auctex (11 87)) (emacs (24 3))) "Retrieve BibTeX entries from the internet" tar ((:commit . "600fa1fcc4c5d79c628457f2316f3429c96be006") (:keywords "bibtex" "bibliography" "mathscinet" "arxiv" "zbmath") (:authors ("Antonio Sartori")) (:maintainer "Pavel Zorin-Kranich" . "pzorin@uni-bonn.de") (:url . "https://github.com/pzorin/bibretrieve"))]) (bibliothek . [(20180429 2215) ((emacs (24 4)) (pdf-tools (0 70)) (a (0 1 0 -3 4))) "Managing a digital library of PDFs" single ((:commit . "05f2655321f020fd4c069d1939f0902eaa837eb4") (:keywords "tools") (:authors ("Göktuğ Kayaalp" . "self@gkayaalp.com")) (:maintainer "Göktuğ Kayaalp" . "self@gkayaalp.com") (:url . "https://cadadr.github.io/elisp/index.html#bibliothek-el"))]) (biblio-core . [(20160901 1815) ((emacs (24 3)) (let-alist (1 0 4)) (seq (1 11)) (dash (2 12 1))) "A framework for looking up and displaying bibliographic entries" single ((:commit . "a5a68fcf677f286f205f32dc7486f6c9f66aa6af") (:keywords "bib" "tex" "convenience" "hypermedia") (:authors ("Clément Pit-Claudel" . "clement.pitclaudel@live.com")) (:maintainer "Clément Pit-Claudel" . "clement.pitclaudel@live.com") (:url . "http://github.com/cpitclaudel/biblio.el"))]) (biblio . [(20161014 2304) ((emacs (24 3)) (biblio-core (0 2))) "Browse and import bibliographic references from CrossRef, arXiv, DBLP, HAL, Dissemin, and doi.org" tar ((:commit . "a5a68fcf677f286f205f32dc7486f6c9f66aa6af"))]) (bfbuilder . [(20150924 1650) ((cl-lib (0 3))) "A brainfuck development environment with interactive debugger" single ((:commit . "49560bdef131fa5672dab660e0c62376dbdcd906") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (bf-mode . [(20130403 1442) nil "Browse file persistently on dired" single ((:commit . "7cc4d09aed64d9db6be95646f5f5067de68f8895") (:keywords "convenience") (:authors ("isojin")) (:maintainer "myuhe <yuhei.maeda_at_gmail.com>") (:url . "https://github.com/emacs-jp/bf-mode"))]) (better-shell . [(20180625 1316) ((emacs (24 4))) "Better shell management" single ((:commit . "cfcd9d57f87ad68cd72bf4935fd1aaa1d9f059a9") (:keywords "convenience") (:authors ("Russell Black" . "killdash9@github")) (:maintainer "Russell Black" . "killdash9@github") (:url . "https://github.com/killdash9/better-shell"))]) (better-defaults . [(20170614 404) nil "Fixing weird quirks and poor defaults" single ((:commit . "ab830cf1a0987f43e419565404a4fa8c0a2f5560") (:keywords "convenience") (:authors ("Phil Hagelberg")) (:maintainer "Phil Hagelberg") (:url . "https://github.com/technomancy/better-defaults"))]) (bert . [(20131117 1014) nil "BERT serialization library for Emacs" single ((:commit . "a3eec6980a725aa4abd2019e4c00246450260490") (:keywords "comm" "data") (:authors ("Oleksandr Manzyuk" . "manzyuk@gmail.com")) (:maintainer "Oleksandr Manzyuk" . "manzyuk@gmail.com"))]) (benchstat . [(20171014 312) nil "proper benchmarking made simple" single ((:commit . "a5b67cf7972ca2bbc9f5bc6a0f521ab02b76d4f0") (:keywords "lisp") (:authors ("Iskander Sharipov" . "quasilyte@gmail.com")) (:maintainer "Iskander Sharipov" . "quasilyte@gmail.com") (:url . "https://github.com/Quasilyte/benchstat.el"))]) (benchmark-init . [(20150905 938) nil "Benchmarks Emacs require and load calls" tar ((:commit . "7a0f263282bbc86b01b662636306f22813082647") (:keywords "benchmark") (:authors ("Steve Purcell")) (:maintainer "David Holm" . "dholmster@gmail.com"))]) (belarus-holidays . [(20180615 1311) nil "Belarus holidays whith transfers" single ((:commit . "410a7dcf46fdcbee762a0c0aa0c7af03230b9656") (:authors ("Yauhen Makei" . "yauhen.makei@gmail.com")) (:maintainer "Yauhen Makei" . "yauhen.makei@gmail.com") (:url . "http://bitbucket.org/EugeneMakei/belarus-holidays.el"))]) (beginend . [(20180827 926) ((emacs (25 3))) "Redefine M-< and M-> for some modes" single ((:commit . "e4ff077de4a2c80e1f42adfc86837537899447a5") (:url . "https://github.com/DamienCassou/beginend"))]) (beeminder . [(20180413 1929) ((org (7))) "Emacs interface for Beeminder" tar ((:commit . "3fcee7a7003a37171ddb59171c7f4b5dd4b34349") (:keywords "beeminder") (:authors ("Phil Newton" . "phil@sodaware.net")) (:maintainer "Phil Newton" . "phil@sodaware.net") (:url . "http://www.philnewton.net/code/beeminder-el/"))]) (beacon . [(20181008 1350) ((seq (2 14))) "Highlight the cursor whenever the window scrolls" single ((:commit . "07a2e9566be2a0b8f59b8ac8668448f1e250a400") (:keywords "convenience") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/beacon"))]) (bdo . [(20140126 901) nil "Do things to a browser page from Emacs. BETA!" tar ((:commit . "c96cb6aa9e97fa3491185c50dee0f77a13241010") (:keywords "development") (:authors ("Chris Done" . "chrisdone@gmail.com")) (:maintainer "Chris Done" . "chrisdone@gmail.com"))]) (bbyac . [(20180206 1441) ((browse-kill-ring (1 3)) (cl-lib (0 5))) "Type a little Bit, and Bang! You Are Completed." tar ((:commit . "9f0de9cad13801891ffb590dc09f51ff9a7cb225") (:keywords "abbrev") (:authors ("Bao Haojun" . "baohaojun@gmail.com")) (:maintainer "Bao Haojun" . "baohaojun@gmail.com") (:url . "https://github.com/baohaojun/bbyac"))]) (bbdb2erc . [(20170221 1354) ((bbdb (3 0))) "make bbdb show if pal is online with ERC, click i to chat" single ((:commit . "15db2bd29df0f6ee32c499fdeffb960b6a7f97a0") (:keywords "irc" "contacts" "chat" "client" "internet") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org"))]) (bbdb-vcard . [(20181005 1019) ((bbdb (3 0))) "vCard import/export for BBDB" tar ((:commit . "3e8630a8c45add7b495d7ef290ba9f402b359489") (:keywords "data" "calendar" "mail" "news") (:authors ("Bert Burgemeister" . "trebbu@googlemail.com") ("Toke Høiland-Jørgensen") ("Kevin Brubeck Unhammer") ("Steve Purcell") ("Vincent Geddes" . "vincent.geddes@gmail.com")) (:maintainer "Bert Burgemeister" . "trebbu@googlemail.com") (:url . "http://github.com/vgeddes/bbdb-vcard"))]) (bbdb-ext . [(20151220 2013) ((bbdb (2 36))) "Extra commands for BBDB" single ((:commit . "fee97b1b3faa83edaea00fbc5ad3cbca5e791a55") (:keywords "extensions") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com") (:url . "https://github.com/vapniks/bbdb-ext"))]) (bbdb-csv-import . [(20180122 49) ((pcsv (1 3 3)) (dash (2 5 0)) (bbdb (20140412 1949))) "import csv to bbdb version 3+" single ((:commit . "dbc2e0fe9e8ae65e494011044d905ae79b3cee3e") (:keywords "csv" "util" "bbdb") (:authors ("Ian Kelling" . "ian@iankelling.org")) (:maintainer "Ian Kelling" . "ian@iankelling.org") (:url . "https://gitlab.com/iankelling/bbdb-csv-import"))]) (bbdb . [(20180907 311) nil "The Insidious Big Brother Database for GNU Emacs" tar ((:commit . "1a6ad82b11c7059f6a19fba575146cc31c6ffa8b"))]) (bbdb- . [(20140221 2354) ((bbdb (20140123 1541)) (log4e (0 2 0)) (yaxception (0 1))) "provide interface for more easily search/choice than BBDB." single ((:commit . "2839e84c894de2513af41053e80a277a1b483d22") (:keywords "bbdb" "news" "mail") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/bbdb-"))]) (bbcode-mode . [(20180505 927) ((cl-lib (0 5))) "Major mode for phpBB posts (BBCode markup)" single ((:commit . "ee30d43f9029e0919a06be0dde0ed16f201647c1") (:keywords "bbcode" "languages") (:authors ("Eric James Michael Ritz" . "lobbyjones@gmail.com")) (:maintainer "Lassi Kortela" . "lassi@lassi.io") (:url . "https://github.com/lassik/bbcode-mode"))]) (bazel-mode . [(20180223 653) ((emacs (24 3))) "A major mode for editing Bazel files" single ((:commit . "b7aa14516feaed40ee4910eafa81db719de0fe56") (:keywords "languages" "bazel") (:authors ("Neri Marschik")) (:maintainer "Neri Marschik") (:url . "https://github.com/codesuki/bazel-mode"))]) (bats-mode . [(20160514 615) nil "Emacs mode for editing and running Bats tests" single ((:commit . "d519f7c89f5ae17dfc33400596df4564b478315f") (:keywords "bats" "tests") (:authors ("Doug MacEachern")) (:maintainer "Doug MacEachern") (:url . "https://github.com/dougm/bats-mode"))]) (basic-theme . [(20160817 827) ((emacs (24))) "Minimalistic light color theme" single ((:commit . "e2a855bd39f4b78296228d4b790f9123156f7d7e") (:keywords "theme" "basic" "minimal" "colors") (:authors ("Felix Geller" . "fgeller@gmail.com")) (:maintainer "Felix Geller" . "fgeller@gmail.com") (:url . "http://github.com/fgeller/basic-theme.el"))]) (basic-mode . [(20180919 1752) ((seq (2 20)) (emacs (24 3))) "major mode for editing BASIC code" single ((:commit . "812f078240f9de09491701853569335ba6d9b5ff") (:keywords "basic" "languages") (:authors ("Johan Dykstrom")) (:maintainer "Johan Dykstrom") (:url . "https://github.com/dykstrom/basic-mode"))]) (basic-c-compile . [(20170302 1112) ((cl-lib (0 5)) (f (0 19 0))) "Quickly create a Makefile, compile and run C." single ((:commit . "0129786aeee50d7bb0020d9fc2b7508875d403e8") (:keywords "c" "makefile" "compilation" "convenience") (:authors ("Nick Spain" . "nicholas.spain96@gmail.com")) (:maintainer "Nick Spain" . "nicholas.spain96@gmail.com") (:url . "https://github.com/nick96/basic-c-compile"))]) (bash-completion . [(20180519 1620) nil "BASH completion for the shell buffer" single ((:commit . "fbdc78b8770833752ac4bda28e2c3ea764bf8e76") (:authors ("Stephane Zermatten" . "szermatt@gmx.net")) (:maintainer "Stephane Zermatten" . "szermatt@gmx.net"))]) (base16-theme . [(20181116 1843) nil "Collection of themes built on combinations of 16 base colors" tar ((:commit . "629c7e3eee756c088808322bbad996d05255f0e4") (:url . "https://github.com/belak/base16-emacs"))]) (bart-mode . [(20180201 229) ((emacs (24 3))) "Real time BART departures info." single ((:commit . "6feeb8f9badbc2ce4b60499bf7bf4acdae4cfed7") (:keywords "convenience" "transit") (:authors ("Michael Schuldt" . "mbschuldt@gmail.com")) (:maintainer "Michael Schuldt" . "mbschuldt@gmail.com") (:url . "https://github.com/mschuldt/bart-mode"))]) (bar-cursor . [(20180227 45) nil "package used to switch block cursor to a bar" single ((:commit . "20cb59bedc3532a712fe7feeff3660ebd72a8107") (:keywords "files") (:authors ("Joe Casadonte" . "emacs@northbound-train.com")) (:maintainer "Andrew Johnson" . "andrew@andrewjamesjohnson.com") (:url . "https://github.com/ajsquared/bar-cursor"))]) (bap-mode . [(20180802 1310) nil "Major-mode for BAP's IR" single ((:commit . "b74e583fa1e82046d79df21be225f9409698d293") (:keywords "languages") (:authors ("Thomas Barabosch <http://github/tbarabosch>")) (:maintainer "Thomas Barabosch" . "thomas.barabosch@fkie.fraunhofer.de") (:url . "https://github.com/fkie-cad/bap-mode"))]) (banner-comment . [(20180923 1911) ((emacs (24 4))) "For producing banner comments." single ((:commit . "ac52f6b24e590787a385c08cc3751d6f2ddca815") (:keywords "convenience") (:authors ("James Ferguson" . "james@faff.org")) (:maintainer "James Ferguson" . "james@faff.org") (:url . "https://github.com/WJCFerguson/banner-comment"))]) (badwolf-theme . [(20161004 715) ((emacs (24))) "Bad Wolf color theme" single ((:commit . "ea01a3d9358e968f75e3ed15dec6a2a96ce3d9a1") (:keywords "themes") (:authors ("bkruczyk" . "bartlomiej.kruczyk@gmail.com")) (:maintainer "bkruczyk" . "bartlomiej.kruczyk@gmail.com") (:url . "https://github.com/bkruczyk/badwolf-emacs"))]) (badger-theme . [(20140717 232) nil "A dark theme for Emacs 24." single ((:commit . "493d672d5a5478976da7d5ca752008cc7837c57f") (:authors ("Cody Canning" . "cocanning11@gmail.com")) (:maintainer "Cody Canning" . "cocanning11@gmail.com") (:url . "https://github.com/ccann/badger-theme"))]) (backward-forward . [(20161229 550) ((emacs (24 5))) "navigation backwards and forwards across marks" single ((:commit . "58489957a62a0da25dfb5df902624d2548d800b4") (:keywords "navigation" "convenience" "backward" "forward") (:authors ("Currell Berry" . "currellberry@gmail.com")) (:maintainer "Currell Berry" . "currellberry@gmail.com") (:url . "https://gitlab.com/vancan1ty/emacs-backward-forward/tree/master"))]) (backup-walker . [(20130720 1516) nil "quickly traverse all backups of a file" single ((:commit . "934a4128c122972ac32bb9952addf279a60a94da") (:keywords "backup") (:authors ("Le Wang")) (:maintainer "Le Wang") (:url . "https://github.com/lewang/backup-walker"))]) (backup-each-save . [(20180227 557) nil "backup each savepoint of a file" single ((:commit . "3c414b9d6b278911c95c5b8b71819e6af6f8a02a") (:authors ("Benjamin Rutt" . "brutt@bloomington.in.us")) (:maintainer "Conor Nash" . "conor@nashcobusinessservicesllc.com"))]) (backline . [(20181111 832) ((emacs (25 1)) (outline-minor-faces (0 1 0))) "Preserve appearance of outline headings" single ((:commit . "960deaef1d87658f79a0bd95c85946371d211590") (:keywords "outlines") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/tarsius/backline"))]) (backlight . [(20180629 2159) ((emacs (24 3))) "backlight brightness adjustment on GNU/Linux" single ((:commit . "096e632bf100d318754d6c961c90ebb0ef29dce5") (:keywords "hardware") (:authors ("Michael Schuldt" . "mbschuldt@gmail.com")) (:maintainer "Michael Schuldt" . "mbschuldt@gmail.com") (:url . "https://github.com/mschuldt/backlight.el"))]) (back-button . [(20150804 2004) ((nav-flash (1 0 0)) (smartrep (0 0 3)) (ucs-utils (0 7 2)) (list-utils (0 4 2)) (persistent-soft (0 8 8)) (pcache (0 2 3))) "Visual navigation through mark rings" single ((:commit . "98d92984a740acd1547bd7ed05cca0affdb21c3e") (:keywords "convenience" "navigation" "interface") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/back-button"))]) (babel-repl . [(20160504 2201) ((emacs (24))) "Run babel REPL" single ((:commit . "e619c16e349a1ee7bd0ee0d7f3650d33bff73fc3") (:keywords "babel" "javascript" "es6") (:authors ("Hung Phan")) (:maintainer "Hung Phan") (:url . "https://github.com/hung-phan/babel-repl/"))]) (babel . [(20181115 1210) nil "interface to web translation services such as Babelfish" single ((:commit . "972b133ca9054b900de4be8288f79c9896fef548") (:keywords "translation" "web") (:authors ("Juergen Hoetzel" . "juergen@hoetzel.info") ("Eric Marsden" . "emarsden@laas.fr")) (:maintainer "Juergen Hoetzel" . "juergen@hoetzel.info") (:url . "http://github.com/juergenhoetzel/babel"))]) (axiom-environment . [(20180823 955) ((emacs (24 2))) "An environment for using Axiom/OpenAxiom/FriCAS" tar ((:commit . "5d6b2cd12f639c11b032185c4c5fe4f5bba15b08") (:keywords "axiom" "openaxiom" "fricas") (:authors ("Paul Onions" . "paul.onions@acm.org")) (:maintainer "Paul Onions" . "paul.onions@acm.org"))]) (aws-snippets . [(20180410 1545) ((yasnippet (0 8 0))) "Yasnippets for AWS" tar ((:commit . "a2ebae582a8c8a5f5f16dbc42ecd2ded9d70fca8") (:keywords "snippets"))]) (aws-ec2 . [(20161007 1914) ((emacs (24 4)) (dash (2 12 1)) (tblui (0 1 0))) "Manage AWS EC2 instances" single ((:commit . "5601d4f268fc34b86a02ca90cde7d3771619a368") (:authors ("Yuki Inoue <inouetakahiroki _at_ gmail.com>")) (:maintainer "Yuki Inoue <inouetakahiroki _at_ gmail.com>") (:url . "https://github.com/Yuki-Inoue/aws.el"))]) (avy-zap . [(20160921 2144) ((avy (0 2 0))) "Zap to char using `avy'" single ((:commit . "6081738668ab726099ce1c711c580d9745dfaede") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/avy-zap"))]) (avy-migemo . [(20180716 1455) ((emacs (24 4)) (avy (0 4 0)) (migemo (1 9))) "avy with migemo" tar ((:commit . "922a6dd82c0bfa316b0fbb56a9d4dd4ffa5707e7") (:keywords "avy" "migemo") (:authors ("momomo5717")) (:maintainer "momomo5717") (:url . "https://github.com/momomo5717/avy-migemo"))]) (avy-menu . [(20180101 620) ((emacs (24 3)) (avy (0 3 0))) "Library providing avy-powered popup menu" single ((:commit . "b133564cc438870d9b5505c8104611c8998fd0d5") (:keywords "popup" "menu") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/avy-menu"))]) (avy-flycheck . [(20160720 1500) ((emacs (24 1)) (flycheck (0 14)) (seq (1 11)) (avy (0 4 0))) "Jump to and fix syntax errors using `flycheck' with `avy' interface" single ((:commit . "5522f3bbbed1801d9278ed696ec0cbba38352985") (:keywords "tools" "convenience" "avy" "flycheck") (:authors ("Xu Ma" . "magicdirac@gmail.com")) (:maintainer "Xu Ma" . "magicdirac@gmail.com") (:url . "https://github.com/magicdirac/avy-flycheck"))]) (avy . [(20181009 1648) ((emacs (24 1)) (cl-lib (0 5))) "Jump to arbitrary positions in visible text and select text quickly." single ((:commit . "df4c4ac488ee59bc44f8658d9fcca0c86fb32c5c") (:keywords "point" "location") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/avy"))]) (avk-emacs-themes . [(20180921 1233) nil "Collection of avk themes" tar ((:commit . "c0669408cfa423e0d38f990778232a771f63f05e") (:url . "https://github.com/avkoval/avk-emacs-themes"))]) (avandu . [(20170101 1903) nil "Gateway to Tiny Tiny RSS" tar ((:commit . "f44588d8e747fa880411cb4542cc39962252b90a") (:keywords "net") (:authors ("Tom Willemse" . "tom@ryuslash.org")) (:maintainer "Tom Willemse" . "tom@ryuslash.org"))]) (autumn-light-theme . [(20150515 1447) nil "A light color theme with muted, autumnal colors." single ((:commit . "1e3b2a43a3001e4a97a5ff073ba3f0d2ea3888f9") (:keywords "color" "theme") (:authors ("Adam Alpern" . "adam.alpern@gmail.com")) (:maintainer "Adam Alpern" . "adam.alpern@gmail.com") (:url . "http://github.com/aalpern/emacs-color-theme-autumn-light"))]) (autothemer . [(20180920 923) ((dash (2 10 0)) (emacs (24)) (cl-lib (0 5))) "Conveniently define themes." single ((:commit . "69488c71dfc182cf2e7be2d745037f230ade678e") (:authors ("Sebastian Sturm")) (:maintainer "Sebastian Sturm") (:url . "https://github.com/sebastiansturm/autothemer"))]) (autotetris-mode . [(20141114 1646) ((cl-lib (0 5))) "automatically play tetris" single ((:commit . "0c3a746dcc304a67d2a6e7ad4ef93f512486343a") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/autotetris-mode"))]) (autotest . [(20180323 2242) nil "ZenTest's autotest integration with emacs." single ((:commit . "4ce20cc5b25a1f1b4669ea8ff2880ec764eaf7da") (:keywords "testing" "ruby" "convenience") (:authors ("Ryan Davis" . "ryand-ruby@zenspider.com")) (:maintainer "Ryan Davis" . "ryand-ruby@zenspider.com") (:url . "https://github.com/zenspider/elisp/blob/master/autotest.el"))]) (autopair . [(20160304 1237) ((cl-lib (0 3))) "Automagically pair braces and quotes like TextMate" single ((:commit . "2b6d72bccb0ebba6e7e711528872b898b0c65b0a") (:keywords "convenience" "emulations") (:authors ("Joao Tavora <joaotavora [at] gmail.com>")) (:maintainer "Joao Tavora <joaotavora [at] gmail.com>") (:url . "https://github.com/capitaomorte/autopair"))]) (automargin . [(20131112 814) nil "add margins to windows not-splitted, and center them" single ((:commit . "4901d969ad69f5244e6300baab4ba04efed800c3") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (autodisass-llvm-bitcode . [(20150411 125) nil "Automatically disassemble LLVM bitcode" tar ((:commit . "d2579e3a1427af2dc947c343e49eb3434078bf04"))]) (autodisass-java-bytecode . [(20151005 1612) nil "Automatically disassemble Java bytecode" tar ((:commit . "3d61dbe266133c950b39e880f78d142751c7dc4c"))]) (autobookmarks . [(20180531 1906) ((dash (2 10 0)) (cl-lib (0 5))) "Save recently visited files and buffers" single ((:commit . "e971aa49d97da9f7ed760b37e0b674e45f1c5673") (:keywords "files") (:authors ("Matúš Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matúš Goljer" . "matus.goljer@gmail.com"))]) (auto-yasnippet . [(20180503 1908) ((yasnippet (0 8 0))) "Quickly create disposable yasnippets" single ((:commit . "623734aa418b18ff52cb65a0adb9e359aed31615") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/auto-yasnippet"))]) (auto-virtualenvwrapper . [(20181006 937) ((cl-lib (0 6)) (s (1 10 0)) (virtualenvwrapper (0))) "Lightweight auto activate python virtualenvs" single ((:commit . "72cc9168db475e8328019f9592493560dab832a5") (:keywords "python" "virtualenv" "tools") (:authors ("Marcwebbie" . "marcwebbie@gmail.com") ("Robert Zaremba" . "robert-zaremba@scale-it.pl")) (:maintainer "Marcwebbie" . "marcwebbie@gmail.com"))]) (auto-virtualenv . [(20170125 1917) ((cl-lib (0 5)) (pyvenv (1 9)) (s (1 10 0))) "Auto activate python virtualenvs" single ((:commit . "3826db66b417788e2b2eb138717255b1f52a55c3") (:keywords "python" "virtualenv" "tools") (:authors ("Marcwebbie" . "marcwebbie@gmail.com")) (:maintainer "Marcwebbie" . "marcwebbie@gmail.com") (:url . "http://github.com/marcwebbie/auto-virtualenv"))]) (auto-sudoedit . [(20180915 706) ((emacs (24)) (f (0 19 0))) "auto sudo edit by tramp" single ((:commit . "16bfa23e6d9c30968a6b6364ada17c88138255f3") (:authors ("ncaq" . "ncaq@ncaq.net")) (:maintainer "ncaq" . "ncaq@ncaq.net") (:url . "https://github.com/ncaq/auto-sudoedit"))]) (auto-shell-command . [(20180817 1502) ((deferred (20130312)) (popwin (20130329))) "Run the shell command asynchronously that you specified when you save the file." single ((:commit . "a8f9213e3c773b5687b81881240e6e648f2f56ba") (:keywords "shell" "save" "async" "deferred" "auto") (:authors ("ongaeshi")) (:maintainer "ongaeshi"))]) (auto-save-buffers-enhanced . [(20161109 710) nil "Automatically save buffers in a decent way" single ((:commit . "461e8c816c1b7c650be5f209078b381fe55da8c6") (:authors ("Kentaro Kuribayashi" . "kentarok@gmail.com")) (:maintainer "Kentaro Kuribayashi" . "kentarok@gmail.com"))]) (auto-read-only . [(20170306 443) ((cl-lib (0 5))) "Automatically make the buffer to read-only" single ((:commit . "79654f8fc024f383ae7af05487c1345738236500") (:keywords "files" "convenience") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/zonuexe/auto-read-only.el"))]) (auto-pause . [(20160426 1216) ((emacs (24 4))) "Run processes which will be paused when Emacs is idle" single ((:commit . "a4d778de774ca3895542cb559a953e0d98657338") (:keywords "convenience" "menu") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com") (:url . "https://github.com/lujun9972/auto-pause"))]) (auto-package-update . [(20180712 2045) ((emacs (24 4)) (dash (2 1 0))) "Automatically update Emacs packages." single ((:commit . "55870d313fbe9db40b1a2b59dbc420ba66a9297e") (:keywords "package" "update") (:authors ("Renan Ranelli")) (:maintainer "Renan Ranelli") (:url . "http://github.com/rranelli/auto-package-update.el"))]) (auto-org-md . [(20180213 2343) ((emacs (24 4))) "export a markdown file automatically when you save an org-file" single ((:commit . "9318338bdb7fe8bd698d88f3af89b2d6413efdd2") (:keywords "org" "markdown") (:authors ("jamcha" . "jamcha.aa@gmail.com")) (:maintainer "jamcha" . "jamcha.aa@gmail.com") (:url . "https://github.com/jamcha-aa/auto-org-md"))]) (auto-minor-mode . [(20180527 1123) ((emacs (24 4))) "Enable minor modes by file name and contents" single ((:commit . "c62f4e04c7b73835c399f0348bea0ade2720bcbb") (:keywords "convenience") (:authors ("Joe Wreschnig" . "joe.wreschnig@gmail.com")) (:maintainer "Joe Wreschnig" . "joe.wreschnig@gmail.com") (:url . "https://github.com/joewreschnig/auto-minor-mode"))]) (auto-indent-mode . [(20171222 506) nil "Auto indent Minor mode" tar ((:commit . "28069360a7f89ad0286fd6a53db550752ec58488") (:keywords "auto" "indentation") (:authors ("Matthew L. Fidler, Le Wang & Others")) (:maintainer "Matthew L. Fidler") (:url . "https://github.com/mlf176f2/auto-indent-mode.el/"))]) (auto-highlight-symbol . [(20130313 943) nil "Automatic highlighting current symbol minor mode" single ((:commit . "26573de912d760e04321b350897aea70958cee8b") (:keywords "highlight" "face" "match" "convenience") (:authors ("Mitsuo Saito" . "arch320@NOSPAM.gmail.com")) (:maintainer "Mitsuo Saito" . "arch320@NOSPAM.gmail.com") (:url . "http://github.com/gennad/auto-highlight-symbol/raw/master/auto-highlight-symbol.el"))]) (auto-dim-other-buffers . [(20180612 2341) nil "Makes non-current buffers less prominent" single ((:commit . "ec74b4803adeadf06296c84595fb6ccf4e1b4a3f") (:authors ("Steven Degutis") ("Michal Nazarewicz" . "mina86@mina86.com")) (:maintainer "Michal Nazarewicz" . "mina86@mina86.com") (:url . "https://github.com/mina86/auto-dim-other-buffers.el"))]) (auto-dictionary . [(20150410 1610) nil "automatic dictionary switcher for flyspell" single ((:commit . "b364e08009fe0062cf0927d8a0582fad5a12b8e7") (:keywords "wp") (:authors ("Nikolaj Schumacher <bugs * nschum de>")) (:maintainer "Nikolaj Schumacher <bugs * nschum de>") (:url . "http://nschum.de/src/emacs/auto-dictionary/"))]) (auto-complete-sage . [(20160514 751) ((auto-complete (1 5 1)) (sage-shell-mode (0 1 0))) "An auto-complete source for sage-shell-mode." single ((:commit . "51b8e3905196d266e1f8aa47881189833151b398") (:keywords "sage" "math" "auto-complete") (:authors ("Sho Takemori" . "stakemorii@gmail.com")) (:maintainer "Sho Takemori" . "stakemorii@gmail.com") (:url . "https://github.com/stakemori/auto-complete-sage"))]) (auto-complete-rst . [(20140225 944) ((auto-complete (1 4))) "Auto-complete extension for ReST and Sphinx" tar ((:commit . "4803ce41a96224e6fa54e6741a5b5f40ebed7351") (:authors ("ARAKAKI, Takafumi")) (:maintainer "ARAKAKI, Takafumi") (:url . "https://github.com/tkf/auto-complete-rst"))]) (auto-complete-pcmp . [(20140227 651) ((auto-complete (1 4 0)) (log4e (0 2 0)) (yaxception (0 1))) "Provide auto-complete sources using pcomplete results" single ((:commit . "2595d3dab1ef3549271ca922f212928e9d830eec") (:keywords "completion") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/auto-complete-pcmp"))]) (auto-complete-nxml . [(20140221 458) ((auto-complete (1 4))) "do completion by auto-complete.el on nXML-mode" single ((:commit . "ac7b09a23e45f9bd02affb31847263de4180163a") (:keywords "completion" "html" "xml") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com") (:url . "https://github.com/aki2o/auto-complete-nxml"))]) (auto-complete-exuberant-ctags . [(20140320 724) ((auto-complete (1 4 0))) "Exuberant ctags auto-complete.el source" single ((:commit . "ff6121ff8b71beb5aa606d28fd389c484ed49765") (:keywords "anto-complete" "exuberant ctags") (:authors ("Kenichirou Oyama" . "k1lowxb@gmail.com")) (:maintainer "Kenichirou Oyama" . "k1lowxb@gmail.com") (:url . "http://code.101000lab.org"))]) (auto-complete-distel . [(20180827 1344) ((auto-complete (1 4)) (distel-completion-lib (1 0 0))) "Erlang/distel completion backend for auto-complete-mode" single ((:commit . "acc4c0a5521904203d797fe96b08e5fae4233c7e") (:keywords "erlang" "distel" "auto-complete") (:authors ("Sebastian Weddmark Olsson")) (:maintainer "Sebastian Weddmark Olsson") (:url . "github.com/sebastiw/distel-completion"))]) (auto-complete-clang-async . [(20130526 1514) nil "Auto Completion source for clang for GNU Emacs" single ((:commit . "5d9c5cabbb6b31e0ac3637631c0c8b25184aa8b4") (:keywords "completion" "convenience"))]) (auto-complete-clang . [(20140409 752) ((auto-complete (1 3 1))) "Auto Completion source for clang for GNU Emacs" single ((:commit . "a195db1d0593b4fb97efe50885e12aa6764d998c") (:keywords "completion" "convenience") (:authors ("Brian Jiang" . "brianjcj@gmail.com")) (:maintainer "Brian Jiang" . "brianjcj@gmail.com") (:url . "https://github.com/brianjcj/auto-complete-clang"))]) (auto-complete-chunk . [(20140225 946) ((auto-complete (1 4))) "Auto-completion for dot.separated.words." single ((:commit . "a9aa77ffb84a1037984a7ce4dda25074272f13fe") (:authors ("ARAKAKI, Takafumi")) (:maintainer "ARAKAKI, Takafumi") (:url . "https://github.com/tkf/auto-complete-chunk"))]) (auto-complete-c-headers . [(20150912 323) ((auto-complete (1 4))) "An auto-complete source for C/C++ header files" single ((:commit . "52fef720c6f274ad8de52bef39a343421006c511") (:keywords "c") (:authors ("Masafumi Oyamada" . "stillpedant@gmail.com")) (:maintainer "Masafumi Oyamada" . "stillpedant@gmail.com"))]) (auto-complete-auctex . [(20140223 1758) ((yasnippet (0 6 1)) (auto-complete (1 4))) "auto-completion for auctex" single ((:commit . "855633f668bcc4b9408396742a7cb84e0c4a2f77") (:authors ("Christopher Monsanto" . "chris@monsan.to")) (:maintainer "Christopher Monsanto" . "chris@monsan.to"))]) (auto-complete . [(20170125 245) ((popup (0 5 0)) (cl-lib (0 5))) "Auto Completion for GNU Emacs" tar ((:commit . "2e83566ddfa758c69afe50b8a1c62a66f47471e3"))]) (auto-compile . [(20180321 1507) ((emacs (24 3)) (packed (2 0 0))) "automatically compile Emacs Lisp libraries" single ((:commit . "6ce4255ab9a0b010ef8414c5bd9a6d6d9eea012f") (:keywords "compile" "convenience" "lisp") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li") (:url . "https://github.com/emacscollective/auto-compile"))]) (auto-auto-indent . [(20131106 1903) ((es-lib (0 1)) (cl-lib (1 0))) "Indents code as you type" single ((:commit . "0139378577f936d34b20276af6f022fb457af490") (:authors ("sabof")) (:maintainer "sabof") (:url . "https://github.com/sabof/auto-auto-indent"))]) (auto-async-byte-compile . [(20160916 454) nil "Automatically byte-compile when saved" single ((:commit . "8681e74ddb8481789c5dbb3cafabb327db4c4484") (:keywords "lisp" "convenience") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/auto-async-byte-compile.el"))]) (auth-source-pass . [(20181106 1348) ((emacs (25))) "Integrate auth-source with password-store" single ((:commit . "63c0631896b2f2ed6b359e026c6a7949932aa0bf") (:authors ("Damien Cassou" . "damien@cassou.me") ("Nicolas Petton" . "nicolas@petton.fr")) (:maintainer "Damien Cassou" . "damien@cassou.me") (:url . "https://github.com/DamienCassou/auth-password-store"))]) (aurora-config-mode . [(20180216 2302) nil "Major mode for Apache Aurora configuration files" single ((:commit . "8273ec7937a21b469b9dbb6c11714255b890f410") (:keywords "languages" "configuration") (:authors ("Berk D. Demir" . "bdd@mindcast.org")) (:maintainer "Berk D. Demir" . "bdd@mindcast.org") (:url . "https://github.com/bdd/aurora-config.el"))]) (aurel . [(20170114 937) ((emacs (24 3)) (bui (1 1 0)) (dash (2 11 0))) "Search, get info, vote for and download AUR packages" single ((:commit . "fc7ad208f43f8525f84a18941c9b55f956df8961") (:keywords "tools") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/aurel"))]) (audio-notes-mode . [(20170611 2159) nil "Play audio notes synced from somewhere else." single ((:commit . "fa38350829c7e97257efc746a010471d33748a68") (:keywords "hypermedia" "convenience") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com") (:url . "http://github.com/Bruce-Connor/audio-notes-mode"))]) (auctex-lua . [(20151121 1610) ((auctex (11 86)) (lua-mode (20130419))) "Lua editing support for AUCTeX" single ((:commit . "799cd8ac10c96991bb63d9aa60528ae5d8c786b5") (:keywords "latex" "lua") (:authors ("Sean Allred" . "seallred@smcm.edu")) (:maintainer "Sean Allred" . "seallred@smcm.edu") (:url . "http://github.com/vermiculus/auctex-lua"))]) (auctex-latexmk . [(20170618 1636) ((auctex (11 87))) "Add LatexMk support to AUCTeX" single ((:commit . "4d353522650d7685acbf1d38f7dbc504f734bd84") (:keywords "tex") (:authors ("Tomoya Tanjo" . "ttanjo@gmail.com")) (:maintainer "Tomoya Tanjo" . "ttanjo@gmail.com") (:url . "https://github.com/tom-tan/auctex-latexmk/"))]) (attrap . [(20181114 841) ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) "ATtempt To Repair At Point" single ((:commit . "f0336cf81a7e3a368a29d7125db652494d28ad61") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap"))]) (atomic-chrome . [(20180617 724) ((emacs (24 3)) (let-alist (1 0 4)) (websocket (1 4))) "Edit Chrome text area with Emacs using Atomic Chrome" single ((:commit . "a505f638866f9e7b913784be0dc84f338e9ad449") (:keywords "chrome" "edit" "textarea") (:authors ("alpha22jp" . "alpha22jp@gmail.com")) (:maintainer "alpha22jp" . "alpha22jp@gmail.com") (:url . "https://github.com/alpha22jp/atomic-chrome"))]) (atom-one-dark-theme . [(20181010 1348) nil "Atom One Dark color theme" single ((:commit . "8cba629dce7a2c53c690337915fdcaa80b4af769") (:authors ("Jonathan Chu" . "me@jonathanchu.is")) (:maintainer "Jonathan Chu" . "me@jonathanchu.is") (:url . "https://github.com/jonathanchu/atom-one-dark-theme"))]) (atom-dark-theme . [(20181022 1602) nil "An Emacs port of the Atom Dark theme from Atom.io." single ((:commit . "5c8610d0b45a536b8f7f9777297c86362685a357") (:keywords "themes" "atom" "dark") (:authors (nil . "Jeremy Whitlock <jwhitlock@apache.org")) (:maintainer nil . "Jeremy Whitlock <jwhitlock@apache.org") (:url . "https://github.com/whitlockjc/atom-dark-theme-emacs"))]) (async-await . [(20170208 1150) ((emacs (25)) (promise (1 0))) "Async/Await" single ((:commit . "56ab90e4019ed1f81fd4ad9e8701b5cec7ffa795") (:keywords "async" "await" "convenience") (:authors ("chuntaro" . "chuntaro@sakura-games.jp")) (:maintainer "chuntaro" . "chuntaro@sakura-games.jp") (:url . "https://github.com/chuntaro/emacs-async-await"))]) (async . [(20180527 1730) nil "Asynchronous processing in Emacs" tar ((:commit . "d17c11e6082aa51f421bb037b828bdb15f405618") (:keywords "async") (:url . "https://github.com/jwiegley/emacs-async"))]) (assess . [(20170504 1357) ((emacs (24 1)) (m-buffer (0 15))) "Test support functions" tar ((:commit . "e5b0415126c6bd24bd220759ff04220d963a0195") (:authors ("Phillip Lord" . "phillip.lord@russet.org.uk")) (:maintainer "Phillip Lord" . "phillip.lord@russet.org.uk"))]) (asn1-mode . [(20170729 226) ((emacs (24 3)) (s (1 10 0))) "ASN.1/GDMO mode for GNU Emacs" single ((:commit . "d5d4a8259daf708411699bcea85d322f18beb972") (:keywords "languages" "processes" "tools") (:authors ("Taichi Kawabata <kawabata.taichi_at_gmail.com>")) (:maintainer "Taichi Kawabata <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/asn1-mode/"))]) (asilea . [(20150105 1525) ((emacs (24)) (cl-lib (0 5))) "Find best compiler options using simulated annealing" single ((:commit . "2aab1cc63b64ef08d12e84fd7ba5c94065f6039f") (:authors ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Fanael Linithien" . "fanael4@gmail.com") (:url . "https://github.com/Fanael/asilea"))]) (arview . [(20160419 2109) nil "extract and view archives in the temporary directory" single ((:commit . "5437b4221b64b238c273a651d4792c577dba6d45") (:keywords "files") (:authors ("Andrey Fainer" . "fandrey@gmx.com")) (:maintainer "Andrey Fainer" . "fandrey@gmx.com") (:url . "https://github.com/afainer/arview"))]) (artbollocks-mode . [(20170524 422) nil "Improve your writing (especially about art)" single ((:commit . "33a41ca4f8206f57e5498a526d3b0ea18d08bb93") (:authors ("Rob Myers <rob@robmyers.org>, Sacha Chua" . "sacha@sachachua.com")) (:maintainer "Rob Myers <rob@robmyers.org>, Sacha Chua" . "sacha@sachachua.com") (:url . "https://github.com/sachac/artbollocks-mode"))]) (arjen-grey-theme . [(20170522 2047) nil "A soothing dark grey theme" single ((:commit . "4cd0be72b65d42390e2105cfdaa408a1ead8d8d1") (:keywords "faces") (:authors ("Arjen Wiersma" . "arjen@wiersma.org")) (:maintainer "Arjen Wiersma" . "arjen@wiersma.org") (:url . "https://github.com/credmp/arjen-grey"))]) (ariadne . [(20131117 1711) ((bert (0 1))) "Ariadne plugin for Emacs" single ((:commit . "6fe401c7f996bcbc2f685e7971324c6f5e5eaf15") (:keywords "comm" "convenience" "processes") (:authors ("Oleksandr Manzyuk" . "manzyuk@gmail.com")) (:maintainer "Oleksandr Manzyuk" . "manzyuk@gmail.com"))]) (aria2 . [(20141107 2317) ((emacs (24 4))) "Control aria2c commandline tool from Emacs" single ((:commit . "7a944c5100812269369225af7aa9580fedab175f") (:keywords "download" "bittorrent" "aria2") (:authors ("Łukasz Gruner" . "lukasz@gruner.lu")) (:maintainer "Łukasz Gruner" . "lukasz@gruner.lu") (:url . "https://bitbucket.org/ukaszg/aria2-mode"))]) (arduino-mode . [(20180509 36) ((emacs (25)) (cl-lib (0 5)) (spinner (1 7 3))) "Major mode for editing Arduino code." tar ((:commit . "e39cb1c02acb6676aea35f93fbd0d86badce6a38") (:keywords "languages" "arduino") (:maintainer "stardiviner" . "numbchild@gmail.com") (:url . "https://github.com/stardiviner/arduino-mode"))]) (archive-rpm . [(20180706 1232) ((emacs (24 4))) "RPM and CPIO support for archive-mode" tar ((:commit . "59f83caebbd2f92fd634f6968e6d17b50ffa3dc7"))]) (archive-region . [(20140201 2342) nil "Move region to archive file instead of killing" single ((:commit . "0d357d4c42a6a248c457f358f81b20fd20fede2f") (:keywords "languages") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "http://www.emacswiki.org/cgi-bin/wiki/download/archive-region.el"))]) (arch-packer . [(20170730 1321) ((emacs (25 1)) (s (1 11 0)) (async (1 9 2)) (dash (2 12 0))) "Arch Linux package management frontend" single ((:commit . "940e96f7d357c6570b675a0f942181c787f1bfd7") (:authors ("Fritz Stelzer" . "brotzeitmacher@gmail.com")) (:maintainer "Fritz Stelzer" . "brotzeitmacher@gmail.com") (:url . "https://github.com/brotzeitmacher/arch-packer"))]) (apt-sources-list . [(20180527 1241) ((emacs (24 4))) "Mode for editing APT source.list files" single ((:commit . "44112833b3fa7f4d7e43708e5996782e22bb2fa3") (:authors ("Dr. Rafael Sepúlveda" . "drs@gnulinux.org.mx")) (:maintainer "Joe Wreschnig" . "joe.wreschnig@gmail.com") (:url . "https://git.korewanetadesu.com/apt-sources-list.git"))]) (apropospriate-theme . [(20181111 2112) nil "A colorful, low-contrast, light & dark theme set for Emacs with a fun name." tar ((:commit . "88c243ec90c1df7918c463b5a7ec875d057e8999") (:keywords "color" "theme") (:url . "https://github.com/waymondo/apropospriate-theme"))]) (aproject . [(20150605 906) nil "Basic project framework for Emacs" tar ((:commit . "3c7d23c341862dfd77fd0a64775df12ddb44ab54") (:keywords "environment" "project") (:authors ("Vietor Liu" . "vietor.liu@gmail.com")) (:maintainer "Vietor Liu" . "vietor.liu@gmail.com") (:url . "https://github.com/vietor/aproject"))]) (applescript-mode . [(20090321 632) nil "major mode for editing AppleScript source" single ((:commit . "8f888cd80af1e0902b5609143facd3051bc94892") (:keywords "languages" "tools") (:authors ("sakito" . "sakito@users.sourceforge.jp")) (:maintainer "sakito" . "sakito@users.sourceforge.jp"))]) (apples-mode . [(20110121 418) nil "Major mode for editing and executing AppleScript code" tar ((:commit . "83a9ab0d6ba82496e2f7df386909b1a55701fccb") (:keywords "applescript" "languages") (:authors ("tequilasunset" . "tequilasunset.mac@gmail.com")) (:maintainer "tequilasunset" . "tequilasunset.mac@gmail.com"))]) (apiwrap . [(20180602 2231) ((emacs (25))) "api-wrapping macros" single ((:commit . "e4c9c57d6620a788ec8a715ff1bb50542edea3a6") (:keywords "tools" "maint" "convenience") (:authors ("Sean Allred" . "code@seanallred.com")) (:maintainer "Sean Allred" . "code@seanallred.com") (:url . "https://github.com/vermiculus/apiwrap.el"))]) (apib-mode . [(20170520 1358) ((markdown-mode (2 1))) "Major mode for API Blueprint files" single ((:commit . "6cc7c6f21b8e415b1718bb6a07ab2182e9e9dde6") (:keywords "tools" "api-blueprint") (:authors ("Vilibald Wanča" . "vilibald@wvi.cz")) (:maintainer "Vilibald Wanča" . "vilibald@wvi.cz") (:url . "http://github.com/w-vi/apib-mode"))]) (apel . [(20170122 2258) nil "APEL (A Portable Emacs Library) provides support for portable Emacs Lisp programs" tar ((:commit . "339eb28ffae3165255a79de9b1fd362f43cd37c3"))]) (apache-mode . [(20180724 351) nil "major mode for editing Apache configuration files" single ((:commit . "d2ac57942f852a727db4fc73004e1e8f046cb657") (:keywords "languages" "faces") (:authors ("Karl Chen" . "quarl@nospam.quarl.org")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:url . "https://github.com/emacs-php/apache-mode"))]) (aozora-view . [(20140310 1317) nil "Aozora Bunko text Emacs viewer." tar ((:commit . "b0390616d19e45f15f9a2f5d5688274831e721fd") (:keywords "text") (:authors ("KAWABATA, Taichi <kawabata.taichi_at_gmail.com>")) (:maintainer "KAWABATA, Taichi <kawabata.taichi_at_gmail.com>") (:url . "https://github.com/kawabata/aozora-view"))]) (anzu . [(20161017 1607) ((emacs (24 3))) "Show number of matches in mode-line while searching" single ((:commit . "e6c56ca8b23ac433f7be58b6f3f50801dd4164e4") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-anzu"))]) (anyins . [(20131229 1041) nil "Insert content at multiple places from shell command or kill-ring" single ((:commit . "83844c17ac9b5b6c7655ee556b75689e4c8ea663") (:keywords "insert" "rectangular") (:authors ("Anthony HAMON" . "hamon.anth@gmail.com")) (:maintainer "Anthony HAMON" . "hamon.anth@gmail.com") (:url . "http://github.com/antham/anyins"))]) (anybar . [(20160816 1421) nil "Control AnyBar from Emacs" single ((:commit . "7a0743e0d31bcb36ab1bb2e351f3e7139c422ac5") (:keywords "anybar") (:authors ("Christopher Shea" . "cmshea@gmail.com")) (:maintainer "Christopher Shea" . "cmshea@gmail.com"))]) (anx-api . [(20140208 1514) nil "Interact with the AppNexus API from Emacs." single ((:commit . "b2411ebc966ac32c3ffc61bc22bf183834df0fa0") (:keywords "convenience" "json" "rest" "api" "appnexus") (:authors ("Rich Loveland")) (:maintainer "Rich Loveland"))]) (anti-zenburn-theme . [(20180712 1838) nil "Low-contrast Zenburn-inverted theme" single ((:commit . "dbafbaa86be67c1d409873f57a5c0bbe1e7ca158") (:authors ("Andrey Kotlarski" . "m00naticus@gmail.com")) (:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com") (:url . "https://github.com/m00natic/anti-zenburn-theme"))]) (ant . [(20160211 1543) nil "helpers for compiling with ant" single ((:commit . "510b5a3f57ee4b2855422d88d359a28922c1ab70") (:keywords "compilation" "ant" "java"))]) (ansible-vault . [(20181116 1706) ((emacs (24 3))) "Minor mode for editing ansible vault files" single ((:commit . "d16389f44a4e76a12c789fe65df20692c7113685") (:keywords "ansible" "ansible-vault" "tools") (:maintainer "Zachary Elliott" . "contact@zell.io") (:url . "http://github.com/zellio/ansible-vault-mode"))]) (ansible-doc . [(20160924 824) ((emacs (24 3))) "Ansible documentation Minor Mode" single ((:commit . "86083a7bb2ed0468ca64e52076b06441a2f8e9e0") (:keywords "tools" "help") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn") (:url . "https://github.com/lunaryorn/ansible-doc.el"))]) (ansible . [(20180813 114) ((s (1 9 0)) (f (0 16 2))) "Ansible minor mode" tar ((:commit . "8a097176d6772b6667254dbbe19c5fb64527bf5d") (:authors ("k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>")) (:maintainer "k1LoW (Kenichirou Oyama), <k1lowxb [at] gmail [dot] com> <k1low [at] 101000lab [dot] org>") (:url . "http://101000lab.org"))]) (ansi . [(20150703 826) ((s (1 6 1)) (dash (1 5 0))) "Turn string into ansi strings" single ((:commit . "12b4c5d91b3da1902838f421e5af6d40e2cd57dd") (:keywords "color" "ansi") (:authors ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com") (:url . "http://github.com/rejeep/ansi"))]) (annoying-arrows-mode . [(20161024 646) ((cl-lib (0 5))) "Ring the bell if using arrows too much" single ((:commit . "3c42e9807d7696da2da2a21b63beebf9cdb3f5dc") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))]) (annotate-depth . [(20160520 2040) nil "Annotate buffer if indentation depth is beyond threshold." single ((:commit . "fcb24fa36287250e40d195590c4ca4a8a696277b") (:keywords "convenience") (:authors ("Morten Slot Kristensen <msk AT nullpointer DOT dk>")) (:maintainer "Morten Slot Kristensen <msk AT nullpointer DOT dk>") (:url . "https://github.com/netromdk/annotate-depth"))]) (annotate . [(20171111 736) nil "annotate files without changing them" single ((:commit . "dedbd9e5d5286f1ca8ad73e489d408a20f06156c") (:authors ("Bastian Bechtold")) (:maintainer "Bastian Bechtold") (:url . "https://github.com/bastibe/annotate.el"))]) (anki-mode . [(20181106 1837) ((emacs (24 4)) (dash (2 12 0)) (markdown-mode (2 2)) (s (1 11 0)) (request (0 3 0))) "A major mode for creating anki cards" single ((:commit . "365fcfff45ed543f3df0d4110415f6f818ec2727") (:keywords "tools") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com") (:url . "https://github.com/davidshepherd7/anki-mode"))]) (anki-editor . [(20181005 838) ((emacs (25)) (request (0 3 0)) (dash (2 12 0))) "Minor mode for making Anki cards with Org" tar ((:commit . "0bee0064bc23ff2b3b6fc29beba97346576b380d") (:authors ("Lei Tan")) (:maintainer "Lei Tan") (:url . "https://github.com/louietan/anki-editor"))]) (angular-snippets . [(20140514 523) ((s (1 4 0)) (dash (1 2 0))) "Yasnippets for AngularJS" tar ((:commit . "af5ae0a4a8603b040446c28afcf6ca01a8b4bd7b"))]) (angular-mode . [(20151201 2127) nil "Major mode for Angular.js" tar ((:commit . "8720cde86af0f1859ccc8580571e8d0ad1c52cff") (:keywords "languages" "javascript") (:authors ("Rudolf Olah" . "omouse@gmail.com")) (:maintainer "Rudolf Olah" . "omouse@gmail.com") (:url . "https://github.com/omouse/angularjs-mode"))]) (angry-police-captain . [(20120829 1252) nil "Show quote from http://theangrypolicecaptain.com in the minibuffer" single ((:commit . "d11931c5cb63368dcc4a48797962428cca6d3e9d") (:keywords "games" "web" "fun") (:authors ("Rolando Pereira" . "rolando_pereira@sapo.pt")) (:maintainer "Rolando Pereira" . "rolando_pereira@sapo.pt"))]) (android-mode . [(20181016 709) nil "Minor mode for Android application development" single ((:commit . "f8cabafaa266b56fcf4b3c6942b3ae062735251a") (:keywords "tools" "processes") (:authors ("R.W. van 't Veer")) (:maintainer "R.W. van 't Veer") (:url . "https://github.com/remvee/android-mode"))]) (anaphora . [(20180618 2200) nil "anaphoric macros providing implicit temp variables" single ((:commit . "3b2da3f759b244975852e79721c4a2dbad3905cf") (:keywords "extensions") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com") (:url . "http://github.com/rolandwalker/anaphora"))]) (anaconda-mode . [(20181030 2109) ((emacs (25)) (pythonic (0 1 0)) (dash (2 6 0)) (s (1 9)) (f (0 16 2))) "Code navigation, documentation lookup and completion for Python" single ((:commit . "21a6218c2299575c82573a5c2c773d72b0f8be0d") (:authors ("Artem Malyshev" . "proofit404@gmail.com")) (:maintainer "Artem Malyshev" . "proofit404@gmail.com") (:url . "https://github.com/proofit404/anaconda-mode"))]) (amx . [(20181011 2251) ((emacs (24 4)) (s (0))) "Alternative M-x with extra features." single ((:commit . "4b08edb34c4d9c807ef1a820a629cda15e2347a0") (:keywords "convenience" "usability") (:authors ("Ryan C. Thompson" . "rct@thompsonclan.org") ("Cornelius Mika" . "cornelius.mika@gmail.com")) (:maintainer "Ryan C. Thompson" . "rct@thompsonclan.org") (:url . "http://github.com/DarwinAwardWinner/amx/"))]) (ample-zen-theme . [(20150119 2154) nil "AmpleZen Theme for Emacs 24" single ((:commit . "b277bb7abd4b6624e8d59f02474b79af50a007bd") (:keywords "theme" "dark" "emacs 24") (:authors ("Michael Wall")) (:maintainer "Michael Wall") (:url . "https://github.com/mjwall/ample-zen"))]) (ample-theme . [(20180207 1745) nil "Calm Dark Theme for Emacs" tar ((:commit . "366698400c555211c2082962a5d74f3dd79a78c8") (:keywords "theme" "dark") (:authors ("Jordon Biondo" . "jordonbiondo@gmail.com")) (:maintainer "Jordon Biondo" . "jordonbiondo@gmail.com") (:url . "https://github.com/jordonbiondo/ample-theme"))]) (ample-regexps . [(20151023 1000) nil "ample regular expressions for Emacs" tar ((:commit . "cbe91e148cac1ee8e223874dc956ed4cf607f046") (:keywords "regexps" "extensions" "tools") (:authors ("immerrr" . "immerrr@gmail.com")) (:maintainer "immerrr" . "immerrr@gmail.com"))]) (amd-mode . [(20180111 1402) ((emacs (25)) (projectile (20161008 47)) (s (1 9 0)) (f (0 16 2)) (seq (2 16)) (makey (0 3)) (js2-mode (20140114)) (js2-refactor (0 6 1))) "Minor mode for handling JavaScript AMD module requirements." single ((:commit . "01fd19e0d635ccaf8e812364d8720733f2e84126") (:keywords "javascript" "amd" "projectile") (:authors ("Nicolas Petton" . "petton.nicolas@gmail.com")) (:maintainer "Nicolas Petton" . "petton.nicolas@gmail.com"))]) (all-the-icons-ivy . [(20180826 2016) ((emacs (24 4)) (all-the-icons (2 4 0)) (ivy (0 8 0))) "Shows icons while using ivy and counsel" single ((:commit . "7baba16410e78ca3c7a564c3731baa75b2e8d93a") (:keywords "faces") (:authors ("asok")) (:maintainer "asok"))]) (all-the-icons-gnus . [(20180511 654) ((emacs (24 4)) (dash (2 12 0)) (all-the-icons (3 1 0))) "Shows icons for in Gnus" single ((:commit . "27f78996da0725943bcfb2d18038e6f7bddfa9c7") (:keywords "mail" "tools") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com"))]) (all-the-icons-dired . [(20170418 2131) ((emacs (24 4)) (all-the-icons (2 2 0))) "Shows icons for each file in dired mode" single ((:commit . "980b7747d6c4a7992a1ec56afad908956db0a519") (:keywords "files" "icons" "dired") (:authors ("jtbm37")) (:maintainer "jtbm37"))]) (all-the-icons . [(20180125 1557) ((emacs (24 3)) (memoize (1 0 1))) "A library for inserting Developer icons" tar ((:commit . "52d1f2d36468146c93aaf11399f581401a233306") (:keywords "convenient" "lisp") (:authors ("Dominic Charlesworth" . "dgc336@gmail.com")) (:maintainer "Dominic Charlesworth" . "dgc336@gmail.com") (:url . "https://github.com/domtronn/all-the-icons.el"))]) (all-ext . [(20170115 205) ((all (1 0))) "M-x all with helm-swoop/anything/multiple-cursors/line-number" single ((:commit . "9f4ef84a147cf4e0af6ef45826d6cb3558db6b88") (:keywords "all" "search" "replace" "anything" "helm" "helm-swoop" "occur") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org") (:url . "https://github.com/rubikitch/all-ext"))]) (align-cljlet . [(20160112 2101) ((clojure-mode (1 11 5))) "Space align various Clojure forms" single ((:commit . "602d72a7ad52788a0265e3c6da519464a98166b8") (:url . "https://github.com/gstamp/align-cljlet"))]) (alert . [(20181022 1742) ((gntp (0 1)) (log4e (0 3 0)) (cl-lib (0 5))) "Growl-style notification system for Emacs" single ((:commit . "9f329be87820474925f29b52a1131084c8ea95b9") (:keywords "notification" "emacs" "message") (:authors ("John Wiegley" . "jwiegley@gmail.com")) (:maintainer "John Wiegley" . "jwiegley@gmail.com") (:url . "https://github.com/jwiegley/alert"))]) (alect-themes . [(20180504 1720) ((emacs (24 0))) "Configurable light, dark and black themes for Emacs 24 or later" tar ((:commit . "4d90833a7381123a979f73fa97a013071ca7ff00") (:keywords "color" "theme") (:authors ("Alex Kost" . "alezost@gmail.com")) (:maintainer "Alex Kost" . "alezost@gmail.com") (:url . "https://github.com/alezost/alect-themes"))]) (alda-mode . [(20180608 605) ((emacs (24 0))) "An Alda major mode" single ((:commit . "c49dad79591de6662bf5f4eb79acac1d5dd2610e") (:keywords "alda" "highlight") (:authors ("Jay Kamat" . "jaygkamat@gmail.com")) (:maintainer "Jay Kamat" . "jaygkamat@gmail.com") (:url . "http://gitlab.com/jgkamat/alda-mode"))]) (alchemist . [(20180312 1304) ((elixir-mode (2 2 5)) (dash (2 11 0)) (emacs (24 4)) (company (0 8 0)) (pkg-info (0 4)) (s (1 11 0))) "Elixir tooling integration into Emacs" tar ((:commit . "6f99367511ae209f8fe2c990779764bbb4ccb6ed") (:keywords "languages" "elixir" "elixirc" "mix" "hex" "alchemist") (:authors ("Samuel Tonini" . "tonini.samuel@gmail.com")) (:maintainer "Samuel Tonini" . "tonini.samuel@gmail.com") (:url . "http://www.github.com/tonini/alchemist.el"))]) (alarm-clock . [(20181114 2335) ((emacs (24 4))) "Alarm Clock" tar ((:commit . "bf3f8e638c21d7ec27a63c28a90a4456de1ee50c") (:keywords "calendar" "tools" "convenience") (:authors ("Steve Lemuel" . "wlemuel@hotmail.com")) (:maintainer "Steve Lemuel" . "wlemuel@hotmail.com") (:url . "https://github.com/wlemuel/alarm-clock"))]) (alan-mode . [(20181011 1129) ((flycheck (32)) (emacs (25 1)) (s (1 12))) "Major mode for editing M-industries Alan files" single ((:commit . "130511906423732fdb941e51ca3e26194f65685a") (:keywords "alan" "languages") (:authors ("Paul van Dam" . "pvandam@m-industries.com")) (:maintainer "Paul van Dam" . "pvandam@m-industries.com") (:url . "https://github.com/M-industries/AlanForEmacs"))]) (airplay . [(20130212 1226) ((request (20130110 2144)) (simple-httpd (1 4 1)) (deferred (0 3 1))) "Airplay bindings to Emacs" tar ((:commit . "bd690aafcae3a887946e1bba8327597932d964ad") (:keywords "appletv" "airplay") (:authors ("Wataru MIYAGUNI" . "gonngo@gmail.com")) (:maintainer "Wataru MIYAGUNI" . "gonngo@gmail.com") (:url . "https://github.com/gongo/airplay-el"))]) (airline-themes . [(20180411 406) ((powerline (2 3))) "vim-airline themes for emacs powerline" tar ((:commit . "8b528fbae0e557461315bed82883275d58df41f2") (:keywords "evil" "mode-line" "powerline" "airline" "themes") (:authors ("Anthony DiGirolamo" . "anthony.digirolamo@gmail.com")) (:maintainer "Anthony DiGirolamo" . "anthony.digirolamo@gmail.com") (:url . "http://github.com/AnthonyDiGirolamo/airline-themes"))]) (ahungry-theme . [(20180131 328) ((emacs (24))) "Ahungry color theme for Emacs. Make sure to (load-theme 'ahungry)." single ((:commit . "a038d91ec593d1f1b19ca66a0576d59bbc24c523") (:keywords "ahungry" "palette" "color" "theme" "emacs" "color-theme" "deftheme") (:authors ("Matthew Carter" . "m@ahungry.com")) (:maintainer "Matthew Carter" . "m@ahungry.com") (:url . "https://github.com/ahungry/color-theme-ahungry"))]) (ahk-mode . [(20181113 1238) ((emacs (24 3))) "Major mode for editing AHK (AutoHotkey and AutoHotkey_L)" single ((:commit . "fde5be2cd4a0a48dc876031fb25be82892f700e0") (:keywords "ahk" "autohotkey" "hotkey" "keyboard shortcut" "automation") (:authors ("Rich Alesi")) (:maintainer "Rich Alesi") (:url . "https://github.com/ralesi/ahk-mode"))]) (ahg . [(20181120 1301) nil "Alberto's Emacs interface for Mercurial (Hg)" single ((:authors ("Alberto Griggio" . "agriggio@users.sourceforge.net")) (:maintainer "Alberto Griggio" . "agriggio@users.sourceforge.net") (:url . "https://bitbucket.org/agriggio/ahg"))]) (aggressive-indent . [(20181018 236) ((emacs (24 1)) (cl-lib (0 5))) "Minor mode to aggressively keep your code always indented" single ((:commit . "cc8da01e32684e1b75d2901400e6723b2c2d42f8") (:keywords "indent" "lisp" "maint" "tools") (:authors ("Artur Malabarba" . "emacs@endlessparentheses.com")) (:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com") (:url . "https://github.com/Malabarba/aggressive-indent-mode"))]) (aggressive-fill-paragraph . [(20180910 816) ((dash (2 10 0))) "A mode to automatically keep paragraphs filled" single ((:commit . "2d65d925318006e2f6fa261ad192fbc2d212877b") (:keywords "fill-paragraph" "automatic" "comments") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com") (:url . "https://github.com/davidshepherd7/aggressive-fill-paragraph-mode"))]) (ag . [(20180225 1040) ((dash (2 8 0)) (s (1 9 0)) (cl-lib (0 5))) "A front-end for ag ('the silver searcher'), the C ack replacement." single ((:commit . "77b4f50c5372bf219da496567b2b867261f0d354") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))]) (afternoon-theme . [(20140104 1859) ((emacs (24 1))) "Dark color theme with a deep blue background" single ((:commit . "89b1d778a1f8b385775c122f2bd1c62f0fbf931a") (:keywords "themes") (:authors ("Ozan Sener" . "ozan@ozansener.com")) (:maintainer "Ozan Sener" . "ozan@ozansener.com") (:url . "http://github.com/osener/emacs-afternoon-theme"))]) (aes . [(20171029 623) nil "Implementation of AES" single ((:commit . "b7d5da89c3443292e4f0b1c9d254d459933cf5af") (:keywords "data" "tools") (:authors ("Markus Sauermann" . "emacs-aes@sauermann-consulting.de")) (:maintainer "Markus Sauermann" . "emacs-aes@sauermann-consulting.de") (:url . "https://github.com/Sauermann/emacs-aes"))]) (adoc-mode . [(20160314 2130) ((markup-faces (1 0 0))) "a major-mode for editing AsciiDoc files in Emacs" single ((:commit . "745884359a1b8826ede2c4cfd2f0b5478953ac40") (:keywords "wp" "asciidoc") (:authors ("Florian Kaufmann" . "sensorflo@gmail.com")) (:maintainer "Florian Kaufmann" . "sensorflo@gmail.com") (:url . "https://github.com/sensorflo/adoc-mode/wiki"))]) (addressbook-bookmark . [(20171108 634) ((emacs (24))) "An address book based on Standard Emacs bookmarks." single ((:commit . "981355dcfb7477c00d41560a5a66fce73f02c0f5") (:authors ("Thierry Volpiatto" . "thierry.volpiatto@gmail.com")) (:maintainer "Thierry Volpiatto" . "thierry.volpiatto@gmail.com") (:url . "https://github.com/thierryvolpiatto/addressbook-bookmark"))]) (add-node-modules-path . [(20180710 2342) nil "Add node_modules to your exec-path" single ((:commit . "f31e69ccb681f882aebb806ce6e9478e3ac39708") (:keywords "javascript" "node" "node_modules" "eslint") (:authors ("Neri Marschik" . "marschik_neri@cyberagent.co.jp")) (:maintainer "Neri Marschik" . "marschik_neri@cyberagent.co.jp") (:url . "https://github.com/codesuki/add-node-modules-path"))]) (add-hooks . [(20171217 123) nil "Functions for setting multiple hooks" single ((:commit . "1845137703461fc44bd77cf24014ba58f19c369d") (:keywords "lisp") (:authors ("Nick McCurdy" . "nick@nickmccurdy.com")) (:maintainer "Nick McCurdy" . "nick@nickmccurdy.com") (:url . "https://github.com/nickmccurdy/add-hooks"))]) (adafruit-wisdom . [(20180225 52) ((emacs (25))) "Get/display adafruit.com quotes" single ((:commit . "aafc01726f1b3160321d40160298a0e1b054b382") (:keywords "games") (:authors ("Neil Okamoto" . "neil.okamoto+melpa@gmail.com")) (:maintainer "Neil Okamoto" . "neil.okamoto+melpa@gmail.com") (:url . "https://github.com/gonewest818/adafruit-wisdom.el"))]) (activity-watch-mode . [(20181112 1134) ((emacs (24)) (projectile (0)) (request (0))) "Automatic time tracking extension." single ((:commit . "85a34b213db8ef88db3ae32896bb3235b643e26f") (:keywords "calendar" "comm") (:authors ("Gabor Torok <gabor@20y.hu>, Alan Hamlett" . "alan@wakatime.com")) (:maintainer "Paul d'Hubert" . "paul.dhubert@ya.ru") (:url . "https://github.com/pauldub/activity-watch-mode"))]) (actionscript-mode . [(20180527 1701) nil "A simple mode for editing Actionscript 3 files" single ((:commit . "65abd58e198458a8e46748c5962c41d80d60c4ea") (:keywords "language" "modes") (:authors ("Austin Haas")) (:maintainer "Austin Haas"))]) (ack-menu . [(20150504 2022) ((mag-menu (0 1 0))) "A menu-based front-end for ack" single ((:commit . "f77be93a4697926ecf3195a355eb69580f695f4d") (:keywords "tools" "matching" "convenience") (:authors ("Steven Thomas") ("Nikolaj Schumacher")) (:maintainer "Steven Thomas") (:url . "https://github.com/chumpage/ack-menu"))]) (achievements . [(20150530 1826) ((keyfreq (0 0 3))) "Achievements for emacs usage." tar nil]) (ace-window . [(20181008 1549) ((avy (0 2 0))) "Quickly switch windows." single ((:commit . "5b88de026cea5fc57e62bb490034392815be5f0f") (:keywords "window" "location") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/ace-window"))]) (ace-popup-menu . [(20180101 615) ((emacs (24 3)) (avy-menu (0 1))) "Replace GUI popup menu with something more efficient" single ((:commit . "7b436a0d9e896463d00afbeb7e49a59cc6670e9c") (:keywords "convenience" "popup" "menu") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com") (:url . "https://github.com/mrkkrp/ace-popup-menu"))]) (ace-pinyin . [(20170501 626) ((avy (0 2 0)) (pinyinlib (0 1 0))) "Jump to Chinese characters using avy or ace-jump-mode" single ((:commit . "a9df88c1e6a32a4f4895acbb8c45383693c494c1") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/ace-pinyin"))]) (ace-mc . [(20160409 37) ((ace-jump-mode (1 0)) (multiple-cursors (1 0)) (dash (2 10 0))) "Add multiple cursors quickly using ace jump" single ((:commit . "b106bf6a6c78c3e026fbe9a99a34d6239adce4fd") (:keywords "motion" "location" "cursor") (:authors ("Josh Moller-Mara" . "jmm@cns.nyu.edu")) (:maintainer "Josh Moller-Mara" . "jmm@cns.nyu.edu") (:url . "https://github.com/mm--/ace-mc"))]) (ace-link . [(20181103 2106) ((avy (0 4 0))) "Quickly follow links" single ((:commit . "dfd0fdf649703790a9a5ee027f2f86d6f1269d55") (:keywords "convenience" "links" "avy") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com") (:url . "https://github.com/abo-abo/ace-link"))]) (ace-jump-zap . [(20170717 1849) ((ace-jump-mode (1 0)) (dash (2 10 0))) "Character zapping, `ace-jump-mode` style" single ((:commit . "52b5d4c6c73bd0fc833a0dcb4e803a5287d8cae8") (:keywords "convenience" "tools" "extensions") (:authors ("justin talbott" . "justin@waymondo.com")) (:maintainer "justin talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/ace-jump-zap"))]) (ace-jump-mode . [(20140616 815) nil "a quick cursor location minor mode for emacs" single ((:commit . "8351e2df4fbbeb2a4003f2fb39f46d33803f3dac") (:keywords "motion" "location" "cursor") (:authors ("winterTTr" . "winterTTr@gmail.com")) (:maintainer "winterTTr" . "winterTTr@gmail.com") (:url . "https://github.com/winterTTr/ace-jump-mode/"))]) (ace-jump-helm-line . [(20160918 1836) ((avy (0 4 0)) (helm (1 6 3))) "Ace-jump to a candidate in helm window" single ((:commit . "1483055255df3f8ae349f7520f05b1e43ea3ed37") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/ace-jump-helm-line"))]) (ace-jump-buffer . [(20171031 1550) ((avy (0 4 0)) (dash (2 4 0))) "fast buffer switching extension to `avy'" single ((:commit . "ae5be0415c823f7bb66833aa4af2180d4cf99cef") (:authors ("Justin Talbott" . "justin@waymondo.com")) (:maintainer "Justin Talbott" . "justin@waymondo.com") (:url . "https://github.com/waymondo/ace-jump-buffer"))]) (ace-isearch . [(20170506 712) ((emacs (24))) "A seamless bridge between isearch, ace-jump-mode, avy, helm-swoop and swiper" single ((:commit . "0502f95e333c8059a678745e5a112542965661d1") (:authors ("Akira Tamamori")) (:maintainer "Akira Tamamori") (:url . "https://github.com/tam17aki/ace-isearch"))]) (ace-flyspell . [(20170309 509) ((avy (0 4 0))) "Jump to and correct spelling errors using `ace-jump-mode' and flyspell" single ((:commit . "538d4f8508d305262ba0228dfe7c819fb65b53c9") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com") (:url . "https://github.com/cute-jumper/ace-flyspell"))]) (academic-phrases . [(20180723 1021) ((dash (2 12 0)) (s (1 12 0)) (ht (2 0)) (emacs (24))) "Bypass that mental block when writing your papers." single ((:commit . "25d9cf67feac6359cb213f061735e2679c84187f") (:keywords "academic" "convenience" "papers" "writing" "wp") (:authors ("Nasser Alshammari" . "designernasser@gmail.com")) (:maintainer "Nasser Alshammari" . "designernasser@gmail.com") (:url . "https://github.com/nashamri/academic-phrases"))]) (ac-sly . [(20170728 1027) ((sly (1 0 0 -3)) (auto-complete (1 4)) (cl-lib (0 5))) "An auto-complete source using sly completions" single ((:commit . "bf69c687c4ecf1994349d20c182e9b567399912e") (:authors ("Damian T. Dobroczy\\'nski" . "qoocku@gmail.com")) (:maintainer "Damian T. Dobroczy\\'nski" . "qoocku@gmail.com") (:url . "https://github.com/qoocku/ac-sly"))]) (ac-slime . [(20171027 2100) ((auto-complete (1 4)) (slime (2 9)) (cl-lib (0 5))) "An auto-complete source using slime completions" single ((:commit . "6c80cb602ddad46486288f94ad7546396c6e4b1a") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com") (:url . "https://github.com/purcell/ac-slime"))]) (ac-skk . [(20141230 119) ((auto-complete (1 3 1)) (ddskk (16 0 50)) (tinysegmenter (0)) (cl-lib (0 5))) "auto-complete-mode source for DDSKK a.k.a Japanese input method" single ((:commit . "d25a265930430d080329789fb253d786c01dfa24") (:keywords "convenience" "auto-complete") (:authors ("lugecy <https://twitter.com/lugecy>")) (:maintainer "myuhe") (:url . "https://github.com/myuhe/ac-skk.el"))]) (ac-rtags . [(20181117 1949) ((auto-complete (1 4 0)) (rtags (2 10))) "auto-complete back-end for RTags" single ((:commit . "194cd70d38c3e2e01b9de04d006f94573510aebb") (:authors ("Jan Erik Hanssen" . "jhanssen@gmail.com") ("Anders Bakken" . "agbakken@gmail.com")) (:maintainer "Jan Erik Hanssen" . "jhanssen@gmail.com") (:url . "http://rtags.net"))]) (ac-racer . [(20170114 809) ((emacs (24 3)) (auto-complete (1 5 0)) (racer (0 0 2))) "auto-complete source of racer" single ((:commit . "4408c2d652dec0432e20c05e001db8222d778c6b") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-ac-racer"))]) (ac-php-core . [(20181115 1442) ((emacs (24)) (dash (1)) (php-mode (1)) (xcscope (1)) (s (1)) (f (0 17 0)) (popup (0 5 0))) "gen tags for php" tar ((:commit . "1883d3178ded71534a7e93189bc789d65e4a000e") (:keywords "completion" "convenience" "intellisense") (:authors (nil . "xcwenn@qq.com [https://github.com/xcwen]")) (:maintainer nil . "xcwenn@qq.com [https://github.com/xcwen]") (:url . "https://github.com/xcwen/ac-php"))]) (ac-php . [(20171201 934) ((ac-php-core (1)) (auto-complete (1 4 0)) (yasnippet (0 8 0))) "auto-completion source for php" single ((:commit . "1883d3178ded71534a7e93189bc789d65e4a000e") (:keywords "completion" "convenience" "intellisense") (:authors (nil . "xcwenn@qq.com [https://github.com/xcwen]")) (:maintainer nil . "xcwenn@qq.com [https://github.com/xcwen]") (:url . "https://github.com/xcwen/ac-php"))]) (ac-octave . [(20180406 334) ((auto-complete (1 4 0))) "An auto-complete source for Octave" single ((:commit . "fe0f931f2024f43de3c4fff4b1ace672413adeae") (:keywords "octave" "auto-complete" "completion") (:authors ("coldnew" . "coldnew.tw@gmail.com")) (:maintainer "coldnew" . "coldnew.tw@gmail.com") (:url . "https://github.com/coldnew/ac-octave"))]) (ac-mozc . [(20150227 1619) ((cl-lib (0 5)) (auto-complete (1 4)) (mozc (0))) "auto-complete sources for Japanese input using Mozc" single ((:commit . "4c6c8be4701010d9362184437c0f783e0335c631") (:authors ("igjit" . "igjit1@gmail.com")) (:maintainer "igjit" . "igjit1@gmail.com") (:url . "https://github.com/igjit/ac-mozc"))]) (ac-math . [(20141116 2127) ((auto-complete (1 4)) (math-symbol-lists (1 0))) "Auto-complete sources for input of mathematical symbols and latex tags" single ((:commit . "c012a8f620a48cb18db7d78995035d65eae28f11") (:keywords "latex" "auto-complete" "unicode" "symbols") (:authors ("Vitalie Spinu")) (:maintainer "Vitalie Spinu") (:url . "https://github.com/vitoshka/ac-math"))]) (ac-js2 . [(20140906 1142) ((js2-mode (20090723)) (skewer-mode (1 4))) "Auto-complete source for Js2-mode, with navigation" tar ((:commit . "721c482e1d4a08f4a29a74437257d573e8f69969") (:authors ("Scott Barnett" . "scott.n.barnett@gmail.com")) (:maintainer "Scott Barnett" . "scott.n.barnett@gmail.com") (:url . "https://github.com/ScottyB/ac-js2"))]) (ac-ispell . [(20151101 226) ((auto-complete (1 4)) (cl-lib (0 5))) "ispell completion source for auto-complete" single ((:commit . "22bace7387e9012002a6a444922f75f9913077b0") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-ac-ispell"))]) (ac-inf-ruby . [(20131115 1150) ((inf-ruby (2 3 2)) (auto-complete (1 4))) "Enable auto-complete in inf-ruby sessions" single ((:commit . "ee53fc9c61950da9a96df3ff5ef186f9a9faf151") (:keywords "languages" "tools") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (ac-html-csswatcher . [(20151208 2113) ((web-completion-data (0 1))) "css/less class/id completion with `ac-html' or `company-web'" single ((:commit . "b0f3e7e1a3fe49e88b6eb6432377232fc715f221") (:keywords "html" "css" "less" "auto-complete") (:authors ("Olexandr Sydorchuck " . "olexandr.syd@gmail.com")) (:maintainer "Olexandr Sydorchuck " . "olexandr.syd@gmail.com") (:url . "https://github.com/osv/ac-html-csswatcher"))]) (ac-html-angular . [(20151225 719) ((web-completion-data (0 1))) "auto complete angular15 data for `ac-html' and `company-web'" tar ((:commit . "6bafe09afe03112ca4183d58461c1a6f6c2b3c67") (:keywords "html" "auto-complete" "angular") (:authors ("Olexandr Sydorchuk" . "olexandr.syd@gmail.com")) (:maintainer "Olexandr Sydorchuk" . "olexandr.syd@gmail.com") (:url . "https://github.com/osv/ac-html-bootstrap"))]) (ac-html . [(20151005 731) ((auto-complete (1 4)) (s (1 9)) (f (0 17)) (dash (2 10))) "auto complete source for html tags and attributes" tar ((:commit . "668154cba123c321d1b07c2dc8b26d14092253b8") (:keywords "html" "auto-complete" "slim" "haml" "jade") (:authors ("Zhang Kai Yu" . "yeannylam@gmail.com")) (:maintainer "Zhang Kai Yu" . "yeannylam@gmail.com") (:url . "https://github.com/cheunghy/ac-html"))]) (ac-helm . [(20160319 233) ((helm (1 6 3)) (auto-complete (1 4 0)) (popup (0 5 0)) (cl-lib (0 5))) "Helm interface for auto-complete" single ((:commit . "baf2b1e04bcffa835084389c0fab415f26efbf32") (:keywords "completion" "convenience" "helm") (:authors ("rubikitch" . "rubikitch@ruby-lang.org") ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com"))]) (ac-haskell-process . [(20150423 1402) ((auto-complete (1 4)) (haskell-mode (13))) "Haskell auto-complete source which uses the current haskell process" single ((:commit . "0362d4323511107ec70e7165cb612f3ab01b712f") (:keywords "languages") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))]) (ac-geiser . [(20130929 647) ((geiser (0 5)) (auto-complete (1 4))) "Auto-complete backend for geiser" tar ((:commit . "502d18a8a0bd4b5fdd495a99299ba2a632c5cd9a"))]) (ac-etags . [(20161001 1507) ((auto-complete (1 4))) "etags/ctags completion source for auto-complete" single ((:commit . "7983e631c226fe0fa53af3b2d56bf4eca3d785ce") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-ac-etags"))]) (ac-emoji . [(20150823 711) ((auto-complete (1 5 0)) (cl-lib (0 5))) "auto-complete source of Emoji" tar ((:commit . "40a639764eb654f1b4bb705c817b66032a26ff2b") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-ac-emoji"))]) (ac-emmet . [(20131015 1558) ((emmet-mode (1 0 2)) (auto-complete (1 4))) "auto-complete sources for emmet-mode's snippets" single ((:commit . "88f24876ee3b759978d4614a758280b5d512d543") (:keywords "completion" "convenience" "emmet") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainer "Yasuyuki Oka" . "yasuyk@gmail.com") (:url . "https://github.com/yasuyk/ac-emmet"))]) (ac-emacs-eclim . [(20180911 1121) ((eclim (0 3)) (auto-complete (1 5))) "auto-complete source for eclim" single ((:commit . "23f5b294f833ce58516d7b9ae08a7792d70022a1"))]) (ac-dcd . [(20170323 1301) ((auto-complete (1 3 1)) (flycheck-dmd-dub (0 7))) "Auto Completion source for dcd for GNU Emacs" single ((:commit . "1614aa624252e3445b0392c8a9b7197084f3e422") (:keywords "languages") (:authors (nil . "<atila.neves@gmail.com>")) (:maintainer nil . "<atila.neves@gmail.com>") (:url . "http://github.com/atilaneves/ac-dcd"))]) (ac-clang . [(20180710 546) ((emacs (24)) (cl-lib (0 5)) (auto-complete (1 4 0)) (pos-tip (0 4 6)) (yasnippet (0 8 0))) "Auto Completion source by libclang for GNU Emacs" tar ((:commit . "3294b968eb1a8317049190940193f9da47c085ef") (:keywords "completion" "convenience" "intellisense") (:authors ("yaruopooner [https://github.com/yaruopooner]")) (:maintainer "yaruopooner [https://github.com/yaruopooner]") (:url . "https://github.com/yaruopooner/ac-clang"))]) (ac-cider . [(20161006 719) ((cider (0 8 0)) (auto-complete (1 4)) (cl-lib (0 3))) "Clojure auto-complete sources using CIDER" single ((:commit . "fa13e067dd9c8c76151c7d140a2803da1d109b84") (:keywords "languages" "clojure" "nrepl" "cider" "compliment") (:authors ("Alex Yakushev" . "alex@bytopia.org") ("Steve Purcell" . "steve@sanityinc.com") ("Sam Aaron" . "samaaron@gmail.com")) (:maintainer "Alex Yakushev" . "alex@bytopia.org") (:url . "https://github.com/clojure-emacs/ac-cider"))]) (ac-capf . [(20151101 217) ((auto-complete (1 4)) (cl-lib (0 5))) "auto-complete source with completion-at-point" single ((:commit . "17571dba0a8f98111f2ab758e9bea285b263781b") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-ac-capf"))]) (ac-c-headers . [(20151021 834) ((auto-complete (1 3 1))) "auto-complete source for C headers" single ((:commit . "de13a1d35b311e6601556d8ef163de102057deea") (:authors ("zk_phi")) (:maintainer "zk_phi") (:url . "http://hins11.yu-yake.com/"))]) (ac-alchemist . [(20150908 656) ((auto-complete (1 5 0)) (alchemist (1 5 0)) (cl-lib (0 5))) "auto-complete source for alchemist" single ((:commit . "b1891c3d41aed83f61d78a609ea97be5cc2758d9") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com") (:url . "https://github.com/syohex/emacs-ac-alchemist"))]) (abyss-theme . [(20170808 1345) ((emacs (24))) "A dark theme with contrasting colours." single ((:commit . "18791c6e8d9cc2b4815c9f08627a2e94fc0eeb14") (:keywords "theme" "dark" "contrasting colours") (:authors ("Matt Russell" . "matt@mgrbyte.co.uk")) (:maintainer "Matt Russell" . "matt@mgrbyte.co.uk") (:url . "https://github.com/mgrbyte/emacs-abyss-theme"))]) (abl-mode . [(20181031 830) nil "Python TDD minor mode" single ((:commit . "b4c65b5a60a83200fe06f6caa77073316e5a4228") (:authors ("Ulas Tuerkmen <ulas.tuerkmen at gmail dot com>")) (:maintainer "Ulas Tuerkmen <ulas.tuerkmen at gmail dot com>") (:url . "http://github.com/afroisalreadyinu/abl-mode"))]) (abgaben . [(20171119 646) ((pdf-tools (0 80)) (f (0 19 0)) (s (1 11 0))) "review and correct assignments received by mail" single ((:commit . "20d14830f07d66e2a04bcad1498a4a6fbf4b4451") (:keywords "mail" "outlines" "convenience") (:authors ("Arne Köhn" . "arne@chark.eu")) (:maintainer "Arne Köhn" . "arne@chark.eu") (:url . "http://arne.chark.eu/"))]) (abc-mode . [(20171020 1019) nil "Major mode for editing abc music files" single ((:commit . "238deedeb6c90df168045552eb463cfae9e1f88f") (:keywords "local" "docs") (:authors ("Matthew K. Junker" . "junker@alum.mit.edu")) (:maintainer "Matthew K. Junker" . "junker@alum.mit.edu"))]) (aa-edit-mode . [(20170119 320) ((emacs (24 3)) (navi2ch (2 0 0))) "Major mode for editing AA(S_JIS Art) and .mlt file" single ((:commit . "1dd801225b7ad3c23ad09698f5e77f0df7012a65") (:keywords "wp" "text" "shiftjis" "mlt" "yaruo") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))]) (a . [(20180907 953) ((emacs (25))) "Associative data structure functions" single ((:commit . "18966975db7110d0aac726be95b593e2fc3d44ed") (:keywords "lisp") (:authors ("Arne Brasseur" . "arne@arnebrasseur.net")) (:maintainer "Arne Brasseur" . "arne@arnebrasseur.net") (:url . "https://github.com/plexus/a.el"))]) (@ . [(20181013 1828) ((emacs (24 3))) "multiple-inheritance prototype-based objects DSL" tar ((:commit . "fe78a75c88429343f017ccd74e62bd9465dba50a") (:authors ("Christopher Wellons" . "wellons@nullprogram.com")) (:maintainer "Christopher Wellons" . "wellons@nullprogram.com") (:url . "https://github.com/skeeto/at-el"))]) (4clojure . [(20131014 2207) ((json (1 2)) (request (0 2 0))) "Open and evaluate 4clojure.com questions" single ((:commit . "3cdfd356c24cd3518397d29ae833f56a4d20b4ca") (:keywords "languages" "data") (:authors ("Joshua Hoff")) (:maintainer "Joshua Hoff"))]) (2048-game . [(20151026 1933) nil "play 2048 in Emacs" single ((:authors ("Zachary Kanfer" . "zkanfer@gmail.com")) (:maintainer "Zachary Kanfer" . "zkanfer@gmail.com") (:url . "https://bitbucket.org/zck/2048.el"))]) (0xc . [(20170126 353) ((emacs (24 4)) (s (1 11 0))) "Base conversion made easy" single ((:commit . "12c2c6118c062a49594965c69e6a17bb46339eb2") (:keywords "base" "conversion") (:authors ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainer "Adam Niederer" . "adam.niederer@gmail.com") (:url . "http://github.com/AdamNiederer/0xc"))]) (0blayout . [(20161008 607) nil "Layout grouping with ease" single ((:commit . "873732ddb99a3ec18845a37467ee06bce4e61d87") (:keywords "convenience" "window-management") (:authors ("Elis \"etu\" Axelsson")) (:maintainer "Elis \"etu\" Axelsson") (:url . "https://github.com/etu/0blayout"))]))
diff --git a/elpa/async-20180527.1730/async-autoloads.el b/elpa/async-20180527.1730/async-autoloads.el
deleted file mode 100644
index addfab1..0000000
--- a/elpa/async-20180527.1730/async-autoloads.el
+++ /dev/null
@@ -1,174 +0,0 @@
-;;; async-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "async" "async.el" (0 0 0 0))
-;;; Generated autoloads from async.el
-
-(autoload 'async-start-process "async" "\
-Start the executable PROGRAM asynchronously. See `async-start'.
-PROGRAM is passed PROGRAM-ARGS, calling FINISH-FUNC with the
-process object when done. If FINISH-FUNC is nil, the future
-object will return the process object when the program is
-finished. Set DEFAULT-DIRECTORY to change PROGRAM's current
-working directory.
-
-\(fn NAME PROGRAM FINISH-FUNC &rest PROGRAM-ARGS)" nil nil)
-
-(autoload 'async-start "async" "\
-Execute START-FUNC (often a lambda) in a subordinate Emacs process.
-When done, the return value is passed to FINISH-FUNC. Example:
-
- (async-start
- ;; What to do in the child process
- (lambda ()
- (message \"This is a test\")
- (sleep-for 3)
- 222)
-
- ;; What to do when it finishes
- (lambda (result)
- (message \"Async process done, result should be 222: %s\"
- result)))
-
-If FINISH-FUNC is nil or missing, a future is returned that can
-be inspected using `async-get', blocking until the value is
-ready. Example:
-
- (let ((proc (async-start
- ;; What to do in the child process
- (lambda ()
- (message \"This is a test\")
- (sleep-for 3)
- 222))))
-
- (message \"I'm going to do some work here\") ;; ....
-
- (message \"Waiting on async process, result should be 222: %s\"
- (async-get proc)))
-
-If you don't want to use a callback, and you don't care about any
-return value from the child process, pass the `ignore' symbol as
-the second argument (if you don't, and never call `async-get', it
-will leave *emacs* process buffers hanging around):
-
- (async-start
- (lambda ()
- (delete-file \"a remote file on a slow link\" nil))
- 'ignore)
-
-Note: Even when FINISH-FUNC is present, a future is still
-returned except that it yields no value (since the value is
-passed to FINISH-FUNC). Call `async-get' on such a future always
-returns nil. It can still be useful, however, as an argument to
-`async-ready' or `async-wait'.
-
-\(fn START-FUNC &optional FINISH-FUNC)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "async" '("async-")))
-
-;;;***
-
-;;;### (autoloads nil "async-bytecomp" "async-bytecomp.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from async-bytecomp.el
-
-(autoload 'async-byte-recompile-directory "async-bytecomp" "\
-Compile all *.el files in DIRECTORY asynchronously.
-All *.elc files are systematically deleted before proceeding.
-
-\(fn DIRECTORY &optional QUIET)" nil nil)
-
-(defvar async-bytecomp-package-mode nil "\
-Non-nil if Async-Bytecomp-Package mode is enabled.
-See the `async-bytecomp-package-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `async-bytecomp-package-mode'.")
-
-(custom-autoload 'async-bytecomp-package-mode "async-bytecomp" nil)
-
-(autoload 'async-bytecomp-package-mode "async-bytecomp" "\
-Byte compile asynchronously packages installed with package.el.
-Async compilation of packages can be controlled by
-`async-bytecomp-allowed-packages'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'async-byte-compile-file "async-bytecomp" "\
-Byte compile Lisp code FILE asynchronously.
-
-Same as `byte-compile-file' but asynchronous.
-
-\(fn FILE)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "async-bytecomp" '("async-byte")))
-
-;;;***
-
-;;;### (autoloads nil "dired-async" "dired-async.el" (0 0 0 0))
-;;; Generated autoloads from dired-async.el
-
-(defvar dired-async-mode nil "\
-Non-nil if Dired-Async mode is enabled.
-See the `dired-async-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `dired-async-mode'.")
-
-(custom-autoload 'dired-async-mode "dired-async" nil)
-
-(autoload 'dired-async-mode "dired-async" "\
-Do dired actions asynchronously.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'dired-async-do-copy "dired-async" "\
-Run ‘dired-do-copy’ asynchronously.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'dired-async-do-symlink "dired-async" "\
-Run ‘dired-do-symlink’ asynchronously.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'dired-async-do-hardlink "dired-async" "\
-Run ‘dired-do-hardlink’ asynchronously.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'dired-async-do-rename "dired-async" "\
-Run ‘dired-do-rename’ asynchronously.
-
-\(fn &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dired-async" '("dired-async-")))
-
-;;;***
-
-;;;### (autoloads nil "smtpmail-async" "smtpmail-async.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from smtpmail-async.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smtpmail-async" '("async-smtpmail-")))
-
-;;;***
-
-;;;### (autoloads nil nil ("async-pkg.el") (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; async-autoloads.el ends here
diff --git a/elpa/async-20180527.1730/async-bytecomp.el b/elpa/async-20180527.1730/async-bytecomp.el
deleted file mode 100644
index 7bb2d46..0000000
--- a/elpa/async-20180527.1730/async-bytecomp.el
+++ /dev/null
@@ -1,219 +0,0 @@
-;;; async-bytecomp.el --- Compile elisp files asynchronously -*- lexical-binding: t -*-
-
-;; Copyright (C) 2014-2016 Free Software Foundation, Inc.
-
-;; Authors: John Wiegley <jwiegley@gmail.com>
-;; Thierry Volpiatto <thierry.volpiatto@gmail.com>
-
-;; Keywords: dired async byte-compile
-;; X-URL: https://github.com/jwiegley/dired-async
-
-;; 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; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-;;
-;; This package provide the `async-byte-recompile-directory' function
-;; which allows, as the name says to recompile a directory outside of
-;; your running emacs.
-;; The benefit is your files will be compiled in a clean environment without
-;; the old *.el files loaded.
-;; Among other things, this fix a bug in package.el which recompile
-;; the new files in the current environment with the old files loaded, creating
-;; errors in most packages after upgrades.
-;;
-;; NB: This package is advicing the function `package--compile'.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'async)
-
-(defcustom async-bytecomp-allowed-packages
- '(async helm helm-core helm-ls-git helm-ls-hg magit)
- "Packages in this list will be compiled asynchronously by `package--compile'.
-All the dependencies of these packages will be compiled async too,
-so no need to add dependencies to this list.
-The value of this variable can also be a list with a single element,
-the symbol `all', in this case packages are always compiled asynchronously."
- :group 'async
- :type '(repeat (choice symbol)))
-
-(defvar async-byte-compile-log-file
- (concat user-emacs-directory "async-bytecomp.log"))
-
-;;;###autoload
-(defun async-byte-recompile-directory (directory &optional quiet)
- "Compile all *.el files in DIRECTORY asynchronously.
-All *.elc files are systematically deleted before proceeding."
- (cl-loop with dir = (directory-files directory t "\\.elc\\'")
- unless dir return nil
- for f in dir
- when (file-exists-p f) do (delete-file f))
- ;; Ensure async is reloaded when async.elc is deleted.
- ;; This happen when recompiling its own directory.
- (load "async")
- (let ((call-back
- (lambda (&optional _ignore)
- (if (file-exists-p async-byte-compile-log-file)
- (let ((buf (get-buffer-create byte-compile-log-buffer))
- (n 0))
- (with-current-buffer buf
- (goto-char (point-max))
- (let ((inhibit-read-only t))
- (insert-file-contents async-byte-compile-log-file)
- (compilation-mode))
- (display-buffer buf)
- (delete-file async-byte-compile-log-file)
- (unless quiet
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward "^.*:Error:" nil t)
- (cl-incf n)))
- (if (> n 0)
- (message "Failed to compile %d files in directory `%s'" n directory)
- (message "Directory `%s' compiled asynchronously with warnings" directory)))))
- (unless quiet
- (message "Directory `%s' compiled asynchronously with success" directory))))))
- (async-start
- `(lambda ()
- (require 'bytecomp)
- ,(async-inject-variables "\\`\\(load-path\\)\\|byte\\'")
- (let ((default-directory (file-name-as-directory ,directory))
- error-data)
- (add-to-list 'load-path default-directory)
- (byte-recompile-directory ,directory 0 t)
- (when (get-buffer byte-compile-log-buffer)
- (setq error-data (with-current-buffer byte-compile-log-buffer
- (buffer-substring-no-properties (point-min) (point-max))))
- (unless (string= error-data "")
- (with-temp-file ,async-byte-compile-log-file
- (erase-buffer)
- (insert error-data))))))
- call-back)
- (unless quiet (message "Started compiling asynchronously directory %s" directory))))
-
-(defvar package-archive-contents)
-(defvar package-alist)
-(declare-function package-desc-reqs "package.el" (cl-x))
-
-(defun async-bytecomp--get-package-deps (pkg &optional only)
- ;; Same as `package--get-deps' but parse instead `package-archive-contents'
- ;; because PKG is not already installed and not present in `package-alist'.
- ;; However fallback to `package-alist' in case PKG no more present
- ;; in `package-archive-contents' due to modification to `package-archives'.
- ;; See issue #58.
- (let* ((pkg-desc (cadr (or (assq pkg package-archive-contents)
- (assq pkg package-alist))))
- (direct-deps (cl-loop for p in (package-desc-reqs pkg-desc)
- for name = (car p)
- when (or (assq name package-archive-contents)
- (assq name package-alist))
- collect name))
- (indirect-deps (unless (eq only 'direct)
- (delete-dups
- (cl-loop for p in direct-deps append
- (async-bytecomp--get-package-deps p))))))
- (cl-case only
- (direct direct-deps)
- (separate (list direct-deps indirect-deps))
- (indirect indirect-deps)
- (t (delete-dups (append direct-deps indirect-deps))))))
-
-(defun async-bytecomp-get-allowed-pkgs ()
- (when (and async-bytecomp-allowed-packages
- (listp async-bytecomp-allowed-packages))
- (if package-archive-contents
- (cl-loop for p in async-bytecomp-allowed-packages
- when (assq p package-archive-contents)
- append (async-bytecomp--get-package-deps p) into reqs
- finally return
- (delete-dups
- (append async-bytecomp-allowed-packages reqs)))
- async-bytecomp-allowed-packages)))
-
-(defadvice package--compile (around byte-compile-async)
- (let ((cur-package (package-desc-name pkg-desc))
- (pkg-dir (package-desc-dir pkg-desc)))
- (if (or (equal async-bytecomp-allowed-packages '(all))
- (memq cur-package (async-bytecomp-get-allowed-pkgs)))
- (progn
- (when (eq cur-package 'async)
- (fmakunbound 'async-byte-recompile-directory))
- ;; Add to `load-path' the latest version of async and
- ;; reload it when reinstalling async.
- (when (string= cur-package "async")
- (cl-pushnew pkg-dir load-path)
- (load "async-bytecomp"))
- ;; `async-byte-recompile-directory' will add directory
- ;; as needed to `load-path'.
- (async-byte-recompile-directory (package-desc-dir pkg-desc) t))
- ad-do-it)))
-
-;;;###autoload
-(define-minor-mode async-bytecomp-package-mode
- "Byte compile asynchronously packages installed with package.el.
-Async compilation of packages can be controlled by
-`async-bytecomp-allowed-packages'."
- :group 'async
- :global t
- (if async-bytecomp-package-mode
- (ad-activate 'package--compile)
- (ad-deactivate 'package--compile)))
-
-;;;###autoload
-(defun async-byte-compile-file (file)
- "Byte compile Lisp code FILE asynchronously.
-
-Same as `byte-compile-file' but asynchronous."
- (interactive "fFile: ")
- (let ((call-back
- (lambda (&optional _ignore)
- (let ((bn (file-name-nondirectory file)))
- (if (file-exists-p async-byte-compile-log-file)
- (let ((buf (get-buffer-create byte-compile-log-buffer))
- start)
- (with-current-buffer buf
- (goto-char (setq start (point-max)))
- (let ((inhibit-read-only t))
- (insert-file-contents async-byte-compile-log-file)
- (compilation-mode))
- (display-buffer buf)
- (delete-file async-byte-compile-log-file)
- (save-excursion
- (goto-char start)
- (if (re-search-forward "^.*:Error:" nil t)
- (message "Failed to compile `%s'" bn)
- (message "`%s' compiled asynchronously with warnings" bn)))))
- (message "`%s' compiled asynchronously with success" bn))))))
- (async-start
- `(lambda ()
- (require 'bytecomp)
- ,(async-inject-variables "\\`load-path\\'")
- (let ((default-directory ,(file-name-directory file)))
- (add-to-list 'load-path default-directory)
- (byte-compile-file ,file)
- (when (get-buffer byte-compile-log-buffer)
- (setq error-data (with-current-buffer byte-compile-log-buffer
- (buffer-substring-no-properties (point-min) (point-max))))
- (unless (string= error-data "")
- (with-temp-file ,async-byte-compile-log-file
- (erase-buffer)
- (insert error-data))))))
- call-back)))
-
-(provide 'async-bytecomp)
-
-;;; async-bytecomp.el ends here
diff --git a/elpa/async-20180527.1730/async-bytecomp.elc b/elpa/async-20180527.1730/async-bytecomp.elc
deleted file mode 100644
index 86bfd26..0000000
--- a/elpa/async-20180527.1730/async-bytecomp.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/async-20180527.1730/async-pkg.el b/elpa/async-20180527.1730/async-pkg.el
deleted file mode 100644
index 507e066..0000000
--- a/elpa/async-20180527.1730/async-pkg.el
+++ /dev/null
@@ -1,6 +0,0 @@
-(define-package "async" "20180527.1730" "Asynchronous processing in Emacs" 'nil :keywords
- '("async")
- :url "https://github.com/jwiegley/emacs-async")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/elpa/async-20180527.1730/async.el b/elpa/async-20180527.1730/async.el
deleted file mode 100644
index 771e641..0000000
--- a/elpa/async-20180527.1730/async.el
+++ /dev/null
@@ -1,392 +0,0 @@
-;;; async.el --- Asynchronous processing in Emacs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
-
-;; Author: John Wiegley <jwiegley@gmail.com>
-;; Created: 18 Jun 2012
-;; Version: 1.9.3
-
-;; Keywords: async
-;; X-URL: https://github.com/jwiegley/emacs-async
-
-;; 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; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Adds the ability to call asynchronous functions and process with ease. See
-;; the documentation for `async-start' and `async-start-process'.
-
-;;; Code:
-
-(eval-when-compile (require 'cl-lib))
-
-(defgroup async nil
- "Simple asynchronous processing in Emacs"
- :group 'emacs)
-
-(defcustom async-variables-noprops-function #'async-variables-noprops
- "Default function to remove text properties in variables."
- :group 'async
- :type 'function)
-
-(defvar async-debug nil)
-(defvar async-send-over-pipe t)
-(defvar async-in-child-emacs nil)
-(defvar async-callback nil)
-(defvar async-callback-for-process nil)
-(defvar async-callback-value nil)
-(defvar async-callback-value-set nil)
-(defvar async-current-process nil)
-(defvar async--procvar nil)
-
-(defun async-variables-noprops (sequence)
- "Remove text properties in SEQUENCE.
-
-Argument SEQUENCE may be a list or a string, if anything else it
-is returned unmodified.
-
-Note that this is a naive function that doesn't remove text properties
-in SEQUENCE recursively, only at the first level which suffice in most
-cases."
- (cond ((stringp sequence)
- (substring-no-properties sequence))
- ((listp sequence)
- (cl-loop for elm in sequence
- if (stringp elm)
- collect (substring-no-properties elm)
- else collect elm))
- (t sequence)))
-
-(defun async-inject-variables
- (include-regexp &optional predicate exclude-regexp noprops)
- "Return a `setq' form that replicates part of the calling environment.
-
-It sets the value for every variable matching INCLUDE-REGEXP and
-also PREDICATE. It will not perform injection for any variable
-matching EXCLUDE-REGEXP (if present) or representing a syntax-table
-i.e. ending by \"-syntax-table\".
-When NOPROPS is non nil it tries to strip out text properties of each
-variable's value with `async-variables-noprops-function'.
-
-It is intended to be used as follows:
-
- (async-start
- `(lambda ()
- (require 'smtpmail)
- (with-temp-buffer
- (insert ,(buffer-substring-no-properties (point-min) (point-max)))
- ;; Pass in the variable environment for smtpmail
- ,(async-inject-variables \"\\`\\(smtpmail\\|\\(user-\\)?mail\\)-\")
- (smtpmail-send-it)))
- 'ignore)"
- `(setq
- ,@(let (bindings)
- (mapatoms
- (lambda (sym)
- (let* ((sname (and (boundp sym) (symbol-name sym)))
- (value (and sname (symbol-value sym))))
- (when (and sname
- (or (null include-regexp)
- (string-match include-regexp sname))
- (or (null exclude-regexp)
- (not (string-match exclude-regexp sname)))
- (not (string-match "-syntax-table\\'" sname)))
- (unless (or (stringp value)
- (memq value '(nil t))
- (numberp value)
- (vectorp value))
- (setq value `(quote ,value)))
- (when noprops
- (setq value (funcall async-variables-noprops-function
- value)))
- (when (or (null predicate)
- (funcall predicate sym))
- (setq bindings (cons value bindings)
- bindings (cons sym bindings)))))))
- bindings)))
-
-(defalias 'async-inject-environment 'async-inject-variables)
-
-(defun async-handle-result (func result buf)
- (if (null func)
- (progn
- (set (make-local-variable 'async-callback-value) result)
- (set (make-local-variable 'async-callback-value-set) t))
- (unwind-protect
- (if (and (listp result)
- (eq 'async-signal (nth 0 result)))
- (signal (car (nth 1 result))
- (cdr (nth 1 result)))
- (funcall func result))
- (unless async-debug
- (kill-buffer buf)))))
-
-(defun async-when-done (proc &optional _change)
- "Process sentinel used to retrieve the value from the child process."
- (when (eq 'exit (process-status proc))
- (with-current-buffer (process-buffer proc)
- (let ((async-current-process proc))
- (if (= 0 (process-exit-status proc))
- (if async-callback-for-process
- (if async-callback
- (prog1
- (funcall async-callback proc)
- (unless async-debug
- (kill-buffer (current-buffer))))
- (set (make-local-variable 'async-callback-value) proc)
- (set (make-local-variable 'async-callback-value-set) t))
- (goto-char (point-max))
- (backward-sexp)
- (async-handle-result async-callback (read (current-buffer))
- (current-buffer)))
- (set (make-local-variable 'async-callback-value)
- (list 'error
- (format "Async process '%s' failed with exit code %d"
- (process-name proc) (process-exit-status proc))))
- (set (make-local-variable 'async-callback-value-set) t))))))
-
-(defun async--receive-sexp (&optional stream)
- (let ((sexp (decode-coding-string (base64-decode-string
- (read stream)) 'utf-8-auto))
- ;; Parent expects UTF-8 encoded text.
- (coding-system-for-write 'utf-8-auto))
- (if async-debug
- (message "Received sexp {{{%s}}}" (pp-to-string sexp)))
- (setq sexp (read sexp))
- (if async-debug
- (message "Read sexp {{{%s}}}" (pp-to-string sexp)))
- (eval sexp)))
-
-(defun async--insert-sexp (sexp)
- (let (print-level
- print-length
- (print-escape-nonascii t)
- (print-circle t))
- (prin1 sexp (current-buffer))
- ;; Just in case the string we're sending might contain EOF
- (encode-coding-region (point-min) (point-max) 'utf-8-auto)
- (base64-encode-region (point-min) (point-max) t)
- (goto-char (point-min)) (insert ?\")
- (goto-char (point-max)) (insert ?\" ?\n)))
-
-(defun async--transmit-sexp (process sexp)
- (with-temp-buffer
- (if async-debug
- (message "Transmitting sexp {{{%s}}}" (pp-to-string sexp)))
- (async--insert-sexp sexp)
- (process-send-region process (point-min) (point-max))))
-
-(defun async-batch-invoke ()
- "Called from the child Emacs process' command-line."
- ;; Make sure 'message' and 'prin1' encode stuff in UTF-8, as parent
- ;; process expects.
- (let ((coding-system-for-write 'utf-8-auto))
- (setq async-in-child-emacs t
- debug-on-error async-debug)
- (if debug-on-error
- (prin1 (funcall
- (async--receive-sexp (unless async-send-over-pipe
- command-line-args-left))))
- (condition-case err
- (prin1 (funcall
- (async--receive-sexp (unless async-send-over-pipe
- command-line-args-left))))
- (error
- (prin1 (list 'async-signal err)))))))
-
-(defun async-ready (future)
- "Query a FUTURE to see if it is ready.
-
-I.e., if no blocking
-would result from a call to `async-get' on that FUTURE."
- (and (memq (process-status future) '(exit signal))
- (let ((buf (process-buffer future)))
- (if (buffer-live-p buf)
- (with-current-buffer buf
- async-callback-value-set)
- t))))
-
-(defun async-wait (future)
- "Wait for FUTURE to become ready."
- (while (not (async-ready future))
- (sleep-for 0.05)))
-
-(defun async-get (future)
- "Get the value from process FUTURE when it is ready.
-FUTURE is returned by `async-start' or `async-start-process' when
-its FINISH-FUNC is nil."
- (and future (async-wait future))
- (let ((buf (process-buffer future)))
- (when (buffer-live-p buf)
- (with-current-buffer buf
- (async-handle-result
- #'identity async-callback-value (current-buffer))))))
-
-(defun async-message-p (value)
- "Return true of VALUE is an async.el message packet."
- (and (listp value)
- (plist-get value :async-message)))
-
-(defun async-send (&rest args)
- "Send the given messages to the asychronous Emacs PROCESS."
- (let ((args (append args '(:async-message t))))
- (if async-in-child-emacs
- (if async-callback
- (funcall async-callback args))
- (async--transmit-sexp (car args) (list 'quote (cdr args))))))
-
-(defun async-receive ()
- "Send the given messages to the asychronous Emacs PROCESS."
- (async--receive-sexp))
-
-;;;###autoload
-(defun async-start-process (name program finish-func &rest program-args)
- "Start the executable PROGRAM asynchronously. See `async-start'.
-PROGRAM is passed PROGRAM-ARGS, calling FINISH-FUNC with the
-process object when done. If FINISH-FUNC is nil, the future
-object will return the process object when the program is
-finished. Set DEFAULT-DIRECTORY to change PROGRAM's current
-working directory."
- (let* ((buf (generate-new-buffer (concat "*" name "*")))
- (proc (let ((process-connection-type nil))
- (apply #'start-process name buf program program-args))))
- (with-current-buffer buf
- (set (make-local-variable 'async-callback) finish-func)
- (set-process-sentinel proc #'async-when-done)
- (unless (string= name "emacs")
- (set (make-local-variable 'async-callback-for-process) t))
- proc)))
-
-(defvar async-quiet-switch "-Q"
- "The Emacs parameter to use to call emacs without config.
-Can be one of \"-Q\" or \"-q\".
-Default is \"-Q\" but it is sometimes useful to use \"-q\" to have a
-enhanced config or some more variables loaded.")
-
-;;;###autoload
-(defun async-start (start-func &optional finish-func)
- "Execute START-FUNC (often a lambda) in a subordinate Emacs process.
-When done, the return value is passed to FINISH-FUNC. Example:
-
- (async-start
- ;; What to do in the child process
- (lambda ()
- (message \"This is a test\")
- (sleep-for 3)
- 222)
-
- ;; What to do when it finishes
- (lambda (result)
- (message \"Async process done, result should be 222: %s\"
- result)))
-
-If FINISH-FUNC is nil or missing, a future is returned that can
-be inspected using `async-get', blocking until the value is
-ready. Example:
-
- (let ((proc (async-start
- ;; What to do in the child process
- (lambda ()
- (message \"This is a test\")
- (sleep-for 3)
- 222))))
-
- (message \"I'm going to do some work here\") ;; ....
-
- (message \"Waiting on async process, result should be 222: %s\"
- (async-get proc)))
-
-If you don't want to use a callback, and you don't care about any
-return value from the child process, pass the `ignore' symbol as
-the second argument (if you don't, and never call `async-get', it
-will leave *emacs* process buffers hanging around):
-
- (async-start
- (lambda ()
- (delete-file \"a remote file on a slow link\" nil))
- 'ignore)
-
-Note: Even when FINISH-FUNC is present, a future is still
-returned except that it yields no value (since the value is
-passed to FINISH-FUNC). Call `async-get' on such a future always
-returns nil. It can still be useful, however, as an argument to
-`async-ready' or `async-wait'."
- (let ((sexp start-func)
- ;; Subordinate Emacs will send text encoded in UTF-8.
- (coding-system-for-read 'utf-8-auto))
- (setq async--procvar
- (async-start-process
- "emacs" (file-truename
- (expand-file-name invocation-name
- invocation-directory))
- finish-func
- async-quiet-switch "-l"
- ;; Using `locate-library' ensure we use the right file
- ;; when the .elc have been deleted.
- (locate-library "async")
- "-batch" "-f" "async-batch-invoke"
- (if async-send-over-pipe
- "<none>"
- (with-temp-buffer
- (async--insert-sexp (list 'quote sexp))
- (buffer-string)))))
- (if async-send-over-pipe
- (async--transmit-sexp async--procvar (list 'quote sexp)))
- async--procvar))
-
-(defmacro async-sandbox(func)
- "Evaluate FUNC in a separate Emacs process, synchronously."
- `(async-get (async-start ,func)))
-
-(defun async--fold-left (fn forms bindings)
- (let ((res forms))
- (dolist (binding bindings)
- (setq res (funcall fn res
- (if (listp binding)
- binding
- (list binding)))))
- res))
-
-(defmacro async-let (bindings &rest forms)
- "Implements `let', but each binding is established asynchronously.
-For example:
-
- (async-let ((x (foo))
- (y (bar)))
- (message \"%s %s\" x y))
-
- expands to ==>
-
- (async-start (foo)
- (lambda (x)
- (async-start (bar)
- (lambda (y)
- (message \"%s %s\" x y)))))"
- (declare (indent 1))
- (async--fold-left
- (lambda (acc binding)
- (let ((fun (pcase (cadr binding)
- ((and (pred functionp) f) f)
- (f `(lambda () ,f)))))
- `(async-start ,fun
- (lambda (,(car binding))
- ,acc))))
- `(progn ,@forms)
- (reverse bindings)))
-
-(provide 'async)
-
-;;; async.el ends here
diff --git a/elpa/async-20180527.1730/async.elc b/elpa/async-20180527.1730/async.elc
deleted file mode 100644
index e3c4f13..0000000
--- a/elpa/async-20180527.1730/async.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/async-20180527.1730/dired-async.el b/elpa/async-20180527.1730/dired-async.el
deleted file mode 100644
index bc406b3..0000000
--- a/elpa/async-20180527.1730/dired-async.el
+++ /dev/null
@@ -1,405 +0,0 @@
-;;; dired-async.el --- Asynchronous dired actions -*- lexical-binding: t -*-
-
-;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
-
-;; Authors: John Wiegley <jwiegley@gmail.com>
-;; Thierry Volpiatto <thierry.volpiatto@gmail.com>
-
-;; Keywords: dired async network
-;; X-URL: https://github.com/jwiegley/dired-async
-
-;; 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; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; This file provide a redefinition of `dired-create-file' function,
-;; performs copies, moves and all what is handled by `dired-create-file'
-;; in the background using a slave Emacs process,
-;; by means of the async.el module.
-;; To use it, put this in your .emacs:
-
-;; (dired-async-mode 1)
-
-;; This will enable async copy/rename etc...
-;; in dired and helm.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dired-aux)
-(require 'async)
-
-(eval-when-compile
- (defvar async-callback))
-
-(defgroup dired-async nil
- "Copy rename files asynchronously from dired."
- :group 'dired)
-
-(defcustom dired-async-env-variables-regexp
- "\\`\\(tramp-\\(default\\|connection\\|remote\\)\\|ange-ftp\\)-.*"
- "Variables matching this regexp will be loaded on Child Emacs."
- :type 'regexp
- :group 'dired-async)
-
-(defcustom dired-async-message-function 'dired-async-mode-line-message
- "Function to use to notify result when operation finish.
-Should take same args as `message'."
- :group 'dired-async
- :type 'function)
-
-(defcustom dired-async-log-file "/tmp/dired-async.log"
- "File use to communicate errors from Child Emacs to host Emacs."
- :group 'dired-async
- :type 'string)
-
-(defcustom dired-async-mode-lighter '(:eval
- (when (eq major-mode 'dired-mode)
- " Async"))
- "Mode line lighter used for `dired-async-mode'."
- :group 'dired-async
- :risky t
- :type 'sexp)
-
-(defface dired-async-message
- '((t (:foreground "yellow")))
- "Face used for mode-line message."
- :group 'dired-async)
-
-(defface dired-async-failures
- '((t (:foreground "red")))
- "Face used for mode-line message."
- :group 'dired-async)
-
-(defface dired-async-mode-message
- '((t (:foreground "Gold")))
- "Face used for `dired-async--modeline-mode' lighter."
- :group 'dired-async)
-
-(define-minor-mode dired-async--modeline-mode
- "Notify mode-line that an async process run."
- :group 'dired-async
- :global t
- :lighter (:eval (propertize (format " [%s Async job(s) running]"
- (length (dired-async-processes)))
- 'face 'dired-async-mode-message))
- (unless dired-async--modeline-mode
- (let ((visible-bell t)) (ding))))
-
-(defun dired-async-mode-line-message (text face &rest args)
- "Notify end of operation in `mode-line'."
- (message nil)
- (let ((mode-line-format (concat
- " " (propertize
- (if args
- (apply #'format text args)
- text)
- 'face face))))
- (force-mode-line-update)
- (sit-for 3)
- (force-mode-line-update)))
-
-(defun dired-async-processes ()
- (cl-loop for p in (process-list)
- when (cl-loop for c in (process-command p) thereis
- (string= "async-batch-invoke" c))
- collect p))
-
-(defun dired-async-kill-process ()
- (interactive)
- (let* ((processes (dired-async-processes))
- (proc (car (last processes))))
- (and proc (delete-process proc))
- (unless (> (length processes) 1)
- (dired-async--modeline-mode -1))))
-
-(defun dired-async-after-file-create (total operation failures skipped)
- "Callback function used for operation handled by `dired-create-file'."
- (unless (dired-async-processes)
- ;; Turn off mode-line notification
- ;; only when last process end.
- (dired-async--modeline-mode -1))
- (when operation
- (if (file-exists-p dired-async-log-file)
- (progn
- (pop-to-buffer (get-buffer-create dired-log-buffer))
- (goto-char (point-max))
- (setq inhibit-read-only t)
- (insert "Error: ")
- (insert-file-contents dired-async-log-file)
- (special-mode)
- (shrink-window-if-larger-than-buffer)
- (delete-file dired-async-log-file))
- (run-with-timer
- 0.1 nil
- (lambda ()
- ;; First send error messages.
- (cond (failures
- (funcall dired-async-message-function
- "%s failed for %d of %d file%s -- See *Dired log* buffer"
- 'dired-async-failures
- (car operation) (length failures)
- total (dired-plural-s total)))
- (skipped
- (funcall dired-async-message-function
- "%s: %d of %d file%s skipped -- See *Dired log* buffer"
- 'dired-async-failures
- (car operation) (length skipped) total
- (dired-plural-s total))))
- (when dired-buffers
- (cl-loop for (_f . b) in dired-buffers
- when (buffer-live-p b)
- do (with-current-buffer b (revert-buffer nil t))))
- ;; Finally send the success message.
- (funcall dired-async-message-function
- "Asynchronous %s of %s on %s file%s done"
- 'dired-async-message
- (car operation) (cadr operation)
- total (dired-plural-s total)))))))
-
-(defun dired-async-maybe-kill-ftp ()
- "Return a form to kill ftp process in child emacs."
- (quote
- (progn
- (require 'cl-lib)
- (let ((buf (cl-loop for b in (buffer-list)
- thereis (and (string-match
- "\\`\\*ftp.*"
- (buffer-name b)) b))))
- (when buf (kill-buffer buf))))))
-
-(defvar overwrite-query)
-(defun dired-async-create-files (file-creator operation fn-list name-constructor
- &optional _marker-char)
- "Same as `dired-create-files' but asynchronous.
-
-See `dired-create-files' for the behavior of arguments."
- (setq overwrite-query nil)
- (let ((total (length fn-list))
- failures async-fn-list skipped callback
- async-quiet-switch)
- (let (to)
- (dolist (from fn-list)
- (setq to (funcall name-constructor from))
- (if (and (equal to from)
- (null (eq file-creator 'backup-file)))
- (progn
- (setq to nil)
- (dired-log "Cannot %s to same file: %s\n"
- (downcase operation) from)))
- (if (not to)
- (setq skipped (cons (dired-make-relative from) skipped))
- (let* ((overwrite (and (null (eq file-creator 'backup-file))
- (file-exists-p to)))
- (dired-overwrite-confirmed ; for dired-handle-overwrite
- (and overwrite
- (let ((help-form `(format "\
-Type SPC or `y' to overwrite file `%s',
-DEL or `n' to skip to next,
-ESC or `q' to not overwrite any of the remaining files,
-`!' to overwrite all remaining files with no more questions." ,to)))
- (dired-query 'overwrite-query "Overwrite `%s'?" to)))))
- ;; Handle the `dired-copy-file' file-creator specially
- ;; When copying a directory to another directory or
- ;; possibly to itself or one of its subdirectories.
- ;; e.g "~/foo/" => "~/test/"
- ;; or "~/foo/" =>"~/foo/"
- ;; or "~/foo/ => ~/foo/bar/")
- ;; In this case the 'name-constructor' have set the destination
- ;; TO to "~/test/foo" because the old emacs23 behavior
- ;; of `copy-directory' was to not create the subdirectory
- ;; and instead copy the contents.
- ;; With the new behavior of `copy-directory'
- ;; (similar to the `cp' shell command) we don't
- ;; need such a construction of the target directory,
- ;; so modify the destination TO to "~/test/" instead of "~/test/foo/".
- (let ((destname (file-name-directory to)))
- (when (and (file-directory-p from)
- (file-directory-p to)
- (eq file-creator 'dired-copy-file))
- (setq to destname))
- ;; If DESTNAME is a subdirectory of FROM, not a symlink,
- ;; and the method in use is copying, signal an error.
- (and (eq t (car (file-attributes destname)))
- (eq file-creator 'dired-copy-file)
- (file-in-directory-p destname from)
- (error "Cannot copy `%s' into its subdirectory `%s'"
- from to)))
- (if overwrite
- (or (and dired-overwrite-confirmed
- (push (cons from to) async-fn-list))
- (progn
- (push (dired-make-relative from) failures)
- (dired-log "%s `%s' to `%s' failed\n"
- operation from to)))
- (push (cons from to) async-fn-list)))))
- ;; Fix tramp issue #80 with emacs-26, use "-q" only when needed.
- (setq async-quiet-switch
- (if (and (boundp 'tramp-cache-read-persistent-data)
- async-fn-list
- (cl-loop for (_from . to) in async-fn-list
- thereis (file-remote-p to)))
- "-q" "-Q"))
- ;; When failures have been printed to dired log add the date at bob.
- (when (or failures skipped) (dired-log t))
- ;; When async-fn-list is empty that's mean only one file
- ;; had to be copied and user finally answer NO.
- ;; In this case async process will never start and callback
- ;; will have no chance to run, so notify failures here.
- (unless async-fn-list
- (cond (failures
- (funcall dired-async-message-function
- "%s failed for %d of %d file%s -- See *Dired log* buffer"
- 'dired-async-failures
- operation (length failures)
- total (dired-plural-s total)))
- (skipped
- (funcall dired-async-message-function
- "%s: %d of %d file%s skipped -- See *Dired log* buffer"
- 'dired-async-failures
- operation (length skipped) total
- (dired-plural-s total)))))
- ;; Setup callback.
- (setq callback
- (lambda (&optional _ignore)
- (dired-async-after-file-create
- total (list operation (length async-fn-list)) failures skipped)
- (when (string= (downcase operation) "rename")
- (cl-loop for (file . to) in async-fn-list
- for bf = (get-file-buffer file)
- for destp = (file-exists-p to)
- do (and bf destp
- (with-current-buffer bf
- (set-visited-file-name to t t))))))))
- ;; Start async process.
- (when async-fn-list
- (async-start `(lambda ()
- (require 'cl-lib) (require 'dired-aux) (require 'dired-x)
- ,(async-inject-variables dired-async-env-variables-regexp)
- (let ((dired-recursive-copies (quote always))
- (dired-copy-preserve-time
- ,dired-copy-preserve-time))
- (setq overwrite-backup-query nil)
- ;; Inline `backup-file' as long as it is not
- ;; available in emacs.
- (defalias 'backup-file
- ;; Same feature as "cp -f --backup=numbered from to"
- ;; Symlinks are copied as file from source unlike
- ;; `dired-copy-file' which is same as cp -d.
- ;; Directories are omitted.
- (lambda (from to ok)
- (cond ((file-directory-p from) (ignore))
- (t (let ((count 0))
- (while (let ((attrs (file-attributes to)))
- (and attrs (null (nth 0 attrs))))
- (cl-incf count)
- (setq to (concat (file-name-sans-versions to)
- (format ".~%s~" count)))))
- (condition-case err
- (copy-file from to ok dired-copy-preserve-time)
- (file-date-error
- (dired-log "Can't set date on %s:\n%s\n" from err)))))))
- ;; Now run the FILE-CREATOR function on files.
- (cl-loop with fn = (quote ,file-creator)
- for (from . dest) in (quote ,async-fn-list)
- do (condition-case err
- (funcall fn from dest t)
- (file-error
- (dired-log "%s: %s\n" (car err) (cdr err)))
- nil))
- (when (get-buffer dired-log-buffer)
- (dired-log t)
- (with-current-buffer dired-log-buffer
- (write-region (point-min) (point-max)
- ,dired-async-log-file))))
- ,(dired-async-maybe-kill-ftp))
- callback)
- ;; Run mode-line notifications while process running.
- (dired-async--modeline-mode 1)
- (message "%s proceeding asynchronously..." operation))))
-
-(defvar wdired-use-interactive-rename)
-(defun dired-async-wdired-do-renames (old-fn &rest args)
- ;; Perhaps a better fix would be to ask for renaming BEFORE starting
- ;; OLD-FN when `wdired-use-interactive-rename' is non-nil. For now
- ;; just bind it to nil to ensure no questions will be asked between
- ;; each rename.
- (let (wdired-use-interactive-rename)
- (apply old-fn args)))
-
-(defadvice wdired-do-renames (around wdired-async)
- (let (wdired-use-interactive-rename)
- ad-do-it))
-
-(defadvice dired-create-files (around dired-async)
- (dired-async-create-files file-creator operation fn-list
- name-constructor marker-char))
-
-;;;###autoload
-(define-minor-mode dired-async-mode
- "Do dired actions asynchronously."
- :group 'dired-async
- :lighter dired-async-mode-lighter
- :global t
- (if dired-async-mode
- (if (fboundp 'advice-add)
- (progn (advice-add 'dired-create-files :override #'dired-async-create-files)
- (advice-add 'wdired-do-renames :around #'dired-async-wdired-do-renames))
- (ad-activate 'dired-create-files)
- (ad-activate 'wdired-do-renames))
- (if (fboundp 'advice-remove)
- (progn (advice-remove 'dired-create-files #'dired-async-create-files)
- (advice-remove 'wdired-do-renames #'dired-async-wdired-do-renames))
- (ad-deactivate 'dired-create-files)
- (ad-deactivate 'wdired-do-renames))))
-
-(defmacro dired-async--with-async-create-files (&rest body)
- "Evaluate BODY with ‘dired-create-files’ set to ‘dired-async-create-files’."
- (declare (indent 0))
- `(cl-letf (((symbol-function 'dired-create-files) #'dired-async-create-files))
- ,@body))
-
-;;;###autoload
-(defun dired-async-do-copy (&optional arg)
- "Run ‘dired-do-copy’ asynchronously."
- (interactive "P")
- (dired-async--with-async-create-files
- (dired-do-copy arg)))
-
-;;;###autoload
-(defun dired-async-do-symlink (&optional arg)
- "Run ‘dired-do-symlink’ asynchronously."
- (interactive "P")
- (dired-async--with-async-create-files
- (dired-do-symlink arg)))
-
-;;;###autoload
-(defun dired-async-do-hardlink (&optional arg)
- "Run ‘dired-do-hardlink’ asynchronously."
- (interactive "P")
- (dired-async--with-async-create-files
- (dired-do-hardlink arg)))
-
-;;;###autoload
-(defun dired-async-do-rename (&optional arg)
- "Run ‘dired-do-rename’ asynchronously."
- (interactive "P")
- (dired-async--with-async-create-files
- (dired-do-rename arg)))
-
-(provide 'dired-async)
-
-;;; dired-async.el ends here
diff --git a/elpa/async-20180527.1730/dired-async.elc b/elpa/async-20180527.1730/dired-async.elc
deleted file mode 100644
index 04af044..0000000
--- a/elpa/async-20180527.1730/dired-async.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/async-20180527.1730/smtpmail-async.el b/elpa/async-20180527.1730/smtpmail-async.el
deleted file mode 100644
index ac26923..0000000
--- a/elpa/async-20180527.1730/smtpmail-async.el
+++ /dev/null
@@ -1,73 +0,0 @@
-;;; smtpmail-async.el --- Send e-mail with smtpmail.el asynchronously -*- lexical-binding: t -*-
-
-;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
-
-;; Author: John Wiegley <jwiegley@gmail.com>
-;; Created: 18 Jun 2012
-
-;; Keywords: email async
-;; X-URL: https://github.com/jwiegley/emacs-async
-
-;; 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; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Send e-mail with smtpmail.el asynchronously. To use:
-;;
-;; (require 'smtpmail-async)
-;;
-;; (setq send-mail-function 'async-smtpmail-send-it
-;; message-send-mail-function 'async-smtpmail-send-it)
-;;
-;; This assumes you already have smtpmail.el working.
-
-;;; Code:
-
-(defgroup smtpmail-async nil
- "Send e-mail with smtpmail.el asynchronously"
- :group 'smptmail)
-
-(require 'async)
-(require 'smtpmail)
-(require 'message)
-
-(defvar async-smtpmail-before-send-hook nil
- "Hook running in the child emacs in `async-smtpmail-send-it'.
-It is called just before calling `smtpmail-send-it'.")
-
-(defun async-smtpmail-send-it ()
- (let ((to (message-field-value "To"))
- (buf-content (buffer-substring-no-properties
- (point-min) (point-max))))
- (message "Delivering message to %s..." to)
- (async-start
- `(lambda ()
- (require 'smtpmail)
- (with-temp-buffer
- (insert ,buf-content)
- (set-buffer-multibyte nil)
- ;; Pass in the variable environment for smtpmail
- ,(async-inject-variables
- "\\`\\(smtpmail\\|async-smtpmail\\|\\(user-\\)?mail\\)-\\|auth-sources\\|epg\\|nsm"
- nil "\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)")
- (run-hooks 'async-smtpmail-before-send-hook)
- (smtpmail-send-it)))
- (lambda (&optional _ignore)
- (message "Delivering message to %s...done" to)))))
-
-(provide 'smtpmail-async)
-
-;;; smtpmail-async.el ends here
diff --git a/elpa/async-20180527.1730/smtpmail-async.elc b/elpa/async-20180527.1730/smtpmail-async.elc
deleted file mode 100644
index 6705966..0000000
--- a/elpa/async-20180527.1730/smtpmail-async.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/auctex-readme.txt b/elpa/auctex-readme.txt
deleted file mode 100644
index fe474cf..0000000
--- a/elpa/auctex-readme.txt
+++ /dev/null
@@ -1,238 +0,0 @@
-This is the README file for the AUCTeX distribution.
-
- Copyright (C) 2008, 2017 Free Software Foundation, Inc.
-
- Copying and distribution of this file, with or without
- modification, are permitted in any medium without royalty provided
- the copyright notice and this notice are preserved.
-
-Introduction to AUCTeX
-**********************
-
-This file gives a brief overview of what AUCTeX is. It is *not* an
-attempt to document AUCTeX. Real documentation for AUCTeX is available
-in the manual, which should be available as an info file after
-installation.
-
-AUCTeX is a comprehensive customizable integrated environment for
-writing input files for TeX, LaTeX, ConTeXt, Texinfo, and docTeX using
-Emacs.
-
-It supports you in the insertion of macros, environments, and sectioning
-commands by providing completion alternatives and prompting for
-parameters. It automatically indents your text as you type it and lets
-you format a whole file at once. The outlining and folding facilities
-provide you with a focused and clean view of your text.
-
-AUCTeX lets you process your source files by running TeX and related
-tools (such as output filters, post processors for generating indices
-and bibliographies, and viewers) from inside Emacs. AUCTeX lets you
-browse through the errors TeX reported, while it moves the cursor
-directly to the reported error, and displays some documentation for that
-particular error. This will even work when the document is spread over
-several files.
-
-One component of AUCTeX that LaTeX users will find attractive is
-preview-latex, a combination of folding and in-source previewing that
-provides true "What You See Is What You Get" experience in your
-sourcebuffer, while letting you retain full control. For more
-information, see further below.
-
-More detailed information about the features and usage of AUCTeX can be
-found in the AUCTeX manual. You can access it from within Emacs by
-typing 'C-h i d m auctex <RET>'. If you prefer the standalone info
-reader, issue the command 'info auctex' in a terminal.
-
-AUCTeX is written entirely in Emacs Lisp, and hence you can easily add
-new features for your own needs. It is a GNU project and distributed
-under the 'GNU General Public License Version 3'.
-
-The most recent version is always available at
-<http://ftp.gnu.org/pub/gnu/auctex/>.
-
-WWW users may want to check out the AUCTeX page at
-<http://www.gnu.org/software/auctex/>.
-
-For comprehensive information about how to install AUCTeX read the file
-'INSTALL' or 'INSTALL.windows', respectively.
-
-If you are considering upgrading AUCTeX, the recent changes are
-described in the 'CHANGES' file.
-
-If you want to discuss AUCTeX with other users or its developers, there
-are several mailing lists you can use.
-
-Send a mail with the subject "subscribe" to <auctex-request@gnu.org> in
-order to join the general discussion list for AUCTeX. Articles should
-be sent to <auctex@gnu.org>. In a similar way, you can subscribe to the
-<info-auctex@gnu.org> list for just getting important announcements
-about AUCTeX. The list <bug-auctex@gnu.org> is for bug reports which
-you should usually file with the 'M-x TeX-submit-bug-report <RET>'
-command. If you want to address the developers of AUCTeX themselves
-with technical issues, they can be found on the discussion list
-<auctex-devel@gnu.org>.
-preview-latex in a nutshell
-***************************
-
-Does your neck hurt from turning between previewer windows and the
-source too often? This AUCTeX component will render your displayed
-LaTeX equations right into the editing window where they belong.
-
-The purpose of preview-latex is to embed LaTeX environments such as
-display math or figures into the source buffers and switch conveniently
-between source and image representation.
-
-1 What use is it?
-*****************
-
-WYSIWYG (what you see is what you get) sometimes is considered all the
-rage, sometimes frowned upon. Do we really want it? Wrong question.
-The right question is _what_ we want from it. Except when finetuning
-the layout, we don't want to use printer fonts for on-screen text
-editing. The low resolution and contrast of a computer screen render
-all but the coarsest printer fonts (those for low-quality newsprint)
-unappealing, and the margins and pagination of the print are not wanted
-on the screen, either. On the other hand, more complex visual
-compositions like math formulas and tables can't easily be taken in when
-seen only in the source. preview-latex strikes a balance: it only uses
-graphic renditions of the output for certain, configurable constructs,
-does this only when told, and then right in the source code. Switching
-back and forth between the source and preview is easy and natural and
-can be done for each image independently. Behind the scenes of
-preview-latex, a sophisticated framework of other programs like
-'dvipng', Dvips and Ghostscript are employed together with a special
-LaTeX style file for extracting the material of interest in the
-background and providing fast interactive response.
-
-2 Activating preview-latex
-**************************
-
-After installation, the package may need to be activated (and remember
-to activate AUCTeX too). If preview-latex is installed via the Emacs
-package manager (ELPA), activation should be automatic upon
-installation.
-
-The usual activation (if it is not done automatically) would be
-
- (load "preview-latex.el" nil t t)
-
-If you still don't get a "Preview" menu in LaTeX mode in spite of AUCTeX
-showing its "Command", your installation is broken. One possible cause
-are duplicate Lisp files that might be detectable with '<M-x>
-list-load-path-shadows <RET>'.
-
-3 Getting started
-*****************
-
-Once activated, preview-latex and its documentation will be accessible
-via its menus (note that preview-latex requires AUCTeX to be loaded).
-When you have loaded a LaTeX document (a sample document 'circ.tex' is
-included in the distribution, but most documents including math and/or
-figures should do), you can use its menu or 'C-c C-p C-d' (for
-'Preview/Document'). Previews will now be generated for various objects
-in your document. You can use the time to take a short look at the
-other menu entries and key bindings in the 'Preview' menu. You'll see
-the previewed objects change into a roadworks sign when preview-latex
-has determined just what it is going to preview. Note that you can
-freely navigate the buffer while this is going on. When the process is
-finished you will see the objects typeset in your buffer.
-
-It is a bad idea, however, to edit the buffer before the roadworks signs
-appear, since that is the moment when the correlation between the
-original text and the buffer locations gets established. If the buffer
-changes before that point of time, the previews will not be placed where
-they belong. If you do want to change some obvious error you just
-spotted, we recommend you stop the background process by pressing 'C-c
-C-k'.
-
-To see/edit the LaTeX code for a specific object, put the point (the
-cursor) on it and press 'C-c C-p C-p' (for 'Preview/at point'). It will
-also do to click with the middle mouse button on the preview. Now you
-can edit the code, and generate a new preview by again pressing 'C-c C-p
-C-p' (or by clicking with the middle mouse button on the icon before the
-edited text).
-
-If you are using the 'desktop' package, previews will remain from one
-session to the next as long as you don't kill your buffer.
-
-4 Basic modes of operation
-**************************
-
-preview-latex has a number of methods for generating its graphics. Its
-default operation is equivalent to using the 'LaTeX' command from
-AUCTeX. If this happens to be a call of PDFLaTeX generating PDF output
-(you need at least AUCTeX 11.51 for this), then Ghostscript will be
-called directly on the resulting PDF file. If a DVI file gets produced,
-first Dvips and then Ghostscript get called by default.
-
-The image type to be generated by Ghostscript can be configured with
-
- M-x customize-variable RET preview-image-type RET
-
-The default is 'png' (the most efficient image type). A special setting
-is 'dvipng' in case you have the 'dvipng' program installed. In this
-case, 'dvipng' will be used for converting DVI files and Ghostscript
-(with a 'PNG' device) for converting PDF files. 'dvipng' is much faster
-than the combination of Dvips and Ghostscript. You can get downloads,
-access to its CVS archive and further information from its project site
-(http://savannah.nongnu.org/projects/dvipng).
-
-5 More documentation
-********************
-
-After the installation, documentation in the form of an info manual will
-be available. You can access it with the standalone info reader with
-
- info preview-latex
-
-or by pressing 'C-h i d m preview-latex <RET>' in Emacs. Once
-preview-latex is activated, you can instead use 'C-c C-p <TAB>' (or the
-menu entry 'Preview/Read documentation').
-
-Depending on your installation, a printable manual may also be available
-in the form of 'preview-latex.dvi' or 'preview-latex.ps'.
-
-Detailed documentation for the LaTeX style used for extracting the
-preview images is placed in 'preview.dvi' in a suitable directory during
-installation; on typical teTeX-based systems,
-
- texdoc preview
-
-will display it.
-
-6 Availability
-**************
-
-The preview-latex project is now part of AUCTeX and accessible as part
-of the AUCTeX project page (http://savannah.gnu.org/projects/auctex).
-You can get its files from the AUCTeX download area
-(ftp://ftp.gnu.org/pub/gnu/auctex). As of AUCTeX 11.81, preview-latex
-should already be integrated into AUCTeX, so no separate download will
-be necessary.
-
-You will also find '.rpm' files there for Fedora and possibly SuSE.
-Anonymous Git is available as well.
-
-7 Contacts
-**********
-
-Bug reports should be sent by using 'M-x preview-report-bug <RET>', as
-this will fill in a lot of information interesting to us. If the
-installation fails (but this should be a rare event), report bugs to
-<bug-auctex@gnu.org>.
-
-There is a general discussion list for AUCTeX which also covers
-preview-latex, look at <http://lists.gnu.org/mailman/listinfo/auctex>.
-For more information on the mailing list, send a message with just the
-word "help" as subject or body to <auctex-request@gnu.org>. For the
-developers, there is the <auctex-devel@gnu.org> list; it would probably
-make sense to direct feature requests and questions about internal
-details there. There is a low-volume read-only announcement list
-available to which you can subscribe by sending a mail with "subscribe"
-in the subject to <info-auctex-request@gnu.org>.
-
-Offers to support further development will be appreciated. If you want
-to show your appreciation with a donation to the main developer, you can
-do so via PayPal to <dak@gnu.org>, and of course you can arrange for
-service contracts or for added functionality. Take a look at the 'TODO'
-list for suggestions in that area.
diff --git a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode-autoloads.el b/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode-autoloads.el
deleted file mode 100644
index 30db341..0000000
--- a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode-autoloads.el
+++ /dev/null
@@ -1,54 +0,0 @@
-;;; clean-aindent-mode-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "clean-aindent-mode" "clean-aindent-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from clean-aindent-mode.el
-
-(defvar clean-aindent-mode nil "\
-Non-nil if Clean-Aindent mode is enabled.
-See the `clean-aindent-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `clean-aindent-mode'.")
-
-(custom-autoload 'clean-aindent-mode "clean-aindent-mode" nil)
-
-(autoload 'clean-aindent-mode "clean-aindent-mode" "\
-Activates clean auto indent for function 'newline-and-indent' and
-back-space unindent for M-DEL (meta-backspace).
-
-clean-aindent mode is a global minor mode.
-
-1. Extension of 'newline-and-indent' that keeps track of the last
-auto-indent operation and, if it is abandoned, would take care to
-trim down the unused white space characters.
-
-2. Simple indent, if activated, where cursor is aligned with
-indent of the lines above.
-
-3. Backspace Unindent. Extension of M-backspace. When cursor is
-in the indentation space of a line, or at the first character and
-you press M-backspace it will move the entire line to be aligned
-to the line above or any other that is with indentation smaller
-than the current.
-
-\(fn &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "clean-aindent-mode" '("clean-aindent-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; clean-aindent-mode-autoloads.el ends here
diff --git a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode-pkg.el b/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode-pkg.el
deleted file mode 100644
index 0d55a76..0000000
--- a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "clean-aindent-mode" "20171017.2043" "Simple indent and unindent, trims indent white-space" 'nil :commit "a97bcae8f43a9ff64e95473e4ef0d8bafe829211" :keywords '("indentation" "whitespace" "backspace") :authors '(("peter marinov" . "efravia@gmail.com")) :maintainer '("peter marinov" . "efravia@gmail.com") :url "https://github.com/pmarinov/clean-aindent-mode")
diff --git a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode.el b/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode.el
deleted file mode 100644
index ff6ab2a..0000000
--- a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode.el
+++ /dev/null
@@ -1,336 +0,0 @@
-;;; clean-aindent-mode.el --- Simple indent and unindent, trims indent white-space
-
-;; This is free and unencumbered software released into the public domain.
-;; (http://unlicense.org)
-
-;; Author: peter marinov <efravia@gmail.com>
-;; Created: 2013-08-17
-;; Last: 2015-08-16
-;; Version: 1.5.0
-;; Package-Version: 20171017.2043
-;; License: C0 (public domain)
-;; URL: https://github.com/pmarinov/clean-aindent-mode
-;; Doc URL: http://www.emacswiki.org/emacs/CleanAutoIndent
-;; Keywords: indentation whitespace backspace
-
-;; This file is not part of GNU Emacs.
-
-;;; Commentary:
-
-;; === Description of the features
-;; 1. Extension of 'newline-and-indent' that keeps track of the last
-;; auto-indent operation and, if it is abandoned, would take care to
-;; trim down the unused white space characters.
-;;
-;; 2. Simple indent, if activated, where cursor is aligned with
-;; indent of the lines above.
-;;
-;; 3. Backspace Unindent. Extension of M-backspace.
-;; When cursor is in the indentation space of a line, or at the first
-;; character and you press M-backspace it will move the entire line to
-;; be aligned to the line above or any other that is with indentation
-;; smaller than the current.
-;;
-;; Detailed documentation with example situations and screenshots:
-;; http://www.emacswiki.org/emacs/CleanAutoIndent
-;;
-;; === To activate
-;; 'M-x clean-aindent-mode'
-;; or
-;; add this to your init.el:
-;; (clean-aindent-mode t)
-;;
-;; By default auto-indent is bound to 'C-j'. Bind it to 'RET' for most
-;; convenient use of the features. Add this to your init.el:
-;; (define-key global-map (kbd "RET") 'newline-and-indent)
-;;
-;; In case you installed the extension via MELPA, use this suggested configiration:
-;;
-;; (defun my-pkg-init()
-;; (electric-indent-mode -1) ; no electric indent, auto-indent is sufficient
-;; (clean-aindent-mode t)
-;; (setq clean-aindent-is-simple-indent t)
-;; (define-key global-map (kbd "RET") 'newline-and-indent))
-;; (add-hook 'after-init-hook 'my-pkg-init)
-;;
-;; === Options
-;; M-x customize, search for 'auto indent', toggle to on,
-;; then 'Apply and Save'.
-;; or
-;; add this to your init.el:
-;; (set 'clean-aindent-is-simple-indent t)
-;;
-
-;;; Change Log:
-;;
-;; 2015-06-18, v1.5.0, pmarinov
-;; - Fix for a compiler warning by justbur
-;; - Extra comments in README
-;;
-;; 2014-06-14, pmarinov, v1.4.0
-;; - Implement as an advice to 'newline-and-indent'
-;;
-;; 2014-06-01, pmarinov, v1.3.0
-;; - Activate via a minor mode
-;; - Further cleanup of the name space
-;;
-;; 2014-05-27, pmarinov, v1.2.0
-;; Changed: Move all function under the same namespace (function prefix)
-;;
-;; 2014-03-07, pmarinov, v1.1.0
-;; Added: Simple auto indent feature. Configurable via M-x customize.
-;;
-;; 2013-08-31, pmarinov, v1.0.0
-;; First implementation.
-;;
-
-
-(defgroup clean-aindent nil
- "Settings for 'clean-aindent-mode'"
- :group 'indent)
-
-(defcustom clean-aindent-is-simple-indent nil
- "Determines if indentation should use the smart language mode or simple mode"
- :tag "Clean auto indent is in simple mode"
- :group 'clean-aindent
- :type 'boolean)
-
-;;
-;; Implementation of Clean auto indent and simple indent
-;;
-
-(defun clean-aindent--get-indent-len()
- "Computes the length of the line at 'clean-aindent--last-indent."
- (let ((eol-pos 0))
- (save-excursion
- (goto-char clean-aindent--last-indent)
- (end-of-line)
- (setq eol-pos (point))
- (beginning-of-line)
- ;; return ln-len = eol-pos - pos
- (- eol-pos (point)))))
-
-(defun clean-aindent--abandonedp()
- "Checks if last auto-indent position was abandoned.
-Verifies if cursor moved away and that the indent was left
-unaltered."
- (if (not clean-aindent--last-indent)
- nil
- ;; (message "clean-aindent--last-indent %d point %d" clean-aindent--last-indent (point))
- (if (= clean-aindent--last-indent (point))
- nil
- ;; Checking for indent length is to detect if something was not
- ;; typed to alter it. Altered indent shouldn't be trimmed.
- (if (not (= clean-aindent--last-indent-len (clean-aindent--get-indent-len)))
- nil
- t))))
-
-(defun clean-aindent--trim-last-point()
- "Deletes the whitespaces inserted at last indentation"
- (save-excursion
- (goto-char clean-aindent--last-indent)
- ; Select the entire line
- (let ((s 0)
- (e 0))
- (beginning-of-line)
- (setq s (point))
- (end-of-line)
- (setq e (point))
- (delete-trailing-whitespace s e)
- (end-of-line)
- (message "auto trimmed %d chars" (- e (point))))))
-
-(defun clean-aindent--check-last-point()
- "Checks if last pos of auto-indent was abandoned and deletes it"
- (if (clean-aindent--abandonedp)
- (clean-aindent--trim-last-point))
- ;; Once we leave the position, clean the indent bookmark
- (if
- (and
- clean-aindent--last-indent
- (not (= clean-aindent--last-indent (point))))
- (setq clean-aindent--last-indent nil)))
-
-(defun clean-aindent--find-indent()
- "Searches lines backward, finds first non-blank. Returns
-indentation value"
- (save-excursion
- ;; Walk lines backward, until first non-blank
- (clean-aindent--prev-line)
- ;; Return indentation of that line
- (current-indentation)))
-
-(defun clean-aindent--simple-newline-and-indent()
- "Simple auto indent. Indentation is based only on previous line
-indentation, regardless of language settings."
- ;; First remove any trailing spaces from the current line
- (save-excursion
- (let ((s 0)
- (e 0))
- (beginning-of-line)
- (setq s (point))
- (end-of-line)
- (setq e (point))
- (delete-trailing-whitespace s e)
- (end-of-line)))
- ;; Insert a new line and indent
- (newline)
- (indent-to (clean-aindent--find-indent) 0))
-
-(defadvice newline-and-indent (around clean-aindent)
- "Advice for newline-and-indent(), implements clean auto-indent.
-Removes unneeded whitespaces by keeping track of the place of the
-last indentation so that they can be deleted in case the indentation was
-abandoned."
- (clean-aindent--check-last-point) ;; In case of consequtive aindent calls
- (if clean-aindent-is-simple-indent
- (clean-aindent--simple-newline-and-indent) ;; Run our simple indent feature
- (progn
- ad-do-it)) ;; Run 'newline-and-indent' here
- (setq clean-aindent--last-indent nil)
- ;; Make local: track on per buffer basis
- (make-local-variable 'clean-aindent--last-indent)
- ;; Track position and length of the indentation
- (setq clean-aindent--last-indent (point))
- (setq clean-aindent--last-indent-len (clean-aindent--get-indent-len))
- (make-local-variable 'clean-aindent--last-indent-len))
-
-;;
-;; Backspace-unindent implementation functions
-;;
-
-(defun clean-aindent--get-line-len()
- "Computes length of current line"
- (save-excursion
- (beginning-of-line nil)
- (let ((pos (point)))
- (end-of-line nil)
- (- (point) pos))))
-
-(defun clean-aindent--line-emptyp()
- "Checks if line is empty"
- (save-excursion
- (beginning-of-line nil)
- (if (= (point) 1)
- nil
- (= (clean-aindent--get-line-len) 0))))
-
-(defun clean-aindent--prev-line()
- "Move cursor to previous line, skip empty lines"
- (let ((c (point)))
- (while
- (and
- (= 0 (forward-line -1))
- (clean-aindent--line-emptyp)))
- ;; return 't if we moved, nil if already beginning of buffer
- (not (= c (point)))))
-
-(defun clean-aindent--find-u-indent(start)
- "Searches lines backward, finds the one that is indented less
-than certain indentation t"
- (save-excursion
- (let (c)
- (while
- (and
- (setq c (current-indentation))
- (> c 0)
- ;; Find an indent smaller than _start_
- (<= start c)
- ;; Walk lines backward
- (clean-aindent--prev-line)))
- ;; _c_ is the computed unindent size
- c)))
-
-(defun clean-aindent--inside-indentp()
- "Returns true if cursor is in the leading whitespace or first
-non-blank character of a line"
- (save-excursion
- (let ((pos (point)))
- (beginning-of-line nil)
- (skip-chars-forward " \t")
- (if (<= pos (point))
- t
- nil))))
-
-(defun clean-aindent--line-point()
- "Get (point) at the beginning of the current line"
- (save-excursion
- (beginning-of-line)
- (point)))
-
-(defun clean-aindent--goto-column(col)
- "Moves the cursor to a certain column position.
-Column position is different from char position because of TABs"
- (beginning-of-line nil)
- (while (< (current-column) col)
- (right-char)))
-
-(defun clean-aindent--bsunindent(arg)
- "Unindents.
-Bound to `M-backspace' key. Searches lines backward, finds the one that
-is indented less than the current one. Unindents current line to
-align with that smaller indentation"
- (interactive "p")
- (if (not (clean-aindent--inside-indentp))
- (kill-word (- arg)) ;; Original "C-backspace" key function
- ;; else: cursor is inside indent space, do unindent
- (let*
- ((ln (clean-aindent--line-point))
- (c (current-indentation))
- (n (clean-aindent--find-u-indent c)) ;; compute new indent
- (s (+ ln n))) ;; start of region to delete
- (if (not (= s c))
- (progn
- ;; (message "new unindent %d" n)
- ;; Delete characters between s to c
- (clean-aindent--goto-column c)
- (backward-delete-char-untabify (- c n)))))))
-
-
-;;
-;; Initial setup
-;;
-
-(defvar clean-aindent--last-indent nil)
-(defvar clean-aindent--last-indent-len 0)
-
-(defvar clean-aindent-mode--keymap (make-keymap) "clean-aindent-mode keymap.")
-(define-key clean-aindent-mode--keymap [remap backward-kill-word] 'clean-aindent--bsunindent)
-
-;;;###autoload
-(define-minor-mode clean-aindent-mode
- "Activates clean auto indent for function 'newline-and-indent' and
-back-space unindent for M-DEL (meta-backspace).
-
-clean-aindent mode is a global minor mode.
-
-1. Extension of 'newline-and-indent' that keeps track of the last
-auto-indent operation and, if it is abandoned, would take care to
-trim down the unused white space characters.
-
-2. Simple indent, if activated, where cursor is aligned with
-indent of the lines above.
-
-3. Backspace Unindent. Extension of M-backspace. When cursor is
-in the indentation space of a line, or at the first character and
-you press M-backspace it will move the entire line to be aligned
-to the line above or any other that is with indentation smaller
-than the current."
- :init-value nil ; The initial value - disabled by default
- :global t ; Global minor mode
- :keymap clean-aindent-mode--keymap
- ;; BODY
- (if clean-aindent-mode
- ;; Activate
- (progn
- (ad-enable-advice 'newline-and-indent 'around 'clean-aindent)
- (ad-activate 'newline-and-indent)
- (add-hook 'post-command-hook 'clean-aindent--check-last-point))
- ;; Deactivate
- (progn
- (ad-disable-advice 'newline-and-indent 'around 'clean-aindent)
- (ad-activate 'newline-and-indent)
- (remove-hook 'post-command-hook 'clean-aindent--check-last-point))))
-
-(provide 'clean-aindent-mode)
-;;; clean-aindent-mode.el ends here
diff --git a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode.elc b/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode.elc
deleted file mode 100644
index fb64f1e..0000000
--- a/elpa/clean-aindent-mode-20171017.2043/clean-aindent-mode.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-abbrev.el b/elpa/company-20181105.2312/company-abbrev.el
deleted file mode 100644
index 24ec3b7..0000000
--- a/elpa/company-20181105.2312/company-abbrev.el
+++ /dev/null
@@ -1,50 +0,0 @@
-;;; company-abbrev.el --- company-mode completion backend for abbrev
-
-;; Copyright (C) 2009-2011, 2015 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-(require 'abbrev)
-
-(defun company-abbrev-insert (match)
- "Replace MATCH with the expanded abbrev."
- (expand-abbrev))
-
-;;;###autoload
-(defun company-abbrev (command &optional arg &rest ignored)
- "`company-mode' completion backend for abbrev."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-abbrev
- 'company-abbrev-insert))
- (prefix (company-grab-symbol))
- (candidates (nconc
- (delete "" (all-completions arg global-abbrev-table))
- (delete "" (all-completions arg local-abbrev-table))))
- (meta (abbrev-expansion arg))))
-
-(provide 'company-abbrev)
-;;; company-abbrev.el ends here
diff --git a/elpa/company-20181105.2312/company-abbrev.elc b/elpa/company-20181105.2312/company-abbrev.elc
deleted file mode 100644
index 29bd4a3..0000000
--- a/elpa/company-20181105.2312/company-abbrev.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-autoloads.el b/elpa/company-20181105.2312/company-autoloads.el
deleted file mode 100644
index 4f3bf48..0000000
--- a/elpa/company-20181105.2312/company-autoloads.el
+++ /dev/null
@@ -1,383 +0,0 @@
-;;; company-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "company" "company.el" (0 0 0 0))
-;;; Generated autoloads from company.el
-
-(autoload 'company-mode "company" "\
-\"complete anything\"; is an in-buffer completion framework.
-Completion starts automatically, depending on the values
-`company-idle-delay' and `company-minimum-prefix-length'.
-
-Completion can be controlled with the commands:
-`company-complete-common', `company-complete-selection', `company-complete',
-`company-select-next', `company-select-previous'. If these commands are
-called before `company-idle-delay', completion will also start.
-
-Completions can be searched with `company-search-candidates' or
-`company-filter-candidates'. These can be used while completion is
-inactive, as well.
-
-The completion data is retrieved using `company-backends' and displayed
-using `company-frontends'. If you want to start a specific backend, call
-it interactively or use `company-begin-backend'.
-
-By default, the completions list is sorted alphabetically, unless the
-backend chooses otherwise, or `company-transformers' changes it later.
-
-regular keymap (`company-mode-map'):
-
-\\{company-mode-map}
-keymap during active completions (`company-active-map'):
-
-\\{company-active-map}
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-company-mode nil "\
-Non-nil if Global Company mode is enabled.
-See the `global-company-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-company-mode'.")
-
-(custom-autoload 'global-company-mode "company" nil)
-
-(autoload 'global-company-mode "company" "\
-Toggle Company mode in all buffers.
-With prefix ARG, enable Global Company mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Company mode is enabled in all buffers where
-`company-mode-on' would do it.
-See `company-mode' for more information on Company mode.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'company-manual-begin "company" "\
-
-
-\(fn)" t nil)
-
-(autoload 'company-complete "company" "\
-Insert the common part of all candidates or the current selection.
-The first time this is called, the common part is inserted, the second
-time, or when the selection has been changed, the selected candidate is
-inserted.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company" '("company-")))
-
-;;;***
-
-;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from company-abbrev.el
-
-(autoload 'company-abbrev "company-abbrev" "\
-`company-mode' completion backend for abbrev.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-abbrev" '("company-abbrev-insert")))
-
-;;;***
-
-;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (0 0 0 0))
-;;; Generated autoloads from company-bbdb.el
-
-(autoload 'company-bbdb "company-bbdb" "\
-`company-mode' completion backend for BBDB.
-
-\(fn COMMAND &optional ARG &rest IGNORE)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-bbdb" '("company-bbdb-")))
-
-;;;***
-
-;;;### (autoloads nil "company-capf" "company-capf.el" (0 0 0 0))
-;;; Generated autoloads from company-capf.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-capf" '("company-")))
-
-;;;***
-
-;;;### (autoloads nil "company-clang" "company-clang.el" (0 0 0 0))
-;;; Generated autoloads from company-clang.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-clang" '("company-clang")))
-
-;;;***
-
-;;;### (autoloads nil "company-cmake" "company-cmake.el" (0 0 0 0))
-;;; Generated autoloads from company-cmake.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-cmake" '("company-cmake")))
-
-;;;***
-
-;;;### (autoloads nil "company-css" "company-css.el" (0 0 0 0))
-;;; Generated autoloads from company-css.el
-
-(autoload 'company-css "company-css" "\
-`company-mode' completion backend for `css-mode'.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-css" '("company-css-")))
-
-;;;***
-
-;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (0 0
-;;;;;; 0 0))
-;;; Generated autoloads from company-dabbrev.el
-
-(autoload 'company-dabbrev "company-dabbrev" "\
-dabbrev-like `company-mode' completion backend.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-dabbrev" '("company-dabbrev-")))
-
-;;;***
-
-;;;### (autoloads nil "company-dabbrev-code" "company-dabbrev-code.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from company-dabbrev-code.el
-
-(autoload 'company-dabbrev-code "company-dabbrev-code" "\
-dabbrev-like `company-mode' backend for code.
-The backend looks for all symbols in the current buffer that aren't in
-comments or strings.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-dabbrev-code" '("company-dabbrev-code-")))
-
-;;;***
-
-;;;### (autoloads nil "company-eclim" "company-eclim.el" (0 0 0 0))
-;;; Generated autoloads from company-eclim.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-eclim" '("company-eclim")))
-
-;;;***
-
-;;;### (autoloads nil "company-elisp" "company-elisp.el" (0 0 0 0))
-;;; Generated autoloads from company-elisp.el
-
-(autoload 'company-elisp "company-elisp" "\
-`company-mode' completion backend for Emacs Lisp.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-elisp" '("company-elisp-")))
-
-;;;***
-
-;;;### (autoloads nil "company-etags" "company-etags.el" (0 0 0 0))
-;;; Generated autoloads from company-etags.el
-
-(autoload 'company-etags "company-etags" "\
-`company-mode' completion backend for etags.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-etags" '("company-etags-")))
-
-;;;***
-
-;;;### (autoloads nil "company-files" "company-files.el" (0 0 0 0))
-;;; Generated autoloads from company-files.el
-
-(autoload 'company-files "company-files" "\
-`company-mode' completion backend existing file names.
-Completions works for proper absolute and relative files paths.
-File paths with spaces are only supported inside strings.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-files" '("company-file")))
-
-;;;***
-
-;;;### (autoloads nil "company-gtags" "company-gtags.el" (0 0 0 0))
-;;; Generated autoloads from company-gtags.el
-
-(autoload 'company-gtags "company-gtags" "\
-`company-mode' completion backend for GNU Global.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-gtags" '("company-gtags-")))
-
-;;;***
-
-;;;### (autoloads nil "company-ispell" "company-ispell.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from company-ispell.el
-
-(autoload 'company-ispell "company-ispell" "\
-`company-mode' completion backend using Ispell.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-ispell" '("company-ispell-")))
-
-;;;***
-
-;;;### (autoloads nil "company-keywords" "company-keywords.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from company-keywords.el
-
-(autoload 'company-keywords "company-keywords" "\
-`company-mode' backend for programming language keywords.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-keywords" '("company-keywords-")))
-
-;;;***
-
-;;;### (autoloads nil "company-nxml" "company-nxml.el" (0 0 0 0))
-;;; Generated autoloads from company-nxml.el
-
-(autoload 'company-nxml "company-nxml" "\
-`company-mode' completion backend for `nxml-mode'.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-nxml" '("company-nxml-")))
-
-;;;***
-
-;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (0 0
-;;;;;; 0 0))
-;;; Generated autoloads from company-oddmuse.el
-
-(autoload 'company-oddmuse "company-oddmuse" "\
-`company-mode' completion backend for `oddmuse-mode'.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-oddmuse" '("company-oddmuse-")))
-
-;;;***
-
-;;;### (autoloads nil "company-semantic" "company-semantic.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from company-semantic.el
-
-(autoload 'company-semantic "company-semantic" "\
-`company-mode' completion backend using CEDET Semantic.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-semantic" '("company-semantic-")))
-
-;;;***
-
-;;;### (autoloads nil "company-template" "company-template.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from company-template.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-template" '("company-template-")))
-
-;;;***
-
-;;;### (autoloads nil "company-tempo" "company-tempo.el" (0 0 0 0))
-;;; Generated autoloads from company-tempo.el
-
-(autoload 'company-tempo "company-tempo" "\
-`company-mode' completion backend for tempo.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-tempo" '("company-tempo-")))
-
-;;;***
-
-;;;### (autoloads nil "company-tng" "company-tng.el" (0 0 0 0))
-;;; Generated autoloads from company-tng.el
-
-(autoload 'company-tng-frontend "company-tng" "\
-When the user changes the selection at least once, this
-frontend will display the candidate in the buffer as if it's
-already there and any key outside of `company-active-map' will
-confirm the selection and finish the completion.
-
-\(fn COMMAND)" nil nil)
-
-(autoload 'company-tng-configure-default "company-tng" "\
-Applies the default configuration to enable company-tng.
-
-\(fn)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-tng" '("company-tng--")))
-
-;;;***
-
-;;;### (autoloads nil "company-xcode" "company-xcode.el" (0 0 0 0))
-;;; Generated autoloads from company-xcode.el
-
-(autoload 'company-xcode "company-xcode" "\
-`company-mode' completion backend for Xcode projects.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-xcode" '("company-xcode-")))
-
-;;;***
-
-;;;### (autoloads nil "company-yasnippet" "company-yasnippet.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from company-yasnippet.el
-
-(autoload 'company-yasnippet "company-yasnippet" "\
-`company-mode' backend for `yasnippet'.
-
-This backend should be used with care, because as long as there are
-snippets defined for the current major mode, this backend will always
-shadow backends that come after it. Recommended usages:
-
-* In a buffer-local value of `company-backends', grouped with a backend or
- several that provide actual text completions.
-
- (add-hook 'js-mode-hook
- (lambda ()
- (set (make-local-variable 'company-backends)
- '((company-dabbrev-code company-yasnippet)))))
-
-* After keyword `:with', grouped with other backends.
-
- (push '(company-semantic :with company-yasnippet) company-backends)
-
-* Not in `company-backends', just bound to a key.
-
- (global-set-key (kbd \"C-c y\") 'company-yasnippet)
-
-\(fn COMMAND &optional ARG &rest IGNORE)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-yasnippet" '("company-yasnippet--")))
-
-;;;***
-
-;;;### (autoloads nil nil ("company-pkg.el") (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; company-autoloads.el ends here
diff --git a/elpa/company-20181105.2312/company-bbdb.el b/elpa/company-20181105.2312/company-bbdb.el
deleted file mode 100644
index 872e1fc..0000000
--- a/elpa/company-20181105.2312/company-bbdb.el
+++ /dev/null
@@ -1,61 +0,0 @@
-;;; company-bbdb.el --- company-mode completion backend for BBDB in message-mode
-
-;; Copyright (C) 2013-2014, 2016 Free Software Foundation, Inc.
-
-;; Author: Jan Tatarik <jan.tatarik@gmail.com>
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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/>.
-
-(require 'company)
-(require 'cl-lib)
-
-(declare-function bbdb-record-get-field "bbdb")
-(declare-function bbdb-records "bbdb")
-(declare-function bbdb-dwim-mail "bbdb-com")
-(declare-function bbdb-search "bbdb-com")
-
-(defgroup company-bbdb nil
- "Completion backend for BBDB."
- :group 'company)
-
-(defcustom company-bbdb-modes '(message-mode)
- "Major modes in which `company-bbdb' may complete."
- :type '(repeat (symbol :tag "Major mode"))
- :package-version '(company . "0.8.8"))
-
-(defun company-bbdb--candidates (arg)
- (cl-mapcan (lambda (record)
- (mapcar (lambda (mail) (bbdb-dwim-mail record mail))
- (bbdb-record-get-field record 'mail)))
- (eval '(bbdb-search (bbdb-records) arg nil arg))))
-
-;;;###autoload
-(defun company-bbdb (command &optional arg &rest ignore)
- "`company-mode' completion backend for BBDB."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-bbdb))
- (prefix (and (memq major-mode company-bbdb-modes)
- (featurep 'bbdb-com)
- (looking-back "^\\(To\\|Cc\\|Bcc\\): *.*? *\\([^,;]*\\)"
- (line-beginning-position))
- (match-string-no-properties 2)))
- (candidates (company-bbdb--candidates arg))
- (sorted t)
- (no-cache t)))
-
-(provide 'company-bbdb)
-;;; company-bbdb.el ends here
diff --git a/elpa/company-20181105.2312/company-bbdb.elc b/elpa/company-20181105.2312/company-bbdb.elc
deleted file mode 100644
index cbe13a6..0000000
--- a/elpa/company-20181105.2312/company-bbdb.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-capf.el b/elpa/company-20181105.2312/company-capf.el
deleted file mode 100644
index 343edca..0000000
--- a/elpa/company-20181105.2312/company-capf.el
+++ /dev/null
@@ -1,189 +0,0 @@
-;;; company-capf.el --- company-mode completion-at-point-functions backend -*- lexical-binding: t -*-
-
-;; Copyright (C) 2013-2018 Free Software Foundation, Inc.
-
-;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-;; The CAPF back-end provides a bridge to the standard
-;; completion-at-point-functions facility, and thus can support any major mode
-;; that defines a proper completion function, including emacs-lisp-mode,
-;; css-mode and nxml-mode.
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defvar company--capf-cache nil)
-
-(defun company--capf-data ()
- (let ((cache company--capf-cache))
- (if (and (equal (current-buffer) (car cache))
- (equal (point) (car (setq cache (cdr cache))))
- (equal (buffer-chars-modified-tick) (car (setq cache (cdr cache)))))
- (cadr cache)
- (let ((data (company--capf-data-real)))
- (setq company--capf-cache
- (list (current-buffer) (point) (buffer-chars-modified-tick) data))
- data))))
-
-(defun company--capf-data-real ()
- (cl-letf* (((default-value 'completion-at-point-functions)
- ;; Ignore tags-completion-at-point-function because it subverts
- ;; company-etags in the default value of company-backends, where
- ;; the latter comes later.
- (remove 'tags-completion-at-point-function
- (default-value 'completion-at-point-functions)))
- (completion-at-point-functions (company--capf-workaround))
- (data (run-hook-wrapped 'completion-at-point-functions
- ;; Ignore misbehaving functions.
- #'completion--capf-wrapper 'optimist)))
- (when (and (consp (cdr data)) (integer-or-marker-p (nth 1 data))) data)))
-
-(declare-function python-shell-get-process "python")
-
-(defun company--capf-workaround ()
- ;; For http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18067
- (if (or (not (listp completion-at-point-functions))
- (not (memq 'python-completion-complete-at-point completion-at-point-functions))
- (python-shell-get-process))
- completion-at-point-functions
- (remq 'python-completion-complete-at-point completion-at-point-functions)))
-
-(defun company-capf (command &optional arg &rest _args)
- "`company-mode' backend using `completion-at-point-functions'."
- (interactive (list 'interactive))
- (pcase command
- (`interactive (company-begin-backend 'company-capf))
- (`prefix
- (let ((res (company--capf-data)))
- (when res
- (let ((length (plist-get (nthcdr 4 res) :company-prefix-length))
- (prefix (buffer-substring-no-properties (nth 1 res) (point))))
- (cond
- ((> (nth 2 res) (point)) 'stop)
- (length (cons prefix length))
- (t prefix))))))
- (`candidates
- (let ((res (company--capf-data)))
- (when res
- (let* ((table (nth 3 res))
- (pred (plist-get (nthcdr 4 res) :predicate))
- (meta (completion-metadata
- (buffer-substring (nth 1 res) (nth 2 res))
- table pred))
- (sortfun (cdr (assq 'display-sort-function meta)))
- (candidates (completion-all-completions arg table pred (length arg)))
- (last (last candidates))
- (base-size (and (numberp (cdr last)) (cdr last))))
- (when base-size
- (setcdr last nil))
- (when sortfun
- (setq candidates (funcall sortfun candidates)))
- (if (not (zerop (or base-size 0)))
- (let ((before (substring arg 0 base-size)))
- (mapcar (lambda (candidate)
- (concat before candidate))
- candidates))
- candidates)))))
- (`sorted
- (let ((res (company--capf-data)))
- (when res
- (let ((meta (completion-metadata
- (buffer-substring (nth 1 res) (nth 2 res))
- (nth 3 res) (plist-get (nthcdr 4 res) :predicate))))
- (cdr (assq 'display-sort-function meta))))))
- (`match
- ;; Ask the for the `:company-match' function. If that doesn't help,
- ;; fallback to sniffing for face changes to get a suitable value.
- (let ((f (plist-get (nthcdr 4 (company--capf-data)) :company-match)))
- (if f (funcall f arg)
- (let* ((match-start nil) (pos -1)
- (prop-value nil) (faces nil)
- (has-face-p nil) chunks
- (limit (length arg)))
- (while (< pos limit)
- (setq pos
- (if (< pos 0) 0 (next-property-change pos arg limit)))
- (setq prop-value (or
- (get-text-property pos 'face arg)
- (get-text-property pos 'font-lock-face arg))
- faces (if (listp prop-value) prop-value (list prop-value))
- has-face-p (memq 'completions-common-part faces))
- (cond ((and (not match-start) has-face-p)
- (setq match-start pos))
- ((and match-start (not has-face-p))
- (push (cons match-start pos) chunks)
- (setq match-start nil))))
- (nreverse chunks)))))
- (`duplicates t)
- (`no-cache t) ;Not much can be done here, as long as we handle
- ;non-prefix matches.
- (`meta
- (let ((f (plist-get (nthcdr 4 (company--capf-data)) :company-docsig)))
- (when f (funcall f arg))))
- (`doc-buffer
- (let ((f (plist-get (nthcdr 4 (company--capf-data)) :company-doc-buffer)))
- (when f (funcall f arg))))
- (`location
- (let ((f (plist-get (nthcdr 4 (company--capf-data)) :company-location)))
- (when f (funcall f arg))))
- (`annotation
- (save-excursion
- ;; FIXME: `company-begin' sets `company-point' after calling
- ;; `company--begin-new'. We shouldn't rely on `company-point' here,
- ;; better to cache the capf-data value instead. However: we can't just
- ;; save the last capf-data value in `prefix', because that command can
- ;; get called more often than `candidates', and at any point in the
- ;; buffer (https://github.com/company-mode/company-mode/issues/153).
- ;; We could try propertizing the returned prefix string, but it's not
- ;; passed to `annotation', and `company-prefix' is set only after
- ;; `company--strip-duplicates' is called.
- (when company-point
- (goto-char company-point))
- (let ((f (plist-get (nthcdr 4 (company--capf-data)) :annotation-function)))
- (when f (funcall f arg)))))
- (`require-match
- (plist-get (nthcdr 4 (company--capf-data)) :company-require-match))
- (`init nil) ;Don't bother: plenty of other ways to initialize the code.
- (`post-completion
- (company--capf-post-completion arg))
- ))
-
-(defun company--capf-post-completion (arg)
- (let* ((res (company--capf-data))
- (exit-function (plist-get (nthcdr 4 res) :exit-function))
- (table (nth 3 res))
- (pred (plist-get (nthcdr 4 res) :predicate)))
- (if exit-function
- ;; Follow the example of `completion--done'.
- (funcall exit-function arg
- ;; FIXME: Should probably use an additional heuristic:
- ;; completion-at-point doesn't know when the user picked a
- ;; particular candidate explicitly (it only checks whether
- ;; futher completions exist). Whereas company user can press
- ;; RET (or use implicit completion with company-tng).
- (if (eq (try-completion arg table pred) t)
- 'finished 'sole)))))
-
-(provide 'company-capf)
-
-;;; company-capf.el ends here
diff --git a/elpa/company-20181105.2312/company-capf.elc b/elpa/company-20181105.2312/company-capf.elc
deleted file mode 100644
index 3655fef..0000000
--- a/elpa/company-20181105.2312/company-capf.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-clang.el b/elpa/company-20181105.2312/company-clang.el
deleted file mode 100644
index 962db1e..0000000
--- a/elpa/company-20181105.2312/company-clang.el
+++ /dev/null
@@ -1,350 +0,0 @@
-;;; company-clang.el --- company-mode completion backend for Clang -*- lexical-binding: t -*-
-
-;; Copyright (C) 2009, 2011, 2013-2017 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'company-template)
-(require 'cl-lib)
-
-(defgroup company-clang nil
- "Completion backend for Clang."
- :group 'company)
-
-(defcustom company-clang-executable
- (executable-find "clang")
- "Location of clang executable."
- :type 'file)
-
-(defcustom company-clang-begin-after-member-access t
- "When non-nil, automatic completion will start whenever the current
-symbol is preceded by \".\", \"->\" or \"::\", ignoring
-`company-minimum-prefix-length'.
-
-If `company-begin-commands' is a list, it should include `c-electric-lt-gt'
-and `c-electric-colon', for automatic completion right after \">\" and
-\":\"."
- :type 'boolean)
-
-(defcustom company-clang-arguments nil
- "Additional arguments to pass to clang when completing.
-Prefix files (-include ...) can be selected with `company-clang-set-prefix'
-or automatically through a custom `company-clang-prefix-guesser'."
- :type '(repeat (string :tag "Argument")))
-
-(defcustom company-clang-prefix-guesser 'company-clang-guess-prefix
- "A function to determine the prefix file for the current buffer."
- :type '(function :tag "Guesser function" nil))
-
-(defvar company-clang-modes '(c-mode c++-mode objc-mode)
- "Major modes which clang may complete.")
-
-(defcustom company-clang-insert-arguments t
- "When non-nil, insert function arguments as a template after completion."
- :type 'boolean
- :package-version '(company . "0.8.0"))
-
-;; prefix ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar company-clang--prefix nil)
-
-(defsubst company-clang--guess-pch-file (file)
- (let ((dir (directory-file-name (file-name-directory file))))
- (when (equal (file-name-nondirectory dir) "Classes")
- (setq dir (file-name-directory dir)))
- (car (directory-files dir t "\\([^.]h\\|[^h]\\).pch\\'" t))))
-
-(defsubst company-clang--file-substring (file beg end)
- (with-temp-buffer
- (insert-file-contents-literally file nil beg end)
- (buffer-string)))
-
-(defun company-clang-guess-prefix ()
- "Try to guess the prefix file for the current buffer."
- ;; Prefixes seem to be called .pch. Pre-compiled headers do, too.
- ;; So we look at the magic number to rule them out.
- (let* ((file (company-clang--guess-pch-file buffer-file-name))
- (magic-number (and file (company-clang--file-substring file 0 4))))
- (unless (member magic-number '("CPCH" "gpch"))
- file)))
-
-(defun company-clang-set-prefix (&optional prefix)
- "Use PREFIX as a prefix (-include ...) file for clang completion."
- (interactive (let ((def (funcall company-clang-prefix-guesser)))
- (unless (stringp def)
- (setq def default-directory))
- (list (read-file-name "Prefix file: "
- (when def (file-name-directory def))
- def t (when def (file-name-nondirectory def))))))
- ;; TODO: pre-compile?
- (setq company-clang--prefix (and (stringp prefix)
- (file-regular-p prefix)
- prefix)))
-
-;; Clean-up on exit.
-(add-hook 'kill-emacs-hook 'company-clang-set-prefix)
-
-;; parsing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; TODO: Handle Pattern (syntactic hints would be neat).
-;; Do we ever see OVERLOAD (or OVERRIDE)?
-(defconst company-clang--completion-pattern
- "^COMPLETION: \\_<\\(%s[a-zA-Z0-9_:]*\\)\\(?: : \\(.*\\)$\\)?$")
-
-(defconst company-clang--error-buffer-name "*clang-error*")
-
-(defun company-clang--lang-option ()
- (if (eq major-mode 'objc-mode)
- (if (string= "m" (file-name-extension buffer-file-name))
- "objective-c" "objective-c++")
- (substring (symbol-name major-mode) 0 -5)))
-
-(defun company-clang--parse-output (prefix _objc)
- (goto-char (point-min))
- (let ((pattern (format company-clang--completion-pattern
- (regexp-quote prefix)))
- (case-fold-search nil)
- lines match)
- (while (re-search-forward pattern nil t)
- (setq match (match-string-no-properties 1))
- (unless (equal match "Pattern")
- (save-match-data
- (when (string-match ":" match)
- (setq match (substring match 0 (match-beginning 0)))))
- (let ((meta (match-string-no-properties 2)))
- (when (and meta (not (string= match meta)))
- (put-text-property 0 1 'meta
- (company-clang--strip-formatting meta)
- match)))
- (push match lines)))
- lines))
-
-(defun company-clang--meta (candidate)
- (get-text-property 0 'meta candidate))
-
-(defun company-clang--annotation (candidate)
- (let ((ann (company-clang--annotation-1 candidate)))
- (if (not (and ann (string-prefix-p "(*)" ann)))
- ann
- (with-temp-buffer
- (insert ann)
- (search-backward ")")
- (let ((pt (1+ (point))))
- (re-search-forward ".\\_>" nil t)
- (delete-region pt (point)))
- (buffer-string)))))
-
-(defun company-clang--annotation-1 (candidate)
- (let ((meta (company-clang--meta candidate)))
- (cond
- ((null meta) nil)
- ((string-match "[^:]:[^:]" meta)
- (substring meta (1+ (match-beginning 0))))
- ((string-match "(anonymous)" meta) nil)
- ((string-match "\\((.*)[ a-z]*\\'\\)" meta)
- (let ((paren (match-beginning 1)))
- (if (not (eq (aref meta (1- paren)) ?>))
- (match-string 1 meta)
- (with-temp-buffer
- (insert meta)
- (goto-char paren)
- (substring meta (1- (search-backward "<"))))))))))
-
-(defun company-clang--strip-formatting (text)
- (replace-regexp-in-string
- "#]" " "
- (replace-regexp-in-string "[<{[]#\\|#[>}]" "" text t)
- t))
-
-(defun company-clang--handle-error (res args)
- (goto-char (point-min))
- (let* ((buf (get-buffer-create company-clang--error-buffer-name))
- (cmd (concat company-clang-executable " " (mapconcat 'identity args " ")))
- (pattern (format company-clang--completion-pattern ""))
- (message-truncate-lines t)
- (err (if (re-search-forward pattern nil t)
- (buffer-substring-no-properties (point-min)
- (1- (match-beginning 0)))
- ;; Warn the user more aggressively if no match was found.
- (message "clang failed with error %d: %s" res cmd)
- (buffer-string))))
-
- (with-current-buffer buf
- (let ((inhibit-read-only t))
- (erase-buffer)
- (insert (current-time-string)
- (format "\nclang failed with error %d:\n" res)
- cmd "\n\n")
- (insert err)
- (setq buffer-read-only t)
- (goto-char (point-min))))))
-
-(defun company-clang--start-process (prefix callback &rest args)
- (let* ((objc (derived-mode-p 'objc-mode))
- (buf (get-buffer-create "*clang-output*"))
- ;; Looks unnecessary in Emacs 25.1 and later.
- (process-adaptive-read-buffering nil)
- (existing-process (get-buffer-process buf)))
- (when existing-process
- (kill-process existing-process))
- (with-current-buffer buf
- (erase-buffer)
- (setq buffer-undo-list t))
- (let* ((process-connection-type nil)
- (process (apply #'start-file-process "company-clang" buf
- company-clang-executable args)))
- (set-process-sentinel
- process
- (lambda (proc status)
- (unless (string-match-p "hangup\\|killed" status)
- (funcall
- callback
- (let ((res (process-exit-status proc)))
- (with-current-buffer buf
- (unless (eq 0 res)
- (company-clang--handle-error res args))
- ;; Still try to get any useful input.
- (company-clang--parse-output prefix objc)))))))
- (unless (company-clang--auto-save-p)
- (send-region process (point-min) (point-max))
- (send-string process "\n")
- (process-send-eof process)))))
-
-(defsubst company-clang--build-location (pos)
- (save-excursion
- (goto-char pos)
- (format "%s:%d:%d"
- (if (company-clang--auto-save-p) buffer-file-name "-")
- (line-number-at-pos)
- (1+ (length
- (encode-coding-region
- (line-beginning-position)
- (point)
- 'utf-8
- t))))))
-
-(defsubst company-clang--build-complete-args (pos)
- (append '("-fsyntax-only" "-Xclang" "-code-completion-macros")
- (unless (company-clang--auto-save-p)
- (list "-x" (company-clang--lang-option)))
- company-clang-arguments
- (when (stringp company-clang--prefix)
- (list "-include" (expand-file-name company-clang--prefix)))
- (list "-Xclang" (format "-code-completion-at=%s"
- (company-clang--build-location pos)))
- (list (if (company-clang--auto-save-p) buffer-file-name "-"))))
-
-(defun company-clang--candidates (prefix callback)
- (and (company-clang--auto-save-p)
- (buffer-modified-p)
- (basic-save-buffer))
- (when (null company-clang--prefix)
- (company-clang-set-prefix (or (funcall company-clang-prefix-guesser)
- 'none)))
- (apply 'company-clang--start-process
- prefix
- callback
- (company-clang--build-complete-args
- (if (company-clang--check-version 4.0 9.0)
- (point)
- (- (point) (length prefix))))))
-
-(defun company-clang--prefix ()
- (if company-clang-begin-after-member-access
- (company-grab-symbol-cons "\\.\\|->\\|::" 2)
- (company-grab-symbol)))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defconst company-clang-required-version 1.1)
-
-(defvar company-clang--version nil)
-
-(defun company-clang--auto-save-p ()
- (not
- (company-clang--check-version 2.9 3.1)))
-
-(defun company-clang--check-version (min apple-min)
- (pcase company-clang--version
- (`(apple . ,ver) (>= ver apple-min))
- (`(normal . ,ver) (>= ver min))
- (_ (error "pcase-exhaustive is not in Emacs 24.3!"))))
-
-(defsubst company-clang-version ()
- "Return the version of `company-clang-executable'."
- (with-temp-buffer
- (call-process company-clang-executable nil t nil "--version")
- (goto-char (point-min))
- (if (re-search-forward "\\(clang\\|Apple LLVM\\) version \\([0-9.]+\\)" nil t)
- (cons
- (if (equal (match-string-no-properties 1) "Apple LLVM")
- 'apple
- 'normal)
- (string-to-number (match-string-no-properties 2)))
- 0)))
-
-(defun company-clang (command &optional arg &rest ignored)
- "`company-mode' completion backend for Clang.
-Clang is a parser for C and ObjC. Clang version 1.1 or newer is required.
-
-Additional command line arguments can be specified in
-`company-clang-arguments'. Prefix files (-include ...) can be selected
-with `company-clang-set-prefix' or automatically through a custom
-`company-clang-prefix-guesser'.
-
-With Clang versions before 2.9, we have to save the buffer before
-performing completion. With Clang 2.9 and later, buffer contents are
-passed via standard input."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-clang))
- (init (when (memq major-mode company-clang-modes)
- (unless company-clang-executable
- (error "Company found no clang executable"))
- (setq company-clang--version (company-clang-version))
- (unless (company-clang--check-version
- company-clang-required-version
- company-clang-required-version)
- (error "Company requires clang version %s"
- company-clang-required-version))))
- (prefix (and (memq major-mode company-clang-modes)
- buffer-file-name
- company-clang-executable
- (not (company-in-string-or-comment))
- (or (company-clang--prefix) 'stop)))
- (candidates (cons :async
- (lambda (cb) (company-clang--candidates arg cb))))
- (meta (company-clang--meta arg))
- (annotation (company-clang--annotation arg))
- (post-completion (let ((anno (company-clang--annotation arg)))
- (when (and company-clang-insert-arguments anno)
- (insert anno)
- (if (string-match "\\`:[^:]" anno)
- (company-template-objc-templatify anno)
- (company-template-c-like-templatify
- (concat arg anno))))))))
-
-(provide 'company-clang)
-;;; company-clang.el ends here
diff --git a/elpa/company-20181105.2312/company-clang.elc b/elpa/company-20181105.2312/company-clang.elc
deleted file mode 100644
index 5727110..0000000
--- a/elpa/company-20181105.2312/company-clang.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-cmake.el b/elpa/company-20181105.2312/company-cmake.el
deleted file mode 100644
index 1bfb20b..0000000
--- a/elpa/company-20181105.2312/company-cmake.el
+++ /dev/null
@@ -1,206 +0,0 @@
-;;; company-cmake.el --- company-mode completion backend for CMake
-
-;; Copyright (C) 2013-2014, 2017-2018 Free Software Foundation, Inc.
-
-;; Author: Chen Bin <chenbin DOT sh AT gmail>
-;; Version: 0.2
-
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; company-cmake offers completions for module names, variable names and
-;; commands used by CMake. And their descriptions.
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defgroup company-cmake nil
- "Completion backend for CMake."
- :group 'company)
-
-(defcustom company-cmake-executable
- (executable-find "cmake")
- "Location of cmake executable."
- :type 'file)
-
-(defvar company-cmake-executable-arguments
- '("--help-command-list"
- "--help-module-list"
- "--help-variable-list")
- "The arguments we pass to cmake, separately.
-They affect which types of symbols we get completion candidates for.")
-
-(defvar company-cmake--completion-pattern
- "^\\(%s[a-zA-Z0-9_<>]%s\\)$"
- "Regexp to match the candidates.")
-
-(defvar company-cmake-modes '(cmake-mode)
- "Major modes in which cmake may complete.")
-
-(defvar company-cmake--candidates-cache nil
- "Cache for the raw candidates.")
-
-(defvar company-cmake--meta-command-cache nil
- "Cache for command arguments to retrieve descriptions for the candidates.")
-
-(defun company-cmake--replace-tags (rlt)
- (setq rlt (replace-regexp-in-string
- "\\(.*?\\(IS_GNU\\)?\\)<LANG>\\(.*\\)"
- (lambda (_match)
- (mapconcat 'identity
- (if (match-beginning 2)
- '("\\1CXX\\3" "\\1C\\3" "\\1G77\\3")
- '("\\1CXX\\3" "\\1C\\3" "\\1Fortran\\3"))
- "\n"))
- rlt t))
- (setq rlt (replace-regexp-in-string
- "\\(.*\\)<CONFIG>\\(.*\\)"
- (mapconcat 'identity '("\\1DEBUG\\2" "\\1RELEASE\\2"
- "\\1RELWITHDEBINFO\\2" "\\1MINSIZEREL\\2")
- "\n")
- rlt))
- rlt)
-
-(defun company-cmake--fill-candidates-cache (arg)
- "Fill candidates cache if needed."
- (let (rlt)
- (unless company-cmake--candidates-cache
- (setq company-cmake--candidates-cache (make-hash-table :test 'equal)))
-
- ;; If hash is empty, fill it.
- (unless (gethash arg company-cmake--candidates-cache)
- (with-temp-buffer
- (let ((res (call-process company-cmake-executable nil t nil arg)))
- (unless (zerop res)
- (message "cmake executable exited with error=%d" res)))
- (setq rlt (buffer-string)))
- (setq rlt (company-cmake--replace-tags rlt))
- (puthash arg rlt company-cmake--candidates-cache))
- ))
-
-(defun company-cmake--parse (prefix content cmd)
- (let ((start 0)
- (pattern (format company-cmake--completion-pattern
- (regexp-quote prefix)
- (if (zerop (length prefix)) "+" "*")))
- (lines (split-string content "\n"))
- match
- rlt)
- (dolist (line lines)
- (when (string-match pattern line)
- (let ((match (match-string 1 line)))
- (when match
- (puthash match cmd company-cmake--meta-command-cache)
- (push match rlt)))))
- rlt))
-
-(defun company-cmake--candidates (prefix)
- (let (results
- cmd-opts
- str)
-
- (unless company-cmake--meta-command-cache
- (setq company-cmake--meta-command-cache (make-hash-table :test 'equal)))
-
- (dolist (arg company-cmake-executable-arguments)
- (company-cmake--fill-candidates-cache arg)
- (setq cmd-opts (replace-regexp-in-string "-list$" "" arg) )
-
- (setq str (gethash arg company-cmake--candidates-cache))
- (when str
- (setq results (nconc results
- (company-cmake--parse prefix str cmd-opts)))))
- results))
-
-(defun company-cmake--unexpand-candidate (candidate)
- (cond
- ((string-match "^CMAKE_\\(C\\|CXX\\|Fortran\\)\\(_.*\\)$" candidate)
- (setq candidate (concat "CMAKE_<LANG>" (match-string 2 candidate))))
-
- ;; C flags
- ((string-match "^\\(.*_\\)IS_GNU\\(C\\|CXX\\|G77\\)$" candidate)
- (setq candidate (concat (match-string 1 candidate) "IS_GNU<LANG>")))
-
- ;; C flags
- ((string-match "^\\(.*_\\)OVERRIDE_\\(C\\|CXX\\|Fortran\\)$" candidate)
- (setq candidate (concat (match-string 1 candidate) "OVERRIDE_<LANG>")))
-
- ((string-match "^\\(.*\\)\\(_DEBUG\\|_RELEASE\\|_RELWITHDEBINFO\\|_MINSIZEREL\\)\\(.*\\)$" candidate)
- (setq candidate (concat (match-string 1 candidate)
- "_<CONFIG>"
- (match-string 3 candidate)))))
- candidate)
-
-(defun company-cmake--meta (candidate)
- (let ((cmd-opts (gethash candidate company-cmake--meta-command-cache))
- result)
- (setq candidate (company-cmake--unexpand-candidate candidate))
-
- ;; Don't cache the documentation of every candidate (command)
- ;; Cache in this case will cost too much memory.
- (with-temp-buffer
- (call-process company-cmake-executable nil t nil cmd-opts candidate)
- ;; Go to the third line, trim it and return the result.
- ;; Tested with cmake 2.8.9.
- (goto-char (point-min))
- (forward-line 2)
- (setq result (buffer-substring-no-properties (line-beginning-position)
- (line-end-position)))
- (setq result (replace-regexp-in-string "^[ \t\n\r]+" "" result))
- result)))
-
-(defun company-cmake--doc-buffer (candidate)
- (let ((cmd-opts (gethash candidate company-cmake--meta-command-cache)))
-
- (setq candidate (company-cmake--unexpand-candidate candidate))
- (with-temp-buffer
- (call-process company-cmake-executable nil t nil cmd-opts candidate)
- ;; Go to the third line, trim it and return the doc buffer.
- ;; Tested with cmake 2.8.9.
- (goto-char (point-min))
- (forward-line 2)
- (company-doc-buffer
- (buffer-substring-no-properties (line-beginning-position)
- (point-max))))))
-
-(defun company-cmake-prefix-dollar-brace-p ()
- "Test if the current symbol follows ${."
- (save-excursion
- (skip-syntax-backward "w_")
- (and (eq (char-before (point)) ?\{)
- (eq (char-before (1- (point))) ?$))))
-
-(defun company-cmake (command &optional arg &rest ignored)
- "`company-mode' completion backend for CMake.
-CMake is a cross-platform, open-source make system."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-cmake))
- (init (when (memq major-mode company-cmake-modes)
- (unless company-cmake-executable
- (error "Company found no cmake executable"))))
- (prefix (and (memq major-mode company-cmake-modes)
- (or (not (company-in-string-or-comment))
- (company-cmake-prefix-dollar-brace-p))
- (company-grab-symbol)))
- (candidates (company-cmake--candidates arg))
- (meta (company-cmake--meta arg))
- (doc-buffer (company-cmake--doc-buffer arg))
- ))
-
-(provide 'company-cmake)
-;;; company-cmake.el ends here
diff --git a/elpa/company-20181105.2312/company-cmake.elc b/elpa/company-20181105.2312/company-cmake.elc
deleted file mode 100644
index ea21cd9..0000000
--- a/elpa/company-20181105.2312/company-cmake.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-css.el b/elpa/company-20181105.2312/company-css.el
deleted file mode 100644
index d3ece74..0000000
--- a/elpa/company-20181105.2312/company-css.el
+++ /dev/null
@@ -1,446 +0,0 @@
-;;; company-css.el --- company-mode completion backend for css-mode -*- lexical-binding: t -*-
-
-;; Copyright (C) 2009, 2011, 2014, 2018 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-;; In Emacs >= 26, company-capf is used instead.
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(declare-function web-mode-language-at-pos "web-mode" (&optional pos))
-
-(defconst company-css-property-alist
- ;; see http://www.w3.org/TR/CSS21/propidx.html
- '(("azimuth" angle "left-side" "far-left" "left" "center-left" "center"
- "center-right" "right" "far-right" "right-side" "behind" "leftwards"
- "rightwards")
- ("background" background-color background-image background-repeat
- background-attachment background-position
- background-clip background-origin background-size)
- ("background-attachment" "scroll" "fixed")
- ("background-color" color "transparent")
- ("background-image" uri "none")
- ("background-position" percentage length "left" "center" "right" percentage
- length "top" "center" "bottom" "left" "center" "right" "top" "center"
- "bottom")
- ("background-repeat" "repeat" "repeat-x" "repeat-y" "no-repeat")
- ("border" border-width border-style border-color)
- ("border-bottom" border)
- ("border-bottom-color" border-color)
- ("border-bottom-style" border-style)
- ("border-bottom-width" border-width)
- ("border-collapse" "collapse" "separate")
- ("border-color" color "transparent")
- ("border-left" border)
- ("border-left-color" border-color)
- ("border-left-style" border-style)
- ("border-left-width" border-width)
- ("border-right" border)
- ("border-right-color" border-color)
- ("border-right-style" border-style)
- ("border-right-width" border-width)
- ("border-spacing" length length)
- ("border-style" border-style)
- ("border-top" border)
- ("border-top-color" border-color)
- ("border-top-style" border-style)
- ("border-top-width" border-width)
- ("border-width" border-width)
- ("bottom" length percentage "auto")
- ("caption-side" "top" "bottom")
- ("clear" "none" "left" "right" "both")
- ("clip" shape "auto")
- ("color" color)
- ("content" "normal" "none" string uri counter "attr()" "open-quote"
- "close-quote" "no-open-quote" "no-close-quote")
- ("counter-increment" identifier integer "none")
- ("counter-reset" identifier integer "none")
- ("cue" cue-before cue-after)
- ("cue-after" uri "none")
- ("cue-before" uri "none")
- ("cursor" uri "*" "auto" "crosshair" "default" "pointer" "move" "e-resize"
- "ne-resize" "nw-resize" "n-resize" "se-resize" "sw-resize" "s-resize"
- "w-resize" "text" "wait" "help" "progress")
- ("direction" "ltr" "rtl")
- ("display" "inline" "block" "list-item" "run-in" "inline-block" "table"
- "inline-table" "table-row-group" "table-header-group" "table-footer-group"
- "table-row" "table-column-group" "table-column" "table-cell"
- "table-caption" "none")
- ("elevation" angle "below" "level" "above" "higher" "lower")
- ("empty-cells" "show" "hide")
- ("float" "left" "right" "none")
- ("font" font-style font-weight font-size "/" line-height
- font-family "caption" "icon" "menu" "message-box" "small-caption"
- "status-bar" "normal" "small-caps"
- ;; CSS3
- font-stretch)
- ("font-family" family-name generic-family)
- ("font-size" absolute-size relative-size length percentage)
- ("font-style" "normal" "italic" "oblique")
- ("font-weight" "normal" "bold" "bolder" "lighter" "100" "200" "300" "400"
- "500" "600" "700" "800" "900")
- ("height" length percentage "auto")
- ("left" length percentage "auto")
- ("letter-spacing" "normal" length)
- ("line-height" "normal" number length percentage)
- ("list-style" list-style-type list-style-position list-style-image)
- ("list-style-image" uri "none")
- ("list-style-position" "inside" "outside")
- ("list-style-type" "disc" "circle" "square" "decimal" "decimal-leading-zero"
- "lower-roman" "upper-roman" "lower-greek" "lower-latin" "upper-latin"
- "armenian" "georgian" "lower-alpha" "upper-alpha" "none")
- ("margin" margin-width)
- ("margin-bottom" margin-width)
- ("margin-left" margin-width)
- ("margin-right" margin-width)
- ("margin-top" margin-width)
- ("max-height" length percentage "none")
- ("max-width" length percentage "none")
- ("min-height" length percentage)
- ("min-width" length percentage)
- ("orphans" integer)
- ("outline" outline-color outline-style outline-width)
- ("outline-color" color "invert")
- ("outline-style" border-style)
- ("outline-width" border-width)
- ("overflow" "visible" "hidden" "scroll" "auto"
- ;; CSS3:
- "no-display" "no-content")
- ("padding" padding-width)
- ("padding-bottom" padding-width)
- ("padding-left" padding-width)
- ("padding-right" padding-width)
- ("padding-top" padding-width)
- ("page-break-after" "auto" "always" "avoid" "left" "right")
- ("page-break-before" "auto" "always" "avoid" "left" "right")
- ("page-break-inside" "avoid" "auto")
- ("pause" time percentage)
- ("pause-after" time percentage)
- ("pause-before" time percentage)
- ("pitch" frequency "x-low" "low" "medium" "high" "x-high")
- ("pitch-range" number)
- ("play-during" uri "mix" "repeat" "auto" "none")
- ("position" "static" "relative" "absolute" "fixed")
- ("quotes" string string "none")
- ("richness" number)
- ("right" length percentage "auto")
- ("speak" "normal" "none" "spell-out")
- ("speak-header" "once" "always")
- ("speak-numeral" "digits" "continuous")
- ("speak-punctuation" "code" "none")
- ("speech-rate" number "x-slow" "slow" "medium" "fast" "x-fast" "faster"
- "slower")
- ("stress" number)
- ("table-layout" "auto" "fixed")
- ("text-align" "left" "right" "center" "justify")
- ("text-indent" length percentage)
- ("text-transform" "capitalize" "uppercase" "lowercase" "none")
- ("top" length percentage "auto")
- ("unicode-bidi" "normal" "embed" "bidi-override")
- ("vertical-align" "baseline" "sub" "super" "top" "text-top" "middle"
- "bottom" "text-bottom" percentage length)
- ("visibility" "visible" "hidden" "collapse")
- ("voice-family" specific-voice generic-voice "*" specific-voice
- generic-voice)
- ("volume" number percentage "silent" "x-soft" "soft" "medium" "loud"
- "x-loud")
- ("white-space" "normal" "pre" "nowrap" "pre-wrap" "pre-line")
- ("widows" integer)
- ("width" length percentage "auto")
- ("word-spacing" "normal" length)
- ("z-index" "auto" integer)
- ;; CSS3
- ("align-content" align-stretch "space-between" "space-around")
- ("align-items" align-stretch "baseline")
- ("align-self" align-items "auto")
- ("animation" animation-name animation-duration animation-timing-function
- animation-delay animation-iteration-count animation-direction
- animation-fill-mode)
- ("animation-delay" time)
- ("animation-direction" "normal" "reverse" "alternate" "alternate-reverse")
- ("animation-duration" time)
- ("animation-fill-mode" "none" "forwards" "backwards" "both")
- ("animation-iteration-count" integer "infinite")
- ("animation-name" "none")
- ("animation-play-state" "paused" "running")
- ("animation-timing-function" transition-timing-function
- "step-start" "step-end" "steps(,)")
- ("backface-visibility" "visible" "hidden")
- ("background-clip" background-origin)
- ("background-origin" "border-box" "padding-box" "content-box")
- ("background-size" length percentage "auto" "cover" "contain")
- ("border-image" border-image-outset border-image-repeat border-image-source
- border-image-slice border-image-width)
- ("border-image-outset" length)
- ("border-image-repeat" "stretch" "repeat" "round" "space")
- ("border-image-source" uri "none")
- ("border-image-slice" length)
- ("border-image-width" length percentage)
- ("border-radius" length)
- ("border-top-left-radius" length)
- ("border-top-right-radius" length)
- ("border-bottom-left-radius" length)
- ("border-bottom-right-radius" length)
- ("box-decoration-break" "slice" "clone")
- ("box-shadow" length color)
- ("box-sizing" "content-box" "border-box")
- ("break-after" "auto" "always" "avoid" "left" "right" "page" "column"
- "avoid-page" "avoid-column")
- ("break-before" break-after)
- ("break-inside" "avoid" "auto")
- ("columns" column-width column-count)
- ("column-count" integer)
- ("column-fill" "auto" "balance")
- ("column-gap" length "normal")
- ("column-rule" column-rule-width column-rule-style column-rule-color)
- ("column-rule-color" color)
- ("column-rule-style" border-style)
- ("column-rule-width" border-width)
- ("column-span" "all" "none")
- ("column-width" length "auto")
- ("filter" url "blur()" "brightness()" "contrast()" "drop-shadow()"
- "grayscale()" "hue-rotate()" "invert()" "opacity()" "saturate()" "sepia()")
- ("flex" flex-grow flex-shrink flex-basis)
- ("flex-basis" percentage length "auto")
- ("flex-direction" "row" "row-reverse" "column" "column-reverse")
- ("flex-flow" flex-direction flex-wrap)
- ("flex-grow" number)
- ("flex-shrink" number)
- ("flex-wrap" "nowrap" "wrap" "wrap-reverse")
- ("font-feature-setting" normal string number)
- ("font-kerning" "auto" "normal" "none")
- ("font-language-override" "normal" string)
- ("font-size-adjust" "none" number)
- ("font-stretch" "normal" "ultra-condensed" "extra-condensed" "condensed"
- "semi-condensed" "semi-expanded" "expanded" "extra-expanded" "ultra-expanded")
- ("font-synthesis" "none" "weight" "style")
- ("font-variant" font-variant-alternates font-variant-caps
- font-variant-east-asian font-variant-ligatures font-variant-numeric
- font-variant-position)
- ("font-variant-alternates" "normal" "historical-forms" "stylistic()"
- "styleset()" "character-variant()" "swash()" "ornaments()" "annotation()")
- ("font-variant-caps" "normal" "small-caps" "all-small-caps" "petite-caps"
- "all-petite-caps" "unicase" "titling-caps")
- ("font-variant-east-asian" "jis78" "jis83" "jis90" "jis04" "simplified"
- "traditional" "full-width" "proportional-width" "ruby")
- ("font-variant-ligatures" "normal" "none" "common-ligatures"
- "no-common-ligatures" "discretionary-ligatures" "no-discretionary-ligatures"
- "historical-ligatures" "no-historical-ligatures" "contextual" "no-contextual")
- ("font-variant-numeric" "normal" "ordinal" "slashed-zero"
- "lining-nums" "oldstyle-nums" "proportional-nums" "tabular-nums"
- "diagonal-fractions" "stacked-fractions")
- ("font-variant-position" "normal" "sub" "super")
- ("hyphens" "none" "manual" "auto")
- ("justify-content" align-common "space-between" "space-around")
- ("line-break" "auto" "loose" "normal" "strict")
- ("marquee-direction" "forward" "reverse")
- ("marquee-play-count" integer "infinite")
- ("marquee-speed" "slow" "normal" "fast")
- ("marquee-style" "scroll" "slide" "alternate")
- ("opacity" number)
- ("order" number)
- ("outline-offset" length)
- ("overflow-x" overflow)
- ("overflow-y" overflow)
- ("overflow-style" "auto" "marquee-line" "marquee-block")
- ("overflow-wrap" "normal" "break-word")
- ("perspective" "none" length)
- ("perspective-origin" percentage length "left" "center" "right" "top" "bottom")
- ("resize" "none" "both" "horizontal" "vertical")
- ("tab-size" integer length)
- ("text-align-last" "auto" "start" "end" "left" "right" "center" "justify")
- ("text-decoration" text-decoration-color text-decoration-line text-decoration-style)
- ("text-decoration-color" color)
- ("text-decoration-line" "none" "underline" "overline" "line-through" "blink")
- ("text-decoration-style" "solid" "double" "dotted" "dashed" "wavy")
- ("text-overflow" "clip" "ellipsis")
- ("text-shadow" color length)
- ("text-underline-position" "auto" "under" "left" "right")
- ("transform" "matrix(,,,,,)" "translate(,)" "translateX()" "translateY()"
- "scale()" "scaleX()" "scaleY()" "rotate()" "skewX()" "skewY()" "none")
- ("transform-origin" perspective-origin)
- ("transform-style" "flat" "preserve-3d")
- ("transition" transition-property transition-duration
- transition-timing-function transition-delay)
- ("transition-delay" time)
- ("transition-duration" time)
- ("transition-timing-function"
- "ease" "linear" "ease-in" "ease-out" "ease-in-out" "cubic-bezier(,,,)")
- ("transition-property" "none" "all" identifier)
- ("word-wrap" overflow-wrap)
- ("word-break" "normal" "break-all" "keep-all"))
- "A list of CSS properties and their possible values.")
-
-(defconst company-css-value-classes
- '((absolute-size "xx-small" "x-small" "small" "medium" "large" "x-large"
- "xx-large")
- (align-common "flex-start" "flex-end" "center")
- (align-stretch align-common "stretch")
- (border-style "none" "hidden" "dotted" "dashed" "solid" "double" "groove"
- "ridge" "inset" "outset")
- (border-width "thick" "medium" "thin")
- (color "aqua" "black" "blue" "fuchsia" "gray" "green" "lime" "maroon" "navy"
- "olive" "orange" "purple" "red" "silver" "teal" "white" "yellow")
- (counter "counter(,)")
- (family-name "Courier" "Helvetica" "Times")
- (generic-family "serif" "sans-serif" "cursive" "fantasy" "monospace")
- (generic-voice "male" "female" "child")
- (margin-width "auto") ;; length percentage
- (relative-size "larger" "smaller")
- (shape "rect(,,,)")
- (uri "url()"))
- "A list of CSS property value classes and their contents.")
-;; missing, because not completable
-;; <angle><frequency><identifier><integer><length><number><padding-width>
-;; <percentage><specific-voice><string><time><uri>
-
-(defconst company-css-html-tags
- '("a" "abbr" "acronym" "address" "applet" "area" "b" "base" "basefont" "bdo"
- "big" "blockquote" "body" "br" "button" "caption" "center" "cite" "code"
- "col" "colgroup" "dd" "del" "dfn" "dir" "div" "dl" "dt" "em" "fieldset"
- "font" "form" "frame" "frameset" "h1" "h2" "h3" "h4" "h5" "h6" "head" "hr"
- "html" "i" "iframe" "img" "input" "ins" "isindex" "kbd" "label" "legend"
- "li" "link" "map" "menu" "meta" "noframes" "noscript" "object" "ol"
- "optgroup" "option" "p" "param" "pre" "q" "s" "samp" "script" "select"
- "small" "span" "strike" "strong" "style" "sub" "sup" "table" "tbody" "td"
- "textarea" "tfoot" "th" "thead" "title" "tr" "tt" "u" "ul" "var"
- ;; HTML5
- "section" "article" "aside" "header" "footer" "nav" "figure" "figcaption"
- "time" "mark" "main")
- "A list of HTML tags for use in CSS completion.")
-
-(defconst company-css-pseudo-classes
- '("active" "after" "before" "first" "first-child" "first-letter" "first-line"
- "focus" "hover" "lang" "left" "link" "right" "visited")
- "Identifiers for CSS pseudo-elements and pseudo-classes.")
-
-(defconst company-css-property-cache (make-hash-table :size 115 :test 'equal))
-
-(defun company-css-property-values (attribute)
- "Access the `company-css-property-alist' cached and flattened."
- (or (gethash attribute company-css-property-cache)
- (let (results)
- (dolist (value (cdr (assoc attribute company-css-property-alist)))
- (if (symbolp value)
- (dolist (child (or (cdr (assoc value company-css-value-classes))
- (company-css-property-values
- (symbol-name value))))
- (push child results))
- (push value results)))
- (setq results (sort results 'string<))
- (puthash attribute
- (if (fboundp 'delete-consecutive-dups)
- (delete-consecutive-dups results)
- (delete-dups results))
- company-css-property-cache)
- results)))
-
-;;; bracket detection
-
-(defconst company-css-braces-syntax-table
- (let ((table (make-syntax-table)))
- (setf (aref table ?{) '(4 . 125))
- (setf (aref table ?}) '(5 . 123))
- table)
- "A syntax table giving { and } paren syntax.")
-
-(defun company-css-inside-braces-p ()
- "Return non-nil, if point is within matched { and }."
- (ignore-errors
- (with-syntax-table company-css-braces-syntax-table
- (let ((parse-sexp-ignore-comments t))
- (scan-lists (point) -1 1)))))
-
-;;; tags
-(defconst company-css-tag-regexp
- (concat "\\(?:\\`\\|}\\)[[:space:]]*"
- ;; multiple
- "\\(?:"
- ;; previous tags:
- "\\(?:#\\|\\_<[[:alpha:]]\\)[[:alnum:]-#]*\\(?:\\[[^]]*\\]\\)?"
- ;; space or selectors
- "\\(?:[[:space:]]+\\|[[:space:]]*[+,>][[:space:]]*\\)"
- "\\)*"
- "\\(\\(?:#\\|\\_<[[:alpha:]]\\)\\(?:[[:alnum:]-#]*\\_>\\)?\\_>\\|\\)"
- "\\=")
- "A regular expression matching CSS tags.")
-
-;;; pseudo id
-(defconst company-css-pseudo-regexp
- (concat "\\(?:\\`\\|}\\)[[:space:]]*"
- ;; multiple
- "\\(?:"
- ;; previous tags:
- "\\(?:#\\|\\_<[[:alpha:]]\\)[[:alnum:]-#]*\\(?:\\[[^]]*\\]\\)?"
- ;; space or delimiters
- "\\(?:[[:space:]]+\\|[[:space:]]*[+,>][[:space:]]*\\)"
- "\\)*"
- "\\(?:\\(?:\\#\\|\\_<[[:alpha:]]\\)[[:alnum:]-#]*\\):"
- "\\([[:alpha:]-]+\\_>\\|\\)\\_>\\=")
- "A regular expression matching CSS pseudo classes.")
-
-;;; properties
-
-(defun company-css-grab-property ()
- "Return the CSS property before point, if any.
-Returns \"\" if no property found, but feasible at this position."
- (when (company-css-inside-braces-p)
- (company-grab-symbol)))
-
-;;; values
-(defconst company-css-property-value-regexp
- "\\_<\\([[:alpha:]-]+\\):\\(?:[^{};]*[[:space:]]+\\)?\\([^{};]*\\_>\\|\\)\\="
- "A regular expression matching CSS tags.")
-
-;;;###autoload
-(defun company-css (command &optional arg &rest ignored)
- "`company-mode' completion backend for `css-mode'."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-css))
- (prefix (and (or (derived-mode-p 'css-mode)
- (and (derived-mode-p 'web-mode)
- (string= (web-mode-language-at-pos) "css")))
- (or (company-grab company-css-tag-regexp 1)
- (company-grab company-css-pseudo-regexp 1)
- (company-grab company-css-property-value-regexp 2
- (line-beginning-position))
- (company-css-grab-property))))
- (candidates
- (cond
- ((company-grab company-css-tag-regexp 1)
- (all-completions arg company-css-html-tags))
- ((company-grab company-css-pseudo-regexp 1)
- (all-completions arg company-css-pseudo-classes))
- ((company-grab company-css-property-value-regexp 2
- (line-beginning-position))
- (all-completions arg
- (company-css-property-values
- (company-grab company-css-property-value-regexp 1))))
- ((company-css-grab-property)
- (all-completions arg company-css-property-alist))))
- (sorted t)))
-
-(provide 'company-css)
-;;; company-css.el ends here
diff --git a/elpa/company-20181105.2312/company-css.elc b/elpa/company-20181105.2312/company-css.elc
deleted file mode 100644
index 6bcb889..0000000
--- a/elpa/company-20181105.2312/company-css.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-dabbrev-code.el b/elpa/company-20181105.2312/company-dabbrev-code.el
deleted file mode 100644
index 37f287c..0000000
--- a/elpa/company-20181105.2312/company-dabbrev-code.el
+++ /dev/null
@@ -1,104 +0,0 @@
-;;; company-dabbrev-code.el --- dabbrev-like company-mode backend for code -*- lexical-binding: t -*-
-
-;; Copyright (C) 2009, 2011, 2014 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'company-dabbrev)
-(require 'cl-lib)
-
-(defgroup company-dabbrev-code nil
- "dabbrev-like completion backend for code."
- :group 'company)
-
-(defcustom company-dabbrev-code-modes
- '(prog-mode
- batch-file-mode csharp-mode css-mode erlang-mode haskell-mode jde-mode
- lua-mode python-mode)
- "Modes that use `company-dabbrev-code'.
-In all these modes (and their derivatives) `company-dabbrev-code' will
-complete only symbols, not text in comments or strings. In other modes
-`company-dabbrev-code' will pass control to other backends
-\(e.g. `company-dabbrev'\). Value t means complete in all modes."
- :type '(choice (repeat :tag "Some modes" (symbol :tag "Major mode"))
- (const :tag "All modes" t)))
-
-(defcustom company-dabbrev-code-other-buffers t
- "Determines whether `company-dabbrev-code' should search other buffers.
-If `all', search all other buffers, except the ignored ones. If t, search
-buffers with the same major mode. If `code', search all buffers with major
-modes in `company-dabbrev-code-modes', or derived from one of them. See
-also `company-dabbrev-code-time-limit'."
- :type '(choice (const :tag "Off" nil)
- (const :tag "Same major mode" t)
- (const :tag "Code major modes" code)
- (const :tag "All" all)))
-
-(defcustom company-dabbrev-code-time-limit .1
- "Determines how long `company-dabbrev-code' should look for matches."
- :type '(choice (const :tag "Off" nil)
- (number :tag "Seconds")))
-
-(defcustom company-dabbrev-code-everywhere nil
- "Non-nil to offer completions in comments and strings."
- :type 'boolean)
-
-(defcustom company-dabbrev-code-ignore-case nil
- "Non-nil to ignore case when collecting completion candidates."
- :type 'boolean)
-
-(defun company-dabbrev-code--make-regexp (prefix)
- (concat "\\_<" (if (equal prefix "")
- "\\([a-zA-Z]\\|\\s_\\)"
- (regexp-quote prefix))
- "\\(\\sw\\|\\s_\\)*\\_>"))
-
-;;;###autoload
-(defun company-dabbrev-code (command &optional arg &rest ignored)
- "dabbrev-like `company-mode' backend for code.
-The backend looks for all symbols in the current buffer that aren't in
-comments or strings."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-dabbrev-code))
- (prefix (and (or (eq t company-dabbrev-code-modes)
- (apply #'derived-mode-p company-dabbrev-code-modes))
- (or company-dabbrev-code-everywhere
- (not (company-in-string-or-comment)))
- (or (company-grab-symbol) 'stop)))
- (candidates (let ((case-fold-search company-dabbrev-code-ignore-case))
- (company-dabbrev--search
- (company-dabbrev-code--make-regexp arg)
- company-dabbrev-code-time-limit
- (pcase company-dabbrev-code-other-buffers
- (`t (list major-mode))
- (`code company-dabbrev-code-modes)
- (`all `all))
- (not company-dabbrev-code-everywhere))))
- (ignore-case company-dabbrev-code-ignore-case)
- (duplicates t)))
-
-(provide 'company-dabbrev-code)
-;;; company-dabbrev-code.el ends here
diff --git a/elpa/company-20181105.2312/company-dabbrev-code.elc b/elpa/company-20181105.2312/company-dabbrev-code.elc
deleted file mode 100644
index 7617feb..0000000
--- a/elpa/company-20181105.2312/company-dabbrev-code.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-dabbrev.el b/elpa/company-20181105.2312/company-dabbrev.el
deleted file mode 100644
index 5d2f318..0000000
--- a/elpa/company-20181105.2312/company-dabbrev.el
+++ /dev/null
@@ -1,206 +0,0 @@
-;;; company-dabbrev.el --- dabbrev-like company-mode completion backend -*- lexical-binding: t -*-
-
-;; Copyright (C) 2009, 2011, 2014, 2015, 2016 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defgroup company-dabbrev nil
- "dabbrev-like completion backend."
- :group 'company)
-
-(defcustom company-dabbrev-other-buffers 'all
- "Determines whether `company-dabbrev' should search other buffers.
-If `all', search all other buffers, except the ignored ones. If t, search
-buffers with the same major mode. See also `company-dabbrev-time-limit'."
- :type '(choice (const :tag "Off" nil)
- (const :tag "Same major mode" t)
- (const :tag "All" all)))
-
-(defcustom company-dabbrev-ignore-buffers "\\`[ *]"
- "Regexp matching the names of buffers to ignore.
-Or a function that returns non-nil for such buffers."
- :type '(choice (regexp :tag "Regexp")
- (function :tag "Predicate"))
- :package-version '(company . "0.9.0"))
-
-(defcustom company-dabbrev-time-limit .1
- "Determines how many seconds `company-dabbrev' should look for matches."
- :type '(choice (const :tag "Off" nil)
- (number :tag "Seconds")))
-
-(defcustom company-dabbrev-char-regexp "\\sw"
- "A regular expression matching the characters `company-dabbrev' looks for."
- :type 'regexp)
-
-(defcustom company-dabbrev-ignore-case 'keep-prefix
- "Non-nil to ignore case when collecting completion candidates.
-When it's `keep-prefix', the text before point will remain unchanged after
-candidate is inserted, even some of its characters have different case."
- :type '(choice
- (const :tag "Don't ignore case" nil)
- (const :tag "Ignore case" t)
- (const :tag "Keep case before point" keep-prefix)))
-
-(defcustom company-dabbrev-downcase 'case-replace
- "Whether to downcase the returned candidates.
-
-The value of nil means keep them as-is.
-`case-replace' means use the value of `case-replace'.
-Any other value means downcase.
-
-If you set this value to nil, you may also want to set
-`company-dabbrev-ignore-case' to any value other than `keep-prefix'."
- :type '(choice
- (const :tag "Keep as-is" nil)
- (const :tag "Downcase" t)
- (const :tag "Use case-replace" case-replace)))
-
-(defcustom company-dabbrev-minimum-length 4
- "The minimum length for the completion candidate to be included.
-This variable affects both `company-dabbrev' and `company-dabbrev-code'."
- :type 'integer
- :package-version '(company . "0.8.3"))
-
-(defcustom company-dabbrev-ignore-invisible nil
- "Non-nil to skip invisible text."
- :type 'boolean
- :package-version '(company . "0.9.0"))
-
-(defmacro company-dabbrev--time-limit-while (test start limit freq &rest body)
- (declare (indent 3) (debug t))
- `(let ((company-time-limit-while-counter 0))
- (catch 'done
- (while ,test
- ,@body
- (and ,limit
- (= (cl-incf company-time-limit-while-counter) ,freq)
- (setq company-time-limit-while-counter 0)
- (> (float-time (time-since ,start)) ,limit)
- (throw 'done 'company-time-out))))))
-
-(defun company-dabbrev--make-regexp ()
- (concat "\\(?:" company-dabbrev-char-regexp "\\)+"))
-
-(defun company-dabbrev--search-buffer (regexp pos symbols start limit
- ignore-comments)
- (save-excursion
- (cl-labels ((maybe-collect-match
- ()
- (let ((match (match-string-no-properties 0)))
- (when (and (>= (length match) company-dabbrev-minimum-length)
- (not (and company-dabbrev-ignore-invisible
- (invisible-p (match-beginning 0)))))
- (push match symbols)))))
- (goto-char (if pos (1- pos) (point-min)))
- ;; Search before pos.
- (let ((tmp-end (point)))
- (company-dabbrev--time-limit-while (and (not (input-pending-p))
- (> tmp-end (point-min)))
- start limit 1
- (ignore-errors
- (forward-char -10000))
- (forward-line 0)
- (save-excursion
- ;; Before, we used backward search, but it matches non-greedily, and
- ;; that forced us to use the "beginning/end of word" anchors in
- ;; `company-dabbrev--make-regexp'. It's also about 2x slower.
- (while (and (not (input-pending-p))
- (re-search-forward regexp tmp-end t))
- (if (and ignore-comments (save-match-data (company-in-string-or-comment)))
- (re-search-forward "\\s>\\|\\s!\\|\\s\"" tmp-end t)
- (maybe-collect-match))))
- (setq tmp-end (point))))
- (goto-char (or pos (point-min)))
- ;; Search after pos.
- (company-dabbrev--time-limit-while (and (not (input-pending-p))
- (re-search-forward regexp nil t))
- start limit 25
- (if (and ignore-comments (save-match-data (company-in-string-or-comment)))
- (re-search-forward "\\s>\\|\\s!\\|\\s\"" nil t)
- (maybe-collect-match)))
- symbols)))
-
-(defun company-dabbrev--search (regexp &optional limit other-buffer-modes
- ignore-comments)
- (let* ((start (current-time))
- (symbols (company-dabbrev--search-buffer regexp (point) nil start limit
- ignore-comments)))
- (when other-buffer-modes
- (cl-dolist (buffer (delq (current-buffer) (buffer-list)))
- (unless (if (stringp company-dabbrev-ignore-buffers)
- (string-match-p company-dabbrev-ignore-buffers
- (buffer-name buffer))
- (funcall company-dabbrev-ignore-buffers buffer))
- (with-current-buffer buffer
- (when (or (eq other-buffer-modes 'all)
- (apply #'derived-mode-p other-buffer-modes))
- (setq symbols
- (company-dabbrev--search-buffer regexp nil symbols start
- limit ignore-comments)))))
- (and limit
- (> (float-time (time-since start)) limit)
- (cl-return))))
- symbols))
-
-(defun company-dabbrev--prefix ()
- ;; Not in the middle of a word.
- (unless (looking-at company-dabbrev-char-regexp)
- ;; Emacs can't do greedy backward-search.
- (company-grab-line (format "\\(?:^\\| \\)[^ ]*?\\(\\(?:%s\\)*\\)"
- company-dabbrev-char-regexp)
- 1)))
-
-(defun company-dabbrev--filter (prefix candidates)
- (let ((completion-ignore-case company-dabbrev-ignore-case))
- (all-completions prefix candidates)))
-
-;;;###autoload
-(defun company-dabbrev (command &optional arg &rest ignored)
- "dabbrev-like `company-mode' completion backend."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-dabbrev))
- (prefix (company-dabbrev--prefix))
- (candidates
- (let* ((case-fold-search company-dabbrev-ignore-case)
- (words (company-dabbrev--search (company-dabbrev--make-regexp)
- company-dabbrev-time-limit
- (pcase company-dabbrev-other-buffers
- (`t (list major-mode))
- (`all `all))))
- (downcase-p (if (eq company-dabbrev-downcase 'case-replace)
- case-replace
- company-dabbrev-downcase)))
- (setq words (company-dabbrev--filter arg words))
- (if downcase-p
- (mapcar 'downcase words)
- words)))
- (ignore-case company-dabbrev-ignore-case)
- (duplicates t)))
-
-(provide 'company-dabbrev)
-;;; company-dabbrev.el ends here
diff --git a/elpa/company-20181105.2312/company-dabbrev.elc b/elpa/company-20181105.2312/company-dabbrev.elc
deleted file mode 100644
index e5279c4..0000000
--- a/elpa/company-20181105.2312/company-dabbrev.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-eclim.el b/elpa/company-20181105.2312/company-eclim.el
deleted file mode 100644
index b37f756..0000000
--- a/elpa/company-20181105.2312/company-eclim.el
+++ /dev/null
@@ -1,186 +0,0 @@
-;;; company-eclim.el --- company-mode completion backend for Eclim
-
-;; Copyright (C) 2009, 2011, 2013, 2015 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-;; Using `emacs-eclim' together with (or instead of) this backend is
-;; recommended, as it allows you to use other Eclim features.
-;;
-;; The alternative backend provided by `emacs-eclim' uses `yasnippet'
-;; instead of `company-template' to expand function calls, and it supports
-;; some languages other than Java.
-
-;;; Code:
-
-(require 'company)
-(require 'company-template)
-(require 'cl-lib)
-
-(defgroup company-eclim nil
- "Completion backend for Eclim."
- :group 'company)
-
-(defun company-eclim-executable-find ()
- (let (file)
- (cl-dolist (eclipse-root '("/Applications/eclipse" "/usr/lib/eclipse"
- "/usr/local/lib/eclipse"))
- (and (file-exists-p (setq file (expand-file-name "plugins" eclipse-root)))
- (setq file (car (last (directory-files file t "^org.eclim_"))))
- (file-exists-p (setq file (expand-file-name "bin/eclim" file)))
- (cl-return file)))))
-
-(defcustom company-eclim-executable
- (or (bound-and-true-p eclim-executable)
- (executable-find "eclim")
- (company-eclim-executable-find))
- "Location of eclim executable."
- :type 'file)
-
-(defcustom company-eclim-auto-save t
- "Determines whether to save the buffer when retrieving completions.
-eclim can only complete correctly when the buffer has been saved."
- :type '(choice (const :tag "Off" nil)
- (const :tag "On" t)))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-eclim--project-dir 'unknown)
-
-(defvar-local company-eclim--project-name nil)
-
-(declare-function json-read "json")
-(defvar json-array-type)
-
-(defun company-eclim--call-process (&rest args)
- (let ((coding-system-for-read 'utf-8)
- res)
- (require 'json)
- (with-temp-buffer
- (if (= 0 (setq res (apply 'call-process company-eclim-executable nil t nil
- "-command" args)))
- (let ((json-array-type 'list))
- (goto-char (point-min))
- (unless (eobp)
- (json-read)))
- (message "Company-eclim command failed with error %d:\n%s" res
- (buffer-substring (point-min) (point-max)))
- nil))))
-
-(defun company-eclim--project-list ()
- (company-eclim--call-process "project_list"))
-
-(defun company-eclim--project-dir ()
- (if (eq company-eclim--project-dir 'unknown)
- (let ((dir (locate-dominating-file buffer-file-name ".project")))
- (when dir
- (setq company-eclim--project-dir
- (directory-file-name
- (expand-file-name dir)))))
- company-eclim--project-dir))
-
-(defun company-eclim--project-name ()
- (or company-eclim--project-name
- (let ((dir (company-eclim--project-dir)))
- (when dir
- (setq company-eclim--project-name
- (cl-loop for project in (company-eclim--project-list)
- when (equal (cdr (assoc 'path project)) dir)
- return (cdr (assoc 'name project))))))))
-
-(defun company-eclim--candidates (prefix)
- (interactive "d")
- (let ((project-file (file-relative-name buffer-file-name
- (company-eclim--project-dir)))
- completions)
- (when company-eclim-auto-save
- (when (buffer-modified-p)
- (basic-save-buffer))
- ;; FIXME: Sometimes this isn't finished when we complete.
- (company-eclim--call-process "java_src_update"
- "-p" (company-eclim--project-name)
- "-f" project-file))
- (dolist (item (cdr (assoc 'completions
- (company-eclim--call-process
- "java_complete" "-p" (company-eclim--project-name)
- "-f" project-file
- "-o" (number-to-string
- (company-eclim--search-point prefix))
- "-e" "utf-8"
- "-l" "standard"))))
- (let* ((meta (cdr (assoc 'info item)))
- (completion meta))
- (when (string-match " ?[(:-]" completion)
- (setq completion (substring completion 0 (match-beginning 0))))
- (put-text-property 0 1 'meta meta completion)
- (push completion completions)))
- (let ((completion-ignore-case nil))
- (all-completions prefix completions))))
-
-(defun company-eclim--search-point (prefix)
- (if (or (cl-plusp (length prefix)) (eq (char-before) ?.))
- (1- (point))
- (point)))
-
-(defun company-eclim--meta (candidate)
- (get-text-property 0 'meta candidate))
-
-(defun company-eclim--annotation (candidate)
- (let ((meta (company-eclim--meta candidate)))
- (when (string-match "\\(([^-]*\\) -" meta)
- (substring meta (match-beginning 1) (match-end 1)))))
-
-(defun company-eclim--prefix ()
- (let ((prefix (company-grab-symbol)))
- (when prefix
- ;; Completion candidates for annotations don't include '@'.
- (when (eq ?@ (string-to-char prefix))
- (setq prefix (substring prefix 1)))
- prefix)))
-
-(defun company-eclim (command &optional arg &rest ignored)
- "`company-mode' completion backend for Eclim.
-Eclim provides access to Eclipse Java IDE features for other editors.
-
-Eclim version 1.7.13 or newer (?) is required.
-
-Completions only work correctly when the buffer has been saved.
-`company-eclim-auto-save' determines whether to do this automatically."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-eclim))
- (prefix (and (derived-mode-p 'java-mode 'jde-mode)
- buffer-file-name
- company-eclim-executable
- (company-eclim--project-name)
- (not (company-in-string-or-comment))
- (or (company-eclim--prefix) 'stop)))
- (candidates (company-eclim--candidates arg))
- (meta (company-eclim--meta arg))
- ;; because "" doesn't return everything
- (no-cache (equal arg ""))
- (annotation (company-eclim--annotation arg))
- (post-completion (let ((anno (company-eclim--annotation arg)))
- (when anno
- (insert anno)
- (company-template-c-like-templatify anno))))))
-
-(provide 'company-eclim)
-;;; company-eclim.el ends here
diff --git a/elpa/company-20181105.2312/company-eclim.elc b/elpa/company-20181105.2312/company-eclim.elc
deleted file mode 100644
index 3513f9c..0000000
--- a/elpa/company-20181105.2312/company-eclim.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-elisp.el b/elpa/company-20181105.2312/company-elisp.el
deleted file mode 100644
index db1653d..0000000
--- a/elpa/company-20181105.2312/company-elisp.el
+++ /dev/null
@@ -1,226 +0,0 @@
-;;; company-elisp.el --- company-mode completion backend for Emacs Lisp -*- lexical-binding: t -*-
-
-;; Copyright (C) 2009, 2011-2013, 2017 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-;; In newer versions of Emacs, company-capf is used instead.
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-(require 'help-mode)
-(require 'find-func)
-
-(defgroup company-elisp nil
- "Completion backend for Emacs Lisp."
- :group 'company)
-
-(defcustom company-elisp-detect-function-context t
- "If enabled, offer Lisp functions only in appropriate contexts.
-Functions are offered for completion only after ' and \(."
- :type '(choice (const :tag "Off" nil)
- (const :tag "On" t)))
-
-(defcustom company-elisp-show-locals-first t
- "If enabled, locally bound variables and functions are displayed
-first in the candidates list."
- :type '(choice (const :tag "Off" nil)
- (const :tag "On" t)))
-
-(defun company-elisp--prefix ()
- (let ((prefix (company-grab-symbol)))
- (if prefix
- (when (if (company-in-string-or-comment)
- (= (char-before (- (point) (length prefix))) ?`)
- (company-elisp--should-complete))
- prefix)
- 'stop)))
-
-(defun company-elisp--predicate (symbol)
- (or (boundp symbol)
- (fboundp symbol)
- (facep symbol)
- (featurep symbol)))
-
-(defun company-elisp--fns-regexp (&rest names)
- (concat "\\_<\\(?:cl-\\)?" (regexp-opt names) "\\*?\\_>"))
-
-(defvar company-elisp-parse-limit 30)
-(defvar company-elisp-parse-depth 100)
-
-(defvar company-elisp-defun-names '("defun" "defmacro" "defsubst"))
-
-(defvar company-elisp-var-binding-regexp
- (apply #'company-elisp--fns-regexp "let" "lambda" "lexical-let"
- company-elisp-defun-names)
- "Regular expression matching head of a multiple variable bindings form.")
-
-(defvar company-elisp-var-binding-regexp-1
- (company-elisp--fns-regexp "dolist" "dotimes")
- "Regular expression matching head of a form with one variable binding.")
-
-(defvar company-elisp-fun-binding-regexp
- (company-elisp--fns-regexp "flet" "labels")
- "Regular expression matching head of a function bindings form.")
-
-(defvar company-elisp-defuns-regexp
- (concat "([ \t\n]*"
- (apply #'company-elisp--fns-regexp company-elisp-defun-names)))
-
-(defun company-elisp--should-complete ()
- (let ((start (point))
- (depth (car (syntax-ppss))))
- (not
- (when (> depth 0)
- (save-excursion
- (up-list (- depth))
- (when (looking-at company-elisp-defuns-regexp)
- (forward-char)
- (forward-sexp 1)
- (unless (= (point) start)
- (condition-case nil
- (let ((args-end (scan-sexps (point) 2)))
- (or (null args-end)
- (> args-end start)))
- (scan-error
- t)))))))))
-
-(defun company-elisp--locals (prefix functions-p)
- (let ((regexp (concat "[ \t\n]*\\(\\_<" (regexp-quote prefix)
- "\\(?:\\sw\\|\\s_\\)*\\_>\\)"))
- (pos (point))
- res)
- (condition-case nil
- (save-excursion
- (dotimes (_ company-elisp-parse-depth)
- (up-list -1)
- (save-excursion
- (when (eq (char-after) ?\()
- (forward-char 1)
- (when (ignore-errors
- (save-excursion (forward-list)
- (<= (point) pos)))
- (skip-chars-forward " \t\n")
- (cond
- ((looking-at (if functions-p
- company-elisp-fun-binding-regexp
- company-elisp-var-binding-regexp))
- (down-list 1)
- (condition-case nil
- (dotimes (_ company-elisp-parse-limit)
- (save-excursion
- (when (looking-at "[ \t\n]*(")
- (down-list 1))
- (when (looking-at regexp)
- (cl-pushnew (match-string-no-properties 1) res)))
- (forward-sexp))
- (scan-error nil)))
- ((unless functions-p
- (looking-at company-elisp-var-binding-regexp-1))
- (down-list 1)
- (when (looking-at regexp)
- (cl-pushnew (match-string-no-properties 1) res)))))))))
- (scan-error nil))
- res))
-
-(defun company-elisp-candidates (prefix)
- (let* ((predicate (company-elisp--candidates-predicate prefix))
- (locals (company-elisp--locals prefix (eq predicate 'fboundp)))
- (globals (company-elisp--globals prefix predicate))
- (locals (cl-loop for local in locals
- when (not (member local globals))
- collect local)))
- (if company-elisp-show-locals-first
- (append (sort locals 'string<)
- (sort globals 'string<))
- (append locals globals))))
-
-(defun company-elisp--globals (prefix predicate)
- (all-completions prefix obarray predicate))
-
-(defun company-elisp--candidates-predicate (prefix)
- (let* ((completion-ignore-case nil)
- (beg (- (point) (length prefix)))
- (before (char-before beg)))
- (if (and company-elisp-detect-function-context
- (not (memq before '(?' ?`))))
- (if (and (eq before ?\()
- (not
- (save-excursion
- (ignore-errors
- (goto-char (1- beg))
- (or (company-elisp--before-binding-varlist-p)
- (progn
- (up-list -1)
- (company-elisp--before-binding-varlist-p)))))))
- 'fboundp
- 'boundp)
- 'company-elisp--predicate)))
-
-(defun company-elisp--before-binding-varlist-p ()
- (save-excursion
- (and (prog1 (search-backward "(")
- (forward-char 1))
- (looking-at company-elisp-var-binding-regexp))))
-
-(defun company-elisp--doc (symbol)
- (let* ((symbol (intern symbol))
- (doc (if (fboundp symbol)
- (documentation symbol t)
- (documentation-property symbol 'variable-documentation t))))
- (and (stringp doc)
- (string-match ".*$" doc)
- (match-string 0 doc))))
-
-;;;###autoload
-(defun company-elisp (command &optional arg &rest ignored)
- "`company-mode' completion backend for Emacs Lisp."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-elisp))
- (prefix (and (derived-mode-p 'emacs-lisp-mode 'inferior-emacs-lisp-mode)
- (company-elisp--prefix)))
- (candidates (company-elisp-candidates arg))
- (sorted company-elisp-show-locals-first)
- (meta (company-elisp--doc arg))
- (doc-buffer (let ((symbol (intern arg)))
- (save-window-excursion
- (ignore-errors
- (cond
- ((fboundp symbol) (describe-function symbol))
- ((boundp symbol) (describe-variable symbol))
- ((featurep symbol) (describe-package symbol))
- ((facep symbol) (describe-face symbol))
- (t (signal 'user-error nil)))
- (help-buffer)))))
- (location (let ((sym (intern arg)))
- (cond
- ((fboundp sym) (find-definition-noselect sym nil))
- ((boundp sym) (find-definition-noselect sym 'defvar))
- ((featurep sym) (cons (find-file-noselect (find-library-name
- (symbol-name sym)))
- 0))
- ((facep sym) (find-definition-noselect sym 'defface)))))))
-
-(provide 'company-elisp)
-;;; company-elisp.el ends here
diff --git a/elpa/company-20181105.2312/company-elisp.elc b/elpa/company-20181105.2312/company-elisp.elc
deleted file mode 100644
index 6d2cca4..0000000
--- a/elpa/company-20181105.2312/company-elisp.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-etags.el b/elpa/company-20181105.2312/company-etags.el
deleted file mode 100644
index d0c27c9..0000000
--- a/elpa/company-20181105.2312/company-etags.el
+++ /dev/null
@@ -1,108 +0,0 @@
-;;; company-etags.el --- company-mode completion backend for etags
-
-;; Copyright (C) 2009-2011, 2014 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-(require 'etags)
-
-(defgroup company-etags nil
- "Completion backend for etags."
- :group 'company)
-
-(defcustom company-etags-use-main-table-list t
- "Always search `tags-table-list' if set.
-If this is disabled, `company-etags' will try to find the one table for each
-buffer automatically."
- :type '(choice (const :tag "off" nil)
- (const :tag "on" t)))
-
-(defcustom company-etags-ignore-case nil
- "Non-nil to ignore case in completion candidates."
- :type 'boolean
- :package-version '(company . "0.7.3"))
-
-(defcustom company-etags-everywhere nil
- "Non-nil to offer completions in comments and strings.
-Set it to t or to a list of major modes."
- :type '(choice (const :tag "Off" nil)
- (const :tag "Any supported mode" t)
- (repeat :tag "Some major modes"
- (symbol :tag "Major mode")))
- :package-version '(company . "0.9.0"))
-
-(defvar company-etags-modes '(prog-mode c-mode objc-mode c++-mode java-mode
- jde-mode pascal-mode perl-mode python-mode))
-
-(defvar-local company-etags-buffer-table 'unknown)
-
-(defun company-etags-find-table ()
- (let ((file (expand-file-name
- "TAGS"
- (locate-dominating-file (or buffer-file-name
- default-directory)
- "TAGS"))))
- (when (and file (file-regular-p file))
- (list file))))
-
-(defun company-etags-buffer-table ()
- (or (and company-etags-use-main-table-list tags-table-list)
- (if (eq company-etags-buffer-table 'unknown)
- (setq company-etags-buffer-table (company-etags-find-table))
- company-etags-buffer-table)))
-
-(defun company-etags--candidates (prefix)
- (let ((tags-table-list (company-etags-buffer-table))
- (tags-file-name tags-file-name)
- (completion-ignore-case company-etags-ignore-case))
- (and (or tags-file-name tags-table-list)
- (fboundp 'tags-completion-table)
- (save-excursion
- (visit-tags-table-buffer)
- (all-completions prefix (tags-completion-table))))))
-
-;;;###autoload
-(defun company-etags (command &optional arg &rest ignored)
- "`company-mode' completion backend for etags."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-etags))
- (prefix (and (apply #'derived-mode-p company-etags-modes)
- (or (eq t company-etags-everywhere)
- (apply #'derived-mode-p company-etags-everywhere)
- (not (company-in-string-or-comment)))
- (company-etags-buffer-table)
- (or (company-grab-symbol) 'stop)))
- (candidates (company-etags--candidates arg))
- (location (let ((tags-table-list (company-etags-buffer-table)))
- (when (fboundp 'find-tag-noselect)
- (save-excursion
- (let ((buffer (find-tag-noselect arg)))
- (cons buffer (with-current-buffer buffer (point))))))))
- (ignore-case company-etags-ignore-case)))
-
-(provide 'company-etags)
-;;; company-etags.el ends here
diff --git a/elpa/company-20181105.2312/company-etags.elc b/elpa/company-20181105.2312/company-etags.elc
deleted file mode 100644
index 870da52..0000000
--- a/elpa/company-20181105.2312/company-etags.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-files.el b/elpa/company-20181105.2312/company-files.el
deleted file mode 100644
index c6102a1..0000000
--- a/elpa/company-20181105.2312/company-files.el
+++ /dev/null
@@ -1,148 +0,0 @@
-;;; company-files.el --- company-mode completion backend for file names
-
-;; Copyright (C) 2009-2011, 2014-2015 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defgroup company-files nil
- "Completion backend for file names."
- :group 'company)
-
-(defcustom company-files-exclusions nil
- "File name extensions and directory names to ignore.
-The values should use the same format as `completion-ignored-extensions'."
- :type '(const string)
- :package-version '(company . "0.9.1"))
-
-(defun company-files--directory-files (dir prefix)
- ;; Don't use directory-files. It produces directories without trailing /.
- (condition-case err
- (let ((comp (sort (file-name-all-completions prefix dir)
- (lambda (s1 s2) (string-lessp (downcase s1) (downcase s2))))))
- (when company-files-exclusions
- (setq comp (company-files--exclusions-filtered comp)))
- (if (equal prefix "")
- (delete "../" (delete "./" comp))
- comp))
- (file-error nil)))
-
-(defun company-files--exclusions-filtered (completions)
- (let* ((dir-exclusions (cl-delete-if-not #'company-files--trailing-slash-p
- company-files-exclusions))
- (file-exclusions (cl-set-difference company-files-exclusions
- dir-exclusions)))
- (cl-loop for c in completions
- unless (if (company-files--trailing-slash-p c)
- (member c dir-exclusions)
- (cl-find-if (lambda (exclusion)
- (string-suffix-p exclusion c))
- file-exclusions))
- collect c)))
-
-(defvar company-files--regexps
- (let* ((root (if (eq system-type 'windows-nt)
- "[a-zA-Z]:/"
- "/"))
- (begin (concat "\\(?:\\.\\{1,2\\}/\\|~/\\|" root "\\)")))
- (list (concat "\"\\(" begin "[^\"\n]*\\)")
- (concat "\'\\(" begin "[^\'\n]*\\)")
- (concat "\\(?:[ \t=]\\|^\\)\\(" begin "[^ \t\n]*\\)"))))
-
-(defun company-files--grab-existing-name ()
- ;; Grab the file name.
- ;; When surrounded with quotes, it can include spaces.
- (let (file dir)
- (and (cl-dolist (regexp company-files--regexps)
- (when (setq file (company-grab-line regexp 1))
- (cl-return file)))
- (company-files--connected-p file)
- (setq dir (file-name-directory file))
- (not (string-match "//" dir))
- (file-exists-p dir)
- file)))
-
-(defun company-files--connected-p (file)
- (or (not (file-remote-p file))
- (file-remote-p file nil t)))
-
-(defun company-files--trailing-slash-p (file)
- ;; `file-directory-p' is very expensive on remotes. We are relying on
- ;; `file-name-all-completions' returning directories with trailing / instead.
- (let ((len (length file)))
- (and (> len 0) (eq (aref file (1- len)) ?/))))
-
-(defvar company-files--completion-cache nil)
-
-(defun company-files--complete (prefix)
- (let* ((dir (file-name-directory prefix))
- (file (file-name-nondirectory prefix))
- (key (list file
- (expand-file-name dir)
- (nth 5 (file-attributes dir))))
- (completion-ignore-case read-file-name-completion-ignore-case))
- (unless (company-file--keys-match-p key (car company-files--completion-cache))
- (let* ((candidates (mapcar (lambda (f) (concat dir f))
- (company-files--directory-files dir file)))
- (directories (unless (file-remote-p dir)
- (cl-remove-if-not (lambda (f)
- (and (company-files--trailing-slash-p f)
- (not (file-remote-p f))
- (company-files--connected-p f)))
- candidates)))
- (children (and directories
- (cl-mapcan (lambda (d)
- (mapcar (lambda (c) (concat d c))
- (company-files--directory-files d "")))
- directories))))
- (setq company-files--completion-cache
- (cons key (append candidates children)))))
- (all-completions prefix
- (cdr company-files--completion-cache))))
-
-(defun company-file--keys-match-p (new old)
- (and (equal (cdr old) (cdr new))
- (string-prefix-p (car old) (car new))))
-
-;;;###autoload
-(defun company-files (command &optional arg &rest ignored)
- "`company-mode' completion backend existing file names.
-Completions works for proper absolute and relative files paths.
-File paths with spaces are only supported inside strings."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-files))
- (prefix (company-files--grab-existing-name))
- (candidates (company-files--complete arg))
- (location (cons (dired-noselect
- (file-name-directory (directory-file-name arg))) 1))
- (post-completion (when (company-files--trailing-slash-p arg)
- (delete-char -1)))
- (sorted t)
- (no-cache t)))
-
-(provide 'company-files)
-;;; company-files.el ends here
diff --git a/elpa/company-20181105.2312/company-files.elc b/elpa/company-20181105.2312/company-files.elc
deleted file mode 100644
index f6e00fd..0000000
--- a/elpa/company-20181105.2312/company-files.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-gtags.el b/elpa/company-20181105.2312/company-gtags.el
deleted file mode 100644
index 2a85f23..0000000
--- a/elpa/company-20181105.2312/company-gtags.el
+++ /dev/null
@@ -1,117 +0,0 @@
-;;; company-gtags.el --- company-mode completion backend for GNU Global
-
-;; Copyright (C) 2009-2011, 2014 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'company-template)
-(require 'cl-lib)
-
-(defgroup company-gtags nil
- "Completion backend for GNU Global."
- :group 'company)
-
-(define-obsolete-variable-alias
- 'company-gtags-gnu-global-program-name
- 'company-gtags-executable "earlier")
-
-(defcustom company-gtags-executable
- (executable-find "global")
- "Location of GNU global executable."
- :type 'string)
-
-(defcustom company-gtags-insert-arguments t
- "When non-nil, insert function arguments as a template after completion."
- :type 'boolean
- :package-version '(company . "0.8.1"))
-
-(defvar-local company-gtags--tags-available-p 'unknown)
-
-(defcustom company-gtags-modes '(prog-mode jde-mode)
- "Modes that use `company-gtags'.
-In all these modes (and their derivatives) `company-gtags' will perform
-completion."
- :type '(repeat (symbol :tag "Major mode"))
- :package-version '(company . "0.8.4"))
-
-(defun company-gtags--tags-available-p ()
- (if (eq company-gtags--tags-available-p 'unknown)
- (setq company-gtags--tags-available-p
- (locate-dominating-file buffer-file-name "GTAGS"))
- company-gtags--tags-available-p))
-
-(defun company-gtags--fetch-tags (prefix)
- (with-temp-buffer
- (let (tags)
- (when (= 0 (process-file company-gtags-executable nil
- ;; "-T" goes through all the tag files listed in GTAGSLIBPATH
- (list (current-buffer) nil) nil "-xGqT" (concat "^" prefix)))
- (goto-char (point-min))
- (cl-loop while
- (re-search-forward (concat
- "^"
- "\\([^ ]*\\)" ;; completion
- "[ \t]+\\([[:digit:]]+\\)" ;; linum
- "[ \t]+\\([^ \t]+\\)" ;; file
- "[ \t]+\\(.*\\)" ;; definition
- "$"
- ) nil t)
- collect
- (propertize (match-string 1)
- 'meta (match-string 4)
- 'location (cons (expand-file-name (match-string 3))
- (string-to-number (match-string 2)))
- ))))))
-
-(defun company-gtags--annotation (arg)
- (let ((meta (get-text-property 0 'meta arg)))
- (when (string-match (concat arg "\\((.*)\\).*") meta)
- (match-string 1 meta))))
-
-;;;###autoload
-(defun company-gtags (command &optional arg &rest ignored)
- "`company-mode' completion backend for GNU Global."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-gtags))
- (prefix (and company-gtags-executable
- buffer-file-name
- (apply #'derived-mode-p company-gtags-modes)
- (not (company-in-string-or-comment))
- (company-gtags--tags-available-p)
- (or (company-grab-symbol) 'stop)))
- (candidates (company-gtags--fetch-tags arg))
- (sorted t)
- (duplicates t)
- (annotation (company-gtags--annotation arg))
- (meta (get-text-property 0 'meta arg))
- (location (get-text-property 0 'location arg))
- (post-completion (let ((anno (company-gtags--annotation arg)))
- (when (and company-gtags-insert-arguments anno)
- (insert anno)
- (company-template-c-like-templatify anno))))))
-
-(provide 'company-gtags)
-;;; company-gtags.el ends here
diff --git a/elpa/company-20181105.2312/company-gtags.elc b/elpa/company-20181105.2312/company-gtags.elc
deleted file mode 100644
index b150f2a..0000000
--- a/elpa/company-20181105.2312/company-gtags.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-ispell.el b/elpa/company-20181105.2312/company-ispell.el
deleted file mode 100644
index ed658f2..0000000
--- a/elpa/company-20181105.2312/company-ispell.el
+++ /dev/null
@@ -1,82 +0,0 @@
-;;; company-ispell.el --- company-mode completion backend using Ispell
-
-;; Copyright (C) 2009-2011, 2013-2016 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-(require 'ispell)
-
-(defgroup company-ispell nil
- "Completion backend using Ispell."
- :group 'company)
-
-(defcustom company-ispell-dictionary nil
- "Dictionary to use for `company-ispell'.
-If nil, use `ispell-complete-word-dict'."
- :type '(choice (const :tag "default (nil)" nil)
- (file :tag "dictionary" t)))
-
-(defvar company-ispell-available 'unknown)
-
-(defalias 'company-ispell--lookup-words
- (if (fboundp 'ispell-lookup-words)
- 'ispell-lookup-words
- 'lookup-words))
-
-(defun company-ispell-available ()
- (when (eq company-ispell-available 'unknown)
- (condition-case err
- (progn
- (company-ispell--lookup-words "WHATEVER")
- (setq company-ispell-available t))
- (error
- (message "Company-Ispell: %s" (error-message-string err))
- (setq company-ispell-available nil))))
- company-ispell-available)
-
-;;;###autoload
-(defun company-ispell (command &optional arg &rest ignored)
- "`company-mode' completion backend using Ispell."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-ispell))
- (prefix (when (company-ispell-available)
- (company-grab-word)))
- (candidates
- (let ((words (company-ispell--lookup-words
- arg
- (or company-ispell-dictionary ispell-complete-word-dict)))
- (completion-ignore-case t))
- (if (string= arg "")
- ;; Small optimization.
- words
- ;; Work around issue #284.
- (all-completions arg words))))
- (sorted t)
- (ignore-case 'keep-prefix)))
-
-(provide 'company-ispell)
-;;; company-ispell.el ends here
diff --git a/elpa/company-20181105.2312/company-ispell.elc b/elpa/company-20181105.2312/company-ispell.elc
deleted file mode 100644
index e56266f..0000000
--- a/elpa/company-20181105.2312/company-ispell.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-keywords.el b/elpa/company-20181105.2312/company-keywords.el
deleted file mode 100644
index b6dfd1d..0000000
--- a/elpa/company-20181105.2312/company-keywords.el
+++ /dev/null
@@ -1,306 +0,0 @@
-;;; company-keywords.el --- A company backend for programming language keywords
-
-;; Copyright (C) 2009-2011, 2016 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defun company-keywords-upper-lower (&rest lst)
- ;; Upcase order is different for _.
- (nconc (sort (mapcar 'upcase lst) 'string<) lst))
-
-(defvar company-keywords-alist
- ;; Please contribute corrections or additions.
- `((c++-mode
- "alignas" "alignof" "asm" "auto" "bool" "break" "case" "catch" "char"
- "char16_t" "char32_t" "class" "const" "const_cast" "constexpr" "continue"
- "decltype" "default" "delete" "do" "double" "dynamic_cast" "else" "enum"
- "explicit" "export" "extern" "false" "final" "float" "for" "friend"
- "goto" "if" "inline" "int" "long" "mutable" "namespace" "new" "noexcept"
- "nullptr" "operator" "override"
- "private" "protected" "public" "register" "reinterpret_cast"
- "return" "short" "signed" "sizeof" "static" "static_assert"
- "static_cast" "struct" "switch" "template" "this" "thread_local"
- "throw" "true" "try" "typedef" "typeid" "typename"
- "union" "unsigned" "using" "virtual" "void" "volatile" "wchar_t" "while")
- (c-mode
- "auto" "break" "case" "char" "const" "continue" "default" "do"
- "double" "else" "enum" "extern" "float" "for" "goto" "if" "int" "long"
- "register" "return" "short" "signed" "sizeof" "static" "struct"
- "switch" "typedef" "union" "unsigned" "void" "volatile" "while")
- (csharp-mode
- "abstract" "add" "alias" "as" "base" "bool" "break" "byte" "case"
- "catch" "char" "checked" "class" "const" "continue" "decimal" "default"
- "delegate" "do" "double" "else" "enum" "event" "explicit" "extern"
- "false" "finally" "fixed" "float" "for" "foreach" "get" "global" "goto"
- "if" "implicit" "in" "int" "interface" "internal" "is" "lock" "long"
- "namespace" "new" "null" "object" "operator" "out" "override" "params"
- "partial" "private" "protected" "public" "readonly" "ref" "remove"
- "return" "sbyte" "sealed" "set" "short" "sizeof" "stackalloc" "static"
- "string" "struct" "switch" "this" "throw" "true" "try" "typeof" "uint"
- "ulong" "unchecked" "unsafe" "ushort" "using" "value" "var" "virtual"
- "void" "volatile" "where" "while" "yield")
- (d-mode
- ;; from http://www.digitalmars.com/d/2.0/lex.html
- "abstract" "alias" "align" "asm"
- "assert" "auto" "body" "bool" "break" "byte" "case" "cast" "catch"
- "cdouble" "cent" "cfloat" "char" "class" "const" "continue" "creal"
- "dchar" "debug" "default" "delegate" "delete" "deprecated" "do"
- "double" "else" "enum" "export" "extern" "false" "final" "finally"
- "float" "for" "foreach" "foreach_reverse" "function" "goto" "idouble"
- "if" "ifloat" "import" "in" "inout" "int" "interface" "invariant"
- "ireal" "is" "lazy" "long" "macro" "mixin" "module" "new" "nothrow"
- "null" "out" "override" "package" "pragma" "private" "protected"
- "public" "pure" "real" "ref" "return" "scope" "short" "static" "struct"
- "super" "switch" "synchronized" "template" "this" "throw" "true" "try"
- "typedef" "typeid" "typeof" "ubyte" "ucent" "uint" "ulong" "union"
- "unittest" "ushort" "version" "void" "volatile" "wchar" "while" "with")
- (f90-mode .
- ;; from f90.el
- ;; ".AND." ".GE." ".GT." ".LT." ".LE." ".NE." ".OR." ".TRUE." ".FALSE."
- ,(company-keywords-upper-lower
- "abs" "abstract" "achar" "acos" "adjustl" "adjustr" "aimag" "aint"
- "align" "all" "all_prefix" "all_scatter" "all_suffix" "allocatable"
- "allocate" "allocated" "and" "anint" "any" "any_prefix" "any_scatter"
- "any_suffix" "asin" "assign" "assignment" "associate" "associated"
- "asynchronous" "atan" "atan2" "backspace" "bind" "bit_size" "block"
- "btest" "c_alert" "c_associated" "c_backspace" "c_bool"
- "c_carriage_return" "c_char" "c_double" "c_double_complex" "c_f_pointer"
- "c_f_procpointer" "c_float" "c_float_complex" "c_form_feed" "c_funloc"
- "c_funptr" "c_horizontal_tab" "c_int" "c_int16_t" "c_int32_t" "c_int64_t"
- "c_int8_t" "c_int_fast16_t" "c_int_fast32_t" "c_int_fast64_t"
- "c_int_fast8_t" "c_int_least16_t" "c_int_least32_t" "c_int_least64_t"
- "c_int_least8_t" "c_intmax_t" "c_intptr_t" "c_loc" "c_long"
- "c_long_double" "c_long_double_complex" "c_long_long" "c_new_line"
- "c_null_char" "c_null_funptr" "c_null_ptr" "c_ptr" "c_short"
- "c_signed_char" "c_size_t" "c_vertical_tab" "call" "case" "ceiling"
- "char" "character" "character_storage_size" "class" "close" "cmplx"
- "command_argument_count" "common" "complex" "conjg" "contains" "continue"
- "copy_prefix" "copy_scatter" "copy_suffix" "cos" "cosh" "count"
- "count_prefix" "count_scatter" "count_suffix" "cpu_time" "cshift"
- "cycle" "cyclic" "data" "date_and_time" "dble" "deallocate" "deferred"
- "digits" "dim" "dimension" "distribute" "do" "dot_product" "double"
- "dprod" "dynamic" "elemental" "else" "elseif" "elsewhere" "end" "enddo"
- "endfile" "endif" "entry" "enum" "enumerator" "eoshift" "epsilon" "eq"
- "equivalence" "eqv" "error_unit" "exit" "exp" "exponent" "extends"
- "extends_type_of" "external" "extrinsic" "false" "file_storage_size"
- "final" "floor" "flush" "forall" "format" "fraction" "function" "ge"
- "generic" "get_command" "get_command_argument" "get_environment_variable"
- "goto" "grade_down" "grade_up" "gt" "hpf_alignment" "hpf_distribution"
- "hpf_template" "huge" "iachar" "iall" "iall_prefix" "iall_scatter"
- "iall_suffix" "iand" "iany" "iany_prefix" "iany_scatter" "iany_suffix"
- "ibclr" "ibits" "ibset" "ichar" "ieee_arithmetic" "ieee_exceptions"
- "ieee_features" "ieee_get_underflow_mode" "ieee_set_underflow_mode"
- "ieee_support_underflow_control" "ieor" "if" "ilen" "implicit"
- "import" "include" "independent" "index" "inherit" "input_unit"
- "inquire" "int" "integer" "intent" "interface" "intrinsic" "ior"
- "iostat_end" "iostat_eor" "iparity" "iparity_prefix" "iparity_scatter"
- "iparity_suffix" "ishft" "ishftc" "iso_c_binding" "iso_fortran_env"
- "kind" "lbound" "le" "leadz" "len" "len_trim" "lge" "lgt" "lle" "llt"
- "log" "log10" "logical" "lt" "matmul" "max" "maxexponent" "maxloc"
- "maxval" "maxval_prefix" "maxval_scatter" "maxval_suffix" "merge"
- "min" "minexponent" "minloc" "minval" "minval_prefix" "minval_scatter"
- "minval_suffix" "mod" "module" "modulo" "move_alloc" "mvbits" "namelist"
- "ne" "nearest" "neqv" "new" "new_line" "nint" "non_intrinsic"
- "non_overridable" "none" "nopass" "not" "null" "nullify"
- "number_of_processors" "numeric_storage_size" "only" "onto" "open"
- "operator" "optional" "or" "output_unit" "pack" "parameter" "parity"
- "parity_prefix" "parity_scatter" "parity_suffix" "pass" "pause"
- "pointer" "popcnt" "poppar" "precision" "present" "print" "private"
- "procedure" "processors" "processors_shape" "product" "product_prefix"
- "product_scatter" "product_suffix" "program" "protected" "public"
- "pure" "radix" "random_number" "random_seed" "range" "read" "real"
- "realign" "recursive" "redistribute" "repeat" "reshape" "result"
- "return" "rewind" "rrspacing" "same_type_as" "save" "scale" "scan"
- "select" "selected_char_kind" "selected_int_kind" "selected_real_kind"
- "sequence" "set_exponent" "shape" "sign" "sin" "sinh" "size" "spacing"
- "spread" "sqrt" "stop" "subroutine" "sum" "sum_prefix" "sum_scatter"
- "sum_suffix" "system_clock" "tan" "tanh" "target" "template" "then"
- "tiny" "transfer" "transpose" "trim" "true" "type" "ubound" "unpack"
- "use" "value" "verify" "volatile" "wait" "where" "while" "with" "write"))
- (go-mode
- ;; 1. Keywords ref: https://golang.org/ref/spec#Keywords
- ;; 2. Builtin functions and types ref: https://golang.org/pkg/builtin/
- "append" "bool" "break" "byte" "cap" "case" "chan" "close" "complex" "complex128"
- "complex64" "const" "continue" "copy" "default" "defer" "delete" "else" "error"
- "fallthrough" "false" "float32" "float64" "for" "func" "go" "goto" "if" "imag"
- "import" "int" "int16" "int32" "int64" "int8" "interface" "len" "make"
- "map" "new" "nil" "package" "panic" "print" "println" "range" "real" "recover"
- "return" "rune" "select" "string" "struct" "switch" "true" "type" "uint" "uint16"
- "uint32" "uint64" "uint8" "uintptr" "var")
- (java-mode
- "abstract" "assert" "boolean" "break" "byte" "case" "catch" "char" "class"
- "continue" "default" "do" "double" "else" "enum" "extends" "final"
- "finally" "float" "for" "if" "implements" "import" "instanceof" "int"
- "interface" "long" "native" "new" "package" "private" "protected" "public"
- "return" "short" "static" "strictfp" "super" "switch" "synchronized"
- "this" "throw" "throws" "transient" "try" "void" "volatile" "while")
- (javascript-mode
- ;; https://tc39.github.io/ecma262/ + async, static and undefined
- "async" "await" "break" "case" "catch" "class" "const" "continue"
- "debugger" "default" "delete" "do" "else" "enum" "export" "extends" "false"
- "finally" "for" "function" "if" "import" "in" "instanceof" "let" "new"
- "null" "return" "static" "super" "switch" "this" "throw" "true" "try"
- "typeof" "undefined" "var" "void" "while" "with" "yield")
- (kotlin-mode
- "abstract" "annotation" "as" "break" "by" "catch" "class" "companion"
- "const" "constructor" "continue" "data" "do" "else" "enum" "false" "final"
- "finally" "for" "fun" "if" "import" "in" "init" "inner" "interface"
- "internal" "is" "lateinit" "nested" "null" "object" "open" "out" "override"
- "package" "private" "protected" "public" "return" "super" "this" "throw"
- "trait" "true" "try" "typealias" "val" "var" "when" "while")
- (objc-mode
- "@catch" "@class" "@encode" "@end" "@finally" "@implementation"
- "@interface" "@private" "@protected" "@protocol" "@public"
- "@selector" "@synchronized" "@throw" "@try" "alloc" "autorelease"
- "bycopy" "byref" "in" "inout" "oneway" "out" "release" "retain")
- (perl-mode
- ;; from cperl.el
- "AUTOLOAD" "BEGIN" "CHECK" "CORE" "DESTROY" "END" "INIT" "__END__"
- "__FILE__" "__LINE__" "abs" "accept" "alarm" "and" "atan2" "bind"
- "binmode" "bless" "caller" "chdir" "chmod" "chomp" "chop" "chown" "chr"
- "chroot" "close" "closedir" "cmp" "connect" "continue" "cos"
- "crypt" "dbmclose" "dbmopen" "defined" "delete" "die" "do" "dump" "each"
- "else" "elsif" "endgrent" "endhostent" "endnetent" "endprotoent"
- "endpwent" "endservent" "eof" "eq" "eval" "exec" "exists" "exit" "exp"
- "fcntl" "fileno" "flock" "for" "foreach" "fork" "format" "formline"
- "ge" "getc" "getgrent" "getgrgid" "getgrnam" "gethostbyaddr"
- "gethostbyname" "gethostent" "getlogin" "getnetbyaddr" "getnetbyname"
- "getnetent" "getpeername" "getpgrp" "getppid" "getpriority"
- "getprotobyname" "getprotobynumber" "getprotoent" "getpwent" "getpwnam"
- "getpwuid" "getservbyname" "getservbyport" "getservent" "getsockname"
- "getsockopt" "glob" "gmtime" "goto" "grep" "gt" "hex" "if" "index" "int"
- "ioctl" "join" "keys" "kill" "last" "lc" "lcfirst" "le" "length"
- "link" "listen" "local" "localtime" "lock" "log" "lstat" "lt" "map"
- "mkdir" "msgctl" "msgget" "msgrcv" "msgsnd" "my" "ne" "next" "no"
- "not" "oct" "open" "opendir" "or" "ord" "our" "pack" "package" "pipe"
- "pop" "pos" "print" "printf" "push" "q" "qq" "quotemeta" "qw" "qx"
- "rand" "read" "readdir" "readline" "readlink" "readpipe" "recv" "redo"
- "ref" "rename" "require" "reset" "return" "reverse" "rewinddir" "rindex"
- "rmdir" "scalar" "seek" "seekdir" "select" "semctl" "semget" "semop"
- "send" "setgrent" "sethostent" "setnetent" "setpgrp" "setpriority"
- "setprotoent" "setpwent" "setservent" "setsockopt" "shift" "shmctl"
- "shmget" "shmread" "shmwrite" "shutdown" "sin" "sleep" "socket"
- "socketpair" "sort" "splice" "split" "sprintf" "sqrt" "srand" "stat"
- "study" "sub" "substr" "symlink" "syscall" "sysopen" "sysread" "system"
- "syswrite" "tell" "telldir" "tie" "time" "times" "tr" "truncate" "uc"
- "ucfirst" "umask" "undef" "unless" "unlink" "unpack" "unshift" "untie"
- "until" "use" "utime" "values" "vec" "wait" "waitpid"
- "wantarray" "warn" "while" "write" "x" "xor" "y")
- (php-mode
- "__CLASS__" "__DIR__" "__FILE__" "__FUNCTION__" "__LINE__" "__METHOD__"
- "__NAMESPACE__" "_once" "abstract" "and" "array" "as" "break" "case"
- "catch" "cfunction" "class" "clone" "const" "continue" "declare"
- "default" "die" "do" "echo" "else" "elseif" "empty" "enddeclare"
- "endfor" "endforeach" "endif" "endswitch" "endwhile" "eval" "exception"
- "exit" "extends" "final" "for" "foreach" "function" "global"
- "goto" "if" "implements" "include" "instanceof" "interface"
- "isset" "list" "namespace" "new" "old_function" "or" "php_user_filter"
- "print" "private" "protected" "public" "require" "require_once" "return"
- "static" "switch" "this" "throw" "try" "unset" "use" "var" "while" "xor")
- (python-mode
- ;; https://docs.python.org/3/reference/lexical_analysis.html#keywords
- "False" "None" "True" "and" "as" "assert" "break" "class" "continue" "def"
- "del" "elif" "else" "except" "exec" "finally" "for" "from" "global" "if"
- "import" "in" "is" "lambda" "nonlocal" "not" "or" "pass" "print" "raise"
- "return" "try" "while" "with" "yield")
- (ruby-mode
- "BEGIN" "END" "alias" "and" "begin" "break" "case" "class" "def" "defined?"
- "do" "else" "elsif" "end" "ensure" "false" "for" "if" "in" "module"
- "next" "nil" "not" "or" "redo" "rescue" "retry" "return" "self" "super"
- "then" "true" "undef" "unless" "until" "when" "while" "yield")
- ;; From https://doc.rust-lang.org/grammar.html#keywords
- ;; but excluding unused reserved words: https://www.reddit.com/r/rust/comments/34fq0k/is_there_a_good_list_of_rusts_keywords/cqucvnj
- (rust-mode
- "Self"
- "as" "box" "break" "const" "continue" "crate" "else" "enum" "extern"
- "false" "fn" "for" "if" "impl" "in" "let" "loop" "macro" "match" "mod"
- "move" "mut" "pub" "ref" "return" "self" "static" "struct" "super"
- "trait" "true" "type" "unsafe" "use" "where" "while")
- (scala-mode
- "abstract" "case" "catch" "class" "def" "do" "else" "extends" "false"
- "final" "finally" "for" "forSome" "if" "implicit" "import" "lazy" "match"
- "new" "null" "object" "override" "package" "private" "protected"
- "return" "sealed" "super" "this" "throw" "trait" "true" "try" "type" "val"
- "var" "while" "with" "yield")
- (swift-mode
- "Protocol" "Self" "Type" "and" "as" "assignment" "associatedtype"
- "associativity" "available" "break" "case" "catch" "class" "column" "continue"
- "convenience" "default" "defer" "deinit" "didSet" "do" "dynamic" "dynamicType"
- "else" "elseif" "endif" "enum" "extension" "fallthrough" "false" "file"
- "fileprivate" "final" "for" "func" "function" "get" "guard" "higherThan" "if"
- "import" "in" "indirect" "infix" "init" "inout" "internal" "is" "lazy" "left"
- "let" "line" "lowerThan" "mutating" "nil" "none" "nonmutating" "open"
- "operator" "optional" "override" "postfix" "precedence" "precedencegroup"
- "prefix" "private" "protocol" "public" "repeat" "required" "rethrows" "return"
- "right" "selector" "self" "set" "static" "struct" "subscript" "super" "switch"
- "throw" "throws" "true" "try" "typealias" "unowned" "var" "weak" "where"
- "while" "willSet")
- (julia-mode
- "abstract" "break" "case" "catch" "const" "continue" "do" "else" "elseif"
- "end" "eval" "export" "false" "finally" "for" "function" "global" "if"
- "ifelse" "immutable" "import" "importall" "in" "let" "macro" "module"
- "otherwise" "quote" "return" "switch" "throw" "true" "try" "type"
- "typealias" "using" "while"
- )
- ;; From https://github.com/apache/thrift/blob/master/contrib/thrift.el
- (thrift-mode
- "binary" "bool" "byte" "const" "double" "enum" "exception" "extends"
- "i16" "i32" "i64" "include" "list" "map" "oneway" "optional" "required"
- "service" "set" "string" "struct" "throws" "typedef" "void"
- )
- ;; aliases
- (js2-mode . javascript-mode)
- (js2-jsx-mode . javascript-mode)
- (espresso-mode . javascript-mode)
- (js-mode . javascript-mode)
- (js-jsx-mode . javascript-mode)
- (rjsx-mode . javascript-mode)
- (cperl-mode . perl-mode)
- (jde-mode . java-mode)
- (ess-julia-mode . julia-mode)
- (enh-ruby-mode . ruby-mode))
- "Alist mapping major-modes to sorted keywords for `company-keywords'.")
-
-;;;###autoload
-(defun company-keywords (command &optional arg &rest ignored)
- "`company-mode' backend for programming language keywords."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-keywords))
- (prefix (and (assq major-mode company-keywords-alist)
- (not (company-in-string-or-comment))
- (or (company-grab-symbol) 'stop)))
- (candidates
- (let ((completion-ignore-case nil)
- (symbols (cdr (assq major-mode company-keywords-alist))))
- (all-completions arg (if (consp symbols)
- symbols
- (cdr (assq symbols company-keywords-alist))))))
- (sorted t)))
-
-(provide 'company-keywords)
-;;; company-keywords.el ends here
diff --git a/elpa/company-20181105.2312/company-keywords.elc b/elpa/company-20181105.2312/company-keywords.elc
deleted file mode 100644
index 296a78a..0000000
--- a/elpa/company-20181105.2312/company-keywords.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-nxml.el b/elpa/company-20181105.2312/company-nxml.el
deleted file mode 100644
index 36ff1ce..0000000
--- a/elpa/company-20181105.2312/company-nxml.el
+++ /dev/null
@@ -1,143 +0,0 @@
-;;; company-nxml.el --- company-mode completion backend for nxml-mode
-
-;; Copyright (C) 2009-2011, 2013, 2018 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-;; In Emacs >= 26, company-capf is used instead.
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defvar rng-open-elements)
-(defvar rng-validate-mode)
-(defvar rng-in-attribute-regex)
-(defvar rng-in-attribute-value-regex)
-(declare-function rng-set-state-after "rng-nxml")
-(declare-function rng-match-possible-start-tag-names "rng-match")
-(declare-function rng-adjust-state-for-attribute "rng-nxml")
-(declare-function rng-match-possible-attribute-names "rng-match")
-(declare-function rng-adjust-state-for-attribute-value "rng-nxml")
-(declare-function rng-match-possible-value-strings "rng-match")
-
-(defconst company-nxml-token-regexp
- "\\(?:[_[:alpha:]][-._[:alnum:]]*\\_>\\)")
-
-(defvar company-nxml-in-attribute-value-regexp
- (replace-regexp-in-string "w" company-nxml-token-regexp
- "<w\\(?::w\\)?\
-\\(?:[ \t\r\n]+w\\(?::w\\)?[ \t\r\n]*=\
-\[ \t\r\n]*\\(?:\"[^\"]*\"\\|'[^']*'\\)\\)*\
-\[ \t\r\n]+\\(w\\(:w\\)?\\)[ \t\r\n]*=[ \t\r\n]*\
-\\(\"\\([^\"]*\\>\\)\\|'\\([^']*\\>\\)\\)\\="
- t t))
-
-(defvar company-nxml-in-tag-name-regexp
- (replace-regexp-in-string "w" company-nxml-token-regexp
- "<\\(/?w\\(?::w?\\)?\\)?\\=" t t))
-
-(defun company-nxml-all-completions (prefix alist)
- (let ((candidates (mapcar 'cdr alist))
- (case-fold-search nil)
- filtered)
- (when (cdar rng-open-elements)
- (push (concat "/" (cdar rng-open-elements)) candidates))
- (setq candidates (sort (all-completions prefix candidates) 'string<))
- (while candidates
- (unless (equal (car candidates) (car filtered))
- (push (car candidates) filtered))
- (pop candidates))
- (nreverse filtered)))
-
-(defmacro company-nxml-prepared (&rest body)
- (declare (indent 0) (debug t))
- `(let ((lt-pos (save-excursion (search-backward "<" nil t)))
- xmltok-dtd)
- (when (and lt-pos (= (rng-set-state-after lt-pos) lt-pos))
- ,@body)))
-
-(defun company-nxml-tag (command &optional arg &rest ignored)
- (cl-case command
- (prefix (and (derived-mode-p 'nxml-mode)
- rng-validate-mode
- (company-grab company-nxml-in-tag-name-regexp 1)))
- (candidates (company-nxml-prepared
- (company-nxml-all-completions
- arg (rng-match-possible-start-tag-names))))
- (sorted t)))
-
-(defun company-nxml-attribute (command &optional arg &rest ignored)
- (cl-case command
- (prefix (and (derived-mode-p 'nxml-mode)
- rng-validate-mode
- (memq (char-after) '(?\ ?\t ?\n)) ;; outside word
- (company-grab rng-in-attribute-regex 1)))
- (candidates (company-nxml-prepared
- (and (rng-adjust-state-for-attribute
- lt-pos (- (point) (length arg)))
- (company-nxml-all-completions
- arg (rng-match-possible-attribute-names)))))
- (sorted t)))
-
-(defun company-nxml-attribute-value (command &optional arg &rest ignored)
- (cl-case command
- (prefix (and (derived-mode-p 'nxml-mode)
- rng-validate-mode
- (and (memq (char-after) '(?' ?\" ?\ ?\t ?\n)) ;; outside word
- (looking-back company-nxml-in-attribute-value-regexp nil)
- (or (match-string-no-properties 4)
- (match-string-no-properties 5)
- ""))))
- (candidates (company-nxml-prepared
- (let (attr-start attr-end colon)
- (and (looking-back rng-in-attribute-value-regex lt-pos)
- (setq colon (match-beginning 2)
- attr-start (match-beginning 1)
- attr-end (match-end 1))
- (rng-adjust-state-for-attribute lt-pos attr-start)
- (rng-adjust-state-for-attribute-value
- attr-start colon attr-end)
- (all-completions
- arg (rng-match-possible-value-strings))))))))
-
-;;;###autoload
-(defun company-nxml (command &optional arg &rest ignored)
- "`company-mode' completion backend for `nxml-mode'."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-nxml))
- (prefix (or (company-nxml-tag 'prefix)
- (company-nxml-attribute 'prefix)
- (company-nxml-attribute-value 'prefix)))
- (candidates (cond
- ((company-nxml-tag 'prefix)
- (company-nxml-tag 'candidates arg))
- ((company-nxml-attribute 'prefix)
- (company-nxml-attribute 'candidates arg))
- ((company-nxml-attribute-value 'prefix)
- (sort (company-nxml-attribute-value 'candidates arg)
- 'string<))))
- (sorted t)))
-
-(provide 'company-nxml)
-;;; company-nxml.el ends here
diff --git a/elpa/company-20181105.2312/company-nxml.elc b/elpa/company-20181105.2312/company-nxml.elc
deleted file mode 100644
index f4c0b44..0000000
--- a/elpa/company-20181105.2312/company-nxml.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-oddmuse.el b/elpa/company-20181105.2312/company-oddmuse.el
deleted file mode 100644
index 1b68950..0000000
--- a/elpa/company-20181105.2312/company-oddmuse.el
+++ /dev/null
@@ -1,57 +0,0 @@
-;;; company-oddmuse.el --- company-mode completion backend for oddmuse-mode
-
-;; Copyright (C) 2009-2011, 2014 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-(eval-when-compile (require 'yaoddmuse nil t))
-(eval-when-compile (require 'oddmuse nil t))
-
-(defvar company-oddmuse-link-regexp
- "\\(\\<[A-Z][[:alnum:]]*\\>\\)\\|\\[\\[\\([[:alnum:]]+\\>\\|\\)")
-
-(defun company-oddmuse-get-page-table ()
- (cl-case major-mode
- (yaoddmuse-mode (with-no-warnings
- (yaoddmuse-get-pagename-table yaoddmuse-wikiname)))
- (oddmuse-mode (with-no-warnings
- (oddmuse-make-completion-table oddmuse-wiki)))))
-
-;;;###autoload
-(defun company-oddmuse (command &optional arg &rest ignored)
- "`company-mode' completion backend for `oddmuse-mode'."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-oddmuse))
- (prefix (let ((case-fold-search nil))
- (and (memq major-mode '(oddmuse-mode yaoddmuse-mode))
- (looking-back company-oddmuse-link-regexp (point-at-bol))
- (or (match-string 1)
- (match-string 2)))))
- (candidates (all-completions arg (company-oddmuse-get-page-table)))))
-
-(provide 'company-oddmuse)
-;;; company-oddmuse.el ends here
diff --git a/elpa/company-20181105.2312/company-oddmuse.elc b/elpa/company-20181105.2312/company-oddmuse.elc
deleted file mode 100644
index 83cb17c..0000000
--- a/elpa/company-20181105.2312/company-oddmuse.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-pkg.el b/elpa/company-20181105.2312/company-pkg.el
deleted file mode 100644
index 28c6ff4..0000000
--- a/elpa/company-20181105.2312/company-pkg.el
+++ /dev/null
@@ -1,12 +0,0 @@
-(define-package "company" "20181105.2312" "Modular text completion framework"
- '((emacs "24.3"))
- :keywords
- '("abbrev" "convenience" "matching")
- :authors
- '(("Nikolaj Schumacher"))
- :maintainer
- '("Dmitry Gutov" . "dgutov@yandex.ru")
- :url "http://company-mode.github.io/")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/elpa/company-20181105.2312/company-semantic.el b/elpa/company-20181105.2312/company-semantic.el
deleted file mode 100644
index 2f6fe2a..0000000
--- a/elpa/company-20181105.2312/company-semantic.el
+++ /dev/null
@@ -1,168 +0,0 @@
-;;; company-semantic.el --- company-mode completion backend using Semantic
-
-;; Copyright (C) 2009-2011, 2013-2016 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'company-template)
-(require 'cl-lib)
-
-(defvar semantic-idle-summary-function)
-(declare-function semantic-documentation-for-tag "semantic/doc" )
-(declare-function semantic-analyze-current-context "semantic/analyze")
-(declare-function semantic-analyze-possible-completions "semantic/complete")
-(declare-function semantic-analyze-find-tags-by-prefix "semantic/analyze/fcn")
-(declare-function semantic-tag-class "semantic/tag")
-(declare-function semantic-tag-name "semantic/tag")
-(declare-function semantic-tag-start "semantic/tag")
-(declare-function semantic-tag-buffer "semantic/tag")
-(declare-function semantic-active-p "semantic")
-(declare-function semantic-format-tag-prototype "semantic/format")
-
-(defgroup company-semantic nil
- "Completion backend using Semantic."
- :group 'company)
-
-(defcustom company-semantic-metadata-function 'company-semantic-summary-and-doc
- "The function turning a semantic tag into doc information."
- :type 'function)
-
-(defcustom company-semantic-begin-after-member-access t
- "When non-nil, automatic completion will start whenever the current
-symbol is preceded by \".\", \"->\" or \"::\", ignoring
-`company-minimum-prefix-length'.
-
-If `company-begin-commands' is a list, it should include `c-electric-lt-gt'
-and `c-electric-colon', for automatic completion right after \">\" and
-\":\"."
- :type 'boolean)
-
-(defcustom company-semantic-insert-arguments t
- "When non-nil, insert function arguments as a template after completion."
- :type 'boolean
- :package-version '(company . "0.9.0"))
-
-(defvar company-semantic-modes '(c-mode c++-mode jde-mode java-mode))
-
-(defvar-local company-semantic--current-tags nil
- "Tags for the current context.")
-
-(defun company-semantic-documentation-for-tag (tag)
- (when (semantic-tag-buffer tag)
- ;; When TAG's buffer is unknown, the function below raises an error.
- (semantic-documentation-for-tag tag)))
-
-(defun company-semantic-doc-or-summary (tag)
- (or (company-semantic-documentation-for-tag tag)
- (and (require 'semantic-idle nil t)
- (require 'semantic/idle nil t)
- (funcall semantic-idle-summary-function tag nil t))))
-
-(defun company-semantic-summary-and-doc (tag)
- (let ((doc (company-semantic-documentation-for-tag tag))
- (summary (funcall semantic-idle-summary-function tag nil t)))
- (and (stringp doc)
- (string-match "\n*\\(.*\\)$" doc)
- (setq doc (match-string 1 doc)))
- (concat summary
- (when doc
- (if (< (+ (length doc) (length summary) 4) (window-width))
- " -- "
- "\n"))
- doc)))
-
-(defun company-semantic-doc-buffer (tag)
- (let ((doc (company-semantic-documentation-for-tag tag)))
- (when doc
- (company-doc-buffer
- (concat (funcall semantic-idle-summary-function tag nil t)
- "\n"
- doc)))))
-
-(defsubst company-semantic-completions (prefix)
- (ignore-errors
- (let ((completion-ignore-case nil)
- (context (semantic-analyze-current-context)))
- (setq company-semantic--current-tags
- (semantic-analyze-possible-completions context 'no-unique))
- (all-completions prefix company-semantic--current-tags))))
-
-(defun company-semantic-completions-raw (prefix)
- (setq company-semantic--current-tags nil)
- (dolist (tag (semantic-analyze-find-tags-by-prefix prefix))
- (unless (eq (semantic-tag-class tag) 'include)
- (push tag company-semantic--current-tags)))
- (delete "" (mapcar 'semantic-tag-name company-semantic--current-tags)))
-
-(defun company-semantic-annotation (argument tags)
- (let* ((tag (assq argument tags))
- (kind (when tag (elt tag 1))))
- (cl-case kind
- (function (let* ((prototype (semantic-format-tag-prototype tag nil nil))
- (par-pos (string-match "(" prototype)))
- (when par-pos (substring prototype par-pos)))))))
-
-(defun company-semantic--prefix ()
- (if company-semantic-begin-after-member-access
- (company-grab-symbol-cons "\\.\\|->\\|::" 2)
- (company-grab-symbol)))
-
-;;;###autoload
-(defun company-semantic (command &optional arg &rest ignored)
- "`company-mode' completion backend using CEDET Semantic."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-semantic))
- (prefix (and (featurep 'semantic)
- (semantic-active-p)
- (memq major-mode company-semantic-modes)
- (not (company-in-string-or-comment))
- (or (company-semantic--prefix) 'stop)))
- (candidates (if (and (equal arg "")
- (not (looking-back "->\\|\\.\\|::" (- (point) 2))))
- (company-semantic-completions-raw arg)
- (company-semantic-completions arg)))
- (meta (funcall company-semantic-metadata-function
- (assoc arg company-semantic--current-tags)))
- (annotation (company-semantic-annotation arg
- company-semantic--current-tags))
- (doc-buffer (company-semantic-doc-buffer
- (assoc arg company-semantic--current-tags)))
- ;; Because "" is an empty context and doesn't return local variables.
- (no-cache (equal arg ""))
- (duplicates t)
- (location (let ((tag (assoc arg company-semantic--current-tags)))
- (when (buffer-live-p (semantic-tag-buffer tag))
- (cons (semantic-tag-buffer tag)
- (semantic-tag-start tag)))))
- (post-completion (let ((anno (company-semantic-annotation
- arg company-semantic--current-tags)))
- (when (and company-semantic-insert-arguments anno)
- (insert anno)
- (company-template-c-like-templatify (concat arg anno)))
- ))))
-
-(provide 'company-semantic)
-;;; company-semantic.el ends here
diff --git a/elpa/company-20181105.2312/company-semantic.elc b/elpa/company-20181105.2312/company-semantic.elc
deleted file mode 100644
index f63f6eb..0000000
--- a/elpa/company-20181105.2312/company-semantic.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-template.el b/elpa/company-20181105.2312/company-template.el
deleted file mode 100644
index 930e638..0000000
--- a/elpa/company-20181105.2312/company-template.el
+++ /dev/null
@@ -1,260 +0,0 @@
-;;; company-template.el --- utility library for template expansion
-
-;; Copyright (C) 2009, 2010, 2014-2017 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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/>.
-
-;;; Code:
-
-(require 'cl-lib)
-
-(defface company-template-field
- '((((background dark)) (:background "yellow" :foreground "black"))
- (((background light)) (:background "orange" :foreground "black")))
- "Face used for editable text in template fields."
- :group 'company)
-
-(defvar company-template-nav-map
- (let ((keymap (make-sparse-keymap)))
- (define-key keymap [tab] 'company-template-forward-field)
- (define-key keymap (kbd "TAB") 'company-template-forward-field)
- keymap))
-
-(defvar company-template-field-map
- (let ((keymap (make-sparse-keymap)))
- (set-keymap-parent keymap company-template-nav-map)
- (define-key keymap (kbd "C-d") 'company-template-clear-field)
- keymap))
-
-(defvar-local company-template--buffer-templates nil)
-
-;; interactive ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun company-template-templates-at (pos)
- (let (os)
- (dolist (o (overlays-at pos))
- ;; FIXME: Always return the whole list of templates?
- ;; We remove templates not at point after every command.
- (when (memq o company-template--buffer-templates)
- (push o os)))
- os))
-
-(defun company-template-move-to-first (templ)
- (interactive)
- (goto-char (overlay-start templ))
- (company-template-forward-field))
-
-(defun company-template-forward-field ()
- (interactive)
- (let ((start (point))
- (next-field-start (company-template-find-next-field)))
- (push-mark)
- (goto-char next-field-start)
- (company-template-remove-field (company-template-field-at start))))
-
-(defun company-template-clear-field ()
- "Clear the field at point."
- (interactive)
- (let ((ovl (company-template-field-at (point))))
- (when ovl
- (company-template-remove-field ovl t)
- (let ((after-clear-fn
- (overlay-get ovl 'company-template-after-clear)))
- (when (functionp after-clear-fn)
- (funcall after-clear-fn))))))
-
-(defun company-template--after-clear-c-like-field ()
- "Function that can be called after deleting a field of a c-like template.
-For c-like templates it is set as `after-post-fn' property on fields in
-`company-template-add-field'. If there is a next field, delete everything
-from point to it. If there is no field after point, remove preceding comma
-if present."
- (let* ((pos (point))
- (next-field-start (company-template-find-next-field))
- (last-field-p (not (company-template-field-at next-field-start))))
- (cond ((and (not last-field-p)
- (< pos next-field-start)
- (string-match "^[ ]*,+[ ]*$" (buffer-substring-no-properties
- pos next-field-start)))
- (delete-region pos next-field-start))
- ((and last-field-p
- (looking-back ",+[ ]*" (line-beginning-position)))
- (delete-region (match-beginning 0) pos)))))
-
-(defun company-template-find-next-field ()
- (let* ((start (point))
- (templates (company-template-templates-at start))
- (minimum (apply 'max (mapcar 'overlay-end templates)))
- (fields (cl-loop for templ in templates
- append (overlay-get templ 'company-template-fields))))
- (dolist (pos (mapcar 'overlay-start fields) minimum)
- (and pos
- (> pos start)
- (< pos minimum)
- (setq minimum pos)))))
-
-(defun company-template-field-at (&optional point)
- (cl-loop for ovl in (overlays-at (or point (point)))
- when (overlay-get ovl 'company-template-parent)
- return ovl))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun company-template-declare-template (beg end)
- (let ((ov (make-overlay beg end)))
- ;; (overlay-put ov 'face 'highlight)
- (overlay-put ov 'keymap company-template-nav-map)
- (overlay-put ov 'priority 101)
- (overlay-put ov 'evaporate t)
- (push ov company-template--buffer-templates)
- (add-hook 'post-command-hook 'company-template-post-command nil t)
- ov))
-
-(defun company-template-remove-template (templ)
- (mapc 'company-template-remove-field
- (overlay-get templ 'company-template-fields))
- (setq company-template--buffer-templates
- (delq templ company-template--buffer-templates))
- (delete-overlay templ))
-
-(defun company-template-add-field (templ beg end &optional display after-clear-fn)
- "Add new field to template TEMPL spanning from BEG to END.
-When DISPLAY is non-nil, set the respective property on the overlay.
-Leave point at the end of the field.
-AFTER-CLEAR-FN is a function that can be used to apply custom behavior
-after deleting a field in `company-template-remove-field'."
- (cl-assert templ)
- (when (> end (overlay-end templ))
- (move-overlay templ (overlay-start templ) end))
- (let ((ov (make-overlay beg end))
- (siblings (overlay-get templ 'company-template-fields)))
- ;; (overlay-put ov 'evaporate t)
- (overlay-put ov 'intangible t)
- (overlay-put ov 'face 'company-template-field)
- (when display
- (overlay-put ov 'display display))
- (overlay-put ov 'company-template-parent templ)
- (overlay-put ov 'insert-in-front-hooks '(company-template-insert-hook))
- (when after-clear-fn
- (overlay-put ov 'company-template-after-clear after-clear-fn))
- (overlay-put ov 'keymap company-template-field-map)
- (overlay-put ov 'priority 101)
- (push ov siblings)
- (overlay-put templ 'company-template-fields siblings)))
-
-(defun company-template-remove-field (ovl &optional clear)
- (when (overlayp ovl)
- (when (overlay-buffer ovl)
- (when clear
- (delete-region (overlay-start ovl) (overlay-end ovl)))
- (delete-overlay ovl))
- (let* ((templ (overlay-get ovl 'company-template-parent))
- (siblings (overlay-get templ 'company-template-fields)))
- (setq siblings (delq ovl siblings))
- (overlay-put templ 'company-template-fields siblings))))
-
-(defun company-template-clean-up (&optional pos)
- "Clean up all templates that don't contain POS."
- (let ((local-ovs (overlays-at (or pos (point)))))
- (dolist (templ company-template--buffer-templates)
- (unless (memq templ local-ovs)
- (company-template-remove-template templ)))))
-
-;; hooks ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun company-template-insert-hook (ovl after-p &rest _ignore)
- "Called when a snippet input prompt is modified."
- (unless after-p
- (company-template-remove-field ovl t)))
-
-(defun company-template-post-command ()
- (company-template-clean-up)
- (unless company-template--buffer-templates
- (remove-hook 'post-command-hook 'company-template-post-command t)))
-
-;; common ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun company-template-c-like-templatify (call)
- (let* ((end (point-marker))
- (beg (- (point) (length call)))
- (templ (company-template-declare-template beg end))
- paren-open paren-close)
- (with-syntax-table (make-syntax-table (syntax-table))
- (modify-syntax-entry ?< "(")
- (modify-syntax-entry ?> ")")
- (when (search-backward ")" beg t)
- (setq paren-close (point-marker))
- (forward-char 1)
- (delete-region (point) end)
- (backward-sexp)
- (forward-char 1)
- (setq paren-open (point-marker)))
- (when (search-backward ">" beg t)
- (let ((angle-close (point-marker)))
- (forward-char 1)
- (backward-sexp)
- (forward-char)
- (company-template--c-like-args templ angle-close)))
- (when (looking-back "\\((\\*)\\)(" (line-beginning-position))
- (delete-region (match-beginning 1) (match-end 1)))
- (when paren-open
- (goto-char paren-open)
- (company-template--c-like-args templ paren-close)))
- (if (overlay-get templ 'company-template-fields)
- (company-template-move-to-first templ)
- (company-template-remove-template templ)
- (goto-char end))))
-
-(defun company-template--c-like-args (templ end)
- (let ((last-pos (point)))
- (while (re-search-forward "\\([^,]+\\),?" end 'move)
- (when (zerop (car (parse-partial-sexp last-pos (point))))
- (company-template-add-field templ last-pos (match-end 1) nil
- #'company-template--after-clear-c-like-field)
- (skip-chars-forward " ")
- (setq last-pos (point))))))
-
-;; objc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun company-template-objc-templatify (selector)
- (let* ((end (point-marker))
- (beg (- (point) (length selector) 1))
- (templ (company-template-declare-template beg end))
- (cnt 0))
- (save-excursion
- (goto-char beg)
- (catch 'stop
- (while (search-forward ":" end t)
- (if (looking-at "\\(([^)]*)\\) ?")
- (company-template-add-field templ (point) (match-end 1))
- ;; Not sure which conditions this case manifests under, but
- ;; apparently it did before, when I wrote the first test for this
- ;; function. FIXME: Revisit it.
- (company-template-add-field templ (point)
- (progn
- (insert (format "arg%d" cnt))
- (point)))
- (when (< (point) end)
- (insert " "))
- (cl-incf cnt))
- (when (>= (point) end)
- (throw 'stop t)))))
- (company-template-move-to-first templ)))
-
-(provide 'company-template)
-;;; company-template.el ends here
diff --git a/elpa/company-20181105.2312/company-template.elc b/elpa/company-20181105.2312/company-template.elc
deleted file mode 100644
index 745b3e5..0000000
--- a/elpa/company-20181105.2312/company-template.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-tempo.el b/elpa/company-20181105.2312/company-tempo.el
deleted file mode 100644
index cba42c3..0000000
--- a/elpa/company-20181105.2312/company-tempo.el
+++ /dev/null
@@ -1,71 +0,0 @@
-;;; company-tempo.el --- company-mode completion backend for tempo
-
-;; Copyright (C) 2009-2011, 2015 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-(require 'tempo)
-
-(defgroup company-tempo nil
- "Tempo completion backend."
- :group 'company)
-
-(defcustom company-tempo-expand nil
- "Whether to expand a tempo tag after completion."
- :type '(choice (const :tag "Off" nil)
- (const :tag "On" t)))
-
-(defsubst company-tempo-lookup (match)
- (cdr (assoc match (tempo-build-collection))))
-
-(defun company-tempo-insert (match)
- "Replace MATCH with the expanded tempo template."
- (search-backward match)
- (goto-char (match-beginning 0))
- (replace-match "")
- (call-interactively (company-tempo-lookup match)))
-
-(defsubst company-tempo-meta (match)
- (let ((templ (company-tempo-lookup match))
- doc)
- (and templ
- (setq doc (documentation templ t))
- (car (split-string doc "\n" t)))))
-
-;;;###autoload
-(defun company-tempo (command &optional arg &rest ignored)
- "`company-mode' completion backend for tempo."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-tempo))
- (prefix (or (car (tempo-find-match-string tempo-match-finder)) ""))
- (candidates (all-completions arg (tempo-build-collection)))
- (meta (company-tempo-meta arg))
- (post-completion (when company-tempo-expand (company-tempo-insert arg)))
- (sorted t)))
-
-(provide 'company-tempo)
-;;; company-tempo.el ends here
diff --git a/elpa/company-20181105.2312/company-tempo.elc b/elpa/company-20181105.2312/company-tempo.elc
deleted file mode 100644
index f22857e..0000000
--- a/elpa/company-20181105.2312/company-tempo.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-tng.el b/elpa/company-20181105.2312/company-tng.el
deleted file mode 100644
index a1d7173..0000000
--- a/elpa/company-20181105.2312/company-tng.el
+++ /dev/null
@@ -1,174 +0,0 @@
-;;; company-tng.el --- company-mode configuration for single-button interaction
-
-;; Copyright (C) 2017 Free Software Foundation, Inc.
-
-;; Author: Nikita Leshenko
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-;; company-tng (Tab and Go) allows you to perform completion using just TAB.
-;; Pressing it will both select the next completion candidate in the list and
-;; insert it into the buffer (or make it look like it's inserted, in fact).
-;;
-;; It cycles the candidates like `yank-pop' or `dabbrev-expand' or Vim:
-;; Pressing TAB selects the first item in the completion menu and inserts it in
-;; the buffer. Pressing TAB again selects the second item and replaces the
-;; "inserted" item with the second one. This can continue as long as the user
-;; wishes to cycle through the menu. You can also press S-TAB to select the
-;; previous candidate, of course.
-;;
-;; The benefits are that you only have to use one shortcut key and there is no
-;; need to confirm the entry.
-;;
-;; Usage:
-;;
-;; To apply the default configuration for company-tng call
-;; `company-tng-configure-default' from your init script.
-;;
-;; You can also configure company-tng manually:
-;;
-;; Add `company-tng-frontend' to `company-frontends':
-;;
-;; (add-to-list 'company-frontends 'company-tng-frontend)
-;;
-;; We recommend to bind TAB to `company-select-next', S-TAB to
-;; `company-select-previous', and unbind RET and other now-unnecessary
-;; keys from `company-active-map':
-;;
-;; (define-key company-active-map (kbd "TAB") 'company-select-next)
-;; (define-key company-active-map (kbd "<backtab>") 'company-select-previous)
-;; (define-key company-active-map (kbd "RET") nil)
-;;
-;; Note that it's not necessary to rebind keys to use this frontend,
-;; you can use the arrow keys or M-n/M-p to select and insert
-;; candidates. You also need to decide which keys to unbind, depending
-;; on whether you want them to do the Company action or the default
-;; Emacs action (for example C-s or C-w).
-;;
-;; We recommend to disable `company-require-match' to allow free typing at any
-;; point.
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defvar-local company-tng--overlay nil)
-
-;;;###autoload
-(defun company-tng-frontend (command)
- "When the user changes the selection at least once, this
-frontend will display the candidate in the buffer as if it's
-already there and any key outside of `company-active-map' will
-confirm the selection and finish the completion."
- (cl-case command
- (show
- (let ((ov (make-overlay (point) (point))))
- (setq company-tng--overlay ov)
- (overlay-put ov 'priority 2))
- (advice-add 'company-select-next :before-until 'company-tng--allow-unselected)
- (advice-add 'company-fill-propertize :filter-args 'company-tng--adjust-tooltip-highlight))
- (update
- (let ((ov company-tng--overlay)
- (selected (nth company-selection company-candidates))
- (prefix (length company-prefix)))
- (move-overlay ov (- (point) prefix) (point))
- (overlay-put ov
- (if (= prefix 0) 'after-string 'display)
- (and company-selection-changed selected))))
- (hide
- (when company-tng--overlay
- (delete-overlay company-tng--overlay)
- (kill-local-variable 'company-tng--overlay))
- (advice-remove 'company-select-next 'company-tng--allow-unselected)
- (advice-remove 'company-fill-propertize 'company-tng--adjust-tooltip-highlight))
- (pre-command
- (when (and company-selection-changed
- (not (company--company-command-p (this-command-keys))))
- (company--unread-this-command-keys)
- (setq this-command 'company-complete-selection)
- (advice-add 'company-call-backend :before-until 'company-tng--supress-post-completion)))))
-
-;;;###autoload
-(defun company-tng-configure-default ()
- "Applies the default configuration to enable company-tng."
- (setq company-require-match nil)
- (setq company-frontends '(company-tng-frontend
- company-pseudo-tooltip-frontend
- company-echo-metadata-frontend))
- (let ((keymap company-active-map))
- (define-key keymap [return] nil)
- (define-key keymap (kbd "RET") nil)
- (define-key keymap [tab] 'company-select-next)
- (define-key keymap (kbd "TAB") 'company-select-next)
- (define-key keymap [backtab] 'company-select-previous)
- (define-key keymap (kbd "S-TAB") 'company-select-previous)))
-
-(defun company-tng--allow-unselected (&optional arg)
- "Advice `company-select-next' to allow for an 'unselected'
-state. Unselected means that no user interaction took place on the
-completion candidates and it's marked by setting
-`company-selection-changed' to nil. This advice will call the underlying
-`company-select-next' unless we need to transition to or from an unselected
-state.
-
-Possible state transitions:
-- (arg > 0) unselected -> first candidate selected
-- (arg < 0) first candidate selected -> unselected
-- (arg < 0 wrap-round) unselected -> last candidate selected
-- (arg < 0 no wrap-round) unselected -> unselected
-
-There is no need to advice `company-select-previous' because it calls
-`company-select-next' internally."
- (cond
- ;; Selecting next
- ((or (not arg) (> arg 0))
- (unless company-selection-changed
- (company-set-selection (1- (or arg 1)) 'force-update)
- t))
- ;; Selecting previous
- ((< arg 0)
- (when (and company-selection-changed
- (< (+ company-selection arg) 0))
- (company-set-selection 0)
- (setq company-selection-changed nil)
- (company-call-frontends 'update)
- t)
- )))
-
-(defun company-tng--adjust-tooltip-highlight (args)
- "Prevent the tooltip from highlighting the current selection if it wasn't
-made explicitly (i.e. `company-selection-changed' is true)"
- (unless company-selection-changed
- ;; The 4th arg of `company-fill-propertize' is selected
- (setf (nth 3 args) nil))
- args)
-
-(defun company-tng--supress-post-completion (command &rest args)
- "Installed as a :before-until advice on `company-call-backend' and
-prevents the 'post-completion command from being delivered to the backend
-for the next iteration. post-completion do things like expand snippets
-which are undesirable because completions are implicit in company-tng and
-visible side-effects after the completion are surprising."
- (when (eq command 'post-completion)
- (advice-remove 'company-call-backend 'company-tng--supress-post-completion)
- t))
-
-(provide 'company-tng)
-;;; company-tng.el ends here
diff --git a/elpa/company-20181105.2312/company-tng.elc b/elpa/company-20181105.2312/company-tng.elc
deleted file mode 100644
index b7e5293..0000000
--- a/elpa/company-20181105.2312/company-tng.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-xcode.el b/elpa/company-20181105.2312/company-xcode.el
deleted file mode 100644
index 56da198..0000000
--- a/elpa/company-20181105.2312/company-xcode.el
+++ /dev/null
@@ -1,123 +0,0 @@
-;;; company-xcode.el --- company-mode completion backend for Xcode projects
-
-;; Copyright (C) 2009-2011, 2014 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(defgroup company-xcode nil
- "Completion backend for Xcode projects."
- :group 'company)
-
-(defcustom company-xcode-xcodeindex-executable (executable-find "xcodeindex")
- "Location of xcodeindex executable."
- :type 'file)
-
-(defvar company-xcode-tags nil)
-
-(defun company-xcode-reset ()
- "Reset the cached tags."
- (interactive)
- (setq company-xcode-tags nil))
-
-(defcustom company-xcode-types
- '("Class" "Constant" "Enum" "Macro" "Modeled Class" "Structure"
- "Type" "Union" "Function")
- "The types of symbols offered by `company-xcode'.
-No context-enabled completion is available. Types like methods will be
-offered regardless of whether the class supports them. The defaults should be
-valid in most contexts."
- :set (lambda (variable value)
- (set variable value)
- (company-xcode-reset))
- :type '(set (const "Category") (const "Class") (const "Class Method")
- (const "Class Variable") (const "Constant") (const "Enum")
- (const "Field") (const "Instance Method")
- (const "Instance Variable") (const "Macro")
- (const "Modeled Class") (const "Modeled Method")
- (const "Modeled Property") (const "Property") (const "Protocol")
- (const "Structure") (const "Type") (const "Union")
- (const "Variable") (const "Function")))
-
-(defvar-local company-xcode-project 'unknown)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun company-xcode-fetch (project-bundle)
- (setq project-bundle (directory-file-name project-bundle))
- (message "Retrieving dump from %s..." project-bundle)
- (with-temp-buffer
- (let ((default-directory (file-name-directory project-bundle)))
- (call-process company-xcode-xcodeindex-executable nil (current-buffer)
- nil "dump" "-project"
- (file-name-nondirectory project-bundle) "-quiet")
- (goto-char (point-min))
- (let ((regexp (concat "^\\([^\t\n]*\\)\t[^\t\n]*\t"
- (regexp-opt company-xcode-types)
- "\t[^\t\n]*\t[^\t\n]*"))
- candidates)
- (while (re-search-forward regexp nil t)
- (cl-pushnew (match-string 1) candidates :test #'equal))
- (message "Retrieving dump from %s...done" project-bundle)
- candidates))))
-
-(defun company-xcode-find-project ()
- (let ((dir (if buffer-file-name
- (file-name-directory buffer-file-name)
- (expand-file-name default-directory)))
- (prev-dir nil)
- file)
- (while (not (or file (equal dir prev-dir)))
- (setq file (car (directory-files dir t ".xcodeproj\\'" t))
- prev-dir dir
- dir (file-name-directory (directory-file-name dir))))
- file))
-
-(defun company-xcode-tags ()
- (when (eq company-xcode-project 'unknown)
- (setq company-xcode-project (company-xcode-find-project)))
- (when company-xcode-project
- (cdr (or (assoc company-xcode-project company-xcode-tags)
- (car (push (cons company-xcode-project
- (company-xcode-fetch company-xcode-project))
- company-xcode-tags))))))
-;;;###autoload
-(defun company-xcode (command &optional arg &rest ignored)
- "`company-mode' completion backend for Xcode projects."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-xcode))
- (prefix (and company-xcode-xcodeindex-executable
- (company-xcode-tags)
- (not (company-in-string-or-comment))
- (or (company-grab-symbol) 'stop)))
- (candidates (let ((completion-ignore-case nil))
- (company-xcode-tags)
- (all-completions arg (company-xcode-tags))))))
-
-
-(provide 'company-xcode)
-;;; company-xcode.el ends here
diff --git a/elpa/company-20181105.2312/company-xcode.elc b/elpa/company-20181105.2312/company-xcode.elc
deleted file mode 100644
index f23689b..0000000
--- a/elpa/company-20181105.2312/company-xcode.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company-yasnippet.el b/elpa/company-20181105.2312/company-yasnippet.el
deleted file mode 100644
index e5fded4..0000000
--- a/elpa/company-20181105.2312/company-yasnippet.el
+++ /dev/null
@@ -1,147 +0,0 @@
-;;; company-yasnippet.el --- company-mode completion backend for Yasnippet
-
-;; Copyright (C) 2014, 2015 Free Software Foundation, Inc.
-
-;; Author: Dmitry Gutov
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-
-;;; Code:
-
-(require 'company)
-(require 'cl-lib)
-
-(declare-function yas--table-hash "yasnippet")
-(declare-function yas--get-snippet-tables "yasnippet")
-(declare-function yas-expand-snippet "yasnippet")
-(declare-function yas--template-content "yasnippet")
-(declare-function yas--template-expand-env "yasnippet")
-(declare-function yas--warning "yasnippet")
-
-(defun company-yasnippet--key-prefixes ()
- ;; Mostly copied from `yas--templates-for-key-at-point'.
- (defvar yas-key-syntaxes)
- (save-excursion
- (let ((original (point))
- (methods yas-key-syntaxes)
- prefixes
- method)
- (while methods
- (unless (eq method (car methods))
- (goto-char original))
- (setq method (car methods))
- (cond ((stringp method)
- (skip-syntax-backward method)
- (setq methods (cdr methods)))
- ((functionp method)
- (unless (eq (funcall method original)
- 'again)
- (setq methods (cdr methods))))
- (t
- (setq methods (cdr methods))
- (yas--warning "Invalid element `%s' in `yas-key-syntaxes'" method)))
- (let ((prefix (buffer-substring-no-properties (point) original)))
- (unless (equal prefix (car prefixes))
- (push prefix prefixes))))
- prefixes)))
-
-(defun company-yasnippet--candidates (prefix)
- ;; Process the prefixes in reverse: unlike Yasnippet, we look for prefix
- ;; matches, so the longest prefix with any matches should be the most useful.
- (cl-loop with tables = (yas--get-snippet-tables)
- for key-prefix in (company-yasnippet--key-prefixes)
- ;; Only consider keys at least as long as the symbol at point.
- when (>= (length key-prefix) (length prefix))
- thereis (company-yasnippet--completions-for-prefix prefix
- key-prefix
- tables)))
-
-(defun company-yasnippet--completions-for-prefix (prefix key-prefix tables)
- (cl-mapcan
- (lambda (table)
- (let ((keyhash (yas--table-hash table))
- res)
- (when keyhash
- (maphash
- (lambda (key value)
- (when (and (stringp key)
- (string-prefix-p key-prefix key))
- (maphash
- (lambda (name template)
- (push
- (propertize key
- 'yas-annotation name
- 'yas-template template
- 'yas-prefix-offset (- (length key-prefix)
- (length prefix)))
- res))
- value)))
- keyhash))
- res))
- tables))
-
-;;;###autoload
-(defun company-yasnippet (command &optional arg &rest ignore)
- "`company-mode' backend for `yasnippet'.
-
-This backend should be used with care, because as long as there are
-snippets defined for the current major mode, this backend will always
-shadow backends that come after it. Recommended usages:
-
-* In a buffer-local value of `company-backends', grouped with a backend or
- several that provide actual text completions.
-
- (add-hook 'js-mode-hook
- (lambda ()
- (set (make-local-variable 'company-backends)
- '((company-dabbrev-code company-yasnippet)))))
-
-* After keyword `:with', grouped with other backends.
-
- (push '(company-semantic :with company-yasnippet) company-backends)
-
-* Not in `company-backends', just bound to a key.
-
- (global-set-key (kbd \"C-c y\") 'company-yasnippet)
-"
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-yasnippet))
- (prefix
- ;; Should probably use `yas--current-key', but that's bound to be slower.
- ;; How many trigger keys start with non-symbol characters anyway?
- (and (bound-and-true-p yas-minor-mode)
- (company-grab-symbol)))
- (annotation
- (concat
- (unless company-tooltip-align-annotations " -> ")
- (get-text-property 0 'yas-annotation arg)))
- (candidates (company-yasnippet--candidates arg))
- (no-cache t)
- (post-completion
- (let ((template (get-text-property 0 'yas-template arg))
- (prefix-offset (get-text-property 0 'yas-prefix-offset arg)))
- (yas-expand-snippet (yas--template-content template)
- (- (point) (length arg) prefix-offset)
- (point)
- (yas--template-expand-env template))))))
-
-(provide 'company-yasnippet)
-;;; company-yasnippet.el ends here
diff --git a/elpa/company-20181105.2312/company-yasnippet.elc b/elpa/company-20181105.2312/company-yasnippet.elc
deleted file mode 100644
index 31520ff..0000000
--- a/elpa/company-20181105.2312/company-yasnippet.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-20181105.2312/company.el b/elpa/company-20181105.2312/company.el
deleted file mode 100644
index f60fa1b..0000000
--- a/elpa/company-20181105.2312/company.el
+++ /dev/null
@@ -1,3183 +0,0 @@
-;;; company.el --- Modular text completion framework -*- lexical-binding: t -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Nikolaj Schumacher
-;; Maintainer: Dmitry Gutov <dgutov@yandex.ru>
-;; URL: http://company-mode.github.io/
-;; Version: 0.9.7
-;; Keywords: abbrev, convenience, matching
-;; Package-Requires: ((emacs "24.3"))
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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:
-;;
-;; Company is a modular completion framework. Modules for retrieving completion
-;; candidates are called backends, modules for displaying them are frontends.
-;;
-;; Company comes with many backends, e.g. `company-etags'. These are
-;; distributed in separate files and can be used individually.
-;;
-;; Enable `company-mode' in all buffers with M-x global-company-mode. For
-;; further information look at the documentation for `company-mode' (C-h f
-;; company-mode RET).
-;;
-;; If you want to start a specific backend, call it interactively or use
-;; `company-begin-backend'. For example:
-;; M-x company-abbrev will prompt for and insert an abbrev.
-;;
-;; To write your own backend, look at the documentation for `company-backends'.
-;; Here is a simple example completing "foo":
-;;
-;; (defun company-my-backend (command &optional arg &rest ignored)
-;; (interactive (list 'interactive))
-;; (pcase command
-;; (`interactive (company-begin-backend 'company-my-backend))
-;; (`prefix (company-grab-symbol))
-;; (`candidates (list "foobar" "foobaz" "foobarbaz"))
-;; (`meta (format "This value is named %s" arg))))
-;;
-;; Sometimes it is a good idea to mix several backends together, for example to
-;; enrich gtags with dabbrev-code results (to emulate local variables). To do
-;; this, add a list with both backends as an element in `company-backends'.
-;;
-;;; Change Log:
-;;
-;; See NEWS.md in the repository.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'newcomment)
-(require 'pcase)
-
-;;; Compatibility
-(eval-and-compile
- ;; Defined in Emacs 24.4
- (unless (fboundp 'string-suffix-p)
- (defun string-suffix-p (suffix string &optional ignore-case)
- "Return non-nil if SUFFIX is a suffix of STRING.
-If IGNORE-CASE is non-nil, the comparison is done without paying
-attention to case differences."
- (let ((start-pos (- (length string) (length suffix))))
- (and (>= start-pos 0)
- (eq t (compare-strings suffix nil nil
- string start-pos nil ignore-case)))))))
-
-(defgroup company nil
- "Extensible inline text completion mechanism"
- :group 'abbrev
- :group 'convenience
- :group 'matching)
-
-(defface company-tooltip
- '((default :foreground "black")
- (((class color) (min-colors 88) (background light))
- (:background "cornsilk"))
- (((class color) (min-colors 88) (background dark))
- (:background "yellow")))
- "Face used for the tooltip.")
-
-(defface company-tooltip-selection
- '((((class color) (min-colors 88) (background light))
- (:background "light blue"))
- (((class color) (min-colors 88) (background dark))
- (:background "orange1"))
- (t (:background "green")))
- "Face used for the selection in the tooltip.")
-
-(defface company-tooltip-search
- '((default :inherit highlight))
- "Face used for the search string in the tooltip.")
-
-(defface company-tooltip-search-selection
- '((default :inherit highlight))
- "Face used for the search string inside the selection in the tooltip.")
-
-(defface company-tooltip-mouse
- '((default :inherit highlight))
- "Face used for the tooltip item under the mouse.")
-
-(defface company-tooltip-common
- '((((background light))
- :foreground "darkred")
- (((background dark))
- :foreground "red"))
- "Face used for the common completion in the tooltip.")
-
-(defface company-tooltip-common-selection
- '((default :inherit company-tooltip-common))
- "Face used for the selected common completion in the tooltip.")
-
-(defface company-tooltip-annotation
- '((((background light))
- :foreground "firebrick4")
- (((background dark))
- :foreground "red4"))
- "Face used for the completion annotation in the tooltip.")
-
-(defface company-tooltip-annotation-selection
- '((default :inherit company-tooltip-annotation))
- "Face used for the selected completion annotation in the tooltip.")
-
-(defface company-scrollbar-fg
- '((((background light))
- :background "darkred")
- (((background dark))
- :background "red"))
- "Face used for the tooltip scrollbar thumb.")
-
-(defface company-scrollbar-bg
- '((((background light))
- :background "wheat")
- (((background dark))
- :background "gold"))
- "Face used for the tooltip scrollbar background.")
-
-(defface company-preview
- '((((background light))
- :inherit (company-tooltip-selection company-tooltip))
- (((background dark))
- :background "blue4"
- :foreground "wheat"))
- "Face used for the completion preview.")
-
-(defface company-preview-common
- '((((background light))
- :inherit company-tooltip-common-selection)
- (((background dark))
- :inherit company-preview
- :foreground "red"))
- "Face used for the common part of the completion preview.")
-
-(defface company-preview-search
- '((((background light))
- :inherit company-tooltip-common-selection)
- (((background dark))
- :inherit company-preview
- :background "blue1"))
- "Face used for the search string in the completion preview.")
-
-(defface company-echo nil
- "Face used for completions in the echo area.")
-
-(defface company-echo-common
- '((((background dark)) (:foreground "firebrick1"))
- (((background light)) (:background "firebrick4")))
- "Face used for the common part of completions in the echo area.")
-
-(defun company-frontends-set (variable value)
- ;; Uniquify.
- (let ((value (delete-dups (copy-sequence value))))
- (and (or (and (memq 'company-pseudo-tooltip-unless-just-one-frontend value)
- (memq 'company-pseudo-tooltip-frontend value))
- (and (memq 'company-pseudo-tooltip-unless-just-one-frontend-with-delay value)
- (memq 'company-pseudo-tooltip-frontend value))
- (and (memq 'company-pseudo-tooltip-unless-just-one-frontend-with-delay value)
- (memq 'company-pseudo-tooltip-unless-just-one-frontend value)))
- (user-error "Pseudo tooltip frontend cannot be used more than once"))
- (and (or (and (memq 'company-preview-if-just-one-frontend value)
- (memq 'company-preview-frontend value))
- (and (memq 'company-preview-if-just-one-frontend value)
- (memq 'company-preview-common-frontend value))
- (and (memq 'company-preview-frontend value)
- (memq 'company-preview-common-frontend value))
- )
- (user-error "Preview frontend cannot be used twice"))
- (and (memq 'company-echo value)
- (memq 'company-echo-metadata-frontend value)
- (user-error "Echo area cannot be used twice"))
- ;; Preview must come last.
- (dolist (f '(company-preview-if-just-one-frontend company-preview-frontend company-preview-common-frontend))
- (when (cdr (memq f value))
- (setq value (append (delq f value) (list f)))))
- (set variable value)))
-
-(defcustom company-frontends '(company-pseudo-tooltip-unless-just-one-frontend
- company-preview-if-just-one-frontend
- company-echo-metadata-frontend)
- "The list of active frontends (visualizations).
-Each frontend is a function that takes one argument. It is called with
-one of the following arguments:
-
-`show': When the visualization should start.
-
-`hide': When the visualization should end.
-
-`update': When the data has been updated.
-
-`pre-command': Before every command that is executed while the
-visualization is active.
-
-`post-command': After every command that is executed while the
-visualization is active.
-
-The visualized data is stored in `company-prefix', `company-candidates',
-`company-common', `company-selection', `company-point' and
-`company-search-string'."
- :set 'company-frontends-set
- :type '(repeat (choice (const :tag "echo" company-echo-frontend)
- (const :tag "echo, strip common"
- company-echo-strip-common-frontend)
- (const :tag "show echo meta-data in echo"
- company-echo-metadata-frontend)
- (const :tag "pseudo tooltip"
- company-pseudo-tooltip-frontend)
- (const :tag "pseudo tooltip, multiple only"
- company-pseudo-tooltip-unless-just-one-frontend)
- (const :tag "pseudo tooltip, multiple only, delayed"
- company-pseudo-tooltip-unless-just-one-frontend-with-delay)
- (const :tag "preview" company-preview-frontend)
- (const :tag "preview, unique only"
- company-preview-if-just-one-frontend)
- (const :tag "preview, common"
- company-preview-common-frontend)
- (function :tag "custom function" nil))))
-
-(defcustom company-tooltip-limit 10
- "The maximum number of candidates in the tooltip."
- :type 'integer)
-
-(defcustom company-tooltip-minimum 6
- "The minimum height of the tooltip.
-If this many lines are not available, prefer to display the tooltip above."
- :type 'integer)
-
-(defcustom company-tooltip-minimum-width 0
- "The minimum width of the tooltip's inner area.
-This doesn't include the margins and the scroll bar."
- :type 'integer
- :package-version '(company . "0.8.0"))
-
-(defcustom company-tooltip-maximum-width most-positive-fixnum
- "The maximum width of the tooltip's inner area.
-This doesn't include the margins and the scroll bar."
- :type 'integer
- :package-version '(company . "0.9.5"))
-
-(defcustom company-tooltip-margin 1
- "Width of margin columns to show around the toolip."
- :type 'integer)
-
-(defcustom company-tooltip-offset-display 'scrollbar
- "Method using which the tooltip displays scrolling position.
-`scrollbar' means draw a scrollbar to the right of the items.
-`lines' means wrap items in lines with \"before\" and \"after\" counters."
- :type '(choice (const :tag "Scrollbar" scrollbar)
- (const :tag "Two lines" lines)))
-
-(defcustom company-tooltip-align-annotations nil
- "When non-nil, align annotations to the right tooltip border."
- :type 'boolean
- :package-version '(company . "0.7.1"))
-
-(defcustom company-tooltip-flip-when-above nil
- "Whether to flip the tooltip when it's above the current line."
- :type 'boolean
- :package-version '(company . "0.8.1"))
-
-(defvar company-safe-backends
- '((company-abbrev . "Abbrev")
- (company-bbdb . "BBDB")
- (company-capf . "completion-at-point-functions")
- (company-clang . "Clang")
- (company-cmake . "CMake")
- (company-css . "CSS")
- (company-dabbrev . "dabbrev for plain text")
- (company-dabbrev-code . "dabbrev for code")
- (company-eclim . "Eclim (an Eclipse interface)")
- (company-elisp . "Emacs Lisp")
- (company-etags . "etags")
- (company-files . "Files")
- (company-gtags . "GNU Global")
- (company-ispell . "Ispell")
- (company-keywords . "Programming language keywords")
- (company-nxml . "nxml")
- (company-oddmuse . "Oddmuse")
- (company-semantic . "Semantic")
- (company-tempo . "Tempo templates")
- (company-xcode . "Xcode")))
-(put 'company-safe-backends 'risky-local-variable t)
-
-(defun company-safe-backends-p (backends)
- (and (consp backends)
- (not (cl-dolist (backend backends)
- (unless (if (consp backend)
- (company-safe-backends-p backend)
- (assq backend company-safe-backends))
- (cl-return t))))))
-
-(defcustom company-backends `(,@(unless (version< "24.3.51" emacs-version)
- (list 'company-elisp))
- company-bbdb
- ,@(unless (version<= "26" emacs-version)
- (list 'company-nxml))
- ,@(unless (version<= "26" emacs-version)
- (list 'company-css))
- company-eclim company-semantic company-clang
- company-xcode company-cmake
- company-capf
- company-files
- (company-dabbrev-code company-gtags company-etags
- company-keywords)
- company-oddmuse company-dabbrev)
- "The list of active backends (completion engines).
-
-Only one backend is used at a time. The choice depends on the order of
-the items in this list, and on the values they return in response to the
-`prefix' command (see below). But a backend can also be a \"grouped\"
-one (see below).
-
-`company-begin-backend' can be used to start a specific backend,
-`company-other-backend' will skip to the next matching backend in the list.
-
-Each backend is a function that takes a variable number of arguments.
-The first argument is the command requested from the backend. It is one
-of the following:
-
-`prefix': The backend should return the text to be completed. It must be
-text immediately before point. Returning nil from this command passes
-control to the next backend. The function should return `stop' if it
-should complete but cannot (e.g. when in the middle of a symbol).
-Instead of a string, the backend may return a cons (PREFIX . LENGTH)
-where LENGTH is a number used in place of PREFIX's length when
-comparing against `company-minimum-prefix-length'. LENGTH can also
-be just t, and in the latter case the test automatically succeeds.
-
-`candidates': The second argument is the prefix to be completed. The
-return value should be a list of candidates that match the prefix.
-
-Non-prefix matches are also supported (candidates that don't start with the
-prefix, but match it in some backend-defined way). Backends that use this
-feature must disable cache (return t to `no-cache') and might also want to
-respond to `match'.
-
-Optional commands
-=================
-
-`sorted': Return t here to indicate that the candidates are sorted and will
-not need to be sorted again.
-
-`duplicates': If non-nil, company will take care of removing duplicates
-from the list.
-
-`no-cache': Usually company doesn't ask for candidates again as completion
-progresses, unless the backend returns t for this command. The second
-argument is the latest prefix.
-
-`ignore-case': Return t here if the backend returns case-insensitive
-matches. This value is used to determine the longest common prefix (as
-used in `company-complete-common'), and to filter completions when fetching
-them from cache.
-
-`meta': The second argument is a completion candidate. Return a (short)
-documentation string for it.
-
-`doc-buffer': The second argument is a completion candidate. Return a
-buffer with documentation for it. Preferably use `company-doc-buffer'. If
-not all buffer contents pertain to this candidate, return a cons of buffer
-and window start position.
-
-`location': The second argument is a completion candidate. Return a cons
-of buffer and buffer location, or of file and line number where the
-completion candidate was defined.
-
-`annotation': The second argument is a completion candidate. Return a
-string to be displayed inline with the candidate in the popup. If
-duplicates are removed by company, candidates with equal string values will
-be kept if they have different annotations. For that to work properly,
-backends should store the related information on candidates using text
-properties.
-
-`match': The second argument is a completion candidate. Return a positive
-integer, the index after the end of text matching `prefix' within the
-candidate string. Alternatively, return a list of (CHUNK-START
-. CHUNK-END) elements, where CHUNK-START and CHUNK-END are indexes within
-the candidate string. The corresponding regions are be used when rendering
-the popup. This command only makes sense for backends that provide
-non-prefix completion.
-
-`require-match': If this returns t, the user is not allowed to enter
-anything not offered as a candidate. Please don't use that value in normal
-backends. The default value nil gives the user that choice with
-`company-require-match'. Return value `never' overrides that option the
-other way around.
-
-`init': Called once for each buffer. The backend can check for external
-programs and files and load any required libraries. Raising an error here
-will show up in message log once, and the backend will not be used for
-completion.
-
-`post-completion': Called after a completion candidate has been inserted
-into the buffer. The second argument is the candidate. Can be used to
-modify it, e.g. to expand a snippet.
-
-The backend should return nil for all commands it does not support or
-does not know about. It should also be callable interactively and use
-`company-begin-backend' to start itself in that case.
-
-Grouped backends
-================
-
-An element of `company-backends' can also be a list of backends. The
-completions from backends in such groups are merged, but only from those
-backends which return the same `prefix'.
-
-If a backend command takes a candidate as an argument (e.g. `meta'), the
-call is dispatched to the backend the candidate came from. In other
-cases (except for `duplicates' and `sorted'), the first non-nil value among
-all the backends is returned.
-
-The group can also contain keywords. Currently, `:with' and `:separate'
-keywords are defined. If the group contains keyword `:with', the backends
-listed after this keyword are ignored for the purpose of the `prefix'
-command. If the group contains keyword `:separate', the candidates that
-come from different backends are sorted separately in the combined list.
-
-Asynchronous backends
-=====================
-
-The return value of each command can also be a cons (:async . FETCHER)
-where FETCHER is a function of one argument, CALLBACK. When the data
-arrives, FETCHER must call CALLBACK and pass it the appropriate return
-value, as described above. That call must happen in the same buffer as
-where completion was initiated.
-
-True asynchronous operation is only supported for command `candidates', and
-only during idle completion. Other commands will block the user interface,
-even if the backend uses the asynchronous calling convention."
- :type `(repeat
- (choice
- :tag "backend"
- ,@(mapcar (lambda (b) `(const :tag ,(cdr b) ,(car b)))
- company-safe-backends)
- (symbol :tag "User defined")
- (repeat :tag "Merged backends"
- (choice :tag "backend"
- ,@(mapcar (lambda (b)
- `(const :tag ,(cdr b) ,(car b)))
- company-safe-backends)
- (const :tag "With" :with)
- (symbol :tag "User defined"))))))
-
-(put 'company-backends 'safe-local-variable 'company-safe-backends-p)
-
-(defcustom company-transformers nil
- "Functions to change the list of candidates received from backends.
-
-Each function gets called with the return value of the previous one.
-The first one gets passed the list of candidates, already sorted and
-without duplicates."
- :type '(choice
- (const :tag "None" nil)
- (const :tag "Sort by occurrence" (company-sort-by-occurrence))
- (const :tag "Sort by backend importance"
- (company-sort-by-backend-importance))
- (const :tag "Prefer case sensitive prefix"
- (company-sort-prefer-same-case-prefix))
- (repeat :tag "User defined" (function))))
-
-(defcustom company-completion-started-hook nil
- "Hook run when company starts completing.
-The hook is called with one argument that is non-nil if the completion was
-started manually."
- :type 'hook)
-
-(defcustom company-completion-cancelled-hook nil
- "Hook run when company cancels completing.
-The hook is called with one argument that is non-nil if the completion was
-aborted manually."
- :type 'hook)
-
-(defcustom company-completion-finished-hook nil
- "Hook run when company successfully completes.
-The hook is called with the selected candidate as an argument.
-
-If you indend to use it to post-process candidates from a specific
-backend, consider using the `post-completion' command instead."
- :type 'hook)
-
-(defcustom company-minimum-prefix-length 3
- "The minimum prefix length for idle completion."
- :type '(integer :tag "prefix length"))
-
-(defcustom company-abort-manual-when-too-short nil
- "If enabled, cancel a manually started completion when the prefix gets
-shorter than both `company-minimum-prefix-length' and the length of the
-prefix it was started from."
- :type 'boolean
- :package-version '(company . "0.8.0"))
-
-(defcustom company-require-match 'company-explicit-action-p
- "If enabled, disallow non-matching input.
-This can be a function do determine if a match is required.
-
-This can be overridden by the backend, if it returns t or `never' to
-`require-match'. `company-auto-complete' also takes precedence over this."
- :type '(choice (const :tag "Off" nil)
- (function :tag "Predicate function")
- (const :tag "On, if user interaction took place"
- 'company-explicit-action-p)
- (const :tag "On" t)))
-
-(defcustom company-auto-complete nil
- "Determines when to auto-complete.
-If this is enabled, all characters from `company-auto-complete-chars'
-trigger insertion of the selected completion candidate.
-This can also be a function."
- :type '(choice (const :tag "Off" nil)
- (function :tag "Predicate function")
- (const :tag "On, if user interaction took place"
- 'company-explicit-action-p)
- (const :tag "On" t)))
-
-(defcustom company-auto-complete-chars '(?\ ?\) ?.)
- "Determines which characters trigger auto-completion.
-See `company-auto-complete'. If this is a string, each string character
-tiggers auto-completion. If it is a list of syntax description characters (see
-`modify-syntax-entry'), all characters with that syntax auto-complete.
-
-This can also be a function, which is called with the new input and should
-return non-nil if company should auto-complete.
-
-A character that is part of a valid candidate never triggers auto-completion."
- :type '(choice (string :tag "Characters")
- (set :tag "Syntax"
- (const :tag "Whitespace" ?\ )
- (const :tag "Symbol" ?_)
- (const :tag "Opening parentheses" ?\()
- (const :tag "Closing parentheses" ?\))
- (const :tag "Word constituent" ?w)
- (const :tag "Punctuation." ?.)
- (const :tag "String quote." ?\")
- (const :tag "Paired delimiter." ?$)
- (const :tag "Expression quote or prefix operator." ?\')
- (const :tag "Comment starter." ?<)
- (const :tag "Comment ender." ?>)
- (const :tag "Character-quote." ?/)
- (const :tag "Generic string fence." ?|)
- (const :tag "Generic comment fence." ?!))
- (function :tag "Predicate function")))
-
-(defcustom company-idle-delay .5
- "The idle delay in seconds until completion starts automatically.
-The prefix still has to satisfy `company-minimum-prefix-length' before that
-happens. The value of nil means no idle completion."
- :type '(choice (const :tag "never (nil)" nil)
- (const :tag "immediate (0)" 0)
- (number :tag "seconds")))
-
-(defcustom company-tooltip-idle-delay .5
- "The idle delay in seconds until tooltip is shown when using
-`company-pseudo-tooltip-unless-just-one-frontend-with-delay'."
- :type '(choice (const :tag "never (nil)" nil)
- (const :tag "immediate (0)" 0)
- (number :tag "seconds")))
-
-(defcustom company-begin-commands '(self-insert-command
- org-self-insert-command
- orgtbl-self-insert-command
- c-scope-operator
- c-electric-colon
- c-electric-lt-gt
- c-electric-slash)
- "A list of commands after which idle completion is allowed.
-If this is t, it can show completions after any command except a few from a
-pre-defined list. See `company-idle-delay'.
-
-Alternatively, any command with a non-nil `company-begin' property is
-treated as if it was on this list."
- :type '(choice (const :tag "Any command" t)
- (const :tag "Self insert command" '(self-insert-command))
- (repeat :tag "Commands" function))
- :package-version '(company . "0.8.4"))
-
-(defcustom company-continue-commands '(not save-buffer save-some-buffers
- save-buffers-kill-terminal
- save-buffers-kill-emacs
- completion-at-point)
- "A list of commands that are allowed during completion.
-If this is t, or if `company-begin-commands' is t, any command is allowed.
-Otherwise, the value must be a list of symbols. If it starts with `not',
-the cdr is the list of commands that abort completion. Otherwise, all
-commands except those in that list, or in `company-begin-commands', or
-commands in the `company-' namespace, abort completion."
- :type '(choice (const :tag "Any command" t)
- (cons :tag "Any except"
- (const not)
- (repeat :tag "Commands" function))
- (repeat :tag "Commands" function)))
-
-(defcustom company-show-numbers nil
- "If enabled, show quick-access numbers for the first ten candidates."
- :type '(choice (const :tag "off" nil)
- (const :tag "on" t)))
-
-(defcustom company-selection-wrap-around nil
- "If enabled, selecting item before first or after last wraps around."
- :type '(choice (const :tag "off" nil)
- (const :tag "on" t)))
-
-(defvar company-async-wait 0.03
- "Pause between checks to see if the value's been set when turning an
-asynchronous call into synchronous.")
-
-(defvar company-async-timeout 2
- "Maximum wait time for a value to be set during asynchronous call.")
-
-;;; mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar company-mode-map (make-sparse-keymap)
- "Keymap used by `company-mode'.")
-
-(defvar company-active-map
- (let ((keymap (make-sparse-keymap)))
- (define-key keymap "\e\e\e" 'company-abort)
- (define-key keymap "\C-g" 'company-abort)
- (define-key keymap (kbd "M-n") 'company-select-next)
- (define-key keymap (kbd "M-p") 'company-select-previous)
- (define-key keymap (kbd "<down>") 'company-select-next-or-abort)
- (define-key keymap (kbd "<up>") 'company-select-previous-or-abort)
- (define-key keymap [remap scroll-up-command] 'company-next-page)
- (define-key keymap [remap scroll-down-command] 'company-previous-page)
- (define-key keymap [down-mouse-1] 'ignore)
- (define-key keymap [down-mouse-3] 'ignore)
- (define-key keymap [mouse-1] 'company-complete-mouse)
- (define-key keymap [mouse-3] 'company-select-mouse)
- (define-key keymap [up-mouse-1] 'ignore)
- (define-key keymap [up-mouse-3] 'ignore)
- (define-key keymap [return] 'company-complete-selection)
- (define-key keymap (kbd "RET") 'company-complete-selection)
- (define-key keymap [tab] 'company-complete-common)
- (define-key keymap (kbd "TAB") 'company-complete-common)
- (define-key keymap (kbd "<f1>") 'company-show-doc-buffer)
- (define-key keymap (kbd "C-h") 'company-show-doc-buffer)
- (define-key keymap "\C-w" 'company-show-location)
- (define-key keymap "\C-s" 'company-search-candidates)
- (define-key keymap "\C-\M-s" 'company-filter-candidates)
- (dotimes (i 10)
- (define-key keymap (read-kbd-macro (format "M-%d" i)) 'company-complete-number))
- keymap)
- "Keymap that is enabled during an active completion.")
-
-(defvar company--disabled-backends nil)
-
-(defun company-init-backend (backend)
- (and (symbolp backend)
- (not (fboundp backend))
- (ignore-errors (require backend nil t)))
- (cond
- ((symbolp backend)
- (condition-case err
- (progn
- (funcall backend 'init)
- (put backend 'company-init t))
- (error
- (put backend 'company-init 'failed)
- (unless (memq backend company--disabled-backends)
- (message "Company backend '%s' could not be initialized:\n%s"
- backend (error-message-string err)))
- (cl-pushnew backend company--disabled-backends)
- nil)))
- ;; No initialization for lambdas.
- ((functionp backend) t)
- (t ;; Must be a list.
- (cl-dolist (b backend)
- (unless (keywordp b)
- (company-init-backend b))))))
-
-(defun company--maybe-init-backend (backend)
- (or (not (symbolp backend))
- (eq t (get backend 'company-init))
- (unless (get backend 'company-init)
- (company-init-backend backend))))
-
-(defcustom company-lighter-base "company"
- "Base string to use for the `company-mode' lighter."
- :type 'string
- :package-version '(company . "0.8.10"))
-
-(defvar company-lighter '(" "
- (company-candidates
- (:eval
- (if (consp company-backend)
- (company--group-lighter (nth company-selection
- company-candidates)
- company-lighter-base)
- (symbol-name company-backend)))
- company-lighter-base))
- "Mode line lighter for Company.
-
-The value of this variable is a mode line template as in
-`mode-line-format'.")
-
-(put 'company-lighter 'risky-local-variable t)
-
-;;;###autoload
-(define-minor-mode company-mode
- "\"complete anything\"; is an in-buffer completion framework.
-Completion starts automatically, depending on the values
-`company-idle-delay' and `company-minimum-prefix-length'.
-
-Completion can be controlled with the commands:
-`company-complete-common', `company-complete-selection', `company-complete',
-`company-select-next', `company-select-previous'. If these commands are
-called before `company-idle-delay', completion will also start.
-
-Completions can be searched with `company-search-candidates' or
-`company-filter-candidates'. These can be used while completion is
-inactive, as well.
-
-The completion data is retrieved using `company-backends' and displayed
-using `company-frontends'. If you want to start a specific backend, call
-it interactively or use `company-begin-backend'.
-
-By default, the completions list is sorted alphabetically, unless the
-backend chooses otherwise, or `company-transformers' changes it later.
-
-regular keymap (`company-mode-map'):
-
-\\{company-mode-map}
-keymap during active completions (`company-active-map'):
-
-\\{company-active-map}"
- nil company-lighter company-mode-map
- (if company-mode
- (progn
- (add-hook 'pre-command-hook 'company-pre-command nil t)
- (add-hook 'post-command-hook 'company-post-command nil t)
- (mapc 'company-init-backend company-backends))
- (remove-hook 'pre-command-hook 'company-pre-command t)
- (remove-hook 'post-command-hook 'company-post-command t)
- (company-cancel)
- (kill-local-variable 'company-point)))
-
-(defcustom company-global-modes t
- "Modes for which `company-mode' mode is turned on by `global-company-mode'.
-If nil, means no modes. If t, then all major modes have it turned on.
-If a list, it should be a list of `major-mode' symbol names for which
-`company-mode' should be automatically turned on. The sense of the list is
-negated if it begins with `not'. For example:
- (c-mode c++-mode)
-means that `company-mode' is turned on for buffers in C and C++ modes only.
- (not message-mode)
-means that `company-mode' is always turned on except in `message-mode' buffers."
- :type '(choice (const :tag "none" nil)
- (const :tag "all" t)
- (set :menu-tag "mode specific" :tag "modes"
- :value (not)
- (const :tag "Except" not)
- (repeat :inline t (symbol :tag "mode")))))
-
-;;;###autoload
-(define-globalized-minor-mode global-company-mode company-mode company-mode-on)
-
-(defun company-mode-on ()
- (when (and (not (or noninteractive (eq (aref (buffer-name) 0) ?\s)))
- (cond ((eq company-global-modes t)
- t)
- ((eq (car-safe company-global-modes) 'not)
- (not (memq major-mode (cdr company-global-modes))))
- (t (memq major-mode company-global-modes))))
- (company-mode 1)))
-
-(defsubst company-assert-enabled ()
- (unless company-mode
- (company-uninstall-map)
- (user-error "Company not enabled")))
-
-;;; keymaps ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-my-keymap nil)
-
-(defvar company-emulation-alist '((t . nil)))
-
-(defsubst company-enable-overriding-keymap (keymap)
- (company-uninstall-map)
- (setq company-my-keymap keymap))
-
-(defun company-ensure-emulation-alist ()
- (unless (eq 'company-emulation-alist (car emulation-mode-map-alists))
- (setq emulation-mode-map-alists
- (cons 'company-emulation-alist
- (delq 'company-emulation-alist emulation-mode-map-alists)))))
-
-(defun company-install-map ()
- (unless (or (cdar company-emulation-alist)
- (null company-my-keymap))
- (setf (cdar company-emulation-alist) company-my-keymap)))
-
-(defun company-uninstall-map ()
- (setf (cdar company-emulation-alist) nil))
-
-(defun company--company-command-p (keys)
- "Checks if the keys are part of company's overriding keymap"
- (or (equal [company-dummy-event] keys)
- (lookup-key company-my-keymap keys)))
-
-;; Hack:
-;; Emacs calculates the active keymaps before reading the event. That means we
-;; cannot change the keymap from a timer. So we send a bogus command.
-;; XXX: Even in Emacs 24.4, seems to be needed in the terminal.
-(defun company-ignore ()
- (interactive)
- (setq this-command last-command))
-
-(global-set-key '[company-dummy-event] 'company-ignore)
-
-(defun company-input-noop ()
- (push 'company-dummy-event unread-command-events))
-
-;; To avoid warnings in Emacs < 26.
-(declare-function line-number-display-width "indent.c")
-
-(defun company--posn-col-row (posn)
- (let ((col (car (posn-col-row posn)))
- ;; `posn-col-row' doesn't work well with lines of different height.
- ;; `posn-actual-col-row' doesn't handle multiple-width characters.
- (row (cdr (or (posn-actual-col-row posn)
- ;; When position is non-visible for some reason.
- (posn-col-row posn)))))
- (when (and header-line-format (version< emacs-version "24.3.93.3"))
- ;; http://debbugs.gnu.org/18384
- (cl-decf row))
- (when (bound-and-true-p display-line-numbers)
- (cl-decf col (+ 2 (line-number-display-width))))
- (cons (+ col (window-hscroll)) row)))
-
-(defun company--col-row (&optional pos)
- (company--posn-col-row (posn-at-point pos)))
-
-(defun company--row (&optional pos)
- (cdr (company--col-row pos)))
-
-;;; backends ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-backend nil)
-
-(defun company-grab (regexp &optional expression limit)
- (when (looking-back regexp limit)
- (or (match-string-no-properties (or expression 0)) "")))
-
-(defun company-grab-line (regexp &optional expression)
- "Return a match string for REGEXP if it matches text before point.
-If EXPRESSION is non-nil, return the match string for the respective
-parenthesized expression in REGEXP.
-Matching is limited to the current line."
- (let ((inhibit-field-text-motion t))
- (company-grab regexp expression (point-at-bol))))
-
-(defun company-grab-symbol ()
- "If point is at the end of a symbol, return it.
-Otherwise, if point is not inside a symbol, return an empty string."
- (if (looking-at "\\_>")
- (buffer-substring (point) (save-excursion (skip-syntax-backward "w_")
- (point)))
- (unless (and (char-after) (memq (char-syntax (char-after)) '(?w ?_)))
- "")))
-
-(defun company-grab-word ()
- "If point is at the end of a word, return it.
-Otherwise, if point is not inside a symbol, return an empty string."
- (if (looking-at "\\>")
- (buffer-substring (point) (save-excursion (skip-syntax-backward "w")
- (point)))
- (unless (and (char-after) (eq (char-syntax (char-after)) ?w))
- "")))
-
-(defun company-grab-symbol-cons (idle-begin-after-re &optional max-len)
- "Return a string SYMBOL or a cons (SYMBOL . t).
-SYMBOL is as returned by `company-grab-symbol'. If the text before point
-matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons."
- (let ((symbol (company-grab-symbol)))
- (when symbol
- (save-excursion
- (forward-char (- (length symbol)))
- (if (looking-back idle-begin-after-re (if max-len
- (- (point) max-len)
- (line-beginning-position)))
- (cons symbol t)
- symbol)))))
-
-(defun company-in-string-or-comment ()
- "Return non-nil if point is within a string or comment."
- (let ((ppss (syntax-ppss)))
- (or (car (setq ppss (nthcdr 3 ppss)))
- (car (setq ppss (cdr ppss)))
- (nth 3 ppss))))
-
-(defun company-call-backend (&rest args)
- (company--force-sync #'company-call-backend-raw args company-backend))
-
-(defun company--force-sync (fun args backend)
- (let ((value (apply fun args)))
- (if (not (eq (car-safe value) :async))
- value
- (let ((res 'trash)
- (start (time-to-seconds)))
- (funcall (cdr value)
- (lambda (result) (setq res result)))
- (while (eq res 'trash)
- (if (> (- (time-to-seconds) start) company-async-timeout)
- (error "Company: backend %s async timeout with args %s"
- backend args)
- ;; XXX: Reusing the trick from company--fetch-candidates here
- ;; doesn't work well: sit-for isn't a good fit when we want to
- ;; ignore pending input (results in too many calls).
- ;; FIXME: We should deal with this by standardizing on a kind of
- ;; Future object that knows how to sync itself. In most cases (but
- ;; not all), by calling accept-process-output, probably.
- (sleep-for company-async-wait)))
- res))))
-
-(defun company-call-backend-raw (&rest args)
- (condition-case-unless-debug err
- (if (functionp company-backend)
- (apply company-backend args)
- (apply #'company--multi-backend-adapter company-backend args))
- (user-error (user-error
- "Company: backend %s user-error: %s"
- company-backend (error-message-string err)))
- (error (error "Company: backend %s error \"%s\" with args %s"
- company-backend (error-message-string err) args))))
-
-(defun company--multi-backend-adapter (backends command &rest args)
- (let ((backends (cl-loop for b in backends
- when (or (keywordp b)
- (company--maybe-init-backend b))
- collect b))
- (separate (memq :separate backends)))
-
- (when (eq command 'prefix)
- (setq backends (butlast backends (length (member :with backends)))))
-
- (setq backends (cl-delete-if #'keywordp backends))
-
- (pcase command
- (`candidates
- (company--multi-backend-adapter-candidates backends (car args) separate))
- (`sorted separate)
- (`duplicates (not separate))
- ((or `prefix `ignore-case `no-cache `require-match)
- (let (value)
- (cl-dolist (backend backends)
- (when (setq value (company--force-sync
- backend (cons command args) backend))
- (cl-return value)))))
- (_
- (let ((arg (car args)))
- (when (> (length arg) 0)
- (let ((backend (or (get-text-property 0 'company-backend arg)
- (car backends))))
- (apply backend command args))))))))
-
-(defun company--multi-backend-adapter-candidates (backends prefix separate)
- (let ((pairs (cl-loop for backend in backends
- when (equal (company--prefix-str
- (let ((company-backend backend))
- (company-call-backend 'prefix)))
- prefix)
- collect (cons (funcall backend 'candidates prefix)
- (company--multi-candidates-mapper
- backend
- separate
- ;; Small perf optimization: don't tag the
- ;; candidates received from the first
- ;; backend in the group.
- (not (eq backend (car backends))))))))
- (company--merge-async pairs (lambda (values) (apply #'append values)))))
-
-(defun company--multi-candidates-mapper (backend separate tag)
- (lambda (candidates)
- (when separate
- (let ((company-backend backend))
- (setq candidates
- (company--preprocess-candidates candidates))))
- (when tag
- (setq candidates
- (mapcar
- (lambda (str)
- (propertize str 'company-backend backend))
- candidates)))
- candidates))
-
-(defun company--merge-async (pairs merger)
- (let ((async (cl-loop for pair in pairs
- thereis
- (eq :async (car-safe (car pair))))))
- (if (not async)
- (funcall merger (cl-loop for (val . mapper) in pairs
- collect (funcall mapper val)))
- (cons
- :async
- (lambda (callback)
- (let* (lst
- (pending (mapcar #'car pairs))
- (finisher (lambda ()
- (unless pending
- (funcall callback
- (funcall merger
- (nreverse lst)))))))
- (dolist (pair pairs)
- (push nil lst)
- (let* ((cell lst)
- (val (car pair))
- (mapper (cdr pair))
- (this-finisher (lambda (res)
- (setq pending (delq val pending))
- (setcar cell (funcall mapper res))
- (funcall finisher))))
- (if (not (eq :async (car-safe val)))
- (funcall this-finisher val)
- (let ((fetcher (cdr val)))
- (funcall fetcher this-finisher)))))))))))
-
-(defun company--prefix-str (prefix)
- (or (car-safe prefix) prefix))
-
-;;; completion mechanism ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-prefix nil)
-
-(defvar-local company-candidates nil)
-
-(defvar-local company-candidates-length nil)
-
-(defvar-local company-candidates-cache nil)
-
-(defvar-local company-candidates-predicate nil)
-
-(defvar-local company-common nil)
-
-(defvar-local company-selection 0)
-
-(defvar-local company-selection-changed nil)
-
-(defvar-local company--manual-action nil
- "Non-nil, if manual completion took place.")
-
-(defvar-local company--manual-prefix nil)
-
-(defvar company--auto-completion nil
- "Non-nil when current candidate is being inserted automatically.
-Controlled by `company-auto-complete'.")
-
-(defvar-local company--point-max nil)
-
-(defvar-local company-point nil)
-
-(defvar company-timer nil)
-(defvar company-tooltip-timer nil)
-
-(defsubst company-strip-prefix (str)
- (substring str (length company-prefix)))
-
-(defun company--insert-candidate (candidate)
- (when (> (length candidate) 0)
- (setq candidate (substring-no-properties candidate))
- ;; XXX: Return value we check here is subject to change.
- (if (eq (company-call-backend 'ignore-case) 'keep-prefix)
- (insert (company-strip-prefix candidate))
- (unless (equal company-prefix candidate)
- (delete-region (- (point) (length company-prefix)) (point))
- (insert candidate)))))
-
-(defmacro company-with-candidate-inserted (candidate &rest body)
- "Evaluate BODY with CANDIDATE temporarily inserted.
-This is a tool for backends that need candidates inserted before they
-can retrieve meta-data for them."
- (declare (indent 1))
- `(let ((inhibit-modification-hooks t)
- (inhibit-point-motion-hooks t)
- (modified-p (buffer-modified-p)))
- (company--insert-candidate ,candidate)
- (unwind-protect
- (progn ,@body)
- (delete-region company-point (point))
- (set-buffer-modified-p modified-p))))
-
-(defun company-explicit-action-p ()
- "Return whether explicit completion action was taken by the user."
- (or company--manual-action
- company-selection-changed))
-
-(defun company-reformat (candidate)
- ;; company-ispell needs this, because the results are always lower-case
- ;; It's mory efficient to fix it only when they are displayed.
- ;; FIXME: Adopt the current text's capitalization instead?
- (if (eq (company-call-backend 'ignore-case) 'keep-prefix)
- (concat company-prefix (substring candidate (length company-prefix)))
- candidate))
-
-(defun company--should-complete ()
- (and (eq company-idle-delay 'now)
- (not (or buffer-read-only
- overriding-local-map))
- ;; Check if in the middle of entering a key combination.
- (or (equal (this-command-keys-vector) [])
- (not (keymapp (key-binding (this-command-keys-vector)))))
- (not (and transient-mark-mode mark-active))))
-
-(defun company--should-continue ()
- (or (eq t company-begin-commands)
- (eq t company-continue-commands)
- (if (eq 'not (car company-continue-commands))
- (not (memq this-command (cdr company-continue-commands)))
- (or (memq this-command company-begin-commands)
- (memq this-command company-continue-commands)
- (and (symbolp this-command)
- (string-match-p "\\`company-" (symbol-name this-command)))))))
-
-(defun company-call-frontends (command)
- (dolist (frontend company-frontends)
- (condition-case-unless-debug err
- (funcall frontend command)
- (error (error "Company: frontend %s error \"%s\" on command %s"
- frontend (error-message-string err) command)))))
-
-(defun company-set-selection (selection &optional force-update)
- (setq selection
- (if company-selection-wrap-around
- (mod selection company-candidates-length)
- (max 0 (min (1- company-candidates-length) selection))))
- (when (or force-update (not (equal selection company-selection)))
- (setq company-selection selection
- company-selection-changed t)
- (company-call-frontends 'update)))
-
-(defun company--group-lighter (candidate base)
- (let ((backend (or (get-text-property 0 'company-backend candidate)
- (cl-some (lambda (x) (and (not (keywordp x)) x))
- company-backend))))
- (when (and backend (symbolp backend))
- (let ((name (replace-regexp-in-string "company-\\|-company" ""
- (symbol-name backend))))
- (format "%s-<%s>" base name)))))
-
-(defun company-update-candidates (candidates)
- (setq company-candidates-length (length candidates))
- (if company-selection-changed
- ;; Try to restore the selection
- (let ((selected (nth company-selection company-candidates)))
- (setq company-selection 0
- company-candidates candidates)
- (when selected
- (catch 'found
- (while candidates
- (let ((candidate (pop candidates)))
- (when (and (string= candidate selected)
- (equal (company-call-backend 'annotation candidate)
- (company-call-backend 'annotation selected)))
- (throw 'found t)))
- (cl-incf company-selection))
- (setq company-selection 0
- company-selection-changed nil))))
- (setq company-selection 0
- company-candidates candidates))
- ;; Calculate common.
- (let ((completion-ignore-case (company-call-backend 'ignore-case)))
- ;; We want to support non-prefix completion, so filtering is the
- ;; responsibility of each respective backend, not ours.
- ;; On the other hand, we don't want to replace non-prefix input in
- ;; `company-complete-common', unless there's only one candidate.
- (setq company-common
- (if (cdr company-candidates)
- (let ((common (try-completion "" company-candidates)))
- (when (string-prefix-p company-prefix common
- completion-ignore-case)
- common))
- (car company-candidates)))))
-
-(defun company-calculate-candidates (prefix)
- (let ((candidates (cdr (assoc prefix company-candidates-cache)))
- (ignore-case (company-call-backend 'ignore-case)))
- (or candidates
- (when company-candidates-cache
- (let ((len (length prefix))
- (completion-ignore-case ignore-case)
- prev)
- (cl-dotimes (i (1+ len))
- (when (setq prev (cdr (assoc (substring prefix 0 (- len i))
- company-candidates-cache)))
- (setq candidates (all-completions prefix prev))
- (cl-return t)))))
- (progn
- ;; No cache match, call the backend.
- (setq candidates (company--preprocess-candidates
- (company--fetch-candidates prefix)))
- ;; Save in cache.
- (push (cons prefix candidates) company-candidates-cache)))
- ;; Only now apply the predicate and transformers.
- (setq candidates (company--postprocess-candidates candidates))
- (when candidates
- (if (or (cdr candidates)
- (not (eq t (compare-strings (car candidates) nil nil
- prefix nil nil ignore-case))))
- candidates
- ;; Already completed and unique; don't start.
- t))))
-
-(defun company--fetch-candidates (prefix)
- (let* ((non-essential (not (company-explicit-action-p)))
- (c (if (or company-selection-changed
- ;; FIXME: This is not ideal, but we have not managed to deal
- ;; with these situations in a better way yet.
- (company-require-match-p))
- (company-call-backend 'candidates prefix)
- (company-call-backend-raw 'candidates prefix))))
- (if (not (eq (car c) :async))
- c
- (let ((res 'none)
- (inhibit-redisplay t))
- (funcall
- (cdr c)
- (lambda (candidates)
- (when (eq res 'none)
- (push 'company-foo unread-command-events))
- (setq res candidates)))
- (if (company--flyspell-workaround-p)
- (while (and (eq res 'none)
- (not (input-pending-p)))
- (sleep-for company-async-wait))
- (while (and (eq res 'none)
- (sit-for 0.5 t))))
- (while (member (car unread-command-events)
- '(company-foo (t . company-foo)))
- (pop unread-command-events))
- (prog1
- (and (consp res) res)
- (setq res 'exited))))))
-
-(defun company--flyspell-workaround-p ()
- ;; https://debbugs.gnu.org/23980
- (and (bound-and-true-p flyspell-mode)
- (version< emacs-version "27")))
-
-(defun company--preprocess-candidates (candidates)
- (cl-assert (cl-every #'stringp candidates))
- (unless (company-call-backend 'sorted)
- (setq candidates (sort candidates 'string<)))
- (when (company-call-backend 'duplicates)
- (company--strip-duplicates candidates))
- candidates)
-
-(defun company--postprocess-candidates (candidates)
- (when (or company-candidates-predicate company-transformers)
- (setq candidates (copy-sequence candidates)))
- (when company-candidates-predicate
- (setq candidates (cl-delete-if-not company-candidates-predicate candidates)))
- (company--transform-candidates candidates))
-
-(defun company--strip-duplicates (candidates)
- (let ((c2 candidates)
- (annos 'unk))
- (while c2
- (setcdr c2
- (let ((str (pop c2)))
- (while (let ((str2 (car c2)))
- (if (not (equal str str2))
- (progn
- (setq annos 'unk)
- nil)
- (when (eq annos 'unk)
- (setq annos (list (company-call-backend
- 'annotation str))))
- (let ((anno2 (company-call-backend
- 'annotation str2)))
- (if (member anno2 annos)
- t
- (push anno2 annos)
- nil))))
- (pop c2))
- c2)))))
-
-(defun company--transform-candidates (candidates)
- (let ((c candidates))
- (dolist (tr company-transformers)
- (setq c (funcall tr c)))
- c))
-
-(defcustom company-occurrence-weight-function
- #'company-occurrence-prefer-closest-above
- "Function to weigh matches in `company-sort-by-occurrence'.
-It's called with three arguments: cursor position, the beginning and the
-end of the match."
- :type '(choice
- (const :tag "First above point, then below point"
- company-occurrence-prefer-closest-above)
- (const :tag "Prefer closest in any direction"
- company-occurrence-prefer-any-closest)))
-
-(defun company-occurrence-prefer-closest-above (pos match-beg match-end)
- "Give priority to the matches above point, then those below point."
- (if (< match-beg pos)
- (- pos match-end)
- (- match-beg (window-start))))
-
-(defun company-occurrence-prefer-any-closest (pos _match-beg match-end)
- "Give priority to the matches closest to the point."
- (abs (- pos match-end)))
-
-(defun company-sort-by-occurrence (candidates)
- "Sort CANDIDATES according to their occurrences.
-Searches for each in the currently visible part of the current buffer and
-prioritizes the matches according to `company-occurrence-weight-function'.
-The rest of the list is appended unchanged.
-Keywords and function definition names are ignored."
- (let* ((w-start (window-start))
- (w-end (window-end))
- (start-point (point))
- occurs
- (noccurs
- (save-excursion
- (cl-delete-if
- (lambda (candidate)
- (when (catch 'done
- (goto-char w-start)
- (while (search-forward candidate w-end t)
- (when (and (not (eq (point) start-point))
- (save-match-data
- (company--occurrence-predicate)))
- (throw 'done t))))
- (push
- (cons candidate
- (funcall company-occurrence-weight-function
- start-point
- (match-beginning 0)
- (match-end 0)))
- occurs)
- t))
- candidates))))
- (nconc
- (mapcar #'car (sort occurs (lambda (e1 e2) (<= (cdr e1) (cdr e2)))))
- noccurs)))
-
-(defun company--occurrence-predicate ()
- (defvar comint-last-prompt)
- (let ((beg (match-beginning 0))
- (end (match-end 0))
- (comint-last-prompt (bound-and-true-p comint-last-prompt)))
- (save-excursion
- (goto-char end)
- ;; Workaround for python-shell-completion-at-point's behavior:
- ;; https://github.com/company-mode/company-mode/issues/759
- ;; https://github.com/company-mode/company-mode/issues/549
- (when (derived-mode-p 'inferior-python-mode)
- (let ((lbp (line-beginning-position)))
- (setq comint-last-prompt (cons lbp lbp))))
- (and (not (memq (get-text-property (1- (point)) 'face)
- '(font-lock-function-name-face
- font-lock-keyword-face)))
- (let ((prefix (company--prefix-str
- (company-call-backend 'prefix))))
- (and (stringp prefix)
- (= (length prefix) (- end beg))))))))
-
-(defun company-sort-by-backend-importance (candidates)
- "Sort CANDIDATES as two priority groups.
-If `company-backend' is a function, do nothing. If it's a list, move
-candidates from backends before keyword `:with' to the front. Candidates
-from the rest of the backends in the group, if any, will be left at the end."
- (if (functionp company-backend)
- candidates
- (let ((low-priority (cdr (memq :with company-backend))))
- (if (null low-priority)
- candidates
- (sort candidates
- (lambda (c1 c2)
- (and
- (let ((b2 (get-text-property 0 'company-backend c2)))
- (and b2 (memq b2 low-priority)))
- (let ((b1 (get-text-property 0 'company-backend c1)))
- (or (not b1) (not (memq b1 low-priority)))))))))))
-
-(defun company-sort-prefer-same-case-prefix (candidates)
- "Prefer CANDIDATES with the exact same prefix.
-If a backend returns case insensitive matches, candidates with the an exact
-prefix match (same case) will be prioritized."
- (cl-loop for candidate in candidates
- if (string-prefix-p company-prefix candidate)
- collect candidate into same-case
- else collect candidate into other-case
- finally return (append same-case other-case)))
-
-(defun company-idle-begin (buf win tick pos)
- (and (eq buf (current-buffer))
- (eq win (selected-window))
- (eq tick (buffer-chars-modified-tick))
- (eq pos (point))
- (when (company-auto-begin)
- (company-input-noop)
- (let ((this-command 'company-idle-begin))
- (company-post-command)))))
-
-(defun company-auto-begin ()
- (and company-mode
- (not company-candidates)
- (let ((company-idle-delay 'now))
- (condition-case-unless-debug err
- (progn
- (company--perform)
- ;; Return non-nil if active.
- company-candidates)
- (error (message "Company: An error occurred in auto-begin")
- (message "%s" (error-message-string err))
- (company-cancel))
- (quit (company-cancel))))))
-
-;;;###autoload
-(defun company-manual-begin ()
- (interactive)
- (company-assert-enabled)
- (setq company--manual-action t)
- (unwind-protect
- (let ((company-minimum-prefix-length 0))
- (or company-candidates
- (company-auto-begin)))
- (unless company-candidates
- (setq company--manual-action nil))))
-
-(defun company-other-backend (&optional backward)
- (interactive (list current-prefix-arg))
- (company-assert-enabled)
- (let* ((after (if company-backend
- (cdr (member company-backend company-backends))
- company-backends))
- (before (cdr (member company-backend (reverse company-backends))))
- (next (if backward
- (append before (reverse after))
- (append after (reverse before)))))
- (company-cancel)
- (cl-dolist (backend next)
- (when (ignore-errors (company-begin-backend backend))
- (cl-return t))))
- (unless company-candidates
- (user-error "No other backend")))
-
-(defun company-require-match-p ()
- (let ((backend-value (company-call-backend 'require-match)))
- (or (eq backend-value t)
- (and (not (eq backend-value 'never))
- (if (functionp company-require-match)
- (funcall company-require-match)
- (eq company-require-match t))))))
-
-(defun company-auto-complete-p (input)
- "Return non-nil if INPUT should trigger auto-completion."
- (and (if (functionp company-auto-complete)
- (funcall company-auto-complete)
- company-auto-complete)
- (if (functionp company-auto-complete-chars)
- (funcall company-auto-complete-chars input)
- (if (consp company-auto-complete-chars)
- (memq (char-syntax (string-to-char input))
- company-auto-complete-chars)
- (string-match (regexp-quote (substring input 0 1))
- company-auto-complete-chars)))))
-
-(defun company--incremental-p ()
- (and (> (point) company-point)
- (> (point-max) company--point-max)
- (not (eq this-command 'backward-delete-char-untabify))
- (equal (buffer-substring (- company-point (length company-prefix))
- company-point)
- company-prefix)))
-
-(defun company--continue-failed (new-prefix)
- (cond
- ((and (or (not (company-require-match-p))
- ;; Don't require match if the new prefix
- ;; doesn't continue the old one, and the latter was a match.
- (not (stringp new-prefix))
- (<= (length new-prefix) (length company-prefix)))
- (member company-prefix company-candidates))
- ;; Last input was a success,
- ;; but we're treating it as an abort + input anyway,
- ;; like the `unique' case below.
- (company-cancel 'non-unique))
- ((company-require-match-p)
- ;; Wrong incremental input, but required match.
- (delete-char (- company-point (point)))
- (ding)
- (message "Matching input is required")
- company-candidates)
- (t (company-cancel))))
-
-(defun company--good-prefix-p (prefix)
- (and (stringp (company--prefix-str prefix)) ;excludes 'stop
- (or (eq (cdr-safe prefix) t)
- (let ((len (or (cdr-safe prefix) (length prefix))))
- (if company--manual-prefix
- (or (not company-abort-manual-when-too-short)
- ;; Must not be less than minimum or initial length.
- (>= len (min company-minimum-prefix-length
- (length company--manual-prefix))))
- (>= len company-minimum-prefix-length))))))
-
-(defun company--continue ()
- (when (company-call-backend 'no-cache company-prefix)
- ;; Don't complete existing candidates, fetch new ones.
- (setq company-candidates-cache nil))
- (let* ((new-prefix (company-call-backend 'prefix))
- (c (when (and (company--good-prefix-p new-prefix)
- (setq new-prefix (company--prefix-str new-prefix))
- (= (- (point) (length new-prefix))
- (- company-point (length company-prefix))))
- (company-calculate-candidates new-prefix))))
- (cond
- ((eq c t)
- ;; t means complete/unique.
- ;; Handle it like completion was aborted, to differentiate from user
- ;; calling one of Company's commands to insert the candidate,
- ;; not to trigger template expansion, etc.
- (company-cancel 'unique))
- ((consp c)
- ;; incremental match
- (setq company-prefix new-prefix)
- (company-update-candidates c)
- c)
- ((and (> (point) company-point)
- (company-auto-complete-p (buffer-substring-no-properties
- (point) company-point)))
- ;; auto-complete
- (save-excursion
- (goto-char company-point)
- (let ((company--auto-completion t))
- (company-complete-selection))
- nil))
- ((not (company--incremental-p))
- (company-cancel))
- (t (company--continue-failed new-prefix)))))
-
-(defun company--begin-new ()
- (let (prefix c)
- (cl-dolist (backend (if company-backend
- ;; prefer manual override
- (list company-backend)
- company-backends))
- (setq prefix
- (if (or (symbolp backend)
- (functionp backend))
- (when (company--maybe-init-backend backend)
- (let ((company-backend backend))
- (company-call-backend 'prefix)))
- (company--multi-backend-adapter backend 'prefix)))
- (when prefix
- (when (company--good-prefix-p prefix)
- (setq company-prefix (company--prefix-str prefix)
- company-backend backend
- c (company-calculate-candidates company-prefix))
- (if (not (consp c))
- (progn
- (when company--manual-action
- (message "No completion found"))
- (when (eq c t)
- ;; t means complete/unique.
- ;; Run the hooks anyway, to e.g. clear the cache.
- (company-cancel 'unique)))
- (when company--manual-action
- (setq company--manual-prefix prefix))
- (company-update-candidates c)
- (run-hook-with-args 'company-completion-started-hook
- (company-explicit-action-p))
- (company-call-frontends 'show)))
- (cl-return c)))))
-
-(defun company--perform ()
- (or (and company-candidates (company--continue))
- (and (company--should-complete) (company--begin-new)))
- (if (not company-candidates)
- (setq company-backend nil)
- (setq company-point (point)
- company--point-max (point-max))
- (company-ensure-emulation-alist)
- (company-enable-overriding-keymap company-active-map)
- (company-call-frontends 'update)))
-
-(defun company-cancel (&optional result)
- (let ((prefix company-prefix)
- (backend company-backend))
- (setq company-backend nil
- company-prefix nil
- company-candidates nil
- company-candidates-length nil
- company-candidates-cache nil
- company-candidates-predicate nil
- company-common nil
- company-selection 0
- company-selection-changed nil
- company--manual-action nil
- company--manual-prefix nil
- company--point-max nil
- company-point nil)
- (when company-timer
- (cancel-timer company-timer))
- (company-echo-cancel t)
- (company-search-mode 0)
- (company-call-frontends 'hide)
- (company-enable-overriding-keymap nil)
- (when prefix
- ;; FIXME: RESULT can also be e.g. `unique'. We should call
- ;; `company-completion-finished-hook' in that case, with right argument.
- (if (stringp result)
- (let ((company-backend backend))
- (run-hook-with-args 'company-completion-finished-hook result)
- (company-call-backend 'post-completion result))
- (run-hook-with-args 'company-completion-cancelled-hook result))))
- ;; Make return value explicit.
- nil)
-
-(defun company-abort ()
- (interactive)
- (company-cancel 'abort))
-
-(defun company-finish (result)
- (company--insert-candidate result)
- (company-cancel result))
-
-(defsubst company-keep (command)
- (and (symbolp command) (get command 'company-keep)))
-
-(defun company-pre-command ()
- (company--electric-restore-window-configuration)
- (unless (company-keep this-command)
- (condition-case-unless-debug err
- (when company-candidates
- (company-call-frontends 'pre-command)
- (unless (company--should-continue)
- (company-abort)))
- (error (message "Company: An error occurred in pre-command")
- (message "%s" (error-message-string err))
- (company-cancel))))
- (when company-timer
- (cancel-timer company-timer)
- (setq company-timer nil))
- (company-echo-cancel t)
- (company-uninstall-map))
-
-(defun company-post-command ()
- (when (and company-candidates
- (null this-command))
- ;; Happens when the user presses `C-g' while inside
- ;; `flyspell-post-command-hook', for example.
- ;; Or any other `post-command-hook' function that can call `sit-for',
- ;; or any quittable timer function.
- (company-abort)
- (setq this-command 'company-abort))
- (unless (company-keep this-command)
- (condition-case-unless-debug err
- (progn
- (unless (equal (point) company-point)
- (let (company-idle-delay) ; Against misbehavior while debugging.
- (company--perform)))
- (if company-candidates
- (company-call-frontends 'post-command)
- (and (or (numberp company-idle-delay)
- ;; Deprecated.
- (eq company-idle-delay t))
- (not defining-kbd-macro)
- (company--should-begin)
- (setq company-timer
- (run-with-timer (company--idle-delay) nil
- 'company-idle-begin
- (current-buffer) (selected-window)
- (buffer-chars-modified-tick) (point))))))
- (error (message "Company: An error occurred in post-command")
- (message "%s" (error-message-string err))
- (company-cancel))))
- (company-install-map))
-
-(defun company--idle-delay ()
- (if (memql company-idle-delay '(t 0 0.0))
- 0.01
- company-idle-delay))
-
-(defvar company--begin-inhibit-commands '(company-abort
- company-complete-mouse
- company-complete
- company-complete-common
- company-complete-selection
- company-complete-number)
- "List of commands after which idle completion is (still) disabled when
-`company-begin-commands' is t.")
-
-(defun company--should-begin ()
- (if (eq t company-begin-commands)
- (not (memq this-command company--begin-inhibit-commands))
- (or
- (memq this-command company-begin-commands)
- (and (symbolp this-command) (get this-command 'company-begin)))))
-
-;;; search ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defcustom company-search-regexp-function #'regexp-quote
- "Function to construct the search regexp from input.
-It's called with one argument, the current search input. It must return
-either a regexp without groups, or one where groups don't intersect and
-each one wraps a part of the input string."
- :type '(choice
- (const :tag "Exact match" regexp-quote)
- (const :tag "Words separated with spaces" company-search-words-regexp)
- (const :tag "Words separated with spaces, in any order"
- company-search-words-in-any-order-regexp)
- (const :tag "All characters in given order, with anything in between"
- company-search-flex-regexp)))
-
-(defvar-local company-search-string "")
-
-(defvar company-search-lighter '(" "
- (company-search-filtering "Filter" "Search")
- ": \""
- company-search-string
- "\""))
-
-(defvar-local company-search-filtering nil
- "Non-nil to filter the completion candidates by the search string")
-
-(defvar-local company--search-old-selection 0)
-
-(defvar-local company--search-old-changed nil)
-
-(defun company-search-words-regexp (input)
- (mapconcat (lambda (word) (format "\\(%s\\)" (regexp-quote word)))
- (split-string input " +" t) ".*"))
-
-(defun company-search-words-in-any-order-regexp (input)
- (let* ((words (mapcar (lambda (word) (format "\\(%s\\)" (regexp-quote word)))
- (split-string input " +" t)))
- (permutations (company--permutations words)))
- (mapconcat (lambda (words)
- (mapconcat #'identity words ".*"))
- permutations
- "\\|")))
-
-(defun company-search-flex-regexp (input)
- (if (zerop (length input))
- ""
- (concat (regexp-quote (string (aref input 0)))
- (mapconcat (lambda (c)
- (concat "[^" (string c) "]*"
- (regexp-quote (string c))))
- (substring input 1) ""))))
-
-(defun company--permutations (lst)
- (if (not lst)
- '(nil)
- (cl-mapcan
- (lambda (e)
- (mapcar (lambda (perm) (cons e perm))
- (company--permutations (cl-remove e lst :count 1))))
- lst)))
-
-(defun company--search (text lines)
- (let ((re (funcall company-search-regexp-function text))
- (i 0))
- (cl-dolist (line lines)
- (when (string-match-p re line (length company-prefix))
- (cl-return i))
- (cl-incf i))))
-
-(defun company-search-keypad ()
- (interactive)
- (let* ((name (symbol-name last-command-event))
- (last-command-event (aref name (1- (length name)))))
- (company-search-printing-char)))
-
-(defun company-search-printing-char ()
- (interactive)
- (company--search-assert-enabled)
- (let ((ss (concat company-search-string (string last-command-event))))
- (when company-search-filtering
- (company--search-update-predicate ss))
- (company--search-update-string ss)))
-
-(defun company--search-update-predicate (ss)
- (let* ((re (funcall company-search-regexp-function ss))
- (company-candidates-predicate
- (and (not (string= re ""))
- company-search-filtering
- (lambda (candidate) (string-match re candidate))))
- (cc (company-calculate-candidates company-prefix)))
- (unless cc (user-error "No match"))
- (company-update-candidates cc)))
-
-(defun company--search-update-string (new)
- (let* ((pos (company--search new (nthcdr company-selection company-candidates))))
- (if (null pos)
- (ding)
- (setq company-search-string new)
- (company-set-selection (+ company-selection pos) t))))
-
-(defun company--search-assert-input ()
- (company--search-assert-enabled)
- (when (string= company-search-string "")
- (user-error "Empty search string")))
-
-(defun company-search-repeat-forward ()
- "Repeat the incremental search in completion candidates forward."
- (interactive)
- (company--search-assert-input)
- (let ((pos (company--search company-search-string
- (cdr (nthcdr company-selection
- company-candidates)))))
- (if (null pos)
- (ding)
- (company-set-selection (+ company-selection pos 1) t))))
-
-(defun company-search-repeat-backward ()
- "Repeat the incremental search in completion candidates backwards."
- (interactive)
- (company--search-assert-input)
- (let ((pos (company--search company-search-string
- (nthcdr (- company-candidates-length
- company-selection)
- (reverse company-candidates)))))
- (if (null pos)
- (ding)
- (company-set-selection (- company-selection pos 1) t))))
-
-(defun company-search-toggle-filtering ()
- "Toggle `company-search-filtering'."
- (interactive)
- (company--search-assert-enabled)
- (setq company-search-filtering (not company-search-filtering))
- (let ((ss company-search-string))
- (company--search-update-predicate ss)
- (company--search-update-string ss)))
-
-(defun company-search-abort ()
- "Abort searching the completion candidates."
- (interactive)
- (company--search-assert-enabled)
- (company-search-mode 0)
- (company-set-selection company--search-old-selection t)
- (setq company-selection-changed company--search-old-changed))
-
-(defun company-search-other-char ()
- (interactive)
- (company--search-assert-enabled)
- (company-search-mode 0)
- (company--unread-this-command-keys))
-
-(defun company-search-delete-char ()
- (interactive)
- (company--search-assert-enabled)
- (if (string= company-search-string "")
- (ding)
- (let ((ss (substring company-search-string 0 -1)))
- (when company-search-filtering
- (company--search-update-predicate ss))
- (company--search-update-string ss))))
-
-(defvar company-search-map
- (let ((i 0)
- (keymap (make-keymap)))
- (if (fboundp 'max-char)
- (set-char-table-range (nth 1 keymap) (cons #x100 (max-char))
- 'company-search-printing-char)
- (with-no-warnings
- ;; obsolete in Emacs 23
- (let ((l (generic-character-list))
- (table (nth 1 keymap)))
- (while l
- (set-char-table-default table (car l) 'company-search-printing-char)
- (setq l (cdr l))))))
- (define-key keymap [t] 'company-search-other-char)
- (while (< i ?\s)
- (define-key keymap (make-string 1 i) 'company-search-other-char)
- (cl-incf i))
- (while (< i 256)
- (define-key keymap (vector i) 'company-search-printing-char)
- (cl-incf i))
- (dotimes (i 10)
- (define-key keymap (read (format "[kp-%s]" i)) 'company-search-keypad))
- (let ((meta-map (make-sparse-keymap)))
- (define-key keymap (char-to-string meta-prefix-char) meta-map)
- (define-key keymap [escape] meta-map))
- (define-key keymap (vector meta-prefix-char t) 'company-search-other-char)
- (define-key keymap (kbd "M-n") 'company-select-next)
- (define-key keymap (kbd "M-p") 'company-select-previous)
- (define-key keymap (kbd "<down>") 'company-select-next-or-abort)
- (define-key keymap (kbd "<up>") 'company-select-previous-or-abort)
- (define-key keymap "\e\e\e" 'company-search-other-char)
- (define-key keymap [escape escape escape] 'company-search-other-char)
- (define-key keymap (kbd "DEL") 'company-search-delete-char)
- (define-key keymap [backspace] 'company-search-delete-char)
- (define-key keymap "\C-g" 'company-search-abort)
- (define-key keymap "\C-s" 'company-search-repeat-forward)
- (define-key keymap "\C-r" 'company-search-repeat-backward)
- (define-key keymap "\C-o" 'company-search-toggle-filtering)
- (dotimes (i 10)
- (define-key keymap (read-kbd-macro (format "M-%d" i)) 'company-complete-number))
- keymap)
- "Keymap used for incrementally searching the completion candidates.")
-
-(define-minor-mode company-search-mode
- "Search mode for completion candidates.
-Don't start this directly, use `company-search-candidates' or
-`company-filter-candidates'."
- nil company-search-lighter nil
- (if company-search-mode
- (if (company-manual-begin)
- (progn
- (setq company--search-old-selection company-selection
- company--search-old-changed company-selection-changed)
- (company-call-frontends 'update)
- (company-enable-overriding-keymap company-search-map))
- (setq company-search-mode nil))
- (kill-local-variable 'company-search-string)
- (kill-local-variable 'company-search-filtering)
- (kill-local-variable 'company--search-old-selection)
- (kill-local-variable 'company--search-old-changed)
- (when company-backend
- (company--search-update-predicate "")
- (company-call-frontends 'update))
- (company-enable-overriding-keymap company-active-map)))
-
-(defun company--search-assert-enabled ()
- (company-assert-enabled)
- (unless company-search-mode
- (company-uninstall-map)
- (user-error "Company not in search mode")))
-
-(defun company-search-candidates ()
- "Start searching the completion candidates incrementally.
-
-\\<company-search-map>Search can be controlled with the commands:
-- `company-search-repeat-forward' (\\[company-search-repeat-forward])
-- `company-search-repeat-backward' (\\[company-search-repeat-backward])
-- `company-search-abort' (\\[company-search-abort])
-- `company-search-delete-char' (\\[company-search-delete-char])
-
-Regular characters are appended to the search string.
-
-Customize `company-search-regexp-function' to change how the input
-is interpreted when searching.
-
-The command `company-search-toggle-filtering' (\\[company-search-toggle-filtering])
-uses the search string to filter the completion candidates."
- (interactive)
- (company-search-mode 1))
-
-(defvar company-filter-map
- (let ((keymap (make-keymap)))
- (define-key keymap [remap company-search-printing-char]
- 'company-filter-printing-char)
- (set-keymap-parent keymap company-search-map)
- keymap)
- "Keymap used for incrementally searching the completion candidates.")
-
-(defun company-filter-candidates ()
- "Start filtering the completion candidates incrementally.
-This works the same way as `company-search-candidates' immediately
-followed by `company-search-toggle-filtering'."
- (interactive)
- (company-search-mode 1)
- (setq company-search-filtering t))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun company-select-next (&optional arg)
- "Select the next candidate in the list.
-
-With ARG, move by that many elements."
- (interactive "p")
- (when (company-manual-begin)
- (company-set-selection (+ (or arg 1) company-selection))))
-
-(defun company-select-previous (&optional arg)
- "Select the previous candidate in the list.
-
-With ARG, move by that many elements."
- (interactive "p")
- (company-select-next (if arg (- arg) -1)))
-
-(defun company-select-next-or-abort (&optional arg)
- "Select the next candidate if more than one, else abort
-and invoke the normal binding.
-
-With ARG, move by that many elements."
- (interactive "p")
- (if (> company-candidates-length 1)
- (company-select-next arg)
- (company-abort)
- (company--unread-this-command-keys)))
-
-(defun company-select-previous-or-abort (&optional arg)
- "Select the previous candidate if more than one, else abort
-and invoke the normal binding.
-
-With ARG, move by that many elements."
- (interactive "p")
- (if (> company-candidates-length 1)
- (company-select-previous arg)
- (company-abort)
- (company--unread-this-command-keys)))
-
-(defun company-next-page ()
- "Select the candidate one page further."
- (interactive)
- (when (company-manual-begin)
- (if (and company-selection-wrap-around
- (= company-selection (1- company-candidates-length)))
- (company-set-selection 0)
- (let (company-selection-wrap-around)
- (company-set-selection (+ company-selection
- company-tooltip-limit))))))
-
-(defun company-previous-page ()
- "Select the candidate one page earlier."
- (interactive)
- (when (company-manual-begin)
- (if (and company-selection-wrap-around
- (zerop company-selection))
- (company-set-selection (1- company-candidates-length))
- (let (company-selection-wrap-around)
- (company-set-selection (- company-selection
- company-tooltip-limit))))))
-
-(defvar company-pseudo-tooltip-overlay)
-
-(defvar company-tooltip-offset)
-
-(defun company--inside-tooltip-p (event-col-row row height)
- (let* ((ovl company-pseudo-tooltip-overlay)
- (column (overlay-get ovl 'company-column))
- (width (overlay-get ovl 'company-width))
- (evt-col (car event-col-row))
- (evt-row (cdr event-col-row)))
- (and (>= evt-col column)
- (< evt-col (+ column width))
- (if (> height 0)
- (and (> evt-row row)
- (<= evt-row (+ row height) ))
- (and (< evt-row row)
- (>= evt-row (+ row height)))))))
-
-(defun company--event-col-row (event)
- (company--posn-col-row (event-start event)))
-
-(defun company-select-mouse (event)
- "Select the candidate picked by the mouse."
- (interactive "e")
- (let ((event-col-row (company--event-col-row event))
- (ovl-row (company--row))
- (ovl-height (and company-pseudo-tooltip-overlay
- (min (overlay-get company-pseudo-tooltip-overlay
- 'company-height)
- company-candidates-length))))
- (if (and ovl-height
- (company--inside-tooltip-p event-col-row ovl-row ovl-height))
- (progn
- (company-set-selection (+ (cdr event-col-row)
- (1- company-tooltip-offset)
- (if (and (eq company-tooltip-offset-display 'lines)
- (not (zerop company-tooltip-offset)))
- -1 0)
- (- ovl-row)
- (if (< ovl-height 0)
- (- 1 ovl-height)
- 0)))
- t)
- (company-abort)
- (company--unread-this-command-keys)
- nil)))
-
-(defun company-complete-mouse (event)
- "Insert the candidate picked by the mouse."
- (interactive "e")
- (when (company-select-mouse event)
- (company-complete-selection)))
-
-(defun company-complete-selection ()
- "Insert the selected candidate."
- (interactive)
- (when (company-manual-begin)
- (let ((result (nth company-selection company-candidates)))
- (company-finish result))))
-
-(defun company-complete-common ()
- "Insert the common part of all candidates."
- (interactive)
- (when (company-manual-begin)
- (if (and (not (cdr company-candidates))
- (equal company-common (car company-candidates)))
- (company-complete-selection)
- (company--insert-candidate company-common))))
-
-(defun company-complete-common-or-cycle (&optional arg)
- "Insert the common part of all candidates, or select the next one.
-
-With ARG, move by that many elements."
- (interactive "p")
- (when (company-manual-begin)
- (let ((tick (buffer-chars-modified-tick)))
- (call-interactively 'company-complete-common)
- (when (eq tick (buffer-chars-modified-tick))
- (let ((company-selection-wrap-around t)
- (current-prefix-arg arg))
- (call-interactively 'company-select-next))))))
-
-(defun company-indent-or-complete-common ()
- "Indent the current line or region, or complete the common part."
- (interactive)
- (cond
- ((use-region-p)
- (indent-region (region-beginning) (region-end)))
- ((memq indent-line-function
- '(indent-relative indent-relative-maybe))
- (company-complete-common))
- ((let ((old-point (point))
- (old-tick (buffer-chars-modified-tick))
- (tab-always-indent t))
- (call-interactively #'indent-for-tab-command)
- (when (and (eq old-point (point))
- (eq old-tick (buffer-chars-modified-tick)))
- (company-complete-common))))))
-
-(defun company-select-next-if-tooltip-visible-or-complete-selection ()
- "Insert selection if appropriate, or select the next candidate.
-Insert selection if only preview is showing or only one candidate,
-otherwise select the next candidate."
- (interactive)
- (if (and (company-tooltip-visible-p) (> company-candidates-length 1))
- (call-interactively 'company-select-next)
- (call-interactively 'company-complete-selection)))
-
-;;;###autoload
-(defun company-complete ()
- "Insert the common part of all candidates or the current selection.
-The first time this is called, the common part is inserted, the second
-time, or when the selection has been changed, the selected candidate is
-inserted."
- (interactive)
- (when (company-manual-begin)
- (if (or company-selection-changed
- (eq last-command 'company-complete-common))
- (call-interactively 'company-complete-selection)
- (call-interactively 'company-complete-common)
- (setq this-command 'company-complete-common))))
-
-(defun company-complete-number (n)
- "Insert the Nth candidate visible in the tooltip.
-To show the number next to the candidates in some backends, enable
-`company-show-numbers'. When called interactively, uses the last typed
-character, stripping the modifiers. That character must be a digit."
- (interactive
- (list (let* ((type (event-basic-type last-command-event))
- (char (if (characterp type)
- ;; Number on the main row.
- type
- ;; Keypad number, if bound directly.
- (car (last (string-to-list (symbol-name type))))))
- (n (- char ?0)))
- (if (zerop n) 10 n))))
- (when (company-manual-begin)
- (and (or (< n 1) (> n (- company-candidates-length
- company-tooltip-offset)))
- (user-error "No candidate number %d" n))
- (cl-decf n)
- (company-finish (nth (+ n company-tooltip-offset)
- company-candidates))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defconst company-space-strings-limit 100)
-
-(defconst company-space-strings
- (let (lst)
- (dotimes (i company-space-strings-limit)
- (push (make-string (- company-space-strings-limit 1 i) ?\ ) lst))
- (apply 'vector lst)))
-
-(defun company-space-string (len)
- (if (< len company-space-strings-limit)
- (aref company-space-strings len)
- (make-string len ?\ )))
-
-(defun company-safe-substring (str from &optional to)
- (let ((bis buffer-invisibility-spec))
- (if (> from (string-width str))
- ""
- (with-temp-buffer
- (setq buffer-invisibility-spec bis)
- (insert str)
- (move-to-column from)
- (let ((beg (point)))
- (if to
- (progn
- (move-to-column to)
- (concat (buffer-substring beg (point))
- (let ((padding (- to (current-column))))
- (when (> padding 0)
- (company-space-string padding)))))
- (buffer-substring beg (point-max))))))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-last-metadata nil)
-
-(defun company-fetch-metadata ()
- (let ((selected (nth company-selection company-candidates)))
- (unless (eq selected (car company-last-metadata))
- (setq company-last-metadata
- (cons selected (company-call-backend 'meta selected))))
- (cdr company-last-metadata)))
-
-(defun company-doc-buffer (&optional string)
- (with-current-buffer (get-buffer-create "*company-documentation*")
- (erase-buffer)
- (when string
- (save-excursion
- (insert string)))
- (current-buffer)))
-
-(defvar company--electric-saved-window-configuration nil)
-
-(defvar company--electric-commands
- '(scroll-other-window scroll-other-window-down mwheel-scroll)
- "List of Commands that won't break out of electric commands.")
-
-(defun company--electric-restore-window-configuration ()
- "Restore window configuration (after electric commands)."
- (when (and company--electric-saved-window-configuration
- (not (memq this-command company--electric-commands)))
- (set-window-configuration company--electric-saved-window-configuration)
- (setq company--electric-saved-window-configuration nil)))
-
-(defmacro company--electric-do (&rest body)
- (declare (indent 0) (debug t))
- `(when (company-manual-begin)
- (cl-assert (null company--electric-saved-window-configuration))
- (setq company--electric-saved-window-configuration (current-window-configuration))
- (let ((height (window-height))
- (row (company--row)))
- ,@body
- (and (< (window-height) height)
- (< (- (window-height) row 2) company-tooltip-limit)
- (recenter (- (window-height) row 2))))))
-
-(defun company--unread-this-command-keys ()
- (when (> (length (this-command-keys)) 0)
- (setq unread-command-events (nconc
- (listify-key-sequence (this-command-keys))
- unread-command-events))
- (clear-this-command-keys t)))
-
-(defun company-show-doc-buffer ()
- "Temporarily show the documentation buffer for the selection."
- (interactive)
- (let (other-window-scroll-buffer)
- (company--electric-do
- (let* ((selected (nth company-selection company-candidates))
- (doc-buffer (or (company-call-backend 'doc-buffer selected)
- (user-error "No documentation available")))
- start)
- (when (consp doc-buffer)
- (setq start (cdr doc-buffer)
- doc-buffer (car doc-buffer)))
- (setq other-window-scroll-buffer (get-buffer doc-buffer))
- (let ((win (display-buffer doc-buffer t)))
- (set-window-start win (if start start (point-min))))))))
-(put 'company-show-doc-buffer 'company-keep t)
-
-(defun company-show-location ()
- "Temporarily display a buffer showing the selected candidate in context."
- (interactive)
- (let (other-window-scroll-buffer)
- (company--electric-do
- (let* ((selected (nth company-selection company-candidates))
- (location (company-call-backend 'location selected))
- (pos (or (cdr location) (user-error "No location available")))
- (buffer (or (and (bufferp (car location)) (car location))
- (find-file-noselect (car location) t))))
- (setq other-window-scroll-buffer (get-buffer buffer))
- (with-selected-window (display-buffer buffer t)
- (save-restriction
- (widen)
- (if (bufferp (car location))
- (goto-char pos)
- (goto-char (point-min))
- (forward-line (1- pos))))
- (set-window-start nil (point)))))))
-(put 'company-show-location 'company-keep t)
-
-;;; package functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-callback nil)
-
-(defun company-remove-callback (&optional ignored)
- (remove-hook 'company-completion-finished-hook company-callback t)
- (remove-hook 'company-completion-cancelled-hook 'company-remove-callback t)
- (remove-hook 'company-completion-finished-hook 'company-remove-callback t))
-
-(defun company-begin-backend (backend &optional callback)
- "Start a completion at point using BACKEND."
- (interactive (let ((val (completing-read "Company backend: "
- obarray
- 'functionp nil "company-")))
- (when val
- (list (intern val)))))
- (when (setq company-callback callback)
- (add-hook 'company-completion-finished-hook company-callback nil t))
- (add-hook 'company-completion-cancelled-hook 'company-remove-callback nil t)
- (add-hook 'company-completion-finished-hook 'company-remove-callback nil t)
- (setq company-backend backend)
- ;; Return non-nil if active.
- (or (company-manual-begin)
- (user-error "Cannot complete at point")))
-
-(defun company-begin-with (candidates
- &optional prefix-length require-match callback)
- "Start a completion at point.
-CANDIDATES is the list of candidates to use and PREFIX-LENGTH is the length
-of the prefix that already is in the buffer before point.
-It defaults to 0.
-
-CALLBACK is a function called with the selected result if the user
-successfully completes the input.
-
-Example: \(company-begin-with '\(\"foo\" \"foobar\" \"foobarbaz\"\)\)"
- (let ((begin-marker (copy-marker (point) t)))
- (company-begin-backend
- (lambda (command &optional arg &rest ignored)
- (pcase command
- (`prefix
- (when (equal (point) (marker-position begin-marker))
- (buffer-substring (- (point) (or prefix-length 0)) (point))))
- (`candidates
- (all-completions arg candidates))
- (`require-match
- require-match)))
- callback)))
-
-(declare-function find-library-name "find-func")
-(declare-function lm-version "lisp-mnt")
-
-(defun company-version (&optional show-version)
- "Get the Company version as string.
-
-If SHOW-VERSION is non-nil, show the version in the echo area."
- (interactive (list t))
- (with-temp-buffer
- (require 'find-func)
- (insert-file-contents (find-library-name "company"))
- (require 'lisp-mnt)
- (if show-version
- (message "Company version: %s" (lm-version))
- (lm-version))))
-
-(defun company-diag ()
- "Pop a buffer with information about completions at point."
- (interactive)
- (let* ((bb company-backends)
- (mode (symbol-name major-mode))
- backend
- (prefix (cl-loop for b in bb
- thereis (let ((company-backend b))
- (setq backend b)
- (company-call-backend 'prefix))))
- cc annotations)
- (when (or (stringp prefix) (consp prefix))
- (let ((company-backend backend))
- (condition-case nil
- (setq cc (company-call-backend 'candidates (company--prefix-str prefix))
- annotations
- (mapcar
- (lambda (c) (cons c (company-call-backend 'annotation c)))
- cc))
- (error (setq annotations 'error)))))
- (pop-to-buffer (get-buffer-create "*company-diag*"))
- (setq buffer-read-only nil)
- (erase-buffer)
- (insert (format "Emacs %s (%s) of %s on %s"
- emacs-version system-configuration
- (format-time-string "%Y-%m-%d" emacs-build-time)
- emacs-build-system))
- (insert "\nCompany " (company-version) "\n\n")
- (insert "company-backends: " (pp-to-string bb))
- (insert "\n")
- (insert "Used backend: " (pp-to-string backend))
- (insert "\n")
- (insert "Major mode: " mode)
- (insert "\n")
- (insert "Prefix: " (pp-to-string prefix))
- (insert "\n")
- (insert (message "Completions:"))
- (unless cc (insert " none"))
- (if (eq annotations 'error)
- (insert "(error fetching)")
- (save-excursion
- (dolist (c annotations)
- (insert "\n " (prin1-to-string (car c)))
- (when (cdr c)
- (insert " " (prin1-to-string (cdr c)))))))
- (special-mode)))
-
-;;; pseudo-tooltip ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-pseudo-tooltip-overlay nil)
-
-(defvar-local company-tooltip-offset 0)
-
-(defun company-tooltip--lines-update-offset (selection num-lines limit)
- (cl-decf limit 2)
- (setq company-tooltip-offset
- (max (min selection company-tooltip-offset)
- (- selection -1 limit)))
-
- (when (<= company-tooltip-offset 1)
- (cl-incf limit)
- (setq company-tooltip-offset 0))
-
- (when (>= company-tooltip-offset (- num-lines limit 1))
- (cl-incf limit)
- (when (= selection (1- num-lines))
- (cl-decf company-tooltip-offset)
- (when (<= company-tooltip-offset 1)
- (setq company-tooltip-offset 0)
- (cl-incf limit))))
-
- limit)
-
-(defun company-tooltip--simple-update-offset (selection _num-lines limit)
- (setq company-tooltip-offset
- (if (< selection company-tooltip-offset)
- selection
- (max company-tooltip-offset
- (- selection limit -1)))))
-
-;;; propertize
-
-(defsubst company-round-tab (arg)
- (* (/ (+ arg tab-width) tab-width) tab-width))
-
-(defun company-plainify (str)
- (let ((prefix (get-text-property 0 'line-prefix str)))
- (when prefix ; Keep the original value unmodified, for no special reason.
- (setq str (concat prefix str))
- (remove-text-properties 0 (length str) '(line-prefix) str)))
- (let* ((pieces (split-string str "\t"))
- (copy pieces))
- (while (cdr copy)
- (setcar copy (company-safe-substring
- (car copy) 0 (company-round-tab (string-width (car copy)))))
- (pop copy))
- (apply 'concat pieces)))
-
-(defun company-fill-propertize (value annotation width selected left right)
- (let* ((margin (length left))
- (common (or (company-call-backend 'match value)
- (if company-common
- (string-width company-common)
- 0)))
- (_ (setq value (company--pre-render value)
- annotation (and annotation (company--pre-render annotation t))))
- (ann-ralign company-tooltip-align-annotations)
- (ann-truncate (< width
- (+ (length value) (length annotation)
- (if ann-ralign 1 0))))
- (ann-start (+ margin
- (if ann-ralign
- (if ann-truncate
- (1+ (length value))
- (- width (length annotation)))
- (length value))))
- (ann-end (min (+ ann-start (length annotation)) (+ margin width)))
- (line (concat left
- (if (or ann-truncate (not ann-ralign))
- (company-safe-substring
- (concat value
- (when (and annotation ann-ralign) " ")
- annotation)
- 0 width)
- (concat
- (company-safe-substring value 0
- (- width (length annotation)))
- annotation))
- right)))
- (setq width (+ width margin (length right)))
-
- (font-lock-append-text-property 0 width 'mouse-face
- 'company-tooltip-mouse
- line)
- (when (< ann-start ann-end)
- (font-lock-append-text-property ann-start ann-end 'face
- (if selected
- 'company-tooltip-annotation-selection
- 'company-tooltip-annotation)
- line))
- (cl-loop
- with width = (- width (length right))
- for (comp-beg . comp-end) in (if (integerp common) `((0 . ,common)) common)
- for inline-beg = (+ margin comp-beg)
- for inline-end = (min (+ margin comp-end) width)
- when (< inline-beg width)
- do (font-lock-prepend-text-property inline-beg inline-end 'face
- (if selected
- 'company-tooltip-common-selection
- 'company-tooltip-common)
- line))
- (when (let ((re (funcall company-search-regexp-function
- company-search-string)))
- (and (not (string= re ""))
- (string-match re value (length company-prefix))))
- (pcase-dolist (`(,mbeg . ,mend) (company--search-chunks))
- (let ((beg (+ margin mbeg))
- (end (+ margin mend))
- (width (- width (length right))))
- (when (< beg width)
- (font-lock-prepend-text-property beg (min end width) 'face
- (if selected
- 'company-tooltip-search-selection
- 'company-tooltip-search)
- line)))))
- (when selected
- (font-lock-append-text-property 0 width 'face
- 'company-tooltip-selection
- line))
- (font-lock-append-text-property 0 width 'face
- 'company-tooltip
- line)
- line))
-
-(defun company--search-chunks ()
- (let ((md (match-data t))
- res)
- (if (<= (length md) 2)
- (push (cons (nth 0 md) (nth 1 md)) res)
- (while (setq md (nthcdr 2 md))
- (when (car md)
- (push (cons (car md) (cadr md)) res))))
- res))
-
-(defun company--pre-render (str &optional annotation-p)
- (or (company-call-backend 'pre-render str annotation-p)
- (progn
- (when (or (text-property-not-all 0 (length str) 'face nil str)
- (text-property-not-all 0 (length str) 'mouse-face nil str))
- (setq str (copy-sequence str))
- (remove-text-properties 0 (length str)
- '(face nil font-lock-face nil mouse-face nil)
- str))
- str)))
-
-(defun company--clean-string (str)
- (replace-regexp-in-string
- "\\([^[:graph:] ]\\)\\|\\(\ufeff\\)\\|[[:multibyte:]]"
- (lambda (match)
- (cond
- ((match-beginning 1)
- ;; FIXME: Better char for 'non-printable'?
- ;; We shouldn't get any of these, but sometimes we might.
- "\u2017")
- ((match-beginning 2)
- ;; Zero-width non-breakable space.
- "")
- ((> (string-width match) 1)
- (concat
- (make-string (1- (string-width match)) ?\ufeff)
- match))
- (t match)))
- str))
-
-;;; replace
-
-(defun company-buffer-lines (beg end)
- (goto-char beg)
- (let (lines lines-moved)
- (while (and (not (eobp)) ; http://debbugs.gnu.org/19553
- (> (setq lines-moved (vertical-motion 1)) 0)
- (<= (point) end))
- (let ((bound (min end (point))))
- ;; A visual line can contain several physical lines (e.g. with outline's
- ;; folding overlay). Take only the first one.
- (push (buffer-substring beg
- (save-excursion
- (goto-char beg)
- (re-search-forward "$" bound 'move)
- (point)))
- lines))
- ;; One physical line can be displayed as several visual ones as well:
- ;; add empty strings to the list, to even the count.
- (dotimes (_ (1- lines-moved))
- (push "" lines))
- (setq beg (point)))
- (unless (eq beg end)
- (push (buffer-substring beg end) lines))
- (nreverse lines)))
-
-(defun company-modify-line (old new offset)
- (concat (company-safe-substring old 0 offset)
- new
- (company-safe-substring old (+ offset (length new)))))
-
-(defsubst company--window-height ()
- (if (fboundp 'window-screen-lines)
- (floor (window-screen-lines))
- (window-body-height)))
-
-(defun company--window-width ()
- (let ((ww (window-body-width)))
- ;; Account for the line continuation column.
- (when (zerop (cadr (window-fringes)))
- (cl-decf ww))
- (when (bound-and-true-p display-line-numbers)
- (cl-decf ww (+ 2 (line-number-display-width))))
- (unless (or (display-graphic-p)
- (version< "24.3.1" emacs-version))
- ;; Emacs 24.3 and earlier included margins
- ;; in window-width when in TTY.
- (cl-decf ww
- (let ((margins (window-margins)))
- (+ (or (car margins) 0)
- (or (cdr margins) 0)))))
- (when (and word-wrap
- (version< emacs-version "24.4.51.5"))
- ;; http://debbugs.gnu.org/19300
- (cl-decf ww))
- ;; whitespace-mode with newline-mark
- (when (and buffer-display-table
- (aref buffer-display-table ?\n))
- (cl-decf ww (1- (length (aref buffer-display-table ?\n)))))
- ww))
-
-(defun company--replacement-string (lines old column nl &optional align-top)
- (cl-decf column company-tooltip-margin)
-
- (when (and align-top company-tooltip-flip-when-above)
- (setq lines (reverse lines)))
-
- (let ((width (length (car lines)))
- (remaining-cols (- (+ (company--window-width) (window-hscroll))
- column)))
- (when (> width remaining-cols)
- (cl-decf column (- width remaining-cols))))
-
- (let ((offset (and (< column 0) (- column)))
- new)
- (when offset
- (setq column 0))
- (when align-top
- ;; untouched lines first
- (dotimes (_ (- (length old) (length lines)))
- (push (pop old) new)))
- ;; length into old lines.
- (while old
- (push (company-modify-line (pop old)
- (company--offset-line (pop lines) offset)
- column)
- new))
- ;; Append whole new lines.
- (while lines
- (push (concat (company-space-string column)
- (company--offset-line (pop lines) offset))
- new))
-
- (let ((str (concat (when nl " \n")
- (mapconcat 'identity (nreverse new) "\n")
- "\n")))
- (font-lock-append-text-property 0 (length str) 'face 'default str)
- (when nl (put-text-property 0 1 'cursor t str))
- str)))
-
-(defun company--offset-line (line offset)
- (if (and offset line)
- (substring line offset)
- line))
-
-(defun company--create-lines (selection limit)
- (let ((len company-candidates-length)
- (window-width (company--window-width))
- lines
- width
- lines-copy
- items
- previous
- remainder
- scrollbar-bounds)
-
- ;; Maybe clear old offset.
- (when (< len (+ company-tooltip-offset limit))
- (setq company-tooltip-offset 0))
-
- ;; Scroll to offset.
- (if (eq company-tooltip-offset-display 'lines)
- (setq limit (company-tooltip--lines-update-offset selection len limit))
- (company-tooltip--simple-update-offset selection len limit))
-
- (cond
- ((eq company-tooltip-offset-display 'scrollbar)
- (setq scrollbar-bounds (company--scrollbar-bounds company-tooltip-offset
- limit len)))
- ((eq company-tooltip-offset-display 'lines)
- (when (> company-tooltip-offset 0)
- (setq previous (format "...(%d)" company-tooltip-offset)))
- (setq remainder (- len limit company-tooltip-offset)
- remainder (when (> remainder 0)
- (setq remainder (format "...(%d)" remainder))))))
-
- (cl-decf selection company-tooltip-offset)
- (setq width (max (length previous) (length remainder))
- lines (nthcdr company-tooltip-offset company-candidates)
- len (min limit len)
- lines-copy lines)
-
- (cl-decf window-width (* 2 company-tooltip-margin))
- (when scrollbar-bounds (cl-decf window-width))
-
- (dotimes (_ len)
- (let* ((value (pop lines-copy))
- (annotation (company-call-backend 'annotation value)))
- (setq value (company--clean-string (company-reformat value)))
- (when annotation
- (setq annotation (company--clean-string annotation))
- (when company-tooltip-align-annotations
- ;; `lisp-completion-at-point' adds a space.
- (setq annotation (comment-string-strip annotation t nil))))
- (push (cons value annotation) items)
- (setq width (max (+ (length value)
- (if (and annotation company-tooltip-align-annotations)
- (1+ (length annotation))
- (length annotation)))
- width))))
-
- (setq width (min window-width
- company-tooltip-maximum-width
- (max company-tooltip-minimum-width
- (if company-show-numbers
- (+ 2 width)
- width))))
-
- (let ((items (nreverse items))
- (numbered (if company-show-numbers 0 99999))
- new)
- (when previous
- (push (company--scrollpos-line previous width) new))
-
- (dotimes (i len)
- (let* ((item (pop items))
- (str (car item))
- (annotation (cdr item))
- (right (company-space-string company-tooltip-margin))
- (width width))
- (when (< numbered 10)
- (cl-decf width 2)
- (cl-incf numbered)
- (setq right (concat (format " %d" (mod numbered 10)) right)))
- (push (concat
- (company-fill-propertize str annotation
- width (equal i selection)
- (company-space-string
- company-tooltip-margin)
- right)
- (when scrollbar-bounds
- (company--scrollbar i scrollbar-bounds)))
- new)))
-
- (when remainder
- (push (company--scrollpos-line remainder width) new))
-
- (nreverse new))))
-
-(defun company--scrollbar-bounds (offset limit length)
- (when (> length limit)
- (let* ((size (ceiling (* limit (float limit)) length))
- (lower (floor (* limit (float offset)) length))
- (upper (+ lower size -1)))
- (cons lower upper))))
-
-(defun company--scrollbar (i bounds)
- (propertize " " 'face
- (if (and (>= i (car bounds)) (<= i (cdr bounds)))
- 'company-scrollbar-fg
- 'company-scrollbar-bg)))
-
-(defun company--scrollpos-line (text width)
- (propertize (concat (company-space-string company-tooltip-margin)
- (company-safe-substring text 0 width)
- (company-space-string company-tooltip-margin))
- 'face 'company-tooltip))
-
-;; show
-
-(defun company--pseudo-tooltip-height ()
- "Calculate the appropriate tooltip height.
-Returns a negative number if the tooltip should be displayed above point."
- (let* ((lines (company--row))
- (below (- (company--window-height) 1 lines)))
- (if (and (< below (min company-tooltip-minimum company-candidates-length))
- (> lines below))
- (- (max 3 (min company-tooltip-limit lines)))
- (max 3 (min company-tooltip-limit below)))))
-
-(defun company-pseudo-tooltip-show (row column selection)
- (company-pseudo-tooltip-hide)
-
- (let* ((height (company--pseudo-tooltip-height))
- above)
-
- (when (< height 0)
- (setq row (+ row height -1)
- above t))
-
- (let (nl beg end ov args)
- (save-excursion
- (setq nl (< (move-to-window-line row) row)
- beg (point)
- end (save-excursion
- (move-to-window-line (+ row (abs height)))
- (point))
- ov (make-overlay beg end nil t)
- args (list (mapcar 'company-plainify
- (company-buffer-lines beg end))
- column nl above)))
-
- (setq company-pseudo-tooltip-overlay ov)
- (overlay-put ov 'company-replacement-args args)
-
- (let ((lines (company--create-lines selection (abs height))))
- (overlay-put ov 'company-display
- (apply 'company--replacement-string lines args))
- (overlay-put ov 'company-width (string-width (car lines))))
-
- (overlay-put ov 'company-column column)
- (overlay-put ov 'company-height height))))
-
-(defun company-pseudo-tooltip-show-at-point (pos column-offset)
- (let* ((col-row (company--col-row pos))
- (col (- (car col-row) column-offset)))
- (when (< col 0) (setq col 0))
- (company-pseudo-tooltip-show (1+ (cdr col-row)) col company-selection)))
-
-(defun company-pseudo-tooltip-edit (selection)
- (let* ((height (overlay-get company-pseudo-tooltip-overlay 'company-height))
- (lines (company--create-lines selection (abs height))))
- (overlay-put company-pseudo-tooltip-overlay 'company-width
- (string-width (car lines)))
- (overlay-put company-pseudo-tooltip-overlay 'company-display
- (apply 'company--replacement-string
- lines
- (overlay-get company-pseudo-tooltip-overlay
- 'company-replacement-args)))))
-
-(defun company-pseudo-tooltip-hide ()
- (when company-pseudo-tooltip-overlay
- (delete-overlay company-pseudo-tooltip-overlay)
- (setq company-pseudo-tooltip-overlay nil)))
-
-(defun company-pseudo-tooltip-hide-temporarily ()
- (when (overlayp company-pseudo-tooltip-overlay)
- (overlay-put company-pseudo-tooltip-overlay 'invisible nil)
- (overlay-put company-pseudo-tooltip-overlay 'line-prefix nil)
- (overlay-put company-pseudo-tooltip-overlay 'after-string nil)
- (overlay-put company-pseudo-tooltip-overlay 'display nil)))
-
-(defun company-pseudo-tooltip-unhide ()
- (when company-pseudo-tooltip-overlay
- (let* ((ov company-pseudo-tooltip-overlay)
- (disp (overlay-get ov 'company-display)))
- ;; Beat outline's folding overlays, at least.
- (overlay-put ov 'priority 1)
- ;; No (extra) prefix for the first line.
- (overlay-put ov 'line-prefix "")
- ;; `display' is better
- ;; (http://debbugs.gnu.org/18285, http://debbugs.gnu.org/20847),
- ;; but it doesn't work on 0-length overlays.
- (if (< (overlay-start ov) (overlay-end ov))
- (overlay-put ov 'display disp)
- (overlay-put ov 'after-string disp)
- (overlay-put ov 'invisible t))
- (overlay-put ov 'window (selected-window)))))
-
-(defun company-pseudo-tooltip-guard ()
- (list
- (save-excursion (beginning-of-visual-line))
- (window-width)
- (let ((ov company-pseudo-tooltip-overlay)
- (overhang (save-excursion (end-of-visual-line)
- (- (line-end-position) (point)))))
- (when (>= (overlay-get ov 'company-height) 0)
- (cons
- (buffer-substring-no-properties (point) (overlay-start ov))
- (when (>= overhang 0) overhang))))))
-
-(defun company-pseudo-tooltip-frontend (command)
- "`company-mode' frontend similar to a tooltip but based on overlays."
- (cl-case command
- (pre-command (company-pseudo-tooltip-hide-temporarily))
- (post-command
- (unless (when (overlayp company-pseudo-tooltip-overlay)
- (let* ((ov company-pseudo-tooltip-overlay)
- (old-height (overlay-get ov 'company-height))
- (new-height (company--pseudo-tooltip-height)))
- (and
- (>= (* old-height new-height) 0)
- (>= (abs old-height) (abs new-height))
- (equal (company-pseudo-tooltip-guard)
- (overlay-get ov 'company-guard)))))
- ;; Redraw needed.
- (company-pseudo-tooltip-show-at-point (point) (length company-prefix))
- (overlay-put company-pseudo-tooltip-overlay
- 'company-guard (company-pseudo-tooltip-guard)))
- (company-pseudo-tooltip-unhide))
- (hide (company-pseudo-tooltip-hide)
- (setq company-tooltip-offset 0))
- (update (when (overlayp company-pseudo-tooltip-overlay)
- (company-pseudo-tooltip-edit company-selection)))))
-
-(defun company-pseudo-tooltip-unless-just-one-frontend (command)
- "`company-pseudo-tooltip-frontend', but not shown for single candidates."
- (unless (and (eq command 'post-command)
- (company--show-inline-p))
- (company-pseudo-tooltip-frontend command)))
-
-(defun company-pseudo-tooltip-unless-just-one-frontend-with-delay (command)
- "`compandy-pseudo-tooltip-frontend', but shown after a delay.
-Delay is determined by `company-tooltip-idle-delay'."
- (defvar company-preview-overlay)
- (when (and (memq command '(pre-command hide))
- company-tooltip-timer)
- (cancel-timer company-tooltip-timer)
- (setq company-tooltip-timer nil))
- (cl-case command
- (post-command
- (if (or company-tooltip-timer
- (overlayp company-pseudo-tooltip-overlay))
- (if (not (overlayp company-preview-overlay))
- (company-pseudo-tooltip-unless-just-one-frontend command)
- (let (company-tooltip-timer)
- (company-call-frontends 'pre-command))
- (company-call-frontends 'post-command))
- (setq company-tooltip-timer
- (run-with-timer company-tooltip-idle-delay nil
- 'company-pseudo-tooltip-unless-just-one-frontend-with-delay
- 'post-command))))
- (t
- (company-pseudo-tooltip-unless-just-one-frontend command))))
-
-;;; overlay ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-preview-overlay nil)
-
-(defun company-preview-show-at-point (pos completion)
- (company-preview-hide)
-
- (setq completion (copy-sequence (company--pre-render completion)))
- (font-lock-append-text-property 0 (length completion)
- 'face 'company-preview
- completion)
- (font-lock-prepend-text-property 0 (length company-common)
- 'face 'company-preview-common
- completion)
-
- ;; Add search string
- (and (string-match (funcall company-search-regexp-function
- company-search-string)
- completion)
- (pcase-dolist (`(,mbeg . ,mend) (company--search-chunks))
- (font-lock-prepend-text-property mbeg mend
- 'face 'company-preview-search
- completion)))
-
- (setq completion (company-strip-prefix completion))
-
- (and (equal pos (point))
- (not (equal completion ""))
- (add-text-properties 0 1 '(cursor 1) completion))
-
- (let* ((beg pos)
- (pto company-pseudo-tooltip-overlay)
- (ptf-workaround (and
- pto
- (char-before pos)
- (eq pos (overlay-start pto)))))
- ;; Try to accomodate for the pseudo-tooltip overlay,
- ;; which may start at the same position if it's at eol.
- (when ptf-workaround
- (cl-decf beg)
- (setq completion (concat (buffer-substring beg pos) completion)))
-
- (setq company-preview-overlay (make-overlay beg pos))
-
- (let ((ov company-preview-overlay))
- (overlay-put ov (if ptf-workaround 'display 'after-string)
- completion)
- (overlay-put ov 'window (selected-window)))))
-
-(defun company-preview-hide ()
- (when company-preview-overlay
- (delete-overlay company-preview-overlay)
- (setq company-preview-overlay nil)))
-
-(defun company-preview-frontend (command)
- "`company-mode' frontend showing the selection as if it had been inserted."
- (pcase command
- (`pre-command (company-preview-hide))
- (`post-command (company-preview-show-at-point (point)
- (nth company-selection company-candidates)))
- (`hide (company-preview-hide))))
-
-(defun company-preview-if-just-one-frontend (command)
- "`company-preview-frontend', but only shown for single candidates."
- (when (or (not (eq command 'post-command))
- (company--show-inline-p))
- (company-preview-frontend command)))
-
-(defun company--show-inline-p ()
- (and (not (cdr company-candidates))
- company-common
- (or (eq (company-call-backend 'ignore-case) 'keep-prefix)
- (string-prefix-p company-prefix company-common))))
-
-(defun company-tooltip-visible-p ()
- "Returns whether the tooltip is visible."
- (when (overlayp company-pseudo-tooltip-overlay)
- (not (overlay-get company-pseudo-tooltip-overlay 'invisible))))
-
-(defun company-preview-common--show-p ()
- "Returns whether the preview of common can be showed or not"
- (and company-common
- (or (eq (company-call-backend 'ignore-case) 'keep-prefix)
- (string-prefix-p company-prefix company-common))))
-
-(defun company-preview-common-frontend (command)
- "`company-mode' frontend preview the common part of candidates."
- (when (or (not (eq command 'post-command))
- (company-preview-common--show-p))
- (pcase command
- (`pre-command (company-preview-hide))
- (`post-command (company-preview-show-at-point (point) company-common))
- (`hide (company-preview-hide)))))
-
-;;; echo ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar-local company-echo-last-msg nil)
-
-(defvar company-echo-timer nil)
-
-(defvar company-echo-delay .01)
-
-(defcustom company-echo-truncate-lines t
- "Whether frontend messages written to the echo area should be truncated."
- :type 'boolean
- :package-version '(company . "0.9.3"))
-
-(defun company-echo-show (&optional getter)
- (when getter
- (setq company-echo-last-msg (funcall getter)))
- (let ((message-log-max nil)
- (message-truncate-lines company-echo-truncate-lines))
- (if company-echo-last-msg
- (message "%s" company-echo-last-msg)
- (message ""))))
-
-(defun company-echo-show-soon (&optional getter)
- (company-echo-cancel)
- (setq company-echo-timer (run-with-timer 0 nil 'company-echo-show getter)))
-
-(defun company-echo-cancel (&optional unset)
- (when company-echo-timer
- (cancel-timer company-echo-timer))
- (when unset
- (setq company-echo-timer nil)))
-
-(defun company-echo-show-when-idle (&optional getter)
- (company-echo-cancel)
- (setq company-echo-timer
- (run-with-idle-timer company-echo-delay nil 'company-echo-show getter)))
-
-(defun company-echo-format ()
-
- (let ((limit (window-body-width (minibuffer-window)))
- (len -1)
- ;; Roll to selection.
- (candidates (nthcdr company-selection company-candidates))
- (i (if company-show-numbers company-selection 99999))
- comp msg)
-
- (while candidates
- (setq comp (company-reformat (pop candidates))
- len (+ len 1 (length comp)))
- (if (< i 10)
- ;; Add number.
- (progn
- (setq comp (propertize (format "%d: %s" i comp)
- 'face 'company-echo))
- (cl-incf len 3)
- (cl-incf i)
- (add-text-properties 3 (+ 3 (length company-common))
- '(face company-echo-common) comp))
- (setq comp (propertize comp 'face 'company-echo))
- (add-text-properties 0 (length company-common)
- '(face company-echo-common) comp))
- (if (>= len limit)
- (setq candidates nil)
- (push comp msg)))
-
- (mapconcat 'identity (nreverse msg) " ")))
-
-(defun company-echo-strip-common-format ()
-
- (let ((limit (window-body-width (minibuffer-window)))
- (len (+ (length company-prefix) 2))
- ;; Roll to selection.
- (candidates (nthcdr company-selection company-candidates))
- (i (if company-show-numbers company-selection 99999))
- msg comp)
-
- (while candidates
- (setq comp (company-strip-prefix (pop candidates))
- len (+ len 2 (length comp)))
- (when (< i 10)
- ;; Add number.
- (setq comp (format "%s (%d)" comp i))
- (cl-incf len 4)
- (cl-incf i))
- (if (>= len limit)
- (setq candidates nil)
- (push (propertize comp 'face 'company-echo) msg)))
-
- (concat (propertize company-prefix 'face 'company-echo-common) "{"
- (mapconcat 'identity (nreverse msg) ", ")
- "}")))
-
-(defun company-echo-hide ()
- (unless (equal company-echo-last-msg "")
- (setq company-echo-last-msg "")
- (company-echo-show)))
-
-(defun company-echo-frontend (command)
- "`company-mode' frontend showing the candidates in the echo area."
- (pcase command
- (`post-command (company-echo-show-soon 'company-echo-format))
- (`hide (company-echo-hide))))
-
-(defun company-echo-strip-common-frontend (command)
- "`company-mode' frontend showing the candidates in the echo area."
- (pcase command
- (`post-command (company-echo-show-soon 'company-echo-strip-common-format))
- (`hide (company-echo-hide))))
-
-(defun company-echo-metadata-frontend (command)
- "`company-mode' frontend showing the documentation in the echo area."
- (pcase command
- (`post-command (company-echo-show-when-idle 'company-fetch-metadata))
- (`hide (company-echo-hide))))
-
-(provide 'company)
-;;; company.el ends here
diff --git a/elpa/company-20181105.2312/company.elc b/elpa/company-20181105.2312/company.elc
deleted file mode 100644
index d6132ef..0000000
--- a/elpa/company-20181105.2312/company.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/company-c-headers-20180814.1730/company-c-headers-autoloads.el b/elpa/company-c-headers-20180814.1730/company-c-headers-autoloads.el
deleted file mode 100644
index 04e7f60..0000000
--- a/elpa/company-c-headers-20180814.1730/company-c-headers-autoloads.el
+++ /dev/null
@@ -1,28 +0,0 @@
-;;; company-c-headers-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "company-c-headers" "company-c-headers.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from company-c-headers.el
-
-(autoload 'company-c-headers "company-c-headers" "\
-Company backend for C/C++ header files.
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-c-headers" '("call-if-function" "company-c-headers-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; company-c-headers-autoloads.el ends here
diff --git a/elpa/company-c-headers-20180814.1730/company-c-headers-pkg.el b/elpa/company-c-headers-20180814.1730/company-c-headers-pkg.el
deleted file mode 100644
index 19f8f60..0000000
--- a/elpa/company-c-headers-20180814.1730/company-c-headers-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "company-c-headers" "20180814.1730" "Company mode backend for C/C++ header files" '((emacs "24.1") (company "0.8")) :commit "41331192b3961c8e3a51540678e1d11eaa346f03" :keywords '("development" "company") :authors '(("Alastair Rankine" . "alastair@girtby.net")) :maintainer '("Alastair Rankine" . "alastair@girtby.net"))
diff --git a/elpa/company-c-headers-20180814.1730/company-c-headers.el b/elpa/company-c-headers-20180814.1730/company-c-headers.el
deleted file mode 100644
index 7cd54d6..0000000
--- a/elpa/company-c-headers-20180814.1730/company-c-headers.el
+++ /dev/null
@@ -1,194 +0,0 @@
-;;; company-c-headers.el --- Company mode backend for C/C++ header files -*- lexical-binding: t -*-
-
-;; Copyright (C) 2014 Alastair Rankine
-
-;; Author: Alastair Rankine <alastair@girtby.net>
-;; Keywords: development company
-;; Package-Version: 20180814.1730
-;; Package-Requires: ((emacs "24.1") (company "0.8"))
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This file 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 this file. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library enables the completion of C/C++ header file names using Company.
-;;
-;; To initialize it, just add it to `company-backends':
-;;
-;; (add-to-list 'company-backends 'company-c-headers)
-;;
-;; When you type an #include declaration within a supported major mode (see
-;; `company-c-headers-modes'), company-c-headers will search for header files
-;; within predefined search paths. company-c-headers can search "system" and
-;; "user" paths, depending on the type of #include declaration you type.
-;;
-;; You will probably want to customize the `company-c-headers-path-user' and
-;; `company-c-headers-path-system' variables for your specific needs.
-
-;;; Code:
-
-(require 'company)
-(require 'rx)
-(require 'cl)
-(require 'cl-lib)
-
-(defgroup company-c-headers nil
- "Completion back-end for C/C++ header files."
- :group 'company)
-
-(defcustom company-c-headers-path-system
- '("/usr/include/" "/usr/local/include/")
- "List of paths to search for system (i.e. angle-bracket
-delimited) header files. Alternatively, a function can be
-supplied which returns the path list."
- :type '(choice (repeat directory)
- function)
- )
-
-(defcustom company-c-headers-path-user
- '(".")
- "List of paths to search for user (i.e. double-quote delimited)
-header files. Alternatively, a function can be supplied which
-returns the path list. Note that paths in
-`company-c-headers-path-system' are implicitly appended."
- :type '(choice (repeat directory)
- function)
- )
-
-(defvar company-c-headers-include-declaration
- (rx
- line-start
- "#" (zero-or-more blank) (or "include" "import")
- (one-or-more blank)
- (submatch
- (in "<\"")
- (zero-or-more (not (in ">\""))))
- )
- "Prefix matching C/C++/ObjC include directives.")
-
-(defvar company-c-headers-modes
- `(
- (c-mode . ,(rx ".h" line-end))
- (c++-mode . ,(rx (or (: line-start (one-or-more (in "A-Za-z0-9_")))
- (or ".h" ".hpp" ".hxx" ".hh"))
- line-end))
- (objc-mode . ,(rx ".h" line-end))
- )
- "Assoc list of supported major modes and associated header file names.")
-
-(defun call-if-function (path)
- "If PATH is bound to a function, return the result of calling it.
-Otherwise just return the value."
- (if (functionp path)
- (funcall path)
- path))
-
-(defun company-c-headers--candidates-for (prefix dir)
- "Return a list of candidates for PREFIX in directory DIR.
-Filters on the appropriate regex for the current major mode."
- (let* ((delim (substring prefix 0 1))
- (fileprefix (substring prefix 1))
- (prefixdir (file-name-directory fileprefix))
- (subdir (and prefixdir (concat (file-name-as-directory dir) prefixdir)))
- (hdrs (cdr (assoc major-mode company-c-headers-modes)))
- candidates)
-
- ;; If we need to complete inside a subdirectory, use that
- (when (and subdir (file-directory-p subdir))
- (setq dir subdir)
- (setq fileprefix (file-name-nondirectory fileprefix))
- (setq delim (concat delim prefixdir))
- )
-
- ;; Using a list of completions for this directory, remove those that a) don't match the
- ;; headers regexp, and b) are not directories (except for "." and ".." which ARE removed)
- (setq candidates (cl-remove-if
- (lambda (F) (and (not (string-match-p hdrs F))
- (or (cl-member (directory-file-name F) '("." "..") :test 'equal)
- (not (file-directory-p (concat (file-name-as-directory dir) F))))))
- (file-name-all-completions fileprefix dir)))
-
- ;; We want to see candidates in alphabetical order per directory
- (setq candidates (sort candidates #'string<))
-
- ;; Add the delimiter and metadata
- (mapcar (lambda (C) (propertize (concat delim C) 'directory dir)) candidates)
- ))
-
-(defun company-c-headers--candidates (prefix)
- "Return candidates for PREFIX."
- (let ((p (if (equal (aref prefix 0) ?\")
- (call-if-function company-c-headers-path-user)
- (call-if-function company-c-headers-path-system)))
- (next (when (equal (aref prefix 0) ?\")
- (call-if-function company-c-headers-path-system)))
- candidates)
- (while p
- (when (file-directory-p (car p))
- (setq candidates (append candidates (company-c-headers--candidates-for prefix (car p)))))
-
- (setq p (or (cdr p)
- (let ((tmp next))
- (setq next nil)
- tmp)))
- )
- (remove-duplicates candidates :test 'equal)
- ))
-
-(defun company-c-headers--meta (candidate)
- "Return the metadata associated with CANDIDATE. Currently just the directory."
- (get-text-property 0 'directory candidate))
-
-(defun company-c-headers--location (candidate)
- "Return the location associated with CANDIDATE."
- (cons (concat (file-name-as-directory (get-text-property 0 'directory candidate))
- (file-name-nondirectory (substring candidate 1)))
- 1))
-
-;;;###autoload
-(defun company-c-headers (command &optional arg &rest ignored)
- "Company backend for C/C++ header files."
- (interactive (list 'interactive))
- (pcase command
- (`interactive (company-begin-backend 'company-c-headers))
- (`prefix
- (when (and (assoc major-mode company-c-headers-modes)
- (looking-back company-c-headers-include-declaration (line-beginning-position)))
- (match-string-no-properties 1)))
- (`sorted t)
- (`candidates (company-c-headers--candidates arg))
- (`meta (company-c-headers--meta arg))
- (`location (company-c-headers--location arg))
- (`post-completion
- (when (looking-back company-c-headers-include-declaration (line-beginning-position))
- (let ((matched (match-string-no-properties 1)))
- (if (string= matched (file-name-as-directory matched))
- ;; This is a directory, setting `this-command' to a `self-insert-command'
- ;; tricks company to automatically trigger completion again for the
- ;; directory files.
- ;; See https://github.com/company-mode/company-mode/issues/143
- (setq this-command 'self-insert-command)
- ;; It's not a directory, add a terminating delimiter.
- ;; If pre-existing terminating delimiter already exists,
- ;; move cursor to end of line.
- (pcase (aref matched 0)
- (?\" (if (looking-at "\"") (end-of-line) (insert "\"")))
- (?< (if (looking-at ">") (end-of-line) (insert ">"))))))))
- ))
-
-(provide 'company-c-headers)
-
-;;; company-c-headers.el ends here
diff --git a/elpa/company-c-headers-20180814.1730/company-c-headers.elc b/elpa/company-c-headers-20180814.1730/company-c-headers.elc
deleted file mode 100644
index 8c715f2..0000000
--- a/elpa/company-c-headers-20180814.1730/company-c-headers.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/dash-20180910.1856/dash-autoloads.el b/elpa/dash-20180910.1856/dash-autoloads.el
deleted file mode 100644
index 8bacbc8..0000000
--- a/elpa/dash-20180910.1856/dash-autoloads.el
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; dash-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "dash" "dash.el" (0 0 0 0))
-;;; Generated autoloads from dash.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dash" '("dash-" "-keep" "-butlast" "-non" "-only-some" "-zip" "-e" "->" "-a" "-gr" "-when-let" "-d" "-l" "-s" "-p" "-r" "-m" "-i" "-f" "-u" "-value-to-list" "-t" "--" "-c" "!cons" "!cdr")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; dash-autoloads.el ends here
diff --git a/elpa/dash-20180910.1856/dash-pkg.el b/elpa/dash-20180910.1856/dash-pkg.el
deleted file mode 100644
index 29e7123..0000000
--- a/elpa/dash-20180910.1856/dash-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "dash" "20180910.1856" "A modern list library for Emacs" 'nil :commit "6514359b8606a6a9a94068ccd601fcd6379d6584" :keywords '("lists") :authors '(("Magnar Sveen" . "magnars@gmail.com")) :maintainer '("Magnar Sveen" . "magnars@gmail.com"))
diff --git a/elpa/dash-20180910.1856/dash.el b/elpa/dash-20180910.1856/dash.el
deleted file mode 100644
index ee67456..0000000
--- a/elpa/dash-20180910.1856/dash.el
+++ /dev/null
@@ -1,2993 +0,0 @@
-;;; dash.el --- A modern list library for Emacs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
-
-;; Author: Magnar Sveen <magnars@gmail.com>
-;; Version: 2.14.1
-;; Package-Version: 20180910.1856
-;; Keywords: lists
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; A modern list api for Emacs.
-;;
-;; See documentation on https://github.com/magnars/dash.el#functions
-;;
-;; **Please note** The lexical binding in this file is not utilised at the
-;; moment. We will take full advantage of lexical binding in an upcoming 3.0
-;; release of Dash. In the meantime, we've added the pragma to avoid a bug that
-;; you can read more about in https://github.com/magnars/dash.el/issues/130.
-;;
-
-;;; Code:
-
-(defgroup dash ()
- "Customize group for dash.el"
- :group 'lisp
- :prefix "dash-")
-
-(defun dash--enable-fontlock (symbol value)
- (when value
- (dash-enable-font-lock))
- (set-default symbol value))
-
-(defcustom dash-enable-fontlock nil
- "If non-nil, enable fontification of dash functions, macros and
-special values."
- :type 'boolean
- :set 'dash--enable-fontlock
- :group 'dash)
-
-(defmacro !cons (car cdr)
- "Destructive: Set CDR to the cons of CAR and CDR."
- `(setq ,cdr (cons ,car ,cdr)))
-
-(defmacro !cdr (list)
- "Destructive: Set LIST to the cdr of LIST."
- `(setq ,list (cdr ,list)))
-
-(defmacro --each (list &rest body)
- "Anaphoric form of `-each'."
- (declare (debug (form body))
- (indent 1))
- (let ((l (make-symbol "list")))
- `(let ((,l ,list)
- (it-index 0))
- (while ,l
- (let ((it (car ,l)))
- ,@body)
- (setq it-index (1+ it-index))
- (!cdr ,l)))))
-
-(defmacro -doto (eval-initial-value &rest forms)
- "Eval a form, then insert that form as the 2nd argument to other forms.
-The EVAL-INITIAL-VALUE form is evaluated once. Its result is
-passed to FORMS, which are then evaluated sequentially. Returns
-the target form."
- (declare (indent 1))
- (let ((retval (make-symbol "value")))
- `(let ((,retval ,eval-initial-value))
- ,@(mapcar (lambda (form)
- (if (sequencep form)
- `(,(-first-item form) ,retval ,@(cdr form))
- `(funcall form ,retval)))
- forms)
- ,retval)))
-
-(defun -each (list fn)
- "Call FN with every item in LIST. Return nil, used for side-effects only."
- (--each list (funcall fn it)))
-
-(put '-each 'lisp-indent-function 1)
-
-(defalias '--each-indexed '--each)
-
-(defun -each-indexed (list fn)
- "Call (FN index item) for each item in LIST.
-
-In the anaphoric form `--each-indexed', the index is exposed as symbol `it-index'.
-
-See also: `-map-indexed'."
- (--each list (funcall fn it-index it)))
-(put '-each-indexed 'lisp-indent-function 1)
-
-(defmacro --each-while (list pred &rest body)
- "Anaphoric form of `-each-while'."
- (declare (debug (form form body))
- (indent 2))
- (let ((l (make-symbol "list"))
- (c (make-symbol "continue")))
- `(let ((,l ,list)
- (,c t)
- (it-index 0))
- (while (and ,l ,c)
- (let ((it (car ,l)))
- (if (not ,pred) (setq ,c nil) ,@body))
- (setq it-index (1+ it-index))
- (!cdr ,l)))))
-
-(defun -each-while (list pred fn)
- "Call FN with every item in LIST while (PRED item) is non-nil.
-Return nil, used for side-effects only."
- (--each-while list (funcall pred it) (funcall fn it)))
-
-(put '-each-while 'lisp-indent-function 2)
-
-(defmacro --each-r (list &rest body)
- "Anaphoric form of `-each-r'."
- (declare (debug (form body))
- (indent 1))
- (let ((v (make-symbol "vector")))
- ;; Implementation note: building vector is considerably faster
- ;; than building a reversed list (vector takes less memory, so
- ;; there is less GC), plus length comes naturally. In-place
- ;; 'nreverse' would be faster still, but BODY would be able to see
- ;; that, even if modification was reversed before we return.
- `(let* ((,v (vconcat ,list))
- (it-index (length ,v))
- it)
- (while (> it-index 0)
- (setq it-index (1- it-index))
- (setq it (aref ,v it-index))
- ,@body))))
-
-(defun -each-r (list fn)
- "Call FN with every item in LIST in reversed order.
- Return nil, used for side-effects only."
- (--each-r list (funcall fn it)))
-
-(defmacro --each-r-while (list pred &rest body)
- "Anaphoric form of `-each-r-while'."
- (declare (debug (form form body))
- (indent 2))
- (let ((v (make-symbol "vector")))
- `(let* ((,v (vconcat ,list))
- (it-index (length ,v))
- it)
- (while (> it-index 0)
- (setq it-index (1- it-index))
- (setq it (aref ,v it-index))
- (if (not ,pred)
- (setq it-index -1)
- ,@body)))))
-
-(defun -each-r-while (list pred fn)
- "Call FN with every item in reversed LIST while (PRED item) is non-nil.
-Return nil, used for side-effects only."
- (--each-r-while list (funcall pred it) (funcall fn it)))
-
-(defmacro --dotimes (num &rest body)
- "Repeatedly executes BODY (presumably for side-effects) with symbol `it' bound to integers from 0 through NUM-1."
- (declare (debug (form body))
- (indent 1))
- (let ((n (make-symbol "num")))
- `(let ((,n ,num)
- (it 0))
- (while (< it ,n)
- ,@body
- (setq it (1+ it))))))
-
-(defun -dotimes (num fn)
- "Repeatedly calls FN (presumably for side-effects) passing in integers from 0 through NUM-1."
- (--dotimes num (funcall fn it)))
-
-(put '-dotimes 'lisp-indent-function 1)
-
-(defun -map (fn list)
- "Return a new list consisting of the result of applying FN to the items in LIST."
- (mapcar fn list))
-
-(defmacro --map (form list)
- "Anaphoric form of `-map'."
- (declare (debug (form form)))
- `(mapcar (lambda (it) ,form) ,list))
-
-(defmacro --reduce-from (form initial-value list)
- "Anaphoric form of `-reduce-from'."
- (declare (debug (form form form)))
- `(let ((acc ,initial-value))
- (--each ,list (setq acc ,form))
- acc))
-
-(defun -reduce-from (fn initial-value list)
- "Return the result of applying FN to INITIAL-VALUE and the
-first item in LIST, then applying FN to that result and the 2nd
-item, etc. If LIST contains no items, return INITIAL-VALUE and
-do not call FN.
-
-In the anaphoric form `--reduce-from', the accumulated value is
-exposed as symbol `acc'.
-
-See also: `-reduce', `-reduce-r'"
- (--reduce-from (funcall fn acc it) initial-value list))
-
-(defmacro --reduce (form list)
- "Anaphoric form of `-reduce'."
- (declare (debug (form form)))
- (let ((lv (make-symbol "list-value")))
- `(let ((,lv ,list))
- (if ,lv
- (--reduce-from ,form (car ,lv) (cdr ,lv))
- (let (acc it) ,form)))))
-
-(defun -reduce (fn list)
- "Return the result of applying FN to the first 2 items in LIST,
-then applying FN to that result and the 3rd item, etc. If LIST
-contains no items, return the result of calling FN with no
-arguments. If LIST contains a single item, return that item
-and do not call FN.
-
-In the anaphoric form `--reduce', the accumulated value is
-exposed as symbol `acc'.
-
-See also: `-reduce-from', `-reduce-r'"
- (if list
- (-reduce-from fn (car list) (cdr list))
- (funcall fn)))
-
-(defmacro --reduce-r-from (form initial-value list)
- "Anaphoric version of `-reduce-r-from'."
- (declare (debug (form form form)))
- `(--reduce-from ,form ,initial-value (reverse ,list)))
-
-(defun -reduce-r-from (fn initial-value list)
- "Replace conses with FN, nil with INITIAL-VALUE and evaluate
-the resulting expression. If LIST is empty, INITIAL-VALUE is
-returned and FN is not called.
-
-Note: this function works the same as `-reduce-from' but the
-operation associates from right instead of from left.
-
-See also: `-reduce-r', `-reduce'"
- (--reduce-r-from (funcall fn it acc) initial-value list))
-
-(defmacro --reduce-r (form list)
- "Anaphoric version of `-reduce-r'."
- (declare (debug (form form)))
- `(--reduce ,form (reverse ,list)))
-
-(defun -reduce-r (fn list)
- "Replace conses with FN and evaluate the resulting expression.
-The final nil is ignored. If LIST contains no items, return the
-result of calling FN with no arguments. If LIST contains a single
-item, return that item and do not call FN.
-
-The first argument of FN is the new item, the second is the
-accumulated value.
-
-Note: this function works the same as `-reduce' but the operation
-associates from right instead of from left.
-
-See also: `-reduce-r-from', `-reduce'"
- (if list
- (--reduce-r (funcall fn it acc) list)
- (funcall fn)))
-
-(defun -reductions-from (fn init list)
- "Return a list of the intermediate values of the reduction.
-
-See `-reduce-from' for explanation of the arguments.
-
-See also: `-reductions', `-reductions-r', `-reduce-r'"
- (nreverse (--reduce-from (cons (funcall fn (car acc) it) acc) (list init) list)))
-
-(defun -reductions (fn list)
- "Return a list of the intermediate values of the reduction.
-
-See `-reduce' for explanation of the arguments.
-
-See also: `-reductions-from', `-reductions-r', `-reduce-r'"
- (and list (-reductions-from fn (car list) (cdr list))))
-
-(defun -reductions-r-from (fn init list)
- "Return a list of the intermediate values of the reduction.
-
-See `-reduce-r-from' for explanation of the arguments.
-
-See also: `-reductions-r', `-reductions', `-reduce'"
- (--reduce-r-from (cons (funcall fn it (car acc)) acc) (list init) list))
-
-(defun -reductions-r (fn list)
- "Return a list of the intermediate values of the reduction.
-
-See `-reduce-r' for explanation of the arguments.
-
-See also: `-reductions-r-from', `-reductions', `-reduce'"
- (when list
- (let ((rev (reverse list)))
- (--reduce-from (cons (funcall fn it (car acc)) acc)
- (list (car rev))
- (cdr rev)))))
-
-(defmacro --filter (form list)
- "Anaphoric form of `-filter'.
-
-See also: `--remove'."
- (declare (debug (form form)))
- (let ((r (make-symbol "result")))
- `(let (,r)
- (--each ,list (when ,form (!cons it ,r)))
- (nreverse ,r))))
-
-(defun -filter (pred list)
- "Return a new list of the items in LIST for which PRED returns a non-nil value.
-
-Alias: `-select'
-
-See also: `-keep', `-remove'."
- (--filter (funcall pred it) list))
-
-(defalias '-select '-filter)
-(defalias '--select '--filter)
-
-(defmacro --remove (form list)
- "Anaphoric form of `-remove'.
-
-See also `--filter'."
- (declare (debug (form form)))
- `(--filter (not ,form) ,list))
-
-(defun -remove (pred list)
- "Return a new list of the items in LIST for which PRED returns nil.
-
-Alias: `-reject'
-
-See also: `-filter'."
- (--remove (funcall pred it) list))
-
-(defalias '-reject '-remove)
-(defalias '--reject '--remove)
-
-(defun -remove-first (pred list)
- "Return a new list with the first item matching PRED removed.
-
-Alias: `-reject-first'
-
-See also: `-remove', `-map-first'"
- (let (front)
- (while (and list (not (funcall pred (car list))))
- (push (car list) front)
- (!cdr list))
- (if list
- (-concat (nreverse front) (cdr list))
- (nreverse front))))
-
-(defmacro --remove-first (form list)
- "Anaphoric form of `-remove-first'."
- (declare (debug (form form)))
- `(-remove-first (lambda (it) ,form) ,list))
-
-(defalias '-reject-first '-remove-first)
-(defalias '--reject-first '--remove-first)
-
-(defun -remove-last (pred list)
- "Return a new list with the last item matching PRED removed.
-
-Alias: `-reject-last'
-
-See also: `-remove', `-map-last'"
- (nreverse (-remove-first pred (reverse list))))
-
-(defmacro --remove-last (form list)
- "Anaphoric form of `-remove-last'."
- (declare (debug (form form)))
- `(-remove-last (lambda (it) ,form) ,list))
-
-(defalias '-reject-last '-remove-last)
-(defalias '--reject-last '--remove-last)
-
-(defun -remove-item (item list)
- "Remove all occurences of ITEM from LIST.
-
-Comparison is done with `equal'."
- (declare (pure t) (side-effect-free t))
- (--remove (equal it item) list))
-
-(defmacro --keep (form list)
- "Anaphoric form of `-keep'."
- (declare (debug (form form)))
- (let ((r (make-symbol "result"))
- (m (make-symbol "mapped")))
- `(let (,r)
- (--each ,list (let ((,m ,form)) (when ,m (!cons ,m ,r))))
- (nreverse ,r))))
-
-(defun -keep (fn list)
- "Return a new list of the non-nil results of applying FN to the items in LIST.
-
-If you want to select the original items satisfying a predicate use `-filter'."
- (--keep (funcall fn it) list))
-
-(defun -non-nil (list)
- "Return all non-nil elements of LIST."
- (declare (pure t) (side-effect-free t))
- (-remove 'null list))
-
-(defmacro --map-indexed (form list)
- "Anaphoric form of `-map-indexed'."
- (declare (debug (form form)))
- (let ((r (make-symbol "result")))
- `(let (,r)
- (--each ,list
- (!cons ,form ,r))
- (nreverse ,r))))
-
-(defun -map-indexed (fn list)
- "Return a new list consisting of the result of (FN index item) for each item in LIST.
-
-In the anaphoric form `--map-indexed', the index is exposed as symbol `it-index'.
-
-See also: `-each-indexed'."
- (--map-indexed (funcall fn it-index it) list))
-
-(defmacro --map-when (pred rep list)
- "Anaphoric form of `-map-when'."
- (declare (debug (form form form)))
- (let ((r (make-symbol "result")))
- `(let (,r)
- (--each ,list (!cons (if ,pred ,rep it) ,r))
- (nreverse ,r))))
-
-(defun -map-when (pred rep list)
- "Return a new list where the elements in LIST that do not match the PRED function
-are unchanged, and where the elements in LIST that do match the PRED function are mapped
-through the REP function.
-
-Alias: `-replace-where'
-
-See also: `-update-at'"
- (--map-when (funcall pred it) (funcall rep it) list))
-
-(defalias '-replace-where '-map-when)
-(defalias '--replace-where '--map-when)
-
-(defun -map-first (pred rep list)
- "Replace first item in LIST satisfying PRED with result of REP called on this item.
-
-See also: `-map-when', `-replace-first'"
- (let (front)
- (while (and list (not (funcall pred (car list))))
- (push (car list) front)
- (!cdr list))
- (if list
- (-concat (nreverse front) (cons (funcall rep (car list)) (cdr list)))
- (nreverse front))))
-
-(defmacro --map-first (pred rep list)
- "Anaphoric form of `-map-first'."
- `(-map-first (lambda (it) ,pred) (lambda (it) (ignore it) ,rep) ,list))
-
-(defun -map-last (pred rep list)
- "Replace last item in LIST satisfying PRED with result of REP called on this item.
-
-See also: `-map-when', `-replace-last'"
- (nreverse (-map-first pred rep (reverse list))))
-
-(defmacro --map-last (pred rep list)
- "Anaphoric form of `-map-last'."
- `(-map-last (lambda (it) ,pred) (lambda (it) (ignore it) ,rep) ,list))
-
-(defun -replace (old new list)
- "Replace all OLD items in LIST with NEW.
-
-Elements are compared using `equal'.
-
-See also: `-replace-at'"
- (declare (pure t) (side-effect-free t))
- (--map-when (equal it old) new list))
-
-(defun -replace-first (old new list)
- "Replace the first occurence of OLD with NEW in LIST.
-
-Elements are compared using `equal'.
-
-See also: `-map-first'"
- (declare (pure t) (side-effect-free t))
- (--map-first (equal old it) new list))
-
-(defun -replace-last (old new list)
- "Replace the last occurence of OLD with NEW in LIST.
-
-Elements are compared using `equal'.
-
-See also: `-map-last'"
- (declare (pure t) (side-effect-free t))
- (--map-last (equal old it) new list))
-
-(defmacro --mapcat (form list)
- "Anaphoric form of `-mapcat'."
- (declare (debug (form form)))
- `(apply 'append (--map ,form ,list)))
-
-(defun -mapcat (fn list)
- "Return the concatenation of the result of mapping FN over LIST.
-Thus function FN should return a list."
- (--mapcat (funcall fn it) list))
-
-(defun -flatten (l)
- "Take a nested list L and return its contents as a single, flat list.
-
-Note that because `nil' represents a list of zero elements (an
-empty list), any mention of nil in L will disappear after
-flattening. If you need to preserve nils, consider `-flatten-n'
-or map them to some unique symbol and then map them back.
-
-Conses of two atoms are considered \"terminals\", that is, they
-aren't flattened further.
-
-See also: `-flatten-n'"
- (declare (pure t) (side-effect-free t))
- (if (and (listp l) (listp (cdr l)))
- (-mapcat '-flatten l)
- (list l)))
-
-(defmacro --iterate (form init n)
- "Anaphoric version of `-iterate'."
- (declare (debug (form form form)))
- `(-iterate (lambda (it) ,form) ,init ,n))
-
-(defun -flatten-n (num list)
- "Flatten NUM levels of a nested LIST.
-
-See also: `-flatten'"
- (declare (pure t) (side-effect-free t))
- (-last-item (--iterate (--mapcat (-list it) it) list (1+ num))))
-
-(defun -concat (&rest lists)
- "Return a new list with the concatenation of the elements in the supplied LISTS."
- (declare (pure t) (side-effect-free t))
- (apply 'append lists))
-
-(defalias '-copy 'copy-sequence
- "Create a shallow copy of LIST.
-
-\(fn LIST)")
-
-(defun -splice (pred fun list)
- "Splice lists generated by FUN in place of elements matching PRED in LIST.
-
-FUN takes the element matching PRED as input.
-
-This function can be used as replacement for `,@' in case you
-need to splice several lists at marked positions (for example
-with keywords).
-
-See also: `-splice-list', `-insert-at'"
- (let (r)
- (--each list
- (if (funcall pred it)
- (let ((new (funcall fun it)))
- (--each new (!cons it r)))
- (!cons it r)))
- (nreverse r)))
-
-(defmacro --splice (pred form list)
- "Anaphoric form of `-splice'."
- `(-splice (lambda (it) ,pred) (lambda (it) ,form) ,list))
-
-(defun -splice-list (pred new-list list)
- "Splice NEW-LIST in place of elements matching PRED in LIST.
-
-See also: `-splice', `-insert-at'"
- (-splice pred (lambda (_) new-list) list))
-
-(defmacro --splice-list (pred new-list list)
- "Anaphoric form of `-splice-list'."
- `(-splice-list (lambda (it) ,pred) ,new-list ,list))
-
-(defun -cons* (&rest args)
- "Make a new list from the elements of ARGS.
-
-The last 2 members of ARGS are used as the final cons of the
-result so if the final member of ARGS is not a list the result is
-a dotted list."
- (declare (pure t) (side-effect-free t))
- (-reduce-r 'cons args))
-
-(defun -snoc (list elem &rest elements)
- "Append ELEM to the end of the list.
-
-This is like `cons', but operates on the end of list.
-
-If ELEMENTS is non nil, append these to the list as well."
- (-concat list (list elem) elements))
-
-(defmacro --first (form list)
- "Anaphoric form of `-first'."
- (declare (debug (form form)))
- (let ((n (make-symbol "needle")))
- `(let (,n)
- (--each-while ,list (not ,n)
- (when ,form (setq ,n it)))
- ,n)))
-
-(defun -first (pred list)
- "Return the first x in LIST where (PRED x) is non-nil, else nil.
-
-To get the first item in the list no questions asked, use `car'.
-
-Alias: `-find'"
- (--first (funcall pred it) list))
-
-(defalias '-find '-first)
-(defalias '--find '--first)
-
-(defmacro --some (form list)
- "Anaphoric form of `-some'."
- (declare (debug (form form)))
- (let ((n (make-symbol "needle")))
- `(let (,n)
- (--each-while ,list (not ,n)
- (setq ,n ,form))
- ,n)))
-
-(defun -some (pred list)
- "Return (PRED x) for the first LIST item where (PRED x) is non-nil, else nil.
-
-Alias: `-any'"
- (--some (funcall pred it) list))
-
-(defalias '-any '-some)
-(defalias '--any '--some)
-
-(defmacro --last (form list)
- "Anaphoric form of `-last'."
- (declare (debug (form form)))
- (let ((n (make-symbol "needle")))
- `(let (,n)
- (--each ,list
- (when ,form (setq ,n it)))
- ,n)))
-
-(defun -last (pred list)
- "Return the last x in LIST where (PRED x) is non-nil, else nil."
- (--last (funcall pred it) list))
-
-(defalias '-first-item 'car
- "Return the first item of LIST, or nil on an empty list.
-
-See also: `-second-item', `-last-item'.
-
-\(fn LIST)")
-
-;; Ensure that calls to `-first-item' are compiled to a single opcode,
-;; just like `car'.
-(put '-first-item 'byte-opcode 'byte-car)
-(put '-first-item 'byte-compile 'byte-compile-one-arg)
-
-(defalias '-second-item 'cadr
- "Return the second item of LIST, or nil if LIST is too short.
-
-See also: `-third-item'.
-
-\(fn LIST)")
-
-(defalias '-third-item 'caddr
- "Return the third item of LIST, or nil if LIST is too short.
-
-See also: `-fourth-item'.
-
-\(fn LIST)")
-
-(defun -fourth-item (list)
- "Return the fourth item of LIST, or nil if LIST is too short.
-
-See also: `-fifth-item'."
- (declare (pure t) (side-effect-free t))
- (car (cdr (cdr (cdr list)))))
-
-(defun -fifth-item (list)
- "Return the fifth item of LIST, or nil if LIST is too short.
-
-See also: `-last-item'."
- (declare (pure t) (side-effect-free t))
- (car (cdr (cdr (cdr (cdr list))))))
-
-;; TODO: gv was introduced in 24.3, so we can remove the if statement
-;; when support for earlier versions is dropped
-(eval-when-compile
- (require 'cl)
- (if (fboundp 'gv-define-simple-setter)
- (gv-define-simple-setter -first-item setcar)
- (require 'cl)
- (with-no-warnings
- (defsetf -first-item (x) (val) `(setcar ,x ,val)))))
-
-(defun -last-item (list)
- "Return the last item of LIST, or nil on an empty list."
- (declare (pure t) (side-effect-free t))
- (car (last list)))
-
-;; TODO: gv was introduced in 24.3, so we can remove the if statement
-;; when support for earlier versions is dropped
-(eval-when-compile
- (if (fboundp 'gv-define-setter)
- (gv-define-setter -last-item (val x) `(setcar (last ,x) ,val))
- (with-no-warnings
- (defsetf -last-item (x) (val) `(setcar (last ,x) ,val)))))
-
-(defun -butlast (list)
- "Return a list of all items in list except for the last."
- ;; no alias as we don't want magic optional argument
- (declare (pure t) (side-effect-free t))
- (butlast list))
-
-(defmacro --count (pred list)
- "Anaphoric form of `-count'."
- (declare (debug (form form)))
- (let ((r (make-symbol "result")))
- `(let ((,r 0))
- (--each ,list (when ,pred (setq ,r (1+ ,r))))
- ,r)))
-
-(defun -count (pred list)
- "Counts the number of items in LIST where (PRED item) is non-nil."
- (--count (funcall pred it) list))
-
-(defun ---truthy? (val)
- (declare (pure t) (side-effect-free t))
- (not (null val)))
-
-(defmacro --any? (form list)
- "Anaphoric form of `-any?'."
- (declare (debug (form form)))
- `(---truthy? (--some ,form ,list)))
-
-(defun -any? (pred list)
- "Return t if (PRED x) is non-nil for any x in LIST, else nil.
-
-Alias: `-any-p', `-some?', `-some-p'"
- (--any? (funcall pred it) list))
-
-(defalias '-some? '-any?)
-(defalias '--some? '--any?)
-(defalias '-any-p '-any?)
-(defalias '--any-p '--any?)
-(defalias '-some-p '-any?)
-(defalias '--some-p '--any?)
-
-(defmacro --all? (form list)
- "Anaphoric form of `-all?'."
- (declare (debug (form form)))
- (let ((a (make-symbol "all")))
- `(let ((,a t))
- (--each-while ,list ,a (setq ,a ,form))
- (---truthy? ,a))))
-
-(defun -all? (pred list)
- "Return t if (PRED x) is non-nil for all x in LIST, else nil.
-
-Alias: `-all-p', `-every?', `-every-p'"
- (--all? (funcall pred it) list))
-
-(defalias '-every? '-all?)
-(defalias '--every? '--all?)
-(defalias '-all-p '-all?)
-(defalias '--all-p '--all?)
-(defalias '-every-p '-all?)
-(defalias '--every-p '--all?)
-
-(defmacro --none? (form list)
- "Anaphoric form of `-none?'."
- (declare (debug (form form)))
- `(--all? (not ,form) ,list))
-
-(defun -none? (pred list)
- "Return t if (PRED x) is nil for all x in LIST, else nil.
-
-Alias: `-none-p'"
- (--none? (funcall pred it) list))
-
-(defalias '-none-p '-none?)
-(defalias '--none-p '--none?)
-
-(defmacro --only-some? (form list)
- "Anaphoric form of `-only-some?'."
- (declare (debug (form form)))
- (let ((y (make-symbol "yes"))
- (n (make-symbol "no")))
- `(let (,y ,n)
- (--each-while ,list (not (and ,y ,n))
- (if ,form (setq ,y t) (setq ,n t)))
- (---truthy? (and ,y ,n)))))
-
-(defun -only-some? (pred list)
- "Return `t` if at least one item of LIST matches PRED and at least one item of LIST does not match PRED.
-Return `nil` both if all items match the predicate or if none of the items match the predicate.
-
-Alias: `-only-some-p'"
- (--only-some? (funcall pred it) list))
-
-(defalias '-only-some-p '-only-some?)
-(defalias '--only-some-p '--only-some?)
-
-(defun -slice (list from &optional to step)
- "Return copy of LIST, starting from index FROM to index TO.
-
-FROM or TO may be negative. These values are then interpreted
-modulo the length of the list.
-
-If STEP is a number, only each STEPth item in the resulting
-section is returned. Defaults to 1."
- (declare (pure t) (side-effect-free t))
- (let ((length (length list))
- (new-list nil))
- ;; to defaults to the end of the list
- (setq to (or to length))
- (setq step (or step 1))
- ;; handle negative indices
- (when (< from 0)
- (setq from (mod from length)))
- (when (< to 0)
- (setq to (mod to length)))
-
- ;; iterate through the list, keeping the elements we want
- (--each-while list (< it-index to)
- (when (and (>= it-index from)
- (= (mod (- from it-index) step) 0))
- (push it new-list)))
- (nreverse new-list)))
-
-(defun -take (n list)
- "Return a new list of the first N items in LIST, or all items if there are fewer than N.
-
-See also: `-take-last'"
- (declare (pure t) (side-effect-free t))
- (let (result)
- (--dotimes n
- (when list
- (!cons (car list) result)
- (!cdr list)))
- (nreverse result)))
-
-(defun -take-last (n list)
- "Return the last N items of LIST in order.
-
-See also: `-take'"
- (declare (pure t) (side-effect-free t))
- (copy-sequence (last list n)))
-
-(defalias '-drop 'nthcdr
- "Return the tail of LIST without the first N items.
-
-See also: `-drop-last'
-
-\(fn N LIST)")
-
-(defun -drop-last (n list)
- "Remove the last N items of LIST and return a copy.
-
-See also: `-drop'"
- ;; No alias because we don't want magic optional argument
- (declare (pure t) (side-effect-free t))
- (butlast list n))
-
-(defmacro --take-while (form list)
- "Anaphoric form of `-take-while'."
- (declare (debug (form form)))
- (let ((r (make-symbol "result")))
- `(let (,r)
- (--each-while ,list ,form (!cons it ,r))
- (nreverse ,r))))
-
-(defun -take-while (pred list)
- "Return a new list of successive items from LIST while (PRED item) returns a non-nil value."
- (--take-while (funcall pred it) list))
-
-(defmacro --drop-while (form list)
- "Anaphoric form of `-drop-while'."
- (declare (debug (form form)))
- (let ((l (make-symbol "list")))
- `(let ((,l ,list))
- (while (and ,l (let ((it (car ,l))) ,form))
- (!cdr ,l))
- ,l)))
-
-(defun -drop-while (pred list)
- "Return the tail of LIST starting from the first item for which (PRED item) returns nil."
- (--drop-while (funcall pred it) list))
-
-(defun -split-at (n list)
- "Return a list of ((-take N LIST) (-drop N LIST)), in no more than one pass through the list."
- (declare (pure t) (side-effect-free t))
- (let (result)
- (--dotimes n
- (when list
- (!cons (car list) result)
- (!cdr list)))
- (list (nreverse result) list)))
-
-(defun -rotate (n list)
- "Rotate LIST N places to the right. With N negative, rotate to the left.
-The time complexity is O(n)."
- (declare (pure t) (side-effect-free t))
- (if (> n 0)
- (append (last list n) (butlast list n))
- (append (-drop (- n) list) (-take (- n) list))))
-
-(defun -insert-at (n x list)
- "Return a list with X inserted into LIST at position N.
-
-See also: `-splice', `-splice-list'"
- (declare (pure t) (side-effect-free t))
- (let ((split-list (-split-at n list)))
- (nconc (car split-list) (cons x (cadr split-list)))))
-
-(defun -replace-at (n x list)
- "Return a list with element at Nth position in LIST replaced with X.
-
-See also: `-replace'"
- (declare (pure t) (side-effect-free t))
- (let ((split-list (-split-at n list)))
- (nconc (car split-list) (cons x (cdr (cadr split-list))))))
-
-(defun -update-at (n func list)
- "Return a list with element at Nth position in LIST replaced with `(func (nth n list))`.
-
-See also: `-map-when'"
- (let ((split-list (-split-at n list)))
- (nconc (car split-list) (cons (funcall func (car (cadr split-list))) (cdr (cadr split-list))))))
-
-(defmacro --update-at (n form list)
- "Anaphoric version of `-update-at'."
- (declare (debug (form form form)))
- `(-update-at ,n (lambda (it) ,form) ,list))
-
-(defun -remove-at (n list)
- "Return a list with element at Nth position in LIST removed.
-
-See also: `-remove-at-indices', `-remove'"
- (declare (pure t) (side-effect-free t))
- (-remove-at-indices (list n) list))
-
-(defun -remove-at-indices (indices list)
- "Return a list whose elements are elements from LIST without
-elements selected as `(nth i list)` for all i
-from INDICES.
-
-See also: `-remove-at', `-remove'"
- (declare (pure t) (side-effect-free t))
- (let* ((indices (-sort '< indices))
- (diffs (cons (car indices) (-map '1- (-zip-with '- (cdr indices) indices))))
- r)
- (--each diffs
- (let ((split (-split-at it list)))
- (!cons (car split) r)
- (setq list (cdr (cadr split)))))
- (!cons list r)
- (apply '-concat (nreverse r))))
-
-(defmacro --split-with (pred list)
- "Anaphoric form of `-split-with'."
- (declare (debug (form form)))
- (let ((l (make-symbol "list"))
- (r (make-symbol "result"))
- (c (make-symbol "continue")))
- `(let ((,l ,list)
- (,r nil)
- (,c t))
- (while (and ,l ,c)
- (let ((it (car ,l)))
- (if (not ,pred)
- (setq ,c nil)
- (!cons it ,r)
- (!cdr ,l))))
- (list (nreverse ,r) ,l))))
-
-(defun -split-with (pred list)
- "Return a list of ((-take-while PRED LIST) (-drop-while PRED LIST)), in no more than one pass through the list."
- (--split-with (funcall pred it) list))
-
-(defmacro -split-on (item list)
- "Split the LIST each time ITEM is found.
-
-Unlike `-partition-by', the ITEM is discarded from the results.
-Empty lists are also removed from the result.
-
-Comparison is done by `equal'.
-
-See also `-split-when'"
- (declare (debug (form form)))
- `(-split-when (lambda (it) (equal it ,item)) ,list))
-
-(defmacro --split-when (form list)
- "Anaphoric version of `-split-when'."
- (declare (debug (form form)))
- `(-split-when (lambda (it) ,form) ,list))
-
-(defun -split-when (fn list)
- "Split the LIST on each element where FN returns non-nil.
-
-Unlike `-partition-by', the \"matched\" element is discarded from
-the results. Empty lists are also removed from the result.
-
-This function can be thought of as a generalization of
-`split-string'."
- (let (r s)
- (while list
- (if (not (funcall fn (car list)))
- (push (car list) s)
- (when s (push (nreverse s) r))
- (setq s nil))
- (!cdr list))
- (when s (push (nreverse s) r))
- (nreverse r)))
-
-(defmacro --separate (form list)
- "Anaphoric form of `-separate'."
- (declare (debug (form form)))
- (let ((y (make-symbol "yes"))
- (n (make-symbol "no")))
- `(let (,y ,n)
- (--each ,list (if ,form (!cons it ,y) (!cons it ,n)))
- (list (nreverse ,y) (nreverse ,n)))))
-
-(defun -separate (pred list)
- "Return a list of ((-filter PRED LIST) (-remove PRED LIST)), in one pass through the list."
- (--separate (funcall pred it) list))
-
-(defun ---partition-all-in-steps-reversed (n step list)
- "Private: Used by -partition-all-in-steps and -partition-in-steps."
- (when (< step 1)
- (error "Step must be a positive number, or you're looking at some juicy infinite loops."))
- (let ((result nil))
- (while list
- (!cons (-take n list) result)
- (setq list (-drop step list)))
- result))
-
-(defun -partition-all-in-steps (n step list)
- "Return a new list with the items in LIST grouped into N-sized sublists at offsets STEP apart.
-The last groups may contain less than N items."
- (declare (pure t) (side-effect-free t))
- (nreverse (---partition-all-in-steps-reversed n step list)))
-
-(defun -partition-in-steps (n step list)
- "Return a new list with the items in LIST grouped into N-sized sublists at offsets STEP apart.
-If there are not enough items to make the last group N-sized,
-those items are discarded."
- (declare (pure t) (side-effect-free t))
- (let ((result (---partition-all-in-steps-reversed n step list)))
- (while (and result (< (length (car result)) n))
- (!cdr result))
- (nreverse result)))
-
-(defun -partition-all (n list)
- "Return a new list with the items in LIST grouped into N-sized sublists.
-The last group may contain less than N items."
- (declare (pure t) (side-effect-free t))
- (-partition-all-in-steps n n list))
-
-(defun -partition (n list)
- "Return a new list with the items in LIST grouped into N-sized sublists.
-If there are not enough items to make the last group N-sized,
-those items are discarded."
- (declare (pure t) (side-effect-free t))
- (-partition-in-steps n n list))
-
-(defmacro --partition-by (form list)
- "Anaphoric form of `-partition-by'."
- (declare (debug (form form)))
- (let ((r (make-symbol "result"))
- (s (make-symbol "sublist"))
- (v (make-symbol "value"))
- (n (make-symbol "new-value"))
- (l (make-symbol "list")))
- `(let ((,l ,list))
- (when ,l
- (let* ((,r nil)
- (it (car ,l))
- (,s (list it))
- (,v ,form)
- (,l (cdr ,l)))
- (while ,l
- (let* ((it (car ,l))
- (,n ,form))
- (unless (equal ,v ,n)
- (!cons (nreverse ,s) ,r)
- (setq ,s nil)
- (setq ,v ,n))
- (!cons it ,s)
- (!cdr ,l)))
- (!cons (nreverse ,s) ,r)
- (nreverse ,r))))))
-
-(defun -partition-by (fn list)
- "Apply FN to each item in LIST, splitting it each time FN returns a new value."
- (--partition-by (funcall fn it) list))
-
-(defmacro --partition-by-header (form list)
- "Anaphoric form of `-partition-by-header'."
- (declare (debug (form form)))
- (let ((r (make-symbol "result"))
- (s (make-symbol "sublist"))
- (h (make-symbol "header-value"))
- (b (make-symbol "seen-body?"))
- (n (make-symbol "new-value"))
- (l (make-symbol "list")))
- `(let ((,l ,list))
- (when ,l
- (let* ((,r nil)
- (it (car ,l))
- (,s (list it))
- (,h ,form)
- (,b nil)
- (,l (cdr ,l)))
- (while ,l
- (let* ((it (car ,l))
- (,n ,form))
- (if (equal ,h ,n)
- (when ,b
- (!cons (nreverse ,s) ,r)
- (setq ,s nil)
- (setq ,b nil))
- (setq ,b t))
- (!cons it ,s)
- (!cdr ,l)))
- (!cons (nreverse ,s) ,r)
- (nreverse ,r))))))
-
-(defun -partition-by-header (fn list)
- "Apply FN to the first item in LIST. That is the header
-value. Apply FN to each item in LIST, splitting it each time FN
-returns the header value, but only after seeing at least one
-other value (the body)."
- (--partition-by-header (funcall fn it) list))
-
-(defun -partition-after-pred (pred list)
- "Partition directly after each time PRED is true on an element of LIST."
- (when list
- (let ((rest (-partition-after-pred pred
- (cdr list))))
- (if (funcall pred (car list))
- ;;split after (car list)
- (cons (list (car list))
- rest)
-
- ;;don't split after (car list)
- (cons (cons (car list)
- (car rest))
- (cdr rest))))))
-
-(defun -partition-before-pred (pred list)
- "Partition directly before each time PRED is true on an element of LIST."
- (nreverse (-map #'reverse
- (-partition-after-pred pred (reverse list)))))
-
-(defun -partition-after-item (item list)
- "Partition directly after each time ITEM appears in LIST."
- (-partition-after-pred (lambda (ele) (equal ele item))
- list))
-
-(defun -partition-before-item (item list)
- "Partition directly before each time ITEM appears in LIST."
- (-partition-before-pred (lambda (ele) (equal ele item))
- list))
-
-(defmacro --group-by (form list)
- "Anaphoric form of `-group-by'."
- (declare (debug t))
- (let ((n (make-symbol "n"))
- (k (make-symbol "k"))
- (grp (make-symbol "grp")))
- `(nreverse
- (-map
- (lambda (,n)
- (cons (car ,n)
- (nreverse (cdr ,n))))
- (--reduce-from
- (let* ((,k (,@form))
- (,grp (assoc ,k acc)))
- (if ,grp
- (setcdr ,grp (cons it (cdr ,grp)))
- (push
- (list ,k it)
- acc))
- acc)
- nil ,list)))))
-
-(defun -group-by (fn list)
- "Separate LIST into an alist whose keys are FN applied to the
-elements of LIST. Keys are compared by `equal'."
- (--group-by (funcall fn it) list))
-
-(defun -interpose (sep list)
- "Return a new list of all elements in LIST separated by SEP."
- (declare (pure t) (side-effect-free t))
- (let (result)
- (when list
- (!cons (car list) result)
- (!cdr list))
- (while list
- (setq result (cons (car list) (cons sep result)))
- (!cdr list))
- (nreverse result)))
-
-(defun -interleave (&rest lists)
- "Return a new list of the first item in each list, then the second etc."
- (declare (pure t) (side-effect-free t))
- (when lists
- (let (result)
- (while (-none? 'null lists)
- (--each lists (!cons (car it) result))
- (setq lists (-map 'cdr lists)))
- (nreverse result))))
-
-(defmacro --zip-with (form list1 list2)
- "Anaphoric form of `-zip-with'.
-
-The elements in list1 are bound as symbol `it', the elements in list2 as symbol `other'."
- (declare (debug (form form form)))
- (let ((r (make-symbol "result"))
- (l1 (make-symbol "list1"))
- (l2 (make-symbol "list2")))
- `(let ((,r nil)
- (,l1 ,list1)
- (,l2 ,list2))
- (while (and ,l1 ,l2)
- (let ((it (car ,l1))
- (other (car ,l2)))
- (!cons ,form ,r)
- (!cdr ,l1)
- (!cdr ,l2)))
- (nreverse ,r))))
-
-(defun -zip-with (fn list1 list2)
- "Zip the two lists LIST1 and LIST2 using a function FN. This
-function is applied pairwise taking as first argument element of
-LIST1 and as second argument element of LIST2 at corresponding
-position.
-
-The anaphoric form `--zip-with' binds the elements from LIST1 as symbol `it',
-and the elements from LIST2 as symbol `other'."
- (--zip-with (funcall fn it other) list1 list2))
-
-(defun -zip (&rest lists)
- "Zip LISTS together. Group the head of each list, followed by the
-second elements of each list, and so on. The lengths of the returned
-groupings are equal to the length of the shortest input list.
-
-If two lists are provided as arguments, return the groupings as a list
-of cons cells. Otherwise, return the groupings as a list of lists.
-
-Please note! This distinction is being removed in an upcoming 3.0
-release of Dash. If you rely on this behavior, use -zip-pair instead."
- (declare (pure t) (side-effect-free t))
- (when lists
- (let (results)
- (while (-none? 'null lists)
- (setq results (cons (mapcar 'car lists) results))
- (setq lists (mapcar 'cdr lists)))
- (setq results (nreverse results))
- (if (= (length lists) 2)
- ;; to support backward compatability, return
- ;; a cons cell if two lists were provided
- (--map (cons (car it) (cadr it)) results)
- results))))
-
-(defalias '-zip-pair '-zip)
-
-(defun -zip-fill (fill-value &rest lists)
- "Zip LISTS, with FILL-VALUE padded onto the shorter lists. The
-lengths of the returned groupings are equal to the length of the
-longest input list."
- (declare (pure t) (side-effect-free t))
- (apply '-zip (apply '-pad (cons fill-value lists))))
-
-(defun -unzip (lists)
- "Unzip LISTS.
-
-This works just like `-zip' but takes a list of lists instead of
-a variable number of arguments, such that
-
- (-unzip (-zip L1 L2 L3 ...))
-
-is identity (given that the lists are the same length).
-
-See also: `-zip'"
- (apply '-zip lists))
-
-(defun -cycle (list)
- "Return an infinite copy of LIST that will cycle through the
-elements and repeat from the beginning."
- (declare (pure t) (side-effect-free t))
- (let ((newlist (-map 'identity list)))
- (nconc newlist newlist)))
-
-(defun -pad (fill-value &rest lists)
- "Appends FILL-VALUE to the end of each list in LISTS such that they
-will all have the same length."
- (let* ((annotations (-annotate 'length lists))
- (n (-max (-map 'car annotations))))
- (--map (append (cdr it) (-repeat (- n (car it)) fill-value)) annotations)))
-
-(defun -annotate (fn list)
- "Return a list of cons cells where each cell is FN applied to each
-element of LIST paired with the unmodified element of LIST."
- (-zip (-map fn list) list))
-
-(defmacro --annotate (form list)
- "Anaphoric version of `-annotate'."
- (declare (debug (form form)))
- `(-annotate (lambda (it) ,form) ,list))
-
-(defun dash--table-carry (lists restore-lists &optional re)
- "Helper for `-table' and `-table-flat'.
-
-If a list overflows, carry to the right and reset the list."
- (while (not (or (car lists)
- (equal lists '(nil))))
- (setcar lists (car restore-lists))
- (pop (cadr lists))
- (!cdr lists)
- (!cdr restore-lists)
- (when re
- (push (nreverse (car re)) (cadr re))
- (setcar re nil)
- (!cdr re))))
-
-(defun -table (fn &rest lists)
- "Compute outer product of LISTS using function FN.
-
-The function FN should have the same arity as the number of
-supplied lists.
-
-The outer product is computed by applying fn to all possible
-combinations created by taking one element from each list in
-order. The dimension of the result is (length lists).
-
-See also: `-table-flat'"
- (let ((restore-lists (copy-sequence lists))
- (last-list (last lists))
- (re (make-list (length lists) nil)))
- (while (car last-list)
- (let ((item (apply fn (-map 'car lists))))
- (push item (car re))
- (setcar lists (cdar lists)) ;; silence byte compiler
- (dash--table-carry lists restore-lists re)))
- (nreverse (car (last re)))))
-
-(defun -table-flat (fn &rest lists)
- "Compute flat outer product of LISTS using function FN.
-
-The function FN should have the same arity as the number of
-supplied lists.
-
-The outer product is computed by applying fn to all possible
-combinations created by taking one element from each list in
-order. The results are flattened, ignoring the tensor structure
-of the result. This is equivalent to calling:
-
- (-flatten-n (1- (length lists)) (apply \\='-table fn lists))
-
-but the implementation here is much more efficient.
-
-See also: `-flatten-n', `-table'"
- (let ((restore-lists (copy-sequence lists))
- (last-list (last lists))
- re)
- (while (car last-list)
- (let ((item (apply fn (-map 'car lists))))
- (push item re)
- (setcar lists (cdar lists)) ;; silence byte compiler
- (dash--table-carry lists restore-lists)))
- (nreverse re)))
-
-(defun -partial (fn &rest args)
- "Take a function FN and fewer than the normal arguments to FN,
-and return a fn that takes a variable number of additional ARGS.
-When called, the returned function calls FN with ARGS first and
-then additional args."
- (apply 'apply-partially fn args))
-
-(defun -elem-index (elem list)
- "Return the index of the first element in the given LIST which
-is equal to the query element ELEM, or nil if there is no
-such element."
- (declare (pure t) (side-effect-free t))
- (car (-elem-indices elem list)))
-
-(defun -elem-indices (elem list)
- "Return the indices of all elements in LIST equal to the query
-element ELEM, in ascending order."
- (declare (pure t) (side-effect-free t))
- (-find-indices (-partial 'equal elem) list))
-
-(defun -find-indices (pred list)
- "Return the indices of all elements in LIST satisfying the
-predicate PRED, in ascending order."
- (apply 'append (--map-indexed (when (funcall pred it) (list it-index)) list)))
-
-(defmacro --find-indices (form list)
- "Anaphoric version of `-find-indices'."
- (declare (debug (form form)))
- `(-find-indices (lambda (it) ,form) ,list))
-
-(defun -find-index (pred list)
- "Take a predicate PRED and a LIST and return the index of the
-first element in the list satisfying the predicate, or nil if
-there is no such element.
-
-See also `-first'."
- (car (-find-indices pred list)))
-
-(defmacro --find-index (form list)
- "Anaphoric version of `-find-index'."
- (declare (debug (form form)))
- `(-find-index (lambda (it) ,form) ,list))
-
-(defun -find-last-index (pred list)
- "Take a predicate PRED and a LIST and return the index of the
-last element in the list satisfying the predicate, or nil if
-there is no such element.
-
-See also `-last'."
- (-last-item (-find-indices pred list)))
-
-(defmacro --find-last-index (form list)
- "Anaphoric version of `-find-last-index'."
- `(-find-last-index (lambda (it) ,form) ,list))
-
-(defun -select-by-indices (indices list)
- "Return a list whose elements are elements from LIST selected
-as `(nth i list)` for all i from INDICES."
- (declare (pure t) (side-effect-free t))
- (let (r)
- (--each indices
- (!cons (nth it list) r))
- (nreverse r)))
-
-(defun -select-columns (columns table)
- "Select COLUMNS from TABLE.
-
-TABLE is a list of lists where each element represents one row.
-It is assumed each row has the same length.
-
-Each row is transformed such that only the specified COLUMNS are
-selected.
-
-See also: `-select-column', `-select-by-indices'"
- (declare (pure t) (side-effect-free t))
- (--map (-select-by-indices columns it) table))
-
-(defun -select-column (column table)
- "Select COLUMN from TABLE.
-
-TABLE is a list of lists where each element represents one row.
-It is assumed each row has the same length.
-
-The single selected column is returned as a list.
-
-See also: `-select-columns', `-select-by-indices'"
- (declare (pure t) (side-effect-free t))
- (--mapcat (-select-by-indices (list column) it) table))
-
-(defmacro -> (x &optional form &rest more)
- "Thread the expr through the forms. Insert X as the second item
-in the first form, making a list of it if it is not a list
-already. If there are more forms, insert the first form as the
-second item in second form, etc."
- (declare (debug (form &rest [&or symbolp (sexp &rest form)])))
- (cond
- ((null form) x)
- ((null more) (if (listp form)
- `(,(car form) ,x ,@(cdr form))
- (list form x)))
- (:else `(-> (-> ,x ,form) ,@more))))
-
-(defmacro ->> (x &optional form &rest more)
- "Thread the expr through the forms. Insert X as the last item
-in the first form, making a list of it if it is not a list
-already. If there are more forms, insert the first form as the
-last item in second form, etc."
- (declare (debug ->))
- (cond
- ((null form) x)
- ((null more) (if (listp form)
- `(,@form ,x)
- (list form x)))
- (:else `(->> (->> ,x ,form) ,@more))))
-
-(defmacro --> (x &rest forms)
- "Starting with the value of X, thread each expression through FORMS.
-
-Insert X at the position signified by the symbol `it' in the first
-form. If there are more forms, insert the first form at the position
-signified by `it' in in second form, etc."
- (declare (debug (form body)))
- `(-as-> ,x it ,@forms))
-
-(defmacro -as-> (value variable &rest forms)
- "Starting with VALUE, thread VARIABLE through FORMS.
-
-In the first form, bind VARIABLE to VALUE. In the second form, bind
-VARIABLE to the result of the first form, and so forth."
- (declare (debug (form symbolp body)))
- (if (null forms)
- `,value
- `(let ((,variable ,value))
- (-as-> ,(if (symbolp (car forms))
- (list (car forms) variable)
- (car forms))
- ,variable
- ,@(cdr forms)))))
-
-(defmacro -some-> (x &optional form &rest more)
- "When expr is non-nil, thread it through the first form (via `->'),
-and when that result is non-nil, through the next form, etc."
- (declare (debug ->))
- (if (null form) x
- (let ((result (make-symbol "result")))
- `(-some-> (-when-let (,result ,x)
- (-> ,result ,form))
- ,@more))))
-
-(defmacro -some->> (x &optional form &rest more)
- "When expr is non-nil, thread it through the first form (via `->>'),
-and when that result is non-nil, through the next form, etc."
- (declare (debug ->))
- (if (null form) x
- (let ((result (make-symbol "result")))
- `(-some->> (-when-let (,result ,x)
- (->> ,result ,form))
- ,@more))))
-
-(defmacro -some--> (x &optional form &rest more)
- "When expr in non-nil, thread it through the first form (via `-->'),
-and when that result is non-nil, through the next form, etc."
- (declare (debug ->))
- (if (null form) x
- (let ((result (make-symbol "result")))
- `(-some--> (-when-let (,result ,x)
- (--> ,result ,form))
- ,@more))))
-
-(defun -grade-up (comparator list)
- "Grade elements of LIST using COMPARATOR relation, yielding a
-permutation vector such that applying this permutation to LIST
-sorts it in ascending order."
- ;; ugly hack to "fix" lack of lexical scope
- (let ((comp `(lambda (it other) (funcall ',comparator (car it) (car other)))))
- (->> (--map-indexed (cons it it-index) list)
- (-sort comp)
- (-map 'cdr))))
-
-(defun -grade-down (comparator list)
- "Grade elements of LIST using COMPARATOR relation, yielding a
-permutation vector such that applying this permutation to LIST
-sorts it in descending order."
- ;; ugly hack to "fix" lack of lexical scope
- (let ((comp `(lambda (it other) (funcall ',comparator (car other) (car it)))))
- (->> (--map-indexed (cons it it-index) list)
- (-sort comp)
- (-map 'cdr))))
-
-(defvar dash--source-counter 0
- "Monotonic counter for generated symbols.")
-
-(defun dash--match-make-source-symbol ()
- "Generate a new dash-source symbol.
-
-All returned symbols are guaranteed to be unique."
- (prog1 (make-symbol (format "--dash-source-%d--" dash--source-counter))
- (setq dash--source-counter (1+ dash--source-counter))))
-
-(defun dash--match-ignore-place-p (symbol)
- "Return non-nil if SYMBOL is a symbol and starts with _."
- (and (symbolp symbol)
- (eq (aref (symbol-name symbol) 0) ?_)))
-
-(defun dash--match-cons-skip-cdr (skip-cdr source)
- "Helper function generating idiomatic shifting code."
- (cond
- ((= skip-cdr 0)
- `(pop ,source))
- (t
- `(prog1 ,(dash--match-cons-get-car skip-cdr source)
- (setq ,source ,(dash--match-cons-get-cdr (1+ skip-cdr) source))))))
-
-(defun dash--match-cons-get-car (skip-cdr source)
- "Helper function generating idiomatic code to get nth car."
- (cond
- ((= skip-cdr 0)
- `(car ,source))
- ((= skip-cdr 1)
- `(cadr ,source))
- (t
- `(nth ,skip-cdr ,source))))
-
-(defun dash--match-cons-get-cdr (skip-cdr source)
- "Helper function generating idiomatic code to get nth cdr."
- (cond
- ((= skip-cdr 0)
- source)
- ((= skip-cdr 1)
- `(cdr ,source))
- (t
- `(nthcdr ,skip-cdr ,source))))
-
-(defun dash--match-cons (match-form source)
- "Setup a cons matching environment and call the real matcher."
- (let ((s (dash--match-make-source-symbol))
- (n 0)
- (m match-form))
- (while (and (consp m)
- (dash--match-ignore-place-p (car m)))
- (setq n (1+ n)) (!cdr m))
- (cond
- ;; when we only have one pattern in the list, we don't have to
- ;; create a temporary binding (--dash-source--) for the source
- ;; and just use the input directly
- ((and (consp m)
- (not (cdr m)))
- (dash--match (car m) (dash--match-cons-get-car n source)))
- ;; handle other special types
- ((> n 0)
- (dash--match m (dash--match-cons-get-cdr n source)))
- ;; this is the only entry-point for dash--match-cons-1, that's
- ;; why we can't simply use the above branch, it would produce
- ;; infinite recursion
- (t
- (cons (list s source) (dash--match-cons-1 match-form s))))))
-
-(defun dash--match-cons-1 (match-form source &optional props)
- "Match MATCH-FORM against SOURCE.
-
-MATCH-FORM is a proper or improper list. Each element of
-MATCH-FORM is either a symbol, which gets bound to the respective
-value in source or another match form which gets destructured
-recursively.
-
-If the cdr of last cons cell in the list is `nil', matching stops
-there.
-
-SOURCE is a proper or improper list."
- (let ((skip-cdr (or (plist-get props :skip-cdr) 0)))
- (cond
- ((consp match-form)
- (cond
- ((cdr match-form)
- (cond
- ((and (symbolp (car match-form))
- (memq (car match-form) '(&keys &plist &alist &hash)))
- (dash--match-kv (dash--match-kv-normalize-match-form match-form) (dash--match-cons-get-cdr skip-cdr source)))
- ((dash--match-ignore-place-p (car match-form))
- (dash--match-cons-1 (cdr match-form) source
- (plist-put props :skip-cdr (1+ skip-cdr))))
- (t
- (-concat (dash--match (car match-form) (dash--match-cons-skip-cdr skip-cdr source))
- (dash--match-cons-1 (cdr match-form) source)))))
- (t ;; Last matching place, no need for shift
- (dash--match (car match-form) (dash--match-cons-get-car skip-cdr source)))))
- ((eq match-form nil)
- nil)
- (t ;; Handle improper lists. Last matching place, no need for shift
- (dash--match match-form (dash--match-cons-get-cdr skip-cdr source))))))
-
-(defun dash--vector-tail (seq start)
- "Return the tail of SEQ starting at START."
- (cond
- ((vectorp seq)
- (let* ((re-length (- (length seq) start))
- (re (make-vector re-length 0)))
- (--dotimes re-length (aset re it (aref seq (+ it start))))
- re))
- ((stringp seq)
- (substring seq start))))
-
-(defun dash--match-vector (match-form source)
- "Setup a vector matching environment and call the real matcher."
- (let ((s (dash--match-make-source-symbol)))
- (cond
- ;; don't bind `s' if we only have one sub-pattern
- ((= (length match-form) 1)
- (dash--match (aref match-form 0) `(aref ,source 0)))
- ;; if the source is a symbol, we don't need to re-bind it
- ((symbolp source)
- (dash--match-vector-1 match-form source))
- ;; don't bind `s' if we only have one sub-pattern which is not ignored
- ((let* ((ignored-places (mapcar 'dash--match-ignore-place-p match-form))
- (ignored-places-n (length (-remove 'null ignored-places))))
- (when (= ignored-places-n (1- (length match-form)))
- (let ((n (-find-index 'null ignored-places)))
- (dash--match (aref match-form n) `(aref ,source ,n))))))
- (t
- (cons (list s source) (dash--match-vector-1 match-form s))))))
-
-(defun dash--match-vector-1 (match-form source)
- "Match MATCH-FORM against SOURCE.
-
-MATCH-FORM is a vector. Each element of MATCH-FORM is either a
-symbol, which gets bound to the respective value in source or
-another match form which gets destructured recursively.
-
-If second-from-last place in MATCH-FORM is the symbol &rest, the
-next element of the MATCH-FORM is matched against the tail of
-SOURCE, starting at index of the &rest symbol. This is
-conceptually the same as the (head . tail) match for improper
-lists, where dot plays the role of &rest.
-
-SOURCE is a vector.
-
-If the MATCH-FORM vector is shorter than SOURCE vector, only
-the (length MATCH-FORM) places are bound, the rest of the SOURCE
-is discarded."
- (let ((i 0)
- (l (length match-form))
- (re))
- (while (< i l)
- (let ((m (aref match-form i)))
- (push (cond
- ((and (symbolp m)
- (eq m '&rest))
- (prog1 (dash--match
- (aref match-form (1+ i))
- `(dash--vector-tail ,source ,i))
- (setq i l)))
- ((and (symbolp m)
- ;; do not match symbols starting with _
- (not (eq (aref (symbol-name m) 0) ?_)))
- (list (list m `(aref ,source ,i))))
- ((not (symbolp m))
- (dash--match m `(aref ,source ,i))))
- re)
- (setq i (1+ i))))
- (-flatten-n 1 (nreverse re))))
-
-(defun dash--match-kv-normalize-match-form (pattern)
- "Normalize kv PATTERN.
-
-This method normalizes PATTERN to the format expected by
-`dash--match-kv'. See `-let' for the specification."
- (let ((normalized (list (car pattern)))
- (skip nil)
- (fill-placeholder (make-symbol "--dash-fill-placeholder--")))
- (-each (apply '-zip (-pad fill-placeholder (cdr pattern) (cddr pattern)))
- (lambda (pair)
- (let ((current (car pair))
- (next (cdr pair)))
- (if skip
- (setq skip nil)
- (if (or (eq fill-placeholder next)
- (not (or (and (symbolp next)
- (not (keywordp next))
- (not (eq next t))
- (not (eq next nil)))
- (and (consp next)
- (not (eq (car next) 'quote)))
- (vectorp next))))
- (progn
- (cond
- ((keywordp current)
- (push current normalized)
- (push (intern (substring (symbol-name current) 1)) normalized))
- ((stringp current)
- (push current normalized)
- (push (intern current) normalized))
- ((and (consp current)
- (eq (car current) 'quote))
- (push current normalized)
- (push (cadr current) normalized))
- (t (error "-let: found key `%s' in kv destructuring but its pattern `%s' is invalid and can not be derived from the key" current next)))
- (setq skip nil))
- (push current normalized)
- (push next normalized)
- (setq skip t))))))
- (nreverse normalized)))
-
-(defun dash--match-kv (match-form source)
- "Setup a kv matching environment and call the real matcher.
-
-kv can be any key-value store, such as plist, alist or hash-table."
- (let ((s (dash--match-make-source-symbol)))
- (cond
- ;; don't bind `s' if we only have one sub-pattern (&type key val)
- ((= (length match-form) 3)
- (dash--match-kv-1 (cdr match-form) source (car match-form)))
- ;; if the source is a symbol, we don't need to re-bind it
- ((symbolp source)
- (dash--match-kv-1 (cdr match-form) source (car match-form)))
- (t
- (cons (list s source) (dash--match-kv-1 (cdr match-form) s (car match-form)))))))
-
-(defun dash--match-kv-1 (match-form source type)
- "Match MATCH-FORM against SOURCE of type TYPE.
-
-MATCH-FORM is a proper list of the form (key1 place1 ... keyN
-placeN). Each placeK is either a symbol, which gets bound to the
-value of keyK retrieved from the key-value store, or another
-match form which gets destructured recursively.
-
-SOURCE is a key-value store of type TYPE, which can be a plist,
-an alist or a hash table.
-
-TYPE is a token specifying the type of the key-value store.
-Valid values are &plist, &alist and &hash."
- (-flatten-n 1 (-map
- (lambda (kv)
- (let* ((k (car kv))
- (v (cadr kv))
- (getter (cond
- ((or (eq type '&plist) (eq type '&keys))
- `(plist-get ,source ,k))
- ((eq type '&alist)
- `(cdr (assoc ,k ,source)))
- ((eq type '&hash)
- `(gethash ,k ,source)))))
- (cond
- ((symbolp v)
- (list (list v getter)))
- (t (dash--match v getter)))))
- (-partition 2 match-form))))
-
-(defun dash--match-symbol (match-form source)
- "Bind a symbol.
-
-This works just like `let', there is no destructuring."
- (list (list match-form source)))
-
-(defun dash--match (match-form source)
- "Match MATCH-FORM against SOURCE.
-
-This function tests the MATCH-FORM and dispatches to specific
-matchers based on the type of the expression.
-
-Key-value stores are disambiguated by placing a token &plist,
-&alist or &hash as a first item in the MATCH-FORM."
- (cond
- ((symbolp match-form)
- (dash--match-symbol match-form source))
- ((consp match-form)
- (cond
- ;; Handle the "x &as" bindings first.
- ((and (consp (cdr match-form))
- (symbolp (car match-form))
- (eq '&as (cadr match-form)))
- (let ((s (car match-form)))
- (cons (list s source)
- (dash--match (cddr match-form) s))))
- ((memq (car match-form) '(&keys &plist &alist &hash))
- (dash--match-kv (dash--match-kv-normalize-match-form match-form) source))
- (t (dash--match-cons match-form source))))
- ((vectorp match-form)
- ;; We support the &as binding in vectors too
- (cond
- ((and (> (length match-form) 2)
- (symbolp (aref match-form 0))
- (eq '&as (aref match-form 1)))
- (let ((s (aref match-form 0)))
- (cons (list s source)
- (dash--match (dash--vector-tail match-form 2) s))))
- (t (dash--match-vector match-form source))))))
-
-(defun dash--normalize-let-varlist (varlist)
- "Normalize VARLIST so that every binding is a list.
-
-`let' allows specifying a binding which is not a list but simply
-the place which is then automatically bound to nil, such that all
-three of the following are identical and evaluate to nil.
-
- (let (a) a)
- (let ((a)) a)
- (let ((a nil)) a)
-
-This function normalizes all of these to the last form."
- (--map (if (consp it) it (list it nil)) varlist))
-
-(defmacro -let* (varlist &rest body)
- "Bind variables according to VARLIST then eval BODY.
-
-VARLIST is a list of lists of the form (PATTERN SOURCE). Each
-PATTERN is matched against the SOURCE structurally. SOURCE is
-only evaluated once for each PATTERN.
-
-Each SOURCE can refer to the symbols already bound by this
-VARLIST. This is useful if you want to destructure SOURCE
-recursively but also want to name the intermediate structures.
-
-See `-let' for the list of all possible patterns."
- (declare (debug ((&rest [&or (sexp form) sexp]) body))
- (indent 1))
- (let* ((varlist (dash--normalize-let-varlist varlist))
- (bindings (--mapcat (dash--match (car it) (cadr it)) varlist)))
- `(let* ,bindings
- ,@body)))
-
-(defmacro -let (varlist &rest body)
- "Bind variables according to VARLIST then eval BODY.
-
-VARLIST is a list of lists of the form (PATTERN SOURCE). Each
-PATTERN is matched against the SOURCE \"structurally\". SOURCE
-is only evaluated once for each PATTERN. Each PATTERN is matched
-recursively, and can therefore contain sub-patterns which are
-matched against corresponding sub-expressions of SOURCE.
-
-All the SOURCEs are evalled before any symbols are
-bound (i.e. \"in parallel\").
-
-If VARLIST only contains one (PATTERN SOURCE) element, you can
-optionally specify it using a vector and discarding the
-outer-most parens. Thus
-
- (-let ((PATTERN SOURCE)) ..)
-
-becomes
-
- (-let [PATTERN SOURCE] ..).
-
-`-let' uses a convention of not binding places (symbols) starting
-with _ whenever it's possible. You can use this to skip over
-entries you don't care about. However, this is not *always*
-possible (as a result of implementation) and these symbols might
-get bound to undefined values.
-
-Following is the overview of supported patterns. Remember that
-patterns can be matched recursively, so every a, b, aK in the
-following can be a matching construct and not necessarily a
-symbol/variable.
-
-Symbol:
-
- a - bind the SOURCE to A. This is just like regular `let'.
-
-Conses and lists:
-
- (a) - bind `car' of cons/list to A
-
- (a . b) - bind car of cons to A and `cdr' to B
-
- (a b) - bind car of list to A and `cadr' to B
-
- (a1 a2 a3 ...) - bind 0th car of list to A1, 1st to A2, 2nd to A3 ...
-
- (a1 a2 a3 ... aN . rest) - as above, but bind the Nth cdr to REST.
-
-Vectors:
-
- [a] - bind 0th element of a non-list sequence to A (works with
- vectors, strings, bit arrays...)
-
- [a1 a2 a3 ...] - bind 0th element of non-list sequence to A0, 1st to
- A1, 2nd to A2, ...
- If the PATTERN is shorter than SOURCE, the values at
- places not in PATTERN are ignored.
- If the PATTERN is longer than SOURCE, an `error' is
- thrown.
-
- [a1 a2 a3 ... &rest rest] - as above, but bind the rest of
- the sequence to REST. This is
- conceptually the same as improper list
- matching (a1 a2 ... aN . rest)
-
-Key/value stores:
-
- (&plist key0 a0 ... keyN aN) - bind value mapped by keyK in the
- SOURCE plist to aK. If the
- value is not found, aK is nil.
- Uses `plist-get' to fetch values.
-
- (&alist key0 a0 ... keyN aN) - bind value mapped by keyK in the
- SOURCE alist to aK. If the
- value is not found, aK is nil.
- Uses `assoc' to fetch values.
-
- (&hash key0 a0 ... keyN aN) - bind value mapped by keyK in the
- SOURCE hash table to aK. If the
- value is not found, aK is nil.
- Uses `gethash' to fetch values.
-
-Further, special keyword &keys supports \"inline\" matching of
-plist-like key-value pairs, similarly to &keys keyword of
-`cl-defun'.
-
- (a1 a2 ... aN &keys key1 b1 ... keyN bK)
-
-This binds N values from the list to a1 ... aN, then interprets
-the cdr as a plist (see key/value matching above).
-
-A shorthand notation for kv-destructuring exists which allows the
-patterns be optionally left out and derived from the key name in
-the following fashion:
-
-- a key :foo is converted into `foo' pattern,
-- a key 'bar is converted into `bar' pattern,
-- a key \"baz\" is converted into `baz' pattern.
-
-That is, the entire value under the key is bound to the derived
-variable without any further destructuring.
-
-This is possible only when the form following the key is not a
-valid pattern (i.e. not a symbol, a cons cell or a vector).
-Otherwise the matching proceeds as usual and in case of an
-invalid spec fails with an error.
-
-Thus the patterns are normalized as follows:
-
- ;; derive all the missing patterns
- (&plist :foo 'bar \"baz\") => (&plist :foo foo 'bar bar \"baz\" baz)
-
- ;; we can specify some but not others
- (&plist :foo 'bar explicit-bar) => (&plist :foo foo 'bar explicit-bar)
-
- ;; nothing happens, we store :foo in x
- (&plist :foo x) => (&plist :foo x)
-
- ;; nothing happens, we match recursively
- (&plist :foo (a b c)) => (&plist :foo (a b c))
-
-You can name the source using the syntax SYMBOL &as PATTERN.
-This syntax works with lists (proper or improper), vectors and
-all types of maps.
-
- (list &as a b c) (list 1 2 3)
-
-binds A to 1, B to 2, C to 3 and LIST to (1 2 3).
-
-Similarly:
-
- (bounds &as beg . end) (cons 1 2)
-
-binds BEG to 1, END to 2 and BOUNDS to (1 . 2).
-
- (items &as first . rest) (list 1 2 3)
-
-binds FIRST to 1, REST to (2 3) and ITEMS to (1 2 3)
-
- [vect &as _ b c] [1 2 3]
-
-binds B to 2, C to 3 and VECT to [1 2 3] (_ avoids binding as usual).
-
- (plist &as &plist :b b) (list :a 1 :b 2 :c 3)
-
-binds B to 2 and PLIST to (:a 1 :b 2 :c 3). Same for &alist and &hash.
-
-This is especially useful when we want to capture the result of a
-computation and destructure at the same time. Consider the
-form (function-returning-complex-structure) returning a list of
-two vectors with two items each. We want to capture this entire
-result and pass it to another computation, but at the same time
-we want to get the second item from each vector. We can achieve
-it with pattern
-
- (result &as [_ a] [_ b]) (function-returning-complex-structure)
-
-Note: Clojure programmers may know this feature as the \":as
-binding\". The difference is that we put the &as at the front
-because we need to support improper list binding."
- (declare (debug ([&or (&rest [&or (sexp form) sexp])
- (vector [&rest [sexp form]])]
- body))
- (indent 1))
- (if (vectorp varlist)
- `(let* ,(dash--match (aref varlist 0) (aref varlist 1))
- ,@body)
- (let* ((varlist (dash--normalize-let-varlist varlist))
- (inputs (--map-indexed (list (make-symbol (format "input%d" it-index)) (cadr it)) varlist))
- (new-varlist (--map (list (caar it) (cadr it)) (-zip varlist inputs))))
- `(let ,inputs
- (-let* ,new-varlist ,@body)))))
-
-(defmacro -lambda (match-form &rest body)
- "Return a lambda which destructures its input as MATCH-FORM and executes BODY.
-
-Note that you have to enclose the MATCH-FORM in a pair of parens,
-such that:
-
- (-lambda (x) body)
- (-lambda (x y ...) body)
-
-has the usual semantics of `lambda'. Furthermore, these get
-translated into normal lambda, so there is no performance
-penalty.
-
-See `-let' for the description of destructuring mechanism."
- (declare (doc-string 2) (indent defun)
- (debug (&define sexp
- [&optional stringp]
- [&optional ("interactive" interactive)]
- def-body)))
- (cond
- ((not (consp match-form))
- (signal 'wrong-type-argument "match-form must be a list"))
- ;; no destructuring, so just return regular lambda to make things faster
- ((-all? 'symbolp match-form)
- `(lambda ,match-form ,@body))
- (t
- (let* ((inputs (--map-indexed (list it (make-symbol (format "input%d" it-index))) match-form)))
- ;; TODO: because inputs to the lambda are evaluated only once,
- ;; -let* need not to create the extra bindings to ensure that.
- ;; We should find a way to optimize that. Not critical however.
- `(lambda ,(--map (cadr it) inputs)
- (-let* ,inputs ,@body))))))
-
-(defmacro -setq (&rest forms)
- "Bind each MATCH-FORM to the value of its VAL.
-
-MATCH-FORM destructuring is done according to the rules of `-let'.
-
-This macro allows you to bind multiple variables by destructuring
-the value, so for example:
-
- (-setq (a b) x
- (&plist :c c) plist)
-
-expands roughly speaking to the following code
-
- (setq a (car x)
- b (cadr x)
- c (plist-get plist :c))
-
-Care is taken to only evaluate each VAL once so that in case of
-multiple assignments it does not cause unexpected side effects.
-
-\(fn [MATCH-FORM VAL]...)"
- (declare (debug (&rest sexp form))
- (indent 1))
- (when (= (mod (length forms) 2) 1)
- (error "Odd number of arguments"))
- (let* ((forms-and-sources
- ;; First get all the necessary mappings with all the
- ;; intermediate bindings.
- (-map (lambda (x) (dash--match (car x) (cadr x)))
- (-partition 2 forms)))
- ;; To preserve the logic of dynamic scoping we must ensure
- ;; that we `setq' the variables outside of the `let*' form
- ;; which holds the destructured intermediate values. For
- ;; this we generate for each variable a placeholder which is
- ;; bound to (lexically) the result of the destructuring.
- ;; Then outside of the helper `let*' form we bind all the
- ;; original variables to their respective placeholders.
- ;; TODO: There is a lot of room for possible optimization,
- ;; for start playing with `special-variable-p' to eliminate
- ;; unnecessary re-binding.
- (variables-to-placeholders
- (-mapcat
- (lambda (bindings)
- (-map
- (lambda (binding)
- (let ((var (car binding)))
- (list var (make-symbol (concat "--dash-binding-" (symbol-name var) "--")))))
- (--filter (not (string-prefix-p "--" (symbol-name (car it)))) bindings)))
- forms-and-sources)))
- `(let ,(-map 'cadr variables-to-placeholders)
- (let* ,(-flatten-n 1 forms-and-sources)
- (setq ,@(-flatten (-map 'reverse variables-to-placeholders))))
- (setq ,@(-flatten variables-to-placeholders)))))
-
-(defmacro -if-let* (vars-vals then &rest else)
- "If all VALS evaluate to true, bind them to their corresponding
-VARS and do THEN, otherwise do ELSE. VARS-VALS should be a list
-of (VAR VAL) pairs.
-
-Note: binding is done according to `-let*'. VALS are evaluated
-sequentially, and evaluation stops after the first nil VAL is
-encountered."
- (declare (debug ((&rest (sexp form)) form body))
- (indent 2))
- (->> vars-vals
- (--mapcat (dash--match (car it) (cadr it)))
- (--reduce-r-from
- (let ((var (car it))
- (val (cadr it)))
- `(let ((,var ,val))
- (if ,var ,acc ,@else)))
- then)))
-
-(defmacro -if-let (var-val then &rest else)
- "If VAL evaluates to non-nil, bind it to VAR and do THEN,
-otherwise do ELSE.
-
-Note: binding is done according to `-let'.
-
-\(fn (VAR VAL) THEN &rest ELSE)"
- (declare (debug ((sexp form) form body))
- (indent 2))
- `(-if-let* (,var-val) ,then ,@else))
-
-(defmacro --if-let (val then &rest else)
- "If VAL evaluates to non-nil, bind it to symbol `it' and do THEN,
-otherwise do ELSE."
- (declare (debug (form form body))
- (indent 2))
- `(-if-let (it ,val) ,then ,@else))
-
-(defmacro -when-let* (vars-vals &rest body)
- "If all VALS evaluate to true, bind them to their corresponding
-VARS and execute body. VARS-VALS should be a list of (VAR VAL)
-pairs.
-
-Note: binding is done according to `-let*'. VALS are evaluated
-sequentially, and evaluation stops after the first nil VAL is
-encountered."
- (declare (debug ((&rest (sexp form)) body))
- (indent 1))
- `(-if-let* ,vars-vals (progn ,@body)))
-
-(defmacro -when-let (var-val &rest body)
- "If VAL evaluates to non-nil, bind it to VAR and execute body.
-
-Note: binding is done according to `-let'.
-
-\(fn (VAR VAL) &rest BODY)"
- (declare (debug ((sexp form) body))
- (indent 1))
- `(-if-let ,var-val (progn ,@body)))
-
-(defmacro --when-let (val &rest body)
- "If VAL evaluates to non-nil, bind it to symbol `it' and
-execute body."
- (declare (debug (form body))
- (indent 1))
- `(--if-let ,val (progn ,@body)))
-
-(defvar -compare-fn nil
- "Tests for equality use this function or `equal' if this is nil.
-It should only be set using dynamic scope with a let, like:
-
- (let ((-compare-fn #\\='=)) (-union numbers1 numbers2 numbers3)")
-
-(defun -distinct (list)
- "Return a new list with all duplicates removed.
-The test for equality is done with `equal',
-or with `-compare-fn' if that's non-nil.
-
-Alias: `-uniq'"
- (let (result)
- (--each list (unless (-contains? result it) (!cons it result)))
- (nreverse result)))
-
-(defalias '-uniq '-distinct)
-
-(defun -union (list list2)
- "Return a new list containing the elements of LIST and elements of LIST2 that are not in LIST.
-The test for equality is done with `equal',
-or with `-compare-fn' if that's non-nil."
- ;; We fall back to iteration implementation if the comparison
- ;; function isn't one of `eq', `eql' or `equal'.
- (let* ((result (reverse list))
- ;; TODO: get rid of this dynamic variable, pass it as an
- ;; argument instead.
- (-compare-fn (if (bound-and-true-p -compare-fn)
- -compare-fn
- 'equal)))
- (if (memq -compare-fn '(eq eql equal))
- (let ((ht (make-hash-table :test -compare-fn)))
- (--each list (puthash it t ht))
- (--each list2 (unless (gethash it ht) (!cons it result))))
- (--each list2 (unless (-contains? result it) (!cons it result))))
- (nreverse result)))
-
-(defun -intersection (list list2)
- "Return a new list containing only the elements that are members of both LIST and LIST2.
-The test for equality is done with `equal',
-or with `-compare-fn' if that's non-nil."
- (--filter (-contains? list2 it) list))
-
-(defun -difference (list list2)
- "Return a new list with only the members of LIST that are not in LIST2.
-The test for equality is done with `equal',
-or with `-compare-fn' if that's non-nil."
- (--filter (not (-contains? list2 it)) list))
-
-(defun -powerset (list)
- "Return the power set of LIST."
- (if (null list) '(())
- (let ((last (-powerset (cdr list))))
- (append (mapcar (lambda (x) (cons (car list) x)) last)
- last))))
-
-(defun -permutations (list)
- "Return the permutations of LIST."
- (if (null list) '(())
- (apply #'append
- (mapcar (lambda (x)
- (mapcar (lambda (perm) (cons x perm))
- (-permutations (remove x list))))
- list))))
-
-(defun -inits (list)
- "Return all prefixes of LIST."
- (nreverse (-map 'reverse (-tails (nreverse list)))))
-
-(defun -tails (list)
- "Return all suffixes of LIST"
- (-reductions-r-from 'cons nil list))
-
-(defun -common-prefix (&rest lists)
- "Return the longest common prefix of LISTS."
- (declare (pure t) (side-effect-free t))
- (--reduce (--take-while (and acc (equal (pop acc) it)) it)
- lists))
-
-(defun -common-suffix (&rest lists)
- "Return the longest common suffix of LISTS."
- (nreverse (apply #'-common-prefix (mapcar #'reverse lists))))
-
-(defun -contains? (list element)
- "Return non-nil if LIST contains ELEMENT.
-
-The test for equality is done with `equal', or with `-compare-fn'
-if that's non-nil.
-
-Alias: `-contains-p'"
- (not
- (null
- (cond
- ((null -compare-fn) (member element list))
- ((eq -compare-fn 'eq) (memq element list))
- ((eq -compare-fn 'eql) (memql element list))
- (t
- (let ((lst list))
- (while (and lst
- (not (funcall -compare-fn element (car lst))))
- (setq lst (cdr lst)))
- lst))))))
-
-(defalias '-contains-p '-contains?)
-
-(defun -same-items? (list list2)
- "Return true if LIST and LIST2 has the same items.
-
-The order of the elements in the lists does not matter.
-
-Alias: `-same-items-p'"
- (let ((length-a (length list))
- (length-b (length list2)))
- (and
- (= length-a length-b)
- (= length-a (length (-intersection list list2))))))
-
-(defalias '-same-items-p '-same-items?)
-
-(defun -is-prefix? (prefix list)
- "Return non-nil if PREFIX is prefix of LIST.
-
-Alias: `-is-prefix-p'"
- (declare (pure t) (side-effect-free t))
- (--each-while list (equal (car prefix) it)
- (!cdr prefix))
- (not prefix))
-
-(defun -is-suffix? (suffix list)
- "Return non-nil if SUFFIX is suffix of LIST.
-
-Alias: `-is-suffix-p'"
- (declare (pure t) (side-effect-free t))
- (-is-prefix? (reverse suffix) (reverse list)))
-
-(defun -is-infix? (infix list)
- "Return non-nil if INFIX is infix of LIST.
-
-This operation runs in O(n^2) time
-
-Alias: `-is-infix-p'"
- (declare (pure t) (side-effect-free t))
- (let (done)
- (while (and (not done) list)
- (setq done (-is-prefix? infix list))
- (!cdr list))
- done))
-
-(defalias '-is-prefix-p '-is-prefix?)
-(defalias '-is-suffix-p '-is-suffix?)
-(defalias '-is-infix-p '-is-infix?)
-
-(defun -sort (comparator list)
- "Sort LIST, stably, comparing elements using COMPARATOR.
-Return the sorted list. LIST is NOT modified by side effects.
-COMPARATOR is called with two elements of LIST, and should return non-nil
-if the first element should sort before the second."
- (sort (copy-sequence list) comparator))
-
-(defmacro --sort (form list)
- "Anaphoric form of `-sort'."
- (declare (debug (form form)))
- `(-sort (lambda (it other) ,form) ,list))
-
-(defun -list (&rest args)
- "Return a list with ARGS.
-
-If first item of ARGS is already a list, simply return ARGS. If
-not, return a list with ARGS as elements."
- (declare (pure t) (side-effect-free t))
- (let ((arg (car args)))
- (if (listp arg) arg args)))
-
-(defun -repeat (n x)
- "Return a list with X repeated N times.
-Return nil if N is less than 1."
- (declare (pure t) (side-effect-free t))
- (let (ret)
- (--dotimes n (!cons x ret))
- ret))
-
-(defun -sum (list)
- "Return the sum of LIST."
- (declare (pure t) (side-effect-free t))
- (apply '+ list))
-
-(defun -running-sum (list)
- "Return a list with running sums of items in LIST.
-
-LIST must be non-empty."
- (declare (pure t) (side-effect-free t))
- (unless (consp list)
- (error "LIST must be non-empty"))
- (-reductions '+ list))
-
-(defun -product (list)
- "Return the product of LIST."
- (declare (pure t) (side-effect-free t))
- (apply '* list))
-
-(defun -running-product (list)
- "Return a list with running products of items in LIST.
-
-LIST must be non-empty."
- (declare (pure t) (side-effect-free t))
- (unless (consp list)
- (error "LIST must be non-empty"))
- (-reductions '* list))
-
-(defun -max (list)
- "Return the largest value from LIST of numbers or markers."
- (declare (pure t) (side-effect-free t))
- (apply 'max list))
-
-(defun -min (list)
- "Return the smallest value from LIST of numbers or markers."
- (declare (pure t) (side-effect-free t))
- (apply 'min list))
-
-(defun -max-by (comparator list)
- "Take a comparison function COMPARATOR and a LIST and return
-the greatest element of the list by the comparison function.
-
-See also combinator `-on' which can transform the values before
-comparing them."
- (--reduce (if (funcall comparator it acc) it acc) list))
-
-(defun -min-by (comparator list)
- "Take a comparison function COMPARATOR and a LIST and return
-the least element of the list by the comparison function.
-
-See also combinator `-on' which can transform the values before
-comparing them."
- (--reduce (if (funcall comparator it acc) acc it) list))
-
-(defmacro --max-by (form list)
- "Anaphoric version of `-max-by'.
-
-The items for the comparator form are exposed as \"it\" and \"other\"."
- (declare (debug (form form)))
- `(-max-by (lambda (it other) ,form) ,list))
-
-(defmacro --min-by (form list)
- "Anaphoric version of `-min-by'.
-
-The items for the comparator form are exposed as \"it\" and \"other\"."
- (declare (debug (form form)))
- `(-min-by (lambda (it other) ,form) ,list))
-
-(defun -iterate (fun init n)
- "Return a list of iterated applications of FUN to INIT.
-
-This means a list of form:
-
- (init (fun init) (fun (fun init)) ...)
-
-N is the length of the returned list."
- (if (= n 0) nil
- (let ((r (list init)))
- (--dotimes (1- n)
- (push (funcall fun (car r)) r))
- (nreverse r))))
-
-(defun -fix (fn list)
- "Compute the (least) fixpoint of FN with initial input LIST.
-
-FN is called at least once, results are compared with `equal'."
- (let ((re (funcall fn list)))
- (while (not (equal list re))
- (setq list re)
- (setq re (funcall fn re)))
- re))
-
-(defmacro --fix (form list)
- "Anaphoric form of `-fix'."
- `(-fix (lambda (it) ,form) ,list))
-
-(defun -unfold (fun seed)
- "Build a list from SEED using FUN.
-
-This is \"dual\" operation to `-reduce-r': while -reduce-r
-consumes a list to produce a single value, `-unfold' takes a
-seed value and builds a (potentially infinite!) list.
-
-FUN should return `nil' to stop the generating process, or a
-cons (A . B), where A will be prepended to the result and B is
-the new seed."
- (let ((last (funcall fun seed)) r)
- (while last
- (push (car last) r)
- (setq last (funcall fun (cdr last))))
- (nreverse r)))
-
-(defmacro --unfold (form seed)
- "Anaphoric version of `-unfold'."
- (declare (debug (form form)))
- `(-unfold (lambda (it) ,form) ,seed))
-
-(defun -cons-pair? (con)
- "Return non-nil if CON is true cons pair.
-That is (A . B) where B is not a list."
- (declare (pure t) (side-effect-free t))
- (and (listp con)
- (not (listp (cdr con)))))
-
-(defun -cons-to-list (con)
- "Convert a cons pair to a list with `car' and `cdr' of the pair respectively."
- (declare (pure t) (side-effect-free t))
- (list (car con) (cdr con)))
-
-(defun -value-to-list (val)
- "Convert a value to a list.
-
-If the value is a cons pair, make a list with two elements, `car'
-and `cdr' of the pair respectively.
-
-If the value is anything else, wrap it in a list."
- (declare (pure t) (side-effect-free t))
- (cond
- ((-cons-pair? val) (-cons-to-list val))
- (t (list val))))
-
-(defun -tree-mapreduce-from (fn folder init-value tree)
- "Apply FN to each element of TREE, and make a list of the results.
-If elements of TREE are lists themselves, apply FN recursively to
-elements of these nested lists.
-
-Then reduce the resulting lists using FOLDER and initial value
-INIT-VALUE. See `-reduce-r-from'.
-
-This is the same as calling `-tree-reduce-from' after `-tree-map'
-but is twice as fast as it only traverse the structure once."
- (cond
- ((not tree) nil)
- ((-cons-pair? tree) (funcall fn tree))
- ((listp tree)
- (-reduce-r-from folder init-value (mapcar (lambda (x) (-tree-mapreduce-from fn folder init-value x)) tree)))
- (t (funcall fn tree))))
-
-(defmacro --tree-mapreduce-from (form folder init-value tree)
- "Anaphoric form of `-tree-mapreduce-from'."
- (declare (debug (form form form form)))
- `(-tree-mapreduce-from (lambda (it) ,form) (lambda (it acc) ,folder) ,init-value ,tree))
-
-(defun -tree-mapreduce (fn folder tree)
- "Apply FN to each element of TREE, and make a list of the results.
-If elements of TREE are lists themselves, apply FN recursively to
-elements of these nested lists.
-
-Then reduce the resulting lists using FOLDER and initial value
-INIT-VALUE. See `-reduce-r-from'.
-
-This is the same as calling `-tree-reduce' after `-tree-map'
-but is twice as fast as it only traverse the structure once."
- (cond
- ((not tree) nil)
- ((-cons-pair? tree) (funcall fn tree))
- ((listp tree)
- (-reduce-r folder (mapcar (lambda (x) (-tree-mapreduce fn folder x)) tree)))
- (t (funcall fn tree))))
-
-(defmacro --tree-mapreduce (form folder tree)
- "Anaphoric form of `-tree-mapreduce'."
- (declare (debug (form form form)))
- `(-tree-mapreduce (lambda (it) ,form) (lambda (it acc) ,folder) ,tree))
-
-(defun -tree-map (fn tree)
- "Apply FN to each element of TREE while preserving the tree structure."
- (cond
- ((not tree) nil)
- ((-cons-pair? tree) (funcall fn tree))
- ((listp tree)
- (mapcar (lambda (x) (-tree-map fn x)) tree))
- (t (funcall fn tree))))
-
-(defmacro --tree-map (form tree)
- "Anaphoric form of `-tree-map'."
- (declare (debug (form form)))
- `(-tree-map (lambda (it) ,form) ,tree))
-
-(defun -tree-reduce-from (fn init-value tree)
- "Use FN to reduce elements of list TREE.
-If elements of TREE are lists themselves, apply the reduction recursively.
-
-FN is first applied to INIT-VALUE and first element of the list,
-then on this result and second element from the list etc.
-
-The initial value is ignored on cons pairs as they always contain
-two elements."
- (cond
- ((not tree) nil)
- ((-cons-pair? tree) tree)
- ((listp tree)
- (-reduce-r-from fn init-value (mapcar (lambda (x) (-tree-reduce-from fn init-value x)) tree)))
- (t tree)))
-
-(defmacro --tree-reduce-from (form init-value tree)
- "Anaphoric form of `-tree-reduce-from'."
- (declare (debug (form form form)))
- `(-tree-reduce-from (lambda (it acc) ,form) ,init-value ,tree))
-
-(defun -tree-reduce (fn tree)
- "Use FN to reduce elements of list TREE.
-If elements of TREE are lists themselves, apply the reduction recursively.
-
-FN is first applied to first element of the list and second
-element, then on this result and third element from the list etc.
-
-See `-reduce-r' for how exactly are lists of zero or one element handled."
- (cond
- ((not tree) nil)
- ((-cons-pair? tree) tree)
- ((listp tree)
- (-reduce-r fn (mapcar (lambda (x) (-tree-reduce fn x)) tree)))
- (t tree)))
-
-(defmacro --tree-reduce (form tree)
- "Anaphoric form of `-tree-reduce'."
- (declare (debug (form form)))
- `(-tree-reduce (lambda (it acc) ,form) ,tree))
-
-(defun -tree-map-nodes (pred fun tree)
- "Call FUN on each node of TREE that satisfies PRED.
-
-If PRED returns nil, continue descending down this node. If PRED
-returns non-nil, apply FUN to this node and do not descend
-further."
- (if (funcall pred tree)
- (funcall fun tree)
- (if (and (listp tree)
- (not (-cons-pair? tree)))
- (-map (lambda (x) (-tree-map-nodes pred fun x)) tree)
- tree)))
-
-(defmacro --tree-map-nodes (pred form tree)
- "Anaphoric form of `-tree-map-nodes'."
- `(-tree-map-nodes (lambda (it) ,pred) (lambda (it) ,form) ,tree))
-
-(defun -tree-seq (branch children tree)
- "Return a sequence of the nodes in TREE, in depth-first search order.
-
-BRANCH is a predicate of one argument that returns non-nil if the
-passed argument is a branch, that is, a node that can have children.
-
-CHILDREN is a function of one argument that returns the children
-of the passed branch node.
-
-Non-branch nodes are simply copied."
- (cons tree
- (when (funcall branch tree)
- (-mapcat (lambda (x) (-tree-seq branch children x))
- (funcall children tree)))))
-
-(defmacro --tree-seq (branch children tree)
- "Anaphoric form of `-tree-seq'."
- `(-tree-seq (lambda (it) ,branch) (lambda (it) ,children) ,tree))
-
-(defun -clone (list)
- "Create a deep copy of LIST.
-The new list has the same elements and structure but all cons are
-replaced with new ones. This is useful when you need to clone a
-structure such as plist or alist."
- (declare (pure t) (side-effect-free t))
- (-tree-map 'identity list))
-
-(defun dash-enable-font-lock ()
- "Add syntax highlighting to dash functions, macros and magic values."
- (eval-after-load 'lisp-mode
- '(progn
- (let ((new-keywords '(
- "!cons"
- "!cdr"
- "-each"
- "--each"
- "-each-indexed"
- "--each-indexed"
- "-each-while"
- "--each-while"
- "-doto"
- "-dotimes"
- "--dotimes"
- "-map"
- "--map"
- "-reduce-from"
- "--reduce-from"
- "-reduce"
- "--reduce"
- "-reduce-r-from"
- "--reduce-r-from"
- "-reduce-r"
- "--reduce-r"
- "-reductions-from"
- "-reductions-r-from"
- "-reductions"
- "-reductions-r"
- "-filter"
- "--filter"
- "-select"
- "--select"
- "-remove"
- "--remove"
- "-reject"
- "--reject"
- "-remove-first"
- "--remove-first"
- "-reject-first"
- "--reject-first"
- "-remove-last"
- "--remove-last"
- "-reject-last"
- "--reject-last"
- "-remove-item"
- "-non-nil"
- "-keep"
- "--keep"
- "-map-indexed"
- "--map-indexed"
- "-splice"
- "--splice"
- "-splice-list"
- "--splice-list"
- "-map-when"
- "--map-when"
- "-replace-where"
- "--replace-where"
- "-map-first"
- "--map-first"
- "-map-last"
- "--map-last"
- "-replace"
- "-replace-first"
- "-replace-last"
- "-flatten"
- "-flatten-n"
- "-concat"
- "-mapcat"
- "--mapcat"
- "-copy"
- "-cons*"
- "-snoc"
- "-first"
- "--first"
- "-find"
- "--find"
- "-some"
- "--some"
- "-any"
- "--any"
- "-last"
- "--last"
- "-first-item"
- "-second-item"
- "-third-item"
- "-fourth-item"
- "-fifth-item"
- "-last-item"
- "-butlast"
- "-count"
- "--count"
- "-any?"
- "--any?"
- "-some?"
- "--some?"
- "-any-p"
- "--any-p"
- "-some-p"
- "--some-p"
- "-some->"
- "-some->>"
- "-some-->"
- "-all?"
- "-all-p"
- "--all?"
- "--all-p"
- "-every?"
- "--every?"
- "-all-p"
- "--all-p"
- "-every-p"
- "--every-p"
- "-none?"
- "--none?"
- "-none-p"
- "--none-p"
- "-only-some?"
- "--only-some?"
- "-only-some-p"
- "--only-some-p"
- "-slice"
- "-take"
- "-drop"
- "-drop-last"
- "-take-last"
- "-take-while"
- "--take-while"
- "-drop-while"
- "--drop-while"
- "-split-at"
- "-rotate"
- "-insert-at"
- "-replace-at"
- "-update-at"
- "--update-at"
- "-remove-at"
- "-remove-at-indices"
- "-split-with"
- "--split-with"
- "-split-on"
- "-split-when"
- "--split-when"
- "-separate"
- "--separate"
- "-partition-all-in-steps"
- "-partition-in-steps"
- "-partition-all"
- "-partition"
- "-partition-after-item"
- "-partition-after-pred"
- "-partition-before-item"
- "-partition-before-pred"
- "-partition-by"
- "--partition-by"
- "-partition-by-header"
- "--partition-by-header"
- "-group-by"
- "--group-by"
- "-interpose"
- "-interleave"
- "-unzip"
- "-zip-with"
- "--zip-with"
- "-zip"
- "-zip-fill"
- "-zip-pair"
- "-cycle"
- "-pad"
- "-annotate"
- "--annotate"
- "-table"
- "-table-flat"
- "-partial"
- "-elem-index"
- "-elem-indices"
- "-find-indices"
- "--find-indices"
- "-find-index"
- "--find-index"
- "-find-last-index"
- "--find-last-index"
- "-select-by-indices"
- "-select-columns"
- "-select-column"
- "-grade-up"
- "-grade-down"
- "->"
- "->>"
- "-->"
- "-as->"
- "-when-let"
- "-when-let*"
- "--when-let"
- "-if-let"
- "-if-let*"
- "--if-let"
- "-let*"
- "-let"
- "-lambda"
- "-distinct"
- "-uniq"
- "-union"
- "-intersection"
- "-difference"
- "-powerset"
- "-permutations"
- "-inits"
- "-tails"
- "-common-prefix"
- "-common-suffix"
- "-contains?"
- "-contains-p"
- "-same-items?"
- "-same-items-p"
- "-is-prefix-p"
- "-is-prefix?"
- "-is-suffix-p"
- "-is-suffix?"
- "-is-infix-p"
- "-is-infix?"
- "-sort"
- "--sort"
- "-list"
- "-repeat"
- "-sum"
- "-running-sum"
- "-product"
- "-running-product"
- "-max"
- "-min"
- "-max-by"
- "--max-by"
- "-min-by"
- "--min-by"
- "-iterate"
- "--iterate"
- "-fix"
- "--fix"
- "-unfold"
- "--unfold"
- "-cons-pair?"
- "-cons-to-list"
- "-value-to-list"
- "-tree-mapreduce-from"
- "--tree-mapreduce-from"
- "-tree-mapreduce"
- "--tree-mapreduce"
- "-tree-map"
- "--tree-map"
- "-tree-reduce-from"
- "--tree-reduce-from"
- "-tree-reduce"
- "--tree-reduce"
- "-tree-seq"
- "--tree-seq"
- "-tree-map-nodes"
- "--tree-map-nodes"
- "-clone"
- "-rpartial"
- "-juxt"
- "-applify"
- "-on"
- "-flip"
- "-const"
- "-cut"
- "-orfn"
- "-andfn"
- "-iteratefn"
- "-fixfn"
- "-prodfn"
- ))
- (special-variables '(
- "it"
- "it-index"
- "acc"
- "other"
- )))
- (font-lock-add-keywords 'emacs-lisp-mode `((,(concat "\\_<" (regexp-opt special-variables 'paren) "\\_>")
- 1 font-lock-variable-name-face)) 'append)
- (font-lock-add-keywords 'emacs-lisp-mode `((,(concat "(\\s-*" (regexp-opt new-keywords 'paren) "\\_>")
- 1 font-lock-keyword-face)) 'append))
- (--each (buffer-list)
- (with-current-buffer it
- (when (and (eq major-mode 'emacs-lisp-mode)
- (boundp 'font-lock-mode)
- font-lock-mode)
- (font-lock-refresh-defaults)))))))
-
-(provide 'dash)
-;;; dash.el ends here
diff --git a/elpa/dash-20180910.1856/dash.elc b/elpa/dash-20180910.1856/dash.elc
deleted file mode 100644
index e5f3059..0000000
--- a/elpa/dash-20180910.1856/dash.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/epl-20180205.2049/epl-autoloads.el b/elpa/epl-20180205.2049/epl-autoloads.el
deleted file mode 100644
index c6221c5..0000000
--- a/elpa/epl-20180205.2049/epl-autoloads.el
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; epl-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "epl" "epl.el" (0 0 0 0))
-;;; Generated autoloads from epl.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "epl" '("epl-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; epl-autoloads.el ends here
diff --git a/elpa/epl-20180205.2049/epl-pkg.el b/elpa/epl-20180205.2049/epl-pkg.el
deleted file mode 100644
index a977868..0000000
--- a/elpa/epl-20180205.2049/epl-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "epl" "20180205.2049" "Emacs Package Library" '((cl-lib "0.3")) :commit "78ab7a85c08222cd15582a298a364774e3282ce6" :keywords '("convenience") :authors '(("Sebastian Wiesner" . "swiesner@lunaryorn.com")) :maintainer '("Johan Andersson" . "johan.rejeep@gmail.com") :url "http://github.com/cask/epl")
diff --git a/elpa/epl-20180205.2049/epl.el b/elpa/epl-20180205.2049/epl.el
deleted file mode 100644
index 5bbd76a..0000000
--- a/elpa/epl-20180205.2049/epl.el
+++ /dev/null
@@ -1,711 +0,0 @@
-;;; epl.el --- Emacs Package Library -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013-2015 Sebastian Wiesner
-;; Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2015 Free Software
-
-;; Author: Sebastian Wiesner <swiesner@lunaryorn.com>
-;; Maintainer: Johan Andersson <johan.rejeep@gmail.com>
-;; Sebastian Wiesner <swiesner@lunaryorn.com>
-;; Version: 0.10-cvs
-;; Package-Version: 20180205.2049
-;; Package-Requires: ((cl-lib "0.3"))
-;; Keywords: convenience
-;; URL: http://github.com/cask/epl
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; A package management library for Emacs, based on package.el.
-
-;; The purpose of this library is to wrap all the quirks and hassle of
-;; package.el into a sane API.
-
-;; The following functions comprise the public interface of this library:
-
-;;; Package directory selection
-
-;; `epl-package-dir' gets the directory of packages.
-
-;; `epl-default-package-dir' gets the default package directory.
-
-;; `epl-change-package-dir' changes the directory of packages.
-
-;;; Package system management
-
-;; `epl-initialize' initializes the package system and activates all
-;; packages.
-
-;; `epl-reset' resets the package system.
-
-;; `epl-refresh' refreshes all package archives.
-
-;; `epl-add-archive' adds a new package archive.
-
-;;; Package objects
-
-;; Struct `epl-requirement' describes a requirement of a package with `name' and
-;; `version' slots.
-
-;; `epl-requirement-version-string' gets a requirement version as string.
-
-;; Struct `epl-package' describes an installed or installable package with a
-;; `name' and some internal `description'.
-
-;; `epl-package-version' gets the version of a package.
-
-;; `epl-package-version-string' gets the version of a package as string.
-
-;; `epl-package-summary' gets the summary of a package.
-
-;; `epl-package-requirements' gets the requirements of a package.
-
-;; `epl-package-directory' gets the installation directory of a package.
-
-;; `epl-package-from-buffer' creates a package object for the package contained
-;; in the current buffer.
-
-;; `epl-package-from-file' creates a package object for a package file, either
-;; plain lisp or tarball.
-
-;; `epl-package-from-descriptor-file' creates a package object for a package
-;; description (i.e. *-pkg.el) file.
-
-;;; Package database access
-
-;; `epl-package-installed-p' determines whether a package is installed, either
-;; built-in or explicitly installed.
-
-;; `epl-package-outdated-p' determines whether a package is outdated, that is,
-;; whether a package with a higher version number is available.
-
-;; `epl-built-in-packages', `epl-installed-packages', `epl-outdated-packages'
-;; and `epl-available-packages' get all packages built-in, installed, outdated,
-;; or available for installation respectively.
-
-;; `epl-find-built-in-package', `epl-find-installed-packages' and
-;; `epl-find-available-packages' find built-in, installed and available packages
-;; by name.
-
-;; `epl-find-upgrades' finds all upgradable packages.
-
-;; `epl-built-in-p' return true if package is built-in to Emacs.
-
-;;; Package operations
-
-;; `epl-install-file' installs a package file.
-
-;; `epl-package-install' installs a package.
-
-;; `epl-package-delete' deletes a package.
-
-;; `epl-upgrade' upgrades packages.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'package)
-
-
-(unless (fboundp #'define-error)
- ;; `define-error' for 24.3 and earlier, copied from subr.el
- (defun define-error (name message &optional parent)
- "Define NAME as a new error signal.
-MESSAGE is a string that will be output to the echo area if such an error
-is signaled without being caught by a `condition-case'.
-PARENT is either a signal or a list of signals from which it inherits.
-Defaults to `error'."
- (unless parent (setq parent 'error))
- (let ((conditions
- (if (consp parent)
- (apply #'append
- (mapcar (lambda (parent)
- (cons parent
- (or (get parent 'error-conditions)
- (error "Unknown signal `%s'" parent))))
- parent))
- (cons parent (get parent 'error-conditions)))))
- (put name 'error-conditions
- (delete-dups (copy-sequence (cons name conditions))))
- (when message (put name 'error-message message)))))
-
-(defsubst epl--package-desc-p (package)
- "Whether PACKAGE is a `package-desc' object.
-
-Like `package-desc-p', but return nil, if `package-desc-p' is not
-defined as function."
- (and (fboundp 'package-desc-p) (package-desc-p package)))
-
-
-;;; EPL errors
-(define-error 'epl-error "EPL error")
-
-(define-error 'epl-invalid-package "Invalid EPL package" 'epl-error)
-
-(define-error 'epl-invalid-package-file "Invalid EPL package file"
- 'epl-invalid-package)
-
-
-;;; Package directory
-(defun epl-package-dir ()
- "Get the directory of packages."
- package-user-dir)
-
-(defun epl-default-package-dir ()
- "Get the default directory of packages."
- (eval (car (get 'package-user-dir 'standard-value))))
-
-(defun epl-change-package-dir (directory)
- "Change the directory of packages to DIRECTORY."
- (setq package-user-dir directory)
- (epl-initialize))
-
-
-;;; Package system management
-(defvar epl--load-path-before-initialize nil
- "Remember the load path for `epl-reset'.")
-
-(defun epl-initialize (&optional no-activate)
- "Load Emacs Lisp packages and activate them.
-
-With NO-ACTIVATE non-nil, do not activate packages."
- (setq epl--load-path-before-initialize load-path)
- (package-initialize no-activate))
-
-(defalias 'epl-refresh 'package-refresh-contents)
-
-(defun epl-add-archive (name url)
- "Add a package archive with NAME and URL."
- (add-to-list 'package-archives (cons name url)))
-
-(defun epl-reset ()
- "Reset the package system.
-
-Clear the list of installed and available packages, the list of
-package archives and reset the package directory."
- (setq package-alist nil
- package-archives nil
- package-archive-contents nil
- load-path epl--load-path-before-initialize)
- (when (boundp 'package-obsolete-alist) ; Legacy package.el
- (setq package-obsolete-alist nil))
- (epl-change-package-dir (epl-default-package-dir)))
-
-
-;;; Package structures
-(cl-defstruct (epl-requirement
- (:constructor epl-requirement-create))
- "Structure describing a requirement.
-
-Slots:
-
-`name' The name of the required package, as symbol.
-
-`version' The version of the required package, as version list."
- name
- version)
-
-(defun epl-requirement-version-string (requirement)
- "The version of a REQUIREMENT, as string."
- (package-version-join (epl-requirement-version requirement)))
-
-(cl-defstruct (epl-package (:constructor epl-package-create))
- "Structure representing a package.
-
-Slots:
-
-`name' The package name, as symbol.
-
-`description' The package description.
-
-The format package description varies between package.el
-variants. For `package-desc' variants, it is simply the
-corresponding `package-desc' object. For legacy variants, it is
-a vector `[VERSION REQS DOCSTRING]'.
-
-Do not access `description' directly, but instead use the
-`epl-package' accessors."
- name
- description)
-
-(defmacro epl-package-as-description (var &rest body)
- "Cast VAR to a package description in BODY.
-
-VAR is a symbol, bound to an `epl-package' object. This macro
-casts this object to the `description' object, and binds the
-description to VAR in BODY."
- (declare (indent 1))
- (unless (symbolp var)
- (signal 'wrong-type-argument (list #'symbolp var)))
- `(if (epl-package-p ,var)
- (let ((,var (epl-package-description ,var)))
- ,@body)
- (signal 'wrong-type-argument (list #'epl-package-p ,var))))
-
-(defsubst epl-package--package-desc-p (package)
- "Whether the description of PACKAGE is a `package-desc'."
- (epl--package-desc-p (epl-package-description package)))
-
-(defun epl-package-version (package)
- "Get the version of PACKAGE, as version list."
- (epl-package-as-description package
- (cond
- ((fboundp 'package-desc-version) (package-desc-version package))
- ;; Legacy
- ((fboundp 'package-desc-vers)
- (let ((version (package-desc-vers package)))
- (if (listp version) version (version-to-list version))))
- (:else (error "Cannot get version from %S" package)))))
-
-(defun epl-package-version-string (package)
- "Get the version from a PACKAGE, as string."
- (package-version-join (epl-package-version package)))
-
-(defun epl-package-summary (package)
- "Get the summary of PACKAGE, as string."
- (epl-package-as-description package
- (cond
- ((fboundp 'package-desc-summary) (package-desc-summary package))
- ((fboundp 'package-desc-doc) (package-desc-doc package)) ; Legacy
- (:else (error "Cannot get summary from %S" package)))))
-
-(defsubst epl-requirement--from-req (req)
- "Create a `epl-requirement' from a `package-desc' REQ."
- (let ((version (cadr req)))
- (epl-requirement-create :name (car req)
- :version (if (listp version) version
- (version-to-list version)))))
-
-(defun epl-package-requirements (package)
- "Get the requirements of PACKAGE.
-
-The requirements are a list of `epl-requirement' objects."
- (epl-package-as-description package
- (mapcar #'epl-requirement--from-req (package-desc-reqs package))))
-
-(defun epl-package-directory (package)
- "Get the directory PACKAGE is installed to.
-
-Return the absolute path of the installation directory of
-PACKAGE, or nil, if PACKAGE is not installed."
- (cond
- ((fboundp 'package-desc-dir)
- (package-desc-dir (epl-package-description package)))
- ((fboundp 'package--dir)
- (package--dir (symbol-name (epl-package-name package))
- (epl-package-version-string package)))
- (:else (error "Cannot get package directory from %S" package))))
-
-(defun epl-package-->= (pkg1 pkg2)
- "Determine whether PKG1 is before PKG2 by version."
- (not (version-list-< (epl-package-version pkg1)
- (epl-package-version pkg2))))
-
-(defun epl-package--from-package-desc (package-desc)
- "Create an `epl-package' from a PACKAGE-DESC.
-
-PACKAGE-DESC is a `package-desc' object, from recent package.el
-variants."
- (if (and (fboundp 'package-desc-name)
- (epl--package-desc-p package-desc))
- (epl-package-create :name (package-desc-name package-desc)
- :description package-desc)
- (signal 'wrong-type-argument (list 'epl--package-desc-p package-desc))))
-
-(defun epl-package--parse-info (info)
- "Parse a package.el INFO."
- (if (epl--package-desc-p info)
- (epl-package--from-package-desc info)
- ;; For legacy package.el, info is a vector [NAME REQUIRES DESCRIPTION
- ;; VERSION COMMENTARY]. We need to re-shape this vector into the
- ;; `package-alist' format [VERSION REQUIRES DESCRIPTION] to attach it to the
- ;; new `epl-package'.
- (let ((name (intern (aref info 0)))
- (info (vector (aref info 3) (aref info 1) (aref info 2))))
- (epl-package-create :name name :description info))))
-
-(defun epl-package-from-buffer (&optional buffer)
- "Create an `epl-package' object from BUFFER.
-
-BUFFER defaults to the current buffer.
-
-Signal `epl-invalid-package' if the buffer does not contain a
-valid package file."
- (let ((info (with-current-buffer (or buffer (current-buffer))
- (condition-case err
- (package-buffer-info)
- (error (signal 'epl-invalid-package (cdr err)))))))
- (epl-package--parse-info info)))
-
-(defun epl-package-from-lisp-file (file-name)
- "Parse the package headers the file at FILE-NAME.
-
-Return an `epl-package' object with the header metadata."
- (with-temp-buffer
- (insert-file-contents file-name)
- (condition-case err
- (epl-package-from-buffer (current-buffer))
- ;; Attach file names to invalid package errors
- (epl-invalid-package
- (signal 'epl-invalid-package-file (cons file-name (cdr err))))
- ;; Forward other errors
- (error (signal (car err) (cdr err))))))
-
-(defun epl-package-from-tar-file (file-name)
- "Parse the package tarball at FILE-NAME.
-
-Return a `epl-package' object with the meta data of the tarball
-package in FILE-NAME."
- (condition-case nil
- ;; In legacy package.el, `package-tar-file-info' takes the name of the tar
- ;; file to parse as argument. In modern package.el, it has no arguments
- ;; and works on the current buffer. Hence, we just try to call the legacy
- ;; version, and if that fails because of a mismatch between formal and
- ;; actual arguments, we use the modern approach. To avoid spurious
- ;; signature warnings by the byte compiler, we suppress warnings when
- ;; calling the function.
- (epl-package--parse-info (with-no-warnings
- (package-tar-file-info file-name)))
- (wrong-number-of-arguments
- (with-temp-buffer
- (insert-file-contents-literally file-name)
- ;; Switch to `tar-mode' to enable extraction of the file. Modern
- ;; `package-tar-file-info' relies on `tar-mode', and signals an error if
- ;; called in a buffer with a different mode.
- (tar-mode)
- (epl-package--parse-info (with-no-warnings
- (package-tar-file-info)))))))
-
-(defun epl-package-from-file (file-name)
- "Parse the package at FILE-NAME.
-
-Return an `epl-package' object with the meta data of the package
-at FILE-NAME."
- (if (string-match-p (rx ".tar" string-end) file-name)
- (epl-package-from-tar-file file-name)
- (epl-package-from-lisp-file file-name)))
-
-(defun epl-package--parse-descriptor-requirement (requirement)
- "Parse a REQUIREMENT in a package descriptor."
- ;; This function is only called on legacy package.el. On package-desc
- ;; package.el, we just let package.el do the work.
- (cl-destructuring-bind (name version-string) requirement
- (list name (version-to-list version-string))))
-
-(defun epl-package-from-descriptor-file (descriptor-file)
- "Load a `epl-package' from a package DESCRIPTOR-FILE.
-
-A package descriptor is a file defining a new package. Its name
-typically ends with -pkg.el."
- (with-temp-buffer
- (insert-file-contents descriptor-file)
- (goto-char (point-min))
- (let ((sexp (read (current-buffer))))
- (unless (eq (car sexp) 'define-package)
- (error "%S is no valid package descriptor" descriptor-file))
- (if (and (fboundp 'package-desc-from-define)
- (fboundp 'package-desc-name))
- ;; In Emacs snapshot, we can conveniently call a function to parse the
- ;; descriptor
- (let ((desc (apply #'package-desc-from-define (cdr sexp))))
- (epl-package-create :name (package-desc-name desc)
- :description desc))
- ;; In legacy package.el, we must manually deconstruct the descriptor,
- ;; because the load function has eval's the descriptor and has a lot of
- ;; global side-effects.
- (cl-destructuring-bind
- (name version-string summary requirements) (cdr sexp)
- (epl-package-create
- :name (intern name)
- :description
- (vector (version-to-list version-string)
- (mapcar #'epl-package--parse-descriptor-requirement
- ;; Strip the leading `quote' from the package list
- (cadr requirements))
- summary)))))))
-
-
-;;; Package database access
-(defun epl-package-installed-p (package &optional min-version)
- "Determine whether a PACKAGE, of MIN-VERSION or newer, is installed.
-
-PACKAGE is either a package name as symbol, or a package object.
-When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object."
- (let ((name (if (epl-package-p package)
- (epl-package-name package)
- package))
- (min-version (or min-version (and (epl-package-p package)
- (epl-package-version package)))))
- (package-installed-p name min-version)))
-
-(defun epl--parse-built-in-entry (entry)
- "Parse an ENTRY from the list of built-in packages.
-
-Return the corresponding `epl-package' object."
- (if (fboundp 'package--from-builtin)
- ;; In package-desc package.el, convert the built-in package to a
- ;; `package-desc' and convert that to an `epl-package'
- (epl-package--from-package-desc (package--from-builtin entry))
- (epl-package-create :name (car entry) :description (cdr entry))))
-
-(defun epl-built-in-packages ()
- "Get all built-in packages.
-
-Return a list of `epl-package' objects."
- ;; This looks mighty strange, but it's the only way to force package.el to
- ;; build the list of built-in packages. Without this, `package--builtins'
- ;; might be empty.
- (package-built-in-p 'foo)
- (mapcar #'epl--parse-built-in-entry package--builtins))
-
-(defun epl-find-built-in-package (name)
- "Find a built-in package with NAME.
-
-NAME is a package name, as symbol.
-
-Return the built-in package as `epl-package' object, or nil if
-there is no built-in package with NAME."
- (when (package-built-in-p name)
- ;; We must call `package-built-in-p' *before* inspecting
- ;; `package--builtins', because otherwise `package--builtins' might be
- ;; empty.
- (epl--parse-built-in-entry (assq name package--builtins))))
-
-(defun epl-package-outdated-p (package)
- "Determine whether a PACKAGE is outdated.
-
-A package is outdated, if there is an available package with a
-higher version.
-
-PACKAGE is either a package name as symbol, or a package object.
-In the former case, test the installed or built-in package with
-the highest version number, in the later case, test the package
-object itself.
-
-Return t, if the package is outdated, or nil otherwise."
- (let* ((package (if (epl-package-p package)
- package
- (or (car (epl-find-installed-packages package))
- (epl-find-built-in-package package))))
- (available (car (epl-find-available-packages
- (epl-package-name package)))))
- (and package available (version-list-< (epl-package-version package)
- (epl-package-version available)))))
-
-(defun epl--parse-package-list-entry (entry)
- "Parse a list of packages from ENTRY.
-
-ENTRY is a single entry in a package list, e.g. `package-alist',
-`package-archive-contents', etc. Typically it is a cons cell,
-but the exact format varies between package.el versions. This
-function tries to parse all known variants.
-
-Return a list of `epl-package' objects parsed from ENTRY."
- (let ((descriptions (cdr entry)))
- (cond
- ((listp descriptions)
- (sort (mapcar #'epl-package--from-package-desc descriptions)
- #'epl-package-->=))
- ;; Legacy package.el has just a single package in an entry, which is a
- ;; standard description vector
- ((vectorp descriptions)
- (list (epl-package-create :name (car entry)
- :description descriptions)))
- (:else (error "Cannot parse entry %S" entry)))))
-
-(defun epl-installed-packages ()
- "Get all installed packages.
-
-Return a list of package objects."
- (apply #'append (mapcar #'epl--parse-package-list-entry package-alist)))
-
-(defsubst epl--filter-outdated-packages (packages)
- "Filter outdated packages from PACKAGES."
- (let (res)
- (dolist (package packages)
- (when (epl-package-outdated-p package)
- (push package res)))
- (nreverse res)))
-
-(defun epl-outdated-packages ()
- "Get all outdated packages, as in `epl-package-outdated-p'.
-
-Return a list of package objects."
- (epl--filter-outdated-packages (epl-installed-packages)))
-
-(defsubst epl--find-package-in-list (name list)
- "Find a package by NAME in a package LIST.
-
-Return a list of corresponding `epl-package' objects."
- (let ((entry (assq name list)))
- (when entry
- (epl--parse-package-list-entry entry))))
-
-(defun epl-find-installed-package (name)
- "Find the latest installed package by NAME.
-
-NAME is a package name, as symbol.
-
-Return the installed package with the highest version number as
-`epl-package' object, or nil, if no package with NAME is
-installed."
- (car (epl-find-installed-packages name)))
-(make-obsolete 'epl-find-installed-package 'epl-find-installed-packages "0.7")
-
-(defun epl-find-installed-packages (name)
- "Find all installed packages by NAME.
-
-NAME is a package name, as symbol.
-
-Return a list of all installed packages with NAME, sorted by
-version number in descending order. Return nil, if there are no
-packages with NAME."
- (epl--find-package-in-list name package-alist))
-
-(defun epl-available-packages ()
- "Get all packages available for installation.
-
-Return a list of package objects."
- (apply #'append (mapcar #'epl--parse-package-list-entry
- package-archive-contents)))
-
-(defun epl-find-available-packages (name)
- "Find available packages for NAME.
-
-NAME is a package name, as symbol.
-
-Return a list of available packages for NAME, sorted by version
-number in descending order. Return nil, if there are no packages
-for NAME."
- (epl--find-package-in-list name package-archive-contents))
-
-(cl-defstruct (epl-upgrade
- (:constructor epl-upgrade-create))
- "Structure describing an upgradable package.
-Slots:
-
-`installed' The installed package
-
-`available' The package available for installation."
- installed
- available)
-
-(defun epl-find-upgrades (&optional packages)
- "Find all upgradable PACKAGES.
-
-PACKAGES is a list of package objects to upgrade, defaulting to
-all installed packages.
-
-Return a list of `epl-upgrade' objects describing all upgradable
-packages."
- (let ((packages (or packages (epl-installed-packages)))
- upgrades)
- (dolist (pkg packages)
- (let* ((version (epl-package-version pkg))
- (name (epl-package-name pkg))
- ;; Find the latest available package for NAME
- (available-pkg (car (epl-find-available-packages name)))
- (available-version (when available-pkg
- (epl-package-version available-pkg))))
- (when (and available-version (version-list-< version available-version))
- (push (epl-upgrade-create :installed pkg
- :available available-pkg)
- upgrades))))
- (nreverse upgrades)))
-
-(defalias 'epl-built-in-p 'package-built-in-p)
-
-
-;;; Package operations
-
-(defun epl-install-file (file)
- "Install a package from FILE, like `package-install-file'."
- (interactive (advice-eval-interactive-spec
- (cadr (interactive-form #'package-install-file))))
- (apply #'package-install-file (list file))
- (let ((package (epl-package-from-file file)))
- (unless (epl-package--package-desc-p package)
- (epl--kill-autoload-buffer package))))
-
-(defun epl--kill-autoload-buffer (package)
- "Kill the buffer associated with autoloads for PACKAGE."
- (let* ((auto-name (format "%s-autoloads.el" (epl-package-name package)))
- (generated-autoload-file (expand-file-name auto-name (epl-package-directory package)))
- (buf (find-buffer-visiting generated-autoload-file)))
- (when buf (kill-buffer buf))))
-
-(defun epl-package-install (package &optional force)
- "Install a PACKAGE.
-
-PACKAGE is a `epl-package' object. If FORCE is given and
-non-nil, install PACKAGE, even if it is already installed."
- (when (or force (not (epl-package-installed-p package)))
- (if (epl-package--package-desc-p package)
- (package-install (epl-package-description package))
- ;; The legacy API installs by name. We have no control over versioning,
- ;; etc.
- (package-install (epl-package-name package))
- (epl--kill-autoload-buffer package))))
-
-(defun epl-package-delete (package)
- "Delete a PACKAGE.
-
-PACKAGE is a `epl-package' object to delete."
- ;; package-delete allows for packages being trashed instead of fully deleted.
- ;; Let's prevent his silly behavior
- (let ((delete-by-moving-to-trash nil))
- ;; The byte compiler will warn us that we are calling `package-delete' with
- ;; the wrong number of arguments, since it can't infer that we guarantee to
- ;; always call the correct version. Thus we suppress all warnings when
- ;; calling `package-delete'. I wish there was a more granular way to
- ;; disable just that specific warning, but it is what it is.
- (if (epl-package--package-desc-p package)
- (with-no-warnings
- (package-delete (epl-package-description package)))
- ;; The legacy API deletes by name (as string!) and version instead by
- ;; descriptor. Hence `package-delete' takes two arguments. For some
- ;; insane reason, the arguments are strings here!
- (let ((name (symbol-name (epl-package-name package)))
- (version (epl-package-version-string package)))
- (with-no-warnings
- (package-delete name version))
- ;; Legacy package.el does not remove the deleted package
- ;; from the `package-alist', so we do it manually here.
- (let ((pkg (assq (epl-package-name package) package-alist)))
- (when pkg
- (setq package-alist (delq pkg package-alist))))))))
-
-(defun epl-upgrade (&optional packages preserve-obsolete)
- "Upgrade PACKAGES.
-
-PACKAGES is a list of package objects to upgrade, defaulting to
-all installed packages.
-
-The old versions of the updated packages are deleted, unless
-PRESERVE-OBSOLETE is non-nil.
-
-Return a list of all performed upgrades, as a list of
-`epl-upgrade' objects."
- (let ((upgrades (epl-find-upgrades packages)))
- (dolist (upgrade upgrades)
- (epl-package-install (epl-upgrade-available upgrade) 'force)
- (unless preserve-obsolete
- (epl-package-delete (epl-upgrade-installed upgrade))))
- upgrades))
-
-(provide 'epl)
-
-;;; epl.el ends here
diff --git a/elpa/epl-20180205.2049/epl.elc b/elpa/epl-20180205.2049/epl.elc
deleted file mode 100644
index 2bc74d6..0000000
--- a/elpa/epl-20180205.2049/epl.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/f-20180106.922/f-autoloads.el b/elpa/f-20180106.922/f-autoloads.el
deleted file mode 100644
index 366a50c..0000000
--- a/elpa/f-20180106.922/f-autoloads.el
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; f-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "f" "f.el" (0 0 0 0))
-;;; Generated autoloads from f.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "f" '("f-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; f-autoloads.el ends here
diff --git a/elpa/f-20180106.922/f-pkg.el b/elpa/f-20180106.922/f-pkg.el
deleted file mode 100644
index 60f4a6b..0000000
--- a/elpa/f-20180106.922/f-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "f" "20180106.922" "Modern API for working with files and directories" '((s "1.7.0") (dash "2.2.0")) :commit "de6d4d40ddc844eee643e92d47b9d6a63fbebb48" :keywords '("files" "directories") :authors '(("Johan Andersson" . "johan.rejeep@gmail.com")) :maintainer '("Johan Andersson" . "johan.rejeep@gmail.com") :url "http://github.com/rejeep/f.el")
diff --git a/elpa/f-20180106.922/f.el b/elpa/f-20180106.922/f.el
deleted file mode 100644
index 7124deb..0000000
--- a/elpa/f-20180106.922/f.el
+++ /dev/null
@@ -1,624 +0,0 @@
-;;; f.el --- Modern API for working with files and directories -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013 Johan Andersson
-
-;; Author: Johan Andersson <johan.rejeep@gmail.com>
-;; Maintainer: Johan Andersson <johan.rejeep@gmail.com>
-;; Version: 0.20.0
-;; Package-Version: 20180106.922
-;; Keywords: files, directories
-;; URL: http://github.com/rejeep/f.el
-;; Package-Requires: ((s "1.7.0") (dash "2.2.0"))
-
-;; This file is NOT part of GNU Emacs.
-
-;;; License:
-
-;; 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, 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; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Code:
-
-
-
-(require 's)
-(require 'dash)
-
-(put 'f-guard-error 'error-conditions '(error f-guard-error))
-(put 'f-guard-error 'error-message "Destructive operation outside sandbox")
-
-(defvar f--guard-paths nil
- "List of allowed paths to modify when guarded.
-
-Do not modify this variable.")
-
-(defmacro f--destructive (path &rest body)
- "If PATH is allowed to be modified, yield BODY.
-
-If PATH is not allowed to be modified, throw error."
- (declare (indent 1))
- `(if f--guard-paths
- (if (--any? (or (f-same? it ,path)
- (f-ancestor-of? it ,path)) f--guard-paths)
- (progn ,@body)
- (signal 'f-guard-error (list ,path f--guard-paths)))
- ,@body))
-
-
-;;;; Paths
-
-(defun f-join (&rest args)
- "Join ARGS to a single path."
- (let (path (relative (f-relative? (car args))))
- (-map
- (lambda (arg)
- (setq path (f-expand arg path)))
- args)
- (if relative (f-relative path) path)))
-
-(defun f-split (path)
- "Split PATH and return list containing parts."
- (let ((parts (s-split (f-path-separator) path 'omit-nulls)))
- (if (f-absolute? path)
- (push (f-path-separator) parts)
- parts)))
-
-(defun f-expand (path &optional dir)
- "Expand PATH relative to DIR (or `default-directory').
-PATH and DIR can be either a directory names or directory file
-names. Return a directory name if PATH is a directory name, and
-a directory file name otherwise. File name handlers are
-ignored."
- (let (file-name-handler-alist)
- (expand-file-name path dir)))
-
-(defun f-filename (path)
- "Return the name of PATH."
- (file-name-nondirectory (directory-file-name path)))
-
-(defalias 'f-parent 'f-dirname)
-(defun f-dirname (path)
- "Return the parent directory to PATH."
- (let ((parent (file-name-directory
- (directory-file-name (f-expand path default-directory)))))
- (unless (f-same? path parent)
- (if (f-relative? path)
- (f-relative parent)
- (directory-file-name parent)))))
-
-(defun f-common-parent (paths)
- "Return the deepest common parent directory of PATHS."
- (cond
- ((not paths) nil)
- ((not (cdr paths)) (f-parent (car paths)))
- (:otherwise
- (let* ((paths (-map 'f-split paths))
- (common (caar paths))
- (re nil))
- (while (and (not (null (car paths))) (--all? (equal (car it) common) paths))
- (setq paths (-map 'cdr paths))
- (push common re)
- (setq common (caar paths)))
- (cond
- ((null re) "")
- ((and (= (length re) 1) (f-root? (car re)))
- (f-root))
- (:otherwise
- (concat (apply 'f-join (nreverse re)) "/")))))))
-
-(defun f-ext (path)
- "Return the file extension of PATH.
-
-The extension, in a file name, is the part that follows the last
-'.', excluding version numbers and backup suffixes."
- (file-name-extension path))
-
-(defun f-no-ext (path)
- "Return everything but the file extension of PATH."
- (file-name-sans-extension path))
-
-(defun f-swap-ext (path ext)
- "Return PATH but with EXT as the new extension.
-EXT must not be nil or empty."
- (if (s-blank? ext)
- (error "Extension cannot be empty or nil")
- (concat (f-no-ext path) "." ext)))
-
-(defun f-base (path)
- "Return the name of PATH, excluding the extension of file."
- (f-no-ext (f-filename path)))
-
-(defun f-relative (path &optional dir)
- "Return PATH relative to DIR."
- (file-relative-name path dir))
-
-(defalias 'f-abbrev 'f-short)
-(defun f-short (path)
- "Return abbrev of PATH. See `abbreviate-file-name'."
- (abbreviate-file-name path))
-
-(defun f-long (path)
- "Return long version of PATH."
- (f-expand path))
-
-(defun f-canonical (path)
- "Return the canonical name of PATH."
- (file-truename path))
-
-(defun f-slash (path)
- "Append slash to PATH unless one already.
-
-Some functions, such as `call-process' requires there to be an
-ending slash."
- (if (f-dir? path)
- (file-name-as-directory path)
- path))
-
-(defun f-full (path)
- "Return absolute path to PATH, with ending slash."
- (f-slash (f-long path)))
-
-(defun f--uniquify (paths)
- "Helper for `f-uniquify' and `f-uniquify-alist'."
- (let* ((files-length (length paths))
- (uniq-filenames (--map (cons it (f-filename it)) paths))
- (uniq-filenames-next (-group-by 'cdr uniq-filenames)))
- (while (/= files-length (length uniq-filenames-next))
- (setq uniq-filenames-next
- (-group-by 'cdr
- (--mapcat
- (let ((conf-files (cdr it)))
- (if (> (length conf-files) 1)
- (--map (cons (car it) (concat (f-filename (s-chop-suffix (cdr it) (car it))) (f-path-separator) (cdr it))) conf-files)
- conf-files))
- uniq-filenames-next))))
- uniq-filenames-next))
-
-(defun f-uniquify (files)
- "Return unique suffixes of FILES.
-
-This function expects no duplicate paths."
- (-map 'car (f--uniquify files)))
-
-(defun f-uniquify-alist (files)
- "Return alist mapping FILES to unique suffixes of FILES.
-
-This function expects no duplicate paths."
- (-map 'cadr (f--uniquify files)))
-
-
-;;;; I/O
-
-(defun f-read-bytes (path)
- "Read binary data from PATH.
-
-Return the binary data as unibyte string."
- (with-temp-buffer
- (set-buffer-multibyte nil)
- (setq buffer-file-coding-system 'binary)
- (insert-file-contents-literally path)
- (buffer-substring-no-properties (point-min) (point-max))))
-
-(defalias 'f-read 'f-read-text)
-(defun f-read-text (path &optional coding)
- "Read text with PATH, using CODING.
-
-CODING defaults to `utf-8'.
-
-Return the decoded text as multibyte string."
- (decode-coding-string (f-read-bytes path) (or coding 'utf-8)))
-
-(defalias 'f-write 'f-write-text)
-(defun f-write-text (text coding path)
- "Write TEXT with CODING to PATH.
-
-TEXT is a multibyte string. CODING is a coding system to encode
-TEXT with. PATH is a file name to write to."
- (f-write-bytes (encode-coding-string text coding) path))
-
-(defun f-unibyte-string-p (s)
- "Determine whether S is a unibyte string."
- (not (multibyte-string-p s)))
-
-(defun f-write-bytes (data path)
- "Write binary DATA to PATH.
-
-DATA is a unibyte string. PATH is a file name to write to."
- (f--destructive path
- (unless (f-unibyte-string-p data)
- (signal 'wrong-type-argument (list 'f-unibyte-string-p data)))
- (let ((file-coding-system-alist nil)
- (coding-system-for-write 'binary))
- (with-temp-file path
- (setq buffer-file-coding-system 'binary)
- (set-buffer-multibyte nil)
- (insert data)))))
-
-(defalias 'f-append 'f-append-text)
-(defun f-append-text (text coding path)
- "Append TEXT with CODING to PATH.
-
-If PATH does not exist, it is created."
- (f-append-bytes (encode-coding-string text coding) path))
-
-(defun f-append-bytes (data path)
- "Append binary DATA to PATH.
-
-If PATH does not exist, it is created."
- (let ((content
- (if (f-file? path)
- (f-read-bytes path)
- "")))
- (f-write-bytes (concat content data) path)))
-
-
-;;;; Destructive
-
-(defun f-mkdir (&rest dirs)
- "Create directories DIRS."
- (let (path)
- (-each
- dirs
- (lambda (dir)
- (setq path (f-expand dir path))
- (unless (f-directory? path)
- (f--destructive path (make-directory path)))))))
-
-(defun f-delete (path &optional force)
- "Delete PATH, which can be file or directory.
-
-If FORCE is t, a directory will be deleted recursively."
- (f--destructive path
- (if (or (f-file? path) (f-symlink? path))
- (delete-file path)
- (delete-directory path force))))
-
-(defun f-symlink (source path)
- "Create a symlink to SOURCE from PATH."
- (f--destructive path (make-symbolic-link source path)))
-
-(defun f-move (from to)
- "Move or rename FROM to TO.
-If TO is a directory name, move FROM into TO."
- (f--destructive to (rename-file from to t)))
-
-(defun f-copy (from to)
- "Copy file or directory FROM to TO.
-If FROM names a directory and TO is a directory name, copy FROM
-into TO as a subdirectory."
- (f--destructive to
- (if (f-file? from)
- (copy-file from to)
- ;; The behavior of `copy-directory' differs between Emacs 23 and
- ;; 24 in that in Emacs 23, the contents of `from' is copied to
- ;; `to', while in Emacs 24 the directory `from' is copied to
- ;; `to'. We want the Emacs 24 behavior.
- (if (> emacs-major-version 23)
- (copy-directory from to)
- (if (f-dir? to)
- (progn
- (apply 'f-mkdir (f-split to))
- (let ((new-to (f-expand (f-filename from) to)))
- (copy-directory from new-to)))
- (copy-directory from to))))))
-
-(defun f-copy-contents (from to)
- "Copy contents in directory FROM, to directory TO."
- (unless (f-exists? to)
- (error "Cannot copy contents to non existing directory %s" to))
- (unless (f-dir? from)
- (error "Cannot copy contents as %s is a file" from))
- (--each (f-entries from)
- (f-copy it (file-name-as-directory to))))
-
-(defun f-touch (path)
- "Update PATH last modification date or create if it does not exist."
- (f--destructive path
- (if (f-file? path)
- (set-file-times path)
- (f-write-bytes "" path))))
-
-
-;;;; Predicates
-
-(defun f-exists? (path)
- "Return t if PATH exists, false otherwise."
- (file-exists-p path))
-
-(defalias 'f-exists-p 'f-exists?)
-
-(defalias 'f-dir? 'f-directory?)
-(defalias 'f-dir-p 'f-dir?)
-
-(defun f-directory? (path)
- "Return t if PATH is directory, false otherwise."
- (file-directory-p path))
-
-(defalias 'f-directory-p 'f-directory?)
-
-(defun f-file? (path)
- "Return t if PATH is file, false otherwise."
- (file-regular-p path))
-
-(defalias 'f-file-p 'f-file?)
-
-(defun f-symlink? (path)
- "Return t if PATH is symlink, false otherwise."
- (not (not (file-symlink-p path))))
-
-(defalias 'f-symlink-p 'f-symlink?)
-
-(defun f-readable? (path)
- "Return t if PATH is readable, false otherwise."
- (file-readable-p path))
-
-(defalias 'f-readable-p 'f-readable?)
-
-(defun f-writable? (path)
- "Return t if PATH is writable, false otherwise."
- (file-writable-p path))
-
-(defalias 'f-writable-p 'f-writable?)
-
-(defun f-executable? (path)
- "Return t if PATH is executable, false otherwise."
- (file-executable-p path))
-
-(defalias 'f-executable-p 'f-executable?)
-
-(defun f-absolute? (path)
- "Return t if PATH is absolute, false otherwise."
- (file-name-absolute-p path))
-
-(defalias 'f-absolute-p 'f-absolute?)
-
-(defun f-relative? (path)
- "Return t if PATH is relative, false otherwise."
- (not (f-absolute? path)))
-
-(defalias 'f-relative-p 'f-relative?)
-
-(defun f-root? (path)
- "Return t if PATH is root directory, false otherwise."
- (not (f-parent path)))
-
-(defalias 'f-root-p 'f-root?)
-
-(defun f-ext? (path &optional ext)
- "Return t if extension of PATH is EXT, false otherwise.
-
-If EXT is nil or omitted, return t if PATH has any extension,
-false otherwise.
-
-The extension, in a file name, is the part that follows the last
-'.', excluding version numbers and backup suffixes."
- (if ext
- (string= (f-ext path) ext)
- (not (eq (f-ext path) nil))))
-
-(defalias 'f-ext-p 'f-ext?)
-
-(defalias 'f-equal? 'f-same?)
-(defalias 'f-equal-p 'f-equal?)
-
-(defun f-same? (path-a path-b)
- "Return t if PATH-A and PATH-B are references to same file."
- (when (and (f-exists? path-a)
- (f-exists? path-b))
- (equal
- (f-canonical (directory-file-name (f-expand path-a)))
- (f-canonical (directory-file-name (f-expand path-b))))))
-
-(defalias 'f-same-p 'f-same?)
-
-(defun f-parent-of? (path-a path-b)
- "Return t if PATH-A is parent of PATH-B."
- (--when-let (f-parent path-b)
- (f-same? path-a it)))
-
-(defalias 'f-parent-of-p 'f-parent-of?)
-
-(defun f-child-of? (path-a path-b)
- "Return t if PATH-A is child of PATH-B."
- (--when-let (f-parent path-a)
- (f-same? it path-b)))
-
-(defalias 'f-child-of-p 'f-child-of?)
-
-(defun f-ancestor-of? (path-a path-b)
- "Return t if PATH-A is ancestor of PATH-B."
- (unless (f-same? path-a path-b)
- (s-starts-with? (f-full path-a)
- (f-full path-b))))
-
-(defalias 'f-ancestor-of-p 'f-ancestor-of?)
-
-(defun f-descendant-of? (path-a path-b)
- "Return t if PATH-A is desendant of PATH-B."
- (unless (f-same? path-a path-b)
- (s-starts-with? (f-full path-b)
- (f-full path-a))))
-
-(defalias 'f-descendant-of-p 'f-descendant-of?)
-
-(defun f-hidden? (path)
- "Return t if PATH is hidden, nil otherwise."
- (unless (f-exists? path)
- (error "Path does not exist: %s" path))
- (string= (substring path 0 1) "."))
-
-(defalias 'f-hidden-p 'f-hidden?)
-
-(defun f-empty? (path)
- "If PATH is a file, return t if the file in PATH is empty, nil otherwise.
-If PATH is directory, return t if directory has no files, nil otherwise."
- (if (f-directory? path)
- (equal (f-files path nil t) nil)
- (= (f-size path) 0)))
-
-(defalias 'f-empty-p 'f-empty?)
-
-
-;;;; Stats
-
-(defun f-size (path)
- "Return size of PATH.
-
-If PATH is a file, return size of that file. If PATH is
-directory, return sum of all files in PATH."
- (if (f-directory? path)
- (-sum (-map 'f-size (f-files path nil t)))
- (nth 7 (file-attributes path))))
-
-(defun f-depth (path)
- "Return the depth of PATH.
-
-At first, PATH is expanded with `f-expand'. Then the full path is used to
-detect the depth.
-'/' will be zero depth, '/usr' will be one depth. And so on."
- (- (length (f-split (f-expand path))) 1))
-
-
-;;;; Misc
-
-(defun f-this-file ()
- "Return path to this file."
- (cond
- (load-in-progress load-file-name)
- ((and (boundp 'byte-compile-current-file) byte-compile-current-file)
- byte-compile-current-file)
- (:else (buffer-file-name))))
-
-(defvar f--path-separator nil
- "A variable to cache result of `f-path-separator'.")
-
-(defun f-path-separator ()
- "Return path separator."
- (or f--path-separator
- (setq f--path-separator (substring (f-join "x" "y") 1 2))))
-
-(defun f-glob (pattern &optional path)
- "Find PATTERN in PATH."
- (file-expand-wildcards
- (f-join (or path default-directory) pattern)))
-
-(defun f--collect-entries (path recursive)
- (let (result
- (entries
- (-reject
- (lambda (file)
- (or
- (equal (f-filename file) ".")
- (equal (f-filename file) "..")))
- (directory-files path t))))
- (cond (recursive
- (-map
- (lambda (entry)
- (if (f-file? entry)
- (setq result (cons entry result))
- (when (f-directory? entry)
- (setq result (cons entry result))
- (setq result (append result (f--collect-entries entry recursive))))))
- entries))
- (t (setq result entries)))
- result))
-
-(defmacro f--entries (path body &optional recursive)
- "Anaphoric version of `f-entries'."
- `(f-entries
- ,path
- (lambda (path)
- (let ((it path))
- ,body))
- ,recursive))
-
-(defun f-entries (path &optional fn recursive)
- "Find all files and directories in PATH.
-
-FN - called for each found file and directory. If FN returns a thruthy
-value, file or directory will be included.
-RECURSIVE - Search for files and directories recursive."
- (let ((entries (f--collect-entries path recursive)))
- (if fn (-select fn entries) entries)))
-
-(defmacro f--directories (path body &optional recursive)
- "Anaphoric version of `f-directories'."
- `(f-directories
- ,path
- (lambda (path)
- (let ((it path))
- ,body))
- ,recursive))
-
-(defun f-directories (path &optional fn recursive)
- "Find all directories in PATH. See `f-entries'."
- (let ((directories (-select 'f-directory? (f--collect-entries path recursive))))
- (if fn (-select fn directories) directories)))
-
-(defmacro f--files (path body &optional recursive)
- "Anaphoric version of `f-files'."
- `(f-files
- ,path
- (lambda (path)
- (let ((it path))
- ,body))
- ,recursive))
-
-(defun f-files (path &optional fn recursive)
- "Find all files in PATH. See `f-entries'."
- (let ((files (-select 'f-file? (f--collect-entries path recursive))))
- (if fn (-select fn files) files)))
-
-(defmacro f--traverse-upwards (body &optional path)
- "Anaphoric version of `f-traverse-upwards'."
- `(f-traverse-upwards
- (lambda (dir)
- (let ((it dir))
- ,body))
- ,path))
-
-(defun f-traverse-upwards (fn &optional path)
- "Traverse up as long as FN return nil, starting at PATH.
-
-If FN returns a non-nil value, the path sent as argument to FN is
-returned. If no function callback return a non-nil value, nil is
-returned."
- (unless path
- (setq path default-directory))
- (when (f-relative? path)
- (setq path (f-expand path)))
- (if (funcall fn path)
- path
- (unless (f-root? path)
- (f-traverse-upwards fn (f-parent path)))))
-
-(defun f-root ()
- "Return absolute root."
- (f-traverse-upwards 'f-root?))
-
-(defmacro f-with-sandbox (path-or-paths &rest body)
- "Only allow PATH-OR-PATHS and decendants to be modified in BODY."
- (declare (indent 1))
- `(let ((paths (if (listp ,path-or-paths)
- ,path-or-paths
- (list ,path-or-paths))))
- (unwind-protect
- (let ((f--guard-paths paths))
- ,@body)
- (setq f--guard-paths nil))))
-
-(provide 'f)
-
-;;; f.el ends here
diff --git a/elpa/f-20180106.922/f.elc b/elpa/f-20180106.922/f.elc
deleted file mode 100644
index de31750..0000000
--- a/elpa/f-20180106.922/f.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/flycheck-20181018.1021/flycheck-autoloads.el b/elpa/flycheck-20181018.1021/flycheck-autoloads.el
deleted file mode 100644
index b5e7a65..0000000
--- a/elpa/flycheck-20181018.1021/flycheck-autoloads.el
+++ /dev/null
@@ -1,259 +0,0 @@
-;;; flycheck-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "flycheck" "flycheck.el" (0 0 0 0))
-;;; Generated autoloads from flycheck.el
-
-(autoload 'flycheck-manual "flycheck" "\
-Open the Flycheck manual.
-
-\(fn)" t nil)
-
-(autoload 'flycheck-mode "flycheck" "\
-Minor mode for on-the-fly syntax checking.
-
-When called interactively, toggle `flycheck-mode'. With prefix
-ARG, enable `flycheck-mode' if ARG is positive, otherwise disable
-it.
-
-When called from Lisp, enable `flycheck-mode' if ARG is omitted,
-nil or positive. If ARG is `toggle', toggle `flycheck-mode'.
-Otherwise behave as if called interactively.
-
-In `flycheck-mode' the buffer is automatically syntax-checked
-using the first suitable syntax checker from `flycheck-checkers'.
-Use `flycheck-select-checker' to select a checker for the current
-buffer manually.
-
-\\{flycheck-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-flycheck-mode nil "\
-Non-nil if Global Flycheck mode is enabled.
-See the `global-flycheck-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-flycheck-mode'.")
-
-(custom-autoload 'global-flycheck-mode "flycheck" nil)
-
-(autoload 'global-flycheck-mode "flycheck" "\
-Toggle Flycheck mode in all buffers.
-With prefix ARG, enable Global Flycheck mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Flycheck mode is enabled in all buffers where
-`flycheck-mode-on-safe' would do it.
-See `flycheck-mode' for more information on Flycheck mode.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'flycheck-define-error-level "flycheck" "\
-Define a new error LEVEL with PROPERTIES.
-
-The following PROPERTIES constitute an error level:
-
-`:severity SEVERITY'
- A number denoting the severity of this level. The higher
- the number, the more severe is this level compared to other
- levels. Defaults to 0.
-
- The severity is used by `flycheck-error-level-<' to
- determine the ordering of errors according to their levels.
-
-`:compilation-level LEVEL'
-
- A number indicating the broad class of messages that errors
- at this level belong to: one of 0 (info), 1 (warning), or
- 2 or nil (error). Defaults to nil.
-
- This is used by `flycheck-checker-pattern-to-error-regexp'
- to map error levels into `compilation-mode''s hierarchy and
- to get proper highlighting of errors in `compilation-mode'.
-
-`:overlay-category CATEGORY'
- A symbol denoting the overlay category to use for error
- highlight overlays for this level. See Info
- node `(elisp)Overlay Properties' for more information about
- overlay categories.
-
- A category for an error level overlay should at least define
- the `face' property, for error highlighting. Another useful
- property for error level categories is `priority', to
- influence the stacking of multiple error level overlays.
-
-`:fringe-bitmap BITMAP'
- A fringe bitmap symbol denoting the bitmap to use for fringe
- indicators for this level. See Info node `(elisp)Fringe
- Bitmaps' for more information about fringe bitmaps,
- including a list of built-in fringe bitmaps.
-
-`:fringe-face FACE'
- A face symbol denoting the face to use for fringe indicators
- for this level.
-
-`:error-list-face FACE'
- A face symbol denoting the face to use for messages of this
- level in the error list. See `flycheck-list-errors'.
-
-\(fn LEVEL &rest PROPERTIES)" nil nil)
-
-(function-put 'flycheck-define-error-level 'lisp-indent-function '1)
-
-(autoload 'flycheck-define-command-checker "flycheck" "\
-Define SYMBOL as syntax checker to run a command.
-
-Define SYMBOL as generic syntax checker via
-`flycheck-define-generic-checker', which uses an external command
-to check the buffer. SYMBOL and DOCSTRING are the same as for
-`flycheck-define-generic-checker'.
-
-In addition to the properties understood by
-`flycheck-define-generic-checker', the following PROPERTIES
-constitute a command syntax checker. Unless otherwise noted, all
-properties are mandatory. Note that the default `:error-filter'
-of command checkers is `flycheck-sanitize-errors'.
-
-`:command COMMAND'
- The command to run for syntax checking.
-
- COMMAND is a list of the form `(EXECUTABLE [ARG ...])'.
-
- EXECUTABLE is a string with the executable of this syntax
- checker. It can be overridden with the variable
- `flycheck-SYMBOL-executable'. Note that this variable is
- NOT implicitly defined by this function. Use
- `flycheck-def-executable-var' to define this variable.
-
- Each ARG is an argument to the executable, either as string,
- or as special symbol or form for
- `flycheck-substitute-argument', which see.
-
-`:error-patterns PATTERNS'
- A list of patterns to parse the output of the `:command'.
-
- Each ITEM in PATTERNS is a list `(LEVEL SEXP ...)', where
- LEVEL is a Flycheck error level (see
- `flycheck-define-error-level'), followed by one or more RX
- `SEXP's which parse an error of that level and extract line,
- column, file name and the message.
-
- See `rx' for general information about RX, and
- `flycheck-rx-to-string' for some special RX forms provided
- by Flycheck.
-
- All patterns are applied in the order of declaration to the
- whole output of the syntax checker. Output already matched
- by a pattern will not be matched by subsequent patterns. In
- other words, the first pattern wins.
-
- This property is optional. If omitted, however, an
- `:error-parser' is mandatory.
-
-`:error-parser FUNCTION'
- A function to parse errors with.
-
- The function shall accept three arguments OUTPUT CHECKER
- BUFFER. OUTPUT is the syntax checker output as string,
- CHECKER the syntax checker that was used, and BUFFER a
- buffer object representing the checked buffer. The function
- must return a list of `flycheck-error' objects parsed from
- OUTPUT.
-
- This property is optional. If omitted, it defaults to
- `flycheck-parse-with-patterns'. In this case,
- `:error-patterns' is mandatory.
-
-`:standard-input t'
- Whether to send the buffer contents on standard input.
-
- If this property is given and has a non-nil value, send the
- contents of the buffer on standard input.
-
- Defaults to nil.
-
-Note that you may not give `:start', `:interrupt', and
-`:print-doc' for a command checker. You can give a custom
-`:verify' function, though, whose results will be appended to the
-default `:verify' function of command checkers.
-
-\(fn SYMBOL DOCSTRING &rest PROPERTIES)" nil nil)
-
-(function-put 'flycheck-define-command-checker 'lisp-indent-function '1)
-
-(function-put 'flycheck-define-command-checker 'doc-string-elt '2)
-
-(autoload 'flycheck-def-config-file-var "flycheck" "\
-Define SYMBOL as config file variable for CHECKER, with default FILE-NAME.
-
-SYMBOL is declared as customizable variable using `defcustom', to
-provide a configuration file for the given syntax CHECKER.
-CUSTOM-ARGS are forwarded to `defcustom'.
-
-FILE-NAME is the initial value of the new variable. If omitted,
-the default value is nil.
-
-Use this together with the `config-file' form in the `:command'
-argument to `flycheck-define-checker'.
-
-\(fn SYMBOL CHECKER &optional FILE-NAME &rest CUSTOM-ARGS)" nil t)
-
-(function-put 'flycheck-def-config-file-var 'lisp-indent-function '3)
-
-(autoload 'flycheck-def-option-var "flycheck" "\
-Define SYMBOL as option variable with INIT-VALUE for CHECKER.
-
-SYMBOL is declared as customizable variable using `defcustom', to
-provide an option for the given syntax CHECKERS (a checker or a
-list of checkers). INIT-VALUE is the initial value of the
-variable, and DOCSTRING is its docstring. CUSTOM-ARGS are
-forwarded to `defcustom'.
-
-Use this together with the `option', `option-list' and
-`option-flag' forms in the `:command' argument to
-`flycheck-define-checker'.
-
-\(fn SYMBOL INIT-VALUE CHECKERS DOCSTRING &rest CUSTOM-ARGS)" nil t)
-
-(function-put 'flycheck-def-option-var 'lisp-indent-function '3)
-
-(function-put 'flycheck-def-option-var 'doc-string-elt '4)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flycheck" '("flycheck-" "list-flycheck-errors" "locate-rebar3-project-root" "contains-rebar-config" "help-flycheck-checker-d" "read-flycheck-")))
-
-;;;***
-
-;;;### (autoloads nil "flycheck-buttercup" "flycheck-buttercup.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from flycheck-buttercup.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flycheck-buttercup" '("flycheck-buttercup-format-error-list")))
-
-;;;***
-
-;;;### (autoloads nil "flycheck-ert" "flycheck-ert.el" (0 0 0 0))
-;;; Generated autoloads from flycheck-ert.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flycheck-ert" '("flycheck-er")))
-
-;;;***
-
-;;;### (autoloads nil nil ("flycheck-pkg.el") (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; flycheck-autoloads.el ends here
diff --git a/elpa/flycheck-20181018.1021/flycheck-buttercup.el b/elpa/flycheck-20181018.1021/flycheck-buttercup.el
deleted file mode 100644
index 9802265..0000000
--- a/elpa/flycheck-20181018.1021/flycheck-buttercup.el
+++ /dev/null
@@ -1,157 +0,0 @@
-;;; flycheck-buttercup.el --- Flycheck: Extensions to Buttercup -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017 Flycheck contributors
-;; Copyright (C) 2016 Sebastian Wiesner and Flycheck contributors
-
-;; Author: Sebastian Wiesner <swiesner@lunaryorn.com>
-;; Maintainer: Clément Pit-Claudel <clement.pitclaudel@live.com>
-;; fmdkdd <fmdkdd@gmail.com>
-;; Keywords: lisp, tools
-
-;; This file is not part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Extensions to Buttercup to write BDD tests for Flycheck.
-;;
-;; Buttercup is a BDD testing framework for Emacs, see URL
-;; `https://github.com/jorgenschaefer/emacs-buttercup/'. Flycheck uses
-;; Buttercup extensively for new tests.
-;;
-;; This library provides extensions to Buttercup to write Specs for Flycheck.
-;;
-;; * Custom matchers
-;;
-;; (expect 'foo :to-be-local) - Is `foo' a local variable in the current buffer?
-
-;;; Code:
-
-(require 'buttercup)
-(require 'flycheck)
-(require 'seq)
-
-
-;;; Buttercup helpers
-
-(defun flycheck-buttercup-format-error-list (errors)
- "Format ERRORS into a human-readable string."
- (mapconcat (lambda (e) (flycheck-error-format e 'with-file-name))
- errors "\n"))
-
-
-;;; Data matchers
-
-(buttercup-define-matcher :to-be-empty-string (s)
- (let ((s (funcall s)))
- (if (equal s "")
- (cons t (format "Expected %S not be an empty string" s))
- (cons nil (format "Expected %S to be an empty string" s)))))
-
-(buttercup-define-matcher :to-match-with-group (re s index match)
- (let* ((re (funcall re))
- (s (funcall s))
- (index (funcall index))
- (match (funcall match))
- (matches? (string-match re s))
- (result (and matches? (match-string index s))))
- (if (and matches? (equal result match))
- (cons t (format "Expected %S not to match %S with %S in group %s"
- re s match index))
-
- (cons nil (format "Expected %S to match %S with %S in group %s, %s"
- re s match index
- (if matches?
- (format "but got %S" result)
- "but did not match"))))))
-
-
-;;; Emacs feature matchers
-
-(buttercup-define-matcher :to-be-live (buffer)
- (let ((buffer (get-buffer (funcall buffer))))
- (if (buffer-live-p buffer)
- (cons t (format "Expected %S not to be a live buffer, but it is"
- buffer))
- (cons nil (format "Expected %S to be a live buffer, but it is not"
- buffer)))))
-
-(buttercup-define-matcher :to-be-visible (buffer)
- (let ((buffer (get-buffer (funcall buffer))))
- (cond
- ((and buffer (get-buffer-window buffer))
- (cons t (format "Expected %S not to be a visible buffer, but it is"
- buffer)))
- ((not (bufferp buffer))
- (cons nil
- (format "Expected %S to be a visible buffer, but it is not a buffer"
- buffer)))
- (t (cons
- nil
- (format "Expected %S to be a visible buffer, but it is not visible"
- buffer))))))
-
-(buttercup-define-matcher :to-be-local (symbol)
- (let ((symbol (funcall symbol)))
- (if (local-variable-p symbol)
- (cons t (format "Expected %S not to be a local variable, but it is"
- symbol))
- (cons nil (format "Expected %S to be a local variable, but it is not"
- symbol)))))
-
-(buttercup-define-matcher :to-contain-match (buffer re)
- (let ((buffer (funcall buffer))
- (re (funcall re)))
- (if (not (get-buffer buffer))
- (cons nil (format "Expected %S to contain a match of %s, \
-but is not a buffer" buffer re))
- (with-current-buffer buffer
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward re nil 'noerror)
- (cons t (format "Expected %S to contain a match \
-for %s, but it did not" buffer re))
- (cons nil (format "Expected %S not to contain a match for \
-%s but it did not." buffer re))))))))
-
-
-;;; Flycheck matchers
-
-(buttercup-define-matcher :to-be-equal-flycheck-errors (a b)
- (let* ((a (funcall a))
- (b (funcall b))
- (a-formatted (flycheck-buttercup-format-error-list a))
- (b-formatted (flycheck-buttercup-format-error-list b)))
- (if (equal a b)
- (cons t (format "Expected
-%s
-not to be equal to
-%s" a-formatted b-formatted))
- (cons nil (format "Expected
-%s
-to be equal to
-%s" a-formatted b-formatted)))))
-
-(provide 'flycheck-buttercup)
-
-;; Disable byte compilation for this library, to prevent package.el choking on a
-;; missing `buttercup' library. See
-;; https://github.com/flycheck/flycheck/issues/860
-
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
-;;; flycheck-buttercup.el ends here
diff --git a/elpa/flycheck-20181018.1021/flycheck-ert.el b/elpa/flycheck-20181018.1021/flycheck-ert.el
deleted file mode 100644
index b7c2bc0..0000000
--- a/elpa/flycheck-20181018.1021/flycheck-ert.el
+++ /dev/null
@@ -1,483 +0,0 @@
-;;; flycheck-ert.el --- Flycheck: ERT extensions -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017-2018 Flycheck contributors
-;; Copyright (C) 2013-2016 Sebastian Wiesner and Flycheck contributors
-
-;; Author: Sebastian Wiesner <swiesner@lunaryorn.com>
-;; Maintainer: Clément Pit-Claudel <clement.pitclaudel@live.com>
-;; fmdkdd <fmdkdd@gmail.com>
-;; URL: https://github.com/flycheck/flycheck
-
-;; This file is not part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Unit testing library for Flycheck, the modern on-the-fly syntax checking
-;; extension for GNU Emacs.
-
-;; Provide various utility functions and unit test helpers to test Flycheck and
-;; Flycheck extensions.
-
-;;; Code:
-
-(require 'flycheck)
-(require 'ert)
-(require 'macroexp) ; For macro utilities
-
-
-;;; Compatibility
-
-(eval-and-compile
- ;; Provide `ert-skip' and friends for Emacs 24.3
- (defconst flycheck-ert-ert-can-skip (fboundp 'ert-skip)
- "Whether ERT supports test skipping.")
-
- (unless (fboundp 'define-error)
- ;; from Emacs `subr.el'
- (defun define-error (name message &optional parent)
- "Define NAME as a new error signal.
-MESSAGE is a string that will be output to the echo area if such an error
-is signaled without being caught by a `condition-case'.
-PARENT is either a signal or a list of signals from which it inherits.
-Defaults to `error'."
- (unless parent (setq parent 'error))
- (let ((conditions
- (if (consp parent)
- (apply #'append
- (mapcar
- (lambda (parent)
- (cons parent
- (or (get parent 'error-conditions)
- (error "Unknown signal `%s'" parent))))
- parent))
- (cons parent (get parent 'error-conditions)))))
- (put name 'error-conditions
- (delete-dups (copy-sequence (cons name conditions))))
- (when message (put name 'error-message message)))))
-
- (unless flycheck-ert-ert-can-skip
- ;; Fake skipping
-
- (define-error 'flycheck-ert-skipped "Test skipped")
-
- (defun ert-skip (data)
- (signal 'flycheck-ert-skipped data))
-
- (defmacro skip-unless (form)
- `(unless (ignore-errors ,form)
- (signal 'flycheck-ert-skipped ',form)))
-
- (defun ert-test-skipped-p (result)
- (and (ert-test-failed-p result)
- (eq (car (ert-test-failed-condition result))
- 'flycheck-ert-skipped)))))
-
-
-;;; Internal variables
-
-(defvar flycheck-ert--resource-directory nil
- "The directory to get resources from in this test suite.")
-
-
-;;; Resource management macros
-
-(defmacro flycheck-ert-with-temp-buffer (&rest body)
- "Eval BODY within a temporary buffer.
-
-Like `with-temp-buffer', but resets the modification state of the
-temporary buffer to make sure that it is properly killed even if
-it has a backing file and is modified."
- (declare (indent 0))
- `(with-temp-buffer
- (unwind-protect
- ,(macroexp-progn body)
- ;; Reset modification state of the buffer, and unlink it from its backing
- ;; file, if any, because Emacs refuses to kill modified buffers with
- ;; backing files, even if they are temporary.
- (set-buffer-modified-p nil)
- (set-visited-file-name nil 'no-query))))
-
-(defmacro flycheck-ert-with-file-buffer (file-name &rest body)
- "Create a buffer from FILE-NAME and eval BODY.
-
-BODY is evaluated with `current-buffer' being a buffer with the
-contents FILE-NAME."
- (declare (indent 1))
- `(let ((file-name ,file-name))
- (unless (file-exists-p file-name)
- (error "%s does not exist" file-name))
- (flycheck-ert-with-temp-buffer
- (insert-file-contents file-name 'visit)
- (set-visited-file-name file-name 'no-query)
- (cd (file-name-directory file-name))
- ;; Mark the buffer as not modified, because we just loaded the file up to
- ;; now.
- (set-buffer-modified-p nil)
- ,@body)))
-
-(defmacro flycheck-ert-with-help-buffer (&rest body)
- "Execute BODY and kill the help buffer afterwards.
-
-Use this macro to test functions that create a Help buffer."
- (declare (indent 0))
- `(unwind-protect
- ,(macroexp-progn body)
- (when (buffer-live-p (get-buffer (help-buffer)))
- (kill-buffer (help-buffer)))))
-
-(defmacro flycheck-ert-with-global-mode (&rest body)
- "Execute BODY with Global Flycheck Mode enabled.
-
-After BODY, restore the old state of Global Flycheck Mode."
- (declare (indent 0))
- `(let ((old-state global-flycheck-mode))
- (unwind-protect
- (progn
- (global-flycheck-mode 1)
- ,@body)
- (global-flycheck-mode (if old-state 1 -1)))))
-
-(defmacro flycheck-ert-with-env (env &rest body)
- "Add ENV to `process-environment' in BODY.
-
-Execute BODY with a `process-environment' which contains all
-variables from ENV added.
-
-ENV is an alist, where each cons cell `(VAR . VALUE)' is a
-environment variable VAR to be added to `process-environment'
-with VALUE."
- (declare (indent 1))
- `(let ((process-environment (copy-sequence process-environment)))
- (pcase-dolist (`(,var . ,value) ,env)
- (setenv var value))
- ,@body))
-
-
-;;; Test resources
-(defun flycheck-ert-resource-filename (resource-file)
- "Determine the absolute file name of a RESOURCE-FILE.
-
-Relative file names are expanded against
-`flycheck-ert--resource-directory'."
- (expand-file-name resource-file flycheck-ert--resource-directory))
-
-(defmacro flycheck-ert-with-resource-buffer (resource-file &rest body)
- "Create a temp buffer from a RESOURCE-FILE and execute BODY.
-
-The absolute file name of RESOURCE-FILE is determined with
-`flycheck-ert-resource-filename'."
- (declare (indent 1))
- `(flycheck-ert-with-file-buffer
- (flycheck-ert-resource-filename ,resource-file)
- ,@body))
-
-
-;;; Test suite initialization
-
-(defun flycheck-ert-initialize (resource-dir)
- "Initialize a test suite with RESOURCE-DIR.
-
-RESOURCE-DIR is the directory, `flycheck-ert-resource-filename'
-should use to lookup resource files."
- (when flycheck-ert--resource-directory
- (error "Test suite already initialized"))
- (let ((tests (ert-select-tests t t)))
- ;; Select all tests
- (unless tests
- (error "No tests defined. \
-Call `flycheck-ert-initialize' after defining all tests!"))
-
- (setq flycheck-ert--resource-directory resource-dir)
-
- ;; Emacs 24.3 don't support skipped tests, so we add poor man's test
- ;; skipping: We mark skipped tests as expected failures by adjusting the
- ;; expected result of all test cases. Not particularly pretty, but works :)
- (unless flycheck-ert-ert-can-skip
- (dolist (test tests)
- (let ((result (ert-test-expected-result-type test)))
- (setf (ert-test-expected-result-type test)
- `(or ,result (satisfies ert-test-skipped-p))))))))
-
-
-;;; Test case definitions
-(defmacro flycheck-ert-def-checker-test (checker language name
- &rest keys-and-body)
- "Define a test case for a syntax CHECKER for LANGUAGE.
-
-CHECKER is a symbol or a list of symbols denoting syntax checkers
-being tested by the test. The test case is skipped, if any of
-these checkers cannot be used. LANGUAGE is a symbol or a list of
-symbols denoting the programming languages supported by the
-syntax checkers. This is currently only used for tagging the
-test appropriately.
-
-NAME is a symbol denoting the local name of the test. The test
-itself is ultimately named
-`flycheck-define-checker/CHECKER/NAME'. If CHECKER is a list,
-the first checker in the list is used for naming the test.
-
-Optionally, the keyword arguments `:tags' and `:expected-result'
-may be given. They have the same meaning as in `ert-deftest.',
-and are added to the tags and result expectations set up by this
-macro.
-
-The remaining forms KEYS-AND-BODY denote the body of the test
-case, including assertions and setup code."
- (declare (indent 3))
- (unless checker
- (error "No syntax checkers specified"))
- (unless language
- (error "No languages specified"))
- (let* ((checkers (if (symbolp checker) (list checker) checker))
- (checker (car checkers))
- (languages (if (symbolp language) (list language) language))
- (language-tags (mapcar (lambda (l) (intern (format "language-%s" l)))
- languages))
- (checker-tags (mapcar (lambda (c) (intern (format "checker-%s" c)))
- checkers))
- (local-name (or name 'default))
- (full-name (intern (format "flycheck-define-checker/%s/%s"
- checker local-name)))
- (keys-and-body (ert--parse-keys-and-body keys-and-body))
- (body (cadr keys-and-body))
- (keys (car keys-and-body))
- (default-tags '(syntax-checker external-tool)))
- `(ert-deftest ,full-name ()
- :expected-result ,(or (plist-get keys :expected-result) :passed)
- :tags (append ',(append default-tags language-tags checker-tags)
- ,(plist-get keys :tags))
- ,@(mapcar (lambda (c)
- `(skip-unless
- ;; Ignore non-command checkers
- (or (not (flycheck-checker-get ',c 'command))
- (executable-find (flycheck-checker-executable ',c)))))
- checkers)
- ,@body)))
-
-
-;;; Test case results
-
-(defun flycheck-ert-syntax-check-timed-out-p (result)
- "Whether RESULT denotes a timed-out test.
-
-RESULT is an ERT test result object."
- (and (ert-test-failed-p result)
- (eq (car (ert-test-failed-condition result))
- 'flycheck-ert-syntax-check-timed-out)))
-
-
-;;; Syntax checking in tests
-
-(defvar-local flycheck-ert-syntax-checker-finished nil
- "Non-nil if the current checker has finished.")
-
-(add-hook 'flycheck-after-syntax-check-hook
- (lambda () (setq flycheck-ert-syntax-checker-finished t)))
-
-(defconst flycheck-ert-checker-wait-time 10
- "Time to wait until a checker is finished in seconds.
-
-After this time has elapsed, the checker is considered to have
-failed, and the test aborted with failure.")
-
-(define-error 'flycheck-ert-syntax-check-timed-out "Syntax check timed out.")
-
-(defun flycheck-ert-wait-for-syntax-checker ()
- "Wait until the syntax check in the current buffer is finished."
- (let ((starttime (float-time)))
- (while (and (not flycheck-ert-syntax-checker-finished)
- (< (- (float-time) starttime) flycheck-ert-checker-wait-time))
- (sleep-for 1))
- (unless (< (- (float-time) starttime) flycheck-ert-checker-wait-time)
- (flycheck-stop)
- (signal 'flycheck-ert-syntax-check-timed-out nil)))
- (setq flycheck-ert-syntax-checker-finished nil))
-
-(defun flycheck-ert-buffer-sync ()
- "Like `flycheck-buffer', but synchronously."
- (setq flycheck-ert-syntax-checker-finished nil)
- (should (not (flycheck-running-p)))
- (flycheck-mode) ; This will only start a deferred check,
- (flycheck-buffer) ; so we need an explicit manual check
- ;; After starting the check, the checker should either be running now, or
- ;; already be finished (if it was fast).
- (should (or flycheck-current-syntax-check
- flycheck-ert-syntax-checker-finished))
- ;; Also there should be no deferred check pending anymore
- (should-not (flycheck-deferred-check-p))
- (flycheck-ert-wait-for-syntax-checker))
-
-(defun flycheck-ert-ensure-clear ()
- "Clear the current buffer.
-
-Raise an assertion error if the buffer is not clear afterwards."
- (flycheck-clear)
- (should (not flycheck-current-errors))
- (should (not (-any? (lambda (ov) (overlay-get ov 'flycheck-overlay))
- (overlays-in (point-min) (point-max))))))
-
-
-;;; Test assertions
-
-(defun flycheck-error-without-group (err)
- "Return a copy ERR with the `group' property set to nil."
- (let ((copy (copy-flycheck-error err)))
- (setf (flycheck-error-group copy) nil)
- copy))
-
-(defun flycheck-ert-should-overlay (error)
- "Test that ERROR has a proper overlay in the current buffer.
-
-ERROR is a Flycheck error object."
- (let* ((overlay (-first (lambda (ov)
- (equal (flycheck-error-without-group
- (overlay-get ov 'flycheck-error))
- (flycheck-error-without-group error)))
- (flycheck-overlays-in 0 (+ 1 (buffer-size)))))
- (region
- ;; Overlays of errors from other files are on the first line
- (if (flycheck-relevant-error-other-file-p error)
- (cons (point-min)
- (save-excursion (goto-char (point-min)) (point-at-eol)))
- (flycheck-error-region-for-mode error 'symbols)))
- (level (flycheck-error-level error))
- (category (flycheck-error-level-overlay-category level))
- (face (get category 'face))
- (fringe-bitmap (flycheck-error-level-fringe-bitmap level))
- (fringe-face (flycheck-error-level-fringe-face level))
- (fringe-icon (list 'left-fringe fringe-bitmap fringe-face)))
- (should overlay)
- (should (overlay-get overlay 'flycheck-overlay))
- (should (= (overlay-start overlay) (car region)))
- (should (= (overlay-end overlay) (cdr region)))
- (should (eq (overlay-get overlay 'face) face))
- (should (equal (get-char-property 0 'display
- (overlay-get overlay 'before-string))
- fringe-icon))
- (should (eq (overlay-get overlay 'category) category))
- (should (equal (flycheck-error-without-group (overlay-get overlay
- 'flycheck-error))
- (flycheck-error-without-group error)))))
-
-(defun flycheck-ert-should-errors (&rest errors)
- "Test that the current buffers has ERRORS.
-
-ERRORS is a list of errors expected to be present in the current
-buffer. Each error is given as a list of arguments to
-`flycheck-error-new-at'.
-
-If ERRORS are omitted, test that there are no errors at all in
-the current buffer.
-
-With ERRORS, test that each error in ERRORS is present in the
-current buffer, and that the number of errors in the current
-buffer is equal to the number of given ERRORS. In other words,
-check that the buffer has all ERRORS, and no other errors."
- (let ((expected (mapcar (apply-partially #'apply #'flycheck-error-new-at)
- errors)))
- (should (equal (mapcar #'flycheck-error-without-group expected)
- (mapcar #'flycheck-error-without-group
- flycheck-current-errors)))
- ;; Check that related errors are the same
- (cl-mapcar (lambda (err1 err2)
- (should (equal (mapcar #'flycheck-error-without-group
- (flycheck-related-errors err1 expected))
- (mapcar #'flycheck-error-without-group
- (flycheck-related-errors err2)))))
- expected flycheck-current-errors)
- (mapc #'flycheck-ert-should-overlay expected))
- (should (= (length errors)
- (length (flycheck-overlays-in (point-min) (point-max))))))
-
-(define-error 'flycheck-ert-suspicious-checker "Suspicious state from checker")
-
-(defun flycheck-ert-should-syntax-check (resource-file modes &rest errors)
- "Test a syntax check in RESOURCE-FILE with MODES.
-
-RESOURCE-FILE is the file to check. MODES is a single major mode
-symbol or a list thereof, specifying the major modes to syntax
-check with. If more than one major mode is specified, the test
-is run for each mode separately, so if you give three major
-modes, the entire test will run three times. ERRORS is the list
-of expected errors, as in `flycheck-ert-should-errors'. If
-omitted, the syntax check must not emit any errors. The errors
-are cleared after each test.
-
-The syntax checker is selected via standard syntax checker
-selection. To test a specific checker, you need to set
-`flycheck-checker' or `flycheck-disabled-checkers' accordingly
-before using this predicate, depending on whether you want to use
-manual or automatic checker selection.
-
-During the syntax check, configuration files of syntax checkers
-are also searched in the `config-files' sub-directory of the
-resource directory."
- (when (symbolp modes)
- (setq modes (list modes)))
- (dolist (mode modes)
- (unless (fboundp mode)
- (ert-skip (format "%S missing" mode)))
- (flycheck-ert-with-resource-buffer resource-file
- (funcall mode)
- ;; Load safe file-local variables because some tests depend on them
- (let ((enable-local-variables :safe)
- ;; Disable all hooks at this place, to prevent 3rd party packages
- ;; from interfering
- (hack-local-variables-hook))
- (hack-local-variables))
- ;; Configure config file locating for unit tests
- (let ((process-hook-called 0))
- (add-hook 'flycheck-process-error-functions
- (lambda (_err)
- (setq process-hook-called (1+ process-hook-called))
- nil)
- nil :local)
- (add-hook 'flycheck-status-changed-functions
- (lambda (status)
- (when (eq status 'suspicious)
- (signal 'flycheck-ert-suspicious-checker nil))))
- (flycheck-ert-buffer-sync)
- (apply #'flycheck-ert-should-errors errors)
- (should (= process-hook-called (length errors))))
- (flycheck-ert-ensure-clear))))
-
-(defun flycheck-ert-at-nth-error (n)
- "Determine whether point is at the N'th Flycheck error.
-
-Return non-nil if the point is at the N'th Flycheck error in the
-current buffer. Otherwise return nil."
- (let* ((error (nth (1- n) flycheck-current-errors))
- (mode flycheck-highlighting-mode)
- (region (flycheck-error-region-for-mode error mode)))
- (and (member error (flycheck-overlay-errors-at (point)))
- (= (point) (car region)))))
-
-(defun flycheck-ert-explain--at-nth-error (n)
- "Explain a failed at-nth-error predicate at N."
- (let ((errors (flycheck-overlay-errors-at (point))))
- (if (null errors)
- (format "Expected to be at error %s, but no error at point %s"
- n (point))
- (let ((pos (cl-position (car errors) flycheck-current-errors)))
- (format "Expected to be at error %s, but point %s is at error %s"
- n (point) (1+ pos))))))
-
-(put 'flycheck-ert-at-nth-error 'ert-explainer
- 'flycheck-ert-explain--at-nth-error)
-
-(provide 'flycheck-ert)
-
-;;; flycheck-ert.el ends here
diff --git a/elpa/flycheck-20181018.1021/flycheck-ert.elc b/elpa/flycheck-20181018.1021/flycheck-ert.elc
deleted file mode 100644
index cf659d6..0000000
--- a/elpa/flycheck-20181018.1021/flycheck-ert.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/flycheck-20181018.1021/flycheck-pkg.el b/elpa/flycheck-20181018.1021/flycheck-pkg.el
deleted file mode 100644
index 0835bf3..0000000
--- a/elpa/flycheck-20181018.1021/flycheck-pkg.el
+++ /dev/null
@@ -1,16 +0,0 @@
-(define-package "flycheck" "20181018.1021" "On-the-fly syntax checking"
- '((dash "2.12.1")
- (pkg-info "0.4")
- (let-alist "1.0.4")
- (seq "1.11")
- (emacs "24.3"))
- :keywords
- '("convenience" "languages" "tools")
- :authors
- '(("Sebastian Wiesner" . "swiesner@lunaryorn.com"))
- :maintainer
- '("Clément Pit-Claudel" . "clement.pitclaudel@live.com")
- :url "http://www.flycheck.org")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/elpa/flycheck-20181018.1021/flycheck.el b/elpa/flycheck-20181018.1021/flycheck.el
deleted file mode 100644
index 4f86d67..0000000
--- a/elpa/flycheck-20181018.1021/flycheck.el
+++ /dev/null
@@ -1,10505 +0,0 @@
-;;; flycheck.el --- On-the-fly syntax checking -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017-2018 Flycheck contributors
-;; Copyright (C) 2012-2016 Sebastian Wiesner and Flycheck contributors
-;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
-;;
-;; Author: Sebastian Wiesner <swiesner@lunaryorn.com>
-;; Maintainer: Clément Pit-Claudel <clement.pitclaudel@live.com>
-;; fmdkdd <fmdkdd@gmail.com>
-;; URL: http://www.flycheck.org
-;; Keywords: convenience, languages, tools
-;; Version: 32-cvs
-;; Package-Requires: ((dash "2.12.1") (pkg-info "0.4") (let-alist "1.0.4") (seq "1.11") (emacs "24.3"))
-
-;; This file is not part of GNU Emacs.
-
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; On-the-fly syntax checking for GNU Emacs 24.
-;;
-;; Flycheck is a modern on-the-fly syntax checking extension for GNU Emacs,
-;; intended as replacement for the older Flymake extension which is part of GNU
-;; Emacs.
-;;
-;; Flycheck automatically checks buffers for errors while you type, and reports
-;; warnings and errors directly in the buffer and in an optional IDE-like error
-;; list.
-;;
-;; It comes with a rich interface for custom syntax checkers and other
-;; extensions, and has already many 3rd party extensions adding new features.
-;;
-;; Please read the online manual at http://www.flycheck.org for more
-;; information. You can open the manual directly from Emacs with `M-x
-;; flycheck-manual'.
-;;
-;; # Setup
-;;
-;; Flycheck works best on Unix systems. It does not officially support Windows,
-;; but tries to maintain Windows compatibility and should generally work fine on
-;; Windows, too.
-;;
-;; To enable Flycheck add the following to your init file:
-;;
-;; (add-hook 'after-init-hook #'global-flycheck-mode)
-;;
-;; Flycheck will then automatically check buffers in supported languages, as
-;; long as all necessary tools are present. Use `flycheck-verify-setup' to
-;; troubleshoot your Flycheck setup.
-
-;;; Code:
-
-(eval-when-compile
- (require 'let-alist) ; `let-alist'
- (require 'compile) ; Compile Mode integration
- (require 'jka-compr) ; To inhibit compression of temp files
- (require 'pcase) ; `pcase-dolist' (`pcase' itself is autoloaded)
- )
-
-(require 'dash)
-
-(require 'seq) ; Sequence functions
-(require 'subr-x nil 'no-error) ; Additional utilities, Emacs 24.4 and upwards
-(require 'cl-lib) ; `cl-defstruct' and CL utilities
-(require 'tabulated-list) ; To list errors
-(require 'easymenu) ; Flycheck Mode menu definition
-(require 'rx) ; Regexp fanciness in `flycheck-define-checker'
-(require 'help-mode) ; `define-button-type'
-(require 'find-func) ; `find-function-regexp-alist'
-(require 'json) ; `flycheck-parse-tslint'
-
-
-;; Declare a bunch of dynamic variables that we need from other modes
-(defvar sh-shell) ; For shell script checker predicates
-(defvar ess-language) ; For r-lintr predicate
-
-;; Tell the byte compiler about autoloaded functions from packages
-(declare-function pkg-info-version-info "pkg-info" (package))
-
-
-;;; Compatibility
-(eval-and-compile
- (unless (fboundp 'string-suffix-p)
- ;; TODO: Remove when dropping support for Emacs 24.3 and earlier
- (defun string-suffix-p (suffix string &optional ignore-case)
- "Return non-nil if SUFFIX is a suffix of STRING.
-If IGNORE-CASE is non-nil, the comparison is done without paying
-attention to case differences."
- (let ((start-pos (- (length string) (length suffix))))
- (and (>= start-pos 0)
- (eq t (compare-strings suffix nil nil
- string start-pos nil ignore-case))))))
-
- ;; TODO: Remove when dropping support for Emacs 24.3 and earlier
- (unless (featurep 'subr-x)
- ;; `subr-x' function for Emacs 24.3 and below
- (defsubst string-join (strings &optional separator)
- "Join all STRINGS using SEPARATOR."
- (mapconcat 'identity strings separator))
-
- (defsubst string-trim-left (string)
- "Remove leading whitespace from STRING."
- (if (string-match "\\`[ \t\n\r]+" string)
- (replace-match "" t t string)
- string))
-
- (defsubst string-trim-right (string)
- "Remove trailing whitespace from STRING."
- (if (string-match "[ \t\n\r]+\\'" string)
- (replace-match "" t t string)
- string))
-
- (defsubst string-trim (string)
- "Remove leading and trailing whitespace from STRING."
- (string-trim-left (string-trim-right string)))
-
- (defsubst string-empty-p (string)
- "Check whether STRING is empty."
- (string= string ""))))
-
-
-;;; Customization
-(defgroup flycheck nil
- "Modern on-the-fly syntax checking for GNU Emacs."
- :prefix "flycheck-"
- :group 'tools
- :link '(url-link :tag "Website" "http://www.flycheck.org")
- :link '(url-link :tag "Github" "https://github.com/flycheck/flycheck"))
-
-(defgroup flycheck-config-files nil
- "Configuration files for on-the-fly syntax checkers."
- :prefix "flycheck-"
- :group 'flycheck)
-
-(defgroup flycheck-options nil
- "Options for on-the-fly syntax checkers."
- :prefix "flycheck-"
- :group 'flycheck)
-
-(defgroup flycheck-executables nil
- "Executables of syntax checkers."
- :prefix "flycheck-"
- :group 'flycheck)
-
-(defgroup flycheck-faces nil
- "Faces used by on-the-fly syntax checking."
- :prefix "flycheck-"
- :group 'flycheck)
-
-(defcustom flycheck-checkers
- '(ada-gnat
- asciidoctor
- asciidoc
- c/c++-clang
- c/c++-gcc
- c/c++-cppcheck
- cfengine
- chef-foodcritic
- coffee
- coffee-coffeelint
- coq
- css-csslint
- css-stylelint
- cwl
- d-dmd
- dockerfile-hadolint
- emacs-lisp
- emacs-lisp-checkdoc
- erlang-rebar3
- erlang
- eruby-erubis
- fortran-gfortran
- go-gofmt
- go-golint
- go-vet
- go-build
- go-test
- go-errcheck
- go-unconvert
- go-megacheck
- groovy
- haml
- handlebars
- haskell-stack-ghc
- haskell-ghc
- haskell-hlint
- html-tidy
- javascript-eslint
- javascript-jshint
- javascript-standard
- json-jsonlint
- json-python-json
- jsonnet
- less
- less-stylelint
- llvm-llc
- lua-luacheck
- lua
- markdown-markdownlint-cli
- markdown-mdl
- nix
- perl
- perl-perlcritic
- php
- php-phpmd
- php-phpcs
- processing
- proselint
- protobuf-protoc
- pug
- puppet-parser
- puppet-lint
- python-flake8
- python-pylint
- python-pycompile
- python-mypy
- r-lintr
- racket
- rpm-rpmlint
- rst-sphinx
- rst
- ruby-rubocop
- ruby-reek
- ruby-rubylint
- ruby
- ruby-jruby
- rust-cargo
- rust
- rust-clippy
- scala
- scala-scalastyle
- scheme-chicken
- scss-lint
- scss-stylelint
- sass/scss-sass-lint
- sass
- scss
- sh-bash
- sh-posix-dash
- sh-posix-bash
- sh-zsh
- sh-shellcheck
- slim
- slim-lint
- sql-sqlint
- systemd-analyze
- tcl-nagelfar
- tex-chktex
- tex-lacheck
- texinfo
- typescript-tslint
- verilog-verilator
- vhdl-ghdl
- xml-xmlstarlet
- xml-xmllint
- yaml-jsyaml
- yaml-ruby)
- "Syntax checkers available for automatic selection.
-
-A list of Flycheck syntax checkers to choose from when syntax
-checking a buffer. Flycheck will automatically select a suitable
-syntax checker from this list, unless `flycheck-checker' is set,
-either directly or with `flycheck-select-checker'.
-
-You should not need to change this variable normally. In order
-to disable syntax checkers, please use
-`flycheck-disabled-checkers'. This variable is intended for 3rd
-party extensions to tell Flycheck about new syntax checkers.
-
-Syntax checkers in this list must be defined with
-`flycheck-define-checker'."
- :group 'flycheck
- :type '(repeat (symbol :tag "Checker"))
- :risky t)
-
-(defcustom flycheck-disabled-checkers nil
- "Syntax checkers excluded from automatic selection.
-
-A list of Flycheck syntax checkers to exclude from automatic
-selection. Flycheck will never automatically select a syntax
-checker in this list, regardless of the value of
-`flycheck-checkers'.
-
-However, syntax checkers in this list are still available for
-manual selection with `flycheck-select-checker'.
-
-Use this variable to disable syntax checkers, instead of removing
-the syntax checkers from `flycheck-checkers'. You may also use
-this option as a file or directory local variable to disable
-specific checkers in individual files and directories
-respectively."
- :group 'flycheck
- :type '(repeat (symbol :tag "Checker"))
- :package-version '(flycheck . "0.16")
- :safe #'flycheck-symbol-list-p)
-(make-variable-buffer-local 'flycheck-disabled-checkers)
-
-(defvar-local flycheck-checker nil
- "Syntax checker to use for the current buffer.
-
-If unset or nil, automatically select a suitable syntax checker
-from `flycheck-checkers' on every syntax check.
-
-If set to a syntax checker only use this syntax checker and never
-select one from `flycheck-checkers' automatically. The syntax
-checker is used regardless of whether it is contained in
-`flycheck-checkers' or `flycheck-disabled-checkers'. If the
-syntax checker is unusable in the current buffer an error is
-signaled.
-
-A syntax checker assigned to this variable must be defined with
-`flycheck-define-checker'.
-
-Use the command `flycheck-select-checker' to select a syntax
-checker for the current buffer, or set this variable as file
-local variable to always use a specific syntax checker for a
-file. See Info Node `(emacs)Specifying File Variables' for more
-information about file variables.")
-(put 'flycheck-checker 'safe-local-variable 'flycheck-registered-checker-p)
-
-(defcustom flycheck-locate-config-file-functions nil
- "Functions to locate syntax checker configuration files.
-
-Each function in this hook must accept two arguments: The value
-of the configuration file variable, and the syntax checker
-symbol. It must return either a string with an absolute path to
-the configuration file, or nil, if it cannot locate the
-configuration file.
-
-The functions in this hook are called in order of appearance, until a
-function returns non-nil. The configuration file returned by that
-function is then given to the syntax checker if it exists.
-
-This variable is an abnormal hook. See Info
-node `(elisp)Hooks'."
- :group 'flycheck
- :type 'hook
- :risky t)
-
-(defcustom flycheck-checker-error-threshold 400
- "Maximum errors allowed per syntax checker.
-
-The value of this variable is either an integer denoting the
-maximum number of errors per syntax checker and buffer, or nil to
-not limit the errors reported from a syntax checker.
-
-If this variable is a number and a syntax checker reports more
-errors than the value of this variable, its errors are not
-discarded, and not highlighted in the buffer or available in the
-error list. The affected syntax checker is also disabled for
-future syntax checks of the buffer."
- :group 'flycheck
- :type '(choice (const :tag "Do not limit reported errors" nil)
- (integer :tag "Maximum number of errors"))
- :risky t
- :package-version '(flycheck . "0.22"))
-
-(defcustom flycheck-process-error-functions nil
- "Functions to process errors.
-
-Each function in this hook must accept a single argument: A
-Flycheck error to process.
-
-All functions in this hook are called in order of appearance,
-until a function returns non-nil. Thus, a function in this hook
-may return nil, to allow for further processing of the error, or
-any non-nil value, to indicate that the error was fully processed
-and inhibit any further processing.
-
-The functions are called for each newly parsed error immediately
-after the corresponding syntax checker finished. At this stage,
-the overlays from the previous syntax checks are still present,
-and there may be further syntax checkers in the chain.
-
-This variable is an abnormal hook. See Info
-node `(elisp)Hooks'."
- :group 'flycheck
- :type 'hook
- :package-version '(flycheck . "0.13")
- :risky t)
-
-(defcustom flycheck-display-errors-delay 0.9
- "Delay in seconds before displaying errors at point.
-
-Use floating point numbers to express fractions of seconds."
- :group 'flycheck
- :type 'number
- :package-version '(flycheck . "0.15")
- :safe #'numberp)
-
-(defcustom flycheck-display-errors-function #'flycheck-display-error-messages
- "Function to display error messages.
-
-If set to a function, call the function with the list of errors
-to display as single argument. Each error is an instance of the
-`flycheck-error' struct.
-
-If set to nil, do not display errors at all."
- :group 'flycheck
- :type '(choice (const :tag "Display error messages"
- flycheck-display-error-messages)
- (const :tag "Display error messages only if no error list"
- flycheck-display-error-messages-unless-error-list)
- (function :tag "Error display function"))
- :package-version '(flycheck . "0.13")
- :risky t)
-
-(defcustom flycheck-help-echo-function #'flycheck-help-echo-all-error-messages
- "Function to compute the contents of the error tooltips.
-
-If set to a function, call the function with the list of errors
-to display as single argument. Each error is an instance of the
-`flycheck-error' struct. The function is used to set the
-help-echo property of flycheck error overlays. It should return
-a string, which is displayed when the user hovers over an error
-or presses \\[display-local-help].
-
-If set to nil, do not show error tooltips."
- :group 'flycheck
- :type '(choice (const :tag "Concatenate error messages to form a tooltip"
- flycheck-help-echo-all-error-messages)
- (function :tag "Help echo function"))
- :package-version '(flycheck . "0.25")
- :risky t)
-
-(defcustom flycheck-command-wrapper-function #'identity
- "Function to modify checker commands before execution.
-
-The value of this option is a function which is given a list
-containing the full command of a syntax checker after
-substitution through `flycheck-substitute-argument' but before
-execution. The function may return a new command for Flycheck to
-execute.
-
-The default value is `identity' which does not change the
-command. You may provide your own function to run Flycheck
-commands through `bundle exec', `nix-shell' or similar wrappers."
- :group 'flycheck
- :type '(choice (const :tag "Do not modify commands" identity)
- (function :tag "Modify command with a custom function"))
- :package-version '(flycheck . "0.25")
- :risky t)
-
-(defcustom flycheck-executable-find #'flycheck-default-executable-find
- "Function to search for executables.
-
-The value of this option is a function which is given the name or
-path of an executable and shall return the full path to the
-executable, or nil if the executable does not exit.
-
-The default is `flycheck-default-executable-find', which searches
-`exec-path' when given a command name, and resolves paths to
-absolute ones. You can customize this option to search for
-checkers in other environments such as bundle or NixOS
-sandboxes."
- :group 'flycheck
- :type '(choice
- (const :tag "Search executables in `exec-path'"
- flycheck-default-executable-find)
- (function :tag "Search executables with a custom function"))
- :package-version '(flycheck . "32")
- :risky t)
-
-(defun flycheck-default-executable-find (executable)
- "Resolve EXECUTABLE to a full path.
-
-Like `executable-find', but supports relative paths.
-
-Attempts invoking `executable-find' first; if that returns nil,
-and EXECUTABLE contains a directory component, expands to a full
-path and tries invoking `executable-find' again."
- ;; file-name-directory returns non-nil iff the given path has a
- ;; directory component.
- (or
- (executable-find executable)
- (when (file-name-directory executable)
- (executable-find (expand-file-name executable)))))
-
-(defcustom flycheck-indication-mode 'left-fringe
- "The indication mode for Flycheck errors and warnings.
-
-This variable controls how Flycheck indicates errors in buffers.
-May either be `left-fringe', `right-fringe', or nil.
-
-If set to `left-fringe' or `right-fringe', indicate errors and
-warnings via icons in the left and right fringe respectively.
-
-If set to nil, do not indicate errors and warnings, but just
-highlight them according to `flycheck-highlighting-mode'."
- :group 'flycheck
- :type '(choice (const :tag "Indicate in the left fringe" left-fringe)
- (const :tag "Indicate in the right fringe" right-fringe)
- (const :tag "Do not indicate" nil))
- :safe #'symbolp)
-
-(defcustom flycheck-highlighting-mode 'symbols
- "The highlighting mode for Flycheck errors and warnings.
-
-The highlighting mode controls how Flycheck highlights errors in
-buffers. The following modes are known:
-
-`columns'
- Highlight the error column. If the error does not have a column,
- highlight the whole line.
-
-`symbols'
- Highlight the symbol at the error column, if there is any,
- otherwise behave like `columns'. This is the default.
-
-`sexps'
- Highlight the expression at the error column, if there is
- any, otherwise behave like `columns'. Note that this mode
- can be *very* slow in some major modes.
-
-`lines'
- Highlight the whole line.
-
-nil
- Do not highlight errors at all. However, errors will still
- be reported in the mode line and in error message popups,
- and indicated according to `flycheck-indication-mode'."
- :group 'flycheck
- :type '(choice (const :tag "Highlight columns only" columns)
- (const :tag "Highlight symbols" symbols)
- (const :tag "Highlight expressions" sexps)
- (const :tag "Highlight whole lines" lines)
- (const :tag "Do not highlight errors" nil))
- :package-version '(flycheck . "0.14")
- :safe #'symbolp)
-
-(defcustom flycheck-check-syntax-automatically '(save
- idle-change
- new-line
- mode-enabled)
- "When Flycheck should check syntax automatically.
-
-This variable is a list of events that may trigger syntax checks.
-The following events are known:
-
-`save'
- Check syntax immediately after the buffer was saved.
-
-`idle-change'
- Check syntax a short time (see `flycheck-idle-change-delay')
- after the last change to the buffer.
-
-`new-line'
- Check syntax immediately after a new line was inserted into
- the buffer.
-
-`mode-enabled'
- Check syntax immediately when variable `flycheck-mode' is
- non-nil.
-
-Flycheck performs a syntax checks only on events, which are
-contained in this list. For instance, if the value of this
-variable is `(mode-enabled save)', Flycheck will only check if
-the mode is enabled or the buffer was saved, but never after
-changes to the buffer contents.
-
-If nil, never check syntax automatically. In this case, use
-`flycheck-buffer' to start a syntax check manually."
- :group 'flycheck
- :type '(set (const :tag "After the buffer was saved" save)
- (const :tag "After the buffer was changed and idle" idle-change)
- (const :tag "After a new line was inserted" new-line)
- (const :tag "After `flycheck-mode' was enabled" mode-enabled))
- :package-version '(flycheck . "0.12")
- :safe #'flycheck-symbol-list-p)
-
-(defcustom flycheck-idle-change-delay 0.5
- "How many seconds to wait before checking syntax automatically.
-
-After the buffer was changed, Flycheck will wait as many seconds
-as the value of this variable before starting a syntax check. If
-the buffer is modified during this time, Flycheck will wait
-again.
-
-This variable has no effect, if `idle-change' is not contained in
-`flycheck-check-syntax-automatically'."
- :group 'flycheck
- :type 'number
- :package-version '(flycheck . "0.13")
- :safe #'numberp)
-
-(defcustom flycheck-standard-error-navigation t
- "Whether to support error navigation with `next-error'.
-
-If non-nil, enable navigation of Flycheck errors with
-`next-error', `previous-error' and `first-error'. Otherwise,
-these functions just navigate errors from compilation modes.
-
-Flycheck error navigation with `flycheck-next-error',
-`flycheck-previous-error' and `flycheck-first-error' is always
-enabled, regardless of the value of this variable.
-
-Note that this setting only takes effect when variable
-`flycheck-mode' is non-nil. Changing it will not affect buffers
-where variable `flycheck-mode' is already non-nil."
- :group 'flycheck
- :type 'boolean
- :package-version '(flycheck . "0.15")
- :safe #'booleanp)
-
-(define-widget 'flycheck-minimum-level 'lazy
- "A radio-type choice of minimum error levels.
-
-See `flycheck-navigation-minimum-level' and
-`flycheck-error-list-minimum-level'."
- :type '(radio (const :tag "All locations" nil)
- (const :tag "Informational messages" info)
- (const :tag "Warnings" warning)
- (const :tag "Errors" error)
- (symbol :tag "Custom error level")))
-
-(defcustom flycheck-navigation-minimum-level nil
- "The minimum level of errors to navigate.
-
-If set to an error level, only navigate errors whose error level
-is at least as severe as this one. If nil, navigate all errors."
- :group 'flycheck
- :type 'flycheck-minimum-level
- :safe #'flycheck-error-level-p
- :package-version '(flycheck . "0.21"))
-
-(defcustom flycheck-error-list-minimum-level nil
- "The minimum level of errors to display in the error list.
-
-If set to an error level, only display errors whose error level
-is at least as severe as this one in the error list. If nil,
-display all errors.
-
-This is the default level, used when the error list is opened.
-You can temporarily change the level using
-\\[flycheck-error-list-set-filter], or reset it to this value
-using \\[flycheck-error-list-reset-filter]."
- :group 'flycheck
- :type 'flycheck-minimum-level
- :safe #'flycheck-error-level-p
- :package-version '(flycheck . "0.24"))
-
-(defcustom flycheck-completing-read-function #'completing-read
- "Function to read from minibuffer with completion.
-
-The function must be compatible to the built-in `completing-read'
-function."
- :group 'flycheck
- :type '(choice (const :tag "Default" completing-read)
- (const :tag "IDO" ido-completing-read)
- (function :tag "Custom function"))
- :risky t
- :package-version '(flycheck . "26"))
-
-(defcustom flycheck-temp-prefix "flycheck"
- "Prefix for temporary files created by Flycheck."
- :group 'flycheck
- :type 'string
- :package-version '(flycheck . "0.19")
- :risky t)
-
-(defcustom flycheck-mode-hook nil
- "Hooks to run after command `flycheck-mode' is toggled."
- :group 'flycheck
- :type 'hook
- :risky t)
-
-(defcustom flycheck-after-syntax-check-hook nil
- "Functions to run after each syntax check.
-
-This hook is run after a syntax check was finished.
-
-At this point, *all* chained checkers were run, and all errors
-were parsed, highlighted and reported. The variable
-`flycheck-current-errors' contains all errors from all syntax
-checkers run during the syntax check, so you can apply any error
-analysis functions.
-
-Note that this hook does *not* run after each individual syntax
-checker in the syntax checker chain, but only after the *last
-checker*.
-
-This variable is a normal hook. See Info node `(elisp)Hooks'."
- :group 'flycheck
- :type 'hook
- :risky t)
-
-(defcustom flycheck-before-syntax-check-hook nil
- "Functions to run before each syntax check.
-
-This hook is run right before a syntax check starts.
-
-Error information from the previous syntax check is *not*
-cleared before this hook runs.
-
-Note that this hook does *not* run before each individual syntax
-checker in the syntax checker chain, but only before the *first
-checker*.
-
-This variable is a normal hook. See Info node `(elisp)Hooks'."
- :group 'flycheck
- :type 'hook
- :risky t)
-
-(defcustom flycheck-syntax-check-failed-hook nil
- "Functions to run if a syntax check failed.
-
-This hook is run whenever an error occurs during Flycheck's
-internal processing. No information about the error is given to
-this hook.
-
-You should use this hook to conduct additional cleanup actions
-when Flycheck failed.
-
-This variable is a normal hook. See Info node `(elisp)Hooks'."
- :group 'flycheck
- :type 'hook
- :risky t)
-
-(defcustom flycheck-status-changed-functions nil
- "Functions to run if the Flycheck status changed.
-
-This hook is run whenever the status of Flycheck changes. Each
-hook function takes the status symbol as single argument, as
-given to `flycheck-report-status', which see.
-
-This variable is an abnormal hook. See Info
-node `(elisp)Hooks'."
- :group 'flycheck
- :type 'hook
- :risky t
- :package-version '(flycheck . "0.20"))
-
-(defcustom flycheck-error-list-after-refresh-hook nil
- "Functions to run after the error list was refreshed.
-
-This hook is run whenever the error list is refreshed.
-
-This variable is a normal hook. See Info node `(elisp)Hooks'."
- :group 'flycheck
- :type 'hook
- :risky t
- :package-version '(flycheck . "0.21"))
-
-(defface flycheck-error
- '((((supports :underline (:style wave)))
- :underline (:style wave :color "Red1"))
- (t
- :underline t :inherit error))
- "Flycheck face for errors."
- :package-version '(flycheck . "0.13")
- :group 'flycheck-faces)
-
-(defface flycheck-warning
- '((((supports :underline (:style wave)))
- :underline (:style wave :color "DarkOrange"))
- (t
- :underline t :inherit warning))
- "Flycheck face for warnings."
- :package-version '(flycheck . "0.13")
- :group 'flycheck-faces)
-
-(defface flycheck-info
- '((((supports :underline (:style wave)))
- :underline (:style wave :color "ForestGreen"))
- (t
- :underline t :inherit success))
- "Flycheck face for informational messages."
- :package-version '(flycheck . "0.15")
- :group 'flycheck-faces)
-
-(defface flycheck-fringe-error
- '((t :inherit error))
- "Flycheck face for fringe error indicators."
- :package-version '(flycheck . "0.13")
- :group 'flycheck-faces)
-
-(defface flycheck-fringe-warning
- '((t :inherit warning))
- "Flycheck face for fringe warning indicators."
- :package-version '(flycheck . "0.13")
- :group 'flycheck-faces)
-
-(defface flycheck-fringe-info
- ;; Semantically `success' is probably not the right face, but it looks nice as
- ;; a base face
- '((t :inherit success))
- "Flycheck face for fringe info indicators."
- :package-version '(flycheck . "0.15")
- :group 'flycheck-faces)
-
-(defface flycheck-error-list-error
- '((t :inherit error))
- "Flycheck face for error messages in the error list."
- :package-version '(flycheck . "0.16")
- :group 'flycheck-faces)
-
-(defface flycheck-error-list-warning
- '((t :inherit warning))
- "Flycheck face for warning messages in the error list."
- :package-version '(flycheck . "0.16")
- :group 'flycheck-faces)
-
-(defface flycheck-error-list-info
- '((t :inherit success))
- "Flycheck face for info messages in the error list."
- :package-version '(flycheck . "0.16")
- :group 'flycheck-faces)
-
-;; The base faces for the following two faces are inspired by Compilation Mode
-(defface flycheck-error-list-line-number
- '((t :inherit font-lock-constant-face))
- "Face for line numbers in the error list."
- :group 'flycheck-faces
- :package-version '(flycheck . "0.16"))
-
-(defface flycheck-error-list-column-number
- '((t :inherit font-lock-constant-face))
- "Face for line numbers in the error list."
- :group 'flycheck-faces
- :package-version '(flycheck . "0.16"))
-
-(defface flycheck-error-list-filename
- '((t :inherit font-lock-variable-name-face))
- "Face for filenames in the error list."
- :group 'flycheck-faces
- :package-version '(flycheck . "32"))
-
-(defface flycheck-error-list-id
- '((t :inherit font-lock-type-face))
- "Face for the error ID in the error list."
- :group 'flycheck-faces
- :package-version '(flycheck . "0.22"))
-
-(defface flycheck-error-list-id-with-explainer
- '((t :inherit flycheck-error-list-id
- :box (:style released-button)))
- "Face for the error ID in the error list, for errors that have an explainer."
- :group 'flycheck-faces
- :package-version '(flycheck . "30"))
-
-(defface flycheck-error-list-checker-name
- '((t :inherit font-lock-function-name-face))
- "Face for the syntax checker name in the error list."
- :group 'flycheck-faces
- :package-version '(flycheck . "0.21"))
-
-(defface flycheck-error-list-highlight
- '((t :inherit highlight))
- "Flycheck face to highlight errors in the error list."
- :package-version '(flycheck . "0.15")
- :group 'flycheck-faces)
-
-(defvar flycheck-command-map
- (let ((map (make-sparse-keymap)))
- (define-key map "c" #'flycheck-buffer)
- (define-key map "C" #'flycheck-clear)
- (define-key map (kbd "C-c") #'flycheck-compile)
- (define-key map "n" #'flycheck-next-error)
- (define-key map "p" #'flycheck-previous-error)
- (define-key map "l" #'flycheck-list-errors)
- (define-key map (kbd "C-w") #'flycheck-copy-errors-as-kill)
- (define-key map "s" #'flycheck-select-checker)
- (define-key map "?" #'flycheck-describe-checker)
- (define-key map "h" #'flycheck-display-error-at-point)
- (define-key map "e" #'flycheck-explain-error-at-point)
- (define-key map "H" #'display-local-help)
- (define-key map "i" #'flycheck-manual)
- (define-key map "V" #'flycheck-version)
- (define-key map "v" #'flycheck-verify-setup)
- (define-key map "x" #'flycheck-disable-checker)
- map)
- "Keymap of Flycheck interactive commands.")
-
-(defcustom flycheck-keymap-prefix (kbd "C-c !")
- "Prefix for key bindings of Flycheck.
-
-Changing this variable outside Customize does not have any
-effect. To change the keymap prefix from Lisp, you need to
-explicitly re-define the prefix key:
-
- (define-key flycheck-mode-map flycheck-keymap-prefix nil)
- (setq flycheck-keymap-prefix (kbd \"C-c f\"))
- (define-key flycheck-mode-map flycheck-keymap-prefix
- flycheck-command-map)
-
-Please note that Flycheck's manual documents the default
-keybindings. Changing this variable is at your own risk."
- :group 'flycheck
- :package-version '(flycheck . "0.19")
- :type 'string
- :risky t
- :set
- (lambda (variable key)
- (when (and (boundp variable) (boundp 'flycheck-mode-map))
- (define-key flycheck-mode-map (symbol-value variable) nil)
- (define-key flycheck-mode-map key flycheck-command-map))
- (set-default variable key)))
-
-(defcustom flycheck-mode-line '(:eval (flycheck-mode-line-status-text))
- "Mode line lighter for Flycheck.
-
-The value of this variable is a mode line template as in
-`mode-line-format'. See Info Node `(elisp)Mode Line Format' for
-more information. Note that it should contain a _single_ mode
-line construct only.
-
-Customize this variable to change how Flycheck reports its status
-in the mode line. You may use `flycheck-mode-line-status-text'
-to obtain a human-readable status text, including an
-error/warning count.
-
-You may also assemble your own status text. The current status
-of Flycheck is available in `flycheck-last-status-change'. The
-errors in the current buffer are stored in
-`flycheck-current-errors', and the function
-`flycheck-count-errors' may be used to obtain the number of
-errors grouped by error level.
-
-Set this variable to nil to disable the mode line completely."
- :group 'flycheck
- :type 'sexp
- :risky t
- :package-version '(flycheck . "0.20"))
-
-(defcustom flycheck-mode-line-prefix "FlyC"
- "Base mode line lighter for Flycheck.
-
-This will have an effect only with the default
-`flycheck-mode-line'.
-
-If you've customized `flycheck-mode-line' then the customized
-function must be updated to use this variable."
- :group 'flycheck
- :type 'string
- :package-version '(flycheck . "26"))
-
-(defcustom flycheck-error-list-mode-line
- `(,(propertized-buffer-identification "%12b")
- " for buffer "
- (:eval (flycheck-error-list-propertized-source-name))
- (:eval (flycheck-error-list-mode-line-filter-indicator)))
- "Mode line construct for Flycheck error list.
-
-The value of this variable is a mode line template as in
-`mode-line-format', to be used as
-`mode-line-buffer-identification' in `flycheck-error-list-mode'.
-See Info Node `(elisp)Mode Line Format' for more information.
-
-Customize this variable to change how the error list appears in
-the mode line. The default shows the name of the buffer and the
-name of the source buffer, i.e. the buffer whose errors are
-currently listed."
- :group 'flycheck
- :type 'sexp
- :risky t
- :package-version '(flycheck . "0.20"))
-
-(defcustom flycheck-global-modes t
- "Modes for which option `flycheck-mode' is turned on.
-
-If t, Flycheck Mode is turned on for all major modes. If a list,
-Flycheck Mode is turned on for all `major-mode' symbols in that
-list. If the `car' of the list is `not', Flycheck Mode is turned
-on for all `major-mode' symbols _not_ in that list. If nil,
-Flycheck Mode is never turned on by command
-`global-flycheck-mode'.
-
-Note that Flycheck is never turned on for modes whose
-`mode-class' property is `special' (see Info node `(elisp)Major
-Mode Conventions'), regardless of the value of this option.
-
-Only has effect when variable `global-flycheck-mode' is non-nil."
- :group 'flycheck
- :type '(choice (const :tag "none" nil)
- (const :tag "all" t)
- (set :menu-tag "mode specific" :tag "modes"
- :value (not)
- (const :tag "Except" not)
- (repeat :inline t (symbol :tag "mode"))))
- :risky t
- :package-version '(flycheck . "0.23"))
-
-;; Add built-in functions to our hooks, via `add-hook', to make sure that our
-;; functions are really present, even if the variable was implicitly defined by
-;; another call to `add-hook' that occurred before Flycheck was loaded. See
-;; http://lists.gnu.org/archive/html/emacs-devel/2015-02/msg01271.html for why
-;; we don't initialize the hook variables right away. We append our own
-;; functions, because a user likely expects that their functions come first,
-;; even if the added them before Flycheck was loaded.
-(dolist (hook (list #'flycheck-locate-config-file-by-path
- #'flycheck-locate-config-file-ancestor-directories
- #'flycheck-locate-config-file-home))
- (add-hook 'flycheck-locate-config-file-functions hook 'append))
-
-(add-hook 'flycheck-process-error-functions #'flycheck-add-overlay 'append)
-
-
-;;; Global Flycheck menu
-(defvar flycheck-mode-menu-map
- (easy-menu-create-menu
- "Syntax Checking"
- '(["Enable on-the-fly syntax checking" flycheck-mode
- :style toggle :selected flycheck-mode
- :enable (or flycheck-mode
- ;; Don't let users toggle the mode if there is no syntax
- ;; checker for this buffer
- (seq-find #'flycheck-checker-supports-major-mode-p
- flycheck-checkers))]
- ["Check current buffer" flycheck-buffer flycheck-mode]
- ["Clear errors in buffer" flycheck-clear t]
- "---"
- ["Go to next error" flycheck-next-error flycheck-mode]
- ["Go to previous error" flycheck-previous-error flycheck-mode]
- ["Show all errors" flycheck-list-errors flycheck-mode]
- "---"
- ["Copy messages at point" flycheck-copy-errors-as-kill
- (flycheck-overlays-at (point))]
- ["Explain error at point" flycheck-explain-error-at-point]
- "---"
- ["Select syntax checker" flycheck-select-checker flycheck-mode]
- ["Disable syntax checker" flycheck-disable-checker flycheck-mode]
- ["Set executable of syntax checker" flycheck-set-checker-executable
- flycheck-mode]
- "---"
- ["Describe syntax checker" flycheck-describe-checker t]
- ["Show Flycheck version" flycheck-version t]
- ["Read the Flycheck manual" flycheck-info t]))
- "Menu of command `flycheck-mode'.")
-
-(easy-menu-add-item nil '("Tools") flycheck-mode-menu-map "Spell Checking")
-
-
-;;; Version information, manual and loading of Flycheck
-(defun flycheck-version (&optional show-version)
- "Get the Flycheck version as string.
-
-If called interactively or if SHOW-VERSION is non-nil, show the
-version in the echo area and the messages buffer.
-
-The returned string includes both, the version from package.el
-and the library version, if both a present and different.
-
-If the version number could not be determined, signal an error,
-if called interactively, or if SHOW-VERSION is non-nil, otherwise
-just return nil."
- (interactive (list t))
- (let ((version (pkg-info-version-info 'flycheck)))
- (when show-version
- (message "Flycheck version: %s" version))
- version))
-
-(defun flycheck-unload-function ()
- "Unload function for Flycheck."
- (global-flycheck-mode -1)
- (easy-menu-remove-item nil '("Tools") (cadr flycheck-mode-menu-map))
- (remove-hook 'kill-emacs-hook #'flycheck-global-teardown)
- (setq find-function-regexp-alist
- (assq-delete-all 'flycheck-checker find-function-regexp-alist)))
-
-;;;###autoload
-(defun flycheck-manual ()
- "Open the Flycheck manual."
- (interactive)
- (browse-url "http://www.flycheck.org"))
-
-(define-obsolete-function-alias 'flycheck-info
- 'flycheck-manual "26" "Open the Flycheck manual.")
-
-
-;;; Utility functions
-(defun flycheck-sexp-to-string (sexp)
- "Convert SEXP to a string.
-
-Like `prin1-to-string' but ensure that the returned string
-is loadable."
- (let ((print-quoted t)
- (print-length nil)
- (print-level nil))
- (prin1-to-string sexp)))
-
-(defun flycheck-string-to-number-safe (string)
- "Safely convert STRING to a number.
-
-If STRING is of string type and a numeric string, convert STRING
-to a number and return it. Otherwise return nil."
- (let ((number-re (rx string-start (one-or-more (any digit)) string-end)))
- (when (and (stringp string) (string-match-p number-re string))
- (string-to-number string))))
-
-(defun flycheck-string-list-p (obj)
- "Determine if OBJ is a list of strings."
- (and (listp obj) (seq-every-p #'stringp obj)))
-
-(defun flycheck-symbol-list-p (obj)
- "Determine if OBJ is a list of symbols."
- (and (listp obj) (seq-every-p #'symbolp obj)))
-
-(defun flycheck-same-files-p (file-a file-b)
- "Determine whether FILE-A and FILE-B refer to the same file."
- (let ((file-a (expand-file-name file-a))
- (file-b (expand-file-name file-b)))
- ;; We must resolve symbolic links here, since some syntax checker always
- ;; output canonical file names with all symbolic links resolved. However,
- ;; we still do a simple path compassion first, to avoid the comparatively
- ;; expensive file system call if possible. See
- ;; https://github.com/flycheck/flycheck/issues/561
- (or (string= (directory-file-name file-a) (directory-file-name file-b))
- (string= (directory-file-name (file-truename file-a))
- (directory-file-name (file-truename file-b))))))
-
-(defvar-local flycheck-temporaries nil
- "Temporary files and directories created by Flycheck.")
-
-(defun flycheck-temp-dir-system ()
- "Create a unique temporary directory.
-
-Use `flycheck-temp-prefix' as prefix, and add the directory to
-`flycheck-temporaries'.
-
-Return the path of the directory"
- (let* ((tempdir (make-temp-file flycheck-temp-prefix 'directory)))
- (push tempdir flycheck-temporaries)
- tempdir))
-
-(defun flycheck-temp-file-system (filename)
- "Create a temporary file named after FILENAME.
-
-If FILENAME is non-nil, this function creates a temporary
-directory with `flycheck-temp-dir-system', and creates a file
-with the same name as FILENAME in this directory.
-
-Otherwise this function creates a temporary file with
-`flycheck-temp-prefix' and a random suffix. The path of the file
-is added to `flycheck-temporaries'.
-
-Return the path of the file."
- (let ((tempfile (convert-standard-filename
- (if filename
- (expand-file-name (file-name-nondirectory filename)
- (flycheck-temp-dir-system))
- (make-temp-file flycheck-temp-prefix)))))
- (push tempfile flycheck-temporaries)
- tempfile))
-
-(defun flycheck-temp-file-inplace (filename)
- "Create an in-place copy of FILENAME.
-
-Prefix the file with `flycheck-temp-prefix' and add the path of
-the file to `flycheck-temporaries'.
-
-If FILENAME is nil, fall back to `flycheck-temp-file-system'.
-
-Return the path of the file."
- (if filename
- (let* ((tempname (format "%s_%s"
- flycheck-temp-prefix
- (file-name-nondirectory filename)))
- (tempfile (convert-standard-filename
- (expand-file-name tempname
- (file-name-directory filename)))))
- (push tempfile flycheck-temporaries)
- tempfile)
- (flycheck-temp-file-system filename)))
-
-(defun flycheck-temp-directory (checker)
- "Return the directory where CHECKER writes temporary files.
-
-Return nil if the CHECKER does not write temporary files."
- (let ((args (flycheck-checker-arguments checker)))
- (cond
- ((memq 'source args) temporary-file-directory)
- ((memq 'source-inplace args)
- (if buffer-file-name (file-name-directory buffer-file-name)
- temporary-file-directory))
- (t nil))))
-
-(defun flycheck-temp-files-writable-p (checker)
- "Whether CHECKER can write temporary files.
-
-If CHECKER has `source' or `source-inplace' in its `:command',
-return whether flycheck has the permissions to create the
-respective temporary files.
-
-Return t if CHECKER does not use temporary files."
- (let ((dir (flycheck-temp-directory checker)))
- (or (not dir) (file-writable-p dir))))
-
-(defun flycheck-save-buffer-to-file (file-name)
- "Save the contents of the current buffer to FILE-NAME."
- (make-directory (file-name-directory file-name) t)
- (let ((jka-compr-inhibit t))
- (write-region nil nil file-name nil 0)))
-
-(defun flycheck-save-buffer-to-temp (temp-file-fn)
- "Save buffer to temp file returned by TEMP-FILE-FN.
-
-Return the name of the temporary file."
- (let ((filename (funcall temp-file-fn (buffer-file-name))))
- ;; Do not flush short-lived temporary files onto disk
- (let ((write-region-inhibit-fsync t))
- (flycheck-save-buffer-to-file filename))
- filename))
-
-(defun flycheck-prepend-with-option (option items &optional prepend-fn)
- "Prepend OPTION to each item in ITEMS, using PREPEND-FN.
-
-Prepend OPTION to each item in ITEMS.
-
-ITEMS is a list of strings to pass to the syntax checker. OPTION
-is the option, as string. PREPEND-FN is a function called to
-prepend OPTION to each item in ITEMS. It receives the option and
-a single item from ITEMS as argument, and must return a string or
-a list of strings with OPTION prepended to the item. If
-PREPEND-FN is nil or omitted, use `list'.
-
-Return a list of strings where OPTION is prepended to each item
-in ITEMS using PREPEND-FN. If PREPEND-FN returns a list, it is
-spliced into the resulting list."
- (unless (stringp option)
- (error "Option %S is not a string" option))
- (unless prepend-fn
- (setq prepend-fn #'list))
- (let ((prepend
- (lambda (item)
- (let ((result (funcall prepend-fn option item)))
- (cond
- ((and (listp result) (seq-every-p #'stringp result)) result)
- ((stringp result) (list result))
- (t (error "Invalid result type for option: %S" result)))))))
- (apply #'append (seq-map prepend items))))
-
-(defun flycheck-find-in-buffer (pattern)
- "Find PATTERN in the current buffer.
-
-Return the result of the first matching group of PATTERN, or nil,
-if PATTERN did not match."
- (save-restriction
- (widen)
- (save-excursion
- (goto-char (point-min))
- (when (re-search-forward pattern nil 'no-error)
- (match-string-no-properties 1)))))
-
-(defun flycheck-buffer-empty-p (&optional buffer)
- "Whether a BUFFER is empty.
-
-If buffer is nil or omitted check the current buffer.
-
-Return non-nil if so, or nil if the buffer has content."
- (<= (buffer-size buffer) 0))
-
-(defun flycheck-ephemeral-buffer-p ()
- "Determine whether the current buffer is an ephemeral buffer.
-
-See Info node `(elisp)Buffer Names' for information about
-ephemeral buffers."
- (string-prefix-p " " (buffer-name)))
-
-(defun flycheck-encrypted-buffer-p ()
- "Determine whether the current buffer is an encrypted file.
-
-See Info node `(epa)Top' for Emacs' interface to encrypted
-files."
- ;; The EPA file handler sets this variable locally to remember the recipients
- ;; of the encrypted file for re-encryption. Hence, a local binding of this
- ;; variable is a good indication that the buffer is encrypted. I haven't
- ;; found any better indicator anyway.
- (local-variable-p 'epa-file-encrypt-to))
-
-(defun flycheck-autoloads-file-p ()
- "Determine whether the current buffer is an autoloads file.
-
-Autoloads are generated by package.el during installation."
- (string-suffix-p "-autoloads.el" (buffer-name)))
-
-(defun flycheck-in-user-emacs-directory-p (filename)
- "Whether FILENAME is in `user-emacs-directory'."
- (string-prefix-p (file-name-as-directory (file-truename user-emacs-directory))
- (file-truename filename)))
-
-(defun flycheck-safe-delete (file-or-dir)
- "Safely delete FILE-OR-DIR."
- (ignore-errors
- (if (file-directory-p file-or-dir)
- (delete-directory file-or-dir 'recursive)
- (delete-file file-or-dir))))
-
-(defun flycheck-safe-delete-temporaries ()
- "Safely delete all temp files and directories of Flycheck.
-
-Safely delete all files and directories listed in
-`flycheck-temporaries' and set the variable's value to nil."
- (seq-do #'flycheck-safe-delete flycheck-temporaries)
- (setq flycheck-temporaries nil))
-
-(defun flycheck-rx-file-name (form)
- "Translate the `(file-name)' FORM into a regular expression."
- (let ((body (or (cdr form) '((minimal-match
- (one-or-more not-newline))))))
- (rx-submatch-n `(group-n 1 ,@body))))
-
-(defun flycheck-rx-message (form)
- "Translate the `(message)' FORM into a regular expression."
- (let ((body (or (cdr form) '((one-or-more not-newline)))))
- (rx-submatch-n `(group-n 4 ,@body))))
-
-(defun flycheck-rx-id (form)
- "Translate the `(id)' FORM into a regular expression."
- (rx-submatch-n `(group-n 5 ,@(cdr form))))
-
-(defun flycheck-rx-to-string (form &optional no-group)
- "Like `rx-to-string' for FORM, but with special keywords:
-
-`line'
- matches the line number.
-
-`column'
- matches the column number.
-
-`(file-name SEXP ...)'
- matches the file name. SEXP describes the file name. If no
- SEXP is given, use a default body of `(minimal-match
- (one-or-more not-newline))'.
-
-`(message SEXP ...)'
- matches the message. SEXP constitutes the body of the
- message. If no SEXP is given, use a default body
- of `(one-or-more not-newline)'.
-
-`(id SEXP ...)'
- matches an error ID. SEXP describes the ID.
-
-NO-GROUP is passed to `rx-to-string'.
-
-See `rx' for a complete list of all built-in `rx' forms."
- (let ((rx-constituents
- (append
- `((line . ,(rx (group-n 2 (one-or-more digit))))
- (column . ,(rx (group-n 3 (one-or-more digit))))
- (file-name flycheck-rx-file-name 0 nil)
- (message flycheck-rx-message 0 nil)
- (id flycheck-rx-id 0 nil))
- rx-constituents nil)))
- (rx-to-string form no-group)))
-
-(defun flycheck-current-load-file ()
- "Get the source file currently being loaded.
-
-Always return the name of the corresponding source file, never
-any byte-compiled file.
-
-Return nil, if the currently loaded file cannot be determined."
- (-when-let* ((this-file (cond
- (load-in-progress load-file-name)
- ((bound-and-true-p byte-compile-current-file))
- (t (buffer-file-name))))
- ;; A best guess for the source file of a compiled library. Works
- ;; well in most cases, and especially for ELPA packages
- (source-file (concat (file-name-sans-extension this-file)
- ".el")))
- (when (file-exists-p source-file)
- source-file)))
-
-(defun flycheck-module-root-directory (module &optional file-name)
- "Get the root directory for a MODULE in FILE-NAME.
-
-MODULE is a qualified module name, either a string with
-components separated by a dot, or as list of components.
-FILE-NAME is the name of the file or directory containing the
-module as string. When nil or omitted, defaults to the return
-value of function `buffer-file-name'.
-
-Return the root directory of the module, that is, the directory,
-from which FILE-NAME can be reached by descending directories
-along each part of MODULE.
-
-If the MODULE name does not match the directory hierarchy upwards
-from FILE-NAME, return the directory containing FILE-NAME. When
-FILE-NAME is nil, return `default-directory'."
- (let ((file-name (or file-name (buffer-file-name)))
- (module-components (if (stringp module)
- (split-string module (rx "."))
- (copy-sequence module))))
- (if (and module-components file-name)
- (let ((parts (nreverse module-components))
- (base-directory (directory-file-name
- (file-name-sans-extension file-name))))
- (while (and parts
- (string= (file-name-nondirectory base-directory)
- (car parts)))
- (pop parts)
- (setq base-directory (directory-file-name
- (file-name-directory base-directory))))
- (file-name-as-directory base-directory))
- (if file-name
- (file-name-directory file-name)
- (expand-file-name default-directory)))))
-
-
-;;; Minibuffer tools
-(defvar read-flycheck-checker-history nil
- "`completing-read' history of `read-flycheck-checker'.")
-
-(defun flycheck-completing-read (prompt candidates default &optional history)
- "Read a value from the minibuffer.
-
-Use `flycheck-completing-read-function' to read input from the
-minibuffer with completion.
-
-Show PROMPT and read one of CANDIDATES, defaulting to DEFAULT.
-HISTORY is passed to `flycheck-completing-read-function'."
- (funcall flycheck-completing-read-function
- prompt candidates nil 'require-match nil history default))
-
-(defun read-flycheck-checker (prompt &optional default property candidates)
- "Read a flycheck checker from minibuffer with PROMPT and DEFAULT.
-
-PROMPT is a string to show in the minibuffer as prompt. It
-should end with a single space. DEFAULT is a symbol denoting the
-default checker to use, if the user did not select any checker.
-PROPERTY is a symbol denoting a syntax checker property. If
-non-nil, only complete syntax checkers which have a non-nil value
-for PROPERTY. CANDIDATES is an optional list of all syntax
-checkers available for completion, defaulting to all defined
-checkers. If given, PROPERTY is ignored.
-
-Return the checker as symbol, or DEFAULT if no checker was
-chosen. If DEFAULT is nil and no checker was chosen, signal a
-`user-error' if the underlying completion system does not provide
-a default on its own."
- (when (and default (not (flycheck-valid-checker-p default)))
- (error "%S is no valid Flycheck checker" default))
- (let* ((candidates (seq-map #'symbol-name
- (or candidates
- (flycheck-defined-checkers property))))
- (default (and default (symbol-name default)))
- (input (flycheck-completing-read
- prompt candidates default
- 'read-flycheck-checker-history)))
- (when (string-empty-p input)
- (unless default
- (user-error "No syntax checker selected"))
- (setq input default))
- (let ((checker (intern input)))
- (unless (flycheck-valid-checker-p checker)
- (error "%S is not a valid Flycheck syntax checker" checker))
- checker)))
-
-(defun read-flycheck-error-level (prompt)
- "Read an error level from the user with PROMPT.
-
-Only offers level for which errors currently exist, in addition
-to the default levels."
- (let* ((levels (seq-map #'flycheck-error-level
- (flycheck-error-list-current-errors)))
- (levels-with-defaults (append '(info warning error) levels))
- (uniq-levels (seq-uniq levels-with-defaults))
- (level (flycheck-completing-read prompt uniq-levels nil)))
- (and (stringp level) (intern level))))
-
-
-;;; Checker API
-(defun flycheck-defined-checkers (&optional property)
- "Find all defined syntax checkers, optionally with PROPERTY.
-
-PROPERTY is a symbol. If given, only return syntax checkers with
-a non-nil value for PROPERTY.
-
-The returned list is sorted alphapetically by the symbol name of
-the syntax checkers."
- (let (defined-checkers)
- (mapatoms (lambda (symbol)
- (when (and (flycheck-valid-checker-p symbol)
- (or (null property)
- (flycheck-checker-get symbol property)))
- (push symbol defined-checkers))))
- (sort defined-checkers #'string<)))
-
-(defun flycheck-registered-checker-p (checker)
- "Determine whether CHECKER is registered.
-
-A checker is registered if it is contained in
-`flycheck-checkers'."
- (and (flycheck-valid-checker-p checker)
- (memq checker flycheck-checkers)))
-
-(defun flycheck-disabled-checker-p (checker)
- "Determine whether CHECKER is disabled.
-
-A checker is disabled if it is contained in
-`flycheck-disabled-checkers'."
- (memq checker flycheck-disabled-checkers))
-
-
-;;; Generic syntax checkers
-(defconst flycheck-generic-checker-version 2
- "The internal version of generic syntax checker declarations.
-
-Flycheck will not use syntax checkers whose generic version is
-less than this constant.")
-
-(defsubst flycheck--checker-property-name (property)
- "Return the SYMBOL property for checker PROPERTY."
- (intern (concat "flycheck-" (symbol-name property))))
-
-(defun flycheck-checker-get (checker property)
- "Get the value of CHECKER's PROPERTY."
- (get checker (flycheck--checker-property-name property)))
-
-(gv-define-setter flycheck-checker-get (value checker property)
- `(setf (get ,checker (flycheck--checker-property-name ,property)) ,value))
-
-(defun flycheck-validate-next-checker (next &optional strict)
- "Validate NEXT checker.
-
-With STRICT non-nil, also check whether the syntax checker and
-the error level in NEXT are valid. Otherwise just check whether
-these are symbols.
-
-Signal an error if NEXT is not a valid entry for
-`:next-checkers'."
- (when (symbolp next)
- (setq next (cons t next)))
- (pcase next
- (`(,level . ,checker)
- (if strict
- (progn
- (unless (or (eq level t) (flycheck-error-level-p level))
- (error "%S is not a valid Flycheck error level" level))
- (unless (flycheck-valid-checker-p checker)
- (error "%s is not a valid Flycheck syntax checker" checker)))
- (unless (symbolp level)
- (error "Error level %S must be a symbol" level))
- (unless (symbolp checker)
- (error "Checker %S must be a symbol" checker))))
- (_ (error "%S must be a symbol or cons cell" next)))
- t)
-
-(defun flycheck-define-generic-checker (symbol docstring &rest properties)
- "Define SYMBOL as generic syntax checker.
-
-Any syntax checker defined with this macro is eligible for manual
-syntax checker selection with `flycheck-select-checker'. To make
-the new syntax checker available for automatic selection, it must
-be registered in `flycheck-checkers'.
-
-DOCSTRING is the documentation of the syntax checker, for
-`flycheck-describe-checker'. The following PROPERTIES constitute
-a generic syntax checker. Unless otherwise noted, all properties
-are mandatory.
-
-`:start FUNCTION'
- A function to start the syntax checker.
-
- FUNCTION shall take two arguments and return a context
- object if the checker is started successfully. Otherwise it
- shall signal an error.
-
- The first argument is the syntax checker being started. The
- second is a callback function to report state changes to
- Flycheck. The callback takes two arguments STATUS DATA,
- where STATUS is a symbol denoting the syntax checker status
- and DATA an optional argument with additional data for the
- status report. See `flycheck-report-buffer-checker-status'
- for more information about STATUS and DATA.
-
- FUNCTION may be synchronous or asynchronous, i.e. it may
- call the given callback either immediately, or at some later
- point (e.g. from a process sentinel).
-
- A syntax checker _must_ call CALLBACK at least once with a
- STATUS that finishes the current syntax checker. Otherwise
- Flycheck gets stuck at the current syntax check with this
- syntax checker.
-
- The context object returned by FUNCTION is passed to
- `:interrupt'.
-
-`:interrupt FUNCTION'
- A function to interrupt the syntax check.
-
- FUNCTION is called with the syntax checker and the context
- object returned by the `:start' function and shall try to
- interrupt the syntax check. The context may be nil, if the
- syntax check is interrupted before actually started.
- FUNCTION should handle this situation.
-
- If it cannot interrupt the syntax check, it may either
- signal an error or silently ignore the attempt to interrupt
- the syntax checker, depending on the severity of the
- situation.
-
- If interrupting the syntax check failed, Flycheck will let
- the syntax check continue, but ignore any status reports.
- Notably, it won't highlight any errors reported by the
- syntax check in the buffer.
-
- This property is optional. If omitted, Flycheck won't
- attempt to interrupt syntax checks wit this syntax checker,
- and simply ignore their results.
-
-`:print-doc FUNCTION'
- A function to print additional documentation into the Help
- buffer of this checker.
-
- FUNCTION is called when creating the Help buffer for the
- syntax checker, with the syntax checker as single argument,
- after printing the name of the syntax checker and its modes
- and predicate, but before printing DOCSTRING. It may insert
- additional documentation into the current buffer.
-
- The call occurs within `with-help-window'. Hence
- `standard-output' points to the current buffer, so you may
- use `princ' and friends to add content. Also, the current
- buffer is put into Help mode afterwards, which automatically
- turns symbols into references, if possible.
-
- This property is optional. If omitted, no additional
- documentation is printed for this syntax checker.
-
-:verify FUNCTION
- A function to verify the checker for the current buffer.
-
- FUNCTION is called with the syntax checker as single
- argument, and shall return a list of
- `flycheck-verification-result' objects indicating whether
- the syntax checker could be used in the current buffer, and
- highlighting potential setup problems.
-
- This property is optional. If omitted, no additional
- verification occurs for this syntax checker. It is however
- absolutely recommended that you add a `:verify' function to
- your syntax checker, because it will help users to spot
- potential setup problems.
-
-`:modes MODES'
- A major mode symbol or a list thereof, denoting major modes
- to use this syntax checker in.
-
- This syntax checker will only be used in buffers whose
- `major-mode' is contained in MODES.
-
- If `:predicate' is also given the syntax checker will only
- be used in buffers for which the `:predicate' returns
- non-nil.
-
-`:predicate FUNCTION'
- A function to determine whether to use the syntax checker in
- the current buffer.
-
- FUNCTION is called without arguments and shall return
- non-nil if this syntax checker shall be used to check the
- current buffer. Otherwise it shall return nil.
-
- If this checker has a `:working-directory' FUNCTION is
- called with `default-directory' bound to the checker's
- working directory.
-
- FUNCTION is only called in matching major modes.
-
- This property is optional.
-
-`:enabled FUNCTION'
- A function to determine whether to use the syntax checker in
- the current buffer.
-
- This property behaves as `:predicate', except that it's only
- called the first time a syntax checker is to be used in a buffer.
-
- FUNCTION is called without arguments and shall return
- non-nil if this syntax checker shall be used to check the
- current buffer. Otherwise it shall return nil.
-
- If FUNCTION returns a non-nil value the checker is put in a
- whitelist in `flycheck-enabled-checkers' to prevent further
- invocations of `:enabled'. Otherwise it is disabled via
- `flycheck-disabled-checkers' to prevent any further use of
- it.
-
- If this checker has a `:working-directory' FUNCTION is
- called with `default-directory' bound to the checker's
- working directory.
-
- FUNCTION is only called in matching major modes.
-
- This property is optional.
-
-`:error-filter FUNCTION'
- A function to filter the errors returned by this checker.
-
- FUNCTION is called with the list of `flycheck-error' objects
- returned by the syntax checker and shall return another list
- of `flycheck-error' objects, which is considered the final
- result of this syntax checker.
-
- FUNCTION is free to add, remove or modify errors, whether in
- place or by copying.
-
- This property is optional. The default filter is
- `identity'.
-
-`:error-explainer FUNCTION'
- A function to return an explanation text for errors
- generated by this checker.
-
- FUNCTION is called with a `flycheck-error' object and shall
- return an explanation message for this error as a string, or
- nil if there is no explanation for this error.
-
- This property is optional.
-
-`:next-checkers NEXT-CHECKERS'
- A list denoting syntax checkers to apply after this syntax
- checker, in what we call \"chaining\" of syntax checkers.
-
- Each ITEM is a cons cell `(LEVEL . CHECKER)'. CHECKER is a
- syntax checker to run after this syntax checker. LEVEL is
- an error level. CHECKER will only be used if there are no
- current errors of at least LEVEL. LEVEL may also be t, in
- which case CHECKER is used regardless of the current errors.
-
- ITEM may also be a syntax checker symbol, which is
- equivalent to `(t . ITEM)'.
-
- Flycheck tries all items in order of declaration, and uses
- the first whose LEVEL matches and whose CHECKER is
- registered and can be used for the current buffer.
-
- This feature is typically used to apply more than one syntax
- checker to a buffer. For instance, you might first use a
- compiler to check a buffer for syntax and type errors, and
- then run a linting tool that checks for insecure code, or
- questionable style.
-
- This property is optional. If omitted, it defaults to the
- nil, i.e. no other syntax checkers are applied after this
- syntax checker.
-
-`:working-directory FUNCTION'
- The value of `default-directory' when invoking `:start'.
-
- FUNCTION is a function taking the syntax checker as sole
- argument. It shall return the absolute path to an existing
- directory to use as `default-directory' for `:start' or
- nil to fall back to the `default-directory' of the current
- buffer.
-
- This property is optional. If omitted, invoke `:start'
- from the `default-directory' of the buffer being checked.
-
-Signal an error, if any property has an invalid value."
- (declare (indent 1)
- (doc-string 2))
- (let ((start (plist-get properties :start))
- (interrupt (plist-get properties :interrupt))
- (print-doc (plist-get properties :print-doc))
- (modes (plist-get properties :modes))
- (predicate (plist-get properties :predicate))
- (verify (plist-get properties :verify))
- (enabled (plist-get properties :enabled))
- (filter (or (plist-get properties :error-filter) #'identity))
- (explainer (plist-get properties :error-explainer))
- (next-checkers (plist-get properties :next-checkers))
- (file (flycheck-current-load-file))
- (working-directory (plist-get properties :working-directory)))
-
- (unless (listp modes)
- (setq modes (list modes)))
-
- (unless (functionp start)
- (error ":start %S of syntax checker %s is not a function" start symbol))
- (unless (or (null interrupt) (functionp interrupt))
- (error ":interrupt %S of syntax checker %s is not a function"
- interrupt symbol))
- (unless (or (null print-doc) (functionp print-doc))
- (error ":print-doc %S of syntax checker %s is not a function"
- print-doc symbol))
- (unless (or (null verify) (functionp verify))
- (error ":verify %S of syntax checker %S is not a function"
- verify symbol))
- (unless (or (null enabled) (functionp enabled))
- (error ":enabled %S of syntax checker %S is not a function"
- enabled symbol))
- (unless modes
- (error "Missing :modes in syntax checker %s" symbol))
- (dolist (mode modes)
- (unless (symbolp mode)
- (error "Invalid :modes %s in syntax checker %s, %s must be a symbol"
- modes symbol mode)))
- (unless (or (null predicate) (functionp predicate))
- (error ":predicate %S of syntax checker %s is not a function"
- predicate symbol))
- (unless (functionp filter)
- (error ":error-filter %S of syntax checker %s is not a function"
- filter symbol))
- (unless (or (null explainer) (functionp explainer))
- (error ":error-explainer %S of syntax checker %S is not a function"
- explainer symbol))
- (dolist (checker next-checkers)
- (flycheck-validate-next-checker checker))
-
- (let ((real-predicate
- (and predicate
- (lambda ()
- ;; Run predicate in the checker's default directory
- (let ((default-directory
- (flycheck-compute-working-directory symbol)))
- (funcall predicate)))))
- (real-enabled
- (lambda ()
- (if (flycheck-valid-checker-p symbol)
- (or (null enabled)
- ;; Run enabled in the checker's default directory
- (let ((default-directory
- (flycheck-compute-working-directory symbol)))
- (funcall enabled)))
- (lwarn 'flycheck
- :warning "%S is no valid Flycheck syntax checker.
-Try to reinstall the package defining this syntax checker." symbol)
- nil))))
- (pcase-dolist (`(,prop . ,value)
- `((start . ,start)
- (interrupt . ,interrupt)
- (print-doc . ,print-doc)
- (modes . ,modes)
- (predicate . ,real-predicate)
- (verify . ,verify)
- (enabled . ,real-enabled)
- (error-filter . ,filter)
- (error-explainer . ,explainer)
- (next-checkers . ,next-checkers)
- (documentation . ,docstring)
- (file . ,file)
- (working-directory . ,working-directory)))
- (setf (flycheck-checker-get symbol prop) value)))
-
- ;; Track the version, to avoid breakage if the internal format changes
- (setf (flycheck-checker-get symbol 'generic-checker-version)
- flycheck-generic-checker-version)))
-
-(defun flycheck-valid-checker-p (checker)
- "Check whether a CHECKER is valid.
-
-A valid checker is a symbol defined as syntax checker with
-`flycheck-define-checker'."
- (and (symbolp checker)
- (= (or (get checker 'flycheck-generic-checker-version) 0)
- flycheck-generic-checker-version)))
-
-(defun flycheck-checker-supports-major-mode-p (checker &optional mode)
- "Whether CHECKER supports the given major MODE.
-
-CHECKER is a syntax checker symbol and MODE a major mode symbol.
-Look at the `modes' property of CHECKER to determine whether
-CHECKER supports buffers in the given major MODE.
-
-MODE defaults to the value of `major-mode' if omitted or nil.
-
-Return non-nil if CHECKER supports MODE and nil otherwise."
- (let ((mode (or mode major-mode)))
- (memq mode (flycheck-checker-get checker 'modes))))
-
-(defvar-local flycheck-enabled-checkers nil
- "Syntax checkers included in automatic selection.
-
-A list of Flycheck syntax checkers included in automatic
-selection for current buffer.")
-
-(defun flycheck-may-enable-checker (checker)
- "Whether a generic CHECKER may be enabled for current buffer.
-
-Return non-nil if CHECKER may be used for the current buffer, and
-nil otherwise."
- (let* ((enabled (flycheck-checker-get checker 'enabled))
- (shall-enable (and (not (flycheck-disabled-checker-p checker))
- (or (memq checker flycheck-enabled-checkers)
- (null enabled)
- (funcall enabled)))))
- (if shall-enable
- (cl-pushnew checker flycheck-enabled-checkers)
- (cl-pushnew checker flycheck-disabled-checkers))
- shall-enable))
-
-(defun flycheck-may-use-checker (checker)
- "Whether a generic CHECKER may be used.
-
-Return non-nil if CHECKER may be used for the current buffer, and
-nil otherwise."
- (let ((predicate (flycheck-checker-get checker 'predicate)))
- (and (flycheck-valid-checker-p checker)
- (flycheck-checker-supports-major-mode-p checker)
- (flycheck-may-enable-checker checker)
- (or (null predicate) (funcall predicate)))))
-
-(defun flycheck-may-use-next-checker (next-checker)
- "Determine whether NEXT-CHECKER may be used."
- (when (symbolp next-checker)
- (push t next-checker))
- (let ((level (car next-checker))
- (next-checker (cdr next-checker)))
- (and (or (eq level t)
- (flycheck-has-max-current-errors-p level))
- (flycheck-registered-checker-p next-checker)
- (flycheck-may-use-checker next-checker))))
-
-
-;;; Help for generic syntax checkers
-(define-button-type 'help-flycheck-checker-def
- :supertype 'help-xref
- 'help-function #'flycheck-goto-checker-definition
- 'help-echo "mouse-2, RET: find Flycheck checker definition")
-
-(defconst flycheck-find-checker-regexp
- (rx line-start (zero-or-more (syntax whitespace))
- "(" symbol-start "flycheck-define-checker" symbol-end
- (eval (list 'regexp find-function-space-re))
- symbol-start
- "%s"
- symbol-end
- (or (syntax whitespace) line-end))
- "Regular expression to find a checker definition.")
-
-(add-to-list 'find-function-regexp-alist
- '(flycheck-checker . flycheck-find-checker-regexp))
-
-(defun flycheck-goto-checker-definition (checker file)
- "Go to to the definition of CHECKER in FILE."
- (let ((location (find-function-search-for-symbol
- checker 'flycheck-checker file)))
- (pop-to-buffer (car location))
- (if (cdr location)
- (goto-char (cdr location))
- (message "Unable to find checker location in file"))))
-
-(defun flycheck-checker-at-point ()
- "Return the Flycheck checker found at or before point.
-
-Return nil if there is no checker."
- (let ((symbol (variable-at-point 'any-symbol)))
- (when (flycheck-valid-checker-p symbol)
- symbol)))
-
-(defun flycheck-describe-checker (checker)
- "Display the documentation of CHECKER.
-
-CHECKER is a checker symbol.
-
-Pop up a help buffer with the documentation of CHECKER."
- (interactive
- (let* ((enable-recursive-minibuffers t)
- (default (or (flycheck-checker-at-point)
- (ignore-errors (flycheck-get-checker-for-buffer))))
- (prompt (if default
- (format "Describe syntax checker (default %s): " default)
- "Describe syntax checker: ")))
- (list (read-flycheck-checker prompt default))))
- (unless (flycheck-valid-checker-p checker)
- (user-error "You didn't specify a Flycheck syntax checker"))
- (help-setup-xref (list #'flycheck-describe-checker checker)
- (called-interactively-p 'interactive))
- (save-excursion
- (with-help-window (help-buffer)
- (let ((filename (flycheck-checker-get checker 'file))
- (modes (flycheck-checker-get checker 'modes))
- (predicate (flycheck-checker-get checker 'predicate))
- (print-doc (flycheck-checker-get checker 'print-doc))
- (next-checkers (flycheck-checker-get checker 'next-checkers)))
- (princ (format "%s is a Flycheck syntax checker" checker))
- (when filename
- (princ (format " in `%s'" (file-name-nondirectory filename)))
- (with-current-buffer standard-output
- (save-excursion
- (re-search-backward "`\\([^`']+\\)'" nil t)
- (help-xref-button 1 'help-flycheck-checker-def
- checker filename))))
- (princ ".\n\n")
-
- (let ((modes-start (with-current-buffer standard-output (point-max))))
- ;; Track the start of the modes documentation, to properly re-fill
- ;; it later
- (princ " This syntax checker checks syntax in the major mode(s) ")
- (princ (string-join
- (seq-map (apply-partially #'format "`%s'") modes)
- ", "))
- (when predicate
- (princ ", and uses a custom predicate"))
- (princ ".")
- (when next-checkers
- (princ " It runs the following checkers afterwards:"))
- (with-current-buffer standard-output
- (save-excursion
- (fill-region-as-paragraph modes-start (point-max))))
- (princ "\n")
-
- ;; Print the list of next checkers
- (when next-checkers
- (princ "\n")
- (let ((beg-checker-list (with-current-buffer standard-output
- (point))))
- (dolist (next-checker next-checkers)
- (if (symbolp next-checker)
- (princ (format " * `%s'\n" next-checker))
- (princ (format " * `%s' (maximum level `%s')\n"
- (cdr next-checker) (car next-checker)))))
- ;;
- (with-current-buffer standard-output
- (save-excursion
- (while (re-search-backward "`\\([^`']+\\)'"
- beg-checker-list t)
- (when (flycheck-valid-checker-p
- (intern-soft (match-string 1)))
- (help-xref-button 1 'help-flycheck-checker-def checker
- filename))))))))
- ;; Call the custom print-doc function of the checker, if present
- (when print-doc
- (funcall print-doc checker))
- ;; Ultimately, print the docstring
- (princ "\nDocumentation:\n")
- (princ (flycheck-checker-get checker 'documentation))))))
-
-
-;;; Syntax checker verification
-(cl-defstruct (flycheck-verification-result
- (:constructor flycheck-verification-result-new))
- "Structure for storing a single verification result.
-
-Slots:
-
-`label'
- A label for this result, as string
-
-`message'
- A message for this result, as string
-
-`face'
- The face to use for the `message'.
-
- You can either use a face symbol, or a list of face symbols."
- label message face)
-
-(defun flycheck-verify-generic-checker (checker)
- "Verify a generic CHECKER in the current buffer.
-
-Return a list of `flycheck-verification-result' objects."
- (let (results
- (predicate (flycheck-checker-get checker 'predicate))
- (enabled (flycheck-checker-get checker 'enabled))
- (verify (flycheck-checker-get checker 'verify)))
- (when enabled
- (let ((result (funcall enabled)))
- (push (flycheck-verification-result-new
- :label "may enable"
- :message (if result "yes" "Automatically disabled!")
- :face (if result 'success '(bold warning)))
- results)))
- (when predicate
- (let ((result (funcall predicate)))
- (push (flycheck-verification-result-new
- :label "predicate"
- :message (prin1-to-string (not (null result)))
- :face (if result 'success '(bold warning)))
- results)))
- (append (nreverse results)
- (and verify (funcall verify checker)))))
-
-(define-button-type 'help-flycheck-checker-doc
- :supertype 'help-xref
- 'help-function #'flycheck-describe-checker
- 'help-echo "mouse-2, RET: describe Flycheck checker")
-
-(defun flycheck--verify-princ-checker (checker buffer &optional with-mm)
- "Print verification result of CHECKER for BUFFER.
-
-When WITH-MM is given and non-nil, also include the major mode
-into the verification results."
- (princ " ")
- (insert-button (symbol-name checker)
- 'type 'help-flycheck-checker-doc
- 'help-args (list checker))
- (when (with-current-buffer buffer (flycheck-disabled-checker-p checker))
- (insert (propertize " (disabled)" 'face '(bold error))))
- (princ "\n")
- (let ((results (with-current-buffer buffer
- (flycheck-verify-generic-checker checker))))
- (when with-mm
- (with-current-buffer buffer
- (let ((message-and-face
- (if (flycheck-checker-supports-major-mode-p checker)
- (cons (format "`%s' supported" major-mode) 'success)
- (cons (format "`%s' not supported" major-mode) 'error))))
- (push (flycheck-verification-result-new
- :label "major mode"
- :message (car message-and-face)
- :face (cdr message-and-face))
- results))))
- (let* ((label-length
- (seq-max (mapcar
- (lambda (res)
- (length (flycheck-verification-result-label res)))
- results)))
- (message-column (+ 8 label-length)))
- (dolist (result results)
- (princ " - ")
- (princ (flycheck-verification-result-label result))
- (princ ": ")
- (princ (make-string (- message-column (current-column)) ?\ ))
- (let ((message (flycheck-verification-result-message result))
- (face (flycheck-verification-result-face result)))
- (insert (propertize message 'face face)))
- (princ "\n"))))
- (princ "\n"))
-
-(defun flycheck--verify-print-header (desc buffer)
- "Print a title with DESC for BUFFER in the current buffer.
-
-DESC is an arbitrary string containing a description, and BUFFER
-is the buffer being verified. The name and the major mode mode
-of BUFFER are printed.
-
-DESC and information about BUFFER are printed in the current
-buffer."
- (princ desc)
- (insert (propertize (buffer-name buffer) 'face 'bold))
- (princ " in ")
- (let ((mode (buffer-local-value 'major-mode buffer)))
- (insert-button (symbol-name mode)
- 'type 'help-function
- 'help-args (list mode)))
- (princ ":\n\n"))
-
-(defun flycheck--verify-print-footer (buffer)
- "Print a footer for BUFFER in the current buffer.
-
-BUFFER is the buffer being verified."
- (princ "Flycheck Mode is ")
- (let ((enabled (buffer-local-value 'flycheck-mode buffer)))
- (insert (propertize (if enabled "enabled" "disabled")
- 'face (if enabled 'success '(warning bold)))))
- (princ
- (with-current-buffer buffer
- ;; Use key binding state in the verified buffer to print the help.
- (substitute-command-keys
- ". Use \\[universal-argument] \\[flycheck-disable-checker] \
-to enable disabled checkers.")))
- (save-excursion
- (let ((end (point)))
- (backward-paragraph)
- (fill-region-as-paragraph (point) end)))
-
- (princ "\n\n--------------------\n\n")
- (princ (format "Flycheck version: %s\n" (flycheck-version)))
- (princ (format "Emacs version: %s\n" emacs-version))
- (princ (format "System: %s\n" system-configuration))
- (princ (format "Window system: %S\n" window-system)))
-
-(defun flycheck-verify-checker (checker)
- "Check whether a CHECKER can be used in this buffer.
-
-Show a buffer listing possible problems that prevent CHECKER from
-being used for the current buffer.
-
-Note: Do not use this function to check whether a syntax checker
-is applicable from Emacs Lisp code. Use
-`flycheck-may-use-checker' instead."
- (interactive (list (read-flycheck-checker "Checker to verify: ")))
- (unless (flycheck-valid-checker-p checker)
- (user-error "%s is not a syntax checker" checker))
-
- ;; Save the buffer to make sure that all predicates are good
- (when (and (buffer-file-name) (buffer-modified-p))
- (save-buffer))
-
- (let ((buffer (current-buffer)))
- (with-help-window (get-buffer-create " *Flycheck checker*")
- (with-current-buffer standard-output
- (flycheck--verify-print-header "Syntax checker in buffer " buffer)
- (flycheck--verify-princ-checker checker buffer 'with-mm)
- (if (with-current-buffer buffer (flycheck-may-use-checker checker))
- (insert (propertize
- "Flycheck can use this syntax checker for this buffer.\n"
- 'face 'success))
- (insert (propertize
- "Flycheck cannot use this syntax checker for this buffer.\n"
- 'face 'error)))
- (insert "\n")
- (flycheck--verify-print-footer buffer)))))
-
-(defun flycheck-verify-setup ()
- "Check whether Flycheck can be used in this buffer.
-
-Display a new buffer listing all syntax checkers that could be
-applicable in the current buffer. For each syntax checkers,
-possible problems are shown."
- (interactive)
- (when (and (buffer-file-name) (buffer-modified-p))
- ;; Save the buffer
- (save-buffer))
-
- (let ((buffer (current-buffer))
- ;; Get all checkers that support the current major mode
- (checkers (seq-filter #'flycheck-checker-supports-major-mode-p
- flycheck-checkers))
- (help-buffer (get-buffer-create " *Flycheck checkers*")))
-
- ;; Now print all applicable checkers
- (with-help-window help-buffer
- (with-current-buffer standard-output
- (flycheck--verify-print-header "Syntax checkers for buffer " buffer)
- (unless checkers
- (insert (propertize
- "There are no syntax checkers for this buffer!\n\n"
- 'face '(bold error))))
- (dolist (checker checkers)
- (flycheck--verify-princ-checker checker buffer))
-
- (-when-let (selected-checker
- (buffer-local-value 'flycheck-checker buffer))
- (insert
- (propertize
- "The following checker is explicitly selected for this buffer:\n\n"
- 'face 'bold))
- (flycheck--verify-princ-checker selected-checker buffer 'with-mm))
-
- (let ((unregistered-checkers
- (seq-difference (flycheck-defined-checkers) flycheck-checkers)))
- (when unregistered-checkers
- (insert (propertize
- "\nThe following syntax checkers are not registered:\n\n"
- 'face '(bold warning)))
- (dolist (checker unregistered-checkers)
- (princ " - ")
- (princ checker)
- (princ "\n"))
- (princ
- "\nTry adding these syntax checkers to `flycheck-checkers'.\n")))
-
- (flycheck--verify-print-footer buffer)))
-
- (with-current-buffer help-buffer
- (setq-local revert-buffer-function
- (lambda (_ignore-auto _noconfirm)
- (with-current-buffer buffer (flycheck-verify-setup)))))))
-
-
-;;; Predicates for generic syntax checkers
-(defun flycheck-buffer-saved-p (&optional buffer)
- "Determine whether BUFFER is saved to a file.
-
-BUFFER is the buffer to check. If omitted or nil, use the
-current buffer as BUFFER.
-
-Return non-nil if the BUFFER is backed by a file, and not
-modified, or nil otherwise."
- (let ((file-name (buffer-file-name buffer)))
- (and file-name (file-exists-p file-name) (not (buffer-modified-p buffer)))))
-
-
-;;; Extending generic checkers
-(defun flycheck-add-next-checker (checker next &optional append)
- "After CHECKER add a NEXT checker.
-
-CHECKER is a syntax checker symbol, to which to add NEXT checker.
-
-NEXT is a cons cell `(LEVEL . NEXT-CHECKER)'. NEXT-CHECKER is a
-symbol denoting the syntax checker to run after CHECKER. LEVEL
-is an error level. NEXT-CHECKER will only be used if there is no
-current error whose level is more severe than LEVEL. LEVEL may
-also be t, in which case NEXT-CHECKER is used regardless of the
-current errors.
-
-NEXT can also be a syntax checker symbol only, which is
-equivalent to `(t . NEXT)'.
-
-NEXT-CHECKER is prepended before other next checkers, unless
-APPEND is non-nil."
- (unless (flycheck-valid-checker-p checker)
- (error "%s is not a valid syntax checker" checker))
- (flycheck-validate-next-checker next 'strict)
- (if append
- (setf (flycheck-checker-get checker 'next-checkers)
- (append (flycheck-checker-get checker 'next-checkers) (list next)))
- (push next (flycheck-checker-get checker 'next-checkers))))
-
-(defun flycheck-add-mode (checker mode)
- "To CHECKER add a new major MODE.
-
-CHECKER and MODE are symbols denoting a syntax checker and a
-major mode respectively.
-
-Add MODE to the `:modes' property of CHECKER, so that CHECKER
-will be used in buffers with MODE."
- (unless (flycheck-valid-checker-p checker)
- (error "%s is not a valid syntax checker" checker))
- (unless (symbolp mode)
- (error "%s is not a symbol" mode))
- (push mode (flycheck-checker-get checker 'modes)))
-
-
-;;; Generic syntax checks
-(cl-defstruct (flycheck-syntax-check
- (:constructor flycheck-syntax-check-new))
- "Structure for storing syntax check state.
-
-Slots:
-
-`buffer'
- The buffer being checked.
-
-`checker'
- The syntax checker being used.
-
-`context'
- The context object.
-
-`working-directory'
- Working directory for the syntax checker. Serve as a value for
- `default-directory' for a checker."
- buffer checker context working-directory)
-
-(defun flycheck-syntax-check-start (syntax-check callback)
- "Start a SYNTAX-CHECK with CALLBACK."
- (let ((checker (flycheck-syntax-check-checker syntax-check))
- (default-directory
- (flycheck-syntax-check-working-directory syntax-check)))
- (setf (flycheck-syntax-check-context syntax-check)
- (funcall (flycheck-checker-get checker 'start) checker callback))))
-
-(defun flycheck-syntax-check-interrupt (syntax-check)
- "Interrupt a SYNTAX-CHECK."
- (let* ((checker (flycheck-syntax-check-checker syntax-check))
- (interrupt-fn (flycheck-checker-get checker 'interrupt))
- (context (flycheck-syntax-check-context syntax-check)))
- (when interrupt-fn
- (funcall interrupt-fn checker context))))
-
-
-;;; Syntax checking mode
-
-(defvar flycheck-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map flycheck-keymap-prefix flycheck-command-map)
- ;; We place the menu under a custom menu key. Since this menu key is not
- ;; present in the menu of the global map, no top-level menu entry is added
- ;; to the global menu bar. However, it still appears on the mode line
- ;; lighter.
- (define-key map [menu-bar flycheck] flycheck-mode-menu-map)
- map)
- "Keymap of command `flycheck-mode'.")
-
-(defvar-local flycheck-old-next-error-function nil
- "Remember the old `next-error-function'.")
-
-(defconst flycheck-hooks-alist
- '(
- ;; Handle events that may start automatic syntax checks
- (after-save-hook . flycheck-handle-save)
- (after-change-functions . flycheck-handle-change)
- ;; Handle events that may triggered pending deferred checks
- (window-configuration-change-hook . flycheck-perform-deferred-syntax-check)
- (post-command-hook . flycheck-perform-deferred-syntax-check)
- ;; Teardown Flycheck whenever the buffer state is about to get lost, to
- ;; clean up temporary files and directories.
- (kill-buffer-hook . flycheck-teardown)
- (change-major-mode-hook . flycheck-teardown)
- (before-revert-hook . flycheck-teardown)
- ;; Update the error list if necessary
- (post-command-hook . flycheck-error-list-update-source)
- (post-command-hook . flycheck-error-list-highlight-errors)
- ;; Display errors. Show errors at point after commands (like movements) and
- ;; when Emacs gets focus. Cancel the display timer when Emacs looses focus
- ;; (as there's no need to display errors if the user can't see them), and
- ;; hide the error buffer (for large error messages) if necessary. Note that
- ;; the focus hooks only work on Emacs 24.4 and upwards, but since undefined
- ;; hooks are perfectly ok we don't need a version guard here. They'll just
- ;; not work silently.
- (post-command-hook . flycheck-display-error-at-point-soon)
- (focus-in-hook . flycheck-display-error-at-point-soon)
- (focus-out-hook . flycheck-cancel-error-display-error-at-point-timer)
- (post-command-hook . flycheck-hide-error-buffer)
- ;; Immediately show error popups when navigating to an error
- (next-error-hook . flycheck-display-error-at-point))
- "Hooks which Flycheck needs to hook in.
-
-The `car' of each pair is a hook variable, the `cdr' a function
-to be added or removed from the hook variable if Flycheck mode is
-enabled and disabled respectively.")
-
-;;;###autoload
-(define-minor-mode flycheck-mode
- "Minor mode for on-the-fly syntax checking.
-
-When called interactively, toggle `flycheck-mode'. With prefix
-ARG, enable `flycheck-mode' if ARG is positive, otherwise disable
-it.
-
-When called from Lisp, enable `flycheck-mode' if ARG is omitted,
-nil or positive. If ARG is `toggle', toggle `flycheck-mode'.
-Otherwise behave as if called interactively.
-
-In `flycheck-mode' the buffer is automatically syntax-checked
-using the first suitable syntax checker from `flycheck-checkers'.
-Use `flycheck-select-checker' to select a checker for the current
-buffer manually.
-
-\\{flycheck-mode-map}"
- :init-value nil
- :keymap flycheck-mode-map
- :lighter flycheck-mode-line
- :after-hook (flycheck-buffer-automatically 'mode-enabled 'force-deferred)
- (cond
- (flycheck-mode
- (flycheck-clear)
-
- (pcase-dolist (`(,hook . ,fn) flycheck-hooks-alist)
- (add-hook hook fn nil 'local))
-
- (setq flycheck-old-next-error-function
- (if flycheck-standard-error-navigation
- next-error-function
- :unset))
- (when flycheck-standard-error-navigation
- (setq next-error-function #'flycheck-next-error-function)))
- (t
- (unless (eq flycheck-old-next-error-function :unset)
- (setq next-error-function flycheck-old-next-error-function))
-
- (pcase-dolist (`(,hook . ,fn) flycheck-hooks-alist)
- (remove-hook hook fn 'local))
-
- (flycheck-teardown))))
-
-
-;;; Syntax checker selection for the current buffer
-(defun flycheck-get-checker-for-buffer ()
- "Find the checker for the current buffer.
-
-Use the selected checker for the current buffer, if any,
-otherwise search for the best checker from `flycheck-checkers'.
-
-Return checker if there is a checker for the current buffer, or
-nil otherwise."
- (if flycheck-checker
- (when (flycheck-may-use-checker flycheck-checker)
- flycheck-checker)
- (seq-find #'flycheck-may-use-checker flycheck-checkers)))
-
-(defun flycheck-get-next-checker-for-buffer (checker)
- "Get the checker to run after CHECKER for the current buffer."
- (let ((next (seq-find #'flycheck-may-use-next-checker
- (flycheck-checker-get checker 'next-checkers))))
- (when next
- (if (symbolp next) next (cdr next)))))
-
-(defun flycheck-select-checker (checker)
- "Select CHECKER for the current buffer.
-
-CHECKER is a syntax checker symbol (see `flycheck-checkers') or
-nil. In the former case, use CHECKER for the current buffer,
-otherwise deselect the current syntax checker (if any) and use
-automatic checker selection via `flycheck-checkers'.
-
-If called interactively prompt for CHECKER. With prefix arg
-deselect the current syntax checker and enable automatic
-selection again.
-
-Set `flycheck-checker' to CHECKER and automatically start a new
-syntax check if the syntax checker changed.
-
-CHECKER will be used, even if it is not contained in
-`flycheck-checkers', or if it is disabled via
-`flycheck-disabled-checkers'."
- (interactive
- (if current-prefix-arg
- (list nil)
- (list (read-flycheck-checker "Select checker: "
- (flycheck-get-checker-for-buffer)))))
- (when (not (eq checker flycheck-checker))
- (unless (or (not checker) (flycheck-may-use-checker checker))
- (flycheck-verify-checker checker)
- (user-error "Can't use syntax checker %S in this buffer" checker))
- (setq flycheck-checker checker)
- (when flycheck-mode
- (flycheck-buffer))))
-
-(defun flycheck-disable-checker (checker &optional enable)
- "Interactively disable CHECKER for the current buffer.
-
-Interactively, prompt for a syntax checker to disable, and add
-the syntax checker to the buffer-local value of
-`flycheck-disabled-checkers'.
-
-With non-nil ENABLE or with prefix arg, prompt for a disabled
-syntax checker and re-enable it by removing it from the
-buffer-local value of `flycheck-disabled-checkers'."
- (declare
- (interactive-only "Directly set `flycheck-disabled-checkers' instead"))
- (interactive
- (let* ((enable current-prefix-arg)
- (candidates (if enable flycheck-disabled-checkers flycheck-checkers))
- (prompt (if enable "Enable syntax checker: "
- "Disable syntax checker: ")))
- (when (and enable (not candidates))
- (user-error "No syntax checkers disabled in this buffer"))
- (list (read-flycheck-checker prompt nil nil candidates) enable)))
- (unless checker
- (user-error "No syntax checker given"))
- (if enable
- ;; We must use `remq' instead of `delq', because we must _not_ modify the
- ;; list. Otherwise we could potentially modify the global default value,
- ;; in case the list is the global default.
- (when (memq checker flycheck-disabled-checkers)
- (setq flycheck-disabled-checkers
- (remq checker flycheck-disabled-checkers))
- (flycheck-buffer))
- (unless (memq checker flycheck-disabled-checkers)
- (push checker flycheck-disabled-checkers)
- (flycheck-buffer))))
-
-
-;;; Syntax checks for the current buffer
-(defvar-local flycheck-current-syntax-check nil
- "The current syntax check in the this buffer.")
-(put 'flycheck-current-syntax-check 'permanent-local t)
-
-(defun flycheck-start-current-syntax-check (checker)
- "Start a syntax check in the current buffer with CHECKER.
-
-Set `flycheck-current-syntax-check' accordingly."
- ;; Allocate the current syntax check *before* starting it. This allows for
- ;; synchronous checks, which call the status callback immediately in their
- ;; start function.
- (let* ((check
- (flycheck-syntax-check-new
- :buffer (current-buffer)
- :checker checker
- :context nil
- :working-directory (flycheck-compute-working-directory checker)))
- (callback (flycheck-buffer-status-callback check)))
- (setq flycheck-current-syntax-check check)
- (flycheck-report-status 'running)
- (flycheck-syntax-check-start check callback)))
-
-(defun flycheck-running-p ()
- "Determine whether a syntax check is running in the current buffer."
- (not (null flycheck-current-syntax-check)))
-
-(defun flycheck-stop ()
- "Stop any ongoing syntax check in the current buffer."
- (when (flycheck-running-p)
- (flycheck-syntax-check-interrupt flycheck-current-syntax-check)
- ;; Remove the current syntax check, to reset Flycheck into a non-running
- ;; state, and to make `flycheck-report-buffer-checker-status' ignore any
- ;; status reports from the current syntax check.
- (setq flycheck-current-syntax-check nil)
- (flycheck-report-status 'interrupted)))
-
-(defun flycheck-buffer-status-callback (syntax-check)
- "Create a status callback for SYNTAX-CHECK in the current buffer."
- (lambda (&rest args)
- (apply #'flycheck-report-buffer-checker-status
- syntax-check args)))
-
-(defun flycheck-buffer ()
- "Start checking syntax in the current buffer.
-
-Get a syntax checker for the current buffer with
-`flycheck-get-checker-for-buffer', and start it."
- (interactive)
- (flycheck-clean-deferred-check)
- (if flycheck-mode
- (unless (flycheck-running-p)
- ;; Clear error list and mark all overlays for deletion. We do not
- ;; delete all overlays immediately to avoid excessive re-displays and
- ;; flickering, if the same errors gets highlighted again after the check
- ;; completed.
- (run-hooks 'flycheck-before-syntax-check-hook)
- (flycheck-clear-errors)
- (flycheck-mark-all-overlays-for-deletion)
- (condition-case err
- (let* ((checker (flycheck-get-checker-for-buffer)))
- (if checker
- (flycheck-start-current-syntax-check checker)
- (flycheck-clear)
- (flycheck-report-status 'no-checker)))
- (error
- (flycheck-report-failed-syntax-check)
- (signal (car err) (cdr err)))))
- (user-error "Flycheck mode disabled")))
-
-(defun flycheck-report-buffer-checker-status
- (syntax-check status &optional data)
- "In BUFFER, report a SYNTAX-CHECK STATUS with DATA.
-
-SYNTAX-CHECK is the `flycheck-syntax-check' which reported
-STATUS. STATUS denotes the status of CHECKER, with an optional
-DATA. STATUS may be one of the following symbols:
-
-`errored'
- The syntax checker has errored. DATA is an optional error
- message.
-
- This report finishes the current syntax check.
-
-`interrupted'
- The syntax checker was interrupted. DATA is ignored.
-
- This report finishes the current syntax check.
-
-`finished'
- The syntax checker has finished with a proper error report
- for the current buffer. DATA is the (potentially empty)
- list of `flycheck-error' objects reported by the syntax
- check.
-
- This report finishes the current syntax check.
-
-`suspicious'
- The syntax checker encountered a suspicious state, which the
- user needs to be informed about. DATA is an optional
- message.
-
-A syntax checker _must_ report a status at least once with any
-symbol that finishes the current syntax checker. Otherwise
-Flycheck gets stuck with the current syntax check.
-
-If CHECKER is not the currently used syntax checker in
-`flycheck-current-syntax-check', the status report is largely
-ignored. Notably, any errors reported by the checker are
-discarded."
- (let ((buffer (flycheck-syntax-check-buffer syntax-check)))
- ;; Ignore the status report if the buffer is gone, or if this syntax check
- ;; isn't the current one in buffer (which can happen if this is an old
- ;; report of an interrupted syntax check, and a new syntax check was started
- ;; since this check was interrupted)
- (when (and (buffer-live-p buffer)
- (eq syntax-check
- (buffer-local-value 'flycheck-current-syntax-check buffer)))
- (with-current-buffer buffer
- (let ((checker (flycheck-syntax-check-checker syntax-check)))
- (pcase status
- ((or `errored `interrupted)
- (flycheck-report-failed-syntax-check status)
- (when (eq status 'errored)
- ;; In case of error, show the error message
- (message "Error from syntax checker %s: %s"
- checker (or data "UNKNOWN!"))))
- (`suspicious
- (when flycheck-mode
- (message "Suspicious state from syntax checker %s: %s"
- checker (or data "UNKNOWN!")))
- (flycheck-report-status 'suspicious))
- (`finished
- (when flycheck-mode
- ;; Only report errors from the checker if Flycheck Mode is
- ;; still enabled.
- (flycheck-finish-current-syntax-check
- data
- (flycheck-syntax-check-working-directory syntax-check))))
- (_
- (error "Unknown status %s from syntax checker %s"
- status checker))))))))
-
-(defun flycheck-finish-current-syntax-check (errors working-dir)
- "Finish the current syntax-check in the current buffer with ERRORS.
-
-ERRORS is a list of `flycheck-error' objects reported by the
-current syntax check in `flycheck-current-syntax-check'.
-
-Report all ERRORS and potentially start any next syntax checkers.
-
-If the current syntax checker reported excessive errors, it is
-disabled via `flycheck-disable-excessive-checker' for subsequent
-syntax checks.
-
-Relative file names in ERRORS will be expanded relative to
-WORKING-DIR."
- (let* ((syntax-check flycheck-current-syntax-check)
- (checker (flycheck-syntax-check-checker syntax-check))
- (errors (flycheck-relevant-errors
- (flycheck-fill-and-expand-error-file-names
- (flycheck-filter-errors
- (flycheck-assert-error-list-p errors) checker)
- working-dir))))
- (unless (flycheck-disable-excessive-checker checker errors)
- (flycheck-report-current-errors errors))
- (let ((next-checker (flycheck-get-next-checker-for-buffer checker)))
- (if next-checker
- (flycheck-start-current-syntax-check next-checker)
- (setq flycheck-current-syntax-check nil)
- (flycheck-report-status 'finished)
- ;; Delete overlays only after the very last checker has run, to avoid
- ;; flickering on intermediate re-displays
- (flycheck-delete-marked-overlays)
- (flycheck-error-list-refresh)
- (run-hooks 'flycheck-after-syntax-check-hook)
- (when (eq (current-buffer) (window-buffer))
- (flycheck-display-error-at-point))
- ;; Immediately try to run any pending deferred syntax check, which
- ;; were triggered by intermediate automatic check event, to make sure
- ;; that we quickly refine outdated error information
- (flycheck-perform-deferred-syntax-check)))))
-
-(defun flycheck-disable-excessive-checker (checker errors)
- "Disable CHECKER if it reported excessive ERRORS.
-
-If ERRORS has more items than `flycheck-checker-error-threshold',
-add CHECKER to `flycheck-disabled-checkers', and show a warning.
-
-Return t when CHECKER was disabled, or nil otherwise."
- (when (and flycheck-checker-error-threshold
- (> (length errors) flycheck-checker-error-threshold))
- ;; Disable CHECKER for this buffer (`flycheck-disabled-checkers' is a local
- ;; variable).
- (lwarn '(flycheck syntax-checker) :warning
- "Syntax checker %s reported too many errors (%s) and is disabled."
- checker (length errors))
- (push checker flycheck-disabled-checkers)
- t))
-
-(defun flycheck-clear (&optional shall-interrupt)
- "Clear all errors in the current buffer.
-
-With prefix arg or SHALL-INTERRUPT non-nil, also interrupt the
-current syntax check."
- (interactive "P")
- (when shall-interrupt
- (flycheck-stop))
- (flycheck-delete-all-overlays)
- (flycheck-clear-errors)
- (flycheck-error-list-refresh)
- (flycheck-hide-error-buffer))
-
-(defun flycheck-teardown ()
- "Teardown Flycheck in the current buffer..
-
-Completely clear the whole Flycheck state. Remove overlays, kill
-running checks, and empty all variables used by Flycheck."
- (flycheck-safe-delete-temporaries)
- (flycheck-stop)
- (flycheck-clean-deferred-check)
- (flycheck-clear)
- (flycheck-cancel-error-display-error-at-point-timer))
-
-
-;;; Automatic syntax checking in a buffer
-(defun flycheck-may-check-automatically (&optional condition)
- "Determine whether the buffer may be checked under CONDITION.
-
-Read-only buffers may never be checked automatically.
-
-If CONDITION is non-nil, determine whether syntax may checked
-automatically according to
-`flycheck-check-syntax-automatically'."
- (and (not (or buffer-read-only (flycheck-ephemeral-buffer-p)))
- (file-exists-p default-directory)
- (or (not condition)
- (memq condition flycheck-check-syntax-automatically))))
-
-(defun flycheck-buffer-automatically (&optional condition force-deferred)
- "Automatically check syntax at CONDITION.
-
-Syntax is not checked if `flycheck-may-check-automatically'
-returns nil for CONDITION.
-
-The syntax check is deferred if FORCE-DEFERRED is non-nil, or if
-`flycheck-must-defer-check' returns t."
- (when (and flycheck-mode (flycheck-may-check-automatically condition))
- (if (or force-deferred (flycheck-must-defer-check))
- (flycheck-buffer-deferred)
- (with-demoted-errors "Error while checking syntax automatically: %S"
- (flycheck-buffer)))))
-
-(defvar-local flycheck-idle-change-timer nil
- "Timer to mark the idle time since the last change.")
-
-(defun flycheck-clear-idle-change-timer ()
- "Clear the idle change timer."
- (when flycheck-idle-change-timer
- (cancel-timer flycheck-idle-change-timer)
- (setq flycheck-idle-change-timer nil)))
-
-(defun flycheck-handle-change (beg end _len)
- "Handle a buffer change between BEG and END.
-
-BEG and END mark the beginning and end of the change text. _LEN
-is ignored.
-
-Start a syntax check if a new line has been inserted into the
-buffer."
- ;; Save and restore the match data, as recommended in (elisp)Change Hooks
- (save-match-data
- (when flycheck-mode
- ;; The buffer was changed, thus clear the idle timer
- (flycheck-clear-idle-change-timer)
- (if (string-match-p (rx "\n") (buffer-substring beg end))
- (flycheck-buffer-automatically 'new-line 'force-deferred)
- (setq flycheck-idle-change-timer
- (run-at-time flycheck-idle-change-delay nil
- #'flycheck--handle-idle-change-in-buffer
- (current-buffer)))))))
-
-(defun flycheck--handle-idle-change-in-buffer (buffer)
- "Handle an expired idle timer in BUFFER since the last change.
-This thin wrapper around `flycheck-handle-idle-change' is needed
-because some users override that function, as described in URL
-`https://github.com/flycheck/flycheck/pull/1305'."
- (when (buffer-live-p buffer)
- (with-current-buffer buffer
- (flycheck-handle-idle-change))))
-
-(defun flycheck-handle-idle-change ()
- "Handle an expired idle timer since the last change."
- (flycheck-clear-idle-change-timer)
- (flycheck-buffer-automatically 'idle-change))
-
-(defun flycheck-handle-save ()
- "Handle a save of the buffer."
- (flycheck-buffer-automatically 'save))
-
-
-;;; Deferred syntax checking
-(defvar-local flycheck-deferred-syntax-check nil
- "If non-nil, a deferred syntax check is pending.")
-
-(defun flycheck-must-defer-check ()
- "Determine whether the syntax check has to be deferred.
-
-A check has to be deferred if the buffer is not visible, or if the buffer is
-currently being reverted.
-
-Return t if the check is to be deferred, or nil otherwise."
- (or (not (get-buffer-window))
- ;; We defer the syntax check if Flycheck is already running, to
- ;; immediately start a new syntax check after the current one finished,
- ;; because the result of the current check will most likely be outdated by
- ;; the time it is finished.
- (flycheck-running-p)
- ;; We must defer checks while a buffer is being reverted, to avoid race
- ;; conditions while the buffer contents are being restored.
- revert-buffer-in-progress-p))
-
-(defun flycheck-deferred-check-p ()
- "Determine whether the current buffer has a deferred check.
-
-Return t if so, or nil otherwise."
- flycheck-deferred-syntax-check)
-
-(defun flycheck-buffer-deferred ()
- "Defer syntax check for the current buffer."
- (setq flycheck-deferred-syntax-check t))
-
-(defun flycheck-clean-deferred-check ()
- "Clean a deferred syntax checking state."
- (setq flycheck-deferred-syntax-check nil))
-
-(defun flycheck-perform-deferred-syntax-check ()
- "Perform the deferred syntax check."
- (when (flycheck-deferred-check-p)
- (flycheck-clean-deferred-check)
- (flycheck-buffer-automatically)))
-
-
-;;; Syntax checking in all buffers
-(defun flycheck-may-enable-mode ()
- "Determine whether Flycheck mode may be enabled.
-
-Flycheck mode is not enabled for
-
-- the minibuffer,
-- `fundamental-mode'
-- major modes whose `mode-class' property is `special',
-- ephemeral buffers (see `flycheck-ephemeral-buffer-p'),
-- encrypted buffers (see `flycheck-encrypted-buffer-p'),
-- remote files (see `file-remote-p'),
-- and major modes excluded by `flycheck-global-modes'.
-
-Return non-nil if Flycheck mode may be enabled, and nil
-otherwise."
- (and (pcase flycheck-global-modes
- ;; Whether `major-mode' is disallowed by `flycheck-global-modes'
- (`t t)
- (`(not . ,modes) (not (memq major-mode modes)))
- (modes (memq major-mode modes)))
- (not (or (minibufferp)
- (eq major-mode 'fundamental-mode)
- (eq (get major-mode 'mode-class) 'special)
- (flycheck-ephemeral-buffer-p)
- (flycheck-encrypted-buffer-p)
- (and (buffer-file-name)
- (file-remote-p (buffer-file-name) 'method))))))
-
-(defun flycheck-mode-on-safe ()
- "Enable command `flycheck-mode' if it is safe to do so.
-
-Command `flycheck-mode' is only enabled if
-`flycheck-may-enable-mode' returns a non-nil result."
- (when (flycheck-may-enable-mode)
- (flycheck-mode)))
-
-;;;###autoload
-(define-globalized-minor-mode global-flycheck-mode flycheck-mode
- flycheck-mode-on-safe
- :init-value nil
- ;; Do not expose Global Flycheck Mode on customize interface, because the
- ;; interaction between package.el and customize is currently broken. See
- ;; https://github.com/flycheck/flycheck/issues/595
-
- ;; :require 'flycheck :group
- ;; 'flycheck
- )
-
-(defun flycheck-global-teardown ()
- "Teardown Flycheck in all buffers.
-
-Completely clear the whole Flycheck state in all buffers, stop
-all running checks, remove all temporary files, and empty all
-variables of Flycheck."
- (dolist (buffer (buffer-list))
- (with-current-buffer buffer
- (when flycheck-mode
- (flycheck-teardown)))))
-
-;; Clean up the entire state of Flycheck when Emacs is killed, to get rid of any
-;; pending temporary files.
-(add-hook 'kill-emacs-hook #'flycheck-global-teardown)
-
-
-;;; Errors from syntax checks
-(cl-defstruct (flycheck-error
- (:constructor flycheck-error-new)
- (:constructor flycheck-error-new-at
- (line column
- &optional level message
- &key checker id group
- (filename (buffer-file-name))
- (buffer (current-buffer)))))
- "Structure representing an error reported by a syntax checker.
-Slots:
-
-`buffer'
- The buffer that the error was reported for, as buffer object.
-
-`checker'
- The syntax checker which reported this error, as symbol.
-
-`filename'
- The file name the error refers to, as string.
-
-`line'
- The line number the error refers to, as number.
-
-`column' (optional)
- The column number the error refers to, as number.
-
- For compatibility with external tools and unlike Emacs
- itself (e.g. in Compile Mode) Flycheck uses _1-based_
- columns: The first character on a line is column 1.
-
- Occasionally some tools try to proactively adapt to Emacs
- and emit 0-based columns automatically. In these cases, the
- columns must be adjusted for Flycheck, see
- `flycheck-increment-error-columns'.
-
-`message' (optional)
- The error message as a string, if any.
-
-`level'
- The error level, as either `info', `warning' or `error'.
-
-`id' (optional)
- An ID identifying the kind of error.
-
-`group` (optional)
- A symbol identifying the group the error belongs to.
-
- Some tools will emit multiple errors that relate to the same
- issue (e.g., lifetime errors in Rust). All related errors
- collected by a checker should have the same `group` value,
- in order to be able to present them to the user.
-
- See `flycheck-related-errors`."
- buffer checker filename line column message level id group)
-
-(defmacro flycheck-error-with-buffer (err &rest forms)
- "Switch to the buffer of ERR and evaluate FORMS.
-
-If the buffer of ERR is not live, FORMS are not evaluated."
- (declare (indent 1) (debug t))
- `(when (buffer-live-p (flycheck-error-buffer ,err))
- (with-current-buffer (flycheck-error-buffer ,err)
- ,@forms)))
-
-(defun flycheck-error-line-region (err)
- "Get the line region of ERR.
-
-ERR is a Flycheck error whose region to get.
-
-Return a cons cell `(BEG . END)' where BEG is the first
-non-whitespace character on the line ERR refers to, and END the
-end of the line."
- (flycheck-error-with-buffer err
- (save-restriction
- (save-excursion
- (widen)
- (goto-char (point-min))
- (forward-line (- (flycheck-error-line err) 1))
- ;; We are at the beginning of the line now, so move to the beginning of
- ;; its indentation, similar to `back-to-indentation'
- (let ((end (line-end-position)))
- (skip-syntax-forward " " end)
- (backward-prefix-chars)
- ;; If the current line is empty, include the previous line break
- ;; character(s) to have any region at all. When called with 0,
- ;; `line-end-position' gives us the end of the previous line
- (cons (if (eolp) (line-end-position 0) (point)) end))))))
-
-(defun flycheck-error-column-region (err)
- "Get the error column region of ERR.
-
-ERR is a Flycheck error whose region to get.
-
-Return a cons cell `(BEG . END)' where BEG is the character
-before the error column, and END the actual error column, or nil
-if ERR has no column."
- (flycheck-error-with-buffer err
- (save-restriction
- (save-excursion
- (-when-let (column (flycheck-error-column err))
- (widen)
- (goto-char (point-min))
- (forward-line (- (flycheck-error-line err) 1))
- (cond
- ((eobp) ; Line beyond EOF
- ;; If we are at the end of the file (i.e. the line was beyond the
- ;; end of the file), use the very last column in the file.
- (cons (- (point-max) 1) (point-max)))
- ((eolp) ; Empty line
- ;; If the target line is empty, there's no column to highlight on
- ;; this line, so return the last column of the previous line.
- (cons (line-end-position 0) (point)))
- (t
- ;; The end is either the column offset of the line, or the end of
- ;; the line, if the column offset points beyond the end of the
- ;; line.
- (let ((end (min (+ (point) column)
- (+ (line-end-position) 1))))
- (cons (- end 1) end)))))))))
-
-(defun flycheck-error-thing-region (thing err)
- "Get the region of THING at the column of ERR.
-
-ERR is a Flycheck error whose region to get. THING is a
-understood by `thing-at-point'.
-
-Return a cons cell `(BEG . END)' where BEG is the beginning of
-the THING at the error column, and END the end of the symbol. If
-ERR has no error column, or if there is no THING at this column,
-return nil."
- (-when-let (column (car (flycheck-error-column-region err)))
- (flycheck-error-with-buffer err
- (save-excursion
- (save-restriction
- (widen)
- (goto-char column)
- (bounds-of-thing-at-point thing))))))
-
-(defun flycheck-error-region-for-mode (err mode)
- "Get the region of ERR for the highlighting MODE.
-
-ERR is a Flycheck error. MODE may be one of the following symbols:
-
-`columns'
- Get the column region of ERR, or the line region if ERR
- has no column.
-
-`symbols'
- Get the symbol region of ERR, or the result of `columns', if
- there is no sexp at the error column.
-
-`sexps'
- Get the sexp region of ERR, or the result of `columns', if
- there is no sexp at the error column.
-
-`lines'
- Return the line region.
-
-Otherwise signal an error."
- ;; Ignoring fields speeds up calls to `line-end-position' in
- ;; `flycheck-error-column-region' and `flycheck-error-line-region'.
- (let ((inhibit-field-text-motion t))
- (pcase mode
- (`columns (or (flycheck-error-column-region err)
- (flycheck-error-line-region err)))
- (`symbols (or (flycheck-error-thing-region 'symbol err)
- (flycheck-error-region-for-mode err 'columns)))
- (`sexps (or (flycheck-error-thing-region 'sexp err)
- (flycheck-error-region-for-mode err 'columns)))
- (`lines (flycheck-error-line-region err))
- (_ (error "Invalid mode %S" mode)))))
-
-(defun flycheck-error-pos (err)
- "Get the buffer position of ERR.
-
-ERR is a Flycheck error whose position to get.
-
-The error position is the error column, or the first
-non-whitespace character of the error line, if ERR has no error column."
- (car (or (flycheck-error-column-region err)
- (flycheck-error-line-region err))))
-
-(defun flycheck-error-format-message-and-id (err)
- "Format the message and id of ERR as human-readable string."
- (let ((id (flycheck-error-id err))
- (filename (flycheck-error-filename err)))
- (concat (when (and filename (not (equal filename (buffer-file-name))))
- (format "In \"%s\":\n"
- (file-relative-name filename default-directory)))
- (flycheck-error-message err)
- (when id
- (format " [%s]" id)))))
-
-(defun flycheck-error-format (err &optional with-file-name)
- "Format ERR as human-readable string, optionally WITH-FILE-NAME.
-
-Return a string that represents the given ERR. If WITH-FILE-NAME
-is given and non-nil, include the file-name as well, otherwise
-omit it."
- (let* ((line (flycheck-error-line err))
- (column (flycheck-error-column err))
- (level (symbol-name (flycheck-error-level err)))
- (checker (symbol-name (flycheck-error-checker err)))
- (format `(,@(when with-file-name
- (list (flycheck-error-filename err) ":"))
- ,(number-to-string line) ":"
- ,@(when column (list (number-to-string column) ":"))
- ,level ": "
- ,(flycheck-error-format-message-and-id err)
- " (" ,checker ")")))
- (apply #'concat format)))
-
-(defun flycheck-error-< (err1 err2)
- "Determine whether ERR1 is less than ERR2 by location.
-
-Compare by line numbers and then by column numbers."
- (let ((line1 (flycheck-error-line err1))
- (line2 (flycheck-error-line err2)))
- (if (= line1 line2)
- (let ((col1 (flycheck-error-column err1))
- (col2 (flycheck-error-column err2)))
- (and col2
- ;; Sort errors for the whole line first
- (or (not col1) (< col1 col2))))
- (< line1 line2))))
-
-(defun flycheck-error-level-< (err1 err2)
- "Determine whether ERR1 is less than ERR2 by error level.
-
-Like `flycheck-error-<', but compares by error level severity
-first. Levels of the same severity are compared by name."
- (let* ((level1 (flycheck-error-level err1))
- (level2 (flycheck-error-level err2))
- (severity1 (flycheck-error-level-severity level1))
- (severity2 (flycheck-error-level-severity level2)))
- (cond
- ((= severity1 severity2)
- (if (string= level1 level2)
- (flycheck-error-< err1 err2)
- (string< level1 level2)))
- (t (< severity1 severity2)))))
-
-(defun flycheck-assert-error-list-p (errors)
- "Assert that all items in ERRORS are of `flycheck-error' type.
-
-Signal an error if any item in ERRORS is not a `flycheck-error'
-object, as by `flycheck-error-p'. Otherwise return ERRORS
-again."
- (unless (listp errors)
- (signal 'wrong-type-argument (list 'listp errors)))
- (dolist (err errors)
- (unless (flycheck-error-p err)
- (signal 'wrong-type-argument (list 'flycheck-error-p err))))
- errors)
-
-
-;;; Errors in the current buffer
-(defvar-local flycheck-current-errors nil
- "A list of all errors and warnings in the current buffer.")
-
-(defun flycheck-report-current-errors (errors)
- "Report ERRORS in the current buffer.
-
-Add ERRORS to `flycheck-current-errors' and process each error
-with `flycheck-process-error-functions'."
- (setq flycheck-current-errors (sort (append errors flycheck-current-errors)
- #'flycheck-error-<))
- (overlay-recenter (point-max))
- (seq-do (lambda (err)
- (run-hook-with-args-until-success 'flycheck-process-error-functions
- err))
- errors))
-
-(defun flycheck-clear-errors ()
- "Remove all error information from the current buffer."
- (setq flycheck-current-errors nil)
- (flycheck-report-status 'not-checked))
-
-(defun flycheck-fill-and-expand-error-file-names (errors directory)
- "Fill and expand file names in ERRORS relative to DIRECTORY.
-
-Expand all file names of ERRORS against DIRECTORY. If the file
-name of an error is nil fill in the result of function
-`buffer-file-name' in the current buffer.
-
-Return ERRORS, modified in-place."
- (seq-do (lambda (err)
- (setf (flycheck-error-filename err)
- (-if-let (filename (flycheck-error-filename err))
- (expand-file-name filename directory)
- (buffer-file-name))))
- errors)
- errors)
-
-(defun flycheck-relevant-error-other-file-p (err)
- "Determine whether ERR is a relevant error for another file."
- (let ((file-name (flycheck-error-filename err)))
- (and file-name
- (or (null buffer-file-name)
- (not (flycheck-same-files-p buffer-file-name file-name)))
- (eq 'error (flycheck-error-level err)))))
-
-(defun flycheck-relevant-error-p (err)
- "Determine whether ERR is relevant for the current buffer.
-
-Return t if ERR may be shown for the current buffer, or nil
-otherwise."
- (flycheck-error-with-buffer err
- (let ((file-name (flycheck-error-filename err))
- (message (flycheck-error-message err)))
- (and
- (or
- ;; Neither the error nor buffer have a file name
- (and (not file-name) (not buffer-file-name))
- ;; Both have files, and they match
- (and buffer-file-name file-name
- (flycheck-same-files-p file-name buffer-file-name))
- ;; This is a significant error from another file
- (flycheck-relevant-error-other-file-p err))
- message
- (not (string-empty-p message))
- (flycheck-error-line err)))))
-
-(defun flycheck-relevant-errors (errors)
- "Filter the relevant errors from ERRORS.
-
-Return a list of all errors that are relevant for their
-corresponding buffer."
- (seq-filter #'flycheck-relevant-error-p errors))
-
-(defun flycheck-related-errors (err &optional error-set)
- "Get all the errors that are in the same group as ERR.
-
-Return a list of all errors (from ERROR-SET) that have the same
-`flycheck-error-group' as ERR, including ERR itself.
-
-If ERROR-SET is nil, `flycheck-current-errors' is used instead."
- (let ((group (flycheck-error-group err))
- (checker (flycheck-error-checker err)))
- (if group
- (seq-filter (lambda (e)
- (and (eq (flycheck-error-checker e) checker)
- (eq (flycheck-error-group e) group)))
- (or error-set flycheck-current-errors))
- (list err))))
-
-
-;;; Status reporting for the current buffer
-(defvar-local flycheck-last-status-change 'not-checked
- "The last status change in the current buffer.")
-
-(defun flycheck-report-failed-syntax-check (&optional status)
- "Report a failed Flycheck syntax check with STATUS.
-
-STATUS is a status symbol for `flycheck-report-status',
-defaulting to `errored'.
-
-Clear Flycheck state, run `flycheck-syntax-check-failed-hook' and
-report an error STATUS."
- (flycheck-clear)
- (setq flycheck-current-syntax-check nil)
- (run-hooks 'flycheck-syntax-check-failed-hook)
- (flycheck-report-status (or status 'errored)))
-
-(defun flycheck-report-status (status)
- "Report Flycheck STATUS.
-
-STATUS is one of the following symbols:
-
-`not-checked'
- The current buffer was not checked.
-
-`no-checker'
- Automatic syntax checker selection did not find a suitable
- syntax checker.
-
-`running'
- A syntax check is now running in the current buffer.
-
-`errored'
- The current syntax check has errored.
-
-`finished'
- The current syntax check was finished normally.
-
-`interrupted'
- The current syntax check was interrupted.
-
-`suspicious'
- The last syntax check had a suspicious result.
-
-Set `flycheck-last-status-change' and call
-`flycheck-status-changed-functions' with STATUS. Afterwards
-refresh the mode line."
- (setq flycheck-last-status-change status)
- (run-hook-with-args 'flycheck-status-changed-functions status)
- (force-mode-line-update))
-
-(defun flycheck-mode-line-status-text (&optional status)
- "Get a text describing STATUS for use in the mode line.
-
-STATUS defaults to `flycheck-last-status-change' if omitted or
-nil."
- (let ((text (pcase (or status flycheck-last-status-change)
- (`not-checked "")
- (`no-checker "-")
- (`running "*")
- (`errored "!")
- (`finished
- (let-alist (flycheck-count-errors flycheck-current-errors)
- (if (or .error .warning)
- (format ":%s/%s" (or .error 0) (or .warning 0))
- "")))
- (`interrupted ".")
- (`suspicious "?"))))
- (concat " " flycheck-mode-line-prefix text)))
-
-
-;;; Error levels
-;;;###autoload
-(defun flycheck-define-error-level (level &rest properties)
- "Define a new error LEVEL with PROPERTIES.
-
-The following PROPERTIES constitute an error level:
-
-`:severity SEVERITY'
- A number denoting the severity of this level. The higher
- the number, the more severe is this level compared to other
- levels. Defaults to 0.
-
- The severity is used by `flycheck-error-level-<' to
- determine the ordering of errors according to their levels.
-
-`:compilation-level LEVEL'
-
- A number indicating the broad class of messages that errors
- at this level belong to: one of 0 (info), 1 (warning), or
- 2 or nil (error). Defaults to nil.
-
- This is used by `flycheck-checker-pattern-to-error-regexp'
- to map error levels into `compilation-mode''s hierarchy and
- to get proper highlighting of errors in `compilation-mode'.
-
-`:overlay-category CATEGORY'
- A symbol denoting the overlay category to use for error
- highlight overlays for this level. See Info
- node `(elisp)Overlay Properties' for more information about
- overlay categories.
-
- A category for an error level overlay should at least define
- the `face' property, for error highlighting. Another useful
- property for error level categories is `priority', to
- influence the stacking of multiple error level overlays.
-
-`:fringe-bitmap BITMAP'
- A fringe bitmap symbol denoting the bitmap to use for fringe
- indicators for this level. See Info node `(elisp)Fringe
- Bitmaps' for more information about fringe bitmaps,
- including a list of built-in fringe bitmaps.
-
-`:fringe-face FACE'
- A face symbol denoting the face to use for fringe indicators
- for this level.
-
-`:error-list-face FACE'
- A face symbol denoting the face to use for messages of this
- level in the error list. See `flycheck-list-errors'."
- (declare (indent 1))
- (setf (get level 'flycheck-error-level) t)
- (setf (get level 'flycheck-error-severity)
- (or (plist-get properties :severity) 0))
- (setf (get level 'flycheck-compilation-level)
- (plist-get properties :compilation-level))
- (setf (get level 'flycheck-overlay-category)
- (plist-get properties :overlay-category))
- (setf (get level 'flycheck-fringe-bitmap-double-arrow)
- (plist-get properties :fringe-bitmap))
- (setf (get level 'flycheck-fringe-face)
- (plist-get properties :fringe-face))
- (setf (get level 'flycheck-error-list-face)
- (plist-get properties :error-list-face)))
-
-(defun flycheck-error-level-p (level)
- "Determine whether LEVEL is a Flycheck error level."
- (get level 'flycheck-error-level))
-
-(defun flycheck-error-level-severity (level)
- "Get the numeric severity of LEVEL."
- (or (get level 'flycheck-error-severity) 0))
-
-(defun flycheck-error-level-compilation-level (level)
- "Get the compilation level for LEVEL."
- (get level 'flycheck-compilation-level))
-
-(defun flycheck-error-level-overlay-category (level)
- "Get the overlay category for LEVEL."
- (get level 'flycheck-overlay-category))
-
-(defun flycheck-error-level-fringe-bitmap (level)
- "Get the fringe bitmap for LEVEL."
- (get level 'flycheck-fringe-bitmap-double-arrow))
-
-(defun flycheck-error-level-fringe-face (level)
- "Get the fringe face for LEVEL."
- (get level 'flycheck-fringe-face))
-
-(defun flycheck-error-level-error-list-face (level)
- "Get the error list face for LEVEL."
- (get level 'flycheck-error-list-face))
-
-(defun flycheck-error-level-make-fringe-icon (level side)
- "Create the fringe icon for LEVEL at SIDE.
-
-Return a propertized string that shows a fringe bitmap according
-to LEVEL and the given fringe SIDE.
-
-LEVEL is a Flycheck error level defined with
-`flycheck-define-error-level', and SIDE is either `left-fringe'
-or `right-fringe'.
-
-Return a propertized string representing the fringe icon,
-intended for use as `before-string' of an overlay to actually
-show the icon."
- (unless (memq side '(left-fringe right-fringe))
- (error "Invalid fringe side: %S" side))
- (propertize "!" 'display
- (list side
- (flycheck-error-level-fringe-bitmap level)
- (flycheck-error-level-fringe-face level))))
-
-
-;;; Built-in error levels
-(when (fboundp 'define-fringe-bitmap)
- (define-fringe-bitmap 'flycheck-fringe-bitmap-double-arrow
- (vector #b00000000
- #b00000000
- #b00000000
- #b00000000
- #b00000000
- #b10011000
- #b01101100
- #b00110110
- #b00011011
- #b00110110
- #b01101100
- #b10011000
- #b00000000
- #b00000000
- #b00000000
- #b00000000
- #b00000000)))
-
-(setf (get 'flycheck-error-overlay 'face) 'flycheck-error)
-(setf (get 'flycheck-error-overlay 'priority) 110)
-
-(flycheck-define-error-level 'error
- :severity 100
- :compilation-level 2
- :overlay-category 'flycheck-error-overlay
- :fringe-bitmap 'flycheck-fringe-bitmap-double-arrow
- :fringe-face 'flycheck-fringe-error
- :error-list-face 'flycheck-error-list-error)
-
-(setf (get 'flycheck-warning-overlay 'face) 'flycheck-warning)
-(setf (get 'flycheck-warning-overlay 'priority) 100)
-
-(flycheck-define-error-level 'warning
- :severity 10
- :compilation-level 1
- :overlay-category 'flycheck-warning-overlay
- :fringe-bitmap 'flycheck-fringe-bitmap-double-arrow
- :fringe-face 'flycheck-fringe-warning
- :error-list-face 'flycheck-error-list-warning)
-
-(setf (get 'flycheck-info-overlay 'face) 'flycheck-info)
-(setf (get 'flycheck-info-overlay 'priority) 90)
-
-(flycheck-define-error-level 'info
- :severity -10
- :compilation-level 0
- :overlay-category 'flycheck-info-overlay
- :fringe-bitmap 'flycheck-fringe-bitmap-double-arrow
- :fringe-face 'flycheck-fringe-info
- :error-list-face 'flycheck-error-list-info)
-
-
-;;; Error filtering
-(defun flycheck-filter-errors (errors checker)
- "Filter ERRORS from CHECKER.
-
-Apply the error filter of CHECKER to ERRORs and return the
-result. If CHECKER has no error filter, fall back to
-`flycheck-sanitize-errors'."
- (let ((filter (or (flycheck-checker-get checker 'error-filter)
- #'flycheck-sanitize-errors)))
- (funcall filter errors)))
-
-(defun flycheck-sanitize-errors (errors)
- "Sanitize ERRORS.
-
-Sanitize ERRORS by trimming leading and trailing whitespace in
-all error messages, and by replacing 0 columns and empty error
-messages with nil.
-
-Returns sanitized ERRORS."
- (dolist (err errors)
- (flycheck-error-with-buffer err
- (let ((message (flycheck-error-message err))
- (column (flycheck-error-column err))
- (id (flycheck-error-id err)))
- (when message
- (setq message (string-trim message))
- (setf (flycheck-error-message err)
- (if (string-empty-p message) nil message)))
- (when (and id (string-empty-p id))
- (setf (flycheck-error-id err) nil))
- (when (eq column 0)
- (setf (flycheck-error-column err) nil)))))
- errors)
-
-(defun flycheck-remove-error-file-names (file-name errors)
- "Remove matching FILE-NAME from ERRORS.
-
-Use as `:error-filter' for syntax checkers that output faulty
-filenames. Flycheck will later fill in the buffer file name.
-
-Return ERRORS."
- (seq-do (lambda (err)
- (when (and (flycheck-error-filename err)
- (string= (flycheck-error-filename err) file-name))
- (setf (flycheck-error-filename err) nil)))
- errors)
- errors)
-
-(defun flycheck-increment-error-columns (errors &optional offset)
- "Increment all columns of ERRORS by OFFSET.
-
-Use this as `:error-filter' if a syntax checker outputs 0-based
-columns."
- (seq-do (lambda (err)
- (let ((column (flycheck-error-column err)))
- (when column
- (setf (flycheck-error-column err)
- (+ column (or offset 1))))))
- errors)
- errors)
-
-(defun flycheck-collapse-error-message-whitespace (errors)
- "Collapse whitespace in all messages of ERRORS.
-
-Return ERRORS."
- (dolist (err errors)
- (-when-let (message (flycheck-error-message err))
- (setf (flycheck-error-message err)
- (replace-regexp-in-string (rx (one-or-more (any space "\n" "\r")))
- " " message 'fixed-case 'literal))))
- errors)
-
-(defun flycheck-dedent-error-messages (errors)
- "Dedent all messages of ERRORS.
-
-For each error in ERRORS, determine the indentation offset from
-the leading whitespace of the first line, and dedent all further
-lines accordingly.
-
-Return ERRORS, with in-place modifications."
- (dolist (err errors)
- (-when-let (message (flycheck-error-message err))
- (with-temp-buffer
- (insert message)
- ;; Determine the indentation offset
- (goto-char (point-min))
- (back-to-indentation)
- (let* ((indent-offset (- (point) (point-min))))
- ;; Now iterate over all lines and dedent each according to
- ;; `indent-offset'
- (while (not (eobp))
- (back-to-indentation)
- ;; If the current line starts with sufficient whitespace, delete the
- ;; indendation offset. Otherwise keep the line intact, as we might
- ;; loose valuable information
- (when (>= (- (point) (line-beginning-position)) indent-offset)
- (delete-char (- indent-offset)))
- (forward-line 1)))
- (delete-trailing-whitespace (point-min) (point-max))
- (setf (flycheck-error-message err)
- (buffer-substring-no-properties (point-min) (point-max))))))
- errors)
-
-(defun flycheck-fold-include-levels (errors sentinel-message)
- "Fold levels of ERRORS from included files.
-
-ERRORS is a list of `flycheck-error' objects. SENTINEL-MESSAGE
-is a regular expression matched against the error message to
-determine whether the errror denotes errors from an included
-file. Alternatively, it is a function that is given an error and
-shall return non-nil, if the error denotes errors from an
-included file."
- (unless (or (stringp sentinel-message) (functionp sentinel-message))
- (error "Sentinel must be string or function: %S" sentinel-message))
- (let ((sentinel (if (functionp sentinel-message)
- sentinel-message
- (lambda (err)
- (string-match-p sentinel-message
- (flycheck-error-message err)))))
- (remaining-errors errors))
- (while remaining-errors
- (let* ((current-error (pop remaining-errors)))
- (when (funcall sentinel current-error)
- ;; We found an error denoting errors in the included file:
- ;; 1. process all subsequent errors until faulty include file is found
- ;; 2. process again all subsequent errors until an error has the
- ;; current file name again
- ;; 3. find the most severe error level
- (let ((current-filename (flycheck-error-filename current-error))
- (current-level nil)
- (faulty-include-filename nil)
- (filename nil)
- (done (null remaining-errors)))
-
- (while (not done)
- (setq filename (flycheck-error-filename (car remaining-errors)))
- (unless faulty-include-filename
- (unless (string= filename current-filename)
- (setq faulty-include-filename filename)))
-
- (let* ((error-in-include (pop remaining-errors))
- (in-include-level (flycheck-error-level error-in-include)))
- (unless (funcall sentinel error-in-include)
- ;; Ignore nested "included file" errors, we are only
- ;; interested in real errors because these define our level
- (when (or (not current-level)
- (> (flycheck-error-level-severity in-include-level)
- (flycheck-error-level-severity current-level)))
- (setq current-level in-include-level))))
-
- (setq done (or (null remaining-errors)
- (and faulty-include-filename
- (string= filename current-filename)))))
-
- (setf (flycheck-error-level current-error) current-level
- (flycheck-error-message current-error)
- (format "In include %s" faulty-include-filename))))))
- errors))
-
-(defun flycheck-dequalify-error-ids (errors)
- "De-qualify error ids in ERRORS.
-
-Remove all qualifications from error ids in ERRORS, by stripping
-all leading dotted components from error IDs. For instance, if
-the error ID is com.foo.E100, replace it with E100.
-
-This error filter is mainly useful to simplify error IDs obtained
-from parsing Checkstyle XML, which frequently has very verbose
-IDs, that include the name of the tool."
- (seq-do (lambda (err)
- (let ((id (flycheck-error-id err)))
- (when id
- (setf (flycheck-error-id err)
- (replace-regexp-in-string
- (rx string-start
- (group
- (optional (zero-or-more not-newline) "."))
- (one-or-more (not (any ".")))
- string-end)
- "" id 'fixedcase 'literal 1)))))
- errors)
- errors)
-
-(defun flycheck-remove-error-ids (errors)
- "Remove all error ids from ERRORS."
- (seq-do (lambda (err) (setf (flycheck-error-id err) nil)) errors)
- errors)
-
-(defun flycheck-fill-empty-line-numbers (errors)
- "Set ERRORS without lines to line 0.
-
-Use as `:error-filter' for syntax checkers that output errors
-without line numbers.
-
-Return ERRORS."
- (seq-do (lambda (err)
- (unless (flycheck-error-line err)
- (setf (flycheck-error-line err) 0)))
- errors)
- errors)
-
-
-;;; Error analysis
-(defun flycheck-count-errors (errors)
- "Count the number of ERRORS, grouped by level..
-
-Return an alist, where each ITEM is a cons cell whose `car' is an
-error level, and whose `cdr' is the number of errors of that
-level."
- (let (counts-by-level)
- (dolist (err errors)
- (let* ((level (flycheck-error-level err))
- (item (assq level counts-by-level)))
- (if item
- (cl-incf (cdr item))
- (push (cons level 1) counts-by-level))))
- counts-by-level))
-
-(defun flycheck-has-max-errors-p (errors level)
- "Check if there is no error in ERRORS more severe than LEVEL."
- (let ((severity (flycheck-error-level-severity level)))
- (seq-every-p (lambda (e) (<= (flycheck-error-level-severity
- (flycheck-error-level e))
- severity))
- errors)))
-
-(defun flycheck-has-max-current-errors-p (level)
- "Check if there is no current error more severe than LEVEL."
- (flycheck-has-max-errors-p flycheck-current-errors level))
-
-(defun flycheck-has-errors-p (errors level)
- "Determine if there are any ERRORS with LEVEL."
- (seq-some (lambda (e) (eq (flycheck-error-level e) level)) errors))
-
-(defun flycheck-has-current-errors-p (&optional level)
- "Determine if the current buffer has errors with LEVEL.
-
-If LEVEL is omitted if the current buffer has any errors at all."
- (if level
- (flycheck-has-errors-p flycheck-current-errors level)
- (and flycheck-current-errors t)))
-
-
-;;; Error overlays in the current buffer
-(defun flycheck-add-overlay (err)
- "Add overlay for ERR.
-
-Return the created overlay."
- ;; We must have a proper error region for the sake of fringe indication,
- ;; error display and error navigation, even if the highlighting is disabled.
- ;; We erase the highlighting later on in this case
- (pcase-let* ((`(,beg . ,end)
- (if (flycheck-relevant-error-other-file-p err)
- ;; Display overlays for other-file errors on the first line
- (cons (point-min)
- (save-excursion (goto-char (point-min))
- (point-at-eol)))
- (flycheck-error-region-for-mode
- err (or flycheck-highlighting-mode 'lines))))
- (overlay (make-overlay beg end))
- (level (flycheck-error-level err))
- (category (flycheck-error-level-overlay-category level)))
- (unless (flycheck-error-level-p level)
- (error "Undefined error level: %S" level))
- (setf (overlay-get overlay 'flycheck-overlay) t)
- (setf (overlay-get overlay 'flycheck-error) err)
- (setf (overlay-get overlay 'category) category)
- (unless flycheck-highlighting-mode
- ;; Erase the highlighting from the overlay if requested by the user
- (setf (overlay-get overlay 'face) nil))
- (when flycheck-indication-mode
- (setf (overlay-get overlay 'before-string)
- (flycheck-error-level-make-fringe-icon
- level flycheck-indication-mode)))
- (setf (overlay-get overlay 'help-echo) #'flycheck-help-echo)
- overlay))
-
-(defun flycheck-help-echo (_window object pos)
- "Construct a tooltip message.
-
-Most of the actual work is done by calling
-`flycheck-help-echo-function' with the appropriate list of
-errors. Arguments WINDOW, OBJECT and POS are as described in
-info node `(elisp)Special properties', as this function is
-intended to be used as the 'help-echo property of flycheck error
-overlays."
- (-when-let (buf (cond ((bufferp object) object)
- ((overlayp object) (overlay-buffer object))))
- (with-current-buffer buf
- (-when-let* ((fn flycheck-help-echo-function)
- (errs (flycheck-overlay-errors-at pos)))
- (funcall fn errs)))))
-
-(defun flycheck-help-echo-all-error-messages (errs)
- "Concatenate error messages and ids from ERRS."
- (mapconcat
- (lambda (err)
- (when err
- (if (flycheck-error-message err)
- (flycheck-error-format-message-and-id err)
- (format "Unknown %s" (flycheck-error-level err)))))
- (reverse errs) "\n\n"))
-
-(defun flycheck-filter-overlays (overlays)
- "Get all Flycheck overlays from OVERLAYS."
- (seq-filter (lambda (o) (overlay-get o 'flycheck-overlay)) overlays))
-
-(defun flycheck-overlays-at (pos)
- "Get all Flycheck overlays at POS."
- (flycheck-filter-overlays (overlays-at pos)))
-
-(defun flycheck-overlays-in (beg end)
- "Get all Flycheck overlays between BEG and END."
- (flycheck-filter-overlays (overlays-in beg end)))
-
-(defun flycheck-overlay-errors-at (pos)
- "Return a list of all flycheck errors overlayed at POS."
- (seq-map (lambda (o) (overlay-get o 'flycheck-error))
- (flycheck-overlays-at pos)))
-
-(defun flycheck-overlay-errors-in (beg end)
- "Return a list of all flycheck errors overlayed between BEG and END."
- (seq-map (lambda (o) (overlay-get o 'flycheck-error))
- (flycheck-overlays-in beg end)))
-
-(defvar-local flycheck-overlays-to-delete nil
- "Overlays mark for deletion after all syntax checks completed.")
-(put 'flycheck-overlays-to-delete 'permanent-local t)
-
-(defun flycheck-delete-all-overlays ()
- "Remove all flycheck overlays in the current buffer."
- (overlay-recenter (point-max))
- (flycheck-delete-marked-overlays)
- (save-restriction
- (widen)
- (seq-do #'delete-overlay (flycheck-overlays-in (point-min) (point-max)))))
-
-(defun flycheck-mark-all-overlays-for-deletion ()
- "Mark all current overlays for deletion."
- (setq flycheck-overlays-to-delete
- (append (flycheck-overlays-in (point-min) (point-max))
- flycheck-overlays-to-delete)))
-
-(defun flycheck-delete-marked-overlays ()
- "Delete all overlays marked for deletion."
- (overlay-recenter (point-max))
- (seq-do #'delete-overlay flycheck-overlays-to-delete)
- (setq flycheck-overlays-to-delete nil))
-
-
-;;; Error navigation in the current buffer
-(defun flycheck-error-level-interesting-at-pos-p (pos)
- "Check if error severity at POS passes `flycheck-error-level-interesting-p'."
- (flycheck-error-level-interesting-p (get-char-property pos 'flycheck-error)))
-
-(defun flycheck-error-level-interesting-p (err)
- "Check if ERR severity is >= `flycheck-navigation-minimum-level'."
- (when (flycheck-error-p err)
- (-if-let (min-level flycheck-navigation-minimum-level)
- (<= (flycheck-error-level-severity min-level)
- (flycheck-error-level-severity (flycheck-error-level err)))
- t)))
-
-(defun flycheck-next-error-pos (n &optional reset)
- "Get the position of the N-th next error.
-
-With negative N, get the position of the (-N)-th previous error
-instead. With non-nil RESET, search from `point-min', otherwise
-search from the current point.
-
-Return the position of the next or previous error, or nil if
-there is none."
- (let ((n (or n 1))
- (pos (if reset (point-min) (point))))
- (if (>= n 0)
- ;; Search forwards
- (while (and pos (> n 0))
- (setq n (1- n))
- (when (get-char-property pos 'flycheck-error)
- ;; Move beyond from the current error if any
- (setq pos (next-single-char-property-change pos 'flycheck-error)))
- (while (not (or (= pos (point-max))
- (flycheck-error-level-interesting-at-pos-p pos)))
- ;; Scan for the next error
- (setq pos (next-single-char-property-change pos 'flycheck-error)))
- (when (and (= pos (point-max))
- (not (flycheck-error-level-interesting-at-pos-p pos)))
- ;; If we reached the end of the buffer, but no error, we didn't find
- ;; any
- (setq pos nil)))
- ;; Search backwards
- (while (and pos (< n 0))
- (setq n (1+ n))
- ;; Loop until we find an error. We need to check the position *before*
- ;; the current one, because `previous-single-char-property-change'
- ;; always moves to the position *of* the change.
- (while (not (or (= pos (point-min))
- (flycheck-error-level-interesting-at-pos-p (1- pos))))
- (setq pos (previous-single-char-property-change pos 'flycheck-error)))
- (when (and (= pos (point-min))
- (not (flycheck-error-level-interesting-at-pos-p pos)))
- ;; We didn't find any error.
- (setq pos nil))
- (when pos
- ;; We found an error, so move to its beginning
- (setq pos (previous-single-char-property-change pos
- 'flycheck-error)))))
- pos))
-
-(defun flycheck-next-error-function (n reset)
- "Visit the N-th error from the current point.
-
-N is the number of errors to advance by, where a negative N
-advances backwards. With non-nil RESET, advance from the
-beginning of the buffer, otherwise advance from the current
-position.
-
-Intended for use with `next-error-function'."
- (-if-let* ((pos (flycheck-next-error-pos n reset))
- (err (get-char-property pos 'flycheck-error)))
- (flycheck-jump-to-error err)
- (user-error "No more Flycheck errors")))
-
-(defun flycheck-next-error (&optional n reset)
- "Visit the N-th error from the current point.
-
-N is the number of errors to advance by, where a negative N
-advances backwards. With non-nil RESET, advance from the
-beginning of the buffer, otherwise advance from the current
-position."
- (interactive "P")
- (when (consp n)
- ;; Universal prefix argument means reset
- (setq reset t n nil))
- (flycheck-next-error-function n reset)
- (flycheck-display-error-at-point))
-
-(defun flycheck-previous-error (&optional n)
- "Visit the N-th previous error.
-
-If given, N specifies the number of errors to move backwards by.
-If N is negative, move forwards instead."
- (interactive "P")
- (flycheck-next-error (- (or n 1))))
-
-(defun flycheck-first-error (&optional n)
- "Visit the N-th error from beginning of the buffer.
-
-If given, N specifies the number of errors to move forward from
-the beginning of the buffer."
- (interactive "P")
- (flycheck-next-error n 'reset))
-
-
-;;; Listing errors in buffers
-(defconst flycheck-error-list-buffer "*Flycheck errors*"
- "The name of the buffer to show error lists.")
-
-(defvar flycheck-error-list-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map (kbd "f") #'flycheck-error-list-set-filter)
- (define-key map (kbd "F") #'flycheck-error-list-reset-filter)
- (define-key map (kbd "n") #'flycheck-error-list-next-error)
- (define-key map (kbd "p") #'flycheck-error-list-previous-error)
- (define-key map (kbd "g") #'flycheck-error-list-check-source)
- (define-key map (kbd "e") #'flycheck-error-list-explain-error)
- (define-key map (kbd "RET") #'flycheck-error-list-goto-error)
- map)
- "The keymap of `flycheck-error-list-mode'.")
-
-(defun flycheck-error-list-make-last-column (message checker)
- "Compute contents of the last error list cell.
-
-MESSAGE and CHECKER are displayed in a single column to allow the
-message to stretch arbitrarily far."
- (let ((checker-name (propertize (symbol-name checker)
- 'face 'flycheck-error-list-checker-name)))
- (format "%s (%s)" message checker-name)))
-
-(defconst flycheck-error-list-format
- `[("File" 6)
- ("Line" 5 flycheck-error-list-entry-< :right-align t)
- ("Col" 3 nil :right-align t)
- ("Level" 8 flycheck-error-list-entry-level-<)
- ("ID" 6 t)
- (,(flycheck-error-list-make-last-column "Message" 'Checker) 0 t)]
- "Table format for the error list.")
-
-(defconst flycheck-error-list-padding 1
- "Padding used in error list.")
-
-(defconst flycheck--error-list-msg-offset
- (seq-reduce
- (lambda (offset fmt)
- (pcase-let* ((`(,_ ,width ,_ . ,props) fmt)
- (padding (or (plist-get props :pad-right) 1)))
- (+ offset width padding)))
- (seq-subseq flycheck-error-list-format 0 -1)
- flycheck-error-list-padding)
- "Amount of space to use in `flycheck-flush-multiline-message'.")
-
-(define-derived-mode flycheck-error-list-mode tabulated-list-mode
- "Flycheck errors"
- "Major mode for listing Flycheck errors.
-
-\\{flycheck-error-list-mode-map}"
- (setq tabulated-list-format flycheck-error-list-format
- ;; Sort by location initially
- tabulated-list-sort-key (cons "Line" nil)
- tabulated-list-padding flycheck-error-list-padding
- tabulated-list-entries #'flycheck-error-list-entries
- ;; `revert-buffer' updates the mode line for us, so all we need to do is
- ;; set the corresponding mode line construct.
- mode-line-buffer-identification flycheck-error-list-mode-line)
- ;; Guard `truncate-string-ellipsis' for Emacs 24.
- ;; TODO: Remove when dropping Emacs 24 compatibility
- (when (boundp 'truncate-string-ellipsis)
- ;; See https://github.com/flycheck/flycheck/issues/1101
- (setq-local truncate-string-ellipsis "…"))
- (tabulated-list-init-header))
-
-(defvar-local flycheck-error-list-source-buffer nil
- "The current source buffer of the error list.")
-;; Needs to permanently local to preserve the source buffer across buffer
-;; reversions
-(put 'flycheck-error-list-source-buffer 'permanent-local t)
-
-(defun flycheck-error-list-set-source (buffer)
- "Set BUFFER as the source buffer of the error list."
- (when (get-buffer flycheck-error-list-buffer)
- (with-current-buffer flycheck-error-list-buffer
- ;; Only update the source when required
- (unless (eq buffer flycheck-error-list-source-buffer)
- (setq flycheck-error-list-source-buffer buffer)
- (flycheck-error-list-refresh)))))
-
-(defun flycheck-error-list-update-source ()
- "Update the source buffer of the error list."
- (when (not (eq (current-buffer) (get-buffer flycheck-error-list-buffer)))
- ;; We must not update the source buffer, if the current buffer is the error
- ;; list itself.
- (flycheck-error-list-set-source (current-buffer))))
-
-(defun flycheck-error-list-check-source ()
- "Trigger a syntax check in the source buffer of the error list."
- (interactive)
- (let ((buffer (get-buffer flycheck-error-list-source-buffer)))
- (when (buffer-live-p buffer)
- (with-current-buffer buffer
- (flycheck-buffer)))))
-
-(define-button-type 'flycheck-error-list
- 'action #'flycheck-error-list-button-goto-error
- 'help-echo "mouse-2, RET: goto error"
- 'face nil)
-
-(defun flycheck-error-list-button-goto-error (button)
- "Go to the error at BUTTON."
- (flycheck-error-list-goto-error (button-start button)))
-
-(define-button-type 'flycheck-error-list-explain-error
- 'action #'flycheck-error-list-button-explain-error
- 'help-echo "mouse-2, RET: explain error")
-
-(defun flycheck-error-list-button-explain-error (button)
- "Explain the error at BUTTON."
- (flycheck-error-list-explain-error (button-start button)))
-
-(defsubst flycheck-error-list-make-cell (text &optional face help-echo type)
- "Make an error list cell with TEXT and FACE.
-
-If FACE is nil don't set a FACE on TEXT. If TEXT already has
-face properties, do not specify a FACE. Note though, that if
-TEXT gets truncated it will not inherit any previous face
-properties. If you expect TEXT to be truncated in the error
-list, do specify a FACE explicitly!
-
-If HELP-ECHO is non-nil, set a help-echo property on TEXT, with
-value HELP-ECHO. This is convenient if you expect TEXT to be
-truncated.
-
-The cell will have the type TYPE unless TYPE is nil, and the
-default type `flycheck-error-list' will be used instead."
- (append (list text 'type (if type type
- 'flycheck-error-list))
- (and face (list 'face face))
- (and help-echo (list 'help-echo help-echo))))
-
-(defsubst flycheck-error-list-make-number-cell (number face)
- "Make a table cell for a NUMBER with FACE.
-
-Convert NUMBER to string, fontify it with FACE and return the
-string with attached text properties."
- (flycheck-error-list-make-cell
- (if (numberp number) (number-to-string number) "")
- face))
-
-(defun flycheck-error-list-make-entry (error)
- "Make a table cell for the given ERROR.
-
-Return a list with the contents of the table cell."
- (let* ((level (flycheck-error-level error))
- (level-face (flycheck-error-level-error-list-face level))
- (filename (flycheck-error-filename error))
- (line (flycheck-error-line error))
- (column (flycheck-error-column error))
- (message (or (flycheck-error-message error)
- (format "Unknown %s" (symbol-name level))))
- (flushed-msg (flycheck-flush-multiline-message message))
- (id (flycheck-error-id error))
- (id-str (if id (format "%s" id) ""))
- (checker (flycheck-error-checker error))
- (msg-and-checker
- (flycheck-error-list-make-last-column flushed-msg checker))
- (explainer (flycheck-checker-get checker 'error-explainer)))
- (list error
- (vector (flycheck-error-list-make-cell
- (if filename
- (file-name-nondirectory filename)
- "")
- 'flycheck-error-list-filename)
- (flycheck-error-list-make-number-cell
- line 'flycheck-error-list-line-number)
- (flycheck-error-list-make-number-cell
- column 'flycheck-error-list-column-number)
- (flycheck-error-list-make-cell
- (symbol-name (flycheck-error-level error)) level-face)
- ;; Error ID use a different face when an error-explainer is
- ;; present
- (flycheck-error-list-make-cell
- id-str (if explainer 'flycheck-error-list-id-with-explainer
- 'flycheck-error-list-id)
- id-str 'flycheck-error-list-explain-error)
- (flycheck-error-list-make-cell
- msg-and-checker nil msg-and-checker)))))
-
-(defun flycheck-flush-multiline-message (msg)
- "Prepare error message MSG for display in the error list.
-
-Prepend all lines of MSG except the first with enough space to
-ensure that they line up properly once the message is displayed."
- (let* ((spc-spec `(space . (:width ,flycheck--error-list-msg-offset)))
- (spc (propertize " " 'display spc-spec))
- (rep (concat "\\1" spc "\\2")))
- (replace-regexp-in-string "\\([\r\n]+\\)\\(.\\)" rep msg)))
-
-(defun flycheck-error-list-current-errors ()
- "Read the list of errors in `flycheck-error-list-source-buffer'."
- (when (buffer-live-p flycheck-error-list-source-buffer)
- (buffer-local-value 'flycheck-current-errors
- flycheck-error-list-source-buffer)))
-
-(defun flycheck-error-list-entries ()
- "Create the entries for the error list."
- (-when-let* ((errors (flycheck-error-list-current-errors))
- (filtered (flycheck-error-list-apply-filter errors)))
- (seq-map #'flycheck-error-list-make-entry filtered)))
-
-(defun flycheck-error-list-entry-< (entry1 entry2)
- "Determine whether ENTRY1 is before ENTRY2 by location.
-
-See `flycheck-error-<'."
- (flycheck-error-< (car entry1) (car entry2)))
-
-(defun flycheck-error-list-entry-level-< (entry1 entry2)
- "Determine whether ENTRY1 is before ENTRY2 by level.
-
-See `flycheck-error-level-<'."
- (not (flycheck-error-level-< (car entry1) (car entry2))))
-
-(defvar flycheck-error-list-mode-line-map
- (let ((map (make-sparse-keymap)))
- (define-key map [mode-line mouse-1]
- #'flycheck-error-list-mouse-switch-to-source)
- map)
- "Keymap for error list mode line.")
-
-(defun flycheck-error-list-propertized-source-name ()
- "Get the name of the current source buffer for the mode line.
-
-Propertize the name of the current source buffer for use in the
-mode line indication of `flycheck-error-list-mode'."
- (let ((name (replace-regexp-in-string
- (rx "%") "%%"
- (buffer-name flycheck-error-list-source-buffer)
- 'fixed-case 'literal)))
- (propertize name 'face 'mode-line-buffer-id
- 'mouse-face 'mode-line-highlight
- 'help-echo "mouse-1: switch to source"
- 'local-map flycheck-error-list-mode-line-map)))
-
-(defun flycheck-error-list-mouse-switch-to-source (event)
- "Switch to the error list source buffer of the EVENT window."
- (interactive "e")
- (save-selected-window
- (when (eventp event)
- (select-window (posn-window (event-start event))))
- (when (buffer-live-p flycheck-error-list-source-buffer)
- (switch-to-buffer flycheck-error-list-source-buffer))))
-
-(defun flycheck-get-error-list-window-list (&optional all-frames)
- "Get all windows displaying the error list.
-
-ALL-FRAMES specifies the frames to consider, as in
-`get-buffer-window-list'."
- (-when-let (buf (get-buffer flycheck-error-list-buffer))
- (get-buffer-window-list buf nil all-frames)))
-
-(defun flycheck-get-error-list-window (&optional all-frames)
- "Get a window displaying the error list, or nil if none.
-
-ALL-FRAMES specifies the frames to consider, as in
-`get-buffer-window'."
- (-when-let (buf (get-buffer flycheck-error-list-buffer))
- (get-buffer-window buf all-frames)))
-
-(defun flycheck-error-list-recenter-at (pos)
- "Recenter the error list at POS."
- (dolist (window (flycheck-get-error-list-window-list t))
- (with-selected-window window
- (goto-char pos)
- (let ((recenter-redisplay nil))
- (recenter)))))
-
-(defun flycheck-error-list-refresh ()
- "Refresh the current error list.
-
-Add all errors currently reported for the current
-`flycheck-error-list-source-buffer', and recenter the error
-list."
- ;; We only refresh the error list, when it is visible in a window, and we
- ;; select this window while reverting, because Tabulated List mode attempts to
- ;; recenter the error at the old location, so it must have the proper window
- ;; selected.
- (-when-let (window (flycheck-get-error-list-window t))
- (with-selected-window window
- (revert-buffer))
- (run-hooks 'flycheck-error-list-after-refresh-hook)
- (let ((preserve-pos (eq (current-buffer)
- (get-buffer flycheck-error-list-buffer))))
- ;; If the error list is the current buffer, don't recenter when
- ;; highlighting
- (flycheck-error-list-highlight-errors preserve-pos))))
-
-(defun flycheck-error-list-mode-line-filter-indicator ()
- "Create a string representing the current error list filter."
- (if flycheck-error-list-minimum-level
- (format " [>= %s]" flycheck-error-list-minimum-level)
- ""))
-
-(defun flycheck-error-list-set-filter (level)
- "Restrict the error list to errors at level LEVEL or higher.
-
-LEVEL is either an error level symbol, or nil, to remove the filter."
- (interactive
- (list (read-flycheck-error-level
- "Minimum error level (errors at lower levels will be hidden): ")))
- (when (and level (not (flycheck-error-level-p level)))
- (user-error "Invalid level: %s" level))
- (-when-let (buf (get-buffer flycheck-error-list-buffer))
- (with-current-buffer buf
- (setq-local flycheck-error-list-minimum-level level))
- (flycheck-error-list-refresh)
- (flycheck-error-list-recenter-at (point-min))))
-
-(defun flycheck-error-list-reset-filter ()
- "Remove filters and show all errors in the error list."
- (interactive)
- (kill-local-variable 'flycheck-error-list-minimum-level))
-
-(defun flycheck-error-list-apply-filter (errors)
- "Filter ERRORS according to `flycheck-error-list-minimum-level'."
- (-if-let* ((min-level flycheck-error-list-minimum-level)
- (min-severity (flycheck-error-level-severity min-level)))
- (seq-filter (lambda (err) (>= (flycheck-error-level-severity
- (flycheck-error-level err))
- min-severity))
- errors)
- errors))
-
-(defun flycheck-error-list-goto-error (&optional pos)
- "Go to the location of the error at POS in the error list.
-
-POS defaults to `point'."
- (interactive)
- (-when-let* ((error (tabulated-list-get-id pos)))
- (flycheck-jump-to-error error)))
-
-(defun flycheck-jump-to-error (error)
- "Go to the location of ERROR."
- (let* ((error-copy (copy-flycheck-error error))
- (filename (flycheck-error-filename error))
- (other-file-error (flycheck-relevant-error-other-file-p error))
- (buffer (if filename
- (find-file-noselect filename)
- (flycheck-error-buffer error))))
- (when (buffer-live-p buffer)
- (setf (flycheck-error-buffer error-copy) buffer)
- (flycheck-jump-in-buffer buffer error-copy)
- ;; When jumping to an error in another file, it may not have
- ;; this error available for highlighting yet, so we trigger a check
- ;; if necessary.
- (when other-file-error
- (with-current-buffer buffer
- (unless (seq-contains flycheck-current-errors error-copy 'equal)
- (when flycheck-mode
- (flycheck-buffer))))))))
-
-(defun flycheck-jump-in-buffer (buffer error)
- "In BUFFER, jump to ERROR."
- ;; FIXME: we assume BUFFER and the buffer of ERROR are the same. We don't
- ;; need the first argument then.
- (if (eq (window-buffer) (get-buffer flycheck-error-list-buffer))
- ;; When called from within the error list, keep the error list,
- ;; otherwise replace the current buffer.
- (pop-to-buffer buffer 'other-window)
- (switch-to-buffer buffer))
- (let ((pos (flycheck-error-pos error)))
- (unless (eq (goto-char pos) (point))
- ;; If widening gets in the way of moving to the right place, remove it
- ;; and try again
- (widen)
- (goto-char pos)))
- ;; Re-highlight the errors
- (flycheck-error-list-highlight-errors 'preserve-pos))
-
-(defun flycheck-error-list-explain-error (&optional pos)
- "Explain the error at POS in the error list.
-
-POS defaults to `point'."
- (interactive)
- (-when-let* ((error (tabulated-list-get-id pos))
- (explainer (flycheck-checker-get (flycheck-error-checker error)
- 'error-explainer))
- (explanation (funcall explainer error)))
- (flycheck-display-error-explanation explanation)))
-
-(defun flycheck-error-list-next-error-pos (pos &optional n)
- "Starting from POS get the N'th next error in the error list.
-
-N defaults to 1. If N is negative, search for the previous error
-instead.
-
-Get the beginning position of the N'th next error from POS, or
-nil, if there is no next error."
- (let ((n (or n 1)))
- (if (>= n 0)
- ;; Search forward
- (while (and pos (/= n 0))
- (setq n (1- n))
- (setq pos (next-single-property-change pos 'tabulated-list-id)))
- ;; Search backwards
- (while (/= n 0)
- (setq n (1+ n))
- ;; We explicitly give the limit here to explicitly have the minimum
- ;; point returned, to be able to move to the first error (which starts
- ;; at `point-min')
- (setq pos (previous-single-property-change pos 'tabulated-list-id
- nil (point-min)))))
- pos))
-
-(defun flycheck-error-list-previous-error (n)
- "Go to the N'th previous error in the error list."
- (interactive "P")
- (flycheck-error-list-next-error (- (or n 1))))
-
-(defun flycheck-error-list-next-error (n)
- "Go to the N'th next error in the error list."
- (interactive "P")
- (let ((pos (flycheck-error-list-next-error-pos (point) n)))
- (when (and pos (/= pos (point)))
- (goto-char pos)
- (save-selected-window
- ;; Keep the error list selected, so that the user can navigate errors by
- ;; repeatedly pressing n/p, without having to re-select the error list
- ;; window.
- (flycheck-error-list-goto-error)))))
-
-(defvar-local flycheck-error-list-highlight-overlays nil
- "Error highlight overlays in the error list buffer.")
-(put 'flycheck-error-list-highlight-overlays 'permanent-local t)
-
-(defun flycheck-error-list-highlight-errors (&optional preserve-pos)
- "Highlight errors in the error list.
-
-Highlight all errors in the error lists that are at point in the
-source buffer, and on the same line as point. Then recenter the
-error list to the highlighted error, unless PRESERVE-POS is
-non-nil."
- (when (get-buffer flycheck-error-list-buffer)
- (let ((current-errors (flycheck-overlay-errors-in (line-beginning-position)
- (line-end-position))))
- (with-current-buffer flycheck-error-list-buffer
- (let ((old-overlays flycheck-error-list-highlight-overlays)
- (min-point (point-max))
- (max-point (point-min)))
- ;; Display the new overlays first, to avoid re-display flickering
- (setq flycheck-error-list-highlight-overlays nil)
- (when current-errors
- (let ((next-error-pos (point-min)))
- (while next-error-pos
- (let* ((beg next-error-pos)
- (end (flycheck-error-list-next-error-pos beg))
- (err (tabulated-list-get-id beg)))
- (when (member err current-errors)
- (setq min-point (min min-point beg)
- max-point (max max-point beg))
- (let ((ov (make-overlay beg
- ;; Extend overlay to the beginning
- ;; of the next line, to highlight
- ;; the whole line
- (or end (point-max)))))
- (push ov flycheck-error-list-highlight-overlays)
- (setf (overlay-get ov 'flycheck-error-highlight-overlay)
- t)
- (setf (overlay-get ov 'face)
- 'flycheck-error-list-highlight)))
- (setq next-error-pos end)))))
- ;; Delete the old overlays
- (seq-do #'delete-overlay old-overlays)
- (when (and (not preserve-pos) current-errors)
- ;; Move point to the middle error
- (goto-char (+ min-point (/ (- max-point min-point) 2)))
- (beginning-of-line)
- ;; And recenter the error list at this position
- (flycheck-error-list-recenter-at (point))))))))
-
-(defun flycheck-list-errors ()
- "Show the error list for the current buffer."
- (interactive)
- (unless flycheck-mode
- (user-error "Flycheck mode not enabled"))
- ;; Create and initialize the error list
- (unless (get-buffer flycheck-error-list-buffer)
- (with-current-buffer (get-buffer-create flycheck-error-list-buffer)
- (flycheck-error-list-mode)))
- (flycheck-error-list-set-source (current-buffer))
- ;; Reset the error filter
- (flycheck-error-list-reset-filter)
- ;; Show the error list in a window, and re-select the old window
- (display-buffer flycheck-error-list-buffer)
- ;; Finally, refresh the error list to show the most recent errors
- (flycheck-error-list-refresh))
-
-(defalias 'list-flycheck-errors 'flycheck-list-errors)
-
-
-;;; Displaying errors in the current buffer
-(defun flycheck-display-errors (errors)
- "Display ERRORS using `flycheck-display-errors-function'."
- (when flycheck-display-errors-function
- (funcall flycheck-display-errors-function errors)))
-
-(defvar-local flycheck-display-error-at-point-timer nil
- "Timer to automatically show the error at point in minibuffer.")
-
-(defun flycheck-cancel-error-display-error-at-point-timer ()
- "Cancel the error display timer for the current buffer."
- (when flycheck-display-error-at-point-timer
- (cancel-timer flycheck-display-error-at-point-timer)
- (setq flycheck-display-error-at-point-timer nil)))
-
-(defun flycheck-display-error-at-point ()
- "Display the all error messages at point in minibuffer."
- (interactive)
- ;; This function runs from a timer, so we must take care to not ignore any
- ;; errors
- (with-demoted-errors "Flycheck error display error: %s"
- (flycheck-cancel-error-display-error-at-point-timer)
- (when flycheck-mode
- (-when-let (errors (flycheck-overlay-errors-at (point)))
- (flycheck-display-errors errors)))))
-
-(defun flycheck-display-error-at-point-soon ()
- "Display the first error message at point in minibuffer delayed."
- (flycheck-cancel-error-display-error-at-point-timer)
- (when (flycheck-overlays-at (point))
- (setq flycheck-display-error-at-point-timer
- (run-at-time flycheck-display-errors-delay nil
- 'flycheck-display-error-at-point))))
-
-
-;;; Functions to display errors
-(defconst flycheck-error-message-buffer "*Flycheck error messages*"
- "The name of the buffer to show long error messages in.")
-
-(defun flycheck-error-message-buffer ()
- "Get the buffer object to show long error messages in.
-
-Get the buffer named by variable `flycheck-error-message-buffer',
-or nil if the buffer does not exist."
- (get-buffer flycheck-error-message-buffer))
-
-(defun flycheck-may-use-echo-area-p ()
- "Determine whether the echo area may be used.
-
-The echo area may be used if the cursor is not in the echo area,
-and if the echo area is not occupied by minibuffer input."
- (not (or cursor-in-echo-area (active-minibuffer-window))))
-
-(defun flycheck-display-error-messages (errors)
- "Display the messages of ERRORS.
-
-Concatenate all non-nil messages of ERRORS separated by empty
-lines, and display them with `display-message-or-buffer', which
-shows the messages either in the echo area or in a separate
-buffer, depending on the number of lines. See Info
-node `(elisp)Displaying Messages' for more information.
-
-In the latter case, show messages in the buffer denoted by
-variable `flycheck-error-message-buffer'."
- (when (and errors (flycheck-may-use-echo-area-p))
- (let ((messages (seq-map #'flycheck-error-format-message-and-id errors)))
- (display-message-or-buffer (string-join messages "\n\n")
- flycheck-error-message-buffer
- 'not-this-window))))
-
-(defun flycheck-display-error-messages-unless-error-list (errors)
- "Show messages of ERRORS unless the error list is visible.
-
-Like `flycheck-display-error-messages', but only if the error
-list (see `flycheck-list-errors') is not visible in any window in
-the current frame."
- (unless (flycheck-get-error-list-window 'current-frame)
- (flycheck-display-error-messages errors)))
-
-(defun flycheck-hide-error-buffer ()
- "Hide the Flycheck error buffer if necessary.
-
-Hide the error buffer if there is no error under point."
- (-when-let* ((buffer (flycheck-error-message-buffer))
- (window (get-buffer-window buffer)))
- (unless (flycheck-overlays-at (point))
- ;; save-selected-window prevents `quit-window' from changing the current
- ;; buffer (see https://github.com/flycheck/flycheck/issues/648).
- (save-selected-window
- (quit-window nil window)))))
-
-
-;;; Working with errors
-(defun flycheck-copy-errors-as-kill (pos &optional formatter)
- "Copy each error at POS into kill ring, using FORMATTER.
-
-FORMATTER is a function to turn an error into a string,
-defaulting to `flycheck-error-message'.
-
-Interactively, use `flycheck-error-format-message-and-id' as
-FORMATTER with universal prefix arg, and `flycheck-error-id' with
-normal prefix arg, i.e. copy the message and the ID with
-universal prefix arg, and only the id with normal prefix arg."
- (interactive (list (point)
- (pcase current-prefix-arg
- ((pred not) #'flycheck-error-message)
- ((pred consp) #'flycheck-error-format-message-and-id)
- (_ #'flycheck-error-id))))
- (let ((messages (delq nil (seq-map (or formatter #'flycheck-error-message)
- (flycheck-overlay-errors-at pos)))))
- (when messages
- (seq-do #'kill-new (reverse messages))
- (message (string-join messages "\n")))))
-
-(defun flycheck-explain-error-at-point ()
- "Display an explanation for the first explainable error at point.
-
-The first explainable error at point is the first error at point
-with a non-nil `:error-explainer' function defined in its
-checker. The `:error-explainer' function is then called with
-this error to produce the explanation to display."
- (interactive)
- (-when-let* ((first-error
- ;; Get the first error at point that has an `error-explainer'.
- (seq-find (lambda (error)
- (flycheck-checker-get
- (flycheck-error-checker error) 'error-explainer))
- (flycheck-overlay-errors-at (point))))
- (explainer
- (flycheck-checker-get (flycheck-error-checker first-error)
- 'error-explainer))
- (explanation (funcall explainer first-error)))
- (flycheck-display-error-explanation explanation)))
-
-(defconst flycheck-explain-error-buffer "*Flycheck error explanation*"
- "The name of the buffer to show error explanations.")
-
-(defun flycheck-display-error-explanation (explanation)
- "Display the EXPLANATION string in a help buffer."
- (with-help-window (get-buffer-create flycheck-explain-error-buffer)
- (princ explanation)))
-
-
-;;; Syntax checkers using external commands
-(defun flycheck-command-argument-p (arg)
- "Check whether ARG is a valid command argument."
- (pcase arg
- ((pred stringp) t)
- ((or `source `source-inplace `source-original) t)
- ((or `temporary-directory `temporary-file-name) t)
- (`null-device t)
- (`(config-file ,option-name ,config-file-var)
- (and (stringp option-name)
- (symbolp config-file-var)))
- (`(config-file ,option-name ,config-file-var ,prepender)
- (and (stringp option-name)
- (symbolp config-file-var)
- (symbolp prepender)))
- (`(,(or `option `option-list) ,option-name ,option-var)
- (and (stringp option-name)
- (symbolp option-var)))
- (`(,(or `option `option-list) ,option-name ,option-var ,prepender)
- (and (stringp option-name)
- (symbolp option-var)
- (symbolp prepender)))
- (`(,(or `option `option-list) ,option-name ,option-var ,prepender ,filter)
- (and (stringp option-name)
- (symbolp option-var)
- (symbolp prepender)
- (symbolp filter)))
- (`(option-flag ,option-name ,option-var)
- (and (stringp option-name)
- (symbolp option-var)))
- (`(eval ,_) t)
- (_ nil)))
-
-(defun flycheck-compute-working-directory (checker)
- "Get the default working directory for CHECKER.
-
-Compute the value of `default-directory' for the invocation of
-the syntax checker command, by calling the function in the
-`working-directory' property of CHECKER, with CHECKER as sole
-argument, and returning its value. Signal an error if the
-function returns a non-existing working directory.
-
-If the property is undefined or if the function returns nil
-return the `default-directory' of the current buffer."
- (let* ((def-directory-fn (flycheck-checker-get checker 'working-directory))
- (directory (or (and def-directory-fn
- (funcall def-directory-fn checker))
- ;; Default to the `default-directory' of the current
- ;; buffer
- default-directory)))
- (unless (file-exists-p directory)
- (error ":working-directory %s of syntax checker %S does not exist"
- directory checker))
- directory))
-
-;;;###autoload
-(defun flycheck-define-command-checker (symbol docstring &rest properties)
- "Define SYMBOL as syntax checker to run a command.
-
-Define SYMBOL as generic syntax checker via
-`flycheck-define-generic-checker', which uses an external command
-to check the buffer. SYMBOL and DOCSTRING are the same as for
-`flycheck-define-generic-checker'.
-
-In addition to the properties understood by
-`flycheck-define-generic-checker', the following PROPERTIES
-constitute a command syntax checker. Unless otherwise noted, all
-properties are mandatory. Note that the default `:error-filter'
-of command checkers is `flycheck-sanitize-errors'.
-
-`:command COMMAND'
- The command to run for syntax checking.
-
- COMMAND is a list of the form `(EXECUTABLE [ARG ...])'.
-
- EXECUTABLE is a string with the executable of this syntax
- checker. It can be overridden with the variable
- `flycheck-SYMBOL-executable'. Note that this variable is
- NOT implicitly defined by this function. Use
- `flycheck-def-executable-var' to define this variable.
-
- Each ARG is an argument to the executable, either as string,
- or as special symbol or form for
- `flycheck-substitute-argument', which see.
-
-`:error-patterns PATTERNS'
- A list of patterns to parse the output of the `:command'.
-
- Each ITEM in PATTERNS is a list `(LEVEL SEXP ...)', where
- LEVEL is a Flycheck error level (see
- `flycheck-define-error-level'), followed by one or more RX
- `SEXP's which parse an error of that level and extract line,
- column, file name and the message.
-
- See `rx' for general information about RX, and
- `flycheck-rx-to-string' for some special RX forms provided
- by Flycheck.
-
- All patterns are applied in the order of declaration to the
- whole output of the syntax checker. Output already matched
- by a pattern will not be matched by subsequent patterns. In
- other words, the first pattern wins.
-
- This property is optional. If omitted, however, an
- `:error-parser' is mandatory.
-
-`:error-parser FUNCTION'
- A function to parse errors with.
-
- The function shall accept three arguments OUTPUT CHECKER
- BUFFER. OUTPUT is the syntax checker output as string,
- CHECKER the syntax checker that was used, and BUFFER a
- buffer object representing the checked buffer. The function
- must return a list of `flycheck-error' objects parsed from
- OUTPUT.
-
- This property is optional. If omitted, it defaults to
- `flycheck-parse-with-patterns'. In this case,
- `:error-patterns' is mandatory.
-
-`:standard-input t'
- Whether to send the buffer contents on standard input.
-
- If this property is given and has a non-nil value, send the
- contents of the buffer on standard input.
-
- Defaults to nil.
-
-Note that you may not give `:start', `:interrupt', and
-`:print-doc' for a command checker. You can give a custom
-`:verify' function, though, whose results will be appended to the
-default `:verify' function of command checkers."
- (declare (indent 1)
- (doc-string 2))
- (dolist (prop '(:start :interrupt :print-doc))
- (when (plist-get properties prop)
- (error "%s not allowed in definition of command syntax checker %s"
- prop symbol)))
-
- (unless (plist-get properties :error-filter)
- ;; Default to `flycheck-sanitize-errors' as error filter
- (setq properties (plist-put properties :error-filter
- #'flycheck-sanitize-errors)))
- (let ((verify-fn (plist-get properties :verify)))
- (setq properties
- (plist-put properties :verify
- (lambda (checker)
- (append (flycheck-verify-command-checker checker)
- (and verify-fn
- (funcall verify-fn checker)))))))
-
- (let ((command (plist-get properties :command))
- (patterns (plist-get properties :error-patterns))
- (parser (or (plist-get properties :error-parser)
- #'flycheck-parse-with-patterns))
- (enabled (plist-get properties :enabled))
- (standard-input (plist-get properties :standard-input)))
- (unless command
- (error "Missing :command in syntax checker %s" symbol))
- (unless (stringp (car command))
- (error "Command executable for syntax checker %s must be a string: %S"
- symbol (car command)))
- (dolist (arg (cdr command))
- (unless (flycheck-command-argument-p arg)
- (error "Invalid command argument %S in syntax checker %s" arg symbol)))
- (when (and (eq parser 'flycheck-parse-with-patterns)
- (not patterns))
- (error "Missing :error-patterns in syntax checker %s" symbol))
-
- (setq properties
- ;; Automatically disable command checkers if the executable does not
- ;; exist.
- (plist-put properties :enabled
- (lambda ()
- (and (flycheck-find-checker-executable symbol)
- (flycheck-temp-files-writable-p symbol)
- (or (not enabled) (funcall enabled))))))
-
- (apply #'flycheck-define-generic-checker symbol docstring
- :start #'flycheck-start-command-checker
- :interrupt #'flycheck-interrupt-command-checker
- :print-doc #'flycheck-command-checker-print-doc
- properties)
-
- ;; Pre-compile all errors patterns into strings, so that we don't need to do
- ;; that on each error parse
- (let ((patterns (seq-map (lambda (p)
- (cons (flycheck-rx-to-string `(and ,@(cdr p))
- 'no-group)
- (car p)))
- patterns)))
- (pcase-dolist (`(,prop . ,value)
- `((command . ,command)
- (error-parser . ,parser)
- (error-patterns . ,patterns)
- (standard-input . ,standard-input)))
- (setf (flycheck-checker-get symbol prop) value)))))
-
-(eval-and-compile
- ;; Make this function available during byte-compilation, since we need it
- ;; at macro expansion of `flycheck-def-executable-var'.
- (defun flycheck-checker-executable-variable (checker)
- "Get the executable variable of CHECKER.
-
-The executable variable is named `flycheck-CHECKER-executable'."
- (intern (format "flycheck-%s-executable" checker))))
-
-(defun flycheck-checker-default-executable (checker)
- "Get the default executable of CHECKER."
- (car (flycheck-checker-get checker 'command)))
-
-(defun flycheck-checker-executable (checker)
- "Get the command executable of CHECKER.
-
-The executable is either the value of the variable
-`flycheck-CHECKER-executable', or the default executable given in
-the syntax checker definition, if the variable is nil."
- (let ((var (flycheck-checker-executable-variable checker)))
- (or (and (boundp var) (symbol-value var))
- (flycheck-checker-default-executable checker))))
-
-(defun flycheck-find-checker-executable (checker)
- "Get the full path of the executable of CHECKER.
-
-Return the full absolute path to the executable of CHECKER, or
-nil if the executable does not exist."
- (funcall flycheck-executable-find (flycheck-checker-executable checker)))
-
-(defun flycheck-checker-arguments (checker)
- "Get the command arguments of CHECKER."
- (cdr (flycheck-checker-get checker 'command)))
-
-(defun flycheck-substitute-argument (arg checker)
- "Substitute ARG for CHECKER.
-
-Return a list of real arguments for the executable of CHECKER,
-substituted for the symbolic argument ARG. Single arguments,
-e.g. if ARG is a literal strings, are wrapped in a list.
-
-ARG may be one of the following forms:
-
-STRING
- Return ARG unchanged.
-
-`source', `source-inplace'
- Create a temporary file to check and return its path. With
- `source-inplace' create the temporary file in the same
- directory as the original file. The value of
- `flycheck-temp-prefix' is used as prefix of the file name.
-
- With `source', try to retain the non-directory component of
- the buffer's file name in the temporary file.
-
- `source' is the preferred way to pass the input file to a
- syntax checker. `source-inplace' should only be used if the
- syntax checker needs other files from the source directory,
- such as include files in C.
-
-`source-original'
- Return the path of the actual file to check, or an empty
- string if the buffer has no file name.
-
- Note that the contents of the file may not be up to date
- with the contents of the buffer to check. Do not use this
- as primary input to a checker, unless absolutely necessary.
-
- When using this symbol as primary input to the syntax
- checker, add `flycheck-buffer-saved-p' to the `:predicate'.
-
-`temporary-directory'
- Create a unique temporary directory and return its path.
-
-`temporary-file-name'
- Return a unique temporary filename. The file is *not*
- created.
-
- To ignore the output of syntax checkers, try `null-device'
- first.
-
-`null-device'
- Return the value of `null-device', i.e the system null
- device.
-
- Use this option to ignore the output of a syntax checker.
- If the syntax checker cannot handle the null device, or
- won't write to an existing file, try `temporary-file-name'
- instead.
-
-`(config-file OPTION VARIABLE [PREPEND-FN])'
- Search the configuration file bound to VARIABLE with
- `flycheck-locate-config-file' and return a list of arguments
- that pass this configuration file to the syntax checker, or
- nil if the configuration file was not found.
-
- PREPEND-FN is called with the OPTION and the located
- configuration file, and should return OPTION prepended
- before the file, either a string or as list. If omitted,
- PREPEND-FN defaults to `list'.
-
-`(option OPTION VARIABLE [PREPEND-FN [FILTER]])'
- Retrieve the value of VARIABLE and return a list of
- arguments that pass this value as value for OPTION to the
- syntax checker.
-
- PREPEND-FN is called with the OPTION and the value of
- VARIABLE, and should return OPTION prepended before the
- file, either a string or as list. If omitted, PREPEND-FN
- defaults to `list'.
-
- FILTER is an optional function to be applied to the value of
- VARIABLE before prepending. This function must return nil
- or a string. In the former case, return nil. In the latter
- case, return a list of arguments as described above.
-
-`(option-list OPTION VARIABLE [PREPEND-FN [FILTER]])'
- Retrieve the value of VARIABLE, which must be a list,
- and prepend OPTION before each item in this list, using
- PREPEND-FN.
-
- PREPEND-FN is called with the OPTION and each item of the
- list as second argument, and should return OPTION prepended
- before the item, either as string or as list. If omitted,
- PREPEND-FN defaults to `list'.
-
- FILTER is an optional function to be applied to each item in
- the list before prepending OPTION. It shall return the
- option value for each item as string, or nil, if the item is
- to be ignored.
-
-`(option-flag OPTION VARIABLE)'
- Retrieve the value of VARIABLE and return OPTION, if the
- value is non-nil. Otherwise return nil.
-
-`(eval FORM)'
- Return the result of evaluating FORM in the buffer to be
- checked. FORM must either return a string or a list of
- strings, or nil to indicate that nothing should be
- substituted for CELL. For all other return types, signal an
- error
-
- _No_ further substitutions are performed, neither in FORM
- before it is evaluated, nor in the result of evaluating
- FORM.
-
-In all other cases, signal an error.
-
-Note that substitution is *not* recursive. No symbols or cells
-are substituted within the body of cells!"
- (pcase arg
- ((pred stringp) (list arg))
- (`source
- (list (flycheck-save-buffer-to-temp #'flycheck-temp-file-system)))
- (`source-inplace
- (list (flycheck-save-buffer-to-temp #'flycheck-temp-file-inplace)))
- (`source-original (list (or (buffer-file-name) "")))
- (`temporary-directory (list (flycheck-temp-dir-system)))
- (`temporary-file-name
- (let ((directory (flycheck-temp-dir-system)))
- (list (make-temp-name (expand-file-name "flycheck" directory)))))
- (`null-device (list null-device))
- (`(config-file ,option-name ,file-name-var)
- (-when-let* ((value (symbol-value file-name-var))
- (file-name (flycheck-locate-config-file value checker)))
- (flycheck-prepend-with-option option-name (list file-name))))
- (`(config-file ,option-name ,file-name-var ,prepend-fn)
- (-when-let* ((value (symbol-value file-name-var))
- (file-name (flycheck-locate-config-file value checker)))
- (flycheck-prepend-with-option option-name (list file-name) prepend-fn)))
- (`(option ,option-name ,variable)
- (-when-let (value (symbol-value variable))
- (unless (stringp value)
- (error "Value %S of %S for option %s is not a string"
- value variable option-name))
- (flycheck-prepend-with-option option-name (list value))))
- (`(option ,option-name ,variable ,prepend-fn)
- (-when-let (value (symbol-value variable))
- (unless (stringp value)
- (error "Value %S of %S for option %s is not a string"
- value variable option-name))
- (flycheck-prepend-with-option option-name (list value) prepend-fn)))
- (`(option ,option-name ,variable ,prepend-fn ,filter)
- (-when-let (value (funcall filter (symbol-value variable)))
- (unless (stringp value)
- (error "Value %S of %S (filter: %S) for option %s is not a string"
- value variable filter option-name))
- (flycheck-prepend-with-option option-name (list value) prepend-fn)))
- (`(option-list ,option-name ,variable)
- (let ((value (symbol-value variable)))
- (unless (and (listp value) (seq-every-p #'stringp value))
- (error "Value %S of %S for option %S is not a list of strings"
- value variable option-name))
- (flycheck-prepend-with-option option-name value)))
- (`(option-list ,option-name ,variable ,prepend-fn)
- (let ((value (symbol-value variable)))
- (unless (and (listp value) (seq-every-p #'stringp value))
- (error "Value %S of %S for option %S is not a list of strings"
- value variable option-name))
- (flycheck-prepend-with-option option-name value prepend-fn)))
- (`(option-list ,option-name ,variable ,prepend-fn ,filter)
- (let ((value (delq nil (seq-map filter (symbol-value variable)))))
- (unless (and (listp value) (seq-every-p #'stringp value))
- (error "Value %S of %S for option %S is not a list of strings"
- value variable option-name))
- (flycheck-prepend-with-option option-name value prepend-fn)))
- (`(option-flag ,option-name ,variable)
- (when (symbol-value variable)
- (list option-name)))
- (`(eval ,form)
- (let ((result (eval form)))
- (cond
- ((and (listp result) (seq-every-p #'stringp result)) result)
- ((stringp result) (list result))
- (t (error "Invalid result from evaluation of %S: %S" form result)))))
- (_ (error "Unsupported argument %S" arg))))
-
-(defun flycheck-checker-substituted-arguments (checker)
- "Get the substituted arguments of a CHECKER.
-
-Substitute each argument of CHECKER using
-`flycheck-substitute-argument'. This replaces any special
-symbols in the command."
- (apply #'append
- (seq-map (lambda (arg) (flycheck-substitute-argument arg checker))
- (flycheck-checker-arguments checker))))
-
-(defun flycheck--process-send-buffer-contents-chunked (process)
- "Send contents of current buffer to PROCESS in small batches.
-
-Send the entire buffer to the standard input of PROCESS in chunks
-of 4096 characters. Chunking is done in Emacs Lisp, hence this
-function is probably far less efficient than
-`send-process-region'. Use only when required."
- (let ((from (point-min)))
- (while (< from (point-max))
- (let ((to (min (+ from 4096) (point-max))))
- (process-send-region process from to)
- (setq from to)))))
-
-(defvar flycheck-chunked-process-input
- ;; Chunk process output on Windows to work around
- ;; https://github.com/flycheck/flycheck/issues/794 and
- ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=22344. The presence of
- ;; `w32-pipe-buffer-size' denotes an Emacs version (> Emacs 25.1 )where pipe
- ;; writes on Windows are fixed.
- ;;
- ;; TODO: Remove option and chunking when dropping Emacs 24 support, see
- ;; https://github.com/flycheck/flycheck/issues/856
- (and (eq system-type 'windows-nt) (not (boundp 'w32-pipe-buffer-size)))
- "If non-nil send process input in small chunks.
-
-If this variable is non-nil `flycheck-process-send-buffer' sends
-buffer contents in small chunks.
-
-Defaults to nil, except on Windows to work around Emacs bug
-#22344.")
-
-(defun flycheck-process-send-buffer (process)
- "Send all contents of current buffer to PROCESS.
-
-Sends all contents of the current buffer to the standard input of
-PROCESS, and terminates standard input with EOF.
-
-If `flycheck-chunked-process-input' is non-nil, send buffer
-contents in chunks via
-`flycheck--process-send-buffer-contents-chunked', which see.
-Otherwise use `process-send-region' to send all contents at once
-and rely on Emacs' own buffering and chunking."
- (save-restriction
- (widen)
- (if flycheck-chunked-process-input
- (flycheck--process-send-buffer-contents-chunked process)
- (process-send-region process (point-min) (point-max))))
- (process-send-eof process))
-
-(defun flycheck-start-command-checker (checker callback)
- "Start a command CHECKER with CALLBACK."
- (let (process)
- (condition-case err
- (let* ((program (flycheck-find-checker-executable checker))
- (args (flycheck-checker-substituted-arguments checker))
- (command (funcall flycheck-command-wrapper-function
- (cons program args)))
- ;; Use pipes to receive output from the syntax checker. They are
- ;; more efficient and more robust than PTYs, which Emacs uses by
- ;; default, and since we don't need any job control features, we
- ;; can easily use pipes.
- (process-connection-type nil))
- ;; We pass do not associate the process with any buffer, by
- ;; passing nil for the BUFFER argument of `start-process'.
- ;; Instead, we just remember the buffer being checked in a
- ;; process property (see below). This neatly avoids all
- ;; side-effects implied by attached a process to a buffer, which
- ;; may cause conflicts with other packages.
- ;;
- ;; See https://github.com/flycheck/flycheck/issues/298 for an
- ;; example for such a conflict.
- (setq process (apply 'start-process (format "flycheck-%s" checker)
- nil command))
- (setf (process-sentinel process) #'flycheck-handle-signal)
- (setf (process-filter process) #'flycheck-receive-checker-output)
- (set-process-query-on-exit-flag process nil)
- ;; Remember the syntax checker, the buffer and the callback
- (process-put process 'flycheck-checker checker)
- (process-put process 'flycheck-callback callback)
- (process-put process 'flycheck-buffer (current-buffer))
- ;; The default directory is bound in the `flycheck-syntax-check-start'
- ;; function.
- (process-put process 'flycheck-working-directory default-directory)
- ;; Track the temporaries created by argument substitution in the
- ;; process itself, to get rid of the global state ASAP.
- (process-put process 'flycheck-temporaries flycheck-temporaries)
- (setq flycheck-temporaries nil)
- ;; Send the buffer to the process on standard input, if enabled.
- (when (flycheck-checker-get checker 'standard-input)
- (flycheck-process-send-buffer process))
- ;; Return the process.
- process)
- (error
- ;; In case of error, clean up our resources, and report the error back to
- ;; Flycheck.
- (flycheck-safe-delete-temporaries)
- (when process
- ;; No need to explicitly delete the temporary files of the process,
- ;; because deleting runs the sentinel, which will delete them anyway.
- (delete-process process))
- (signal (car err) (cdr err))))))
-
-(defun flycheck-interrupt-command-checker (_checker process)
- "Interrupt a PROCESS."
- ;; Deleting the process always triggers the sentinel, which does the cleanup
- (when process
- (delete-process process)))
-
-(defun flycheck-command-checker-print-doc (checker)
- "Print additional documentation for a command CHECKER."
- (let ((executable (flycheck-checker-default-executable checker))
- (config-file-var (flycheck-checker-get checker 'config-file-var))
- (option-vars (seq-sort #'string<
- (flycheck-checker-get checker 'option-vars))))
- (princ "\n")
-
- (let ((doc-start (with-current-buffer standard-output (point-max))))
- ;; Track the start of our documentation so that we can re-indent it
- ;; properly
- (princ " This syntax checker executes \"")
- (princ executable)
- (princ "\"")
- (when config-file-var
- (princ ", using a configuration file from `")
- (princ (symbol-name config-file-var))
- (princ "'"))
- (princ ". The executable can be overridden with `")
- (princ (symbol-name (flycheck-checker-executable-variable checker)))
- (princ "'.")
-
- (with-current-buffer standard-output
- (save-excursion
- (fill-region-as-paragraph doc-start (point-max)))))
- (princ "\n")
- (when option-vars
- (princ
- "\n This syntax checker can be configured with these options:\n\n")
- (dolist (var option-vars)
- (princ (format " * `%s'\n" var))))))
-
-(defun flycheck-verify-command-checker (checker)
- "Verify a command CHECKER in the current buffer.
-
-Return a list of `flycheck-verification-result' objects for
-CHECKER."
- (let ((executable (flycheck-find-checker-executable checker))
- (config-file-var (flycheck-checker-get checker 'config-file-var)))
- `(
- ,(flycheck-verification-result-new
- :label "executable"
- :message (if executable (format "Found at %s" executable) "Not found")
- :face (if executable 'success '(bold error)))
- ,@(when config-file-var
- (let* ((value (symbol-value config-file-var))
- (path (and value (flycheck-locate-config-file value checker))))
- (list (flycheck-verification-result-new
- :label "configuration file"
- :message (if path (format "Found at %S" path) "Not found")
- :face (if path 'success 'warning)))))
- ,@(when (not (flycheck-temp-files-writable-p checker))
- (list (flycheck-verification-result-new
- :label "temp directory"
- :message (format "%s is not writable"
- (flycheck-temp-directory checker))
- :face 'error))))))
-
-
-;;; Process management for command syntax checkers
-(defun flycheck-receive-checker-output (process output)
- "Receive a syntax checking PROCESS OUTPUT."
- (push output (process-get process 'flycheck-pending-output)))
-
-(defun flycheck-get-output (process)
- "Get the complete output of PROCESS."
- (with-demoted-errors "Error while retrieving process output: %S"
- (let ((pending-output (process-get process 'flycheck-pending-output)))
- (apply #'concat (nreverse pending-output)))))
-
-(defun flycheck-handle-signal (process _event)
- "Handle a signal from the syntax checking PROCESS.
-
-_EVENT is ignored."
- (when (memq (process-status process) '(signal exit))
- (let ((files (process-get process 'flycheck-temporaries))
- (buffer (process-get process 'flycheck-buffer))
- (callback (process-get process 'flycheck-callback))
- (cwd (process-get process 'flycheck-working-directory)))
- ;; Delete the temporary files
- (seq-do #'flycheck-safe-delete files)
- (when (buffer-live-p buffer)
- (with-current-buffer buffer
- (condition-case err
- (pcase (process-status process)
- (`signal
- (funcall callback 'interrupted))
- (`exit
- (flycheck-finish-checker-process
- (process-get process 'flycheck-checker)
- (process-exit-status process)
- files
- (flycheck-get-output process) callback cwd)))
- ((debug error)
- (funcall callback 'errored (error-message-string err)))))))))
-
-(defun flycheck-finish-checker-process
- (checker exit-status files output callback cwd)
- "Finish a checker process from CHECKER with EXIT-STATUS.
-
-FILES is a list of files given as input to the checker. OUTPUT
-is the output of the syntax checker. CALLBACK is the status
-callback to use for reporting.
-
-Parse the OUTPUT and report an appropriate error status.
-
-Resolve all errors in OUTPUT using CWD as working directory."
- (let ((errors (flycheck-parse-output output checker (current-buffer))))
- (when (and (/= exit-status 0) (not errors))
- ;; Warn about a suspicious result from the syntax checker. We do right
- ;; after parsing the errors, before filtering, because a syntax checker
- ;; might report errors from other files (e.g. includes) even if there
- ;; are no errors in the file being checked.
- (funcall callback 'suspicious
- (format "Flycheck checker %S returned non-zero \
-exit code %s, but its output contained no errors: %s\nTry \
-installing a more recent version of %S, and please open a bug \
-report if the issue persists in the latest release. Thanks!"
- checker exit-status output checker)))
- (funcall callback 'finished
- ;; Fix error file names, by substituting them backwards from the
- ;; temporaries.
- (seq-map (lambda (e) (flycheck-fix-error-filename e files cwd))
- errors))))
-
-
-;;; Executables of command checkers.
-(defmacro flycheck-def-executable-var (checker default-executable)
- "Define the executable variable for CHECKER.
-
-DEFAULT-EXECUTABLE is the default executable. It is only used in
-the docstring of the variable.
-
-The variable is defined with `defcustom' in the
-`flycheck-executables' group. It's also defined to be risky as
-file-local variable, to avoid arbitrary executables being used
-for syntax checking."
- (let ((executable-var (flycheck-checker-executable-variable checker)))
- `(progn
- (defcustom ,executable-var nil
- ,(format "The executable of the %s syntax checker.
-
-Either a string containing the name or the path of the
-executable, or nil to use the default executable from the syntax
-checker declaration.
-
-The default executable is %S." checker default-executable)
- :type '(choice (const :tag "Default executable" nil)
- (string :tag "Name or path"))
- :group 'flycheck-executables
- :risky t))))
-
-(defun flycheck-set-checker-executable (checker &optional executable)
- "Set the executable of CHECKER in the current buffer.
-
-CHECKER is a syntax checker symbol. EXECUTABLE is a string with
-the name of an executable or the path to an executable file, which
-is to be used as executable for CHECKER. If omitted or nil,
-reset the executable of CHECKER.
-
-Interactively, prompt for a syntax checker and an executable
-file, and set the executable of the selected syntax checker.
-With prefix arg, prompt for a syntax checker only, and reset the
-executable of the select checker to the default.
-
-Set the executable variable of CHECKER, that is,
-`flycheck-CHECKER-executable' to EXECUTABLE. Signal
-`user-error', if EXECUTABLE does not denote a command or an
-executable file.
-
-This command is intended for interactive use only. In Lisp, just
-`let'-bind the corresponding variable, or set it directly. Use
-`flycheck-checker-executable-variable' to obtain the executable
-variable symbol for a syntax checker."
- (declare (interactive-only "Set the executable variable directly instead"))
- (interactive
- (let* ((checker (read-flycheck-checker "Syntax checker: "))
- (default-executable (flycheck-checker-default-executable checker))
- (executable (if current-prefix-arg
- nil
- (read-file-name "Executable: " nil default-executable
- nil nil flycheck-executable-find))))
- (list checker executable)))
- (when (and executable (not (funcall flycheck-executable-find executable)))
- (user-error "%s is no executable" executable))
- (let ((variable (flycheck-checker-executable-variable checker)))
- (set (make-local-variable variable) executable)))
-
-
-;;; Configuration files and options for command checkers
-(defun flycheck-register-config-file-var (var checkers)
- "Register VAR as config file var for CHECKERS.
-
-CHECKERS is a single syntax checker or a list thereof."
- (when (symbolp checkers)
- (setq checkers (list checkers)))
- (dolist (checker checkers)
- (setf (flycheck-checker-get checker 'config-file-var) var)))
-
-;;;###autoload
-(defmacro flycheck-def-config-file-var (symbol checker &optional file-name
- &rest custom-args)
- "Define SYMBOL as config file variable for CHECKER, with default FILE-NAME.
-
-SYMBOL is declared as customizable variable using `defcustom', to
-provide a configuration file for the given syntax CHECKER.
-CUSTOM-ARGS are forwarded to `defcustom'.
-
-FILE-NAME is the initial value of the new variable. If omitted,
-the default value is nil.
-
-Use this together with the `config-file' form in the `:command'
-argument to `flycheck-define-checker'."
- ;; FIXME: We should allow multiple config files per checker as well as
- ;; multiple checkers per config file
- (declare (indent 3))
- `(progn
- (defcustom ,symbol ,file-name
- ,(format "Configuration file for `%s'.
-
-If set to a string, locate the configuration file using the
-functions from `flycheck-locate-config-file-functions'. If the
-file is found pass it to the syntax checker as configuration
-file.
-
-If no configuration file is found, or if this variable is set to
-nil, invoke the syntax checker without a configuration file.
-
-Use this variable as file-local variable if you need a specific
-configuration file a buffer." checker)
- :type '(choice (const :tag "No configuration file" nil)
- (string :tag "File name or path"))
- :group 'flycheck-config-files
- ,@custom-args)
- (flycheck-register-config-file-var ',symbol ',checker)))
-
-(defun flycheck-locate-config-file (filename checker)
- "Locate the configuration file FILENAME for CHECKER.
-
-Locate the configuration file using
-`flycheck-locate-config-file-functions'.
-
-Return the absolute path of the configuration file, or nil if no
-configuration file was found."
- (-when-let (filepath (run-hook-with-args-until-success
- 'flycheck-locate-config-file-functions
- filename checker))
- (when (file-exists-p filepath)
- filepath)))
-
-(defun flycheck-locate-config-file-by-path (filepath _checker)
- "Locate a configuration file by a FILEPATH.
-
-If FILEPATH is a contains a path separator, expand it against the
-default directory and return it if it points to an existing file.
-Otherwise return nil.
-
-_CHECKER is ignored."
- ;; If the path is just a plain file name, skip it.
- (unless (string= (file-name-nondirectory filepath) filepath)
- (let ((file-name (expand-file-name filepath)))
- (and (file-exists-p file-name) file-name))))
-
-(defun flycheck-locate-config-file-ancestor-directories (filename _checker)
- "Locate a configuration FILENAME in ancestor directories.
-
-If the current buffer has a file name, search FILENAME in the
-directory of the current buffer and all ancestors thereof (see
-`locate-dominating-file'). If the file is found, return its
-absolute path. Otherwise return nil.
-
-_CHECKER is ignored."
- (-when-let* ((basefile (buffer-file-name))
- (directory (locate-dominating-file basefile filename)))
- (expand-file-name filename directory)))
-
-(defun flycheck-locate-config-file-home (filename _checker)
- "Locate a configuration FILENAME in the home directory.
-
-Return the absolute path, if FILENAME exists in the user's home
-directory, or nil otherwise."
- (let ((path (expand-file-name filename "~")))
- (when (file-exists-p path)
- path)))
-
-(seq-do (apply-partially #'custom-add-frequent-value
- 'flycheck-locate-config-file-functions)
- '(flycheck-locate-config-file-by-path
- flycheck-locate-config-file-ancestor-directories
- flycheck-locate-config-file-home))
-
-(defun flycheck-register-option-var (var checkers)
- "Register an option VAR with CHECKERS.
-
-VAR is an option symbol, and CHECKERS a syntax checker symbol or
-a list thereof. Register VAR with all CHECKERS so that it
-appears in the help output."
- (when (symbolp checkers)
- (setq checkers (list checkers)))
- (dolist (checker checkers)
- (cl-pushnew var (flycheck-checker-get checker 'option-vars))))
-
-;;;###autoload
-(defmacro flycheck-def-option-var (symbol init-value checkers docstring
- &rest custom-args)
- "Define SYMBOL as option variable with INIT-VALUE for CHECKER.
-
-SYMBOL is declared as customizable variable using `defcustom', to
-provide an option for the given syntax CHECKERS (a checker or a
-list of checkers). INIT-VALUE is the initial value of the
-variable, and DOCSTRING is its docstring. CUSTOM-ARGS are
-forwarded to `defcustom'.
-
-Use this together with the `option', `option-list' and
-`option-flag' forms in the `:command' argument to
-`flycheck-define-checker'."
- (declare (indent 3)
- (doc-string 4))
- `(progn
- (defcustom ,symbol ,init-value
- ,(concat docstring "
-
-This variable is an option for the following syntax checkers:
-
-"
- (mapconcat (lambda (c) (format " - `%s'" c))
- (if (symbolp checkers) (list checkers) checkers)
- "\n"))
- :group 'flycheck-options
- ,@custom-args)
- (flycheck-register-option-var ',symbol ',checkers)))
-
-(defun flycheck-option-int (value)
- "Convert an integral option VALUE to a string.
-
-If VALUE is nil, return nil. Otherwise return VALUE converted to
-a string."
- (and value (number-to-string value)))
-
-(defun flycheck-option-symbol (value)
- "Convert a symbol option VALUE to string.
-
-If VALUE is nil return nil. Otherwise return VALUE converted to
-a string."
- (and value (symbol-name value)))
-
-(defun flycheck-option-comma-separated-list (value &optional separator filter)
- "Convert VALUE into a list separated by SEPARATOR.
-
-SEPARATOR is a string to separate items in VALUE, defaulting to
-\",\". FILTER is an optional function, which takes a single
-argument and returns either a string or nil.
-
-If VALUE is a list, apply FILTER to each item in VALUE, remove
-all nil items, and return a single string of all remaining items
-separated by SEPARATOR.
-
-Otherwise, apply FILTER to VALUE and return the result.
-SEPARATOR is ignored in this case."
- (let ((filter (or filter #'identity))
- (separator (or separator ",")))
- (if (listp value)
- (-when-let (value (delq nil (seq-map filter value)))
- (string-join value separator))
- (funcall filter value))))
-
-(defmacro flycheck-def-args-var (symbol checkers &rest custom-args)
- "Define SYMBOL as argument variable for CHECKERS.
-
-SYMBOL is declared as customizable, risky and buffer-local
-variable using `defcustom' to provide an option for arbitrary
-arguments for the given syntax CHECKERS (either a single checker
-or a list of checkers). CUSTOM-ARGS is forwarded to `defcustom'.
-
-Use the `eval' form to splice this variable into the
-`:command'."
- (declare (indent 2))
- `(flycheck-def-option-var ,symbol nil ,checkers
- "A list of additional command line arguments.
-
-The value of this variable is a list of strings with additional
-command line arguments."
- :risky t
- :type '(repeat (string :tag "Argument"))
- ,@custom-args))
-
-
-;;; Command syntax checkers as compile commands
-(defun flycheck-checker-pattern-to-error-regexp (pattern)
- "Convert PATTERN into an error regexp for compile.el.
-
-Return a list representing PATTERN, suitable as element in
-`compilation-error-regexp-alist'."
- (let* ((regexp (car pattern))
- (level (cdr pattern))
- (level-no (flycheck-error-level-compilation-level level)))
- (list regexp 1 2 3 level-no)))
-
-(defun flycheck-checker-compilation-error-regexp-alist (checker)
- "Convert error patterns of CHECKER for use with compile.el.
-
-Return an alist of all error patterns of CHECKER, suitable for
-use with `compilation-error-regexp-alist'."
- (seq-map #'flycheck-checker-pattern-to-error-regexp
- (flycheck-checker-get checker 'error-patterns)))
-
-(defun flycheck-checker-shell-command (checker)
- "Get a shell command for CHECKER.
-
-Perform substitution in the arguments of CHECKER, but with
-`flycheck-substitute-shell-argument'.
-
-Return the command of CHECKER as single string, suitable for
-shell execution."
- ;; Note: Do NOT use `combine-and-quote-strings' here. Despite it's name it
- ;; does not properly quote shell arguments, and actually breaks for special
- ;; characters. See https://github.com/flycheck/flycheck/pull/522
- (let* ((args (apply #'append
- (seq-map
- (lambda (arg)
- (if (memq arg '(source source-inplace source-original))
- (list (buffer-file-name))
- (flycheck-substitute-argument arg checker)))
- (flycheck-checker-arguments checker))))
- (command (mapconcat
- #'shell-quote-argument
- (funcall flycheck-command-wrapper-function
- (cons (flycheck-checker-executable checker) args))
- " ")))
- (if (flycheck-checker-get checker 'standard-input)
- ;; If the syntax checker expects the source from standard input add an
- ;; appropriate shell redirection
- (concat command " < " (shell-quote-argument (buffer-file-name)))
- command)))
-
-(defun flycheck-compile-name (_name)
- "Get a name for a Flycheck compilation buffer.
-
-_NAME is ignored."
- (format "*Flycheck %s*" (buffer-file-name)))
-
-(defun flycheck-compile (checker)
- "Run CHECKER via `compile'.
-
-CHECKER must be a valid syntax checker. Interactively, prompt
-for a syntax checker to run.
-
-Instead of highlighting errors in the buffer, this command pops
-up a separate buffer with the entire output of the syntax checker
-tool, just like `compile' (\\[compile])."
- (interactive
- (let ((default (flycheck-get-checker-for-buffer)))
- (list (read-flycheck-checker "Run syntax checker as compile command: "
- (when (flycheck-checker-get default 'command)
- default)
- 'command))))
- (unless (flycheck-valid-checker-p checker)
- (user-error "%S is not a valid syntax checker" checker))
- (unless (buffer-file-name)
- (user-error "Cannot compile buffers without backing file"))
- (unless (flycheck-may-use-checker checker)
- (user-error "Cannot use syntax checker %S in this buffer" checker))
- (unless (flycheck-checker-executable checker)
- (user-error "Cannot run checker %S as shell command" checker))
- (let* ((default-directory (flycheck-compute-working-directory checker))
- (command (flycheck-checker-shell-command checker))
- (buffer (compilation-start command nil #'flycheck-compile-name)))
- (with-current-buffer buffer
- (setq-local compilation-error-regexp-alist
- (flycheck-checker-compilation-error-regexp-alist checker)))))
-
-
-;;; General error parsing for command checkers
-(defun flycheck-parse-output (output checker buffer)
- "Parse OUTPUT from CHECKER in BUFFER.
-
-OUTPUT is a string with the output from the checker symbol
-CHECKER. BUFFER is the buffer which was checked.
-
-Return the errors parsed with the error patterns of CHECKER."
- (funcall (flycheck-checker-get checker 'error-parser) output checker buffer))
-
-(defun flycheck-fix-error-filename (err buffer-files cwd)
- "Fix the file name of ERR from BUFFER-FILES.
-
-Resolves error file names relative to CWD directory.
-
-Make the file name of ERR absolute. If the absolute file name of
-ERR is in BUFFER-FILES, replace it with the return value of the
-function `buffer-file-name'."
- (flycheck-error-with-buffer err
- (-when-let (filename (flycheck-error-filename err))
- (when (seq-some (apply-partially #'flycheck-same-files-p
- (expand-file-name filename cwd))
- buffer-files)
- (setf (flycheck-error-filename err) buffer-file-name)
- (when (and buffer-file-name (flycheck-error-message err))
- (setf (flycheck-error-message err)
- (replace-regexp-in-string
- (regexp-quote filename) buffer-file-name
- (flycheck-error-message err) 'fixed-case 'literal))))))
- err)
-
-
-;;; Error parsers for command syntax checkers
-(defun flycheck-parse-xml-region (beg end)
- "Parse the xml region between BEG and END.
-
-Wrapper around `xml-parse-region' which transforms the return
-value of this function into one compatible to
-`libxml-parse-xml-region' by simply returning the first element
-from the node list."
- (ignore-errors (car (xml-parse-region beg end))))
-
-(defun flycheck-parse-xml-region-with-fallback (beg end)
- "Parse the xml region between BEG and END.
-
-Try parsing with libxml first; if that fails, revert to
-`flycheck-parse-xml-region'. Failures can be caused by incorrect
-XML (see URL `https://github.com/flycheck/flycheck/issues/1298'),
-or on Windows by a missing libxml DLL with a libxml-enabled Emacs
-\(see URL `https://github.com/flycheck/flycheck/issues/1330')."
- ;; FIXME use `libxml-available-p' when it gets implemented.
- (or (and (fboundp 'libxml-parse-xml-region)
- (libxml-parse-xml-region beg end))
- (flycheck-parse-xml-region beg end)))
-
-(defvar flycheck-xml-parser 'flycheck-parse-xml-region-with-fallback
- "Function used to parse an xml string from a region.
-
-The default uses libxml if available, and falls back to
-`flycheck-parse-xml-region' otherwise.")
-
-(defun flycheck-parse-xml-string (xml)
- "Parse an XML string.
-
-Return the document tree parsed from XML in the form `(ROOT ATTRS
-BODY...)'. ROOT is a symbol identifying the name of the root
-element. ATTRS is an alist of the attributes of the root node.
-BODY is zero or more body elements, either as strings (in case of
-text nodes) or as XML nodes, in the same for as the root node."
- (with-temp-buffer
- (insert xml)
- (funcall flycheck-xml-parser (point-min) (point-max))))
-
-(defun flycheck-parse-checkstyle (output checker buffer)
- "Parse Checkstyle errors from OUTPUT.
-
-Parse Checkstyle-like XML output. Use this error parser for
-checkers that have an option to output errors in this format.
-
-CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `http://checkstyle.sourceforge.net/' for information
-about Checkstyle."
- (pcase (flycheck-parse-xml-string output)
- (`(checkstyle ,_ . ,file-nodes)
- (let (errors)
- (dolist (node file-nodes)
- (pcase node
- (`(file ,file-attrs . ,error-nodes)
- (dolist (node error-nodes)
- (pcase node
- (`(error ,error-attrs . ,_)
- (let-alist error-attrs
- (push (flycheck-error-new-at
- (flycheck-string-to-number-safe .line)
- (flycheck-string-to-number-safe .column)
- (pcase .severity
- (`"error" 'error)
- (`"warning" 'warning)
- (`"info" 'info)
- ;; Default to error for unknown .severity
- (_ 'error))
- .message
- :checker checker :id .source
- :buffer buffer
- :filename (cdr (assq 'name file-attrs)))
- errors))))))))
- (nreverse errors)))))
-
-(defun flycheck-parse-cppcheck (output checker buffer)
- "Parse Cppcheck errors from OUTPUT.
-
-Parse Cppcheck XML v2 output.
-
-CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `http://cppcheck.sourceforge.net/' for more information
-about Cppcheck."
- (pcase (flycheck-parse-xml-string output)
- (`(results ,_ . ,body)
- (let (errors)
- (dolist (node body)
- (pcase node
- (`(errors ,_ . ,error-nodes)
- (dolist (node error-nodes)
- (pcase node
- (`(error ,error-attrs . ,loc-nodes)
- (let ((id (cdr (assq 'id error-attrs)))
- (message (cdr (assq 'verbose error-attrs)))
- (level (pcase (cdr (assq 'severity error-attrs))
- (`"error" 'error)
- (`"style" 'info)
- (`"information" 'info)
- (_ 'warning))))
- (dolist (node loc-nodes)
- (pcase node
- (`(location ,loc-attrs . ,_)
- (let-alist loc-attrs
- (push (flycheck-error-new-at
- (flycheck-string-to-number-safe .line)
- nil
- level
- ;; cppcheck return newline characters as "\012"
- (replace-regexp-in-string "\\\\012" "\n"
- message)
- :id id
- :checker checker
- :buffer buffer
- :filename .file)
- errors))))))))))))
- (nreverse errors)))))
-
-(defun flycheck-parse-phpmd (output checker buffer)
- "Parse phpmd errors from OUTPUT.
-
-CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `http://phpmd.org/' for more information about phpmd."
- (pcase (flycheck-parse-xml-string output)
- (`(pmd ,_ . ,body)
- (let (errors)
- (dolist (node body)
- (pcase node
- (`(file ,file-attrs . ,violation-nodes)
- (let ((filename (cdr (assq 'name file-attrs))))
- (dolist (node violation-nodes)
- (pcase node
- (`(violation ,vio-attrs ,(and message (pred stringp)))
- (let-alist vio-attrs
- (push
- (flycheck-error-new-at
- (flycheck-string-to-number-safe .beginline)
- nil
- 'warning (string-trim message)
- :id .rule
- :checker checker
- :buffer buffer
- :filename filename)
- errors)))))))))
- (nreverse errors)))))
-
-(defun flycheck-parse-reek (output checker buffer)
- "Parse Reek warnings from JSON OUTPUT.
-
-CHECKER and BUFFER denote the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `https://github.com/troessner/reek' for more information
-about Reek."
- (let ((errors nil))
- (dolist (message (car (flycheck-parse-json output)))
- (let-alist message
- (dolist (line (delete-dups .lines))
- (push
- (flycheck-error-new-at
- line
- nil
- 'warning (concat .context " " .message)
- :id .smell_type
- :checker checker
- :buffer buffer
- :filename .source)
- errors))))
- (nreverse errors)))
-
-(defun flycheck-parse-tslint (output checker buffer)
- "Parse TSLint errors from JSON OUTPUT.
-
-CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `https://palantir.github.io/tslint/' for more information
-about TSLint."
- (let ((json-array-type 'list))
- (seq-map (lambda (message)
- (let-alist message
- (flycheck-error-new-at
- (+ 1 .startPosition.line)
- (+ 1 .startPosition.character)
- 'warning .failure
- :id .ruleName
- :checker checker
- :buffer buffer
- :filename .name)))
- ;; Don't try to parse empty output as JSON
- (and (not (string-empty-p output))
- (car (flycheck-parse-json output))))))
-
-(defun flycheck-parse-rust-collect-spans (span)
- "Return a list of spans contained in a SPAN object."
- (let ((spans))
- (let-alist span
- ;; With macro expansion errors, some spans will point to phony file names
- ;; to indicate an error inside the std rust lib. We skip these spans as
- ;; they won't appear in flycheck anyway.
- (unless (string= .file_name "<std macros>")
- (push span spans))
-
- ;; Macro expansion errors will have a span in the 'expansion' field, so we
- ;; recursively collect it.
- (if .expansion.span
- (append (flycheck-parse-rust-collect-spans .expansion.span)
- spans)
- spans))))
-
-(defun flycheck-parse-rustc-diagnostic (diagnostic checker buffer)
- "Turn a rustc DIAGNOSTIC into a `flycheck-error'.
-
-CHECKER and BUFFER denote the CHECKER that returned DIAGNOSTIC
-and the BUFFER that was checked respectively.
-
-DIAGNOSTIC should be a parsed JSON object describing a rustc
-diagnostic, following the format described there:
-
-https://github.com/rust-lang/rust/blob/master/src/libsyntax/json.rs#L67-L139"
- (let ((error-message)
- (error-level)
- (error-code)
- (primary-filename)
- (primary-line)
- (primary-column)
- (group (make-symbol "group"))
- (spans)
- (children)
- (errors))
- ;; The diagnostic format is described in the link above. The gist of it is
- ;; that a diagnostic can have several causes in the source text; these
- ;; causes are represented by spans. The diagnostic has a message and a
- ;; level (error, warning), while the spans have a filename, line, column,
- ;; and an optional label. The primary span points to the root cause of the
- ;; error in the source text, while non-primary spans point to related
- ;; causes. Spans may have an 'expansion' field for macro expansion errors;
- ;; these expansion fields will contain another span (and so on). In
- ;; addition, a diagnostic can also have children diagnostics that are used
- ;; to provide additional information through their message field, but do not
- ;; seem to contain any spans (yet).
- ;;
- ;; We first gather spans in order to turn every span into a flycheck error
- ;; object, that we collect into the `errors' list.
-
- ;; Nested `let-alist' cause compilation warnings, hence we `setq' all
- ;; these values here first to avoid nesting.
- (let-alist diagnostic
- (setq error-message .message
- error-level (pcase .level
- (`"error" 'error)
- (`"warning" 'warning)
- (`"note" 'info)
- (_ 'error))
- ;; The 'code' field of the diagnostic contains the actual error
- ;; code and an optional explanation that we ignore
- error-code .code.code
- ;; Collect all spans recursively
- spans (seq-mapcat #'flycheck-parse-rust-collect-spans .spans)
- children .children))
-
- ;; Turn each span into a flycheck error
- (dolist (span spans)
- (let-alist span
- ;; Children may not have filename/line/column information, so we use
- ;; those from the primary span
- (when .is_primary
- (setq primary-filename .file_name
- primary-line .line_start
- primary-column .column_start))
- (push
- (flycheck-error-new-at
- .line_start
- .column_start
- ;; Non-primary spans are used for notes
- (if .is_primary error-level 'info)
- (if .is_primary
- ;; Primary spans may have labels with additional information
- (concat error-message (when .label
- (format " (%s)" .label)))
- ;; If the label is empty, fallback on the error message,
- ;; otherwise we won't be able to display anything
- (or .label error-message))
- :id error-code
- :checker checker
- :buffer buffer
- :filename .file_name
- :group group)
- errors)))
-
- ;; Then we turn children messages into flycheck errors pointing to the
- ;; location of the primary span.
- (dolist (child children)
- (let-alist child
- (push
- (flycheck-error-new-at
- ;; Use the line/column from the first span if there is one, or
- ;; fallback to the line/column information from the primary span of
- ;; the diagnostic.
- (or (cdr (assq 'line_start (car .spans)))
- primary-line)
- (or (cdr (assq 'column_start (car .spans)))
- primary-column)
- 'info
- ;; Messages from `cargo clippy' may suggest replacement code. In
- ;; these cases, the `message' field itself is an unhelpful `try' or
- ;; `change this to'. We add the `suggested_replacement' field in
- ;; these cases.
- (-if-let (replacement
- (cdr (assq 'suggested_replacement (car .spans))))
- (format "%s: `%s`" .message replacement)
- .message)
- :id error-code
- :checker checker
- :buffer buffer
- :filename primary-filename
- :group group)
- errors)))
-
- ;; If there are no spans, the error is not associated with a specific
- ;; file but with the project as a whole. We still need to report it to
- ;; the user by emitting a corresponding flycheck-error object.
- (unless spans
- (push (flycheck-error-new-at
- ;; We have no specific position to attach the error to, so
- ;; let's use the top of the file.
- 1 1
- error-level
- error-message
- :id error-code
- :checker checker
- :buffer buffer
- :group group)
- errors))
- (nreverse errors)))
-
-(defun flycheck-parse-json (output)
- "Return parsed JSON data from OUTPUT.
-
-OUTPUT is a string that contains JSON data. Each line of OUTPUT
-may be either plain text, a JSON array (starting with `['), or a
-JSON object (starting with `{').
-
-This function ignores the plain text lines, parses the JSON
-lines, and returns the parsed JSON lines in a list."
- (let ((objects nil)
- (json-array-type 'list)
- (json-false nil))
- (with-temp-buffer
- (insert output)
- (goto-char (point-min))
- (while (not (eobp))
- (when (memq (char-after) '(?\{ ?\[))
- (push (json-read) objects))
- (forward-line)))
- (nreverse objects)))
-
-(defun flycheck-parse-rustc (output checker buffer)
- "Parse rustc errors from OUTPUT and return a list of `flycheck-error'.
-
-CHECKER and BUFFER denote the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-The expected format for OUTPUT is a mix of plain text lines and
-JSON lines. This function ignores the plain text lines and
-parses only JSON lines. Each JSON line is expected to be a JSON
-object that corresponds to a diagnostic from the compiler. The
-expected diagnostic format is described there:
-
-https://github.com/rust-lang/rust/blob/master/src/libsyntax/json.rs#L67-L139"
- (seq-mapcat (lambda (msg)
- (flycheck-parse-rustc-diagnostic msg checker buffer))
- (flycheck-parse-json output)))
-
-(defun flycheck-parse-cargo-rustc (output checker buffer)
- "Parse Cargo errors from OUTPUT and return a list of `flycheck-error'.
-
-CHECKER and BUFFER denote the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-The expected format for OUTPUT is a mix of plain text lines and
-JSON lines. This function ignores the plain text lines and
-parses only JSON lines. Each JSON line is expected to be a JSON
-object that represents a message from Cargo. The format of
-messages emitted by Cargo is described in cargo's
-machine_message.rs at URL `https://git.io/vh24R'."
- (let ((errors))
- (dolist (msg (flycheck-parse-json output))
- (let-alist msg
- ;; Errors and warnings from rustc are wrapped by cargo, so we filter and
- ;; unwrap them, and delegate the actual construction of `flycheck-error'
- ;; objects to `flycheck-parse-rustc-diagnostic'.
- (when (string= .reason "compiler-message")
- (push (flycheck-parse-rustc-diagnostic .message checker buffer)
- errors))))
- (apply #'nconc errors)))
-
-
-;;; Error parsing with regular expressions
-(defun flycheck-get-regexp (patterns)
- "Create a single regular expression from PATTERNS."
- (rx-to-string `(or ,@(seq-map (lambda (p) (list 'regexp (car p))) patterns))
- 'no-group))
-
-(defun flycheck-tokenize-output-with-patterns (output patterns)
- "Tokenize OUTPUT with PATTERNS.
-
-Split the output into error tokens, using all regular expressions
-from the error PATTERNS. An error token is simply a string
-containing a single error from OUTPUT. Such a token can then be
-parsed into a structured error by applying the PATTERNS again,
-see `flycheck-parse-errors-with-patterns'.
-
-Return a list of error tokens."
- (let ((regexp (flycheck-get-regexp patterns))
- (last-match 0)
- errors)
- (while (string-match regexp output last-match)
- (push (match-string 0 output) errors)
- (setq last-match (match-end 0)))
- (reverse errors)))
-
-(defun flycheck-try-parse-error-with-pattern (err pattern checker)
- "Try to parse a single ERR with a PATTERN for CHECKER.
-
-Return the parsed error if PATTERN matched ERR, or nil
-otherwise."
- (let ((regexp (car pattern))
- (level (cdr pattern)))
- (when (string-match regexp err)
- (let ((filename (match-string 1 err))
- (line (match-string 2 err))
- (column (match-string 3 err))
- (message (match-string 4 err))
- (id (match-string 5 err)))
- (flycheck-error-new-at
- (flycheck-string-to-number-safe line)
- (flycheck-string-to-number-safe column)
- level
- (unless (string-empty-p message) message)
- :id (unless (string-empty-p id) id)
- :checker checker
- :filename (if (or (null filename) (string-empty-p filename))
- (buffer-file-name)
- filename))))))
-
-(defun flycheck-parse-error-with-patterns (err patterns checker)
- "Parse a single ERR with error PATTERNS for CHECKER.
-
-Apply each pattern in PATTERNS to ERR, in the given order, and
-return the first parsed error."
- ;; Try to parse patterns in the order of declaration to make sure that the
- ;; first match wins.
- (let (parsed-error)
- (while (and patterns
- (not (setq parsed-error
- (flycheck-try-parse-error-with-pattern
- err (car patterns) checker))))
- (setq patterns (cdr patterns)))
- parsed-error))
-
-(defun flycheck-parse-with-patterns (output checker buffer)
- "Parse OUTPUT from CHECKER with error patterns.
-
-Uses the error patterns of CHECKER to tokenize the output and
-tries to parse each error token with all patterns, in the order
-of declaration. Hence an error is never matched twice by two
-different patterns. The pattern declared first always wins.
-
-_BUFFER is ignored.
-
-Return a list of parsed errors and warnings (as `flycheck-error'
-objects)."
- (with-current-buffer buffer
- (let ((patterns (flycheck-checker-get checker 'error-patterns)))
- (seq-map (lambda (err)
- (flycheck-parse-error-with-patterns err patterns checker))
- (flycheck-tokenize-output-with-patterns output patterns)))))
-
-
-;;; Convenience definition of command-syntax checkers
-(defmacro flycheck-define-checker (symbol docstring &rest properties)
- "Define SYMBOL as command syntax checker with DOCSTRING and PROPERTIES.
-
-Like `flycheck-define-command-checker', but PROPERTIES must not
-be quoted. Also, implicitly define the executable variable for
-SYMBOL with `flycheck-def-executable-var'."
- (declare (indent 1)
- (doc-string 2))
- (let ((command (plist-get properties :command))
- (parser (plist-get properties :error-parser))
- (filter (plist-get properties :error-filter))
- (explainer (plist-get properties :error-explainer))
- (predicate (plist-get properties :predicate))
- (enabled-fn (plist-get properties :enabled))
- (verify-fn (plist-get properties :verify)))
-
- `(progn
- (flycheck-def-executable-var ,symbol ,(car command))
-
- (flycheck-define-command-checker ',symbol
- ,docstring
- :command ',command
- ,@(when parser
- `(:error-parser #',parser))
- :error-patterns ',(plist-get properties :error-patterns)
- ,@(when filter
- `(:error-filter #',filter))
- ,@(when explainer
- `(:error-explainer #',explainer))
- :modes ',(plist-get properties :modes)
- ,@(when predicate
- `(:predicate #',predicate))
- :next-checkers ',(plist-get properties :next-checkers)
- ,@(when enabled-fn
- `(:enabled #',enabled-fn))
- ,@(when verify-fn
- `(:verify #',verify-fn))
- :standard-input ',(plist-get properties :standard-input)
- :working-directory ',(plist-get properties :working-directory)))))
-
-
-;;; Built-in checkers
-(flycheck-def-args-var flycheck-gnat-args ada-gnat
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gnat-include-path nil ada-gnat
- "A list of include directories for GNAT.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of gcc.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gnat-language-standard "2012" ada-gnat
- "The language standard to use in GNAT.
-
-The value of this variable is either a string denoting a language
-standard, or nil, to use the default standard. When non-nil, pass
-the language standard via the `-std' option."
- :type '(choice (const :tag "Default standard" nil)
- (string :tag "Language standard"))
- :safe #'stringp
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gnat-warnings
- '("wa") ada-gnat
- "A list of additional Ada warnings to enable in GNAT.
-
-The value of this variable is a list of strings, where each
-string is the name of a warning category to enable. By default,
-most optional warnings are recommended, as in `-gnata'.
-
-Refer to Info Node `(gnat_ugn_unw)Warning Message Control' for
-more information about GNAT warnings."
- :type '(repeat :tag "Warnings" (string :tag "Warning name"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-define-checker ada-gnat
- "An Ada syntax checker using GNAT.
-
-Uses the GNAT compiler from GCC. See URL
-`https://www.adacore.com/community/'."
- :command ("gnatmake"
- "-c" ; Just compile, don't bind
- "-f" ; Force re-compilation
- "-u" ; Compile the main file only
- "-gnatf" ; Full error information
- "-gnatef" ; Full source file name
- "-D" temporary-directory
- (option-list "-gnat" flycheck-gnat-warnings concat)
- (option-list "-I" flycheck-gnat-include-path concat)
- (option "-gnat" flycheck-gnat-language-standard concat)
- (eval flycheck-gnat-args)
- source)
- :error-patterns
- ((error line-start
- (message "In file included from") " " (file-name) ":" line ":"
- column ":"
- line-end)
- (info line-start (file-name) ":" line ":" column
- ": note: " (message) line-end)
- (warning line-start (file-name) ":" line ":" column
- ": warning: " (message) line-end)
- ;; no specific error prefix in Ada
- (error line-start (file-name) ":" line ":" column
- ": " (message) line-end))
- :modes ada-mode)
-
-(flycheck-define-checker asciidoc
- "A AsciiDoc syntax checker using the AsciiDoc compiler.
-
-See URL `http://www.methods.co.nz/asciidoc'."
- :command ("asciidoc" "-o" null-device "-")
- :standard-input t
- :error-patterns
- ((error line-start
- "asciidoc: ERROR: <stdin>: Line " line ": " (message)
- line-end)
- (warning line-start
- "asciidoc: WARNING: <stdin>: Line " line ": " (message)
- line-end)
- (info line-start
- "asciidoc: DEPRECATED: <stdin>: Line " line ": " (message)
- line-end))
- :modes adoc-mode)
-
-(flycheck-define-checker asciidoctor
- "An AsciiDoc syntax checker using the Asciidoctor compiler.
-
-See URL `http://asciidoctor.org'."
- :command ("asciidoctor" "-o" null-device "-")
- :standard-input t
- :error-patterns
- ((error line-start
- "asciidoctor: ERROR: <stdin>: Line " line ": " (message)
- line-end)
- (warning line-start
- "asciidoctor: WARNING: <stdin>: Line " line ": " (message)
- line-end))
- :modes adoc-mode)
-
-(flycheck-def-args-var flycheck-clang-args c/c++-clang
- :package-version '(flycheck . "0.22"))
-
-(flycheck-def-option-var flycheck-clang-blocks nil c/c++-clang
- "Enable blocks in Clang.
-
-When non-nil, enable blocks in Clang with `-fblocks'. See URL
-`http://clang.llvm.org/docs/BlockLanguageSpec.html' for more
-information about blocks."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-clang-definitions nil c/c++-clang
- "Additional preprocessor definitions for Clang.
-
-The value of this variable is a list of strings, where each
-string is an additional definition to pass to Clang, via the `-D'
-option."
- :type '(repeat (string :tag "Definition"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.15"))
-
-(flycheck-def-option-var flycheck-clang-include-path nil c/c++-clang
- "A list of include directories for Clang.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of Clang.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.14"))
-
-(flycheck-def-option-var flycheck-clang-includes nil c/c++-clang
- "A list of additional include files for Clang.
-
-The value of this variable is a list of strings, where each
-string is a file to include before syntax checking. Relative
-paths are relative to the file being checked."
- :type '(repeat (file :tag "Include file"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.15"))
-
-(flycheck-def-option-var flycheck-clang-language-standard nil c/c++-clang
- "The language standard to use in Clang.
-
-The value of this variable is either a string denoting a language
-standard, or nil, to use the default standard. When non-nil,
-pass the language standard via the `-std' option."
- :type '(choice (const :tag "Default standard" nil)
- (string :tag "Language standard"))
- :safe #'stringp
- :package-version '(flycheck . "0.15"))
-(make-variable-buffer-local 'flycheck-clang-language-standard)
-
-(flycheck-def-option-var flycheck-clang-ms-extensions nil c/c++-clang
- "Whether to enable Microsoft extensions to C/C++ in Clang.
-
-When non-nil, enable Microsoft extensions to C/C++ via
-`-fms-extensions'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.16"))
-
-(flycheck-def-option-var flycheck-clang-no-exceptions nil c/c++-clang
- "Whether to disable exceptions in Clang.
-
-When non-nil, disable exceptions for syntax checks, via
-`-fno-exceptions'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-clang-no-rtti nil c/c++-clang
- "Whether to disable RTTI in Clang.
-
-When non-nil, disable RTTI for syntax checks, via `-fno-rtti'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.15"))
-
-(flycheck-def-option-var flycheck-clang-pedantic nil c/c++-clang
- "Whether to warn about language extensions in Clang.
-
-For ISO C, follows the version specified by any -std option used.
-When non-nil, disable non-ISO extensions to C/C++ via
-`-pedantic'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.23"))
-
-(flycheck-def-option-var flycheck-clang-pedantic-errors nil c/c++-clang
- "Whether to error on language extensions in Clang.
-
-For ISO C, follows the version specified by any -std option used.
-When non-nil, disable non-ISO extensions to C/C++ via
-`-pedantic-errors'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.23"))
-
-(flycheck-def-option-var flycheck-clang-standard-library nil c/c++-clang
- "The standard library to use for Clang.
-
-The value of this variable is the name of a standard library as
-string, or nil to use the default standard library.
-
-Refer to the Clang manual at URL
-`http://clang.llvm.org/docs/UsersManual.html' for more
-information about the standard library."
- :type '(choice (const "libc++")
- (const :tag "GNU libstdc++" "libstdc++")
- (string :tag "Library name"))
- :safe #'stringp
- :package-version '(flycheck . "0.15"))
-
-(flycheck-def-option-var flycheck-clang-warnings '("all" "extra") c/c++-clang
- "A list of additional warnings to enable in Clang.
-
-The value of this variable is a list of strings, where each string
-is the name of a warning category to enable. By default, all
-recommended warnings and some extra warnings are enabled (as by
-`-Wall' and `-Wextra' respectively).
-
-Refer to the Clang manual at URL
-`http://clang.llvm.org/docs/UsersManual.html' for more
-information about warnings."
- :type '(choice (const :tag "No additional warnings" nil)
- (repeat :tag "Additional warnings"
- (string :tag "Warning name")))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.14"))
-
-(defun flycheck-c/c++-quoted-include-directory ()
- "Get the directory for quoted includes.
-
-C/C++ compiles typicall look up includes with quotation marks in
-the directory of the file being compiled. However, since
-Flycheck uses temporary copies for syntax checking, it needs to
-explicitly determine the directory for quoted includes.
-
-This function determines the directory by looking at function
-`buffer-file-name', or if that is nil, at `default-directory'."
- (-if-let (fn (buffer-file-name))
- (file-name-directory fn)
- ;; If the buffer has no file name, fall back to its default directory
- default-directory))
-
-(flycheck-define-checker c/c++-clang
- "A C/C++ syntax checker using Clang.
-
-See URL `http://clang.llvm.org/'."
- :command ("clang"
- "-fsyntax-only"
- "-fno-color-diagnostics" ; Do not include color codes in output
- "-fno-caret-diagnostics" ; Do not visually indicate the source
- ; location
- "-fno-diagnostics-show-option" ; Do not show the corresponding
- ; warning group
- "-iquote" (eval (flycheck-c/c++-quoted-include-directory))
- (option "-std=" flycheck-clang-language-standard concat)
- (option-flag "-pedantic" flycheck-clang-pedantic)
- (option-flag "-pedantic-errors" flycheck-clang-pedantic-errors)
- (option "-stdlib=" flycheck-clang-standard-library concat)
- (option-flag "-fms-extensions" flycheck-clang-ms-extensions)
- (option-flag "-fno-exceptions" flycheck-clang-no-exceptions)
- (option-flag "-fno-rtti" flycheck-clang-no-rtti)
- (option-flag "-fblocks" flycheck-clang-blocks)
- (option-list "-include" flycheck-clang-includes)
- (option-list "-W" flycheck-clang-warnings concat)
- (option-list "-D" flycheck-clang-definitions concat)
- (option-list "-I" flycheck-clang-include-path)
- (eval flycheck-clang-args)
- "-x" (eval
- (pcase major-mode
- (`c++-mode "c++")
- (`c-mode "c")))
- ;; Read from standard input
- "-")
- :standard-input t
- :error-patterns
- ((error line-start
- (message "In file included from") " " (or "<stdin>" (file-name))
- ":" line ":" line-end)
- (info line-start (or "<stdin>" (file-name)) ":" line ":" column
- ": note: " (optional (message)) line-end)
- (warning line-start (or "<stdin>" (file-name)) ":" line ":" column
- ": warning: " (optional (message)) line-end)
- (error line-start (or "<stdin>" (file-name)) ":" line ":" column
- ": " (or "fatal error" "error") ": " (optional (message)) line-end))
- :error-filter
- (lambda (errors)
- (let ((errors (flycheck-sanitize-errors errors)))
- (dolist (err errors)
- ;; Clang will output empty messages for #error/#warning pragmas without
- ;; messages. We fill these empty errors with a dummy message to get
- ;; them past our error filtering
- (setf (flycheck-error-message err)
- (or (flycheck-error-message err) "no message")))
- (flycheck-fold-include-levels errors "In file included from")))
- :modes (c-mode c++-mode)
- :next-checkers ((warning . c/c++-cppcheck)))
-
-(flycheck-def-args-var flycheck-gcc-args c/c++-gcc
- :package-version '(flycheck . "0.22"))
-
-(flycheck-def-option-var flycheck-gcc-definitions nil c/c++-gcc
- "Additional preprocessor definitions for GCC.
-
-The value of this variable is a list of strings, where each
-string is an additional definition to pass to GCC, via the `-D'
-option."
- :type '(repeat (string :tag "Definition"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gcc-include-path nil c/c++-gcc
- "A list of include directories for GCC.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of gcc.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gcc-includes nil c/c++-gcc
- "A list of additional include files for GCC.
-
-The value of this variable is a list of strings, where each
-string is a file to include before syntax checking. Relative
-paths are relative to the file being checked."
- :type '(repeat (file :tag "Include file"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gcc-language-standard nil c/c++-gcc
- "The language standard to use in GCC.
-
-The value of this variable is either a string denoting a language
-standard, or nil, to use the default standard. When non-nil,
-pass the language standard via the `-std' option."
- :type '(choice (const :tag "Default standard" nil)
- (string :tag "Language standard"))
- :safe #'stringp
- :package-version '(flycheck . "0.20"))
-(make-variable-buffer-local 'flycheck-gcc-language-standard)
-
-(flycheck-def-option-var flycheck-gcc-no-exceptions nil c/c++-gcc
- "Whether to disable exceptions in GCC.
-
-When non-nil, disable exceptions for syntax checks, via
-`-fno-exceptions'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gcc-no-rtti nil c/c++-gcc
- "Whether to disable RTTI in GCC.
-
-When non-nil, disable RTTI for syntax checks, via `-fno-rtti'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gcc-openmp nil c/c++-gcc
- "Whether to enable OpenMP in GCC.
-
-When non-nil, enable OpenMP for syntax checkers, via
-`-fopenmp'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.21"))
-
-(flycheck-def-option-var flycheck-gcc-pedantic nil c/c++-gcc
- "Whether to warn about language extensions in GCC.
-
-For ISO C, follows the version specified by any -std option used.
-When non-nil, disable non-ISO extensions to C/C++ via
-`-pedantic'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.23"))
-
-(flycheck-def-option-var flycheck-gcc-pedantic-errors nil c/c++-gcc
- "Whether to error on language extensions in GCC.
-
-For ISO C, follows the version specified by any -std option used.
-When non-nil, disable non-ISO extensions to C/C++ via
-`-pedantic-errors'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.23"))
-
-(flycheck-def-option-var flycheck-gcc-warnings '("all" "extra") c/c++-gcc
- "A list of additional warnings to enable in GCC.
-
-The value of this variable is a list of strings, where each string
-is the name of a warning category to enable. By default, all
-recommended warnings and some extra warnings are enabled (as by
-`-Wall' and `-Wextra' respectively).
-
-Refer to the gcc manual at URL
-`https://gcc.gnu.org/onlinedocs/gcc/' for more information about
-warnings."
- :type '(choice (const :tag "No additional warnings" nil)
- (repeat :tag "Additional warnings"
- (string :tag "Warning name")))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-define-checker c/c++-gcc
- "A C/C++ syntax checker using GCC.
-
-Requires GCC 4.4 or newer. See URL `https://gcc.gnu.org/'."
- :command ("gcc"
- "-fshow-column"
- "-iquote" (eval (flycheck-c/c++-quoted-include-directory))
- (option "-std=" flycheck-gcc-language-standard concat)
- (option-flag "-pedantic" flycheck-gcc-pedantic)
- (option-flag "-pedantic-errors" flycheck-gcc-pedantic-errors)
- (option-flag "-fno-exceptions" flycheck-gcc-no-exceptions)
- (option-flag "-fno-rtti" flycheck-gcc-no-rtti)
- (option-flag "-fopenmp" flycheck-gcc-openmp)
- (option-list "-include" flycheck-gcc-includes)
- (option-list "-W" flycheck-gcc-warnings concat)
- (option-list "-D" flycheck-gcc-definitions concat)
- (option-list "-I" flycheck-gcc-include-path)
- (eval flycheck-gcc-args)
- "-x" (eval
- (pcase major-mode
- (`c++-mode "c++")
- (`c-mode "c")))
- ;; GCC performs full checking only when actually compiling, so
- ;; `-fsyntax-only' is not enough. Just let it generate assembly
- ;; code.
- "-S" "-o" null-device
- ;; Read from standard input
- "-")
- :standard-input t
- :error-patterns
- ((error line-start
- (message "In file included from") " " (or "<stdin>" (file-name))
- ":" line ":" column ":" line-end)
- (info line-start (or "<stdin>" (file-name)) ":" line ":" column
- ": note: " (message) line-end)
- (warning line-start (or "<stdin>" (file-name)) ":" line ":" column
- ": warning: " (message (one-or-more (not (any "\n["))))
- (optional "[" (id (one-or-more not-newline)) "]") line-end)
- (error line-start (or "<stdin>" (file-name)) ":" line ":" column
- ": " (or "fatal error" "error") ": " (message) line-end))
- :error-filter
- (lambda (errors)
- (flycheck-fold-include-levels (flycheck-sanitize-errors errors)
- "In file included from"))
- :modes (c-mode c++-mode)
- :next-checkers ((warning . c/c++-cppcheck)))
-
-(flycheck-def-option-var flycheck-cppcheck-checks '("style") c/c++-cppcheck
- "Enabled checks for Cppcheck.
-
-The value of this variable is a list of strings, where each
-string is the name of an additional check to enable. By default,
-all coding style checks are enabled.
-
-See section \"Enable message\" in the Cppcheck manual at URL
-`http://cppcheck.sourceforge.net/manual.pdf', and the
-documentation of the `--enable' option for more information,
-including a list of supported checks."
- :type '(repeat :tag "Additional checks"
- (string :tag "Check name"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.14"))
-
-(flycheck-def-option-var flycheck-cppcheck-standards nil c/c++-cppcheck
- "The standards to use in cppcheck.
-
-The value of this variable is either a list of strings denoting
-the standards to use, or nil to pass nothing to cppcheck. When
-non-nil, pass the standards via one or more `--std=' options."
- :type '(choice (const :tag "Default" nil)
- (repeat :tag "Custom standards"
- (string :tag "Standard name")))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "28"))
-(make-variable-buffer-local 'flycheck-cppcheck-standards)
-
-(flycheck-def-option-var flycheck-cppcheck-suppressions-file nil c/c++-cppcheck
- "The suppressions file to use in cppcheck.
-
-The value of this variable is a file with the suppressions to
-use, or nil to pass nothing to cppcheck. When non-nil, pass the
-suppressions file via the `--suppressions-list=' option."
- :type '(choice (const :tag "Default" nil)
- (file :tag "Suppressions file"))
- :safe #'stringp
- :package-version '(flycheck . "32"))
-(make-variable-buffer-local 'flycheck-cppcheck-suppressions-file)
-
-(flycheck-def-option-var flycheck-cppcheck-suppressions nil c/c++-cppcheck
- "The suppressions to use in cppcheck.
-
-The value of this variable is either a list of strings denoting
-the suppressions to use, or nil to pass nothing to cppcheck.
-When non-nil, pass the suppressions via one or more `--suppress='
-options."
- :type '(choice (const :tag "Default" nil)
- (repeat :tag "Additional suppressions"
- (string :tag "Suppression")))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "28"))
-
-(flycheck-def-option-var flycheck-cppcheck-inconclusive nil c/c++-cppcheck
- "Whether to enable Cppcheck inconclusive checks.
-
-When non-nil, enable Cppcheck inconclusive checks. This allows Cppcheck to
-report warnings it's not certain of, but it may result in false positives.
-
-This will have no effect when using Cppcheck 1.53 and older."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.19"))
-
-(flycheck-def-option-var flycheck-cppcheck-include-path nil c/c++-cppcheck
- "A list of include directories for cppcheck.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of cppcheck.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-define-checker c/c++-cppcheck
- "A C/C++ checker using cppcheck.
-
-See URL `http://cppcheck.sourceforge.net/'."
- :command ("cppcheck" "--quiet" "--xml-version=2" "--inline-suppr"
- (option "--enable=" flycheck-cppcheck-checks concat
- flycheck-option-comma-separated-list)
- (option-flag "--inconclusive" flycheck-cppcheck-inconclusive)
- (option-list "-I" flycheck-cppcheck-include-path)
- (option-list "--std=" flycheck-cppcheck-standards concat)
- (option-list "--suppress=" flycheck-cppcheck-suppressions concat)
- (option "--suppressions-list="
- flycheck-cppcheck-suppressions-file concat)
- "-x" (eval
- (pcase major-mode
- (`c++-mode "c++")
- (`c-mode "c")))
- source)
- :error-parser flycheck-parse-cppcheck
- :modes (c-mode c++-mode))
-
-(flycheck-define-checker cfengine
- "A CFEngine syntax checker using cf-promises.
-
-See URL `https://cfengine.com/'."
- :command ("cf-promises" "-Wall" "-f"
- ;; We must stay in the same directory to resolve @include
- source-inplace)
- :error-patterns
- ((warning line-start (file-name) ":" line ":" column
- ": warning: " (message) line-end)
- (error line-start (file-name) ":" line ":" column
- ": error: " (message) line-end))
- :modes (cfengine-mode cfengine3-mode))
-
-(flycheck-def-option-var flycheck-foodcritic-tags nil chef-foodcritic
- "A list of tags to select for Foodcritic.
-
-The value of this variable is a list of strings where each string
-is a tag expression describing Foodcritic rules to enable or
-disable, via the `--tags' option. To disable a tag, prefix it
-with `~'."
- :type '(repeat :tag "Tags" (string :tag "Tag expression"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.23"))
-
-(flycheck-define-checker chef-foodcritic
- "A Chef cookbooks syntax checker using Foodcritic.
-
-See URL `http://www.foodcritic.io'."
- ;; Use `source-inplace' to allow resource discovery with relative paths.
- ;; foodcritic interprets these as relative to the source file, so we need to
- ;; stay within the source tree. See
- ;; https://github.com/flycheck/flycheck/pull/556
- :command ("foodcritic"
- (option-list "--tags" flycheck-foodcritic-tags)
- source-inplace)
- :error-patterns
- ((error line-start (id (one-or-more alnum)) ": "
- (message) ": " (file-name) ":" line line-end))
- :modes (enh-ruby-mode ruby-mode)
- :predicate
- (lambda ()
- (let ((parent-dir (file-name-directory
- (directory-file-name
- (expand-file-name default-directory)))))
- (or
- ;; Chef CookBook
- ;; http://docs.opscode.com/chef/knife.html#id38
- (locate-dominating-file parent-dir "recipes")
- ;; Knife Solo
- ;; http://matschaffer.github.io/knife-solo/#label-Init+command
- (locate-dominating-file parent-dir "cookbooks")))))
-
-(flycheck-define-checker coffee
- "A CoffeeScript syntax checker using coffee.
-
-See URL `https://coffeescript.org/'."
- ;; --print suppresses generation of compiled .js files
- :command ("coffee" "--compile" "--print" "--stdio")
- :standard-input t
- :error-patterns
- ((error line-start "[stdin]:" line ":" column
- ": error: " (message) line-end))
- :modes coffee-mode
- :next-checkers ((warning . coffee-coffeelint)))
-
-(flycheck-def-config-file-var flycheck-coffeelintrc coffee-coffeelint
- ".coffeelint.json"
- :safe #'stringp)
-
-(flycheck-define-checker coffee-coffeelint
- "A CoffeeScript style checker using coffeelint.
-
-See URL `http://www.coffeelint.org/'."
- :command
- ("coffeelint"
- (config-file "--file" flycheck-coffeelintrc)
- "--stdin" "--reporter" "checkstyle")
- :standard-input t
- :error-parser flycheck-parse-checkstyle
- :error-filter (lambda (errors)
- (flycheck-remove-error-file-names
- "stdin" (flycheck-remove-error-ids
- (flycheck-sanitize-errors errors))))
- :modes coffee-mode)
-
-(flycheck-define-checker coq
- "A Coq syntax checker using the Coq compiler.
-
-See URL `https://coq.inria.fr/'."
- ;; We use coqtop in batch mode, because coqc is picky about file names.
- :command ("coqtop" "-batch" "-load-vernac-source" source)
- :error-patterns
- ((error line-start "File \"" (file-name) "\", line " line
- ;; TODO: Parse the end column, once Flycheck supports that
- ", characters " column "-" (one-or-more digit) ":\n"
- (or "Syntax error:" "Error:")
- ;; Most Coq error messages span multiple lines, and end with a dot.
- ;; There are simple one-line messages, too, though.
- (message (or (and (one-or-more (or not-newline "\n")) ".")
- (one-or-more not-newline)))
- line-end))
- :error-filter
- (lambda (errors)
- (dolist (err (flycheck-sanitize-errors errors))
- (setf (flycheck-error-message err)
- (replace-regexp-in-string (rx (1+ (syntax whitespace)) line-end)
- "" (flycheck-error-message err)
- 'fixedcase 'literal)))
- (flycheck-increment-error-columns errors))
- :modes coq-mode)
-
-(flycheck-define-checker css-csslint
- "A CSS syntax and style checker using csslint.
-
-See URL `https://github.com/CSSLint/csslint'."
- :command ("csslint" "--format=checkstyle-xml" source)
- :error-parser flycheck-parse-checkstyle
- :error-filter flycheck-dequalify-error-ids
- :modes css-mode)
-
-(defconst flycheck-stylelint-args '("--formatter" "json")
- "Common arguments to stylelint invocations.")
-
-(flycheck-def-config-file-var flycheck-stylelintrc
- (css-stylelint scss-stylelint less-stylelint) nil
- :safe #'stringp)
-
-(flycheck-def-option-var flycheck-stylelint-quiet
- nil (css-stylelint scss-stylelint less-stylelint)
- "Whether to run stylelint in quiet mode.
-
-When non-nil, enable quiet mode, via `--quiet'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . 26))
-
-(defconst flycheck-stylelint-error-re
- (flycheck-rx-to-string
- '(: line-start (id (one-or-more word)) ": " (message) line-end)))
-
-(defun flycheck-parse-stylelint (output checker buffer)
- "Parse stylelint errors from OUTPUT.
-
-CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-The CHECKER usually returns the errors as JSON.
-
-If the CHECKER throws an Error it returns an Error message with a stacktrace."
- (condition-case nil
- (flycheck-parse-stylelint-json output checker buffer)
-
- ;; The output could not be parsed as JSON
- (json-error
-
- ;; Extract a flycheck error from the output (with a regular expression)
- ;; For match-string 4/5 see flycheck-rx-message/flycheck-rx-id
- (when (string-match flycheck-stylelint-error-re output)
- (list (flycheck-error-new-at
- 1 nil 'error
- (match-string 4 output)
- :id (match-string 5 output)
- :checker checker
- :buffer buffer
- :filename (buffer-file-name buffer)))))))
-
-(defun flycheck-parse-stylelint-json (output checker buffer)
- "Parse stylelint JSON errors from OUTPUT.
-
-CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `http://stylelint.io/developer-guide/formatters/' for information
-about the JSON format of stylelint."
- (let ((json-object-type 'plist))
-
- ;; stylelint returns a vector of result objects
- ;; Since we only passed one file, the first element is enough
- (let* ((stylelint-output (elt (json-read-from-string output) 0))
- (filename (buffer-file-name buffer))
-
- ;; Turn all deprecations into warnings
- (deprecations
- (mapcar (lambda (d)
- (flycheck-error-new-at
- 1 nil 'warning
- (plist-get d :text)
- :id "Deprecation Warning"
- :checker checker
- :buffer buffer
- :filename filename))
- (plist-get stylelint-output :deprecations)))
-
- ;; Turn all invalid options into errors
- (invalid-options
- (mapcar (lambda (io)
- (flycheck-error-new-at
- 1 nil 'error
- (plist-get io :text)
- :id "Invalid Option"
- :checker checker
- :buffer buffer
- :filename filename))
- (plist-get stylelint-output :invalidOptionWarnings)))
-
- ;; Read all linting warnings
- (warnings
- (mapcar (lambda (w)
- (flycheck-error-new-at
- (plist-get w :line) (plist-get w :column)
- (pcase (plist-get w :severity)
- (`"error" 'error)
- (`"warning" 'warning)
- ;; Default to info for unknown .severity
- (_ 'info))
- (plist-get w :text)
- :id (plist-get w :rule)
- :checker checker
- :buffer buffer
- :filename filename))
- (plist-get stylelint-output :warnings))))
-
- ;; Return the combined errors (deprecations, invalid options, warnings)
- (append deprecations invalid-options warnings))))
-
-(flycheck-define-checker css-stylelint
- "A CSS syntax and style checker using stylelint.
-
-See URL `http://stylelint.io/'."
- :command ("stylelint"
- (eval flycheck-stylelint-args)
- (option-flag "--quiet" flycheck-stylelint-quiet)
- (config-file "--config" flycheck-stylelintrc))
- :standard-input t
- :error-parser flycheck-parse-stylelint
- :modes (css-mode))
-
-(flycheck-def-option-var flycheck-cwl-schema-path nil cwl
- "A path for the schema file for Common Workflow Language.
-
-The value of this variable is a string that denotes a path for
-the schema file of Common Workflow Language."
- :type 'string
- :safe #'stringp)
-
-(flycheck-define-checker cwl
- "A CWL syntax checker using Schema Salad validator.
-
-Requires Schema Salad 2.6.20171101113912 or newer.
-See URL `https://www.commonwl.org/v1.0/SchemaSalad.html'."
- :command ("schema-salad-tool"
- "--quiet"
- "--print-oneline"
- (eval flycheck-cwl-schema-path)
- source-inplace)
- :error-patterns
- ((error line-start
- (file-name) ":" line ":" column ":" (zero-or-more blank)
- (message (one-or-more not-newline))
- line-end))
- :modes cwl-mode)
-
-(defconst flycheck-d-module-re
- (rx "module" (one-or-more (syntax whitespace))
- (group (one-or-more (not (syntax whitespace))))
- (zero-or-more (syntax whitespace))
- ";")
- "Regular expression to match a D module declaration.")
-
-(defun flycheck-d-base-directory ()
- "Get the relative base directory path for this module."
- (let* ((file-name (buffer-file-name))
- (module-file (if (string= (file-name-nondirectory file-name)
- "package.d")
- (directory-file-name (file-name-directory file-name))
- file-name)))
- (flycheck-module-root-directory
- (flycheck-find-in-buffer flycheck-d-module-re)
- module-file)))
-
-(flycheck-def-option-var flycheck-dmd-include-path nil d-dmd
- "A list of include directories for dmd.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of dmd.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.18"))
-
-(flycheck-def-args-var flycheck-dmd-args d-dmd
- :package-version '(flycheck . "0.24"))
-
-(flycheck-define-checker d-dmd
- "A D syntax checker using the DMD compiler.
-
-Requires DMD 2.066 or newer. See URL `https://dlang.org/'."
- :command ("dmd"
- "-debug" ; Compile in debug mode
- "-o-" ; Don't generate an object file
- "-vcolumns" ; Add columns in output
- "-wi" ; Compilation will continue even if there are warnings
- (eval (concat "-I" (flycheck-d-base-directory)))
- (option-list "-I" flycheck-dmd-include-path concat)
- (eval flycheck-dmd-args)
- source)
- :error-patterns
- ((error line-start
- (file-name) "(" line "," column "): Error: " (message)
- line-end)
- (warning line-start (file-name) "(" line "," column "): "
- (or "Warning" "Deprecation") ": " (message) line-end)
- (info line-start (file-name) "(" line "," column "): "
- (one-or-more " ") (message) line-end))
- :modes d-mode)
-
-(flycheck-define-checker dockerfile-hadolint
- "A Dockerfile syntax checker using the hadolint.
-
-See URL `http://github.com/hadolint/hadolint/'."
- :command ("hadolint" "-")
- :standard-input t
- :error-patterns
- ((error line-start
- (file-name) ":" line ":" column " " (message)
- line-end)
- (warning line-start
- (file-name) ":" line " " (id (one-or-more alnum)) " " (message)
- line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors
- (flycheck-remove-error-file-names "/dev/stdin" errors)))
- :modes dockerfile-mode)
-
-(defconst flycheck-this-emacs-executable
- (concat invocation-directory invocation-name)
- "The path to the currently running Emacs executable.")
-
-(defconst flycheck-emacs-args '("-Q" "--batch")
- "Common arguments to Emacs invocations.")
-
-(defmacro flycheck-prepare-emacs-lisp-form (&rest body)
- "Prepare BODY for use as check form in a subprocess."
- (declare (indent 0))
- `(flycheck-sexp-to-string
- '(progn
- (defvar jka-compr-inhibit)
- (unwind-protect
- ;; Flycheck inhibits compression of temporary files, thus we
- ;; must not attempt to decompress.
- (let ((jka-compr-inhibit t))
- ;; Strip option-argument separator from arguments, if present
- (when (equal (car command-line-args-left) "--")
- (setq command-line-args-left (cdr command-line-args-left)))
- ,@body)
- ;; Prevent Emacs from processing the arguments on its own, see
- ;; https://github.com/flycheck/flycheck/issues/319
- (setq command-line-args-left nil)))))
-
-(defconst flycheck-emacs-lisp-check-form
- (flycheck-prepare-emacs-lisp-form
- ;; Keep track of the generated bytecode files, to delete them after byte
- ;; compilation.
- (defvar flycheck-byte-compiled-files nil)
- (let ((byte-compile-dest-file-function
- (lambda (source)
- (let ((temp-file (make-temp-file (file-name-nondirectory source))))
- (push temp-file flycheck-byte-compiled-files)
- temp-file))))
- (unwind-protect
- (byte-compile-file (car command-line-args-left))
- (mapc (lambda (f) (ignore-errors (delete-file f)))
- flycheck-byte-compiled-files))
- (when (bound-and-true-p flycheck-emacs-lisp-check-declare)
- (check-declare-file (car command-line-args-left))))))
-
-(flycheck-def-option-var flycheck-emacs-lisp-load-path nil emacs-lisp
- "Load path to use in the Emacs Lisp syntax checker.
-
-When set to `inherit', use the `load-path' of the current Emacs
-session during syntax checking.
-
-When set to a list of strings, add each directory in this list to
-the `load-path' before invoking the byte compiler. Relative
-paths in this list are expanded against the `default-directory'
-of the buffer to check.
-
-When nil, do not explicitly set the `load-path' during syntax
-checking. The syntax check only uses the built-in `load-path' of
-Emacs in this case.
-
-Note that changing this variable can lead to wrong results of the
-syntax check, e.g. if an unexpected version of a required library
-is used."
- :type '(choice (const :tag "Inherit current `load-path'" inherit)
- (repeat :tag "Load path" directory))
- :risky t
- :package-version '(flycheck . "0.14"))
-
-(flycheck-def-option-var flycheck-emacs-lisp-initialize-packages
- 'auto emacs-lisp
- "Whether to initialize packages in the Emacs Lisp syntax checker.
-
-When nil, never initialize packages. When `auto', initialize
-packages only when checking `user-init-file' or files from
-`user-emacs-directory'. For any other non-nil value, always
-initialize packages.
-
-When initializing packages is enabled the `emacs-lisp' syntax
-checker calls `package-initialize' before byte-compiling the file
-to be checked. It also sets `package-user-dir' according to
-`flycheck-emacs-lisp-package-user-dir'."
- :type '(choice (const :tag "Do not initialize packages" nil)
- (const :tag "Initialize packages for configuration only" auto)
- (const :tag "Always initialize packages" t))
- :risky t
- :package-version '(flycheck . "0.14"))
-
-(defconst flycheck-emacs-lisp-package-initialize-form
- (flycheck-sexp-to-string
- '(with-demoted-errors "Error during package initialization: %S"
- (package-initialize)))
- "Form used to initialize packages.")
-
-(defun flycheck-option-emacs-lisp-package-initialize (value)
- "Option VALUE filter for `flycheck-emacs-lisp-initialize-packages'."
- (let ((shall-initialize
- (if (eq value 'auto)
- (or (flycheck-in-user-emacs-directory-p (buffer-file-name))
- ;; `user-init-file' is nil in non-interactive sessions. Now,
- ;; no user would possibly use Flycheck in a non-interactive
- ;; session, but our unit tests run non-interactively, so we
- ;; have to handle this case anyway
- (and user-init-file
- (flycheck-same-files-p (buffer-file-name)
- user-init-file)))
- value)))
- (when shall-initialize
- ;; If packages shall be initialized, return the corresponding form,
- ;; otherwise make Flycheck ignore the option by returning nil.
- flycheck-emacs-lisp-package-initialize-form)))
-
-(flycheck-def-option-var flycheck-emacs-lisp-package-user-dir nil emacs-lisp
- "Package directory for the Emacs Lisp syntax checker.
-
-If set to a string set `package-user-dir' to the value of this
-variable before initializing packages. If set to nil just inherit
-the value of `package-user-dir' from the running Emacs session.
-
-This variable has no effect, if
-`flycheck-emacs-lisp-initialize-packages' is nil."
- :type '(choice (const :tag "Default package directory" nil)
- (directory :tag "Custom package directory"))
- :risky t
- :package-version '(flycheck . "0.14"))
-
-(defun flycheck-option-emacs-lisp-package-user-dir (value)
- "Option VALUE filter for `flycheck-emacs-lisp-package-user-dir'."
- ;; Inherit the package directory from our Emacs session
- (let ((value (or value (bound-and-true-p package-user-dir))))
- (when value
- (flycheck-sexp-to-string `(setq package-user-dir ,value)))))
-
-(flycheck-def-option-var flycheck-emacs-lisp-check-declare nil emacs-lisp
- "If non-nil, check ‘declare-function’ forms using ‘check-declare-file’."
- :type '(choice (const :tag "Do not check declare forms" nil)
- (const :tag "Check declare forms" t))
- :risky t
- :package-version '(flycheck . "31"))
-
-(defun flycheck-option-emacs-lisp-check-declare (value)
- "Option VALUE filter for `flycheck-emacs-lisp-check-declare'."
- (when value
- (flycheck-sexp-to-string
- `(progn
- (defvar flycheck-emacs-lisp-check-declare)
- (setq flycheck-emacs-lisp-check-declare ,value)))))
-
-(flycheck-define-checker emacs-lisp
- "An Emacs Lisp syntax checker using the Emacs Lisp Byte compiler.
-
-See Info Node `(elisp)Byte Compilation'."
- :command ("emacs" (eval flycheck-emacs-args)
- (eval
- (let ((path (pcase flycheck-emacs-lisp-load-path
- (`inherit load-path)
- (p (seq-map #'expand-file-name p)))))
- (flycheck-prepend-with-option "--directory" path)))
- (option "--eval" flycheck-emacs-lisp-package-user-dir nil
- flycheck-option-emacs-lisp-package-user-dir)
- (option "--eval" flycheck-emacs-lisp-initialize-packages nil
- flycheck-option-emacs-lisp-package-initialize)
- (option "--eval" flycheck-emacs-lisp-check-declare nil
- flycheck-option-emacs-lisp-check-declare)
- "--eval" (eval flycheck-emacs-lisp-check-form)
- "--"
- source-inplace)
- :error-patterns
- ((error line-start (file-name) ":" line ":" column ":Error:"
- (message (zero-or-more not-newline)
- (zero-or-more "\n " (zero-or-more not-newline)))
- line-end)
- (warning line-start (file-name) ":" line ":" column ":Warning:"
- (message (zero-or-more not-newline)
- (zero-or-more "\n " (zero-or-more not-newline)))
- line-end)
- (warning line-start (file-name) ":" line (optional ":" column)
- ":Warning (check-declare): said\n"
- (message (zero-or-more " " (zero-or-more not-newline))
- (zero-or-more "\n " (zero-or-more not-newline)))
- line-end)
- ;; The following is for Emacs 24 ‘check-declare-file’, which uses a
- ;; less informative format.
- (warning line-start "Warning (check-declare): " (file-name) " said "
- (message (zero-or-more not-newline))
- line-end))
- :error-filter
- (lambda (errors)
- (flycheck-fill-empty-line-numbers
- (flycheck-collapse-error-message-whitespace
- (flycheck-sanitize-errors errors))))
- :modes (emacs-lisp-mode lisp-interaction-mode)
- :predicate
- (lambda ()
- (and
- ;; Ensure that we only check buffers with a backing file. For buffers
- ;; without a backing file we cannot guarantee that file names in error
- ;; messages are properly resolved, because `byte-compile-file' emits file
- ;; names *relative to the directory of the checked file* instead of the
- ;; working directory. Hence our backwards-substitution will fail, because
- ;; the checker process has a different base directory to resolve relative
- ;; file names than the Flycheck code working on the buffer to check.
- (buffer-file-name)
- ;; Do not check buffers which should not be byte-compiled. The checker
- ;; process will refuse to compile these, which would confuse Flycheck
- (not (bound-and-true-p no-byte-compile))
- ;; Do not check buffers used for autoloads generation during package
- ;; installation. These buffers are too short-lived for being checked, and
- ;; doing so causes spurious errors. See
- ;; https://github.com/flycheck/flycheck/issues/45 and
- ;; https://github.com/bbatsov/prelude/issues/248. We must also not check
- ;; compilation buffers, but as these are ephemeral, Flycheck won't check
- ;; them anyway.
- (not (flycheck-autoloads-file-p))))
- :next-checkers (emacs-lisp-checkdoc))
-
-(defconst flycheck-emacs-lisp-checkdoc-form
- (flycheck-prepare-emacs-lisp-form
- (unless (require 'elisp-mode nil 'no-error)
- ;; TODO: Fallback for Emacs 24, remove when dropping support for 24
- (require 'lisp-mode))
- (require 'checkdoc)
-
- (let ((source (car command-line-args-left))
- ;; Remember the default directory of the process
- (process-default-directory default-directory))
- ;; Note that we deliberately use our custom approach even despite of
- ;; `checkdoc-file' which was added to Emacs 25.1. While it's conceptually
- ;; the better thing, its implementation has too many flaws to be of use
- ;; for us.
- (with-temp-buffer
- (insert-file-contents source 'visit)
- (setq buffer-file-name source)
- ;; And change back to the process default directory to make file-name
- ;; back-substutition work
- (setq default-directory process-default-directory)
- (with-demoted-errors "Error in checkdoc: %S"
- ;; Checkdoc needs the Emacs Lisp syntax table and comment syntax to
- ;; parse sexps and identify docstrings correctly; see
- ;; https://github.com/flycheck/flycheck/issues/833
- (delay-mode-hooks (emacs-lisp-mode))
- (setq delayed-mode-hooks nil)
- (checkdoc-current-buffer t)
- (with-current-buffer checkdoc-diagnostic-buffer
- (princ (buffer-substring-no-properties (point-min) (point-max)))
- (kill-buffer)))))))
-
-(defconst flycheck-emacs-lisp-checkdoc-variables
- '(checkdoc-symbol-words
- checkdoc-arguments-in-order-flag
- checkdoc-force-history-flag
- checkdoc-permit-comma-termination-flag
- checkdoc-force-docstrings-flag
- checkdoc-package-keywords-flag
- checkdoc-spellcheck-documentation-flag
- checkdoc-verb-check-experimental-flag
- checkdoc-max-keyref-before-warn
- sentence-end-double-space)
- "Variables inherited by the checkdoc subprocess.")
-
-(defun flycheck-emacs-lisp-checkdoc-variables-form ()
- "Make a sexp to pass relevant variables to a checkdoc subprocess.
-
-Variables are taken from `flycheck-emacs-lisp-checkdoc-variables'."
- `(progn
- ,@(seq-map (lambda (opt) `(setq-default ,opt ',(symbol-value opt)))
- (seq-filter #'boundp flycheck-emacs-lisp-checkdoc-variables))))
-
-(flycheck-define-checker emacs-lisp-checkdoc
- "An Emacs Lisp style checker using CheckDoc.
-
-The checker runs `checkdoc-current-buffer'."
- :command ("emacs" (eval flycheck-emacs-args)
- "--eval" (eval (flycheck-sexp-to-string
- (flycheck-emacs-lisp-checkdoc-variables-form)))
- "--eval" (eval flycheck-emacs-lisp-checkdoc-form)
- "--" source)
- :error-patterns
- ((warning line-start (file-name) ":" line ": " (message) line-end))
- :modes (emacs-lisp-mode)
- :predicate
- (lambda ()
- ;; Do not check Autoloads, Cask/Carton and dir-locals files. These files
- ;; really don't need to follow Checkdoc conventions.
- (not (or (flycheck-autoloads-file-p)
- (and (buffer-file-name)
- (member (file-name-nondirectory (buffer-file-name))
- '("Cask" "Carton" ".dir-locals.el")))))))
-
-(dolist (checker '(emacs-lisp emacs-lisp-checkdoc))
- (setf (car (flycheck-checker-get checker 'command))
- flycheck-this-emacs-executable))
-
-(flycheck-def-option-var flycheck-erlang-include-path nil erlang
- "A list of include directories for Erlang.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of erlc.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-def-option-var flycheck-erlang-library-path nil erlang
- "A list of library directories for Erlang.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the library path of erlc.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Library directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-define-checker erlang
- "An Erlang syntax checker using the Erlang interpreter.
-
-See URL `http://www.erlang.org/'."
- :command ("erlc"
- "-o" temporary-directory
- (option-list "-I" flycheck-erlang-include-path)
- (option-list "-pa" flycheck-erlang-library-path)
- "-Wall"
- source)
- :error-patterns
- ((warning line-start (file-name) ":" line ": Warning:" (message) line-end)
- (error line-start (file-name) ":" line ": " (message) line-end))
- :modes erlang-mode
- :enabled (lambda () (string-suffix-p ".erl" (buffer-file-name))))
-
-(defun contains-rebar-config (dir-name)
- "Return DIR-NAME if DIR-NAME/rebar.config exists, nil otherwise."
- (when (file-exists-p (expand-file-name "rebar.config" dir-name))
- dir-name))
-
-(defun locate-rebar3-project-root (file-name &optional prev-file-name acc)
- "Find the top-most rebar project root for source FILE-NAME.
-
-A project root directory is any directory containing a
-rebar.config file. Find the top-most directory to move out of any
-nested dependencies.
-
-FILE-NAME is a source file for which to find the project.
-
-PREV-FILE-NAME helps us prevent infinite looping
-
-ACC is an accumulator that keeps the list of results, the first
-non-nil of which will be our project root.
-
-Return the absolute path to the directory"
- (if (string= file-name prev-file-name)
- (car (remove nil acc))
- (let ((current-dir (file-name-directory file-name)))
- (locate-rebar3-project-root
- (directory-file-name current-dir)
- file-name
- (cons (contains-rebar-config current-dir) acc)))))
-
-(defun flycheck-rebar3-project-root (&optional _checker)
- "Return directory where rebar.config is located."
- (locate-rebar3-project-root buffer-file-name))
-
-(flycheck-define-checker erlang-rebar3
- "An Erlang syntax checker using the rebar3 build tool."
- :command ("rebar3" "compile")
- :error-parser
- (lambda (output checker buffer)
- ;; rebar3 outputs ANSI terminal colors, which don't match up with
- ;; :error-patterns, so we strip those color codes from the output
- ;; here before passing it along to the default behavior. The
- ;; relevant discussion can be found at
- ;; https://github.com/flycheck/flycheck/pull/1144
- (require 'ansi-color)
- (flycheck-parse-with-patterns
- (and (fboundp 'ansi-color-filter-apply) (ansi-color-filter-apply output))
- checker buffer))
- :error-patterns
- ((warning line-start
- (file-name) ":" line ": Warning:" (message) line-end)
- (error line-start
- (file-name) ":" line ": " (message) line-end))
- :modes erlang-mode
- :enabled flycheck-rebar3-project-root
- :predicate flycheck-buffer-saved-p
- :working-directory flycheck-rebar3-project-root)
-
-(flycheck-define-checker eruby-erubis
- "An eRuby syntax checker using the `erubis' command.
-
-See URL `http://www.kuwata-lab.com/erubis/'."
- :command ("erubis" "-z" source)
- :error-patterns
- ((error line-start (file-name) ":" line ": " (message) line-end))
- :modes (html-erb-mode rhtml-mode))
-
-(flycheck-def-args-var flycheck-gfortran-args fortran-gfortran
- :package-version '(flycheck . "0.22"))
-
-(flycheck-def-option-var flycheck-gfortran-include-path nil fortran-gfortran
- "A list of include directories for GCC Fortran.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of gcc.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gfortran-language-standard "f95"
- fortran-gfortran
- "The language standard to use in GFortran.
-
-The value of this variable is either a string denoting a language
-standard, or nil, to use the default standard. When non-nil,
-pass the language standard via the `-std' option."
- :type '(choice (const :tag "Default standard" nil)
- (string :tag "Language standard"))
- :safe #'stringp
- :package-version '(flycheck . "0.20"))
-
-(flycheck-def-option-var flycheck-gfortran-layout nil fortran-gfortran
- "The source code layout to use in GFortran.
-
-The value of this variable is one of the following symbols:
-
-nil
- Let gfortran determine the layout from the extension
-
-`free'
- Use free form layout
-
-
-`fixed'
- Use fixed form layout
-
-In any other case, an error is signaled."
- :type '(choice (const :tag "Guess layout from extension" nil)
- (const :tag "Free form layout" free)
- (const :tag "Fixed form layout" fixed))
- :safe (lambda (value) (or (not value) (memq value '(free fixed))))
- :package-version '(flycheck . "0.20"))
-
-(defun flycheck-option-gfortran-layout (value)
- "Option VALUE filter for `flycheck-gfortran-layout'."
- (pcase value
- (`nil nil)
- (`free "free-form")
- (`fixed "fixed-form")
- (_ (error "Invalid value for flycheck-gfortran-layout: %S" value))))
-
-(flycheck-def-option-var flycheck-gfortran-warnings '("all" "extra")
- fortran-gfortran
- "A list of warnings for GCC Fortran.
-
-The value of this variable is a list of strings, where each string
-is the name of a warning category to enable. By default, all
-recommended warnings and some extra warnings are enabled (as by
-`-Wall' and `-Wextra' respectively).
-
-Refer to the gfortran manual at URL
-`https://gcc.gnu.org/onlinedocs/gfortran/' for more information
-about warnings"
- :type '(choice (const :tag "No additional warnings" nil)
- (repeat :tag "Additional warnings"
- (string :tag "Warning name")))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.20"))
-
-(flycheck-define-checker fortran-gfortran
- "An Fortran syntax checker using GCC.
-
-Uses GCC's Fortran compiler gfortran. See URL
-`https://gcc.gnu.org/onlinedocs/gfortran/'."
- :command ("gfortran"
- "-fsyntax-only"
- "-fshow-column"
- ;; Do not visually indicate the source location
- "-fno-diagnostics-show-caret"
- ;; Do not show the corresponding warning group
- "-fno-diagnostics-show-option"
- ;; Fortran has similar include processing as C/C++
- "-iquote" (eval (flycheck-c/c++-quoted-include-directory))
- (option "-std=" flycheck-gfortran-language-standard concat)
- (option "-f" flycheck-gfortran-layout concat
- flycheck-option-gfortran-layout)
- (option-list "-W" flycheck-gfortran-warnings concat)
- (option-list "-I" flycheck-gfortran-include-path concat)
- (eval flycheck-gfortran-args)
- source)
- :error-patterns
- ((error line-start (file-name) ":" line (or ":" ".") column (or ": " ":\n")
- (or (= 3 (zero-or-more not-newline) "\n") "")
- (or "Error" "Fatal Error") ": "
- (message) line-end)
- (warning line-start (file-name) ":" line (or ":" ".") column (or ": " ":\n")
- (or (= 3 (zero-or-more not-newline) "\n") "")
- "Warning: " (message) line-end))
- :modes (fortran-mode f90-mode))
-
-(flycheck-define-checker go-gofmt
- "A Go syntax and style checker using the gofmt utility.
-
-See URL `https://golang.org/cmd/gofmt/'."
- :command ("gofmt")
- :standard-input t
- :error-patterns
- ((error line-start "<standard input>:" line ":" column ": "
- (message) line-end))
- :modes go-mode
- :next-checkers ((warning . go-golint)
- ;; Fall back, if go-golint doesn't exist
- (warning . go-vet)
- ;; Fall back, if go-vet doesn't exist
- (warning . go-build) (warning . go-test)
- (warning . go-errcheck)
- (warning . go-unconvert)
- (warning . go-megacheck)))
-
-(flycheck-define-checker go-golint
- "A Go style checker using Golint.
-
-See URL `https://github.com/golang/lint'."
- :command ("golint" source)
- :error-patterns
- ((warning line-start (file-name) ":" line ":" column ": " (message) line-end))
- :modes go-mode
- :next-checkers (go-vet
- ;; Fall back, if go-vet doesn't exist
- go-build go-test go-errcheck go-unconvert go-megacheck))
-
-(flycheck-def-option-var flycheck-go-vet-print-functions nil go-vet
- "A list of print-like functions for `go tool vet'.
-
-Go vet will check these functions for format string problems and
-issues, such as a mismatch between the number of formats used,
-and the number of arguments given.
-
-Each entry is in the form Name:N where N is the zero-based
-argument position of the first argument involved in the print:
-either the format or the first print argument for non-formatted
-prints. For example, if you have Warn and Warnf functions that
-take an io.Writer as their first argument, like Fprintf,
--printfuncs=Warn:1,Warnf:1 "
- :type '(repeat :tag "print-like functions"
- (string :tag "function"))
- :safe #'flycheck-string-list-p)
-
-(flycheck-def-option-var flycheck-go-vet-shadow nil go-vet
- "Whether to check for shadowed variables with `go tool vet'.
-
-When non-nil check for shadowed variables. When `strict' check
-more strictly, which can very noisy. When nil do not check for
-shadowed variables.
-
-This option requires Go 1.6 or newer."
- :type '(choice (const :tag "Do not check for shadowed variables" nil)
- (const :tag "Check for shadowed variables" t)
- (const :tag "Strictly check for shadowed variables" strict)))
-
-(flycheck-def-option-var flycheck-go-megacheck-disabled-checkers nil
- go-megacheck
- "A list of checkers to disable when running `megacheck'.
-
-The value of this variable is a list of strings, where each
-string is a checker to be disabled. Valid checkers are `simple',
-`staticcheck' and `unused'. When nil, all checkers will be
-enabled. "
- :type '(set (const :tag "Disable simple" "simple")
- (const :tag "Disable staticcheck" "staticcheck")
- (const :tag "Disable unused" "unused"))
- :safe #'flycheck-string-list-p)
-
-(flycheck-define-checker go-vet
- "A Go syntax checker using the `go tool vet' command.
-
-See URL `https://golang.org/cmd/go/' and URL
-`https://golang.org/cmd/vet/'."
- :command ("go" "tool" "vet" "-all"
- (option "-printfuncs=" flycheck-go-vet-print-functions concat
- flycheck-option-comma-separated-list)
- (option-flag "-shadow" flycheck-go-vet-shadow)
- (option-list "-tags=" flycheck-go-build-tags concat)
- (eval (when (eq flycheck-go-vet-shadow 'strict) "-shadowstrict"))
- source)
- :error-patterns
- ((warning line-start (file-name) ":" line ": " (message) line-end))
- :modes go-mode
- ;; We must explicitly check whether the "vet" tool is available
- :predicate (lambda ()
- (let ((go (flycheck-checker-executable 'go-vet)))
- (member "vet" (ignore-errors (process-lines go "tool")))))
- :next-checkers (go-build
- go-test
- ;; Fall back if `go build' or `go test' can be used
- go-errcheck
- go-unconvert
- go-megacheck)
- :verify (lambda (_)
- (let* ((go (flycheck-checker-executable 'go-vet))
- (have-vet (member "vet" (ignore-errors
- (process-lines go "tool")))))
- (list
- (flycheck-verification-result-new
- :label "go tool vet"
- :message (if have-vet "present" "missing")
- :face (if have-vet 'success '(bold error)))))))
-
-(flycheck-def-option-var flycheck-go-build-install-deps nil (go-build go-test)
- "Whether to install dependencies in `go build' and `go test'.
-
-If non-nil automatically install dependencies with `go build'
-while syntax checking."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.25"))
-
-(flycheck-def-option-var flycheck-go-build-tags nil go-build
- "A list of tags for `go build'.
-
-Each item is a string with a tag to be given to `go build'."
- :type '(repeat (string :tag "Tag"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.25"))
-
-(flycheck-define-checker go-build
- "A Go syntax and type checker using the `go build' command.
-
-Requires Go 1.6 or newer. See URL `https://golang.org/cmd/go'."
- :command ("go" "build"
- (option-flag "-i" flycheck-go-build-install-deps)
- ;; multiple tags are listed as "dev debug ..."
- (option-list "-tags=" flycheck-go-build-tags concat)
- "-o" null-device)
- :error-patterns
- ((error line-start (file-name) ":" line ":"
- (optional column ":") " "
- (message (one-or-more not-newline)
- (zero-or-more "\n\t" (one-or-more not-newline)))
- line-end)
- ;; Catch error message about multiple packages in a directory, which doesn't
- ;; follow the standard error message format.
- (info line-start
- (message "can't load package: package "
- (one-or-more (not (any ?: ?\n)))
- ": found packages "
- (one-or-more not-newline))
- line-end))
- :error-filter
- (lambda (errors)
- (dolist (error errors)
- (unless (flycheck-error-line error)
- ;; Flycheck ignores errors without line numbers, but the error
- ;; message about multiple packages in a directory doesn't come with a
- ;; line number, so inject a fake one.
- (setf (flycheck-error-line error) 1)))
- errors)
- :modes go-mode
- :predicate (lambda ()
- (and (flycheck-buffer-saved-p)
- (not (string-suffix-p "_test.go" (buffer-file-name)))))
- :next-checkers ((warning . go-errcheck)
- (warning . go-unconvert)
- (warning . go-megacheck)))
-
-(flycheck-define-checker go-test
- "A Go syntax and type checker using the `go test' command.
-
-Requires Go 1.6 or newer. See URL `https://golang.org/cmd/go'."
- :command ("go" "test"
- (option-flag "-i" flycheck-go-build-install-deps)
- (option-list "-tags=" flycheck-go-build-tags concat)
- "-c" "-o" null-device)
- :error-patterns
- ((error line-start (file-name) ":" line ":"
- (optional column ":") " "
- (message (one-or-more not-newline)
- (zero-or-more "\n\t" (one-or-more not-newline)))
- line-end))
- :modes go-mode
- :predicate
- (lambda () (and (flycheck-buffer-saved-p)
- (string-suffix-p "_test.go" (buffer-file-name))))
- :next-checkers ((warning . go-errcheck)
- (warning . go-unconvert)
- (warning . go-megacheck)))
-
-(flycheck-define-checker go-errcheck
- "A Go checker for unchecked errors.
-
-Requires errcheck newer than commit 8515d34 (Aug 28th, 2015).
-
-See URL `https://github.com/kisielk/errcheck'."
- :command ("errcheck"
- "-abspath"
- (option-list "-tags=" flycheck-go-build-tags concat)
- ".")
- :error-patterns
- ((warning line-start
- (file-name) ":" line ":" column (or (one-or-more "\t") ": " ":\t")
- (message)
- line-end))
- :error-filter
- (lambda (errors)
- (let ((errors (flycheck-sanitize-errors errors)))
- (dolist (err errors)
- (-when-let (message (flycheck-error-message err))
- ;; Improve the messages reported by errcheck to make them more clear.
- (setf (flycheck-error-message err)
- (format "Ignored `error` returned from `%s`" message)))))
- errors)
- :modes go-mode
- :predicate (lambda () (flycheck-buffer-saved-p))
- :next-checkers ((warning . go-unconvert)
- (warning . go-megacheck)))
-
-(flycheck-define-checker go-unconvert
- "A Go checker looking for unnecessary type conversions.
-
-See URL `https://github.com/mdempsky/unconvert'."
- :command ("unconvert" ".")
- :error-patterns
- ((warning line-start (file-name) ":" line ":" column ": " (message) line-end))
- :modes go-mode
- :predicate (lambda () (flycheck-buffer-saved-p))
- :next-checkers ((warning . go-megacheck)))
-
-(flycheck-define-checker go-megacheck
- "A Go checker that performs static analysis and linting using the `megacheck'
-command.
-
-Requires Go 1.6 or newer. See URL
-`https://github.com/dominikh/go-tools'."
- :command ("megacheck"
- (option-list "-tags=" flycheck-go-build-tags concat)
- (eval (mapcar (lambda (checker) (concat "-" checker
- ".enabled=false"))
- flycheck-go-megacheck-disabled-checkers))
- ;; Run in current directory to make megacheck aware of symbols
- ;; declared in other files.
- ".")
- :error-patterns
- ((warning line-start (file-name) ":" line ":" column ": " (message) line-end))
- :modes go-mode)
-
-(flycheck-define-checker groovy
- "A groovy syntax checker using groovy compiler API.
-
-See URL `http://www.groovy-lang.org'."
- :command ("groovy" "-e"
- "import org.codehaus.groovy.control.*
-
-unit = new CompilationUnit()
-unit.addSource(\"input\", System.in)
-
-try {
- unit.compile(Phases.CONVERSION)
-} catch (MultipleCompilationErrorsException e) {
- e.errorCollector.write(new PrintWriter(System.out, true), null)
-}")
- :standard-input t
- :error-patterns
- ((error line-start "input: " line ":" (message)
- " @ line " line ", column " column "." line-end))
- :modes groovy-mode)
-
-(flycheck-define-checker haml
- "A Haml syntax checker using the Haml compiler.
-
-See URL `http://haml.info'."
- :command ("haml" "-c" "--stdin")
- :standard-input t
- :error-patterns
- ((error line-start "Syntax error on line " line ": " (message) line-end)
- (error line-start ":" line ": syntax error, " (message) line-end))
- :modes haml-mode)
-
-(flycheck-define-checker handlebars
- "A Handlebars syntax checker using the Handlebars compiler.
-
-See URL `http://handlebarsjs.com/'."
- :command ("handlebars" "-i-")
- :standard-input t
- :error-patterns
- ((error line-start
- "Error: Parse error on line " line ":" (optional "\r") "\n"
- (zero-or-more not-newline) "\n" (zero-or-more not-newline) "\n"
- (message) line-end))
- :modes (handlebars-mode handlebars-sgml-mode web-mode)
- :predicate
- (lambda ()
- (if (eq major-mode 'web-mode)
- ;; Check if this is a handlebars file since web-mode does not store the
- ;; non-canonical engine name
- (let* ((regexp-alist (bound-and-true-p web-mode-engine-file-regexps))
- (pattern (cdr (assoc "handlebars" regexp-alist))))
- (and pattern (buffer-file-name)
- (string-match-p pattern (buffer-file-name))))
- t)))
-
-(defconst flycheck-haskell-module-re
- (rx line-start (zero-or-more (or "\n" (any space)))
- "module" (one-or-more (or "\n" (any space)))
- (group (one-or-more (not (any space "(" "\n")))))
- "Regular expression for a Haskell module name.")
-
-(flycheck-def-args-var flycheck-ghc-args (haskell-stack-ghc haskell-ghc)
- :package-version '(flycheck . "0.22"))
-
-(flycheck-def-option-var flycheck-ghc-stack-use-nix nil haskell-stack-ghc
- "Whether to enable nix support in stack.
-
-When non-nil, stack will append '--nix' flag to any call."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "26"))
-
-(flycheck-def-option-var flycheck-ghc-stack-project-file nil haskell-stack-ghc
- "Override project stack.yaml file.
-
-The value of this variable is a file path that refers to a yaml
-file for the current stack project. Relative file paths are
-resolved against the checker's working directory. When non-nil,
-stack will get overridden value via `--stack-yaml'."
- :type 'string
- :safe #'stringp
- :package-version '(flycheck . "32"))
-
-(flycheck-def-option-var flycheck-ghc-no-user-package-database nil haskell-ghc
- "Whether to disable the user package database in GHC.
-
-When non-nil, disable the user package database in GHC, via
-`-no-user-package-db'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.16"))
-
-(flycheck-def-option-var flycheck-ghc-package-databases nil haskell-ghc
- "Additional module databases for GHC.
-
-The value of this variable is a list of strings, where each
-string is a directory of a package database. Each package
-database is given to GHC via `-package-db'."
- :type '(repeat (directory :tag "Package database"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.16"))
-
-(flycheck-def-option-var flycheck-ghc-search-path nil
- (haskell-stack-ghc haskell-ghc)
- "Module search path for (Stack) GHC.
-
-The value of this variable is a list of strings, where each
-string is a directory containing Haskell modules. Each directory
-is added to the GHC search path via `-i'."
- :type '(repeat (directory :tag "Module directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.16"))
-
-(flycheck-def-option-var flycheck-ghc-language-extensions nil
- (haskell-stack-ghc haskell-ghc)
- "Language extensions for (Stack) GHC.
-
-The value of this variable is a list of strings, where each
-string is a Haskell language extension, as in the LANGUAGE
-pragma. Each extension is enabled via `-X'."
- :type '(repeat (string :tag "Language extension"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.19"))
-
-(defvar flycheck-haskell-ghc-cache-directory nil
- "The cache directory for `ghc' output.")
-
-(defun flycheck-haskell-ghc-cache-directory ()
- "Get the cache location for `ghc' output.
-
-If no cache directory exists yet, create one and return it.
-Otherwise return the previously used cache directory."
- (setq flycheck-haskell-ghc-cache-directory
- (or flycheck-haskell-ghc-cache-directory
- (make-temp-file "flycheck-haskell-ghc-cache" 'directory))))
-
-(defun flycheck--locate-dominating-file-matching (directory regexp)
- "Search for a file in directory hierarchy starting at DIRECTORY.
-
-Look up the directory hierarchy from DIRECTORY for a directory
-containing a file that matches REGEXP."
- (locate-dominating-file
- directory
- (lambda (dir)
- (directory-files dir nil regexp t))))
-
-(defun flycheck-haskell--find-default-directory (checker)
- "Come up with a suitable default directory for Haskell to run CHECKER in.
-
-In case of `haskell-stack-ghc' checker it is directory with
-stack.yaml file. If there's no stack.yaml file in any parent
-directory, it will be the directory that \"stack path --project-root\"
-command returns.
-
-For all other checkers, it is the closest parent directory that
-contains a cabal file."
- (pcase checker
- (`haskell-stack-ghc
- (or
- (when (buffer-file-name)
- (flycheck--locate-dominating-file-matching
- (file-name-directory (buffer-file-name))
- "stack.*\\.yaml\\'"))
- (-when-let* ((stack (funcall flycheck-executable-find "stack"))
- (output (ignore-errors
- (process-lines stack
- "--no-install-ghc"
- "path" "--project-root")))
- (stack-dir (car output)))
- (and (file-directory-p stack-dir) stack-dir))))
- (_
- (when (buffer-file-name)
- (flycheck--locate-dominating-file-matching
- (file-name-directory (buffer-file-name))
- "\\.cabal\\'\\|\\`package\\.yaml\\'")))))
-
-(flycheck-define-checker haskell-stack-ghc
- "A Haskell syntax and type checker using `stack ghc'.
-
-See URL `https://github.com/commercialhaskell/stack'."
- :command ("stack"
- "--no-install-ghc"
- (option "--stack-yaml" flycheck-ghc-stack-project-file)
- (option-flag "--nix" flycheck-ghc-stack-use-nix)
- "ghc" "--" "-Wall" "-no-link"
- "-outputdir" (eval (flycheck-haskell-ghc-cache-directory))
- (option-list "-X" flycheck-ghc-language-extensions concat)
- (option-list "-i" flycheck-ghc-search-path concat)
- (eval (concat
- "-i"
- (flycheck-module-root-directory
- (flycheck-find-in-buffer flycheck-haskell-module-re))))
- (eval flycheck-ghc-args)
- "-x" (eval
- (pcase major-mode
- (`haskell-mode "hs")
- (`literate-haskell-mode "lhs")))
- source)
- :error-patterns
- ((warning line-start (file-name) ":" line ":" column ":"
- (or " " "\n ") (in "Ww") "arning:"
- (optional " " "[" (id (one-or-more not-newline)) "]")
- (optional "\n")
- (message
- (one-or-more " ") (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more (not (any ?\n ?|)))))
- line-end)
- (error line-start (file-name) ":" line ":" column ":" (optional " error:")
- (or (message (one-or-more not-newline))
- (and "\n"
- (message
- (one-or-more " ") (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more (not (any ?\n ?|)))))))
- line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors (flycheck-dedent-error-messages errors)))
- :modes (haskell-mode literate-haskell-mode)
- :next-checkers ((warning . haskell-hlint))
- :working-directory flycheck-haskell--find-default-directory)
-
-(flycheck-define-checker haskell-ghc
- "A Haskell syntax and type checker using ghc.
-
-See URL `https://www.haskell.org/ghc/'."
- :command ("ghc" "-Wall" "-no-link"
- "-outputdir" (eval (flycheck-haskell-ghc-cache-directory))
- (option-flag "-no-user-package-db"
- flycheck-ghc-no-user-package-database)
- (option-list "-package-db" flycheck-ghc-package-databases)
- (option-list "-i" flycheck-ghc-search-path concat)
- ;; Include the parent directory of the current module tree, to
- ;; properly resolve local imports
- (eval (concat
- "-i"
- (flycheck-module-root-directory
- (flycheck-find-in-buffer flycheck-haskell-module-re))))
- (option-list "-X" flycheck-ghc-language-extensions concat)
- (eval flycheck-ghc-args)
- "-x" (eval
- (pcase major-mode
- (`haskell-mode "hs")
- (`literate-haskell-mode "lhs")))
- source)
- :error-patterns
- ((warning line-start (file-name) ":" line ":" column ":"
- (or " " "\n ") (in "Ww") "arning:"
- (optional " " "[" (id (one-or-more not-newline)) "]")
- (optional "\n")
- (message
- (one-or-more " ") (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more (not (any ?\n ?|)))))
- line-end)
- (error line-start (file-name) ":" line ":" column ":" (optional " error:")
- (or (message (one-or-more not-newline))
- (and "\n"
- (message
- (one-or-more " ") (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more (not (any ?\n ?|)))))))
- line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors (flycheck-dedent-error-messages errors)))
- :modes (haskell-mode literate-haskell-mode)
- :next-checkers ((warning . haskell-hlint))
- :working-directory flycheck-haskell--find-default-directory)
-
-(flycheck-def-config-file-var flycheck-hlintrc haskell-hlint "HLint.hs"
- :safe #'stringp)
-
-(flycheck-def-args-var flycheck-hlint-args haskell-hlint
- :package-version '(flycheck . "0.25"))
-
-(flycheck-def-option-var flycheck-hlint-language-extensions
- nil haskell-hlint
- "Extensions list to enable for hlint.
-
-The value of this variable is a list of strings, where each
-string is a name of extension to enable in
-hlint (e.g. \"QuasiQuotes\")."
- :type '(repeat :tag "Extensions" (string :tag "Extension"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-def-option-var flycheck-hlint-ignore-rules
- nil haskell-hlint
- "Ignore rules list for hlint checks.
-
-The value of this variable is a list of strings, where each
-string is an ignore rule (e.g. \"Use fmap\")."
- :type '(repeat :tag "Ignore rules" (string :tag "Ignore rule"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-def-option-var flycheck-hlint-hint-packages
- nil haskell-hlint
- "Hint packages to include for hlint checks.
-
-The value of this variable is a list of strings, where each
-string is a default hint package (e.g. (\"Generalise\"
-\"Default\" \"Dollar\"))."
- :type '(repeat :tag "Hint packages" (string :tag "Hint package"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-define-checker haskell-hlint
- "A Haskell style checker using hlint.
-
-See URL `https://github.com/ndmitchell/hlint'."
- :command ("hlint"
- (option-list "-X" flycheck-hlint-language-extensions concat)
- (option-list "-i=" flycheck-hlint-ignore-rules concat)
- (option-list "-h" flycheck-hlint-hint-packages concat)
- (config-file "-h" flycheck-hlintrc)
- (eval flycheck-hlint-args)
- source-inplace)
- :error-patterns
- ((info line-start
- (file-name) ":" line ":" column
- ": Suggestion: "
- (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n)))
- line-end)
- (warning line-start
- (file-name) ":" line ":" column
- ": Warning: "
- (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n)))
- line-end)
- (error line-start
- (file-name) ":" line ":" column
- ": Error: "
- (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n)))
- line-end))
- :modes (haskell-mode literate-haskell-mode))
-
-(flycheck-def-config-file-var flycheck-tidyrc html-tidy ".tidyrc"
- :safe #'stringp)
-
-(flycheck-define-checker html-tidy
- "A HTML syntax and style checker using Tidy.
-
-See URL `https://github.com/htacg/tidy-html5'."
- :command ("tidy" (config-file "-config" flycheck-tidyrc)
- "-lang" "en"
- "-e" "-q")
- :standard-input t
- :error-patterns
- ((error line-start
- "line " line
- " column " column
- " - Error: " (message) line-end)
- (warning line-start
- "line " line
- " column " column
- " - Warning: " (message) line-end))
- :modes (html-mode mhtml-mode nxhtml-mode))
-
-(flycheck-def-config-file-var flycheck-jshintrc javascript-jshint ".jshintrc"
- :safe #'stringp)
-
-(flycheck-def-option-var flycheck-jshint-extract-javascript nil
- javascript-jshint
- "Whether jshint should extract Javascript from HTML.
-
-If nil no extract rule is given to jshint. If `auto' only
-extract Javascript if a HTML file is detected. If `always' or
-`never' extract Javascript always or never respectively.
-
-Refer to the jshint manual at the URL
-`http://jshint.com/docs/cli/#flags' for more information."
- :type
- '(choice (const :tag "No extraction rule" nil)
- (const :tag "Try to extract Javascript when detecting HTML files"
- auto)
- (const :tag "Always try to extract Javascript" always)
- (const :tag "Never try to extract Javascript" never))
- :safe #'symbolp
- :package-version '(flycheck . "26"))
-
-(flycheck-define-checker javascript-jshint
- "A Javascript syntax and style checker using jshint.
-
-See URL `http://www.jshint.com'."
- :command ("jshint" "--reporter=checkstyle"
- "--filename" source-original
- (config-file "--config" flycheck-jshintrc)
- (option "--extract=" flycheck-jshint-extract-javascript
- concat flycheck-option-symbol)
- "-")
- :standard-input t
- :error-parser flycheck-parse-checkstyle
- :error-filter
- (lambda (errors)
- (flycheck-remove-error-file-names
- "stdin" (flycheck-dequalify-error-ids errors)))
- :modes (js-mode js2-mode js3-mode rjsx-mode))
-
-(flycheck-def-args-var flycheck-eslint-args javascript-eslint
- :package-version '(flycheck . "32"))
-
-(flycheck-def-option-var flycheck-eslint-rules-directories nil javascript-eslint
- "A list of directories with custom rules for ESLint.
-
-The value of this variable is a list of strings, where each
-string is a directory with custom rules for ESLint.
-
-Refer to the ESLint manual at URL
-`http://eslint.org/docs/user-guide/command-line-interface#--rulesdir'
-for more information about the custom directories."
- :type '(repeat (directory :tag "Custom rules directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "29"))
-
-(defun flycheck-eslint-config-exists-p ()
- "Whether there is a valid eslint config for the current buffer."
- (let* ((executable (flycheck-find-checker-executable 'javascript-eslint))
- (exitcode (and executable (call-process executable nil nil nil
- "--print-config" "."))))
- (eq exitcode 0)))
-
-(defun flycheck-parse-eslint (output checker buffer)
- "Parse ESLint errors/warnings from JSON OUTPUT.
-
-CHECKER and BUFFER denote the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `https://eslint.org' for more information about ESLint."
- (mapcar (lambda (err)
- (let-alist err
- (flycheck-error-new-at
- .line
- .column
- (pcase .severity
- (2 'error)
- (1 'warning)
- (_ 'warning))
- .message
- :id .ruleId
- :checker checker
- :buffer buffer
- :filename (buffer-file-name buffer))))
- (let-alist (caar (flycheck-parse-json output))
- .messages)))
-
-(defun flycheck-eslint--find-working-directory (_checker)
- "Look for a working directory to run ESLint CHECKER in.
-
-This will be the directory that contains the `node_modules'
-directory. If no such directory is found in the directory
-hierarchy, it looks first for `.eslintignore' and then for
-`.eslintrc' files to detect the project root."
- (let* ((regex-config (concat "\\`\\.eslintrc"
- "\\(\\.\\(js\\|ya?ml\\|json\\)\\)?\\'")))
- (when buffer-file-name
- (or (locate-dominating-file buffer-file-name "node_modules")
- (locate-dominating-file buffer-file-name ".eslintignore")
- (locate-dominating-file
- (file-name-directory buffer-file-name)
- (lambda (directory)
- (> (length (directory-files directory nil regex-config t)) 0)))))))
-
-(flycheck-define-checker javascript-eslint
- "A Javascript syntax and style checker using eslint.
-
-See URL `https://eslint.org/'."
- :command ("eslint" "--format=json"
- (option-list "--rulesdir" flycheck-eslint-rules-directories)
- (eval flycheck-eslint-args)
- "--stdin" "--stdin-filename" source-original)
- :standard-input t
- :error-parser flycheck-parse-eslint
- :enabled (lambda () (flycheck-eslint-config-exists-p))
- :modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode rjsx-mode)
- :working-directory flycheck-eslint--find-working-directory
- :verify
- (lambda (_)
- (let* ((default-directory
- (flycheck-compute-working-directory 'javascript-eslint))
- (have-config (flycheck-eslint-config-exists-p)))
- (list
- (flycheck-verification-result-new
- :label "config file"
- :message (if have-config "found" "missing or incorrect")
- :face (if have-config 'success '(bold error)))))))
-
-(flycheck-define-checker javascript-standard
- "A Javascript code and style checker for the (Semi-)Standard Style.
-
-This checker works with `standard' and `semistandard', defaulting
-to the former. To use it with the latter, set
-`flycheck-javascript-standard-executable' to `semistandard'.
-
-See URL `https://github.com/standard/standard' and URL
-`https://github.com/Flet/semistandard'."
- :command ("standard" "--stdin")
- :standard-input t
- :error-patterns
- ((error line-start " <text>:" line ":" column ":" (message) line-end))
- :modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode rjsx-mode))
-
-(flycheck-define-checker json-jsonlint
- "A JSON syntax and style checker using jsonlint.
-
-See URL `https://github.com/zaach/jsonlint'."
- ;; We can't use standard input for jsonlint, because it doesn't output errors
- ;; anymore when using -c -q with standard input :/
- :command ("jsonlint" "-c" "-q" source)
- :error-patterns
- ((error line-start
- (file-name)
- ": line " line
- ", col " column ", "
- (message) line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors (flycheck-increment-error-columns errors)))
- :modes json-mode)
-
-(flycheck-define-checker json-python-json
- "A JSON syntax checker using Python json.tool module.
-
-See URL `https://docs.python.org/3.5/library/json.html#command-line-interface'."
- :command ("python" "-m" "json.tool" source
- ;; Send the pretty-printed output to the null device
- null-device)
- :error-patterns
- ((error line-start
- (message) ": line " line " column " column
- ;; Ignore the rest of the line which shows the char position.
- (one-or-more not-newline)
- line-end))
- :modes json-mode
- ;; The JSON parser chokes if the buffer is empty and has no JSON inside
- :predicate (lambda () (not (flycheck-buffer-empty-p))))
-
-(flycheck-define-checker jsonnet
- "A Jsonnet syntax checker using the jsonnet binary.
-
-See URL `https://jsonnet.org'."
- :command ("jsonnet" source-inplace)
- :error-patterns
- ((error line-start "STATIC ERROR: " (file-name) ":" line ":" column
- (zero-or-one (group "-" (one-or-more digit))) ": "
- (message) line-end)
- (error line-start "RUNTIME ERROR: " (message) "\n"
- (one-or-more space) (file-name) ":" (zero-or-one "(")
- line ":" column (zero-or-more not-newline) line-end))
- :modes jsonnet-mode)
-
-(flycheck-define-checker less
- "A LESS syntax checker using lessc.
-
-Requires lessc 1.4 or newer.
-
-See URL `http://lesscss.org'."
- :command ("lessc" "--lint" "--no-color"
- "-")
- :standard-input t
- :error-patterns
- ((error line-start (one-or-more word) ":"
- (message)
- " in - on line " line
- ", column " column ":"
- line-end))
- :modes less-css-mode)
-
-(flycheck-define-checker less-stylelint
- "A LESS syntax and style checker using stylelint.
-
-See URL `http://stylelint.io/'."
- :command ("stylelint"
- (eval flycheck-stylelint-args)
- "--syntax" "less"
- (option-flag "--quiet" flycheck-stylelint-quiet)
- (config-file "--config" flycheck-stylelintrc))
- :standard-input t
- :error-parser flycheck-parse-stylelint
- :modes (less-css-mode))
-
-(flycheck-define-checker llvm-llc
- "Flycheck LLVM IR checker using llc.
-
-See URL `http://llvm.org/docs/CommandGuide/llc.html'."
- :command ("llc" "-o" null-device source)
- :error-patterns
- ((error line-start
- ;; llc prints the executable path
- (zero-or-one (minimal-match (one-or-more not-newline)) ": ")
- (file-name) ":" line ":" column ": error: " (message)
- line-end))
- :error-filter
- (lambda (errors)
- ;; sanitize errors occurring in inline assembly
- (flycheck-sanitize-errors
- (flycheck-remove-error-file-names "<inline asm>" errors)))
- :modes llvm-mode)
-
-(flycheck-def-config-file-var flycheck-luacheckrc lua-luacheck ".luacheckrc"
- :safe #'stringp)
-
-(flycheck-def-option-var flycheck-luacheck-standards nil lua-luacheck
- "The standards to use in luacheck.
-
-The value of this variable is either a list of strings denoting
-the standards to use, or nil to pass nothing to luacheck. When
-non-nil, pass the standards via one or more `--std' options."
- :type '(choice (const :tag "Default" nil)
- (repeat :tag "Custom standards"
- (string :tag "Standard name")))
- :safe #'flycheck-string-list-p)
-(make-variable-buffer-local 'flycheck-luacheck-standards)
-
-(flycheck-define-checker lua-luacheck
- "A Lua syntax checker using luacheck.
-
-See URL `https://github.com/mpeterv/luacheck'."
- :command ("luacheck"
- "--formatter" "plain"
- "--codes" ; Show warning codes
- "--no-color"
- (option-list "--std" flycheck-luacheck-standards)
- (config-file "--config" flycheck-luacheckrc)
- "--filename" source-original
- ;; Read from standard input
- "-")
- :standard-input t
- :error-patterns
- ((warning line-start
- (optional (file-name))
- ":" line ":" column
- ": (" (id "W" (one-or-more digit)) ") "
- (message) line-end)
- (error line-start
- (optional (file-name))
- ":" line ":" column ":"
- ;; `luacheck' before 0.11.0 did not output codes for errors, hence
- ;; the ID is optional here
- (optional " (" (id "E" (one-or-more digit)) ") ")
- (message) line-end))
- :modes lua-mode)
-
-(flycheck-define-checker lua
- "A Lua syntax checker using the Lua compiler.
-
-See URL `http://www.lua.org/'."
- :command ("luac" "-p" "-")
- :standard-input t
- :error-patterns
- ((error line-start
- ;; Skip the name of the luac executable.
- (minimal-match (zero-or-more not-newline))
- ": stdin:" line ": " (message) line-end))
- :modes lua-mode)
-
-(flycheck-def-option-var flycheck-perl-include-path nil perl
- "A list of include directories for Perl.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of Perl.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-def-option-var flycheck-perl-module-list nil perl
- "A list of modules to use for Perl.
-
-The value of this variable is a list of strings, where each
-string is a module to 'use' in Perl."
- :type '(repeat :tag "Module")
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "32"))
-
-(flycheck-define-checker perl
- "A Perl syntax checker using the Perl interpreter.
-
-See URL `https://www.perl.org'."
- :command ("perl" "-w" "-c"
- (option-list "-I" flycheck-perl-include-path)
- (option-list "-M" flycheck-perl-module-list concat))
- :standard-input t
- :error-patterns
- ((error line-start (minimal-match (message))
- " at - line " line
- (or "." (and ", " (zero-or-more not-newline))) line-end))
- :modes (perl-mode cperl-mode)
- :next-checkers (perl-perlcritic))
-
-(flycheck-def-option-var flycheck-perlcritic-severity nil perl-perlcritic
- "The message severity for Perl Critic.
-
-The value of this variable is a severity level as integer, for
-the `--severity' option to Perl Critic."
- :type '(integer :tag "Severity level")
- :safe #'integerp
- :package-version '(flycheck . "0.18"))
-
-(flycheck-def-config-file-var flycheck-perlcriticrc perl-perlcritic
- ".perlcriticrc"
- :safe #'stringp
- :package-version '(flycheck . "26"))
-
-(flycheck-define-checker perl-perlcritic
- "A Perl syntax checker using Perl::Critic.
-
-See URL `https://metacpan.org/pod/Perl::Critic'."
- :command ("perlcritic" "--no-color" "--verbose" "%f/%l/%c/%s/%p/%m (%e)\n"
- (config-file "--profile" flycheck-perlcriticrc)
- (option "--severity" flycheck-perlcritic-severity nil
- flycheck-option-int))
- :standard-input t
- :error-patterns
- ((info line-start
- "STDIN/" line "/" column "/" (any "1") "/"
- (id (one-or-more (not (any "/")))) "/" (message)
- line-end)
- (warning line-start
- "STDIN/" line "/" column "/" (any "234") "/"
- (id (one-or-more (not (any "/")))) "/" (message)
- line-end)
- (error line-start
- "STDIN/" line "/" column "/" (any "5") "/"
- (id (one-or-more (not (any "/")))) "/" (message)
- line-end))
- :modes (cperl-mode perl-mode))
-
-(flycheck-define-checker php
- "A PHP syntax checker using the PHP command line interpreter.
-
-See URL `http://php.net/manual/en/features.commandline.php'."
- :command ("php" "-l" "-d" "error_reporting=E_ALL" "-d" "display_errors=1"
- "-d" "log_errors=0" source)
- :error-patterns
- ((error line-start (or "Parse" "Fatal" "syntax") " error" (any ":" ",") " "
- (message) " in " (file-name) " on line " line line-end))
- :modes (php-mode php+-mode)
- :next-checkers ((warning . php-phpmd)
- (warning . php-phpcs)))
-
-(flycheck-def-option-var flycheck-phpmd-rulesets
- '("cleancode" "codesize" "controversial" "design" "naming" "unusedcode")
- php-phpmd
- "The rule sets for PHP Mess Detector.
-
-Set default rule sets and custom rule set files.
-
-See section \"Using multiple rule sets\" in the PHP Mess Detector
-manual at URL `https://phpmd.org/documentation/index.html'."
- :type '(repeat :tag "rule sets"
- (string :tag "A filename or rule set"))
- :safe #'flycheck-string-list-p)
-
-(flycheck-define-checker php-phpmd
- "A PHP style checker using PHP Mess Detector.
-
-See URL `https://phpmd.org/'."
- :command ("phpmd" source "xml"
- (eval (flycheck-option-comma-separated-list
- flycheck-phpmd-rulesets)))
- :error-parser flycheck-parse-phpmd
- :modes (php-mode php+-mode)
- :next-checkers (php-phpcs))
-
-(flycheck-def-option-var flycheck-phpcs-standard nil php-phpcs
- "The coding standard for PHP CodeSniffer.
-
-When nil, use the default standard from the global PHP
-CodeSniffer configuration. When set to a string, pass the string
-to PHP CodeSniffer which will interpret it as name as a standard,
-or as path to a standard specification."
- :type '(choice (const :tag "Default standard" nil)
- (string :tag "Standard name or file"))
- :safe #'stringp)
-
-(flycheck-define-checker php-phpcs
- "A PHP style checker using PHP Code Sniffer.
-
-Needs PHP Code Sniffer 2.6 or newer.
-
-See URL `http://pear.php.net/package/PHP_CodeSniffer/'."
- :command ("phpcs" "--report=checkstyle"
- ;; Use -q flag to force quiet mode
- ;; Quiet mode prevents errors from extra output when phpcs has
- ;; been configured with show_progress enabled
- "-q"
- (option "--standard=" flycheck-phpcs-standard concat)
- ;; Pass original file name to phpcs. We need to concat explicitly
- ;; here, because phpcs really insists to get option and argument as
- ;; a single command line argument :|
- (eval (when (buffer-file-name)
- (concat "--stdin-path=" (buffer-file-name))))
- ;; Read from standard input
- "-")
- :standard-input t
- :error-parser flycheck-parse-checkstyle
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors
- (flycheck-remove-error-file-names "STDIN" errors)))
- :modes (php-mode php+-mode)
- ;; phpcs seems to choke on empty standard input, hence skip phpcs if the
- ;; buffer is empty, see https://github.com/flycheck/flycheck/issues/907
- :predicate (lambda () (not (flycheck-buffer-empty-p))))
-
-(flycheck-define-checker processing
- "Processing command line tool.
-
-See https://github.com/processing/processing/wiki/Command-Line"
- :command ("processing-java" "--force"
- ;; Don't change the order of these arguments, processing is pretty
- ;; picky
- (eval (concat "--sketch=" (file-name-directory (buffer-file-name))))
- (eval (concat "--output=" (flycheck-temp-dir-system)))
- "--build")
- :error-patterns
- ((error line-start (file-name) ":" line ":" column
- (zero-or-more (or digit ":")) (message) line-end))
- :modes processing-mode
- ;; This syntax checker needs a file name
- :predicate (lambda () (buffer-file-name)))
-
-(defun flycheck-proselint-parse-errors (output checker buffer)
- "Parse proselint json output errors from OUTPUT.
-
-CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and
-the BUFFER that was checked respectively.
-
-See URL `http://proselint.com/' for more information about proselint."
- (mapcar (lambda (err)
- (let-alist err
- (flycheck-error-new-at
- .line
- .column
- (pcase .severity
- (`"suggestion" 'info)
- (`"warning" 'warning)
- (`"error" 'error)
- ;; Default to error
- (_ 'error))
- .message
- :id .check
- :buffer buffer
- :checker checker)))
- (let-alist (car (flycheck-parse-json output))
- .data.errors)))
-
-(flycheck-define-checker proselint
- "Flycheck checker using Proselint.
-
-See URL `http://proselint.com/'."
- :command ("proselint" "--json" "-")
- :standard-input t
- :error-parser flycheck-proselint-parse-errors
- :modes (text-mode markdown-mode gfm-mode message-mode))
-
-(flycheck-define-checker protobuf-protoc
- "A protobuf syntax checker using the protoc compiler.
-
-See URL `https://developers.google.com/protocol-buffers/'."
- :command ("protoc" "--error_format" "gcc"
- (eval (concat "--java_out=" (flycheck-temp-dir-system)))
- ;; Add the file directory of protobuf path to resolve import
- ;; directives
- (eval (concat "--proto_path="
- (file-name-directory (buffer-file-name))))
- source-inplace)
- :error-patterns
- ((info line-start (file-name) ":" line ":" column
- ": note: " (message) line-end)
- (error line-start (file-name) ":" line ":" column
- ": " (message) line-end)
- (error line-start
- (message "In file included from") " " (file-name) ":" line ":"
- column ":" line-end))
- :modes protobuf-mode
- :predicate (lambda () (buffer-file-name)))
-
-(flycheck-define-checker pug
- "A Pug syntax checker using the pug compiler.
-
-See URL `https://pugjs.org/'."
- :command ("pug" "-p" (eval (expand-file-name (buffer-file-name))))
- :standard-input t
- :error-patterns
- ;; errors with includes/extends (e.g. missing files)
- ((error "Error: " (message) (zero-or-more not-newline) "\n"
- (zero-or-more not-newline) "at "
- (zero-or-more not-newline) " line " line)
- ;; syntax/runtime errors (e.g. type errors, bad indentation, etc.)
- (error line-start
- (optional "Type") "Error: " (file-name) ":"
- line (optional ":" column)
- (zero-or-more not-newline) "\n"
- (one-or-more (or (zero-or-more not-newline) "|"
- (zero-or-more not-newline) "\n")
- (zero-or-more "-") (zero-or-more not-newline) "|"
- (zero-or-more not-newline) "\n")
- (zero-or-more not-newline) "\n"
- (one-or-more
- (zero-or-more not-newline) "|"
- (zero-or-more not-newline) "\n")
- (zero-or-more not-newline) "\n"
- (message)
- line-end))
- :modes pug-mode)
-
-(flycheck-define-checker puppet-parser
- "A Puppet DSL syntax checker using puppet's own parser.
-
-See URL `https://puppet.com/'."
- :command ("puppet" "parser" "validate" "--color=false")
- :standard-input t
- :error-patterns
- (
- ;; Patterns for Puppet 4
- (error line-start "Error: Could not parse for environment "
- (one-or-more (in "a-z" "0-9" "_")) ":"
- (message) "(line: " line ", column: " column ")" line-end)
- ;; Errors from Puppet < 4
- (error line-start "Error: Could not parse for environment "
- (one-or-more (in "a-z" "0-9" "_")) ":"
- (message (minimal-match (one-or-more anything)))
- " at line " line line-end)
- (error line-start
- ;; Skip over the path of the Puppet executable
- (minimal-match (zero-or-more not-newline))
- ": Could not parse for environment " (one-or-more word)
- ": " (message (minimal-match (zero-or-more anything)))
- " at " (file-name "/" (zero-or-more not-newline)) ":" line line-end))
- :modes puppet-mode
- :next-checkers ((warning . puppet-lint)))
-
-(flycheck-def-config-file-var flycheck-puppet-lint-rc puppet-lint
- ".puppet-lint.rc"
- :safe #'stringp
- :package-version '(flycheck . "26"))
-
-(flycheck-def-option-var flycheck-puppet-lint-disabled-checks nil puppet-lint
- "Disabled checkers for `puppet-lint'.
-
-The value of this variable is a list of strings, where each
-string is the name of a check to disable (e.g. \"80chars\" or
-\"double_quoted_strings\").
-
-See URL `http://puppet-lint.com/checks/' for a list of all checks
-and their names."
- :type '(repeat (string :tag "Check Name"))
- :package-version '(flycheck . "26"))
-
-(defun flycheck-puppet-lint-disabled-arg-name (check)
- "Create an argument to disable a puppetlint CHECK."
- (concat "--no-" check "-check"))
-
-(flycheck-define-checker puppet-lint
- "A Puppet DSL style checker using puppet-lint.
-
-See URL `http://puppet-lint.com/'."
- ;; We must check the original file, because Puppetlint is quite picky on the
- ;; names of files and there place in the directory structure, to comply with
- ;; Puppet's autoload directory layout. For instance, a class foo::bar is
- ;; required to be in a file foo/bar.pp. Any other place, such as a Flycheck
- ;; temporary file will cause an error.
- :command ("puppet-lint"
- (config-file "--config" flycheck-puppet-lint-rc)
- "--log-format"
- "%{path}:%{line}:%{kind}: %{message} (%{check})"
- (option-list "" flycheck-puppet-lint-disabled-checks concat
- flycheck-puppet-lint-disabled-arg-name)
- source-original)
- :error-patterns
- ((warning line-start (file-name) ":" line ":warning: " (message) line-end)
- (error line-start (file-name) ":" line ":error: " (message) line-end))
- :modes puppet-mode
- ;; Since we check the original file, we can only use this syntax checker if
- ;; the buffer is actually linked to a file, and if it is not modified.
- :predicate flycheck-buffer-saved-p)
-
-(defun flycheck-python-find-module (checker module)
- "Check if a Python MODULE is available.
-CHECKER's executable is assumed to be a Python REPL."
- (-when-let* ((py (flycheck-find-checker-executable checker))
- (script (concat "import sys; sys.path.pop(0);"
- (format "import %s; print(%s.__file__)"
- module module))))
- (with-temp-buffer
- (and (eq (ignore-errors (call-process py nil t nil "-c" script)) 0)
- (string-trim (buffer-string))))))
-
-(defun flycheck-python-needs-module-p (checker)
- "Determines whether CHECKER needs to be invoked through Python.
-Previous versions of Flycheck called pylint and flake8 directly;
-this check ensures that we don't break existing code."
- (not (string-match-p (rx (or "pylint" "flake8")
- (or "-script.pyw" ".exe" ".bat" "")
- eos)
- (flycheck-checker-executable checker))))
-
-(defun flycheck-python-verify-module (checker module)
- "Verify that a Python MODULE is available.
-Return nil if CHECKER's executable is not a Python REPL. This
-function's is suitable for a checker's :verify."
- (when (flycheck-python-needs-module-p checker)
- (let ((mod-path (flycheck-python-find-module checker module)))
- (list (flycheck-verification-result-new
- :label (format "`%s' module" module)
- :message (if mod-path (format "Found at %S" mod-path) "Missing")
- :face (if mod-path 'success '(bold error)))))))
-
-(defun flycheck-python-module-args (checker module-name)
- "Compute arguments to pass to CHECKER's executable to run MODULE-NAME.
-Return nil if CHECKER's executable is not a Python REPL.
-Otherwise, return a list starting with -c (-m is not enough
-because it adds the current directory to Python's path)."
- (when (flycheck-python-needs-module-p checker)
- `("-c" ,(concat "import sys,runpy;sys.path.pop(0);"
- (format "runpy.run_module(%S)" module-name)))))
-
-(flycheck-def-config-file-var flycheck-flake8rc python-flake8 ".flake8rc"
- :safe #'stringp)
-
-(flycheck-def-option-var flycheck-flake8-error-level-alist
- '(("^E9.*$" . error) ; Syntax errors from pep8
- ("^F82.*$" . error) ; undefined variables from pyflakes
- ("^F83.*$" . error) ; Duplicate arguments from flake8
- ("^D.*$" . info) ; Docstring issues from flake8-pep257
- ("^N.*$" . info) ; Naming issues from pep8-naming
- )
- python-flake8
- "An alist mapping flake8 error IDs to Flycheck error levels.
-
-Each item in this list is a cons cell `(PATTERN . LEVEL)' where
-PATTERN is a regular expression matched against the error ID, and
-LEVEL is a Flycheck error level symbol.
-
-Each PATTERN is matched in the order of appearance in this list
-against the error ID. If it matches the ID, the level of the
-corresponding error is set to LEVEL. An error that is not
-matched by any PATTERN defaults to warning level.
-
-The default value of this option matches errors from flake8
-itself and from the following flake8 plugins:
-
-- pep8-naming
-- flake8-pep257
-
-You may add your own mappings to this option in order to support
-further flake8 plugins."
- :type '(repeat (cons (regexp :tag "Error ID pattern")
- (symbol :tag "Error level")))
- :package-version '(flycheck . "0.22"))
-
-(flycheck-def-option-var flycheck-flake8-maximum-complexity nil python-flake8
- "The maximum McCabe complexity of methods.
-
-If nil, do not check the complexity of methods. If set to an
-integer, report any complexity greater than the value of this
-variable as warning.
-
-If set to an integer, this variable overrules any similar setting
-in the configuration file denoted by `flycheck-flake8rc'."
- :type '(choice (const :tag "Do not check McCabe complexity" nil)
- (integer :tag "Maximum complexity"))
- :safe #'integerp)
-
-(flycheck-def-option-var flycheck-flake8-maximum-line-length nil python-flake8
- "The maximum length of lines.
-
-If set to an integer, the value of this variable denotes the
-maximum length of lines, overruling any similar setting in the
-configuration file denoted by `flycheck-flake8rc'. An error will
-be reported for any line longer than the value of this variable.
-
-If set to nil, use the maximum line length from the configuration
-file denoted by `flycheck-flake8rc', or the PEP 8 recommendation
-of 79 characters if there is no configuration with this setting."
- :type '(choice (const :tag "Default value")
- (integer :tag "Maximum line length in characters"))
- :safe #'integerp)
-
-(defun flycheck-flake8-fix-error-level (err)
- "Fix the error level of ERR.
-
-Update the error level of ERR according to
-`flycheck-flake8-error-level-alist'."
- (pcase-dolist (`(,pattern . ,level) flycheck-flake8-error-level-alist)
- (when (string-match-p pattern (flycheck-error-id err))
- (setf (flycheck-error-level err) level)))
- err)
-
-(flycheck-define-checker python-flake8
- "A Python syntax and style checker using Flake8.
-
-Requires Flake8 3.0 or newer. See URL
-`https://flake8.readthedocs.io/'."
- ;; Not calling flake8 directly makes it easier to switch between different
- ;; Python versions; see https://github.com/flycheck/flycheck/issues/1055.
- :command ("python"
- (eval (flycheck-python-module-args 'python-flake8 "flake8"))
- "--format=default"
- (config-file "--config" flycheck-flake8rc)
- (option "--max-complexity" flycheck-flake8-maximum-complexity nil
- flycheck-option-int)
- (option "--max-line-length" flycheck-flake8-maximum-line-length nil
- flycheck-option-int)
- "-")
- :standard-input t
- :error-filter (lambda (errors)
- (let ((errors (flycheck-sanitize-errors errors)))
- (seq-map #'flycheck-flake8-fix-error-level errors)))
- :error-patterns
- ((warning line-start
- "stdin:" line ":" (optional column ":") " "
- (id (one-or-more (any alpha)) (one-or-more digit)) " "
- (message (one-or-more not-newline))
- line-end))
- :enabled (lambda ()
- (or (not (flycheck-python-needs-module-p 'python-flake8))
- (flycheck-python-find-module 'python-flake8 "flake8")))
- :verify (lambda (_) (flycheck-python-verify-module 'python-flake8 "flake8"))
- :modes python-mode)
-
-(flycheck-def-config-file-var flycheck-pylintrc python-pylint ".pylintrc"
- :safe #'stringp)
-
-(flycheck-def-option-var flycheck-pylint-use-symbolic-id t python-pylint
- "Whether to use pylint message symbols or message codes.
-
-A pylint message has both an opaque identifying code (such as `F0401') and a
-more meaningful symbolic code (such as `import-error'). This option governs
-which should be used and reported to the user."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.25"))
-
-(flycheck-define-checker python-pylint
- "A Python syntax and style checker using Pylint.
-
-This syntax checker requires Pylint 1.0 or newer.
-
-See URL `https://www.pylint.org/'."
- ;; --reports=n disables the scoring report.
- ;; Not calling pylint directly makes it easier to switch between different
- ;; Python versions; see https://github.com/flycheck/flycheck/issues/1055.
- :command ("python"
- (eval (flycheck-python-module-args 'python-pylint "pylint"))
- "--reports=n"
- "--output-format=text"
- (eval (if flycheck-pylint-use-symbolic-id
- "--msg-template={path}:{line}:{column}:{C}:{symbol}:{msg}"
- "--msg-template={path}:{line}:{column}:{C}:{msg_id}:{msg}"))
- (config-file "--rcfile=" flycheck-pylintrc concat)
- ;; Need `source-inplace' for relative imports (e.g. `from .foo
- ;; import bar'), see https://github.com/flycheck/flycheck/issues/280
- source-inplace)
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors (flycheck-increment-error-columns errors)))
- :error-patterns
- ((error line-start (file-name) ":" line ":" column ":"
- (or "E" "F") ":"
- (id (one-or-more (not (any ":")))) ":"
- (message) line-end)
- (warning line-start (file-name) ":" line ":" column ":"
- (or "W" "R") ":"
- (id (one-or-more (not (any ":")))) ":"
- (message) line-end)
- (info line-start (file-name) ":" line ":" column ":"
- (or "C" "I") ":"
- (id (one-or-more (not (any ":")))) ":"
- (message) line-end))
- :enabled (lambda ()
- (or (not (flycheck-python-needs-module-p 'python-pylint))
- (flycheck-python-find-module 'python-pylint "pylint")))
- :verify (lambda (_) (flycheck-python-verify-module 'python-pylint "pylint"))
- :modes python-mode)
-
-(flycheck-define-checker python-pycompile
- "A Python syntax checker using Python's builtin compiler.
-
-See URL `https://docs.python.org/3.4/library/py_compile.html'."
- :command ("python" "-m" "py_compile" source)
- :error-patterns
- ;; Python 2.7
- ((error line-start " File \"" (file-name) "\", line " line "\n"
- (>= 2 (zero-or-more not-newline) "\n")
- "SyntaxError: " (message) line-end)
- (error line-start "Sorry: IndentationError: "
- (message) "(" (file-name) ", line " line ")"
- line-end)
- ;; 2.6
- (error line-start "SyntaxError: ('" (message (one-or-more (not (any "'"))))
- "', ('" (file-name (one-or-more (not (any "'")))) "', "
- line ", " column ", " (one-or-more not-newline) line-end))
- :modes python-mode)
-
-(flycheck-def-config-file-var flycheck-python-mypy-ini python-mypy
- "mypy.ini"
- :safe #'stringp)
-
-(flycheck-def-option-var flycheck-python-mypy-cache-dir nil python-mypy
- "Directory used to write .mypy_cache directories."
- :safe #'stringp
- :type '(choice
- (const :tag "Write to the working directory" nil)
- (const :tag "Never write .mypy_cache directories" null-device)
- (string :tag "Path"))
- :package-version '(flycheck . "32"))
-
-(flycheck-define-checker python-mypy
- "Mypy syntax and type checker. Requires mypy>=0.580.
-
-See URL `http://mypy-lang.org/'."
- :command ("mypy"
- "--show-column-numbers"
- (config-file "--config-file" flycheck-python-mypy-ini)
- (option "--cache-dir" flycheck-python-mypy-cache-dir)
- source-original)
- :error-patterns
- ((error line-start (file-name) ":" line ":" column ": error:" (message)
- line-end)
- (warning line-start (file-name) ":" line ":" column ": warning:" (message)
- line-end))
- :modes python-mode
- ;; Ensure the file is saved, to work around
- ;; https://github.com/python/mypy/issues/4746.
- :predicate flycheck-buffer-saved-p
- :next-checkers '(t . python-flake8))
-
-(flycheck-def-option-var flycheck-lintr-caching t r-lintr
- "Whether to enable caching in lintr.
-
-By default, lintr caches all expressions in a file and re-checks
-only those that have changed. Setting this option to nil
-disables caching in case there are problems."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.23"))
-
-(flycheck-def-option-var flycheck-lintr-linters "default_linters" r-lintr
- "Linters to use with lintr.
-
-The value of this variable is a string containing an R
-expression, which selects linters for lintr."
- :type 'string
- :risky t
- :package-version '(flycheck . "0.23"))
-
-(defun flycheck-r-has-lintr (R)
- "Whether R has installed the `lintr' library."
- (with-temp-buffer
- (let ((process-environment (append '("LC_ALL=C") process-environment)))
- (call-process R nil t nil
- "--slave" "--restore" "--no-save" "-e"
- "library('lintr')")
- (goto-char (point-min))
- (not (re-search-forward "there is no package called 'lintr'"
- nil 'no-error)))))
-
-(flycheck-define-checker r-lintr
- "An R style and syntax checker using the lintr package.
-
-See URL `https://github.com/jimhester/lintr'."
- :command ("R" "--slave" "--restore" "--no-save" "-e"
- (eval (concat
- "library(lintr);"
- "try(lint(commandArgs(TRUE)"
- ", cache=" (if flycheck-lintr-caching "TRUE" "FALSE")
- ", " flycheck-lintr-linters
- "))"))
- "--args" source)
- :error-patterns
- ((info line-start (file-name) ":" line ":" column ": style: " (message)
- line-end)
- (warning line-start (file-name) ":" line ":" column ": warning: " (message)
- line-end)
- (error line-start (file-name) ":" line ":" column ": error: " (message)
- line-end))
- :modes ess-mode
- :predicate
- ;; Don't check ESS files which do not contain R, and make sure that lintr is
- ;; actually available
- (lambda ()
- (and (equal ess-language "S")
- (flycheck-r-has-lintr (flycheck-checker-executable 'r-lintr))))
- :verify (lambda (checker)
- (let ((has-lintr (flycheck-r-has-lintr
- (flycheck-checker-executable checker))))
- (list
- (flycheck-verification-result-new
- :label "lintr library"
- :message (if has-lintr "present" "missing")
- :face (if has-lintr 'success '(bold error)))))))
-
-(defun flycheck-racket-has-expand-p (checker)
- "Whether the executable of CHECKER provides the `expand' command."
- (let ((raco (flycheck-find-checker-executable checker)))
- (when raco
- (with-temp-buffer
- (call-process raco nil t nil "expand")
- (goto-char (point-min))
- (not (looking-at-p (rx bol (1+ not-newline)
- "Unrecognized command: expand"
- eol)))))))
-
-(flycheck-define-checker racket
- "A Racket syntax checker with `raco expand'.
-
-The `compiler-lib' racket package is required for this syntax
-checker.
-
-See URL `https://racket-lang.org/'."
- :command ("raco" "expand" source-inplace)
- :predicate
- (lambda ()
- (and (or (not (eq major-mode 'scheme-mode))
- ;; In `scheme-mode' we must check the current Scheme implementation
- ;; being used
- (and (boundp 'geiser-impl--implementation)
- (eq geiser-impl--implementation 'racket)))
- (flycheck-racket-has-expand-p 'racket)))
- :verify
- (lambda (checker)
- (let ((has-expand (flycheck-racket-has-expand-p checker))
- (in-scheme-mode (eq major-mode 'scheme-mode))
- (geiser-impl (bound-and-true-p geiser-impl--implementation)))
- (list
- (flycheck-verification-result-new
- :label "compiler-lib package"
- :message (if has-expand "present" "missing")
- :face (if has-expand 'success '(bold error)))
- (flycheck-verification-result-new
- :label "Geiser Implementation"
- :message (cond
- ((not in-scheme-mode) "Using Racket Mode")
- ((eq geiser-impl 'racket) "Racket")
- (geiser-impl (format "Other: %s" geiser-impl))
- (t "Geiser not active"))
- :face (cond
- ((or (not in-scheme-mode) (eq geiser-impl 'racket)) 'success)
- (t '(bold error)))))))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors
- (flycheck-increment-error-columns
- (seq-remove
- (lambda (err)
- (string=
- "/usr/share/racket/pkgs/compiler-lib/compiler/commands/expand.rkt"
- (flycheck-error-filename err)))
- errors))))
- :error-patterns
- ((error line-start (zero-or-more space)
- (file-name) ":" line ":" column ":" (message) line-end))
- :modes (racket-mode scheme-mode))
-
-(flycheck-define-checker rpm-rpmlint
- "A RPM SPEC file syntax checker using rpmlint.
-
-See URL `https://sourceforge.net/projects/rpmlint/'."
- :command ("rpmlint" source)
- :error-patterns
- ((error line-start
- (file-name) ":" (optional line ":") " E: " (message)
- line-end)
- (warning line-start
- (file-name) ":" (optional line ":") " W: " (message)
- line-end))
- :error-filter
- ;; Add fake line numbers if they are missing in the lint output
- (lambda (errors)
- (dolist (err errors)
- (unless (flycheck-error-line err)
- (setf (flycheck-error-line err) 1)))
- errors)
- :error-explainer
- (lambda (error)
- (-when-let* ((error-message (flycheck-error-message error))
- (message-id (save-match-data
- (string-match "\\([^ ]+\\)" error-message)
- (match-string 1 error-message))))
- (with-output-to-string
- (call-process "rpmlint" nil standard-output nil "-I" message-id))))
- :modes (sh-mode rpm-spec-mode)
- :predicate (lambda () (or (not (eq major-mode 'sh-mode))
- ;; In `sh-mode', we need the proper shell
- (eq sh-shell 'rpm))))
-
-(flycheck-def-config-file-var flycheck-markdown-markdownlint-cli-config
- markdown-markdownlint-cli nil
- :safe #'stringp
- :package-version '(flycheck . "32"))
-
-(flycheck-define-checker markdown-markdownlint-cli
- "Markdown checker using markdownlint-cli.
-
-See URL `https://github.com/igorshubovych/markdownlint-cli'."
- :command ("markdownlint"
- (config-file "--config" flycheck-markdown-markdownlint-cli-config)
- source)
- :error-patterns
- ((error line-start
- (file-name) ": " line ": " (id (one-or-more (not (any space))))
- " " (message) line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors
- (flycheck-remove-error-file-names "(string)" errors)))
- :modes (markdown-mode gfm-mode))
-
-(flycheck-def-option-var flycheck-markdown-mdl-rules nil markdown-mdl
- "Rules to enable for mdl.
-
-The value of this variable is a list of strings each of which is
-the name of a rule to enable.
-
-By default all rules are enabled.
-
-See URL `https://git.io/vhi2t'."
- :type '(repeat :tag "Enabled rules"
- (string :tag "rule name"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "27"))
-
-(flycheck-def-option-var flycheck-markdown-mdl-tags nil markdown-mdl
- "Rule tags to enable for mdl.
-
-The value of this variable is a list of strings each of which is
-the name of a rule tag. Only rules with these tags are enabled.
-
-By default all rules are enabled.
-
-See URL `https://git.io/vhi2t'."
- :type '(repeat :tag "Enabled tags"
- (string :tag "tag name"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "27"))
-
-(flycheck-def-config-file-var flycheck-markdown-mdl-style markdown-mdl nil
- :safe #'stringp
- :package-version '(flycheck . "27"))
-
-(flycheck-define-checker markdown-mdl
- "Markdown checker using mdl.
-
-See URL `https://github.com/markdownlint/markdownlint'."
- :command ("mdl"
- (config-file "--style" flycheck-markdown-mdl-style)
- (option "--tags=" flycheck-markdown-mdl-rules concat
- flycheck-option-comma-separated-list)
- (option "--rules=" flycheck-markdown-mdl-rules concat
- flycheck-option-comma-separated-list))
- :standard-input t
- :error-patterns
- ((error line-start
- (file-name) ":" line ": " (id (one-or-more alnum)) " " (message)
- line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors
- (flycheck-remove-error-file-names "(stdin)" errors)))
- :modes (markdown-mode gfm-mode))
-
-(flycheck-define-checker nix
- "Nix checker using nix-instantiate.
-
-See URL `https://nixos.org/nix/manual/#sec-nix-instantiate'."
- :command ("nix-instantiate" "--parse" "-")
- :standard-input t
- :error-patterns
- ((error line-start
- "error: " (message) " at " (file-name) ":" line ":" column
- line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors
- (flycheck-remove-error-file-names "(string)" errors)))
- :modes nix-mode)
-
-(defun flycheck-locate-sphinx-source-directory ()
- "Locate the Sphinx source directory for the current buffer.
-
-Return the source directory, or nil, if the current buffer is not
-part of a Sphinx project."
- (-when-let* ((filename (buffer-file-name))
- (dir (locate-dominating-file filename "conf.py")))
- (expand-file-name dir)))
-
-(flycheck-define-checker rst
- "A ReStructuredText (RST) syntax checker using Docutils.
-
-See URL `http://docutils.sourceforge.net/'."
- ;; We need to use source-inplace to properly resolve relative paths in
- ;; include:: directives
- :command ("rst2pseudoxml.py" "--report=2" "--halt=5"
- ;; Read from standard input and throw output away
- "-" null-device)
- :standard-input t
- :error-patterns
- ((warning line-start "<stdin>:" line ": (WARNING/2) " (message) line-end)
- (error line-start "<stdin>:" line
- ": (" (or "ERROR/3" "SEVERE/4") ") "
- (message) line-end))
- :modes rst-mode)
-
-(flycheck-def-option-var flycheck-sphinx-warn-on-missing-references t rst-sphinx
- "Whether to warn about missing references in Sphinx.
-
-When non-nil (the default), warn about all missing references in
-Sphinx via `-n'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.17"))
-
-(flycheck-define-checker rst-sphinx
- "A ReStructuredText (RST) syntax checker using Sphinx.
-
-Requires Sphinx 1.2 or newer. See URL `http://sphinx-doc.org'."
- :command ("sphinx-build" "-b" "pseudoxml"
- "-q" "-N" ; Reduced output and no colors
- (option-flag "-n" flycheck-sphinx-warn-on-missing-references)
- (eval (flycheck-locate-sphinx-source-directory))
- temporary-directory ; Redirect the output to a temporary
- ; directory
- source-original) ; Sphinx needs the original document
- :error-patterns
- ((warning line-start (file-name) ":" line ": WARNING: " (message) line-end)
- (error line-start
- (file-name) ":" line
- ": " (or "ERROR" "SEVERE") ": "
- (message) line-end))
- :modes rst-mode
- :predicate (lambda () (and (flycheck-buffer-saved-p)
- (flycheck-locate-sphinx-source-directory))))
-
-(defun flycheck-ruby--find-project-root (_checker)
- "Compute an appropriate working-directory for flycheck-ruby.
-
-This is either a parent directory containing a Gemfile, or nil."
- (and
- buffer-file-name
- (locate-dominating-file buffer-file-name "Gemfile")))
-
-(flycheck-def-config-file-var flycheck-rubocoprc ruby-rubocop ".rubocop.yml"
- :safe #'stringp)
-
-(flycheck-def-option-var flycheck-rubocop-lint-only nil ruby-rubocop
- "Whether to only report code issues in Rubocop.
-
-When non-nil, only report code issues in Rubocop, via `--lint'.
-Otherwise report style issues as well."
- :safe #'booleanp
- :type 'boolean
- :package-version '(flycheck . "0.16"))
-
-(flycheck-define-checker ruby-rubocop
- "A Ruby syntax and style checker using the RuboCop tool.
-
-You need at least RuboCop 0.34 for this syntax checker.
-
-See URL `http://batsov.com/rubocop/'."
- :command ("rubocop"
- "--display-cop-names"
- "--force-exclusion"
- "--format" "emacs"
- ;; Explicitly disable caching to prevent Rubocop 0.35.1 and earlier
- ;; from caching standard input. Later versions of Rubocop
- ;; automatically disable caching with --stdin, see
- ;; https://github.com/flycheck/flycheck/issues/844 and
- ;; https://github.com/bbatsov/rubocop/issues/2576
- "--cache" "false"
- (config-file "--config" flycheck-rubocoprc)
- (option-flag "--lint" flycheck-rubocop-lint-only)
- ;; Rubocop takes the original file name as argument when reading
- ;; from standard input
- "--stdin" source-original)
- :standard-input t
- :working-directory flycheck-ruby--find-project-root
- :error-patterns
- ((info line-start (file-name) ":" line ":" column ": C: "
- (optional (id (one-or-more (not (any ":")))) ": ") (message) line-end)
- (warning line-start (file-name) ":" line ":" column ": W: "
- (optional (id (one-or-more (not (any ":")))) ": ") (message)
- line-end)
- (error line-start (file-name) ":" line ":" column ": " (or "E" "F") ": "
- (optional (id (one-or-more (not (any ":")))) ": ") (message)
- line-end))
- :modes (enh-ruby-mode ruby-mode)
- :next-checkers ((warning . ruby-reek)
- (warning . ruby-rubylint)))
-
-;; Default to `nil' to let Reek find its configuration file by itself
-(flycheck-def-config-file-var flycheck-reekrc ruby-reek nil
- :safe #'string-or-null-p
- :package-version '(flycheck . "30"))
-
-(flycheck-define-checker ruby-reek
- "A Ruby smell checker using reek.
-
-See URL `https://github.com/troessner/reek'."
- :command ("reek" "--format" "json"
- (config-file "--config" flycheck-reekrc)
- source)
- :error-parser flycheck-parse-reek
- :modes (enh-ruby-mode ruby-mode)
- :next-checkers ((warning . ruby-rubylint)))
-
-;; Default to `nil' to let Rubylint find its configuration file by itself, and
-;; to maintain backwards compatibility with older Rubylint and Flycheck releases
-(flycheck-def-config-file-var flycheck-rubylintrc ruby-rubylint nil
- :safe #'stringp)
-
-(flycheck-define-checker ruby-rubylint
- "A Ruby syntax and code analysis checker using ruby-lint.
-
-Requires ruby-lint 2.0.2 or newer. See URL
-`https://github.com/YorickPeterse/ruby-lint'."
- :command ("ruby-lint" "--presenter=syntastic"
- (config-file "--config" flycheck-rubylintrc)
- source)
- ;; Ruby Lint can't read from standard input
- :error-patterns
- ((info line-start
- (file-name) ":I:" line ":" column ": " (message) line-end)
- (warning line-start
- (file-name) ":W:" line ":" column ": " (message) line-end)
- (error line-start
- (file-name) ":E:" line ":" column ": " (message) line-end))
- :modes (enh-ruby-mode ruby-mode))
-
-(flycheck-define-checker ruby
- "A Ruby syntax checker using the standard Ruby interpreter.
-
-Please note that the output of different Ruby versions and
-implementations varies wildly. This syntax checker supports
-current versions of MRI and JRuby, but may break when used with
-other implementations or future versions of these
-implementations.
-
-Please consider using `ruby-rubocop' or `ruby-reek' instead.
-
-See URL `https://www.ruby-lang.org/'."
- :command ("ruby" "-w" "-c")
- :standard-input t
- :error-patterns
- ;; These patterns support output from JRuby, too, to deal with RVM or Rbenv
- ((error line-start "SyntaxError in -:" line ": " (message) line-end)
- (warning line-start "-:" line ":" (optional column ":")
- " warning: " (message) line-end)
- (error line-start "-:" line ": " (message) line-end))
- :modes (enh-ruby-mode ruby-mode)
- :next-checkers ((warning . ruby-rubylint)))
-
-(flycheck-define-checker ruby-jruby
- "A Ruby syntax checker using the JRuby interpreter.
-
-This syntax checker is very primitive, and may break on future
-versions of JRuby.
-
-Please consider using `ruby-rubocop' or `ruby-rubylint' instead.
-
-See URL `http://jruby.org/'."
- :command ("jruby" "-w" "-c")
- :standard-input t
- :error-patterns
- ((error line-start "SyntaxError in -:" line ": " (message) line-end)
- (warning line-start "-:" line ": warning: " (message) line-end)
- (error line-start "-:" line ": " (message) line-end))
- :modes (enh-ruby-mode ruby-mode)
- :next-checkers ((warning . ruby-rubylint)))
-
-(flycheck-def-args-var flycheck-cargo-check-args (rust-cargo)
- :package-version '(flycheck . "32"))
-
-(flycheck-def-args-var flycheck-rust-args (rust)
- :package-version '(flycheck . "0.24"))
-
-(flycheck-def-option-var flycheck-rust-check-tests t (rust-cargo rust)
- "Whether to check test code in Rust.
-
-For the `rust' checker: When non-nil, `rustc' is passed the
-`--test' flag, which will check any code marked with the
-`#[cfg(test)]' attribute and any functions marked with
-`#[test]'. Otherwise, `rustc' is not passed `--test' and test
-code will not be checked. Skipping `--test' is necessary when
-using `#![no_std]', because compiling the test runner requires
-`std'.
-
-For the `rust-cargo' checker: When non-nil, calls `cargo test
---no-run' instead of `cargo check'."
- :type 'boolean
- :safe #'booleanp
- :package-version '("flycheck" . "0.19"))
-
-(flycheck-def-option-var flycheck-rust-crate-root nil rust
- "A path to the crate root for the current buffer.
-
-The value of this variable is either a string with the path to
-the crate root for the current buffer, or nil if the current buffer
-is a crate. A relative path is relative to the current buffer.
-
-If this variable is non nil the current buffer will only be checked
-if it is not modified, i.e. after it has been saved."
- :type 'string
- :package-version '(flycheck . "0.20")
- :safe #'stringp)
-(make-variable-buffer-local 'flycheck-rust-crate-root)
-
-(flycheck-def-option-var flycheck-rust-crate-type "lib" (rust-cargo rust)
- "The type of the Rust Crate to check.
-
-For `rust-cargo', the value should be a string denoting the
-target type passed to Cargo. See
-`flycheck-rust-valid-crate-type-p' for the list of allowed
-values.
-
-For `rust', the value should be a string denoting the crate type
-for the `--crate-type' flag of rustc."
- :type '(choice (const :tag "nil (rust/rust-cargo)" nil)
- (const :tag "lib (rust/rust-cargo)" "lib")
- (const :tag "bin (rust/rust-cargo)" "bin")
- (const :tag "example (rust-cargo)" "example")
- (const :tag "test (rust-cargo)" "test")
- (const :tag "bench (rust-cargo)" "bench")
- (const :tag "rlib (rust)" "rlib")
- (const :tag "dylib (rust)" "dylib")
- (const :tag "cdylib (rust)" "cdylib")
- (const :tag "staticlib (rust)" "staticlib")
- (const :tag "metadata (rust)" "metadata"))
- :safe #'stringp
- :package-version '(flycheck . "0.20"))
-(make-variable-buffer-local 'flycheck-rust-crate-type)
-
-(flycheck-def-option-var flycheck-rust-binary-name nil rust-cargo
- "The name of the binary to pass to `cargo check --CRATE-TYPE'.
-
-The value of this variable is a string denoting the name of the
-target to check: usually the name of the crate, or the name of
-one of the files under `src/bin', `tests', `examples' or
-`benches'.
-
-This always requires a non-nil value, unless
-`flycheck-rust-crate-type' is `lib' or nil, in which case it is
-ignored."
- :type 'string
- :safe #'stringp
- :package-version '(flycheck . "28"))
-(make-variable-buffer-local 'flycheck-rust-binary-name)
-
-(flycheck-def-option-var flycheck-rust-features nil rust-cargo
- "List of features to activate during build or check.
-
-The value of this variable is a list of strings denoting features
-that will be activated to build the target to check. Features will
-be passed to `cargo check --features=FEATURES'."
- :type '(repeat :tag "Features to activate"
- (string :tag "Feature"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "32"))
-(make-variable-buffer-local 'flycheck-rust-features)
-
-(flycheck-def-option-var flycheck-rust-library-path nil rust
- "A list of library directories for Rust.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the library path of Rust.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Library directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.18"))
-
-(defun flycheck-rust-error-explainer (error)
- "Return an explanation text for the given `flycheck-error' ERROR."
- (-when-let (error-code (flycheck-error-id error))
- (with-output-to-string
- (call-process "rustc" nil standard-output nil "--explain" error-code))))
-
-(defun flycheck-rust-error-filter (errors)
- "Filter ERRORS from rustc output that have no explanatory value."
- (seq-remove
- (lambda (err)
- (or
- ;; Macro errors emit a diagnostic in a phony file,
- ;; e.g. "<println macros>".
- (-when-let (filename (flycheck-error-filename err))
- (string-match-p (rx "macros>" line-end) filename))
- ;; Redundant message giving the number of failed errors
- (-when-let (msg (flycheck-error-message err))
- (string-match-p
- (rx
- (or (: "aborting due to " (optional (one-or-more num) " ")
- "previous error")
- (: "For more information about this error, try `rustc --explain "
- (one-or-more alnum) "`.")))
- msg))))
- errors))
-
-(defun flycheck-rust-manifest-directory ()
- "Return the nearest directory holding the Cargo manifest.
-
-Return the nearest directory containing the `Cargo.toml' manifest
-file, starting from the current buffer and using
-`locate-dominating-file'. Return nil if there is no such file,
-or if the current buffer has no file name."
- (and buffer-file-name
- (locate-dominating-file buffer-file-name "Cargo.toml")))
-
-(defun flycheck-rust-cargo-metadata ()
- "Run 'cargo metadata' and return the result as parsed JSON object."
- (car (flycheck-parse-json
- (with-output-to-string
- (call-process "cargo" nil standard-output nil
- "metadata" "--no-deps" "--format-version" "1")))))
-
-(defun flycheck-rust-cargo-workspace-root ()
- "Return the path to the workspace root of a Rust Cargo project.
-
-Return nil if the workspace root does not exist (for Rust
-versions inferior to 1.25)."
- (let-alist (flycheck-rust-cargo-metadata)
- .workspace_root))
-
-(defun flycheck-rust-cargo-has-command-p (command)
- "Whether Cargo has COMMAND in its list of commands.
-
-Execute `cargo --list' to find out whether COMMAND is present."
- (let ((cargo (funcall flycheck-executable-find "cargo")))
- (member command (mapcar #'string-trim-left
- (ignore-errors (process-lines cargo "--list"))))))
-
-(defun flycheck-rust-valid-crate-type-p (crate-type)
- "Whether CRATE-TYPE is a valid target type for Cargo.
-
-A valid Cargo target type is one of `lib', `bin', `example',
-`test' or `bench'."
- (member crate-type '(nil "lib" "bin" "example" "test" "bench")))
-
-(flycheck-define-checker rust-cargo
- "A Rust syntax checker using Cargo.
-
-This syntax checker requires Rust 1.17 or newer. See URL
-`https://www.rust-lang.org'."
- :command ("cargo"
- (eval (if flycheck-rust-check-tests
- "test"
- "check"))
- (eval (when flycheck-rust-check-tests
- "--no-run"))
- (eval (when flycheck-rust-crate-type
- (concat "--" flycheck-rust-crate-type)))
- ;; All crate targets except "lib" need a binary name
- (eval (when (and flycheck-rust-crate-type
- (not (string= flycheck-rust-crate-type "lib")))
- flycheck-rust-binary-name))
- (option "--features=" flycheck-rust-features concat
- flycheck-option-comma-separated-list)
- (eval flycheck-cargo-check-args)
- "--message-format=json")
- :error-parser flycheck-parse-cargo-rustc
- :error-filter (lambda (errors)
- ;; In Rust 1.25+, filenames are relative to the workspace
- ;; root.
- (let ((root (flycheck-rust-cargo-workspace-root)))
- (seq-do (lambda (err)
- (setf (flycheck-error-filename err)
- (expand-file-name
- (flycheck-error-filename err) root)))
- (flycheck-rust-error-filter errors))))
- :error-explainer flycheck-rust-error-explainer
- :modes rust-mode
- :predicate flycheck-buffer-saved-p
- :enabled flycheck-rust-manifest-directory
- :working-directory (lambda (_) (flycheck-rust-manifest-directory))
- :verify
- (lambda (_)
- (and buffer-file-name
- (let* ((has-toml (flycheck-rust-manifest-directory))
- (valid-crate-type (flycheck-rust-valid-crate-type-p
- flycheck-rust-crate-type))
- (need-binary-name
- (and flycheck-rust-crate-type
- (not (string= flycheck-rust-crate-type "lib")))))
- (list
- (flycheck-verification-result-new
- :label "Cargo.toml"
- :message (if has-toml "Found" "Missing")
- :face (if has-toml 'success '(bold warning)))
- (flycheck-verification-result-new
- :label "Crate type"
- :message (if valid-crate-type
- (format "%s" flycheck-rust-crate-type)
- (format "%s (invalid, should be one of 'lib', 'bin', \
-'test', 'example' or 'bench')"
- flycheck-rust-crate-type))
- :face (if valid-crate-type 'success '(bold error)))
- (flycheck-verification-result-new
- :label "Binary name"
- :message (cond
- ((not need-binary-name) "Not required")
- ((not flycheck-rust-binary-name) "Required")
- (t (format "%s" flycheck-rust-binary-name)))
- :face (cond
- ((not need-binary-name) 'success)
- ((not flycheck-rust-binary-name) '(bold error))
- (t 'success))))))))
-
-(flycheck-define-checker rust
- "A Rust syntax checker using Rust compiler.
-
-This syntax checker needs Rust 1.18 or newer. See URL
-`https://www.rust-lang.org'."
- :command ("rustc"
- (option "--crate-type" flycheck-rust-crate-type)
- "--emit=mir" "-o" "/dev/null" ; avoid creating binaries
- "--error-format=json"
- (option-flag "--test" flycheck-rust-check-tests)
- (option-list "-L" flycheck-rust-library-path concat)
- (eval flycheck-rust-args)
- (eval (or flycheck-rust-crate-root
- (flycheck-substitute-argument 'source-original 'rust))))
- :error-parser flycheck-parse-rustc
- :error-filter flycheck-rust-error-filter
- :error-explainer flycheck-rust-error-explainer
- :modes rust-mode
- :predicate flycheck-buffer-saved-p)
-
-(flycheck-define-checker rust-clippy
- "A Rust syntax checker using clippy.
-
-See URL `https://github.com/rust-lang-nursery/rust-clippy'."
- :command ("cargo" "+nightly" "clippy" "--message-format=json")
- :error-parser flycheck-parse-cargo-rustc
- :error-filter flycheck-rust-error-filter
- :error-explainer flycheck-rust-error-explainer
- :modes rust-mode
- :predicate flycheck-buffer-saved-p
- :enabled (lambda ()
- (and (flycheck-rust-cargo-has-command-p "clippy")
- (flycheck-rust-manifest-directory)))
- :working-directory (lambda (_) (flycheck-rust-manifest-directory))
- :verify
- (lambda (_)
- (and buffer-file-name
- (let ((has-toml (flycheck-rust-manifest-directory))
- (has-clippy (flycheck-rust-cargo-has-command-p "clippy")))
- (list
- (flycheck-verification-result-new
- :label "Clippy"
- :message (if has-clippy "Found"
- "Cannot find the `cargo clippy' command")
- :face (if has-clippy 'success '(bold warning)))
- (flycheck-verification-result-new
- :label "Cargo.toml"
- :message (if has-toml "Found" "Missing")
- :face (if has-toml 'success '(bold warning))))))))
-
-(defvar flycheck-sass-scss-cache-directory nil
- "The cache directory for `sass' and `scss'.")
-
-(defun flycheck-sass-scss-cache-location ()
- "Get the cache location for `sass' and `scss'.
-
-If no cache directory exists yet, create one and return it.
-Otherwise return the previously used cache directory."
- (setq flycheck-sass-scss-cache-directory
- (or flycheck-sass-scss-cache-directory
- (make-temp-file "flycheck-sass-scss-cache" 'directory))))
-
-(flycheck-def-option-var flycheck-sass-compass nil sass
- "Whether to enable the Compass CSS framework.
-
-When non-nil, enable the Compass CSS framework, via `--compass'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.16"))
-
-(flycheck-define-checker sass
- "A Sass syntax checker using the Sass compiler.
-
-See URL `http://sass-lang.com'."
- :command ("sass"
- "--cache-location" (eval (flycheck-sass-scss-cache-location))
- (option-flag "--compass" flycheck-sass-compass)
- "--check" "--stdin")
- :standard-input t
- :error-patterns
- ((error line-start
- (or "Syntax error: " "Error: ")
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more not-newline)))
- (optional "\r") "\n" (one-or-more " ") "on line " line
- " of standard input"
- line-end)
- (warning line-start
- "WARNING: "
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more not-newline)))
- (optional "\r") "\n" (one-or-more " ") "on line " line
- " of " (one-or-more not-newline)
- line-end))
- :modes sass-mode)
-
-(flycheck-def-config-file-var flycheck-sass-lintrc sass/scss-sass-lint
- ".sass-lint.yml"
- :safe #'stringp
- :package-version '(flycheck . "30"))
-
-(flycheck-define-checker sass/scss-sass-lint
- "A SASS/SCSS syntax checker using sass-Lint.
-
-See URL `https://github.com/sasstools/sass-lint'."
- :command ("sass-lint"
- "--verbose"
- "--no-exit"
- "--format" "Checkstyle"
- (config-file "--config" flycheck-sass-lintrc)
- source)
- :error-parser flycheck-parse-checkstyle
- :modes (sass-mode scss-mode))
-
-(flycheck-define-checker scala
- "A Scala syntax checker using the Scala compiler.
-
-See URL `https://www.scala-lang.org/'."
- :command ("scalac" "-Ystop-after:parser" source)
- :error-patterns
- ((error line-start (file-name) ":" line ": error: " (message) line-end))
- :modes scala-mode
- :next-checkers ((warning . scala-scalastyle)))
-
-(flycheck-def-config-file-var flycheck-scalastylerc scala-scalastyle nil
- :safe #'stringp
- :package-version '(flycheck . "0.20"))
-
-(flycheck-define-checker scala-scalastyle
- "A Scala style checker using scalastyle.
-
-Note that this syntax checker is not used if
-`flycheck-scalastylerc' is nil or refers to a non-existing file.
-
-See URL `http://www.scalastyle.org'."
- :command ("scalastyle"
- (config-file "-c" flycheck-scalastylerc)
- source)
- :error-patterns
- ((error line-start "error file=" (file-name) " message="
- (message) " line=" line (optional " column=" column) line-end)
- (warning line-start "warning file=" (file-name) " message="
- (message) " line=" line (optional " column=" column) line-end))
- :error-filter (lambda (errors)
- (flycheck-sanitize-errors
- (flycheck-increment-error-columns errors)))
- :modes scala-mode
- :predicate
- ;; Inhibit this syntax checker if the JAR or the configuration are unset or
- ;; missing
- (lambda () (and flycheck-scalastylerc
- (flycheck-locate-config-file flycheck-scalastylerc
- 'scala-scalastyle)))
- :verify (lambda (checker)
- (let ((config-file (and flycheck-scalastylerc
- (flycheck-locate-config-file
- flycheck-scalastylerc checker))))
- (list
- (flycheck-verification-result-new
- :label "Configuration file"
- :message (cond
- ((not flycheck-scalastylerc)
- "`flycheck-scalastyletrc' not set")
- ((not config-file)
- (format "file %s not found" flycheck-scalastylerc))
- (t (format "found at %s" config-file)))
- :face (cond
- ((not flycheck-scalastylerc) '(bold warning))
- ((not config-file) '(bold error))
- (t 'success)))))))
-
-(flycheck-def-args-var flycheck-scheme-chicken-args scheme-chicken
- :package-version '(flycheck . "32"))
-
-(flycheck-define-checker scheme-chicken
- "A CHICKEN Scheme syntax checker using the CHICKEN compiler `csc'.
-
-See URL `http://call-cc.org/'."
- :command ("csc" "-analyze-only" "-local"
- (eval flycheck-scheme-chicken-args)
- source)
- :error-patterns
- ((info line-start
- "Note: " (zero-or-more not-newline) ":\n"
- (one-or-more (any space)) "(" (file-name) ":" line ") " (message)
- line-end)
- (warning line-start
- "Warning: " (zero-or-more not-newline) ",\n"
- (one-or-more (any space)) (zero-or-more not-newline) ":\n"
- (one-or-more (any space)) "(" (file-name) ":" line ") " (message)
- line-end)
- (warning line-start
- "Warning: " (zero-or-more not-newline) ":\n"
- (one-or-more (any space)) "(" (file-name) ":" line ") " (message)
- line-end)
- (error line-start "Error: (line " line ") " (message) line-end)
- (error line-start "Syntax error: (" (file-name) ":" line ")"
- (zero-or-more not-newline) " - "
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (zero-or-more space)
- (zero-or-more not-newline))
- (one-or-more space) "<--")
- line-end)
- ;; A of version 4.12.0, the chicken compiler doesn't provide a
- ;; line number for this error.
- (error line-start "Syntax error: "
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (zero-or-more space)
- (zero-or-more not-newline))
- (one-or-more space) "<--")
- line-end)
- (error line-start
- "Error: " (zero-or-more not-newline) ":\n"
- (one-or-more (any space)) "(" (file-name) ":" line ") " (message)
- line-end)
- ;; A of version 4.12.0, the chicken compiler doesn't provide a
- ;; line number for this error.
- (error line-start "Error: "
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (zero-or-more space)
- (zero-or-more not-newline))
- (one-or-more space) "<--")))
- :error-filter flycheck-fill-empty-line-numbers
- :predicate
- (lambda ()
- ;; In `scheme-mode' we must check the current Scheme implementation
- ;; being used
- (and (boundp 'geiser-impl--implementation)
- (eq geiser-impl--implementation 'chicken)))
- :verify
- (lambda (_checker)
- (let ((geiser-impl (bound-and-true-p geiser-impl--implementation)))
- (list
- (flycheck-verification-result-new
- :label "Geiser Implementation"
- :message (cond
- ((eq geiser-impl 'chicken) "Chicken Scheme")
- (geiser-impl (format "Other: %s" geiser-impl))
- (t "Geiser not active"))
- :face (cond
- ((eq geiser-impl 'chicken) 'success)
- (t '(bold error)))))))
- :modes scheme-mode)
-
-(defconst flycheck-scss-lint-checkstyle-re
- (rx "cannot load such file" (1+ not-newline) "scss_lint_reporter_checkstyle")
- "Regular expression to parse missing checkstyle error.")
-
-(defun flycheck-parse-scss-lint (output checker buffer)
- "Parse SCSS-Lint OUTPUT from CHECKER and BUFFER.
-
-Like `flycheck-parse-checkstyle', but catches errors about
-missing checkstyle reporter from SCSS-Lint."
- (if (string-match-p flycheck-scss-lint-checkstyle-re output)
- (list (flycheck-error-new-at
- 1 nil 'error "Checkstyle reporter for SCSS-Lint missing.
-Please run gem install scss_lint_reporter_checkstyle"
- :checker checker
- :buffer buffer
- :filename (buffer-file-name buffer)))
- (flycheck-parse-checkstyle output checker buffer)))
-
-(flycheck-def-config-file-var flycheck-scss-lintrc scss-lint ".scss-lint.yml"
- :safe #'stringp
- :package-version '(flycheck . "0.23"))
-
-(flycheck-define-checker scss-lint
- "A SCSS syntax checker using SCSS-Lint.
-
-Needs SCSS-Lint 0.43.2 or newer.
-
-See URL `https://github.com/brigade/scss-lint'."
- :command ("scss-lint"
- "--require=scss_lint_reporter_checkstyle"
- "--format=Checkstyle"
- (config-file "--config" flycheck-scss-lintrc)
- "--stdin-file-path" source-original "-")
- :standard-input t
- ;; We cannot directly parse Checkstyle XML, since for some mysterious reason
- ;; SCSS-Lint doesn't have a built-in Checkstyle reporter, and instead ships it
- ;; as an addon which might not be installed. We use a custom error parser to
- ;; check whether the addon is missing and turn that into a special kind of
- ;; Flycheck error.
- :error-parser flycheck-parse-scss-lint
- :modes scss-mode
- :verify
- (lambda (checker)
- (let* ((executable (flycheck-find-checker-executable checker))
- (reporter-missing
- (and executable
- (with-temp-buffer
- (call-process executable nil t nil
- "--require=scss_lint_reporter_checkstyle")
- (goto-char (point-min))
- (re-search-forward
- flycheck-scss-lint-checkstyle-re
- nil 'no-error)))))
- (when executable
- (list
- (flycheck-verification-result-new
- :label "checkstyle reporter"
- :message (if reporter-missing
- "scss_lint_reporter_checkstyle missing"
- "present")
- :face (if reporter-missing
- '(bold error)
- 'success)))))))
-
-(flycheck-define-checker scss-stylelint
- "A SCSS syntax and style checker using stylelint.
-
-See URL `http://stylelint.io/'."
- :command ("stylelint"
- (eval flycheck-stylelint-args)
- "--syntax" "scss"
- (option-flag "--quiet" flycheck-stylelint-quiet)
- (config-file "--config" flycheck-stylelintrc))
- :standard-input t
- :error-parser flycheck-parse-stylelint
- :modes (scss-mode))
-
-(flycheck-def-option-var flycheck-scss-compass nil scss
- "Whether to enable the Compass CSS framework.
-
-When non-nil, enable the Compass CSS framework, via `--compass'."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "0.16"))
-
-(flycheck-define-checker scss
- "A SCSS syntax checker using the SCSS compiler.
-
-See URL `http://sass-lang.com'."
- :command ("scss"
- "--cache-location" (eval (flycheck-sass-scss-cache-location))
- (option-flag "--compass" flycheck-scss-compass)
- "--check" "--stdin")
- :standard-input t
- :error-patterns
- ((error line-start
- (or "Syntax error: " "Error: ")
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more not-newline)))
- (optional "\r") "\n" (one-or-more " ") "on line " line
- " of standard input"
- line-end)
- (warning line-start
- "WARNING: "
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more not-newline)))
- (optional "\r") "\n" (one-or-more " ") "on line " line
- " of an unknown file"
- line-end))
- :modes scss-mode)
-
-(flycheck-def-args-var flycheck-sh-bash-args (sh-bash)
- :package-version '(flycheck . "32"))
-
-(flycheck-define-checker sh-bash
- "A Bash syntax checker using the Bash shell.
-
-See URL `http://www.gnu.org/software/bash/'."
- :command ("bash" "--norc" "-n"
- (eval flycheck-sh-bash-args)
- "--")
- :standard-input t
- :error-patterns
- ((error line-start
- ;; The name/path of the bash executable
- (one-or-more (not (any ":"))) ":"
- ;; A label "line", possibly localized
- (one-or-more (not (any digit)))
- line (zero-or-more " ") ":" (zero-or-more " ")
- (message) line-end))
- :modes sh-mode
- :predicate (lambda () (eq sh-shell 'bash))
- :next-checkers ((warning . sh-shellcheck)))
-
-(flycheck-define-checker sh-posix-dash
- "A POSIX Shell syntax checker using the Dash shell.
-
-See URL `http://gondor.apana.org.au/~herbert/dash/'."
- :command ("dash" "-n")
- :standard-input t
- :error-patterns
- ((error line-start (one-or-more (not (any ":"))) ": " line ": " (message)))
- :modes sh-mode
- :predicate (lambda () (eq sh-shell 'sh))
- :next-checkers ((warning . sh-shellcheck)))
-
-(flycheck-define-checker sh-posix-bash
- "A POSIX Shell syntax checker using the Bash shell.
-
-See URL `http://www.gnu.org/software/bash/'."
- :command ("bash" "--posix" "--norc" "-n" "--")
- :standard-input t
- :error-patterns
- ((error line-start
- ;; The name/path of the bash executable
- (one-or-more (not (any ":"))) ":"
- ;; A label "line", possibly localized
- (one-or-more (not (any digit)))
- line (zero-or-more " ") ":" (zero-or-more " ")
- (message) line-end))
- :modes sh-mode
- :predicate (lambda () (eq sh-shell 'sh))
- :next-checkers ((warning . sh-shellcheck)))
-
-(flycheck-define-checker sh-zsh
- "A Zsh syntax checker using the Zsh shell.
-
-See URL `http://www.zsh.org/'."
- :command ("zsh" "--no-exec" "--no-globalrcs" "--no-rcs" source)
- :error-patterns
- ((error line-start (file-name) ":" line ": " (message) line-end))
- :modes sh-mode
- :predicate (lambda () (eq sh-shell 'zsh))
- :next-checkers ((warning . sh-shellcheck)))
-
-(defconst flycheck-shellcheck-supported-shells '(bash ksh88 sh)
- "Shells supported by ShellCheck.")
-
-(flycheck-def-option-var flycheck-shellcheck-excluded-warnings nil sh-shellcheck
- "A list of excluded warnings for ShellCheck.
-
-The value of this variable is a list of strings, where each
-string is a warning code to be excluded from ShellCheck reports.
-By default, no warnings are excluded."
- :type '(repeat :tag "Excluded warnings"
- (string :tag "Warning code"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.21"))
-
-(flycheck-def-option-var flycheck-shellcheck-follow-sources t sh-shellcheck
- "Whether to follow external sourced files in scripts.
-
-Shellcheck will follow and parse sourced files so long as a
-pre-runtime resolvable path to the file is present. This can
-either be part of the source command itself:
- source /full/path/to/file.txt
-or added as a shellcheck directive before the source command:
- # shellcheck source=/full/path/to/file.txt."
- :type 'boolean
- :safe #'booleanp
- :package-version '(flycheck . "31"))
-
-(flycheck-define-checker sh-shellcheck
- "A shell script syntax and style checker using Shellcheck.
-
-See URL `https://github.com/koalaman/shellcheck/'."
- :command ("shellcheck"
- "--format" "checkstyle"
- "--shell" (eval (symbol-name sh-shell))
- (option-flag "--external-sources"
- flycheck-shellcheck-follow-sources)
- (option "--exclude" flycheck-shellcheck-excluded-warnings list
- flycheck-option-comma-separated-list)
- "-")
- :standard-input t
- :error-parser flycheck-parse-checkstyle
- :error-filter
- (lambda (errors)
- (flycheck-remove-error-file-names
- "-" (flycheck-dequalify-error-ids errors)))
- :modes sh-mode
- :predicate (lambda () (memq sh-shell flycheck-shellcheck-supported-shells))
- :verify (lambda (_)
- (let ((supports-shell (memq sh-shell
- flycheck-shellcheck-supported-shells)))
- (list
- (flycheck-verification-result-new
- :label (format "Shell %s supported" sh-shell)
- :message (if supports-shell "yes" "no")
- :face (if supports-shell 'success '(bold warning)))))))
-
-(flycheck-define-checker slim
- "A Slim syntax checker using the Slim compiler.
-
-See URL `http://slim-lang.com'."
- :command ("slimrb" "--compile")
- :standard-input t
- :error-patterns
- ((error line-start
- "Slim::Parser::SyntaxError:" (message) (optional "\r") "\n "
- "STDIN, Line " line (optional ", Column " column)
- line-end))
- :modes slim-mode
- :next-checkers ((warning . slim-lint)))
-
-(flycheck-define-checker slim-lint
- "A Slim linter.
-
-See URL `https://github.com/sds/slim-lint'."
- :command ("slim-lint" "--reporter=checkstyle" source)
- :error-parser flycheck-parse-checkstyle
- :modes slim-mode)
-
-(flycheck-define-checker sql-sqlint
- "A SQL syntax checker using the sqlint tool.
-
-See URL `https://github.com/purcell/sqlint'."
- :command ("sqlint")
- :standard-input t
- :error-patterns
- ((warning line-start "stdin:" line ":" column ":WARNING "
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more not-newline)))
- line-end)
- (error line-start "stdin:" line ":" column ":ERROR "
- (message (one-or-more not-newline)
- (zero-or-more "\n"
- (one-or-more " ")
- (one-or-more not-newline)))
- line-end))
- :modes (sql-mode))
-
-(flycheck-define-checker systemd-analyze
- "A systemd unit checker using systemd-analyze(1).
-
-See URL
-`https://www.freedesktop.org/software/systemd/man/systemd-analyze.html'."
- :command ("systemd-analyze" "verify" source)
- :error-patterns
- ((error line-start "[" (file-name) ":" line "] " (message) line-end))
- :modes (systemd-mode))
-
-(flycheck-def-config-file-var flycheck-chktexrc tex-chktex ".chktexrc"
- :safe #'stringp)
-
-(flycheck-define-checker tcl-nagelfar
- "An extensible tcl syntax checker
-
-See URL `http://nagelfar.sourceforge.net/'."
- :command ("nagelfar" "-H" source)
- :error-patterns
- ;; foo.tcl: 29: E Wrong number of arguments (4) to "set"
- ;; foo.tcl: 29: W Expr without braces
- ((info line-start (file-name) ": " line ": N " (message) line-end)
- (warning line-start (file-name) ": " line ": W " (message) line-end)
- (error line-start (file-name) ": " line ": E " (message) line-end))
- :modes tcl-mode)
-
-(flycheck-define-checker tex-chktex
- "A TeX and LaTeX syntax and style checker using chktex.
-
-See URL `http://www.nongnu.org/chktex/'."
- :command ("chktex"
- (config-file "--localrc" flycheck-chktexrc)
- ;; Compact error messages, and no version information, and execute
- ;; \input statements
- "--verbosity=0" "--quiet" "--inputfiles")
- :standard-input t
- :error-patterns
- ((warning line-start "stdin:" line ":" column ":"
- (id (one-or-more digit)) ":" (message) line-end))
- :error-filter
- (lambda (errors)
- (flycheck-sanitize-errors (flycheck-increment-error-columns errors)))
- :modes (latex-mode plain-tex-mode))
-
-(flycheck-define-checker tex-lacheck
- "A LaTeX syntax and style checker using lacheck.
-
-See URL `http://www.ctan.org/pkg/lacheck'."
- :command ("lacheck" source-inplace)
- :error-patterns
- ((warning line-start
- "\"" (file-name) "\", line " line ": " (message)
- line-end))
- :modes latex-mode)
-
-(flycheck-define-checker texinfo
- "A Texinfo syntax checker using makeinfo.
-
-See URL `http://www.gnu.org/software/texinfo/'."
- :command ("makeinfo" "-o" null-device "-")
- :standard-input t
- :error-patterns
- ((warning line-start
- "-:" line (optional ":" column) ": " "warning: " (message)
- line-end)
- (error line-start
- "-:" line (optional ":" column) ": " (message)
- line-end))
- :modes texinfo-mode)
-
-(flycheck-def-config-file-var flycheck-typescript-tslint-config
- typescript-tslint "tslint.json"
- :safe #'stringp
- :package-version '(flycheck . "27"))
-
-(flycheck-def-option-var flycheck-typescript-tslint-rulesdir
- nil typescript-tslint
- "The directory of custom rules for TSLint.
-
-The value of this variable is either a string containing the path
-to a directory with custom rules, or nil, to not give any custom
-rules to TSLint.
-
-Refer to the TSLint manual at URL
-`http://palantir.github.io/tslint/usage/cli/'
-for more information about the custom directory."
- :type '(choice (const :tag "No custom rules directory" nil)
- (directory :tag "Custom rules directory"))
- :safe #'stringp
- :package-version '(flycheck . "27"))
-
-(flycheck-def-args-var flycheck-tslint-args (typescript-tslint)
- :package-version '(flycheck . "31"))
-
-(flycheck-define-checker typescript-tslint
- "TypeScript style checker using TSLint.
-
-Note that this syntax checker is not used if
-`flycheck-typescript-tslint-config' is nil or refers to a
-non-existing file.
-
-See URL `https://github.com/palantir/tslint'."
- :command ("tslint" "--format" "json"
- (config-file "--config" flycheck-typescript-tslint-config)
- (option "--rules-dir" flycheck-typescript-tslint-rulesdir)
- (eval flycheck-tslint-args)
- source-inplace)
- :error-parser flycheck-parse-tslint
- :modes (typescript-mode))
-
-(flycheck-def-option-var flycheck-verilator-include-path nil verilog-verilator
- "A list of include directories for Verilator.
-
-The value of this variable is a list of strings, where each
-string is a directory to add to the include path of Verilator.
-Relative paths are relative to the file being checked."
- :type '(repeat (directory :tag "Include directory"))
- :safe #'flycheck-string-list-p
- :package-version '(flycheck . "0.24"))
-
-(flycheck-define-checker verilog-verilator
- "A Verilog syntax checker using the Verilator Verilog HDL simulator.
-
-See URL `https://www.veripool.org/wiki/verilator'."
- :command ("verilator" "--lint-only" "-Wall"
- (option-list "-I" flycheck-verilator-include-path concat)
- source)
- :error-patterns
- ((warning line-start "%Warning-" (zero-or-more not-newline) ": "
- (file-name) ":" line ": " (message) line-end)
- (error line-start "%Error: " (file-name) ":"
- line ": " (message) line-end))
- :modes verilog-mode)
-
-(flycheck-def-option-var flycheck-ghdl-language-standard nil vhdl-ghdl
- "The language standard to use in GHDL.
-
-The value of this variable is either a string denoting a language
-standard, or nil, to use the default standard. When non-nil,
-pass the language standard via the `--std' option."
- :type '(choice (const :tag "Default standard" nil)
- (string :tag "Language standard"))
- :safe #'stringp
- :package-version '(flycheck . "32"))
-(make-variable-buffer-local 'flycheck-ghdl-language-standard)
-
-(flycheck-def-option-var flycheck-ghdl-workdir nil vhdl-ghdl
- "The directory to use for the file library
-
-The value of this variable is either a string with the directory
-to use for the file library, or nil, to use the default value.
-When non-nil, pass the directory via the `--workdir' option."
- :type '(choice (const :tag "Default directory" nil)
- (string :tag "Directory for the file library"))
- :safe #'stringp
- :package-version '(flycheck . "32"))
-(make-variable-buffer-local 'flycheck-ghdl-workdir)
-
-(flycheck-define-checker vhdl-ghdl
- "A VHDL syntax checker using GHDL.
-
-See URL `https://github.com/ghdl/ghdl'."
- :command ("ghdl"
- "-s" ; only do the syntax checking
- (option "--std=" flycheck-ghdl-language-standard concat)
- (option "--workdir=" flycheck-ghdl-workdir concat)
- source)
- :error-patterns
- ((error line-start (file-name) ":" line ":" column ": " (message) line-end))
- :modes vhdl-mode)
-
-(flycheck-def-option-var flycheck-xml-xmlstarlet-xsd-path nil xml-xmlstarlet
- "An XSD schema to validate against."
- :type '(file :tag "XSD schema")
- :safe #'stringp
- :package-version '(flycheck . "31"))
-
-(flycheck-define-checker xml-xmlstarlet
- "A XML syntax checker and validator using the xmlstarlet utility.
-
-See URL `http://xmlstar.sourceforge.net/'."
- ;; Validate standard input with verbose error messages, and do not dump
- ;; contents to standard output
- :command ("xmlstarlet" "val" "--err" "--quiet"
- (option "--xsd" flycheck-xml-xmlstarlet-xsd-path)
- "-")
- :standard-input t
- :error-patterns
- ((error line-start "-:" line "." column ": " (message) line-end))
- :modes (xml-mode nxml-mode))
-
-(flycheck-def-option-var flycheck-xml-xmllint-xsd-path nil xml-xmllint
- "An XSD schema to validate against."
- :type '(file :tag "XSD schema")
- :safe #'stringp
- :package-version '(flycheck . "31"))
-
-(flycheck-define-checker xml-xmllint
- "A XML syntax checker and validator using the xmllint utility.
-
-The xmllint is part of libxml2, see URL
-`http://www.xmlsoft.org/'."
- :command ("xmllint" "--noout"
- (option "--schema" flycheck-xml-xmllint-xsd-path)
- "-")
- :standard-input t
- :error-patterns
- ((error line-start "-:" line ": " (message) line-end))
- :modes (xml-mode nxml-mode))
-
-(flycheck-define-checker yaml-jsyaml
- "A YAML syntax checker using JS-YAML.
-
-See URL `https://github.com/nodeca/js-yaml'."
- :command ("js-yaml")
- :standard-input t
- :error-patterns
- ((error line-start
- (or "JS-YAML" "YAMLException") ": "
- (message) " at line " line ", column " column ":"
- line-end))
- :modes yaml-mode
- :next-checkers ((warning . cwl)))
-
-(flycheck-define-checker yaml-ruby
- "A YAML syntax checker using Ruby's YAML parser.
-
-This syntax checker uses the YAML parser from Ruby's standard
-library.
-
-See URL `http://www.ruby-doc.org/stdlib-2.0.0/libdoc/yaml/rdoc/YAML.html'."
- :command ("ruby" "-ryaml" "-e" "begin;
- YAML.load(STDIN); \
- rescue Exception => e; \
- STDERR.puts \"stdin:#{e}\"; \
- end")
- :standard-input t
- :error-patterns
- ((error line-start "stdin:" (zero-or-more not-newline) ":" (message)
- "at line " line " column " column line-end))
- :modes yaml-mode
- :next-checkers ((warning . cwl)))
-
-(provide 'flycheck)
-
-;; Local Variables:
-;; coding: utf-8
-;; indent-tabs-mode: nil
-;; End:
-
-;;; flycheck.el ends here
diff --git a/elpa/flycheck-20181018.1021/flycheck.elc b/elpa/flycheck-20181018.1021/flycheck.elc
deleted file mode 100644
index 8a965fc..0000000
--- a/elpa/flycheck-20181018.1021/flycheck.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip-autoloads.el b/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip-autoloads.el
deleted file mode 100644
index f944913..0000000
--- a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip-autoloads.el
+++ /dev/null
@@ -1,51 +0,0 @@
-;;; flycheck-pos-tip-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "flycheck-pos-tip" "flycheck-pos-tip.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from flycheck-pos-tip.el
-
-(defvar flycheck-pos-tip-mode nil "\
-Non-nil if Flycheck-Pos-Tip mode is enabled.
-See the `flycheck-pos-tip-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `flycheck-pos-tip-mode'.")
-
-(custom-autoload 'flycheck-pos-tip-mode "flycheck-pos-tip" nil)
-
-(autoload 'flycheck-pos-tip-mode "flycheck-pos-tip" "\
-A minor mode to show Flycheck error messages in a popup.
-
-When called interactively, toggle `flycheck-pos-tip-mode'. With
-prefix ARG, enable `flycheck-pos-tip-mode' if ARG is positive,
-otherwise disable it.
-
-When called from Lisp, enable `flycheck-pos-tip-mode' if ARG is
-omitted, nil or positive. If ARG is `toggle', toggle
-`flycheck-pos-tip-mode'. Otherwise behave as if called
-interactively.
-
-In `flycheck-pos-tip-mode' show Flycheck's error messages in a
-GUI tooltip. Falls back to `flycheck-display-error-messages' on
-TTY frames.
-
-\(fn &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flycheck-pos-tip" '("flycheck-pos-tip-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; flycheck-pos-tip-autoloads.el ends here
diff --git a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip-pkg.el b/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip-pkg.el
deleted file mode 100644
index bb6d65e..0000000
--- a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "flycheck-pos-tip" "20180610.1615" "Display Flycheck errors in GUI tooltips" '((emacs "24.1") (flycheck "0.22") (pos-tip "0.4.6")) :commit "909113977d37739387c7f099d74a724cfe6efcec" :keywords '("tools" "convenience") :authors '(("Akiha Senda" . "senda.akiha@gmail.com") ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) :maintainer '("Sebastian Wiesner" . "swiesner@lunaryorn.com") :url "https://github.com/flycheck/flycheck-pos-tip")
diff --git a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip.el b/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip.el
deleted file mode 100644
index a7a5313..0000000
--- a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip.el
+++ /dev/null
@@ -1,143 +0,0 @@
-;;; flycheck-pos-tip.el --- Display Flycheck errors in GUI tooltips -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015-2016 Sebastian Wiesner <swiesner@lunaryorn.com>
-;; Copyright (C) 2014 Akiha Senda
-
-;; Author: Akiha Senda <senda.akiha@gmail.com>
-;; Sebastian Wiesner <swiesner@lunaryorn.com>
-;; Maintainer: Sebastian Wiesner <swiesner@lunaryorn.com>
-;; URL: https://github.com/flycheck/flycheck-pos-tip
-;; Package-Version: 20180610.1615
-;; Keywords: tools, convenience
-;; Version: 0.4-cvs
-;; Package-Requires: ((emacs "24.1") (flycheck "0.22") (pos-tip "0.4.6"))
-
-;; This file is not part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Provide an error display function to show errors in a tooltip.
-
-;;;; Setup
-
-;; (with-eval-after-load 'flycheck
-;; (flycheck-pos-tip-mode))
-
-;;; Code:
-
-(require 'flycheck)
-(require 'pos-tip)
-
-(defgroup flycheck-pos-tip nil
- "Display Flycheck errors in tooltips."
- :prefix "flycheck-pos-tip-"
- :group 'flycheck
- :link '(url-link :tag "Github" "https://github.com/flycheck/flycheck-pos-tip"))
-
-(defcustom flycheck-pos-tip-max-width nil
- "If non-nil, the max width of the tooltip in chars."
- :group 'flycheck-pos-tip
- :type '(choice (const :tag "Auto" nil)
- (integer :tag "Characters"))
- :package-version '(flycheck-pos-tip . "0.4"))
-
-(defcustom flycheck-pos-tip-timeout 5
- "Time in seconds to hide the tooltip after."
- :group 'flycheck-pos-tip
- :type 'number
- :package-version '(flycheck-pos-tip . "0.2"))
-
-(defcustom flycheck-pos-tip-display-errors-tty-function
- #'flycheck-display-error-messages
- "Fallback function for error display on TTY frames.
-
-Like `flycheck-display-errors-function'; called to show error
-messages on TTY frames if `flycheck-pos-tip-mode' is active."
- :group 'flycheck-pos-tip
- :type 'function
- :package-version '(flycheck-pos-tip . "0.2"))
-
-(defun flycheck-pos-tip-error-messages (errors)
- "Display ERRORS, using a graphical tooltip on GUI frames."
- (when errors
- (if (display-graphic-p)
- (let ((message (mapconcat #'flycheck-error-format-message-and-id
- errors "\n\n"))
- (line-height (car (window-line-height))))
- (pos-tip-show message nil nil nil flycheck-pos-tip-timeout
- flycheck-pos-tip-max-width nil
- ;; Add a little offset to the tooltip to move it away
- ;; from the corresponding text in the buffer. We
- ;; explicitly take the line height into account because
- ;; pos-tip computes the offset from the top of the line
- ;; apparently.
- nil (and line-height (+ line-height 5))))
- (funcall flycheck-pos-tip-display-errors-tty-function errors))))
-
-(defun flycheck-pos-tip-hide-messages ()
- "Hide messages currently being shown if any."
- (if (display-graphic-p)
- (pos-tip-hide)
- (flycheck-hide-error-buffer)))
-
-(defvar flycheck-pos-tip-old-display-function nil
- "The former value of `flycheck-display-errors-function'.")
-
-;;;###autoload
-(define-minor-mode flycheck-pos-tip-mode
- "A minor mode to show Flycheck error messages in a popup.
-
-When called interactively, toggle `flycheck-pos-tip-mode'. With
-prefix ARG, enable `flycheck-pos-tip-mode' if ARG is positive,
-otherwise disable it.
-
-When called from Lisp, enable `flycheck-pos-tip-mode' if ARG is
-omitted, nil or positive. If ARG is `toggle', toggle
-`flycheck-pos-tip-mode'. Otherwise behave as if called
-interactively.
-
-In `flycheck-pos-tip-mode' show Flycheck's error messages in a
-GUI tooltip. Falls back to `flycheck-display-error-messages' on
-TTY frames."
- :global t
- :group 'flycheck
- (let ((hooks '(post-command-hook focus-out-hook)))
- (cond
- ;; Use our display function and remember the old one but only if we haven't
- ;; yet configured it, to avoid activating twice.
- ((and flycheck-pos-tip-mode
- (not (eq flycheck-display-errors-function
- #'flycheck-pos-tip-error-messages)))
- (setq flycheck-pos-tip-old-display-function
- flycheck-display-errors-function
- flycheck-display-errors-function
- #'flycheck-pos-tip-error-messages)
- (dolist (hook hooks)
- (add-hook hook #'flycheck-pos-tip-hide-messages)))
- ;; Reset the display function and remove ourselves from all hooks but only
- ;; if the mode is still active.
- ((and (not flycheck-pos-tip-mode)
- (eq flycheck-display-errors-function
- #'flycheck-pos-tip-error-messages))
- (setq flycheck-display-errors-function
- flycheck-pos-tip-old-display-function
- flycheck-pos-tip-old-display-function nil)
- (dolist (hook hooks)
- (remove-hook hook 'flycheck-pos-tip-hide-messages))))))
-
-(provide 'flycheck-pos-tip)
-
-;;; flycheck-pos-tip.el ends here
diff --git a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip.elc b/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip.elc
deleted file mode 100644
index 1191f5e..0000000
--- a/elpa/flycheck-pos-tip-20180610.1615/flycheck-pos-tip.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/ggtags-20181031.1803/ggtags-autoloads.el b/elpa/ggtags-20181031.1803/ggtags-autoloads.el
deleted file mode 100644
index 4962944..0000000
--- a/elpa/ggtags-20181031.1803/ggtags-autoloads.el
+++ /dev/null
@@ -1,57 +0,0 @@
-;;; ggtags-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "ggtags" "ggtags.el" (0 0 0 0))
-;;; Generated autoloads from ggtags.el
-
-(autoload 'ggtags-find-project "ggtags" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'ggtags-find-tag-dwim "ggtags" "\
-Find NAME by context.
-If point is at a definition tag, find references, and vice versa.
-If point is at a line that matches `ggtags-include-pattern', find
-the include file instead.
-
-When called interactively with a prefix arg, always find
-definition tags.
-
-\(fn NAME &optional WHAT)" t nil)
-
-(autoload 'ggtags-mode "ggtags" "\
-Toggle Ggtags mode on or off.
-With a prefix argument ARG, enable Ggtags mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
-\\{ggtags-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'ggtags-build-imenu-index "ggtags" "\
-A function suitable for `imenu-create-index-function'.
-
-\(fn)" nil nil)
-
-(autoload 'ggtags-try-complete-tag "ggtags" "\
-A function suitable for `hippie-expand-try-functions-list'.
-
-\(fn OLD)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ggtags" '("ggtags-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; ggtags-autoloads.el ends here
diff --git a/elpa/ggtags-20181031.1803/ggtags-pkg.el b/elpa/ggtags-20181031.1803/ggtags-pkg.el
deleted file mode 100644
index fbe3029..0000000
--- a/elpa/ggtags-20181031.1803/ggtags-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "ggtags" "20181031.1803" "emacs frontend to GNU Global source code tagging system" '((emacs "25")) :commit "669676461c74ffd30b81dce60cf4f081270f2858" :keywords '("tools" "convenience") :authors '(("Leo Liu" . "sdl.web@gmail.com")) :maintainer '("Leo Liu" . "sdl.web@gmail.com") :url "https://github.com/leoliu/ggtags")
diff --git a/elpa/ggtags-20181031.1803/ggtags.el b/elpa/ggtags-20181031.1803/ggtags.el
deleted file mode 100644
index 221d14d..0000000
--- a/elpa/ggtags-20181031.1803/ggtags.el
+++ /dev/null
@@ -1,2368 +0,0 @@
-;;; ggtags.el --- emacs frontend to GNU Global source code tagging system -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013-2018 Free Software Foundation, Inc.
-
-;; Author: Leo Liu <sdl.web@gmail.com>
-;; Version: 0.9.0
-;; Package-Version: 20181031.1803
-;; Keywords: tools, convenience
-;; Created: 2013-01-29
-;; URL: https://github.com/leoliu/ggtags
-;; Package-Requires: ((emacs "25"))
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; A package to integrate GNU Global source code tagging system
-;; (http://www.gnu.org/software/global) with Emacs.
-;;
-;; Usage:
-;;
-;; `ggtags' is similar to the standard `etags' package. These keys
-;; `M-.', `M-,' and `C-M-.' should work as expected in `ggtags-mode'.
-;; See the README in https://github.com/leoliu/ggtags for more
-;; details.
-;;
-;; All commands are available from the `Ggtags' menu in `ggtags-mode'.
-
-;;; NEWS 0.8.13 (2018-07-25):
-
-;; - Don't choke on tag names start with `-'.
-;; - `ggtags-show-definition' supports `ggtags-sort-by-nearness'.
-;; - New variable `ggtags-extra-args'.
-;; - Unbreak `ggtags-sort-by-nearness'.
-;;
-;; See full NEWS on https://github.com/leoliu/ggtags#news
-
-;;; Code:
-
-(eval-when-compile
- (require 'url-parse))
-
-(require 'cl-lib)
-(require 'ewoc)
-(require 'compile)
-(require 'etags)
-
-(eval-when-compile
- (defmacro ignore-errors-unless-debug (&rest body)
- "Ignore all errors while executing BODY unless debug is on."
- (declare (debug t) (indent 0))
- `(condition-case-unless-debug nil (progn ,@body) (error nil)))
-
- (defmacro with-display-buffer-no-window (&rest body)
- (declare (debug t) (indent 0))
- ;; See http://debbugs.gnu.org/13594
- `(let ((display-buffer-overriding-action
- (if ggtags-auto-jump-to-match
- (list #'display-buffer-no-window)
- display-buffer-overriding-action)))
- ,@body)))
-
-(defgroup ggtags nil
- "GNU Global source code tagging system."
- :group 'tools)
-
-(defface ggtags-highlight '((t (:underline t)))
- "Face used to highlight a valid tag at point."
- :group 'ggtags)
-
-(defface ggtags-global-line '((t (:inherit secondary-selection)))
- "Face used to highlight matched line in Global buffer."
- :group 'ggtags)
-
-(defcustom ggtags-executable-directory nil
- "If non-nil the directory to search global executables."
- :type '(choice (const :tag "Unset" nil) directory)
- :risky t
- :group 'ggtags)
-
-(defcustom ggtags-oversize-limit (* 10 1024 1024)
- "The over size limit for the GTAGS file.
-When the size of the GTAGS file is below this limit, ggtags
-always maintains up-to-date tags for the whole source tree by
-running `global -u'. For projects with GTAGS larger than this
-limit, only files edited in Ggtags mode are updated (via `global
---single-update')."
- :safe 'numberp
- :type '(choice (const :tag "None" nil)
- (const :tag "Always" t)
- number)
- :group 'ggtags)
-
-(defcustom ggtags-include-pattern
- '("^\\s-*#\\s-*\\(?:include\\|import\\)\\s-*[\"<]\\(?:[./]*\\)?\\(.*?\\)[\">]" . 1)
- "Pattern used to detect #include files.
-Value can be (REGEXP . SUB) or a function with no arguments.
-REGEXP should match from the beginning of line."
- :type '(choice (const :tag "Disable" nil)
- (cons regexp integer)
- function)
- :safe 'stringp
- :group 'ggtags)
-
-;; See also: http://article.gmane.org/gmane.comp.gnu.global.bugs/1751
-(defcustom ggtags-use-project-gtagsconf t
- "Non-nil to use GTAGSCONF file found at project root.
-File .globalrc and gtags.conf are checked in order.
-
-Note: GNU Global v6.2.13 has the feature of using gtags.conf at
-project root. Setting this variable to nil doesn't disable this
-feature."
- :safe 'booleanp
- :type 'boolean
- :group 'ggtags)
-
-(defcustom ggtags-project-duration 600
- "Seconds to keep information of a project in memory."
- :type 'number
- :group 'ggtags)
-
-(defcustom ggtags-process-environment nil
- "Similar to `process-environment' with higher precedence.
-Elements are run through `substitute-env-vars' before use.
-GTAGSROOT will always be expanded to current project root
-directory. This is intended for project-wise ggtags-specific
-process environment settings. Note on remote hosts (e.g. tramp)
-directory local variables is not enabled by default per
-`enable-remote-dir-locals' (which see)."
- :safe 'ggtags-list-of-string-p
- :type '(repeat string)
- :group 'ggtags)
-
-(defcustom ggtags-auto-jump-to-match 'history
- "Strategy on how to jump to match: nil, first or history.
-
- nil: never automatically jump to any match;
- first: jump to the first match;
-history: jump to the match stored in search history."
- :type '(choice (const :tag "First match" first)
- (const :tag "Search History" history)
- (const :tag "Never" nil))
- :group 'ggtags)
-
-(defcustom ggtags-global-window-height 8 ; ggtags-global-mode
- "Number of lines for the *ggtags-global* popup window.
-If nil, use Emacs default."
- :type '(choice (const :tag "Default" nil) integer)
- :group 'ggtags)
-
-(defcustom ggtags-global-abbreviate-filename 40
- "Non-nil to display file names abbreviated e.g. \"/u/b/env\".
-If an integer abbreviate only names longer than that number."
- :type '(choice (const :tag "No" nil)
- (const :tag "Always" t)
- integer)
- :group 'ggtags)
-
-(defcustom ggtags-split-window-function split-window-preferred-function
- "A function to control how ggtags pops up the auxiliary window."
- :type 'function
- :group 'ggtags)
-
-(defcustom ggtags-use-idutils (and (executable-find "mkid") t)
- "Non-nil to also generate the idutils DB."
- :type 'boolean
- :group 'ggtags)
-
-(defcustom ggtags-use-sqlite3 nil
- "Use sqlite3 for storage instead of Berkeley DB.
-This feature requires GNU Global 6.3.3+ and is ignored if `gtags'
-isn't built with sqlite3 support."
- :type 'boolean
- :safe 'booleanp
- :group 'ggtags)
-
-(defcustom ggtags-extra-args nil
- "Extra arguments to pass to `gtags' in `ggtags-create-tags'."
- :type '(repeat string)
- :safe #'ggtags-list-of-string-p
- :group 'ggtags)
-
-(defcustom ggtags-sort-by-nearness nil
- "Sort tags by nearness to current directory.
-GNU Global 6.5+ required."
- :type 'boolean
- :safe #'booleanp
- :group 'ggtags)
-
-(defcustom ggtags-update-on-save t
- "Non-nil to update tags for current buffer on saving."
- ;; It is reported that `global --single-update' can be slow in sshfs
- ;; directories. See https://github.com/leoliu/ggtags/issues/85.
- :safe #'booleanp
- :type 'boolean
- :group 'ggtags)
-
-(defcustom ggtags-global-output-format 'grep
- "Global output format: path, ctags, ctags-x, grep or cscope."
- :type '(choice (const path)
- (const ctags)
- (const ctags-x)
- (const grep)
- (const cscope))
- :group 'ggtags)
-
-(defcustom ggtags-global-use-color t
- "Non-nil to use color in output if supported by Global.
-Note: processing colored output takes noticeable time
-particularly when the output is large."
- :type 'boolean
- :safe 'booleanp
- :group 'ggtags)
-
-(defcustom ggtags-global-ignore-case nil
- "Non-nil if Global should ignore case in the search pattern."
- :safe 'booleanp
- :type 'boolean
- :group 'ggtags)
-
-(defcustom ggtags-global-treat-text nil
- "Non-nil if Global should include matches from text files.
-This affects `ggtags-find-file' and `ggtags-grep'."
- :safe 'booleanp
- :type 'boolean
- :group 'ggtags)
-
-;; See also https://github.com/leoliu/ggtags/issues/52
-(defcustom ggtags-global-search-libpath-for-reference t
- "If non-nil global will search GTAGSLIBPATH for references.
-Search is only continued in GTAGSLIBPATH if it finds no matches
-in current project."
- :safe 'booleanp
- :type 'boolean
- :group 'ggtags)
-
-(defcustom ggtags-global-large-output 1000
- "Number of lines in the Global buffer to indicate large output."
- :type 'number
- :group 'ggtags)
-
-(defcustom ggtags-global-history-length history-length
- "Maximum number of items to keep in `ggtags-global-search-history'."
- :type 'integer
- :group 'ggtags)
-
-(defcustom ggtags-enable-navigation-keys t
- "If non-nil key bindings in `ggtags-navigation-map' are enabled."
- :safe 'booleanp
- :type 'boolean
- :group 'ggtags)
-
-(defcustom ggtags-find-tag-hook nil
- "Hook run immediately after finding a tag."
- :options '(recenter reposition-window)
- :type 'hook
- :group 'ggtags)
-
-(defcustom ggtags-get-definition-function #'ggtags-get-definition-default
- "Function called by `ggtags-show-definition' to get definition.
-It is passed a list of definition candidates of the form:
-
- (TEXT NAME FILE LINE)
-
-where TEXT is usually the source line of the definition.
-
-The return value is passed to `ggtags-print-definition-function'."
- :type 'function
- :group 'ggtags)
-
-(defcustom ggtags-print-definition-function
- (lambda (s) (ggtags-echo "%s" (or s "[definition not found]")))
- "Function used by `ggtags-show-definition' to print definition."
- :type 'function
- :group 'ggtags)
-
-(defcustom ggtags-mode-sticky t
- "If non-nil enable Ggtags Mode in files visited."
- :safe 'booleanp
- :type 'boolean
- :group 'ggtags)
-
-(defcustom ggtags-mode-prefix-key "\C-c"
- "Key binding used for `ggtags-mode-prefix-map'.
-Users should change the value using `customize-variable' to
-properly update `ggtags-mode-map'."
- :set (lambda (sym value)
- (when (bound-and-true-p ggtags-mode-map)
- (let ((old (and (boundp sym) (symbol-value sym))))
- (and old (define-key ggtags-mode-map old nil)))
- (and value
- (bound-and-true-p ggtags-mode-prefix-map)
- (define-key ggtags-mode-map value ggtags-mode-prefix-map)))
- (set-default sym value))
- :type 'key-sequence
- :group 'ggtags)
-
-(defcustom ggtags-completing-read-function nil
- "Ggtags specific `completing-read-function' (which see).
-Nil means using the value of `completing-read-function'."
- :type '(choice (const :tag "Use completing-read-function" nil)
- function)
- :group 'ggtags)
-
-(define-obsolete-variable-alias 'ggtags-highlight-tag-delay 'ggtags-highlight-tag
- "0.8.11")
-
-(defcustom ggtags-highlight-tag 0.25
- "If non-nil time in seconds before highlighting tag at point.
-Set to nil to disable tag highlighting."
- :set (lambda (sym value)
- (when (fboundp 'ggtags-setup-highlight-tag-at-point)
- (ggtags-setup-highlight-tag-at-point value))
- (set-default sym value))
- :type '(choice (const :tag "Disable" nil) number)
- :group 'ggtags)
-
-(defcustom ggtags-bounds-of-tag-function (lambda ()
- (bounds-of-thing-at-point 'symbol))
- "Function to get the start and end positions of the tag at point."
- :type 'function
- :group 'ggtags)
-
-;; Used by ggtags-global-mode
-(defvar ggtags-global-error "match"
- "Stem of message to print when no matches are found.")
-
-(defconst ggtags-bug-url "https://github.com/leoliu/ggtags/issues")
-
-(defvar ggtags-global-last-buffer nil)
-
-(defvar ggtags-global-continuation nil)
-
-(defvar ggtags-current-tag-name nil)
-
-(defvar ggtags-highlight-tag-overlay nil)
-
-(defvar ggtags-highlight-tag-timer nil)
-
-(defmacro ggtags-with-temp-message (message &rest body)
- (declare (debug t) (indent 1))
- (let ((init-time (make-symbol "-init-time-"))
- (tmp-msg (make-symbol "-tmp-msg-")))
- `(let ((,init-time (float-time))
- (,tmp-msg ,message))
- (with-temp-message ,tmp-msg
- (prog1 (progn ,@body)
- (message "%sdone (%.2fs)" ,(or tmp-msg "")
- (- (float-time) ,init-time)))))))
-
-(defmacro ggtags-delay-finish-functions (&rest body)
- "Delay running `compilation-finish-functions' until after BODY."
- (declare (indent 0) (debug t))
- (let ((saved (make-symbol "-saved-"))
- (exit-args (make-symbol "-exit-args-")))
- `(let ((,saved compilation-finish-functions)
- ,exit-args)
- (setq-local compilation-finish-functions nil)
- (add-hook 'compilation-finish-functions
- (lambda (&rest args) (setq ,exit-args args))
- nil t)
- (unwind-protect (progn ,@body)
- (setq-local compilation-finish-functions ,saved)
- (and ,exit-args (apply #'run-hook-with-args
- 'compilation-finish-functions ,exit-args))))))
-
-(defmacro ggtags-ensure-global-buffer (&rest body)
- (declare (debug t) (indent 0))
- `(progn
- (or (and (buffer-live-p ggtags-global-last-buffer)
- (with-current-buffer ggtags-global-last-buffer
- (derived-mode-p 'ggtags-global-mode)))
- (error "No global buffer found"))
- (with-current-buffer ggtags-global-last-buffer ,@body)))
-
-(defun ggtags-list-of-string-p (xs)
- "Return non-nil if XS is a list of strings."
- (cl-every #'stringp xs))
-
-(defun ggtags-ensure-localname (file)
- (and file (or (file-remote-p file 'localname) file)))
-
-(defun ggtags-echo (format-string &rest args)
- "Print formatted text to echo area."
- (let (message-log-max) (apply #'message format-string args)))
-
-(defun ggtags-forward-to-line (line)
- "Move to line number LINE in current buffer."
- (cl-check-type line (integer 1))
- (save-restriction
- (widen)
- (goto-char (point-min))
- (forward-line (1- line))))
-
-(defun ggtags-kill-window ()
- "Quit selected window and kill its buffer."
- (interactive)
- (quit-window t))
-
-(defun ggtags-program-path (name)
- (if ggtags-executable-directory
- (expand-file-name name ggtags-executable-directory)
- name))
-
-(defun ggtags-process-succeed-p (program &rest args)
- "Return non-nil if successfully running PROGRAM with ARGS."
- (let ((program (ggtags-program-path program)))
- (condition-case err
- (zerop (apply #'process-file program nil nil nil args))
- (error (message "`%s' failed: %s" program (error-message-string err))
- nil))))
-
-(defun ggtags-process-string (program &rest args)
- (with-temp-buffer
- (let ((exit (apply #'process-file
- (ggtags-program-path program) nil t nil args))
- (output (progn
- (goto-char (point-max))
- (skip-chars-backward " \t\n\r")
- (buffer-substring-no-properties (point-min) (point)))))
- (or (zerop exit)
- (error "`%s' non-zero exit: %s" program output))
- output)))
-
-(defun ggtags-tag-at-point ()
- (pcase (funcall ggtags-bounds-of-tag-function)
- (`(,beg . ,end) (buffer-substring-no-properties beg end))))
-
-;;; Store for project info and settings
-
-(defvar ggtags-projects (make-hash-table :size 7 :test #'equal))
-
-(cl-defstruct (ggtags-project (:constructor ggtags-project--make)
- (:copier nil)
- (:type vector)
- :named)
- root tag-size has-refs has-path-style has-color dirty-p mtime timestamp)
-
-(defun ggtags-make-project (root)
- (cl-check-type root string)
- (let* ((default-directory (file-name-as-directory root))
- ;; NOTE: use of GTAGSDBPATH is not recommended. -- GLOBAL(1)
- ;; ROOT and DB can be different directories due to GTAGSDBPATH.
- (dbdir (concat (file-remote-p root)
- (ggtags-process-string "global" "-p"))))
- (pcase (nthcdr 5 (file-attributes (expand-file-name "GTAGS" dbdir)))
- (`(,mtime ,_ ,tag-size . ,_)
- (let* ((rtags-size (nth 7 (file-attributes (expand-file-name "GRTAGS" dbdir))))
- (has-refs
- (when rtags-size
- (and (or (> rtags-size (* 32 1024))
- (with-demoted-errors "ggtags-make-project: %S"
- (not (equal "" (ggtags-process-string "global" "-crs")))))
- 'has-refs)))
- ;; http://thread.gmane.org/gmane.comp.gnu.global.bugs/1518
- (has-path-style
- (and (ggtags-process-succeed-p "global" "--path-style" "shorter" "--help")
- 'has-path-style))
- ;; http://thread.gmane.org/gmane.comp.gnu.global.bugs/1542
- (has-color (and (ggtags-process-succeed-p "global" "--color" "--help")
- 'has-color)))
- (puthash default-directory
- (ggtags-project--make :root default-directory
- :tag-size tag-size
- :has-refs has-refs
- :has-path-style has-path-style
- :has-color has-color
- :mtime (float-time mtime)
- :timestamp (float-time))
- ggtags-projects))))))
-
-(defun ggtags-project-expired-p (project)
- (or (< (ggtags-project-timestamp project) 0)
- (> (- (float-time)
- (ggtags-project-timestamp project))
- ggtags-project-duration)))
-
-(defun ggtags-project-update-mtime-maybe (&optional project)
- "Update PROJECT's modtime and if current file is newer.
-Value is new modtime if updated."
- (let ((project (or project (ggtags-find-project))))
- (when (and (ggtags-project-p project)
- (consp (visited-file-modtime))
- (> (float-time (visited-file-modtime))
- (ggtags-project-mtime project)))
- (setf (ggtags-project-dirty-p project) t)
- (setf (ggtags-project-mtime project)
- (float-time (visited-file-modtime))))))
-
-(defun ggtags-project-oversize-p (&optional project)
- (pcase ggtags-oversize-limit
- (`nil nil)
- (`t t)
- (size (let ((project (or project (ggtags-find-project))))
- (and project (> (ggtags-project-tag-size project) size))))))
-
-(defvar-local ggtags-last-default-directory nil)
-(defvar-local ggtags-project-root 'unset
- "Internal variable for project root directory.")
-
-;;;###autoload
-(defun ggtags-find-project ()
- ;; See https://github.com/leoliu/ggtags/issues/42
- ;;
- ;; It is unsafe to cache `ggtags-project-root' in non-file buffers
- ;; whose `default-directory' can often change.
- (unless (equal ggtags-last-default-directory default-directory)
- (kill-local-variable 'ggtags-project-root))
- (let ((project (gethash ggtags-project-root ggtags-projects)))
- (if (ggtags-project-p project)
- (if (ggtags-project-expired-p project)
- (progn
- (remhash ggtags-project-root ggtags-projects)
- (ggtags-find-project))
- project)
- (setq ggtags-last-default-directory default-directory)
- (setq ggtags-project-root
- (or (ignore-errors
- (file-name-as-directory
- (concat (file-remote-p default-directory)
- ;; Resolves symbolic links
- (ggtags-process-string "global" "-pr"))))
- ;; 'global -pr' resolves symlinks before checking the
- ;; GTAGS file which could cause issues such as
- ;; https://github.com/leoliu/ggtags/issues/22, so
- ;; let's help it out.
- (let ((dir (locate-dominating-file
- default-directory
- (lambda (dir) (file-regular-p (expand-file-name "GTAGS" dir))))))
- ;; `file-truename' may strip the trailing '/' on
- ;; remote hosts, see http://debbugs.gnu.org/16851
- (and dir (file-name-as-directory (file-truename dir))))))
- (when ggtags-project-root
- (if (gethash ggtags-project-root ggtags-projects)
- (ggtags-find-project)
- (ggtags-make-project ggtags-project-root))))))
-
-(defun ggtags-current-project-root ()
- (and (ggtags-find-project)
- (ggtags-project-root (ggtags-find-project))))
-
-(defun ggtags-check-project ()
- (or (ggtags-find-project) (error "File GTAGS not found")))
-
-(defun ggtags-ensure-project ()
- (or (ggtags-find-project)
- (progn (call-interactively #'ggtags-create-tags)
- ;; Need checking because `ggtags-create-tags' can create
- ;; tags in any directory.
- (ggtags-check-project))))
-
-(defun ggtags-save-project-settings (&optional noconfirm)
- "Save Gnu Global's specific environment variables."
- (interactive "P")
- (ggtags-check-project)
- (let* ((inhibit-read-only t) ; for `add-dir-local-variable'
- (default-directory (ggtags-current-project-root))
- ;; Not using `ggtags-with-current-project' to preserve
- ;; environment variables that may be present in
- ;; `ggtags-process-environment'.
- (process-environment
- (append ggtags-process-environment
- process-environment
- (and (not (ggtags-project-has-refs (ggtags-find-project)))
- (list "GTAGSLABEL=ctags"))))
- (envlist (delete-dups
- (cl-loop for x in process-environment
- when (string-match
- "^\\(GTAGS[^=\n]*\\|MAKEOBJDIRPREFIX\\)=" x)
- ;; May have duplicates thus `delete-dups'.
- collect (concat (match-string 1 x)
- "="
- (getenv (match-string 1 x))))))
- (help-form (format "y: save\nn: don't save\n=: diff\n?: help\n")))
- (add-dir-local-variable nil 'ggtags-process-environment envlist)
- ;; Remove trailing newlines by `add-dir-local-variable'.
- (let ((delete-trailing-lines t)) (delete-trailing-whitespace))
- (or noconfirm
- (while (pcase (read-char-choice
- (format "Save `%s'? (y/n/=/?) " buffer-file-name)
- '(?y ?n ?= ??))
- (?n (user-error "Aborted"))
- (?y nil)
- (?= (diff-buffer-with-file) 'loop)
- (?? (help-form-show) 'loop))))
- (save-buffer)
- (kill-buffer)))
-
-(defun ggtags-toggle-project-read-only ()
- (interactive)
- (ggtags-check-project)
- (let ((inhibit-read-only t) ; for `add-dir-local-variable'
- (val (not buffer-read-only))
- (default-directory (ggtags-current-project-root)))
- (add-dir-local-variable nil 'buffer-read-only val)
- (save-buffer)
- (kill-buffer)
- (when buffer-file-name
- (read-only-mode (if val +1 -1)))
- (when (called-interactively-p 'interactive)
- (message "Project read-only-mode is %s" (if val "on" "off")))
- val))
-
-(defun ggtags-visit-project-root (&optional project)
- "Visit the root directory of (current) PROJECT in dired.
-When called with a prefix \\[universal-argument], choose from past projects."
- (interactive (list (and current-prefix-arg
- (completing-read "Project: " ggtags-projects))))
- (dired (cl-typecase project
- (string project)
- (ggtags-project (ggtags-project-root project))
- (t (ggtags-ensure-project) (ggtags-current-project-root)))))
-
-(defmacro ggtags-with-current-project (&rest body)
- "Eval BODY in current project's `process-environment'."
- (declare (debug t) (indent 0))
- (let ((gtagsroot (make-symbol "-gtagsroot-"))
- (root (make-symbol "-ggtags-project-root-")))
- `(let* ((,root ggtags-project-root)
- (,gtagsroot (when (ggtags-find-project)
- (ggtags-ensure-localname
- (directory-file-name (ggtags-current-project-root)))))
- (process-environment
- (append (let ((process-environment (copy-sequence process-environment)))
- (and ,gtagsroot (setenv "GTAGSROOT" ,gtagsroot))
- (mapcar #'substitute-env-vars ggtags-process-environment))
- process-environment
- (and ,gtagsroot (list (concat "GTAGSROOT=" ,gtagsroot)))
- (and (ggtags-find-project)
- (not (ggtags-project-has-refs (ggtags-find-project)))
- (list "GTAGSLABEL=ctags")))))
- (unwind-protect (save-current-buffer ,@body)
- (setq ggtags-project-root ,root)))))
-
-(defun ggtags-get-libpath ()
- (let ((path (ggtags-with-current-project (getenv "GTAGSLIBPATH"))))
- (and path (mapcar (apply-partially #'concat (file-remote-p default-directory))
- (split-string path (regexp-quote path-separator) t)))))
-
-(defun ggtags-project-relative-file (file)
- "Get file name relative to current project root."
- (ggtags-check-project)
- (if (file-name-absolute-p file)
- (file-relative-name file (if (string-prefix-p (ggtags-current-project-root)
- file)
- (ggtags-current-project-root)
- (locate-dominating-file file "GTAGS")))
- file))
-
-(defun ggtags-project-file-p (file)
- "Return non-nil if FILE is part of current project."
- (when (ggtags-find-project)
- (with-temp-buffer
- (ggtags-with-current-project
- ;; NOTE: `process-file' requires all files in ARGS be relative
- ;; to `default-directory'; see its doc string for details.
- (let ((default-directory (ggtags-current-project-root)))
- (process-file (ggtags-program-path "global") nil t nil
- "-vP" (concat "^" (ggtags-project-relative-file file) "$"))))
- (goto-char (point-min))
- (not (re-search-forward "^file not found" nil t)))))
-
-(defun ggtags-invalidate-buffer-project-root (root)
- (mapc (lambda (buf)
- (with-current-buffer buf
- (and buffer-file-truename
- (string-prefix-p root buffer-file-truename)
- (kill-local-variable 'ggtags-project-root))))
- (buffer-list)))
-
-(defun ggtags-create-tags (root)
- "Create tag files (e.g. GTAGS) in directory ROOT.
-If file .globalrc or gtags.conf exists in ROOT, it will be used
-as configuration file per `ggtags-use-project-gtagsconf'.
-
-If file gtags.files exists in ROOT, it should be a list of source
-files to index, which can be used to speed gtags up in large
-source trees. See Info node `(global)gtags' for details."
- (interactive "DRoot directory: ")
- (let ((process-environment (copy-sequence process-environment)))
- (when (zerop (length root)) (error "No root directory provided"))
- (setenv "GTAGSROOT" (ggtags-ensure-localname
- (expand-file-name
- (directory-file-name (file-name-as-directory root)))))
- (ggtags-with-current-project
- (let ((conf (and ggtags-use-project-gtagsconf
- (cl-loop for name in '(".globalrc" "gtags.conf")
- for full = (expand-file-name name root)
- thereis (and (file-exists-p full) full)))))
- (unless (or conf (getenv "GTAGSLABEL")
- (not (yes-or-no-p "Use `ctags' backend? ")))
- (setenv "GTAGSLABEL" "ctags"))
- (ggtags-with-temp-message "`gtags' in progress..."
- (let ((default-directory (file-name-as-directory root))
- (args (append (cl-remove-if
- #'null
- (list (and ggtags-use-idutils "--idutils")
- (and ggtags-use-sqlite3
- (ggtags-process-succeed-p "gtags" "--sqlite3" "--help")
- "--sqlite3")
- (and conf "--gtagsconf")
- (and conf (ggtags-ensure-localname conf))))
- ggtags-extra-args)))
- (condition-case err
- (apply #'ggtags-process-string "gtags" args)
- (error (if (and ggtags-use-idutils
- (stringp (cadr err))
- (string-match-p "mkid not found" (cadr err)))
- ;; Retry without mkid
- (apply #'ggtags-process-string
- "gtags" (cl-remove "--idutils" args))
- (signal (car err) (cdr err)))))))))
- (ggtags-invalidate-buffer-project-root (file-truename root))
- (message "GTAGS generated in `%s'" root)
- root))
-
-(defun ggtags-explain-tags ()
- "Explain how each file is indexed in current project."
- (interactive (ignore (ggtags-check-project)
- (or (ggtags-process-succeed-p "gtags" "--explain" "--help")
- (user-error "Global 6.4+ required"))))
- (ggtags-check-project)
- (ggtags-with-current-project
- (let ((default-directory (ggtags-current-project-root)))
- (compilation-start (concat (ggtags-program-path "gtags") " --explain")))))
-
-(defun ggtags-update-tags (&optional force)
- "Update GNU Global tag database.
-Do nothing if GTAGS exceeds the oversize limit unless FORCE.
-
-When called interactively on large (per `ggtags-oversize-limit')
-projects, the update process runs in the background without
-blocking emacs."
- (interactive (progn
- (ggtags-check-project)
- ;; Mark project info expired.
- (setf (ggtags-project-timestamp (ggtags-find-project)) -1)
- (list 'interactive)))
- (cond ((and (eq force 'interactive) (ggtags-project-oversize-p))
- (ggtags-with-current-project
- (with-display-buffer-no-window
- (with-current-buffer (compilation-start "global -u")
- ;; A hack to fool compilation mode to display `global
- ;; -u finished' on finish.
- (setq mode-name "global -u")
- (add-hook 'compilation-finish-functions
- #'ggtags-update-tags-finish nil t)))))
- ((or force (and (ggtags-find-project)
- (not (ggtags-project-oversize-p))
- (ggtags-project-dirty-p (ggtags-find-project))))
- (ggtags-with-current-project
- (ggtags-with-temp-message "`global -u' in progress..."
- (ggtags-process-string "global" "-u")
- (ggtags-update-tags-finish))))))
-
-(defun ggtags-update-tags-finish (&optional buf how)
- (if (and how buf (string-prefix-p "exited abnormally" how))
- (display-buffer buf)
- (setf (ggtags-project-dirty-p (ggtags-find-project)) nil)
- (setf (ggtags-project-mtime (ggtags-find-project)) (float-time))))
-
-(defun ggtags-update-tags-single (file &optional nowait)
- ;; NOTE: NOWAIT is ignored if file is remote file; see
- ;; `tramp-sh-handle-process-file'.
- (cl-check-type file string)
- (let ((nowait (unless (file-remote-p file) nowait)))
- (ggtags-with-current-project
- ;; See comment in `ggtags-project-file-p'.
- (let ((default-directory (ggtags-current-project-root)))
- (process-file (ggtags-program-path "global") nil (and nowait 0) nil
- "--single-update" (ggtags-project-relative-file file))))))
-
-(defun ggtags-delete-tags ()
- "Delete file GTAGS, GRTAGS, GPATH, ID etc. generated by gtags."
- (interactive (ignore (ggtags-check-project)))
- (when (ggtags-current-project-root)
- (let* ((re (concat "\\`" (regexp-opt '("GPATH" "GRTAGS" "GTAGS" "ID")) "\\'"))
- (files (cl-remove-if-not
- (lambda (file)
- ;; Don't trust `directory-files'.
- (let ((case-fold-search nil))
- (string-match-p re (file-name-nondirectory file))))
- (directory-files (ggtags-current-project-root) t re)))
- (buffer "*GTags File List*"))
- (or files (user-error "No tag files found"))
- (with-output-to-temp-buffer buffer
- (princ (mapconcat #'identity files "\n")))
- (let ((win (get-buffer-window buffer)))
- (unwind-protect
- (progn
- (fit-window-to-buffer win)
- (when (yes-or-no-p "Remove GNU Global tag files? ")
- (with-demoted-errors (mapc #'delete-file files))
- (remhash (ggtags-current-project-root) ggtags-projects)
- (and (overlayp ggtags-highlight-tag-overlay)
- (delete-overlay ggtags-highlight-tag-overlay))))
- (when (window-live-p win)
- (quit-window t win)))))))
-
-(defvar-local ggtags-completion-cache nil)
-
-;; See global/libutil/char.c
-;; (defconst ggtags-regexp-metachars "[][$()*+.?\\{}|^]")
-(defvar ggtags-completion-flag "") ;internal use
-
-(defvar ggtags-completion-table
- (completion-table-dynamic
- (lambda (prefix)
- (let ((cache-key (concat prefix "$" ggtags-completion-flag)))
- (unless (equal cache-key (car ggtags-completion-cache))
- (setq ggtags-completion-cache
- (cons cache-key
- (ignore-errors-unless-debug
- ;; May throw global: only name char is allowed
- ;; with -c option.
- (ggtags-with-current-project
- (split-string
- (apply #'ggtags-process-string
- "global"
- (append (and completion-ignore-case '("--ignore-case"))
- ;; Note -c alone returns only definitions
- (list (concat "-c" ggtags-completion-flag) prefix)))
- "\n" t)))))))
- (cdr ggtags-completion-cache))))
-
-(defun ggtags-completion-at-point ()
- "A function for `completion-at-point-functions'."
- (pcase (funcall ggtags-bounds-of-tag-function)
- (`(,beg . ,end)
- (and (< beg end) (list beg end ggtags-completion-table)))))
-
-(defun ggtags-read-tag (&optional type confirm prompt require-match default)
- (ggtags-ensure-project)
- (let ((default (or default (ggtags-tag-at-point)))
- (prompt (or prompt (capitalize (symbol-name (or type 'tag)))))
- (ggtags-completion-flag (pcase type
- (`(or nil definition) "T")
- (`symbol "s")
- (`reference "r")
- (`id "I")
- (`path "P")
- ((pred stringp) type)
- (_ ggtags-completion-flag))))
- (setq ggtags-current-tag-name
- (cond (confirm
- (ggtags-update-tags)
- (let ((completing-read-function
- (or ggtags-completing-read-function
- completing-read-function)))
- (completing-read
- (format (if default "%s (default %s): " "%s: ") prompt default)
- ggtags-completion-table nil require-match nil nil default)))
- (default (substring-no-properties default))
- (t (ggtags-read-tag type t prompt require-match default))))))
-
-(defun ggtags-sort-by-nearness-p ()
- (and ggtags-sort-by-nearness
- (ggtags-process-succeed-p "global" "--nearness=." "--help")))
-
-(defun ggtags-global-build-command (cmd &rest args)
- ;; CMD can be definition, reference, symbol, grep, idutils
- (let ((xs (append (list (shell-quote-argument (ggtags-program-path "global"))
- "-v"
- (format "--result=%s" ggtags-global-output-format)
- (and ggtags-global-ignore-case "--ignore-case")
- (and ggtags-global-use-color
- (ggtags-find-project)
- (ggtags-project-has-color (ggtags-find-project))
- "--color=always")
- (and (ggtags-sort-by-nearness-p) "--nearness=.")
- (and (ggtags-find-project)
- (ggtags-project-has-path-style (ggtags-find-project))
- "--path-style=shorter")
- (and ggtags-global-treat-text "--other")
- (pcase cmd
- ((pred stringp) cmd)
- (`definition nil) ;-d not supported by Global 5.7.1
- (`reference "--reference")
- (`symbol "--symbol")
- (`path "--path")
- (`grep "--grep")
- (`idutils "--idutils")))
- args)))
- (mapconcat #'identity (delq nil xs) " ")))
-
-;; Can be three values: nil, t and a marker; t means start marker has
-;; been saved in the tag ring.
-(defvar ggtags-global-start-marker nil)
-(defvar ggtags-global-start-file nil)
-(defvar ggtags-tag-ring-index nil)
-(defvar ggtags-global-search-history nil)
-
-(defvar ggtags-auto-jump-to-match-target nil)
-
-(defvar-local ggtags-global-exit-info nil) ; (EXIT-STATUS COUNT DB)
-
-(defun ggtags-global-save-start-marker ()
- (when (markerp ggtags-global-start-marker)
- (setq ggtags-tag-ring-index nil)
- (xref-push-marker-stack ggtags-global-start-marker)
- (setq ggtags-global-start-marker t)))
-
-(defun ggtags-global-start (command &optional directory)
- (let* ((default-directory (or directory (ggtags-current-project-root)))
- (split-window-preferred-function ggtags-split-window-function)
- (env ggtags-process-environment))
- (unless (and (markerp ggtags-global-start-marker)
- (marker-position ggtags-global-start-marker))
- (setq ggtags-global-start-marker (point-marker)))
- ;; Record the file name for `ggtags-navigation-start-file'.
- (setq ggtags-global-start-file buffer-file-name)
- (setq ggtags-auto-jump-to-match-target
- (nth 4 (assoc (ggtags-global-search-id command default-directory)
- ggtags-global-search-history)))
- (ggtags-navigation-mode +1)
- (ggtags-update-tags)
- (ggtags-with-current-project
- (with-current-buffer (with-display-buffer-no-window
- (compilation-start command 'ggtags-global-mode))
- (setq-local ggtags-process-environment env)
- (setq ggtags-global-last-buffer (current-buffer))))))
-
-(defun ggtags-find-tag-continue ()
- (interactive)
- (ggtags-ensure-global-buffer
- (ggtags-navigation-mode +1)
- (let ((split-window-preferred-function ggtags-split-window-function))
- (ignore-errors (compilation-next-error 1))
- (compile-goto-error))))
-
-(defun ggtags-find-tag (cmd &rest args)
- (ggtags-check-project)
- (ggtags-global-start (apply #'ggtags-global-build-command cmd args)))
-
-(defun ggtags-include-file ()
- "Calculate the include file based on `ggtags-include-pattern'."
- (pcase ggtags-include-pattern
- (`nil nil)
- ((pred functionp)
- (funcall ggtags-include-pattern))
- (`(,re . ,sub)
- (save-excursion
- (beginning-of-line)
- (and (looking-at re) (match-string sub))))
- (_ (warn "Invalid value for `ggtags-include-pattern': %s"
- ggtags-include-pattern)
- nil)))
-
-;;;###autoload
-(defun ggtags-find-tag-dwim (name &optional what)
- "Find NAME by context.
-If point is at a definition tag, find references, and vice versa.
-If point is at a line that matches `ggtags-include-pattern', find
-the include file instead.
-
-When called interactively with a prefix arg, always find
-definition tags."
- (interactive
- (let ((include (and (not current-prefix-arg) (ggtags-include-file))))
- (ggtags-ensure-project)
- (if include (list include 'include)
- (list (ggtags-read-tag 'definition current-prefix-arg)
- (and current-prefix-arg 'definition)))))
- (ggtags-check-project) ; For `ggtags-current-project-root' below.
- (cond
- ((eq what 'include)
- (ggtags-find-file name))
- ((or (eq what 'definition)
- (not buffer-file-name)
- (not (ggtags-project-has-refs (ggtags-find-project)))
- (not (ggtags-project-file-p buffer-file-name)))
- (ggtags-find-definition name))
- (t (ggtags-find-tag
- (format "--from-here=%d:%s"
- (line-number-at-pos)
- ;; Note `ggtags-find-tag' binds `default-directory' to
- ;; project root.
- (shell-quote-argument
- (ggtags-project-relative-file buffer-file-name)))
- "--" (shell-quote-argument name)))))
-
-(defun ggtags-find-tag-mouse (event)
- (interactive "e")
- (with-selected-window (posn-window (event-start event))
- (save-excursion
- (goto-char (posn-point (event-start event)))
- (call-interactively #'ggtags-find-tag-dwim))))
-
-;; Another option for `M-.'.
-(defun ggtags-find-definition (name)
- (interactive (list (ggtags-read-tag 'definition current-prefix-arg)))
- (ggtags-find-tag 'definition "--" (shell-quote-argument name)))
-
-(defun ggtags-setup-libpath-search (type name)
- (pcase (and ggtags-global-search-libpath-for-reference
- (ggtags-get-libpath))
- ((and libs (guard libs))
- (cl-labels ((cont (buf how)
- (pcase ggtags-global-exit-info
- (`(0 0 ,_)
- (with-temp-buffer
- (setq default-directory
- (file-name-as-directory (pop libs)))
- (and libs (setq ggtags-global-continuation #'cont))
- (if (ggtags-find-project)
- (ggtags-find-tag type (shell-quote-argument name))
- (cont buf how))))
- (_ (ggtags-global-handle-exit buf how)))))
- (setq ggtags-global-continuation #'cont)))))
-
-(defun ggtags-find-reference (name)
- (interactive (list (ggtags-read-tag 'reference current-prefix-arg)))
- (ggtags-setup-libpath-search 'reference name)
- (ggtags-find-tag 'reference "--" (shell-quote-argument name)))
-
-(defun ggtags-find-other-symbol (name)
- "Find tag NAME that is a reference without a definition."
- (interactive (list (ggtags-read-tag 'symbol current-prefix-arg)))
- (ggtags-setup-libpath-search 'symbol name)
- (ggtags-find-tag 'symbol "--" (shell-quote-argument name)))
-
-(defun ggtags-quote-pattern (pattern)
- (prin1-to-string (substring-no-properties pattern)))
-
-(defun ggtags-idutils-query (pattern)
- (interactive (list (ggtags-read-tag 'id t)))
- (ggtags-find-tag 'idutils "--" (ggtags-quote-pattern pattern)))
-
-(defun ggtags-grep (pattern &optional invert-match)
- "Grep for lines matching PATTERN.
-Invert the match when called with a prefix arg \\[universal-argument]."
- (interactive (list (ggtags-read-tag 'definition 'confirm
- (if current-prefix-arg
- "Inverted grep pattern" "Grep pattern"))
- current-prefix-arg))
- (ggtags-find-tag 'grep (and invert-match "--invert-match")
- "--" (ggtags-quote-pattern pattern)))
-
-(defun ggtags-find-file (pattern &optional invert-match)
- (interactive (list (ggtags-read-tag 'path 'confirm (if current-prefix-arg
- "Inverted path pattern"
- "Path pattern")
- nil (thing-at-point 'filename))
- current-prefix-arg))
- (let ((ggtags-global-output-format 'path))
- (ggtags-find-tag 'path (and invert-match "--invert-match")
- "--" (ggtags-quote-pattern pattern))))
-
-;; Note: Coloured output requested in http://goo.gl/Y9IcX and appeared
-;; in global v6.2.12.
-(defun ggtags-find-tag-regexp (regexp directory)
- "List tags matching REGEXP in DIRECTORY (default to project root).
-When called interactively with a prefix, ask for the directory."
- (interactive
- (progn
- (ggtags-check-project)
- (list (ggtags-read-tag "" t "POSIX regexp")
- (if current-prefix-arg
- (read-directory-name "Directory: " nil nil t)
- (ggtags-current-project-root)))))
- (ggtags-check-project)
- (ggtags-global-start
- (ggtags-global-build-command nil nil "-l" "--" (ggtags-quote-pattern regexp))
- (file-name-as-directory directory)))
-
-(defvar ggtags-navigation-mode)
-
-(defun ggtags-foreach-file (fn)
- "Invoke FN with each file found.
-FN is invoked while *ggtags-global* buffer is current."
- (ggtags-ensure-global-buffer
- (save-excursion
- (goto-char (point-min))
- (while (with-demoted-errors "compilation-next-error: %S"
- (compilation-next-error 1 'file)
- t)
- (funcall fn (caar
- (compilation--loc->file-struct
- (compilation--message->loc
- (get-text-property (point) 'compilation-message)))))))))
-
-(defun ggtags-query-replace (from to &optional delimited)
- "Query replace FROM with TO on files in the Global buffer.
-If not in navigation mode, do a grep on FROM first.
-
-Note: the regular expression FROM must be supported by both
-Global and Emacs."
- (interactive
- ;; Note: in 24.4 query-replace-read-args returns a list of 4 elements.
- (let ((args (query-replace-read-args "Query replace (regexp)" t t)))
- (list (nth 0 args) (nth 1 args) (nth 2 args))))
- (unless ggtags-navigation-mode
- (let ((ggtags-auto-jump-to-match nil))
- (ggtags-grep from)))
- (let ((file-form
- '(let ((files))
- (ggtags-ensure-global-buffer
- (ggtags-with-temp-message "Waiting for Grep to finish..."
- (while (get-buffer-process (current-buffer))
- (sit-for 0.2)))
- (ggtags-foreach-file
- (lambda (file) (push (expand-file-name file) files))))
- (ggtags-navigation-mode -1)
- (nreverse files))))
- (tags-query-replace from to delimited file-form)))
-
-(defun ggtags-global-normalise-command (cmd)
- (if (string-match
- (concat (regexp-quote (ggtags-global-build-command nil)) "\\s-*")
- cmd)
- (substring-no-properties cmd (match-end 0))
- cmd))
-
-(defun ggtags-global-search-id (cmd directory)
- (sha1 (concat directory (make-string 1 0)
- (ggtags-global-normalise-command cmd))))
-
-(defun ggtags-global-current-search ()
- ;; CMD DIR ENV LINE TEXT
- (ggtags-ensure-global-buffer
- (list (ggtags-global-normalise-command (car compilation-arguments))
- default-directory
- ggtags-process-environment
- (line-number-at-pos)
- (buffer-substring-no-properties
- (line-beginning-position) (line-end-position)))))
-
-(defun ggtags-global-rerun-search (data)
- (pcase data
- (`(,cmd ,dir ,env ,line ,_text)
- (with-current-buffer (let ((ggtags-auto-jump-to-match nil)
- ;; Switch current project to DIR.
- (default-directory dir)
- (ggtags-project-root dir)
- (ggtags-process-environment env))
- (ggtags-global-start
- (ggtags-global-build-command cmd) dir))
- (add-hook 'compilation-finish-functions
- (lambda (buf _msg)
- (with-current-buffer buf
- (ggtags-forward-to-line line)
- (compile-goto-error)))
- nil t)))))
-
-(defvar-local ggtags-global-search-ewoc nil)
-(defvar ggtags-view-search-history-last nil)
-
-(defvar ggtags-view-search-history-mode-map
- (let ((m (make-sparse-keymap)))
- (define-key m "p" 'ggtags-view-search-history-prev)
- (define-key m "\M-p" 'ggtags-view-search-history-prev)
- (define-key m "n" 'ggtags-view-search-history-next)
- (define-key m "\M-n" 'ggtags-view-search-history-next)
- (define-key m "\C-k" 'ggtags-view-search-history-kill)
- (define-key m [remap yank] (lambda (&optional arg) (interactive "P") (yank arg)))
- (define-key m "\C-c\C-c" 'ggtags-view-search-history-update)
- (define-key m "r" 'ggtags-save-to-register)
- (define-key m "\r" 'ggtags-view-search-history-action)
- (define-key m "q" 'ggtags-kill-window)
- m))
-
-(defun ggtags-view-search-history-remember ()
- (setq ggtags-view-search-history-last
- (pcase (ewoc-locate ggtags-global-search-ewoc)
- (`nil nil)
- (node (ewoc-data node)))))
-
-(defun ggtags-view-search-history-next (&optional arg)
- (interactive "p")
- (let ((arg (or arg 1)))
- (prog1 (funcall (if (cl-minusp arg) #'ewoc-goto-prev #'ewoc-goto-next)
- ggtags-global-search-ewoc (abs arg))
- (ggtags-view-search-history-remember))))
-
-(defun ggtags-view-search-history-prev (&optional arg)
- (interactive "p")
- (ggtags-view-search-history-next (- (or arg 1))))
-
-(defun ggtags-view-search-history-kill (&optional append)
- (interactive "P")
- (let* ((node (or (ewoc-locate ggtags-global-search-ewoc)
- (user-error "No node at point")))
- (next (ewoc-next ggtags-global-search-ewoc node))
- (text (filter-buffer-substring (ewoc-location node)
- (if next (ewoc-location next)
- (point-max)))))
- (put-text-property
- 0 (length text) 'yank-handler
- (list (lambda (arg)
- (if (not ggtags-global-search-ewoc)
- (insert (car arg))
- (let* ((inhibit-read-only t)
- (node (unless (looking-at-p "[ \t\n]*\\'")
- (ewoc-locate ggtags-global-search-ewoc))))
- (if node
- (ewoc-enter-before ggtags-global-search-ewoc
- node (cadr arg))
- (ewoc-enter-last ggtags-global-search-ewoc (cadr arg)))
- (setq ggtags-view-search-history-last (cadr arg)))))
- (list text (ewoc-data node)))
- text)
- (if append (kill-append text nil)
- (kill-new text))
- (let ((inhibit-read-only t))
- (ewoc-delete ggtags-global-search-ewoc node))))
-
-(defun ggtags-view-search-history-update (&optional noconfirm)
- "Update `ggtags-global-search-history' to current buffer."
- (interactive "P")
- (when (and (buffer-modified-p)
- (or noconfirm
- (yes-or-no-p "Modify `ggtags-global-search-history'?")))
- (setq ggtags-global-search-history
- (ewoc-collect ggtags-global-search-ewoc #'identity))
- (set-buffer-modified-p nil)))
-
-(defun ggtags-view-search-history-action ()
- (interactive)
- (let ((data (ewoc-data (or (ewoc-locate ggtags-global-search-ewoc)
- (user-error "No search at point")))))
- (ggtags-view-search-history-remember)
- (quit-window t)
- (ggtags-global-rerun-search (cdr data))))
-
-(defvar bookmark-make-record-function)
-
-(define-derived-mode ggtags-view-search-history-mode special-mode "SearchHist"
- "Major mode for viewing search history."
- :group 'ggtags
- (setq-local ggtags-enable-navigation-keys nil)
- (setq-local bookmark-make-record-function #'ggtags-make-bookmark-record)
- (setq truncate-lines t)
- (add-hook 'kill-buffer-hook #'ggtags-view-search-history-update nil t))
-
-(defun ggtags-view-search-history-restore-last ()
- (when ggtags-view-search-history-last
- (cl-loop for n = (ewoc-nth ggtags-global-search-ewoc 0)
- then (ewoc-next ggtags-global-search-ewoc n)
- while n when (eq (ewoc-data n)
- ggtags-view-search-history-last)
- do (progn (goto-char (ewoc-location n)) (cl-return t)))))
-
-(defun ggtags-view-search-history ()
- "Pop to a buffer to view or re-run past searches.
-
-\\{ggtags-view-search-history-mode-map}"
- (interactive)
- (or ggtags-global-search-history (user-error "No search history"))
- (let ((split-window-preferred-function ggtags-split-window-function)
- (inhibit-read-only t))
- (pop-to-buffer "*Ggtags Search History*")
- (erase-buffer)
- (ggtags-view-search-history-mode)
- (cl-labels ((prop (s)
- (propertize s 'face 'minibuffer-prompt))
- (prop-tag (cmd)
- (with-temp-buffer
- (insert cmd)
- (forward-sexp -1)
- (if (eobp)
- cmd
- (put-text-property (point) (point-max)
- 'face font-lock-constant-face)
- (buffer-string))))
- (pp (data)
- (pcase data
- (`(,_id ,cmd ,dir ,_env ,line ,text)
- (insert (prop " cmd: ") (prop-tag cmd) "\n"
- (prop " dir: ") dir "\n"
- (prop "line: ") (number-to-string line) "\n"
- (prop "text: ") text "\n"
- (propertize (make-string 32 ?-) 'face 'shadow))))))
- (setq ggtags-global-search-ewoc
- (ewoc-create #'pp "Global search history keys: n:next p:prev r:register RET:choose\n")))
- (dolist (data ggtags-global-search-history)
- (ewoc-enter-last ggtags-global-search-ewoc data))
- (ggtags-view-search-history-restore-last)
- (set-buffer-modified-p nil)
- (fit-window-to-buffer nil (floor (frame-height) 2))))
-
-(defun ggtags-save-to-register (r)
- "Save current search session to register R.
-Use \\[jump-to-register] to restore the search session."
- (interactive (list (register-read-with-preview "Save search to register: ")))
- (cl-labels ((prn (data)
- (pcase data
- (`(,command ,root ,_env ,line ,_)
- (princ (format "a ggtags search session `%s' in directory `%s' at line %d."
- command root line))))))
- (set-register r (registerv-make
- (if ggtags-global-search-ewoc
- (cdr (ewoc-data (ewoc-locate ggtags-global-search-ewoc)))
- (ggtags-global-current-search))
- :jump-func #'ggtags-global-rerun-search
- :print-func #'prn))))
-
-(defun ggtags-make-bookmark-record ()
- `(,(and ggtags-current-tag-name (format "*ggtags %s*" ggtags-current-tag-name))
- (ggtags-search . ,(if ggtags-global-search-ewoc
- (cdr (ewoc-data (ewoc-locate ggtags-global-search-ewoc)))
- (ggtags-global-current-search)))
- (handler . ggtags-bookmark-jump)))
-
-(declare-function bookmark-prop-get "bookmark")
-
-(defun ggtags-bookmark-jump (bmk)
- (ggtags-global-rerun-search (bookmark-prop-get bmk 'ggtags-search)))
-
-(defun ggtags-browse-file-as-hypertext (file line)
- "Browse FILE in hypertext (HTML) form."
- (interactive (if (or current-prefix-arg (not buffer-file-name))
- (list (read-file-name "Browse file: " nil nil t)
- (read-number "Line: " 1))
- (list buffer-file-name (line-number-at-pos))))
- (cl-check-type line (integer 1))
- (or (and file (file-exists-p file)) (error "File `%s' doesn't exist" file))
- (ggtags-check-project)
- (or (file-exists-p (expand-file-name "HTML" (ggtags-current-project-root)))
- (if (yes-or-no-p "No hypertext form exists; run htags? ")
- (let ((default-directory (ggtags-current-project-root)))
- (ggtags-with-current-project (ggtags-process-string "htags")))
- (user-error "Aborted")))
- (let ((url (ggtags-process-string "gozilla" "-p" (format "+%d" line)
- (file-relative-name file))))
- (or (equal (file-name-extension
- (url-filename (url-generic-parse-url url))) "html")
- (user-error "No hypertext form for `%s'" file))
- (when (called-interactively-p 'interactive)
- (message "Browsing %s" url))
- (browse-url url)))
-
-(defun ggtags-next-mark (&optional arg)
- "Move to the next (newer) mark in the tag marker ring."
- (interactive)
- (and (ring-empty-p xref--marker-ring) (user-error "Tag ring empty"))
- (setq ggtags-tag-ring-index
- ;; Note `ring-minus1' gets newer item.
- (funcall (if arg #'ring-plus1 #'ring-minus1)
- (or ggtags-tag-ring-index
- (progn (xref-push-marker-stack)
- 0))
- (ring-length xref--marker-ring)))
- (let ((m (ring-ref xref--marker-ring ggtags-tag-ring-index))
- (i (- (ring-length xref--marker-ring) ggtags-tag-ring-index)))
- (ggtags-echo "%d%s marker%s" i (pcase (mod i 10)
- (1 "st")
- (2 "nd")
- (3 "rd")
- (_ "th"))
- (if (marker-buffer m) "" " (dead)"))
- (if (not (marker-buffer m))
- (ding)
- (switch-to-buffer (marker-buffer m))
- (goto-char m))))
-
-(defun ggtags-prev-mark ()
- "Move to the previous (older) mark in the tag marker ring."
- (interactive)
- (ggtags-next-mark 'previous))
-
-(defvar ggtags-view-tag-history-mode-map
- (let ((m (make-sparse-keymap)))
- (define-key m "\M-n" 'next-error-no-select)
- (define-key m "\M-p" 'previous-error-no-select)
- (define-key m "q" 'ggtags-kill-window)
- m))
-
-(define-derived-mode ggtags-view-tag-history-mode tabulated-list-mode "TagHist"
- :abbrev-table nil :group 'ggtags)
-
-(defun ggtags-view-tag-history ()
- "Pop to a buffer listing visited locations from newest to oldest.
-The buffer is a next error buffer and works with standard
-commands `next-error' and `previous-error'.
-
-\\{ggtags-view-tag-history-mode-map}"
- (interactive)
- (and (ring-empty-p xref--marker-ring)
- (user-error "Tag ring empty"))
- (let ((split-window-preferred-function ggtags-split-window-function)
- (inhibit-read-only t))
- (pop-to-buffer "*Tag Ring*")
- (erase-buffer)
- (ggtags-view-tag-history-mode)
- (setq next-error-function #'ggtags-view-tag-history-next-error
- next-error-last-buffer (current-buffer))
- (setq tabulated-list-entries
- ;; Use a function so that revert can work properly.
- (lambda ()
- (let ((counter (ring-length xref--marker-ring))
- (elements (or (ring-elements xref--marker-ring)
- (user-error "Tag ring empty")))
- (action (lambda (_button) (next-error 0)))
- (get-line (lambda (m)
- (with-current-buffer (marker-buffer m)
- (save-excursion
- (goto-char m)
- (buffer-substring (line-beginning-position)
- (line-end-position)))))))
- (setq tabulated-list-format
- `[("ID" ,(max (1+ (floor (log counter 10))) 2)
- car-less-than-car)
- ("Buffer" ,(max (cl-loop for m in elements
- for b = (marker-buffer m)
- maximize
- (length (and b (buffer-name b))))
- 6)
- t :right-align t)
- ("Position" ,(max (cl-loop for m in elements
- for p = (or (marker-position m) 1)
- maximize (1+ (floor (log p 10))))
- 8)
- (lambda (x y)
- (< (string-to-number (aref (cadr x) 2))
- (string-to-number (aref (cadr y) 2))))
- :right-align t)
- ("Contents" 100 t)])
- (tabulated-list-init-header)
- (mapcar (lambda (x)
- (prog1
- (list counter
- (if (marker-buffer x)
- (vector (number-to-string counter)
- `(,(buffer-name (marker-buffer x))
- face link
- follow-link t
- marker ,x
- action ,action)
- (number-to-string (marker-position x))
- (funcall get-line x))
- (vector (number-to-string counter)
- "(dead)" "?" "?")))
- (cl-decf counter)))
- elements))))
- (setq tabulated-list-sort-key '("ID" . t))
- (tabulated-list-print)
- (fit-window-to-buffer nil (floor (frame-height) 2))))
-
-(defun ggtags-view-tag-history-next-error (&optional arg reset)
- (if (not reset)
- (forward-button arg)
- (goto-char (point-min))
- (forward-button (if (button-at (point)) 0 1)))
- (when (get-buffer-window)
- (set-window-point (get-buffer-window) (point)))
- (pcase (button-get (button-at (point)) 'marker)
- ((and (pred markerp) m)
- (if (eq (get-buffer-window) (selected-window))
- (pop-to-buffer (marker-buffer m))
- (switch-to-buffer (marker-buffer m)))
- (goto-char (marker-position m)))
- (_ (error "Dead marker"))))
-
-(defun ggtags-global-exit-message-1 ()
- "Get the total of matches and db file used."
- (save-excursion
- (goto-char (point-max))
- (if (re-search-backward
- "^\\w+ \\(not found\\)\\|^\\([0-9]+\\) \\w+ located" nil t)
- (cons (or (and (match-string 1) 0)
- (string-to-number (match-string 2)))
- (when (re-search-forward
- "using \\(?:\\(idutils\\)\\|'[^']*/\\(\\w+\\)'\\)"
- (line-end-position)
- t)
- (or (and (match-string 1) "ID")
- (match-string 2))))
- (cons 0 nil))))
-
-(defun ggtags-global-exit-message-function (_process-status exit-status msg)
- "A function for `compilation-exit-message-function'."
- (pcase (ggtags-global-exit-message-1)
- (`(,count . ,db)
- (setq ggtags-global-exit-info (list exit-status count db))
- ;; Clear the start marker in case of zero matches.
- (and (zerop count)
- (markerp ggtags-global-start-marker)
- (not ggtags-global-continuation)
- (setq ggtags-global-start-marker nil))
- (cons (if (> exit-status 0)
- msg
- (format "found %d %s" count
- (funcall (if (= count 1) #'car #'cadr)
- (pcase db
- ("GTAGS" '("definition" "definitions"))
- ("GSYMS" '("symbol" "symbols"))
- ("GRTAGS" '("reference" "references"))
- ("GPATH" '("file" "files"))
- ("ID" '("identifier" "identifiers"))
- (_ '("match" "matches"))))))
- exit-status))))
-
-(defun ggtags-global-column (start)
- ;; START is the beginning position of source text.
- (let ((mbeg (text-property-any start (line-end-position) 'global-color t)))
- (and mbeg (- mbeg start))))
-
-;;; NOTE: Must not match the 'Global started at Mon Jun 3 10:24:13'
-;;; line or `compilation-auto-jump' will jump there and fail. See
-;;; comments before the 'gnu' entry in
-;;; `compilation-error-regexp-alist-alist'.
-(defvar ggtags-global-error-regexp-alist-alist
- (append
- `((path "^\\(?:[^\"'\n]*/\\)?[^ )\t\n]+$" 0)
- ;; ACTIVE_ESCAPE src/dialog.cc 172
- (ctags "^\\([^ \t\n]+\\)[ \t]+\\(.*?\\)[ \t]+\\([0-9]+\\)$"
- 2 3 nil nil 2 (1 font-lock-function-name-face))
- ;; ACTIVE_ESCAPE 172 src/dialog.cc #undef ACTIVE_ESCAPE
- (ctags-x "^\\([^ \t\n]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\(\\(?:[^/\n]*/\\)?[^ \t\n]+\\)"
- 3 2 (,(lambda () (ggtags-global-column (1+ (match-end 0)))))
- nil 3 (1 font-lock-function-name-face))
- ;; src/dialog.cc:172:#undef ACTIVE_ESCAPE
- (grep "^\\(.+?\\):\\([0-9]+\\):\\(?:$\\|[^0-9\n]\\|[0-9][^0-9\n]\\|[0-9][0-9].\\)"
- 1 2 (,(lambda () (ggtags-global-column (1+ (match-end 2))))) nil 1)
- ;; src/dialog.cc ACTIVE_ESCAPE 172 #undef ACTIVE_ESCAPE
- (cscope "^\\(.+?\\)[ \t]+\\([^ \t\n]+\\)[ \t]+\\([0-9]+\\).*\\(?:[^0-9\n]\\|[^0-9\n][0-9]\\|[^:\n][0-9][0-9]\\)$"
- 1 3 nil nil 1 (2 font-lock-function-name-face)))
- compilation-error-regexp-alist-alist))
-
-(defun ggtags-abbreviate-file (start end)
- (let ((inhibit-read-only t)
- (amount (if (numberp ggtags-global-abbreviate-filename)
- (- (- end start) ggtags-global-abbreviate-filename)
- 999))
- (advance-word (lambda ()
- "Return the length of the text made invisible."
- (let ((wend (min end (progn (forward-word 1) (point))))
- (wbeg (max start (progn (backward-word 1) (point)))))
- (goto-char wend)
- (if (<= (- wend wbeg) 1)
- 0
- (put-text-property (1+ wbeg) wend 'invisible t)
- (1- (- wend wbeg)))))))
- (goto-char start)
- (while (and (> amount 0) (> end (point)))
- (cl-decf amount (funcall advance-word)))))
-
-(defun ggtags-abbreviate-files (start end)
- (goto-char start)
- (let* ((error-re (cdr (assq (car compilation-error-regexp-alist)
- ggtags-global-error-regexp-alist-alist)))
- (sub (cadr error-re)))
- (when (and ggtags-global-abbreviate-filename error-re)
- (while (re-search-forward (car error-re) end t)
- (when (and (or (not (numberp ggtags-global-abbreviate-filename))
- (> (length (match-string sub))
- ggtags-global-abbreviate-filename))
- ;; Ignore bogus file lines such as:
- ;; Global found 2 matches at Thu Jan 31 13:45:19
- (get-text-property (match-beginning sub) 'compilation-message))
- (ggtags-abbreviate-file (match-beginning sub) (match-end sub)))))))
-
-(defvar-local ggtags-global-output-lines 0)
-
-(defun ggtags-global--display-buffer (&optional buffer desired-point)
- (pcase (let ((buffer (or buffer (current-buffer)))
- (split-window-preferred-function ggtags-split-window-function))
- (and (not (get-buffer-window buffer))
- (display-buffer buffer '(nil (allow-no-window . t)))))
- ((and (pred windowp) w)
- (with-selected-window w
- (compilation-set-window-height w)
- (and desired-point (goto-char desired-point))))))
-
-(defun ggtags-global-filter ()
- "Called from `compilation-filter-hook' (which see)."
- (let ((ansi-color-apply-face-function
- (lambda (beg end face)
- (when face
- (ansi-color-apply-overlay-face beg end face)
- (put-text-property beg end 'global-color t)))))
- (ansi-color-apply-on-region compilation-filter-start (point)))
- ;; Get rid of line "Using config file '/PATH/TO/.globalrc'." or
- ;; "Using default configuration."
- (when (re-search-backward
- "^ *Using \\(?:config file '.*\\|default configuration.\\)\n"
- compilation-filter-start t)
- (replace-match ""))
- (cl-incf ggtags-global-output-lines
- (count-lines compilation-filter-start (point)))
- ;; If the number of output lines is small
- ;; `ggtags-global-handle-exit' takes care of displaying the buffer.
- (when (and (> ggtags-global-output-lines 30) ggtags-navigation-mode)
- (ggtags-global--display-buffer nil (or compilation-current-error (point-min))))
- (when (and (eq ggtags-auto-jump-to-match 'history)
- (numberp ggtags-auto-jump-to-match-target)
- (not compilation-current-error)
- ;; `ggtags-global-output-lines' is imprecise but use it
- ;; as first approximation.
- (> (+ 10 ggtags-global-output-lines) ggtags-auto-jump-to-match-target)
- (> (line-number-at-pos (point-max))
- ggtags-auto-jump-to-match-target))
- (ggtags-forward-to-line ggtags-auto-jump-to-match-target)
- (setq-local ggtags-auto-jump-to-match-target nil)
- (ggtags-delay-finish-functions
- (with-display-buffer-no-window
- (condition-case nil
- (let ((compilation-auto-jump-to-first-error t))
- (compilation-auto-jump (current-buffer) (point)))
- (error (message "\
-ggtags: history match invalid, jump to first match instead")
- (first-error)))))
- ;; `compilation-filter' restores point and as a result commands
- ;; dependent on point such as `ggtags-navigation-next-file' and
- ;; `ggtags-navigation-previous-file' fail to work.
- (run-with-idle-timer
- 0 nil
- (lambda (buf pt)
- (and (buffer-live-p buf)
- (with-current-buffer buf (goto-char pt))))
- (current-buffer) (point)))
- (make-local-variable 'ggtags-global-large-output)
- (when (> ggtags-global-output-lines ggtags-global-large-output)
- (cl-incf ggtags-global-large-output 500)
- (ggtags-echo "Output %d lines (Type `C-c C-k' to cancel)"
- ggtags-global-output-lines)))
-
-(defun ggtags-global-handle-exit (buf how)
- "A function for `compilation-finish-functions' (which see)."
- (cond
- (ggtags-global-continuation
- (let ((cont (prog1 ggtags-global-continuation
- (setq ggtags-global-continuation nil))))
- (funcall cont buf how)))
- ((string-prefix-p "exited abnormally" how)
- ;; If exit abnormally display the buffer for inspection.
- (ggtags-global--display-buffer)
- (when (save-excursion
- (goto-char (point-max))
- (re-search-backward
- (eval-when-compile
- (format "^global: %s not found.$"
- (regexp-opt '("GTAGS" "GRTAGS" "GSYMS" "GPATH"))))
- nil t))
- (ggtags-echo "WARNING: Global tag files missing in `%s'"
- ggtags-project-root)
- (remhash ggtags-project-root ggtags-projects)))
- (ggtags-auto-jump-to-match
- (if (pcase (compilation-next-single-property-change
- (point-min) 'compilation-message)
- ((and pt (guard pt))
- (compilation-next-single-property-change
- (save-excursion (goto-char pt) (end-of-line) (point))
- 'compilation-message)))
- ;; There are multiple matches so pop up the buffer.
- (and ggtags-navigation-mode (ggtags-global--display-buffer))
- ;; Manually run the `compilation-auto-jump' timer. Hackish but
- ;; everything else seems unreliable. See:
- ;;
- ;; - http://debbugs.gnu.org/13829
- ;; - http://debbugs.gnu.org/23987
- ;; - https://github.com/leoliu/ggtags/issues/89
- ;;
- (pcase (cl-find 'compilation-auto-jump timer-list :key #'timer--function)
- (`nil )
- (timer (timer-event-handler timer)))
- (ggtags-navigation-mode -1)
- (ggtags-navigation-mode-cleanup buf t)))))
-
-(defvar ggtags-global-mode-font-lock-keywords
- '(("^Global \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?.*"
- (1 'compilation-error)
- (2 'compilation-error nil t))
- ("^Global found \\([0-9]+\\)" (1 compilation-info-face))))
-
-(define-compilation-mode ggtags-global-mode "Global"
- "A mode for showing outputs from gnu global."
- ;; Note: Place `ggtags-global-output-format' as first element for
- ;; `ggtags-abbreviate-files'.
- (setq-local compilation-error-regexp-alist (list ggtags-global-output-format))
- (when (markerp ggtags-global-start-marker)
- (setq ggtags-project-root
- (buffer-local-value 'ggtags-project-root
- (marker-buffer ggtags-global-start-marker))))
- (pcase ggtags-auto-jump-to-match
- (`history (make-local-variable 'ggtags-auto-jump-to-match-target)
- (setq-local compilation-auto-jump-to-first-error
- (not ggtags-auto-jump-to-match-target)))
- (`nil (setq-local compilation-auto-jump-to-first-error nil))
- (_ (setq-local compilation-auto-jump-to-first-error t)))
- (setq-local compilation-scroll-output nil)
- ;; See `compilation-move-to-column' for details.
- (setq-local compilation-first-column 0)
- (setq-local compilation-error-screen-columns nil)
- (setq-local compilation-disable-input t)
- (setq-local compilation-always-kill t)
- (setq-local compilation-error-face 'compilation-info)
- (setq-local compilation-exit-message-function
- 'ggtags-global-exit-message-function)
- ;; See: https://github.com/leoliu/ggtags/issues/26
- (setq-local find-file-suppress-same-file-warnings t)
- (setq-local truncate-lines t)
- (jit-lock-register #'ggtags-abbreviate-files)
- (add-hook 'compilation-filter-hook 'ggtags-global-filter nil 'local)
- (add-hook 'compilation-finish-functions 'ggtags-global-handle-exit nil t)
- (setq-local bookmark-make-record-function #'ggtags-make-bookmark-record)
- (setq-local ggtags-enable-navigation-keys nil)
- (add-hook 'kill-buffer-hook (lambda () (ggtags-navigation-mode -1)) nil t))
-
-;; NOTE: Need this to avoid putting menu items in
-;; `emulation-mode-map-alists', which creates double entries. See
-;; http://i.imgur.com/VJJTzVc.png
-(defvar ggtags-navigation-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\M-n" 'next-error)
- (define-key map "\M-p" 'previous-error)
- (define-key map "\M-}" 'ggtags-navigation-next-file)
- (define-key map "\M-{" 'ggtags-navigation-previous-file)
- (define-key map "\M-=" 'ggtags-navigation-start-file)
- (define-key map "\M->" 'ggtags-navigation-last-error)
- (define-key map "\M-<" 'first-error)
- ;; Note: shadows `isearch-forward-regexp' but it can still be
- ;; invoked with `C-u C-s'.
- (define-key map "\C-\M-s" 'ggtags-navigation-isearch-forward)
- ;; Add an alternative binding because C-M-s is reported not
- ;; working on some systems.
- (define-key map "\M-ss" 'ggtags-navigation-isearch-forward)
- (define-key map "\C-c\C-k"
- (lambda () (interactive)
- (ggtags-ensure-global-buffer (kill-compilation))))
- (define-key map "\M-o" 'ggtags-navigation-visible-mode)
- (define-key map [return] 'ggtags-navigation-mode-done)
- (define-key map "\r" 'ggtags-navigation-mode-done)
- (define-key map [remap xref-pop-marker-stack] 'ggtags-navigation-mode-abort)
- map))
-
-(defvar ggtags-mode-map-alist
- `((ggtags-enable-navigation-keys . ,ggtags-navigation-map)))
-
-(defvar ggtags-navigation-mode-map
- (let ((map (make-sparse-keymap))
- (menu (make-sparse-keymap "GG-Navigation")))
- ;; Menu items: (info "(elisp)Extended Menu Items")
- (define-key map [menu-bar ggtags-navigation] (cons "GG-Navigation" menu))
- ;; Ordered backwards
- (define-key menu [visible-mode]
- '(menu-item "Visible mode" ggtags-navigation-visible-mode
- :button (:toggle . (ignore-errors
- (ggtags-ensure-global-buffer
- visible-mode)))))
- (define-key menu [done]
- '(menu-item "Finish navigation" ggtags-navigation-mode-done))
- (define-key menu [abort]
- '(menu-item "Abort" ggtags-navigation-mode-abort))
- (define-key menu [last-match]
- '(menu-item "Last match" ggtags-navigation-last-error))
- (define-key menu [first-match] '(menu-item "First match" first-error))
- (define-key menu [previous-file]
- '(menu-item "Previous file" ggtags-navigation-previous-file))
- (define-key menu [next-file]
- '(menu-item "Next file" ggtags-navigation-next-file))
- (define-key menu [isearch-forward]
- '(menu-item "Find match with isearch" ggtags-navigation-isearch-forward))
- (define-key menu [previous]
- '(menu-item "Previous match" previous-error))
- (define-key menu [next]
- '(menu-item "Next match" next-error))
- map))
-
-(defun ggtags-move-to-tag (&optional name)
- "Move to NAME tag in current line."
- (let ((tag (or name ggtags-current-tag-name)))
- ;; Do nothing if on the tag already i.e. by `ggtags-global-column'.
- (unless (or (not tag) (looking-at (concat (regexp-quote tag) "\\_>")))
- (let ((orig (point))
- (regexps (mapcar (lambda (fmtstr)
- (format fmtstr (regexp-quote tag)))
- '("\\_<%s\\_>" "%s\\_>" "%s"))))
- (beginning-of-line)
- (if (cl-loop for re in regexps
- ;; Note: tag might not agree with current
- ;; major-mode's symbol, so try harder. For
- ;; example, in `php-mode' $cacheBackend is a
- ;; symbol, but cacheBackend is a tag.
- thereis (re-search-forward re (line-end-position) t))
- (goto-char (match-beginning 0))
- (goto-char orig))))))
-
-(defun ggtags-navigation-mode-cleanup (&optional buf kill)
- (let ((buf (or buf ggtags-global-last-buffer)))
- (and (buffer-live-p buf)
- (with-current-buffer buf
- (when (get-buffer-process (current-buffer))
- (kill-compilation))
- (when (and (derived-mode-p 'ggtags-global-mode)
- (get-buffer-window))
- (quit-windows-on (current-buffer)))
- (and kill (kill-buffer buf))))))
-
-(defun ggtags-navigation-mode-done ()
- (interactive)
- (ggtags-navigation-mode -1)
- (setq tags-loop-scan t
- tags-loop-operate '(ggtags-find-tag-continue))
- (ggtags-navigation-mode-cleanup))
-
-(defun ggtags-navigation-mode-abort ()
- "Abort navigation and return to where the search was started."
- (interactive)
- (ggtags-navigation-mode -1)
- (ggtags-navigation-mode-cleanup nil t)
- ;; Run after (ggtags-navigation-mode -1) or
- ;; ggtags-global-start-marker might not have been saved.
- (when (and ggtags-global-start-marker
- (not (markerp ggtags-global-start-marker)))
- (setq ggtags-global-start-marker nil)
- (xref-pop-marker-stack)))
-
-(defun ggtags-navigation-next-file (n)
- (interactive "p")
- (ggtags-ensure-global-buffer
- (compilation-next-file n)
- (compile-goto-error)))
-
-(defun ggtags-navigation-previous-file (n)
- (interactive "p")
- (ggtags-navigation-next-file (- n)))
-
-(defun ggtags-navigation-start-file ()
- "Move to the file where navigation session starts."
- (interactive)
- (let ((start-file (or ggtags-global-start-file
- (user-error "Cannot decide start file"))))
- (ggtags-ensure-global-buffer
- (pcase (cl-block nil
- (ggtags-foreach-file
- (lambda (file)
- (when (file-equal-p file start-file)
- (cl-return (point))))))
- (`nil (user-error "No matches for `%s'" start-file))
- (n (goto-char n) (compile-goto-error))))))
-
-(defun ggtags-navigation-last-error ()
- (interactive)
- (ggtags-ensure-global-buffer
- (goto-char (point-max))
- (compilation-previous-error 1)
- (compile-goto-error)))
-
-(defun ggtags-navigation-isearch-forward (&optional regexp-p)
- (interactive "P")
- (ggtags-ensure-global-buffer
- (let ((saved (if visible-mode 1 -1)))
- (visible-mode 1)
- (with-selected-window (get-buffer-window (current-buffer))
- (isearch-forward regexp-p)
- (beginning-of-line)
- (visible-mode saved)
- (compile-goto-error)))))
-
-(defun ggtags-navigation-visible-mode (&optional arg)
- (interactive (list (or current-prefix-arg 'toggle)))
- (ggtags-ensure-global-buffer
- (visible-mode arg)))
-
-(defvar ggtags-global-line-overlay nil)
-
-(defun ggtags-global-next-error-function ()
- (when (eq next-error-last-buffer ggtags-global-last-buffer)
- (ggtags-move-to-tag)
- (ggtags-global-save-start-marker)
- (and (ggtags-project-update-mtime-maybe)
- (message "File `%s' is newer than GTAGS"
- (file-name-nondirectory buffer-file-name)))
- (and ggtags-mode-sticky (ggtags-mode 1))
- (ignore-errors
- (ggtags-ensure-global-buffer
- (unless (overlayp ggtags-global-line-overlay)
- (setq ggtags-global-line-overlay (make-overlay (point) (point)))
- (overlay-put ggtags-global-line-overlay 'face 'ggtags-global-line))
- (move-overlay ggtags-global-line-overlay
- (line-beginning-position) (line-end-position)
- (current-buffer))
- ;; Update search history
- (let ((id (ggtags-global-search-id (car compilation-arguments)
- default-directory)))
- (setq ggtags-global-search-history
- (cl-remove id ggtags-global-search-history :test #'equal :key #'car))
- (add-to-history 'ggtags-global-search-history
- (cons id (ggtags-global-current-search))
- ggtags-global-history-length))))
- (run-hooks 'ggtags-find-tag-hook)))
-
-(put 'ggtags-navigation-mode-lighter 'risky-local-variable t)
-
-(defvar ggtags-navigation-mode-lighter
- '(" GG["
- (:eval
- (if (not (buffer-live-p ggtags-global-last-buffer))
- '(:propertize "??" face error help-echo "No Global buffer")
- (with-current-buffer ggtags-global-last-buffer
- (pcase (or ggtags-global-exit-info '(0 0 ""))
- (`(,exit ,count ,db)
- `((:propertize ,(pcase db
- (`"GTAGS" "D")
- (`"GRTAGS" "R")
- (`"GSYMS" "S")
- (`"GPATH" "F")
- (`"ID" "I"))
- face success)
- (:propertize
- ,(pcase (get-text-property (line-beginning-position)
- 'compilation-message)
- (`nil "?")
- ;; Assume the first match appears at line 5
- (_ (number-to-string (- (line-number-at-pos) 4))))
- face success)
- "/"
- (:propertize ,(number-to-string count) face success)
- ,(unless (zerop exit)
- `(":" (:propertize ,(number-to-string exit) face error)))))))))
- "]")
- "Ligher for `ggtags-navigation-mode'; set to nil to disable it.")
-
-(define-minor-mode ggtags-navigation-mode nil
- ;; If `ggtags-enable-navigation-keys' is set to nil only display the
- ;; lighter in `ggtags-mode' buffers.
- ;; See https://github.com/leoliu/ggtags/issues/124
- :lighter (:eval (and (or ggtags-enable-navigation-keys
- ggtags-mode)
- ggtags-navigation-mode-lighter))
- :global t
- (if ggtags-navigation-mode
- (progn
- ;; Higher priority for `ggtags-navigation-mode' to avoid being
- ;; hijacked by modes such as `view-mode'.
- (add-to-list 'emulation-mode-map-alists 'ggtags-mode-map-alist)
- (add-hook 'next-error-hook 'ggtags-global-next-error-function)
- (add-hook 'minibuffer-setup-hook 'ggtags-minibuffer-setup-function))
- (setq emulation-mode-map-alists
- (delq 'ggtags-mode-map-alist emulation-mode-map-alists))
- (remove-hook 'next-error-hook 'ggtags-global-next-error-function)
- (remove-hook 'minibuffer-setup-hook 'ggtags-minibuffer-setup-function)))
-
-(defun ggtags-minibuffer-setup-function ()
- ;; Disable ggtags-navigation-mode in minibuffer.
- (setq-local ggtags-enable-navigation-keys nil))
-
-(defun ggtags-kill-file-buffers (&optional interactive)
- "Kill all buffers visiting files in current project."
- (interactive "p")
- (ggtags-check-project)
- (let ((directories (cons (ggtags-current-project-root) (ggtags-get-libpath)))
- (count 0))
- (dolist (buf (buffer-list))
- (let ((file (and (buffer-live-p buf)
- (not (eq buf (current-buffer)))
- (buffer-file-name buf))))
- (when (and file (cl-some (lambda (dir)
- ;; Don't use `file-in-directory-p'
- ;; to allow symbolic links.
- (string-prefix-p dir file))
- directories))
- (and (kill-buffer buf) (cl-incf count)))))
- (and interactive
- (message "%d %s killed" count (if (= count 1) "buffer" "buffers")))))
-
-(defun ggtags-after-save-function ()
- (when (ggtags-find-project)
- (ggtags-project-update-mtime-maybe)
- (and buffer-file-name ggtags-update-on-save
- (ggtags-update-tags-single buffer-file-name 'nowait))))
-
-(defun ggtags-global-output (buffer cmds callback &optional cutoff sync)
- "Asynchronously pipe the output of running CMDS to BUFFER.
-When finished invoke CALLBACK in BUFFER with process exit status.
-If SYNC is non-nil, synchronously run CMDS and call CALLBACK."
- (or buffer (error "Output buffer required"))
- (when (get-buffer-process (get-buffer buffer))
- ;; Notice running multiple processes in the same buffer so that we
- ;; can fix the caller. See for example `ggtags-eldoc-function'.
- (message "Warning: detected %S already running in %S; interrupting..."
- (get-buffer-process buffer) buffer)
- (interrupt-process (get-buffer-process buffer)))
- (let* ((program (car cmds))
- (args (cdr cmds))
- (cutoff (and cutoff (+ cutoff (if (get-buffer buffer)
- (with-current-buffer buffer
- (line-number-at-pos (point-max)))
- 0))))
- (proc (apply #'start-file-process program buffer program args))
- (filter (lambda (proc string)
- (and (buffer-live-p (process-buffer proc))
- (with-current-buffer (process-buffer proc)
- (goto-char (process-mark proc))
- (insert string)
- (cl-incf (process-get proc :nlines)
- (count-lines (process-mark proc) (point)))
- (set-marker (process-mark proc) (point))
- (when (and (> (line-number-at-pos (point-max)) cutoff)
- (process-live-p proc))
- (interrupt-process (current-buffer)))))))
- (sentinel (lambda (proc _msg)
- (when (memq (process-status proc) '(exit signal))
- (with-current-buffer (process-buffer proc)
- (set-process-buffer proc nil)
- (unwind-protect
- (funcall callback (process-exit-status proc))
- (process-put proc :callback-done t)))))))
- (set-process-query-on-exit-flag proc nil)
- (and cutoff (set-process-filter proc filter))
- (set-process-sentinel proc sentinel)
- (process-put proc :callback-done nil)
- (process-put proc :nlines 0)
- (if sync (while (not (process-get proc :callback-done))
- (accept-process-output proc 1))
- proc)))
-
-(cl-defun ggtags-fontify-code (code &optional (mode major-mode))
- (cl-check-type mode function)
- (if (stringp code)
- (with-temp-buffer
- (insert code)
- (funcall mode)
- (font-lock-ensure)
- (buffer-string))
- code))
-
-(defun ggtags-get-definition-default (defs)
- (and (caar defs)
- (concat (ggtags-fontify-code (caar defs))
- (and (cdr defs) " [guess]"))))
-
-(defun ggtags-show-definition (name)
- (interactive (list (ggtags-read-tag 'definition current-prefix-arg)))
- (ggtags-check-project)
- (let* ((re (cadr (assq 'grep ggtags-global-error-regexp-alist-alist)))
- (current (current-buffer))
- (buffer (get-buffer-create " *ggtags-definition*"))
- (args (list "--result=grep" "--path-style=absolute" name))
- ;; Need these bindings so that let-binding
- ;; `ggtags-print-definition-function' can work see
- ;; `ggtags-eldoc-function'.
- (get-fn ggtags-get-definition-function)
- (print-fn ggtags-print-definition-function)
- (show (lambda (_status)
- (goto-char (point-min))
- (let ((defs (cl-loop while (re-search-forward re nil t)
- collect (list (buffer-substring-no-properties
- (1+ (match-end 2))
- (line-end-position))
- name
- (match-string 1)
- (string-to-number (match-string 2))))))
- (kill-buffer buffer)
- (with-current-buffer current
- (funcall print-fn (funcall get-fn defs)))))))
- (ggtags-with-current-project
- (ggtags-global-output
- buffer
- (cons (ggtags-program-path "global")
- (if (ggtags-sort-by-nearness-p) (cons "--nearness=." args) args))
- show 100))))
-
-(defvar ggtags-mode-prefix-map
- (let ((m (make-sparse-keymap)))
- ;; Globally bound to `M-g p'.
- ;; (define-key m "\M-'" 'previous-error)
- (define-key m (kbd "M-DEL") 'ggtags-delete-tags)
- (define-key m "\M-p" 'ggtags-prev-mark)
- (define-key m "\M-n" 'ggtags-next-mark)
- (define-key m "\M-f" 'ggtags-find-file)
- (define-key m "\M-o" 'ggtags-find-other-symbol)
- (define-key m "\M-g" 'ggtags-grep)
- (define-key m "\M-i" 'ggtags-idutils-query)
- (define-key m "\M-b" 'ggtags-browse-file-as-hypertext)
- (define-key m "\M-k" 'ggtags-kill-file-buffers)
- (define-key m "\M-h" 'ggtags-view-tag-history)
- (define-key m "\M-j" 'ggtags-visit-project-root)
- (define-key m "\M-/" 'ggtags-view-search-history)
- (define-key m (kbd "M-SPC") 'ggtags-save-to-register)
- (define-key m (kbd "M-%") 'ggtags-query-replace)
- (define-key m "\M-?" 'ggtags-show-definition)
- m))
-
-(defvar ggtags-mode-map
- (let ((map (make-sparse-keymap))
- (menu (make-sparse-keymap "Ggtags")))
- (define-key map "\M-." 'ggtags-find-tag-dwim)
- (define-key map (kbd "M-]") 'ggtags-find-reference)
- (define-key map (kbd "C-M-.") 'ggtags-find-tag-regexp)
- (define-key map ggtags-mode-prefix-key ggtags-mode-prefix-map)
- ;; Menu items
- (define-key map [menu-bar ggtags] (cons "Ggtags" menu))
- ;; Ordered backwards
- (define-key menu [report-bugs]
- `(menu-item "Report bugs"
- (lambda () (interactive)
- (browse-url ggtags-bug-url)
- (message "Please visit %s" ggtags-bug-url))
- :help ,(format "Visit %s" ggtags-bug-url)))
- (define-key menu [custom-ggtags]
- '(menu-item "Customize Ggtags"
- (lambda () (interactive) (customize-group 'ggtags))))
- (define-key menu [eldoc-mode]
- '(menu-item "Toggle eldoc mode" eldoc-mode :button (:toggle . eldoc-mode)))
- (define-key menu [save-project]
- '(menu-item "Save project settings" ggtags-save-project-settings))
- (define-key menu [toggle-read-only]
- '(menu-item "Toggle project read-only" ggtags-toggle-project-read-only
- :button (:toggle . buffer-read-only)))
- (define-key menu [visit-project-root]
- '(menu-item "Visit project root" ggtags-visit-project-root))
- (define-key menu [sep2] menu-bar-separator)
- (define-key menu [browse-hypertext]
- '(menu-item "Browse as hypertext" ggtags-browse-file-as-hypertext
- :enable (ggtags-find-project)))
- (define-key menu [delete-tags]
- '(menu-item "Delete tags" ggtags-delete-tags
- :enable (ggtags-find-project)
- :help "Delete file GTAGS, GRTAGS, GPATH, ID etc."))
- (define-key menu [kill-buffers]
- '(menu-item "Kill project file buffers" ggtags-kill-file-buffers
- :enable (ggtags-find-project)))
- (define-key menu [view-tag]
- '(menu-item "View tag history" ggtags-view-tag-history))
- (define-key menu [pop-mark]
- '(menu-item "Pop mark" xref-pop-marker-stack
- :help "Pop to previous mark and destroy it"))
- (define-key menu [next-mark]
- '(menu-item "Next mark" ggtags-next-mark))
- (define-key menu [prev-mark]
- '(menu-item "Previous mark" ggtags-prev-mark))
- (define-key menu [sep1] menu-bar-separator)
- (define-key menu [previous-error]
- '(menu-item "Previous match" previous-error))
- (define-key menu [next-error]
- '(menu-item "Next match" next-error))
- (define-key menu [rerun-search]
- '(menu-item "View past searches" ggtags-view-search-history))
- (define-key menu [save-to-register]
- '(menu-item "Save search to register" ggtags-save-to-register))
- (define-key menu [find-file]
- '(menu-item "Find files" ggtags-find-file))
- (define-key menu [query-replace]
- '(menu-item "Query replace" ggtags-query-replace))
- (define-key menu [idutils]
- '(menu-item "Query idutils DB" ggtags-idutils-query))
- (define-key menu [grep]
- '(menu-item "Grep" ggtags-grep))
- (define-key menu [find-symbol]
- '(menu-item "Find other symbol" ggtags-find-other-symbol
- :help "Find references without definition"))
- (define-key menu [find-tag-regexp]
- '(menu-item "Find tag matching regexp" ggtags-find-tag-regexp))
- (define-key menu [show-definition]
- '(menu-item "Show definition" ggtags-show-definition))
- (define-key menu [find-reference]
- '(menu-item "Find reference" ggtags-find-reference))
- ;; TODO: bind `find-tag-continue' to `M-*' after dropping support
- ;; for emacs < 25.
- (define-key menu [find-tag-continue]
- '(menu-item "Continue find tag" tags-loop-continue))
- (define-key menu [find-tag]
- '(menu-item "Find tag" ggtags-find-tag-dwim))
- (define-key menu [update-tags]
- '(menu-item "Update tag files" ggtags-update-tags
- :visible (ggtags-find-project)))
- (define-key menu [run-gtags]
- '(menu-item "Run gtags" ggtags-create-tags
- :visible (not (ggtags-find-project))))
- map))
-
-(defvar ggtags-mode-line-project-keymap
- (let ((map (make-sparse-keymap)))
- (define-key map [mode-line mouse-1] 'ggtags-visit-project-root)
- map))
-
-(put 'ggtags-mode-line-project-name 'risky-local-variable t)
-(defvar ggtags-mode-line-project-name
- '("[" (:eval (let ((name (if (stringp ggtags-project-root)
- (file-name-nondirectory
- (directory-file-name ggtags-project-root))
- "?")))
- (propertize
- name 'face compilation-info-face
- 'help-echo (if (stringp ggtags-project-root)
- (concat "mouse-1 to visit " ggtags-project-root)
- "mouse-1 to set project")
- 'mouse-face 'mode-line-highlight
- 'keymap ggtags-mode-line-project-keymap)))
- "]")
- "Mode line construct for displaying current project name.
-The value is the name of the project root directory. Setting it
-to nil disables displaying this information.")
-
-;;;###autoload
-(define-minor-mode ggtags-mode nil
- :lighter (:eval (if ggtags-navigation-mode "" " GG"))
- (ggtags-setup-highlight-tag-at-point ggtags-highlight-tag)
- (if ggtags-mode
- (progn
- (add-hook 'after-save-hook 'ggtags-after-save-function nil t)
- ;; Append to serve as a fallback method.
- (add-hook 'completion-at-point-functions
- #'ggtags-completion-at-point t t)
- ;; Work around http://debbugs.gnu.org/19324
- (or eldoc-documentation-function
- (setq-local eldoc-documentation-function #'ignore))
- (add-function :after-until (local 'eldoc-documentation-function)
- #'ggtags-eldoc-function '((name . ggtags-eldoc-function)
- (depth . -100)))
- (unless (memq 'ggtags-mode-line-project-name
- mode-line-buffer-identification)
- (setq mode-line-buffer-identification
- (append mode-line-buffer-identification
- '(ggtags-mode-line-project-name)))))
- (remove-hook 'after-save-hook 'ggtags-after-save-function t)
- (remove-hook 'completion-at-point-functions #'ggtags-completion-at-point t)
- (remove-function (local 'eldoc-documentation-function) 'ggtags-eldoc-function)
- (setq mode-line-buffer-identification
- (delq 'ggtags-mode-line-project-name mode-line-buffer-identification))
- (ggtags-cancel-highlight-tag-at-point 'keep-timer)))
-
-(defvar ggtags-highlight-tag-map
- (let ((map (make-sparse-keymap)))
- ;; Bind down- events so that the global keymap won't ``shine
- ;; through''. See `mode-line-buffer-identification-keymap' for
- ;; similar workaround.
- (define-key map [S-mouse-1] 'ggtags-find-tag-dwim)
- (define-key map [S-down-mouse-1] 'ignore)
- (define-key map [S-mouse-3] 'ggtags-find-reference)
- (define-key map [S-down-mouse-3] 'ignore)
- map)
- "Keymap used for valid tag at point.")
-
-(put 'ggtags-active-tag 'face 'ggtags-highlight)
-(put 'ggtags-active-tag 'keymap ggtags-highlight-tag-map)
-;; (put 'ggtags-active-tag 'mouse-face 'match)
-(put 'ggtags-active-tag 'help-echo
- "S-mouse-1 for definitions\nS-mouse-3 for references")
-
-(defun ggtags-setup-highlight-tag-at-point (flag)
- (cond ((null flag) (ggtags-cancel-highlight-tag-at-point))
- ((not (timerp ggtags-highlight-tag-timer))
- (setq ggtags-highlight-tag-timer
- (run-with-idle-timer flag t #'ggtags-highlight-tag-at-point)))
- (t (timer-set-idle-time ggtags-highlight-tag-timer flag t))))
-
-(defun ggtags-cancel-highlight-tag-at-point (&optional keep-timer)
- (when (and (not keep-timer)
- (timerp ggtags-highlight-tag-timer))
- (cancel-timer ggtags-highlight-tag-timer)
- (setq ggtags-highlight-tag-timer nil))
- (when ggtags-highlight-tag-overlay
- (delete-overlay ggtags-highlight-tag-overlay)
- (setq ggtags-highlight-tag-overlay nil)))
-
-(defun ggtags-highlight-tag-at-point ()
- (when (and ggtags-mode ggtags-project-root (ggtags-find-project))
- (unless (overlayp ggtags-highlight-tag-overlay)
- (setq ggtags-highlight-tag-overlay (make-overlay (point) (point) nil t))
- (overlay-put ggtags-highlight-tag-overlay 'modification-hooks
- (list (lambda (o after &rest _args)
- (and (not after) (delete-overlay o))))))
- (let ((bounds (funcall ggtags-bounds-of-tag-function))
- (o ggtags-highlight-tag-overlay))
- (cond
- ((and bounds
- (eq (overlay-buffer o) (current-buffer))
- (= (overlay-start o) (car bounds))
- (= (overlay-end o) (cdr bounds)))
- ;; Overlay matches current tag so do nothing.
- nil)
- ((and bounds (let ((completion-ignore-case nil))
- (test-completion
- (buffer-substring-no-properties
- (car bounds) (cdr bounds))
- ggtags-completion-table)))
- (move-overlay o (car bounds) (cdr bounds) (current-buffer))
- (overlay-put o 'category 'ggtags-active-tag))
- (t (move-overlay o
- (or (car bounds) (point))
- (or (cdr bounds) (point))
- (current-buffer))
- (overlay-put o 'category nil))))))
-
-;;; eldoc
-
-(defvar-local ggtags-eldoc-cache nil)
-
-(declare-function eldoc-message "eldoc")
-(defun ggtags-eldoc-function ()
- "A function suitable for `eldoc-documentation-function' (which see)."
- (pcase (ggtags-tag-at-point)
- (`nil nil)
- (tag (if (equal tag (car ggtags-eldoc-cache))
- (cadr ggtags-eldoc-cache)
- (and ggtags-project-root (ggtags-find-project)
- (let* ((ggtags-print-definition-function
- (lambda (s)
- (setq ggtags-eldoc-cache (list tag s))
- (eldoc-message s))))
- ;; Prevent multiple runs of ggtags-show-definition
- ;; for the same tag.
- (setq ggtags-eldoc-cache (list tag))
- (condition-case err
- (ggtags-show-definition tag)
- (file-error
- (remove-function (local 'eldoc-documentation-function)
- 'ggtags-eldoc-function)
- (message "\
-Function `ggtags-eldoc-function' disabled for eldoc in current buffer: %S" err)))
- nil))))))
-
-;;; imenu
-
-(defun ggtags-goto-imenu-index (name line &rest _args)
- (ggtags-forward-to-line line)
- (ggtags-move-to-tag name))
-
-;;;###autoload
-(defun ggtags-build-imenu-index ()
- "A function suitable for `imenu-create-index-function'."
- (let ((file (and buffer-file-name (file-relative-name buffer-file-name))))
- (and file (with-temp-buffer
- (when (with-demoted-errors "ggtags-build-imenu-index: %S"
- (zerop (ggtags-with-current-project
- (process-file (ggtags-program-path "global")
- nil t nil "-x" "-f" file))))
- (goto-char (point-min))
- (cl-loop while (re-search-forward
- "^\\([^ \t]+\\)[ \t]+\\([0-9]+\\)" nil t)
- collect (list (match-string 1)
- (string-to-number (match-string 2))
- 'ggtags-goto-imenu-index)))))))
-
-;;; hippie-expand
-
-;;;###autoload
-(defun ggtags-try-complete-tag (old)
- "A function suitable for `hippie-expand-try-functions-list'."
- (eval-and-compile (require 'hippie-exp))
- (unless old
- (he-init-string (or (car (funcall ggtags-bounds-of-tag-function)) (point))
- (point))
- (setq he-expand-list
- (and (not (equal he-search-string ""))
- (ggtags-find-project)
- (sort (all-completions he-search-string
- ggtags-completion-table)
- #'string-lessp))))
- (if (null he-expand-list)
- (progn
- (if old (he-reset-string))
- nil)
- (he-substitute-string (car he-expand-list))
- (setq he-expand-list (cdr he-expand-list))
- t))
-
-(defun ggtags-reload (&optional force)
- (interactive "P")
- (unload-feature 'ggtags force)
- (require 'ggtags))
-
-(provide 'ggtags)
-;;; ggtags.el ends here
diff --git a/elpa/ggtags-20181031.1803/ggtags.elc b/elpa/ggtags-20181031.1803/ggtags.elc
deleted file mode 100644
index 6c8626b..0000000
--- a/elpa/ggtags-20181031.1803/ggtags.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/ghub-20181112.1755/buck.el b/elpa/ghub-20181112.1755/buck.el
deleted file mode 100644
index 141ea90..0000000
--- a/elpa/ghub-20181112.1755/buck.el
+++ /dev/null
@@ -1,128 +0,0 @@
-;;; buck.el --- minuscule client library for the Bitbucket API -*- lexical-binding: t -*-
-
-;; Copyright (C) 2016-2018 Jonas Bernoulli
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Homepage: https://github.com/magit/ghub
-;; Keywords: tools
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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.
-
-;; For a copy of the GPL see https://www.gnu.org/licenses/gpl.txt.
-
-;;; Commentary:
-
-;; Buck is a library that provides basic support for using the Bitbucket API
-;; from Emacs packages. It abstracts access to API resources using only
-;; a handful of functions that are not resource-specific.
-
-;; This library is implemented on top of Ghub. Unlike Ghub, Buck does
-;; not support the guided creation of tokens because Bitbucket lacks the
-;; features that would be necessary to implement that. Users have to
-;; create tokens through the web interface.
-
-;;; Code:
-
-(require 'ghub)
-
-(defconst buck-default-host "api.bitbucket.org/2.0"
- "The default host that is used if `buck.host' is not set.")
-
-;; HEAD and PATCH are not supported according to
-;; https://developer.atlassian.com/bitbucket/api/2/reference/meta/uri-uuid
-
-(cl-defun buck-get (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `GET' request for RESOURCE, with optional query PARAMS.
-Like calling `ghub-request' (which see) with \"GET\" as METHOD
-and `bitbucket' as FORGE."
- (ghub-request "GET" resource params :forge 'bitbucket
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun buck-put (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PUT' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PUT\" as METHOD
-and `bitbucket' as FORGE."
- (ghub-request "PUT" resource params :forge 'bitbucket
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun buck-post (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `POST' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"POST\" as METHOD
-and `bitbucket' as FORGE."
- (ghub-request "POST" resource params :forge 'bitbucket
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun buck-delete (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"DELETE\" as METHOD
-and `bitbucket' as FORGE."
- (ghub-request "DELETE" resource params :forge 'bitbucket
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun buck-request (method resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a request for RESOURCE and return the response body.
-Like calling `ghub-request' (which see) with `bitbucket' as FORGE."
- (ghub-request method resource params :forge 'bitbucket
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun buck-repository-id (owner name &key username auth host)
- "Return the id of the repository specified by OWNER, NAME and HOST."
- (substring (cdr (assq 'uuid
- (buck-get (format "/repositories/%s/%s" owner name)
- nil
- :username username :auth auth :host host)))
- 1 -1))
-
-;;; _
-(provide 'buck)
-;;; buck.el ends here
diff --git a/elpa/ghub-20181112.1755/buck.elc b/elpa/ghub-20181112.1755/buck.elc
deleted file mode 100644
index 3a8be4a..0000000
--- a/elpa/ghub-20181112.1755/buck.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/ghub-20181112.1755/dir b/elpa/ghub-20181112.1755/dir
deleted file mode 100644
index 8392fa0..0000000
--- a/elpa/ghub-20181112.1755/dir
+++ /dev/null
@@ -1,18 +0,0 @@
-This is the file .../info/dir, which contains the
-topmost node of the Info hierarchy, called (dir)Top.
-The first time you invoke Info you start off looking at this node.
-
-File: dir, Node: Top This is the top of the INFO tree
-
- This (the Directory node) gives a menu of major topics.
- Typing "q" exits, "H" lists all Info commands, "d" returns here,
- "h" gives a primer for first-timers,
- "mEmacs<Return>" visits the Emacs manual, etc.
-
- In Emacs, you can click mouse button 2 on a menu item or cross reference
- to select it.
-
-* Menu:
-
-Emacs
-* Ghub: (ghub). Minuscule client library for the Github API.
diff --git a/elpa/ghub-20181112.1755/ghub-autoloads.el b/elpa/ghub-20181112.1755/ghub-autoloads.el
deleted file mode 100644
index 2785cba..0000000
--- a/elpa/ghub-20181112.1755/ghub-autoloads.el
+++ /dev/null
@@ -1,90 +0,0 @@
-;;; ghub-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "buck" "buck.el" (0 0 0 0))
-;;; Generated autoloads from buck.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "buck" '("buck-default-host")))
-
-;;;***
-
-;;;### (autoloads nil "ghub" "ghub.el" (0 0 0 0))
-;;; Generated autoloads from ghub.el
-
-(autoload 'ghub-create-token "ghub" "\
-Create, store and return a new token.
-
-HOST is the Github instance, usually \"api.github.com\".
-USERNAME is the name of a user on that instance.
-PACKAGE is the package that will use the token.
-SCOPES are the scopes the token is given access to.
-
-\(fn HOST USERNAME PACKAGE SCOPES)" t nil)
-
-(autoload 'ghub-token-scopes "ghub" "\
-Return and echo the scopes of the specified token.
-This is intended for debugging purposes only. The user
-has to provide several values including their password.
-
-\(fn HOST USERNAME PACKAGE)" t nil)
-
-(autoload 'ghub-clear-caches "ghub" "\
-Clear all caches that might negatively affect Ghub.
-
-If a library that is used by Ghub caches incorrect information
-such as a mistyped password, then that can prevent Ghub from
-asking the user for the correct information again.
-
-Set `url-http-real-basic-auth-storage' to nil
-and call `auth-source-forget+'.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ghub" '("auth-source-netrc-parse-next-interesting@save-match-data" "ghub-")))
-
-;;;***
-
-;;;### (autoloads nil "ghub-graphql" "ghub-graphql.el" (0 0 0 0))
-;;; Generated autoloads from ghub-graphql.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ghub-graphql" '("ghub-")))
-
-;;;***
-
-;;;### (autoloads nil "glab" "glab.el" (0 0 0 0))
-;;; Generated autoloads from glab.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "glab" '("glab-default-host")))
-
-;;;***
-
-;;;### (autoloads nil "gogs" "gogs.el" (0 0 0 0))
-;;; Generated autoloads from gogs.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "gogs" '("gogs-default-host")))
-
-;;;***
-
-;;;### (autoloads nil "gtea" "gtea.el" (0 0 0 0))
-;;; Generated autoloads from gtea.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "gtea" '("gtea-default-host")))
-
-;;;***
-
-;;;### (autoloads nil nil ("ghub-pkg.el") (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; ghub-autoloads.el ends here
diff --git a/elpa/ghub-20181112.1755/ghub-graphql.el b/elpa/ghub-20181112.1755/ghub-graphql.el
deleted file mode 100644
index 0f907cb..0000000
--- a/elpa/ghub-20181112.1755/ghub-graphql.el
+++ /dev/null
@@ -1,442 +0,0 @@
-;;; ghub-graphql.el --- access Github API using GrapthQL -*- lexical-binding: t -*-
-
-;; Copyright (C) 2016-2018 Jonas Bernoulli
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Homepage: https://github.com/magit/ghub
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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.
-
-;; For a copy of the GPL see https://www.gnu.org/licenses/gpl.txt.
-
-;;; Code:
-
-(require 'dash)
-(require 'ghub)
-(require 'graphql)
-(require 'treepy)
-
-(eval-when-compile
- (require 'subr-x))
-
-;;; Api
-
-(cl-defun ghub-graphql (graphql &optional variables
- &key username auth host
- silent
- callback errorback value extra)
- "Make a GraphQL request using GRAPHQL and VARIABLES.
-Return the response as a JSON-like alist. Even if the response
-contains `errors', do not raise an error. GRAPHQL is a GraphQL
-string. VARIABLES is a JSON-like alist. The other arguments
-behave as for `ghub-request' (which see)."
- (cl-assert (stringp graphql))
- (cl-assert (not (stringp variables)))
- (ghub-request "POST" "/graphql" nil :payload
- (json-encode `(("query" . ,graphql)
- ,@(and variables `(("variables" ,@variables)))))
- :silent silent
- :username username :auth auth :host host
- :callback callback :errorback errorback
- :extra extra :value value))
-
-(cl-defun ghub-graphql-rate-limit (&key username auth host)
- "Return rate limit information."
- (let-alist (ghub-graphql
- "query { rateLimit { limit cost remaining resetAt }}"
- nil :username username :auth auth :host host)
- .data.rateLimit))
-
-(cl-defun ghub--repository-id (owner name &key username auth host)
- "Return the id of the repository specified by OWNER, NAME and HOST."
- (let-alist (ghub-graphql
- "query ($owner:String!, $name:String!) {
- repository(owner:$owner, name:$name) { id }
- }"
- `((owner . ,owner)
- (name . ,name))
- :username username :auth auth :host host)
- .data.repository.id))
-
-;;; Api (drafts)
-
-(defconst ghub-fetch-repository
- '(query
- (repository
- [(owner $owner String!)
- (name $name String!)]
- name
- id
- createdAt
- updatedAt
- nameWithOwner
- description
- (defaultBranchRef name)
- isArchived
- isFork
- isLocked
- isMirror
- isPrivate
- hasIssuesEnabled
- hasWikiEnabled
- (licenseInfo name)
- (stargazers totalCount)
- (watchers totalCount)
- (assignableUsers [(:edges t)]
- id
- login
- name)
- (issues [(:edges t)
- (:singular issue number)
- (orderBy ((field . UPDATED_AT) (direction . DESC)))]
- number
- state
- (author login)
- title
- createdAt
- updatedAt
- closedAt
- locked
- (milestone id)
- body
- (assignees [(:edges t)]
- id)
- (comments [(:edges t)]
- databaseId
- (author login)
- createdAt
- updatedAt
- body)
- (labels [(:edges t)]
- id))
- (labels [(:edges t)
- (:singular label id)]
- id
- name
- color
- description)
- (pullRequests [(:edges t)
- (:singular pullRequest number)
- (orderBy ((field . UPDATED_AT) (direction . DESC)))]
- number
- state
- (author login)
- title
- createdAt
- updatedAt
- closedAt
- mergedAt
- locked
- maintainerCanModify
- isCrossRepository
- (milestone id)
- body
- (baseRef name
- (repository nameWithOwner))
- (headRef name
- (repository (owner login)
- nameWithOwner))
- (assignees [(:edges t)]
- id)
- (comments [(:edges t)]
- databaseId
- (author login)
- createdAt
- updatedAt
- body)
- (labels [(:edges t)]
- id)))))
-
-(cl-defun ghub-fetch-repository (owner name callback
- &optional until
- &key username auth host forge)
- "Asynchronously fetch forge data about the specified repository.
-Once all data has been collected, CALLBACK is called with the
-data as the only argument."
- (ghub--graphql-vacuum ghub-fetch-repository
- `((owner . ,owner)
- (name . ,name))
- callback until
- :narrow '(repository)
- :username username
- :auth auth
- :host host
- :forge forge))
-
-(cl-defun ghub-fetch-issue (owner name number callback
- &optional until
- &key username auth host forge)
- "Asynchronously fetch forge data about the specified issue.
-Once all data has been collected, CALLBACK is called with the
-data as the only argument."
- (ghub--graphql-vacuum (ghub--graphql-prepare-query
- ghub-fetch-repository
- `(repository issues (issue . ,number)))
- `((owner . ,owner)
- (name . ,name))
- callback until
- :narrow '(repository issue)
- :username username
- :auth auth
- :host host
- :forge forge))
-
-(cl-defun ghub-fetch-pullreq (owner name number callback
- &optional until
- &key username auth host forge)
- "Asynchronously fetch forge data about the specified pull-request.
-Once all data has been collected, CALLBACK is called with the
-data as the only argument."
- (ghub--graphql-vacuum (ghub--graphql-prepare-query
- ghub-fetch-repository
- `(repository pullRequests (pullRequest . ,number)))
- `((owner . ,owner)
- (name . ,name))
- callback until
- :narrow '(repository pullRequest)
- :username username
- :auth auth
- :host host
- :forge forge))
-
-;;; Internal
-
-(cl-defstruct (ghub--graphql-req
- (:include ghub--req)
- (:constructor ghub--make-graphql-req)
- (:copier nil))
- (query nil :read-only t)
- (variables nil :read-only t)
- (until nil :read-only t)
- (pages 0 :read-only nil))
-
-(cl-defun ghub--graphql-vacuum (query variables callback
- &optional until
- &key narrow username auth host forge)
- "Make a GraphQL request using QUERY and VARIABLES.
-See Info node `(ghub)GraphQL Support'."
- (unless host
- (setq host (ghub--host forge)))
- (unless (or username (stringp auth) (eq auth 'none))
- (setq username (ghub--username host forge)))
- (ghub--graphql-retrieve
- (ghub--make-graphql-req
- :url (url-generic-parse-url (concat "https://" host "/graphql"))
- :method "POST"
- :headers (ghub--headers nil host auth username forge)
- :handler 'ghub--graphql-handle-response
- :query query
- :variables variables
- :until until
- :callback (if narrow
- (lambda (data)
- (let ((path narrow) key)
- (while (setq key (pop path))
- (setq data (cdr (assq key data)))))
- (funcall callback data))
- callback))))
-
-(cl-defun ghub--graphql-retrieve (req &optional lineage cursor)
- (let ((p (cl-incf (ghub--graphql-req-pages req))))
- (when (> p 1)
- (message "Fetching page %s..." p)))
- (ghub--retrieve
- (let ((json-false nil))
- (ghub--encode-payload
- `((query . ,(ghub--graphql-encode
- (ghub--graphql-prepare-query
- (ghub--graphql-req-query req)
- lineage cursor)))
- (variables . ,(ghub--graphql-req-variables req)))))
- req))
-
-(defun ghub--graphql-prepare-query (query &optional lineage cursor)
- (when lineage
- (setq query (ghub--graphql-narrow-query query lineage cursor)))
- (let ((loc (ghub--alist-zip query))
- variables)
- (cl-block nil
- (while t
- (let ((node (treepy-node loc)))
- (when (vectorp node)
- (let ((alist (cl-coerce node 'list))
- vars)
- (when (assq :edges alist)
- (push (list 'first 100) vars)
- (setq loc (treepy-up loc))
- (setq node (treepy-node loc))
- (setq loc (treepy-replace
- loc `(,(car node)
- ,(cadr node)
- (pageInfo endCursor hasNextPage)
- (edges (node ,@(cddr node))))))
- (setq loc (treepy-down loc))
- (setq loc (treepy-next loc)))
- (dolist (elt alist)
- (cond ((keywordp (car elt)))
- ((= (length elt) 3)
- (push (list (nth 0 elt)
- (nth 1 elt)) vars)
- (push (list (nth 1 elt)
- (nth 2 elt)) variables))
- ((= (length elt) 2)
- (push elt vars))))
- (setq loc (treepy-replace loc (cl-coerce vars 'vector))))))
- (if (treepy-end-p loc)
- (let ((node (copy-sequence (treepy-node loc))))
- (when variables
- (push (cl-coerce variables 'vector)
- (cdr node)))
- (cl-return node))
- (setq loc (treepy-next loc)))))))
-
-(defun ghub--graphql-handle-response (status req)
- (let ((buffer (current-buffer)))
- (unwind-protect
- (progn
- (set-buffer-multibyte t)
- (let* ((headers (ghub--handle-response-headers status req))
- (payload (ghub--handle-response-payload req))
- (payload (ghub--handle-response-error status payload req))
- (err (plist-get status :error))
- (errors (cdr (assq 'errors payload)))
- (errors (and errors
- (cons 'ghub-graphql-error errors)))
- (data (assq 'data payload))
- (value (ghub--req-value req)))
- (setf (ghub--req-value req) value)
- (if (or err errors)
- (if-let ((errorback (ghub--req-errorback req)))
- (funcall errorback (or err errors) headers status req)
- (ghub--signal-error (or err errors)))
- (ghub--graphql-walk-response value data req))))
- (when (buffer-live-p buffer)
- (kill-buffer buffer)))))
-
-(defun ghub--graphql-walk-response (loc data req)
- (if (not loc)
- (setf (ghub--req-value req)
- (setq loc (ghub--alist-zip data)))
- (setq data (ghub--graphql-narrow-data data (ghub--graphql-lineage loc)))
- (setf (alist-get 'edges data)
- (append (alist-get 'edges (treepy-node loc))
- (or (alist-get 'edges data)
- (error "BUG: Expected new nodes"))))
- (setq loc (treepy-replace loc data)))
- (cl-block nil
- (while t
- (when (eq (car-safe (treepy-node loc)) 'edges)
- (setq loc (treepy-up loc))
- (pcase-let ((`(,key . ,val) (treepy-node loc)))
- (let-alist val
- (let* ((cursor (and .pageInfo.hasNextPage
- .pageInfo.endCursor))
- (until (cdr (assq (intern (format "%s-until" key))
- (ghub--graphql-req-until req))))
- (nodes (mapcar #'cdar .edges))
- (nodes (if until
- (--take-while
- (or (string> (cdr (assq 'updatedAt it)) until)
- (setq cursor nil))
- nodes)
- nodes)))
- (if cursor
- (progn
- (setf (ghub--req-value req) loc)
- (ghub--graphql-retrieve req
- (ghub--graphql-lineage loc)
- cursor)
- (cl-return))
- (setq loc (treepy-replace loc (cons key nodes))))))))
- (if (not (treepy-end-p loc))
- (setq loc (treepy-next loc))
- (funcall (ghub--req-callback req)
- (treepy-root loc))
- (cl-return)))))
-
-(defun ghub--graphql-lineage (loc)
- (let (lineage)
- (while (treepy-up loc)
- (push (car (treepy-node loc)) lineage)
- (setq loc (treepy-up loc)))
- lineage))
-
-(defun ghub--graphql-narrow-data (data lineage)
- (let (key)
- (while (setq key (pop lineage))
- (if (consp (car lineage))
- (progn (pop lineage)
- (setf data (cadr data)))
- (setq data (assq key (cdr data))))))
- data)
-
-(defun ghub--graphql-narrow-query (query lineage cursor)
- (if (consp (car lineage))
- (let* ((child (cddr query))
- (alist (cl-coerce (cadr query) 'list))
- (single (cdr (assq :singular alist))))
- `(,(car single)
- ,(vector (list (cadr single) (cdr (car lineage))))
- ,@(if (cdr lineage)
- (ghub--graphql-narrow-query child (cdr lineage) cursor)
- child)))
- (let* ((child (or (assq (car lineage) (cdr query))
- (cl-find-if (lambda (c)
- (and (listp c)
- (vectorp (cadr c))
- (eq (cadr (assq :singular
- (cl-coerce (cadr c)
- 'list)))
- (car lineage))))
- (cdr query))))
- (object (car query))
- (args (and (vectorp (cadr query))
- (cadr query))))
- `(,object
- ,@(and args (list args))
- ,(cond ((cdr lineage)
- (ghub--graphql-narrow-query child (cdr lineage) cursor))
- (cursor
- `(,(car child)
- ,(vconcat `((after ,cursor))
- (cadr child))
- ,@(cddr child)))
- (t
- child))))))
-
-(defun ghub--graphql-encode (g)
- (if (symbolp g)
- (symbol-name g)
- (let* ((object (car g))
- (args (and (vectorp (cadr g))
- (cl-coerce (cadr g) 'list)))
- (fields (if args (cddr g) (cdr g))))
- (concat
- (graphql--encode-object object)
- (and args
- (format " (\n%s)"
- (mapconcat (pcase-lambda (`(,key ,val))
- (graphql--encode-argument key val))
- args ",\n")))
- (and fields
- (format " {\n%s\n}"
- (mapconcat #'ghub--graphql-encode fields "\n")))))))
-
-(defun ghub--alist-zip (root)
- (let ((branchp (lambda (elt) (and (listp elt) (listp (cdr elt)))))
- (make-node (lambda (_ children) children)))
- (treepy-zipper branchp #'identity make-node root)))
-
-;;; _
-(provide 'ghub-graphql)
-;;; ghub-graphql.el ends here
diff --git a/elpa/ghub-20181112.1755/ghub-graphql.elc b/elpa/ghub-20181112.1755/ghub-graphql.elc
deleted file mode 100644
index b01c129..0000000
--- a/elpa/ghub-20181112.1755/ghub-graphql.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/ghub-20181112.1755/ghub-pkg.el b/elpa/ghub-20181112.1755/ghub-pkg.el
deleted file mode 100644
index 17fdf06..0000000
--- a/elpa/ghub-20181112.1755/ghub-pkg.el
+++ /dev/null
@@ -1,9 +0,0 @@
-(define-package "ghub" "20181112.1755" "Minuscule client libraries for Git forge APIs."
- '((emacs "25.1")
- (dash "2.14.1")
- (graphql "0.1.1")
- (let-alist "1.0.5")
- (treepy "1.0.0")))
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/elpa/ghub-20181112.1755/ghub.el b/elpa/ghub-20181112.1755/ghub.el
deleted file mode 100644
index fb27147..0000000
--- a/elpa/ghub-20181112.1755/ghub.el
+++ /dev/null
@@ -1,952 +0,0 @@
-;;; ghub.el --- minuscule client libraries for Git forge APIs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2016-2018 Jonas Bernoulli
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Homepage: https://github.com/magit/ghub
-;; Keywords: tools
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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.
-
-;; For a copy of the GPL see https://www.gnu.org/licenses/gpl.txt.
-
-;;; Commentary:
-
-;; Ghub provides basic support for using the APIs of various Git forges
-;; from Emacs packages. Originally it only supported the Github REST
-;; API, but now it also supports the Github GraphQL API as well as the
-;; REST APIs of Gitlab, Gitea, Gogs and Bitbucket.
-
-;; Ghub abstracts access to API resources using only a handful of basic
-;; functions such as `ghub-get'. These are convenience wrappers around
-;; `ghub-request'. Additional forge-specific wrappers like `glab-put',
-;; `gtea-put', `gogs-post' and `buck-delete' are also available. Ghub
-;; does not provide any resource-specific functions, with the exception
-;; of `FORGE-repository-id'.
-
-;; When accessing Github, then Ghub handles the creation and storage of
-;; access tokens using a setup wizard to make it easier for users to get
-;; started. The tokens for other forges have to be created manually.
-
-;; Ghub is intentionally limited to only provide these two essential
-;; features — basic request functions and guided setup — to avoid being
-;; too opinionated, which would hinder wide adoption. It is assumed that
-;; wide adoption would make life easier for users and maintainers alike,
-;; because then all packages that talk to forge APIs could be configured
-;; the same way.
-
-;; Please consult the manual (info "ghub") for more information.
-
-;;; Code:
-
-(require 'auth-source)
-(require 'cl-lib)
-(require 'json)
-(require 'let-alist)
-(require 'url)
-(require 'url-auth)
-(require 'url-http)
-
-(eval-when-compile
- (require 'subr-x))
-
-(defvar url-callback-arguments)
-(defvar url-http-end-of-headers)
-(defvar url-http-extra-headers)
-(defvar url-http-response-status)
-
-;;; Settings
-
-(defconst ghub-default-host "api.github.com"
- "The default host that is used if `ghub.host' is not set.")
-
-(defvar ghub-github-token-scopes '(repo)
- "The Github API scopes that your private tools need.
-
-The token that is created based on the value of this variable
-is used when `ghub-request' (or one of its wrappers) is called
-without providing a value for AUTH. Packages should always
-identify themselves using that argument, but when you use Ghub
-directly in private tools, then that is not necessary and the
-request is made on behalf of the `ghub' package itself, aka on
-behalf of some private tool.
-
-By default the only requested scope is `repo' because that is
-sufficient as well as required for most common uses. This and
-other scopes are documented at URL `https://magit.vc/goto/2e586d36'.
-
-If your private tools need other scopes, then you have to add
-them here *before* creating the token. Alternatively you can
-edit the scopes of an existing token using the web interface
-at URL `https://github.com/settings/tokens'.")
-
-(defvar ghub-override-system-name nil
- "If non-nil, the string used to identify the local machine.
-If this is nil, then the value returned by `system-name' is
-used instead.")
-
-;;; Request
-;;;; Object
-
-(cl-defstruct (ghub--req
- (:constructor ghub--make-req)
- (:copier nil))
- (url nil :read-only nil)
- (forge nil :read-only t)
- (silent nil :read-only t)
- (method nil :read-only t)
- (headers nil :read-only t)
- (handler nil :read-only t)
- (unpaginate nil :read-only nil)
- (noerror nil :read-only t)
- (reader nil :read-only t)
- (callback nil :read-only t)
- (errorback nil :read-only t)
- (value nil :read-only nil)
- (extra nil :read-only nil))
-
-(defalias 'ghub-req-extra 'ghub--req-extra)
-
-;;;; API
-
-(define-error 'ghub-error "Ghub/Url Error" 'error)
-(define-error 'ghub-http-error "HTTP Error" 'ghub-error)
-
-(defvar ghub-response-headers nil
- "The headers returned in response to the last request.
-`ghub-request' returns the response body and stores the
-response headers in this variable.")
-
-(cl-defun ghub-head (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `HEAD' request for RESOURCE, with optional query PARAMS.
-Like calling `ghub-request' (which see) with \"HEAD\" as METHOD."
- (ghub-request "HEAD" resource params
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun ghub-get (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `GET' request for RESOURCE, with optional query PARAMS.
-Like calling `ghub-request' (which see) with \"GET\" as METHOD."
- (ghub-request "GET" resource params
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun ghub-put (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PUT' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PUT\" as METHOD."
- (ghub-request "PUT" resource params
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun ghub-post (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `POST' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"POST\" as METHOD."
- (ghub-request "POST" resource params
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun ghub-patch (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PATCH\" as METHOD."
- (ghub-request "PATCH" resource params
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun ghub-delete (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"DELETE\" as METHOD."
- (ghub-request "DELETE" resource params
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun ghub-request (method resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host forge
- callback errorback value extra)
- "Make a request for RESOURCE and return the response body.
-
-Also place the response header in `ghub-response-headers'.
-
-METHOD is the HTTP method, given as a string.
-RESOURCE is the resource to access, given as a string beginning
- with a slash.
-
-PARAMS, QUERY, PAYLOAD and HEADERS are alists used to specify
- data. The Github API documentation is vague on how data has
- to be transmitted and for a particular resource usually just
- talks about \"parameters\". Generally speaking when the METHOD
- is \"HEAD\" or \"GET\", then they have to be transmitted as a
- query, otherwise as a payload.
-Use PARAMS to automatically transmit like QUERY or PAYLOAD would
- depending on METHOD.
-Use QUERY to explicitly transmit data as a query.
-Use PAYLOAD to explicitly transmit data as a payload.
- Instead of an alist, PAYLOAD may also be a string, in which
- case it gets encoded as UTF-8 but is otherwise transmitted as-is.
-Use HEADERS for those rare resources that require that the data
- is transmitted as headers instead of as a query or payload.
- When that is the case, then the API documentation usually
- mentions it explicitly.
-
-If SILENT is non-nil, then don't message progress reports and
- the like.
-
-If UNPAGINATE is t, then make as many requests as necessary to
- get all values. If UNPAGINATE is a natural number, then get
- at most that many pages. For any other non-nil value raise
- an error.
-If NOERROR is non-nil, then do not raise an error if the request
- fails and return nil instead. If NOERROR is `return', then
- return the error payload instead of nil.
-If READER is non-nil, then it is used to read and return from the
- response buffer. The default is `ghub--read-json-payload'.
- For the very few resources that do not return JSON, you might
- want to use `ghub--decode-payload'.
-
-If USERNAME is non-nil, then make a request on behalf of that
- user. It is better to specify the user using the Git variable
- `github.user' for \"api.github.com\", or `github.HOST.user' if
- connecting to a Github Enterprise instance.
-
-Each package that uses `ghub' should use its own token. If AUTH
- is nil, then the generic `ghub' token is used instead. This
- is only acceptable for personal utilities. A packages that
- is distributed to other users should always use this argument
- to identify itself, using a symbol matching its name.
-
- Package authors who find this inconvenient should write a
- wrapper around this function and possibly for the
- method-specific functions as well.
-
- Some symbols have a special meaning. `none' means to make an
- unauthorized request. `basic' means to make a password based
- request. If the value is a string, then it is assumed to be
- a valid token. `basic' and an explicit token string are only
- intended for internal and debugging uses.
-
- If AUTH is a package symbol, then the scopes are specified
- using the variable `AUTH-github-token-scopes'. It is an error
- if that is not specified. See `ghub-github-token-scopes' for
- an example.
-
-If HOST is non-nil, then connect to that Github instance. This
- defaults to \"api.github.com\". When a repository is connected
- to a Github Enterprise instance, then it is better to specify
- that using the Git variable `github.host' instead of using this
- argument.
-
-If FORGE is `gitlab', then connect to Gitlab.com or, depending
- on HOST, to another Gitlab instance. This is only intended for
- internal use. Instead of using this argument you should use
- function `glab-request' and other `glab-*' functions.
-
-If CALLBACK and/or ERRORBACK is non-nil, then make one or more
- asynchronous requests and call CALLBACK or ERRORBACK when
- finished. If an error occurred, then call ERRORBACK, or if
- that is nil, then CALLBACK. When no error occurred then call
- CALLBACK. When making asynchronous requests, then no errors
- are signaled, regardless of the value of NOERROR.
-
-Both callbacks are called with four arguments.
- 1. For CALLBACK, the combined value of the retrieved pages.
- For ERRORBACK, the error that occured when retrieving the
- last page.
- 2. The headers of the last page as an alist.
- 3. Status information provided by `url-retrieve'. Its `:error'
- property holds the same information as ERRORBACK's first
- argument.
- 4. A `ghub--req' struct, which can be passed to `ghub-continue'
- (which see) to retrieve the next page, if any."
- (cl-assert (or (booleanp unpaginate) (natnump unpaginate)))
- (unless (string-prefix-p "/" resource)
- (setq resource (concat "/" resource)))
- (unless host
- (setq host (ghub--host forge)))
- (unless (or username (stringp auth) (eq auth 'none))
- (setq username (ghub--username host forge)))
- (cond ((not params))
- ((member method '("GET" "HEAD"))
- (when query
- (error "PARAMS and QUERY are mutually exclusive for METHOD %S"
- method))
- (setq query params))
- (t
- (when payload
- (error "PARAMS and PAYLOAD are mutually exclusive for METHOD %S"
- method))
- (setq payload params)))
- (when (or callback errorback)
- (setq noerror t))
- (ghub--retrieve
- (ghub--encode-payload payload)
- (ghub--make-req
- :url (url-generic-parse-url
- (concat "https://" host resource
- (and query (concat "?" (ghub--url-encode-params query)))))
- :forge forge
- :silent silent
- ;; Encode in case caller used (symbol-name 'GET). #35
- :method (encode-coding-string method 'utf-8)
- :headers (ghub--headers headers host auth username forge)
- :handler 'ghub--handle-response
- :unpaginate unpaginate
- :noerror noerror
- :reader reader
- :callback callback
- :errorback errorback
- :value value
- :extra extra)))
-
-(defun ghub-continue (req)
- "If there is a next page, then retrieve that.
-
-This function is only intended to be called from callbacks. If
-there is a next page, then retrieve that and return the buffer
-that the result will be loaded into, or t if the process has
-already completed. If there is no next page, then return nil.
-
-Callbacks are called with four arguments (see `ghub-request').
-The forth argument is a `ghub--req' struct, intended to be passed
-to this function. A callback may use the struct's `extra' slot
-to pass additional information to the callback that will be
-called after the next request has finished. Use the function
-`ghub-req-extra' to get and set the value of this slot."
- (and (assq 'next (ghub-response-link-relations req))
- (or (ghub--retrieve nil req) t)))
-
-(cl-defun ghub-wait (resource &optional duration &key username auth host)
- "Busy-wait up to DURATION seconds for RESOURCE to become available.
-
-DURATION specifies how many seconds to wait at most. It defaults
-to 64 seconds. The first attempt is made immediately, the second
-after two seconds, and each subsequent attempt is made after
-waiting as long again as we already waited between all preceding
-attempts combined.
-
-See `ghub-request' for information about the other arguments."
- (unless duration
- (setq duration 64))
- (with-local-quit
- (let ((total 0))
- (while (not (ghub-get resource nil
- :noerror t
- :username username
- :auth auth
- :host host))
- (message "Waited (%3ss of %ss) for %s..." total duration resource)
- (if (= total duration)
- (error "Github is taking too long to create %s" resource)
- (if (> total 0)
- (let ((wait (min total (- duration total))))
- (sit-for wait)
- (cl-incf total wait))
- (sit-for (setq total 2))))))))
-
-(defun ghub-response-link-relations (req &optional headers payload)
- "Return an alist of link relations in HEADERS.
-If optional HEADERS is nil, then return those that were
-previously stored in the variable `ghub-response-headers'.
-
-When accessing a Bitbucket instance then the link relations
-are in PAYLOAD instead of HEADERS, making their API merely
-RESTish and forcing this function to append those relations
-to the value of `ghub-response-headers', for later use when
-this function is called with nil for PAYLOAD."
- (if (eq (ghub--req-forge req) 'bitbucket)
- (if payload
- (let* ((page (cl-mapcan (lambda (key)
- (when-let ((elt (assq key payload)))
- (list elt)))
- '(size page pagelen next previous)))
- (headers (cons (cons 'link-alist page) headers)))
- (if (and req (or (ghub--req-callback req)
- (ghub--req-errorback req)))
- (setq-local ghub-response-headers headers)
- (setq-default ghub-response-headers headers))
- page)
- (cdr (assq 'link-alist ghub-response-headers)))
- (when-let ((rels (cdr (assoc "Link" (or headers ghub-response-headers)))))
- (mapcar (lambda (elt)
- (pcase-let ((`(,url ,rel) (split-string elt "; ")))
- (cons (intern (substring rel 5 -1))
- (substring url 1 -1))))
- (split-string rels ", ")))))
-
-(cl-defun ghub-repository-id (owner name &key username auth host forge)
- "Return the id of the specified repository."
- (let ((fn (intern (format "%s-repository-id" (or forge 'ghub)))))
- (funcall (if (eq fn 'ghub-repository-id) 'ghub--repository-id fn)
- owner name :username username :auth auth :host host)))
-
-;;;; Internal
-
-(cl-defun ghub--retrieve (payload req)
- (let ((url-request-extra-headers
- (let ((headers (ghub--req-headers req)))
- (if (functionp headers) (funcall headers) headers)))
- (url-request-method (ghub--req-method req))
- (url-request-data payload)
- (url-show-status nil)
- (url (ghub--req-url req))
- (handler (ghub--req-handler req))
- (silent (ghub--req-silent req)))
- (if (or (ghub--req-callback req)
- (ghub--req-errorback req))
- (url-retrieve url handler (list req) silent)
- ;; When this function has already been called, then it is a
- ;; no-op. Otherwise it sets `url-registered-auth-schemes' among
- ;; other things. If we didn't ensure that it has been run, then
- ;; `url-retrieve-synchronously' would do it, which would cause
- ;; the value that we let-bind below to be overwritten, and the
- ;; "default" value to be lost outside the let-binding.
- (url-do-setup)
- (with-current-buffer
- (let ((url-registered-auth-schemes
- '(("basic" ghub--basic-auth-errorback . 10))))
- (url-retrieve-synchronously url silent))
- (funcall handler (car url-callback-arguments) req)))))
-
-(defun ghub--handle-response (status req)
- (let ((buffer (current-buffer)))
- (unwind-protect
- (progn
- (set-buffer-multibyte t)
- (let* ((unpaginate (ghub--req-unpaginate req))
- (headers (ghub--handle-response-headers status req))
- (payload (ghub--handle-response-payload req))
- (payload (ghub--handle-response-error status payload req))
- (value (ghub--handle-response-value payload req))
- (next (cdr (assq 'next (ghub-response-link-relations
- req headers payload)))))
- (when (numberp unpaginate)
- (cl-decf unpaginate))
- (setf (ghub--req-url req)
- (url-generic-parse-url next))
- (setf (ghub--req-unpaginate req) unpaginate)
- (or (and next
- unpaginate
- (or (eq unpaginate t)
- (> unpaginate 0))
- (ghub-continue req))
- (let ((callback (ghub--req-callback req))
- (errorback (ghub--req-errorback req))
- (err (plist-get status :error)))
- (cond ((and err errorback)
- (funcall errorback err headers status req))
- (callback
- (funcall callback value headers status req))
- (t value))))))
- (when (buffer-live-p buffer)
- (kill-buffer buffer)))))
-
-(defun ghub--handle-response-headers (status req)
- (goto-char (point-min))
- (forward-line 1)
- (let (headers)
- (while (re-search-forward "^\\([^:]*\\): \\(.+\\)"
- url-http-end-of-headers t)
- (push (cons (match-string 1)
- (match-string 2))
- headers))
- (setq headers (nreverse headers))
- (unless url-http-end-of-headers
- (error "BUG: missing headers %s" (plist-get status :error)))
- (goto-char (1+ url-http-end-of-headers))
- (if (and req (or (ghub--req-callback req)
- (ghub--req-errorback req)))
- (setq-local ghub-response-headers headers)
- (setq-default ghub-response-headers headers))
- headers))
-
-(defun ghub--handle-response-error (status payload req)
- (let ((noerror (ghub--req-noerror req))
- (err (plist-get status :error)))
- (if err
- (if noerror
- (if (eq noerror 'return)
- payload
- (setcdr (last err) (list payload))
- nil)
- (ghub--signal-error err payload))
- payload)))
-
-(defun ghub--signal-error (err &optional payload)
- (pcase-let ((`(,symb . ,data) err))
- (if (eq symb 'error)
- (if (eq (car-safe data) 'http)
- (signal 'ghub-http-error
- (let ((code (car (cdr-safe data))))
- (list code
- (nth 2 (assq code url-http-codes))
- payload)))
- (signal 'ghub-error data))
- (signal symb data))))
-
-(defun ghub--handle-response-value (payload req)
- (setf (ghub--req-value req)
- (nconc (ghub--req-value req)
- (if-let ((nested (and (eq (ghub--req-forge req) 'bitbucket)
- (assq 'values payload))))
- (cdr nested)
- payload))))
-
-(defun ghub--handle-response-payload (req)
- (funcall (or (ghub--req-reader req)
- 'ghub--read-json-payload)
- url-http-response-status))
-
-(defun ghub--read-json-payload (_status)
- (let ((raw (ghub--decode-payload)))
- (and raw
- (condition-case nil
- (let ((json-object-type 'alist)
- (json-array-type 'list)
- (json-key-type 'symbol)
- (json-false nil)
- (json-null nil))
- (json-read-from-string raw))
- (json-readtable-error
- `((message
- . ,(if (looking-at "<!DOCTYPE html>")
- (if (re-search-forward
- "<p>\\(?:<strong>\\)?\\([^<]+\\)" nil t)
- (match-string 1)
- "error description missing")
- (string-trim (buffer-substring (point) (point-max)))))
- (documentation_url
- . "https://github.com/magit/ghub/wiki/Github-Errors")))))))
-
-(defun ghub--decode-payload (&optional _status)
- (and (not (eobp))
- (decode-coding-string
- (buffer-substring-no-properties (point) (point-max))
- 'utf-8)))
-
-(defun ghub--encode-payload (payload)
- (and payload
- (progn
- (unless (stringp payload)
- (setq payload (json-encode-list payload)))
- (encode-coding-string payload 'utf-8))))
-
-(defun ghub--url-encode-params (params)
- (mapconcat (lambda (param)
- (pcase-let ((`(,key . ,val) param))
- (concat (url-hexify-string (symbol-name key)) "="
- (if (integerp val)
- (number-to-string val)
- (url-hexify-string val)))))
- params "&"))
-
-;;; Authentication
-;;;; API
-
-;;;###autoload
-(defun ghub-create-token (host username package scopes)
- "Create, store and return a new token.
-
-HOST is the Github instance, usually \"api.github.com\".
-USERNAME is the name of a user on that instance.
-PACKAGE is the package that will use the token.
-SCOPES are the scopes the token is given access to."
- (interactive
- (pcase-let ((`(,host ,username ,package)
- (ghub--read-triplet)))
- (list host username package
- (split-string
- (read-string
- "Scopes (separated by commas): "
- (mapconcat #'symbol-name
- (symbol-value
- (intern (format "%s-github-token-scopes" package)))
- ","))
- "," t "[\s\t]+"))))
- (let ((user (ghub--ident username package)))
- (cl-destructuring-bind (save token)
- (ghub--auth-source-get (list :save-function :secret)
- :create t :host host :user user
- :secret
- (cdr (assq 'token
- (ghub-post
- "/authorizations"
- `((scopes . ,scopes)
- (note . ,(ghub--ident-github package)))
- :username username :auth 'basic :host host))))
- ;; Build-in back-ends return a function that does the actual
- ;; saving, while for some third-party back-ends ":create t"
- ;; is enough.
- (when (functionp save)
- (funcall save))
- ;; If the Auth-Source cache contains the information that there
- ;; is no value, then setting the value does not invalidate that
- ;; now incorrect information.
- (auth-source-forget (list :host host :user user))
- token)))
-
-;;;###autoload
-(defun ghub-token-scopes (host username package)
- "Return and echo the scopes of the specified token.
-This is intended for debugging purposes only. The user
-has to provide several values including their password."
- (interactive (ghub--read-triplet))
- (let ((scopes
- (cdr (assq 'scopes (ghub--get-token-plist host username package)))))
- (when (called-interactively-p 'any)
- ;; Also show the input values to make it easy for package
- ;; authors to verify that the user has done it correctly.
- (message "Scopes for %s@%s: %S"
- (ghub--ident username package)
- host scopes))
- scopes))
-
-;;;###autoload
-(defun ghub-clear-caches ()
- "Clear all caches that might negatively affect Ghub.
-
-If a library that is used by Ghub caches incorrect information
-such as a mistyped password, then that can prevent Ghub from
-asking the user for the correct information again.
-
-Set `url-http-real-basic-auth-storage' to nil
-and call `auth-source-forget+'."
- (interactive)
- (setq url-http-real-basic-auth-storage nil)
- (auth-source-forget+))
-
-;;;; Internal
-
-(defun ghub--headers (headers host auth username forge)
- (push (cons "Content-Type" "application/json") headers)
- (if (eq auth 'none)
- headers
- (unless (or username (stringp auth))
- (setq username (ghub--username host forge)))
- (lambda ()
- (if (eq auth 'basic)
- (cons (cons "Authorization" (ghub--basic-auth host username))
- headers)
- (cons (ghub--auth host auth username forge) headers)))))
-
-(defun ghub--auth (host auth &optional username forge)
- (unless username
- (setq username (ghub--username host)))
- (if (eq auth 'basic)
- (cl-ecase forge
- ((nil github gitea gogs bitbucket)
- (cons "Authorization" (ghub--basic-auth host username)))
- (gitlab
- (error "Gitlab does not support basic authentication")))
- (cons (cl-ecase forge
- ((nil github gitea gogs bitbucket)
- "Authorization")
- (gitlab
- "Private-Token"))
- (concat
- (and (not (eq forge 'gitlab)) "token ")
- (encode-coding-string
- (cl-typecase auth
- (string auth)
- (null (ghub--token host username 'ghub nil forge))
- (symbol (ghub--token host username auth nil forge))
- (t (signal 'wrong-type-argument
- `((or stringp symbolp) ,auth))))
- 'utf-8)))))
-
-(defun ghub--basic-auth (host username)
- (let ((url (url-generic-parse-url (concat "https://" host))))
- (setf (url-user url) username)
- (url-basic-auth url t)))
-
-(defun ghub--basic-auth-errorback (url &optional prompt _overwrite _realm _args)
- ;; This gets called twice. Do nothing the first time,
- ;; when PROMPT is nil. See `url-get-authentication'.
- (when prompt
- (if (assoc "X-GitHub-OTP" (ghub--handle-response-headers nil nil))
- (progn
- (setq url-http-extra-headers
- `(("Content-Type" . "application/json")
- ("X-GitHub-OTP" . ,(ghub--read-2fa-code))
- ;; Without "Content-Type" and "Authorization".
- ;; The latter gets re-added from the return value.
- ,@(cddr url-http-extra-headers)))
- ;; Return the cached values, they are correct.
- (url-basic-auth url nil nil nil))
- ;; Remove the invalid cached values and fail, which
- ;; is better than the invalid values sticking around.
- (setq url-http-real-basic-auth-storage
- (cl-delete (format "%s:%d" (url-host url) (url-port url))
- url-http-real-basic-auth-storage
- :test #'equal :key #'car))
- nil)))
-
-(defun ghub--token (host username package &optional nocreate forge)
- (let* ((user (ghub--ident username package))
- (token
- (or (car (ghub--auth-source-get (list :secret)
- :host host :user user))
- (progn
- ;; Auth-Source caches the information that there is no
- ;; value, but in our case that is a situation that needs
- ;; fixing so we want to keep trying by invalidating that
- ;; information.
- ;; The (:max 1) is needed and has to be placed at the
- ;; end for Emacs releases before 26.1. See #24, #64.
- (auth-source-forget (list :host host :user user :max 1))
- (and (not nocreate)
- (cl-ecase forge
- ((nil github)
- (ghub--confirm-create-token host username package))
- ((gitlab gitea gogs bitbucket)
- (error "Required %s token (%S for %S) does not exist.
-See https://magit.vc/manual/ghub/Support-for-Other-Forges.html for instructions."
- (capitalize (symbol-name forge))
- user host))))))))
- (if (functionp token) (funcall token) token)))
-
-(defun ghub--host (&optional forge)
- (cl-ecase forge
- ((nil github)
- (or (ignore-errors (car (process-lines "git" "config" "github.host")))
- ghub-default-host))
- (gitlab
- (or (ignore-errors (car (process-lines "git" "config" "gitlab.host")))
- (bound-and-true-p glab-default-host)))
- (gitea
- (or (ignore-errors (car (process-lines "git" "config" "gitea.host")))
- (bound-and-true-p gtea-default-host)))
- (gogs
- (or (ignore-errors (car (process-lines "git" "config" "gogs.host")))
- (bound-and-true-p gogs-default-host)))
- (bitbucket
- (or (ignore-errors (car (process-lines "git" "config" "bitbucket.host")))
- (bound-and-true-p buck-default-host)))))
-
-(defun ghub--username (host &optional forge)
- (let ((var
- (cl-ecase forge
- ((nil github)
- (if (equal host ghub-default-host)
- "github.user"
- (format "github.%s.user" host)))
- (gitlab
- (if (equal host "gitlab.com/api/v4")
- "gitlab.user"
- (format "gitlab.%s.user" host)))
- (bitbucket
- (if (equal host "api.bitbucket.org/2.0")
- "bitbucket.user"
- (format "bitbucket.%s.user" host)))
- (gitea
- (when (zerop (call-process "git" nil nil nil "config" "gitea.host"))
- (error "gitea.host is set but always ignored"))
- (format "gitea.%s.user" host))
- (gogs
- (when (zerop (call-process "git" nil nil nil "config" "gogs.host"))
- (error "gogs.host is set but always ignored"))
- (format "gogs.%s.user" host)))))
- (condition-case nil
- (car (process-lines "git" "config" var))
- (error
- (let ((user (read-string
- (format "Git variable `%s' is unset. Set to: " var))))
- (or (and user (progn (call-process "git" nil nil nil
- "config" "--global" var user)
- user))
- (user-error "Abort")))))))
-
-(defun ghub--ident (username package)
- (format "%s^%s" username package))
-
-(defun ghub--ident-github (package)
- (format "Emacs package %s @ %s"
- package
- (or ghub-override-system-name (system-name))))
-
-(defun ghub--package-scopes (package)
- (let ((var (intern (format "%s-github-token-scopes" package))))
- (if (boundp var)
- (symbol-value var)
- (error "%s fails to define %s" package var))))
-
-(defun ghub--confirm-create-token (host username package)
- (let* ((ident (ghub--ident-github package))
- (scopes (ghub--package-scopes package))
- (max-mini-window-height 40))
- (if (let ((message-log-max nil))
- (yes-or-no-p
- (format
- "Such a Github API token is not available:
-
- Host: %s
- User: %s
- Package: %s
-
- Scopes requested in `%s-github-token-scopes':\n%s
- Store on Github as:\n %S
- Store locally according to option `auth-sources':\n %S
-%s
-If in doubt, then abort and first view the section of
-the Ghub documentation called \"Interactively Creating
-and Storing a Token\".
-
-Otherwise confirm and then provide your Github username and
-password at the next two prompts. Depending on the backend
-you might have to provide a passphrase and confirm that you
-really want to save the token.
-
-Create and store such a token? "
- host username package package
- (mapconcat (lambda (scope) (format " %s" scope)) scopes "\n")
- ident auth-sources
- (if (and (stringp (car auth-sources))
- (not (string-suffix-p ".gpg" (car auth-sources))))
- (format "
-WARNING: The token will be stored unencrypted in %S.
- If you don't want that, you have to abort and customize
- the `auth-sources' option.\n" (car auth-sources))
- ""))))
- (condition-case ghub--create-token-error
- ;; Naively attempt to create the token since the user told us to
- (ghub-create-token host username package scopes)
- ;; The API _may_ respond with the fact that a token of the name
- ;; we wanted already exists. At this point we're out of luck. We
- ;; don't have a token (otherwise why would we be here?) and, if
- ;; the user is using SMS 2FA, we have no way of telling GitHub
- ;; to send a new 2FA code to the user other than sending a POST
- ;; to /authorizations which is ugly.
- ;;
- ;; If they are not using SMS 2FA then we could try to delete the
- ;; existing token (which will require them to hand us another
- ;; OTP for the delete request) and then call create again,
- ;; possibly requiring _another_ OTP if they don't do things fast
- ;; enough, but this is only because non-SMS 2FA doesn't require
- ;; any action on GitHub's part.
- ;;
- ;; GitHub does hand us a header that indicates what type of 2FA
- ;; is in use, but it's not currently available in this location
- ;; and would make the following code which is already quite
- ;; complicated even more complicated. So in the interest of
- ;; simplicity it's better to error out here and ask the user to
- ;; take action. This situation should almost never arise anyway.
- (ghub-http-error
- (if (string-equal (let-alist (nth 3 ghub--create-token-error)
- (car .errors.code))
- "already_exists")
- (error "\
-A token named %S already exists on Github. \
-Please visit https://github.com/settings/tokens and delete it." ident))))
- (user-error "Abort"))))
-
-(defun ghub--get-token-id (host username package)
- (let ((ident (ghub--ident-github package)))
- (cl-some (lambda (x)
- (let-alist x
- (and (equal .app.name ident) .id)))
- (ghub-get "/authorizations"
- '((per_page . 100))
- :unpaginate t
- :username username :auth 'basic :host host))))
-
-(defun ghub--get-token-plist (host username package)
- (ghub-get (format "/authorizations/%s"
- (ghub--get-token-id host username package))
- nil :username username :auth 'basic :host host))
-
-(defun ghub--delete-token (host username package)
- (ghub-delete (format "/authorizations/%s"
- (ghub--get-token-id host username package))
- nil :username username :auth 'basic :host host))
-
-(defun ghub--read-triplet ()
- (let ((host (read-string "Host: " (ghub--host))))
- (list host
- (read-string "Username: " (ghub--username host))
- (intern (read-string "Package: " "ghub")))))
-
-(defvar ghub--2fa-cache nil)
-
-(defun ghub--read-2fa-code ()
- (let ((code (read-number "Two-factor authentication code: "
- (and ghub--2fa-cache
- (< (float-time (time-subtract
- (current-time)
- (cdr ghub--2fa-cache)))
- 25)
- (car ghub--2fa-cache)))))
- (setq ghub--2fa-cache (cons code (current-time)))
- (number-to-string code)))
-
-(defun ghub--auth-source-get (keys &rest spec)
- (declare (indent 1))
- (let ((plist (car (apply #'auth-source-search
- (append spec (list :max 1))))))
- (mapcar (lambda (k)
- (plist-get plist k))
- keys)))
-
-(advice-add 'auth-source-netrc-parse-next-interesting :around
- 'auth-source-netrc-parse-next-interesting@save-match-data)
-(defun auth-source-netrc-parse-next-interesting@save-match-data (fn)
- "Save match-data for the benefit of caller `auth-source-netrc-parse-one'.
-Without wrapping this function in `save-match-data' the caller
-won't see the secret from a line that is followed by a commented
-line."
- (save-match-data (funcall fn)))
-
-;;; _
-(provide 'ghub)
-(require 'ghub-graphql)
-;;; ghub.el ends here
diff --git a/elpa/ghub-20181112.1755/ghub.elc b/elpa/ghub-20181112.1755/ghub.elc
deleted file mode 100644
index 9fabe59..0000000
--- a/elpa/ghub-20181112.1755/ghub.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/ghub-20181112.1755/ghub.info b/elpa/ghub-20181112.1755/ghub.info
deleted file mode 100644
index bc69c66..0000000
--- a/elpa/ghub-20181112.1755/ghub.info
+++ /dev/null
@@ -1,1312 +0,0 @@
-This is ghub.info, produced by makeinfo version 6.5 from ghub.texi.
-
- Copyright (C) 2017-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-
-INFO-DIR-SECTION Emacs
-START-INFO-DIR-ENTRY
-* Ghub: (ghub). Minuscule client library for the Github API.
-END-INFO-DIR-ENTRY
-
-
-File: ghub.info, Node: Top, Next: Introduction, Up: (dir)
-
-Ghub User and Developer Manual
-******************************
-
-Ghub provides basic support for using the APIs of various Git forges
-from Emacs packages. Originally it only supported the Github REST API,
-but now it also supports the Github GraphQL API as well as the REST APIs
-of Gitlab, Gitea, Gogs and Bitbucket.
-
- Ghub abstracts access to API resources using only a handful of basic
-functions such as ‘ghub-get‘. These are convenience wrappers around
-‘ghub-request‘. Additional forge-specific wrappers like ‘glab-put‘,
-‘gtea-put‘, ‘gogs-post‘ and ‘buck-delete‘ are also available. Ghub does
-not provide any resource-specific functions, with the exception of
-‘FORGE-repository-id‘.
-
- When accessing Github, then Ghub handles the creation and storage of
-access tokens using a setup wizard to make it easier for users to get
-started. The tokens for other forges have to be created manually.
-
- Ghub is intentionally limited to only provide these two essential
-features — basic request functions and guided setup — to avoid being too
-opinionated, which would hinder wide adoption. It is assumed that wide
-adoption would make life easier for users and maintainers alike, because
-then all packages that talk to forge APIs could be configured the same
-way.
-
-This manual is for Ghub version 3.0.0 (v3.0.0-5-g86a17df+1).
-
- Copyright (C) 2017-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-
-* Menu:
-
-* Introduction::
-* Getting Started::
-* Using Ghub in Personal Scripts::
-* Using Ghub in a Package::
-* API::
-* GraphQL Support::
-* Support for Other Forges::
-
-— The Detailed Node Listing —
-
-Getting Started
-
-* Setting the Username::
-* Interactively Creating and Storing a Token::
-* Manually Creating and Storing a Token::
-* How Ghub uses Auth-Source::
-
-API
-
-* Making Requests::
-* Authentication::
-* Configuration Variables::
-
-Support for Other Forges
-
-* Forge Functions and Variables::
-* Forge Limitations and Notes::
-
-
-
-File: ghub.info, Node: Introduction, Next: Getting Started, Prev: Top, Up: Top
-
-1 Introduction
-**************
-
-Ghub provides basic support for using the APIs of various Git forges
-from Emacs packages. Originally it only supported the Github REST API,
-but now it also supports the Github GraphQL API as well as the REST APIs
-of Gitlab, Gitea, Gogs and Bitbucket.
-
- Ghub abstracts access to API resources using only a handful of basic
-functions such as ‘ghub-get‘. These are convenience wrappers around
-‘ghub-request‘. Additional forge-specific wrappers like ‘glab-put‘,
-‘gtea-put‘, ‘gogs-post‘ and ‘buck-delete‘ are also available. Ghub does
-not provide any resource-specific functions, with the exception of
-‘FORGE-repository-id‘.
-
- When accessing Github, then Ghub handles the creation and storage of
-access tokens using a setup wizard to make it easier for users to get
-started. The tokens for other forges have to be created manually.
-
- Ghub is intentionally limited to only provide these two essential
-features — basic request functions and guided setup — to avoid being too
-opinionated, which would hinder wide adoption. It is assumed that wide
-adoption would make life easier for users and maintainers alike, because
-then all packages that talk to forge APIs could be configured the same
-way.
-
- Fancier interfaces can be implemented on top of Ghub, and one such
-wrapper — named simply Ghub+ — has already been implemented. The
-benefit of basing various opinionated interfaces on top of a single
-library that provides only the core functionality is that choosing the
-programming interface no longer dictates how access tokens are handled.
-Users can then use multiple packages that access the Github API without
-having to learn the various incompatible ways packages expect the
-appropriate token to be made available to them.
-
- Ghub uses the built-in ‘auth-source’ library to store access tokens.
-That library is very flexible and supports multiple backends, which
-means that it is up to the user how secrets are stored. They can, among
-other things, choose between storing secrets in plain text for ease of
-use, or encrypted for better security.
-
- Previously (as in until this library is widely adopted) it was up to
-package authors to decide if things should be easy or secure. (Note
-that ‘auth-source’ defaults to "easy" — you have been warned.)
-
- Ghub expects package authors to use a dedicated access token instead
-of sharing a single token between all packages that rely on it. That
-means that users cannot configure Ghub once and later start using a new
-package without any additional setup. But Ghub helps with that.
-
- When the user invokes some command that ultimately results in
-‘ghub-request’ being called and the appropriate token is not available
-yet, then the user is guided through the process of creating and storing
-a new token, and at the end of that process the request is carried out
-as if the token had been available to begin with.
-
-
-File: ghub.info, Node: Getting Started, Next: Using Ghub in Personal Scripts, Prev: Introduction, Up: Top
-
-2 Getting Started
-*****************
-
-Each package that uses Ghub uses its own token. Despite that, chances
-are good that after successfully configuring one package you can just
-start using another package pretty much instantly.
-
- If the necessary token to access a Github instance is not available
-when a package makes an API request, then a setup wizard pops up, and
-after answering a few questions you are good to go. Even the request
-that caused the wizard to be summoned should succeed and for most users
-this should be true even when configuring the very first token.
-
- However, in some situations some manual configuration is necessary
-*before* using the wizard, or the wizard cannot be used at all:
-
- • If you don’t want to use the wizard then you don’t have to and can
- create tokens manually as described in *note Manually Creating and
- Storing a Token::.
-
- • Unfortunately only Github supports the creation of tokens by using
- the API. If you want to access another forge, then you have to
- create the token manually as describe in *note Manually Creating
- and Storing a Token::. Also see *note Support for Other Forges::.
-
- • If you want to access a Github Enterprise instance, then you have
- to tell Ghub about that before the wizard makes its appearance by
- setting the Git variable ‘github.host’. You also have to tell Ghub
- your username for that instance using the variable
- ‘github.HOST.user’ even if it is the same as on Github.com.
-
- These variables are documented in *note Configuration Variables::.
- Also see *note Setting the Username::. TL;DR: If your Github
- Enterprise instance is hosted at ‘git.example.com’ and your
- username on that instance is ‘jtribbiani’, then set ‘github.host’
- to ‘git.example.com/api/v3’ in every repository cloned from that
- instance (i.e. _do not_ set it globally) and _globally_ set
- ‘github.git.example.com/api/v3.user’ to ‘jtribbiani’. The latter
- is necessary even if your username on Github.com is the same.
-
- • If the variable ‘github.user’ (or ‘github.HOST.user’ for an
- Enterprise instance) is unset when the wizard is first summoned,
- then you are asked to provide your username. That value is then
- stored *globally* to avoid having to ask you that question once per
- repository. If you have multiple accounts on Github.com (or a
- Github Enterprise instance), then you have to explicitly tell Ghub
- about that. This can be done by setting the repository-local
- values of the appropriate variable *before* the wizard is invoked.
-
- • You might forget to do the above, which is why it is important to
- carefully read the output of the wizard. If it turns out that you
- forgot to set a variable, then you must abort, set the variable,
- and repeat the request to trigger the wizard again.
-
- • The setup wizard should work even if you have enabled two-factor
- authentication. However if your Github Enterprise instance
- enforces Single Sign-On as an additional security measure, then you
- are out of luck and have to create the token manually as described
- in *note Manually Creating and Storing a Token::.
-
- The variables mentioned above — and others — are documented in *note
-Configuration Variables:: and the setup wizard is documented in *note
-Interactively Creating and Storing a Token::.
-
-* Menu:
-
-* Setting the Username::
-* Interactively Creating and Storing a Token::
-* Manually Creating and Storing a Token::
-* How Ghub uses Auth-Source::
-
-
-File: ghub.info, Node: Setting the Username, Next: Interactively Creating and Storing a Token, Up: Getting Started
-
-2.1 Setting the Username
-========================
-
-If you haven’t set the Git variable ‘github.user’ yet when making a
-request, then you will be asked:
-
- Git variable `github.user' is unset. Set to:
-
- You are expected to provide your Github username here. The provided
-value will be saved globally (using ‘git config --global github.user
-USERNAME’).
-
- If you need to identify as another user in a particular repository,
-then you have to set that variable locally, *before* making a request:
-
- cd /path/to/repo
- git config github.user USERNAME
-
- For Github Enterprise instances you have to specify where the API can
-be accessed *before* you try to access it and a different variable has
-to be used to set the username. For example if the API is available at
-‘https://example.com/api/v3’, then you should do this:
-
- # Do this once
- git config --global github.example.com/api/v3.user EMPLOYEE
-
- # Do this for every corporate repository
- cd /path/to/repo
- git config github.host example.com/api/v3
-
- If you do not set ‘github.example.com/api/v3.user’, then you will be
-asked to provide the value when trying to make a request, but you do
-have to manually set ‘github.host’, or Ghub assumes that you are trying
-to access ‘api.github.com’.
-
-
-File: ghub.info, Node: Interactively Creating and Storing a Token, Next: Manually Creating and Storing a Token, Prev: Setting the Username, Up: Getting Started
-
-2.2 Interactively Creating and Storing a Token
-==============================================
-
-Ghub uses a different token for every package as well as for every
-machine from which you access the Github API (and obviously also for
-every Github instance and user). This allows packages to only request
-the scopes that they actually need and also gives users the opportunity
-to refuse access to certain scopes if they expect to not use the
-features that need them.
-
- Usually you don’t have to worry about creating and storing a token
-yourself and can just make a request. Note however that you don’t have
-to use the setup wizard described below. Alternatively you can perform
-the setup manually as described in the next section.
-
- If you make a request and the required token is not available yet,
-then the setup wizard will first ask you something like this:
-
- Such a Github API token is not available:
-
- Host: api.github.com
- User: USERNAME
- Package: PACKAGE
-
- Scopes requested in `PACKAGE-github-token-scopes':
- repo
- Store on Github as:
- "Emacs package PACKAGE @ LOCAL-MACHINE"
- Store locally according to option `auth-sources':
- ("~/.authinfo" "~/.authinfo.gpg" "~/.netrc")
-
- If in doubt, then abort and first view the section of
- the Ghub documentation called "Interactively Creating
- and Storing a Token".
-
- Create and store such a token? (yes or no)
-
- If you don’t have any doubts, then answer "yes". Lets address some
-of the doubts that you might have:
-
- • ‘Host’ usually is "api.github.com" and that is usually what you
- want. If you are trying to access a Github Enterprise instance,
- then it should be something else and you have to set the value
- manually before the setup wizard is summoned, as described in the
- parent section.
-
- • ‘User’ should be your Github.com (or Github Enterprise instance)
- username. If it is something else and it doesn’t look like a
- simple typo, then you should read the parent section again. In
- either case you have to abort.
-
- • ‘Package’ should be the name of the package you are using to access
- the Github API.
-
- If it is ‘ghub’, then the package author disregarded that
- convention and you should probably report a bug in the issue
- tracker of that package.
-
- Or you yourself are using ‘ghub-request’ or one of its wrappers
- directly, in which case this is expected and perfectly fine. In
- that case you might however want to abort and change the value of
- the variable ‘ghub-github-token-scopes’ before triggering the
- wizard again.
-
- • Each ‘PACKAGE’ has to specify the tokens that it needs using a
- variable named ‘PACKAGE-github-token-scopes’. The doc-string of
- that variable should document why the various scopes are needed.
-
- The meaning of the various scopes are documented at
- <https://magit.vc/goto/f63aeb0a>.
-
- • The value of ‘auth-sources’ is shown. The default value causes
- secrets to be stored in plain text. Because this might be
- unexpected, Ghub additionally displays a warning when appropriate.
-
- WARNING: The token will be stored unencrypted in "~/.authinfo".
- If you don't want that, you have to abort and customize
- the `auth-sources' option.
-
- Whether that is something that needs fixing, is up to you. If your
- answer is yes, then you should abort and see *note How Ghub uses
- Auth-Source:: for instructions on how to save the token more
- securely.
-
- • When creating a token it is necessary to provide a token
- description. Ghub uses descriptions that have the form "Emacs
- package PACKAGE @ LOCAL-MACHINE".
-
- Github uses the token description to identify the token, not merely
- as something useful to humans. Token descriptions therefore have
- to be unique and in rare cases you get an additional prompt, asking
- you something like:
-
- A token named "Emacs package PACKAGE @ LOCAL-MACHINE"
- already exists on Github. Replace it?
-
- You might see this message when you have lost the old token and
- want to replace it with a new one, in which case you should
- obviously just proceed.
-
- Or two of your computers have the same hostname, which is bad
- practice because it gains you nothing but leads to issues such as
- this. Or you are dual-booting on this machine and use the same
- hostname in all operating systems, which is a somewhat reasonable
- thing to do, but never-the-less leads to issues like this.
-
- In either case you will have to use something other than the value
- returned by ‘system-name’ to identify the current machine or
- operating system. Or you can continue to identify different things
- using the same identifier, in which case you have to manually
- distribute the token.
-
- The former is recommended and also easier to do, using the variable
- ‘ghub-override-system-name’. See *note Configuration Variables::
- for details.
-
- After the above prompt you are also asked for your username and
-password. If you have enabled two-factor authentication, then you also
-have to provide the authentication code at least twice. If you make
-sure the code is still good for a while when asked for it first, then
-you can just press ‘RET’ at the later prompt(s).
-
-
-File: ghub.info, Node: Manually Creating and Storing a Token, Next: How Ghub uses Auth-Source, Prev: Interactively Creating and Storing a Token, Up: Getting Started
-
-2.3 Manually Creating and Storing a Token
-=========================================
-
-If you cannot or don’t want to use the wizard then you have to (1)
-figure out what scopes a package wants, (2) create such a token using
-the web interface and (3) store the token where Ghub expects to find it.
-
- A package named ‘PACKAGE’ has to specify the scopes that it wants in
-the variable named ‘PACKAGE-ghub-token-scopes’. The doc-string of such
-variables should document what the various scopes are needed for.
-
- To create or edit a token go to <https://github.com/settings/tokens>.
-For Gitlab.com use <https://gitlab.com/profile/personal_access_tokens>.
-
- Finally store the token in a place where Ghub looks for it, as
-described in *note How Ghub uses Auth-Source::.
-
- If you store the token in a file like ‘~/.authinfo’, then note that
-‘auth-source’’s parsing of that file is brittle. Make sure the file
-ends with a newline character, that there are no empty or invalid lines,
-and that all comments are prefixed with ‘#’.
-
-
-File: ghub.info, Node: How Ghub uses Auth-Source, Prev: Manually Creating and Storing a Token, Up: Getting Started
-
-2.4 How Ghub uses Auth-Source
-=============================
-
-Please see *note (auth)Top:: for all the gory details about Auth-Source.
-Some Ghub-specific information and important notes follow.
-
- The variable ‘auth-sources’ controls how and where Auth-Source stores
-new secrets and where it looks for known secrets. The default value is
-‘("~/.authinfo" "~/.authinfo.gpg" "~/.netrc")’, which means that it
-looks in all of these files in order to find secrets and that it stores
-new secrets in ‘~/.authinfo’ because that is the first element of the
-list. It doesn’t matter which files already do or don’t exist when
-storing a new secret, the first file is always used.
-
- Secrets are stored in ‘~/.authinfo’ in plain text. If you don’t want
-that (good choice), then you have to customize ‘auth-sources’, e.g. by
-flipping the positions of the first two elements.
-
- Auth-Source also supports storing secrets in various key-chains.
-Refer to its documentation for more information.
-
- Some Auth-Source backends only support storing three values per
-entry, the "machine", the "login" and the "password". Because Ghub uses
-separate tokens for each package, it has to squeeze four values into
-those three slots, and it does that by using "USERNAME^PACKAGE" as the
-"login".
-
- Assuming your username is "ziggy",the package is named "stardust",
-and you want to access *Github.com* an entry in one of the three
-mentioned files would then look like this:
-
- machine api.github.com login ziggy^stardust password 012345abcdef...
-
- Assuming your username is "ziggy",the package is named "stardust",
-and you want to access *Gitlab.com* an entry in one of the three
-mentioned files would then look like this:
-
- machine gitlab.com/api/v4 login ziggy^stardust password 012345abcdef...
-
-
-File: ghub.info, Node: Using Ghub in Personal Scripts, Next: Using Ghub in a Package, Prev: Getting Started, Up: Top
-
-3 Using Ghub in Personal Scripts
-********************************
-
-You can use ‘ghub-request’ and its wrapper functions in your personal
-scripts, of course. Unlike when you use Ghub from a package that you
-distribute for others to use, you don’t have to specify a package in
-personal scripts.
-
- ;; This is perfectly acceptable in personal scripts ...
- (ghub-get "/user")
-
- ;; ... and actually equal to
- (ghub-get "/user" nil :auth 'ghub)
-
- ;; In packages you have to specify the package using AUTH.
- (ghub-get "/user" nil :auth 'foobar)
-
- When you do not specify the ‘AUTH’ argument, then a request is made
-on behalf of the ‘ghub’ package itself. Like for any package that uses
-Ghub, ‘ghub’ has to declare what scopes it needs, using, in this case,
-the variable ‘ghub-github-token-scopes’.
-
- The default value of that variable is ‘(repo)’ and you might want to
-add additional scopes. You can later add additional scopes to an
-existing token, using the web interface at
-<https://github.com/settings/tokens>.
-
- If you do that, then you might want to also set the variable
-accordingly, but note that Ghub only consults that when *creating* a new
-token. If you want to know a token’s effective scopes use the command
-‘ghub-token-scopes’, described in the next section.
-
-
-File: ghub.info, Node: Using Ghub in a Package, Next: API, Prev: Using Ghub in Personal Scripts, Up: Top
-
-4 Using Ghub in a Package
-*************************
-
-Every package should use its own token. This allows you as the author
-of some package to only request access to API scopes that are actually
-needed, which in turn might make it easier for users to trust your
-package not to do unwanted things.
-
- The scopes used by ‘PACKAGE’ have to be defined using the variable
-‘PACKAGE-github-token-scopes’, and you have to tell ‘ghub-request’ on
-behalf of which package a request is being made by passing the symbol
-‘PACKAGE’ as the value of its ‘AUTH’ argument.
-
- (ghub-request "GET" "/user" nil :auth 'PACKAGE)
-
- -- Variable: PACKAGE-github-token-scopes
-
- This variable defines the token scopes requested by the package
- named ‘PACKAGE’. The doc-string should explain what the various
- scopes are needed for to prevent users from giving ‘PACKAGE’ fewer
- permissions than it absolutely needs and also to give them greater
- confidence that ‘PACKAGE’ is only requesting the permissions that
- it actually needs.
-
- The value of this variable does not necessarily correspond to the
- scopes that the respective token actually gives access to. There
- is nothing that prevents users from changing the value *after*
- creating the token or from editing the token’s scopes later on.
-
- So it is pointless to check the value of this variable before
- making a request. You also should not query the API to reliably
- determine the supported tokens before making a query. Doing the
- latter would mean that every request becomes two requests and that
- the first request would have to be done using the user’s password
- instead of a token.
-
- -- Command: ghub-token-scopes
-
- Because we cannot be certain that the user hasn’t messed up the
- scopes, Ghub provides this command to make it easy to debug such
- issues without having to rely on users being thoughtful enough to
- correctly determine the used scopes manually.
-
- Just tell users to run ‘M-x ghub-token-scopes’ and to provide the
- correct values for the ‘HOST’, ‘USERNAME’ and ‘PACKAGE’ when
- prompted, and to then post the output.
-
- It is to be expected that users will occasionally mess that up so
- this command outputs not only the scopes but also the user input so
- that you can have greater confidence in the validity of the user’s
- answer.
-
- Scopes for USERNAME^PACKAGE@HOST: (SCOPE...)
-
-
-File: ghub.info, Node: API, Next: GraphQL Support, Prev: Using Ghub in a Package, Up: Top
-
-5 API
-*****
-
-This section describes the Ghub API. In other words it describes the
-public functions and variables provided by the Ghub package and not the
-APIs of the supported forges, which can be accessed by using those
-functions. The forge APIs are documented at:
-
- • Github: <https://developer.github.com/v3>
-
- • Gitlab: <https://docs.gitlab.com/ee/api/README.html>
-
- • Gitea: <https://docs.gitea.io/en-us/api-usage> and
- <https://try.gitea.io/api/swagger>
-
- • Gogs: <https://github.com/gogs/go-gogs-client/wiki>
-
- • Bitbucket:
- <https://developer.atlassian.com/bitbucket/api/2/reference>
-
-* Menu:
-
-* Making Requests::
-* Authentication::
-* Configuration Variables::
-
-
-File: ghub.info, Node: Making Requests, Next: Authentication, Up: API
-
-5.1 Making Requests
-===================
-
- -- Function: ghub-request method resource &optional params &key query
- payload headers unpaginate noerror reader username auth host
- callback errorback url value error extra method*
-
- This function makes a request for ‘RESOURCE’ using ‘METHOD’.
- ‘PARAMS’, ‘QUERY’, ‘PAYLOAD’ and/or ‘HEADERS’ are alists holding
- additional request data. The response body is returned and the
- response header is stored in the variable ‘ghub-response-headers’.
-
- • ‘METHOD’ is the HTTP method, given as a string.
-
- • ‘RESOURCE’ is the resource to access, given as a string
- beginning with a slash.
-
- • ‘PARAMS’, ‘QUERY’, ‘PAYLOAD’ and ‘HEADERS’ are alists and are
- used to specify request data. All these arguments are alists
- that resemble the JSON expected and returned by the Github
- API. The keys are symbols and the values stored in the ‘cdr’
- (not the ‘cadr’) can be strings, integers, or lists of strings
- and integers.
-
- The Github API documentation is vague on how data has to be
- transmitted and for a particular resource usually just talks
- about "parameters". Generally speaking when the ‘METHOD’ is
- "HEAD" or "GET", then they have to be transmitted as a query,
- otherwise as a payload.
-
- • Use ‘PARAMS’ to automatically transmit like ‘QUERY’ or
- ‘PAYLOAD’ would depending on ‘METHOD’.
-
- • Use ‘QUERY’ to explicitly transmit data as a query.
-
- • Use ‘PAYLOAD’ to explicitly transmit data as a payload.
- Instead of an alist, ‘PAYLOAD’ may also be a string, in
- which case it gets encoded as UTF-8 but is otherwise
- transmitted as-is.
-
- • Use ‘HEADERS’ for those rare resources that require that
- the data is transmitted as headers instead of as a query
- or payload. When that is the case, then the Github API
- documentation usually mentions it explicitly.
-
- • If ‘SILENT’ is non-nil, then progress reports and the like are
- not messaged.
-
- • If ‘UNPAGINATE’ is t, then this function make as many requests
- as necessary to get all values. If ‘UNPAGINATE’ is a natural
- number, then it gets at most that many pages. For any other
- non-nil value it raises an error.
-
- • If ‘NOERROR’ is non-nil, then no error is raised if the
- request fails and ‘nil’ is returned instead. If ‘NOERROR’ is
- ‘return’, then the error payload is returned instead of ‘nil’.
-
- • If ‘READER’ is non-nil, then it is used to read and return
- from the response buffer. The default is
- ‘ghub--read-json-payload’. For the very few resources that do
- not return JSON, you might want to use ‘ghub--decode-payload’.
-
- • If ‘USERNAME’ is non-nil, then the request is made on behalf
- of that user. It is better to specify the user using the Git
- variable ‘github.user’ for "api.github.com", or
- ‘github.HOST.user’ if connecting to a Github Enterprise
- instance.
-
- • Each package that uses Ghub should use its own token. If
- ‘AUTH’ is ‘nil’ or unspecified, then the generic ‘ghub’ token
- is used instead. This is only acceptable for personal
- utilities. A packages that is distributed to other users
- should always use this argument to identify itself, using a
- symbol matching its name.
-
- Package authors who find this inconvenient should write a
- wrapper around this function and possibly for the
- method-specific functions as well.
-
- Beside ‘nil’, some other symbols have a special meaning too.
- ‘none’ means to make an unauthorized request. ‘basic’ means
- to make a password based request. If the value is a string,
- then it is assumed to be a valid token. ‘basic’ and an
- explicit token string are only intended for internal and
- debugging uses.
-
- If ‘AUTH’ is a package symbol, then the scopes are specified
- using the variable ‘AUTH-github-token-scopes’. It is an error
- if that is not specified. See ‘ghub-github-token-scopes’ for
- an example.
-
- • If ‘HOST’ is non-nil, then connect to that Github instance.
- This defaults to "api.github.com". When a repository is
- connected to a Github Enterprise instance, then it is better
- to specify that using the Git variable ‘github.host’ instead
- of using this argument.
-
- • If ‘FORGE’ is ‘gitlab’, then connect to Gitlab.com or,
- depending on ‘HOST’, to another Gitlab instance. This is only
- intended for internal use. Instead of using this argument you
- should use function ‘glab-request’ and other ‘glab-*’
- functions.
-
- • If ‘CALLBACK’ and/or ‘ERRORBACK’ is non-nil, then this
- function makes one or more asynchronous requests and calls
- ‘CALLBACK’ or ‘ERRORBACK’ when finished. If an error
- occurred, then it calls ‘ERRORBACK’, or if that is ‘nil’, then
- ‘CALLBACK’. When no error occurred then it calls ‘CALLBACK’.
- When making asynchronous requests, then no errors are
- signaled, regardless of the value of ‘NOERROR’.
-
- Both callbacks are called with four arguments.
-
- • For ‘CALLBACK’, the combined value of the retrieved
- pages. For ‘ERRORBACK’, the error that occured when
- retrieving the last page.
-
- • The headers of the last page as an alist.
-
- • Status information provided by ‘url-retrieve’. Its
- ‘:error’ property holds the same information as the first
- argument to ‘ERRORBACK’.
-
- • A ‘ghub--req’ struct, which can be passed to
- ‘ghub-continue’ (which see) to retrieve the next page, if
- any.
-
- -- Function: ghub-continue args
-
- If there is a next page, then this function retrieves that.
-
- This function is only intended to be called from callbacks. If
- there is a next page, then that is retrieve and the buffer that the
- result will be loaded into is returned, or t if the process has
- already completed. If there is no next page, then return nil.
-
- Callbacks are called with four arguments (see ‘ghub-request’). The
- forth argument is a ‘ghub--req’ struct, intended to be passed to
- this function. A callback may use the struct’s ‘extra’ slot to
- pass additional information to the callback that will be called
- after the next request. Use the function ‘ghub-req-extra’ to get
- and set the value of that slot.
-
- As an example, using ‘ghub-continue’ in a callback like so:
-
- (ghub-get "/users/tarsius/repos" nil
- :callback (lambda (value _headers _status req)
- (unless (ghub-continue req)
- (setq my-value value))))
-
- is equivalent to:
-
- (ghub-get "/users/tarsius/repos" nil
- :unpaginate t
- :callback (lambda (value _headers _status _req)
- (setq my-value value)))
-
- To demonstrate how to pass information from one callback to the
- next, here we record when we start fetching each page:
-
- (ghub-get "/users/tarsius/repos" nil
- :extra (list (current-time))
- :callback (lambda (value _headers _status req)
- (push (current-time) (ghub-req-extra req))
- (unless (ghub-continue req)
- (setq my-times (ghub-req-extra req))
- (setq my-value value))))
-
- -- Variable: ghub-response-headers
-
- A select few Github API resources respond by transmitting data in
- the response header instead of in the response body. Because there
- are so few of these inconsistencies, ‘ghub-request’ always returns
- the response body.
-
- To access the response headers use this variable after
- ‘ghub-request’ has returned.
-
- -- Function: ghub-response-link-relations req headers payload
-
- This function returns an alist of the link relations in ‘HEADERS’,
- or if optional ‘HEADERS’ is nil, then those in
- ‘ghub-response-headers’.
-
- When accessing a Bitbucket instance then the link relations are in
- ‘PAYLOAD’ instead of ‘HEADERS’, making their API merely RESTish and
- forcing this function to append those relations to the value of
- ‘ghub-response-headers’, for later use when this function is called
- with ‘nil’ for ‘PAYLOAD’.
-
- -- Variable: ghub-override-system-name
-
- If non-nil, the value of this variable is used to override the
- value returned by ‘system-name’ for the purpose of identifying the
- local machine, which is necessary because Ghub uses separate tokens
- for each machine. Also see *note Configuration Variables::.
-
- -- Variable: ghub-github-token-scopes
- -- Variable: PACKAGE-github-token-scopes
-
- Such a variable defines the token scopes requested by the
- respective package ‘PACKAGE’ given by the first word in the
- variable name. ‘ghub’ itself is treated like any other package.
- Also see *note Using Ghub in a Package::.
-
- -- Function: ghub-head resource &optional params &key query payload
- headers unpaginate noerror reader username auth host callback
- errorback
- -- Function: ghub-get resource &optional params &key query payload
- headers unpaginate noerror reader username auth host callback
- errorback
-
- These functions are simple wrappers around ‘ghub-request’. Their
- signature is identical to that of the latter, except that they do
- not have an argument named ‘METHOD’. The HTTP method is instead
- given by the second word in the function name.
-
- As described in the documentation for ‘ghub-request’, it depends on
- the used method whether the value of the ‘PARAMS’ argument is used
- as the query or the payload. For the "HEAD" and "GET" methods it
- is used as the query.
-
- -- Function: ghub-put resource &optional params &key query payload
- headers unpaginate noerror reader username auth host callback
- errorback
- -- Function: ghub-post resource &optional params &key query payload
- headers unpaginate noerror reader username auth host callback
- errorback
- -- Function: ghub-patch resource &optional params &key query payload
- headers unpaginate noerror reader username auth host callback
- errorback
- -- Function: ghub-delete resource &optional params &key query payload
- headers unpaginate noerror reader username auth host callback
- errorback
-
- These functions are simple wrappers around ‘ghub-request’. Their
- signature is identical to that of the latter, except that they do
- not have an argument named ‘METHOD’. The HTTP method is instead
- given by the second word in the function name.
-
- As described in the documentation for ‘ghub-request’, it depends on
- the used method whether the value of the ‘PARAMS’ argument is used
- as the query or the payload. For the "PUT", "POST", "PATCH" and
- "DELETE" methods it is used as the payload.
-
- -- Function: ghub-wait resource &optional duration &key username auth
- host
-
- Some API requests result in an immediate successful response even
- when the requested action has not actually been carried out yet.
- An example is the request for the creation of a new repository,
- which doesn’t cause the repository to immediately become available.
- The Github API documentation usually mentions this when describing
- an affected resource.
-
- If you want to do something with some resource right after making a
- request for its creation, then you might have to wait for it to
- actually be created. This function can be used to do so. It
- repeatedly tries to access the resource until it becomes available
- or until the timeout exceeds. In the latter case it signals
- ‘ghub-error’.
-
- ‘RESOURCE’ specifies the resource that this function waits for.
-
- ‘DURATION’ specifies the maximum number of seconds to wait for,
- defaulting to 64 seconds. Emacs will block during that time, but
- the user can abort using ‘C-g’.
-
- The first attempt is made immediately and will often succeed. If
- not, then another attempt is made after two seconds, and each
- subsequent attempt is made after waiting as long as we already
- waited between all preceding attempts combined.
-
- See ‘ghub-request’’s documentation above for information about the
- other arguments.
-
- -- Function: ghub-graphql graphql &optional variables &key username
- auth host callback
-
- This function makes a GraphQL request using ‘GRAPHQL’ and
- ‘VARIABLES’ as inputs. ‘GRAPHQL’ is a GraphQL string. ‘VARIABLES’
- is a JSON-like alist. The other arguments behave as for
- ‘ghub-request’ (which see).
-
- The response is returned as a JSON-like alist. Even if the
- response contains ‘errors’, this function does not raise an error.
- Cursor-handling is likewise left to the caller.
-
-
-File: ghub.info, Node: Authentication, Next: Configuration Variables, Prev: Making Requests, Up: API
-
-5.2 Authentication
-==================
-
- -- Command: ghub-create-token
-
- This command creates a new token using the values it reads from the
- user and then stores it according to the variable ‘auth-sources’.
- It can also be called non-interactively, but you shouldn’t do that
- yourself.
-
- This is useful if you want to fully setup things before attempting
- to make the initial request, if you want to provide fewer than the
- requested scopes or customize ‘auth-sources’ first, or if something
- has gone wrong when using the wizard that is used when making a
- request without doing this first. (Note that instead of using this
- command you can also just repeat the initial request after making
- the desired adjustments — that is easier.)
-
- This command reads, in order, the ‘HOST’ (Github instance), the
- ‘USERNAME’, the ‘PACKAGE’, and the ‘SCOPES’ in the minibuffer,
- providing reasonable default choices. ‘SCOPES’ defaults to the
- scopes that ‘PACKAGE’ requests using the variable
- ‘PACKAGE-github-token-scopes’.
-
- -- Command: ghub-token-scopes
-
- Users are free to give a token access to fewer scopes than what the
- respective package requested. That can, of course, lead to issues,
- and package maintainers have to be able to quickly determine if
- such a (mis-)configuration is the root cause when users report
- issues.
-
- This command reads the required values in the minibuffer and then
- shows a message containing these values along with the scopes of
- the respective token. It also returns the scopes (only) when
- called non-interactively. Also see *note Using Ghub in a
- Package::.
-
-
-File: ghub.info, Node: Configuration Variables, Prev: Authentication, Up: API
-
-5.3 Configuration Variables
-===========================
-
-The username and, unless you only use Github.com itself, the Github
-Enterprise instance have to be configured using Git variables. In rare
-cases it might also be necessary to specify the identity of the local
-machine, which is done using a lisp variable.
-
- -- Variable: github.user
-
- The Github.com username. This should be set globally and if you
- have multiple Github.com user accounts, then you should set this
- locally only for those repositories that you want to access using
- the secondary identity.
-
- -- Variable: github.HOST.user
-
- This variable serves the same purpose as ‘github.user’ but for the
- Github Enterprise instance identified by ‘HOST’.
-
- The reason why separate variables are used is that this makes it
- possible to set both values globally instead of having to set one
- of the values locally in each and every repository that is
- connected to the Github Enterprise instance, not Github.com.
-
- -- Variable: github.host
-
- This variable should only be set locally for a repository and
- specifies the Github Enterprise edition that that repository is
- connected to. You should not set this globally because then each
- and every repository becomes connected to the specified Github
- Enterprise instance, including those that should actually be
- connected to Github.com.
-
- When this is undefined, then "api.github.com" is used (defined in
- the constant ‘ghub-default-host’, which you should never attempt to
- change.)
-
- -- Variable: ghub-override-system-name
-
- Ghub uses a different token for each quadruple ‘(USERNAME PACKAGE
- HOST LOCAL-MACHINE)’. Theoretically it could reuse tokens to some
- extent but that would be more difficult to implement, less
- flexible, and less secure (though slightly more convenient).
-
- A token is identified on the respective Github instance (Github.com
- or a Github Enterprise instance) using the pair ‘(PACKAGE .
- LOCAL-MACHINE)’, or more precisely the string "Emacs package
- PACKAGE @ LOCAL-MACHINE". ‘USERNAME’ and ‘HOST’ do not have to be
- encoded because the token is stored for ‘USERNAME’ on ‘HOST’ and
- cannot be used by another user and/or on another instance.
-
- There is one potential problem though; for any given ‘(PACKAGE .
- LOCAL-MACHINE)’ there can only be one token identified by "Emacs
- package PACKAGE @ LOCAL-MACHINE"; Github does not allow multiple
- tokens with the same description because it uses the description as
- the identifier (it could use some hash instead, but alas it does
- not).
-
- If you have multiple machines and some of them have the same name,
- then you should probably change that as this is not how things
- ought to be. However if you dual-boot, then it might make sense to
- give that machine the same name regardless of what operating system
- you have booted into.
-
- You could use the same token on both operating systems, but setting
- that up might be somewhat difficult because it is not possible to
- download an existing token from Github. You could, of course,
- locally copy the token, but that is inconvenient and would make it
- harder to only revoke the token used on your infected Windows
- installation without also revoking it for your totally safe *BSD
- installation.
-
- Alternatively you can set this variable to a unique value, that
- will then be used to identify the local machine instead of the
- value returned by ‘system-name’.
-
-
-File: ghub.info, Node: GraphQL Support, Next: Support for Other Forges, Prev: API, Up: Top
-
-6 GraphQL Support
-*****************
-
- -- Function: ghub-graphql graphql &optional variables &key username
- auth host callback silent callback errorback value extra
-
- This function makes a GraphQL request using ‘GRAPHQL’ and
- ‘VARIABLES’ as inputs. ‘GRAPHQL’ is a GraphQL string. ‘VARIABLES’
- is a JSON-like alist. The other arguments behave as for
- ‘ghub-request’ (which see).
-
- The response is returned as a JSON-like alist. Even if the
- response contains ‘errors’, this function does not raise an error.
- Cursor-handling is likewise left to the caller.
-
- ‘ghub-graphql’ is a thin convenience wrapper around ‘ghub-request’,
-similar to ‘ghub-post’ and friends. While the latter only hard-code the
-value of the ‘METHOD’ argument, the former also hard-codes ‘RESOURCE’
-and constructs ‘PAYLOAD’ from ‘GRAPHEQL’ and ‘VARIABLES’. It also drops
-‘UNPAGINATE’, ‘NOERROR’, ‘READER’ (internal functions expect alist-ified
-JSON) and ‘FORGE’ (only Github currently supports GraphQL).
-
- ‘ghub-graphql’ does not account for the fact that pagination works
-differently in GraphQL than it does in REST, so users of this function
-have to deal with that themselves. Likewise error handling works
-differently and has to be done by the caller too.
-
- An early attempt at implementing automatic unpaginating for GraphQL
-can be found in the ‘faithful-graphql’ branch, provided I haven’t
-deleted that by now. On that branch I try to do things as intended by
-the designers of GraphQL, using variables and fragments, and drowning in
-a sea of boilerplate.
-
- The problem with that approach is that it only works for applications
-that fetch specific information on demand and actually want things to be
-paginated. I am convinced that GraphQL is very nice for web apps.
-
- However the Forge package for which I am implementing all of this has
-very different needs. It wants to fetch "all the data" and "cache" it
-locally, so that it is available even when there is no internet
-connection. GraphQL was designed around the idea that you should be
-able to "ask for what you need and get exactly that". But when that
-boils down to "look, if I persist, then you are going to hand me over
-all the data anyway, so just caught it up already", then things start to
-fall apart. If Github’s GraphQL allowed pagination to be turned off
-completely, then teaching ‘ghub-graphql’ about error handling would be
-enough.
-
- But it doesn’t and when doing things as intended, then that leads to
-huge amounts of repetitive boilerplate, which is so boring to write that
-doing it without introducing bugs left and right is near impossible; so
-I decided to give up on GraphQL variables, fragments and conditions, and
-instead implement something more powerful, though also more opinionated.
-
- -- Function: ghub--graphql-vacuum query variables callback &optional
- until &key narrow username auth host forge
-
- This function is an opinionated alternative to ‘ghub-graphql’. It
- relies and dark magic to get the job done.
-
- It makes an initial request using ‘QUERY’. It then looks for
- paginated edges in the returned data and makes more requests to
- resolve them. In order to do so it automatically transforms the
- initial ‘QUERY’ into another query suitable for that particular
- edge. The data retrieved by subsequent requests is then injected
- into the data of the original request before that is returned or
- passed to the callback. If subsequently retrieved data features
- new paginated edges, then those are followed recursively.
-
- The end result is essentially the same as using ‘ghub-graphql’, if
- only it were possible to say "do not paginate anything". The
- implementation is much more complicated because it is not possible
- to do that.
-
- ‘QUERY’ is a GraphQL query expressed as an s-expression. The
- ‘graphql’ package is used to turn that into a GraphQL query string,
- but the format is somewhat different than as documented for that
- package. Also only a subset of the GraphQL features are supported;
- fragments for example are not, and magical stuff happens to
- variables. This is not documented yet, I am afraid. Look at
- existing callers.
-
- ‘VARIABLES’ is a JSON-like alist as for ‘ghub-graphql’.
-
- ‘UNTIL’ is an alist ‘((EDGE-until . VALUE)...)’. When unpaginating
- ‘EDGE’ try not to fetch beyond the element whose first field has
- the value ‘VALUE’ and remove that element as well as all "lesser"
- elements from the retrieved data if necessary. Look at
- ‘forge--pull-repository’ for an example. This is only useful if
- you "cache" the response locally and want to avoid fetching data
- again that you already have.
-
- Other arguments behave as for ‘ghub-graphql’ and ‘ghub-request’,
- more or less.
-
- Using ‘ghub--graphql-vacuum’, the following resource specific
-functions are implemented. These functions are not part of the public
-API yet and are very much subject to change.
-
- -- Function: ghub-fetch-repository owner name callback &optional until
- &key username auth host forge
-
- This function asynchronously fetches forge data about the specified
- repository. Once all data has been collected, ‘CALLBACK’ is called
- with the data as the only argument.
-
- -- Function: ghub-fetch-issue owner name callback &optional until &key
- username auth host forge
-
- This function asynchronously fetches forge data about the specified
- issue. Once all data has been collected, ‘CALLBACK’ is called with
- the data as the only argument.
-
- -- Function: ghub-fetch-pullreq owner name callback &optional until
- &key username auth host forge
-
- This function asynchronously fetches forge data about the specified
- pull-request. Once all data has been collected, ‘CALLBACK’ is
- called with the data as the only argument.
-
- Note that in order to avoid duplication all of these functions base
-their initial query on the query stored in ‘ghub-fetch-repository’. The
-latter two pass that query through ‘ghub--graphql-prepare-query’, which
-then used ‘ghub--graphql-narrow-query’ to remove parts the caller is not
-interested in. These two functions are also used internally, when
-unpaginating, but as demonstrated here they can be useful even before
-making an initial request.
-
-
-File: ghub.info, Node: Support for Other Forges, Prev: GraphQL Support, Up: Top
-
-7 Support for Other Forges
-**************************
-
-* Menu:
-
-* Forge Functions and Variables::
-* Forge Limitations and Notes::
-
-
-File: ghub.info, Node: Forge Functions and Variables, Next: Forge Limitations and Notes, Up: Support for Other Forges
-
-7.1 Forge Functions and Variables
-=================================
-
-Originally Ghub supported only Github but now it also supports Gitlab,
-Gitea, Gogs and Bitbucket. The function ‘ghub-request’ and all the
-‘ghub-METHOD’ convenience wrappers default to acting on a Github forge
-but can be told to act on another forge using their FORGE argument.
-
- The FORGE argument only specifies what kind of forge to act on, not
-which instance. The HOST argument can be used to select the instance.
-For some forges a default instance is defined:
-
- • Forge ‘github’ defaults to host ‘api.github.com’.
-
- • Forge ‘gitlab’ defaults to host ‘gitlab.com/api/v4’.
-
- • Forge ‘bitbucket’ defaults to host ‘api.bitbucket.org/2.0’.
-
- • No canonical host exists for the ‘gitea’ and ‘gogs’ forges and
- ‘localhost:3000/api/v1’ is used as the default host in both cases.
-
- Together the FORGE and HOST arguments specify the forge type and
-instance. In addition to that, it is also necessary to specify on whose
-behalf the request is being made, which can be done using the USERNAME
-and AUTH arguments.
-
- Having to specify these arguments for every request is inconvenient.
-Additional variables and convenience functions can be used to make that
-unnecessary in most cases.
-
- These variables can be set globally and/or for a specific repository
-as explained in *note Configuration Variables:: with a focus on Github
-instances. To summarize:
-
- • For <https://github.com> the Git variable ‘github.user’ specifies
- the user.
-
- • For another ‘github’ instance the Git variable ‘github.HOST.user’
- specifies the user. The HOST in that variable name is the same as
- the value of the HOST argument of the called function.
-
- • Instead of specifying the HOST in every function call, the Git
- variable ‘github.host’ can be used. This should only be set
- locally.
-
-For ‘gitlab’ and ‘bitbucket’ forges similar variables are available:
-
- • ‘gitlab.user’ specifies the <https://gitlab.com> user.
-
- • ‘gitlab.HOST.user’ specifies the user for the HOST ‘gitlab’
- instance.
-
- • ‘gitlab.host’ specifies the ‘gitlab’ host, unless the HOST argument
- is non-nil
-
- • ‘bitbucket.user’ specifies the <https://bitbucket.org> user.
-
- • ‘bitbucket.HOST.user’ specifies the user for the HOST ‘bitbucket’
- instance.
-
- • ‘bitbucket.host’ specifies the ‘bitbucket’ host, unless the HOST
- argument is non-nil.
-
- For ‘gitea’ and ‘gogs’ forges some similar variables are available,
-however for some of the ‘ghub.*’ variables no equivalent variable exist
-for these two forges:
-
- • ‘gitea.user’ is *not* used because no canonical ‘gitea’ instance
- exists.
-
- • ‘gitea.HOST.user’ specifies the user for the HOST ‘gitea’ instance.
-
- • ‘gitea.host’ specifies the ‘gitea’ host, unless the HOST argument
- is non-nil
-
- • ‘gogs.user’ is *not* used because no canonical ‘gitea’ instance
- exists.
-
- • ‘gogs.HOST.user’ specifies the user for the HOST ‘gogs’ instance.
-
- • ‘gogs.host’ specifies the ‘gogs’ host, unless the HOST argument is
- non-nil
-
- ‘ghub-request’ and ‘ghub-METHOD’ can be used to make a request for
-any of the supported forge types, but except when making a request for a
-‘github’ instance, then that requires the use of the FORGE argument.
-
- To avoid that, functions named ‘FORGE-request’ and ‘FORGE-METHOD’ are
-also available. The following forms are equivalent, for example:
-
- (ghub-get ... :auth 'PACKAGE :forge 'gitlab)
- (glab-get ... :auth 'PACKAGE)
-
- These forms would remain equivalent even if you did not specify a
-value for the AUTH arguments — but you should not do that if you plan to
-share your code with others (see *note Using Ghub in a Package::). If
-you do omit AUTH, then the request is made on behalf of the ‘ghub’
-package, *regardless* of the symbol prefix of the function you use to do
-so.
-
- All ‘FORGE-request’ and ‘FORGE-METHOD’ functions, including but not
-limited to ‘ghub-METHOD’, are very simple wrappers around
-‘ghub-request’. They take fewer arguments than ‘ghub-request’ and
-instead pass constant values for the arguments METHOD and/or FORGE.
-
-
-File: ghub.info, Node: Forge Limitations and Notes, Prev: Forge Functions and Variables, Up: Support for Other Forges
-
-7.2 Forge Limitations and Notes
-===============================
-
- • The token creation wizard is only available for ‘github’ forges,
- because all other forges do not support using the API to create an
- API token. As a consequence, if the user makes a request and the
- necessary token cannot be found, then that results in an error.
- Tokens can be created at:
-
- • Gitlab: <https://gitlab.com/profile/personal_access_tokens>
-
- • Bitbucket:
- <https://bitbucket.org/account/user/tarsius/app-passwords>
-
- • Gitea: <https://localhost:3000/user/settings/applications>
-
- • Gogs: <https://localhost:3000/user/settings/applications>
-
- Also see *note Manually Creating and Storing a Token:: and *note
- How Ghub uses Auth-Source::.
-
- • As mentioned in the previous node, the variables ‘gitea.host’ and
- ‘gogs.host’ are not taken into account.
-
- • Gitea and Gogs do not support limiting a token to certain scopes.
-
- • The Bitbucket API is fairly broken. Some resources only work if a
- slash is appended while others only work if no slash is appended.
- I am unable to access any private repositories and some resources
- don’t work for me at all. Also the API is only RESTish; pagination
- information is part of the response body instead of the header.
- Due to such issues it is possible that I will eventually have to
- remove support for Bitbucket altogether.
-
- • The Gitlab API documentation is not always accurate, though I don’t
- have an example at hand. It also isn’t structured well, making it
- occationally difficult to find the information one is looking for.
-
- • Where one would use ‘user/repo’ when accessing another forge, one
- has to use ‘user%2Frepo’ when accessing Gitlab, e.g.:
-
- (glab-get "/projects/python-mode-devs%2Fpython-mode")
-
-
-
-Tag Table:
-Node: Top764
-Node: Introduction3279
-Node: Getting Started6321
-Node: Setting the Username10055
-Node: Interactively Creating and Storing a Token11480
-Node: Manually Creating and Storing a Token17131
-Node: How Ghub uses Auth-Source18354
-Node: Using Ghub in Personal Scripts20287
-Node: Using Ghub in a Package21743
-Node: API24361
-Node: Making Requests25158
-Node: Authentication39197
-Node: Configuration Variables41042
-Node: GraphQL Support44762
-Node: Support for Other Forges51427
-Node: Forge Functions and Variables51644
-Node: Forge Limitations and Notes56163
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:
diff --git a/elpa/ghub-20181112.1755/glab.el b/elpa/ghub-20181112.1755/glab.el
deleted file mode 100644
index fa35b35..0000000
--- a/elpa/ghub-20181112.1755/glab.el
+++ /dev/null
@@ -1,153 +0,0 @@
-;;; glab.el --- minuscule client library for the Gitlab API -*- lexical-binding: t -*-
-
-;; Copyright (C) 2016-2018 Jonas Bernoulli
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Homepage: https://github.com/magit/ghub
-;; Keywords: tools
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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.
-
-;; For a copy of the GPL see https://www.gnu.org/licenses/gpl.txt.
-
-;;; Commentary:
-
-;; Glab is a library that provides basic support for using the Gitlab API
-;; from Emacs packages. It abstracts access to API resources using only
-;; a handful of functions that are not resource-specific.
-
-;; This library is implemented on top of Ghub. Unlike Ghub, Glab does
-;; not support the guided creation of tokens because Gitlab lacks the
-;; features that would be necessary to implement that. Users have to
-;; create tokens through the web interface.
-
-;;; Code:
-
-(require 'ghub)
-
-(defconst glab-default-host "gitlab.com/api/v4"
- "The default host that is used if `glab.host' is not set.")
-
-(cl-defun glab-head (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `HEAD' request for RESOURCE, with optional query PARAMS.
-Like calling `ghub-request' (which see) with \"HEAD\" as METHOD
-and `gitlab' as FORGE."
- (ghub-request "HEAD" resource params :forge 'gitlab
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun glab-get (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `GET' request for RESOURCE, with optional query PARAMS.
-Like calling `ghub-request' (which see) with \"GET\" as METHOD
-and `gitlab' as FORGE."
- (ghub-request "GET" resource params :forge 'gitlab
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun glab-put (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PUT' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PUT\" as METHOD
-and `gitlab' as FORGE."
- (ghub-request "PUT" resource params :forge 'gitlab
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun glab-post (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `POST' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"POST\" as METHOD
-and `gitlab' as FORGE."
- (ghub-request "POST" resource params :forge 'gitlab
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun glab-patch (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PATCH\" as METHOD
-and `gitlab' as FORGE."
- (ghub-request "PATCH" resource params :forge 'gitlab
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun glab-delete (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"DELETE\" as METHOD
-and `gitlab' as FORGE."
- (ghub-request "DELETE" resource params :forge 'gitlab
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun glab-request (method resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a request for RESOURCE and return the response body.
-Like calling `ghub-request' (which see) with `gitlab' as FORGE."
- (ghub-request method resource params :forge 'gitlab
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun glab-repository-id (owner name &key username auth host)
- "Return the id of the repository specified by OWNER, NAME and HOST."
- (number-to-string
- (cdr (assq 'id (glab-get (format "/projects/%s%%2F%s" owner name)
- nil :username username :auth auth :host host)))))
-
-;;; _
-(provide 'glab)
-;;; glab.el ends here
diff --git a/elpa/ghub-20181112.1755/glab.elc b/elpa/ghub-20181112.1755/glab.elc
deleted file mode 100644
index 86ee805..0000000
--- a/elpa/ghub-20181112.1755/glab.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/ghub-20181112.1755/gogs.el b/elpa/ghub-20181112.1755/gogs.el
deleted file mode 100644
index 0fbac46..0000000
--- a/elpa/ghub-20181112.1755/gogs.el
+++ /dev/null
@@ -1,140 +0,0 @@
-;;; gogs.el --- minuscule client library for the Gogs API -*- lexical-binding: t -*-
-
-;; Copyright (C) 2016-2018 Jonas Bernoulli
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Homepage: https://github.com/magit/ghub
-;; Keywords: tools
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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.
-
-;; For a copy of the GPL see https://www.gnu.org/licenses/gpl.txt.
-
-;;; Commentary:
-
-;; Gogs is a library that provides basic support for using the Gogs API
-;; from Emacs packages. It abstracts access to API resources using only
-;; a handful of functions that are not resource-specific.
-
-;; This library is implemented on top of Ghub. Unlike Ghub, Gogs does
-;; not support the guided creation of tokens because Gogs lacks the
-;; features that would be necessary to implement that. Users have to
-;; create tokens through the web interface.
-
-;;; Code:
-
-(require 'ghub)
-
-(defconst gogs-default-host "localhost:3000/api/v1"
- "The default host that is used if `gogs.host' is not set.")
-
-;; HEAD does not appear to be supported.
-
-(cl-defun gogs-get (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `GET' request for RESOURCE, with optional query PARAMS.
-Like calling `ghub-request' (which see) with \"GET\" as METHOD
-and `gogs' as FORGE."
- (ghub-request "GET" resource params :forge 'gogs
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gogs-put (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PUT' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PUT\" as METHOD
-and `gogs' as FORGE."
- (ghub-request "PUT" resource params :forge 'gogs
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gogs-post (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `POST' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"POST\" as METHOD
-and `gogs' as FORGE."
- (ghub-request "POST" resource params :forge 'gogs
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gogs-patch (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PATCH\" as METHOD
-and `gogs' as FORGE."
- (ghub-request "PATCH" resource params :forge 'gogs
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gogs-delete (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"DELETE\" as METHOD
-and `gogs' as FORGE."
- (ghub-request "DELETE" resource params :forge 'gogs
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gogs-request (method resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a request for RESOURCE and return the response body.
-Like calling `ghub-request' (which see) with `gogs' as FORGE."
- (ghub-request method resource params :forge 'gogs
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gogs-repository-id (owner name &key username auth host)
- "Return the id of the repository specified by OWNER, NAME and HOST."
- (number-to-string
- (cdr (assq 'id (gogs-get (format "/repos/%s/%s" owner name)
- nil :username username :auth auth :host host)))))
-
-;;; _
-(provide 'gogs)
-;;; gogs.el ends here
diff --git a/elpa/ghub-20181112.1755/gogs.elc b/elpa/ghub-20181112.1755/gogs.elc
deleted file mode 100644
index 79c2f85..0000000
--- a/elpa/ghub-20181112.1755/gogs.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/ghub-20181112.1755/gtea.el b/elpa/ghub-20181112.1755/gtea.el
deleted file mode 100644
index 07ca290..0000000
--- a/elpa/ghub-20181112.1755/gtea.el
+++ /dev/null
@@ -1,140 +0,0 @@
-;;; gtea.el --- minuscule client library for the Gitea API -*- lexical-binding: t -*-
-
-;; Copyright (C) 2016-2018 Jonas Bernoulli
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Homepage: https://github.com/magit/ghub
-;; Keywords: tools
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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.
-
-;; For a copy of the GPL see https://www.gnu.org/licenses/gpl.txt.
-
-;;; Commentary:
-
-;; Gtea is a library that provides basic support for using the Gitea API
-;; from Emacs packages. It abstracts access to API resources using only
-;; a handful of functions that are not resource-specific.
-
-;; This library is implemented on top of Ghub. Unlike Ghub, Gtea does
-;; not support the guided creation of tokens because Gitea lacks the
-;; features that would be necessary to implement that. Users have to
-;; create tokens through the web interface.
-
-;;; Code:
-
-(require 'ghub)
-
-(defconst gtea-default-host "localhost:3000/api/v1"
- "The default host that is used if `gtea.host' is not set.")
-
-;; HEAD does not appear to be supported.
-
-(cl-defun gtea-get (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `GET' request for RESOURCE, with optional query PARAMS.
-Like calling `ghub-request' (which see) with \"GET\" as METHOD
-and `gitea' as FORGE."
- (ghub-request "GET" resource params :forge 'gitea
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gtea-put (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PUT' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PUT\" as METHOD
-and `gitea' as FORGE."
- (ghub-request "PUT" resource params :forge 'gitea
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gtea-post (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `POST' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"POST\" as METHOD
-and `gitea' as FORGE."
- (ghub-request "POST" resource params :forge 'gitea
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gtea-patch (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"PATCH\" as METHOD
-and `gitea' as FORGE."
- (ghub-request "PATCH" resource params :forge 'gitea
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gtea-delete (resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
-Like calling `ghub-request' (which see) with \"DELETE\" as METHOD
-and `gitea' as FORGE."
- (ghub-request "DELETE" resource params :forge 'gitea
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gtea-request (method resource &optional params
- &key query payload headers
- silent unpaginate noerror reader
- username auth host
- callback errorback extra)
- "Make a request for RESOURCE and return the response body.
-Like calling `ghub-request' (which see) with `gitea' as FORGE."
- (ghub-request method resource params :forge 'gitea
- :query query :payload payload :headers headers
- :silent silent :unpaginate unpaginate
- :noerror noerror :reader reader
- :username username :auth auth :host host
- :callback callback :errorback errorback :extra extra))
-
-(cl-defun gtea-repository-id (owner name &key username auth host)
- "Return the id of the repository specified by OWNER, NAME and HOST."
- (number-to-string
- (cdr (assq 'id (gtea-get (format "/repos/%s/%s" owner name)
- nil :username username :auth auth :host host)))))
-
-;;; _
-(provide 'gtea)
-;;; gtea.el ends here
diff --git a/elpa/ghub-20181112.1755/gtea.elc b/elpa/ghub-20181112.1755/gtea.elc
deleted file mode 100644
index c2ec20f..0000000
--- a/elpa/ghub-20181112.1755/gtea.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/git-commit-20181116.1408/git-commit-autoloads.el b/elpa/git-commit-20181116.1408/git-commit-autoloads.el
deleted file mode 100644
index bcf5372..0000000
--- a/elpa/git-commit-20181116.1408/git-commit-autoloads.el
+++ /dev/null
@@ -1,53 +0,0 @@
-;;; git-commit-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "git-commit" "git-commit.el" (0 0 0 0))
-;;; Generated autoloads from git-commit.el
-
-(defvar global-git-commit-mode t "\
-Non-nil if Global Git-Commit mode is enabled.
-See the `global-git-commit-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-git-commit-mode'.")
-
-(custom-autoload 'global-git-commit-mode "git-commit" nil)
-
-(autoload 'global-git-commit-mode "git-commit" "\
-Edit Git commit messages.
-This global mode arranges for `git-commit-setup' to be called
-when a Git commit message file is opened. That usually happens
-when Git uses the Emacsclient as $GIT_EDITOR to have the user
-provide such a commit message.
-
-\(fn &optional ARG)" t nil)
-
-(defconst git-commit-filename-regexp "/\\(\\(\\(COMMIT\\|NOTES\\|PULLREQ\\|TAG\\)_EDIT\\|MERGE_\\|\\)MSG\\|\\(BRANCH\\|EDIT\\)_DESCRIPTION\\)\\'")
-
-(autoload 'git-commit-setup-check-buffer "git-commit" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'git-commit-setup "git-commit" "\
-
-
-\(fn)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "git-commit" '("git-commit-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; git-commit-autoloads.el ends here
diff --git a/elpa/git-commit-20181116.1408/git-commit-pkg.el b/elpa/git-commit-20181116.1408/git-commit-pkg.el
deleted file mode 100644
index cda8e2f..0000000
--- a/elpa/git-commit-20181116.1408/git-commit-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "git-commit" "20181116.1408" "Edit Git commit messages" '((emacs "25.1") (dash "20180910") (with-editor "20181103")) :commit "36d89c88e1337ec2b33c75c3d426289c66f86b10" :keywords '("git" "tools" "vc") :maintainer '("Jonas Bernoulli" . "jonas@bernoul.li") :url "https://github.com/magit/magit")
diff --git a/elpa/git-commit-20181116.1408/git-commit.el b/elpa/git-commit-20181116.1408/git-commit.el
deleted file mode 100644
index 6b5c6d0..0000000
--- a/elpa/git-commit-20181116.1408/git-commit.el
+++ /dev/null
@@ -1,945 +0,0 @@
-;;; git-commit.el --- Edit Git commit messages -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Authors: Jonas Bernoulli <jonas@bernoul.li>
-;; Sebastian Wiesner <lunaryorn@gmail.com>
-;; Florian Ragwitz <rafl@debian.org>
-;; Marius Vollmer <marius.vollmer@gmail.com>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Package-Requires: ((emacs "25.1") (dash "20180910") (with-editor "20181103"))
-;; Package-Version: 20181116.1408
-;; Keywords: git tools vc
-;; Homepage: https://github.com/magit/magit
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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 this file. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This package assists the user in writing good Git commit messages.
-
-;; While Git allows for the message to be provided on the command
-;; line, it is preferable to tell Git to create the commit without
-;; actually passing it a message. Git then invokes the `$GIT_EDITOR'
-;; (or if that is undefined `$EDITOR') asking the user to provide the
-;; message by editing the file ".git/COMMIT_EDITMSG" (or another file
-;; in that directory, e.g. ".git/MERGE_MSG" for merge commits).
-
-;; When `global-git-commit-mode' is enabled, which it is by default,
-;; then opening such a file causes the features described below, to
-;; be enabled in that buffer. Normally this would be done using a
-;; major-mode but to allow the use of any major-mode, as the user sees
-;; fit, it is done here by running a setup function, which among other
-;; things turns on the preferred major-mode, by default `text-mode'.
-
-;; Git waits for the `$EDITOR' to finish and then either creates the
-;; commit using the contents of the file as commit message, or, if the
-;; editor process exited with a non-zero exit status, aborts without
-;; creating a commit. Unfortunately Emacsclient (which is what Emacs
-;; users should be using as `$EDITOR' or at least as `$GIT_EDITOR')
-;; does not differentiate between "successfully" editing a file and
-;; aborting; not out of the box that is.
-
-;; By making use of the `with-editor' package this package provides
-;; both ways of finish an editing session. In either case the file
-;; is saved, but Emacseditor's exit code differs.
-;;
-;; C-c C-c Finish the editing session successfully by returning
-;; with exit code 0. Git then creates the commit using
-;; the message it finds in the file.
-;;
-;; C-c C-k Aborts the edit editing session by returning with exit
-;; code 1. Git then aborts the commit.
-
-;; Aborting the commit does not cause the message to be lost, but
-;; relying solely on the file not being tampered with is risky. This
-;; package additionally stores all aborted messages for the duration
-;; of the current session (i.e. until you close Emacs). To get back
-;; an aborted message use M-p and M-n while editing a message.
-;;
-;; M-p Replace the buffer contents with the previous message
-;; from the message ring. Of course only after storing
-;; the current content there too.
-;;
-;; M-n Replace the buffer contents with the next message from
-;; the message ring, after storing the current content.
-
-;; Some support for pseudo headers as used in some projects is
-;; provided by these commands:
-;;
-;; C-c C-s Insert a Signed-off-by header.
-;; C-c C-a Insert a Acked-by header.
-;; C-c C-m Insert a Modified-by header.
-;; C-c C-t Insert a Tested-by header.
-;; C-c C-r Insert a Reviewed-by header.
-;; C-c C-o Insert a Cc header.
-;; C-c C-p Insert a Reported-by header.
-;; C-c M-s Insert a Suggested-by header.
-
-;; When Git requests a commit message from the user, it does so by
-;; having her edit a file which initially contains some comments,
-;; instructing her what to do, and providing useful information, such
-;; as which files were modified. These comments, even when left
-;; intact by the user, do not become part of the commit message. This
-;; package ensures these comments are propertizes as such and further
-;; prettifies them by using different faces for various parts, such as
-;; files.
-
-;; Finally this package highlights style errors, like lines that are
-;; too long, or when the second line is not empty. It may even nag
-;; you when you attempt to finish the commit without having fixed
-;; these issues. The style checks and many other settings can easily
-;; be configured:
-;;
-;; M-x customize-group RET git-commit RET
-
-;;; Code:
-;;;; Dependencies
-
-(require 'dash)
-(require 'log-edit)
-(require 'magit-git nil t)
-(require 'magit-utils nil t)
-(require 'ring)
-(require 'server)
-(require 'with-editor)
-
-(eval-when-compile (require 'recentf))
-
-;;;; Declarations
-
-(defvar diff-default-read-only)
-(defvar flyspell-generic-check-word-predicate)
-(defvar font-lock-beg)
-(defvar font-lock-end)
-
-(declare-function magit-expand-git-file-name "magit-git" (filename))
-(declare-function magit-list-local-branch-names "magit-git" ())
-(declare-function magit-list-remote-branch-names "magit-git"
- (&optional remote relative))
-
-;;; Options
-;;;; Variables
-
-(defgroup git-commit nil
- "Edit Git commit messages."
- :prefix "git-commit-"
- :link '(info-link "(magit)Editing Commit Messages")
- :group 'tools)
-
-;;;###autoload
-(define-minor-mode global-git-commit-mode
- "Edit Git commit messages.
-This global mode arranges for `git-commit-setup' to be called
-when a Git commit message file is opened. That usually happens
-when Git uses the Emacsclient as $GIT_EDITOR to have the user
-provide such a commit message."
- :group 'git-commit
- :type 'boolean
- :global t
- :init-value t
- :initialize (lambda (symbol exp)
- (custom-initialize-default symbol exp)
- (when global-git-commit-mode
- (add-hook 'find-file-hook 'git-commit-setup-check-buffer)))
- (if global-git-commit-mode
- (add-hook 'find-file-hook 'git-commit-setup-check-buffer)
- (remove-hook 'find-file-hook 'git-commit-setup-check-buffer)))
-
-(defcustom git-commit-major-mode 'text-mode
- "Major mode used to edit Git commit messages.
-The major mode configured here is turned on by the minor mode
-`git-commit-mode'."
- :group 'git-commit
- :type '(choice (function-item text-mode)
- (const :tag "No major mode")))
-
-(defcustom git-commit-setup-hook
- '(git-commit-save-message
- git-commit-setup-changelog-support
- git-commit-turn-on-auto-fill
- git-commit-propertize-diff
- bug-reference-mode
- with-editor-usage-message)
- "Hook run at the end of `git-commit-setup'."
- :group 'git-commit
- :type 'hook
- :get (and (featurep 'magit-utils) 'magit-hook-custom-get)
- :options '(git-commit-save-message
- git-commit-setup-changelog-support
- git-commit-turn-on-auto-fill
- git-commit-turn-on-flyspell
- git-commit-propertize-diff
- bug-reference-mode
- with-editor-usage-message))
-
-(defcustom git-commit-post-finish-hook nil
- "Hook run after the user finished writing a commit message.
-
-\\<with-editor-mode-map>\
-This hook is only run after pressing \\[with-editor-finish] in a buffer used
-to edit a commit message. If a commit is created without the
-user typing a message into a buffer, then this hook is not run.
-
-This hook is not run until the new commit has been created. If
-doing so takes Git longer than one second, then this hook isn't
-run at all. For certain commands such as `magit-rebase-continue'
-this hook is never run because doing so would lead to a race
-condition.
-
-Also see `magit-post-commit-hook'."
- :group 'git-commit
- :type 'hook
- :get (and (featurep 'magit-utils) 'magit-hook-custom-get))
-
-(defcustom git-commit-finish-query-functions
- '(git-commit-check-style-conventions)
- "List of functions called to query before performing commit.
-
-The commit message buffer is current while the functions are
-called. If any of them returns nil, then the commit is not
-performed and the buffer is not killed. The user should then
-fix the issue and try again.
-
-The functions are called with one argument. If it is non-nil,
-then that indicates that the user used a prefix argument to
-force finishing the session despite issues. Functions should
-usually honor this wish and return non-nil."
- :options '(git-commit-check-style-conventions)
- :type 'hook
- :group 'git-commit)
-
-(defcustom git-commit-style-convention-checks '(non-empty-second-line)
- "List of checks performed by `git-commit-check-style-conventions'.
-Valid members are `non-empty-second-line' and `overlong-summary-line'.
-That function is a member of `git-commit-finish-query-functions'."
- :options '(non-empty-second-line overlong-summary-line)
- :type '(list :convert-widget custom-hook-convert-widget)
- :group 'git-commit)
-
-(defcustom git-commit-summary-max-length 68
- "Column beyond which characters in the summary lines are highlighted.
-
-The highlighting indicates that the summary is getting too long
-by some standards. It does in no way imply that going over the
-limit a few characters or in some cases even many characters is
-anything that deserves shaming. It's just a friendly reminder
-that if you can make the summary shorter, then you might want
-to consider doing so."
- :group 'git-commit
- :safe 'numberp
- :type 'number)
-
-(defcustom git-commit-fill-column nil
- "Override `fill-column' in commit message buffers.
-
-If this is non-nil, then it should be an integer. If that is the
-case and the buffer-local value of `fill-column' is not already
-set by the time `git-commit-turn-on-auto-fill' is called as a
-member of `git-commit-setup-hook', then that function sets the
-buffer-local value of `fill-column' to the value of this option.
-
-This option exists mostly for historic reasons. If you are not
-already using it, then you probably shouldn't start doing so."
- :group 'git-commit
- :safe 'numberp
- :type '(choice (const :tag "use regular fill-column")
- number))
-
-(make-obsolete-variable 'git-commit-fill-column 'fill-column
- "Magit 2.11.0" 'set)
-
-(defcustom git-commit-known-pseudo-headers
- '("Signed-off-by" "Acked-by" "Modified-by" "Cc"
- "Suggested-by" "Reported-by" "Tested-by" "Reviewed-by")
- "A list of Git pseudo headers to be highlighted."
- :group 'git-commit
- :safe (lambda (val) (and (listp val) (-all-p 'stringp val)))
- :type '(repeat string))
-
-;;;; Faces
-
-(defgroup git-commit-faces nil
- "Faces used for highlighting Git commit messages."
- :prefix "git-commit-"
- :group 'git-commit
- :group 'faces)
-
-(defface git-commit-summary
- '((t :inherit font-lock-type-face))
- "Face used for the summary in commit messages."
- :group 'git-commit-faces)
-
-(defface git-commit-overlong-summary
- '((t :inherit font-lock-warning-face))
- "Face used for the tail of overlong commit message summaries."
- :group 'git-commit-faces)
-
-(defface git-commit-nonempty-second-line
- '((t :inherit font-lock-warning-face))
- "Face used for non-whitespace on the second line of commit messages."
- :group 'git-commit-faces)
-
-(defface git-commit-note
- '((t :inherit font-lock-string-face))
- "Face used for notes in commit messages."
- :group 'git-commit-faces)
-
-(defface git-commit-pseudo-header
- '((t :inherit font-lock-string-face))
- "Face used for pseudo headers in commit messages."
- :group 'git-commit-faces)
-
-(defface git-commit-known-pseudo-header
- '((t :inherit font-lock-keyword-face))
- "Face used for the keywords of known pseudo headers in commit messages."
- :group 'git-commit-faces)
-
-(defface git-commit-comment-branch-local
- (if (featurep 'magit)
- '((t :inherit magit-branch-local))
- '((t :inherit font-lock-variable-name-face)))
- "Face used for names of local branches in commit message comments."
- :group 'git-commit-faces)
-
-(define-obsolete-face-alias 'git-commit-comment-branch
- 'git-commit-comment-branch-local "Git-Commit 2.12.0")
-
-(defface git-commit-comment-branch-remote
- (if (featurep 'magit)
- '((t :inherit magit-branch-remote))
- '((t :inherit font-lock-variable-name-face)))
- "Face used for names of remote branches in commit message comments.
-This is only used if Magit is available."
- :group 'git-commit-faces)
-
-(defface git-commit-comment-detached
- '((t :inherit git-commit-comment-branch-local))
- "Face used for detached `HEAD' in commit message comments."
- :group 'git-commit-faces)
-
-(defface git-commit-comment-heading
- '((t :inherit git-commit-known-pseudo-header))
- "Face used for headings in commit message comments."
- :group 'git-commit-faces)
-
-(defface git-commit-comment-file
- '((t :inherit git-commit-pseudo-header))
- "Face used for file names in commit message comments."
- :group 'git-commit-faces)
-
-(defface git-commit-comment-action
- '((t :inherit bold))
- "Face used for actions in commit message comments."
- :group 'git-commit-faces)
-
-;;; Keymap
-
-(defvar git-commit-mode-map
- (let ((map (make-sparse-keymap)))
- (cond ((featurep 'jkl)
- (define-key map (kbd "C-M-i") 'git-commit-prev-message)
- (define-key map (kbd "C-M-k") 'git-commit-next-message))
- (t
- (define-key map (kbd "M-p") 'git-commit-prev-message)
- (define-key map (kbd "M-n") 'git-commit-next-message)
- ;; Old bindings to avoid confusion
- (define-key map (kbd "C-c C-x a") 'git-commit-ack)
- (define-key map (kbd "C-c C-x i") 'git-commit-suggested)
- (define-key map (kbd "C-c C-x m") 'git-commit-modified)
- (define-key map (kbd "C-c C-x o") 'git-commit-cc)
- (define-key map (kbd "C-c C-x p") 'git-commit-reported)
- (define-key map (kbd "C-c C-x r") 'git-commit-review)
- (define-key map (kbd "C-c C-x s") 'git-commit-signoff)
- (define-key map (kbd "C-c C-x t") 'git-commit-test)))
- (define-key map (kbd "C-c C-a") 'git-commit-ack)
- (define-key map (kbd "C-c C-i") 'git-commit-suggested)
- (define-key map (kbd "C-c C-m") 'git-commit-modified)
- (define-key map (kbd "C-c C-o") 'git-commit-cc)
- (define-key map (kbd "C-c C-p") 'git-commit-reported)
- (define-key map (kbd "C-c C-r") 'git-commit-review)
- (define-key map (kbd "C-c C-s") 'git-commit-signoff)
- (define-key map (kbd "C-c C-t") 'git-commit-test)
- (define-key map (kbd "C-c M-s") 'git-commit-save-message)
- map)
- "Key map used by `git-commit-mode'.")
-
-;;; Menu
-
-(require 'easymenu)
-(easy-menu-define git-commit-mode-menu git-commit-mode-map
- "Git Commit Mode Menu"
- '("Commit"
- ["Previous" git-commit-prev-message t]
- ["Next" git-commit-next-message t]
- "-"
- ["Ack" git-commit-ack :active t
- :help "Insert an 'Acked-by' header"]
- ["Sign-Off" git-commit-signoff :active t
- :help "Insert a 'Signed-off-by' header"]
- ["Modified-by" git-commit-modified :active t
- :help "Insert a 'Modified-by' header"]
- ["Tested-by" git-commit-test :active t
- :help "Insert a 'Tested-by' header"]
- ["Reviewed-by" git-commit-review :active t
- :help "Insert a 'Reviewed-by' header"]
- ["CC" git-commit-cc t
- :help "Insert a 'Cc' header"]
- ["Reported" git-commit-reported :active t
- :help "Insert a 'Reported-by' header"]
- ["Suggested" git-commit-suggested t
- :help "Insert a 'Suggested-by' header"]
- "-"
- ["Save" git-commit-save-message t]
- ["Cancel" with-editor-cancel t]
- ["Commit" with-editor-finish t]))
-
-;;; Hooks
-
-;;;###autoload
-(defconst git-commit-filename-regexp "/\\(\
-\\(\\(COMMIT\\|NOTES\\|PULLREQ\\|TAG\\)_EDIT\\|MERGE_\\|\\)MSG\
-\\|\\(BRANCH\\|EDIT\\)_DESCRIPTION\\)\\'")
-
-(eval-after-load 'recentf
- '(add-to-list 'recentf-exclude git-commit-filename-regexp))
-
-(add-to-list 'with-editor-file-name-history-exclude git-commit-filename-regexp)
-
-(defun git-commit-setup-font-lock-in-buffer ()
- (and buffer-file-name
- (string-match-p git-commit-filename-regexp buffer-file-name)
- (git-commit-setup-font-lock)))
-
-(add-hook 'after-change-major-mode-hook 'git-commit-setup-font-lock-in-buffer)
-
-;;;###autoload
-(defun git-commit-setup-check-buffer ()
- (and buffer-file-name
- (string-match-p git-commit-filename-regexp buffer-file-name)
- (git-commit-setup)))
-
-(defvar git-commit-mode)
-
-(defun git-commit-file-not-found ()
- ;; cygwin git will pass a cygwin path (/cygdrive/c/foo/.git/...),
- ;; try to handle this in window-nt Emacs.
- (--when-let
- (and (or (string-match-p git-commit-filename-regexp buffer-file-name)
- (and (boundp 'git-rebase-filename-regexp)
- (string-match-p git-rebase-filename-regexp
- buffer-file-name)))
- (not (file-accessible-directory-p
- (file-name-directory buffer-file-name)))
- (if (require 'magit-git nil t)
- ;; Emacs prepends a "c:".
- (magit-expand-git-file-name (substring buffer-file-name 2))
- ;; Fallback if we can't load `magit-git'.
- (and (string-match "\\`[a-z]:/\\(cygdrive/\\)?\\([a-z]\\)/\\(.*\\)"
- buffer-file-name)
- (concat (match-string 2 buffer-file-name) ":/"
- (match-string 3 buffer-file-name)))))
- (when (file-accessible-directory-p (file-name-directory it))
- (let ((inhibit-read-only t))
- (insert-file-contents it t)
- t))))
-
-(when (eq system-type 'windows-nt)
- (add-hook 'find-file-not-found-functions #'git-commit-file-not-found))
-
-;;;###autoload
-(defun git-commit-setup ()
- ;; Pretend that git-commit-mode is a major-mode,
- ;; so that directory-local settings can be used.
- (let ((default-directory
- (if (or (file-exists-p ".dir-locals.el")
- (not (fboundp 'magit-toplevel)))
- default-directory
- ;; When $GIT_DIR/.dir-locals.el doesn't exist,
- ;; fallback to $GIT_WORK_TREE/.dir-locals.el,
- ;; because the maintainer can use the latter
- ;; to enforce conventions, while s/he has no
- ;; control over the former.
- (and (fboundp 'magit-toplevel) ; silence byte-compiler
- (magit-toplevel)))))
- (let ((buffer-file-name nil) ; trick hack-dir-local-variables
- (major-mode 'git-commit-mode)) ; trick dir-locals-collect-variables
- (hack-dir-local-variables)
- (hack-local-variables-apply)))
- (when git-commit-major-mode
- (let ((auto-mode-alist (list (cons (concat "\\`"
- (regexp-quote buffer-file-name)
- "\\'")
- git-commit-major-mode)))
- ;; The major-mode hook might want to consult these minor
- ;; modes, while the minor-mode hooks might want to consider
- ;; the major mode.
- (git-commit-mode t)
- (with-editor-mode t))
- (normal-mode t)))
- (setq with-editor-show-usage nil)
- (unless with-editor-mode
- ;; Maybe already enabled when using `shell-command' or an Emacs shell.
- (with-editor-mode 1))
- (add-hook 'with-editor-finish-query-functions
- 'git-commit-finish-query-functions nil t)
- (add-hook 'with-editor-pre-finish-hook
- 'git-commit-save-message nil t)
- (add-hook 'with-editor-pre-cancel-hook
- 'git-commit-save-message nil t)
- (when (and (fboundp 'magit-rev-parse)
- (not (memq last-command
- '(magit-sequencer-continue
- magit-sequencer-skip
- magit-am-continue
- magit-am-skip
- magit-rebase-continue
- magit-rebase-skip))))
- (add-hook 'with-editor-post-finish-hook
- (apply-partially 'git-commit-run-post-finish-hook
- (magit-rev-parse "HEAD"))
- nil t)
- (when (fboundp 'magit-wip-maybe-add-commit-hook)
- (magit-wip-maybe-add-commit-hook)))
- (setq with-editor-cancel-message
- 'git-commit-cancel-message)
- (make-local-variable 'log-edit-comment-ring-index)
- (git-commit-mode 1)
- (git-commit-setup-font-lock)
- (when (boundp 'save-place)
- (setq save-place nil))
- (save-excursion
- (goto-char (point-min))
- (when (looking-at "\\`\\(\\'\\|\n[^\n]\\)")
- (open-line 1)))
- (run-hooks 'git-commit-setup-hook)
- (set-buffer-modified-p nil))
-
-(defun git-commit-run-post-finish-hook (previous)
- (when git-commit-post-finish-hook
- (cl-block nil
- (let ((break (time-add (current-time)
- (seconds-to-time 1))))
- (while (equal (magit-rev-parse "HEAD") previous)
- (if (time-less-p (current-time) break)
- (sit-for 0.01)
- (message "No commit created after 1 second. Not running %s."
- 'git-commit-post-finish-hook)
- (cl-return))))
- (run-hooks 'git-commit-post-finish-hook))))
-
-(define-minor-mode git-commit-mode
- "Auxiliary minor mode used when editing Git commit messages.
-This mode is only responsible for setting up some key bindings.
-Don't use it directly, instead enable `global-git-commit-mode'."
- :lighter "")
-
-(put 'git-commit-mode 'permanent-local t)
-
-(defun git-commit-setup-changelog-support ()
- "Treat ChangeLog entries as paragraphs."
- (setq-local paragraph-start (concat paragraph-start "\\|\\*\\|(")))
-
-(defun git-commit-turn-on-auto-fill ()
- "Unconditionally turn on Auto Fill mode.
-If `git-commit-fill-column' is non-nil, and `fill-column'
-doesn't already have a buffer-local value, then set that
-to `git-commit-fill-column'."
- (when (and (numberp git-commit-fill-column)
- (not (local-variable-p 'fill-column)))
- (setq fill-column git-commit-fill-column))
- (setq-local comment-auto-fill-only-comments nil)
- (turn-on-auto-fill))
-
-(defun git-commit-turn-on-flyspell ()
- "Unconditionally turn on Flyspell mode.
-Also prevent comments from being checked and
-finally check current non-comment text."
- (require 'flyspell)
- (turn-on-flyspell)
- (setq flyspell-generic-check-word-predicate
- 'git-commit-flyspell-verify)
- (let ((end)
- (comment-start-regex (format "^\\(%s\\|$\\)" comment-start)))
- (save-excursion
- (goto-char (point-max))
- (while (and (not (bobp)) (looking-at comment-start-regex))
- (forward-line -1))
- (unless (looking-at comment-start-regex)
- (forward-line))
- (setq end (point)))
- (flyspell-region (point-min) end)))
-
-(defun git-commit-flyspell-verify ()
- (not (= (char-after (line-beginning-position))
- (aref comment-start 0))))
-
-(defun git-commit-finish-query-functions (force)
- (run-hook-with-args-until-failure
- 'git-commit-finish-query-functions force))
-
-(defun git-commit-check-style-conventions (force)
- "Check for violations of certain basic style conventions.
-
-For each violation ask the user if she wants to proceed anyway.
-Option `git-commit-check-style-conventions' controls which
-conventions are checked."
- (or force
- (save-excursion
- (goto-char (point-min))
- (re-search-forward (git-commit-summary-regexp) nil t)
- (if (equal (match-string 1) "")
- t ; Just try; we don't know whether --allow-empty-message was used.
- (and (or (not (memq 'overlong-summary-line
- git-commit-style-convention-checks))
- (equal (match-string 2) "")
- (y-or-n-p "Summary line is too long. Commit anyway? "))
- (or (not (memq 'non-empty-second-line
- git-commit-style-convention-checks))
- (not (match-string 3))
- (y-or-n-p "Second line is not empty. Commit anyway? ")))))))
-
-(defun git-commit-cancel-message ()
- (message
- (concat "Commit canceled"
- (and (memq 'git-commit-save-message with-editor-pre-cancel-hook)
- ". Message saved to `log-edit-comment-ring'"))))
-
-;;; History
-
-(defun git-commit-prev-message (arg)
- "Cycle backward through message history, after saving current message.
-With a numeric prefix ARG, go back ARG comments."
- (interactive "*p")
- (when (and (git-commit-save-message) (> arg 0))
- (setq log-edit-comment-ring-index
- (log-edit-new-comment-index
- arg (ring-length log-edit-comment-ring))))
- (save-restriction
- (goto-char (point-min))
- (narrow-to-region (point)
- (if (re-search-forward (concat "^" comment-start) nil t)
- (max 1 (- (point) 2))
- (point-max)))
- (log-edit-previous-comment arg)))
-
-(defun git-commit-next-message (arg)
- "Cycle forward through message history, after saving current message.
-With a numeric prefix ARG, go forward ARG comments."
- (interactive "*p")
- (git-commit-prev-message (- arg)))
-
-(defun git-commit-save-message ()
- "Save current message to `log-edit-comment-ring'."
- (interactive)
- (--when-let (git-commit-buffer-message)
- (unless (ring-member log-edit-comment-ring it)
- (ring-insert log-edit-comment-ring it))))
-
-(defun git-commit-buffer-message ()
- (let ((flush (concat "^" comment-start))
- (str (buffer-substring-no-properties (point-min) (point-max))))
- (with-temp-buffer
- (insert str)
- (goto-char (point-min))
- (when (re-search-forward (concat flush " -+ >8 -+$") nil t)
- (delete-region (point-at-bol) (point-max)))
- (goto-char (point-min))
- (flush-lines flush)
- (goto-char (point-max))
- (unless (eq (char-before) ?\n)
- (insert ?\n))
- (setq str (buffer-string)))
- (unless (string-match "\\`[ \t\n\r]*\\'" str)
- (when (string-match "\\`\n\\{2,\\}" str)
- (setq str (replace-match "\n" t t str)))
- (when (string-match "\n\\{2,\\}\\'" str)
- (setq str (replace-match "\n" t t str)))
- str)))
-
-;;; Headers
-
-(defun git-commit-ack (name mail)
- "Insert a header acknowledging that you have looked at the commit."
- (interactive (git-commit-self-ident))
- (git-commit-insert-header "Acked-by" name mail))
-
-(defun git-commit-modified (name mail)
- "Insert a header to signal that you have modified the commit."
- (interactive (git-commit-self-ident))
- (git-commit-insert-header "Modified-by" name mail))
-
-(defun git-commit-review (name mail)
- "Insert a header acknowledging that you have reviewed the commit."
- (interactive (git-commit-self-ident))
- (git-commit-insert-header "Reviewed-by" name mail))
-
-(defun git-commit-signoff (name mail)
- "Insert a header to sign off the commit."
- (interactive (git-commit-self-ident))
- (git-commit-insert-header "Signed-off-by" name mail))
-
-(defun git-commit-test (name mail)
- "Insert a header acknowledging that you have tested the commit."
- (interactive (git-commit-self-ident))
- (git-commit-insert-header "Tested-by" name mail))
-
-(defun git-commit-cc (name mail)
- "Insert a header mentioning someone who might be interested."
- (interactive (git-commit-read-ident))
- (git-commit-insert-header "Cc" name mail))
-
-(defun git-commit-reported (name mail)
- "Insert a header mentioning the person who reported the issue."
- (interactive (git-commit-read-ident))
- (git-commit-insert-header "Reported-by" name mail))
-
-(defun git-commit-suggested (name mail)
- "Insert a header mentioning the person who suggested the change."
- (interactive (git-commit-read-ident))
- (git-commit-insert-header "Suggested-by" name mail))
-
-(defun git-commit-self-ident ()
- (list (or (getenv "GIT_AUTHOR_NAME")
- (getenv "GIT_COMMITTER_NAME")
- (ignore-errors (car (process-lines "git" "config" "user.name")))
- user-full-name
- (read-string "Name: "))
- (or (getenv "GIT_AUTHOR_EMAIL")
- (getenv "GIT_COMMITTER_EMAIL")
- (getenv "EMAIL")
- (ignore-errors (car (process-lines "git" "config" "user.email")))
- (read-string "Email: "))))
-
-(defun git-commit-read-ident ()
- (list (read-string "Name: ")
- (read-string "Email: ")))
-
-(defun git-commit-insert-header (header name email)
- (setq header (format "%s: %s <%s>" header name email))
- (save-excursion
- (goto-char (point-max))
- (cond ((re-search-backward "^[-a-zA-Z]+: [^<]+? <[^>]+>" nil t)
- (end-of-line)
- (insert ?\n header)
- (unless (= (char-after) ?\n)
- (insert ?\n)))
- (t
- (while (re-search-backward (concat "^" comment-start) nil t))
- (unless (looking-back "\n\n" nil)
- (insert ?\n))
- (insert header ?\n)))
- (unless (or (eobp) (= (char-after) ?\n))
- (insert ?\n))))
-
-;;; Font-Lock
-
-(defun git-commit-summary-regexp ()
- (concat
- ;; Leading empty lines and comments
- (format "\\`\\(?:^\\(?:\\s-*\\|%s.*\\)\n\\)*" comment-start)
- ;; Summary line
- (format "\\(.\\{0,%d\\}\\)\\(.*\\)" git-commit-summary-max-length)
- ;; Non-empty non-comment second line
- (format "\\(?:\n%s\\|\n\\(.+\\)\\)?" comment-start)))
-
-(defun git-commit-extend-region-summary-line ()
- "Identify the multiline summary-regexp construct.
-Added to `font-lock-extend-region-functions'."
- (save-excursion
- (save-match-data
- (goto-char (point-min))
- (when (looking-at (git-commit-summary-regexp))
- (let ((summary-beg (match-beginning 0))
- (summary-end (match-end 0)))
- (when (or (< summary-beg font-lock-beg summary-end)
- (< summary-beg font-lock-end summary-end))
- (setq font-lock-beg (min font-lock-beg summary-beg))
- (setq font-lock-end (max font-lock-end summary-end))))))))
-
-(defvar-local git-commit--branch-name-regexp nil)
-
-(defconst git-commit-comment-headings
- '("Changes to be committed:"
- "Untracked files:"
- "Changed but not updated:"
- "Changes not staged for commit:"
- "Unmerged paths:"
- "Author:"
- "Date:"))
-
-(defconst git-commit-font-lock-keywords-1
- '(;; Pseudo headers
- (eval . `(,(format "^\\(%s:\\)\\( .*\\)"
- (regexp-opt git-commit-known-pseudo-headers))
- (1 'git-commit-known-pseudo-header)
- (2 'git-commit-pseudo-header)))
- ("^[-a-zA-Z]+: [^<]+? <[^>]+>"
- (0 'git-commit-pseudo-header))
- ;; Summary
- (eval . `(,(git-commit-summary-regexp)
- (1 'git-commit-summary)))
- ;; - Note (overrides summary)
- ("\\[.+?\\]"
- (0 'git-commit-note t))
- ;; - Non-empty second line (overrides summary and note)
- (eval . `(,(git-commit-summary-regexp)
- (2 'git-commit-overlong-summary t t)
- (3 'git-commit-nonempty-second-line t t)))))
-
-(defconst git-commit-font-lock-keywords-2
- `(,@git-commit-font-lock-keywords-1
- ;; Comments
- (eval . `(,(format "^%s.*" comment-start)
- (0 'font-lock-comment-face)))
- (eval . `(,(format "^%s On branch \\(.*\\)" comment-start)
- (1 'git-commit-comment-branch-local t)))
- (eval . `(,(format "^%s \\(HEAD\\) detached at" comment-start)
- (1 'git-commit-comment-detached t)))
- (eval . `(,(format "^%s %s" comment-start
- (regexp-opt git-commit-comment-headings t))
- (1 'git-commit-comment-heading t)))
- (eval . `(,(format "^%s\t\\(?:\\([^:\n]+\\):\\s-+\\)?\\(.*\\)" comment-start)
- (1 'git-commit-comment-action t t)
- (2 'git-commit-comment-file t)))))
-
-(defconst git-commit-font-lock-keywords-3
- `(,@git-commit-font-lock-keywords-2
- ;; More comments
- (eval
- ;; Your branch is ahead of 'master' by 3 commits.
- ;; Your branch is behind 'master' by 2 commits, and can be fast-forwarded.
- . `(,(format
- "^%s Your branch is \\(?:ahead\\|behind\\) of '%s' by \\([0-9]*\\)"
- comment-start git-commit--branch-name-regexp)
- (1 'git-commit-comment-branch-local t)
- (2 'git-commit-comment-branch-remote t)
- (3 'bold t)))
- (eval
- ;; Your branch is up to date with 'master'.
- ;; Your branch and 'master' have diverged,
- . `(,(format
- "^%s Your branch \\(?:is up-to-date with\\|and\\) '%s'"
- comment-start git-commit--branch-name-regexp)
- (1 'git-commit-comment-branch-local t)
- (2 'git-commit-comment-branch-remote t)))
- (eval
- ;; and have 1 and 2 different commits each, respectively.
- . `(,(format
- "^%s and have \\([0-9]*\\) and \\([0-9]*\\) commits each"
- comment-start)
- (1 'bold t)
- (2 'bold t)))))
-
-(defvar git-commit-font-lock-keywords git-commit-font-lock-keywords-2
- "Font-Lock keywords for Git-Commit mode.")
-
-(defun git-commit-setup-font-lock ()
- (let ((table (make-syntax-table (syntax-table))))
- (when comment-start
- (modify-syntax-entry (string-to-char comment-start) "." table))
- (modify-syntax-entry ?# "." table)
- (modify-syntax-entry ?\" "." table)
- (modify-syntax-entry ?\' "." table)
- (modify-syntax-entry ?` "." table)
- (set-syntax-table table))
- (setq-local comment-start
- (or (ignore-errors
- (car (process-lines "git" "config" "core.commentchar")))
- "#"))
- (setq-local comment-start-skip (format "^%s+[\s\t]*" comment-start))
- (setq-local comment-end-skip "\n")
- (setq-local comment-use-syntax nil)
- (setq-local git-commit--branch-name-regexp
- (if (and (featurep 'magit-git)
- ;; When using cygwin git, we may end up in a
- ;; non-existing directory, which would cause
- ;; any git calls to signal an error.
- (file-accessible-directory-p default-directory))
- (progn
- ;; Make sure the below functions are available.
- (require 'magit)
- ;; Font-Lock wants every submatch to succeed,
- ;; so also match the empty string. Do not use
- ;; `regexp-quote' because that is slow if there
- ;; are thousands of branches outweighing the
- ;; benefit of an efficient regep.
- (format "\\(\\(?:%s\\)\\|\\)\\(\\(?:%s\\)\\|\\)"
- (mapconcat #'identity
- (magit-list-local-branch-names)
- "\\|")
- (mapconcat #'identity
- (magit-list-remote-branch-names)
- "\\|")))
- "\\([^']*\\)"))
- (setq-local font-lock-multiline t)
- (add-hook 'font-lock-extend-region-functions
- #'git-commit-extend-region-summary-line
- t t)
- (font-lock-add-keywords nil git-commit-font-lock-keywords t))
-
-(defun git-commit-propertize-diff ()
- (require 'diff-mode)
- (save-excursion
- (goto-char (point-min))
- (when (re-search-forward "^diff --git" nil t)
- (beginning-of-line)
- (let ((buffer (current-buffer)))
- (insert
- (with-temp-buffer
- (insert
- (with-current-buffer buffer
- (prog1 (buffer-substring-no-properties (point) (point-max))
- (delete-region (point) (point-max)))))
- (let ((diff-default-read-only nil))
- (diff-mode))
- (let (font-lock-verbose font-lock-support-mode)
- (if (fboundp 'font-lock-ensure)
- (font-lock-ensure)
- (with-no-warnings
- (font-lock-fontify-buffer))))
- (let (next (pos (point-min)))
- (while (setq next (next-single-property-change pos 'face))
- (put-text-property pos next 'font-lock-face
- (get-text-property pos 'face))
- (setq pos next))
- (put-text-property pos (point-max) 'font-lock-face
- (get-text-property pos 'face)))
- (buffer-string)))))))
-
-;;; Elisp Text Mode
-
-(define-derived-mode git-commit-elisp-text-mode text-mode "ElText"
- "Major mode for editing commit messages of elisp projects.
-This is intended for use as `git-commit-major-mode' for projects
-that expect `symbols' to look like this. I.e. like they look in
-Elisp doc-strings, including this one. Unlike in doc-strings,
-\"strings\" also look different than the other text."
- (setq font-lock-defaults '(git-commit-elisp-text-mode-keywords)))
-
-(defvar git-commit-elisp-text-mode-keywords
- `((,(concat "[`‘]\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)"
- lisp-mode-symbol-regexp "\\)['’]")
- (1 font-lock-constant-face prepend))
- ("\"[^\"]*\"" (0 font-lock-string-face prepend))))
-
-;;; _
-(provide 'git-commit)
-;;; git-commit.el ends here
diff --git a/elpa/git-commit-20181116.1408/git-commit.elc b/elpa/git-commit-20181116.1408/git-commit.elc
deleted file mode 100644
index 68a1147..0000000
--- a/elpa/git-commit-20181116.1408/git-commit.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/graphql-20180912.31/graphql-autoloads.el b/elpa/graphql-20180912.31/graphql-autoloads.el
deleted file mode 100644
index fd7bad3..0000000
--- a/elpa/graphql-20180912.31/graphql-autoloads.el
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; graphql-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "graphql" "graphql.el" (0 0 0 0))
-;;; Generated autoloads from graphql.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "graphql" '("graphql-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; graphql-autoloads.el ends here
diff --git a/elpa/graphql-20180912.31/graphql-pkg.el b/elpa/graphql-20180912.31/graphql-pkg.el
deleted file mode 100644
index 0ffffb1..0000000
--- a/elpa/graphql-20180912.31/graphql-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "graphql" "20180912.31" "GraphQL utilities" '((emacs "25")) :commit "e2b309689f4faf9225f290080f836e988c5a576d" :keywords '("hypermedia" "tools" "lisp") :authors '(("Sean Allred" . "code@seanallred.com")) :maintainer '("Sean Allred" . "code@seanallred.com") :url "https://github.com/vermiculus/graphql.el")
diff --git a/elpa/graphql-20180912.31/graphql.el b/elpa/graphql-20180912.31/graphql.el
deleted file mode 100644
index 75873f5..0000000
--- a/elpa/graphql-20180912.31/graphql.el
+++ /dev/null
@@ -1,220 +0,0 @@
-;;; graphql.el --- GraphQL utilities -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017 Sean Allred
-
-;; Author: Sean Allred <code@seanallred.com>
-;; Keywords: hypermedia, tools, lisp
-;; Homepage: https://github.com/vermiculus/graphql.el
-;; Package-Version: 20180912.31
-;; Package-X-Original-Version: 0.1.1
-;; Package-Requires: ((emacs "25"))
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; GraphQL.el provides a generally-applicable domain-specific language
-;; for creating and executing GraphQL queries against your favorite
-;; web services.
-
-;;; Code:
-
-(require 'pcase)
-
-(defun graphql--encode-object (obj)
- "Encode OBJ as a GraphQL string."
- (cond
- ((stringp obj)
- obj)
- ((symbolp obj)
- (symbol-name obj))
- ((numberp obj)
- (number-to-string obj))
- ((and (consp obj)
- (not (consp (cdr obj))))
- (symbol-name (car obj)))))
-
-(defun graphql--encode-argument-spec (spec)
- "Encode an argument spec SPEC.
-SPEC is of the form..."
- (graphql--encode-argument (car spec) (cdr spec)))
-
-(defun graphql--encode-argument (key value)
- "Encode an argument KEY with value VALUE."
- (format "%s:%s" key (graphql--encode-argument-value value)))
-
-(defun graphql--encode-argument-value (value)
- "Encode an argument value VALUE.
-VALUE is expected to be one of the following:
-
-* a symbol
-* a 'variable', i.e. \\='($ variableName)
-* an object (as a list)
-* a string
-* a vector of values (e.g., symbols)
-* a number
-* something encode-able by `graphql-encode'."
- (cond
- ((symbolp value)
- (symbol-name value))
- ((eq '$ (car-safe value))
- (format "$%s" (cadr value)))
- ((listp value)
- (format "{%s}" (mapconcat #'graphql--encode-argument-spec value ",")))
- ((stringp value)
- (format "\"%s\"" value))
- ((vectorp value)
- (format "[%s]" (mapconcat #'graphql-encode value ",")))
- ((numberp value)
- (number-to-string value))
- (t
- (graphql-encode value))))
-
-(defun graphql--encode-parameter-spec (spec)
- "Encode a parameter SPEC.
-SPEC is expected to be of the following form:
-
- (NAME TYPE [REQUIRED] . [DEFAULT])
-
-NAME is the name of the parameter.
-
-TYPE is the parameter's type.
-
-A non-nil value for REQUIRED will indicate the parameter is
-required. A value of `!' is recommended.
-
-A non-nil value for DEFAULT will provide a default value for the
-parameter."
- ;; Unfortunately can't use `pcase' here because the first DEFAULT
- ;; value (in the case of a complex value) might be misunderstood as
- ;; the value for REQUIRED. We need to know if the third cons is the
- ;; very last one; not just that the list has at least three
- ;; elements.
- (if (eq (last spec) (nthcdr 2 spec))
- (graphql--encode-parameter (nth 0 spec)
- (nth 1 spec)
- (car (last spec))
- (cdr (last spec)))
- (graphql--encode-parameter (nth 0 spec)
- (nth 1 spec)
- nil
- (nthcdr 2 spec))))
-
-(defun graphql--encode-parameter (name type &optional required default)
- "Encode a GraphQL parameter with a NAME and TYPE.
-If REQUIRED is non-nil, mark the parameter as required.
-If DEFAULT is non-nil, is the default value of the parameter."
- (format "$%s:%s%s%s"
- (symbol-name name)
- (symbol-name type)
- (if required "!" "")
- (if default
- (concat "=" (graphql--encode-argument-value default))
- "")))
-
-(defun graphql--get-keys (g)
- "Get the keyword arguments from a graph G.
-Returns a list where the first element is a plist of arguments
-and the second is a 'clean' copy of G."
- (or (and (not (consp g))
- (list nil g))
- (let (graph keys)
- (while g
- (if (keywordp (car g))
- (let* ((param (pop g))
- (value (pop g)))
- (push (cons param value) keys))
- (push (pop g) graph)))
- (list keys (nreverse graph)))))
-
-(defun graphql-encode (g)
- "Encode graph G as a GraphQL string."
- (pcase (graphql--get-keys g)
- (`(,keys ,graph)
- (let ((object (or (car-safe graph) graph))
- (name (alist-get :op-name keys))
- (params (alist-get :op-params keys))
- (arguments (alist-get :arguments keys))
- (fields (cdr-safe graph)))
- (concat
- (graphql--encode-object object)
- (when name
- (format " %S" name))
- (when arguments
- ;; Format arguments "key:value,key:value,..."
- (format "(%s)"
- (mapconcat #'graphql--encode-argument-spec arguments ",")))
- (when params
- (format "(%s)"
- (mapconcat #'graphql--encode-parameter-spec params ",")))
- (when fields
- (format "{%s}"
- (mapconcat #'graphql-encode fields " "))))))))
-
-(defun graphql-simplify-response-edges (data)
- "Simplify DATA to collapse edges into their nodes."
- (pcase data
- ;; When we encounter a collection of edges, simplify those edges
- ;; into their nodes
- (`(,object (edges . ,edges))
- (cons object (mapcar #'graphql-simplify-response-edges
- (mapcar (lambda (edge) (alist-get 'node edge))
- edges))))
- ;; When we encounter a plain cons cell (not a list), let it pass
- (`(,(and key (guard (not (consp key)))) . ,(and value (guard (not (consp value)))))
- (cons key value))
- ;; symbols should pass unaltered
- (`,(and symbol (guard (symbolp symbol)))
- symbol)
- ;; everything else should be mapped
- (_ (mapcar #'graphql-simplify-response-edges data))))
-
-(defun graphql--genform-operation (args kind)
- "Generate the Lisp form for an operation.
-ARGS is is a list ([NAME [PARAMETERS]] GRAPH) where NAME is the
-name of the operation, PARAMETERS are its parameters, and GRAPH
-is the form of the actual operation.
-
-KIND can be `query' or `mutation'."
- (pcase args
- (`(,name ,parameters ,graph)
- `(graphql-encode '(,kind :op-name ,name
- :op-params ,parameters
- ,@graph)))
-
- (`(,name ,graph)
- `(graphql-encode '(,kind :op-name ,name
- ,@graph)))
-
- (`(,graph)
- `(graphql-encode '(,kind ,@graph)))
-
- (_ (error "Bad form"))))
-
-(defmacro graphql-query (&rest args)
- "Construct a Query object.
-ARGS is a listof the form described by `graphql--genform-operation'.
-
-\(fn [NAME] [(PARAMETER-SPEC...)] GRAPH)"
- (graphql--genform-operation args 'query))
-
-(defmacro graphql-mutation (&rest args)
- "Construct a Mutation object.
-ARGS is a listof the form described by `graphql--genform-operation'.
-
-\(fn [NAME] [(PARAMETER-SPEC...)] GRAPH)"
- (graphql--genform-operation args 'mutation))
-
-(provide 'graphql)
-;;; graphql.el ends here
diff --git a/elpa/graphql-20180912.31/graphql.elc b/elpa/graphql-20180912.31/graphql.elc
deleted file mode 100644
index c46d2b7..0000000
--- a/elpa/graphql-20180912.31/graphql.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/guide-key-20150108.635/guide-key-autoloads.el b/elpa/guide-key-20150108.635/guide-key-autoloads.el
deleted file mode 100644
index acf1dfd..0000000
--- a/elpa/guide-key-20150108.635/guide-key-autoloads.el
+++ /dev/null
@@ -1,42 +0,0 @@
-;;; guide-key-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "guide-key" "guide-key.el" (0 0 0 0))
-;;; Generated autoloads from guide-key.el
-
-(defvar guide-key-mode nil "\
-Non-nil if Guide-Key mode is enabled.
-See the `guide-key-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `guide-key-mode'.")
-
-(custom-autoload 'guide-key-mode "guide-key" nil)
-
-(autoload 'guide-key-mode "guide-key" "\
-Toggle guide key mode.
-
-In guide key mode, Guide following keys to an input key sequence
-automatically and dynamically.
-With a prefix argument ARG, enable guide key mode if ARG is
-positive, otherwise disable.
-
-\(fn &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "guide-key" '("guide-key/")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; guide-key-autoloads.el ends here
diff --git a/elpa/guide-key-20150108.635/guide-key-pkg.el b/elpa/guide-key-20150108.635/guide-key-pkg.el
deleted file mode 100644
index 22c767b..0000000
--- a/elpa/guide-key-20150108.635/guide-key-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "guide-key" "20150108.635" "Guide the following key bindings automatically and dynamically" '((dash "2.10.0") (popwin "0.3.0") (s "1.9.0")) :commit "9236d287a7272e307fb941237390a96037c8c0a2" :keywords '("help" "convenience") :authors '(("Tsunenobu Kai" . "kai2nenobu@gmail.com")) :maintainer '("Tsunenobu Kai" . "kai2nenobu@gmail.com") :url "https://github.com/kai2nenobu/guide-key")
diff --git a/elpa/guide-key-20150108.635/guide-key.el b/elpa/guide-key-20150108.635/guide-key.el
deleted file mode 100644
index 399df7a..0000000
--- a/elpa/guide-key-20150108.635/guide-key.el
+++ /dev/null
@@ -1,643 +0,0 @@
-;;; guide-key.el --- Guide the following key bindings automatically and dynamically
-
-;; Copyright (C) 2012, 2013 Tsunenobu Kai
-
-;; Author: Tsunenobu Kai <kai2nenobu@gmail.com>
-;; URL: https://github.com/kai2nenobu/guide-key
-;; Package-Version: 20150108.635
-;; Version: 1.2.5
-;; Package-Requires: ((dash "2.10.0") (popwin "0.3.0") (s "1.9.0"))
-;; Keywords: help convenience
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Overview:
-;;
-;; guide-key.el displays the available key bindings automatically and dynamically.
-;; guide-key aims to be an alternative of one-key.el.
-;;
-;; Here are some features of this library.
-;; - guide-key automatically pops up the keys following your favorite
-;; prefixes. Moreover, even if you change key bindings, guide-key follows the
-;; change dynamically.
-;; - guide-key can highlight particular commands. This makes it easy to find a
-;; command you are looking for, and to learn its key binding.
-;; - guide-key doesn't overwrite existing commands and key bindings, so there
-;; is no interference with `describe-key' and `describe-bindings'.
-;;
-;;
-;; Installation:
-;;
-;; I added guide-key to MELPA. You can install guide-key with package.el.
-;; Because guide-key depends on popwin.el, popwin.el is also installed.
-;;
-;; If you don't have package.el, please download popwin.el and guide-key.el
-;; directly from https://github.com/m2ym/popwin-el and
-;; https://github.com/kai2nenobu/guide-key, and then put them in your
-;; `load-path'.
-;;
-;;
-;; Basic usage:
-;;
-;; You just add your favorite prefix keys to `guide-key/guide-key-sequence'
-;; as below.
-;;
-;; (require 'guide-key)
-;; (setq guide-key/guide-key-sequence '("C-x r" "C-x 4"))
-;; (guide-key-mode 1) ; Enable guide-key-mode
-;;
-;; When you press these prefix keys, key bindings are automatically
-;; popped up after a short delay (1 second by default).
-;;
-;; To activate guide-key for any key sequence instead of just the ones
-;; listed above then use:
-;;
-;; (setq guide-key/guide-key-sequence t)
-;;
-;; guide-key can highlight commands which match a specified regular expression.
-;; Key bindings following "C-x r" are rectangle family, register family and
-;; bookmark family. If you want to highlight only rectangle family
-;; commands, put this setting in your init.el.
-;;
-;; (setq guide-key/highlight-command-regexp "rectangle")
-;;
-;; This feature makes it easy to find commands and learn their key bindings.
-;; If you want to highlight all families, you can specify multiple regular
-;; expressions and faces as below.
-;;
-;; (setq guide-key/highlight-command-regexp
-;; '("rectangle"
-;; ("register" . font-lock-type-face)
-;; ("bookmark" . font-lock-warning-face)))
-;;
-;; If an element of `guide-key/highlight-command-regexp' is cons, its car
-;; means a regular expression to highlight, and its cdr means a face put on
-;; command names.
-;;
-;; Moreover, prefix commands are automatically highlighted.
-;;
-;; Depending on your level of emacs experience, you may want a shorter or
-;; longer delay between pressing a key and the appearance of the guide
-;; buffer. This can be controlled by setting `guide-key/idle-delay':
-;;
-;; (setq guide-key/idle-delay 0.1)
-;;
-;; The guide buffer is displayed only when you pause between keystrokes
-;; for longer than this delay, so it will keep out of your way when you
-;; are typing key sequences that you already know well.
-;;
-;; I've confirmed that guide-key works well in these environments.
-;; - Emacs 24.2, Ubuntu 12.04 or Windows 7 64bit
-;; - Emacs 23.3, Ubuntu 12.04 or Windows 7 64bit
-;; - Emacs 22.3, Windows 7 64bit
-;; - Emacs 24.3.1, OS X 10.9
-;; If popwin works, I think guide-key will work as well. You can use
-;; guide-key with Emacs working in terminal.
-;;
-;;
-;; Advanced usage:
-;;
-;; It is bothering to add many prefixes to `guide-key/guide-key-sequence'.
-;; `guide-key/recursive-key-sequence-flag' releases you from this problem.
-;; If `guide-key/recursive-key-sequence-flag' is non-nil, guide-key checks a
-;; input key sequence recursively. That is, if "C-x 8 ^" is an input key
-;; sequence, guide-key checks whether `guide-key/guide-key-sequence' includes
-;; "C-x 8" and "C-x".
-;;
-;; For example, if you configure as below,
-;;
-;; (setq guide-key/guide-key-sequence '("C-x"))
-;; (setq guide-key/recursive-key-sequence-flag t)
-;;
-;; the guide buffer is popped up when you input "C-x r", "C-x 8" and
-;; any other prefixes following "C-x".
-;;
-;;
-;; You can add extra settings in a particular mode. Please use
-;; `guide-key/add-local-guide-key-sequence',
-;; `guide-key/add-local-highlight-command-regexp' and the hook of
-;; that mode.
-;;
-;;
-;; This code is a example of org-mode.
-;;
-;; (defun guide-key/my-hook-function-for-org-mode ()
-;; (guide-key/add-local-guide-key-sequence "C-c")
-;; (guide-key/add-local-guide-key-sequence "C-c C-x")
-;; (guide-key/add-local-highlight-command-regexp "org-"))
-;; (add-hook 'org-mode-hook 'guide-key/my-hook-function-for-org-mode)
-;;
-;; In respect of `guide-key/guide-key-sequence', you can add mode specific key
-;; sequences without `guide-key/add-local-guide-key-sequence'. For example,
-;; configure as below.
-;;
-;; (setq guide-key/guide-key-sequence
-;; '("C-x r" "C-x 4"
-;; (org-mode "C-c C-x")
-;; (outline-minor-mode "C-c @")))
-;;
-;; In this case, if the current major mode is `org-mode', guide key bindings
-;; following "C-c C-x". If `outline-minor-mode' is enabled, guide key bindings
-;; following "C-c @".
-;;
-;;
-;; `guide-key' can work with key-chord.el. If you want to guide key bindings
-;; following key chord, you need to execute
-;; `guide-key/key-chord-hack-on'. Then, add your favorite key chord to
-;; `guide-key/guide-key-sequence' as below.
-;;
-;; (key-chord-define global-map "@4" 'ctl-x-4-prefix)
-;;
-;; (guide-key/key-chord-hack-on)
-;; (setq guide-key/guide-key-sequence '("<key-chord> @ 4" "<key-chord> 4 @"))
-;;
-;; If =guide-key/recursive-key-sequence-flag= is non-nil, more simple.
-;;
-;; (guide-key/key-chord-hack-on)
-;; (setq guide-key/recursive-key-sequence-flag t)
-;; (setq guide-key/guide-key-sequence '("<key-chord>"))
-;;
-;; In this case, key bindings are popped up when you type any of key chords.
-;;
-;; This hack *may be dangerous* because it advices primitive functions;
-;; `this-command-keys' and `this-command-keys-vector'.
-;;
-;;
-;; Here are some functions and variables which control guide-key.
-;; - `guide-key-mode':
-;; guide-key-mode is implemented as a minor mode.
-;; Excuting M-x guide-key-mode toggles whether guide-key is enabled or
-;; not. Because guide-key-mode is a global minor mode, guide-key-mode is
-;; enabled in all buffers or disabled in all buffers.
-;; - `guide-key/popup-window-position':
-;; This variable controls where a guide-key buffer is popped up. A value of
-;; this variable is one of `right', `bottom', `left', `top'. The default
-;; value is `right'.
-;; - `guide-key/polling-time':
-;; This variable controls a polling time. The default value is 0.1 (in seconds).
-;; - `guide-key/idle-delay':
-;; This variable controls the delay between starting a key sequence and
-;; popping up the guide buffer. The default value is 1.0 (in seconds),
-;; which means that guide-key will keep out of your way unless you hesitate
-;; in the middle of a key sequence . Set this to 0.0 to revert to the old
-;; default behavior.
-;; - `guide-key/text-scale-amount':
-;; This variable controls the size of text in guide buffer. The default
-;; value is 0 (it means default size in Emacs). If you want to enlarge
-;; text, set positive number. Otherwise, set negative number.
-;;
-;; Enjoy!
-
-;;; Code:
-
-(eval-when-compile
- (require 'cl)
- (require 'face-remap))
-
-(require 'dash)
-(require 'popwin)
-(require 's)
-
-;;; variables
-(defgroup guide-key nil
- "Guide key bidings."
- :group 'help
- :prefix "guide-key/")
-
-(defcustom guide-key/guide-key-sequence nil
- "*Key sequences to guide in `guide-key-mode'.
-This variable is a list of string representation.
-Both representations, like \"C-x r\" and \"\\C-xr\",
-are allowed.
-
-In addition, an element of this list can be a list whose car is
-the symbol for a certain mode, and whose cdr is a list of key
-sequences to consider only if that mode is active.
-
-Set this variable to `t' to enable for any key sequence."
- :type '(repeat (choice (string :tag "Prefix key sequence")
- (cons :tag "Mode specific sequence"
- (symbol :tag "Symbol for mode")
- (repeat (string :tag "Prefix key sequence")))))
- :group 'guide-key)
-
-(defcustom guide-key/polling-time 0.1
- "*Polling time to check an input key sequence."
- :type 'float
- :group 'guide-key)
-
-(defcustom guide-key/idle-delay 1.0
- "*Delay in seconds before guide buffer is displayed."
- :type 'float
- :group 'guide-key)
-
-(defcustom guide-key/highlight-prefix-regexp "prefix"
- "*Regexp for prefix commands."
- :type 'regexp
- :group 'guide-key)
-
-(defcustom guide-key/highlight-command-regexp nil
- "*Regexp for commands to highlight.
-If a command name matches this regexp, it is highlighted with
-`guide-key/highlight-command-face'.
-
-This variable can be a list and its element is either a regexp or
-a cons cell, its car is a regexp and its cdr is face symbol or
-color name string. If regexp, commands which match the regexp
-are highlighted with `guide-key/highlight-command-face'. If cons
-cell, commands which match the car regexp are highlighted with
-the cdr face or color."
- :type '(choice (regexp :tag "Regexp to highlight")
- (repeat (choice (regexp :tag "Regexp to highlight")
- (cons (regexp :tag "Regexp to highlight")
- (choice (face :tag "Face on command")
- (string :tag "Color name string"))))))
- :group 'guide-key)
-
-(defcustom guide-key/align-command-by-space-flag nil
- "*If non-nil, align guide buffer by space."
- :type 'boolean
- :group 'guide-key)
-
-(defcustom guide-key/popup-window-position 'right
- "*Position where guide buffer is popped up.
-This variable must be one of `right', `bottom', `left' and `top'."
- :type '(radio (const right) (const bottom) (const left) (const top))
- :group 'guide-key)
-
-(defcustom guide-key/text-scale-amount 0
- "*Amount of scaling text in guide buffer.
-
-If positive number, the text becomes larger. If negative number,
-the text becomes smaller. Scale of the text is detemined by the
-value of variable `text-scale-mode-step'."
- :type 'float
- :group 'guide-key)
-
-(defcustom guide-key/recursive-key-sequence-flag nil
- "*If non-nil, check an input key sequence recursively.
-For example, if `guide-key/guide-key-sequence' includes \"C-x\",
-guide buffer is popped up when you input \"C-x r\", \"C-x 4\" and
-any other prefixes following \"C-x\"."
- :type 'boolean
- :group 'guide-key)
-
-(defface guide-key/prefix-command-face
- '((((class color) (background dark))
- (:foreground "cyan"))
- (((class color) (background light))
- (:foreground "blue")))
- "Face for prefix commands to highlight"
- :group 'guide-key)
-
-(defface guide-key/highlight-command-face
- '((((class color) (background dark))
- (:foreground "yellow"))
- (((class color) (background light))
- (:foreground "orange red")))
- "Face for commands to highlight"
- :group 'guide-key)
-
-(defface guide-key/key-face
- '((((class color) (background dark))
- (:foreground "red"))
- (((class color) (background light))
- (:foreground "dark green")))
- "Face for keys following to a key sequence"
- :group 'guide-key)
-
-;;; internal variables
-(defvar guide-key/polling-timer nil
- "Polling timer to check an input key sequence.")
-
-(defvar guide-key/idle-timer nil
- "Idle timer to wait before popping up guide buffer.")
-
-(defvar guide-key/guide-buffer-name " *guide-key*"
- "Buffer name of guide buffer.")
-
-(defvar guide-key/last-key-sequence-vector nil
- "Key sequence input at the last polling operation.")
-
-;; or hook
-;; (add-hook 'pre-command-hook 'guide-key/hook-command)
-;; (setq pre-command-hook nil)
-;; (add-hook 'post-command-hook 'guide-key/key-event)
-;; (add-hook 'pre-command-hook 'show-this-command)
-
-;;; functions
-;;;###autoload
-(define-minor-mode guide-key-mode
- "Toggle guide key mode.
-
-In guide key mode, Guide following keys to an input key sequence
-automatically and dynamically.
-With a prefix argument ARG, enable guide key mode if ARG is
-positive, otherwise disable."
- :global t
- :lighter " Guide"
- (funcall (if guide-key-mode
- 'guide-key/turn-on-timer
- 'guide-key/turn-off-timer)))
-
-(defun guide-key/popup-function (&optional input)
- "Popup function called after delay of `guide-key/idle-delay' second."
- (let ((key-seq (or input (this-single-command-keys)))
- (regexp guide-key/highlight-command-regexp))
- (let ((dsc-buf (current-buffer))
- (max-width 0))
- (with-current-buffer (get-buffer-create guide-key/guide-buffer-name)
- (unless truncate-lines (setq truncate-lines t)) ; don't fold line
- (when indent-tabs-mode (setq indent-tabs-mode nil)) ; don't use tab as white space
- (setq mode-line-format nil)
- (text-scale-set guide-key/text-scale-amount)
- (erase-buffer)
- (describe-buffer-bindings dsc-buf key-seq)
- (when (> (guide-key/format-guide-buffer key-seq regexp) 0)
- (guide-key/close-guide-buffer)
- (guide-key/popup-guide-buffer))))))
-
-
-;;; internal functions
-(defun guide-key/polling-function ()
- "Polling function executed every `guide-key/polling-time' second."
- (let ((key-seq (this-single-command-keys)))
- (if (guide-key/popup-guide-buffer-p key-seq)
- (when (guide-key/update-guide-buffer-p key-seq)
- (guide-key/turn-on-idle-timer))
- (guide-key/close-guide-buffer))
- (setq guide-key/last-key-sequence-vector key-seq)))
-
-(defun guide-key/popup-guide-buffer ()
- "Pop up guide buffer at `guide-key/popup-window-position'."
- (let ((last-config popwin:popup-last-config))
- (apply 'popwin:popup-buffer (get-buffer guide-key/guide-buffer-name)
- :position guide-key/popup-window-position
- :noselect t
- (cond ((popwin:position-horizontal-p guide-key/popup-window-position)
- `(:width ,(guide-key/popup-window-size 'horizontal)))
- ((popwin:position-vertical-p guide-key/popup-window-position)
- `(:height ,(guide-key/popup-window-size)))))
- (setq popwin:popup-last-config last-config)))
-
-(defun guide-key/popup-window-size (&optional horizontal)
- "Return an enough height or width of popup window to display
-all key bindings in guide buffer.
-
-If HORIZONTAL is omitted or nil, return the height of popup
-window. Otherwise, return the width of popup window"
- (with-current-buffer (get-buffer guide-key/guide-buffer-name)
- (let ((margin (if horizontal 5 1))
- (scale (expt text-scale-mode-step text-scale-mode-amount)))
- (if horizontal
- (ceiling (* scale (+ (guide-key/buffer-max-width) margin)))
- (ceiling (* scale (+ (count-lines (point-min) (point-max)) margin))))
- )))
-
-(defun guide-key/close-guide-buffer ()
- "Close guide buffer."
- (when (eq popwin:popup-buffer (get-buffer guide-key/guide-buffer-name))
- (popwin:close-popup-window))
- (guide-key/turn-off-idle-timer)
- )
-
-(add-hook 'pre-command-hook 'guide-key/close-guide-buffer)
-
-(defun guide-key/update-guide-buffer-p (key-seq)
- "Return t if guide buffer should be updated."
- (not (equal guide-key/last-key-sequence-vector key-seq)))
-
-(defun guide-key/popup-guide-buffer-p (key-seq)
- "Return t if guide buffer should be popped up."
- (and (> (length key-seq) 0)
- (or (eq guide-key/guide-key-sequence t)
- (member key-seq (guide-key/buffer-key-sequences))
- (and guide-key/recursive-key-sequence-flag
- (guide-key/popup-guide-buffer-p (guide-key/vbutlast key-seq))))))
-
-(defun guide-key/buffer-key-sequences ()
- "Return a list of key sequences (vector representation) in current buffer."
- (let (lst)
- ;; global key sequences
- (dolist (ks guide-key/guide-key-sequence)
- (when (stringp ks)
- (setq lst (cons ks lst))))
- ;; major-mode specific key sequences
- (setq lst (append (assoc-default major-mode guide-key/guide-key-sequence) lst))
- ;; minor-mode specific key sequences
- (dolist (mmode minor-mode-list)
- (when (and (boundp mmode) (symbol-value mmode))
- (setq lst (append (assoc-default mmode guide-key/guide-key-sequence) lst))))
- ;; convert key sequences to vector representation
- (mapcar 'guide-key/convert-key-sequence-to-vector lst)))
-
-(defun guide-key/vbutlast (vec &optional n)
- "Return a copy of vector VEC with the last N elements removed."
- (vconcat (butlast (append vec nil) n)))
-
-(defun guide-key/convert-key-sequence-to-vector (key-seq)
- "Convert key sequence KEY-SEQ to vector representation.
-For example, both \"C-x r\" and \"\\C-xr\" are converted to [24 114]"
- (vconcat (read-kbd-macro key-seq)))
-
-(defun guide-key/turn-on-idle-timer ()
- "Turn on an idle timer for popping up guide buffer."
- (when (null guide-key/idle-timer)
- (setq guide-key/idle-timer
- (run-with-idle-timer guide-key/idle-delay t 'guide-key/popup-function))
- ))
-
-(defun guide-key/turn-off-idle-timer ()
- "Turn off the idle timer."
- (when guide-key/idle-timer
- (cancel-timer guide-key/idle-timer))
- (setq guide-key/idle-timer nil))
-
-
-(defun guide-key/turn-on-timer ()
- "Turn on a polling timer."
- (when (null guide-key/polling-timer)
- (setq guide-key/polling-timer
- (run-at-time t guide-key/polling-time 'guide-key/polling-function))))
-
-(defun guide-key/turn-off-timer ()
- "Turn off a polling timer."
- (cancel-timer guide-key/polling-timer)
- (setq guide-key/polling-timer nil))
-
-(defun guide-key/format-guide-buffer (key-seq &optional regexp)
- "Format guide buffer. This function returns the number of following keys."
- (let ((fkey-list nil) ; list of (following-key space command)
- (fkey-str-list nil) ; fontified string of `fkey-list'
- (fkey-list-len 0) ; length of above lists
- (key-dsc (key-description key-seq)))
- (untabify (point-min) (point-max)) ; replace tab to space
- (goto-char (point-min))
- ;; extract following keys from buffer bindings
- (while (re-search-forward
- (format "^%s \\([^ \t]+\\)\\([ \t]+\\)\\(\\(?:[^ \t\n]+ ?\\)+\\)$" (regexp-quote key-dsc)) nil t)
- (add-to-list 'fkey-list
- (list (match-string 1) (match-string 2) (match-string 3)) t))
- (erase-buffer)
- (when (> (setq fkey-list-len (length fkey-list)) 0)
- ;; fontify following keys as string
- (setq fkey-str-list
- (loop for (key space command) in fkey-list
- collect (guide-key/fontified-string key space command regexp)))
- ;; insert a few following keys per line
- (guide-key/insert-following-key fkey-str-list
- (popwin:position-horizontal-p guide-key/popup-window-position))
- (goto-char (point-min)))
- fkey-list-len))
-
-(defun guide-key/insert-following-key (fkey-str-list horizontal)
- "Insert a few following keys per line.
-
-If HORIZONTAL is omitted or nil, assume that guide buffer is
-popped up at top or bottom. Otherwise, assume that guide buffer
-is popped up at left or right."
- (let* ((scale (expt text-scale-mode-step text-scale-mode-amount))
- ;; Calculate the number of items per line
- (columns
- (if horizontal
- (ceiling (/ (* (length fkey-str-list) scale)
- (- (frame-height) (if tool-bar-mode 2 0) (if menu-bar-mode 1 0))))
- (floor (/ (frame-width)
- (* (apply 'max (mapcar 'length fkey-str-list)) scale))))))
- ;; Insert following keys by columns per line.
- (loop for fkey-str in fkey-str-list
- for column from 1
- do (insert fkey-str (if (= (mod column columns) 0) "\n" " ")))
- (align-regexp (point-min) (point-max) "\\(\\s-*\\) \\[" 1 1 t)))
-
-(defun guide-key/fontified-string (key space command &optional regexp)
- "Return fontified string of following key"
- (let ((highlight-face (guide-key/get-highlight-face command regexp)))
- (concat (propertize "[" 'face 'guide-key/key-face)
- (if highlight-face (propertize key 'face highlight-face) key)
- (propertize "]" 'face 'guide-key/key-face)
- (if guide-key/align-command-by-space-flag space " ") ; white space
- (if highlight-face (propertize command 'face highlight-face) command))))
-
-(defun guide-key/get-highlight-face (string &optional regexp)
- "Return an appropriate face for highlighting STRING according
-to `guide-key/highlight-prefix-regexp' and
-`guide-key/highlight-command-regexp'. Return nil if an
-appropriate face is not found."
- (let ((regexp (or regexp guide-key/highlight-command-regexp)))
- ;; `guide-key/highlight-prefix-regexp' has the highest priority
- (if (string-match guide-key/highlight-prefix-regexp string)
- 'guide-key/prefix-command-face
- ;; Else look up the first match in `guide-key/highlight-command-regexp'
- (cond ((stringp regexp)
- (when (string-match regexp string)
- 'guide-key/highlight-command-face))
- ((listp regexp)
- (loop for elm in regexp
- if (cond ((stringp elm)
- (when (string-match elm string)
- 'guide-key/highlight-command-face))
- ((consp elm)
- (when (string-match (car elm) string)
- (if (stringp (cdr elm))
- ;; anonymous face, see (info "(elisp)Faces")
- (list :foreground (cdr elm))
- (cdr elm)))))
- return it)))
- )))
-
-(defun guide-key/buffer-max-width ()
- "Return max width in current buffer."
- (let ((buf-str (buffer-substring-no-properties (point-min) (point-max))))
- (apply 'max (mapcar 'length (split-string buf-str "\n")))))
-
-(defun guide-key/add-local-guide-key-sequence (key)
- (add-to-list (make-local-variable 'guide-key/guide-key-sequence) key))
-
-(defun guide-key/add-local-highlight-command-regexp (regexp)
- (make-local-variable 'guide-key/highlight-command-regexp)
- (cond ((stringp guide-key/highlight-command-regexp)
- (setq guide-key/highlight-command-regexp
- (list regexp guide-key/highlight-command-regexp)))
- ((listp guide-key/highlight-command-regexp)
- (add-to-list 'guide-key/highlight-command-regexp regexp))))
-
-;;; key-chord hack
-(defadvice this-command-keys (after key-chord-hack disable)
- "Add key chord to the key sequence returned by `this-command-keys'.
-
-Original `this-command-keys' returns \"[key-chord]\" when you
-type any of key chords, so it is difficult to know which key
-chord is pressed. This advice enables to distinguish pressed key
-chord."
- (condition-case nil
- (if (equal ad-return-value [key-chord])
- (let ((rkeys (recent-keys)))
- (setq ad-return-value
- (vector 'key-chord (aref rkeys (- (length rkeys) 2))
- (aref rkeys (- (length rkeys) 1))))))
- (error "")))
-
-(defadvice this-command-keys-vector (after key-chord-hack disable)
- "Add key chord to the key sequence returned by `this-command-keys-vector'.
-
-Original `this-command-keys-vector' returns \"[key-chord]\" when you
-type any of key chords, so it is difficult to know which key
-chord is pressed. This advice enables to distinguish pressed key
-chord."
- (condition-case nil
- (if (equal ad-return-value [key-chord])
- (let ((rkeys (recent-keys)))
- (setq ad-return-value
- (vector 'key-chord (aref rkeys (- (length rkeys) 2))
- (aref rkeys (- (length rkeys) 1))))))
- (error [])))
-
-(defun guide-key/key-chord-hack-on ()
- "Turn on key-chord hack of guide-key.
-
-This hack *may be dangerous* because it advices primitive
-functions; this-command-keys and this-command-keys-vector."
- (interactive)
- (dolist (fn '(this-command-keys this-command-keys-vector))
- (ad-enable-advice fn 'after 'key-chord-hack)
- (ad-activate fn))
- (message "Turn on key-chord hack of guide-key"))
-
-(defun guide-key/key-chord-hack-off ()
- "Turn off key-chord hack of guide-key."
- (interactive)
- (dolist (fn '(this-command-keys this-command-keys-vector))
- (ad-disable-advice fn 'after 'key-chord-hack)
- (ad-activate fn))
- (message "Turn off key-chord hack of guide-key"))
-
-;;; debug
-(defun guide-key/message-events ()
- ""
- (message (format "lce:%S tck:%S tckv:%S tsck:%S lie:%S uce:%S"
- last-command-event
- (this-command-keys)
- (this-command-keys-vector)
- (this-single-command-keys)
- last-input-event
- unread-command-events
- )))
-;; (setq ttt (run-at-time t 1 'guide-key/message-events))
-;; (cancel-timer ttt)
-
-(provide 'guide-key)
-;;; guide-key.el ends here
diff --git a/elpa/guide-key-20150108.635/guide-key.elc b/elpa/guide-key-20150108.635/guide-key.elc
deleted file mode 100644
index 0edb274..0000000
--- a/elpa/guide-key-20150108.635/guide-key.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/helm-projectile-20180815.1514/helm-projectile-autoloads.el b/elpa/helm-projectile-20180815.1514/helm-projectile-autoloads.el
deleted file mode 100644
index 815b4e9..0000000
--- a/elpa/helm-projectile-20180815.1514/helm-projectile-autoloads.el
+++ /dev/null
@@ -1,87 +0,0 @@
-;;; helm-projectile-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "helm-projectile" "helm-projectile.el" (0 0
-;;;;;; 0 0))
-;;; Generated autoloads from helm-projectile.el
-
-(defvar helm-projectile-fuzzy-match t "\
-Enable fuzzy matching for Helm Projectile commands.
-This needs to be set before loading helm-projectile.el.")
-
-(custom-autoload 'helm-projectile-fuzzy-match "helm-projectile" t)
-
-(autoload 'helm-projectile-find-file-dwim "helm-projectile" "\
-Find file at point based on context.
-
-\(fn)" t nil)
-
-(autoload 'helm-projectile-find-other-file "helm-projectile" "\
-Switch between files with the same name but different extensions using Helm.
-With FLEX-MATCHING, match any file that contains the base name of current file.
-Other file extensions can be customized with the variable `projectile-other-file-alist'.
-
-\(fn &optional FLEX-MATCHING)" t nil)
-
-(autoload 'helm-projectile-on "helm-projectile" "\
-Turn on `helm-projectile' key bindings.
-
-\(fn)" t nil)
-
-(autoload 'helm-projectile-off "helm-projectile" "\
-Turn off `helm-projectile' key bindings.
-
-\(fn)" t nil)
-
-(autoload 'helm-projectile-grep "helm-projectile" "\
-Helm version of `projectile-grep'.
-DIR is the project root, if not set then current directory is used
-
-\(fn &optional DIR)" t nil)
-
-(autoload 'helm-projectile-ack "helm-projectile" "\
-Helm version of projectile-ack.
-
-\(fn &optional DIR)" t nil)
-
-(autoload 'helm-projectile-ag "helm-projectile" "\
-Helm version of `projectile-ag'.
-
-\(fn &optional OPTIONS)" t nil)
-
-(autoload 'helm-projectile-rg "helm-projectile" "\
-Projectile version of `helm-rg'.
-
-\(fn)" t nil)
-
-(autoload 'helm-projectile-toggle "helm-projectile" "\
-Toggle Helm version of Projectile commands.
-
-\(fn TOGGLE)" nil nil)
-
-(autoload 'helm-projectile "helm-projectile" "\
-Use projectile with Helm instead of ido.
-
-With a prefix ARG invalidates the cache first.
-If invoked outside of a project, displays a list of known projects to jump.
-
-\(fn &optional ARG)" t nil)
-
-(eval-after-load 'projectile '(progn (define-key projectile-command-map (kbd "h") #'helm-projectile)))
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "helm-projectile" '("helm-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; helm-projectile-autoloads.el ends here
diff --git a/elpa/helm-projectile-20180815.1514/helm-projectile-pkg.el b/elpa/helm-projectile-20180815.1514/helm-projectile-pkg.el
deleted file mode 100644
index 3cdbdc3..0000000
--- a/elpa/helm-projectile-20180815.1514/helm-projectile-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "helm-projectile" "20180815.1514" "Helm integration for Projectile" '((helm "1.9.9") (projectile "0.14.0") (cl-lib "0.3")) :commit "8a2dbc973548fac89356c11d70f7f474ea1367a5" :keywords '("project" "convenience") :authors '(("Bozhidar Batsov")) :maintainer '("Bozhidar Batsov") :url "https://github.com/bbatsov/helm-projectile")
diff --git a/elpa/helm-projectile-20180815.1514/helm-projectile.el b/elpa/helm-projectile-20180815.1514/helm-projectile.el
deleted file mode 100644
index 723d0a7..0000000
--- a/elpa/helm-projectile-20180815.1514/helm-projectile.el
+++ /dev/null
@@ -1,1087 +0,0 @@
-;;; helm-projectile.el --- Helm integration for Projectile -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2016 Bozhidar Batsov
-
-;; Author: Bozhidar Batsov
-;; URL: https://github.com/bbatsov/helm-projectile
-;; Package-Version: 20180815.1514
-;; Created: 2011-31-07
-;; Keywords: project, convenience
-;; Version: 0.14.0
-;; Package-Requires: ((helm "1.9.9") (projectile "0.14.0") (cl-lib "0.3"))
-
-;; This file is NOT part of GNU Emacs.
-
-;;; License:
-
-;; 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, 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; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-;;
-;; This library provides easy project management and navigation. The
-;; concept of a project is pretty basic - just a folder containing
-;; special file. Currently git, mercurial and bazaar repos are
-;; considered projects by default. If you want to mark a folder
-;; manually as a project just create an empty .projectile file in
-;; it. See the README for more details.
-;;
-;;; Code:
-
-(require 'subr-x)
-(require 'projectile)
-(require 'cl-lib)
-(require 'grep)
-(require 'helm)
-(require 'helm-types)
-(require 'helm-locate)
-(require 'helm-buffers)
-(require 'helm-files)
-
-(declare-function eshell "eshell")
-(declare-function helm-do-ag "helm-ag")
-(declare-function dired-get-filename "dired")
-(defvar helm-ag-base-command)
-
-(defvar grep-find-ignored-directories)
-(defvar grep-find-ignored-files)
-
-(defgroup helm-projectile nil
- "Helm support for projectile."
- :prefix "helm-projectile-"
- :group 'projectile
- :group 'helm
- :link `(url-link :tag "GitHub" "https://github.com/bbatsov/helm-projectile"))
-
-(defvar helm-projectile-current-project-root)
-
-(defcustom helm-projectile-truncate-lines nil
- "Truncate lines in helm projectile commands when non--nil.
-
-Some `helm-projectile' commands have similar behavior with existing
-Helms. In these cases their respective custom var for truncation
-of lines will be honored. E.g. `helm-buffers-truncate-lines'
-dictates the truncation in `helm-projectile-switch-to-buffer'."
- :group 'helm-projectile
- :type 'boolean)
-
-;;;###autoload
-(defcustom helm-projectile-fuzzy-match t
- "Enable fuzzy matching for Helm Projectile commands.
-This needs to be set before loading helm-projectile.el."
- :group 'helm-projectile
- :type 'boolean)
-
-(defmacro helm-projectile-define-key (keymap key def &rest bindings)
- "In KEYMAP, define KEY - DEF sequence KEY1 as DEF1, KEY2 as DEF2 ..."
- (declare (indent defun))
- (let ((ret '(progn)))
- (while key
- (push
- `(define-key ,keymap ,key
- (lambda ()
- (interactive)
- (helm-exit-and-execute-action ,def)))
- ret)
- (setq key (pop bindings)
- def (pop bindings)))
- (reverse ret)))
-
-(defun helm-projectile-hack-actions (actions &rest prescription)
- "Given a Helm action list and a prescription, return a hacked Helm action list, after applying the PRESCRIPTION.
-
-The Helm action list ACTIONS is of the form:
-
-\(\(DESCRIPTION1 . FUNCTION1\)
- \(DESCRIPTION2 . FUNCTION2\)
- ...
- \(DESCRIPTIONn . FUNCTIONn\)\)
-
-PRESCRIPTION is in the form:
-
-\(INSTRUCTION1 INSTRUCTION2 ... INSTRUCTIONn\)
-
-If an INSTRUCTION is a symbol, the action with function name
-INSTRUCTION is deleted.
-
-If an INSTRUCTION is of the form \(FUNCTION1 . FUNCTION2\), the
-action with function name FUNCTION1 will change it's function to
-FUNCTION2.
-
-If an INSTRUCTION is of the form \(FUNCTION . DESCRIPTION\), and
-if an action with function name FUNCTION exists in the original
-Helm action list, the action in the Helm action list, with
-function name FUNCTION will change it's description to
-DESCRIPTION. Otherwise, (FUNCTION . DESCRIPTION) will be added to
-the action list.
-
-Please check out how `helm-projectile-file-actions' is defined
-for an example of how this function is being used."
- (let* ((to-delete (cl-remove-if (lambda (entry) (listp entry)) prescription))
- (actions (cl-delete-if (lambda (action) (memq (cdr action) to-delete))
- (copy-alist actions)))
- new)
- (cl-dolist (action actions)
- (when (setq new (cdr (assq (cdr action) prescription)))
- (if (stringp new)
- (setcar action new)
- (setcdr action new))))
- ;; Add new actions from PRESCRIPTION
- (setq new nil)
- (cl-dolist (instruction prescription)
- (when (and (listp instruction)
- (null (rassq (car instruction) actions))
- (symbolp (car instruction)) (stringp (cdr instruction)))
- (push (cons (cdr instruction) (car instruction)) new)))
- (append actions (nreverse new))))
-
-(defun helm-projectile-vc (dir)
- "A Helm action for jumping to project root using `vc-dir' or Magit.
-DIR is a directory to be switched"
- (let ((projectile-require-project-root nil))
- (projectile-vc dir)))
-
-(defun helm-projectile-compile-project (dir)
- "A Helm action for compile a project.
-DIR is the project root."
- (let ((helm--reading-passwd-or-string t)
- (default-directory dir))
- (projectile-compile-project helm-current-prefix-arg)))
-
-(defun helm-projectile-test-project (dir)
- "A Helm action for test a project.
-DIR is the project root."
- (let ((helm--reading-passwd-or-string t)
- (default-directory dir))
- (projectile-test-project helm-current-prefix-arg)))
-
-(defun helm-projectile-run-project (dir)
- "A Helm action for run a project.
-DIR is the project root."
- (let ((helm--reading-passwd-or-string t)
- (default-directory dir))
- (projectile-run-project helm-current-prefix-arg)))
-
-(defun helm-projectile-remove-known-project (_ignore)
- "Remove selected projects from projectile project list.
-_IGNORE means the argument does not matter.
-It is there because Helm requires it."
- (let* ((projects (helm-marked-candidates :with-wildcard t))
- (len (length projects)))
- (with-helm-display-marked-candidates
- helm-marked-buffer-name
- projects
- (if (not (y-or-n-p (format "Remove *%s projects(s)? " len)))
- (message "(No removal performed)")
- (progn
- (mapc (lambda (p)
- (delete p projectile-known-projects))
- projects)
- (projectile-save-known-projects))
- (message "%s projects(s) removed" len)))))
-
-(defvar helm-projectile-projects-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map helm-map)
- (helm-projectile-define-key map
- (kbd "C-d") #'dired
- (kbd "M-g") #'helm-projectile-vc
- (kbd "M-e") #'helm-projectile-switch-to-eshell
- (kbd "C-s") #'helm-projectile-grep
- (kbd "M-c") #'helm-projectile-compile-project
- (kbd "M-t") #'helm-projectile-test-project
- (kbd "M-r") #'helm-projectile-run-project
- (kbd "M-D") #'helm-projectile-remove-known-project)
- map)
- "Mapping for known projectile projects.")
-
-(defcustom helm-source-projectile-projects-actions
- (helm-make-actions
- "Switch to project" (lambda (project)
- (let ((projectile-completion-system 'helm))
- (projectile-switch-project-by-name project)))
- "Open Dired in project's directory `C-d'" #'dired
- "Open project root in vc-dir or magit `M-g'" #'helm-projectile-vc
- "Switch to Eshell `M-e'" #'helm-projectile-switch-to-eshell
- "Grep in projects `C-s'" #'helm-projectile-grep
- "Compile project `M-c'. With C-u, new compile command" #'helm-projectile-compile-project
- "Remove project(s) from project list `M-D'" #'helm-projectile-remove-known-project)
- "Actions for `helm-source-projectile-projects'."
- :group 'helm-projectile
- :type '(alist :key-type string :value-type function))
-
-(defvar helm-source-projectile-projects
- (helm-build-sync-source "Projectile projects"
- :candidates (lambda () (with-helm-current-buffer projectile-known-projects))
- :fuzzy-match helm-projectile-fuzzy-match
- :keymap helm-projectile-projects-map
- :mode-line helm-read-file-name-mode-line-string
- :action 'helm-source-projectile-projects-actions)
- "Helm source for known projectile projects.")
-
-(defvar helm-projectile-dirty-projects-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map helm-map)
- (helm-projectile-define-key map
- (kbd "C-d") #'dired
- (kbd "M-o") #'(lambda (project)
- (let ((projectile-completion-system 'helm))
- (projectile-switch-project-by-name project)))
- (kbd "M-e") #'helm-projectile-switch-to-eshell
- (kbd "C-s") #'helm-projectile-grep
- (kbd "M-c") #'helm-projectile-compile-project
- (kbd "M-t") #'helm-projectile-test-project
- (kbd "M-r") #'helm-projectile-run-project
- (kbd "M-D") #'helm-projectile-remove-known-project)
- map)
- "Mapping for dirty projectile projects.")
-
-(defvar helm-source-projectile-dirty-projects
- (helm-build-sync-source "Projectile dirty projects"
- :candidates (lambda () (with-helm-current-buffer (helm-projectile-get-dirty-projects)))
- :fuzzy-match helm-projectile-fuzzy-match
- :keymap helm-projectile-dirty-projects-map
- :mode-line helm-read-file-name-mode-line-string
- :action '(("Open project root in vc-dir or magit" . helm-projectile-vc)
- ("Switch to project `M-o'" .
- (lambda (project)
- (let ((projectile-completion-system 'helm))
- (projectile-switch-project-by-name project))))
- ("Open Dired in project's directory `C-d'" . dired)
- ("Switch to Eshell `M-e'" . helm-projectile-switch-to-eshell)
- ("Grep in projects `C-s'" . helm-projectile-grep)
- ("Compile project `M-c'. With C-u, new compile command"
- . helm-projectile-compile-project)))
- "Helm source for dirty version controlled projectile projects.")
-
-(defun helm-projectile-get-dirty-projects ()
- "Return dirty version controlled known projects as an alist to
-have a nice display in Helm."
- (message "Checking for dirty known projects...")
- (let* ((status (projectile-check-vcs-status-of-known-projects))
- (proj-dir (cl-loop for stat in status
- collect (car stat)))
- (status-display (cl-loop for stat in status collect
- (propertize (format "[%s]" (mapconcat 'identity (car (cdr stat)) ", ")) 'face 'helm-match)))
- (max-status-display-length (cl-loop for sd in status-display
- maximize (length sd)))
- (status-display (cl-loop for sd in status-display collect
- (format "%s%s " sd (make-string (- max-status-display-length (length sd)) ? ))))
- (full-display (cl-mapcar 'concat status-display proj-dir))
- (helm-list (cl-pairlis full-display proj-dir)))
- helm-list))
-
-(define-key helm-etags-map (kbd "C-c p f")
- (lambda ()
- (interactive)
- (helm-run-after-exit 'helm-projectile-find-file nil)))
-
-(defun helm-projectile-file-persistent-action (candidate)
- "Persistent action for file-related functionality.
-
-Previews the contents of a file in a temporary buffer."
- (let ((buf (get-buffer-create " *helm-projectile persistent*")))
- (cl-flet ((preview (candidate)
- (switch-to-buffer buf)
- (setq inhibit-read-only t)
- (erase-buffer)
- (insert-file-contents candidate)
- (let ((buffer-file-name candidate))
- (set-auto-mode))
- (font-lock-ensure)
- (setq inhibit-read-only nil)))
- (if (and (helm-attr 'previewp)
- (string= candidate (helm-attr 'current-candidate)))
- (progn
- (kill-buffer buf)
- (helm-attrset 'previewp nil))
- (preview candidate)
- (helm-attrset 'previewp t)))
- (helm-attrset 'current-candidate candidate)))
-
-(defun helm-projectile-find-files-eshell-command-on-file-action (candidate)
- (interactive)
- (let* ((helm-ff-default-directory (file-name-directory candidate)))
- (helm-find-files-eshell-command-on-file candidate)))
-
-(defun helm-projectile-ff-etags-select-action (candidate)
- (interactive)
- (let* ((helm-ff-default-directory (file-name-directory candidate)))
- (helm-ff-etags-select candidate)))
-
-(defun helm-projectile-switch-to-eshell (dir)
- (interactive)
- (let* ((projectile-require-project-root nil)
- (helm-ff-default-directory (file-name-directory (projectile-expand-root dir))))
- (helm-ff-switch-to-eshell dir)))
-
-(defun helm-projectile-files-in-current-dired-buffer ()
- "Return a list of files (only) in the current dired buffer."
- (let (flist)
- (cl-flet ((fpush (fname) (push fname flist)))
- (save-excursion
- (let (file buffer-read-only)
- (goto-char (point-min))
- (while (not (eobp))
- (save-excursion
- (and (not (eolp))
- (setq file (dired-get-filename t t)) ; nil on non-file
- (progn (end-of-line)
- (funcall #'fpush file))))
- (forward-line 1)))))
- (mapcar 'file-truename (nreverse flist))))
-
-(defun helm-projectile-all-dired-buffers ()
- "Get all current Dired buffers."
- (mapcar (lambda (b)
- (with-current-buffer b (buffer-name)))
- (cl-remove-if-not
- (lambda (b)
- (with-current-buffer b
- (and (eq major-mode 'dired-mode)
- (buffer-name))))
- (buffer-list))))
-
-(defvar helm-projectile-virtual-dired-remote-enable nil
- "Enable virtual Dired manager on remote host.
-Disabled by default.")
-
-(defun helm-projectile-dired-files-new-action (candidate)
- "Create a Dired buffer from chosen files.
-CANDIDATE is the selected file, but choose the marked files if available."
- (if (and (file-remote-p (projectile-project-root))
- (not helm-projectile-virtual-dired-remote-enable))
- (message "Virtual Dired manager is disabled in remote host. Enable with %s."
- (propertize "helm-projectile-virtual-dired-remote-enable" 'face 'font-lock-keyword-face))
- (let ((files (cl-remove-if-not
- (lambda (f)
- (not (string= f "")))
- (mapcar (lambda (file)
- (replace-regexp-in-string (projectile-project-root) "" file))
- (helm-marked-candidates :with-wildcard t))))
- (new-name (completing-read "Select or enter a new buffer name: "
- (helm-projectile-all-dired-buffers)))
- (helm--reading-passwd-or-string t)
- (default-directory (projectile-project-root)))
- ;; create a unique buffer that is unique to any directory in default-directory
- ;; or opened buffer; when Dired is passed with a non-existence directory name,
- ;; it only creates a buffer and insert everything. If a new name user supplied
- ;; exists as default-directory, Dired throws error when insert anything that
- ;; does not exist in current directory.
- (with-current-buffer (dired (cons (make-temp-name new-name)
- (if files
- files
- (list candidate))))
- (when (get-buffer new-name)
- (kill-buffer new-name))
- (rename-buffer new-name)))))
-
-(defun helm-projectile-dired-files-add-action (candidate)
- "Add files to a Dired buffer.
-CANDIDATE is the selected file. Used when no file is explicitly marked."
- (if (and (file-remote-p (projectile-project-root))
- (not helm-projectile-virtual-dired-remote-enable))
- (message "Virtual Dired manager is disabled in remote host. Enable with %s."
- (propertize "helm-projectile-virtual-dired-remote-enable" 'face 'font-lock-keyword-face))
- (if (eq (with-helm-current-buffer major-mode) 'dired-mode)
- (let* ((marked-files (helm-marked-candidates :with-wildcard t))
- (helm--reading-passwd-or-string t)
- (root (projectile-project-root)) ; store root for later use
- (dired-buffer-name (or (and (eq major-mode 'dired-mode) (buffer-name))
- (completing-read "Select a Dired buffer:"
- (helm-projectile-all-dired-buffers))))
- (dired-files (with-current-buffer dired-buffer-name
- (helm-projectile-files-in-current-dired-buffer)))
- (files (sort (mapcar (lambda (file)
- (replace-regexp-in-string (projectile-project-root) "" file))
- (cl-nunion (if marked-files
- marked-files
- (list candidate))
- dired-files
- :test #'string-equal))
- 'string-lessp)))
- (kill-buffer dired-buffer-name)
- ;; Rebind default-directory because after killing a buffer, we
- ;; could be in any buffer and default-directory is set to that
- ;; random buffer
- ;;
- ;; Also use saved root directory, because after killing a buffer,
- ;; we could be outside of current project
- (let ((default-directory root))
- (with-current-buffer (dired (cons (make-temp-name dired-buffer-name)
- (if files
- (mapcar (lambda (file)
- (replace-regexp-in-string root "" file))
- files)
- (list candidate))))
- (rename-buffer dired-buffer-name))))
- (error "You're not in a Dired buffer to add"))))
-
-(defun helm-projectile-dired-files-delete-action (candidate)
- "Delete selected entries from a Dired buffer.
-CANDIDATE is the selected file. Used when no file is explicitly marked."
- (if (and (file-remote-p (projectile-project-root))
- (not helm-projectile-virtual-dired-remote-enable))
- (message "Virtual Dired manager is disabled in remote host. Enable with %s."
- (propertize "helm-projectile-virtual-dired-remote-enable" 'face 'font-lock-keyword-face))
- (let* ((helm--reading-passwd-or-string t)
- (root (projectile-project-root))
- (dired-buffer-name (with-helm-current-buffer (buffer-name)))
- (dired-files (with-current-buffer dired-buffer-name
- (helm-projectile-files-in-current-dired-buffer)))
- (files (sort (cl-set-exclusive-or (helm-marked-candidates :with-wildcard t)
- dired-files
- :test #'string-equal) #'string-lessp)))
- (kill-buffer dired-buffer-name)
- ;; similar reason to `helm-projectile-dired-files-add-action'
- (let ((default-directory root))
- (with-current-buffer (dired (cons (make-temp-name dired-buffer-name)
- (if files
- (mapcar (lambda (file)
- (replace-regexp-in-string root "" file))
- files)
- (list candidate))))
- (rename-buffer dired-buffer-name))))))
-
-(defun helm-projectile-run-projectile-hooks-after-find-file (_orig-fun &rest _args)
- "Run `projectile-find-file-hook' if using projectile."
- (when (and projectile-mode (projectile-project-p))
- (run-hooks 'projectile-find-file-hook)))
-
-(advice-add 'helm-find-file-or-marked
- :after #'helm-projectile-run-projectile-hooks-after-find-file)
-
-(defvar helm-projectile-find-file-map
- (let ((map (copy-keymap helm-find-files-map)))
- (helm-projectile-define-key map
- (kbd "C-c f") #'helm-projectile-dired-files-new-action
- (kbd "C-c a") #'helm-projectile-dired-files-add-action
- (kbd "M-e") #'helm-projectile-switch-to-eshell
- (kbd "M-.") #'helm-projectile-ff-etags-select-action
- (kbd "M-!") #'helm-projectile-find-files-eshell-command-on-file-action)
- (define-key map (kbd "<left>") #'helm-previous-source)
- (define-key map (kbd "<right>") #'helm-next-source)
- (dolist (cmd '(helm-find-files-up-one-level
- helm-find-files-down-last-level))
- (substitute-key-definition cmd nil map))
- map)
- "Mapping for file commands in Helm Projectile.")
-
-(defvar helm-projectile-file-actions
- (helm-projectile-hack-actions
- helm-find-files-actions
- ;; Delete these actions
- 'helm-ff-browse-project
- 'helm-insert-file-name-completion-at-point
- 'helm-ff-find-sh-command
- 'helm-ff-cache-add-file
- ;; Substitute these actions
- '(helm-ff-switch-to-eshell . helm-projectile-switch-to-eshell)
- '(helm-ff-etags-select . helm-projectile-ff-etags-select-action)
- '(helm-find-files-eshell-command-on-file
- . helm-projectile-find-files-eshell-command-on-file-action)
- ;; Change action descriptions
- '(helm-find-file-as-root . "Find file as root `C-c r'")
- ;; New actions
- '(helm-projectile-dired-files-new-action
- . "Create Dired buffer from files `C-c f'")
- '(helm-projectile-dired-files-add-action
- . "Add files to Dired buffer `C-c a'"))
- "Action for files.")
-
-(defun helm-projectile--move-selection-p (selection)
- "Return non-nil if should move Helm selector after SELECTION.
-
-SELECTION should be moved unless it's one of:
-
-- Non-string
-- Existing file
-- Non-remote file that matches `helm-tramp-file-name-regexp'"
- (not (or (not (stringp selection))
- (file-exists-p selection)
- (and (string-match helm-tramp-file-name-regexp selection)
- (not (file-remote-p selection nil t))))))
-
-(defun helm-projectile--move-to-real ()
- "Move to first real candidate.
-
-Similar to `helm-ff--move-to-first-real-candidate', but without
-unnecessary complexity."
- (while (let* ((src (helm-get-current-source))
- (selection (and (not (helm-empty-source-p))
- (helm-get-selection nil nil src))))
- (and (not (helm-end-of-source-p))
- (helm-projectile--move-selection-p selection)))
- (helm-next-line)))
-
-(defun helm-projectile--remove-move-to-real ()
- "Hook function to remove `helm-projectile--move-to-real'.
-
-Meant to be added to `helm-cleanup-hook', from which it removes
- itself at the end."
- (remove-hook 'helm-after-update-hook #'helm-projectile--move-to-real)
- (remove-hook 'helm-cleanup-hook #'helm-projectile--remove-move-to-real))
-
-(defvar helm-source-projectile-files-list
- (helm-build-sync-source "Projectile files"
- :before-init-hook (lambda ()
- (add-hook 'helm-after-update-hook #'helm-projectile--move-to-real)
- (add-hook 'helm-cleanup-hook #'helm-projectile--remove-move-to-real))
- :candidates (lambda ()
- (when (projectile-project-p)
- (with-helm-current-buffer
- (cl-loop with root = (projectile-project-root)
- for display in (projectile-current-project-files)
- collect (cons display (expand-file-name display root))))))
- :filtered-candidate-transformer
- (lambda (files _source)
- (with-helm-current-buffer
- (let* ((root (projectile-project-root))
- (file-at-root (file-relative-name (expand-file-name helm-pattern root))))
- (if (or (string-empty-p helm-pattern)
- (assoc helm-pattern files))
- files
- (if (equal helm-pattern file-at-root)
- (cl-acons (helm-ff-prefix-filename helm-pattern nil t)
- (expand-file-name helm-pattern)
- files)
- (cl-pairlis (list (helm-ff-prefix-filename helm-pattern nil t)
- (helm-ff-prefix-filename file-at-root nil t))
- (list (expand-file-name helm-pattern)
- (expand-file-name helm-pattern root))
- files))))))
- :fuzzy-match helm-projectile-fuzzy-match
- :keymap helm-projectile-find-file-map
- :help-message 'helm-ff-help-message
- :mode-line helm-read-file-name-mode-line-string
- :action helm-projectile-file-actions
- :persistent-action #'helm-projectile-file-persistent-action
- :persistent-help "Preview file")
- "Helm source definition for Projectile files.")
-
-(defvar helm-source-projectile-files-in-all-projects-list
- (helm-build-sync-source "Projectile files in all Projects"
- :candidates (lambda ()
- (with-helm-current-buffer
- (let ((projectile-require-project-root nil))
- (projectile-all-project-files))))
- :keymap helm-projectile-find-file-map
- :help-message 'helm-ff-help-message
- :mode-line helm-read-file-name-mode-line-string
- :action helm-projectile-file-actions
- :persistent-action #'helm-projectile-file-persistent-action
- :persistent-help "Preview file")
- "Helm source definition for all Projectile files in all projects.")
-
-(defvar helm-projectile-dired-file-actions
- (helm-projectile-hack-actions
- helm-projectile-file-actions
- ;; New actions
- '(helm-projectile-dired-files-delete-action . "Remove entry(s) from Dired buffer `C-c d'")))
-
-(defvar helm-source-projectile-dired-files-list
- (helm-build-in-buffer-source "Projectile files in current Dired buffer"
- :data (lambda ()
- (if (and (file-remote-p (projectile-project-root))
- (not helm-projectile-virtual-dired-remote-enable))
- nil
- (when (eq major-mode 'dired-mode)
- (helm-projectile-files-in-current-dired-buffer))))
- :filter-one-by-one (lambda (file)
- (let ((helm-ff-transformer-show-only-basename t))
- (helm-ff-filter-candidate-one-by-one file)))
- :action-transformer 'helm-find-files-action-transformer
- :keymap (let ((map (copy-keymap helm-projectile-find-file-map)))
- (helm-projectile-define-key map
- (kbd "C-c d") 'helm-projectile-dired-files-delete-action)
- map)
- :help-message 'helm-ff-help-message
- :mode-line helm-read-file-name-mode-line-string
- :action helm-projectile-dired-file-actions)
- "Helm source definition for Projectile delete files.")
-
-(defun helm-projectile-dired-find-dir (dir)
- "Jump to a selected directory DIR from `helm-projectile'."
- (dired (expand-file-name dir (projectile-project-root)))
- (run-hooks 'projectile-find-dir-hook))
-
-(defun helm-projectile-dired-find-dir-other-window (dir)
- "Jump to a selected directory DIR from `helm-projectile'."
- (dired-other-window (expand-file-name dir (projectile-project-root)))
- (run-hooks 'projectile-find-dir-hook))
-
-(defvar helm-source-projectile-directories-list
- (helm-build-sync-source "Projectile directories"
- :candidates (lambda ()
- (when (projectile-project-p)
- (with-helm-current-buffer
- (let ((dirs (if projectile-find-dir-includes-top-level
- (append '("./") (projectile-current-project-dirs))
- (projectile-current-project-dirs))))
- (helm-projectile--files-display-real dirs (projectile-project-root))))))
- :fuzzy-match helm-projectile-fuzzy-match
- :action-transformer 'helm-find-files-action-transformer
- :keymap (let ((map (make-sparse-keymap)))
- (set-keymap-parent map helm-map)
- (helm-projectile-define-key map
- (kbd "<left>") #'helm-previous-source
- (kbd "<right>") #'helm-next-source
- (kbd "C-c o") #'helm-projectile-dired-find-dir-other-window
- (kbd "M-e") #'helm-projectile-switch-to-eshell
- (kbd "C-c f") #'helm-projectile-dired-files-new-action
- (kbd "C-c a") #'helm-projectile-dired-files-add-action
- (kbd "C-s") #'helm-projectile-grep)
- map)
- :help-message 'helm-ff-help-message
- :mode-line helm-read-file-name-mode-line-string
- :action '(("Open Dired" . helm-projectile-dired-find-dir)
- ("Open Dired in other window `C-c o'" . helm-projectile-dired-find-dir)
- ("Switch to Eshell `M-e'" . helm-projectile-switch-to-eshell)
- ("Grep in projects `C-s'" . helm-projectile-grep)
- ("Create Dired buffer from files `C-c f'" . helm-projectile-dired-files-new-action)
- ("Add files to Dired buffer `C-c a'" . helm-projectile-dired-files-add-action)))
- "Helm source for listing project directories.")
-
-(defvar helm-projectile-buffers-list-cache nil)
-
-(defclass helm-source-projectile-buffer (helm-source-sync helm-type-buffer)
- ((init :initform (lambda ()
- ;; Issue #51 Create the list before `helm-buffer' creation.
- (setq helm-projectile-buffers-list-cache
- (ignore-errors (cdr (projectile-project-buffer-names))))
- (let ((result (cl-loop for b in helm-projectile-buffers-list-cache
- maximize (length b) into len-buf
- maximize (length (with-current-buffer b
- (symbol-name major-mode)))
- into len-mode
- finally return (cons len-buf len-mode))))
- (unless helm-buffer-max-length
- (setq helm-buffer-max-length (car result)))
- (unless helm-buffer-max-len-mode
- ;; If a new buffer is longer that this value
- ;; this value will be updated
- (setq helm-buffer-max-len-mode (cdr result))))))
- (candidates :initform helm-projectile-buffers-list-cache)
- (matchplugin :initform nil)
- (match :initform 'helm-buffers-match-function)
- (persistent-action :initform 'helm-buffers-list-persistent-action)
- (keymap :initform helm-buffer-map)
- (volatile :initform t)
- (persistent-help
- :initform
- "Show this buffer / C-u \\[helm-execute-persistent-action]: Kill this buffer")))
-
-(defvar helm-source-projectile-buffers-list (helm-make-source "Project buffers" 'helm-source-projectile-buffer))
-
-(defvar helm-source-projectile-recentf-list
- (helm-build-sync-source "Projectile recent files"
- :candidates (lambda ()
- (when (projectile-project-p)
- (with-helm-current-buffer
- (helm-projectile--files-display-real (projectile-recentf-files)
- (projectile-project-root)))))
- :fuzzy-match helm-projectile-fuzzy-match
- :keymap helm-projectile-find-file-map
- :help-message 'helm-ff-help-message
- :mode-line helm-read-file-name-mode-line-string
- :action helm-projectile-file-actions
- :persistent-action #'helm-projectile-file-persistent-action
- :persistent-help "Preview file")
- "Helm source definition for recent files in current project.")
-
-(defvar helm-source-projectile-files-and-dired-list
- '(helm-source-projectile-dired-files-list
- helm-source-projectile-files-list))
-
-(defvar helm-source-projectile-directories-and-dired-list
- '(helm-source-projectile-dired-files-list
- helm-source-projectile-directories-list))
-
-(defcustom helm-projectile-sources-list
- '(helm-source-projectile-buffers-list
- helm-source-projectile-files-list
- helm-source-projectile-projects)
- "Default sources for `helm-projectile'."
- :type 'list
- :group 'helm-projectile)
-
-(defmacro helm-projectile-command (command source prompt &optional not-require-root truncate-lines-var)
- "Template for generic `helm-projectile' commands.
-COMMAND is a command name to be appended with \"helm-projectile\" prefix.
-SOURCE is a Helm source that should be Projectile specific.
-PROMPT is a string for displaying as a prompt.
-NOT-REQUIRE-ROOT specifies the command doesn't need to be used in a
-project root.
-TRUNCATE-LINES-VAR is the symbol used dictate truncation of lines.
-Defaults is `helm-projectile-truncate-lines'."
- (unless truncate-lines-var (setq truncate-lines-var 'helm-projectile-truncate-lines))
- `(defun ,(intern (concat "helm-projectile-" command)) (&optional arg)
- "Use projectile with Helm for finding files in project
-
-With a prefix ARG invalidates the cache first."
- (interactive "P")
- (if (projectile-project-p)
- (projectile-maybe-invalidate-cache arg)
- (unless ,not-require-root
- (error "You're not in a project")))
- (let ((helm-ff-transformer-show-only-basename nil)
- ;; for consistency, we should just let Projectile take care of ignored files
- (helm-boring-file-regexp-list nil))
- (helm :sources ,source
- :buffer (concat "*helm projectile: " (projectile-project-name) "*")
- :truncate-lines ,truncate-lines-var
- :prompt (projectile-prepend-project-name ,prompt)))))
-
-(helm-projectile-command "switch-project" 'helm-source-projectile-projects "Switch to project: " t)
-(helm-projectile-command "find-file" helm-source-projectile-files-and-dired-list "Find file: ")
-(helm-projectile-command "find-file-in-known-projects" 'helm-source-projectile-files-in-all-projects-list "Find file in projects: " t)
-(helm-projectile-command "find-dir" helm-source-projectile-directories-and-dired-list "Find dir: ")
-(helm-projectile-command "recentf" 'helm-source-projectile-recentf-list "Recently visited file: ")
-(helm-projectile-command "switch-to-buffer" 'helm-source-projectile-buffers-list "Switch to buffer: " nil helm-buffers-truncate-lines)
-(helm-projectile-command "browse-dirty-projects" 'helm-source-projectile-dirty-projects "Select a project: " t)
-
-(defun helm-projectile--files-display-real (files root)
- "Create (DISPLAY . REAL) pairs with FILES and ROOT.
-
- DISPLAY is the short file name. REAL is the full path."
- (cl-loop for display in files
- collect (cons display (expand-file-name display root))))
-
-;;;###autoload
-(defun helm-projectile-find-file-dwim ()
- "Find file at point based on context."
- (interactive)
- (let* ((project-root (projectile-project-root))
- (project-files (projectile-current-project-files))
- (files (projectile-select-files project-files)))
- (if (= (length files) 1)
- (find-file (expand-file-name (car files) (projectile-project-root)))
- (helm :sources (helm-build-sync-source "Projectile files"
- :candidates (if (> (length files) 1)
- (helm-projectile--files-display-real files project-root)
- (helm-projectile--files-display-real project-files project-root))
- :fuzzy-match helm-projectile-fuzzy-match
- :action-transformer 'helm-find-files-action-transformer
- :keymap helm-projectile-find-file-map
- :help-message helm-ff-help-message
- :mode-line helm-read-file-name-mode-line-string
- :action helm-projectile-file-actions
- :persistent-action #'helm-projectile-file-persistent-action
- :persistent-help "Preview file")
- :buffer "*helm projectile*"
- :truncate-lines helm-projectile-truncate-lines
- :prompt (projectile-prepend-project-name "Find file: ")))))
-
-;;;###autoload
-(defun helm-projectile-find-other-file (&optional flex-matching)
- "Switch between files with the same name but different extensions using Helm.
-With FLEX-MATCHING, match any file that contains the base name of current file.
-Other file extensions can be customized with the variable `projectile-other-file-alist'."
- (interactive "P")
- (let* ((project-root (projectile-project-root))
- (other-files (projectile-get-other-files (buffer-file-name)
- (projectile-current-project-files)
- flex-matching)))
- (if other-files
- (if (= (length other-files) 1)
- (find-file (expand-file-name (car other-files) project-root))
- (progn
- (let* ((helm-ff-transformer-show-only-basename nil))
- (helm :sources (helm-build-sync-source "Projectile other files"
- :candidates (helm-projectile--files-display-real other-files project-root)
- :keymap helm-projectile-find-file-map
- :help-message helm-ff-help-message
- :mode-line helm-read-file-name-mode-line-string
- :action helm-projectile-file-actions
- :persistent-action #'helm-projectile-file-persistent-action
- :persistent-help "Preview file")
- :buffer "*helm projectile*"
- :truncate-lines helm-projectile-truncate-lines
- :prompt (projectile-prepend-project-name "Find other file: ")))))
- (error "No other file found"))))
-
-(defcustom helm-projectile-grep-or-ack-actions
- '("Find file" helm-grep-action
- "Find file other frame" helm-grep-other-frame
- (lambda () (and (locate-library "elscreen")
- "Find file in Elscreen"))
- helm-grep-jump-elscreen
- "Save results in grep buffer" helm-grep-save-results
- "Find file other window" helm-grep-other-window)
- "Available actions for `helm-projectile-grep-or-ack'.
-The contents of this list are passed as the arguments to `helm-make-actions'."
- :type 'symbol
- :group 'helm-projectile)
-
-(defcustom helm-projectile-set-input-automatically t
- "If non-nil, attempt to set search input automatically.
-Automatic input selection uses the region (if there is an active
-region), otherwise it uses the current symbol at point (if there
-is one). Applies to `helm-projectile-grep' and
-`helm-projectile-ack' only. If the `helm-ag' package is
-installed, then automatic input behavior for `helm-projectile-ag'
-can be customized using `helm-ag-insert-at-point'."
- :group 'helm-projectile
- :type 'boolean)
-
-(defun helm-projectile-grep-or-ack (&optional dir use-ack-p ack-ignored-pattern ack-executable)
- "Perform helm-grep at project root.
-DIR directory where to search
-USE-ACK-P indicates whether to use ack or not.
-ACK-IGNORED-PATTERN is a file regex to exclude from searching.
-ACK-EXECUTABLE is the actual ack binary name.
-It is usually \"ack\" or \"ack-grep\".
-If it is nil, or ack/ack-grep not found then use default grep command."
- (let* ((default-directory (or dir (projectile-project-root)))
- (helm-ff-default-directory default-directory)
- (helm-grep-in-recurse t)
- (helm-grep-ignored-files (cl-union (projectile-ignored-files-rel) grep-find-ignored-files))
- (helm-grep-ignored-directories
- (cl-union (mapcar 'directory-file-name (projectile-ignored-directories-rel))
- grep-find-ignored-directories))
- (helm-grep-default-command (if use-ack-p
- (concat ack-executable " -H --no-group --no-color " ack-ignored-pattern " %p %f")
- (if (and projectile-use-git-grep (eq (projectile-project-vcs) 'git))
- "git --no-pager grep --no-color -n%c -e %p -- %f"
- "grep -a -r %e -n%cH -e %p %f .")))
- (helm-grep-default-recurse-command helm-grep-default-command))
-
- (setq helm-source-grep
- (helm-build-async-source
- (capitalize (helm-grep-command t))
- :header-name (lambda (_name)
- (let ((name (if use-ack-p
- "Helm Projectile Ack"
- "Helm Projectile Grep")))
- (concat name " " "(C-c ? Help)")))
- :candidates-process 'helm-grep-collect-candidates
- :filter-one-by-one 'helm-grep-filter-one-by-one
- :candidate-number-limit 9999
- :nohighlight t
- ;; We need to specify keymap here and as :keymap arg [1]
- ;; to make it available in further resuming.
- :keymap helm-grep-map
- :history 'helm-grep-history
- :action (apply #'helm-make-actions helm-projectile-grep-or-ack-actions)
- :persistent-action 'helm-grep-persistent-action
- :persistent-help "Jump to line (`C-u' Record in mark ring)"
- :requires-pattern 2))
- (helm
- :sources 'helm-source-grep
- :input (when helm-projectile-set-input-automatically
- (if (region-active-p)
- (buffer-substring-no-properties (region-beginning) (region-end))
- (thing-at-point 'symbol)))
- :buffer (format "*helm %s*" (if use-ack-p
- "ack"
- "grep"))
- :default-directory default-directory
- :keymap helm-grep-map
- :history 'helm-grep-history
- :truncate-lines helm-grep-truncate-lines)))
-
-;;;###autoload
-(defun helm-projectile-on ()
- "Turn on `helm-projectile' key bindings."
- (interactive)
- (message "Turn on helm-projectile key bindings")
- (helm-projectile-toggle 1))
-
-;;;###autoload
-(defun helm-projectile-off ()
- "Turn off `helm-projectile' key bindings."
- (interactive)
- (message "Turn off helm-projectile key bindings")
- (helm-projectile-toggle -1))
-
-;;;###autoload
-(defun helm-projectile-grep (&optional dir)
- "Helm version of `projectile-grep'.
-DIR is the project root, if not set then current directory is used"
- (interactive)
- (let ((project-root (or dir (projectile-project-root) (error "You're not in a project"))))
- (funcall 'run-with-timer 0.01 nil
- #'helm-projectile-grep-or-ack project-root nil)))
-
-;;;###autoload
-(defun helm-projectile-ack (&optional dir)
- "Helm version of projectile-ack."
- (interactive)
- (let ((project-root (or dir (projectile-project-root) (error "You're not in a project"))))
- (let ((ack-ignored (mapconcat
- 'identity
- (cl-union (mapcar (lambda (path)
- (concat "--ignore-dir=" (file-name-nondirectory (directory-file-name path))))
- (projectile-ignored-directories))
- (mapcar (lambda (path)
- (concat "--ignore-file=match:" (shell-quote-argument path)))
- (append (projectile-ignored-files) (projectile-patterns-to-ignore)))) " "))
- (helm-ack-grep-executable (cond
- ((executable-find "ack") "ack")
- ((executable-find "ack-grep") "ack-grep")
- (t (error "ack or ack-grep is not available")))))
- (funcall 'run-with-timer 0.01 nil
- #'helm-projectile-grep-or-ack project-root t ack-ignored helm-ack-grep-executable))))
-
-;;;###autoload
-(defun helm-projectile-ag (&optional options)
- "Helm version of `projectile-ag'."
- (interactive (if current-prefix-arg (list (helm-read-string "option: " "" 'helm-ag--extra-options-history))))
- (if (require 'helm-ag nil t)
- (if (projectile-project-p)
- (let* ((grep-find-ignored-files (cl-union (projectile-ignored-files-rel) grep-find-ignored-files))
- (grep-find-ignored-directories (cl-union (projectile-ignored-directories-rel) grep-find-ignored-directories))
- (ignored (mapconcat (lambda (i)
- (concat "--ignore " i))
- (append grep-find-ignored-files grep-find-ignored-directories (cadr (projectile-parse-dirconfig-file)))
- " "))
- (helm-ag-base-command (concat helm-ag-base-command " " ignored " " options))
- (current-prefix-arg nil))
- (helm-do-ag (projectile-project-root) (car (projectile-parse-dirconfig-file))))
- (error "You're not in a project"))
- (when (yes-or-no-p "`helm-ag' is not installed. Install? ")
- (condition-case nil
- (progn
- (package-install 'helm-ag)
- (helm-projectile-ag options))
- (error (error "`helm-ag' is not available. Is MELPA in your `package-archives'?"))))))
-
-;; Declare/define these to satisfy the byte compiler
-(defvar helm-rg-prepend-file-name-line-at-top-of-matches)
-(defvar helm-rg-include-file-on-every-match-line)
-(declare-function helm-rg "helm-rg")
-
-(defun helm-projectile-rg--region-selection ()
- (when (use-region-p)
- (buffer-substring-no-properties (region-beginning) (region-end))))
-
-;;;###autoload
-(defun helm-projectile-rg ()
- "Projectile version of `helm-rg'."
- (interactive)
- (if (require 'helm-rg nil t)
- (if (projectile-project-p)
- (let ((helm-rg-prepend-file-name-line-at-top-of-matches nil)
- (helm-rg-include-file-on-every-match-line t))
- (helm-rg (or (helm-projectile-rg--region-selection) "") nil (list (projectile-project-root))))
- (error "You're not in a project"))
- (when (yes-or-no-p "`helm-rg' is not installed. Install? ")
- (condition-case nil
- (progn
- (package-install 'helm-rg)
- (helm-projectile-rg))
- (error "`helm-rg' is not available. Is MELPA in your `package-archives'?")))))
-
-(defun helm-projectile-commander-bindings ()
- (def-projectile-commander-method ?a
- "Run ack on project."
- (call-interactively 'helm-projectile-ack))
-
- (def-projectile-commander-method ?A
- "Find ag on project."
- (call-interactively 'helm-projectile-ag))
-
- (def-projectile-commander-method ?f
- "Find file in project."
- (helm-projectile-find-file))
-
- (def-projectile-commander-method ?b
- "Switch to project buffer."
- (helm-projectile-switch-to-buffer))
-
- (def-projectile-commander-method ?d
- "Find directory in project."
- (helm-projectile-find-dir))
-
- (def-projectile-commander-method ?g
- "Run grep on project."
- (helm-projectile-grep))
-
- (def-projectile-commander-method ?s
- "Switch project."
- (helm-projectile-switch-project))
-
- (def-projectile-commander-method ?e
- "Find recently visited file in project."
- (helm-projectile-recentf))
-
- (def-projectile-commander-method ?V
- "Find dirty projects."
- (helm-projectile-browse-dirty-projects)))
-
-;;;###autoload
-(defun helm-projectile-toggle (toggle)
- "Toggle Helm version of Projectile commands."
- (if (> toggle 0)
- (progn
- (when (eq projectile-switch-project-action #'projectile-find-file)
- (setq projectile-switch-project-action #'helm-projectile-find-file))
- (define-key projectile-mode-map [remap projectile-find-other-file] #'helm-projectile-find-other-file)
- (define-key projectile-mode-map [remap projectile-find-file] #'helm-projectile-find-file)
- (define-key projectile-mode-map [remap projectile-find-file-in-known-projects] #'helm-projectile-find-file-in-known-projects)
- (define-key projectile-mode-map [remap projectile-find-file-dwim] #'helm-projectile-find-file-dwim)
- (define-key projectile-mode-map [remap projectile-find-dir] #'helm-projectile-find-dir)
- (define-key projectile-mode-map [remap projectile-switch-project] #'helm-projectile-switch-project)
- (define-key projectile-mode-map [remap projectile-recentf] #'helm-projectile-recentf)
- (define-key projectile-mode-map [remap projectile-switch-to-buffer] #'helm-projectile-switch-to-buffer)
- (define-key projectile-mode-map [remap projectile-grep] #'helm-projectile-grep)
- (define-key projectile-mode-map [remap projectile-ack] #'helm-projectile-ack)
- (define-key projectile-mode-map [remap projectile-ag] #'helm-projectile-ag)
- (define-key projectile-mode-map [remap projectile-ripgrep] #'helm-projectile-rg)
- (define-key projectile-mode-map [remap projectile-browse-dirty-projects] #'helm-projectile-browse-dirty-projects)
- (helm-projectile-commander-bindings))
- (progn
- (when (eq projectile-switch-project-action #'helm-projectile-find-file)
- (setq projectile-switch-project-action #'projectile-find-file))
- (define-key projectile-mode-map [remap projectile-find-other-file] nil)
- (define-key projectile-mode-map [remap projectile-find-file] nil)
- (define-key projectile-mode-map [remap projectile-find-file-in-known-projects] nil)
- (define-key projectile-mode-map [remap projectile-find-file-dwim] nil)
- (define-key projectile-mode-map [remap projectile-find-dir] nil)
- (define-key projectile-mode-map [remap projectile-switch-project] nil)
- (define-key projectile-mode-map [remap projectile-recentf] nil)
- (define-key projectile-mode-map [remap projectile-switch-to-buffer] nil)
- (define-key projectile-mode-map [remap projectile-grep] nil)
- (define-key projectile-mode-map [remap projectile-ag] nil)
- (define-key projectile-mode-map [remap projectile-ripgrep] nil)
- (define-key projectile-mode-map [remap projectile-browse-dirty-projects] nil)
- (projectile-commander-bindings))))
-
-;;;###autoload
-(defun helm-projectile (&optional arg)
- "Use projectile with Helm instead of ido.
-
-With a prefix ARG invalidates the cache first.
-If invoked outside of a project, displays a list of known projects to jump."
- (interactive "P")
- (if (not (projectile-project-p))
- (helm-projectile-switch-project arg)
- (projectile-maybe-invalidate-cache arg)
- (let ((helm-ff-transformer-show-only-basename nil))
- (helm :sources helm-projectile-sources-list
- :buffer "*helm projectile*"
- :truncate-lines helm-projectile-truncate-lines
- :prompt (projectile-prepend-project-name (if (projectile-project-p)
- "pattern: "
- "Switch to project: "))))))
-
-;;;###autoload
-(eval-after-load 'projectile
- '(progn
- (define-key projectile-command-map (kbd "h") #'helm-projectile)))
-
-(provide 'helm-projectile)
-
-;;; helm-projectile.el ends here
diff --git a/elpa/helm-projectile-20180815.1514/helm-projectile.elc b/elpa/helm-projectile-20180815.1514/helm-projectile.elc
deleted file mode 100644
index 9efa280..0000000
--- a/elpa/helm-projectile-20180815.1514/helm-projectile.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/AUTHORS.md b/elpa/magit-20181116.1412/AUTHORS.md
deleted file mode 100644
index 17f8191..0000000
--- a/elpa/magit-20181116.1412/AUTHORS.md
+++ /dev/null
@@ -1,318 +0,0 @@
-Authors
-=======
-
-The following people have contributed to Magit, including the
-libraries `git-commit.el`, `magit-popup.el`, and `with-editor.el`
-which are distributed as separate Elpa packages.
-
-For statistics see https://magit.vc/stats/authors.html.
-
-Names below are sorted alphabetically.
-
-Author
-------
-
-- Marius Vollmer <marius.vollmer@gmail.com>
-
-Maintainer
-----------
-
-- Jonas Bernoulli <jonas@bernoul.li>
-
-Developers
-----------
-
-- Kyle Meyer <kyle@kyleam.com>
-- Noam Postavsky <npostavs@users.sourceforge.net>
-
-Retired Maintainers and Developers
-----------------------------------
-
-- Nicolas Dudebout <nicolas.dudebout@gatech.edu>
-- Peter J. Weisberg <pj@irregularexpressions.net>
-- Pieter Praet <pieter@praet.org>
-- Phil Jackson <phil@shellarchive.co.uk>
-- Rémi Vanicat <vanicat@debian.org>
-- Yann Hodique <yann.hodique@gmail.com>
-
-Contributors
-------------
-
-- Aaron Culich <aculich@gmail.com>
-- Aaron Madlon-Kay <aaron@madlon-kay.com>
-- Abdo Roig-Maranges <abdo.roig@gmail.com>
-- Adam Benanti <0entropy@protonmail.com>
-- Adam Porter <adam@alphapapa.net>
-- Adam Spiers <emacs@adamspiers.org>
-- Adeodato Simó <dato@net.com.org.es>
-- Ævar Arnfjörð Bjarmason <avarab@gmail.com>
-- Alan Falloon <alan.falloon@gmail.com>
-- Alban Gruin <alban@pa1ch.fr>
-- Aleksey Uimanov <s9gf4ult@gmail.com>
-- Alexander Gramiak <fice-t@protonmail.com>
-- Alex Branham <alex.branham@gmail.com>
-- Alex Dunn <adunn@ucsb.edu>
-- Alexey Voinov <alexey.v.voinov@gmail.com>
-- Alex Kost <alezost@gmail.com>
-- Alex Ott <alexott@gmail.com>
-- Allen <darkfeline@felesatra.moe>
-- Allen Li <darkfeline@felesatra.moe>
-- Andreas Fuchs <asf@boinkor.net>
-- Andreas Liljeqvist <andreas.liljeqvist@robacks.se>
-- Andreas Rottmann <a.rottmann@gmx.at>
-- Andrei Chițu <andrei.chitu1@gmail.com>
-- Andrew Kirkpatrick <andrew.kirkpatrick@adelaide.edu.au>
-- Andrew Schwartzmeyer <andrew@schwartzmeyer.com>
-- Andrey Smirnov <andrew.smirnov@gmail.com>
-- Andriy Kmit' <dev@madand.net>
-- Andy Sawyer <git@pureabstract.org>
-- Aria Edmonds <aria@ar1as.space>
-- Arialdo Martini <arialdomartini@gmail.com>
-- Barak A. Pearlmutter <barak+git@pearlmutter.net>
-- Bar Magal <bmagamb@gmail.com>
-- Bart Bakker <bart@thesoftwarecraft.com>
-- Basil L. Contovounesios <contovob@tcd.ie>
-- Bastian Beischer <beischer@physik.rwth-aachen.de>
-- Benjamin Motz <benjamin.motz@mailbox.org>
-- Ben North <ben@redfrontdoor.org>
-- Ben Walton <bwalton@artsci.utoronto.ca>
-- Bob Uhl <buhl@zvelo.com>
-- Bradley Wright <brad@intranation.com>
-- Brandon W Maister <quodlibetor@gmail.com>
-- Brian Warner <warner@lothar.com>
-- Bryan Shell <bryan.shell@orbitz.com>
-- Buster Copley <buster@buster.me.uk>
-- Carl Lieberman <liebermancarl@gmail.com>
-- Chillar Anand <anand21nanda@gmail.com>
-- Chris Bernard <cebernard@gmail.com>
-- Chris Done <chrisdone@gmail.com>
-- Chris LaRose <cjlarose@gmail.com>
-- Chris Moore <dooglus@gmail.com>
-- Chris Ring <chris@ringthis.com>
-- Chris Shoemaker <chris@mojotech.com>
-- Christian Dietrich <christian.dietrich@informatik.uni-erlangen.de>
-- Christian Kluge <ckfrakturfreak@web.de>
-- Christophe Junke <junke.christophe@gmail.com>
-- Christopher Monsanto <chris@monsan.to>
-- Cornelius Mika <cornelius.mika@gmail.com>
-- Craig Andera <candera@wangdera.com>
-- Dale Hagglund <dale.hagglund@gmail.com>
-- Damien Cassou <damien@cassou.me>
-- Dan Erikson <derikson3@gmail.com>
-- Daniel Brockman <daniel@gointeractive.se>
-- Daniel Farina <drfarina@acm.org>
-- Daniel Gröber <daniel@dps.uibk.ac.at>
-- Daniel Hackney <dan@haxney.org>
-- Daniel Kraus <daniel@kraus.my>
-- Daniel Mai <daniel@danielmai.net>
-- Dan LaManna <dan.lamanna@gmail.com>
-- Dato Simó <dato@net.com.org.es>
-- David Abrahams <dave@boostpro.com>
-- David Ellison <davide@voicebox.com>
-- David Hull <david.hull@openx.com>
-- David L. Rager <ragerdl@gmail.com>
-- David Wallin <david.wallin@gmail.com>
-- Dean Kariniemi <8913263+d3k4r@users.noreply.github.com>
-- Dennis Paskorz <dennis@walltowall.com>
-- Divye Kapoor <divye@google.com>
-- Dominique Quatravaux <domq@google.com>
-- Duianto Vebotci <vebotci@openmailbox.org>
-- Eli Barzilay <eli@barzilay.org>
-- Eric Davis <ed@npri.org>
-- Eric Prud'hommeaux <eric@w3.org>
-- Eric Schulte <schulte.eric@gmail.com>
-- Erik Anderson <erikbpanderson@gmail.com>
-- Evgkeni Sampelnikof <esabof@gmail.com>
-- Eyal Lotem <eyal.lotem@gmail.com>
-- Fabian Wiget <fabacino@gmail.com>
-- Felix Geller <fgeller@gmail.com>
-- Felix Yan <felixonmars@archlinux.org>
-- Feng Li <fengli@blackmagicdesign.com>
-- Florian Ragwitz <rafl@debian.org>
-- Fritz Grabo <fritz.grabo@gmail.com>
-- Fritz Stelzer <brotzeitmacher@gmail.com>
-- Geoff Shannon <geoffpshannon@gmail.com>
-- George Kadianakis <desnacked@gmail.com>
-- Graham Clark <grclark@gmail.com>
-- Graham Dobbins <gdobbins@protonmail.com>
-- Greg A. Woods <woods@planix.com>
-- Greg Lucas <greg@glucas.net>
-- Greg Sexton <gregsexton@gmail.com>
-- Guillaume Martres <smarter@ubuntu.com>
-- Hannu Koivisto <azure@iki.fi>
-- Hans-Peter Deifel <hpdeifel@gmx.de>
-- Ian Eure <ian.eure@gmail.com>
-- Ingo Lohmar <i.lohmar@gmail.com>
-- Ioan-Adrian Ratiu <adi@adirat.com>
-- Ivan Brennan <ivan.brennan@gmail.com>
-- Jan Tatarik <jan.tatarik@xing.com>
-- Jasper St. Pierre <jstpierre@mecheye.net>
-- Jeff Bellegarde <jbellegarde@whitepages.com>
-- Jeff Dairiki <dairiki@dairiki.org>
-- Jeremy Meng <yumeng@microsoft.com>
-- Jesse Alama <jesse.alama@gmail.com>
-- Jim Blandy <jimb@red-bean.com>
-- Joakim Jalap <JOJA@stoneridge.com>
-- Johann Klähn <kljohann@gmail.com>
-- John Mastro <john.b.mastro@gmail.com>
-- John Morris <john@zultron.com>
-- John Wiegley <johnw@newartisans.com>
-- Jonas Bernoulli <jonas@bernoul.li>
-- Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com>
-- Jonathan Roes <jroes@jroes.net>
-- Jon Vanderwijk <jonathn@github.com>
-- Jordan Galby <gravemind2a@gmail.com>
-- Jordan Greenberg <jordan@softwareslave.com>
-- Josiah Schwab <jschwab@gmail.com>
-- Julien Danjou <julien@danjou.info>
-- Justin Burkett <justin@burkett.cc>
-- Justin Caratzas <justin.caratzas@gmail.com>
-- Justin Guenther <jguenther@gmail.com>
-- Justin Thomas <justin.thomas1@gmail.com>
-- Kan-Ru Chen <kanru@kanru.info>
-- Kenny Ballou <kballou@devnulllabs.io>
-- Keshav Kini <keshav.kini@gmail.com>
-- Kevin Brubeck Unhammer <unhammer@fsfe.org>
-- Kévin Le Gouguec <kevin.legouguec@gmail.com>
-- Kimberly Wolk <kimwolk@hotmail.com>
-- Kyle Meyer <kyle@kyleam.com>
-- Laurent Laffont <laurent.laffont@gmail.com>
-- Laverne Schrock <laverne@schrock.email>
-- Leandro Facchinetti <me@leafac.com>
-- Lele Gaifax <lele@metapensiero.it>
-- Leo Liu <sdl.web@gmail.com>
-- Leonardo Etcheverry <leo@kalio.net>
-- Lingchao Xin <douglarek@users.noreply.github.com>
-- Li-Yun Chang <michael142536@gmail.com>
-- Lluís Vilanova <vilanova@ac.upc.edu>
-- Loic Dachary <loic@dachary.org>
-- Louis Roché <louis@louisroche.net>
-- Luís Oliveira <luismbo@gmail.com>
-- Luke Amdor <luke.amdor@gmail.com>
-- Mak Kolybabi <mak@kolybabi.com>
-- Manuel Vázquez Acosta <mva.led@gmail.com>
-- Marcel Wolf <mwolf@ml1.net>
-- Marc Herbert <marc.herbert@gmail.com>
-- Marcin Bachry <hegel666@gmail.com>
-- Marco Craveiro <marco.craveiro@gmail.com>
-- Marco Wahl <marcowahlsoft@gmail.com>
-- Marc Sherry <msherry@gmail.com>
-- Marian Schubert <marian.schubert@gmail.com>
-- Mario Rodas <marsam@users.noreply.github.com>
-- Marius Vollmer <marius.vollmer@gmail.com>
-- Mark Hepburn <Mark.Hepburn@csiro.au>
-- Mark Karpov <markkarpov@opmbx.org>
-- Mark Oteiza <mvoteiza@udel.edu>
-- Matthew Fluet <matthew.fluet@gmail.com>
-- Matthieu Hauglustaine <matt.hauglustaine@gmail.com>
-- Matus Goljer <dota.keys@gmail.com>
-- Michael Fogleman <michaelwfogleman@gmail.com>
-- Michael Griffiths <mikey@cich.li>
-- Michael Heerdegen <michael_heerdegen@web.de>
-- Michal Sojka <sojkam1@fel.cvut.cz>
-- Miciah Masters <miciah.masters@gmail.com>
-- Miles Bader <miles@gnu.org>
-- Miloš Mošić <mosic.milos@gmail.com>
-- Mitchel Humpherys <mitch.special@gmail.com>
-- Moritz Bunkus <moritz@bunkus.org>
-- Natalie Weizenbaum <nex342@gmail.com>
-- Nguyễn Tuấn Anh <ubolonton@gmail.com>
-- Nic Ferier <nic@ferrier.me.uk>
-- Nick Alcock <nick.alcock@oracle.com>
-- Nick Alexander <nalexander@mozilla.com>
-- Nick Dimiduk <ndimiduk@gmail.com>
-- Nicklas Lindgren <nili@gulmohar.se>
-- Nicolas Dudebout <nicolas.dudebout@gatech.edu>
-- Nicolas Petton <nicolas@petton.fr>
-- Nicolas Richard <theonewiththeevillook@yahoo.fr>
-- Nikolay Martynov <mar.kolya@gmail.com>
-- Noam Postavsky <npostavs@users.sourceforge.net>
-- N. Troy de Freitas <me@ntdef.com>
-- Ole Arndt <oliver.arndt@cegedim.com>
-- Oleh Krehel <ohwoeowho@gmail.com>
-- Orivej Desh <orivej@gmx.fr>
-- Óscar Fuentes <ofv@wanadoo.es>
-- Paul Stadig <paul@stadig.name>
-- Pavel Holejsovsky <pavel.holejsovsky@upek.com>
-- Pekka Pessi <nospam@pessi.fi>
-- Peter Eisentraut <peter@eisentraut.org>
-- Peter Jaros <peter.a.jaros@gmail.com>
-- Peter J. Weisberg <pj@irregularexpressions.net>
-- Peter Vasil <mail@petervasil.net>
-- Philippe Vaucher <philippe.vaucher@gmail.com>
-- Philipp Haselwarter <philipp@haselwarter.org>
-- Philipp Stephani <phst@google.com>
-- Philip Weaver <philip.weaver@gmail.com>
-- Phil Jackson <phil@shellarchive.co.uk>
-- Phil Sainty <phil@catalyst.net.nz>
-- Pierre Neidhardt <ambrevar@gmail.com>
-- Pieter Praet <pieter@praet.org>
-- Prathamesh Sonpatki <csonpatki@gmail.com>
-- rabio <rabiodev@o2.pl>
-- Radon Rosborough <radon.neon@gmail.com>
-- Rafael Laboissiere <rafael@laboissiere.net>
-- Raimon Grau <raimon@3scale.net>
-- Ramkumar Ramachandra <artagnon@gmail.com>
-- Remco van 't Veer <rwvtveer@xs4all.nl>
-- Rémi Vanicat <vanicat@debian.org>
-- René Stadler <mail@renestadler.de>
-- Richard Kim <emacs18@gmail.com>
-- Robert Boone <robo4288@gmail.com>
-- Robin Green <greenrd@greenrd.org>
-- Roger Crew <crew@cs.stanford.edu>
-- Romain Francoise <romain@orebokech.com>
-- Ron Parker <rparker@a123systems.com>
-- Roy Crihfield <rscrihf@gmail.com>
-- Rüdiger Sonderfeld <ruediger@c-plusplus.net>
-- Russell Black <black.russell@gmail.com>
-- Ryan C. Thompson <rct@thompsonclan.org>
-- Samuel Bronson <naesten@gmail.com>
-- Samuel W. Flint <swflint@flintfam.org>
-- Sanjoy Das <sanjoy@playingwithpointers.com>
-- Sean Allred <code@seanallred.com>
-- Sean Bryant <sbryant@hackinggibsons.com>
-- Sean Whitton <spwhitton@spwhitton.name>
-- Sebastian Wiesner <lunaryorn@gmail.com>
-- Sébastien Gross <seb@chezwam.org>
-- Seong-Kook Shin <cinsky@gmail.com>
-- Sergey Pashinin <sergey@pashinin.com>
-- Sergey Vinokurov <serg.foo@gmail.com>
-- Servilio Afre Puentes <afrepues@mcmaster.ca>
-- Silent Sphere <silentsphere110@gmail.com>
-- Štěpán Němec <stepnem@gmail.com>
-- Steven Chow <steve@myfreestuffapp.com>
-- Steven E. Harris <seh@panix.com>
-- Steven Thomas <sthomas314@gmail.com>
-- Steven Vancoillie <steven.vancoillie@runbox.com>
-- Steve Purcell <steve@sanityinc.com>
-- Suhail Shergill <suhailshergill@gmail.com>
-- Sylvain Rousseau <thisirs@gmail.com>
-- Syohei Yoshida <syohex@gmail.com>
-- Takafumi Arakaki <aka.tkf@gmail.com>
-- Teemu Likonen <tlikonen@iki.fi>
-- Teruki Shigitani <teruki.shigitani@gmail.com>
-- Thierry Volpiatto <thierry.volpiatto@gmail.com>
-- Thomas A Caswell <tcaswell@gmail.com>
-- Thomas Frössman <thomasf@jossystem.se>
-- Thomas Jost <thomas.jost@gmail.com>
-- Thomas Riccardi <riccardi.thomas@gmail.com>
-- Tibor Simko <tibor.simko@cern.ch>
-- Timo Juhani Lindfors <timo.lindfors@iki.fi>
-- Tim Perkins <tprk77@gmail.com>
-- Tim Wraight <tim@wraight.net>
-- Ting-Yu Lin <aethanyc@gmail.com>
-- Tom Feist <shabble@metavore.org>
-- Tunc Uzlu <bb2020@users.noreply.github.com>
-- Vineet Naik <vineet@helpshift.com>
-- Vladimir Panteleev <git@thecybershadow.net>
-- Wei Huang <weih@opera.com>
-- Wilfred Hughes <me@wilfred.me.uk>
-- Win Treese <treese@acm.org>
-- Wouter Bolsterlee <wouter@bolsterl.ee>
-- Xavier Noria <fxn@hashref.com>
-- Xu Chunyang <mail@xuchunyang.me>
-- Yann Hodique <yann.hodique@gmail.com>
-- York Zhao <gtdplatform@gmail.com>
-- Yuichi Higashi <aaa707b@gmail.com>
-- Yuri Khan <yurivkhan@gmail.com>
-- Zach Latta <zach@zachlatta.com>
diff --git a/elpa/magit-20181116.1412/LICENSE b/elpa/magit-20181116.1412/LICENSE
deleted file mode 100644
index 4432540..0000000
--- a/elpa/magit-20181116.1412/LICENSE
+++ /dev/null
@@ -1,676 +0,0 @@
-
- GNU GENERAL PUBLIC LICENSE
- Version 3, 29 June 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The GNU General Public License is a free, copyleft license for
-software and other kinds of works.
-
- The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works. By contrast,
-the GNU General Public License is intended to guarantee your freedom to
-share and change all versions of a program--to make sure it remains free
-software for all its users. We, the Free Software Foundation, use the
-GNU General Public License for most of our software; it applies also to
-any other work released this way by its authors. You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
- To protect your rights, we need to prevent others from denying you
-these rights or asking you to surrender the rights. Therefore, you have
-certain responsibilities if you distribute copies of the software, or if
-you modify it: responsibilities to respect the freedom of others.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must pass on to the recipients the same
-freedoms that you received. You must make sure that they, too, receive
-or can get the source code. And you must show them these terms so they
-know their rights.
-
- Developers that use the GNU GPL protect your rights with two steps:
-(1) assert copyright on the software, and (2) offer you this License
-giving you legal permission to copy, distribute and/or modify it.
-
- For the developers' and authors' protection, the GPL clearly explains
-that there is no warranty for this free software. For both users' and
-authors' sake, the GPL requires that modified versions be marked as
-changed, so that their problems will not be attributed erroneously to
-authors of previous versions.
-
- Some devices are designed to deny users access to install or run
-modified versions of the software inside them, although the manufacturer
-can do so. This is fundamentally incompatible with the aim of
-protecting users' freedom to change the software. The systematic
-pattern of such abuse occurs in the area of products for individuals to
-use, which is precisely where it is most unacceptable. Therefore, we
-have designed this version of the GPL to prohibit the practice for those
-products. If such problems arise substantially in other domains, we
-stand ready to extend this provision to those domains in future versions
-of the GPL, as needed to protect the freedom of users.
-
- Finally, every program is threatened constantly by software patents.
-States should not allow patents to restrict development and use of
-software on general-purpose computers, but in those that do, we wish to
-avoid the special danger that patents applied to a free program could
-make it effectively proprietary. To prevent this, the GPL assures that
-patents cannot be used to render the program non-free.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- TERMS AND CONDITIONS
-
- 0. Definitions.
-
- "This License" refers to version 3 of the GNU General Public License.
-
- "Copyright" also means copyright-like laws that apply to other kinds of
-works, such as semiconductor masks.
-
- "The Program" refers to any copyrightable work licensed under this
-License. Each licensee is addressed as "you". "Licensees" and
-"recipients" may be individuals or organizations.
-
- To "modify" a work means to copy from or adapt all or part of the work
-in a fashion requiring copyright permission, other than the making of an
-exact copy. The resulting work is called a "modified version" of the
-earlier work or a work "based on" the earlier work.
-
- A "covered work" means either the unmodified Program or a work based
-on the Program.
-
- To "propagate" a work means to do anything with it that, without
-permission, would make you directly or secondarily liable for
-infringement under applicable copyright law, except executing it on a
-computer or modifying a private copy. Propagation includes copying,
-distribution (with or without modification), making available to the
-public, and in some countries other activities as well.
-
- To "convey" a work means any kind of propagation that enables other
-parties to make or receive copies. Mere interaction with a user through
-a computer network, with no transfer of a copy, is not conveying.
-
- An interactive user interface displays "Appropriate Legal Notices"
-to the extent that it includes a convenient and prominently visible
-feature that (1) displays an appropriate copyright notice, and (2)
-tells the user that there is no warranty for the work (except to the
-extent that warranties are provided), that licensees may convey the
-work under this License, and how to view a copy of this License. If
-the interface presents a list of user commands or options, such as a
-menu, a prominent item in the list meets this criterion.
-
- 1. Source Code.
-
- The "source code" for a work means the preferred form of the work
-for making modifications to it. "Object code" means any non-source
-form of a work.
-
- A "Standard Interface" means an interface that either is an official
-standard defined by a recognized standards body, or, in the case of
-interfaces specified for a particular programming language, one that
-is widely used among developers working in that language.
-
- The "System Libraries" of an executable work include anything, other
-than the work as a whole, that (a) is included in the normal form of
-packaging a Major Component, but which is not part of that Major
-Component, and (b) serves only to enable use of the work with that
-Major Component, or to implement a Standard Interface for which an
-implementation is available to the public in source code form. A
-"Major Component", in this context, means a major essential component
-(kernel, window system, and so on) of the specific operating system
-(if any) on which the executable work runs, or a compiler used to
-produce the work, or an object code interpreter used to run it.
-
- The "Corresponding Source" for a work in object code form means all
-the source code needed to generate, install, and (for an executable
-work) run the object code and to modify the work, including scripts to
-control those activities. However, it does not include the work's
-System Libraries, or general-purpose tools or generally available free
-programs which are used unmodified in performing those activities but
-which are not part of the work. For example, Corresponding Source
-includes interface definition files associated with source files for
-the work, and the source code for shared libraries and dynamically
-linked subprograms that the work is specifically designed to require,
-such as by intimate data communication or control flow between those
-subprograms and other parts of the work.
-
- The Corresponding Source need not include anything that users
-can regenerate automatically from other parts of the Corresponding
-Source.
-
- The Corresponding Source for a work in source code form is that
-same work.
-
- 2. Basic Permissions.
-
- All rights granted under this License are granted for the term of
-copyright on the Program, and are irrevocable provided the stated
-conditions are met. This License explicitly affirms your unlimited
-permission to run the unmodified Program. The output from running a
-covered work is covered by this License only if the output, given its
-content, constitutes a covered work. This License acknowledges your
-rights of fair use or other equivalent, as provided by copyright law.
-
- You may make, run and propagate covered works that you do not
-convey, without conditions so long as your license otherwise remains
-in force. You may convey covered works to others for the sole purpose
-of having them make modifications exclusively for you, or provide you
-with facilities for running those works, provided that you comply with
-the terms of this License in conveying all material for which you do
-not control copyright. Those thus making or running the covered works
-for you must do so exclusively on your behalf, under your direction
-and control, on terms that prohibit them from making any copies of
-your copyrighted material outside their relationship with you.
-
- Conveying under any other circumstances is permitted solely under
-the conditions stated below. Sublicensing is not allowed; section 10
-makes it unnecessary.
-
- 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
-
- No covered work shall be deemed part of an effective technological
-measure under any applicable law fulfilling obligations under article
-11 of the WIPO copyright treaty adopted on 20 December 1996, or
-similar laws prohibiting or restricting circumvention of such
-measures.
-
- When you convey a covered work, you waive any legal power to forbid
-circumvention of technological measures to the extent such circumvention
-is effected by exercising rights under this License with respect to
-the covered work, and you disclaim any intention to limit operation or
-modification of the work as a means of enforcing, against the work's
-users, your or third parties' legal rights to forbid circumvention of
-technological measures.
-
- 4. Conveying Verbatim Copies.
-
- You may convey verbatim copies of the Program's source code as you
-receive it, in any medium, provided that you conspicuously and
-appropriately publish on each copy an appropriate copyright notice;
-keep intact all notices stating that this License and any
-non-permissive terms added in accord with section 7 apply to the code;
-keep intact all notices of the absence of any warranty; and give all
-recipients a copy of this License along with the Program.
-
- You may charge any price or no price for each copy that you convey,
-and you may offer support or warranty protection for a fee.
-
- 5. Conveying Modified Source Versions.
-
- You may convey a work based on the Program, or the modifications to
-produce it from the Program, in the form of source code under the
-terms of section 4, provided that you also meet all of these conditions:
-
- a) The work must carry prominent notices stating that you modified
- it, and giving a relevant date.
-
- b) The work must carry prominent notices stating that it is
- released under this License and any conditions added under section
- 7. This requirement modifies the requirement in section 4 to
- "keep intact all notices".
-
- c) You must license the entire work, as a whole, under this
- License to anyone who comes into possession of a copy. This
- License will therefore apply, along with any applicable section 7
- additional terms, to the whole of the work, and all its parts,
- regardless of how they are packaged. This License gives no
- permission to license the work in any other way, but it does not
- invalidate such permission if you have separately received it.
-
- d) If the work has interactive user interfaces, each must display
- Appropriate Legal Notices; however, if the Program has interactive
- interfaces that do not display Appropriate Legal Notices, your
- work need not make them do so.
-
- A compilation of a covered work with other separate and independent
-works, which are not by their nature extensions of the covered work,
-and which are not combined with it such as to form a larger program,
-in or on a volume of a storage or distribution medium, is called an
-"aggregate" if the compilation and its resulting copyright are not
-used to limit the access or legal rights of the compilation's users
-beyond what the individual works permit. Inclusion of a covered work
-in an aggregate does not cause this License to apply to the other
-parts of the aggregate.
-
- 6. Conveying Non-Source Forms.
-
- You may convey a covered work in object code form under the terms
-of sections 4 and 5, provided that you also convey the
-machine-readable Corresponding Source under the terms of this License,
-in one of these ways:
-
- a) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by the
- Corresponding Source fixed on a durable physical medium
- customarily used for software interchange.
-
- b) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by a
- written offer, valid for at least three years and valid for as
- long as you offer spare parts or customer support for that product
- model, to give anyone who possesses the object code either (1) a
- copy of the Corresponding Source for all the software in the
- product that is covered by this License, on a durable physical
- medium customarily used for software interchange, for a price no
- more than your reasonable cost of physically performing this
- conveying of source, or (2) access to copy the
- Corresponding Source from a network server at no charge.
-
- c) Convey individual copies of the object code with a copy of the
- written offer to provide the Corresponding Source. This
- alternative is allowed only occasionally and noncommercially, and
- only if you received the object code with such an offer, in accord
- with subsection 6b.
-
- d) Convey the object code by offering access from a designated
- place (gratis or for a charge), and offer equivalent access to the
- Corresponding Source in the same way through the same place at no
- further charge. You need not require recipients to copy the
- Corresponding Source along with the object code. If the place to
- copy the object code is a network server, the Corresponding Source
- may be on a different server (operated by you or a third party)
- that supports equivalent copying facilities, provided you maintain
- clear directions next to the object code saying where to find the
- Corresponding Source. Regardless of what server hosts the
- Corresponding Source, you remain obligated to ensure that it is
- available for as long as needed to satisfy these requirements.
-
- e) Convey the object code using peer-to-peer transmission, provided
- you inform other peers where the object code and Corresponding
- Source of the work are being offered to the general public at no
- charge under subsection 6d.
-
- A separable portion of the object code, whose source code is excluded
-from the Corresponding Source as a System Library, need not be
-included in conveying the object code work.
-
- A "User Product" is either (1) a "consumer product", which means any
-tangible personal property which is normally used for personal, family,
-or household purposes, or (2) anything designed or sold for incorporation
-into a dwelling. In determining whether a product is a consumer product,
-doubtful cases shall be resolved in favor of coverage. For a particular
-product received by a particular user, "normally used" refers to a
-typical or common use of that class of product, regardless of the status
-of the particular user or of the way in which the particular user
-actually uses, or expects or is expected to use, the product. A product
-is a consumer product regardless of whether the product has substantial
-commercial, industrial or non-consumer uses, unless such uses represent
-the only significant mode of use of the product.
-
- "Installation Information" for a User Product means any methods,
-procedures, authorization keys, or other information required to install
-and execute modified versions of a covered work in that User Product from
-a modified version of its Corresponding Source. The information must
-suffice to ensure that the continued functioning of the modified object
-code is in no case prevented or interfered with solely because
-modification has been made.
-
- If you convey an object code work under this section in, or with, or
-specifically for use in, a User Product, and the conveying occurs as
-part of a transaction in which the right of possession and use of the
-User Product is transferred to the recipient in perpetuity or for a
-fixed term (regardless of how the transaction is characterized), the
-Corresponding Source conveyed under this section must be accompanied
-by the Installation Information. But this requirement does not apply
-if neither you nor any third party retains the ability to install
-modified object code on the User Product (for example, the work has
-been installed in ROM).
-
- The requirement to provide Installation Information does not include a
-requirement to continue to provide support service, warranty, or updates
-for a work that has been modified or installed by the recipient, or for
-the User Product in which it has been modified or installed. Access to a
-network may be denied when the modification itself materially and
-adversely affects the operation of the network or violates the rules and
-protocols for communication across the network.
-
- Corresponding Source conveyed, and Installation Information provided,
-in accord with this section must be in a format that is publicly
-documented (and with an implementation available to the public in
-source code form), and must require no special password or key for
-unpacking, reading or copying.
-
- 7. Additional Terms.
-
- "Additional permissions" are terms that supplement the terms of this
-License by making exceptions from one or more of its conditions.
-Additional permissions that are applicable to the entire Program shall
-be treated as though they were included in this License, to the extent
-that they are valid under applicable law. If additional permissions
-apply only to part of the Program, that part may be used separately
-under those permissions, but the entire Program remains governed by
-this License without regard to the additional permissions.
-
- When you convey a copy of a covered work, you may at your option
-remove any additional permissions from that copy, or from any part of
-it. (Additional permissions may be written to require their own
-removal in certain cases when you modify the work.) You may place
-additional permissions on material, added by you to a covered work,
-for which you have or can give appropriate copyright permission.
-
- Notwithstanding any other provision of this License, for material you
-add to a covered work, you may (if authorized by the copyright holders of
-that material) supplement the terms of this License with terms:
-
- a) Disclaiming warranty or limiting liability differently from the
- terms of sections 15 and 16 of this License; or
-
- b) Requiring preservation of specified reasonable legal notices or
- author attributions in that material or in the Appropriate Legal
- Notices displayed by works containing it; or
-
- c) Prohibiting misrepresentation of the origin of that material, or
- requiring that modified versions of such material be marked in
- reasonable ways as different from the original version; or
-
- d) Limiting the use for publicity purposes of names of licensors or
- authors of the material; or
-
- e) Declining to grant rights under trademark law for use of some
- trade names, trademarks, or service marks; or
-
- f) Requiring indemnification of licensors and authors of that
- material by anyone who conveys the material (or modified versions of
- it) with contractual assumptions of liability to the recipient, for
- any liability that these contractual assumptions directly impose on
- those licensors and authors.
-
- All other non-permissive additional terms are considered "further
-restrictions" within the meaning of section 10. If the Program as you
-received it, or any part of it, contains a notice stating that it is
-governed by this License along with a term that is a further
-restriction, you may remove that term. If a license document contains
-a further restriction but permits relicensing or conveying under this
-License, you may add to a covered work material governed by the terms
-of that license document, provided that the further restriction does
-not survive such relicensing or conveying.
-
- If you add terms to a covered work in accord with this section, you
-must place, in the relevant source files, a statement of the
-additional terms that apply to those files, or a notice indicating
-where to find the applicable terms.
-
- Additional terms, permissive or non-permissive, may be stated in the
-form of a separately written license, or stated as exceptions;
-the above requirements apply either way.
-
- 8. Termination.
-
- You may not propagate or modify a covered work except as expressly
-provided under this License. Any attempt otherwise to propagate or
-modify it is void, and will automatically terminate your rights under
-this License (including any patent licenses granted under the third
-paragraph of section 11).
-
- However, if you cease all violation of this License, then your
-license from a particular copyright holder is reinstated (a)
-provisionally, unless and until the copyright holder explicitly and
-finally terminates your license, and (b) permanently, if the copyright
-holder fails to notify you of the violation by some reasonable means
-prior to 60 days after the cessation.
-
- Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
- Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License. If your rights have been terminated and not permanently
-reinstated, you do not qualify to receive new licenses for the same
-material under section 10.
-
- 9. Acceptance Not Required for Having Copies.
-
- You are not required to accept this License in order to receive or
-run a copy of the Program. Ancillary propagation of a covered work
-occurring solely as a consequence of using peer-to-peer transmission
-to receive a copy likewise does not require acceptance. However,
-nothing other than this License grants you permission to propagate or
-modify any covered work. These actions infringe copyright if you do
-not accept this License. Therefore, by modifying or propagating a
-covered work, you indicate your acceptance of this License to do so.
-
- 10. Automatic Licensing of Downstream Recipients.
-
- Each time you convey a covered work, the recipient automatically
-receives a license from the original licensors, to run, modify and
-propagate that work, subject to this License. You are not responsible
-for enforcing compliance by third parties with this License.
-
- An "entity transaction" is a transaction transferring control of an
-organization, or substantially all assets of one, or subdividing an
-organization, or merging organizations. If propagation of a covered
-work results from an entity transaction, each party to that
-transaction who receives a copy of the work also receives whatever
-licenses to the work the party's predecessor in interest had or could
-give under the previous paragraph, plus a right to possession of the
-Corresponding Source of the work from the predecessor in interest, if
-the predecessor has it or can get it with reasonable efforts.
-
- You may not impose any further restrictions on the exercise of the
-rights granted or affirmed under this License. For example, you may
-not impose a license fee, royalty, or other charge for exercise of
-rights granted under this License, and you may not initiate litigation
-(including a cross-claim or counterclaim in a lawsuit) alleging that
-any patent claim is infringed by making, using, selling, offering for
-sale, or importing the Program or any portion of it.
-
- 11. Patents.
-
- A "contributor" is a copyright holder who authorizes use under this
-License of the Program or a work on which the Program is based. The
-work thus licensed is called the contributor's "contributor version".
-
- A contributor's "essential patent claims" are all patent claims
-owned or controlled by the contributor, whether already acquired or
-hereafter acquired, that would be infringed by some manner, permitted
-by this License, of making, using, or selling its contributor version,
-but do not include claims that would be infringed only as a
-consequence of further modification of the contributor version. For
-purposes of this definition, "control" includes the right to grant
-patent sublicenses in a manner consistent with the requirements of
-this License.
-
- Each contributor grants you a non-exclusive, worldwide, royalty-free
-patent license under the contributor's essential patent claims, to
-make, use, sell, offer for sale, import and otherwise run, modify and
-propagate the contents of its contributor version.
-
- In the following three paragraphs, a "patent license" is any express
-agreement or commitment, however denominated, not to enforce a patent
-(such as an express permission to practice a patent or covenant not to
-sue for patent infringement). To "grant" such a patent license to a
-party means to make such an agreement or commitment not to enforce a
-patent against the party.
-
- If you convey a covered work, knowingly relying on a patent license,
-and the Corresponding Source of the work is not available for anyone
-to copy, free of charge and under the terms of this License, through a
-publicly available network server or other readily accessible means,
-then you must either (1) cause the Corresponding Source to be so
-available, or (2) arrange to deprive yourself of the benefit of the
-patent license for this particular work, or (3) arrange, in a manner
-consistent with the requirements of this License, to extend the patent
-license to downstream recipients. "Knowingly relying" means you have
-actual knowledge that, but for the patent license, your conveying the
-covered work in a country, or your recipient's use of the covered work
-in a country, would infringe one or more identifiable patents in that
-country that you have reason to believe are valid.
-
- If, pursuant to or in connection with a single transaction or
-arrangement, you convey, or propagate by procuring conveyance of, a
-covered work, and grant a patent license to some of the parties
-receiving the covered work authorizing them to use, propagate, modify
-or convey a specific copy of the covered work, then the patent license
-you grant is automatically extended to all recipients of the covered
-work and works based on it.
-
- A patent license is "discriminatory" if it does not include within
-the scope of its coverage, prohibits the exercise of, or is
-conditioned on the non-exercise of one or more of the rights that are
-specifically granted under this License. You may not convey a covered
-work if you are a party to an arrangement with a third party that is
-in the business of distributing software, under which you make payment
-to the third party based on the extent of your activity of conveying
-the work, and under which the third party grants, to any of the
-parties who would receive the covered work from you, a discriminatory
-patent license (a) in connection with copies of the covered work
-conveyed by you (or copies made from those copies), or (b) primarily
-for and in connection with specific products or compilations that
-contain the covered work, unless you entered into that arrangement,
-or that patent license was granted, prior to 28 March 2007.
-
- Nothing in this License shall be construed as excluding or limiting
-any implied license or other defenses to infringement that may
-otherwise be available to you under applicable patent law.
-
- 12. No Surrender of Others' Freedom.
-
- If conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot convey a
-covered work so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you may
-not convey it at all. For example, if you agree to terms that obligate you
-to collect a royalty for further conveying from those to whom you convey
-the Program, the only way you could satisfy both those terms and this
-License would be to refrain entirely from conveying the Program.
-
- 13. Use with the GNU Affero General Public License.
-
- Notwithstanding any other provision of this License, you have
-permission to link or combine any covered work with a work licensed
-under version 3 of the GNU Affero General Public License into a single
-combined work, and to convey the resulting work. The terms of this
-License will continue to apply to the part which is the covered work,
-but the special requirements of the GNU Affero General Public License,
-section 13, concerning interaction through a network will apply to the
-combination as such.
-
- 14. Revised Versions of this License.
-
- The Free Software Foundation may publish revised and/or new versions of
-the GNU General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
- Each version is given a distinguishing version number. If the
-Program specifies that a certain numbered version of the GNU General
-Public License "or any later version" applies to it, you have the
-option of following the terms and conditions either of that numbered
-version or of any later version published by the Free Software
-Foundation. If the Program does not specify a version number of the
-GNU General Public License, you may choose any version ever published
-by the Free Software Foundation.
-
- If the Program specifies that a proxy can decide which future
-versions of the GNU General Public License can be used, that proxy's
-public statement of acceptance of a version permanently authorizes you
-to choose that version for the Program.
-
- Later license versions may give you additional or different
-permissions. However, no additional obligations are imposed on any
-author or copyright holder as a result of your choosing to follow a
-later version.
-
- 15. Disclaimer of Warranty.
-
- THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
-HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
-OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
-THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
-IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
-ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
- 16. Limitation of Liability.
-
- IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
-THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
-GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
-USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
-DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
-EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
-
- 17. Interpretation of Sections 15 and 16.
-
- If the disclaimer of warranty and limitation of liability provided
-above cannot be given local legal effect according to their terms,
-reviewing courts shall apply local law that most closely approximates
-an absolute waiver of all civil liability in connection with the
-Program, unless a warranty or assumption of liability accompanies a
-copy of the Program in return for a fee.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) <year> <name of author>
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation, either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-Also add information on how to contact you by electronic and paper mail.
-
- If the program does terminal interaction, make it output a short
-notice like this when it starts in an interactive mode:
-
- <program> Copyright (C) <year> <name of author>
- This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, your program's commands
-might be different; for a GUI interface, you would use an "about box".
-
- You should also get your employer (if you work as a programmer) or school,
-if any, to sign a "copyright disclaimer" for the program, if necessary.
-For more information on this, and how to apply and follow the GNU GPL, see
-<http://www.gnu.org/licenses/>.
-
- The GNU General Public License does not permit incorporating your program
-into proprietary programs. If your program is a subroutine library, you
-may consider it more useful to permit linking proprietary applications with
-the library. If this is what you want to do, use the GNU Lesser General
-Public License instead of this License. But first, please read
-<http://www.gnu.org/philosophy/why-not-lgpl.html>.
-
diff --git a/elpa/magit-20181116.1412/dir b/elpa/magit-20181116.1412/dir
deleted file mode 100644
index dfdbd71..0000000
--- a/elpa/magit-20181116.1412/dir
+++ /dev/null
@@ -1,18 +0,0 @@
-This is the file .../info/dir, which contains the
-topmost node of the Info hierarchy, called (dir)Top.
-The first time you invoke Info you start off looking at this node.
-
-File: dir, Node: Top This is the top of the INFO tree
-
- This (the Directory node) gives a menu of major topics.
- Typing "q" exits, "H" lists all Info commands, "d" returns here,
- "h" gives a primer for first-timers,
- "mEmacs<Return>" visits the Emacs manual, etc.
-
- In Emacs, you can click mouse button 2 on a menu item or cross reference
- to select it.
-
-* Menu:
-
-Emacs
-* Magit: (magit). Using Git from Emacs with Magit.
diff --git a/elpa/magit-20181116.1412/git-rebase.el b/elpa/magit-20181116.1412/git-rebase.el
deleted file mode 100644
index 07577c5..0000000
--- a/elpa/magit-20181116.1412/git-rebase.el
+++ /dev/null
@@ -1,593 +0,0 @@
-;;; git-rebase.el --- Edit Git rebase files -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Phil Jackson <phil@shellarchive.co.uk>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; This file is not part of GNU Emacs.
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This file 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 this file. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This package assists the user in editing the list of commits to be
-;; rewritten during an interactive rebase.
-
-;; When the user initiates an interactive rebase, e.g. using "r e" in
-;; a Magit buffer or on the command line using "git rebase -i REV",
-;; Git invokes the `$GIT_SEQUENCE_EDITOR' (or if that is undefined
-;; `$GIT_EDITOR' or even `$EDITOR') letting the user rearrange, drop,
-;; reword, edit, and squash commits.
-
-;; This package provides the major-mode `git-rebase-mode' which makes
-;; doing so much more fun, by making the buffer more colorful and
-;; providing the following commands:
-;;
-;; C-c C-c Tell Git to make it happen.
-;; C-c C-k Tell Git that you changed your mind, i.e. abort.
-;;
-;; p Move point to previous line.
-;; n Move point to next line.
-;;
-;; M-p Move the commit at point up.
-;; M-n Move the commit at point down.
-;;
-;; k Drop the commit at point.
-;; c Don't drop the commit at point.
-;; r Change the message of the commit at point.
-;; e Edit the commit at point.
-;; s Squash the commit at point, into the one above.
-;; f Like "s" but don't also edit the commit message.
-;; x Add a script to be run with the commit at point
-;; being checked out.
-;; z Add noop action at point.
-;;
-;; SPC Show the commit at point in another buffer.
-;; RET Show the commit at point in another buffer and
-;; select its window.
-;; C-/ Undo last change.
-
-;; You should probably also read the `git-rebase' manpage.
-
-;;; Code:
-
-(require 'dash)
-(require 'easymenu)
-(require 'server)
-(require 'with-editor)
-(require 'magit)
-
-(and (require 'async-bytecomp nil t)
- (memq 'magit (bound-and-true-p async-bytecomp-allowed-packages))
- (fboundp 'async-bytecomp-package-mode)
- (async-bytecomp-package-mode 1))
-
-(eval-when-compile (require 'recentf))
-
-;;; Options
-;;;; Variables
-
-(defgroup git-rebase nil
- "Edit Git rebase sequences."
- :link '(info-link "(magit)Editing Rebase Sequences")
- :group 'tools)
-
-(defcustom git-rebase-auto-advance t
- "Whether to move to next line after changing a line."
- :group 'git-rebase
- :type 'boolean)
-
-(defcustom git-rebase-show-instructions t
- "Whether to show usage instructions inside the rebase buffer."
- :group 'git-rebase
- :type 'boolean)
-
-(defcustom git-rebase-confirm-cancel t
- "Whether confirmation is required to cancel."
- :group 'git-rebase
- :type 'boolean)
-
-;;;; Faces
-
-(defgroup git-rebase-faces nil
- "Faces used by Git-Rebase mode."
- :group 'faces
- :group 'git-rebase)
-
-(defface git-rebase-hash '((t (:inherit magit-hash)))
- "Face for commit hashes."
- :group 'git-rebase-faces)
-
-(defface git-rebase-description nil
- "Face for commit descriptions."
- :group 'git-rebase-faces)
-
-(defface git-rebase-killed-action
- '((t (:inherit font-lock-comment-face :strike-through t)))
- "Face for commented action and exec lines."
- :group 'git-rebase-faces)
-
-(defface git-rebase-comment-hash
- '((t (:inherit git-rebase-hash :weight bold)))
- "Face for commit hashes in commit message comments."
- :group 'git-rebase-faces)
-
-(defface git-rebase-comment-heading
- '((t :inherit font-lock-keyword-face))
- "Face for headings in rebase message comments."
- :group 'git-commit-faces)
-
-;;; Keymaps
-
-(defvar git-rebase-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map special-mode-map)
- (cond ((featurep 'jkl)
- (define-key map [return] 'git-rebase-show-commit)
- (define-key map (kbd "i") 'git-rebase-backward-line)
- (define-key map (kbd "k") 'forward-line)
- (define-key map (kbd "M-i") 'git-rebase-move-line-up)
- (define-key map (kbd "M-k") 'git-rebase-move-line-down)
- (define-key map (kbd "p") 'git-rebase-pick)
- (define-key map (kbd ",") 'git-rebase-kill-line))
- (t
- (define-key map (kbd "C-m") 'git-rebase-show-commit)
- (define-key map (kbd "p") 'git-rebase-backward-line)
- (define-key map (kbd "n") 'forward-line)
- (define-key map (kbd "M-p") 'git-rebase-move-line-up)
- (define-key map (kbd "M-n") 'git-rebase-move-line-down)
- (define-key map (kbd "c") 'git-rebase-pick)
- (define-key map (kbd "k") 'git-rebase-kill-line)
- (define-key map (kbd "C-k") 'git-rebase-kill-line)))
- (define-key map (kbd "e") 'git-rebase-edit)
- (define-key map (kbd "m") 'git-rebase-edit)
- (define-key map (kbd "f") 'git-rebase-fixup)
- (define-key map (kbd "q") 'undefined)
- (define-key map (kbd "r") 'git-rebase-reword)
- (define-key map (kbd "w") 'git-rebase-reword)
- (define-key map (kbd "s") 'git-rebase-squash)
- (define-key map (kbd "x") 'git-rebase-exec)
- (define-key map (kbd "y") 'git-rebase-insert)
- (define-key map (kbd "z") 'git-rebase-noop)
- (define-key map (kbd "SPC") 'git-rebase-show-or-scroll-up)
- (define-key map (kbd "DEL") 'git-rebase-show-or-scroll-down)
- (define-key map (kbd "C-x C-t") 'git-rebase-move-line-up)
- (define-key map [M-up] 'git-rebase-move-line-up)
- (define-key map [M-down] 'git-rebase-move-line-down)
- (define-key map [remap undo] 'git-rebase-undo)
- map)
- "Keymap for Git-Rebase mode.")
-
-(cond ((featurep 'jkl)
- (put 'git-rebase-reword :advertised-binding "r")
- (put 'git-rebase-move-line-up :advertised-binding (kbd "M-i"))
- (put 'git-rebase-kill-line :advertised-binding ","))
- (t
- (put 'git-rebase-reword :advertised-binding "r")
- (put 'git-rebase-move-line-up :advertised-binding (kbd "M-p"))
- (put 'git-rebase-kill-line :advertised-binding "k")))
-
-(easy-menu-define git-rebase-mode-menu git-rebase-mode-map
- "Git-Rebase mode menu"
- '("Rebase"
- ["Pick" git-rebase-pick t]
- ["Reword" git-rebase-reword t]
- ["Edit" git-rebase-edit t]
- ["Squash" git-rebase-squash t]
- ["Fixup" git-rebase-fixup t]
- ["Kill" git-rebase-kill-line t]
- ["Noop" git-rebase-noop t]
- ["Execute" git-rebase-exec t]
- ["Move Down" git-rebase-move-line-down t]
- ["Move Up" git-rebase-move-line-up t]
- "---"
- ["Cancel" with-editor-cancel t]
- ["Finish" with-editor-finish t]))
-
-(defvar git-rebase-command-descriptions
- '((with-editor-finish . "tell Git to make it happen")
- (with-editor-cancel . "tell Git that you changed your mind, i.e. abort")
- (git-rebase-backward-line . "move point to previous line")
- (forward-line . "move point to next line")
- (git-rebase-move-line-up . "move the commit at point up")
- (git-rebase-move-line-down . "move the commit at point down")
- (git-rebase-show-or-scroll-up . "show the commit at point in another buffer")
- (git-rebase-show-commit
- . "show the commit at point in another buffer and select its window")
- (undo . "undo last change")
- (git-rebase-kill-line . "drop the commit at point")
- (git-rebase-insert . "insert a line for an arbitrary commit")
- (git-rebase-noop . "add noop action at point")))
-
-;;; Commands
-
-(defun git-rebase-pick ()
- "Use commit on current line."
- (interactive)
- (git-rebase-set-action "pick"))
-
-(defun git-rebase-reword ()
- "Edit message of commit on current line."
- (interactive)
- (git-rebase-set-action "reword"))
-
-(defun git-rebase-edit ()
- "Stop at the commit on the current line."
- (interactive)
- (git-rebase-set-action "edit"))
-
-(defun git-rebase-squash ()
- "Meld commit on current line into previous commit, edit message."
- (interactive)
- (git-rebase-set-action "squash"))
-
-(defun git-rebase-fixup ()
- "Meld commit on current line into previous commit, discard its message."
- (interactive)
- (git-rebase-set-action "fixup"))
-
-(defvar-local git-rebase-line nil)
-(defvar-local git-rebase-comment-re nil)
-
-(defun git-rebase-set-action (action)
- (goto-char (line-beginning-position))
- (if (and (looking-at git-rebase-line)
- (not (string-match-p "\\(e\\|exec\\|noop\\)$" (match-string 1))))
- (let ((inhibit-read-only t))
- (replace-match action t t nil 1)
- (when git-rebase-auto-advance
- (forward-line)))
- (ding)))
-
-(defun git-rebase-line-p (&optional pos)
- (save-excursion
- (when pos (goto-char pos))
- (goto-char (line-beginning-position))
- (looking-at-p git-rebase-line)))
-
-(defun git-rebase-region-bounds ()
- (when (use-region-p)
- (let ((beg (save-excursion (goto-char (region-beginning))
- (line-beginning-position)))
- (end (save-excursion (goto-char (region-end))
- (line-end-position))))
- (when (and (git-rebase-line-p beg)
- (git-rebase-line-p end))
- (list beg (1+ end))))))
-
-(defun git-rebase-move-line-down (n)
- "Move the current commit (or command) N lines down.
-If N is negative, move the commit up instead. With an active
-region, move all the lines that the region touches, not just the
-current line."
- (interactive "p")
- (pcase-let* ((`(,beg ,end)
- (or (git-rebase-region-bounds)
- (list (line-beginning-position)
- (1+ (line-end-position)))))
- (pt-offset (- (point) beg))
- (mark-offset (and mark-active (- (mark) beg))))
- (save-restriction
- (narrow-to-region
- (point-min)
- (1+ (save-excursion
- (goto-char (point-min))
- (while (re-search-forward git-rebase-line nil t))
- (point))))
- (if (or (and (< n 0) (= beg (point-min)))
- (and (> n 0) (= end (point-max)))
- (> end (point-max)))
- (ding)
- (goto-char (if (< n 0) beg end))
- (forward-line n)
- (atomic-change-group
- (let ((inhibit-read-only t))
- (insert (delete-and-extract-region beg end)))
- (let ((new-beg (- (point) (- end beg))))
- (when (use-region-p)
- (setq deactivate-mark nil)
- (set-mark (+ new-beg mark-offset)))
- (goto-char (+ new-beg pt-offset))))))))
-
-(defun git-rebase-move-line-up (n)
- "Move the current commit (or command) N lines up.
-If N is negative, move the commit down instead. With an active
-region, move all the lines that the region touches, not just the
-current line."
- (interactive "p")
- (git-rebase-move-line-down (- n)))
-
-(defun git-rebase-highlight-region (start end window rol)
- (let ((inhibit-read-only t)
- (deactivate-mark nil)
- (bounds (git-rebase-region-bounds)))
- (mapc #'delete-overlay magit-section-highlight-overlays)
- (when bounds
- (magit-section-make-overlay (car bounds) (cadr bounds)
- 'magit-section-heading-selection))
- (if (and bounds (not magit-keep-region-overlay))
- (funcall (default-value 'redisplay-unhighlight-region-function) rol)
- (funcall (default-value 'redisplay-highlight-region-function)
- start end window rol))))
-
-(defun git-rebase-unhighlight-region (rol)
- (mapc #'delete-overlay magit-section-highlight-overlays)
- (funcall (default-value 'redisplay-unhighlight-region-function) rol))
-
-(defun git-rebase-kill-line ()
- "Kill the current action line."
- (interactive)
- (goto-char (line-beginning-position))
- (when (and (looking-at git-rebase-line)
- (not (eq (char-after) (string-to-char comment-start))))
- (let ((inhibit-read-only t))
- (insert comment-start)
- (insert " "))
- (when git-rebase-auto-advance
- (forward-line))))
-
-(defun git-rebase-insert (rev)
- "Read an arbitrary commit and insert it below current line."
- (interactive (list (magit-read-branch-or-commit "Insert revision")))
- (forward-line)
- (--if-let (magit-rev-format "%h %s" rev)
- (let ((inhibit-read-only t))
- (insert "pick " it ?\n))
- (user-error "Unknown revision")))
-
-(defun git-rebase-exec (arg)
- "Insert a shell command to be run after the proceeding commit.
-
-If there already is such a command on the current line, then edit
-that instead. With a prefix argument insert a new command even
-when there already is one on the current line. With empty input
-remove the command on the current line, if any."
- (interactive "P")
- (let ((inhibit-read-only t) initial command)
- (unless arg
- (goto-char (line-beginning-position))
- (when (looking-at (concat git-rebase-comment-re "?"
- "\\(e\\|exec\\) \\(.*\\)"))
- (setq initial (match-string-no-properties 2))))
- (setq command (read-shell-command "Execute: " initial))
- (pcase (list command initial)
- (`("" nil) (ding))
- (`("" ,_)
- (delete-region (match-beginning 0) (1+ (match-end 0))))
- (`(,_ nil)
- (forward-line)
- (insert (concat "exec " command "\n"))
- (unless git-rebase-auto-advance
- (forward-line -1)))
- (_
- (replace-match (concat "exec " command) t t)
- (if git-rebase-auto-advance
- (forward-line)
- (goto-char (line-beginning-position)))))))
-
-(defun git-rebase-noop (&optional arg)
- "Add noop action at point.
-
-If the current line already contains a a noop action, leave it
-unchanged. If there is a commented noop action present, remove
-the comment. Otherwise add a new noop action. With a prefix
-argument insert a new noop action regardless what is already
-present on the current line.
-
-A noop action can be used to make git perform a rebase even if
-no commits are selected. Without the noop action present, git
-would see an empty file and therefore do nothing."
- (interactive "P")
- (goto-char (line-beginning-position))
- ;; The extra space at the end is only there to make the action
- ;; consistent with the others (action argument). This keeps
- ;; the regexp `git-rebase-line' from getting complicated.
- (let ((noop-string "noop \n"))
- (when (or arg (not (looking-at noop-string)))
- (let ((inhibit-read-only t))
- (if (and (not arg)
- (looking-at (concat comment-start noop-string)))
- (delete-char 1)
- (insert noop-string))))))
-
-(defun git-rebase-undo (&optional arg)
- "Undo some previous changes.
-Like `undo' but works in read-only buffers."
- (interactive "P")
- (let ((inhibit-read-only t))
- (undo arg)))
-
-(defun git-rebase--show-commit (&optional scroll)
- (let ((disable-magit-save-buffers t))
- (save-excursion
- (goto-char (line-beginning-position))
- (--if-let (and (looking-at git-rebase-line)
- (match-string 2))
- (pcase scroll
- (`up (magit-diff-show-or-scroll-up))
- (`down (magit-diff-show-or-scroll-down))
- (_ (apply #'magit-show-commit it (magit-diff-arguments))))
- (ding)))))
-
-(defun git-rebase-show-commit ()
- "Show the commit on the current line if any."
- (interactive)
- (git-rebase--show-commit))
-
-(defun git-rebase-show-or-scroll-up ()
- "Update the commit buffer for commit on current line.
-
-Either show the commit at point in the appropriate buffer, or if
-that buffer is already being displayed in the current frame and
-contains information about that commit, then instead scroll the
-buffer up."
- (interactive)
- (git-rebase--show-commit 'up))
-
-(defun git-rebase-show-or-scroll-down ()
- "Update the commit buffer for commit on current line.
-
-Either show the commit at point in the appropriate buffer, or if
-that buffer is already being displayed in the current frame and
-contains information about that commit, then instead scroll the
-buffer down."
- (interactive)
- (git-rebase--show-commit 'down))
-
-(defun git-rebase-backward-line (&optional n)
- "Move N lines backward (forward if N is negative).
-Like `forward-line' but go into the opposite direction."
- (interactive "p")
- (forward-line (- (or n 1))))
-
-;;; Mode
-
-;;;###autoload
-(define-derived-mode git-rebase-mode special-mode "Git Rebase"
- "Major mode for editing of a Git rebase file.
-
-Rebase files are generated when you run 'git rebase -i' or run
-`magit-interactive-rebase'. They describe how Git should perform
-the rebase. See the documentation for git-rebase (e.g., by
-running 'man git-rebase' at the command line) for details."
- :group 'git-rebase
- (setq comment-start (or (magit-get "core.commentChar") "#"))
- (setq git-rebase-comment-re (concat "^" (regexp-quote comment-start)))
- (setq git-rebase-line
- (concat "^\\(" (regexp-quote comment-start) "? *"
- "\\(?:[fprse]\\|pick\\|reword\\|edit\\|squash\\|fixup\\|exec\\|noop\\)\\) "
- "\\(?:\\([^ \n]+\\) \\(.*\\)\\)?"))
- (setq font-lock-defaults (list (git-rebase-mode-font-lock-keywords) t t))
- (unless git-rebase-show-instructions
- (let ((inhibit-read-only t))
- (flush-lines git-rebase-comment-re)))
- (unless with-editor-mode
- ;; Maybe already enabled when using `shell-command' or an Emacs shell.
- (with-editor-mode 1))
- (when git-rebase-confirm-cancel
- (add-hook 'with-editor-cancel-query-functions
- 'git-rebase-cancel-confirm nil t))
- (setq-local redisplay-highlight-region-function 'git-rebase-highlight-region)
- (setq-local redisplay-unhighlight-region-function 'git-rebase-unhighlight-region)
- (add-hook 'with-editor-pre-cancel-hook 'git-rebase-autostash-save nil t)
- (add-hook 'with-editor-post-cancel-hook 'git-rebase-autostash-apply nil t)
- (setq imenu-prev-index-position-function
- #'magit-imenu--rebase-prev-index-position-function)
- (setq imenu-extract-index-name-function
- #'magit-imenu--rebase-extract-index-name-function)
- (when (boundp 'save-place)
- (setq save-place nil)))
-
-(defun git-rebase-cancel-confirm (force)
- (or (not (buffer-modified-p))
- force
- (magit-confirm 'abort-rebase "Abort this rebase" nil 'noabort)))
-
-(defun git-rebase-autostash-save ()
- (--when-let (magit-file-line (magit-git-dir "rebase-merge/autostash"))
- (push (cons 'stash it) with-editor-cancel-alist)))
-
-(defun git-rebase-autostash-apply ()
- (--when-let (cdr (assq 'stash with-editor-cancel-alist))
- (magit-stash-apply it)))
-
-(defun git-rebase-match-comment-line (limit)
- (re-search-forward (concat git-rebase-comment-re ".*") limit t))
-
-(defun git-rebase-mode-font-lock-keywords ()
- "Font lock keywords for Git-Rebase mode."
- (let ((action-re "\
-\\([efprs]\\|pick\\|reword\\|edit\\|squash\\|fixup\\) \\([^ \n]+\\) \\(.*\\)"))
- `((,(concat "^" action-re)
- (1 'font-lock-keyword-face)
- (2 'git-rebase-hash)
- (3 'git-rebase-description))
- ("^\\(exec\\) \\(.*\\)"
- (1 'font-lock-keyword-face)
- (2 'git-rebase-description))
- ("^\\(noop\\)"
- (1 'font-lock-keyword-face))
- (git-rebase-match-comment-line 0 'font-lock-comment-face)
- (,(concat git-rebase-comment-re " *" action-re)
- 0 'git-rebase-killed-action t)
- ("\\[[^[]*\\]"
- 0 'magit-keyword t)
- (,(format "^%s Rebase \\([^ ]*\\) onto \\([^ ]*\\)" comment-start)
- (1 'git-rebase-comment-hash t)
- (2 'git-rebase-comment-hash t))
- (,(format "^%s \\(Commands:\\)" comment-start)
- (1 'git-rebase-comment-heading t)))))
-
-(defun git-rebase-mode-show-keybindings ()
- "Modify the \"Commands:\" section of the comment Git generates
-at the bottom of the file so that in place of the one-letter
-abbreviation for the command, it shows the command's keybinding.
-By default, this is the same except for the \"pick\" command."
- (let ((inhibit-read-only t))
- (save-excursion
- (goto-char (point-min))
- (when (and git-rebase-show-instructions
- (re-search-forward
- (concat git-rebase-comment-re "\\s-+p, pick")
- nil t))
- (goto-char (line-beginning-position))
- (pcase-dolist (`(,cmd . ,desc) git-rebase-command-descriptions)
- (insert (format "%s %-8s %s\n"
- comment-start
- (substitute-command-keys (format "\\[%s]" cmd))
- desc)))
- (while (re-search-forward (concat git-rebase-comment-re
- "\\( ?\\)\\([^\n,],\\) "
- "\\([^\n ]+\\) ")
- nil t)
- (let ((cmd (intern (concat "git-rebase-" (match-string 3)))))
- (if (not (fboundp cmd))
- (delete-region (line-beginning-position) (1+ (line-end-position)))
- (replace-match " " t t nil 1)
- (replace-match
- (format "%-8s"
- (mapconcat #'key-description
- (--remove (eq (elt it 0) 'menu-bar)
- (reverse (where-is-internal cmd)))
- ", "))
- t t nil 2))))))))
-
-(add-hook 'git-rebase-mode-hook 'git-rebase-mode-show-keybindings t)
-
-(defun git-rebase-mode-disable-before-save-hook ()
- (set (make-local-variable 'before-save-hook) nil))
-
-(add-hook 'git-rebase-mode-hook 'git-rebase-mode-disable-before-save-hook)
-
-;;;###autoload
-(defconst git-rebase-filename-regexp "/git-rebase-todo\\'")
-;;;###autoload
-(add-to-list 'auto-mode-alist
- (cons git-rebase-filename-regexp 'git-rebase-mode))
-
-(add-to-list 'with-editor-server-window-alist
- (cons git-rebase-filename-regexp 'switch-to-buffer))
-
-(eval-after-load 'recentf
- '(add-to-list 'recentf-exclude git-rebase-filename-regexp))
-
-(add-to-list 'with-editor-file-name-history-exclude git-rebase-filename-regexp)
-
-;;; _
-(provide 'git-rebase)
-;;; git-rebase.el ends here
diff --git a/elpa/magit-20181116.1412/git-rebase.elc b/elpa/magit-20181116.1412/git-rebase.elc
deleted file mode 100644
index c890948..0000000
--- a/elpa/magit-20181116.1412/git-rebase.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-apply.el b/elpa/magit-20181116.1412/magit-apply.el
deleted file mode 100644
index b99057e..0000000
--- a/elpa/magit-20181116.1412/magit-apply.el
+++ /dev/null
@@ -1,695 +0,0 @@
-;;; magit-apply.el --- apply Git diffs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements commands for applying Git diffs or parts
-;; of such a diff. The supported "apply variants" are apply, stage,
-;; unstage, discard, and reverse - more than Git itself knows about,
-;; at least at the porcelain level.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit-core)
-(require 'magit-diff)
-(require 'magit-wip)
-
-;; For `magit-apply'
-(declare-function magit-am-popup "magit-sequence" (&optional arg))
-(declare-function magit-patch-apply-popup "magit-files" (&optional arg))
-;; For `magit-discard-files'
-(declare-function magit-checkout-stage "magit-merge" (file arg))
-(declare-function magit-checkout-read-stage "magit-merge" (file))
-(defvar auto-revert-verbose)
-;; For `magit-stage-untracked'
-(declare-function magit-submodule-add "magit-submodule"
- (url &optional path name args))
-(declare-function magit-submodule-read-name-for-path "magit-submodule"
- (path &optional prefer-short))
-(declare-function borg--maybe-absorb-gitdir "borg" (pkg))
-(declare-function borg--sort-submodule-sections "borg" (file))
-(defvar borg-user-emacs-directory)
-
-;;; Options
-
-(defcustom magit-delete-by-moving-to-trash t
- "Whether Magit uses the system's trash can.
-
-You should absolutely not disable this and also remove `discard'
-from `magit-no-confirm'. You shouldn't do that even if you have
-all of the Magit-Wip modes enabled, because those modes do not
-track any files that are not tracked in the proper branch."
- :package-version '(magit . "2.1.0")
- :group 'magit-essentials
- :type 'boolean)
-
-(defcustom magit-unstage-committed t
- "Whether unstaging a committed change reverts it instead.
-
-A committed change cannot be unstaged, because staging and
-unstaging are actions that are concerned with the differences
-between the index and the working tree, not with committed
-changes.
-
-If this option is non-nil (the default), then typing \"u\"
-\(`magit-unstage') on a committed change, causes it to be
-reversed in the index but not the working tree. For more
-information see command `magit-reverse-in-index'."
- :package-version '(magit . "2.4.1")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-reverse-atomically nil
- "Whether to reverse changes atomically.
-
-If some changes can be reversed while others cannot, then nothing
-is reversed if the value of this option is non-nil. But when it
-is nil, then the changes that can be reversed are reversed and
-for the other changes diff files are created that contain the
-rejected reversals."
- :package-version '(magit . "2.7.0")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-post-stage-hook nil
- "Hook run after staging changes.
-This hook is run by `magit-refresh' if `this-command'
-is a member of `magit-post-stage-hook-commands'."
- :package-version '(magit . "2.90.0")
- :group 'magit-commands
- :type 'hook)
-
-(defvar magit-post-stage-hook-commands
- '(magit-stage magit-stage-file magit-stage-modified))
-
-(defcustom magit-post-unstage-hook nil
- "Hook run after unstaging changes.
-This hook is run by `magit-refresh' if `this-command'
-is a member of `magit-post-unstage-hook-commands'."
- :package-version '(magit . "2.90.0")
- :group 'magit-commands
- :type 'hook)
-
-(defvar magit-post-unstage-hook-commands
- '(magit-unstage magit-unstage-file magit-unstage-all))
-
-;;; Commands
-;;;; Apply
-
-(defun magit-apply (&rest args)
- "Apply the change at point to the working tree.
-With a prefix argument fallback to a 3-way merge. Doing
-so causes the change to be applied to the index as well."
- (interactive (and current-prefix-arg (list "--3way")))
- (--when-let (magit-apply--get-selection)
- (pcase (list (magit-diff-type) (magit-diff-scope))
- (`(,(or `unstaged `staged) ,_)
- (user-error "Change is already in the working tree"))
- (`(untracked ,(or `file `files))
- (magit-am-popup))
- (`(,_ region) (magit-apply-region it args))
- (`(,_ hunk) (magit-apply-hunk it args))
- (`(,_ hunks) (magit-apply-hunks it args))
- (`(rebase-sequence file) (magit-patch-apply-popup))
- (`(,_ file) (magit-apply-diff it args))
- (`(,_ files) (magit-apply-diffs it args)))))
-
-(defun magit-apply--section-content (section)
- (buffer-substring-no-properties (if (magit-hunk-section-p section)
- (oref section start)
- (oref section content))
- (oref section end)))
-
-(defun magit-apply-diffs (sections &rest args)
- (setq sections (magit-apply--get-diffs sections))
- (magit-apply-patch sections args
- (mapconcat
- (lambda (s)
- (concat (magit-diff-file-header s)
- (magit-apply--section-content s)))
- sections "")))
-
-(defun magit-apply-diff (section &rest args)
- (setq section (car (magit-apply--get-diffs (list section))))
- (magit-apply-patch section args
- (concat (magit-diff-file-header section)
- (magit-apply--section-content section))))
-
-(defun magit-apply-hunks (sections &rest args)
- (let ((section (oref (car sections) parent)))
- (when (string-match "^diff --cc" (oref section value))
- (user-error "Cannot un-/stage resolution hunks. Stage the whole file"))
- (magit-apply-patch section args
- (concat (oref section header)
- (mapconcat 'magit-apply--section-content
- sections "")))))
-
-(defun magit-apply-hunk (section &rest args)
- (when (string-match "^diff --cc" (magit-section-parent-value section))
- (user-error "Cannot un-/stage resolution hunks. Stage the whole file"))
- (magit-apply-patch (oref section parent) args
- (concat (magit-diff-file-header section)
- (magit-apply--section-content section))))
-
-(defun magit-apply-region (section &rest args)
- (unless (magit-diff-context-p)
- (user-error "Not enough context to apply region. Increase the context"))
- (when (string-match "^diff --cc" (magit-section-parent-value section))
- (user-error "Cannot un-/stage resolution hunks. Stage the whole file"))
- (magit-apply-patch (oref section parent) args
- (concat (magit-diff-file-header section)
- (magit-diff-hunk-region-patch section args))))
-
-(defun magit-apply-patch (section:s args patch)
- (let* ((files (if (atom section:s)
- (list (oref section:s value))
- (--map (oref it value) section:s)))
- (command (symbol-name this-command))
- (command (if (and command (string-match "^magit-\\([^-]+\\)" command))
- (match-string 1 command)
- "apply"))
- (no-context (not (magit-diff-context-p)))
- (ignore-context (magit-diff-ignore-any-space-p)))
- (when (and magit-wip-before-change-mode (not inhibit-magit-refresh))
- (magit-wip-commit-before-change files (concat " before " command)))
- (with-temp-buffer
- (insert patch)
- (magit-run-git-with-input
- "apply" args "-p0"
- (and no-context "--unidiff-zero")
- (and ignore-context "-C0")
- "--ignore-space-change" "-"))
- (unless inhibit-magit-refresh
- (when magit-wip-after-apply-mode
- (magit-wip-commit-after-apply files (concat " after " command)))
- (magit-refresh))))
-
-(defun magit-apply--get-selection ()
- (or (magit-region-sections '(hunk file module) t)
- (let ((section (magit-current-section)))
- (pcase (oref section type)
- ((or `hunk `file `module) section)
- ((or `staged `unstaged `untracked
- `stashed-index `stashed-worktree `stashed-untracked)
- (oref section children))
- (_ (user-error "Cannot apply this, it's not a change"))))))
-
-(defun magit-apply--get-diffs (sections)
- (magit-section-case
- ([file diffstat]
- (--map (or (magit-get-section
- (append `((file . ,(oref it value)))
- (magit-section-ident magit-root-section)))
- (error "Cannot get required diff headers"))
- sections))
- (t sections)))
-
-(defun magit-apply--diff-ignores-whitespace-p ()
- (and (cl-intersection (if (derived-mode-p 'magit-diff-mode)
- (nth 2 magit-refresh-args)
- magit-diff-section-arguments)
- '("--ignore-space-at-eol"
- "--ignore-space-change"
- "--ignore-all-space"
- "--ignore-blank-lines")
- :test #'equal)
- t))
-
-;;;; Stage
-
-(defun magit-stage (&optional intent)
- "Add the change at point to the staging area.
-With a prefix argument, INTENT, and an untracked file (or files)
-at point, stage the file but not its content."
- (interactive "P")
- (--if-let (and (derived-mode-p 'magit-mode) (magit-apply--get-selection))
- (pcase (list (magit-diff-type)
- (magit-diff-scope)
- (magit-apply--diff-ignores-whitespace-p))
- (`(untracked ,_ ,_) (magit-stage-untracked intent))
- (`(unstaged region ,_) (magit-apply-region it "--cached"))
- (`(unstaged hunk ,_) (magit-apply-hunk it "--cached"))
- (`(unstaged hunks ,_) (magit-apply-hunks it "--cached"))
- (`(unstaged file t) (magit-apply-diff it "--cached"))
- (`(unstaged files t) (magit-apply-diffs it "--cached"))
- (`(unstaged list t) (magit-apply-diffs it "--cached"))
- (`(unstaged file nil) (magit-stage-1 "-u" (list (oref it value))))
- (`(unstaged files nil) (magit-stage-1 "-u" (magit-region-values nil t)))
- (`(unstaged list nil) (magit-stage-modified))
- (`(staged ,_ ,_) (user-error "Already staged"))
- (`(committed ,_ ,_) (user-error "Cannot stage committed changes"))
- (`(undefined ,_ ,_) (user-error "Cannot stage this change")))
- (call-interactively 'magit-stage-file)))
-
-;;;###autoload
-(defun magit-stage-file (file)
- "Stage all changes to FILE.
-With a prefix argument or when there is no file at point ask for
-the file to be staged. Otherwise stage the file at point without
-requiring confirmation."
- (interactive
- (let* ((atpoint (magit-section-value-if 'file))
- (current (magit-file-relative-name))
- (choices (nconc (magit-unstaged-files)
- (magit-untracked-files)))
- (default (car (member (or atpoint current) choices))))
- (list (if (or current-prefix-arg (not default))
- (magit-completing-read "Stage file" choices
- nil t nil nil default)
- default))))
- (magit-with-toplevel
- (magit-stage-1 nil (list file))))
-
-;;;###autoload
-(defun magit-stage-modified (&optional all)
- "Stage all changes to files modified in the worktree.
-Stage all new content of tracked files and remove tracked files
-that no longer exist in the working tree from the index also.
-With a prefix argument also stage previously untracked (but not
-ignored) files."
- (interactive "P")
- (when (magit-anything-staged-p)
- (magit-confirm 'stage-all-changes))
- (magit-with-toplevel
- (magit-stage-1 (if all "--all" "-u"))))
-
-(defun magit-stage-1 (arg &optional files)
- (magit-wip-commit-before-change files " before stage")
- (magit-run-git "add" arg (if files (cons "--" files) "."))
- (when magit-auto-revert-mode
- (mapc #'magit-turn-on-auto-revert-mode-if-desired files))
- (magit-wip-commit-after-apply files " after stage"))
-
-(defun magit-stage-untracked (&optional intent)
- (let* ((section (magit-current-section))
- (files (pcase (magit-diff-scope)
- (`file (list (oref section value)))
- (`files (magit-region-values nil t))
- (`list (magit-untracked-files))))
- plain repos)
- (dolist (file files)
- (if (and (not (file-symlink-p file))
- (magit-git-repo-p file t))
- (push file repos)
- (push file plain)))
- (magit-wip-commit-before-change files " before stage")
- (when plain
- (magit-run-git "add" (and intent "--intent-to-add")
- "--" plain)
- (when magit-auto-revert-mode
- (mapc #'magit-turn-on-auto-revert-mode-if-desired plain)))
- (dolist (repo repos)
- (save-excursion
- (goto-char (oref (magit-get-section
- `((file . ,repo) (untracked) (status)))
- start))
- (let* ((topdir (magit-toplevel))
- (package
- (and (equal (bound-and-true-p borg-user-emacs-directory)
- topdir)
- (file-name-nondirectory (directory-file-name repo)))))
- (magit-submodule-add
- (let ((default-directory
- (file-name-as-directory (expand-file-name repo))))
- (or (magit-get "remote" (magit-get-some-remote) "url")
- (concat (file-name-as-directory ".") repo)))
- repo
- (magit-submodule-read-name-for-path repo package))
- (when package
- (borg--sort-submodule-sections
- (expand-file-name ".gitmodules" topdir))
- (let ((default-directory borg-user-emacs-directory))
- (borg--maybe-absorb-gitdir package))
- (when (and (y-or-n-p
- (format "Also build and activate `%s' drone?" package))
- (fboundp 'borg-build)
- (fboundp 'borg-activate))
- (borg-build package)
- (borg-activate package))))))
- (magit-wip-commit-after-apply files " after stage")))
-
-;;;; Unstage
-
-(defun magit-unstage ()
- "Remove the change at point from the staging area."
- (interactive)
- (--when-let (magit-apply--get-selection)
- (pcase (list (magit-diff-type)
- (magit-diff-scope)
- (magit-apply--diff-ignores-whitespace-p))
- (`(untracked ,_ ,_) (user-error "Cannot unstage untracked changes"))
- (`(unstaged ,_ ,_) (user-error "Already unstaged"))
- (`(staged region ,_) (magit-apply-region it "--reverse" "--cached"))
- (`(staged hunk ,_) (magit-apply-hunk it "--reverse" "--cached"))
- (`(staged hunks ,_) (magit-apply-hunks it "--reverse" "--cached"))
- (`(staged file t) (magit-apply-diff it "--reverse" "--cached"))
- (`(staged files t) (magit-apply-diffs it "--reverse" "--cached"))
- (`(staged list t) (magit-apply-diffs it "--reverse" "--cached"))
- (`(staged file nil) (magit-unstage-1 (list (oref it value))))
- (`(staged files nil) (magit-unstage-1 (magit-region-values nil t)))
- (`(staged list nil) (magit-unstage-all))
- (`(committed ,_ ,_) (if magit-unstage-committed
- (magit-reverse-in-index)
- (user-error "Cannot unstage committed changes")))
- (`(undefined ,_ ,_) (user-error "Cannot unstage this change")))))
-
-;;;###autoload
-(defun magit-unstage-file (file)
- "Unstage all changes to FILE.
-With a prefix argument or when there is no file at point ask for
-the file to be unstaged. Otherwise unstage the file at point
-without requiring confirmation."
- (interactive
- (let* ((atpoint (magit-section-value-if 'file))
- (current (magit-file-relative-name))
- (choices (magit-staged-files))
- (default (car (member (or atpoint current) choices))))
- (list (if (or current-prefix-arg (not default))
- (magit-completing-read "Unstage file" choices
- nil t nil nil default)
- default))))
- (magit-with-toplevel
- (magit-unstage-1 (list file))))
-
-(defun magit-unstage-1 (files)
- (magit-wip-commit-before-change files " before unstage")
- (if (magit-no-commit-p)
- (magit-run-git "rm" "--cached" "--" files)
- (magit-run-git "reset" "HEAD" "--" files))
- (magit-wip-commit-after-apply files " after unstage"))
-
-;;;###autoload
-(defun magit-unstage-all ()
- "Remove all changes from the staging area."
- (interactive)
- (when (or (magit-anything-unstaged-p)
- (magit-untracked-files))
- (magit-confirm 'unstage-all-changes))
- (magit-wip-commit-before-change nil " before unstage")
- (magit-run-git "reset" "HEAD" "--")
- (magit-wip-commit-after-apply nil " after unstage"))
-
-;;;; Discard
-
-(defun magit-discard ()
- "Remove the change at point."
- (interactive)
- (--when-let (magit-apply--get-selection)
- (pcase (list (magit-diff-type) (magit-diff-scope))
- (`(committed ,_) (user-error "Cannot discard committed changes"))
- (`(undefined ,_) (user-error "Cannot discard this change"))
- (`(,_ region) (magit-discard-region it))
- (`(,_ hunk) (magit-discard-hunk it))
- (`(,_ hunks) (magit-discard-hunks it))
- (`(,_ file) (magit-discard-file it))
- (`(,_ files) (magit-discard-files it))
- (`(,_ list) (magit-discard-files it)))))
-
-(defun magit-discard-region (section)
- (magit-confirm 'discard "Discard region")
- (magit-discard-apply section 'magit-apply-region))
-
-(defun magit-discard-hunk (section)
- (magit-confirm 'discard "Discard hunk")
- (magit-discard-apply section 'magit-apply-hunk))
-
-(defun magit-discard-apply (section apply)
- (if (eq (magit-diff-type section) 'unstaged)
- (funcall apply section "--reverse")
- (if (magit-anything-unstaged-p
- nil (if (magit-file-section-p section)
- (oref section value)
- (magit-section-parent-value section)))
- (progn (let ((inhibit-magit-refresh t))
- (funcall apply section "--reverse" "--cached")
- (funcall apply section "--reverse" "--reject"))
- (magit-refresh))
- (funcall apply section "--reverse" "--index"))))
-
-(defun magit-discard-hunks (sections)
- (magit-confirm 'discard (format "Discard %s hunks from %s"
- (length sections)
- (magit-section-parent-value (car sections))))
- (magit-discard-apply-n sections 'magit-apply-hunks))
-
-(defun magit-discard-apply-n (sections apply)
- (let ((section (car sections)))
- (if (eq (magit-diff-type section) 'unstaged)
- (funcall apply sections "--reverse")
- (if (magit-anything-unstaged-p
- nil (if (magit-file-section-p section)
- (oref section value)
- (magit-section-parent-value section)))
- (progn (let ((inhibit-magit-refresh t))
- (funcall apply sections "--reverse" "--cached")
- (funcall apply sections "--reverse" "--reject"))
- (magit-refresh))
- (funcall apply sections "--reverse" "--index")))))
-
-(defun magit-discard-file (section)
- (magit-discard-files (list section)))
-
-(defun magit-discard-files (sections)
- (let ((auto-revert-verbose nil)
- (type (magit-diff-type (car sections)))
- (status (magit-file-status))
- files delete resurrect rename discard discard-new resolve)
- (dolist (section sections)
- (let ((file (oref section value)))
- (push file files)
- (pcase (cons (pcase type
- (`staged ?X)
- (`unstaged ?Y)
- (`untracked ?Z))
- (cddr (assoc file status)))
- (`(?Z) (dolist (f (magit-untracked-files nil file))
- (push f delete)))
- ((or `(?Z ?? ??) `(?Z ?! ?!)) (push file delete))
- ((or `(?Z ?D ? ) `(,_ ?D ?D)) (push file delete))
- ((or `(,_ ?U ,_) `(,_ ,_ ?U)) (push file resolve))
- (`(,_ ?A ?A) (push file resolve))
- (`(?X ?M ,(or ? ?M ?D)) (push section discard))
- (`(?Y ,_ ?M ) (push section discard))
- (`(?X ?A ?M ) (push file discard-new))
- (`(?X ?C ?M ) (push file discard-new))
- (`(?X ?A ,(or ? ?D)) (push file delete))
- (`(?X ?C ,(or ? ?D)) (push file delete))
- (`(?X ?D ,(or ? ?M )) (push file resurrect))
- (`(?Y ,_ ?D ) (push file resurrect))
- (`(?X ?R ,(or ? ?M ?D)) (push file rename)))))
- (unwind-protect
- (let ((inhibit-magit-refresh t))
- (magit-wip-commit-before-change files " before discard")
- (when resolve
- (magit-discard-files--resolve (nreverse resolve)))
- (when resurrect
- (magit-discard-files--resurrect (nreverse resurrect)))
- (when delete
- (magit-discard-files--delete (nreverse delete) status))
- (when rename
- (magit-discard-files--rename (nreverse rename) status))
- (when (or discard discard-new)
- (magit-discard-files--discard (nreverse discard)
- (nreverse discard-new)))
- (magit-wip-commit-after-apply files " after discard"))
- (magit-refresh))))
-
-(defun magit-discard-files--resolve (files)
- (if-let ((arg (and (cdr files)
- (magit-read-char-case
- (format "For these %i files\n%s\ncheckout:\n"
- (length files)
- (mapconcat (lambda (file)
- (concat " " file))
- files "\n"))
- t
- (?o "[o]ur stage" "--ours")
- (?t "[t]heir stage" "--theirs")
- (?c "[c]onflict" "--merge")
- (?i "decide [i]ndividually" nil)))))
- (dolist (file files)
- (magit-checkout-stage file arg))
- (dolist (file files)
- (magit-checkout-stage file (magit-checkout-read-stage file)))))
-
-(defun magit-discard-files--resurrect (files)
- (magit-confirm-files 'resurrect files)
- (if (eq (magit-diff-type) 'staged)
- (magit-call-git "reset" "--" files)
- (magit-call-git "checkout" "--" files)))
-
-(defun magit-discard-files--delete (files status)
- (magit-confirm-files (if magit-delete-by-moving-to-trash 'trash 'delete)
- files)
- (let ((delete-by-moving-to-trash magit-delete-by-moving-to-trash))
- (dolist (file files)
- (if (memq (magit-diff-type) '(unstaged untracked))
- (progn (dired-delete-file file dired-recursive-deletes
- magit-delete-by-moving-to-trash)
- (dired-clean-up-after-deletion file))
- (pcase (nth 3 (assoc file status))
- (? (delete-file file t)
- (magit-call-git "rm" "--cached" "--" file))
- (?M (let ((temp (magit-git-string "checkout-index" "--temp" file)))
- (string-match
- (format "\\(.+?\\)\t%s" (regexp-quote file)) temp)
- (rename-file (match-string 1 temp)
- (setq temp (concat file ".~{index}~")))
- (delete-file temp t))
- (magit-call-git "rm" "--cached" "--force" "--" file))
- (?D (magit-call-git "checkout" "--" file)
- (delete-file file t)
- (magit-call-git "rm" "--cached" "--force" "--" file)))))))
-
-(defun magit-discard-files--rename (files status)
- (magit-confirm 'rename "Undo rename %s" "Undo %i renames" nil
- (mapcar (lambda (file)
- (setq file (assoc file status))
- (format "%s -> %s" (cadr file) (car file)))
- files))
- (dolist (file files)
- (let ((orig (cadr (assoc file status))))
- (if (file-exists-p file)
- (progn
- (--when-let (file-name-directory orig)
- (make-directory it t))
- (magit-call-git "mv" file orig))
- (magit-call-git "rm" "--cached" "--" file)
- (magit-call-git "reset" "--" orig)))))
-
-(defun magit-discard-files--discard (sections new-files)
- (let ((files (--map (oref it value) sections)))
- (magit-confirm-files 'discard (append files new-files)
- (format "Discard %s changes in" (magit-diff-type)))
- (if (eq (magit-diff-type (car sections)) 'unstaged)
- (magit-call-git "checkout" "--" files)
- (when new-files
- (magit-call-git "add" "--" new-files)
- (magit-call-git "reset" "--" new-files))
- (let ((binaries (magit-binary-files "--cached")))
- (when binaries
- (setq sections
- (--remove (member (oref it value) binaries)
- sections)))
- (cond ((= (length sections) 1)
- (magit-discard-apply (car sections) 'magit-apply-diff))
- (sections
- (magit-discard-apply-n sections 'magit-apply-diffs)))
- (when binaries
- (let ((modified (magit-unstaged-files t)))
- (setq binaries (--separate (member it modified) binaries)))
- (when (cadr binaries)
- (magit-call-git "reset" "--" (cadr binaries)))
- (when (car binaries)
- (user-error
- (concat
- "Cannot discard staged changes to binary files, "
- "which also have unstaged changes. Unstage instead."))))))))
-
-;;;; Reverse
-
-(defun magit-reverse (&rest args)
- "Reverse the change at point in the working tree.
-With a prefix argument fallback to a 3-way merge. Doing
-so causes the change to be applied to the index as well."
- (interactive (and current-prefix-arg (list "--3way")))
- (--when-let (magit-apply--get-selection)
- (pcase (list (magit-diff-type) (magit-diff-scope))
- (`(untracked ,_) (user-error "Cannot reverse untracked changes"))
- (`(unstaged ,_) (user-error "Cannot reverse unstaged changes"))
- (`(,_ region) (magit-reverse-region it args))
- (`(,_ hunk) (magit-reverse-hunk it args))
- (`(,_ hunks) (magit-reverse-hunks it args))
- (`(,_ file) (magit-reverse-file it args))
- (`(,_ files) (magit-reverse-files it args))
- (`(,_ list) (magit-reverse-files it args)))))
-
-(defun magit-reverse-region (section args)
- (magit-confirm 'reverse "Reverse region")
- (magit-reverse-apply section 'magit-apply-region args))
-
-(defun magit-reverse-hunk (section args)
- (magit-confirm 'reverse "Reverse hunk")
- (magit-reverse-apply section 'magit-apply-hunk args))
-
-(defun magit-reverse-hunks (sections args)
- (magit-confirm 'reverse
- (format "Reverse %s hunks from %s"
- (length sections)
- (magit-section-parent-value (car sections))))
- (magit-reverse-apply sections 'magit-apply-hunks args))
-
-(defun magit-reverse-file (section args)
- (magit-reverse-files (list section) args))
-
-(defun magit-reverse-files (sections args)
- (pcase-let ((`(,binaries ,sections)
- (let ((bs (magit-binary-files
- (cond ((derived-mode-p 'magit-revision-mode)
- (let ((rev (car magit-refresh-args)))
- (format "%s^..%s" rev rev)))
- ((derived-mode-p 'magit-diff-mode)
- (car magit-refresh-args))
- (t
- "--cached")))))
- (--separate (member (oref it value) bs)
- sections))))
- (magit-confirm-files 'reverse (--map (oref it value) sections))
- (cond ((= (length sections) 1)
- (magit-reverse-apply (car sections) 'magit-apply-diff args))
- (sections
- (magit-reverse-apply sections 'magit-apply-diffs args)))
- (when binaries
- (user-error "Cannot reverse binary files"))))
-
-(defun magit-reverse-apply (section:s apply args)
- (funcall apply section:s "--reverse" args
- (and (not magit-reverse-atomically)
- (not (member "--3way" args))
- "--reject")))
-
-(defun magit-reverse-in-index (&rest args)
- "Reverse the change at point in the index but not the working tree.
-
-Use this command to extract a change from `HEAD', while leaving
-it in the working tree, so that it can later be committed using
-a separate commit. A typical workflow would be:
-
-0. Optionally make sure that there are no uncommitted changes.
-1. Visit the `HEAD' commit and navigate to the change that should
- not have been included in that commit.
-2. Type \"u\" (`magit-unstage') to reverse it in the index.
- This assumes that `magit-unstage-committed-changes' is non-nil.
-3. Type \"c e\" to extend `HEAD' with the staged changes,
- including those that were already staged before.
-4. Optionally stage the remaining changes using \"s\" or \"S\"
- and then type \"c c\" to create a new commit."
- (interactive)
- (magit-reverse (cons "--cached" args)))
-
-;;; _
-(provide 'magit-apply)
-;;; magit-apply.el ends here
diff --git a/elpa/magit-20181116.1412/magit-apply.elc b/elpa/magit-20181116.1412/magit-apply.elc
deleted file mode 100644
index 274af42..0000000
--- a/elpa/magit-20181116.1412/magit-apply.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-autoloads.el b/elpa/magit-20181116.1412/magit-autoloads.el
deleted file mode 100644
index baea348..0000000
--- a/elpa/magit-20181116.1412/magit-autoloads.el
+++ /dev/null
@@ -1,2695 +0,0 @@
-;;; magit-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "git-rebase" "git-rebase.el" (0 0 0 0))
-;;; Generated autoloads from git-rebase.el
-
-(autoload 'git-rebase-mode "git-rebase" "\
-Major mode for editing of a Git rebase file.
-
-Rebase files are generated when you run 'git rebase -i' or run
-`magit-interactive-rebase'. They describe how Git should perform
-the rebase. See the documentation for git-rebase (e.g., by
-running 'man git-rebase' at the command line) for details.
-
-\(fn)" t nil)
-
-(defconst git-rebase-filename-regexp "/git-rebase-todo\\'")
-
-(add-to-list 'auto-mode-alist (cons git-rebase-filename-regexp 'git-rebase-mode))
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "git-rebase" '("git-rebase-")))
-
-;;;***
-
-;;;### (autoloads nil "magit" "magit.el" (0 0 0 0))
-;;; Generated autoloads from magit.el
- (autoload 'magit-dispatch-popup "magit" nil t)
- (autoload 'magit-run-popup "magit" nil t)
-
-(autoload 'magit-git-command "magit" "\
-Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. \"git \" is
-used as initial input, but can be deleted to run another command.
-
-With a prefix argument COMMAND is run in the top-level directory
-of the current working tree, otherwise in `default-directory'.
-
-\(fn COMMAND)" t nil)
-
-(autoload 'magit-git-command-topdir "magit" "\
-Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. \"git \" is
-used as initial input, but can be deleted to run another command.
-
-COMMAND is run in the top-level directory of the current
-working tree.
-
-\(fn COMMAND)" t nil)
-
-(autoload 'magit-shell-command "magit" "\
-Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. With a
-prefix argument COMMAND is run in the top-level directory of
-the current working tree, otherwise in `default-directory'.
-
-\(fn COMMAND)" t nil)
-
-(autoload 'magit-shell-command-topdir "magit" "\
-Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. COMMAND
-is run in the top-level directory of the current working tree.
-
-\(fn COMMAND)" t nil)
-
-(autoload 'magit-version "magit" "\
-Return the version of Magit currently in use.
-If optional argument PRINT-DEST is non-nil, output
-stream (interactively, the echo area, or the current buffer with
-a prefix argument), also print the used versions of Magit, Git,
-and Emacs to it.
-
-\(fn &optional PRINT-DEST)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-apply" "magit-apply.el" (0 0 0 0))
-;;; Generated autoloads from magit-apply.el
-
-(autoload 'magit-stage-file "magit-apply" "\
-Stage all changes to FILE.
-With a prefix argument or when there is no file at point ask for
-the file to be staged. Otherwise stage the file at point without
-requiring confirmation.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-stage-modified "magit-apply" "\
-Stage all changes to files modified in the worktree.
-Stage all new content of tracked files and remove tracked files
-that no longer exist in the working tree from the index also.
-With a prefix argument also stage previously untracked (but not
-ignored) files.
-
-\(fn &optional ALL)" t nil)
-
-(autoload 'magit-unstage-file "magit-apply" "\
-Unstage all changes to FILE.
-With a prefix argument or when there is no file at point ask for
-the file to be unstaged. Otherwise unstage the file at point
-without requiring confirmation.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-unstage-all "magit-apply" "\
-Remove all changes from the staging area.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-apply" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from magit-autorevert.el
-
-(defvar magit-auto-revert-mode (and (not global-auto-revert-mode) (not noninteractive)) "\
-Non-nil if Magit-Auto-Revert mode is enabled.
-See the `magit-auto-revert-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `magit-auto-revert-mode'.")
-
-(custom-autoload 'magit-auto-revert-mode "magit-autorevert" nil)
-
-(autoload 'magit-auto-revert-mode "magit-autorevert" "\
-Toggle Auto-Revert mode in all buffers.
-With prefix ARG, enable Magit-Auto-Revert mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Auto-Revert mode is enabled in all buffers where
-`magit-turn-on-auto-revert-mode-if-desired' would do it.
-See `auto-revert-mode' for more information on Auto-Revert mode.
-
-\(fn &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-autorevert" '("auto-revert-buffer" "magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (0 0 0 0))
-;;; Generated autoloads from magit-bisect.el
- (autoload 'magit-bisect-popup "magit-bisect" nil t)
-
-(autoload 'magit-bisect-start "magit-bisect" "\
-Start a bisect session.
-
-Bisecting a bug means to find the commit that introduced it.
-This command starts such a bisect session by asking for a know
-good and a bad commit. To move the session forward use the
-other actions from the bisect popup (\\<magit-status-mode-map>\\[magit-bisect-popup]).
-
-\(fn BAD GOOD)" t nil)
-
-(autoload 'magit-bisect-reset "magit-bisect" "\
-After bisecting, cleanup bisection state and return to original `HEAD'.
-
-\(fn)" t nil)
-
-(autoload 'magit-bisect-good "magit-bisect" "\
-While bisecting, mark the current commit as good.
-Use this after you have asserted that the commit does not contain
-the bug in question.
-
-\(fn)" t nil)
-
-(autoload 'magit-bisect-bad "magit-bisect" "\
-While bisecting, mark the current commit as bad.
-Use this after you have asserted that the commit does contain the
-bug in question.
-
-\(fn)" t nil)
-
-(autoload 'magit-bisect-skip "magit-bisect" "\
-While bisecting, skip the current commit.
-Use this if for some reason the current commit is not a good one
-to test. This command lets Git choose a different one.
-
-\(fn)" t nil)
-
-(autoload 'magit-bisect-run "magit-bisect" "\
-Bisect automatically by running commands after each step.
-
-Unlike `git bisect run' this can be used before bisecting has
-begun. In that case it behaves like `git bisect start; git
-bisect run'.
-
-\(fn CMDLINE &optional BAD GOOD)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-bisect" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-blame" "magit-blame.el" (0 0 0 0))
-;;; Generated autoloads from magit-blame.el
-
-(autoload 'magit-blame-echo "magit-blame" "\
-For each line show the revision in which it was added.
-Show the information about the chunk at point in the echo area
-when moving between chunks. Unlike other blaming commands, do
-not turn on `read-only-mode'.
-
-\(fn)" t nil)
-
-(autoload 'magit-blame-addition "magit-blame" "\
-For each line show the revision in which it was added.
-
-\(fn)" t nil)
-
-(autoload 'magit-blame-removal "magit-blame" "\
-For each line show the revision in which it was removed.
-
-\(fn)" t nil)
-
-(autoload 'magit-blame-reverse "magit-blame" "\
-For each line show the last revision in which it still exists.
-
-\(fn)" t nil)
- (autoload 'magit-blame-popup "magit-blame" nil t)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-blame" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-bookmark" "magit-bookmark.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from magit-bookmark.el
-
-(autoload 'magit-bookmark--status-jump "magit-bookmark" "\
-Handle a Magit status BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--status-make-record "magit-bookmark" "\
-Create a Magit status bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--refs-jump "magit-bookmark" "\
-Handle a Magit refs BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--refs-make-record "magit-bookmark" "\
-Create a Magit refs bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--log-jump "magit-bookmark" "\
-Handle a Magit log BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--log-make-record "magit-bookmark" "\
-Create a Magit log bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--reflog-jump "magit-bookmark" "\
-Handle a Magit reflog BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--reflog-make-record "magit-bookmark" "\
-Create a Magit reflog bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--stashes-jump "magit-bookmark" "\
-Handle a Magit stash list BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--stashes-make-record "magit-bookmark" "\
-Create a Magit stash list bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--cherry-jump "magit-bookmark" "\
-Handle a Magit cherry BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--cherry-make-record "magit-bookmark" "\
-Create a Magit cherry bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--diff-jump "magit-bookmark" "\
-Handle a Magit diff BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--diff-make-record "magit-bookmark" "\
-Create a Magit diff bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--revision-jump "magit-bookmark" "\
-Handle a Magit revision BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--revision-make-record "magit-bookmark" "\
-Create a Magit revision bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--stash-jump "magit-bookmark" "\
-Handle a Magit stash BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--stash-make-record "magit-bookmark" "\
-Create a Magit stash bookmark.
-
-\(fn)" nil nil)
-
-(autoload 'magit-bookmark--submodules-jump "magit-bookmark" "\
-Handle a Magit submodule list BOOKMARK.
-
-\(fn BOOKMARK)" nil nil)
-
-(autoload 'magit-bookmark--submodules-make-record "magit-bookmark" "\
-Create a Magit submodule list bookmark.
-
-\(fn)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-bookmark" '("magit-bookmark--")))
-
-;;;***
-
-;;;### (autoloads nil "magit-branch" "magit-branch.el" (0 0 0 0))
-;;; Generated autoloads from magit-branch.el
- (autoload 'magit-branch-popup "magit" nil t)
-
-(autoload 'magit-checkout "magit-branch" "\
-Checkout REVISION, updating the index and the working tree.
-If REVISION is a local branch, then that becomes the current
-branch. If it is something else, then `HEAD' becomes detached.
-Checkout fails if the working tree or the staging area contain
-changes.
-
-\(git checkout REVISION).
-
-\(fn REVISION)" t nil)
-
-(autoload 'magit-branch-create "magit-branch" "\
-Create BRANCH at branch or revision START-POINT.
-
-\(git branch [ARGS] BRANCH START-POINT).
-
-\(fn BRANCH START-POINT &optional ARGS)" t nil)
-
-(autoload 'magit-branch-and-checkout "magit-branch" "\
-Create and checkout BRANCH at branch or revision START-POINT.
-
-\(git checkout [ARGS] -b BRANCH START-POINT).
-
-\(fn BRANCH START-POINT &optional ARGS)" t nil)
-
-(autoload 'magit-branch-or-checkout "magit-branch" "\
-Hybrid between `magit-checkout' and `magit-branch-and-checkout'.
-
-Ask the user for an existing branch or revision. If the user
-input actually can be resolved as a branch or revision, then
-check that out, just like `magit-checkout' would.
-
-Otherwise create and checkout a new branch using the input as
-its name. Before doing so read the starting-point for the new
-branch. This is similar to what `magit-branch-and-checkout'
-does.
-
-\(fn ARG &optional START-POINT)" t nil)
-
-(autoload 'magit-branch-checkout "magit-branch" "\
-Checkout an existing or new local branch.
-
-Read a branch name from the user offering all local branches and
-a subset of remote branches as candidates. Omit remote branches
-for which a local branch by the same name exists from the list
-of candidates. The user can also enter a completely new branch
-name.
-
-- If the user selects an existing local branch, then check that
- out.
-
-- If the user selects a remote branch, then create and checkout
- a new local branch with the same name. Configure the selected
- remote branch as push target.
-
-- If the user enters a new branch name, then create and check
- that out, after also reading the starting-point from the user.
-
-In the latter two cases the upstream is also set. Whether it is
-set to the chosen START-POINT or something else depends on the
-value of `magit-branch-adjust-remote-upstream-alist', just like
-when using `magit-branch-and-checkout'.
-
-\(fn BRANCH &optional START-POINT)" t nil)
-
-(autoload 'magit-branch-orphan "magit-branch" "\
-Create and checkout an orphan BRANCH with contents from revision START-POINT.
-
-\(git checkout --orphan [ARGS] BRANCH START-POINT).
-
-\(fn BRANCH START-POINT &optional ARGS)" t nil)
-
-(autoload 'magit-branch-pull-request "magit-branch" "\
-Create and configure a new branch from a pull-request.
-Please see the manual for more information.
-
-\(fn PR)" t nil)
-
-(autoload 'magit-branch-spinoff "magit-branch" "\
-Create new branch from the unpushed commits.
-
-Create and checkout a new branch starting at and tracking the
-current branch. That branch in turn is reset to the last commit
-it shares with its upstream. If the current branch has no
-upstream or no unpushed commits, then the new branch is created
-anyway and the previously current branch is not touched.
-
-This is useful to create a feature branch after work has already
-began on the old branch (likely but not necessarily \"master\").
-
-If the current branch is a member of the value of option
-`magit-branch-prefer-remote-upstream' (which see), then the
-current branch will be used as the starting point as usual, but
-the upstream of the starting-point may be used as the upstream
-of the new branch, instead of the starting-point itself.
-
-If optional FROM is non-nil, then the source branch is reset
-to `FROM~', instead of to the last commit it shares with its
-upstream. Interactively, FROM is only ever non-nil, if the
-region selects some commits, and among those commits, FROM is
-the commit that is the fewest commits ahead of the source
-branch.
-
-The commit at the other end of the selection actually does not
-matter, all commits between FROM and `HEAD' are moved to the new
-branch. If FROM is not reachable from `HEAD' or is reachable
-from the source branch's upstream, then an error is raised.
-
-\(fn BRANCH &optional FROM &rest ARGS)" t nil)
-
-(autoload 'magit-branch-reset "magit-branch" "\
-Reset a branch to the tip of another branch or any other commit.
-
-When the branch being reset is the current branch, then do a
-hard reset. If there are any uncommitted changes, then the user
-has to confirm the reset because those changes would be lost.
-
-This is useful when you have started work on a feature branch but
-realize it's all crap and want to start over.
-
-When resetting to another branch and a prefix argument is used,
-then also set the target branch as the upstream of the branch
-that is being reset.
-
-\(fn BRANCH TO &optional ARGS SET-UPSTREAM)" t nil)
-
-(autoload 'magit-branch-delete "magit-branch" "\
-Delete one or multiple branches.
-If the region marks multiple branches, then offer to delete
-those, otherwise prompt for a single branch to be deleted,
-defaulting to the branch at point.
-
-\(fn BRANCHES &optional FORCE)" t nil)
-
-(autoload 'magit-branch-rename "magit-branch" "\
-Rename the branch named OLD to NEW.
-
-With a prefix argument FORCE, rename even if a branch named NEW
-already exists.
-
-If `branch.OLD.pushRemote' is set, then unset it. Depending on
-the value of `magit-branch-rename-push-target' (which see) maybe
-set `branch.NEW.pushRemote' and maybe rename the push-target on
-the remote.
-
-\(fn OLD NEW &optional FORCE)" t nil)
-
-(autoload 'magit-branch-shelve "magit-branch" "\
-Shelve a BRANCH.
-Rename \"refs/heads/BRANCH\" to \"refs/shelved/BRANCH\",
-and also rename the respective reflog file.
-
-\(fn BRANCH)" t nil)
-
-(autoload 'magit-branch-unshelve "magit-branch" "\
-Unshelve a BRANCH
-Rename \"refs/shelved/BRANCH\" to \"refs/heads/BRANCH\",
-and also rename the respective reflog file.
-
-\(fn BRANCH)" t nil)
-
-(autoload 'magit-branch-config-popup "magit-branch" "\
-Popup console for setting branch variables.
-
-\(fn BRANCH)" t nil)
-
-(autoload 'magit-edit-branch*description "magit-branch" "\
-Edit the description of the current branch.
-With a prefix argument edit the description of another branch.
-
-The description for the branch named NAME is stored in the Git
-variable `branch.<name>.description'.
-
-\(fn BRANCH)" t nil)
-
-(autoload 'magit-set-branch*merge/remote "magit-branch" "\
-Set or unset the upstream of the current branch.
-With a prefix argument do so for another branch.
-
-When the branch in question already has an upstream then simply
-unsets it. Invoke this command again to set another upstream.
-
-Together the Git variables `branch.<name>.remote' and
-`branch.<name>.merge' define the upstream branch of the local
-branch named NAME. The value of `branch.<name>.remote' is the
-name of the upstream remote. The value of `branch.<name>.merge'
-is the full reference of the upstream branch, on the remote.
-
-Non-interactively, when UPSTREAM is non-nil, then always set it
-as the new upstream, regardless of whether another upstream was
-already set. When nil, then always unset.
-
-\(fn BRANCH UPSTREAM)" t nil)
-
-(autoload 'magit-cycle-branch*rebase "magit-branch" "\
-Cycle the value of `branch.<name>.rebase' for the current branch.
-With a prefix argument cycle the value for another branch.
-
-The Git variables `branch.<name>.rebase' controls whether pulling
-into the branch named NAME is done by rebasing that branch onto
-the fetched branch or by merging that branch.
-
-When `true' then pulling is done by rebasing.
-When `false' then pulling is done by merging.
-
-When that variable is undefined then the value of `pull.rebase'
-is used instead. It defaults to `false'.
-
-\(fn BRANCH)" t nil)
-
-(autoload 'magit-cycle-branch*pushRemote "magit-branch" "\
-Cycle the value of `branch.<name>.pushRemote' for the current branch.
-With a prefix argument cycle the value for another branch.
-
-The Git variable `branch.<name>.pushRemote' specifies the remote
-that the branch named NAME is usually pushed to. The value has
-to be the name of an existing remote.
-
-If that variable is undefined, then the value of the Git variable
-`remote.pushDefault' is used instead, provided that it is defined,
-which by default it is not.
-
-\(fn BRANCH)" t nil)
-
-(autoload 'magit-cycle-pull\.rebase "magit-branch" "\
-Cycle the repository-local value of `pull.rebase'.
-
-The Git variable `pull.rebase' specifies whether pulling is done
-by rebasing or by merging. It can be overwritten using the Git
-variable `branch.<name>.rebase'.
-
-When `true' then pulling is done by rebasing.
-When `false' (the default) then pulling is done by merging.
-
-\(fn)" t nil)
-
-(autoload 'magit-cycle-remote\.pushDefault "magit-branch" "\
-Cycle the repository-local value of `remote.pushDefault'.
-
-The Git variable `remote.pushDefault' specifies the remote that
-local branches are usually pushed to. It can be overwritten
-using the Git variable `branch.<name>.pushRemote'.
-
-\(fn)" t nil)
-
-(autoload 'magit-cycle-branch*autoSetupMerge "magit-branch" "\
-Cycle the repository-local value of `branch.autoSetupMerge'.
-
-The Git variable `branch.autoSetupMerge' under what circumstances
-creating a branch (named NAME) should result in the variables
-`branch.<name>.merge' and `branch.<name>.remote' being set
-according to the starting point used to create the branch. If
-the starting point isn't a branch, then these variables are never
-set.
-
-When `always' then the variables are set regardless of whether
-the starting point is a local or a remote branch.
-
-When `true' (the default) then the variable are set when the
-starting point is a remote branch, but not when it is a local
-branch.
-
-When `false' then the variables are never set.
-
-\(fn)" t nil)
-
-(autoload 'magit-cycle-branch*autoSetupRebase "magit-branch" "\
-Cycle the repository-local value of `branch.autoSetupRebase'.
-
-The Git variable `branch.autoSetupRebase' specifies whether
-creating a branch (named NAME) should result in the variable
-`branch.<name>.rebase' being set to `true'.
-
-When `always' then the variable is set regardless of whether the
-starting point is a local or a remote branch.
-
-When `local' then the variable are set when the starting point
-is a local branch, but not when it is a remote branch.
-
-When `remote' then the variable are set when the starting point
-is a remote branch, but not when it is a local branch.
-
-When `never' (the default) then the variable is never set.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-branch" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-clone" "magit-clone.el" (0 0 0 0))
-;;; Generated autoloads from magit-clone.el
-
-(autoload 'magit-clone "magit-clone" "\
-Clone the REPOSITORY to DIRECTORY.
-Then show the status buffer for the new repository.
-
-\(fn REPOSITORY DIRECTORY)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-clone" '("magit-clone-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-collab" "magit-collab.el" (0 0 0 0))
-;;; Generated autoloads from magit-collab.el
-
-(autoload 'magit-browse-pull-request "magit-collab" "\
-Visit pull-request PR using `browse-url'.
-
-Currently this only supports Github, but that restriction will
-be lifted eventually to support other Git forges.
-
-\(fn PR)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-collab" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-commit" "magit-commit.el" (0 0 0 0))
-;;; Generated autoloads from magit-commit.el
-
-(autoload 'magit-commit-create "magit-commit" "\
-Create a new commit on `HEAD'.
-With a prefix argument, amend to the commit at `HEAD' instead.
-
-\(git commit [--amend] ARGS)
-
-\(fn &optional ARGS)" t nil)
-
-(autoload 'magit-commit-amend "magit-commit" "\
-Amend the last commit.
-
-\(git commit --amend ARGS)
-
-\(fn &optional ARGS)" t nil)
-
-(autoload 'magit-commit-extend "magit-commit" "\
-Amend the last commit, without editing the message.
-
-With a prefix argument keep the committer date, otherwise change
-it. The option `magit-commit-extend-override-date' can be used
-to inverse the meaning of the prefix argument.
-\(git commit
---amend --no-edit)
-
-\(fn &optional ARGS OVERRIDE-DATE)" t nil)
-
-(autoload 'magit-commit-reword "magit-commit" "\
-Reword the last commit, ignoring staged changes.
-
-With a prefix argument keep the committer date, otherwise change
-it. The option `magit-commit-reword-override-date' can be used
-to inverse the meaning of the prefix argument.
-
-Non-interactively respect the optional OVERRIDE-DATE argument
-and ignore the option.
-
-\(git commit --amend --only)
-
-\(fn &optional ARGS OVERRIDE-DATE)" t nil)
-
-(autoload 'magit-commit-fixup "magit-commit" "\
-Create a fixup commit.
-
-With a prefix argument the target COMMIT has to be confirmed.
-Otherwise the commit at point may be used without confirmation
-depending on the value of option `magit-commit-squash-confirm'.
-
-\(fn &optional COMMIT ARGS)" t nil)
-
-(autoload 'magit-commit-squash "magit-commit" "\
-Create a squash commit, without editing the squash message.
-
-With a prefix argument the target COMMIT has to be confirmed.
-Otherwise the commit at point may be used without confirmation
-depending on the value of option `magit-commit-squash-confirm'.
-
-\(fn &optional COMMIT ARGS)" t nil)
-
-(autoload 'magit-commit-augment "magit-commit" "\
-Create a squash commit, editing the squash message.
-
-With a prefix argument the target COMMIT has to be confirmed.
-Otherwise the commit at point may be used without confirmation
-depending on the value of option `magit-commit-squash-confirm'.
-
-\(fn &optional COMMIT ARGS)" t nil)
-
-(autoload 'magit-commit-instant-fixup "magit-commit" "\
-Create a fixup commit targeting COMMIT and instantly rebase.
-
-\(fn &optional COMMIT ARGS)" t nil)
-
-(autoload 'magit-commit-instant-squash "magit-commit" "\
-Create a squash commit targeting COMMIT and instantly rebase.
-
-\(fn &optional COMMIT ARGS)" t nil)
-
-(autoload 'magit-commit-reshelve "magit-commit" "\
-Change the committer date and possibly the author date of `HEAD'.
-
-If you are the author of `HEAD', then both dates are changed,
-otherwise only the committer date. The current time is used
-as the initial minibuffer input and the original author (if
-that is you) or committer date is available as the previous
-history element.
-
-\(fn DATE)" t nil)
- (autoload 'magit-commit-absorb-popup "magit-commit" nil t)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-commit" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-diff" "magit-diff.el" (0 0 0 0))
-;;; Generated autoloads from magit-diff.el
-
-(autoload 'magit-diff-popup "magit-diff" "\
-Popup console for diff commands.
-
-\(fn ARG)" t nil)
-
-(autoload 'magit-diff-buffer-file-popup "magit-diff" "\
-Popup console for diff commands.
-
-This is a variant of `magit-diff-popup' which shows the same popup
-but which limits the diff to the file being visited in the current
-buffer.
-
-\(fn)" t nil)
-
-(autoload 'magit-diff-dwim "magit-diff" "\
-Show changes for the thing at point.
-
-\(fn &optional ARGS FILES)" t nil)
-
-(autoload 'magit-diff-range "magit-diff" "\
-Show differences between two commits.
-
-REV-OR-RANGE should be a range or a single revision. If it is a
-revision, then show changes in the working tree relative to that
-revision. If it is a range, but one side is omitted, then show
-changes relative to `HEAD'.
-
-If the region is active, use the revisions on the first and last
-line of the region as the two sides of the range. With a prefix
-argument, instead of diffing the revisions, choose a revision to
-view changes along, starting at the common ancestor of both
-revisions (i.e., use a \"...\" range).
-
-\(fn REV-OR-RANGE &optional ARGS FILES)" t nil)
-
-(autoload 'magit-diff-working-tree "magit-diff" "\
-Show changes between the current working tree and the `HEAD' commit.
-With a prefix argument show changes between the working tree and
-a commit read from the minibuffer.
-
-\(fn &optional REV ARGS FILES)" t nil)
-
-(autoload 'magit-diff-staged "magit-diff" "\
-Show changes between the index and the `HEAD' commit.
-With a prefix argument show changes between the index and
-a commit read from the minibuffer.
-
-\(fn &optional REV ARGS FILES)" t nil)
-
-(autoload 'magit-diff-unstaged "magit-diff" "\
-Show changes between the working tree and the index.
-
-\(fn &optional ARGS FILES)" t nil)
-
-(autoload 'magit-diff-unmerged "magit-diff" "\
-Show changes that are being merged.
-
-\(fn &optional ARGS FILES)" t nil)
-
-(autoload 'magit-diff-while-committing "magit-diff" "\
-While committing, show the changes that are about to be committed.
-While amending, invoking the command again toggles between
-showing just the new changes or all the changes that will
-be committed.
-
-\(fn &optional ARGS)" t nil)
-
-(autoload 'magit-diff-buffer-file "magit-diff" "\
-Show diff for the blob or file visited in the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'magit-diff-paths "magit-diff" "\
-Show changes between any two files on disk.
-
-\(fn A B)" t nil)
-
-(autoload 'magit-show-commit "magit-diff" "\
-Visit the revision at point in another buffer.
-If there is no revision at point or with a prefix argument prompt
-for a revision.
-
-\(fn REV &optional ARGS FILES MODULE)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-diff" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (0 0 0 0))
-;;; Generated autoloads from magit-ediff.el
- (autoload 'magit-ediff-popup "magit-ediff" nil t)
-
-(autoload 'magit-ediff-resolve "magit-ediff" "\
-Resolve outstanding conflicts in FILE using Ediff.
-FILE has to be relative to the top directory of the repository.
-
-In the rare event that you want to manually resolve all
-conflicts, including those already resolved by Git, use
-`ediff-merge-revisions-with-ancestor'.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-ediff-stage "magit-ediff" "\
-Stage and unstage changes to FILE using Ediff.
-FILE has to be relative to the top directory of the repository.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-ediff-compare "magit-ediff" "\
-Compare REVA:FILEA with REVB:FILEB using Ediff.
-
-FILEA and FILEB have to be relative to the top directory of the
-repository. If REVA or REVB is nil, then this stands for the
-working tree state.
-
-If the region is active, use the revisions on the first and last
-line of the region. With a prefix argument, instead of diffing
-the revisions, choose a revision to view changes along, starting
-at the common ancestor of both revisions (i.e., use a \"...\"
-range).
-
-\(fn REVA REVB FILEA FILEB)" t nil)
-
-(autoload 'magit-ediff-dwim "magit-ediff" "\
-Compare, stage, or resolve using Ediff.
-This command tries to guess what file, and what commit or range
-the user wants to compare, stage, or resolve using Ediff. It
-might only be able to guess either the file, or range or commit,
-in which case the user is asked about the other. It might not
-always guess right, in which case the appropriate `magit-ediff-*'
-command has to be used explicitly. If it cannot read the user's
-mind at all, then it asks the user for a command to run.
-
-\(fn)" t nil)
-
-(autoload 'magit-ediff-show-staged "magit-ediff" "\
-Show staged changes using Ediff.
-
-This only allows looking at the changes; to stage, unstage,
-and discard changes using Ediff, use `magit-ediff-stage'.
-
-FILE must be relative to the top directory of the repository.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-ediff-show-unstaged "magit-ediff" "\
-Show unstaged changes using Ediff.
-
-This only allows looking at the changes; to stage, unstage,
-and discard changes using Ediff, use `magit-ediff-stage'.
-
-FILE must be relative to the top directory of the repository.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-ediff-show-working-tree "magit-ediff" "\
-Show changes between `HEAD' and working tree using Ediff.
-FILE must be relative to the top directory of the repository.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-ediff-show-commit "magit-ediff" "\
-Show changes introduced by COMMIT using Ediff.
-
-\(fn COMMIT)" t nil)
-
-(autoload 'magit-ediff-show-stash "magit-ediff" "\
-Show changes introduced by STASH using Ediff.
-`magit-ediff-show-stash-with-index' controls whether a
-three-buffer Ediff is used in order to distinguish changes in the
-stash that were staged.
-
-\(fn STASH)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-ediff" '("magit-ediff-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-extras" "magit-extras.el" (0 0 0 0))
-;;; Generated autoloads from magit-extras.el
-
-(autoload 'magit-run-git-gui "magit-extras" "\
-Run `git gui' for the current git repository.
-
-\(fn)" t nil)
-
-(autoload 'magit-run-git-gui-blame "magit-extras" "\
-Run `git gui blame' on the given FILENAME and COMMIT.
-Interactively run it for the current file and the `HEAD', with a
-prefix or when the current file cannot be determined let the user
-choose. When the current buffer is visiting FILENAME instruct
-blame to center around the line point is on.
-
-\(fn COMMIT FILENAME &optional LINENUM)" t nil)
-
-(autoload 'magit-run-gitk "magit-extras" "\
-Run `gitk' in the current repository.
-
-\(fn)" t nil)
-
-(autoload 'magit-run-gitk-branches "magit-extras" "\
-Run `gitk --branches' in the current repository.
-
-\(fn)" t nil)
-
-(autoload 'magit-run-gitk-all "magit-extras" "\
-Run `gitk --all' in the current repository.
-
-\(fn)" t nil)
-
-(autoload 'ido-enter-magit-status "magit-extras" "\
-Drop into `magit-status' from file switching.
-
-This command does not work in Emacs 26. It does work in Emacs 25
-and Emacs 27. See https://github.com/magit/magit/issues/3634 and
-https://debbugs.gnu.org/cgi/bugreport.cgi?bug=31707.
-
-To make this command available use something like:
-
- (add-hook \\='ido-setup-hook
- (lambda ()
- (define-key ido-completion-map
- (kbd \"C-x g\") \\='ido-enter-magit-status)))
-
-Starting with Emacs 25.1 the Ido keymaps are defined just once
-instead of every time Ido is invoked, so now you can modify it
-like pretty much every other keymap:
-
- (define-key ido-common-completion-map
- (kbd \"C-x g\") \\='ido-enter-magit-status)
-
-\(fn)" t nil)
-
-(autoload 'magit-dired-jump "magit-extras" "\
-Visit file at point using Dired.
-With a prefix argument, visit in another window. If there
-is no file at point, then instead visit `default-directory'.
-
-\(fn &optional OTHER-WINDOW)" t nil)
-
-(autoload 'magit-dired-log "magit-extras" "\
-Show log for all marked files, or the current file.
-
-\(fn &optional FOLLOW)" t nil)
-
-(autoload 'magit-do-async-shell-command "magit-extras" "\
-Open FILE with `dired-do-async-shell-command'.
-Interactively, open the file at point.
-
-\(fn FILE)" t nil)
-
-(autoload 'magit-previous-line "magit-extras" "\
-Like `previous-line' but with Magit-specific shift-selection.
-
-Magit's selection mechanism is based on the region but selects an
-area that is larger than the region. This causes `previous-line'
-when invoked while holding the shift key to move up one line and
-thereby select two lines. When invoked inside a hunk body this
-command does not move point on the first invocation and thereby
-it only selects a single line. Which inconsistency you prefer
-is a matter of preference.
-
-\(fn &optional ARG TRY-VSCROLL)" t nil)
-
-(function-put 'magit-previous-line 'interactive-only '"use `forward-line' with negative argument instead.")
-
-(autoload 'magit-next-line "magit-extras" "\
-Like `next-line' but with Magit-specific shift-selection.
-
-Magit's selection mechanism is based on the region but selects
-an area that is larger than the region. This causes `next-line'
-when invoked while holding the shift key to move down one line
-and thereby select two lines. When invoked inside a hunk body
-this command does not move point on the first invocation and
-thereby it only selects a single line. Which inconsistency you
-prefer is a matter of preference.
-
-\(fn &optional ARG TRY-VSCROLL)" t nil)
-
-(function-put 'magit-next-line 'interactive-only 'forward-line)
-
-(autoload 'magit-clean "magit-extras" "\
-Remove untracked files from the working tree.
-With a prefix argument also remove ignored files,
-with two prefix arguments remove ignored files only.
-
-\(git clean -f -d [-x|-X])
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'magit-add-change-log-entry "magit-extras" "\
-Find change log file and add date entry and item for current change.
-This differs from `add-change-log-entry' (which see) in that
-it acts on the current hunk in a Magit buffer instead of on
-a position in a file-visiting buffer.
-
-\(fn &optional WHOAMI FILE-NAME OTHER-WINDOW)" t nil)
-
-(autoload 'magit-add-change-log-entry-other-window "magit-extras" "\
-Find change log file in other window and add entry and item.
-This differs from `add-change-log-entry-other-window' (which see)
-in that it acts on the current hunk in a Magit buffer instead of
-on a position in a file-visiting buffer.
-
-\(fn &optional WHOAMI FILE-NAME)" t nil)
-
-(autoload 'magit-edit-line-commit "magit-extras" "\
-Edit the commit that added the current line.
-
-With a prefix argument edit the commit that removes the line,
-if any. The commit is determined using `git blame' and made
-editable using `git rebase --interactive' if it is reachable
-from `HEAD', or by checking out the commit (or a branch that
-points at it) otherwise.
-
-\(fn &optional TYPE)" t nil)
-
-(autoload 'magit-reshelve-since "magit-extras" "\
-Change the author and committer dates of the commits since REV.
-
-Ask the user for the first reachable commit whose dates should
-be changed. The read the new date for that commit. The initial
-minibuffer input and the previous history element offer good
-values. The next commit will be created one minute later and so
-on.
-
-This command is only intended for interactive use and should only
-be used on highly rearranged and unpublished history.
-
-\(fn REV)" t nil)
-
-(autoload 'magit-pop-revision-stack "magit-extras" "\
-Insert a representation of a revision into the current buffer.
-
-Pop a revision from the `magit-revision-stack' and insert it into
-the current buffer according to `magit-pop-revision-stack-format'.
-Revisions can be put on the stack using `magit-copy-section-value'
-and `magit-copy-buffer-revision'.
-
-If the stack is empty or with a prefix argument, instead read a
-revision in the minibuffer. By using the minibuffer history this
-allows selecting an item which was popped earlier or to insert an
-arbitrary reference or revision without first pushing it onto the
-stack.
-
-When reading the revision from the minibuffer, then it might not
-be possible to guess the correct repository. When this command
-is called inside a repository (e.g. while composing a commit
-message), then that repository is used. Otherwise (e.g. while
-composing an email) then the repository recorded for the top
-element of the stack is used (even though we insert another
-revision). If not called inside a repository and with an empty
-stack, or with two prefix arguments, then read the repository in
-the minibuffer too.
-
-\(fn REV TOPLEVEL)" t nil)
-
-(autoload 'magit-copy-section-value "magit-extras" "\
-Save the value of the current section for later use.
-
-Save the section value to the `kill-ring', and, provided that
-the current section is a commit, branch, or tag section, push
-the (referenced) revision to the `magit-revision-stack' for use
-with `magit-pop-revision-stack'.
-
-When the current section is a branch or a tag, and a prefix
-argument is used, then save the revision at its tip to the
-`kill-ring' instead of the reference name.
-
-When the region is active, then save that to the `kill-ring',
-like `kill-ring-save' would, instead of behaving as described
-above.
-
-\(fn)" t nil)
-
-(autoload 'magit-copy-buffer-revision "magit-extras" "\
-Save the revision of the current buffer for later use.
-
-Save the revision shown in the current buffer to the `kill-ring'
-and push it to the `magit-revision-stack'.
-
-This command is mainly intended for use in `magit-revision-mode'
-buffers, the only buffers where it is always unambiguous exactly
-which revision should be saved.
-
-Most other Magit buffers usually show more than one revision, in
-some way or another, so this command has to select one of them,
-and that choice might not always be the one you think would have
-been the best pick.
-
-In such buffers it is often more useful to save the value of
-the current section instead, using `magit-copy-section-value'.
-
-When the region is active, then save that to the `kill-ring',
-like `kill-ring-save' would, instead of behaving as described
-above.
-
-\(fn)" t nil)
-
-(autoload 'magit-abort-dwim "magit-extras" "\
-Abort current operation.
-Depending on the context, this will abort a merge, a rebase, a
-patch application, a cherry-pick, a revert, or a bisect.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-extras" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-fetch" "magit-fetch.el" (0 0 0 0))
-;;; Generated autoloads from magit-fetch.el
- (autoload 'magit-fetch-popup "magit-fetch" nil t)
-
-(autoload 'magit-fetch-from-pushremote "magit-fetch" "\
-Fetch from the push-remote of the current branch.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-fetch-from-upstream "magit-fetch" "\
-Fetch from the upstream repository of the current branch.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-fetch-other "magit-fetch" "\
-Fetch from another repository.
-
-\(fn REMOTE ARGS)" t nil)
-
-(autoload 'magit-fetch-branch "magit-fetch" "\
-Fetch a BRANCH from a REMOTE.
-
-\(fn REMOTE BRANCH ARGS)" t nil)
-
-(autoload 'magit-fetch-refspec "magit-fetch" "\
-Fetch a REFSPEC from a REMOTE.
-
-\(fn REMOTE REFSPEC ARGS)" t nil)
-
-(autoload 'magit-fetch-all "magit-fetch" "\
-Fetch from all remotes.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-fetch-all-prune "magit-fetch" "\
-Fetch from all remotes, and prune.
-Prune remote tracking branches for branches that have been
-removed on the respective remote.
-
-\(fn)" t nil)
-
-(autoload 'magit-fetch-all-no-prune "magit-fetch" "\
-Fetch from all remotes.
-
-\(fn)" t nil)
-
-(autoload 'magit-fetch-modules "magit-fetch" "\
-Fetch all submodules.
-
-Option `magit-fetch-modules-jobs' controls how many submodules
-are being fetched in parallel. Also fetch the super-repository,
-because `git-fetch' does not support not doing that. With a
-prefix argument fetch all remotes.
-
-\(fn &optional ALL)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-fetch" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-files" "magit-files.el" (0 0 0 0))
-;;; Generated autoloads from magit-files.el
-
-(autoload 'magit-find-file "magit-files" "\
-View FILE from REV.
-Switch to a buffer visiting blob REV:FILE,
-creating one if none already exists.
-
-\(fn REV FILE)" t nil)
-
-(autoload 'magit-find-file-other-window "magit-files" "\
-View FILE from REV, in another window.
-Like `magit-find-file', but create a new window or reuse an
-existing one.
-
-\(fn REV FILE)" t nil)
- (autoload 'magit-file-popup "magit" nil t)
-
-(defvar global-magit-file-mode t "\
-Non-nil if Global Magit-File mode is enabled.
-See the `global-magit-file-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-magit-file-mode'.")
-
-(custom-autoload 'global-magit-file-mode "magit-files" nil)
-
-(autoload 'global-magit-file-mode "magit-files" "\
-Toggle Magit-File mode in all buffers.
-With prefix ARG, enable Global Magit-File mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Magit-File mode is enabled in all buffers where
-`magit-file-mode-turn-on' would do it.
-See `magit-file-mode' for more information on Magit-File mode.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'magit-file-checkout "magit-files" "\
-Checkout FILE from REV.
-
-\(fn REV FILE)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-files" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-git" "magit-git.el" (0 0 0 0))
-;;; Generated autoloads from magit-git.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-git" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-gitignore" "magit-gitignore.el" (0 0
-;;;;;; 0 0))
-;;; Generated autoloads from magit-gitignore.el
- (autoload 'magit-gitignore-popup "magit-gitignore" nil t)
-
-(autoload 'magit-gitignore-globally "magit-gitignore" "\
-Instruct Git to globally ignore FILE-OR-PATTERN.
-
-\(fn FILE-OR-PATTERN)" t nil)
-
-(autoload 'magit-gitignore-locally "magit-gitignore" "\
-Instruct Git to locally ignore FILE-OR-PATTERN.
-
-\(fn FILE-OR-PATTERN)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-gitignore" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-imenu" "magit-imenu.el" (0 0 0 0))
-;;; Generated autoloads from magit-imenu.el
-
-(autoload 'magit-imenu--log-prev-index-position-function "magit-imenu" "\
-Move point to previous line in current buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--log-extract-index-name-function "magit-imenu" "\
-Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--diff-prev-index-position-function "magit-imenu" "\
-Move point to previous file line in current buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--diff-extract-index-name-function "magit-imenu" "\
-Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--status-create-index-function "magit-imenu" "\
-Return an alist of all imenu entries in current buffer.
-This function is used as a value for
-`imenu-create-index-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--refs-create-index-function "magit-imenu" "\
-Return an alist of all imenu entries in current buffer.
-This function is used as a value for
-`imenu-create-index-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--cherry-create-index-function "magit-imenu" "\
-Return an alist of all imenu entries in current buffer.
-This function is used as a value for
-`imenu-create-index-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--submodule-prev-index-position-function "magit-imenu" "\
-Move point to previous line in magit-submodule-list buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--submodule-extract-index-name-function "magit-imenu" "\
-Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--repolist-prev-index-position-function "magit-imenu" "\
-Move point to previous line in magit-repolist buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--repolist-extract-index-name-function "magit-imenu" "\
-Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--process-prev-index-position-function "magit-imenu" "\
-Move point to previous process in magit-process buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--process-extract-index-name-function "magit-imenu" "\
-Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--rebase-prev-index-position-function "magit-imenu" "\
-Move point to previous commit in git-rebase buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'.
-
-\(fn)" nil nil)
-
-(autoload 'magit-imenu--rebase-extract-index-name-function "magit-imenu" "\
-Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line.
-
-\(fn)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-imenu" '("magit-imenu--index-function")))
-
-;;;***
-
-;;;### (autoloads nil "magit-log" "magit-log.el" (0 0 0 0))
-;;; Generated autoloads from magit-log.el
-
-(autoload 'magit-log-buffer-file-popup "magit-log" "\
-Popup console for log commands.
-
-This is a variant of `magit-log-popup' which shows the same popup
-but which limits the log to the file being visited in the current
-buffer.
-
-\(fn)" t nil)
-
-(autoload 'magit-log-current "magit-log" "\
-Show log for the current branch.
-When `HEAD' is detached or with a prefix argument show log for
-one or more revs read from the minibuffer.
-
-\(fn REVS &optional ARGS FILES)" t nil)
-
-(autoload 'magit-log-other "magit-log" "\
-Show log for one or more revs read from the minibuffer.
-The user can input any revision or revisions separated by a
-space, or even ranges, but only branches and tags, and a
-representation of the commit at point, are available as
-completion candidates.
-
-\(fn REVS &optional ARGS FILES)" t nil)
-
-(autoload 'magit-log-head "magit-log" "\
-Show log for `HEAD'.
-
-\(fn &optional ARGS FILES)" t nil)
-
-(autoload 'magit-log-branches "magit-log" "\
-Show log for all local branches and `HEAD'.
-
-\(fn &optional ARGS FILES)" t nil)
-
-(autoload 'magit-log-all-branches "magit-log" "\
-Show log for all local and remote branches and `HEAD'.
-
-\(fn &optional ARGS FILES)" t nil)
-
-(autoload 'magit-log-all "magit-log" "\
-Show log for all references and `HEAD'.
-
-\(fn &optional ARGS FILES)" t nil)
-
-(autoload 'magit-log-buffer-file "magit-log" "\
-Show log for the blob or file visited in the current buffer.
-With a prefix argument or when `--follow' is part of
-`magit-log-arguments', then follow renames. When the region is
-active, restrict the log to the lines that the region touches.
-
-\(fn &optional FOLLOW BEG END)" t nil)
-
-(autoload 'magit-log-trace-definition "magit-log" "\
-Show log for the definition at point.
-
-\(fn FILE FN REV)" t nil)
-
-(autoload 'magit-log-merged "magit-log" "\
-Show log for the merge of COMMIT into BRANCH.
-More precisely, find merge commit M that brought COMMIT into
-BRANCH, and show the log of the range \"M^..M\". This command
-requires git-when-merged, which is available from
-https://github.com/mhagger/git-when-merged.
-
-\(fn COMMIT BRANCH &optional ARGS FILES)" t nil)
-
-(autoload 'magit-reflog-current "magit-log" "\
-Display the reflog of the current branch.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-reflog-other "magit-log" "\
-Display the reflog of a branch or another ref.
-
-\(fn REF ARGS)" t nil)
-
-(autoload 'magit-reflog-head "magit-log" "\
-Display the `HEAD' reflog.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-log-move-to-parent "magit-log" "\
-Move to the Nth parent of the current commit.
-
-\(fn &optional N)" t nil)
-
-(autoload 'magit-cherry "magit-log" "\
-Show commits in a branch that are not merged in the upstream branch.
-
-\(fn HEAD UPSTREAM)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-log" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-margin" "magit-margin.el" (0 0 0 0))
-;;; Generated autoloads from magit-margin.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-margin" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-merge" "magit-merge.el" (0 0 0 0))
-;;; Generated autoloads from magit-merge.el
- (autoload 'magit-merge-popup "magit" nil t)
-
-(autoload 'magit-merge-plain "magit-merge" "\
-Merge commit REV into the current branch; using default message.
-
-Unless there are conflicts or a prefix argument is used create a
-merge commit using a generic commit message and without letting
-the user inspect the result. With a prefix argument pretend the
-merge failed to give the user the opportunity to inspect the
-merge.
-
-\(git merge --no-edit|--no-commit [ARGS] REV)
-
-\(fn REV &optional ARGS NOCOMMIT)" t nil)
-
-(autoload 'magit-merge-editmsg "magit-merge" "\
-Merge commit REV into the current branch; and edit message.
-Perform the merge and prepare a commit message but let the user
-edit it.
-
-\(git merge --edit --no-ff [ARGS] REV)
-
-\(fn REV &optional ARGS)" t nil)
-
-(autoload 'magit-merge-nocommit "magit-merge" "\
-Merge commit REV into the current branch; pretending it failed.
-Pretend the merge failed to give the user the opportunity to
-inspect the merge and change the commit message.
-
-\(git merge --no-commit --no-ff [ARGS] REV)
-
-\(fn REV &optional ARGS)" t nil)
-
-(autoload 'magit-merge-into "magit-merge" "\
-Merge the current branch into BRANCH and remove the former.
-
-Before merging, force push the source branch to its push-remote,
-provided the respective remote branch already exists, ensuring
-that the respective pull-request (if any) won't get stuck on some
-obsolete version of the commits that are being merged. Finally
-if `magit-branch-pull-request' was used to create the merged
-branch, then also remove the respective remote branch.
-
-\(fn BRANCH &optional ARGS)" t nil)
-
-(autoload 'magit-merge-absorb "magit-merge" "\
-Merge BRANCH into the current branch and remove the former.
-
-Before merging, force push the source branch to its push-remote,
-provided the respective remote branch already exists, ensuring
-that the respective pull-request (if any) won't get stuck on some
-obsolete version of the commits that are being merged. Finally
-if `magit-branch-pull-request' was used to create the merged
-branch, then also remove the respective remote branch.
-
-\(fn BRANCH &optional ARGS)" t nil)
-
-(autoload 'magit-merge-squash "magit-merge" "\
-Squash commit REV into the current branch; don't create a commit.
-
-\(git merge --squash REV)
-
-\(fn REV)" t nil)
-
-(autoload 'magit-merge-preview "magit-merge" "\
-Preview result of merging REV into the current branch.
-
-\(fn REV)" t nil)
-
-(autoload 'magit-merge-abort "magit-merge" "\
-Abort the current merge operation.
-
-\(git merge --abort)
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-merge" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-mode" "magit-mode.el" (0 0 0 0))
-;;; Generated autoloads from magit-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-mode" '("magit-" "disable-magit-save-buffers" "inhibit-magit-refresh")))
-
-;;;***
-
-;;;### (autoloads nil "magit-notes" "magit-notes.el" (0 0 0 0))
-;;; Generated autoloads from magit-notes.el
- (autoload 'magit-notes-popup "magit" nil t)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-notes" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-patch" "magit-patch.el" (0 0 0 0))
-;;; Generated autoloads from magit-patch.el
- (autoload 'magit-patch-popup "magit-patch" nil t)
-
-(autoload 'magit-format-patch "magit-patch" "\
-Create patches for the commits in RANGE.
-When a single commit is given for RANGE, create a patch for the
-changes introduced by that commit (unlike 'git format-patch'
-which creates patches for all commits that are reachable from
-`HEAD' but not from the specified commit).
-
-\(fn RANGE ARGS FILES)" t nil)
-
-(autoload 'magit-request-pull "magit-patch" "\
-Request upstream to pull from you public repository.
-
-URL is the url of your publically accessible repository.
-START is a commit that already is in the upstream repository.
-END is the last commit, usually a branch name, which upstream
-is asked to pull. START has to be reachable from that commit.
-
-\(fn URL START END)" t nil)
- (autoload 'magit-patch-apply-popup "magit-patch" nil t)
-
-(autoload 'magit-patch-apply "magit-patch" "\
-Apply the patch file FILE.
-
-\(fn FILE &rest ARGS)" t nil)
-
-(autoload 'magit-patch-save "magit-patch" "\
-Write current diff into patch FILE.
-
-What arguments are used to create the patch depends on the value
-of `magit-patch-save-arguments' and whether a prefix argument is
-used.
-
-If the value is the symbol `buffer', then use the same arguments
-as the buffer. With a prefix argument use no arguments.
-
-If the value is a list beginning with the symbol `exclude', then
-use the same arguments as the buffer except for those matched by
-entries in the cdr of the list. The comparison is done using
-`string-prefix-p'. With a prefix argument use the same arguments
-as the buffer.
-
-If the value is a list of strings (including the empty list),
-then use those arguments. With a prefix argument use the same
-arguments as the buffer.
-
-Of course the arguments that are required to actually show the
-same differences as those shown in the buffer are always used.
-
-\(fn FILE &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-patch" '("magit-patch-save-arguments")))
-
-;;;***
-
-;;;### (autoloads nil "magit-process" "magit-process.el" (0 0 0 0))
-;;; Generated autoloads from magit-process.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-process" '("magit-" "tramp-sh-handle-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-pull" "magit-pull.el" (0 0 0 0))
-;;; Generated autoloads from magit-pull.el
- (autoload 'magit-pull-popup "magit-pull" nil t)
- (autoload 'magit-pull-and-fetch-popup "magit-pull" nil t)
-
-(autoload 'magit-pull-from-pushremote "magit-pull" "\
-Pull from the push-remote of the current branch.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-pull-from-upstream "magit-pull" "\
-Pull from the upstream of the current branch.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-pull-branch "magit-pull" "\
-Pull from a branch read in the minibuffer.
-
-\(fn SOURCE ARGS)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-pull" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-push" "magit-push.el" (0 0 0 0))
-;;; Generated autoloads from magit-push.el
- (autoload 'magit-push-popup "magit-push" nil t)
-
-(autoload 'magit-push-current-to-pushremote "magit-push" "\
-Push the current branch to `branch.<name>.pushRemote'.
-If that variable is unset, then push to `remote.pushDefault'.
-
-When `magit-push-current-set-remote-if-missing' is non-nil and
-the push-remote is not configured, then read the push-remote from
-the user, set it, and then push to it. With a prefix argument
-the push-remote can be changed before pushed to it.
-
-\(fn ARGS &optional PUSH-REMOTE)" t nil)
-
-(autoload 'magit-push-current-to-upstream "magit-push" "\
-Push the current branch to its upstream branch.
-
-When `magit-push-current-set-remote-if-missing' is non-nil and
-the upstream is not configured, then read the upstream from the
-user, set it, and then push to it. With a prefix argument the
-upstream can be changed before pushed to it.
-
-\(fn ARGS &optional UPSTREAM)" t nil)
-
-(autoload 'magit-push-current "magit-push" "\
-Push the current branch to a branch read in the minibuffer.
-
-\(fn TARGET ARGS)" t nil)
-
-(autoload 'magit-push-other "magit-push" "\
-Push an arbitrary branch or commit somewhere.
-Both the source and the target are read in the minibuffer.
-
-\(fn SOURCE TARGET ARGS)" t nil)
-
-(autoload 'magit-push-refspecs "magit-push" "\
-Push one or multiple REFSPECS to a REMOTE.
-Both the REMOTE and the REFSPECS are read in the minibuffer. To
-use multiple REFSPECS, separate them with commas. Completion is
-only available for the part before the colon, or when no colon
-is used.
-
-\(fn REMOTE REFSPECS ARGS)" t nil)
-
-(autoload 'magit-push-matching "magit-push" "\
-Push all matching branches to another repository.
-If multiple remotes exist, then read one from the user.
-If just one exists, use that without requiring confirmation.
-
-\(fn REMOTE &optional ARGS)" t nil)
-
-(autoload 'magit-push-tags "magit-push" "\
-Push all tags to another repository.
-If only one remote exists, then push to that. Otherwise prompt
-for a remote, offering the remote configured for the current
-branch as default.
-
-\(fn REMOTE &optional ARGS)" t nil)
-
-(autoload 'magit-push-tag "magit-push" "\
-Push a tag to another repository.
-
-\(fn TAG REMOTE &optional ARGS)" t nil)
-
-(autoload 'magit-push-implicitly "magit-push" "\
-Push somewhere without using an explicit refspec.
-
-This command simply runs \"git push -v [ARGS]\". ARGS are the
-arguments specified in the popup buffer. No explicit refspec
-arguments are used. Instead the behavior depends on at least
-these Git variables: `push.default', `remote.pushDefault',
-`branch.<branch>.pushRemote', `branch.<branch>.remote',
-`branch.<branch>.merge', and `remote.<remote>.push'.
-
-To add this command to the push popup add this to your init file:
-
- (with-eval-after-load \\='magit-remote
- (magit-define-popup-action \\='magit-push-popup ?P
- \\='magit-push-implicitly--desc
- \\='magit-push-implicitly ?p t))
-
-The function `magit-push-implicitly--desc' attempts to predict
-what this command will do. The value it returns is displayed in
-the popup buffer.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-push-to-remote "magit-push" "\
-Push to REMOTE without using an explicit refspec.
-The REMOTE is read in the minibuffer.
-
-This command simply runs \"git push -v [ARGS] REMOTE\". ARGS
-are the arguments specified in the popup buffer. No refspec
-arguments are used. Instead the behavior depends on at least
-these Git variables: `push.default', `remote.pushDefault',
-`branch.<branch>.pushRemote', `branch.<branch>.remote',
-`branch.<branch>.merge', and `remote.<remote>.push'.
-
-To add this command to the push popup add this to your init file:
-
- (with-eval-after-load \\='magit-remote
- (magit-define-popup-action \\='magit-push-popup ?r
- \\='magit-push-to-remote--desc
- \\='magit-push-to-remote ?p t))
-
-\(fn REMOTE ARGS)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-push" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-refs" "magit-refs.el" (0 0 0 0))
-;;; Generated autoloads from magit-refs.el
-
-(autoload 'magit-show-refs-popup "magit-refs" "\
-Popup console for `magit-show-refs'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'magit-show-refs-head "magit-refs" "\
-List and compare references in a dedicated buffer.
-Refs are compared with `HEAD'.
-
-\(fn &optional ARGS)" t nil)
-
-(autoload 'magit-show-refs-current "magit-refs" "\
-List and compare references in a dedicated buffer.
-Refs are compared with the current branch or `HEAD' if
-it is detached.
-
-\(fn &optional ARGS)" t nil)
-
-(autoload 'magit-show-refs "magit-refs" "\
-List and compare references in a dedicated buffer.
-Refs are compared with a branch read from the user.
-
-\(fn &optional REF ARGS)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-refs" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-remote" "magit-remote.el" (0 0 0 0))
-;;; Generated autoloads from magit-remote.el
- (autoload 'magit-remote-popup "magit-remote" nil t)
-
-(autoload 'magit-remote-add "magit-remote" "\
-Add a remote named REMOTE and fetch it.
-
-\(fn REMOTE URL &optional ARGS)" t nil)
-
-(autoload 'magit-remote-rename "magit-remote" "\
-Rename the remote named OLD to NEW.
-
-\(fn OLD NEW)" t nil)
-
-(autoload 'magit-remote-remove "magit-remote" "\
-Delete the remote named REMOTE.
-
-\(fn REMOTE)" t nil)
-
-(autoload 'magit-remote-prune "magit-remote" "\
-Remove stale remote-tracking branches for REMOTE.
-
-\(fn REMOTE)" t nil)
-
-(autoload 'magit-remote-prune-refspecs "magit-remote" "\
-Remove stale refspecs for REMOTE.
-
-A refspec is stale if there no longer exists at least one branch
-on the remote that would be fetched due to that refspec. A stale
-refspec is problematic because its existence causes Git to refuse
-to fetch according to the remaining non-stale refspecs.
-
-If only stale refspecs remain, then offer to either delete the
-remote or to replace the stale refspecs with the default refspec.
-
-Also remove the remote-tracking branches that were created due to
-the now stale refspecs. Other stale branches are not removed.
-
-\(fn REMOTE)" t nil)
-
-(autoload 'magit-remote-set-head "magit-remote" "\
-Set the local representation of REMOTE's default branch.
-Query REMOTE and set the symbolic-ref refs/remotes/<remote>/HEAD
-accordingly. With a prefix argument query for the branch to be
-used, which allows you to select an incorrect value if you fancy
-doing that.
-
-\(fn REMOTE &optional BRANCH)" t nil)
-
-(autoload 'magit-remote-unset-head "magit-remote" "\
-Unset the local representation of REMOTE's default branch.
-Delete the symbolic-ref \"refs/remotes/<remote>/HEAD\".
-
-\(fn REMOTE)" t nil)
-
-(autoload 'magit-remote-config-popup "magit-remote" "\
-Popup console for setting remote variables.
-
-\(fn REMOTE)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-remote" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-repos" "magit-repos.el" (0 0 0 0))
-;;; Generated autoloads from magit-repos.el
-
-(autoload 'magit-list-repositories "magit-repos" "\
-Display a list of repositories.
-
-Use the options `magit-repository-directories' to control which
-repositories are displayed.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-repos" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-reset" "magit-reset.el" (0 0 0 0))
-;;; Generated autoloads from magit-reset.el
- (autoload 'magit-reset-popup "magit" nil t)
-
-(autoload 'magit-reset-mixed "magit-reset" "\
-Reset the `HEAD' and index to COMMIT, but not the working tree.
-
-\(git reset --mixed COMMIT)
-
-\(fn COMMIT)" t nil)
-
-(autoload 'magit-reset-soft "magit-reset" "\
-Reset the `HEAD' to COMMIT, but not the index and working tree.
-
-\(git reset --soft REVISION)
-
-\(fn COMMIT)" t nil)
-
-(autoload 'magit-reset-hard "magit-reset" "\
-Reset the `HEAD', index, and working tree to COMMIT.
-
-\(git reset --hard REVISION)
-
-\(fn COMMIT)" t nil)
-
-(autoload 'magit-reset-index "magit-reset" "\
-Reset the index to COMMIT.
-Keep the `HEAD' and working tree as-is, so if COMMIT refers to the
-head this effectively unstages all changes.
-
-\(git reset COMMIT .)
-
-\(fn COMMIT)" t nil)
-
-(autoload 'magit-reset-worktree "magit-reset" "\
-Reset the worktree to COMMIT.
-Keep the `HEAD' and index as-is.
-
-\(fn COMMIT)" t nil)
-
-(autoload 'magit-reset-quickly "magit-reset" "\
-Reset the `HEAD' and index to COMMIT, and possibly the working tree.
-With a prefix argument reset the working tree otherwise don't.
-
-\(git reset --mixed|--hard COMMIT)
-
-\(fn COMMIT &optional HARD)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-reset" '("magit-reset-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-section" "magit-section.el" (0 0 0 0))
-;;; Generated autoloads from magit-section.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-section" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from magit-sequence.el
-
-(autoload 'magit-sequencer-continue "magit-sequence" "\
-Resume the current cherry-pick or revert sequence.
-
-\(fn)" t nil)
-
-(autoload 'magit-sequencer-skip "magit-sequence" "\
-Skip the stopped at commit during a cherry-pick or revert sequence.
-
-\(fn)" t nil)
-
-(autoload 'magit-sequencer-abort "magit-sequence" "\
-Abort the current cherry-pick or revert sequence.
-This discards all changes made since the sequence started.
-
-\(fn)" t nil)
- (autoload 'magit-cherry-pick-popup "magit-sequence" nil t)
-
-(autoload 'magit-cherry-copy "magit-sequence" "\
-Copy COMMITS from another branch onto the current branch.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then pick all of them,
-without prompting.
-
-\(fn COMMITS &optional ARGS)" t nil)
-
-(autoload 'magit-cherry-apply "magit-sequence" "\
-Apply the changes in COMMITS but do not commit them.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then apply all of them,
-without prompting.
-
-\(fn COMMITS &optional ARGS)" t nil)
-
-(autoload 'magit-cherry-harvest "magit-sequence" "\
-Move COMMITS from another BRANCH onto the current branch.
-Remove the COMMITS from BRANCH and stay on the current branch.
-If a conflict occurs, then you have to fix that and finish the
-process manually.
-
-\(fn COMMITS BRANCH &optional ARGS)" t nil)
-
-(autoload 'magit-cherry-donate "magit-sequence" "\
-Move COMMITS from the current branch onto another existing BRANCH.
-Remove COMMITS from the current branch and stay on that branch.
-If a conflict occurs, then you have to fix that and finish the
-process manually.
-
-\(fn COMMITS BRANCH &optional ARGS)" t nil)
-
-(autoload 'magit-cherry-spinout "magit-sequence" "\
-Move COMMITS from the current branch onto a new BRANCH.
-Remove COMMITS from the current branch and stay on that branch.
-If a conflict occurs, then you have to fix that and finish the
-process manually.
-
-\(fn COMMITS BRANCH START-POINT &optional ARGS)" t nil)
-
-(autoload 'magit-cherry-spinoff "magit-sequence" "\
-Move COMMITS from the current branch onto a new BRANCH.
-Remove COMMITS from the current branch and checkout BRANCH.
-If a conflict occurs, then you have to fix that and finish
-the process manually.
-
-\(fn COMMITS BRANCH START-POINT &optional ARGS)" t nil)
- (autoload 'magit-revert-popup "magit-sequence" nil t)
-
-(autoload 'magit-revert-and-commit "magit-sequence" "\
-Revert COMMIT by creating a new commit.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then revert all of them,
-without prompting.
-
-\(fn COMMIT &optional ARGS)" t nil)
-
-(autoload 'magit-revert-no-commit "magit-sequence" "\
-Revert COMMIT by applying it in reverse to the worktree.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then revert all of them,
-without prompting.
-
-\(fn COMMIT &optional ARGS)" t nil)
- (autoload 'magit-am-popup "magit-sequence" nil t)
-
-(autoload 'magit-am-apply-patches "magit-sequence" "\
-Apply the patches FILES.
-
-\(fn &optional FILES ARGS)" t nil)
-
-(autoload 'magit-am-apply-maildir "magit-sequence" "\
-Apply the patches from MAILDIR.
-
-\(fn &optional MAILDIR ARGS)" t nil)
-
-(autoload 'magit-am-continue "magit-sequence" "\
-Resume the current patch applying sequence.
-
-\(fn)" t nil)
-
-(autoload 'magit-am-skip "magit-sequence" "\
-Skip the stopped at patch during a patch applying sequence.
-
-\(fn)" t nil)
-
-(autoload 'magit-am-abort "magit-sequence" "\
-Abort the current patch applying sequence.
-This discards all changes made since the sequence started.
-
-\(fn)" t nil)
- (autoload 'magit-rebase-popup "magit-sequence" nil t)
-
-(autoload 'magit-rebase-onto-pushremote "magit-sequence" "\
-Rebase the current branch onto `branch.<name>.pushRemote'.
-If that variable is unset, then rebase onto `remote.pushDefault'.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-rebase-onto-upstream "magit-sequence" "\
-Rebase the current branch onto its upstream branch.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-rebase-branch "magit-sequence" "\
-Rebase the current branch onto a branch read in the minibuffer.
-All commits that are reachable from `HEAD' but not from the
-selected branch TARGET are being rebased.
-
-\(fn TARGET ARGS)" t nil)
-
-(autoload 'magit-rebase-subset "magit-sequence" "\
-Rebase a subset of the current branch's history onto a new base.
-Rebase commits from START to `HEAD' onto NEWBASE.
-START has to be selected from a list of recent commits.
-
-\(fn NEWBASE START ARGS)" t nil)
-
-(autoload 'magit-rebase-interactive "magit-sequence" "\
-Start an interactive rebase sequence.
-
-\(fn COMMIT ARGS)" t nil)
-
-(autoload 'magit-rebase-autosquash "magit-sequence" "\
-Combine squash and fixup commits with their intended targets.
-
-\(fn ARGS)" t nil)
-
-(autoload 'magit-rebase-edit-commit "magit-sequence" "\
-Edit a single older commit using rebase.
-
-\(fn COMMIT ARGS)" t nil)
-
-(autoload 'magit-rebase-reword-commit "magit-sequence" "\
-Reword a single older commit using rebase.
-
-\(fn COMMIT ARGS)" t nil)
-
-(autoload 'magit-rebase-remove-commit "magit-sequence" "\
-Remove a single older commit using rebase.
-
-\(fn COMMIT ARGS)" t nil)
-
-(autoload 'magit-rebase-continue "magit-sequence" "\
-Restart the current rebasing operation.
-In some cases this pops up a commit message buffer for you do
-edit. With a prefix argument the old message is reused as-is.
-
-\(fn &optional NOEDIT)" t nil)
-
-(autoload 'magit-rebase-skip "magit-sequence" "\
-Skip the current commit and restart the current rebase operation.
-
-\(fn)" t nil)
-
-(autoload 'magit-rebase-edit "magit-sequence" "\
-Edit the todo list of the current rebase operation.
-
-\(fn)" t nil)
-
-(autoload 'magit-rebase-abort "magit-sequence" "\
-Abort the current rebase operation, restoring the original branch.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-sequence" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-stash" "magit-stash.el" (0 0 0 0))
-;;; Generated autoloads from magit-stash.el
- (autoload 'magit-stash-popup "magit-stash" nil t)
-
-(autoload 'magit-stash-both "magit-stash" "\
-Create a stash of the index and working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'.
-
-\(fn MESSAGE &optional INCLUDE-UNTRACKED)" t nil)
-
-(autoload 'magit-stash-index "magit-stash" "\
-Create a stash of the index only.
-Unstaged and untracked changes are not stashed. The stashed
-changes are applied in reverse to both the index and the
-worktree. This command can fail when the worktree is not clean.
-Applying the resulting stash has the inverse effect.
-
-\(fn MESSAGE)" t nil)
-
-(autoload 'magit-stash-worktree "magit-stash" "\
-Create a stash of unstaged changes in the working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'.
-
-\(fn MESSAGE &optional INCLUDE-UNTRACKED)" t nil)
-
-(autoload 'magit-stash-keep-index "magit-stash" "\
-Create a stash of the index and working tree, keeping index intact.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'.
-
-\(fn MESSAGE &optional INCLUDE-UNTRACKED)" t nil)
-
-(autoload 'magit-snapshot-both "magit-stash" "\
-Create a snapshot of the index and working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'.
-
-\(fn &optional INCLUDE-UNTRACKED)" t nil)
-
-(autoload 'magit-snapshot-index "magit-stash" "\
-Create a snapshot of the index only.
-Unstaged and untracked changes are not stashed.
-
-\(fn)" t nil)
-
-(autoload 'magit-snapshot-worktree "magit-stash" "\
-Create a snapshot of unstaged changes in the working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'.
-
-\(fn &optional INCLUDE-UNTRACKED)" t nil)
-
-(autoload 'magit-stash-apply "magit-stash" "\
-Apply a stash to the working tree.
-Try to preserve the stash index. If that fails because there
-are staged changes, apply without preserving the stash index.
-
-\(fn STASH)" t nil)
-
-(autoload 'magit-stash-drop "magit-stash" "\
-Remove a stash from the stash list.
-When the region is active offer to drop all contained stashes.
-
-\(fn STASH)" t nil)
-
-(autoload 'magit-stash-clear "magit-stash" "\
-Remove all stashes saved in REF's reflog by deleting REF.
-
-\(fn REF)" t nil)
-
-(autoload 'magit-stash-branch "magit-stash" "\
-Create and checkout a new BRANCH from STASH.
-
-\(fn STASH BRANCH)" t nil)
-
-(autoload 'magit-stash-branch-here "magit-stash" "\
-Create and checkout a new BRANCH and apply STASH.
-The branch is created using `magit-branch', using the current
-branch or `HEAD' as the string-point.
-
-\(fn STASH BRANCH)" t nil)
-
-(autoload 'magit-stash-format-patch "magit-stash" "\
-Create a patch from STASH
-
-\(fn STASH)" t nil)
-
-(autoload 'magit-stash-list "magit-stash" "\
-List all stashes in a buffer.
-
-\(fn)" t nil)
-
-(autoload 'magit-stash-show "magit-stash" "\
-Show all diffs of a stash in a buffer.
-
-\(fn STASH &optional ARGS FILES)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-stash" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-status" "magit-status.el" (0 0 0 0))
-;;; Generated autoloads from magit-status.el
-
-(autoload 'magit-init "magit-status" "\
-Initialize a Git repository, then show its status.
-
-If the directory is below an existing repository, then the user
-has to confirm that a new one should be created inside. If the
-directory is the root of the existing repository, then the user
-has to confirm that it should be reinitialized.
-
-Non-interactively DIRECTORY is (re-)initialized unconditionally.
-
-\(fn DIRECTORY)" t nil)
-
-(autoload 'magit-status "magit-status" "\
-Show the status of the current Git repository in a buffer.
-With a prefix argument prompt for a repository to be shown.
-With two prefix arguments prompt for an arbitrary directory.
-If that directory isn't the root of an existing repository,
-then offer to initialize it as a new repository.
-
-\(fn &optional DIRECTORY CACHE)" t nil)
-
-(autoload 'magit-status-internal "magit-status" "\
-
-
-\(fn DIRECTORY)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-status" '("magit")))
-
-;;;***
-
-;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (0 0
-;;;;;; 0 0))
-;;; Generated autoloads from magit-submodule.el
- (autoload 'magit-submodule-popup "magit-submodule" nil t)
-
-(autoload 'magit-submodule-add "magit-submodule" "\
-Add the repository at URL as a module.
-
-Optional PATH is the path to the module relative to the root of
-the superproject. If it is nil, then the path is determined
-based on the URL. Optional NAME is the name of the module. If
-it is nil, then PATH also becomes the name.
-
-\(fn URL &optional PATH NAME ARGS)" t nil)
-
-(autoload 'magit-submodule-read-name-for-path "magit-submodule" "\
-
-
-\(fn PATH &optional PREFER-SHORT)" nil nil)
-
-(autoload 'magit-submodule-register "magit-submodule" "\
-Register MODULES.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user.
-
-\(fn MODULES)" t nil)
-
-(autoload 'magit-submodule-populate "magit-submodule" "\
-Create MODULES working directories, checking out the recorded commits.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user.
-
-\(fn MODULES)" t nil)
-
-(autoload 'magit-submodule-update "magit-submodule" "\
-Update MODULES by checking out the recorded commits.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user.
-
-\(fn MODULES ARGS)" t nil)
-
-(autoload 'magit-submodule-synchronize "magit-submodule" "\
-Synchronize url configuration of MODULES.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user.
-
-\(fn MODULES ARGS)" t nil)
-
-(autoload 'magit-submodule-unpopulate "magit-submodule" "\
-Remove working directories of MODULES.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user.
-
-\(fn MODULES ARGS)" t nil)
-
-(autoload 'magit-submodule-remove "magit-submodule" "\
-Unregister MODULES and remove their working directories.
-
-For safety reasons, do not remove the gitdirs and if a module has
-uncomitted changes, then do not remove it at all. If a module's
-gitdir is located inside the working directory, then move it into
-the gitdir of the superproject first.
-
-With the \"--force\" argument offer to remove dirty working
-directories and with a prefix argument offer to delete gitdirs.
-Both actions are very dangerous and have to be confirmed. There
-are additional safety precautions in place, so you might be able
-to recover from making a mistake here, but don't count on it.
-
-\(fn MODULES ARGS TRASH-GITDIRS)" t nil)
-
-(autoload 'magit-insert-modules "magit-submodule" "\
-Insert submodule sections.
-Hook `magit-module-sections-hook' controls which module sections
-are inserted, and option `magit-module-sections-nested' controls
-whether they are wrapped in an additional section.
-
-\(fn)" nil nil)
-
-(autoload 'magit-insert-modules-overview "magit-submodule" "\
-Insert sections for all modules.
-For each section insert the path and the output of `git describe --tags',
-or, failing that, the abbreviated HEAD commit hash.
-
-\(fn)" nil nil)
-
-(autoload 'magit-insert-modules-unpulled-from-upstream "magit-submodule" "\
-Insert sections for modules that haven't been pulled from the upstream.
-These sections can be expanded to show the respective commits.
-
-\(fn)" nil nil)
-
-(autoload 'magit-insert-modules-unpulled-from-pushremote "magit-submodule" "\
-Insert sections for modules that haven't been pulled from the push-remote.
-These sections can be expanded to show the respective commits.
-
-\(fn)" nil nil)
-
-(autoload 'magit-insert-modules-unpushed-to-upstream "magit-submodule" "\
-Insert sections for modules that haven't been pushed to the upstream.
-These sections can be expanded to show the respective commits.
-
-\(fn)" nil nil)
-
-(autoload 'magit-insert-modules-unpushed-to-pushremote "magit-submodule" "\
-Insert sections for modules that haven't been pushed to the push-remote.
-These sections can be expanded to show the respective commits.
-
-\(fn)" nil nil)
-
-(autoload 'magit-list-submodules "magit-submodule" "\
-Display a list of the current repository's submodules.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-submodule" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (0 0 0 0))
-;;; Generated autoloads from magit-subtree.el
- (autoload 'magit-subtree-popup "magit-subtree" nil t)
-
-(autoload 'magit-subtree-add "magit-subtree" "\
-Add REF from REPOSITORY as a new subtree at PREFIX.
-
-\(fn PREFIX REPOSITORY REF ARGS)" t nil)
-
-(autoload 'magit-subtree-add-commit "magit-subtree" "\
-Add COMMIT as a new subtree at PREFIX.
-
-\(fn PREFIX COMMIT ARGS)" t nil)
-
-(autoload 'magit-subtree-merge "magit-subtree" "\
-Merge COMMIT into the PREFIX subtree.
-
-\(fn PREFIX COMMIT ARGS)" t nil)
-
-(autoload 'magit-subtree-pull "magit-subtree" "\
-Pull REF from REPOSITORY into the PREFIX subtree.
-
-\(fn PREFIX REPOSITORY REF ARGS)" t nil)
-
-(autoload 'magit-subtree-push "magit-subtree" "\
-Extract the history of the subtree PREFIX and push it to REF on REPOSITORY.
-
-\(fn PREFIX REPOSITORY REF ARGS)" t nil)
-
-(autoload 'magit-subtree-split "magit-subtree" "\
-Extract the history of the subtree PREFIX.
-
-\(fn PREFIX COMMIT ARGS)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-subtree" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-tag" "magit-tag.el" (0 0 0 0))
-;;; Generated autoloads from magit-tag.el
- (autoload 'magit-tag-popup "magit" nil t)
-
-(autoload 'magit-tag-create "magit-tag" "\
-Create a new tag with the given NAME at REV.
-With a prefix argument annotate the tag.
-
-\(git tag [--annotate] NAME REV)
-
-\(fn NAME REV &optional ARGS)" t nil)
-
-(autoload 'magit-tag-delete "magit-tag" "\
-Delete one or more tags.
-If the region marks multiple tags (and nothing else), then offer
-to delete those, otherwise prompt for a single tag to be deleted,
-defaulting to the tag at point.
-
-\(git tag -d TAGS)
-
-\(fn TAGS)" t nil)
-
-(autoload 'magit-tag-prune "magit-tag" "\
-Offer to delete tags missing locally from REMOTE, and vice versa.
-
-\(fn TAGS REMOTE-TAGS REMOTE)" t nil)
-
-(autoload 'magit-tag-release "magit-tag" "\
-Create an opinionated release tag.
-
-Assume version tags that match \"\\\\`v?[0-9]\\\\(\\\\.[0-9]\\\\)*\\\\'\".
-Prompt for the name of the new tag using the highest existing tag
-as initial input and call \"git tag --annotate --sign -m MSG\" TAG,
-regardless of whether these arguments are enabled in the popup.
-Given a TAG \"v1.2.3\" and a repository \"/path/to/foo-bar\", the
-MESSAGE would be \"Foo-Bar 1.2.3\".
-
-Because it is so opinionated, this command is not available from
-the tag popup by default.
-
-\(fn TAG)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "magit-utils" "magit-utils.el" (0 0 0 0))
-;;; Generated autoloads from magit-utils.el
-
-(autoload 'magit-emacs-Q-command "magit-utils" "\
-Show a shell command that runs an uncustomized Emacs with only Magit loaded.
-See info node `(magit)Debugging Tools' for more information.
-
-\(fn)" t nil)
-
-(autoload 'Info-follow-nearest-node--magit-gitman "magit-utils" "\
-
-
-\(fn FN &optional FORK)" nil nil)
-
-(advice-add 'Info-follow-nearest-node :around 'Info-follow-nearest-node--magit-gitman)
-
-(autoload 'org-man-export--magit-gitman "magit-utils" "\
-
-
-\(fn FN LINK DESCRIPTION FORMAT)" nil nil)
-
-(advice-add 'org-man-export :around 'org-man-export--magit-gitman)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-utils" '("magit-" "whitespace-dont-turn-on-in-magit-mode")))
-
-;;;***
-
-;;;### (autoloads nil "magit-wip" "magit-wip.el" (0 0 0 0))
-;;; Generated autoloads from magit-wip.el
-
-(defvar magit-wip-after-save-mode nil "\
-Non-nil if Magit-Wip-After-Save mode is enabled.
-See the `magit-wip-after-save-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `magit-wip-after-save-mode'.")
-
-(custom-autoload 'magit-wip-after-save-mode "magit-wip" nil)
-
-(autoload 'magit-wip-after-save-mode "magit-wip" "\
-Toggle Magit-Wip-After-Save-Local mode in all buffers.
-With prefix ARG, enable Magit-Wip-After-Save mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Magit-Wip-After-Save-Local mode is enabled in all buffers where
-`magit-wip-after-save-local-mode-turn-on' would do it.
-See `magit-wip-after-save-local-mode' for more information on Magit-Wip-After-Save-Local mode.
-
-\(fn &optional ARG)" t nil)
-
-(defvar magit-wip-after-apply-mode nil "\
-Non-nil if Magit-Wip-After-Apply mode is enabled.
-See the `magit-wip-after-apply-mode' command
-for a description of this minor mode.")
-
-(custom-autoload 'magit-wip-after-apply-mode "magit-wip" nil)
-
-(autoload 'magit-wip-after-apply-mode "magit-wip" "\
-Commit to work-in-progress refs.
-
-After applying a change using any \"apply variant\"
-command (apply, stage, unstage, discard, and reverse) commit the
-affected files to the current wip refs. For each branch there
-may be two wip refs; one contains snapshots of the files as found
-in the worktree and the other contains snapshots of the entries
-in the index.
-
-\(fn &optional ARG)" t nil)
-
-(defvar magit-wip-before-change-mode nil "\
-Non-nil if Magit-Wip-Before-Change mode is enabled.
-See the `magit-wip-before-change-mode' command
-for a description of this minor mode.")
-
-(custom-autoload 'magit-wip-before-change-mode "magit-wip" nil)
-
-(autoload 'magit-wip-before-change-mode "magit-wip" "\
-Commit to work-in-progress refs before certain destructive changes.
-
-Before invoking a revert command or an \"apply variant\"
-command (apply, stage, unstage, discard, and reverse) commit the
-affected tracked files to the current wip refs. For each branch
-there may be two wip refs; one contains snapshots of the files
-as found in the worktree and the other contains snapshots of the
-entries in the index.
-
-Only changes to files which could potentially be affected by the
-command which is about to be called are committed.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'magit-wip-commit-initial-backup "magit-wip" "\
-Before saving, commit current file to a worktree wip ref.
-
-The user has to add this function to `before-save-hook'.
-
-Commit the current state of the visited file before saving the
-current buffer to that file. This backs up the same version of
-the file as `backup-buffer' would, but stores the backup in the
-worktree wip ref, which is also used by the various Magit Wip
-modes, instead of in a backup file as `backup-buffer' would.
-
-This function ignores the variables that affect `backup-buffer'
-and can be used along-side that function, which is recommended
-because this function only backs up files that are tracked in
-a Git repository.
-
-\(fn)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-wip" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil "magit-worktree" "magit-worktree.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from magit-worktree.el
- (autoload 'magit-worktree-popup "magit-worktree" nil t)
-
-(autoload 'magit-worktree-checkout "magit-worktree" "\
-Checkout BRANCH in a new worktree at PATH.
-
-\(fn PATH BRANCH)" t nil)
-
-(autoload 'magit-worktree-branch "magit-worktree" "\
-Create a new BRANCH and check it out in a new worktree at PATH.
-
-\(fn PATH BRANCH START-POINT &optional FORCE)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-worktree" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil nil ("magit-core.el" "magit-obsolete.el" "magit-pkg.el")
-;;;;;; (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; magit-autoloads.el ends here
diff --git a/elpa/magit-20181116.1412/magit-autorevert.el b/elpa/magit-20181116.1412/magit-autorevert.el
deleted file mode 100644
index 9001b13..0000000
--- a/elpa/magit-20181116.1412/magit-autorevert.el
+++ /dev/null
@@ -1,261 +0,0 @@
-;;; magit-autorevert.el --- revert buffers when files in repository change -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dash)
-
-(require 'magit-git)
-
-(require 'autorevert)
-
-;;; Options
-
-(defgroup magit-auto-revert nil
- "Revert buffers when files in repository change."
- :link '(custom-group-link auto-revert)
- :link '(info-link "(magit)Automatic Reverting of File-Visiting Buffers")
- :group 'auto-revert
- :group 'magit-essentials
- :group 'magit-modes)
-
-(defcustom auto-revert-buffer-list-filter nil
- "Filter that determines which buffers `auto-revert-buffers' reverts.
-
-This option is provided by `magit', which also redefines
-`auto-revert-buffers' to respect it. Magit users who do not turn
-on the local mode `auto-revert-mode' themselves, are best served
-by setting the value to `magit-auto-revert-repository-buffers-p'.
-
-However the default is nil, to not disturb users who do use the
-local mode directly. If you experience delays when running Magit
-commands, then you should consider using one of the predicates
-provided by Magit - especially if you also use Tramp.
-
-Users who do turn on `auto-revert-mode' in buffers in which Magit
-doesn't do that for them, should likely not use any filter.
-Users who turn on `global-auto-revert-mode', do not have to worry
-about this option, because it is disregarded if the global mode
-is enabled."
- :package-version '(magit . "2.4.2")
- :group 'auto-revert
- :group 'magit-auto-revert
- :group 'magit-related
- :type '(radio (const :tag "no filter" nil)
- (function-item magit-auto-revert-buffer-p)
- (function-item magit-auto-revert-repository-buffer-p)
- function))
-
-(defcustom magit-auto-revert-tracked-only t
- "Whether `magit-auto-revert-mode' only reverts tracked files."
- :package-version '(magit . "2.4.0")
- :group 'magit-auto-revert
- :type 'boolean
- :set (lambda (var val)
- (set var val)
- (when (and (bound-and-true-p magit-auto-revert-mode)
- (featurep 'magit-autorevert))
- (magit-auto-revert-mode -1)
- (magit-auto-revert-mode))))
-
-(defcustom magit-auto-revert-immediately t
- "Whether Magit reverts buffers immediately.
-
-If this is non-nil and either `global-auto-revert-mode' or
-`magit-auto-revert-mode' is enabled, then Magit immediately
-reverts buffers by explicitly calling `auto-revert-buffers'
-after running git for side-effects.
-
-If `auto-revert-use-notify' is non-nil (and file notifications
-are actually supported), then `magit-auto-revert-immediately'
-does not have to be non-nil, because the reverts happen
-immediately anyway.
-
-If `magit-auto-revert-immediately' and `auto-revert-use-notify'
-are both nil, then reverts happen after `auto-revert-interval'
-seconds of user inactivity. That is not desirable."
- :package-version '(magit . "2.4.0")
- :group 'magit-auto-revert
- :type 'boolean)
-
-;;; Mode
-
-(defun magit-turn-on-auto-revert-mode-if-desired (&optional file)
- (if file
- (--when-let (find-buffer-visiting file)
- (with-current-buffer it
- (magit-turn-on-auto-revert-mode-if-desired)))
- (when (and buffer-file-name
- (file-readable-p buffer-file-name)
- (magit-toplevel)
- (or (not magit-auto-revert-tracked-only)
- (magit-file-tracked-p buffer-file-name))
- (not auto-revert-mode) ; see #3014
- (not global-auto-revert-mode)) ; see #3460
- (auto-revert-mode 1))))
-
-;;;###autoload
-(define-globalized-minor-mode magit-auto-revert-mode auto-revert-mode
- magit-turn-on-auto-revert-mode-if-desired
- :package-version '(magit . "2.4.0")
- :link '(info-link "(magit)Automatic Reverting of File-Visiting Buffers")
- :group 'magit-auto-revert
- :group 'magit-essentials
- ;; - When `global-auto-revert-mode' is enabled, then this mode is
- ;; redundant.
- ;; - In all other cases enable the mode because if buffers are not
- ;; automatically reverted that would make many very common tasks
- ;; much more cumbersome.
- ;; - When `magit-revert-buffers' is nil, then the user has opted out
- ;; of the automatic reverts while a very old implementation was
- ;; still in use. We continued to respect that setting for another
- ;; two and a half years, but no longer do so now.
- :init-value (and (not global-auto-revert-mode)
- (not noninteractive)))
-;; - Unfortunately `:init-value t' only sets the value of the mode
-;; variable but does not cause the mode function to be called.
-;; - I don't think it works like this on purpose, but since one usually
-;; should not enable global modes by default, it is understandable.
-;; - If the user has set the variable `magit-auto-revert-mode' to nil
-;; after loading magit (instead of doing so before loading magit or
-;; by using the function), then we should still respect that setting.
-;; - If the user has set the obsolete variable `magit-revert-buffers'
-;; to nil before or after loading magit, then we should still respect
-;; that setting.
-;; - If the user sets one of these variables after loading magit and
-;; after `after-init-hook' has run, then that won't have an effect
-;; and there is nothing we can do about it.
-(defun magit-auto-revert-mode--init-kludge ()
- "This is an internal kludge to be used on `after-init-hook'.
-Do not use this function elsewhere, and don't remove it from
-the `after-init-hook'. For more information see the comments
-and code surrounding the definition of this function."
- (if magit-auto-revert-mode
- (let ((start (current-time)))
- (magit-message "Turning on magit-auto-revert-mode...")
- (magit-auto-revert-mode 1)
- (magit-message
- "Turning on magit-auto-revert-mode...done%s"
- (let ((elapsed (float-time (time-subtract (current-time) start))))
- (if (> elapsed 0.2)
- (format " (%.3fs, %s buffers checked)" elapsed
- (length (buffer-list)))
- ""))))
- (magit-auto-revert-mode -1)))
-(if after-init-time
- ;; Since `after-init-hook' has already been
- ;; run, turn the mode on or off right now.
- (magit-auto-revert-mode--init-kludge)
- ;; By the time the init file has been fully loaded the
- ;; values of the relevant variables might have changed.
- (add-hook 'after-init-hook #'magit-auto-revert-mode--init-kludge t))
-
-(put 'magit-auto-revert-mode 'function-documentation
- "Toggle Magit Auto Revert mode.
-With a prefix argument ARG, enable Magit Auto Revert mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-Magit Auto Revert mode is a global minor mode that reverts
-buffers associated with a file that is located inside a Git
-repository when the file changes on disk. Use `auto-revert-mode'
-to revert a particular buffer. Or use `global-auto-revert-mode'
-to revert all file-visiting buffers, not just those that visit
-a file located inside a Git repository.
-
-This global mode works by turning on the buffer-local mode
-`auto-revert-mode' at the time a buffer is first created. The
-local mode is turned on if the visited file is being tracked in
-a Git repository at the time when the buffer is created.
-
-If `magit-auto-revert-tracked-only' is non-nil (the default),
-then only tracked files are reverted. But if you stage a
-previously untracked file using `magit-stage', then this mode
-notices that.
-
-Unlike `global-auto-revert-mode', this mode never reverts any
-buffers that are not visiting files.
-
-The behavior of this mode can be customized using the options
-in the `autorevert' and `magit-autorevert' groups.
-
-This function calls the hook `magit-auto-revert-mode-hook'.")
-
-(defun magit-auto-revert-buffers ()
- (when (and magit-auto-revert-immediately
- (or global-auto-revert-mode
- (and magit-auto-revert-mode auto-revert-buffer-list)))
- (let ((auto-revert-buffer-list-filter
- (or auto-revert-buffer-list-filter
- 'magit-auto-revert-repository-buffer-p)))
- (auto-revert-buffers))))
-
-(defvar magit-auto-revert-toplevel nil)
-
-(when (< emacs-major-version 25)
- (defvar auto-revert-buffers-counter 1
- "Incremented each time `auto-revert-buffers' is called"))
-
-(defun magit-auto-revert-buffer-p (buffer)
- "Return t if BUFFER visits a file inside the current repository.
-The current repository is the one in which `default-directory' is
-located. If there is no current repository, then return t for
-any BUFFER."
- (magit-auto-revert-repository-buffer-p buffer t))
-
-(defun magit-auto-revert-repository-buffer-p (buffer &optional fallback)
- "Return t if BUFFER visits a file inside the current repository.
-The current repository is the one in which `default-directory' is
-located. If there is no current repository, then return FALLBACK
-\(which defaults to nil) for any BUFFER."
- ;; Call `magit-toplevel' just once per cycle.
- (unless (and magit-auto-revert-toplevel
- (= (cdr magit-auto-revert-toplevel)
- auto-revert-buffers-counter))
- (setq magit-auto-revert-toplevel
- (cons (or (magit-toplevel) 'no-repo)
- auto-revert-buffers-counter)))
- (let ((top (car magit-auto-revert-toplevel)))
- (if (eq top 'no-repo)
- fallback
- (let ((dir (with-current-buffer buffer default-directory)))
- (and (equal (file-remote-p dir)
- (file-remote-p top))
- ;; ^ `tramp-handle-file-in-directory-p' lacks this optimization.
- (file-in-directory-p dir top))))))
-
-(defun auto-revert-buffers--buffer-list-filter ()
- (when (< emacs-major-version 25)
- (cl-incf auto-revert-buffers-counter))
- (when auto-revert-buffer-list-filter
- (setq auto-revert-buffer-list
- (--filter auto-revert-buffer-list-filter
- auto-revert-buffer-list))))
-
-(advice-add 'auto-revert-buffers :before
- 'auto-revert-buffers--buffer-list-filter)
-
-;;; _
-(provide 'magit-autorevert)
-;;; magit-autorevert.el ends here
diff --git a/elpa/magit-20181116.1412/magit-autorevert.elc b/elpa/magit-20181116.1412/magit-autorevert.elc
deleted file mode 100644
index 6e5767d..0000000
--- a/elpa/magit-20181116.1412/magit-autorevert.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-bisect.el b/elpa/magit-20181116.1412/magit-bisect.el
deleted file mode 100644
index 735785b..0000000
--- a/elpa/magit-20181116.1412/magit-bisect.el
+++ /dev/null
@@ -1,217 +0,0 @@
-;;; magit-bisect.el --- bisect support for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2011-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Use a binary search to find the commit that introduced a bug.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Options
-
-(defcustom magit-bisect-show-graph t
- "Whether to use `--graph' in the log showing commits yet to be bisected."
- :package-version '(magit . "2.8.0")
- :group 'magit-status
- :type 'boolean)
-
-(defface magit-bisect-good
- '((t :foreground "DarkOliveGreen"))
- "Face for good bisect revisions."
- :group 'magit-faces)
-
-(defface magit-bisect-skip
- '((t :foreground "DarkGoldenrod"))
- "Face for skipped bisect revisions."
- :group 'magit-faces)
-
-(defface magit-bisect-bad
- '((t :foreground "IndianRed4"))
- "Face for bad bisect revisions."
- :group 'magit-faces)
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-bisect-popup "magit-bisect" nil t)
-(magit-define-popup magit-bisect-popup
- "Popup console for bisect commands."
- :man-page "git-bisect"
- :actions '((?B "Start" magit-bisect-start)
- (?s "Start script" magit-bisect-run))
- :sequence-actions '((?b "Bad" magit-bisect-bad)
- (?g "Good" magit-bisect-good)
- (?k "Skip" magit-bisect-skip)
- (?r "Reset" magit-bisect-reset)
- (?s "Run script" magit-bisect-run))
- :sequence-predicate 'magit-bisect-in-progress-p)
-
-;;;###autoload
-(defun magit-bisect-start (bad good)
- "Start a bisect session.
-
-Bisecting a bug means to find the commit that introduced it.
-This command starts such a bisect session by asking for a know
-good and a bad commit. To move the session forward use the
-other actions from the bisect popup (\
-\\<magit-status-mode-map>\\[magit-bisect-popup])."
- (interactive (if (magit-bisect-in-progress-p)
- (user-error "Already bisecting")
- (magit-bisect-start-read-args)))
- (unless (magit-rev-ancestor-p good bad)
- (user-error
- "The good revision (%s) has to be an ancestor of the bad one (%s)"
- good bad))
- (when (magit-anything-modified-p)
- (user-error "Cannot bisect with uncommitted changes"))
- (magit-git-bisect "start" (list bad good) t))
-
-(defun magit-bisect-start-read-args ()
- (let ((b (magit-read-branch-or-commit "Start bisect with bad revision")))
- (list b (magit-read-other-branch-or-commit "Good revision" b))))
-
-;;;###autoload
-(defun magit-bisect-reset ()
- "After bisecting, cleanup bisection state and return to original `HEAD'."
- (interactive)
- (magit-confirm 'reset-bisect)
- (magit-run-git "bisect" "reset")
- (ignore-errors (delete-file (magit-git-dir "BISECT_CMD_OUTPUT"))))
-
-;;;###autoload
-(defun magit-bisect-good ()
- "While bisecting, mark the current commit as good.
-Use this after you have asserted that the commit does not contain
-the bug in question."
- (interactive)
- (magit-git-bisect "good"))
-
-;;;###autoload
-(defun magit-bisect-bad ()
- "While bisecting, mark the current commit as bad.
-Use this after you have asserted that the commit does contain the
-bug in question."
- (interactive)
- (magit-git-bisect "bad"))
-
-;;;###autoload
-(defun magit-bisect-skip ()
- "While bisecting, skip the current commit.
-Use this if for some reason the current commit is not a good one
-to test. This command lets Git choose a different one."
- (interactive)
- (magit-git-bisect "skip"))
-
-;;;###autoload
-(defun magit-bisect-run (cmdline &optional bad good)
- "Bisect automatically by running commands after each step.
-
-Unlike `git bisect run' this can be used before bisecting has
-begun. In that case it behaves like `git bisect start; git
-bisect run'."
- (interactive (let ((args (and (not (magit-bisect-in-progress-p))
- (magit-bisect-start-read-args))))
- (cons (read-shell-command "Bisect shell command: ") args)))
- (when (and bad good)
- (magit-bisect-start bad good))
- (magit-git-bisect "run" (list shell-file-name shell-command-switch cmdline)))
-
-(defun magit-git-bisect (subcommand &optional args no-assert)
- (unless (or no-assert (magit-bisect-in-progress-p))
- (user-error "Not bisecting"))
- (magit-with-toplevel
- (magit-run-git-with-logfile
- (magit-git-dir "BISECT_CMD_OUTPUT") "bisect" subcommand args)))
-
-;;; Sections
-
-(defun magit-bisect-in-progress-p ()
- (file-exists-p (magit-git-dir "BISECT_LOG")))
-
-(defun magit-insert-bisect-output ()
- "While bisecting, insert section with output from `git bisect'."
- (when (magit-bisect-in-progress-p)
- (let* ((lines
- (or (magit-file-lines (magit-git-dir "BISECT_CMD_OUTPUT"))
- (list "Bisecting: (no saved bisect output)"
- "It appears you have invoked `git bisect' from a shell."
- "There is nothing wrong with that, we just cannot display"
- "anything useful here. Consult the shell output instead.")))
- (done-re "^\\([a-z0-9]\\{40\\}\\) is the first bad commit$")
- (bad-line (or (and (string-match done-re (car lines))
- (pop lines))
- (--first (string-match done-re it) lines))))
- (magit-insert-section ((eval (if bad-line 'commit 'bisect-output))
- (and bad-line (match-string 1 bad-line)))
- (magit-insert-heading
- (propertize (or bad-line (pop lines))
- 'face 'magit-section-heading))
- (dolist (line lines)
- (insert line "\n"))))
- (insert "\n")))
-
-(defun magit-insert-bisect-rest ()
- "While bisecting, insert section visualizing the bisect state."
- (when (magit-bisect-in-progress-p)
- (magit-insert-section (bisect-view)
- (magit-insert-heading "Bisect Rest:")
- (magit-git-wash (apply-partially 'magit-log-wash-log 'bisect-vis)
- "bisect" "visualize" "git" "log"
- "--format=%h%d%x00%s" "--decorate=full"
- (and magit-bisect-show-graph "--graph")))))
-
-(defun magit-insert-bisect-log ()
- "While bisecting, insert section logging bisect progress."
- (when (magit-bisect-in-progress-p)
- (magit-insert-section (bisect-log)
- (magit-insert-heading "Bisect Log:")
- (magit-git-wash #'magit-wash-bisect-log "bisect" "log")
- (insert ?\n))))
-
-(defun magit-wash-bisect-log (_args)
- (let (beg)
- (while (progn (setq beg (point-marker))
- (re-search-forward "^\\(git bisect [^\n]+\n\\)" nil t))
- (magit-bind-match-strings (heading) nil
- (magit-delete-match)
- (save-restriction
- (narrow-to-region beg (point))
- (goto-char (point-min))
- (magit-insert-section (bisect-item heading t)
- (insert (propertize heading 'face 'magit-section-secondary-heading))
- (magit-insert-heading)
- (magit-wash-sequence
- (apply-partially 'magit-log-wash-rev 'bisect-log
- (magit-abbrev-length)))
- (insert ?\n)))))
- (when (re-search-forward
- "# first bad commit: \\[\\([a-z0-9]\\{40\\}\\)\\] [^\n]+\n" nil t)
- (magit-bind-match-strings (hash) nil
- (magit-delete-match)
- (magit-insert-section (bisect-item)
- (insert hash " is the first bad commit\n"))))))
-
-;;; _
-(provide 'magit-bisect)
-;;; magit-bisect.el ends here
diff --git a/elpa/magit-20181116.1412/magit-bisect.elc b/elpa/magit-20181116.1412/magit-bisect.elc
deleted file mode 100644
index 305bc0c..0000000
--- a/elpa/magit-20181116.1412/magit-bisect.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-blame.el b/elpa/magit-20181116.1412/magit-blame.el
deleted file mode 100644
index 99351b7..0000000
--- a/elpa/magit-20181116.1412/magit-blame.el
+++ /dev/null
@@ -1,930 +0,0 @@
-;;; magit-blame.el --- blame support for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2012-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Annotates each line in file-visiting buffer with information from
-;; the revision which last modified the line.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-;;; Options
-
-(defgroup magit-blame nil
- "Blame support for Magit."
- :link '(info-link "(magit)Blaming")
- :group 'magit-modes)
-
-(defcustom magit-blame-styles
- '((headings
- (heading-format . "%-20a %C %s\n"))
- (margin
- (margin-format . (" %s%f" " %C %a" " %H"))
- (margin-width . 42)
- (margin-face . magit-blame-margin)
- (margin-body-face . (magit-blame-dimmed)))
- (highlight
- (highlight-face . magit-blame-highlight))
- (lines
- (show-lines . t)))
- "List of styles used to visualize blame information.
-
-Each entry has the form (IDENT (KEY . VALUE)...). IDENT has
-to be a symbol uniquely identifing the style. The following
-KEYs are recognized:
-
- `show-lines'
- Whether to prefix each chunk of lines with a thin line.
- This has no effect if `heading-format' is non-nil.
- `highlight-face'
- Face used to highlight the first line of each chunk.
- If this is nil, then those lines are not highlighted.
- `heading-format'
- String specifing the information to be shown above each
- chunk of lines. It must end with a newline character.
- `margin-format'
- String specifing the information to be shown in the left
- buffer margin. It must NOT end with a newline character.
- This can also be a list of formats used for the lines at
- the same positions within the chunk. If the chunk has
- more lines than formats are specified, then the last is
- repeated.
- `margin-width'
- Width of the margin, provided `margin-format' is non-nil.
- `margin-face'
- Face used in the margin, provided `margin-format' is
- non-nil. This face is used in combination with the faces
- that are specific to the used %-specs. If this is nil,
- then `magit-blame-margin' is used.
- `margin-body-face'
- Face used in the margin for all but first line of a chunk.
- This face is used in combination with the faces that are
- specific to the used %-specs. This can also be a list of
- faces (usually one face), in which case only these faces
- are used and the %-spec faces are ignored. A good value
- might be `(magit-blame-dimmed)'. If this is nil, then
- the same face as for the first line is used.
-
-The following %-specs can be used in `heading-format' and
-`margin-format':
-
- %H hash using face `magit-blame-hash'
- %s summary using face `magit-blame-summary'
- %a author using face `magit-blame-name'
- %A author time using face `magit-blame-date'
- %c committer using face `magit-blame-name'
- %C committer time using face `magit-blame-date'
-
-Additionally if `margin-format' ends with %f, then the string
-that is displayed in the margin is made at least `margin-width'
-characters wide, which may be desirable if the used face sets
-the background color.
-
-The style used in the current buffer can be cycled from the blame
-popup. Blame commands (except `magit-blame-echo') use the first
-style as the initial style when beginning to blame in a buffer."
- :package-version '(magit . "2.13.0")
- :group 'magit-blame
- :type 'string)
-
-(defcustom magit-blame-echo-style 'lines
- "The blame visualization style used by `magit-blame-echo'.
-A symbol that has to be used as the identifier for one of the
-styles defined in `magit-blame-styles'."
- :package-version '(magit . "2.13.0")
- :group 'magit-blame
- :type 'symbol)
-
-(defcustom magit-blame-time-format "%F %H:%M"
- "Format for time strings in blame headings."
- :group 'magit-blame
- :type 'string)
-
-(defcustom magit-blame-read-only t
- "Whether to initially make the blamed buffer read-only."
- :package-version '(magit . "2.13.0")
- :group 'magit-blame
- :type 'boolean)
-
-(defcustom magit-blame-disable-modes '(fci-mode yascroll-bar-mode)
- "List of modes not compatible with Magit-Blame mode.
-This modes are turned off when Magit-Blame mode is turned on,
-and then turned on again when turning off the latter."
- :group 'magit-blame
- :type '(repeat (symbol :tag "Mode")))
-
-(defcustom magit-blame-mode-lighter " Blame"
- "The mode-line lighter of the Magit-Blame mode."
- :group 'magit-blame
- :type '(choice (const :tag "No lighter" "") string))
-
-(defcustom magit-blame-goto-chunk-hook
- '(magit-blame-maybe-update-revision-buffer
- magit-blame-maybe-show-message)
- "Hook run after point entered another chunk."
- :package-version '(magit . "2.13.0")
- :group 'magit-blame
- :type 'hook
- :get 'magit-hook-custom-get
- :options '(magit-blame-maybe-update-revision-buffer
- magit-blame-maybe-show-message))
-
-;;; Faces
-
-(defface magit-blame-highlight
- '((((class color) (background light))
- :background "grey80"
- :foreground "black")
- (((class color) (background dark))
- :background "grey25"
- :foreground "white"))
- "Face used for highlighting when blaming.
-Also see option `magit-blame-styles'."
- :group 'magit-faces)
-
-(defface magit-blame-margin
- '((t :inherit magit-blame-highlight
- :weight normal
- :slant normal))
- "Face used for the blame margin by default when blaming.
-Also see option `magit-blame-styles'."
- :group 'magit-faces)
-
-(defface magit-blame-dimmed
- '((t :inherit magit-dimmed
- :weight normal
- :slant normal))
- "Face used for the blame margin in some cases when blaming.
-Also see option `magit-blame-styles'."
- :group 'magit-faces)
-
-(defface magit-blame-heading
- '((t :inherit magit-blame-highlight
- :weight normal
- :slant normal))
- "Face used for blame headings by default when blaming.
-Also see option `magit-blame-styles'."
- :group 'magit-faces)
-
-(defface magit-blame-summary nil
- "Face used for commit summaries when blaming."
- :group 'magit-faces)
-
-(defface magit-blame-hash nil
- "Face used for commit hashes when blaming."
- :group 'magit-faces)
-
-(defface magit-blame-name nil
- "Face used for author and committer names when blaming."
- :group 'magit-faces)
-
-(defface magit-blame-date nil
- "Face used for dates when blaming."
- :group 'magit-faces)
-
-;;; Chunks
-
-(defclass magit-blame-chunk ()
- (;; <orig-rev> <orig-line> <final-line> <num-lines>
- (orig-rev :initarg :orig-rev)
- (orig-line :initarg :orig-line)
- (final-line :initarg :final-line)
- (num-lines :initarg :num-lines)
- ;; previous <prev-rev> <prev-file>
- (prev-rev :initform nil)
- (prev-file :initform nil)
- ;; filename <orig-file>
- (orig-file)))
-
-(defun magit-current-blame-chunk (&optional type)
- (or (and (not (and type (not (eq type magit-blame-type))))
- (magit-blame-chunk-at (point)))
- (and type
- (let ((rev (or magit-buffer-refname magit-buffer-revision))
- (file (magit-file-relative-name nil (not magit-buffer-file-name)))
- (line (format "%i,+1" (line-number-at-pos))))
- (unless file
- (error "Buffer does not visit a tracked file"))
- (with-temp-buffer
- (magit-with-toplevel
- (magit-git-insert
- "blame" "--porcelain"
- (if (memq magit-blame-type '(final removal))
- (cons "--reverse" (magit-blame-arguments))
- (magit-blame-arguments))
- "-L" line rev "--" file)
- (goto-char (point-min))
- (car (magit-blame--parse-chunk type))))))))
-
-(defun magit-blame-chunk-at (pos)
- (--some (overlay-get it 'magit-blame-chunk)
- (overlays-at pos)))
-
-(defun magit-blame--overlay-at (&optional pos key)
- (unless pos
- (setq pos (point)))
- (--first (overlay-get it (or key 'magit-blame-chunk))
- (nconc (overlays-at pos)
- (overlays-in pos pos))))
-
-;;; Keymaps
-
-(defvar magit-blame-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map (kbd "C-c C-q") 'magit-blame-quit)
- map)
- "Keymap for `magit-blame-mode'.
-Note that most blaming key bindings are defined
-in `magit-blame-read-only-mode-map' instead.")
-
-(defvar magit-blame-read-only-mode-map
- (let ((map (make-sparse-keymap)))
- (cond ((featurep 'jkl)
- (define-key map [return] 'magit-show-commit)
- (define-key map (kbd "i") 'magit-blame-previous-chunk)
- (define-key map (kbd "I") 'magit-blame-previous-chunk-same-commit)
- (define-key map (kbd "k") 'magit-blame-next-chunk)
- (define-key map (kbd "K") 'magit-blame-next-chunk-same-commit)
- (define-key map (kbd "j") 'magit-blame-addition)
- (define-key map (kbd "l") 'magit-blame-removal)
- (define-key map (kbd "f") 'magit-blame-reverse)
- (define-key map (kbd "b") 'magit-blame-popup))
- (t
- (define-key map (kbd "C-m") 'magit-show-commit)
- (define-key map (kbd "p") 'magit-blame-previous-chunk)
- (define-key map (kbd "P") 'magit-blame-previous-chunk-same-commit)
- (define-key map (kbd "n") 'magit-blame-next-chunk)
- (define-key map (kbd "N") 'magit-blame-next-chunk-same-commit)
- (define-key map (kbd "b") 'magit-blame-addition)
- (define-key map (kbd "r") 'magit-blame-removal)
- (define-key map (kbd "f") 'magit-blame-reverse)
- (define-key map (kbd "B") 'magit-blame-popup)))
- (define-key map (kbd "c") 'magit-blame-cycle-style)
- (define-key map (kbd "q") 'magit-blame-quit)
- (define-key map (kbd "M-w") 'magit-blame-copy-hash)
- (define-key map (kbd "SPC") 'magit-diff-show-or-scroll-up)
- (define-key map (kbd "DEL") 'magit-diff-show-or-scroll-down)
- map)
- "Keymap for `magit-blame-read-only-mode'.")
-
-;;; Modes
-;;;; Variables
-
-(defvar-local magit-blame-buffer-read-only nil)
-(defvar-local magit-blame-cache nil)
-(defvar-local magit-blame-disabled-modes nil)
-(defvar-local magit-blame-process nil)
-(defvar-local magit-blame-recursive-p nil)
-(defvar-local magit-blame-type nil)
-(defvar-local magit-blame-separator nil)
-(defvar-local magit-blame-previous-chunk nil)
-
-(defvar-local magit-blame--style nil)
-
-(defsubst magit-blame--style-get (key)
- (cdr (assoc key (cdr magit-blame--style))))
-
-;;;; Base Mode
-
-(define-minor-mode magit-blame-mode
- "Display blame information inline."
- :lighter magit-blame-mode-lighter
- (cond (magit-blame-mode
- (when (called-interactively-p 'any)
- (setq magit-blame-mode nil)
- (user-error
- (concat "Don't call `magit-blame-mode' directly; "
- "instead use `magit-blame' or `magit-blame-popup'")))
- (add-hook 'after-save-hook 'magit-blame--run t t)
- (add-hook 'post-command-hook 'magit-blame-goto-chunk-hook t t)
- (add-hook 'before-revert-hook 'magit-blame--remove-overlays t t)
- (add-hook 'after-revert-hook 'magit-blame--run t t)
- (add-hook 'read-only-mode-hook 'magit-blame-toggle-read-only t t)
- (setq magit-blame-buffer-read-only buffer-read-only)
- (when (or magit-blame-read-only magit-buffer-file-name)
- (read-only-mode 1))
- (dolist (mode magit-blame-disable-modes)
- (when (and (boundp mode) (symbol-value mode))
- (funcall mode -1)
- (push mode magit-blame-disabled-modes)))
- (setq magit-blame-separator (magit-blame--format-separator))
- (unless magit-blame--style
- (setq magit-blame--style (car magit-blame-styles)))
- (magit-blame--update-margin))
- (t
- (when (process-live-p magit-blame-process)
- (kill-process magit-blame-process)
- (while magit-blame-process
- (sit-for 0.01))) ; avoid racing the sentinal
- (remove-hook 'after-save-hook 'magit-blame--run t)
- (remove-hook 'post-command-hook 'magit-blame-goto-chunk-hook t)
- (remove-hook 'before-revert-hook 'magit-blame--remove-overlays t)
- (remove-hook 'after-revert-hook 'magit-blame--run t)
- (remove-hook 'read-only-mode-hook 'magit-blame-toggle-read-only t)
- (unless magit-blame-buffer-read-only
- (read-only-mode -1))
- (magit-blame-read-only-mode -1)
- (dolist (mode magit-blame-disabled-modes)
- (funcall mode 1))
- (kill-local-variable 'magit-blame-disabled-modes)
- (kill-local-variable 'magit-blame-type)
- (kill-local-variable 'magit-blame--style)
- (magit-blame--update-margin)
- (magit-blame--remove-overlays))))
-
-(defun magit-blame-goto-chunk-hook ()
- (let ((chunk (magit-blame-chunk-at (point))))
- (when (cl-typep chunk 'magit-blame-chunk)
- (unless (eq chunk magit-blame-previous-chunk)
- (run-hooks 'magit-blame-goto-chunk-hook))
- (setq magit-blame-previous-chunk chunk))))
-
-(defun magit-blame-toggle-read-only ()
- (magit-blame-read-only-mode (if buffer-read-only 1 -1)))
-
-;;;; Read-Only Mode
-
-(define-minor-mode magit-blame-read-only-mode
- "Provide keybindings for Magit-Blame mode.
-
-This minor-mode provides the key bindings for Magit-Blame mode,
-but only when Read-Only mode is also enabled because these key
-bindings would otherwise conflict badly with regular bindings.
-
-When both Magit-Blame mode and Read-Only mode are enabled, then
-this mode gets automatically enabled too and when one of these
-modes is toggled, then this mode also gets toggled automatically.
-
-\\{magit-blame-read-only-mode-map}")
-
-;;;; Kludges
-
-(defun magit-blame-put-keymap-before-view-mode ()
- "Put `magit-blame-read-only-mode' ahead of `view-mode' in `minor-mode-map-alist'."
- (--when-let (assq 'magit-blame-read-only-mode
- (cl-member 'view-mode minor-mode-map-alist :key #'car))
- (setq minor-mode-map-alist
- (cons it (delq it minor-mode-map-alist))))
- (remove-hook 'view-mode-hook #'magit-blame-put-keymap-before-view-mode))
-
-(add-hook 'view-mode-hook #'magit-blame-put-keymap-before-view-mode)
-
-;;; Process
-
-(defun magit-blame--run ()
- (magit-with-toplevel
- (unless magit-blame-mode
- (magit-blame-mode 1))
- (message "Blaming...")
- (magit-blame-run-process
- (or magit-buffer-refname magit-buffer-revision)
- (magit-file-relative-name nil (not magit-buffer-file-name))
- (if (memq magit-blame-type '(final removal))
- (cons "--reverse" (magit-blame-arguments))
- (magit-blame-arguments))
- (list (line-number-at-pos (window-start))
- (line-number-at-pos (1- (window-end nil t)))))
- (set-process-sentinel magit-this-process
- 'magit-blame-process-quickstart-sentinel)))
-
-(defun magit-blame-run-process (revision file args &optional lines)
- (let ((process (magit-parse-git-async
- "blame" "--incremental" args
- (and lines (list "-L" (apply #'format "%s,%s" lines)))
- revision "--" file)))
- (set-process-filter process 'magit-blame-process-filter)
- (set-process-sentinel process 'magit-blame-process-sentinel)
- (process-put process 'arguments (list revision file args))
- (setq magit-blame-cache (make-hash-table :test 'equal))
- (setq magit-blame-process process)))
-
-(defun magit-blame-process-quickstart-sentinel (process event)
- (when (memq (process-status process) '(exit signal))
- (magit-blame-process-sentinel process event t)
- (magit-blame-assert-buffer process)
- (with-current-buffer (process-get process 'command-buf)
- (when magit-blame-mode
- (let ((default-directory (magit-toplevel)))
- (apply #'magit-blame-run-process
- (process-get process 'arguments)))))))
-
-(defun magit-blame-process-sentinel (process _event &optional quiet)
- (let ((status (process-status process)))
- (when (memq status '(exit signal))
- (kill-buffer (process-buffer process))
- (if (and (eq status 'exit)
- (zerop (process-exit-status process)))
- (unless quiet
- (message "Blaming...done"))
- (magit-blame-assert-buffer process)
- (with-current-buffer (process-get process 'command-buf)
- (if magit-blame-mode
- (progn (magit-blame-mode -1)
- (message "Blaming...failed"))
- (message "Blaming...aborted"))))
- (kill-local-variable 'magit-blame-process))))
-
-(defun magit-blame-process-filter (process string)
- (internal-default-process-filter process string)
- (let ((buf (process-get process 'command-buf))
- (pos (process-get process 'parsed))
- (mark (process-mark process))
- type cache)
- (with-current-buffer buf
- (setq type magit-blame-type)
- (setq cache magit-blame-cache))
- (with-current-buffer (process-buffer process)
- (goto-char pos)
- (while (and (< (point) mark)
- (save-excursion (re-search-forward "^filename .+\n" nil t)))
- (pcase-let* ((`(,chunk ,revinfo)
- (magit-blame--parse-chunk type))
- (rev (oref chunk orig-rev)))
- (if revinfo
- (puthash rev revinfo cache)
- (setq revinfo
- (or (gethash rev cache)
- (puthash rev (magit-blame--commit-alist rev) cache))))
- (magit-blame--make-overlays buf chunk revinfo))
- (process-put process 'parsed (point))))))
-
-(defun magit-blame--parse-chunk (type)
- (let (chunk revinfo)
- (looking-at "^\\(.\\{40\\}\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\)")
- (with-slots (orig-rev orig-file prev-rev prev-file)
- (setq chunk (magit-blame-chunk
- :orig-rev (match-string 1)
- :orig-line (string-to-number (match-string 2))
- :final-line (string-to-number (match-string 3))
- :num-lines (string-to-number (match-string 4))))
- (forward-line)
- (let (done)
- (while (not done)
- (cond ((looking-at "^filename \\(.+\\)")
- (setq done t)
- (setf orig-file (match-string 1)))
- ((looking-at "^previous \\(.\\{40\\}\\) \\(.+\\)")
- (setf prev-rev (match-string 1))
- (setf prev-file (match-string 2)))
- ((looking-at "^\\([^ ]+\\) \\(.+\\)")
- (push (cons (match-string 1)
- (match-string 2)) revinfo)))
- (forward-line)))
- (when (and (eq type 'removal) prev-rev)
- (cl-rotatef orig-rev prev-rev)
- (cl-rotatef orig-file prev-file)
- (setq revinfo nil)))
- (list chunk revinfo)))
-
-(defun magit-blame--commit-alist (rev)
- (cl-mapcar 'cons
- '("summary"
- "author" "author-time" "author-tz"
- "committer" "committer-time" "committer-tz")
- (split-string (magit-rev-format "%s\v%an\v%ad\v%cn\v%cd" rev
- "--date=format:%s\v%z")
- "\v")))
-
-(defun magit-blame-assert-buffer (process)
- (unless (buffer-live-p (process-get process 'command-buf))
- (kill-process process)
- (user-error "Buffer being blamed has been killed")))
-
-;;; Display
-
-(defun magit-blame--make-overlays (buf chunk revinfo)
- (with-current-buffer buf
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (forward-line (1- (oref chunk final-line)))
- (let ((beg (point))
- (end (save-excursion
- (forward-line (oref chunk num-lines))
- (point))))
- (magit-blame--remove-overlays beg end)
- (magit-blame--make-margin-overlays chunk revinfo beg end)
- (magit-blame--make-heading-overlay chunk revinfo beg end)
- (magit-blame--make-highlight-overlay chunk beg))))))
-
-(defun magit-blame--make-margin-overlays (chunk revinfo _beg end)
- (save-excursion
- (let ((line 0))
- (while (< (point) end)
- (magit-blame--make-margin-overlay chunk revinfo line)
- (forward-line)
- (cl-incf line)))))
-
-(defun magit-blame--make-margin-overlay (chunk revinfo line)
- (let* ((end (line-end-position))
- ;; If possible avoid putting this on the first character
- ;; of the line to avoid a conflict with the line overlay.
- (beg (min (1+ (line-beginning-position)) end))
- (ov (make-overlay beg end)))
- (overlay-put ov 'magit-blame-chunk chunk)
- (overlay-put ov 'magit-blame-revinfo revinfo)
- (overlay-put ov 'magit-blame-margin line)
- (magit-blame--update-margin-overlay ov)))
-
-(defun magit-blame--make-heading-overlay (chunk revinfo beg end)
- (let ((ov (make-overlay beg end)))
- (overlay-put ov 'magit-blame-chunk chunk)
- (overlay-put ov 'magit-blame-revinfo revinfo)
- (overlay-put ov 'magit-blame-heading t)
- (magit-blame--update-heading-overlay ov)))
-
-(defun magit-blame--make-highlight-overlay (chunk beg)
- (let ((ov (make-overlay beg (1+ (line-end-position)))))
- (overlay-put ov 'magit-blame-chunk chunk)
- (overlay-put ov 'magit-blame-highlight t)
- (magit-blame--update-highlight-overlay ov)))
-
-(defun magit-blame--update-margin ()
- (setq left-margin-width (or (magit-blame--style-get 'margin-width) 0))
- (set-window-buffer (selected-window) (current-buffer)))
-
-(defun magit-blame--update-overlays ()
- (save-restriction
- (widen)
- (dolist (ov (overlays-in (point-min) (point-max)))
- (cond ((overlay-get ov 'magit-blame-heading)
- (magit-blame--update-heading-overlay ov))
- ((overlay-get ov 'magit-blame-margin)
- (magit-blame--update-margin-overlay ov))
- ((overlay-get ov 'magit-blame-highlight)
- (magit-blame--update-highlight-overlay ov))))))
-
-(defun magit-blame--update-margin-overlay (ov)
- (overlay-put
- ov 'before-string
- (and (magit-blame--style-get 'margin-width)
- (propertize
- "o" 'display
- (list (list 'margin 'left-margin)
- (let ((line (overlay-get ov 'magit-blame-margin))
- (format (magit-blame--style-get 'margin-format))
- (face (magit-blame--style-get 'margin-face)))
- (magit-blame--format-string
- ov
- (or (and (atom format)
- format)
- (nth line format)
- (car (last format)))
- (or (and (not (zerop line))
- (magit-blame--style-get 'margin-body-face))
- face
- 'magit-blame-margin))))))))
-
-(defun magit-blame--update-heading-overlay (ov)
- (overlay-put
- ov 'before-string
- (--if-let (magit-blame--style-get 'heading-format)
- (magit-blame--format-string ov it 'magit-blame-heading)
- (and (magit-blame--style-get 'show-lines)
- (or (not (magit-blame--style-get 'margin-format))
- (save-excursion
- (goto-char (overlay-start ov))
- ;; Special case of the special case described in
- ;; `magit-blame--make-margin-overlay'. For empty
- ;; lines it is not possible to show both overlays
- ;; without the line being to high.
- (not (= (point) (line-end-position)))))
- magit-blame-separator))))
-
-(defun magit-blame--update-highlight-overlay (ov)
- (overlay-put ov 'face (magit-blame--style-get 'highlight-face)))
-
-(defun magit-blame--format-string (ov format face)
- (let* ((chunk (overlay-get ov 'magit-blame-chunk))
- (revinfo (overlay-get ov 'magit-blame-revinfo))
- (key (list format face))
- (string (cdr (assoc key revinfo))))
- (unless string
- (setq string
- (and format
- (magit-blame--format-string-1 (oref chunk orig-rev)
- revinfo format face)))
- (nconc revinfo (list (cons key string))))
- string))
-
-(defun magit-blame--format-string-1 (rev revinfo format face)
- (let ((str
- (if (equal rev "0000000000000000000000000000000000000000")
- (propertize (concat (if (string-prefix-p "\s" format) "\s" "")
- "Not Yet Committed"
- (if (string-suffix-p "\n" format) "\n" ""))
- 'face face)
- (magit--format-spec
- (propertize format 'face face)
- (cl-flet* ((p0 (s f)
- (propertize s 'face (if face
- (if (listp face)
- face
- (list f face))
- f)))
- (p1 (k f)
- (p0 (cdr (assoc k revinfo)) f))
- (p2 (k1 k2 f)
- (p0 (magit-blame--format-time-string
- (cdr (assoc k1 revinfo))
- (cdr (assoc k2 revinfo)))
- f)))
- `((?H . ,(p0 rev 'magit-blame-hash))
- (?s . ,(p1 "summary" 'magit-blame-summary))
- (?a . ,(p1 "author" 'magit-blame-name))
- (?c . ,(p1 "committer" 'magit-blame-name))
- (?A . ,(p2 "author-time" "author-tz" 'magit-blame-date))
- (?C . ,(p2 "committer-time" "committer-tz" 'magit-blame-date))
- (?f . "")))))))
- (if-let ((width (and (string-suffix-p "%f" format)
- (magit-blame--style-get 'margin-width))))
- (concat str
- (propertize (make-string (max 0 (- width (length str))) ?\s)
- 'face face))
- str)))
-
-(defun magit-blame--format-separator ()
- (propertize
- (concat (propertize "\s" 'display '(space :height (2)))
- (propertize "\n" 'line-height t))
- 'face (list :background
- (face-attribute 'magit-blame-heading :background nil t))))
-
-(defun magit-blame--format-time-string (time tz)
- (let* ((time-format (or (magit-blame--style-get 'time-format)
- magit-blame-time-format))
- (tz-in-second (and (not (version< emacs-version "25"))
- (string-match "%z" time-format)
- (car (last (parse-time-string tz))))))
- (format-time-string time-format
- (seconds-to-time (string-to-number time))
- tz-in-second)))
-
-(defun magit-blame--remove-overlays (&optional beg end)
- (save-restriction
- (widen)
- (dolist (ov (overlays-in (or beg (point-min))
- (or end (point-max))))
- (when (overlay-get ov 'magit-blame-chunk)
- (delete-overlay ov)))))
-
-(defun magit-blame-maybe-show-message ()
- (when (magit-blame--style-get 'show-message)
- (let ((message-log-max 0))
- (if-let ((msg (cdr (assq 'heading
- (gethash (oref (magit-current-blame-chunk)
- orig-rev)
- magit-blame-cache)))))
- (progn (setq msg (substring msg 0 -1))
- (set-text-properties 0 (length msg) nil msg)
- (message msg))
- (message "Commit data not available yet. Still blaming.")))))
-
-;;; Commands
-
-;;;###autoload
-(defun magit-blame-echo ()
- "For each line show the revision in which it was added.
-Show the information about the chunk at point in the echo area
-when moving between chunks. Unlike other blaming commands, do
-not turn on `read-only-mode'."
- (interactive)
- (when magit-buffer-file-name
- (user-error "Blob buffers aren't supported"))
- (setq-local magit-blame--style
- (assq magit-blame-echo-style magit-blame-styles))
- (setq-local magit-blame-disable-modes
- (cons 'eldoc-mode magit-blame-disable-modes))
- (if (not magit-blame-mode)
- (let ((magit-blame-read-only nil))
- (magit-blame-addition))
- (read-only-mode -1)
- (magit-blame--update-overlays)))
-
-;;;###autoload
-(defun magit-blame-addition ()
- "For each line show the revision in which it was added."
- (interactive)
- (magit-blame--pre-blame-assert 'addition)
- (magit-blame--pre-blame-setup 'addition)
- (magit-blame--run))
-
-;;;###autoload
-(defun magit-blame-removal ()
- "For each line show the revision in which it was removed."
- (interactive)
- (unless magit-buffer-file-name
- (user-error "Only blob buffers can be blamed in reverse"))
- (magit-blame--pre-blame-assert 'removal)
- (magit-blame--pre-blame-setup 'removal)
- (magit-blame--run))
-
-;;;###autoload
-(defun magit-blame-reverse ()
- "For each line show the last revision in which it still exists."
- (interactive)
- (unless magit-buffer-file-name
- (user-error "Only blob buffers can be blamed in reverse"))
- (magit-blame--pre-blame-assert 'final)
- (magit-blame--pre-blame-setup 'final)
- (magit-blame--run))
-
-(defun magit-blame--pre-blame-assert (type)
- (unless (magit-toplevel)
- (magit--not-inside-repository-error))
- (if (and magit-blame-mode
- (eq type magit-blame-type))
- (if-let ((chunk (magit-current-blame-chunk)))
- (unless (oref chunk prev-rev)
- (user-error "Chunk has no further history"))
- (user-error "Commit data not available yet. Still blaming."))
- (unless (magit-file-relative-name nil (not magit-buffer-file-name))
- (if buffer-file-name
- (user-error "Buffer isn't visiting a tracked file")
- (user-error "Buffer isn't visiting a file")))))
-
-(defun magit-blame--pre-blame-setup (type)
- (when magit-blame-mode
- (if (eq type magit-blame-type)
- (let ((style magit-blame--style))
- (magit-blame-visit-other-file)
- (setq-local magit-blame--style style)
- (setq-local magit-blame-recursive-p t)
- ;; Set window-start for the benefit of quickstart.
- (redisplay))
- (magit-blame--remove-overlays)))
- (setq magit-blame-type type))
-
-(defun magit-blame-visit-other-file ()
- "Visit another blob related to the current chunk."
- (interactive)
- (with-slots (prev-rev prev-file orig-line)
- (magit-current-blame-chunk)
- (unless prev-rev
- (user-error "Chunk has no further history"))
- (magit-with-toplevel
- (magit-find-file prev-rev prev-file))
- ;; TODO Adjust line like magit-diff-visit-file.
- (goto-char (point-min))
- (forward-line (1- orig-line))))
-
-(defun magit-blame-visit-file ()
- "Visit the blob related to the current chunk."
- (interactive)
- (with-slots (orig-rev orig-file orig-line)
- (magit-current-blame-chunk)
- (magit-with-toplevel
- (magit-find-file orig-rev orig-file))
- (goto-char (point-min))
- (forward-line (1- orig-line))))
-
-(defun magit-blame-quit ()
- "Turn off Magit-Blame mode.
-If the buffer was created during a recursive blame,
-then also kill the buffer."
- (interactive)
- (magit-blame-mode -1)
- (when magit-blame-recursive-p
- (kill-buffer)))
-
-(defun magit-blame-next-chunk ()
- "Move to the next chunk."
- (interactive)
- (--if-let (next-single-char-property-change (point) 'magit-blame-chunk)
- (goto-char it)
- (user-error "No more chunks")))
-
-(defun magit-blame-previous-chunk ()
- "Move to the previous chunk."
- (interactive)
- (--if-let (previous-single-char-property-change (point) 'magit-blame-chunk)
- (goto-char it)
- (user-error "No more chunks")))
-
-(defun magit-blame-next-chunk-same-commit (&optional previous)
- "Move to the next chunk from the same commit.\n\n(fn)"
- (interactive)
- (if-let ((rev (oref (magit-current-blame-chunk) orig-rev)))
- (let ((pos (point)) ov)
- (save-excursion
- (while (and (not ov)
- (not (= pos (if previous (point-min) (point-max))))
- (setq pos (funcall
- (if previous
- 'previous-single-char-property-change
- 'next-single-char-property-change)
- pos 'magit-blame-chunk)))
- (--when-let (magit-blame--overlay-at pos)
- (when (equal (oref (magit-blame-chunk-at pos) orig-rev) rev)
- (setq ov it)))))
- (if ov
- (goto-char (overlay-start ov))
- (user-error "No more chunks from same commit")))
- (user-error "This chunk hasn't been blamed yet")))
-
-(defun magit-blame-previous-chunk-same-commit ()
- "Move to the previous chunk from the same commit."
- (interactive)
- (magit-blame-next-chunk-same-commit 'previous-single-char-property-change))
-
-(defun magit-blame-cycle-style ()
- "Change how blame information is visualized.
-Cycle through the elements of option `magit-blame-styles'."
- (interactive)
- (setq magit-blame--style
- (or (cadr (cl-member (car magit-blame--style)
- magit-blame-styles :key #'car))
- (car magit-blame-styles)))
- (magit-blame--update-margin)
- (magit-blame--update-overlays))
-
-(defun magit-blame-copy-hash ()
- "Save hash of the current chunk's commit to the kill ring.
-
-When the region is active, then save the region's content
-instead of the hash, like `kill-ring-save' would."
- (interactive)
- (if (use-region-p)
- (copy-region-as-kill nil nil 'region)
- (kill-new (message "%s" (oref (magit-current-blame-chunk) orig-rev)))))
-
-;;; Popup
-
-;;;###autoload (autoload 'magit-blame-popup "magit-blame" nil t)
-(magit-define-popup magit-blame-popup
- "Popup console for blame commands."
- :man-page "git-blame"
- :switches '((?w "Ignore whitespace" "-w")
- (?r "Do not treat root commits as boundaries" "--root"))
- :options '((?M "Detect lines moved or copied within a file" "-M")
- (?C "Detect lines moved or copied between files" "-C"))
- :actions '("Actions"
- (?b "Show commits adding lines" magit-blame-addition)
- (?r (lambda ()
- (with-current-buffer magit-pre-popup-buffer
- (and (not buffer-file-name)
- (propertize "Show commits removing lines"
- 'face 'default))))
- magit-blame-removal)
- (?f (lambda ()
- (with-current-buffer magit-pre-popup-buffer
- (and (not buffer-file-name)
- (propertize "Show last commits that still have lines"
- 'face 'default))))
- magit-blame-reverse)
- (lambda ()
- (and (with-current-buffer magit-pre-popup-buffer
- magit-blame-mode)
- (propertize "Refresh" 'face 'magit-popup-heading)))
- (?c "Cycle style" magit-blame-cycle-style))
- :default-arguments '("-w")
- :max-action-columns 1
- :default-action 'magit-blame-addition)
-
-;;; Utilities
-
-(defun magit-blame-maybe-update-revision-buffer ()
- (unless magit--update-revision-buffer
- (setq magit--update-revision-buffer nil)
- (when-let ((chunk (magit-current-blame-chunk))
- (commit (oref chunk orig-rev))
- (buffer (magit-mode-get-buffer 'magit-revision-mode nil t)))
- (setq magit--update-revision-buffer (list commit buffer))
- (run-with-idle-timer
- magit-update-other-window-delay nil
- (lambda ()
- (pcase-let ((`(,rev ,buf) magit--update-revision-buffer))
- (setq magit--update-revision-buffer nil)
- (when (buffer-live-p buf)
- (let ((magit-display-buffer-noselect t))
- (apply #'magit-show-commit rev (magit-diff-arguments))))))))))
-
-;;; _
-(provide 'magit-blame)
-;;; magit-blame.el ends here
diff --git a/elpa/magit-20181116.1412/magit-blame.elc b/elpa/magit-20181116.1412/magit-blame.elc
deleted file mode 100644
index 1c02ee6..0000000
--- a/elpa/magit-20181116.1412/magit-blame.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-bookmark.el b/elpa/magit-20181116.1412/magit-bookmark.el
deleted file mode 100644
index 047132d..0000000
--- a/elpa/magit-20181116.1412/magit-bookmark.el
+++ /dev/null
@@ -1,371 +0,0 @@
-;;; magit-bookmark.el --- bookmark support for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Yuri Khan <yuri.v.khan@gmail.com>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Support for bookmarks for most Magit buffers.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-(require 'bookmark)
-
-;;; Supporting primitives
-
-(defun magit-bookmark--jump (bookmark fn &rest args)
- "Handle a Magit BOOKMARK.
-
-This function will:
-
-1. Bind `default-directory' to the repository root directory
- stored in the `filename' bookmark property.
-2. Invoke the function FN with ARGS as arguments. This needs to
- restore the buffer.
-3. Restore the expanded/collapsed status of top level sections
- and the point position."
- (declare (indent 2))
- (let* ((default-directory (bookmark-get-filename bookmark)))
- (if default-directory
- (apply fn args)
- (signal 'bookmark-error-no-filename (list 'stringp default-directory)))
- (when (derived-mode-p 'magit-mode)
- (when-let ((hidden-sections (bookmark-prop-get bookmark
- 'magit-hidden-sections)))
- (dolist (child (oref magit-root-section children))
- (if (member (cons (oref child type)
- (oref child value))
- hidden-sections)
- (magit-section-hide child)
- (magit-section-show child)))))
- (--when-let (bookmark-get-position bookmark)
- (goto-char it))
- (--when-let (bookmark-get-front-context-string bookmark)
- (when (search-forward it (point-max) t)
- (goto-char (match-beginning 0))))
- (--when-let (bookmark-get-rear-context-string bookmark)
- (when (search-backward it (point-min) t)
- (goto-char (match-end 0))))
- nil))
-
-(defun magit-bookmark--make-record (mode handler &optional make-props)
- "Create a Magit bookmark.
-
-MODE specifies the expected major mode of current buffer.
-
-HANDLER should be a function that will be used to restore this
-buffer.
-
-MAKE-PROPS should be either nil or a function that will be called
-with `magit-refresh-args' as the argument list, and may return an
-alist whose every element has the form (PROP . VALUE) and
-specifies additional properties to store in the bookmark."
- (declare (indent 1))
- (unless (eq major-mode mode)
- (user-error "Not in a %s buffer" mode))
- (let ((bookmark (bookmark-make-record-default 'no-file)))
- (bookmark-prop-set bookmark 'handler handler)
- (bookmark-set-filename bookmark (magit-toplevel))
- (when (derived-mode-p 'magit-mode)
- (bookmark-prop-set
- bookmark 'magit-hidden-sections
- (--map (cons (oref it type)
- (oref it value))
- (--filter (oref it hidden)
- (oref magit-root-section children)))))
- (when make-props
- (pcase-dolist (`(,prop . ,value) (apply make-props magit-refresh-args))
- (bookmark-prop-set bookmark prop value)))
- bookmark))
-
-;;; Status
-
-;;;###autoload
-(defun magit-bookmark--status-jump (bookmark)
- "Handle a Magit status BOOKMARK."
- (magit-bookmark--jump bookmark
- (lambda () (magit-status-internal default-directory))))
-
-;;;###autoload
-(defun magit-bookmark--status-make-record ()
- "Create a Magit status bookmark."
- (magit-bookmark--make-record 'magit-status-mode
- #'magit-bookmark--status-jump))
-
-;;; Refs
-
-;;;###autoload
-(defun magit-bookmark--refs-jump (bookmark)
- "Handle a Magit refs BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-show-refs
- (bookmark-prop-get bookmark 'magit-refs)
- (bookmark-prop-get bookmark 'magit-args)))
-
-;;;###autoload
-(defun magit-bookmark--refs-make-record ()
- "Create a Magit refs bookmark."
- (magit-bookmark--make-record 'magit-refs-mode
- #'magit-bookmark--refs-jump
- (lambda (refs args)
- `((magit-refs . ,refs)
- (magit-args . ,args)))))
-
-;;; Log
-
-;;;###autoload
-(defun magit-bookmark--log-jump (bookmark)
- "Handle a Magit log BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-log-other
- (bookmark-prop-get bookmark 'magit-revs)
- (bookmark-prop-get bookmark 'magit-args)
- (bookmark-prop-get bookmark 'magit-files)))
-
-(defun magit-bookmark--log-make-name (buffer-name revs _args files)
- "Generate the default name for a log bookmark."
- (concat
- buffer-name " " (mapconcat #'identity revs " ")
- (and files
- (concat " touching " (mapconcat #'identity files " ")))))
-
-;;;###autoload
-(defun magit-bookmark--log-make-record ()
- "Create a Magit log bookmark."
- (magit-bookmark--make-record 'magit-log-mode
- #'magit-bookmark--log-jump
- (lambda (revs args files)
- `((defaults . (,(magit-bookmark--log-make-name
- (buffer-name) revs args files)))
- (magit-revs . ,revs)
- (magit-args . ,args)
- (magit-files . ,files)))))
-
-;;; Reflog
-
-;;;###autoload
-(defun magit-bookmark--reflog-jump (bookmark)
- "Handle a Magit reflog BOOKMARK."
- (magit-bookmark--jump bookmark
- (lambda ()
- (let ((magit-reflog-arguments (bookmark-prop-get bookmark 'magit-args)))
- (magit-git-reflog (bookmark-prop-get bookmark 'magit-ref)
- magit-reflog-arguments)))))
-
-(defun magit-bookmark--reflog-make-name (buffer-name ref)
- "Generate the default name for a reflog bookmark."
- (concat buffer-name " " ref))
-
-;;;###autoload
-(defun magit-bookmark--reflog-make-record ()
- "Create a Magit reflog bookmark."
- (magit-bookmark--make-record 'magit-reflog-mode
- #'magit-bookmark--reflog-jump
- (lambda (ref args)
- `((defaults . (,(magit-bookmark--reflog-make-name (buffer-name) ref)))
- (magit-ref . ,ref)
- (magit-args . ,args)))))
-
-;;; Stashes
-
-;;;###autoload
-(defun magit-bookmark--stashes-jump (bookmark)
- "Handle a Magit stash list BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-stash-list))
-
-;;;###autoload
-(defun magit-bookmark--stashes-make-record ()
- "Create a Magit stash list bookmark."
- (magit-bookmark--make-record 'magit-stashes-mode
- #'magit-bookmark--stashes-jump))
-
-;;; Cherry
-
-;;;###autoload
-(defun magit-bookmark--cherry-jump (bookmark)
- "Handle a Magit cherry BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-cherry
- (bookmark-prop-get bookmark 'magit-head)
- (bookmark-prop-get bookmark 'magit-upstream)))
-
-(defun magit-bookmark--cherry-make-name (buffer-name head upstream)
- "Generate the default name for a cherry bookmark."
- (concat buffer-name " " head " upstream " upstream))
-
-;;;###autoload
-(defun magit-bookmark--cherry-make-record ()
- "Create a Magit cherry bookmark."
- (magit-bookmark--make-record 'magit-cherry-mode
- #'magit-bookmark--cherry-jump
- (lambda (upstream head)
- `((defaults . (,(magit-bookmark--cherry-make-name
- (buffer-name) head upstream)))
- (magit-head . ,head)
- (magit-upstream . ,upstream)))))
-
-;;; Diff
-
-;;;###autoload
-(defun magit-bookmark--diff-jump (bookmark)
- "Handle a Magit diff BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-diff-setup
- (bookmark-prop-get bookmark 'magit-rev-or-range)
- (bookmark-prop-get bookmark 'magit-const)
- (bookmark-prop-get bookmark 'magit-args)
- (bookmark-prop-get bookmark 'magit-files)))
-
-(defun magit-bookmark--resolve (rev-or-range)
- "Return REV-OR-RANGE with ref names resolved to commit hashes."
- (pcase (magit-git-lines "rev-parse" rev-or-range)
- (`(,rev)
- (magit-rev-abbrev rev))
- ((and `(,rev1 ,rev2)
- (guard (/= ?^ (aref rev1 0)))
- (guard (= ?^ (aref rev2 0))))
- (concat (magit-rev-abbrev (substring rev2 1))
- ".."
- (magit-rev-abbrev rev1)))
- ((and `(,rev1 ,rev2 ,rev3)
- (guard (/= ?^ (aref rev1 0)))
- (guard (/= ?^ (aref rev2 0)))
- (guard (= ?^ (aref rev3 0))))
- (ignore rev3)
- (concat (magit-rev-abbrev rev1)
- "..."
- (magit-rev-abbrev rev2)))
- (_
- rev-or-range)))
-
-(defun magit-bookmark--diff-make-name
- (buffer-name rev-or-range const _args files)
- "Generate a default name for a diff bookmark."
- (if (member "--no-index" const)
- (apply #'format "*magit-diff %s %s" files)
- (concat buffer-name " "
- (cond (rev-or-range)
- ((member "--cached" const) "staged")
- (t "unstaged"))
- (when files
- (concat " in " (mapconcat #'identity files ", "))))))
-
-;;;###autoload
-(defun magit-bookmark--diff-make-record ()
- "Create a Magit diff bookmark."
- (magit-bookmark--make-record 'magit-diff-mode
- #'magit-bookmark--diff-jump
- (lambda (rev-or-range const args files)
- (let ((resolved (magit-bookmark--resolve rev-or-range)))
- `((defaults . (,(magit-bookmark--diff-make-name
- (buffer-name) resolved const args files)))
- (magit-rev-or-range . ,resolved)
- (magit-const . ,const)
- (magit-args . ,args)
- (magit-files . ,files))))))
-
-;;; Revision
-
-;;;###autoload
-(defun magit-bookmark--revision-jump (bookmark)
- "Handle a Magit revision BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-show-commit
- (bookmark-prop-get bookmark 'magit-rev)
- (bookmark-prop-get bookmark 'args)
- (bookmark-prop-get bookmark 'files)))
-
-(defun magit-bookmark--revision-make-name (buffer-name rev _args files)
- "Generate a default name for a revision bookmark."
- (let ((subject (magit-rev-format "%s" rev)))
- (concat buffer-name " "
- (magit-rev-abbrev rev)
- (cond (files (concat " " (mapconcat #'identity files " ")))
- (subject (concat " " subject))))))
-
-;;;###autoload
-(defun magit-bookmark--revision-make-record ()
- "Create a Magit revision bookmark."
- ;; magit-refresh-args stores the revision in relative form.
- ;; For bookmarks, the exact hash is more appropriate.
- (magit-bookmark--make-record 'magit-revision-mode
- #'magit-bookmark--revision-jump
- (lambda (_rev _ args files)
- `((defaults . (,(magit-bookmark--revision-make-name
- (buffer-name) magit-buffer-revision-hash
- args files)))
- (magit-rev . ,magit-buffer-revision-hash)
- (magit-args . ,args)
- (magit-files . ,files)))))
-
-;;; Stash
-
-;;;###autoload
-(defun magit-bookmark--stash-jump (bookmark)
- "Handle a Magit stash BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-stash-show
- (bookmark-prop-get bookmark 'magit-stash)
- (bookmark-prop-get bookmark 'magit-args)
- (bookmark-prop-get bookmark 'magit-files)))
-
-(defun magit-bookmark--stash-make-name (buffer-name stash _args files)
- "Generate the default name for a stash bookmark."
- (concat buffer-name " " stash " "
- (if files
- (mapconcat #'identity files " ")
- (magit-rev-format "%s" stash))))
-
-;;;###autoload
-(defun magit-bookmark--stash-make-record ()
- "Create a Magit stash bookmark."
- (magit-bookmark--make-record 'magit-stash-mode
- #'magit-bookmark--stash-jump
- (lambda (stash _ args files)
- `((defaults . (,(magit-bookmark--stash-make-name
- (buffer-name)
- (magit-rev-abbrev magit-buffer-revision-hash)
- args files)))
- (magit-stash . ,magit-buffer-revision-hash)
- (magit-args . ,args)
- (magit-files . ,files)
- (magit-hidden-sections
- . ,(--map `(,(oref it type)
- . ,(replace-regexp-in-string (regexp-quote stash)
- magit-buffer-revision-hash
- (oref it value)))
- (--filter (oref it hidden)
- (oref magit-root-section children))))))))
-
-;;; Submodules
-
-;;;###autoload
-(defun magit-bookmark--submodules-jump (bookmark)
- "Handle a Magit submodule list BOOKMARK."
- (magit-bookmark--jump bookmark #'magit-list-submodules))
-
-;;;###autoload
-(defun magit-bookmark--submodules-make-record ()
- "Create a Magit submodule list bookmark."
- (magit-bookmark--make-record 'magit-submodule-list-mode
- #'magit-bookmark--submodules-jump))
-
-;;; _
-(provide 'magit-bookmark)
-;;; magit-bookmark.el ends here
diff --git a/elpa/magit-20181116.1412/magit-bookmark.elc b/elpa/magit-20181116.1412/magit-bookmark.elc
deleted file mode 100644
index 5b59abf..0000000
--- a/elpa/magit-20181116.1412/magit-bookmark.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-branch.el b/elpa/magit-20181116.1412/magit-branch.el
deleted file mode 100644
index 7adea0d..0000000
--- a/elpa/magit-20181116.1412/magit-branch.el
+++ /dev/null
@@ -1,1091 +0,0 @@
-;;; magit-branch.el --- branch support -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for branches. It defines popups
-;; and commands for creating, checking out, manipulating, and
-;; configuring branches. Commands defined here are mainly concerned
-;; with branches as pointers, commands that deal with what a branch
-;; points at, are defined elsewhere.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-(require 'magit-collab)
-(require 'magit-reset)
-
-;;; Options
-
-(defcustom magit-branch-read-upstream-first t
- "Whether to read upstream before name of new branch when creating a branch.
-
-`nil' Read the branch name first.
-`t' Read the upstream first.
-`fallback' Read the upstream first, but if it turns out that the chosen
- value is not a valid upstream (because it cannot be resolved
- as an existing revision), then treat it as the name of the
- new branch and continue by reading the upstream next."
- :package-version '(magit . "2.2.0")
- :group 'magit-commands
- :type '(choice (const :tag "read branch name first" nil)
- (const :tag "read upstream first" t)
- (const :tag "read upstream first, with fallback" fallback)))
-
-(defcustom magit-branch-prefer-remote-upstream nil
- "Whether to favor remote upstreams when creating new branches.
-
-When a new branch is created, then the branch, commit, or stash
-at point is suggested as the default starting point of the new
-branch, or if there is no such revision at point the current
-branch. In either case the user may choose another starting
-point.
-
-If the chosen starting point is a branch, then it may also be set
-as the upstream of the new branch, depending on the value of the
-Git variable `branch.autoSetupMerge'. By default this is done
-for remote branches, but not for local branches.
-
-You might prefer to always use some remote branch as upstream.
-If the chosen starting point is (1) a local branch, (2) whose
-name matches a member of the value of this option, (3) the
-upstream of that local branch is a remote branch with the same
-name, and (4) that remote branch can be fast-forwarded to the
-local branch, then the chosen branch is used as starting point,
-but its own upstream is used as the upstream of the new branch.
-
-Members of this option's value are treated as branch names that
-have to match exactly unless they contain a character that makes
-them invalid as a branch name. Recommended characters to use
-to trigger interpretation as a regexp are \"*\" and \"^\". Some
-other characters which you might expect to be invalid, actually
-are not, e.g. \".+$\" are all perfectly valid. More precisely,
-if `git check-ref-format --branch STRING' exits with a non-zero
-status, then treat STRING as a regexp.
-
-Assuming the chosen branch matches these conditions you would end
-up with with e.g.:
-
- feature --upstream--> origin/master
-
-instead of
-
- feature --upstream--> master --upstream--> origin/master
-
-Which you prefer is a matter of personal preference. If you do
-prefer the former, then you should add branches such as \"master\",
-\"next\", and \"maint\" to the value of this options."
- :package-version '(magit . "2.4.0")
- :group 'magit-commands
- :type '(repeat string))
-
-(defcustom magit-branch-adjust-remote-upstream-alist nil
- "Alist of upstreams to be used when branching from remote branches.
-
-When creating a local branch from an ephemeral branch located
-on a remote, e.g. a feature or hotfix branch, then that remote
-branch should usually not be used as the upstream branch, since
-the push-remote already allows accessing it and having both the
-upstream and the push-remote reference the same related branch
-would be wasteful. Instead a branch like \"maint\" or \"master\"
-should be used as the upstream.
-
-This option allows specifing the branch that should be used as
-the upstream when branching certain remote branches. The value
-is an alist of the form ((UPSTREAM . RULE)...). The first
-matching element is used, the following elements are ignored.
-
-UPSTREAM is the branch to be used as the upstream for branches
-specified by RULE. It can be a local or a remote branch.
-
-RULE can either be a regular expression, matching branches whose
-upstream should be the one specified by UPSTREAM. Or it can be
-a list of the only branches that should *not* use UPSTREAM; all
-other branches will. Matching is done after stripping the remote
-part of the name of the branch that is being branched from.
-
-If you use a finite set of non-ephemeral branches across all your
-repositories, then you might use something like:
-
- ((\"origin/master\" \"master\" \"next\" \"maint\"))
-
-Or if the names of all your ephemeral branches contain a slash,
-at least in some repositories, then a good value could be:
-
- ((\"origin/master\" . \"/\"))
-
-Of course you can also fine-tune:
-
- ((\"origin/maint\" . \"\\\\\\=`hotfix/\")
- (\"origin/master\" . \"\\\\\\=`feature/\"))
-
-If you use remote branches as UPSTREAM, then you might also want
-to set `magit-branch-prefer-remote-upstream' to a non-nil value.
-However, I recommend that you use local branches as UPSTREAM."
- :package-version '(magit . "2.9.0")
- :group 'magit-commands
- :type '(repeat (cons (string :tag "Use upstream")
- (choice :tag "for branches"
- (regexp :tag "matching")
- (repeat :tag "except"
- (string :tag "branch"))))))
-
-(defcustom magit-branch-rename-push-target t
- "Whether the push-remote setup is preserved when renaming a branch.
-
-The command `magit-branch-rename' renames a branch named OLD to
-NEW. This option controls how much of the push-remote setup is
-preserved when doing so.
-
-When nil, then preserve nothing and unset `branch.OLD.pushRemote'.
-
-When `local-only', then first set `branch.NEW.pushRemote' to the
- same value as `branch.OLD.pushRemote', provided the latter is
- actually set and unless the former already has another value.
-
-When t, then rename the branch named OLD on the remote specified
- by `branch.OLD.pushRemote' to NEW, provided OLD exists on that
- remote and unless NEW already exists on the remote.
-
-When `forge-only' and the `forge' package is available, then
- behave like `t' if the remote points to a repository on a forge
- (currently Github or Gitlab), otherwise like `local-only'.
-
-Another supported but obsolete value is `github-only'. It is a
- misnomer because it now treated as an alias for `forge-only'."
- :package-version '(magit . "2.90.0")
- :group 'magit-commands
- :type '(choice
- (const :tag "Don't preserve push-remote setup" nil)
- (const :tag "Preserve push-remote setup" local-only)
- (const :tag "... and rename corresponding branch on remote" t)
- (const :tag "... but only if remote is on a forge" forge-only)))
-
-(defcustom magit-branch-popup-show-variables t
- "Whether the `magit-branch-popup' shows Git variables.
-This defaults to t to avoid changing key bindings. When set to
-nil, no variables are displayed directly in this popup, instead
-the sub-popup `magit-branch-config-popup' has to be used to view
-and change branch related variables."
- :package-version '(magit . "2.7.0")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-published-branches '("origin/master")
- "List of branches that are considered to be published."
- :package-version '(magit . "2.13.0")
- :group 'magit-commands
- :type '(repeat string))
-
-;;; Branch Popup
-
-(defvar magit-branch-config-variables)
-
-;;;###autoload (autoload 'magit-branch-popup "magit" nil t)
-(magit-define-popup magit-branch-popup
- "Popup console for branch commands."
- :man-page "git-branch"
- :variables (lambda ()
- (and magit-branch-popup-show-variables
- magit-branch-config-variables))
- :actions `((?b "Checkout" magit-checkout) nil
- (?C "Configure..." magit-branch-config-popup)
- (?l "Checkout local branch" magit-branch-checkout)
- (?s "Create new spin-off" magit-branch-spinoff)
- (?m "Rename" magit-branch-rename)
- (?c "Checkout new branch" magit-branch-and-checkout)
- (?n "Create new branch" magit-branch-create)
- (?x "Reset" magit-branch-reset)
- (?w "Checkout new worktree" magit-worktree-checkout)
- (?W "Create new worktree" magit-worktree-branch)
- (?k "Delete" magit-branch-delete)
- ,@(and (not (require (quote forge) nil t))
- '((?y "Checkout pull-request" magit-checkout-pull-request)
- (?Y "Create from pull-request" magit-branch-pull-request))))
- :default-action 'magit-checkout
- :max-action-columns 3
- :setup-function 'magit-branch-popup-setup)
-
-(defun magit-branch-popup-setup (val def)
- (magit-popup-default-setup val def)
- (use-local-map (copy-keymap magit-popup-mode-map))
- (dolist (ev (-filter #'magit-popup-event-p (magit-popup-get :variables)))
- (local-set-key (vector (magit-popup-event-key ev))
- 'magit-invoke-popup-action)))
-
-;;; Branch Commands
-
-;;;###autoload
-(defun magit-checkout (revision)
- "Checkout REVISION, updating the index and the working tree.
-If REVISION is a local branch, then that becomes the current
-branch. If it is something else, then `HEAD' becomes detached.
-Checkout fails if the working tree or the staging area contain
-changes.
-\n(git checkout REVISION)."
- (interactive (list (magit-read-other-branch-or-commit "Checkout")))
- (when (string-match "\\`heads/\\(.+\\)" revision)
- (setq revision (match-string 1 revision)))
- (magit-run-git "checkout" revision))
-
-;;;###autoload
-(defun magit-branch-create (branch start-point &optional args)
- "Create BRANCH at branch or revision START-POINT.
-\n(git branch [ARGS] BRANCH START-POINT)."
- (interactive (magit-branch-read-args "Create branch"))
- (magit-call-git "branch" args branch start-point)
- (magit-branch-maybe-adjust-upstream branch start-point)
- (magit-refresh))
-
-;;;###autoload
-(defun magit-branch-and-checkout (branch start-point &optional args)
- "Create and checkout BRANCH at branch or revision START-POINT.
-\n(git checkout [ARGS] -b BRANCH START-POINT)."
- (interactive (magit-branch-read-args "Create and checkout branch"))
- (if (string-match-p "^stash@{[0-9]+}$" start-point)
- (magit-run-git "stash" "branch" branch start-point)
- (magit-call-git "checkout" args "-b" branch start-point)
- (magit-branch-maybe-adjust-upstream branch start-point)
- (magit-refresh)))
-
-;;;###autoload
-(defun magit-branch-or-checkout (arg &optional start-point)
- "Hybrid between `magit-checkout' and `magit-branch-and-checkout'.
-
-Ask the user for an existing branch or revision. If the user
-input actually can be resolved as a branch or revision, then
-check that out, just like `magit-checkout' would.
-
-Otherwise create and checkout a new branch using the input as
-its name. Before doing so read the starting-point for the new
-branch. This is similar to what `magit-branch-and-checkout'
-does."
- (interactive
- (let ((arg (magit-read-other-branch-or-commit "Checkout")))
- (list arg
- (and (not (magit-rev-verify-commit arg))
- (magit-read-starting-point "Create and checkout branch" arg)))))
- (when (string-match "\\`heads/\\(.+\\)" arg)
- (setq arg (match-string 1 arg)))
- (if start-point
- (magit-branch-and-checkout arg start-point (magit-branch-arguments))
- (magit-checkout arg)))
-
-;;;###autoload
-(defun magit-branch-checkout (branch &optional start-point)
- "Checkout an existing or new local branch.
-
-Read a branch name from the user offering all local branches and
-a subset of remote branches as candidates. Omit remote branches
-for which a local branch by the same name exists from the list
-of candidates. The user can also enter a completely new branch
-name.
-
-- If the user selects an existing local branch, then check that
- out.
-
-- If the user selects a remote branch, then create and checkout
- a new local branch with the same name. Configure the selected
- remote branch as push target.
-
-- If the user enters a new branch name, then create and check
- that out, after also reading the starting-point from the user.
-
-In the latter two cases the upstream is also set. Whether it is
-set to the chosen START-POINT or something else depends on the
-value of `magit-branch-adjust-remote-upstream-alist', just like
-when using `magit-branch-and-checkout'."
- (interactive
- (let* ((current (magit-get-current-branch))
- (local (magit-list-local-branch-names))
- (remote (--filter (and (string-match "[^/]+/" it)
- (not (member (substring it (match-end 0))
- (cons "HEAD" local))))
- (magit-list-remote-branch-names)))
- (choices (nconc (delete current local) remote))
- (atpoint (magit-branch-at-point))
- (choice (magit-completing-read
- "Checkout branch" choices
- nil nil nil 'magit-revision-history
- (or (car (member atpoint choices))
- (and atpoint
- (car (member (and (string-match "[^/]+/" atpoint)
- (substring atpoint (match-end 0)))
- choices)))))))
- (cond ((member choice remote)
- (list (and (string-match "[^/]+/" choice)
- (substring choice (match-end 0)))
- choice))
- ((member choice local)
- (list choice))
- (t
- (list choice (magit-read-starting-point "Create" choice))))))
- (if (not start-point)
- (magit-checkout branch)
- (when (magit-anything-modified-p)
- (user-error "Cannot checkout when there are uncommitted changes"))
- (magit-branch-and-checkout branch start-point (magit-branch-arguments))
- (when (magit-remote-branch-p start-point)
- (pcase-let ((`(,remote . ,remote-branch)
- (magit-split-branch-name start-point)))
- (when (and (equal branch remote-branch)
- (not (equal remote (magit-get "remote.pushDefault"))))
- (magit-set remote "branch" branch "pushRemote"))))))
-
-(defun magit-branch-maybe-adjust-upstream (branch start-point)
- (--when-let
- (or (and (magit-get-upstream-branch branch)
- (magit-get-indirect-upstream-branch start-point))
- (and (magit-remote-branch-p start-point)
- (let ((name (cdr (magit-split-branch-name start-point))))
- (car (--first (if (listp (cdr it))
- (not (member name (cdr it)))
- (string-match-p (cdr it) name))
- magit-branch-adjust-remote-upstream-alist)))))
- (magit-call-git "branch" (concat "--set-upstream-to=" it) branch)))
-
-;;;###autoload
-(defun magit-branch-orphan (branch start-point &optional args)
- "Create and checkout an orphan BRANCH with contents from revision START-POINT.
-\n(git checkout --orphan [ARGS] BRANCH START-POINT)."
- (interactive (magit-branch-read-args "Create and checkout orphan branch"))
- (magit-run-git "checkout" "--orphan" args branch start-point))
-
-;;;###autoload
-(defun magit-branch-pull-request (pr)
- "Create and configure a new branch from a pull-request.
-Please see the manual for more information."
- (interactive (list (magit-read-pull-request "Branch pull request")))
- (let-alist pr
- (let* ((upstream (or (--first (magit--github-url-equal
- (magit-get "remote" it "url")
- .base.repo.ssh_url)
- (magit-list-remotes))
- (user-error
- "Upstream repository %s not available as a remote"
- .base.repo.ssh_url)))
- (upstream-url (magit-get "remote" upstream "url"))
- (remote .head.repo.owner.login)
- (branch (magit--pullreq-branch pr t))
- (pr-branch .head.ref))
- (if (magit--pullreq-from-upstream-p pr)
- (let ((tracking (concat upstream "/" pr-branch)))
- (unless (magit-branch-p tracking)
- (magit-call-git "fetch" upstream))
- (let ((inhibit-magit-refresh t))
- (magit-branch-create branch tracking))
- (magit-set upstream "branch" branch "pushRemote")
- (magit-set upstream "branch" branch "pullRequestRemote"))
- (if (magit-remote-p remote)
- (let ((url (magit-get "remote" remote "url"))
- (fetch (magit-get-all "remote" remote "fetch")))
- (unless (magit--github-url-equal url .head.repo.ssh_url)
- (user-error
- "Remote `%s' already exists but does not point to %s"
- remote url))
- (unless (member (format "+refs/heads/*:refs/remotes/%s/*" remote)
- fetch)
- (magit-call-git "remote" "set-branches"
- "--add" remote pr-branch)
- (magit-call-git "fetch" remote)))
- (magit-call-git
- "remote" "add" "-f" "--no-tags"
- "-t" pr-branch remote
- (cond ((or (string-prefix-p "git@" upstream-url)
- (string-prefix-p "ssh://git@" upstream-url))
- .head.repo.ssh_url)
- ((string-prefix-p "https://" upstream-url)
- .head.repo.clone_url)
- ((string-prefix-p "git://" upstream-url)
- .head.repo.git_url)
- (t (error "%s has an unexpected format" upstream-url)))))
- (magit-call-git "branch" branch (concat remote "/" pr-branch))
- (if (or .locked (not (equal branch pr-branch)))
- (magit-set upstream "branch" branch "pushRemote")
- (magit-set remote "branch" branch "pushRemote"))
- (magit-set remote "branch" branch "pullRequestRemote"))
- (magit-set "true" "branch" branch "rebase")
- (magit-call-git "branch" branch
- (concat "--set-upstream-to="
- (if magit-branch-prefer-remote-upstream
- (concat upstream "/" .base.ref)
- .base.ref)))
- (magit-set (number-to-string .number) "branch" branch "pullRequest")
- (magit-set .title "branch" branch "description")
- (magit-refresh)
- branch)))
-
-(defun magit-checkout-pull-request (pr)
- "Create, configure and checkout a new branch from a pull-request.
-Please see the manual for more information."
- (interactive (list (magit-read-pull-request "Checkout pull request")))
- (magit-checkout
- (let ((inhibit-magit-refresh t))
- (magit-branch-pull-request pr))))
-
-(defun magit-branch-read-args (prompt)
- (let ((args (magit-branch-arguments)))
- (if magit-branch-read-upstream-first
- (let ((choice (magit-read-starting-point prompt)))
- (if (magit-rev-verify choice)
- (list (magit-read-string-ns
- (if magit-completing-read--silent-default
- (format "%s (starting at `%s')" prompt choice)
- "Name for new branch")
- (let ((def (mapconcat #'identity
- (cdr (split-string choice "/"))
- "/")))
- (and (member choice (magit-list-remote-branch-names))
- (not (member def (magit-list-local-branch-names)))
- def)))
- choice args)
- (if (eq magit-branch-read-upstream-first 'fallback)
- (list choice (magit-read-starting-point prompt choice) args)
- (user-error "Not a valid starting-point: %s" choice))))
- (let ((branch (magit-read-string-ns (concat prompt " named"))))
- (list branch
- (magit-read-starting-point prompt branch)
- args)))))
-
-;;;###autoload
-(defun magit-branch-spinoff (branch &optional from &rest args)
- "Create new branch from the unpushed commits.
-
-Create and checkout a new branch starting at and tracking the
-current branch. That branch in turn is reset to the last commit
-it shares with its upstream. If the current branch has no
-upstream or no unpushed commits, then the new branch is created
-anyway and the previously current branch is not touched.
-
-This is useful to create a feature branch after work has already
-began on the old branch (likely but not necessarily \"master\").
-
-If the current branch is a member of the value of option
-`magit-branch-prefer-remote-upstream' (which see), then the
-current branch will be used as the starting point as usual, but
-the upstream of the starting-point may be used as the upstream
-of the new branch, instead of the starting-point itself.
-
-If optional FROM is non-nil, then the source branch is reset
-to `FROM~', instead of to the last commit it shares with its
-upstream. Interactively, FROM is only ever non-nil, if the
-region selects some commits, and among those commits, FROM is
-the commit that is the fewest commits ahead of the source
-branch.
-
-The commit at the other end of the selection actually does not
-matter, all commits between FROM and `HEAD' are moved to the new
-branch. If FROM is not reachable from `HEAD' or is reachable
-from the source branch's upstream, then an error is raised."
- (interactive (list (magit-read-string-ns "Spin off branch")
- (car (last (magit-region-values 'commit)))
- (magit-branch-arguments)))
- (when (magit-branch-p branch)
- (user-error "Cannot spin off %s. It already exists" branch))
- (if-let ((current (magit-get-current-branch)))
- (let ((tracked (magit-get-upstream-branch current))
- base)
- (when from
- (unless (magit-rev-ancestor-p from current)
- (user-error "Cannot spin off %s. %s is not reachable from %s"
- branch from current))
- (when (and tracked
- (magit-rev-ancestor-p from tracked))
- (user-error "Cannot spin off %s. %s is ancestor of upstream %s"
- branch from tracked)))
- (let ((magit-process-raise-error t))
- (magit-call-git "checkout" args "-b" branch current))
- (--when-let (magit-get-indirect-upstream-branch current)
- (magit-call-git "branch" "--set-upstream-to" it branch))
- (when (and tracked
- (setq base
- (if from
- (concat from "^")
- (magit-git-string "merge-base" current tracked)))
- (not (magit-rev-eq base current)))
- (magit-call-git "update-ref" "-m"
- (format "reset: moving to %s" base)
- (concat "refs/heads/" current) base))
- (magit-refresh))
- (magit-run-git "checkout" "-b" branch)))
-
-;;;###autoload
-(defun magit-branch-reset (branch to &optional args set-upstream)
- "Reset a branch to the tip of another branch or any other commit.
-
-When the branch being reset is the current branch, then do a
-hard reset. If there are any uncommitted changes, then the user
-has to confirm the reset because those changes would be lost.
-
-This is useful when you have started work on a feature branch but
-realize it's all crap and want to start over.
-
-When resetting to another branch and a prefix argument is used,
-then also set the target branch as the upstream of the branch
-that is being reset."
- (interactive
- (let* ((atpoint (magit-local-branch-at-point))
- (branch (magit-read-local-branch "Reset branch" atpoint)))
- (list branch
- (magit-completing-read (format "Reset %s to" branch)
- (delete branch (magit-list-branch-names))
- nil nil nil 'magit-revision-history
- (or (and (not (equal branch atpoint)) atpoint)
- (magit-get-upstream-branch branch)))
- (magit-branch-arguments)
- current-prefix-arg)))
- (unless (member "--force" args)
- (setq args (cons "--force" args)))
- (if (equal branch (magit-get-current-branch))
- (if (and (magit-anything-modified-p)
- (not (yes-or-no-p "Uncommitted changes will be lost. Proceed? ")))
- (user-error "Abort")
- (magit-reset-hard to)
- (when (and set-upstream (magit-branch-p to))
- (magit-set-upstream-branch branch to)))
- (magit-branch-create branch to args)))
-
-;;;###autoload
-(defun magit-branch-delete (branches &optional force)
- "Delete one or multiple branches.
-If the region marks multiple branches, then offer to delete
-those, otherwise prompt for a single branch to be deleted,
-defaulting to the branch at point."
- ;; One would expect this to be a command as simple as, for example,
- ;; `magit-branch-rename'; but it turns out everyone wants to squeeze
- ;; a bit of extra functionality into this one, including myself.
- (interactive
- (let ((branches (magit-region-values 'branch t))
- (force current-prefix-arg))
- (if (> (length branches) 1)
- (magit-confirm t nil "Delete %i branches" nil branches)
- (setq branches
- (list (magit-read-branch-prefer-other
- (if force "Force delete branch" "Delete branch")))))
- (unless force
- (when-let ((unmerged (-remove #'magit-branch-merged-p branches)))
- (if (magit-confirm 'delete-unmerged-branch
- "Delete unmerged branch %s"
- "Delete %i unmerged branches"
- 'noabort unmerged)
- (setq force branches)
- (or (setq branches (-difference branches unmerged))
- (user-error "Abort")))))
- (list branches force)))
- (let* ((refs (mapcar #'magit-ref-fullname branches))
- (ambiguous (--remove it refs)))
- (when ambiguous
- (user-error
- "%s ambiguous. Please cleanup using git directly."
- (let ((len (length ambiguous)))
- (cond
- ((= len 1)
- (format "%s is" (-first #'magit-ref-ambiguous-p branches)))
- ((= len (length refs))
- (format "These %s names are" len))
- (t
- (format "%s of these names are" len))))))
- (cond
- ((string-match "^refs/remotes/\\([^/]+\\)" (car refs))
- (let* ((remote (match-string 1 (car refs)))
- (offset (1+ (length remote))))
- ;; Assume the branches actually still exists on the remote.
- (magit-run-git-async
- "push" remote (--map (concat ":" (substring it offset)) branches))
- ;; If that is not the case, then this deletes the tracking branches.
- (set-process-sentinel
- magit-this-process
- (apply-partially 'magit-delete-remote-branch-sentinel refs))))
- ((> (length branches) 1)
- (setq branches (delete (magit-get-current-branch) branches))
- (mapc 'magit-branch-maybe-delete-pr-remote branches)
- (mapc 'magit-branch-unset-pushRemote branches)
- (magit-run-git "branch" (if force "-D" "-d") branches))
- (t ; And now for something completely different.
- (let* ((branch (car branches))
- (prompt (format "Branch %s is checked out. " branch)))
- (when (equal branch (magit-get-current-branch))
- (pcase (if (or (equal branch "master")
- (not (magit-rev-verify "master")))
- (magit-read-char-case prompt nil
- (?d "[d]etach HEAD & delete" 'detach)
- (?a "[a]bort" 'abort))
- (magit-read-char-case prompt nil
- (?d "[d]etach HEAD & delete" 'detach)
- (?c "[c]heckout master & delete" 'master)
- (?a "[a]bort" 'abort)))
- (`detach (unless (or (equal force '(4))
- (member branch force)
- (magit-branch-merged-p branch t))
- (magit-confirm 'delete-unmerged-branch
- "Delete unmerged branch %s" ""
- nil (list branch)))
- (magit-call-git "checkout" "--detach"))
- (`master (unless (or (equal force '(4))
- (member branch force)
- (magit-branch-merged-p branch "master"))
- (magit-confirm 'delete-unmerged-branch
- "Delete unmerged branch %s" ""
- nil (list branch)))
- (magit-call-git "checkout" "master"))
- (`abort (user-error "Abort")))
- (setq force t))
- (magit-branch-maybe-delete-pr-remote branch)
- (magit-branch-unset-pushRemote branch)
- (magit-run-git "branch" (if force "-D" "-d") branch))))))
-
-(put 'magit-branch-delete 'interactive-only t)
-
-(defun magit-branch-maybe-delete-pr-remote (branch)
- (when-let ((remote (magit-get "branch" branch "pullRequestRemote")))
- (let* ((variable (format "remote.%s.fetch" remote))
- (refspecs (magit-get-all variable)))
- (unless (member (format "+refs/heads/*:refs/remotes/%s/*" remote)
- refspecs)
- (let ((refspec
- (if (equal (magit-get "branch" branch "pushRemote") remote)
- (format "+refs/heads/%s:refs/remotes/%s/%s"
- branch remote branch)
- (let ((merge (magit-get "branch" branch "merge")))
- (and merge
- (string-prefix-p "refs/heads/" merge)
- (setq merge (substring merge 11))
- (format "+refs/heads/%s:refs/remotes/%s/%s"
- merge remote merge))))))
- (when (member refspec refspecs)
- (if (and (= (length refspecs) 1)
- (magit-confirm 'delete-pr-remote
- (format "Also delete remote %s (%s)" remote
- "no pull-request branch remains")))
- (magit-call-git "remote" "rm" remote)
- (magit-call-git "config" "--unset" variable
- (regexp-quote refspec)))))))))
-
-(defun magit-branch-unset-pushRemote (branch)
- (magit-set nil "branch" branch "pushRemote"))
-
-(defun magit-delete-remote-branch-sentinel (refs process event)
- (when (memq (process-status process) '(exit signal))
- (if (= (process-exit-status process) 0)
- (magit-process-sentinel process event)
- (if-let ((rest (-filter #'magit-ref-exists-p refs)))
- (progn
- (process-put process 'inhibit-refresh t)
- (magit-process-sentinel process event)
- (setq magit-this-error nil)
- (message "Some remote branches no longer exist. %s"
- "Deleting just the local tracking refs instead...")
- (dolist (ref rest)
- (magit-call-git "update-ref" "-d" ref))
- (magit-refresh)
- (message "Deleting local remote-tracking refs...done"))
- (magit-process-sentinel process event)))))
-
-;;;###autoload
-(defun magit-branch-rename (old new &optional force)
- "Rename the branch named OLD to NEW.
-
-With a prefix argument FORCE, rename even if a branch named NEW
-already exists.
-
-If `branch.OLD.pushRemote' is set, then unset it. Depending on
-the value of `magit-branch-rename-push-target' (which see) maybe
-set `branch.NEW.pushRemote' and maybe rename the push-target on
-the remote."
- (interactive
- (let ((branch (magit-read-local-branch "Rename branch")))
- (list branch
- (magit-read-string-ns (format "Rename branch '%s' to" branch)
- nil 'magit-revision-history)
- current-prefix-arg)))
- (when (string-match "\\`heads/\\(.+\\)" old)
- (setq old (match-string 1 old)))
- (when (equal old new)
- (user-error "Old and new branch names are the same"))
- (magit-call-git "branch" (if force "-M" "-m") old new)
- (when magit-branch-rename-push-target
- (let ((remote (magit-get-push-remote old))
- (old-specific (magit-get "branch" old "pushRemote"))
- (new-specific (magit-get "branch" new "pushRemote")))
- (when (and old-specific (or force (not new-specific)))
- ;; Keep the target setting branch specific, even if that is
- ;; redundant. But if a branch by the same name existed before
- ;; and the rename isn't forced, then do not change a leftover
- ;; setting. Such a leftover setting may or may not conform to
- ;; what we expect here...
- (magit-set old-specific "branch" new "pushRemote"))
- (when (and (equal (magit-get-push-remote new) remote)
- ;; ...and if it does not, then we must abort.
- (not (eq magit-branch-rename-push-target 'local-only))
- (or (not (memq magit-branch-rename-push-target
- '(forge-only github-only)))
- (and (require (quote forge) nil t)
- (fboundp 'forge--forge-remote-p)
- (forge--forge-remote-p remote))))
- (let ((old-target (magit-get-push-branch old t))
- (new-target (magit-get-push-branch new t))
- (remote (magit-get-push-remote new)))
- (when (and old-target
- (not new-target)
- (magit-y-or-n-p (format "Also rename %S to %S on %S"
- old new remote)))
- ;; Rename on (i.e. within) the remote, but only if the
- ;; destination ref doesn't exist yet. If that ref already
- ;; exists, then it probably is of some value and we better
- ;; not touch it. Ignore what the local ref points at,
- ;; i.e. if the local and the remote ref didn't point at
- ;; the same commit before the rename then keep it that way.
- (magit-call-git "push" "-v" remote
- (format "%s:refs/heads/%s" old-target new)
- (format ":refs/heads/%s" old)))))))
- (magit-branch-unset-pushRemote old)
- (magit-refresh))
-
-;;;###autoload
-(defun magit-branch-shelve (branch)
- "Shelve a BRANCH.
-Rename \"refs/heads/BRANCH\" to \"refs/shelved/BRANCH\",
-and also rename the respective reflog file."
- (interactive (list (magit-read-other-local-branch "Shelve branch")))
- (let ((old (concat "refs/heads/" branch))
- (new (concat "refs/shelved/" branch)))
- (magit-git "update-ref" new old "")
- (magit--rename-reflog-file old new)
- (magit-branch-unset-pushRemote branch)
- (magit-run-git "branch" "-D" branch)))
-
-;;;###autoload
-(defun magit-branch-unshelve (branch)
- "Unshelve a BRANCH
-Rename \"refs/shelved/BRANCH\" to \"refs/heads/BRANCH\",
-and also rename the respective reflog file."
- (interactive
- (list (magit-completing-read
- "Unshelve branch"
- (--map (substring it 8)
- (magit-list-refnames "refs/shelved"))
- nil t)))
- (let ((old (concat "refs/shelved/" branch))
- (new (concat "refs/heads/" branch)))
- (magit-git "update-ref" new old "")
- (magit--rename-reflog-file old new)
- (magit-run-git "update-ref" "-d" old)))
-
-(defun magit--rename-reflog-file (old new)
- (let ((old (magit-git-dir (concat "logs/" old)))
- (new (magit-git-dir (concat "logs/" new))))
- (when (file-exists-p old)
- (make-directory (file-name-directory new) t)
- (rename-file old new t))))
-
-;;; Config Popup
-
-(defvar magit-branch-config-branch nil)
-
-;;;###autoload
-(defun magit-branch-config-popup (branch)
- "Popup console for setting branch variables."
- (interactive
- (list (if (or current-prefix-arg
- (and (eq magit-current-popup 'magit-branch-popup)
- magit-branch-popup-show-variables))
- (magit-read-local-branch "Configure branch")
- (magit-get-current-branch))))
- (let ((magit-branch-config-branch branch))
- (magit-invoke-popup 'magit-branch-config-popup nil nil)))
-
-(defvar magit-branch-config-variables
- '((lambda ()
- (concat
- (propertize "Configure " 'face 'magit-popup-heading)
- (propertize (magit-branch-config-branch) 'face 'magit-branch-local)))
- (?d "branch.%s.description"
- magit-edit-branch*description
- magit-format-branch*description)
- (?u "branch.%s.merge"
- magit-set-branch*merge/remote
- magit-format-branch*merge/remote)
- (?r "branch.%s.rebase"
- magit-cycle-branch*rebase
- magit-format-branch*rebase)
- (?p "branch.%s.pushRemote"
- magit-cycle-branch*pushRemote
- magit-format-branch*pushRemote)
- "Configure repository defaults"
- (?\M-r "pull.rebase"
- magit-cycle-pull.rebase
- magit-format-pull.rebase)
- (?\M-p "remote.pushDefault"
- magit-cycle-remote.pushDefault
- magit-format-remote.pushDefault)
- "Configure branch creation"
- (?U "branch.autoSetupMerge"
- magit-cycle-branch*autoSetupMerge
- magit-format-branch*autoSetupMerge)
- (?R "branch.autoSetupRebase"
- magit-cycle-branch*autoSetupRebase
- magit-format-branch*autoSetupRebase)))
-
-(defvar magit-branch-config-popup
- `(:man-page "git-branch"
- :variables ,magit-branch-config-variables
- :setup-function magit-branch-config-popup-setup))
-
-(defun magit-branch-config-popup-setup (val def)
- (magit-popup-default-setup val def)
- (setq-local magit-branch-config-branch magit-branch-config-branch)
- (use-local-map (copy-keymap magit-popup-mode-map))
- (dolist (ev (-filter #'magit-popup-event-p (magit-popup-get :variables)))
- (local-set-key (vector (magit-popup-event-key ev))
- 'magit-invoke-popup-action)))
-
-(defun magit-branch-config-branch (&optional prompt)
- (if prompt
- (or (and (not current-prefix-arg)
- (or magit-branch-config-branch
- (magit-get-current-branch)))
- (magit-read-local-branch prompt))
- (or magit-branch-config-branch
- (magit-get-current-branch)
- "<name>")))
-
-;;; Config Commands and Inserters
-
-;;;###autoload
-(defun magit-edit-branch*description (branch)
- "Edit the description of the current branch.
-With a prefix argument edit the description of another branch.
-
-The description for the branch named NAME is stored in the Git
-variable `branch.<name>.description'."
- (interactive (list (magit-branch-config-branch "Edit branch description")))
- (magit-run-git-with-editor "branch" "--edit-description" branch))
-
-(defun magit-edit-branch*description-check-buffers ()
- (and buffer-file-name
- (string-match-p "/\\(BRANCH\\|EDIT\\)_DESCRIPTION\\'" buffer-file-name)
- (add-hook 'with-editor-post-finish-hook
- (lambda ()
- (when (derived-mode-p 'magit-popup-mode)
- (magit-refresh-popup-buffer)))
- nil t)))
-
-(add-hook 'find-file-hook 'magit-edit-branch*description-check-buffers)
-
-(defun magit-format-branch*description ()
- (let* ((branch (magit-branch-config-branch))
- (width (+ (length branch) 19))
- (var (format "branch.%s.description" branch)))
- (concat var " " (make-string (- width (length var)) ?\s)
- (if-let ((value (magit-get var)))
- (propertize (car (split-string value "\n"))
- 'face 'magit-popup-option-value)
- (propertize "unset" 'face 'magit-popup-disabled-argument)))))
-
-;;;###autoload
-(defun magit-set-branch*merge/remote (branch upstream)
- "Set or unset the upstream of the current branch.
-With a prefix argument do so for another branch.
-
-When the branch in question already has an upstream then simply
-unsets it. Invoke this command again to set another upstream.
-
-Together the Git variables `branch.<name>.remote' and
-`branch.<name>.merge' define the upstream branch of the local
-branch named NAME. The value of `branch.<name>.remote' is the
-name of the upstream remote. The value of `branch.<name>.merge'
-is the full reference of the upstream branch, on the remote.
-
-Non-interactively, when UPSTREAM is non-nil, then always set it
-as the new upstream, regardless of whether another upstream was
-already set. When nil, then always unset."
- (interactive
- (let ((branch (magit-branch-config-branch "Change upstream of branch")))
- (list branch (and (not (magit-get-upstream-branch branch))
- (magit-read-upstream-branch branch)))))
- (magit-set-upstream-branch branch upstream)
- (magit-refresh))
-
-(defun magit-format-branch*merge/remote ()
- (let* ((branch (magit-branch-config-branch))
- (width (+ (length branch) 20))
- (varM (format "branch.%s.merge" branch))
- (varR (format "branch.%s.remote" branch))
- (face (if (equal (magit-get varR) ".")
- 'magit-branch-local
- 'magit-branch-remote)))
- (concat varM (make-string (- width (length varM)) ?\s)
- (if-let ((value (magit-get varM)))
- (propertize value 'face face)
- (propertize "unset" 'face 'magit-popup-disabled-argument))
- "\n " varR (make-string (- width (length varR)) ?\s)
- (if-let ((value (magit-get varR)))
- (propertize value 'face face)
- (propertize "unset" 'face 'magit-popup-disabled-argument)))))
-
-;;;###autoload
-(defun magit-cycle-branch*rebase (branch)
- "Cycle the value of `branch.<name>.rebase' for the current branch.
-With a prefix argument cycle the value for another branch.
-
-The Git variables `branch.<name>.rebase' controls whether pulling
-into the branch named NAME is done by rebasing that branch onto
-the fetched branch or by merging that branch.
-
-When `true' then pulling is done by rebasing.
-When `false' then pulling is done by merging.
-
-When that variable is undefined then the value of `pull.rebase'
-is used instead. It defaults to `false'."
- (interactive (list (magit-branch-config-branch
- "Cycle branch.<name>.rebase for")))
- (magit--set-popup-variable (format "branch.%s.rebase" branch)
- '("true" "false")
- "false" "pull.rebase"))
-
-(defun magit-format-branch*rebase ()
- (let ((branch (magit-branch-config-branch)))
- (magit--format-popup-variable:choices
- (format "branch.%s.rebase" branch)
- '("true" "false")
- "false" "pull.rebase"
- (+ (length branch) 20))))
-
-;;;###autoload
-(defun magit-cycle-branch*pushRemote (branch)
- "Cycle the value of `branch.<name>.pushRemote' for the current branch.
-With a prefix argument cycle the value for another branch.
-
-The Git variable `branch.<name>.pushRemote' specifies the remote
-that the branch named NAME is usually pushed to. The value has
-to be the name of an existing remote.
-
-If that variable is undefined, then the value of the Git variable
-`remote.pushDefault' is used instead, provided that it is defined,
-which by default it is not."
- (interactive (list (magit-branch-config-branch
- "Cycle branch.<name>.pushRemote for")))
- (magit--set-popup-variable (format "branch.%s.pushRemote" branch)
- (magit-list-remotes)
- "remote.pushDefault"))
-
-(defun magit-format-branch*pushRemote ()
- (let ((branch (magit-branch-config-branch)))
- (magit--format-popup-variable:choices
- (format "branch.%s.pushRemote" branch)
- (magit-list-remotes)
- nil "remote.pushDefault"
- (+ (length branch) 20))))
-
-;;;###autoload
-(defun magit-cycle-pull.rebase ()
- "Cycle the repository-local value of `pull.rebase'.
-
-The Git variable `pull.rebase' specifies whether pulling is done
-by rebasing or by merging. It can be overwritten using the Git
-variable `branch.<name>.rebase'.
-
-When `true' then pulling is done by rebasing.
-When `false' (the default) then pulling is done by merging."
- (interactive)
- (magit--set-popup-variable "pull.rebase" '("true" "false") "false"))
-
-(defun magit-format-pull.rebase ()
- (magit--format-popup-variable:choices
- "pull.rebase" '("true" "false") "false" nil 19))
-
-;;;###autoload
-(defun magit-cycle-remote.pushDefault ()
- "Cycle the repository-local value of `remote.pushDefault'.
-
-The Git variable `remote.pushDefault' specifies the remote that
-local branches are usually pushed to. It can be overwritten
-using the Git variable `branch.<name>.pushRemote'."
- (interactive)
- (magit--set-popup-variable "remote.pushDefault" (magit-list-remotes)))
-
-(defun magit-format-remote.pushDefault ()
- (magit--format-popup-variable:choices
- "remote.pushDefault" (magit-list-remotes) nil nil 19))
-
-;;;###autoload
-(defun magit-cycle-branch*autoSetupMerge ()
- "Cycle the repository-local value of `branch.autoSetupMerge'.
-
-The Git variable `branch.autoSetupMerge' under what circumstances
-creating a branch (named NAME) should result in the variables
-`branch.<name>.merge' and `branch.<name>.remote' being set
-according to the starting point used to create the branch. If
-the starting point isn't a branch, then these variables are never
-set.
-
-When `always' then the variables are set regardless of whether
-the starting point is a local or a remote branch.
-
-When `true' (the default) then the variable are set when the
-starting point is a remote branch, but not when it is a local
-branch.
-
-When `false' then the variables are never set."
- (interactive)
- (magit--set-popup-variable "branch.autoSetupMerge"
- '("always" "true" "false") "true"))
-
-(defun magit-format-branch*autoSetupMerge ()
- (magit--format-popup-variable:choices
- "branch.autoSetupMerge" '("always" "true" "false") "true" nil 23))
-
-;;;###autoload
-(defun magit-cycle-branch*autoSetupRebase ()
- "Cycle the repository-local value of `branch.autoSetupRebase'.
-
-The Git variable `branch.autoSetupRebase' specifies whether
-creating a branch (named NAME) should result in the variable
-`branch.<name>.rebase' being set to `true'.
-
-When `always' then the variable is set regardless of whether the
-starting point is a local or a remote branch.
-
-When `local' then the variable are set when the starting point
-is a local branch, but not when it is a remote branch.
-
-When `remote' then the variable are set when the starting point
-is a remote branch, but not when it is a local branch.
-
-When `never' (the default) then the variable is never set."
- (interactive)
- (magit--set-popup-variable "branch.autoSetupRebase"
- '("always" "local" "remote" "never") "never"))
-
-(defun magit-format-branch*autoSetupRebase ()
- (magit--format-popup-variable:choices
- "branch.autoSetupRebase"
- '("always" "local" "remote" "never")
- "never" nil 23))
-
-;;; _
-(provide 'magit-branch)
-;;; magit-branch.el ends here
diff --git a/elpa/magit-20181116.1412/magit-branch.elc b/elpa/magit-20181116.1412/magit-branch.elc
deleted file mode 100644
index 2c88cb8..0000000
--- a/elpa/magit-20181116.1412/magit-branch.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-clone.el b/elpa/magit-20181116.1412/magit-clone.el
deleted file mode 100644
index 7afc1ea..0000000
--- a/elpa/magit-20181116.1412/magit-clone.el
+++ /dev/null
@@ -1,103 +0,0 @@
-;;; magit-clone.el --- clone a repository -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements clone commands.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Options
-
-(defcustom magit-clone-set-remote-head nil
- "Whether cloning creates the symbolic-ref `<remote>/HEAD'."
- :package-version '(magit . "2.4.2")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-clone-set-remote.pushDefault 'ask
- "Whether to set the value of `remote.pushDefault' after cloning.
-
-If t, then set without asking. If nil, then don't set. If
-`ask', then ask."
- :package-version '(magit . "2.4.0")
- :group 'magit-commands
- :type '(choice (const :tag "set" t)
- (const :tag "ask" ask)
- (const :tag "don't set" nil)))
-
-(defcustom magit-clone-default-directory nil
- "Default directory to use when `magit-clone' reads destination.
-If nil (the default), then use the value of `default-directory'.
-If a directory, then use that. If a function, then call that
-with the remote url as only argument and use the returned value."
- :package-version '(magit . "2.90.0")
- :group 'magit-commands
- :type '(choice (const :tag "value of default-directory")
- (directory :tag "constant directory")
- (function :tag "function's value")))
-
-;;; Commands
-
-;;;###autoload
-(defun magit-clone (repository directory)
- "Clone the REPOSITORY to DIRECTORY.
-Then show the status buffer for the new repository."
- (interactive
- (let ((url (magit-read-string-ns "Clone repository")))
- (list url (read-directory-name
- "Clone to: "
- (if (functionp magit-clone-default-directory)
- (funcall magit-clone-default-directory url)
- magit-clone-default-directory)
- nil nil
- (and (string-match "\\([^/:]+?\\)\\(/?\\.git\\)?$" url)
- (match-string 1 url))))))
- (setq directory (file-name-as-directory (expand-file-name directory)))
- (magit-run-git-async "clone" repository
- (magit-convert-filename-for-git directory))
- ;; Don't refresh the buffer we're calling from.
- (process-put magit-this-process 'inhibit-refresh t)
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (when (memq (process-status process) '(exit signal))
- (let ((magit-process-raise-error t))
- (magit-process-sentinel process event)))
- (when (and (eq (process-status process) 'exit)
- (= (process-exit-status process) 0))
- (let ((default-directory directory))
- (when (or (eq magit-clone-set-remote.pushDefault t)
- (and magit-clone-set-remote.pushDefault
- (y-or-n-p "Set `remote.pushDefault' to \"origin\"? ")))
- (setf (magit-get "remote.pushDefault") "origin"))
- (unless magit-clone-set-remote-head
- (magit-remote-unset-head "origin")))
- (with-current-buffer (process-get process 'command-buf)
- (magit-status-internal directory))))))
-
-;;; _
-(provide 'magit-clone)
-;;; magit-clone.el ends here
diff --git a/elpa/magit-20181116.1412/magit-clone.elc b/elpa/magit-20181116.1412/magit-clone.elc
deleted file mode 100644
index 23fc751..0000000
--- a/elpa/magit-20181116.1412/magit-clone.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-collab.el b/elpa/magit-20181116.1412/magit-collab.el
deleted file mode 100644
index a637c7a..0000000
--- a/elpa/magit-20181116.1412/magit-collab.el
+++ /dev/null
@@ -1,174 +0,0 @@
-;;; magit-collab.el --- collaboration tools -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements various collaboration tools. These tools
-;; are only early incarnation -- implementing collaboration tools is
-;; a top priority for future development.
-
-;; Currently these tools (including `magit-branch-pull-request', which
-;; is defined elsewhere) only support Github, but support for other
-;; Git forges as well as mailing list based collaboration is in
-;; planning.
-
-;;; Code:
-
-(require 'magit)
-(require 'ghub)
-
-;;; Variables
-
-(defvar magit-github-token-scopes '(repo)
- "The Github API scopes needed by Magit.
-
-`repo' is the only required scope. Without this scope none of
-Magit's features that use the API work. Instead of this scope
-you could use `public_repo' if you are only interested in public
-repositories.
-
-`repo' Grants read/write access to code, commit statuses,
- invitations, collaborators, adding team memberships, and
- deployment statuses for public and private repositories
- and organizations.
-
-`public_repo' Grants read/write access to code, commit statuses,
- collaborators, and deployment statuses for public repositories
- and organizations. Also required for starring public
- repositories.")
-
-;;; Commands
-
-;;;###autoload
-(defun magit-browse-pull-request (pr)
- "Visit pull-request PR using `browse-url'.
-
-Currently this only supports Github, but that restriction will
-be lifted eventually to support other Git forges."
- (interactive (list (magit-read-pull-request "Visit pull request")))
- (browse-url (format "https://github.com/%s/pull/%s"
- (--> pr
- (cdr (assq 'base it))
- (cdr (assq 'repo it))
- (cdr (assq 'full_name it)))
- (cdr (assq 'number pr)))))
-
-;;; Utilities
-
-(defun magit-read-pull-request (prompt)
- "Read a pull request from the user, prompting with PROMPT.
-Return the Git forge's API response. Currently this function
-only supports Github, but that will change eventually."
- (let* ((origin (magit-upstream-repository))
- (id (magit--forge-id origin))
- (fmtfun (lambda (pull-request)
- (format "%s %s"
- (cdr (assq 'number pull-request))
- (cdr (assq 'title pull-request)))))
- (prs (ghub-get (format "/repos/%s/pulls" id) nil :auth 'magit))
- (choice (magit-completing-read
- prompt (mapcar fmtfun prs) nil nil nil nil
- (let ((default (thing-at-point 'github-pull-request)))
- (and default (funcall fmtfun default)))))
- (number (and (string-match "\\([0-9]+\\)" choice)
- (string-to-number (match-string 1 choice)))))
- (and number
- ;; Don't reuse the pr from the list, it lacks some information
- ;; that is only returned when requesting a single pr. #3371
- (ghub-get (format "/repos/%s/pulls/%s" id number)
- nil :auth 'magit))))
-
-(defun magit-upstream-repository ()
- "Return the remote name of the upstream repository.
-
-If the Git variable `magit.upstream' is set, then return its
-value. Otherwise return \"origin\". If the remote does not
-exist, then raise an error."
- (let ((remote (or (magit-get "magit.upstream") "origin")))
- (unless (magit-remote-p remote)
- (error "No remote named `%s' exists (consider setting `magit.upstream')"
- remote))
- (unless (magit--github-remote-p remote)
- (error "Currently only Github is supported"))
- remote))
-
-(defun magit--forge-id (remote)
- (let ((url (magit-get "remote" remote "url")))
- (and (string-match "\\([^:/]+/[^/]+?\\)\\(?:\\.git\\)?\\'" url)
- (match-string 1 url))))
-
-(defconst magit--github-url-regexp "\
-\\`\\(?:git://\\|git@\\|ssh://git@\\|https://\\)\
-\\(.*?\\)[/:]\
-\\(\\([^:/]+\\)/\\([^/]+?\\)\\)\
-\\(?:\\.git\\)?\\'")
-
-(defun magit--github-url-p (url)
- (save-match-data
- (and url
- (string-match magit--github-url-regexp url)
- (let ((host (match-string 1 url)))
- ;; Match values like "github.com-as-someone", which are
- ;; translated to just "github.com" according to settings
- ;; in "~/.ssh/config". Theoretically this could result
- ;; in false-positives, but that's rather unlikely. #3392
- (and (or (string-match-p (regexp-quote "github.com") host)
- (string-match-p
- (regexp-quote (car (split-string (ghub--host) "/")))
- host))
- host)))))
-
-(defun magit--github-remote-p (remote)
- (or (--when-let (magit-git-string "remote" "get-url" "--push" remote)
- (magit--github-url-p it))
- (--when-let (magit-git-string "remote" "get-url" "--all" remote)
- (magit--github-url-p it))))
-
-(defun magit--github-url-equal (r1 r2)
- (or (equal r1 r2)
- (save-match-data
- (let ((n1 (and (string-match magit--github-url-regexp r1)
- (match-string 2 r1)))
- (n2 (and (string-match magit--github-url-regexp r2)
- (match-string 2 r2))))
- (and n1 n2 (equal n1 n2))))))
-
-(defun magit--pullreq-from-upstream-p (pr)
- (let-alist pr
- (equal .head.repo.full_name
- .base.repo.full_name)))
-
-(defun magit--pullreq-branch (pr &optional assert-new)
- (let-alist pr
- (let ((branch .head.ref))
- (when (and (not (magit--pullreq-from-upstream-p pr))
- (or (not .maintainer_can_modify)
- (magit-branch-p branch)))
- (setq branch (format "pr-%s" .number)))
- (when (and assert-new (magit-branch-p branch))
- (user-error "Branch `%s' already exists" branch))
- branch)))
-
-;;; _
-(provide 'magit-collab)
-;;; magit-collab.el ends here
diff --git a/elpa/magit-20181116.1412/magit-collab.elc b/elpa/magit-20181116.1412/magit-collab.elc
deleted file mode 100644
index ef39b27..0000000
--- a/elpa/magit-20181116.1412/magit-collab.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-commit.el b/elpa/magit-20181116.1412/magit-commit.el
deleted file mode 100644
index bbd49c8..0000000
--- a/elpa/magit-20181116.1412/magit-commit.el
+++ /dev/null
@@ -1,543 +0,0 @@
-;;; magit-commit.el --- create Git commits -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements commands for creating Git commits. These
-;; commands just initiate the commit, support for writing the commit
-;; messages is implemented in `git-commit.el'.
-
-;;; Code:
-
-(require 'magit)
-(require 'magit-sequence)
-
-(eval-when-compile (require 'epa)) ; for `epa-protocol'
-(eval-when-compile (require 'epg))
-(eval-when-compile (require 'subr-x))
-
-;;; Options
-
-(defcustom magit-commit-arguments nil
- "The arguments used when committing."
- :group 'magit-git-arguments
- :type '(repeat (string :tag "Argument")))
-
-(defcustom magit-commit-ask-to-stage 'verbose
- "Whether to ask to stage all unstaged changes when committing and nothing is staged."
- :package-version '(magit . "2.3.0")
- :group 'magit-commands
- :type '(choice (const :tag "Ask showing diff" verbose)
- (const :tag "Ask" t)
- (const :tag "Don't ask" nil)))
-
-(defcustom magit-commit-show-diff t
- "Whether the relevant diff is automatically shown when committing."
- :package-version '(magit . "2.3.0")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-commit-extend-override-date t
- "Whether using `magit-commit-extend' changes the committer date."
- :package-version '(magit . "2.3.0")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-commit-reword-override-date t
- "Whether using `magit-commit-reword' changes the committer date."
- :package-version '(magit . "2.3.0")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-commit-squash-confirm t
- "Whether the commit targeted by squash and fixup has to be confirmed.
-When non-nil then the commit at point (if any) is used as default
-choice, otherwise it has to be confirmed. This option only
-affects `magit-commit-squash' and `magit-commit-fixup'. The
-\"instant\" variants always require confirmation because making
-an error while using those is harder to recover from."
- :package-version '(magit . "2.1.0")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-post-commit-hook nil
- "Hook run after creating a commit without the user editing a message.
-
-This hook is run by `magit-refresh' if `this-command' is a member
-of `magit-post-stage-hook-commands'. This only includes commands
-named `magit-commit-*' that do *not* require that the user edits
-the commit message in a buffer and then finishes by pressing
-\\<with-editor-mode-map>\\[with-editor-finish].
-
-Also see `git-commit-post-finish-hook'."
- :package-version '(magit . "2.90.0")
- :group 'magit-commands
- :type 'hook)
-
-(defvar magit-post-commit-hook-commands
- '(magit-commit-extend
- magit-commit-fixup
- magit-commit-augment
- magit-commit-instant-fixup
- magit-commit-instant-squash))
-
-;;; Popup
-
-(defun magit-commit-popup (&optional arg)
- "Popup console for commit commands."
- (interactive "P")
- (--if-let (magit-commit-message-buffer)
- (switch-to-buffer it)
- (magit-invoke-popup 'magit-commit-popup nil arg)))
-
-(defvar magit-commit-popup
- '(:variable magit-commit-arguments
- :man-page "git-commit"
- :switches ((?a "Stage all modified and deleted files" "--all")
- (?e "Allow empty commit" "--allow-empty")
- (?v "Show diff of changes to be committed" "--verbose")
- (?h "Disable hooks" "--no-verify")
- (?s "Add Signed-off-by line" "--signoff")
- (?R "Claim authorship and reset author date" "--reset-author"))
- :options ((?A "Override the author" "--author=")
- (?S "Sign using gpg" "--gpg-sign=" magit-read-gpg-secret-key)
- (?C "Reuse commit message" "--reuse-message="
- magit-read-reuse-message))
- :actions ((?c "Commit" magit-commit-create)
- (?e "Extend" magit-commit-extend)
- (?f "Fixup" magit-commit-fixup)
- (?F "Instant Fixup" magit-commit-instant-fixup) nil
- (?w "Reword" magit-commit-reword)
- (?s "Squash" magit-commit-squash)
- (?S "Instant Squash" magit-commit-instant-squash) nil
- (?a "Amend" magit-commit-amend)
- (?A "Augment" magit-commit-augment))
- :max-action-columns 4
- :default-action magit-commit-create))
-
-(magit-define-popup-keys-deferred 'magit-commit-popup)
-
-(defun magit-commit-arguments nil
- (if (eq magit-current-popup 'magit-commit-popup)
- magit-current-popup-args
- magit-commit-arguments))
-
-(defvar magit-gpg-secret-key-hist nil)
-
-(defun magit-read-gpg-secret-key (prompt &optional _initial-input)
- (require 'epa)
- (let ((keys (--map (concat (epg-sub-key-id (car (epg-key-sub-key-list it)))
- " "
- (when-let ((id-obj (car (epg-key-user-id-list it))))
- (let ((id-str (epg-user-id-string id-obj)))
- (if (stringp id-str)
- id-str
- (epg-decode-dn id-obj)))))
- (epg-list-keys (epg-make-context epa-protocol) nil t))))
- (car (split-string (magit-completing-read
- prompt keys nil nil nil 'magit-gpg-secret-key-hist
- (car (or magit-gpg-secret-key-hist keys)))
- " "))))
-
-(defun magit-read-reuse-message (prompt &optional default)
- (magit-completing-read prompt (magit-list-refnames)
- nil nil nil 'magit-revision-history
- (or default
- (and (magit-rev-verify "ORIG_HEAD")
- "ORIG_HEAD"))))
-
-;;; Commands
-
-;;;###autoload
-(defun magit-commit-create (&optional args)
- "Create a new commit on `HEAD'.
-With a prefix argument, amend to the commit at `HEAD' instead.
-\n(git commit [--amend] ARGS)"
- (interactive (if current-prefix-arg
- (list (cons "--amend" (magit-commit-arguments)))
- (list (magit-commit-arguments))))
- (when (member "--all" args)
- (setq this-command 'magit-commit-all))
- (when (setq args (magit-commit-assert args))
- (let ((default-directory (magit-toplevel)))
- (magit-run-git-with-editor "commit" args))))
-
-;;;###autoload
-(defun magit-commit-amend (&optional args)
- "Amend the last commit.
-\n(git commit --amend ARGS)"
- (interactive (list (magit-commit-arguments)))
- (magit-commit-amend-assert)
- (magit-run-git-with-editor "commit" "--amend" args))
-
-;;;###autoload
-(defun magit-commit-extend (&optional args override-date)
- "Amend the last commit, without editing the message.
-
-With a prefix argument keep the committer date, otherwise change
-it. The option `magit-commit-extend-override-date' can be used
-to inverse the meaning of the prefix argument. \n(git commit
---amend --no-edit)"
- (interactive (list (magit-commit-arguments)
- (if current-prefix-arg
- (not magit-commit-extend-override-date)
- magit-commit-extend-override-date)))
- (when (setq args (magit-commit-assert args (not override-date)))
- (magit-commit-amend-assert)
- (let ((process-environment process-environment))
- (unless override-date
- (push (magit-rev-format "GIT_COMMITTER_DATE=%cD") process-environment))
- (magit-run-git-with-editor "commit" "--amend" "--no-edit" args))))
-
-;;;###autoload
-(defun magit-commit-reword (&optional args override-date)
- "Reword the last commit, ignoring staged changes.
-
-With a prefix argument keep the committer date, otherwise change
-it. The option `magit-commit-reword-override-date' can be used
-to inverse the meaning of the prefix argument.
-
-Non-interactively respect the optional OVERRIDE-DATE argument
-and ignore the option.
-\n(git commit --amend --only)"
- (interactive (list (magit-commit-arguments)
- (if current-prefix-arg
- (not magit-commit-reword-override-date)
- magit-commit-reword-override-date)))
- (magit-commit-amend-assert)
- (let ((process-environment process-environment))
- (unless override-date
- (push (magit-rev-format "GIT_COMMITTER_DATE=%cD") process-environment))
- (magit-run-git-with-editor "commit" "--amend" "--only" args)))
-
-;;;###autoload
-(defun magit-commit-fixup (&optional commit args)
- "Create a fixup commit.
-
-With a prefix argument the target COMMIT has to be confirmed.
-Otherwise the commit at point may be used without confirmation
-depending on the value of option `magit-commit-squash-confirm'."
- (interactive (list (magit-commit-at-point)
- (magit-commit-arguments)))
- (magit-commit-squash-internal "--fixup" commit args))
-
-;;;###autoload
-(defun magit-commit-squash (&optional commit args)
- "Create a squash commit, without editing the squash message.
-
-With a prefix argument the target COMMIT has to be confirmed.
-Otherwise the commit at point may be used without confirmation
-depending on the value of option `magit-commit-squash-confirm'."
- (interactive (list (magit-commit-at-point)
- (magit-commit-arguments)))
- (magit-commit-squash-internal "--squash" commit args))
-
-;;;###autoload
-(defun magit-commit-augment (&optional commit args)
- "Create a squash commit, editing the squash message.
-
-With a prefix argument the target COMMIT has to be confirmed.
-Otherwise the commit at point may be used without confirmation
-depending on the value of option `magit-commit-squash-confirm'."
- (interactive (list (magit-commit-at-point)
- (magit-commit-arguments)))
- (magit-commit-squash-internal "--squash" commit args nil t))
-
-;;;###autoload
-(defun magit-commit-instant-fixup (&optional commit args)
- "Create a fixup commit targeting COMMIT and instantly rebase."
- (interactive (list (magit-commit-at-point)
- (magit-commit-arguments)))
- (magit-commit-squash-internal "--fixup" commit args t))
-
-;;;###autoload
-(defun magit-commit-instant-squash (&optional commit args)
- "Create a squash commit targeting COMMIT and instantly rebase."
- (interactive (list (magit-commit-at-point)
- (magit-commit-arguments)))
- (magit-commit-squash-internal "--squash" commit args t))
-
-(defun magit-commit-squash-internal
- (option commit &optional args rebase edit confirmed)
- (when-let ((args (magit-commit-assert args t)))
- (when commit
- (when (and rebase (not (magit-rev-ancestor-p commit "HEAD")))
- (magit-read-char-case
- (format "%s isn't an ancestor of HEAD. " commit) nil
- (?c "[c]reate without rebasing" (setq rebase nil))
- (?s "[s]elect other" (setq commit nil))
- (?a "[a]bort" (user-error "Quit")))))
- (when commit
- (setq commit (magit-rebase-interactive-assert commit t)))
- (if (and commit
- (or confirmed
- (not (or rebase
- current-prefix-arg
- magit-commit-squash-confirm))))
- (let ((magit-commit-show-diff nil))
- (push (concat option "=" commit) args)
- (unless edit
- (push "--no-edit" args))
- (if rebase
- (magit-with-editor
- (magit-call-git
- "commit" "--no-gpg-sign"
- (-remove-first
- (apply-partially #'string-match-p "\\`--gpg-sign=")
- args)))
- (magit-run-git-with-editor "commit" args))
- t) ; The commit was created; used by below lambda.
- (magit-log-select
- (lambda (commit)
- (when (and (magit-commit-squash-internal option commit args
- rebase edit t)
- rebase)
- (magit-commit-amend-assert commit)
- (magit-rebase-interactive-1 commit
- (list "--autosquash" "--autostash")
- "" "true" nil t)))
- (format "Type %%p on a commit to %s into it,"
- (substring option 2)))
- (when magit-commit-show-diff
- (let ((magit-display-buffer-noselect t))
- (apply #'magit-diff-staged nil (magit-diff-arguments)))))))
-
-(defun magit-commit-amend-assert (&optional commit)
- (--when-let (magit-list-publishing-branches commit)
- (let ((m1 "This commit has already been published to ")
- (m2 ".\nDo you really want to modify it"))
- (magit-confirm 'amend-published
- (concat m1 "%s" m2)
- (concat m1 "%i public branches" m2)
- nil it))))
-
-(defun magit-commit-assert (args &optional strict)
- (cond
- ((or (magit-anything-staged-p)
- (and (magit-anything-unstaged-p)
- ;; ^ Everything of nothing is still nothing.
- (member "--all" args))
- (and (not strict)
- ;; ^ For amend variants that don't make sense otherwise.
- (or (member "--amend" args)
- (member "--allow-empty" args))))
- (or args (list "--")))
- ((and (magit-rebase-in-progress-p)
- (not (magit-anything-unstaged-p))
- (y-or-n-p "Nothing staged. Continue in-progress rebase? "))
- (setq this-command 'magit-rebase-continue)
- (magit-run-git-sequencer "rebase" "--continue")
- nil)
- ((and (file-exists-p (magit-git-dir "MERGE_MSG"))
- (not (magit-anything-unstaged-p)))
- (or args (list "--")))
- ((not (magit-anything-unstaged-p))
- (user-error "Nothing staged (or unstaged)"))
- (magit-commit-ask-to-stage
- (when (eq magit-commit-ask-to-stage 'verbose)
- (magit-diff-unstaged))
- (prog1 (when (y-or-n-p "Nothing staged. Stage and commit all unstaged changes? ")
- (magit-run-git "add" "-u" ".")
- (or args (list "--")))
- (when (and (eq magit-commit-ask-to-stage 'verbose)
- (derived-mode-p 'magit-diff-mode))
- (magit-mode-bury-buffer))))
- (t
- (user-error "Nothing staged"))))
-
-(defvar magit--reshelve-history nil)
-
-;;;###autoload
-(defun magit-commit-reshelve (date)
- "Change the committer date and possibly the author date of `HEAD'.
-
-If you are the author of `HEAD', then both dates are changed,
-otherwise only the committer date. The current time is used
-as the initial minibuffer input and the original author (if
-that is you) or committer date is available as the previous
-history element."
- (interactive
- (let ((author-p (magit-rev-author-p "HEAD")))
- (push (magit-rev-format (if author-p "%ad" "%cd") "HEAD"
- (concat "--date=format:%F %T %z"))
- magit--reshelve-history)
- (list (read-string (if author-p
- "Change author and committer dates to: "
- "Change committer date to: ")
- (cons (format-time-string "%F %T %z") 17)
- 'magit--reshelve-history))))
- (let ((process-environment process-environment))
- (push (concat "GIT_COMMITTER_DATE=" date) process-environment)
- (magit-run-git "commit" "--amend" "--no-edit"
- (and (magit-rev-author-p "HEAD")
- (concat "--date=" date)))))
-
-;;;###autoload (autoload 'magit-commit-absorb-popup "magit-commit" nil t)
-(magit-define-popup magit-commit-absorb-popup
- "Spread unstaged changes across recent commits.
-Without a prefix argument just call `magit-commit-absorb'.
-With a prefix argument use a popup buffer to select arguments."
- :man-page "git-bisect"
- :options '((?c "Diff context lines" "--context=")
- (?s "Strictness" "--strict="))
- :actions '((?x "Absorb" magit-commit-absorb))
- :default-action 'magit-commit-absorb
- :use-prefix 'popup)
-
-(defun magit-commit-absorb (&optional commit args confirmed)
- "Spread unstaged changes across recent commits.
-This command requires the git-autofixup script, which is
-available from https://github.com/torbiak/git-autofixup."
- (interactive (list (magit-get-upstream-branch)
- (magit-commit-absorb-arguments)))
- (unless (executable-find "git-autofixup")
- (user-error "This command requires the git-autofixup script, which %s"
- "is available from https://github.com/torbiak/git-autofixup"))
- (when (magit-anything-staged-p)
- (user-error "Cannot absorb when there are staged changes"))
- (unless (magit-anything-unstaged-p)
- (user-error "There are no unstaged changes that could be absorbed"))
- (when commit
- (setq commit (magit-rebase-interactive-assert commit t)))
- (if (and commit confirmed)
- (progn (magit-run-git-async "autofixup" "-vv" args commit) t)
- (magit-log-select
- (lambda (commit)
- (magit-commit-absorb commit args t))
- nil nil nil nil commit)))
-
-;;; Pending Diff
-
-(defun magit-commit-diff ()
- (when (and git-commit-mode magit-commit-show-diff)
- (when-let ((diff-buffer (magit-mode-get-buffer 'magit-diff-mode)))
- ;; This window just started displaying the commit message
- ;; buffer. Without this that buffer would immediately be
- ;; replaced with the diff buffer. See #2632.
- (unrecord-window-buffer nil diff-buffer))
- (condition-case nil
- (let ((args (car (magit-diff-arguments)))
- (magit-inhibit-save-previous-winconf 'unset)
- (magit-display-buffer-noselect t)
- (inhibit-quit nil))
- (message "Diffing changes to be committed (C-g to abort diffing)")
- (if-let ((fn (cl-case last-command
- (magit-commit
- (apply-partially 'magit-diff-staged nil))
- (magit-commit-all
- (apply-partially 'magit-diff-working-tree nil))
- ((magit-commit-amend
- magit-commit-reword
- magit-rebase-reword-commit)
- 'magit-diff-while-amending))))
- (funcall fn args)
- (if (magit-anything-staged-p)
- (magit-diff-staged nil args)
- (magit-diff-while-amending args))))
- (quit))))
-
-;; Mention `magit-diff-while-committing' because that's
-;; always what I search for when I try to find this line.
-(add-hook 'server-switch-hook 'magit-commit-diff)
-
-(add-to-list 'with-editor-server-window-alist
- (cons git-commit-filename-regexp 'switch-to-buffer))
-
-;;; Message Utilities
-
-(defun magit-commit-message-buffer ()
- (let* ((find-file-visit-truename t) ; git uses truename of COMMIT_EDITMSG
- (topdir (magit-toplevel)))
- (--first (equal topdir (with-current-buffer it
- (and git-commit-mode (magit-toplevel))))
- (append (buffer-list (selected-frame))
- (buffer-list)))))
-
-(defvar magit-commit-add-log-insert-function 'magit-commit-add-log-insert
- "Used by `magit-commit-add-log' to insert a single entry.")
-
-(defun magit-commit-add-log ()
- "Add a stub for the current change into the commit message buffer.
-If no commit is in progress, then initiate it. Use the function
-specified by variable `magit-commit-add-log-insert-function' to
-actually insert the entry."
- (interactive)
- (let ((hunk (and (magit-section-match 'hunk)
- (magit-current-section)))
- (log (magit-commit-message-buffer)) buf pos)
- (save-window-excursion
- (call-interactively #'magit-diff-visit-file)
- (setq buf (current-buffer))
- (setq pos (point)))
- (unless log
- (unless (magit-commit-assert nil)
- (user-error "Abort"))
- (magit-commit-create)
- (while (not (setq log (magit-commit-message-buffer)))
- (sit-for 0.01)))
- (save-excursion
- (with-current-buffer buf
- (goto-char pos)
- (funcall magit-commit-add-log-insert-function log
- (magit-file-relative-name)
- (and hunk (add-log-current-defun)))))))
-
-(defun magit-commit-add-log-insert (buffer file defun)
- (with-current-buffer buffer
- (undo-boundary)
- (goto-char (point-max))
- (while (re-search-backward (concat "^" comment-start) nil t))
- (save-restriction
- (narrow-to-region (point-min) (point))
- (cond ((re-search-backward (format "* %s\\(?: (\\([^)]+\\))\\)?: " file)
- nil t)
- (when (equal (match-string 1) defun)
- (setq defun nil))
- (re-search-forward ": "))
- (t
- (when (re-search-backward "^[\\*(].+\n" nil t)
- (goto-char (match-end 0)))
- (while (re-search-forward "^[^\\*\n].*\n" nil t))
- (if defun
- (progn (insert (format "* %s (%s): \n" file defun))
- (setq defun nil))
- (insert (format "* %s: \n" file)))
- (backward-char)
- (unless (looking-at "\n[\n\\']")
- (insert ?\n)
- (backward-char))))
- (when defun
- (forward-line)
- (let ((limit (save-excursion
- (and (re-search-forward "^\\*" nil t)
- (point)))))
- (unless (or (looking-back (format "(%s): " defun)
- (line-beginning-position))
- (re-search-forward (format "^(%s): " defun) limit t))
- (while (re-search-forward "^[^\\*\n].*\n" limit t))
- (insert (format "(%s): \n" defun))
- (backward-char)))))))
-
-;;; _
-(provide 'magit-commit)
-;;; magit-commit.el ends here
diff --git a/elpa/magit-20181116.1412/magit-commit.elc b/elpa/magit-20181116.1412/magit-commit.elc
deleted file mode 100644
index fa655e8..0000000
--- a/elpa/magit-20181116.1412/magit-commit.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-core.el b/elpa/magit-20181116.1412/magit-core.el
deleted file mode 100644
index 2bad54c..0000000
--- a/elpa/magit-20181116.1412/magit-core.el
+++ /dev/null
@@ -1,132 +0,0 @@
-;;; magit-core.el --- core functionality -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library requires several other libraries, so that yet other
-;; libraries can just require this one, instead of having to require
-;; all the other ones. In other words this separates the low-level
-;; stuff from the rest. It also defines some Custom groups.
-
-;;; Code:
-
-(require 'magit-utils)
-(require 'magit-section)
-(require 'magit-git)
-(require 'magit-mode)
-(require 'magit-margin)
-(require 'magit-process)
-(require 'magit-autorevert)
-
-(defgroup magit nil
- "Controlling Git from Emacs."
- :link '(url-link "https://magit.vc")
- :link '(info-link "(magit)FAQ")
- :link '(info-link "(magit)")
- :group 'tools)
-
-(defgroup magit-essentials nil
- "Options that every Magit user should briefly think about.
-
-Each of these options falls into one or more of these categories:
-
-* Options that affect Magit's behavior in fundamental ways.
-* Options that affect safety.
-* Options that affect performance.
-* Options that are of a personal nature."
- :link '(info-link "(magit)Essential Settings")
- :group 'magit)
-
-(defgroup magit-miscellaneous nil
- "Miscellanous Magit options."
- :group 'magit)
-
-(defgroup magit-commands nil
- "Options controlling behavior of certain commands."
- :group 'magit)
-
-(defgroup magit-git-arguments nil
- "Options controlling what arguments are passed to Git.
-
-Most of these options can be set using the respective popup,
-and it is recommended that you do that because then you can
-be certain that Magit supports the arguments that you select.
-
-An option `magit-NAME-argument' specifies the arguments that
-are enabled by default by the popup `magit-NAME-popup'."
- :link '(info-link "(magit-popup)Customizing Existing Popups")
- :link '(info-link "(magit-popup)Usage")
- :group 'magit-commands)
-
-(defgroup magit-modes nil
- "Modes used or provided by Magit."
- :group 'magit)
-
-(defgroup magit-buffers nil
- "Options concerning Magit buffers."
- :link '(info-link "(magit)Modes and Buffers")
- :group 'magit)
-
-(defgroup magit-refresh nil
- "Options controlling how Magit buffers are refreshed."
- :link '(info-link "(magit)Automatic Refreshing of Magit Buffers")
- :group 'magit
- :group 'magit-buffers)
-
-(defgroup magit-faces nil
- "Faces used by Magit."
- :group 'magit
- :group 'faces)
-
-(defgroup magit-extensions nil
- "Extensions to Magit."
- :group 'magit)
-
-(custom-add-to-group 'magit-modes 'magit-popup 'custom-group)
-(custom-add-to-group 'magit-faces 'magit-popup-faces 'custom-group)
-(custom-add-to-group 'magit-modes 'git-commit 'custom-group)
-(custom-add-to-group 'magit-faces 'git-commit-faces 'custom-group)
-(custom-add-to-group 'magit-modes 'git-rebase 'custom-group)
-(custom-add-to-group 'magit-faces 'git-rebase-faces 'custom-group)
-(custom-add-to-group 'magit-process 'with-editor 'custom-group)
-
-(defgroup magit-related nil
- "Options that are relevant to Magit but that are defined elsewhere."
- :link '(custom-group-link vc)
- :link '(custom-group-link smerge)
- :link '(custom-group-link ediff)
- :link '(custom-group-link auto-revert)
- :group 'magit
- :group 'magit-extensions
- :group 'magit-essentials)
-
-(custom-add-to-group 'magit-related 'auto-revert-check-vc-info 'custom-variable)
-(custom-add-to-group 'magit-auto-revert 'auto-revert-check-vc-info 'custom-variable)
-
-(custom-add-to-group 'magit-related 'ediff-window-setup-function 'custom-variable)
-(custom-add-to-group 'magit-related 'smerge-refine-ignore-whitespace 'custom-variable)
-(custom-add-to-group 'magit-related 'vc-follow-symlinks 'custom-variable)
-
-;;; _
-(provide 'magit-core)
-;;; magit-core.el ends here
diff --git a/elpa/magit-20181116.1412/magit-core.elc b/elpa/magit-20181116.1412/magit-core.elc
deleted file mode 100644
index 973c5e3..0000000
--- a/elpa/magit-20181116.1412/magit-core.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-diff.el b/elpa/magit-20181116.1412/magit-diff.el
deleted file mode 100644
index 6741308..0000000
--- a/elpa/magit-20181116.1412/magit-diff.el
+++ /dev/null
@@ -1,2831 +0,0 @@
-;;; magit-diff.el --- inspect Git diffs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for looking at Git diffs and
-;; commits.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'git-commit)
-(require 'magit-core)
-
-;; For `magit-diff-popup'
-(declare-function magit-stash-show "magit-stash" (stash &optional args files))
-;; For `magit-diff-visit-file'
-(declare-function dired-jump "dired-x" (&optional other-window file-name))
-(declare-function magit-find-file-noselect "magit-files" (rev file))
-(declare-function magit-status-internal "magit-status" (directory))
-;; For `magit-diff-while-committing'
-(declare-function magit-commit-message-buffer "magit-commit" ())
-;; For `magit-insert-revision-gravatar'
-(defvar gravatar-size)
-;; For `magit-show-commit' and `magit-diff-show-or-scroll'
-(declare-function magit-current-blame-chunk "magit-blame" ())
-(eval-when-compile
- (cl-pushnew 'orig-rev eieio--known-slot-names))
-(declare-function magit-blame-mode "magit-blame" (&optional arg))
-(defvar magit-blame-mode)
-(defvar git-rebase-line)
-;; For `magit-diff-unmerged'
-(declare-function magit-merge-in-progress-p "magit-merge" ())
-(declare-function magit--merge-range "magit-merge" (&optional head))
-
-(require 'diff-mode)
-(require 'smerge-mode)
-
-(defvar bookmark-make-record-function)
-
-;;; Options
-;;;; Diff Mode
-
-(defgroup magit-diff nil
- "Inspect and manipulate Git diffs."
- :link '(info-link "(magit)Diffing")
- :group 'magit-modes)
-
-(defcustom magit-diff-mode-hook nil
- "Hook run after entering Magit-Diff mode."
- :group 'magit-diff
- :type 'hook)
-
-(defcustom magit-diff-arguments '("--stat" "--no-ext-diff")
- "The diff arguments used in buffers whose mode derives from `magit-diff-mode'."
- :group 'magit-git-arguments
- :group 'magit-diff
- :type '(repeat (string :tag "Argument")))
-
-(defcustom magit-diff-sections-hook
- '(magit-insert-diff
- magit-insert-xref-buttons)
- "Hook run to insert sections into a `magit-diff-mode' buffer."
- :package-version '(magit . "2.3.0")
- :group 'magit-diff
- :type 'hook)
-
-(defcustom magit-diff-expansion-threshold 60
- "After how many seconds not to expand anymore diffs.
-
-Except in status buffers, diffs are usually start out fully
-expanded. Because that can take a long time, all diffs that
-haven't been fontified during a refresh before the threshold
-defined here are instead displayed with their bodies collapsed.
-
-Note that this can cause sections that were previously expanded
-to be collapsed. So you should not pick a very low value here.
-
-The hook function `magit-diff-expansion-threshold' has to be a
-member of `magit-section-set-visibility-hook' for this option
-to have any effect."
- :package-version '(magit . "2.9.0")
- :group 'magit-diff
- :type 'float)
-
-(defcustom magit-diff-highlight-hunk-body t
- "Whether to highlight bodies of selected hunk sections.
-This only has an effect if `magit-diff-highlight' is a
-member of `magit-section-highlight-hook', which see."
- :package-version '(magit . "2.1.0")
- :group 'magit-diff
- :type 'boolean)
-
-(defcustom magit-diff-highlight-hunk-region-functions
- '(magit-diff-highlight-hunk-region-dim-outside
- magit-diff-highlight-hunk-region-using-overlays)
- "The functions used to highlight the hunk-internal region.
-
-`magit-diff-highlight-hunk-region-dim-outside' overlays the outside
-of the hunk internal selection with a face that causes the added and
-removed lines to have the same background color as context lines.
-This function should not be removed from the value of this option.
-
-`magit-diff-highlight-hunk-region-using-overlays' and
-`magit-diff-highlight-hunk-region-using-underline' emphasize the
-region by placing delimiting horizonal lines before and after it.
-The underline variant was implemented because Eli said that is
-how we should do it. However the overlay variant actually works
-better. Also see https://github.com/magit/magit/issues/2758.
-
-Instead of, or in addition to, using delimiting horizontal lines,
-to emphasize the boundaries, you may which to emphasize the text
-itself, using `magit-diff-highlight-hunk-region-using-face'.
-
-In terminal frames it's not possible to draw lines as the overlay
-and underline variants normally do, so there they fall back to
-calling the face function instead."
- :package-version '(magit . "2.9.0")
- :set-after '(magit-diff-show-lines-boundaries)
- :group 'magit-diff
- :type 'hook
- :options '(magit-diff-highlight-hunk-region-dim-outside
- magit-diff-highlight-hunk-region-using-underline
- magit-diff-highlight-hunk-region-using-overlays
- magit-diff-highlight-hunk-region-using-face))
-
-(defcustom magit-diff-unmarked-lines-keep-foreground t
- "Whether `magit-diff-highlight-hunk-region-dim-outside' preserves foreground.
-When this is set to nil, then that function only adjusts the
-foreground color but added and removed lines outside the region
-keep their distinct foreground colors."
- :package-version '(magit . "2.9.0")
- :group 'magit-diff
- :type 'boolean)
-
-(defcustom magit-diff-refine-hunk nil
- "Whether to show word-granularity differences within diff hunks.
-
-nil never show fine differences.
-t show fine differences for the current diff hunk only.
-`all' show fine differences for all displayed diff hunks."
- :group 'magit-diff
- :safe (lambda (val) (memq val '(nil t all)))
- :type '(choice (const :tag "Never" nil)
- (const :tag "Current" t)
- (const :tag "All" all)))
-
-(put 'magit-diff-refine-hunk 'permanent-local t)
-
-(defcustom magit-diff-adjust-tab-width nil
- "Whether to adjust the width of tabs in diffs.
-
-Determining the correct width can be expensive if it requires
-opening large and/or many files, so the widths are cached in
-the variable `magit-diff--tab-width-cache'. Set that to nil
-to invalidate the cache.
-
-nil Never ajust tab width. Use `tab-width's value from
- the Magit buffer itself instead.
-
-t If the corresponding file-visiting buffer exits, then
- use `tab-width's value from that buffer. Doing this is
- cheap, so this value is used even if a corresponding
- cache entry exists.
-
-`always' If there is no such buffer, then temporarily visit the
- file to determine the value.
-
-NUMBER Like `always', but don't visit files larger than NUMBER
- bytes."
- :package-version '(magit . "2.12.0")
- :group 'magit-diff
- :type '(choice (const :tag "Never" nil)
- (const :tag "If file-visiting buffer exists" t)
- (const :tag "... or file isn't larger than bytes" all)
- (const :tag "Always" always)))
-
-(defcustom magit-diff-paint-whitespace t
- "Specify where to highlight whitespace errors.
-See `magit-diff-highlight-trailing',
-`magit-diff-highlight-indentation'. The symbol t means in all
-diffs, `status' means only in the status buffer, and nil means
-nowhere."
- :group 'magit-diff
- :safe (lambda (val) (memq val '(t nil status)))
- :type '(choice (const :tag "Always" t)
- (const :tag "Never" nil)
- (const :tag "In status buffer" status)))
-
-(defcustom magit-diff-highlight-trailing t
- "Whether to highlight whitespace at the end of a line in diffs.
-Used only when `magit-diff-paint-whitespace' is non-nil."
- :group 'magit-diff
- :safe 'booleanp
- :type 'boolean)
-
-(defcustom magit-diff-highlight-indentation nil
- "Highlight the \"wrong\" indentation style.
-Used only when `magit-diff-paint-whitespace' is non-nil.
-
-The value is a list of cons cells. The car is a regular
-expression, and the cdr is the value that applies to repositories
-whose directory matches the regular expression. If more than one
-element matches, then the *last* element in the list applies.
-The default value should therefore come first in the list.
-
-If the value is `tabs', highlight indentation with tabs. If the
-value is an integer, highlight indentation with at least that
-many spaces. Otherwise, highlight neither."
- :group 'magit-diff
- :type `(repeat (cons (string :tag "Directory regexp")
- (choice (const :tag "Tabs" tabs)
- (integer :tag "Spaces" :value ,tab-width)
- (const :tag "Neither" nil)))))
-
-(defcustom magit-diff-hide-trailing-cr-characters
- (and (memq system-type '(ms-dos windows-nt)) t)
- "Whether to hide ^M characters at the end of a line in diffs."
- :package-version '(magit . "2.6.0")
- :group 'magit-diff
- :type 'boolean)
-
-(defcustom magit-diff-visit-previous-blob t
- "Whether `magit-diff-visit-file' may visit the previous blob.
-
-When this is t and point is on a removed line in a diff for a
-committed change, then `magit-diff-visit-file' visits the blob
-from the last revision which still had that line.
-
-Currently this is only supported for committed changes, for
-staged and unstaged changes `magit-diff-visit-file' always
-visits the file in the working tree."
- :package-version '(magit . "2.9.0")
- :group 'magit-diff
- :type 'boolean)
-
-(defcustom magit-diff-highlight-keywords t
- "Whether to highlight bracketed keywords in commit messages."
- :package-version '(magit . "2.12.0")
- :group 'magit-diff
- :type 'boolean)
-
-;;;; File Diff
-
-(defcustom magit-diff-buffer-file-locked t
- "Whether `magit-diff-buffer-file' uses a dedicated buffer."
- :package-version '(magit . "2.7.0")
- :group 'magit-commands
- :group 'magit-diff
- :type 'boolean)
-
-;;;; Revision Mode
-
-(defgroup magit-revision nil
- "Inspect and manipulate Git commits."
- :link '(info-link "(magit)Revision Buffer")
- :group 'magit-modes)
-
-(defcustom magit-revision-mode-hook '(bug-reference-mode)
- "Hook run after entering Magit-Revision mode."
- :group 'magit-revision
- :type 'hook
- :options '(bug-reference-mode))
-
-(defcustom magit-revision-sections-hook
- '(magit-insert-revision-tag
- magit-insert-revision-headers
- magit-insert-revision-message
- magit-insert-revision-notes
- magit-insert-revision-diff
- magit-insert-xref-buttons)
- "Hook run to insert sections into a `magit-revision-mode' buffer."
- :package-version '(magit . "2.3.0")
- :group 'magit-revision
- :type 'hook)
-
-(defcustom magit-revision-headers-format "\
-Author: %aN <%aE>
-AuthorDate: %ad
-Commit: %cN <%cE>
-CommitDate: %cd
-"
- "Format string used to insert headers in revision buffers.
-
-All headers in revision buffers are inserted by the section
-inserter `magit-insert-revision-headers'. Some of the headers
-are created by calling `git show --format=FORMAT' where FORMAT
-is the format specified here. Other headers are hard coded or
-subject to option `magit-revision-insert-related-refs'."
- :package-version '(magit . "2.3.0")
- :group 'magit-revision
- :type 'string)
-
-(defcustom magit-revision-insert-related-refs t
- "Whether to show related branches in revision buffers
-
-`nil' Don't show any related branches.
-`t' Show related local branches.
-`all' Show related local and remote branches.
-`mixed' Show all containing branches and local merged branches."
- :package-version '(magit . "2.1.0")
- :group 'magit-revision
- :type '(choice (const :tag "don't" nil)
- (const :tag "local only" t)
- (const :tag "all related" all)
- (const :tag "all containing, local merged" mixed)))
-
-(defcustom magit-revision-use-hash-sections 'quicker
- "Whether to turn hashes inside the commit message into sections.
-
-If non-nil, then hashes inside the commit message are turned into
-`commit' sections. There is a trade off to be made between
-performance and reliability:
-
-- `slow' calls git for every word to be absolutely sure.
-- `quick' skips words less than seven characters long.
-- `quicker' additionally skips words that don't contain a number.
-- `quickest' uses all words that are at least seven characters
- long and which contain at least one number as well as at least
- one letter.
-
-If nil, then no hashes are turned into sections, but you can
-still visit the commit at point using \"RET\"."
- :package-version '(magit . "2.12.0")
- :group 'magit-revision
- :type '(choice (const :tag "Use sections, quickest" quickest)
- (const :tag "Use sections, quicker" quicker)
- (const :tag "Use sections, quick" quick)
- (const :tag "Use sections, slow" slow)
- (const :tag "Don't use sections" nil)))
-
-(defcustom magit-revision-show-gravatars nil
- "Whether to show gravatar images in revision buffers.
-
-If nil, then don't insert any gravatar images. If t, then insert
-both images. If `author' or `committer', then insert only the
-respective image.
-
-If you have customized the option `magit-revision-header-format'
-and want to insert the images then you might also have to specify
-where to do so. In that case the value has to be a cons-cell of
-two regular expressions. The car specifies where to insert the
-author's image. The top half of the image is inserted right
-after the matched text, the bottom half on the next line in the
-same column. The cdr specifies where to insert the committer's
-image, accordingly. Either the car or the cdr may be nil."
- :package-version '(magit . "2.3.0")
- :group 'magit-revision
- :type '(choice (const :tag "Don't show gravatars" nil)
- (const :tag "Show gravatars" t)
- (const :tag "Show author gravatar" author)
- (const :tag "Show committer gravatar" committer)
- (cons :tag "Show gravatars using custom pattern."
- (regexp :tag "Author regexp" "^Author: ")
- (regexp :tag "Committer regexp" "^Commit: "))))
-
-(defcustom magit-revision-use-gravatar-kludge nil
- "Whether to work around a bug which affects display of gravatars.
-
-Gravatar images are spliced into two halves which are then
-displayed on separate lines. On OS X the splicing has a bug in
-some Emacs builds, which causes the top and bottom halves to be
-interchanged. Enabling this option works around this issue by
-interchanging the halves once more, which cancels out the effect
-of the bug.
-
-See https://github.com/magit/magit/issues/2265
-and https://debbugs.gnu.org/cgi/bugreport.cgi?bug=7847.
-
-Starting with Emacs 26.1 this kludge should not be required for
-any build."
- :package-version '(magit . "2.3.0")
- :group 'magit-revision
- :type 'boolean)
-
-(defcustom magit-revision-fill-summary-line nil
- "Whether to fill excessively long summary lines.
-
-If this is an integer, then the summary line is filled if it is
-longer than either the limit specified here or `window-width'.
-
-You may want to only set this locally in \".dir-locals-2.el\" for
-repositories known to contain bad commit messages.
-
-The body of the message is left alone because (a) most people who
-write excessively long summary lines usually don't add a body and
-(b) even people who have the decency to wrap their lines may have
-a good reason to include a long line in the body sometimes."
- :package-version '(magit . "2.90.0")
- :group 'magit-revision
- :type '(choice (const :tag "Don't fill" nil)
- (integer :tag "Fill if longer than")))
-
-;;;; Diff Sections
-
-(defcustom magit-diff-section-arguments '("--no-ext-diff")
- "The diff arguments used in buffers that show other things besides diffs."
- :group 'magit-git-arguments
- :group 'magit-diff
- :group 'magit-status
- :type '(repeat (string :tag "Argument")))
-
-(put 'magit-diff-section-arguments 'permanent-local t)
-
-;;; Faces
-
-(defface magit-diff-file-heading
- '((t :weight bold))
- "Face for diff file headings."
- :group 'magit-faces)
-
-(defface magit-diff-file-heading-highlight
- '((t :inherit (magit-section-highlight)))
- "Face for current diff file headings."
- :group 'magit-faces)
-
-(defface magit-diff-file-heading-selection
- '((((class color) (background light))
- :inherit magit-diff-file-heading-highlight
- :foreground "salmon4")
- (((class color) (background dark))
- :inherit magit-diff-file-heading-highlight
- :foreground "LightSalmon3"))
- "Face for selected diff file headings."
- :group 'magit-faces)
-
-(defface magit-diff-hunk-heading
- '((((class color) (background light))
- :background "grey80"
- :foreground "grey30")
- (((class color) (background dark))
- :background "grey25"
- :foreground "grey70"))
- "Face for diff hunk headings."
- :group 'magit-faces)
-
-(defface magit-diff-hunk-heading-highlight
- '((((class color) (background light))
- :background "grey75"
- :foreground "grey30")
- (((class color) (background dark))
- :background "grey35"
- :foreground "grey70"))
- "Face for current diff hunk headings."
- :group 'magit-faces)
-
-(defface magit-diff-hunk-heading-selection
- '((((class color) (background light))
- :inherit magit-diff-hunk-heading-highlight
- :foreground "salmon4")
- (((class color) (background dark))
- :inherit magit-diff-hunk-heading-highlight
- :foreground "LightSalmon3"))
- "Face for selected diff hunk headings."
- :group 'magit-faces)
-
-(defface magit-diff-hunk-region
- '((t :inherit bold))
- "Face used by `magit-diff-highlight-hunk-region-using-face'.
-
-This face is overlayed over text that uses other hunk faces,
-and those normally set the foreground and background colors.
-The `:foreground' and especially the `:background' properties
-should be avoided here. Setting the latter would cause the
-lose of information. Good properties to set here are `:weight'
-and `:slant'."
- :group 'magit-faces)
-
-(defface magit-diff-lines-heading
- '((((class color) (background light))
- :inherit magit-diff-hunk-heading-highlight
- :background "LightSalmon3")
- (((class color) (background dark))
- :inherit magit-diff-hunk-heading-highlight
- :foreground "grey80"
- :background "salmon4"))
- "Face for diff hunk heading when lines are marked."
- :group 'magit-faces)
-
-(defface magit-diff-lines-boundary
- '((t :inherit magit-diff-lines-heading))
- "Face for boundary of marked lines in diff hunk."
- :group 'magit-faces)
-
-(defface magit-diff-conflict-heading
- '((t :inherit magit-diff-hunk-heading))
- "Face for conflict markers."
- :group 'magit-faces)
-
-(defface magit-diff-added
- '((((class color) (background light))
- :background "#ddffdd"
- :foreground "#22aa22")
- (((class color) (background dark))
- :background "#335533"
- :foreground "#ddffdd"))
- "Face for lines in a diff that have been added."
- :group 'magit-faces)
-
-(defface magit-diff-removed
- '((((class color) (background light))
- :background "#ffdddd"
- :foreground "#aa2222")
- (((class color) (background dark))
- :background "#553333"
- :foreground "#ffdddd"))
- "Face for lines in a diff that have been removed."
- :group 'magit-faces)
-
-(defface magit-diff-our
- '((t :inherit magit-diff-removed))
- "Face for lines in a diff for our side in a conflict."
- :group 'magit-faces)
-
-(defface magit-diff-base
- '((((class color) (background light))
- :background "#ffffcc"
- :foreground "#aaaa11")
- (((class color) (background dark))
- :background "#555522"
- :foreground "#ffffcc"))
- "Face for lines in a diff for the base side in a conflict."
- :group 'magit-faces)
-
-(defface magit-diff-their
- '((t :inherit magit-diff-added))
- "Face for lines in a diff for their side in a conflict."
- :group 'magit-faces)
-
-(defface magit-diff-context
- '((((class color) (background light)) :foreground "grey50")
- (((class color) (background dark)) :foreground "grey70"))
- "Face for lines in a diff that are unchanged."
- :group 'magit-faces)
-
-(defface magit-diff-added-highlight
- '((((class color) (background light))
- :background "#cceecc"
- :foreground "#22aa22")
- (((class color) (background dark))
- :background "#336633"
- :foreground "#cceecc"))
- "Face for lines in a diff that have been added."
- :group 'magit-faces)
-
-(defface magit-diff-removed-highlight
- '((((class color) (background light))
- :background "#eecccc"
- :foreground "#aa2222")
- (((class color) (background dark))
- :background "#663333"
- :foreground "#eecccc"))
- "Face for lines in a diff that have been removed."
- :group 'magit-faces)
-
-(defface magit-diff-our-highlight
- '((t :inherit magit-diff-removed-highlight))
- "Face for lines in a diff for our side in a conflict."
- :group 'magit-faces)
-
-(defface magit-diff-base-highlight
- '((((class color) (background light))
- :background "#eeeebb"
- :foreground "#aaaa11")
- (((class color) (background dark))
- :background "#666622"
- :foreground "#eeeebb"))
- "Face for lines in a diff for the base side in a conflict."
- :group 'magit-faces)
-
-(defface magit-diff-their-highlight
- '((t :inherit magit-diff-added-highlight))
- "Face for lines in a diff for their side in a conflict."
- :group 'magit-faces)
-
-(defface magit-diff-context-highlight
- '((((class color) (background light))
- :background "grey95"
- :foreground "grey50")
- (((class color) (background dark))
- :background "grey20"
- :foreground "grey70"))
- "Face for lines in the current context in a diff."
- :group 'magit-faces)
-
-(defface magit-diff-whitespace-warning
- '((t :inherit trailing-whitespace))
- "Face for highlighting whitespace errors added lines."
- :group 'magit-faces)
-
-(defface magit-diffstat-added
- '((((class color) (background light)) :foreground "#22aa22")
- (((class color) (background dark)) :foreground "#448844"))
- "Face for plus sign in diffstat."
- :group 'magit-faces)
-
-(defface magit-diffstat-removed
- '((((class color) (background light)) :foreground "#aa2222")
- (((class color) (background dark)) :foreground "#aa4444"))
- "Face for minus sign in diffstat."
- :group 'magit-faces)
-
-;;; Commands
-;;;; Diff popups
-
-(defconst magit-diff-popup-common-keywords
- '(:variable magit-diff-arguments
- :man-page "git-diff"))
-
-(defconst magit-diff-popup-common-options
- '((?f "Limit to files" "-- " magit-read-files)
- (?u "Context lines" "-U")
- (?m "Detect renames" "-M")
- (?c "Detect copies" "-C")
- (?a "Diff algorithm" "--diff-algorithm=" magit-diff-select-algorithm)
- (?i "Ignore submodules" "--ignore-submodules="
- magit-diff-select-ignore-submodules)))
-
-(defconst magit-diff-popup-common-switches
- '((?f "Show surrounding functions" "--function-context")
- (?b "Ignore whitespace changes" "--ignore-space-change")
- (?w "Ignore all whitespace" "--ignore-all-space")
- (?x "Disallow external diff drivers" "--no-ext-diff")))
-
-(defvar magit-diff-popup
- `(,@magit-diff-popup-common-keywords
- :options ,magit-diff-popup-common-options
- :switches (,@magit-diff-popup-common-switches
- (?s "Show stats" "--stat"))
- :actions ((?d "Dwim" magit-diff-dwim)
- (?u "Diff unstaged" magit-diff-unstaged)
- (?c "Show commit" magit-show-commit)
- (?r "Diff range" magit-diff-range)
- (?s "Diff staged" magit-diff-staged)
- (?t "Show stash" magit-stash-show)
- (?p "Diff paths" magit-diff-paths)
- (?w "Diff worktree" magit-diff-working-tree))
- :default-action magit-diff-dwim
- :max-action-columns 3))
-
-(defvar magit-diff-refresh-popup
- `(,@magit-diff-popup-common-keywords
- :options ,magit-diff-popup-common-options
- :switches ,magit-diff-popup-common-switches
- :actions ((?g "Refresh" magit-diff-refresh)
- (?t "Toggle hunk refinement" magit-diff-toggle-refine-hunk)
- (?s "Set defaults" magit-diff-set-default-arguments)
- (?F "Toggle file filter" magit-diff-toggle-file-filter)
- (?w "Save defaults" magit-diff-save-default-arguments))
- :max-action-columns 2))
-
-(defvar magit-diff-mode-refresh-popup
- `(,@magit-diff-popup-common-keywords
- :options ,magit-diff-popup-common-options
- :switches (,@magit-diff-popup-common-switches
- (?s "Show stats" "--stat"))
- :actions ((?g "Refresh" magit-diff-refresh)
- (?t "Toggle hunk refinement" magit-diff-toggle-refine-hunk)
- (?s "Set defaults" magit-diff-set-default-arguments)
- (?r "Switch range type" magit-diff-switch-range-type)
- (?w "Save defaults" magit-diff-save-default-arguments)
- (?f "Flip revisions" magit-diff-flip-revs) nil
- (?F "Toggle file filter" magit-diff-toggle-file-filter))
- :max-action-columns 2))
-
-(defvar magit-revision-mode-refresh-popup
- `(,@magit-diff-popup-common-keywords
- :options ,magit-diff-popup-common-options
- :switches (,@magit-diff-popup-common-switches
- (?s "Show stats" "--stat"))
- :actions ((?g "Refresh" magit-diff-refresh)
- (?t "Toggle hunk refinement" magit-diff-toggle-refine-hunk)
- (?s "Set defaults" magit-diff-set-default-arguments)
- (?F "Toggle file filter" magit-diff-toggle-file-filter)
- (?w "Save defaults" magit-diff-save-default-arguments))
- :max-action-columns 2))
-
-(magit-define-popup-keys-deferred 'magit-diff-popup)
-(magit-define-popup-keys-deferred 'magit-diff-refresh-popup)
-(magit-define-popup-keys-deferred 'magit-diff-mode-refresh-popup)
-(magit-define-popup-keys-deferred 'magit-revision-mode-refresh-popup)
-
-(defvar magit-diff-section-file-args nil)
-(put 'magit-diff-section-file-args 'permanent-local t)
-(put 'magit-diff-section-file-args 'safe-local-variable
- (lambda (val)
- (and (listp val)
- (-all-p #'stringp val))))
-
-(defun magit-diff-get-buffer-args ()
- (cond ((and magit-use-sticky-arguments
- (derived-mode-p 'magit-diff-mode))
- (list (nth 2 magit-refresh-args)
- (nth 3 magit-refresh-args)))
- ((and (eq magit-use-sticky-arguments t)
- (--when-let (magit-mode-get-buffer 'magit-diff-mode)
- (with-current-buffer it
- (list (nth 2 magit-refresh-args)
- (nth 3 magit-refresh-args))))))
- (t
- (list (default-value 'magit-diff-arguments) nil))))
-
-(defun magit-diff-arguments (&optional refresh)
- (cond ((memq magit-current-popup '(magit-diff-popup magit-diff-refresh-popup))
- (magit-popup-export-file-args magit-current-popup-args))
- ((and refresh (not (derived-mode-p 'magit-diff-mode)))
- (list magit-diff-section-arguments
- magit-diff-section-file-args))
- (t
- (magit-diff-get-buffer-args))))
-
-;;;###autoload
-(defun magit-diff-popup (arg)
- "Popup console for diff commands."
- (interactive "P")
- (let ((magit-diff-arguments
- ;; We cannot possibly know what suffix command the user is
- ;; about to invoke, so we also don't know from which buffer
- ;; we should get the current values. However it is much
- ;; more likely that we will end up updating the diff buffer,
- ;; and we therefore use the value from that buffer.
- (apply #'magit-popup-import-file-args (magit-diff-get-buffer-args))))
- (magit-invoke-popup 'magit-diff-popup nil arg)))
-
-;;;###autoload
-(defun magit-diff-buffer-file-popup ()
- "Popup console for diff commands.
-
-This is a variant of `magit-diff-popup' which shows the same popup
-but which limits the diff to the file being visited in the current
-buffer."
- (interactive)
- (if-let ((file (magit-file-relative-name)))
- (let ((magit-diff-arguments
- (magit-popup-import-file-args
- (if-let ((buffer (magit-mode-get-buffer 'magit-diff-mode)))
- (with-current-buffer buffer
- (nth 3 magit-refresh-args))
- (default-value 'magit-diff-arguments))
- (list file))))
- (magit-invoke-popup 'magit-diff-popup nil nil))
- (user-error "Buffer isn't visiting a file")))
-
-(defun magit-diff-refresh-popup (arg)
- "Popup console for changing diff arguments in the current buffer."
- (interactive "P")
- (let ((magit-diff-refresh-popup
- (pcase major-mode
- (`magit-revision-mode magit-revision-mode-refresh-popup)
- (`magit-diff-mode magit-diff-mode-refresh-popup)
- (_ magit-diff-refresh-popup)))
- (magit-diff-arguments
- (if (derived-mode-p 'magit-diff-mode)
- (magit-popup-import-file-args (nth 2 magit-refresh-args)
- (nth 3 magit-refresh-args))
- (magit-popup-import-file-args magit-diff-section-arguments
- magit-diff-section-file-args))))
- (magit-invoke-popup 'magit-diff-refresh-popup nil arg)))
-
-(defun magit-diff-select-algorithm (&rest _ignore)
- (magit-read-char-case nil t
- (?d "[d]efault" "default")
- (?m "[m]inimal" "minimal")
- (?p "[p]atience" "patience")
- (?h "[h]istogram" "histogram")))
-
-(defun magit-diff-select-ignore-submodules (&rest _ignored)
- (magit-read-char-case "Ignore submodules " t
- (?u "[u]ntracked" "untracked")
- (?d "[d]irty" "dirty")
- (?a "[a]ll" "all")))
-
-;;;; Diff commands
-
-;;;###autoload
-(defun magit-diff-dwim (&optional args files)
- "Show changes for the thing at point."
- (interactive (magit-diff-arguments))
- (pcase (magit-diff--dwim)
- (`unmerged (magit-diff-unmerged args files))
- (`unstaged (magit-diff-unstaged args files))
- (`staged
- (let ((file (magit-file-at-point)))
- (if (and file (equal (cddr (car (magit-file-status file))) '(?D ?U)))
- ;; File was deleted by us and modified by them. Show the latter.
- (magit-diff-unmerged args (list file))
- (magit-diff-staged nil args files))))
- (`(commit . ,value)
- (magit-diff-range (format "%s^..%s" value value) args files))
- (`(stash . ,value) (magit-stash-show value args))
- ((and range (pred stringp))
- (magit-diff-range range args files))
- (_
- (call-interactively #'magit-diff-range))))
-
-(defun magit-diff--dwim ()
- "Return information for performing DWIM diff.
-
-The information can be in three forms:
-1. TYPE
- A symbol describing a type of diff where no additional information
- is needed to generate the diff. Currently, this includes `staged',
- `unstaged' and `unmerged'.
-2. (TYPE . VALUE)
- Like #1 but the diff requires additional information, which is
- given by VALUE. Currently, this includes `commit' and `stash',
- where VALUE is the given commit or stash, respectively.
-3. RANGE
- A string indicating a diff range.
-
-If no DWIM context is found, nil is returned."
- (cond
- ((--when-let (magit-region-values '(commit branch) t)
- (deactivate-mark)
- (concat (car (last it)) ".." (car it))))
- (magit-buffer-refname
- (cons 'commit magit-buffer-refname))
- ((derived-mode-p 'magit-stash-mode)
- (cons 'commit
- (magit-section-case
- (commit (oref it value))
- (file (-> it
- (oref parent)
- (oref value)))
- (hunk (-> it
- (oref parent)
- (oref parent)
- (oref value))))))
- ((derived-mode-p 'magit-revision-mode)
- (cons 'commit (car magit-refresh-args)))
- ((derived-mode-p 'magit-diff-mode)
- (nth 0 magit-refresh-args))
- (t
- (magit-section-case
- ([* unstaged] 'unstaged)
- ([* staged] 'staged)
- (unmerged 'unmerged)
- (unpushed (oref it value))
- (unpulled (oref it value))
- (branch (let ((current (magit-get-current-branch))
- (atpoint (oref it value)))
- (if (equal atpoint current)
- (--if-let (magit-get-upstream-branch)
- (format "%s...%s" it current)
- (if (magit-anything-modified-p)
- current
- (cons 'commit current)))
- (format "%s...%s"
- (or current "HEAD")
- atpoint))))
- (commit (cons 'commit (oref it value)))
- (stash (cons 'stash (oref it value)))))))
-
-(defun magit-diff-read-range-or-commit (prompt &optional secondary-default mbase)
- "Read range or revision with special diff range treatment.
-If MBASE is non-nil, prompt for which rev to place at the end of
-a \"revA...revB\" range. Otherwise, always construct
-\"revA..revB\" range."
- (--if-let (magit-region-values '(commit branch) t)
- (let ((revA (car (last it)))
- (revB (car it)))
- (deactivate-mark)
- (if mbase
- (let ((base (magit-git-string "merge-base" revA revB)))
- (cond
- ((string= (magit-rev-parse revA) base)
- (format "%s..%s" revA revB))
- ((string= (magit-rev-parse revB) base)
- (format "%s..%s" revB revA))
- (t
- (let ((main (magit-completing-read "View changes along"
- (list revA revB)
- nil t nil nil revB)))
- (format "%s...%s"
- (if (string= main revB) revA revB) main)))))
- (format "%s..%s" revA revB)))
- (magit-read-range prompt
- (or (pcase (magit-diff--dwim)
- (`(commit . ,value)
- (format "%s^..%s" value value))
- ((and range (pred stringp))
- range))
- secondary-default
- (magit-get-current-branch)))))
-
-(defun magit-diff-setup (rev-or-range const args files)
- (require 'magit)
- (magit-mode-setup #'magit-diff-mode rev-or-range const args files))
-
-;;;###autoload
-(defun magit-diff-range (rev-or-range &optional args files)
- "Show differences between two commits.
-
-REV-OR-RANGE should be a range or a single revision. If it is a
-revision, then show changes in the working tree relative to that
-revision. If it is a range, but one side is omitted, then show
-changes relative to `HEAD'.
-
-If the region is active, use the revisions on the first and last
-line of the region as the two sides of the range. With a prefix
-argument, instead of diffing the revisions, choose a revision to
-view changes along, starting at the common ancestor of both
-revisions (i.e., use a \"...\" range)."
- (interactive (cons (magit-diff-read-range-or-commit "Diff for range"
- nil current-prefix-arg)
- (magit-diff-arguments)))
- (magit-diff-setup rev-or-range nil args files))
-
-;;;###autoload
-(defun magit-diff-working-tree (&optional rev args files)
- "Show changes between the current working tree and the `HEAD' commit.
-With a prefix argument show changes between the working tree and
-a commit read from the minibuffer."
- (interactive
- (cons (and current-prefix-arg
- (magit-read-branch-or-commit "Diff working tree and commit"))
- (magit-diff-arguments)))
- (magit-diff-setup (or rev "HEAD") nil args files))
-
-;;;###autoload
-(defun magit-diff-staged (&optional rev args files)
- "Show changes between the index and the `HEAD' commit.
-With a prefix argument show changes between the index and
-a commit read from the minibuffer."
- (interactive
- (cons (and current-prefix-arg
- (magit-read-branch-or-commit "Diff index and commit"))
- (magit-diff-arguments)))
- (magit-diff-setup rev (list "--cached") args files))
-
-;;;###autoload
-(defun magit-diff-unstaged (&optional args files)
- "Show changes between the working tree and the index."
- (interactive (magit-diff-arguments))
- (magit-diff-setup nil nil args files))
-
-;;;###autoload
-(defun magit-diff-unmerged (&optional args files)
- "Show changes that are being merged."
- (interactive (magit-diff-arguments))
- (unless (magit-merge-in-progress-p)
- (user-error "No merge is in progress"))
- (magit-diff-setup (magit--merge-range) nil args files))
-
-;;;###autoload
-(defun magit-diff-while-committing (&optional args)
- "While committing, show the changes that are about to be committed.
-While amending, invoking the command again toggles between
-showing just the new changes or all the changes that will
-be committed."
- (interactive (list (car (magit-diff-arguments))))
- (unless (magit-commit-message-buffer)
- (user-error "No commit in progress"))
- (let ((magit-display-buffer-noselect t)
- (diff-buf (magit-mode-get-buffer 'magit-diff-mode)))
- (if (and diff-buf
- (get-buffer-window diff-buf))
- (with-current-buffer diff-buf
- (pcase-let ((`(,rev ,arg . ,_) magit-refresh-args))
- (cond ((and (equal rev "HEAD^")
- (equal arg '("--cached")))
- (magit-diff-staged nil args))
- ((and (equal rev nil)
- (equal arg '("--cached")))
- (magit-diff-while-amending args))
- ((magit-anything-staged-p)
- (magit-diff-staged nil args))
- (t
- (magit-diff-while-amending args)))))
- (if (magit-anything-staged-p)
- (magit-diff-staged nil args)
- (magit-diff-while-amending args)))))
-
-(define-key git-commit-mode-map
- (kbd "C-c C-d") 'magit-diff-while-committing)
-
-(defun magit-diff-while-amending (&optional args)
- (magit-diff-setup "HEAD^" (list "--cached") args nil))
-
-;;;###autoload
-(defun magit-diff-buffer-file ()
- "Show diff for the blob or file visited in the current buffer."
- (interactive)
- (require 'magit)
- (if-let ((file (magit-file-relative-name)))
- (magit-mode-setup-internal #'magit-diff-mode
- (list (or magit-buffer-refname
- (magit-get-current-branch)
- "HEAD")
- nil
- (cadr (magit-diff-arguments))
- (list file))
- magit-diff-buffer-file-locked)
- (user-error "Buffer isn't visiting a file")))
-
-;;;###autoload
-(defun magit-diff-paths (a b)
- "Show changes between any two files on disk."
- (interactive (list (read-file-name "First file: " nil nil t)
- (read-file-name "Second file: " nil nil t)))
- (magit-diff-setup nil (list "--no-index")
- nil (list (magit-convert-filename-for-git
- (expand-file-name a))
- (magit-convert-filename-for-git
- (expand-file-name b)))))
-
-(defvar-local magit-buffer-revision-hash nil)
-
-(defun magit-show-commit--arguments ()
- (pcase-let ((`(,args ,diff-files) (magit-diff-arguments)))
- (list args (if (derived-mode-p 'magit-log-mode)
- (and (not (member "--follow" (nth 1 magit-refresh-args)))
- (nth 2 magit-refresh-args))
- diff-files))))
-
-;;;###autoload
-(defun magit-show-commit (rev &optional args files module)
- "Visit the revision at point in another buffer.
-If there is no revision at point or with a prefix argument prompt
-for a revision."
- (interactive
- (pcase-let* ((mcommit (magit-section-value-if 'module-commit))
- (atpoint (or (and (bound-and-true-p magit-blame-mode)
- (oref (magit-current-blame-chunk) orig-rev))
- mcommit
- (magit-branch-or-commit-at-point)))
- (`(,args ,files) (magit-show-commit--arguments)))
- (list (or (and (not current-prefix-arg) atpoint)
- (magit-read-branch-or-commit "Show commit" atpoint))
- args
- files
- (and mcommit
- (magit-section-parent-value (magit-current-section))))))
- (require 'magit)
- (magit-with-toplevel
- (when module
- (setq default-directory
- (expand-file-name (file-name-as-directory module))))
- (unless (magit-rev-verify-commit rev)
- (user-error "%s is not a commit" rev))
- (magit-mode-setup #'magit-revision-mode rev nil args files)))
-
-;;;; Setting commands
-
-(defun magit-diff-refresh (args files)
- "Set the local diff arguments for the current buffer."
- (interactive (magit-diff-arguments t))
- (cond ((derived-mode-p 'magit-diff-mode)
- (setcdr (cdr magit-refresh-args) (list args files)))
- (t
- (setq-local magit-diff-section-arguments args)
- (setq-local magit-diff-section-file-args files)))
- (magit-refresh))
-
-(defun magit-diff-set-default-arguments (args files)
- "Set the global diff arguments for the current buffer."
- (interactive (magit-diff-arguments t))
- (cond ((derived-mode-p 'magit-diff-mode)
- (customize-set-variable 'magit-diff-arguments args)
- (setcdr (cdr magit-refresh-args) (list args files)))
- (t
- (customize-set-variable 'magit-diff-section-arguments args)
- (kill-local-variable 'magit-diff-section-arguments)
- (kill-local-variable 'magit-diff-section-file-args)))
- (magit-refresh))
-
-(defun magit-diff-save-default-arguments (args files)
- "Set and save the global diff arguments for the current buffer."
- (interactive (magit-diff-arguments t))
- (cond ((derived-mode-p 'magit-diff-mode)
- (customize-save-variable 'magit-diff-arguments args)
- (setcdr (cdr magit-refresh-args) (list args files)))
- (t
- (customize-save-variable 'magit-diff-section-arguments args)
- (kill-local-variable 'magit-diff-section-arguments)
- (kill-local-variable 'magit-diff-section-file-args)))
- (magit-refresh))
-
-(defun magit-diff-switch-range-type ()
- "Convert diff range type.
-Change \"revA..revB\" to \"revB...revA\", or vice versa."
- (interactive)
- (let ((range (car magit-refresh-args)))
- (if (and range
- (derived-mode-p 'magit-diff-mode)
- (string-match magit-range-re range))
- (progn
- (setcar magit-refresh-args
- (concat (match-string 1 range)
- (if (string= (match-string 2 range) "..")
- "..."
- "..")
- (match-string 3 range)))
- (magit-refresh))
- (user-error "No range to change"))))
-
-(defun magit-diff-flip-revs ()
- "Swap revisions in diff range.
-Change \"revA..revB\" to \"revB..revA\"."
- (interactive)
- (let ((range (car magit-refresh-args)))
- (if (and range
- (derived-mode-p 'magit-diff-mode)
- (string-match magit-range-re range))
- (progn
- (setcar magit-refresh-args
- (concat (match-string 3 range)
- (match-string 2 range)
- (match-string 1 range)))
- (magit-refresh))
- (user-error "No range to swap"))))
-
-(defvar-local magit-diff--last-file-args nil)
-(defun magit-diff--toggle-file-args (files)
- (cond (files
- (setq magit-diff--last-file-args files)
- nil)
- (magit-diff--last-file-args)
- (t
- (user-error "No diff file filter to toggle"))))
-
-(defun magit-diff-toggle-file-filter ()
- "Toggle the file restriction of the current buffer's diffs.
-If the current buffer's mode is derived from `magit-log-mode',
-toggle the file restriction in the repository's revision buffer
-instead."
- (interactive)
- (--if-let (and (derived-mode-p 'magit-log-mode)
- (magit-mode-get-buffer 'magit-revision-mode))
- (with-current-buffer it
- (setf (nth 3 magit-refresh-args)
- (magit-diff--toggle-file-args (nth 3 magit-refresh-args)))
- (magit-refresh))
- (if (derived-mode-p 'magit-diff-mode)
- (setf (nth 3 magit-refresh-args)
- (magit-diff--toggle-file-args (nth 3 magit-refresh-args)))
- (setq-local magit-diff-section-file-args
- (magit-diff--toggle-file-args magit-diff-section-file-args)))
- (magit-refresh)))
-
-(defun magit-diff-less-context (&optional count)
- "Decrease the context for diff hunks by COUNT lines."
- (interactive "p")
- (magit-diff-set-context `(lambda (cur) (max 0 (- (or cur 0) ,count)))))
-
-(defun magit-diff-more-context (&optional count)
- "Increase the context for diff hunks by COUNT lines."
- (interactive "p")
- (magit-diff-set-context `(lambda (cur) (+ (or cur 0) ,count))))
-
-(defun magit-diff-default-context ()
- "Reset context for diff hunks to the default height."
- (interactive)
- (magit-diff-set-context #'ignore))
-
-(defun magit-diff-set-context (fn)
- (let* ((def (--if-let (magit-get "diff.context") (string-to-number it) 3))
- (val (car (magit-diff-arguments t)))
- (arg (--first (string-match "^-U\\([0-9]+\\)?$" it) val))
- (num (--if-let (and arg (match-string 1 arg)) (string-to-number it) def))
- (val (delete arg val))
- (num (funcall fn num))
- (arg (and num (not (= num def)) (format "-U%i" num)))
- (val (if arg (cons arg val) val)))
- (if (derived-mode-p 'magit-diff-mode)
- (setcar (cddr magit-refresh-args) val)
- (setq magit-diff-section-arguments val)))
- (magit-refresh))
-
-(defun magit-diff-context-p ()
- (--if-let (--first (string-match "^-U\\([0-9]+\\)$" it)
- (car (magit-diff-arguments t)))
- (not (equal "-U0" it))
- t))
-
-(defun magit-diff-ignore-any-space-p ()
- (let ((args (car (magit-diff-arguments t))))
- (--any-p (member it args)
- '("--ignore-cr-at-eol"
- "--ignore-space-at-eol"
- "--ignore-space-change" "-b"
- "--ignore-all-space" "-w"
- "--ignore-blank-space"))))
-
-(defun magit-diff-toggle-refine-hunk (&optional style)
- "Turn diff-hunk refining on or off.
-
-If hunk refining is currently on, then hunk refining is turned off.
-If hunk refining is off, then hunk refining is turned on, in
-`selected' mode (only the currently selected hunk is refined).
-
-With a prefix argument, the \"third choice\" is used instead:
-If hunk refining is currently on, then refining is kept on, but
-the refining mode (`selected' or `all') is switched.
-If hunk refining is off, then hunk refining is turned on, in
-`all' mode (all hunks refined).
-
-Customize variable `magit-diff-refine-hunk' to change the default mode."
- (interactive "P")
- (setq-local magit-diff-refine-hunk
- (if style
- (if (eq magit-diff-refine-hunk 'all) t 'all)
- (not magit-diff-refine-hunk)))
- (magit-diff-update-hunk-refinement))
-
-;;;; Visit commands
-
-(defun magit-diff-visit-file
- (file &optional other-window force-worktree display-fn)
- "From a diff, visit the corresponding file at the appropriate position.
-
-If the diff shows changes in the worktree, the index, or `HEAD',
-then visit the actual file. Otherwise, when the diff is about an
-older commit or a range, then visit the appropriate blob.
-
-If point is on a removed line, then visit the blob for the first
-parent of the commit which removed that line, i.e. the last
-commit where that line still existed. Otherwise visit the blob
-for the commit whose changes are being shown.
-
-Interactively, when the file or blob to be displayed is already
-being displayed in another window of the same frame, then just
-select that window and adjust point. Otherwise, or with a prefix
-argument, display the buffer in another window. The meaning of
-the prefix argument can be inverted or further modified using the
-option `magit-display-file-buffer-function'.
-
-Non-interactively the optional OTHER-WINDOW argument is taken
-literally. DISPLAY-FN can be used to specify the display
-function explicitly, in which case OTHER-WINDOW is ignored.
-
-The optional FORCE-WORKTREE means to force visiting the worktree
-version of the file. To do this interactively use the command
-`magit-diff-visit-file-worktree' instead."
- (interactive (list (--if-let (magit-file-at-point)
- (expand-file-name it)
- (user-error "No file at point"))
- current-prefix-arg))
- (if (magit-file-accessible-directory-p file)
- (magit-diff-visit-directory file other-window)
- (let* ((hunk (magit-diff-visit--hunk))
- (last (and magit-diff-visit-previous-blob
- (not force-worktree)
- (magit-section-match 'hunk)
- (save-excursion
- (goto-char (line-beginning-position))
- (looking-at "-"))))
- (line (and hunk (magit-diff-hunk-line hunk)))
- (col (and hunk (magit-diff-hunk-column hunk last)))
- (rev (if last
- (magit-diff-visit--range-beginning)
- (magit-diff-visit--range-end)))
- (buf (if (and (not force-worktree)
- (stringp rev))
- (magit-find-file-noselect rev file)
- (or (get-file-buffer file)
- (find-file-noselect file)))))
- (cond ((called-interactively-p 'any)
- (magit-display-file-buffer buf))
- (display-fn
- (funcall display-fn buf))
- ((or other-window (get-buffer-window buf))
- (switch-to-buffer-other-window buf))
- (t
- (pop-to-buffer buf)))
- (with-selected-window
- (or (get-buffer-window buf 'visible)
- (error "File buffer is not visible"))
- (when line
- (setq line
- (cond ((eq rev 'staged)
- (apply 'magit-diff-visit--offset file nil line))
- ((and force-worktree
- (stringp rev))
- (apply 'magit-diff-visit--offset file rev line))
- (t
- (apply '+ line))))
- (let ((pos (save-restriction
- (widen)
- (goto-char (point-min))
- (forward-line (1- line))
- (move-to-column col)
- (point))))
- (unless (<= (point-min) pos (point-max))
- (widen)
- (goto-char pos))))
- (when (magit-anything-unmerged-p file)
- (smerge-start-session))
- (run-hooks 'magit-diff-visit-file-hook)))))
-
-(defun magit-diff-visit-file-other-window (file)
- "From a diff, visit the corresponding file at the appropriate position.
-The file is shown in another window.
-
-If the diff shows changes in the worktree, the index, or `HEAD',
-then visit the actual file. Otherwise, when the diff is about an
-older commit or a range, then visit the appropriate blob.
-
-If point is on a removed line, then visit the blob for the first
-parent of the commit which removed that line, i.e. the last
-commit where that line still existed. Otherwise visit the blob
-for the commit whose changes are being shown."
- (interactive (list (--if-let (magit-file-at-point)
- (expand-file-name it)
- (user-error "No file at point"))))
- (magit-diff-visit-file file t))
-
-(defvar magit-display-file-buffer-function
- 'magit-display-file-buffer-traditional
- "The function used by `magit-diff-visit-file' to display blob buffers.
-
-Other commands such as `magit-find-file' do not use this
-function. Instead they use high-level functions to select the
-window to be used to display the buffer. This variable and the
-related functions are an experimental feature and should be
-treated as such.")
-
-(defun magit-display-file-buffer (buffer)
- (funcall magit-display-file-buffer-function buffer))
-
-(defun magit-display-file-buffer-traditional (buffer)
- "Display BUFFER in the current window.
-With a prefix argument display it in another window.
-Option `magit-display-file-buffer-function' controls
-whether `magit-diff-visit-file' uses this function."
- (if (or current-prefix-arg (get-buffer-window buffer))
- (pop-to-buffer buffer)
- (switch-to-buffer buffer)))
-
-(defun magit-display-file-buffer-other-window (buffer)
- "Display BUFFER in another window.
-With a prefix argument display it in the current window.
-Option `magit-display-file-buffer-function' controls
-whether `magit-diff-visit-file' uses this function."
- (if current-prefix-arg
- (switch-to-buffer buffer)
- (pop-to-buffer buffer)))
-
-(defun magit-diff-visit-file-worktree (file &optional other-window)
- "From a diff, visit the corresponding file at the appropriate position.
-
-When the file is already being displayed in another window of the
-same frame, then just select that window and adjust point. With
-a prefix argument also display in another window.
-
-The actual file in the worktree is visited. The positions in the
-hunk headers get less useful the \"older\" the changes are, and
-as a result, jumping to the appropriate position gets less
-reliable.
-
-Also see `magit-diff-visit-file' which visits the respective
-blob, unless the diff shows changes in the worktree, the index,
-or `HEAD'."
- (interactive (list (or (magit-file-at-point)
- (user-error "No file at point"))
- current-prefix-arg))
- (magit-diff-visit-file file other-window t))
-
-(defun magit-diff-visit--range-end ()
- (let ((rev (magit-diff--dwim)))
- (if (symbolp rev)
- rev
- (setq rev (if (consp rev)
- (cdr rev)
- (cdr (magit-split-range rev))))
- (if (magit-rev-head-p rev)
- 'unstaged
- rev))))
-
-(defun magit-diff-visit--range-beginning ()
- (let ((rev (magit-diff--dwim)))
- (cond ((consp rev)
- (concat (cdr rev) "^"))
- ((stringp rev)
- (car (magit-split-range rev)))
- (t
- rev))))
-
-(defun magit-diff-visit--hunk ()
- (when-let ((scope (magit-diff-scope)))
- (let ((section (magit-current-section)))
- (cl-case scope
- ((file files)
- (setq section (car (oref section children))))
- (list
- (setq section (car (oref section children)))
- (when section
- (setq section (car (oref section children))))))
- (and
- ;; Unmerged files appear in the list of staged changes
- ;; but unlike in the list of unstaged changes no diffs
- ;; are shown here. In that case `section' is nil.
- section
- ;; Currently the `hunk' type is also abused for file
- ;; mode changes, which we are not interested in here.
- ;; Such sections have no value.
- (oref section value)
- section))))
-
-(defun magit-diff-visit--offset (file rev hunk-start line-offset)
- (let ((offset 0))
- (with-temp-buffer
- (save-excursion
- (magit-with-toplevel
- (magit-git-insert "diff" rev "--" file)))
- (catch 'found
- (while (re-search-forward
- "^@@ -\\([0-9]+\\),\\([0-9]+\\) \\+\\([0-9]+\\),\\([0-9]+\\) @@"
- nil t)
- (let* ((abeg (string-to-number (match-string 1)))
- (alen (string-to-number (match-string 2)))
- (bbeg (string-to-number (match-string 3)))
- (blen (string-to-number (match-string 4)))
- (aend (+ abeg alen))
- (bend (+ bbeg blen))
- (hend (+ hunk-start line-offset)))
- (if (<= abeg hunk-start)
- (if (or (>= aend hend)
- (>= bend hend))
- (let ((line 0))
- (while (<= line alen)
- (forward-line 1)
- (cl-incf line)
- (cond ((looking-at "^\\+") (cl-incf offset))
- ((looking-at "^-") (cl-decf offset)))))
- (cl-incf offset (- blen alen)))
- (throw 'found nil))))))
- (+ hunk-start line-offset offset)))
-
-(defun magit-diff-hunk-line (section)
- (let* ((value (oref section value))
- (prefix (- (length value) 2))
- (cpos (marker-position (oref section content)))
- (stop (line-number-at-pos))
- (cstart (save-excursion (goto-char cpos)
- (line-number-at-pos)))
- (prior (and (= (length value) 3)
- (save-excursion (goto-char (line-beginning-position))
- (looking-at "-"))))
- (offset 0)
- (line (if prior
- (cadr value)
- (car (last value)))))
- (string-match (format "^%s\\([0-9]+\\)" (if prior "-" "\\+")) line)
- (setq line (string-to-number (match-string 1 line)))
- (when (> cstart stop)
- (save-excursion
- (goto-char cpos)
- (re-search-forward "^[-+]")
- (setq stop (line-number-at-pos))))
- (save-excursion
- (goto-char cpos)
- (while (< (line-number-at-pos) stop)
- (unless (string-match-p
- (if prior "\\+" "-")
- (buffer-substring (point) (+ (point) prefix)))
- (cl-incf offset))
- (forward-line)))
- (list line offset)))
-
-(defun magit-diff-hunk-column (section visit-beginning)
- (if (or (< (point)
- (oref section content))
- (and (not visit-beginning)
- (save-excursion (beginning-of-line) (looking-at-p "-"))))
- 0
- (max 0 (- (+ (current-column) 2)
- (length (oref section value))))))
-
-(defun magit-diff-visit-directory (directory &optional other-window)
- (if (equal (magit-toplevel directory)
- (magit-toplevel))
- (dired-jump other-window (concat directory "/."))
- (let ((display-buffer-overriding-action
- (if other-window
- '(nil (inhibit-same-window t))
- '(display-buffer-same-window))))
- (magit-status-internal directory))))
-
-;;;; Scroll commands
-
-(defun magit-diff-show-or-scroll-up ()
- "Update the commit or diff buffer for the thing at point.
-
-Either show the commit or stash at point in the appropriate
-buffer, or if that buffer is already being displayed in the
-current frame and contains information about that commit or
-stash, then instead scroll the buffer up. If there is no
-commit or stash at point, then prompt for a commit."
- (interactive)
- (magit-diff-show-or-scroll 'scroll-up))
-
-(defun magit-diff-show-or-scroll-down ()
- "Update the commit or diff buffer for the thing at point.
-
-Either show the commit or stash at point in the appropriate
-buffer, or if that buffer is already being displayed in the
-current frame and contains information about that commit or
-stash, then instead scroll the buffer down. If there is no
-commit or stash at point, then prompt for a commit."
- (interactive)
- (magit-diff-show-or-scroll 'scroll-down))
-
-(defun magit-diff-show-or-scroll (fn)
- (let (rev cmd buf win)
- (cond
- (magit-blame-mode
- (setq rev (oref (magit-current-blame-chunk) orig-rev))
- (setq cmd 'magit-show-commit)
- (setq buf (magit-mode-get-buffer 'magit-revision-mode)))
- ((derived-mode-p 'git-rebase-mode)
- (save-excursion
- (goto-char (line-beginning-position))
- (--if-let (and git-rebase-line
- (looking-at git-rebase-line)
- (match-string 2))
- (progn (setq rev it)
- (setq cmd 'magit-show-commit)
- (setq buf (magit-mode-get-buffer 'magit-revision-mode)))
- (user-error "No commit on this line"))))
- (t
- (magit-section-case
- (branch
- (setq rev (magit-ref-maybe-qualify (oref it value)))
- (setq cmd 'magit-show-commit)
- (setq buf (magit-mode-get-buffer 'magit-revision-mode)))
- (commit
- (setq rev (oref it value))
- (setq cmd 'magit-show-commit)
- (setq buf (magit-mode-get-buffer 'magit-revision-mode)))
- (stash
- (setq rev (oref it value))
- (setq cmd 'magit-stash-show)
- (setq buf (magit-mode-get-buffer 'magit-stash-mode))))))
- (if rev
- (if (and buf
- (setq win (get-buffer-window buf))
- (with-current-buffer buf
- (and (equal rev (car magit-refresh-args))
- (equal (magit-rev-parse rev)
- magit-buffer-revision-hash))))
- (with-selected-window win
- (condition-case nil
- (funcall fn)
- (error
- (goto-char (pcase fn
- (`scroll-up (point-min))
- (`scroll-down (point-max)))))))
- (let ((magit-display-buffer-noselect t))
- (if (eq cmd 'magit-show-commit)
- (apply #'magit-show-commit rev (magit-show-commit--arguments))
- (funcall cmd rev))))
- (call-interactively #'magit-show-commit))))
-
-;;; Diff Mode
-
-(defvar magit-diff-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-mode-map)
- (define-key map "\C-c\C-d" 'magit-diff-while-committing)
- (define-key map "\C-c\C-b" 'magit-go-backward)
- (define-key map "\C-c\C-f" 'magit-go-forward)
- (define-key map "\s" 'scroll-up)
- (define-key map "\d" 'scroll-down)
- (define-key map "j" 'magit-jump-to-diffstat-or-diff)
- (define-key map [remap write-file] 'magit-patch-save)
- map)
- "Keymap for `magit-diff-mode'.")
-
-(define-derived-mode magit-diff-mode magit-mode "Magit Diff"
- "Mode for looking at a Git diff.
-
-This mode is documented in info node `(magit)Diff Buffer'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-section-toggle] to expand or hide the section at point.
-Type \\[magit-visit-thing] to visit the hunk or file at point.
-
-Staging and applying changes is documented in info node
-`(magit)Staging and Unstaging' and info node `(magit)Applying'.
-
-\\<magit-hunk-section-map>Type \
-\\[magit-apply] to apply the change at point, \
-\\[magit-stage] to stage,
-\\[magit-unstage] to unstage, \
-\\[magit-discard] to discard, or \
-\\[magit-reverse] to reverse it.
-
-\\{magit-diff-mode-map}"
- :group 'magit-diff
- (hack-dir-local-variables-non-file-buffer)
- (setq imenu-prev-index-position-function
- 'magit-imenu--diff-prev-index-position-function)
- (setq imenu-extract-index-name-function
- 'magit-imenu--diff-extract-index-name-function)
- (setq-local bookmark-make-record-function
- 'magit-bookmark--diff-make-record))
-
-(defun magit-diff-refresh-buffer (rev-or-range const _args files)
- "Refresh the current `magit-diff-mode' buffer.
-
-In such buffers the buffer-local value of `magit-refresh-args'
-has the same form as the arguments of this function. The value
-is set in `magit-mode-setup'."
- (magit-set-header-line-format
- (if (member "--no-index" const)
- (apply #'format "Differences between %s and %s" files)
- (concat (if rev-or-range
- (if (string-match-p "\\(\\.\\.\\|\\^-\\)"
- rev-or-range)
- (format "Changes in %s" rev-or-range)
- (format "Changes from %s to working tree" rev-or-range))
- (if (member "--cached" const)
- "Staged changes"
- "Unstaged changes"))
- (pcase (length files)
- (0)
- (1 (concat " in file " (car files)))
- (_ (concat " in files "
- (mapconcat #'identity files ", ")))))))
- (magit-insert-section (diffbuf)
- (magit-run-section-hook 'magit-diff-sections-hook rev-or-range)))
-
-(defun magit-insert-diff (rev-or-range)
- "Insert the diff into this `magit-diff-mode' buffer."
- (let ((magit-git-global-arguments
- (remove "--literal-pathspecs" magit-git-global-arguments)))
- (magit-git-wash #'magit-diff-wash-diffs
- "diff" rev-or-range "-p" "--no-prefix"
- (and (member "--stat" (nth 2 magit-refresh-args)) "--numstat")
- (nth 1 magit-refresh-args)
- (nth 2 magit-refresh-args) "--"
- (nth 3 magit-refresh-args))))
-
-(defvar magit-file-section-map
- (let ((map (make-sparse-keymap)))
- (unless (featurep 'jkl)
- (define-key map (kbd "C-j") 'magit-diff-visit-file-worktree))
- (define-key map [C-return] 'magit-diff-visit-file-worktree)
- (define-key map [remap magit-visit-thing] 'magit-diff-visit-file)
- (define-key map [remap magit-delete-thing] 'magit-discard)
- (define-key map [remap magit-revert-no-commit] 'magit-reverse)
- (define-key map "a" 'magit-apply)
- (define-key map "C" 'magit-commit-add-log)
- (define-key map "s" 'magit-stage)
- (define-key map "u" 'magit-unstage)
- (define-key map "&" 'magit-do-async-shell-command)
- (define-key map "\C-c\C-t" 'magit-diff-trace-definition)
- (define-key map "\C-c\C-e" 'magit-diff-edit-hunk-commit)
- map)
- "Keymap for `file' sections.")
-
-(defvar magit-hunk-section-map
- (let ((map (make-sparse-keymap)))
- (unless (featurep 'jkl)
- (define-key map (kbd "C-j") 'magit-diff-visit-file-worktree))
- (define-key map [C-return] 'magit-diff-visit-file-worktree)
- (define-key map [remap magit-visit-thing] 'magit-diff-visit-file)
- (define-key map [remap magit-delete-thing] 'magit-discard)
- (define-key map [remap magit-revert-no-commit] 'magit-reverse)
- (define-key map "a" 'magit-apply)
- (define-key map "C" 'magit-commit-add-log)
- (define-key map "s" 'magit-stage)
- (define-key map "u" 'magit-unstage)
- (define-key map "&" 'magit-do-async-shell-command)
- (define-key map "\C-c\C-t" 'magit-diff-trace-definition)
- (define-key map "\C-c\C-e" 'magit-diff-edit-hunk-commit)
- map)
- "Keymap for `hunk' sections.")
-
-(defconst magit-diff-headline-re
- (concat "^\\(@@@?\\|diff\\|Submodule\\|"
- "\\* Unmerged path\\|merged\\|changed in both\\|"
- "added in remote\\|removed in remote\\)"))
-
-(defconst magit-diff-statline-re
- (concat "^ ?"
- "\\(.*\\)" ; file
- "\\( +| +\\)" ; separator
- "\\([0-9]+\\|Bin\\(?: +[0-9]+ -> [0-9]+ bytes\\)?$\\) ?"
- "\\(\\+*\\)" ; add
- "\\(-*\\)$")) ; del
-
-(defun magit-diff-wash-diffs (args &optional limit)
- (when (member "--stat" args)
- (magit-diff-wash-diffstat))
- (when (re-search-forward magit-diff-headline-re limit t)
- (goto-char (line-beginning-position))
- (magit-wash-sequence (apply-partially 'magit-diff-wash-diff args))
- (insert ?\n)))
-
-(defun magit-jump-to-diffstat-or-diff ()
- "Jump to the diffstat or diff.
-When point is on a file inside the diffstat section, then jump
-to the respective diff section, otherwise jump to the diffstat
-section or a child thereof."
- (interactive)
- (--if-let (magit-get-section
- (append (magit-section-case
- ([file diffstat] `((file . ,(oref it value))))
- (file `((file . ,(oref it value)) (diffstat)))
- (t '((diffstat))))
- (magit-section-ident magit-root-section)))
- (magit-section-goto it)
- (user-error "No diffstat in this buffer")))
-
-(defun magit-diff-wash-diffstat ()
- (let (heading (beg (point)))
- (when (re-search-forward "^ ?\\([0-9]+ +files? change[^\n]*\n\\)" nil t)
- (setq heading (match-string 1))
- (magit-delete-match)
- (goto-char beg)
- (magit-insert-section (diffstat)
- (insert (propertize heading 'face 'magit-diff-file-heading))
- (magit-insert-heading)
- (let (files)
- (while (looking-at "^[-0-9]+\t[-0-9]+\t\\(.+\\)$")
- (push (magit-decode-git-path
- (let ((f (match-string 1)))
- (if (string-match " => " f)
- (substring f (match-end 0))
- f)))
- files)
- (magit-delete-line))
- (setq files (nreverse files))
- (while (looking-at magit-diff-statline-re)
- (magit-bind-match-strings (file sep cnt add del) nil
- (magit-delete-line)
- (when (string-match " +$" file)
- (setq sep (concat (match-string 0 file) sep))
- (setq file (substring file 0 (match-beginning 0))))
- (let ((le (length file)) ld)
- (setq file (magit-decode-git-path file))
- (setq ld (length file))
- (when (> le ld)
- (setq sep (concat (make-string (- le ld) ?\s) sep))))
- (magit-insert-section (file (pop files))
- (insert (propertize file 'face 'magit-filename) sep cnt " ")
- (when add
- (insert (propertize add 'face 'magit-diffstat-added)))
- (when del
- (insert (propertize del 'face 'magit-diffstat-removed)))
- (insert "\n")))))
- (if (looking-at "^$") (forward-line) (insert "\n"))))))
-
-(defun magit-diff-wash-diff (args)
- (cond
- ((looking-at "^Submodule")
- (magit-diff-wash-submodule))
- ((looking-at "^\\* Unmerged path \\(.*\\)")
- (let ((file (magit-decode-git-path (match-string 1))))
- (magit-delete-line)
- (unless (and (derived-mode-p 'magit-status-mode)
- (not (member "--cached" args)))
- (magit-insert-section (file file)
- (insert (propertize
- (format "unmerged %s%s" file
- (pcase (cddr (car (magit-file-status file)))
- (`(?D ?D) " (both deleted)")
- (`(?D ?U) " (deleted by us)")
- (`(?U ?D) " (deleted by them)")
- (`(?A ?A) " (both added)")
- (`(?A ?U) " (added by us)")
- (`(?U ?A) " (added by them)")
- (`(?U ?U) "")))
- 'face 'magit-diff-file-heading))
- (insert ?\n))))
- t)
- ((looking-at (concat "^\\(merged\\|changed in both\\|"
- "added in remote\\|removed in remote\\)"))
- (let ((status (pcase (match-string 1)
- ("merged" "merged")
- ("changed in both" "conflict")
- ("added in remote" "new file")
- ("removed in remote" "deleted")))
- file orig base modes)
- (magit-delete-line)
- (while (looking-at
- "^ \\([^ ]+\\) +[0-9]\\{6\\} \\([a-z0-9]\\{40\\}\\) \\(.+\\)$")
- (magit-bind-match-strings (side _blob name) nil
- (pcase side
- ("result" (setq file name))
- ("our" (setq orig name))
- ("their" (setq file name))
- ("base" (setq base name))))
- (magit-delete-line))
- (when orig (setq orig (magit-decode-git-path orig)))
- (when file (setq file (magit-decode-git-path file)))
- (magit-diff-insert-file-section (or file base) orig status modes nil)))
- ((looking-at
- "^diff --\\(?:\\(git\\) \\(?:\\(.+?\\) \\2\\)?\\|\\(cc\\|combined\\) \\(.+\\)\\)")
- (let ((status (cond ((equal (match-string 1) "git") "modified")
- ((derived-mode-p 'magit-revision-mode) "resolved")
- (t "unmerged")))
- (file (or (match-string 2) (match-string 4)))
- (beg (point))
- orig header modes)
- (save-excursion
- (forward-line 1)
- (setq header (buffer-substring
- beg (if (re-search-forward magit-diff-headline-re nil t)
- (match-beginning 0)
- (point-max)))))
- (magit-delete-line)
- (while (not (or (eobp) (looking-at magit-diff-headline-re)))
- (if (looking-at "^old mode \\([^\n]+\\)\nnew mode \\([^\n]+\\)\n")
- (progn (setq modes (match-string 0))
- (magit-delete-match))
- (cond
- ((looking-at "^--- \\([^/].*?\\)\t?$") ; i.e. not /dev/null
- (setq orig (match-string 1)))
- ((looking-at "^\\+\\+\\+ \\([^/].*?\\)\t?$")
- (setq file (match-string 1)))
- ((looking-at "^\\(copy\\|rename\\) from \\(.+\\)$")
- (setq orig (match-string 2)))
- ((looking-at "^\\(copy\\|rename\\) to \\(.+\\)$")
- (setq file (match-string 2))
- (setq status (if (equal (match-string 1) "copy") "new file" "renamed")))
- ((looking-at "^\\(new file\\|deleted\\)")
- (setq status (match-string 1))))
- (magit-delete-line)))
- (when orig
- (setq orig (magit-decode-git-path orig)))
- (setq file (magit-decode-git-path file))
- ;; KLUDGE `git-log' ignores `--no-prefix' when `-L' is used.
- (when (and (derived-mode-p 'magit-log-mode)
- (--first (string-match-p "\\`-L" it)
- (nth 1 magit-refresh-args)))
- (setq file (substring file 2))
- (when orig
- (setq orig (substring orig 2))))
- (magit-diff-insert-file-section file orig status modes header)))))
-
-(defun magit-diff-insert-file-section (file orig status modes header)
- (magit-insert-section section
- (file file (or (equal status "deleted")
- (derived-mode-p 'magit-status-mode)))
- (insert (propertize (format "%-10s %s\n" status
- (if (or (not orig) (equal orig file))
- file
- (format "%s -> %s" orig file)))
- 'face 'magit-diff-file-heading))
- (magit-insert-heading)
- (unless (equal orig file)
- (oset section source orig))
- (oset section header header)
- (when modes
- (magit-insert-section (hunk)
- (insert modes)))
- (magit-wash-sequence #'magit-diff-wash-hunk)))
-
-(defun magit-diff-wash-submodule ()
- ;; See `show_submodule_summary' in submodule.c and "this" commit.
- (when (looking-at "^Submodule \\([^ ]+\\)")
- (let ((module (match-string 1))
- untracked modified)
- (when (looking-at "^Submodule [^ ]+ contains untracked content$")
- (magit-delete-line)
- (setq untracked t))
- (when (looking-at "^Submodule [^ ]+ contains modified content$")
- (magit-delete-line)
- (setq modified t))
- (cond
- ((and (looking-at "^Submodule \\([^ ]+\\) \\([^ :]+\\)\\( (rewind)\\)?:$")
- (equal (match-string 1) module))
- (magit-bind-match-strings (_module range rewind) nil
- (magit-delete-line)
- (while (looking-at "^ \\([<>]\\) \\(.+\\)$")
- (magit-delete-line))
- (when rewind
- (setq range (replace-regexp-in-string "[^.]\\(\\.\\.\\)[^.]"
- "..." range t t 1)))
- (magit-insert-section (magit-module-section module t)
- (magit-insert-heading
- (propertize (concat "modified " module)
- 'face 'magit-diff-file-heading)
- " ("
- (cond (rewind "rewind")
- ((string-match-p "\\.\\.\\." range) "non-ff")
- (t "new commits"))
- (and (or modified untracked)
- (concat ", "
- (and modified "modified")
- (and modified untracked " and ")
- (and untracked "untracked")
- " content"))
- ")")
- (let ((default-directory
- (file-name-as-directory
- (expand-file-name module (magit-toplevel)))))
- (magit-git-wash (apply-partially 'magit-log-wash-log 'module)
- "log" "--oneline" "--left-right" range)
- (delete-char -1)))))
- ((and (looking-at "^Submodule \\([^ ]+\\) \\([^ ]+\\) (\\([^)]+\\))$")
- (equal (match-string 1) module))
- (magit-bind-match-strings (_module _range msg) nil
- (magit-delete-line)
- (magit-insert-section (magit-module-section module)
- (magit-insert-heading
- (propertize (concat "submodule " module)
- 'face 'magit-diff-file-heading)
- " (" msg ")"))))
- (t
- (magit-insert-section (magit-module-section module)
- (magit-insert-heading
- (propertize (concat "modified " module)
- 'face 'magit-diff-file-heading)
- " ("
- (and modified "modified")
- (and modified untracked " and ")
- (and untracked "untracked")
- " content)")))))))
-
-(defun magit-diff-wash-hunk ()
- (when (looking-at "^@\\{2,\\} \\(.+?\\) @\\{2,\\}\\(?: \\(.*\\)\\)?")
- (let ((heading (match-string 0))
- (value (cons (match-string 2) (split-string (match-string 1)))))
- (magit-delete-line)
- (magit-insert-section it (hunk value)
- (insert (propertize (concat heading "\n") 'face 'magit-diff-hunk-heading))
- (magit-insert-heading)
- (while (not (or (eobp) (looking-at "^[^-+\s\\]")))
- (forward-line))
- (oset it end (point))
- (oset it washer 'magit-diff-paint-hunk)))
- t))
-
-(defun magit-diff-expansion-threshold (section)
- "Keep new diff sections collapsed if washing takes too long."
- (and (magit-file-section-p section)
- (> (float-time (time-subtract (current-time) magit-refresh-start-time))
- magit-diff-expansion-threshold)
- 'hide))
-
-;;; Revision Mode
-
-(define-derived-mode magit-revision-mode magit-diff-mode "Magit Rev"
- "Mode for looking at a Git commit.
-
-This mode is documented in info node `(magit)Revision Buffer'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-section-toggle] to expand or hide the section at point.
-Type \\[magit-visit-thing] to visit the hunk or file at point.
-
-Staging and applying changes is documented in info node
-`(magit)Staging and Unstaging' and info node `(magit)Applying'.
-
-\\<magit-hunk-section-map>Type \
-\\[magit-apply] to apply the change at point, \
-\\[magit-stage] to stage,
-\\[magit-unstage] to unstage, \
-\\[magit-discard] to discard, or \
-\\[magit-reverse] to reverse it.
-
-\\{magit-revision-mode-map}"
- :group 'magit-revision
- (hack-dir-local-variables-non-file-buffer)
- (setq-local bookmark-make-record-function
- 'magit-bookmark--revision-make-record))
-
-(defun magit-revision-refresh-buffer (rev __const _args files)
- (magit-set-header-line-format
- (concat (capitalize (magit-object-type rev))
- " "
- rev
- (pcase (length files)
- (0)
- (1 (concat " limited to file " (car files)))
- (_ (concat " limited to files "
- (mapconcat #'identity files ", "))))))
- (setq magit-buffer-revision-hash (magit-rev-parse rev))
- (magit-insert-section (commitbuf)
- (magit-run-section-hook 'magit-revision-sections-hook rev)))
-
-(defun magit-insert-revision-diff (rev)
- "Insert the diff into this `magit-revision-mode' buffer."
- (let ((magit-git-global-arguments
- (remove "--literal-pathspecs" magit-git-global-arguments)))
- ;; Before v2.2.0, "--format=" did not mean "no output".
- ;; Instead the default format was used. So use "--format=%n"
- ;; and then delete the empty lines.
- (magit-git-wash (lambda (args)
- (delete-region (point) (progn (forward-line 3) (point)))
- (magit-diff-wash-diffs args))
- "show" "-p" "--cc" "--format=%n" "--no-prefix"
- (and (member "--stat" (nth 2 magit-refresh-args)) "--numstat")
- (nth 2 magit-refresh-args) (concat rev "^{commit}") "--"
- (nth 3 magit-refresh-args))))
-
-(defun magit-insert-revision-tag (rev)
- "Insert tag message and headers into a revision buffer.
-This function only inserts anything when `magit-show-commit' is
-called with a tag as argument, when that is called with a commit
-or a ref which is not a branch, then it inserts nothing."
- (when (equal (magit-object-type rev) "tag")
- (magit-insert-section (taginfo)
- (let ((beg (point)))
- ;; "git verify-tag -v" would output what we need, but the gpg
- ;; output is send to stderr and we have no control over the
- ;; order in which stdout and stderr are inserted, which would
- ;; make parsing hard. We are forced to use "git cat-file tag"
- ;; instead, which inserts the signature instead of verifying
- ;; it. We remove that later and then insert the verification
- ;; output using "git verify-tag" (without the "-v").
- (magit-git-insert "cat-file" "tag" rev)
- (goto-char beg)
- (forward-line 3)
- (delete-region beg (point)))
- (looking-at "^tagger \\([^<]+\\) <\\([^>]+\\)")
- (let ((heading (format "Tagger: %s <%s>"
- (match-string 1)
- (match-string 2))))
- (magit-delete-line)
- (insert (propertize heading 'face 'magit-section-secondary-heading)))
- (magit-insert-heading)
- (if (re-search-forward "-----BEGIN PGP SIGNATURE-----" nil t)
- (progn
- (let ((beg (match-beginning 0)))
- (re-search-forward "-----END PGP SIGNATURE-----")
- (delete-region beg (point)))
- (insert ?\n)
- (process-file magit-git-executable nil t nil "verify-tag" rev))
- (goto-char (point-max)))
- (insert ?\n))))
-
-(defvar magit-commit-message-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-show-commit)
- map)
- "Keymap for `commit-message' sections.")
-
-(defun magit-insert-revision-message (rev)
- "Insert the commit message into a revision buffer."
- (magit-insert-section section (commit-message)
- (oset section heading-highlight-face 'magit-diff-hunk-heading-highlight)
- (let ((beg (point)))
- (insert (save-excursion ; The risky var query can move point.
- (with-temp-buffer
- (magit-rev-insert-format "%B" rev)
- (magit-revision--wash-message))))
- (if (= (point) (+ beg 2))
- (progn (backward-delete-char 2)
- (insert "(no message)\n"))
- (goto-char beg)
- (save-excursion
- (while (search-forward "\r\n" nil t) ; Remove trailing CRs.
- (delete-region (match-beginning 0) (1+ (match-beginning 0)))))
- (when magit-revision-fill-summary-line
- (let ((fill-column (min magit-revision-fill-summary-line
- (window-width))))
- (fill-region (point) (line-end-position))))
- (when magit-revision-use-hash-sections
- (save-excursion
- (while (not (eobp))
- (re-search-forward "\\_<" nil 'move)
- (let ((beg (point)))
- (re-search-forward "\\_>" nil t)
- (when (> (point) beg)
- (let ((text (buffer-substring-no-properties beg (point))))
- (when (pcase magit-revision-use-hash-sections
- (`quickest ; false negatives and positives
- (and (>= (length text) 7)
- (string-match-p "[0-9]" text)
- (string-match-p "[a-z]" text)))
- (`quicker ; false negatives (number-less hashes)
- (and (>= (length text) 7)
- (string-match-p "[0-9]" text)
- (magit-rev-verify-commit text)))
- (`quick ; false negatives (short hashes)
- (and (>= (length text) 7)
- (magit-rev-verify-commit text)))
- (`slow
- (magit-rev-verify-commit text)))
- (put-text-property beg (point) 'face 'magit-hash)
- (let ((end (point)))
- (goto-char beg)
- (magit-insert-section (commit text)
- (goto-char end))))))))))
- (save-excursion
- (forward-line)
- (add-face-text-property beg (point) 'magit-diff-hunk-heading)
- (magit-insert-heading))
- (when magit-diff-highlight-keywords
- (save-excursion
- (while (re-search-forward "\\[[^[]*\\]" nil t)
- (let ((beg (match-beginning 0))
- (end (match-end 0)))
- (put-text-property
- beg end 'face
- (if-let ((face (get-text-property beg 'face)))
- (list face 'magit-keyword)
- 'magit-keyword))))))
- (goto-char (point-max))))))
-
-(defun magit-insert-revision-notes (rev)
- "Insert commit notes into a revision buffer."
- (let* ((var "core.notesRef")
- (def (or (magit-get var) "refs/notes/commits")))
- (dolist (ref (or (magit-list-active-notes-refs)))
- (magit-insert-section section (notes ref (not (equal ref def)))
- (oset section heading-highlight-face 'magit-diff-hunk-heading-highlight)
- (let ((beg (point)))
- (insert (with-temp-buffer
- (magit-git-insert "-c" (concat "core.notesRef=" ref)
- "notes" "show" rev)
- (magit-revision--wash-message)))
- (if (= (point) beg)
- (magit-cancel-section)
- (goto-char beg)
- (end-of-line)
- (insert (format " (%s)"
- (propertize (if (string-prefix-p "refs/notes/" ref)
- (substring ref 11)
- ref)
- 'face 'magit-refname)))
- (forward-char)
- (add-face-text-property beg (point) 'magit-diff-hunk-heading)
- (magit-insert-heading)
- (goto-char (point-max))
- (insert ?\n)))))))
-
-(defun magit-revision--wash-message ()
- (let ((major-mode 'git-commit-mode))
- (hack-dir-local-variables)
- (hack-local-variables-apply))
- (unless (memq git-commit-major-mode '(nil text-mode))
- (funcall git-commit-major-mode)
- (font-lock-ensure))
- (buffer-string))
-
-(defun magit-insert-revision-headers (rev)
- "Insert headers about the commit into a revision buffer."
- (magit-insert-section (headers)
- ;; Before v2.2.0, "%D" was not supported.
- (--when-let (magit-rev-format "%d" rev "--decorate=full")
- (insert (magit-format-ref-labels it) ?\s))
- (insert (propertize (magit-rev-parse (concat rev "^{commit}"))
- 'face 'magit-hash))
- (magit-insert-heading)
- (let ((beg (point)))
- (magit-rev-insert-format magit-revision-headers-format rev)
- (magit-insert-revision-gravatars rev beg))
- (when magit-revision-insert-related-refs
- (dolist (parent (magit-commit-parents rev))
- (magit-insert-section (commit parent)
- (let ((line (magit-rev-format "%h %s" parent)))
- (string-match "^\\([^ ]+\\) \\(.*\\)" line)
- (magit-bind-match-strings (hash msg) line
- (insert "Parent: ")
- (insert (propertize hash 'face 'magit-hash))
- (insert " " msg "\n")))))
- (magit--insert-related-refs
- rev "--merged" "Merged"
- (eq magit-revision-insert-related-refs 'all))
- (magit--insert-related-refs
- rev "--contains" "Contained"
- (eq magit-revision-insert-related-refs '(all mixed)))
- (when-let ((follows (magit-get-current-tag rev t)))
- (let ((tag (car follows))
- (cnt (cadr follows)))
- (magit-insert-section (tag tag)
- (insert (format "Follows: %s (%s)\n"
- (propertize tag 'face 'magit-tag)
- (propertize (number-to-string cnt)
- 'face 'magit-branch-local))))))
- (when-let ((precedes (magit-get-next-tag rev t)))
- (let ((tag (car precedes))
- (cnt (cadr precedes)))
- (magit-insert-section (tag tag)
- (insert (format "Precedes: %s (%s)\n"
- (propertize tag 'face 'magit-tag)
- (propertize (number-to-string cnt)
- 'face 'magit-tag))))))
- (insert ?\n))))
-
-(defun magit--insert-related-refs (rev arg title remote)
- (when-let ((refs (magit-list-related-branches arg rev (and remote "-a"))))
- (insert title ":" (make-string (- 10 (length title)) ?\s))
- (dolist (branch refs)
- (if (<= (+ (current-column) 1 (length branch))
- (window-width))
- (insert ?\s)
- (insert ?\n (make-string 12 ?\s)))
- (magit-insert-section (branch branch)
- (insert (propertize branch 'face
- (if (string-prefix-p "remotes/" branch)
- 'magit-branch-remote
- 'magit-branch-local)))))
- (insert ?\n)))
-
-(defun magit-insert-revision-gravatars (rev beg)
- (when (and magit-revision-show-gravatars
- (window-system))
- (require 'gravatar)
- (pcase-let ((`(,author . ,committer)
- (pcase magit-revision-show-gravatars
- (`t '("^Author: " . "^Commit: "))
- (`author '("^Author: " . nil))
- (`committer '(nil . "^Commit: "))
- (_ magit-revision-show-gravatars))))
- (--when-let (and author (magit-rev-format "%aE" rev))
- (magit-insert-revision-gravatar beg rev it author))
- (--when-let (and committer (magit-rev-format "%cE" rev))
- (magit-insert-revision-gravatar beg rev it committer)))))
-
-(defun magit-insert-revision-gravatar (beg rev email regexp)
- (save-excursion
- (goto-char beg)
- (when (re-search-forward regexp nil t)
- (let* ((column (length (match-string 0)))
- (font-obj (query-font (font-at (point) (get-buffer-window))))
- (size (* 2 (+ (aref font-obj 4)
- (aref font-obj 5))))
- (align-to (+ column
- (ceiling (/ size (aref font-obj 7) 1.0))
- 1))
- (gravatar-size (- size 2)))
- (ignore-errors ; service may be unreachable
- (gravatar-retrieve email 'magit-insert-revision-gravatar-cb
- (list rev (point-marker) align-to column)))))))
-
-(defun magit-insert-revision-gravatar-cb (image rev marker align-to column)
- (unless (eq image 'error)
- (when-let ((buffer (marker-buffer marker)))
- (with-current-buffer buffer
- (save-excursion
- (goto-char marker)
- ;; The buffer might display another revision by now or
- ;; it might have been refreshed, in which case another
- ;; process might already have inserted the image.
- (when (and (equal rev (car magit-refresh-args))
- (not (eq (car-safe
- (car-safe
- (get-text-property (point) 'display)))
- 'image)))
- (let ((top `((,@image :ascent center :relief 1)
- (slice 0.0 0.0 1.0 0.5)))
- (bot `((,@image :ascent center :relief 1)
- (slice 0.0 0.5 1.0 1.0)))
- (align `((space :align-to ,align-to))))
- (when magit-revision-use-gravatar-kludge
- (cl-rotatef top bot))
- (let ((inhibit-read-only t))
- (insert (propertize " " 'display top))
- (insert (propertize " " 'display align))
- (forward-line)
- (forward-char column)
- (insert (propertize " " 'display bot))
- (insert (propertize " " 'display align))))))))))
-
-;;; Diff Sections
-
-(defvar magit-unstaged-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-diff-unstaged)
- (define-key map [remap magit-delete-thing] 'magit-discard)
- (define-key map "s" 'magit-stage)
- (define-key map "u" 'magit-unstage)
- map)
- "Keymap for the `unstaged' section.")
-
-(magit-define-section-jumper magit-jump-to-unstaged "Unstaged changes" unstaged)
-
-(defun magit-insert-unstaged-changes ()
- "Insert section showing unstaged changes."
- (magit-insert-section (unstaged)
- (magit-insert-heading "Unstaged changes:")
- (magit-git-wash #'magit-diff-wash-diffs
- "diff" magit-diff-section-arguments "--no-prefix"
- "--" magit-diff-section-file-args)))
-
-(defvar magit-staged-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-diff-staged)
- (define-key map [remap magit-delete-thing] 'magit-discard)
- (define-key map [remap magit-revert-no-commit] 'magit-reverse)
- (define-key map "s" 'magit-stage)
- (define-key map "u" 'magit-unstage)
- map)
- "Keymap for the `staged' section.")
-
-(magit-define-section-jumper magit-jump-to-staged "Staged changes" staged)
-
-(defun magit-insert-staged-changes ()
- "Insert section showing staged changes."
- ;; Avoid listing all files as deleted when visiting a bare repo.
- (unless (magit-bare-repo-p)
- (magit-insert-section (staged)
- (magit-insert-heading "Staged changes:")
- (magit-git-wash #'magit-diff-wash-diffs
- "diff" "--cached" magit-diff-section-arguments "--no-prefix"
- "--" magit-diff-section-file-args))))
-
-;;; Diff Type
-
-(defun magit-diff-type (&optional section)
- "Return the diff type of SECTION.
-
-The returned type is one of the symbols `staged', `unstaged',
-`committed', or `undefined'. This type serves a similar purpose
-as the general type common to all sections (which is stored in
-the `type' slot of the corresponding `magit-section' struct) but
-takes additional information into account. When the SECTION
-isn't related to diffs and the buffer containing it also isn't
-a diff-only buffer, then return nil.
-
-Currently the type can also be one of `tracked' and `untracked'
-but these values are not handled explicitly everywhere they
-should be and a possible fix could be to just return nil here.
-
-The section has to be a `diff' or `hunk' section, or a section
-whose children are of type `diff'. If optional SECTION is nil,
-return the diff type for the current section. In buffers whose
-major mode is `magit-diff-mode' SECTION is ignored and the type
-is determined using other means. In `magit-revision-mode'
-buffers the type is always `committed'.
-
-Do not confuse this with `magit-diff-scope' (which see)."
- (--when-let (or section (magit-current-section))
- (cond ((derived-mode-p 'magit-revision-mode 'magit-stash-mode) 'committed)
- ((derived-mode-p 'magit-diff-mode)
- (let ((range (nth 0 magit-refresh-args))
- (const (nth 1 magit-refresh-args)))
- (cond ((member "--no-index" const) 'undefined)
- ((or (not range)
- (magit-rev-eq range "HEAD"))
- (if (member "--cached" const)
- 'staged
- 'unstaged))
- ((member "--cached" const)
- (if (magit-rev-head-p range)
- 'staged
- 'undefined)) ; i.e. committed and staged
- (t 'committed))))
- ((derived-mode-p 'magit-status-mode)
- (let ((stype (oref it type)))
- (if (memq stype '(staged unstaged tracked untracked))
- stype
- (pcase stype
- ((or `file `module)
- (let* ((parent (oref it parent))
- (type (oref parent type)))
- (if (memq type '(file module))
- (magit-diff-type parent)
- type)))
- (`hunk (-> it
- (oref parent)
- (oref parent)
- (oref type)))))))
- ((derived-mode-p 'magit-log-mode)
- (if (or (and (magit-section-match 'commit section)
- (oref section children))
- (magit-section-match [* file commit] section))
- 'committed
- 'undefined))
- (t 'undefined))))
-
-(cl-defun magit-diff-scope (&optional (section nil ssection) strict)
- "Return the diff scope of SECTION or the selected section(s).
-
-A diff's \"scope\" describes what part of a diff is selected, it is
-a symbol, one of `region', `hunk', `hunks', `file', `files', or
-`list'. Do not confuse this with the diff \"type\", as returned by
-`magit-diff-type'.
-
-If optional SECTION is non-nil, then return the scope of that,
-ignoring the sections selected by the region. Otherwise return
-the scope of the current section, or if the region is active and
-selects a valid group of diff related sections, the type of these
-sections, i.e. `hunks' or `files'. If SECTION, or if that is nil
-the current section, is a `hunk' section; and the region region
-starts and ends inside the body of a that section, then the type
-is `region'. If the region is empty after a mouse click, then
-`hunk' is returned instead of `region'.
-
-If optional STRICT is non-nil, then return nil if the diff type of
-the section at point is `untracked' or the section at point is not
-actually a `diff' but a `diffstat' section."
- (let ((siblings (and (not ssection) (magit-region-sections nil t))))
- (setq section (or section (car siblings) (magit-current-section)))
- (when (and section
- (or (not strict)
- (and (not (eq (magit-diff-type section) 'untracked))
- (not (eq (--when-let (oref section parent)
- (oref it type))
- 'diffstat)))))
- (pcase (list (oref section type)
- (and siblings t)
- (magit-diff-use-hunk-region-p)
- ssection)
- (`(hunk nil t ,_)
- (if (magit-section-internal-region-p section) 'region 'hunk))
- (`(hunk t t nil) 'hunks)
- (`(hunk ,_ ,_ ,_) 'hunk)
- (`(file t t nil) 'files)
- (`(file ,_ ,_ ,_) 'file)
- (`(module t t nil) 'files)
- (`(module ,_ ,_ ,_) 'file)
- (`(,(or `staged `unstaged `untracked)
- nil ,_ ,_) 'list)))))
-
-(defun magit-diff-use-hunk-region-p ()
- (and (region-active-p)
- (not (and (if (version< emacs-version "25.1")
- (eq this-command 'mouse-drag-region)
- ;; TODO implement this from first principals
- ;; currently it's trial-and-error
- (or (eq this-command 'mouse-drag-region)
- (eq last-command 'mouse-drag-region)
- ;; When another window was previously
- ;; selected then the last-command is
- ;; some byte-code function.
- (byte-code-function-p last-command)))
- (eq (region-end) (region-beginning))))))
-
-;;; Diff Highlight
-
-(defun magit-diff-unhighlight (section selection)
- "Remove the highlighting of the diff-related SECTION."
- (when (magit-hunk-section-p section)
- (magit-diff-paint-hunk section selection nil)
- t))
-
-(defun magit-diff-highlight (section selection)
- "Highlight the diff-related SECTION.
-If SECTION is not a diff-related section, then do nothing and
-return nil. If SELECTION is non-nil, then it is a list of sections
-selected by the region, including SECTION. All of these sections
-are highlighted."
- (if (and (magit-section-match 'commit section)
- (oref section children))
- (progn (if selection
- (dolist (section selection)
- (magit-diff-highlight-list section selection))
- (magit-diff-highlight-list section))
- t)
- (when-let ((scope (magit-diff-scope section t)))
- (cond ((eq scope 'region)
- (magit-diff-paint-hunk section selection t))
- (selection
- (dolist (section selection)
- (magit-diff-highlight-recursive section selection)))
- (t
- (magit-diff-highlight-recursive section)))
- t)))
-
-(defun magit-diff-highlight-recursive (section &optional selection)
- (pcase (magit-diff-scope section)
- (`list (magit-diff-highlight-list section selection))
- (`file (magit-diff-highlight-file section selection))
- (`hunk (magit-diff-highlight-heading section selection)
- (magit-diff-paint-hunk section selection t))
- (_ (magit-section-highlight section nil))))
-
-(defun magit-diff-highlight-list (section &optional selection)
- (let ((beg (oref section start))
- (cnt (oref section content))
- (end (oref section end)))
- (when (or (eq this-command 'mouse-drag-region)
- (not selection))
- (unless (and (region-active-p)
- (<= (region-beginning) beg))
- (magit-section-make-overlay beg cnt 'magit-section-highlight))
- (unless (oref section hidden)
- (dolist (child (oref section children))
- (when (or (eq this-command 'mouse-drag-region)
- (not (and (region-active-p)
- (<= (region-beginning)
- (oref child start)))))
- (magit-diff-highlight-recursive child selection)))))
- (when magit-diff-highlight-hunk-body
- (magit-section-make-overlay (1- end) end 'magit-section-highlight))))
-
-(defun magit-diff-highlight-file (section &optional selection)
- (magit-diff-highlight-heading section selection)
- (unless (oref section hidden)
- (dolist (child (oref section children))
- (magit-diff-highlight-recursive child selection))))
-
-(defun magit-diff-highlight-heading (section &optional selection)
- (magit-section-make-overlay
- (oref section start)
- (or (oref section content)
- (oref section end))
- (pcase (list (oref section type)
- (and (member section selection)
- (not (eq this-command 'mouse-drag-region))))
- (`(file t) 'magit-diff-file-heading-selection)
- (`(file nil) 'magit-diff-file-heading-highlight)
- (`(module t) 'magit-diff-file-heading-selection)
- (`(module nil) 'magit-diff-file-heading-highlight)
- (`(hunk t) 'magit-diff-hunk-heading-selection)
- (`(hunk nil) 'magit-diff-hunk-heading-highlight))))
-
-;;; Hunk Paint
-
-(cl-defun magit-diff-paint-hunk
- (section &optional selection
- (highlight (magit-section-selected-p section selection)))
- (let (paint)
- (unless magit-diff-highlight-hunk-body
- (setq highlight nil))
- (cond (highlight
- (unless (oref section hidden)
- (add-to-list 'magit-section-highlighted-sections section)
- (cond ((memq section magit-section-unhighlight-sections)
- (setq magit-section-unhighlight-sections
- (delq section magit-section-unhighlight-sections)))
- (magit-diff-highlight-hunk-body
- (setq paint t)))))
- (t
- (cond ((and (oref section hidden)
- (memq section magit-section-unhighlight-sections))
- (add-to-list 'magit-section-highlighted-sections section)
- (setq magit-section-unhighlight-sections
- (delq section magit-section-unhighlight-sections)))
- (t
- (setq paint t)))))
- (when paint
- (save-excursion
- (goto-char (oref section start))
- (let ((end (oref section end))
- (merging (looking-at "@@@"))
- (stage nil)
- (tab-width (magit-diff-tab-width
- (magit-section-parent-value section))))
- (forward-line)
- (while (< (point) end)
- (when (and magit-diff-hide-trailing-cr-characters
- (char-equal ?\r (char-before (line-end-position))))
- (put-text-property (1- (line-end-position)) (line-end-position)
- 'invisible t))
- (put-text-property
- (point) (1+ (line-end-position)) 'face
- (cond
- ((looking-at "^\\+\\+?\\([<=|>]\\)\\{7\\}")
- (setq stage (pcase (list (match-string 1) highlight)
- (`("<" nil) 'magit-diff-our)
- (`("<" t) 'magit-diff-our-highlight)
- (`("|" nil) 'magit-diff-base)
- (`("|" t) 'magit-diff-base-highlight)
- (`("=" nil) 'magit-diff-their)
- (`("=" t) 'magit-diff-their-highlight)
- (`(">" nil) nil)))
- 'magit-diff-conflict-heading)
- ((looking-at (if merging "^\\(\\+\\| \\+\\)" "^\\+"))
- (magit-diff-paint-tab merging tab-width)
- (magit-diff-paint-whitespace merging)
- (or stage
- (if highlight 'magit-diff-added-highlight 'magit-diff-added)))
- ((looking-at (if merging "^\\(-\\| -\\)" "^-"))
- (magit-diff-paint-tab merging tab-width)
- (if highlight 'magit-diff-removed-highlight 'magit-diff-removed))
- (t
- (magit-diff-paint-tab merging tab-width)
- (if highlight 'magit-diff-context-highlight 'magit-diff-context))))
- (forward-line))))))
- (magit-diff-update-hunk-refinement section))
-
-(defvar magit-diff--tab-width-cache nil)
-
-(defun magit-diff-tab-width (file)
- (setq file (expand-file-name file))
- (cl-flet ((cache (value)
- (let ((elt (assoc file magit-diff--tab-width-cache)))
- (if elt
- (setcdr elt value)
- (setq magit-diff--tab-width-cache
- (cons (cons file value)
- magit-diff--tab-width-cache))))
- value))
- (cond
- ((not magit-diff-adjust-tab-width)
- tab-width)
- ((--when-let (find-buffer-visiting file)
- (cache (buffer-local-value 'tab-width it))))
- ((--when-let (assoc file magit-diff--tab-width-cache)
- (or (cdr it)
- tab-width)))
- ((or (eq magit-diff-adjust-tab-width 'always)
- (and (numberp magit-diff-adjust-tab-width)
- (>= magit-diff-adjust-tab-width
- (nth 7 (file-attributes file)))))
- (cache (buffer-local-value 'tab-width (find-file-noselect file))))
- (t
- (cache nil)
- tab-width))))
-
-(defun magit-diff-paint-tab (merging width)
- (save-excursion
- (forward-char (if merging 2 1))
- (while (= (char-after) ?\t)
- (put-text-property (point) (1+ (point))
- 'display (list (list 'space :width width)))
- (forward-char))))
-
-(defun magit-diff-paint-whitespace (merging)
- (when (and magit-diff-paint-whitespace
- (or (derived-mode-p 'magit-status-mode)
- (not (eq magit-diff-paint-whitespace 'status))))
- (let ((prefix (if merging "^[-\\+\s]\\{2\\}" "^[-\\+]"))
- (indent
- (if (local-variable-p 'magit-diff-highlight-indentation)
- magit-diff-highlight-indentation
- (setq-local
- magit-diff-highlight-indentation
- (cdr (--first (string-match-p (car it) default-directory)
- (nreverse
- (default-value
- 'magit-diff-highlight-indentation))))))))
- (when (and magit-diff-highlight-trailing
- (looking-at (concat prefix ".*?\\([ \t]+\\)$")))
- (let ((ov (make-overlay (match-beginning 1) (match-end 1) nil t)))
- (overlay-put ov 'face 'magit-diff-whitespace-warning)
- (overlay-put ov 'evaporate t)))
- (when (or (and (eq indent 'tabs)
- (looking-at (concat prefix "\\( *\t[ \t]*\\)")))
- (and (integerp indent)
- (looking-at (format "%s\\([ \t]* \\{%s,\\}[ \t]*\\)"
- prefix indent))))
- (let ((ov (make-overlay (match-beginning 1) (match-end 1) nil t)))
- (overlay-put ov 'face 'magit-diff-whitespace-warning)
- (overlay-put ov 'evaporate t))))))
-
-(defun magit-diff-update-hunk-refinement (&optional section)
- (if section
- (unless (oref section hidden)
- (pcase (list magit-diff-refine-hunk
- (oref section refined)
- (eq section (magit-current-section)))
- ((or `(all nil ,_) `(t nil t))
- (oset section refined t)
- (save-excursion
- (goto-char (oref section start))
- ;; `diff-refine-hunk' does not handle combined diffs.
- (unless (looking-at "@@@")
- ;; Avoid fsyncing many small temp files
- (let ((write-region-inhibit-fsync t))
- (diff-refine-hunk)))))
- ((or `(nil t ,_) `(t t nil))
- (oset section refined nil)
- (remove-overlays (oref section start)
- (oref section end)
- 'diff-mode 'fine))))
- (cl-labels ((recurse (section)
- (if (magit-section-match 'hunk section)
- (magit-diff-update-hunk-refinement section)
- (dolist (child (oref section children))
- (recurse child)))))
- (recurse magit-root-section))))
-
-
-;;; Hunk Region
-
-(defun magit-diff-hunk-region-beginning ()
- (save-excursion (goto-char (region-beginning))
- (line-beginning-position)))
-
-(defun magit-diff-hunk-region-end ()
- (save-excursion (goto-char (region-end))
- (line-end-position)))
-
-(defun magit-diff-update-hunk-region (section)
- "Highlight the hunk-internal region if any."
- (when (eq (magit-diff-scope section t) 'region)
- (magit-diff--make-hunk-overlay
- (oref section start)
- (1- (oref section content))
- 'face 'magit-diff-lines-heading
- 'display (magit-diff-hunk-region-header section)
- 'after-string (magit-diff--hunk-after-string 'magit-diff-lines-heading))
- (run-hook-with-args 'magit-diff-highlight-hunk-region-functions section)
- t))
-
-(defun magit-diff-highlight-hunk-region-dim-outside (section)
- "Dim the parts of the hunk that are outside the hunk-internal region.
-This is done by using the same foreground and background color
-for added and removed lines as for context lines."
- (let ((face (if magit-diff-highlight-hunk-body
- 'magit-diff-context-highlight
- 'magit-diff-context)))
- (when magit-diff-unmarked-lines-keep-foreground
- (setq face (list :background (face-attribute face :background))))
- (magit-diff--make-hunk-overlay (oref section content)
- (magit-diff-hunk-region-beginning)
- 'face face
- 'priority 2)
- (magit-diff--make-hunk-overlay (1+ (magit-diff-hunk-region-end))
- (oref section end)
- 'face face
- 'priority 2)))
-
-(defun magit-diff-highlight-hunk-region-using-face (_section)
- "Highlight the hunk-internal region by making it bold.
-Or rather highlight using the face `magit-diff-hunk-region', though
-changing only the `:weight' and/or `:slant' is recommended for that
-face."
- (magit-diff--make-hunk-overlay (magit-diff-hunk-region-beginning)
- (1+ (magit-diff-hunk-region-end))
- 'face 'magit-diff-hunk-region))
-
-(defun magit-diff-highlight-hunk-region-using-overlays (section)
- "Emphasize the hunk-internal region using delimiting horizontal lines.
-This is implemented as single-pixel newlines places inside overlays."
- (if (window-system)
- (let ((beg (magit-diff-hunk-region-beginning))
- (end (magit-diff-hunk-region-end))
- (str (propertize
- (concat (propertize "\s" 'display '(space :height (1)))
- (propertize "\n" 'line-height t))
- 'face 'magit-diff-lines-boundary)))
- (magit-diff--make-hunk-overlay beg (1+ beg) 'before-string str)
- (magit-diff--make-hunk-overlay end (1+ end) 'after-string str))
- (magit-diff-highlight-hunk-region-using-face section)))
-
-(defun magit-diff-highlight-hunk-region-using-underline (section)
- "Emphasize the hunk-internal region using delimiting horizontal lines.
-This is implemented by overlining and underlining the first and
-last (visual) lines of the region."
- (if (window-system)
- (let* ((beg (magit-diff-hunk-region-beginning))
- (end (magit-diff-hunk-region-end))
- (beg-eol (save-excursion (goto-char beg)
- (end-of-visual-line)
- (point)))
- (end-bol (save-excursion (goto-char end)
- (beginning-of-visual-line)
- (point)))
- (color (face-background 'magit-diff-lines-boundary nil t)))
- (cl-flet ((ln (b e &rest face)
- (magit-diff--make-hunk-overlay
- b e 'face face 'after-string
- (magit-diff--hunk-after-string face))))
- (if (= beg end-bol)
- (ln beg beg-eol :overline color :underline color)
- (ln beg beg-eol :overline color)
- (ln end-bol end :underline color))))
- (magit-diff-highlight-hunk-region-using-face section)))
-
-(defun magit-diff--make-hunk-overlay (start end &rest args)
- (let ((ov (make-overlay start end nil t)))
- (overlay-put ov 'evaporate t)
- (while args (overlay-put ov (pop args) (pop args)))
- (push ov magit-region-overlays)
- ov))
-
-(defun magit-diff--hunk-after-string (face)
- (propertize "\s"
- 'face face
- 'display (list 'space :align-to
- `(+ (0 . right)
- ,(min (window-hscroll)
- (- (line-end-position)
- (line-beginning-position)))))
- ;; This prevents the cursor from being rendered at the
- ;; edge of the window.
- 'cursor t))
-
-;;; Hunk Utilities
-
-(defun magit-diff-inside-hunk-body-p ()
- "Return non-nil if point is inside the body of a hunk."
- (and (magit-section-match 'hunk)
- (> (point)
- (oref (magit-current-section) content))))
-
-;;; Diff Extract
-
-(defun magit-diff-file-header (section)
- (when (magit-hunk-section-p section)
- (setq section (oref section parent)))
- (when (magit-file-section-p section)
- (oref section header)))
-
-(defun magit-diff-hunk-region-header (section)
- (let ((patch (magit-diff-hunk-region-patch section)))
- (string-match "\n" patch)
- (substring patch 0 (1- (match-end 0)))))
-
-(defun magit-diff-hunk-region-patch (section &optional args)
- (let ((op (if (member "--reverse" args) "+" "-"))
- (sbeg (oref section start))
- (rbeg (magit-diff-hunk-region-beginning))
- (rend (region-end))
- (send (oref section end))
- (patch nil))
- (save-excursion
- (goto-char sbeg)
- (while (< (point) send)
- (looking-at "\\(.\\)\\([^\n]*\n\\)")
- (cond ((or (string-match-p "[@ ]" (match-string-no-properties 1))
- (and (>= (point) rbeg)
- (<= (point) rend)))
- (push (match-string-no-properties 0) patch))
- ((equal op (match-string-no-properties 1))
- (push (concat " " (match-string-no-properties 2)) patch)))
- (forward-line)))
- (with-temp-buffer
- (insert (mapconcat 'identity (reverse patch) ""))
- (diff-fixup-modifs (point-min) (point-max))
- (setq patch (buffer-string)))
- patch))
-
-;;; _
-(provide 'magit-diff)
-;;; magit-diff.el ends here
diff --git a/elpa/magit-20181116.1412/magit-diff.elc b/elpa/magit-20181116.1412/magit-diff.elc
deleted file mode 100644
index 68effac..0000000
--- a/elpa/magit-20181116.1412/magit-diff.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-ediff.el b/elpa/magit-20181116.1412/magit-ediff.el
deleted file mode 100644
index 41b3d83..0000000
--- a/elpa/magit-20181116.1412/magit-ediff.el
+++ /dev/null
@@ -1,510 +0,0 @@
-;;; magit-ediff.el --- Ediff extension for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library provides basic support for Ediff.
-
-;;; Code:
-
-(require 'magit)
-
-(require 'ediff)
-(require 'smerge-mode)
-
-(defvar smerge-ediff-buf)
-(defvar smerge-ediff-windows)
-
-;;; Options
-
-(defgroup magit-ediff nil
- "Ediff support for Magit."
- :link '(info-link "(magit)Ediffing")
- :group 'magit-extensions)
-
-(defcustom magit-ediff-quit-hook
- '(magit-ediff-cleanup-auxiliary-buffers
- magit-ediff-restore-previous-winconf)
- "Hooks to run after finishing Ediff, when that was invoked using Magit.
-The hooks are run in the Ediff control buffer. This is similar
-to `ediff-quit-hook' but takes the needs of Magit into account.
-The `ediff-quit-hook' is ignored by Ediff sessions which were
-invoked using Magit."
- :package-version '(magit . "2.2.0")
- :group 'magit-ediff
- :type 'hook
- :get 'magit-hook-custom-get
- :options '(magit-ediff-cleanup-auxiliary-buffers
- magit-ediff-restore-previous-winconf))
-
-(defcustom magit-ediff-dwim-show-on-hunks nil
- "Whether `magit-ediff-dwim' runs show variants on hunks.
-If non-nil, `magit-ediff-show-staged' or
-`magit-ediff-show-unstaged' are called based on what section the
-hunk is in. Otherwise, `magit-ediff-dwim' runs
-`magit-ediff-stage' when point is on an uncommitted hunk."
- :package-version '(magit . "2.2.0")
- :group 'magit-ediff
- :type 'boolean)
-
-(defcustom magit-ediff-show-stash-with-index t
- "Whether `magit-ediff-show-stash' shows the state of the index.
-
-If non-nil, use a third Ediff buffer to distinguish which changes
-in the stash were staged. In cases where the stash contains no
-staged changes, fall back to a two-buffer Ediff.
-
-More specifically, a stash is a merge commit, stash@{N}, with
-potentially three parents.
-
-* stash@{N}^1 represents the `HEAD' commit at the time the stash
- was created.
-
-* stash@{N}^2 records any changes that were staged when the stash
- was made.
-
-* stash@{N}^3, if it exists, contains files that were untracked
- when stashing.
-
-If this option is non-nil, `magit-ediff-show-stash' will run
-Ediff on a file using three buffers: one for stash@{N}, another
-for stash@{N}^1, and a third for stash@{N}^2.
-
-Otherwise, Ediff uses two buffers, comparing
-stash@{N}^1..stash@{N}. Along with any unstaged changes, changes
-in the index commit, stash@{N}^2, will be shown in this
-comparison unless they conflicted with changes in the working
-tree at the time of stashing."
- :package-version '(magit . "2.6.0")
- :group 'magit-ediff
- :type 'boolean)
-
-;;; Commands
-
-(defvar magit-ediff-previous-winconf nil)
-
-;;;###autoload (autoload 'magit-ediff-popup "magit-ediff" nil t)
-(magit-define-popup magit-ediff-popup
- "Popup console for ediff commands."
- :actions '((?E "Dwim" magit-ediff-dwim)
- (?u "Show unstaged" magit-ediff-show-unstaged)
- (?s "Stage" magit-ediff-stage)
- (?i "Show staged" magit-ediff-show-staged)
- (?m "Resolve" magit-ediff-resolve)
- (?w "Show worktree" magit-ediff-show-working-tree)
- (?r "Diff range" magit-ediff-compare)
- (?c "Show commit" magit-ediff-show-commit) nil
- (?z "Show stash" magit-ediff-show-stash))
- :max-action-columns 2)
-
-;;;###autoload
-(defun magit-ediff-resolve (file)
- "Resolve outstanding conflicts in FILE using Ediff.
-FILE has to be relative to the top directory of the repository.
-
-In the rare event that you want to manually resolve all
-conflicts, including those already resolved by Git, use
-`ediff-merge-revisions-with-ancestor'."
- (interactive
- (let ((current (magit-current-file))
- (unmerged (magit-unmerged-files)))
- (unless unmerged
- (user-error "There are no unresolved conflicts"))
- (list (magit-completing-read "Resolve file" unmerged nil t nil nil
- (car (member current unmerged))))))
- (magit-with-toplevel
- (with-current-buffer (find-file-noselect file)
- (smerge-ediff)
- (setq-local
- ediff-quit-hook
- (lambda ()
- (let ((bufC ediff-buffer-C)
- (bufS smerge-ediff-buf))
- (with-current-buffer bufS
- (when (yes-or-no-p (format "Conflict resolution finished; save %s? "
- buffer-file-name))
- (erase-buffer)
- (insert-buffer-substring bufC)
- (save-buffer))))
- (when (buffer-live-p ediff-buffer-A) (kill-buffer ediff-buffer-A))
- (when (buffer-live-p ediff-buffer-B) (kill-buffer ediff-buffer-B))
- (when (buffer-live-p ediff-buffer-C) (kill-buffer ediff-buffer-C))
- (when (buffer-live-p ediff-ancestor-buffer)
- (kill-buffer ediff-ancestor-buffer))
- (let ((magit-ediff-previous-winconf smerge-ediff-windows))
- (run-hooks 'magit-ediff-quit-hook)))))))
-
-;;;###autoload
-(defun magit-ediff-stage (file)
- "Stage and unstage changes to FILE using Ediff.
-FILE has to be relative to the top directory of the repository."
- (interactive
- (list (magit-completing-read "Selectively stage file"
- (magit-tracked-files) nil nil nil nil
- (magit-current-file))))
- (magit-with-toplevel
- (let* ((conf (current-window-configuration))
- (bufA (magit-get-revision-buffer "HEAD" file))
- (bufB (get-buffer (concat file ".~{index}~")))
- (bufBrw (and bufB (with-current-buffer bufB (not buffer-read-only))))
- (bufC (get-file-buffer file))
- (fileBufC (or bufC (find-file-noselect file)))
- (coding-system-for-read
- (with-current-buffer fileBufC buffer-file-coding-system)))
- (ediff-buffers3
- (or bufA (magit-find-file-noselect "HEAD" file))
- (with-current-buffer (magit-find-file-index-noselect file t)
- (setq buffer-read-only nil)
- (current-buffer))
- fileBufC
- `((lambda ()
- (setq-local
- ediff-quit-hook
- (lambda ()
- (and (buffer-live-p ediff-buffer-B)
- (buffer-modified-p ediff-buffer-B)
- (with-current-buffer ediff-buffer-B
- (magit-update-index)))
- (and (buffer-live-p ediff-buffer-C)
- (buffer-modified-p ediff-buffer-C)
- (with-current-buffer ediff-buffer-C
- (when (y-or-n-p
- (format "Save file %s? " buffer-file-name))
- (save-buffer))))
- ,@(unless bufA '((ediff-kill-buffer-carefully ediff-buffer-A)))
- ,@(if bufB
- (unless bufBrw '((with-current-buffer ediff-buffer-B
- (setq buffer-read-only t))))
- '((ediff-kill-buffer-carefully ediff-buffer-B)))
- ,@(unless bufC '((ediff-kill-buffer-carefully ediff-buffer-C)))
- (let ((magit-ediff-previous-winconf ,conf))
- (run-hooks 'magit-ediff-quit-hook))))))
- 'ediff-buffers3))))
-
-;;;###autoload
-(defun magit-ediff-compare (revA revB fileA fileB)
- "Compare REVA:FILEA with REVB:FILEB using Ediff.
-
-FILEA and FILEB have to be relative to the top directory of the
-repository. If REVA or REVB is nil, then this stands for the
-working tree state.
-
-If the region is active, use the revisions on the first and last
-line of the region. With a prefix argument, instead of diffing
-the revisions, choose a revision to view changes along, starting
-at the common ancestor of both revisions (i.e., use a \"...\"
-range)."
- (interactive
- (pcase-let ((`(,revA ,revB) (magit-ediff-compare--read-revisions
- nil current-prefix-arg)))
- (nconc (list revA revB)
- (magit-ediff-read-files revA revB))))
- (magit-with-toplevel
- (let ((conf (current-window-configuration))
- (bufA (if revA
- (magit-get-revision-buffer revA fileA)
- (get-file-buffer fileA)))
- (bufB (if revB
- (magit-get-revision-buffer revB fileB)
- (get-file-buffer fileB))))
- (ediff-buffers
- (or bufA (if revA
- (magit-find-file-noselect revA fileA)
- (find-file-noselect fileA)))
- (or bufB (if revB
- (magit-find-file-noselect revB fileB)
- (find-file-noselect fileB)))
- `((lambda ()
- (setq-local
- ediff-quit-hook
- (lambda ()
- ,@(unless bufA '((ediff-kill-buffer-carefully ediff-buffer-A)))
- ,@(unless bufB '((ediff-kill-buffer-carefully ediff-buffer-B)))
- (let ((magit-ediff-previous-winconf ,conf))
- (run-hooks 'magit-ediff-quit-hook))))))
- 'ediff-revision))))
-
-(defun magit-ediff-compare--read-revisions (&optional arg mbase)
- (let ((input (or arg (magit-diff-read-range-or-commit
- "Compare range or commit"
- nil mbase))))
- (--if-let (magit-split-range input)
- (-cons-to-list it)
- (list input nil))))
-
-(defun magit-ediff-read-files (revA revB &optional fileB)
- "Read file in REVB, return it and the corresponding file in REVA.
-When FILEB is non-nil, use this as REVB's file instead of
-prompting for it."
- (unless fileB
- (setq fileB (magit-read-file-choice
- (format "File to compare between %s and %s"
- revA (or revB "the working tree"))
- (magit-changed-files revA revB)
- (format "No changed files between %s and %s"
- revA (or revB "the working tree")))))
- (list (or (car (member fileB (magit-revision-files revA)))
- (cdr (assoc fileB (magit-renamed-files revB revA)))
- (magit-read-file-choice
- (format "File in %s to compare with %s in %s"
- revA fileB (or revB "the working tree"))
- (magit-changed-files revB revA)
- (format "No files have changed between %s and %s"
- revA revB)))
- fileB))
-
-;;;###autoload
-(defun magit-ediff-dwim ()
- "Compare, stage, or resolve using Ediff.
-This command tries to guess what file, and what commit or range
-the user wants to compare, stage, or resolve using Ediff. It
-might only be able to guess either the file, or range or commit,
-in which case the user is asked about the other. It might not
-always guess right, in which case the appropriate `magit-ediff-*'
-command has to be used explicitly. If it cannot read the user's
-mind at all, then it asks the user for a command to run."
- (interactive)
- (magit-section-case
- (hunk (save-excursion
- (goto-char (oref (oref it parent) start))
- (magit-ediff-dwim)))
- (t
- (let ((range (magit-diff--dwim))
- (file (magit-current-file))
- command revA revB)
- (pcase range
- ((and (guard (not magit-ediff-dwim-show-on-hunks))
- (or `unstaged `staged))
- (setq command (if (magit-anything-unmerged-p)
- #'magit-ediff-resolve
- #'magit-ediff-stage)))
- (`unstaged (setq command #'magit-ediff-show-unstaged))
- (`staged (setq command #'magit-ediff-show-staged))
- (`(commit . ,value)
- (setq command #'magit-ediff-show-commit)
- (setq revB value))
- (`(stash . ,value)
- (setq command #'magit-ediff-show-stash)
- (setq revB value))
- ((pred stringp)
- (pcase-let ((`(,a ,b) (magit-ediff-compare--read-revisions range)))
- (setq command #'magit-ediff-compare)
- (setq revA a)
- (setq revB b)))
- (_
- (when (derived-mode-p 'magit-diff-mode)
- (pcase (magit-diff-type)
- (`committed (pcase-let ((`(,a ,b)
- (magit-ediff-compare--read-revisions
- (car magit-refresh-args))))
- (setq revA a)
- (setq revB b)))
- ((guard (not magit-ediff-dwim-show-on-hunks))
- (setq command #'magit-ediff-stage))
- (`unstaged (setq command #'magit-ediff-show-unstaged))
- (`staged (setq command #'magit-ediff-show-staged))
- (`undefined (setq command nil))
- (_ (setq command nil))))))
- (cond ((not command)
- (call-interactively
- (magit-read-char-case
- "Failed to read your mind; do you want to " t
- (?c "[c]ommit" 'magit-ediff-show-commit)
- (?r "[r]ange" 'magit-ediff-compare)
- (?s "[s]tage" 'magit-ediff-stage)
- (?v "resol[v]e" 'magit-ediff-resolve))))
- ((eq command 'magit-ediff-compare)
- (apply 'magit-ediff-compare revA revB
- (magit-ediff-read-files revA revB file)))
- ((eq command 'magit-ediff-show-commit)
- (magit-ediff-show-commit revB))
- ((eq command 'magit-ediff-show-stash)
- (magit-ediff-show-stash revB))
- (file
- (funcall command file))
- (t
- (call-interactively command)))))))
-
-;;;###autoload
-(defun magit-ediff-show-staged (file)
- "Show staged changes using Ediff.
-
-This only allows looking at the changes; to stage, unstage,
-and discard changes using Ediff, use `magit-ediff-stage'.
-
-FILE must be relative to the top directory of the repository."
- (interactive
- (list (magit-read-file-choice "Show staged changes for file"
- (magit-staged-files)
- "No staged files")))
- (let ((conf (current-window-configuration))
- (bufA (magit-get-revision-buffer "HEAD" file))
- (bufB (get-buffer (concat file ".~{index}~"))))
- (ediff-buffers
- (or bufA (magit-find-file-noselect "HEAD" file))
- (or bufB (magit-find-file-index-noselect file t))
- `((lambda ()
- (setq-local
- ediff-quit-hook
- (lambda ()
- ,@(unless bufA '((ediff-kill-buffer-carefully ediff-buffer-A)))
- ,@(unless bufB '((ediff-kill-buffer-carefully ediff-buffer-B)))
- (let ((magit-ediff-previous-winconf ,conf))
- (run-hooks 'magit-ediff-quit-hook))))))
- 'ediff-buffers)))
-
-;;;###autoload
-(defun magit-ediff-show-unstaged (file)
- "Show unstaged changes using Ediff.
-
-This only allows looking at the changes; to stage, unstage,
-and discard changes using Ediff, use `magit-ediff-stage'.
-
-FILE must be relative to the top directory of the repository."
- (interactive
- (list (magit-read-file-choice "Show unstaged changes for file"
- (magit-unstaged-files)
- "No unstaged files")))
- (magit-with-toplevel
- (let ((conf (current-window-configuration))
- (bufA (get-buffer (concat file ".~{index}~")))
- (bufB (get-file-buffer file)))
- (ediff-buffers
- (or bufA (magit-find-file-index-noselect file t))
- (or bufB (find-file-noselect file))
- `((lambda ()
- (setq-local
- ediff-quit-hook
- (lambda ()
- ,@(unless bufA '((ediff-kill-buffer-carefully ediff-buffer-A)))
- ,@(unless bufB '((ediff-kill-buffer-carefully ediff-buffer-B)))
- (let ((magit-ediff-previous-winconf ,conf))
- (run-hooks 'magit-ediff-quit-hook))))))
- 'ediff-buffers))))
-
-;;;###autoload
-(defun magit-ediff-show-working-tree (file)
- "Show changes between `HEAD' and working tree using Ediff.
-FILE must be relative to the top directory of the repository."
- (interactive
- (list (magit-read-file-choice "Show changes in file"
- (magit-changed-files "HEAD")
- "No changed files")))
- (magit-with-toplevel
- (let ((conf (current-window-configuration))
- (bufA (magit-get-revision-buffer "HEAD" file))
- (bufB (get-file-buffer file)))
- (ediff-buffers
- (or bufA (magit-find-file-noselect "HEAD" file))
- (or bufB (find-file-noselect file))
- `((lambda ()
- (setq-local
- ediff-quit-hook
- (lambda ()
- ,@(unless bufA '((ediff-kill-buffer-carefully ediff-buffer-A)))
- ,@(unless bufB '((ediff-kill-buffer-carefully ediff-buffer-B)))
- (let ((magit-ediff-previous-winconf ,conf))
- (run-hooks 'magit-ediff-quit-hook))))))
- 'ediff-buffers))))
-
-;;;###autoload
-(defun magit-ediff-show-commit (commit)
- "Show changes introduced by COMMIT using Ediff."
- (interactive (list (magit-read-branch-or-commit "Revision")))
- (let ((revA (concat commit "^"))
- (revB commit))
- (apply #'magit-ediff-compare
- revA revB
- (magit-ediff-read-files revA revB (magit-current-file)))))
-
-;;;###autoload
-(defun magit-ediff-show-stash (stash)
- "Show changes introduced by STASH using Ediff.
-`magit-ediff-show-stash-with-index' controls whether a
-three-buffer Ediff is used in order to distinguish changes in the
-stash that were staged."
- (interactive (list (magit-read-stash "Stash")))
- (pcase-let* ((revA (concat stash "^1"))
- (revB (concat stash "^2"))
- (revC stash)
- (`(,fileA ,fileC) (magit-ediff-read-files revA revC))
- (fileB fileC))
- (if (and magit-ediff-show-stash-with-index
- (member fileA (magit-changed-files revB revA)))
- (let ((conf (current-window-configuration))
- (bufA (magit-get-revision-buffer revA fileA))
- (bufB (magit-get-revision-buffer revB fileB))
- (bufC (magit-get-revision-buffer revC fileC)))
- (ediff-buffers3
- (or bufA (magit-find-file-noselect revA fileA))
- (or bufB (magit-find-file-noselect revB fileB))
- (or bufC (magit-find-file-noselect revC fileC))
- `((lambda ()
- (setq-local
- ediff-quit-hook
- (lambda ()
- ,@(unless bufA
- '((ediff-kill-buffer-carefully ediff-buffer-A)))
- ,@(unless bufB
- '((ediff-kill-buffer-carefully ediff-buffer-B)))
- ,@(unless bufC
- '((ediff-kill-buffer-carefully ediff-buffer-C)))
- (let ((magit-ediff-previous-winconf ,conf))
- (run-hooks 'magit-ediff-quit-hook))))))
- 'ediff-buffers3))
- (magit-ediff-compare revA revC fileA fileC))))
-
-(defun magit-ediff-cleanup-auxiliary-buffers ()
- (let* ((ctl-buf ediff-control-buffer)
- (ctl-win (ediff-get-visible-buffer-window ctl-buf))
- (ctl-frm ediff-control-frame)
- (main-frame (cond ((window-live-p ediff-window-A)
- (window-frame ediff-window-A))
- ((window-live-p ediff-window-B)
- (window-frame ediff-window-B)))))
- (ediff-kill-buffer-carefully ediff-diff-buffer)
- (ediff-kill-buffer-carefully ediff-custom-diff-buffer)
- (ediff-kill-buffer-carefully ediff-fine-diff-buffer)
- (ediff-kill-buffer-carefully ediff-tmp-buffer)
- (ediff-kill-buffer-carefully ediff-error-buffer)
- (ediff-kill-buffer-carefully ediff-msg-buffer)
- (ediff-kill-buffer-carefully ediff-debug-buffer)
- (when (boundp 'ediff-patch-diagnostics)
- (ediff-kill-buffer-carefully ediff-patch-diagnostics))
- (cond ((and (ediff-window-display-p)
- (frame-live-p ctl-frm))
- (delete-frame ctl-frm))
- ((window-live-p ctl-win)
- (delete-window ctl-win)))
- (unless (ediff-multiframe-setup-p)
- (ediff-kill-bottom-toolbar))
- (ediff-kill-buffer-carefully ctl-buf)
- (when (frame-live-p main-frame)
- (select-frame main-frame))))
-
-(defun magit-ediff-restore-previous-winconf ()
- (set-window-configuration magit-ediff-previous-winconf))
-
-;;; _
-(provide 'magit-ediff)
-;;; magit-ediff.el ends here
diff --git a/elpa/magit-20181116.1412/magit-ediff.elc b/elpa/magit-20181116.1412/magit-ediff.elc
deleted file mode 100644
index ab69f9c..0000000
--- a/elpa/magit-20181116.1412/magit-ediff.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-extras.el b/elpa/magit-20181116.1412/magit-extras.el
deleted file mode 100644
index cd0649a..0000000
--- a/elpa/magit-20181116.1412/magit-extras.el
+++ /dev/null
@@ -1,651 +0,0 @@
-;;; magit-extras.el --- additional functionality for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Additional functionality for Magit.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-(declare-function dired-read-shell-command "dired-aux" (prompt arg files))
-
-(defgroup magit-extras nil
- "Additional functionality for Magit."
- :group 'magit-extensions)
-
-;;; External Tools
-
-(defcustom magit-gitk-executable
- (or (and (eq system-type 'windows-nt)
- (let ((exe (magit-git-string
- "-c" "alias.X=!x() { which \"$1\" | cygpath -mf -; }; x"
- "X" "gitk.exe")))
- (and exe (file-executable-p exe) exe)))
- (executable-find "gitk") "gitk")
- "The Gitk executable."
- :group 'magit-extras
- :set-after '(magit-git-executable)
- :type 'string)
-
-;;;###autoload
-(defun magit-run-git-gui ()
- "Run `git gui' for the current git repository."
- (interactive)
- (magit-with-toplevel
- (magit-process-file magit-git-executable nil 0 nil "gui")))
-
-;;;###autoload
-(defun magit-run-git-gui-blame (commit filename &optional linenum)
- "Run `git gui blame' on the given FILENAME and COMMIT.
-Interactively run it for the current file and the `HEAD', with a
-prefix or when the current file cannot be determined let the user
-choose. When the current buffer is visiting FILENAME instruct
-blame to center around the line point is on."
- (interactive
- (let (revision filename)
- (when (or current-prefix-arg
- (not (setq revision "HEAD"
- filename (magit-file-relative-name nil 'tracked))))
- (setq revision (magit-read-branch-or-commit "Blame from revision"))
- (setq filename (magit-read-file-from-rev revision "Blame file")))
- (list revision filename
- (and (equal filename
- (ignore-errors
- (magit-file-relative-name buffer-file-name)))
- (line-number-at-pos)))))
- (magit-with-toplevel
- (apply #'magit-process-file magit-git-executable nil 0 nil "gui" "blame"
- `(,@(and linenum (list (format "--line=%d" linenum)))
- ,commit
- ,filename))))
-
-;;;###autoload
-(defun magit-run-gitk ()
- "Run `gitk' in the current repository."
- (interactive)
- (magit-process-file magit-gitk-executable nil 0))
-
-;;;###autoload
-(defun magit-run-gitk-branches ()
- "Run `gitk --branches' in the current repository."
- (interactive)
- (magit-process-file magit-gitk-executable nil 0 nil "--branches"))
-
-;;;###autoload
-(defun magit-run-gitk-all ()
- "Run `gitk --all' in the current repository."
- (interactive)
- (magit-process-file magit-gitk-executable nil 0 nil "--all"))
-
-;;; Emacs Tools
-
-;;;###autoload
-(defun ido-enter-magit-status ()
- "Drop into `magit-status' from file switching.
-
-This command does not work in Emacs 26. It does work in Emacs 25
-and Emacs 27. See https://github.com/magit/magit/issues/3634 and
-https://debbugs.gnu.org/cgi/bugreport.cgi?bug=31707.
-
-To make this command available use something like:
-
- (add-hook \\='ido-setup-hook
- (lambda ()
- (define-key ido-completion-map
- (kbd \"C-x g\") \\='ido-enter-magit-status)))
-
-Starting with Emacs 25.1 the Ido keymaps are defined just once
-instead of every time Ido is invoked, so now you can modify it
-like pretty much every other keymap:
-
- (define-key ido-common-completion-map
- (kbd \"C-x g\") \\='ido-enter-magit-status)"
- (interactive)
- (with-no-warnings ; FIXME these are internal variables
- (setq ido-exit 'fallback)
- (setq fallback 'magit-status) ; for Emacs 25
- (setq ido-fallback 'magit-status)) ; for Emacs 27
- (exit-minibuffer))
-
-;;;###autoload
-(defun magit-dired-jump (&optional other-window)
- "Visit file at point using Dired.
-With a prefix argument, visit in another window. If there
-is no file at point, then instead visit `default-directory'."
- (interactive "P")
- (dired-jump other-window
- (when-let ((file (magit-file-at-point)))
- (expand-file-name (if (file-directory-p file)
- (file-name-as-directory file)
- file)))))
-
-;;;###autoload
-(defun magit-dired-log (&optional follow)
- "Show log for all marked files, or the current file."
- (interactive "P")
- (if-let ((topdir (magit-toplevel default-directory)))
- (let ((args (car (magit-log-arguments)))
- (files (dired-get-marked-files nil nil #'magit-file-tracked-p)))
- (unless files
- (user-error "No marked file is being tracked by Git"))
- (when (and follow
- (not (member "--follow" args))
- (not (cdr files)))
- (push "--follow" args))
- (magit-mode-setup-internal
- #'magit-log-mode
- (list (list (or (magit-get-current-branch) "HEAD"))
- args
- (let ((default-directory topdir))
- (mapcar #'file-relative-name files)))
- magit-log-buffer-file-locked))
- (magit--not-inside-repository-error)))
-
-;;;###autoload
-(defun magit-do-async-shell-command (file)
- "Open FILE with `dired-do-async-shell-command'.
-Interactively, open the file at point."
- (interactive (list (or (magit-file-at-point)
- (completing-read "Act on file: "
- (magit-list-files)))))
- (require 'dired-aux)
- (dired-do-async-shell-command
- (dired-read-shell-command "& on %s: " current-prefix-arg (list file))
- nil (list file)))
-
-;;; Shift Selection
-
-(defun magit--turn-on-shift-select-mode-p ()
- (and shift-select-mode
- this-command-keys-shift-translated
- (not mark-active)
- (not (eq (car-safe transient-mark-mode) 'only))))
-
-;;;###autoload
-(defun magit-previous-line (&optional arg try-vscroll)
- "Like `previous-line' but with Magit-specific shift-selection.
-
-Magit's selection mechanism is based on the region but selects an
-area that is larger than the region. This causes `previous-line'
-when invoked while holding the shift key to move up one line and
-thereby select two lines. When invoked inside a hunk body this
-command does not move point on the first invocation and thereby
-it only selects a single line. Which inconsistency you prefer
-is a matter of preference."
- (declare (interactive-only
- "use `forward-line' with negative argument instead."))
- (interactive "p\np")
- (unless arg (setq arg 1))
- (let ((stay (or (magit-diff-inside-hunk-body-p)
- (magit-section-position-in-heading-p))))
- (if (and stay (= arg 1) (magit--turn-on-shift-select-mode-p))
- (push-mark nil nil t)
- (with-no-warnings
- (handle-shift-selection)
- (previous-line (if stay (max (1- arg) 1) arg) try-vscroll)))))
-
-;;;###autoload
-(defun magit-next-line (&optional arg try-vscroll)
- "Like `next-line' but with Magit-specific shift-selection.
-
-Magit's selection mechanism is based on the region but selects
-an area that is larger than the region. This causes `next-line'
-when invoked while holding the shift key to move down one line
-and thereby select two lines. When invoked inside a hunk body
-this command does not move point on the first invocation and
-thereby it only selects a single line. Which inconsistency you
-prefer is a matter of preference."
- (declare (interactive-only forward-line))
- (interactive "p\np")
- (unless arg (setq arg 1))
- (let ((stay (or (magit-diff-inside-hunk-body-p)
- (magit-section-position-in-heading-p))))
- (if (and stay (= arg 1) (magit--turn-on-shift-select-mode-p))
- (push-mark nil nil t)
- (with-no-warnings
- (handle-shift-selection)
- (next-line (if stay (max (1- arg) 1) arg) try-vscroll)))))
-
-;;; Clean
-
-;;;###autoload
-(defun magit-clean (&optional arg)
- "Remove untracked files from the working tree.
-With a prefix argument also remove ignored files,
-with two prefix arguments remove ignored files only.
-\n(git clean -f -d [-x|-X])"
- (interactive "p")
- (when (yes-or-no-p (format "Remove %s files? "
- (pcase arg
- (1 "untracked")
- (4 "untracked and ignored")
- (_ "ignored"))))
- (magit-wip-commit-before-change)
- (magit-run-git "clean" "-f" "-d" (pcase arg (4 "-x") (16 "-X")))))
-
-(put 'magit-clean 'disabled t)
-
-;;; ChangeLog
-
-;;;###autoload
-(defun magit-add-change-log-entry (&optional whoami file-name other-window)
- "Find change log file and add date entry and item for current change.
-This differs from `add-change-log-entry' (which see) in that
-it acts on the current hunk in a Magit buffer instead of on
-a position in a file-visiting buffer."
- (interactive (list current-prefix-arg
- (prompt-for-change-log-name)))
- (let (buf pos)
- (save-window-excursion
- (call-interactively #'magit-diff-visit-file)
- (setq buf (current-buffer))
- (setq pos (point)))
- (save-excursion
- (with-current-buffer buf
- (goto-char pos)
- (add-change-log-entry whoami file-name other-window)))))
-
-;;;###autoload
-(defun magit-add-change-log-entry-other-window (&optional whoami file-name)
- "Find change log file in other window and add entry and item.
-This differs from `add-change-log-entry-other-window' (which see)
-in that it acts on the current hunk in a Magit buffer instead of
-on a position in a file-visiting buffer."
- (interactive (and current-prefix-arg
- (list current-prefix-arg
- (prompt-for-change-log-name))))
- (magit-add-change-log-entry whoami file-name t))
-
-;;; Edit Line Commit
-
-;;;###autoload
-(defun magit-edit-line-commit (&optional type)
- "Edit the commit that added the current line.
-
-With a prefix argument edit the commit that removes the line,
-if any. The commit is determined using `git blame' and made
-editable using `git rebase --interactive' if it is reachable
-from `HEAD', or by checking out the commit (or a branch that
-points at it) otherwise."
- (interactive (list (and current-prefix-arg 'removal)))
- (let* ((chunk (magit-current-blame-chunk (or type 'addition)))
- (rev (oref chunk orig-rev)))
- (if (equal rev "0000000000000000000000000000000000000000")
- (message "This line has not been committed yet")
- (let ((rebase (magit-rev-ancestor-p rev "HEAD"))
- (file (expand-file-name (oref chunk orig-file)
- (magit-toplevel))))
- (if rebase
- (let ((magit--rebase-published-symbol 'edit-published))
- (magit-rebase-edit-commit rev (magit-rebase-arguments)))
- (magit-checkout (or (magit-rev-branch rev) rev)))
- (unless (and buffer-file-name
- (file-equal-p file buffer-file-name))
- (let ((blame-type (and magit-blame-mode magit-blame-type)))
- (if rebase
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (magit-sequencer-process-sentinel process event)
- (when (eq (process-status process) 'exit)
- (find-file file)
- (when blame-type
- (magit-blame--pre-blame-setup blame-type)
- (magit-blame--run)))))
- (find-file file)
- (when blame-type
- (magit-blame--pre-blame-setup blame-type)
- (magit-blame--run)))))))))
-
-(put 'magit-edit-line-commit 'disabled t)
-
-(defun magit-diff-edit-hunk-commit ()
- "From a hunk, edit the respective commit and visit the file.
-
-First visit the file being modified by the hunk at the correct
-location using `magit-diff-visit-file'. This actually visits a
-blob. When point is on a diff header, not within an individual
-hunk, then this visits the blob the first hunk is about.
-
-Then invoke `magit-edit-line-commit', which uses an interactive
-rebase to make the commit editable, or if that is not possible
-because the commit is not reachable from `HEAD' by checking out
-that commit directly. This also causes the actual worktree file
-to be visited.
-
-Neither the blob nor the file buffer are killed when finishing
-the rebase. If that is undesirable, then it might be better to
-use `magit-rebase-edit-command' instead of this command."
- (interactive)
- (let ((magit-diff-visit-previous-blob nil))
- (magit-diff-visit-file (--if-let (magit-file-at-point)
- (expand-file-name it)
- (user-error "No file at point"))
- nil 'switch-to-buffer))
- (magit-edit-line-commit))
-
-(put 'magit-diff-edit-hunk-commit 'disabled t)
-
-;;; Reshelve
-
-;;;###autoload
-(defun magit-reshelve-since (rev)
- "Change the author and committer dates of the commits since REV.
-
-Ask the user for the first reachable commit whose dates should
-be changed. The read the new date for that commit. The initial
-minibuffer input and the previous history element offer good
-values. The next commit will be created one minute later and so
-on.
-
-This command is only intended for interactive use and should only
-be used on highly rearranged and unpublished history."
- (interactive (list nil))
- (cond
- ((not rev)
- (let ((backup (concat "refs/original/refs/heads/"
- (magit-get-current-branch))))
- (when (and (magit-ref-p backup)
- (not (magit-y-or-n-p
- "Backup ref %s already exists. Override? " backup)))
- (user-error "Abort")))
- (magit-log-select 'magit-reshelve-since
- "Type %p on a commit to reshelve it and the commits above it,"))
- (t
- (cl-flet ((adjust (time offset)
- (format-time-string
- "%F %T %z"
- (+ (floor time)
- (* offset 60)
- (- (car (decode-time time)))))))
- (let* ((start (concat rev "^"))
- (range (concat start ".." (magit-get-current-branch)))
- (time-rev (adjust (float-time (string-to-number
- (magit-rev-format "%at" start)))
- 1))
- (time-now (adjust (float-time)
- (- (string-to-number
- (magit-git-string "rev-list" "--count"
- range))))))
- (push time-rev magit--reshelve-history)
- (let ((date (floor
- (float-time
- (date-to-time
- (read-string "Date for first commit: "
- time-now 'magit--reshelve-history))))))
- (magit-with-toplevel
- (magit-run-git-async
- "filter-branch" "--force" "--env-filter"
- (format "case $GIT_COMMIT in %s\nesac"
- (mapconcat (lambda (rev)
- (prog1 (format "%s) \
-export GIT_AUTHOR_DATE=\"%s\"; \
-export GIT_COMMITTER_DATE=\"%s\";;" rev date date)
- (cl-incf date 60)))
- (magit-git-lines "rev-list" "--reverse"
- range)
- " "))
- range "--")
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (when (memq (process-status process) '(exit signal))
- (if (> (process-exit-status process) 0)
- (magit-process-sentinel process event)
- (process-put process 'inhibit-refresh t)
- (magit-process-sentinel process event)
- (magit-run-git "update-ref" "-d"
- (concat "refs/original/refs/heads/"
- (magit-get-current-branch))))))))))))))
-
-;;; Revision Stack
-
-(defvar magit-revision-stack nil)
-
-(defcustom magit-pop-revision-stack-format
- '("[%N: %h] " "%N: %H\n %s\n" "\\[\\([0-9]+\\)[]:]")
- "Control how `magit-pop-revision-stack' inserts a revision.
-
-The command `magit-pop-revision-stack' inserts a representation
-of the revision last pushed to the `magit-revision-stack' into
-the current buffer. It inserts text at point and/or near the end
-of the buffer, and removes the consumed revision from the stack.
-
-The entries on the stack have the format (HASH TOPLEVEL) and this
-option has the format (POINT-FORMAT EOB-FORMAT INDEX-REGEXP), all
-of which may be nil or a string (though either one of EOB-FORMAT
-or POINT-FORMAT should be a string, and if INDEX-REGEXP is
-non-nil, then the two formats should be too).
-
-First INDEX-REGEXP is used to find the previously inserted entry,
-by searching backward from point. The first submatch must match
-the index number. That number is incremented by one, and becomes
-the index number of the entry to be inserted. If you don't want
-to number the inserted revisions, then use nil for INDEX-REGEXP.
-
-If INDEX-REGEXP is non-nil, then both POINT-FORMAT and EOB-FORMAT
-should contain \"%N\", which is replaced with the number that was
-determined in the previous step.
-
-Both formats, if non-nil and after removing %N, are then expanded
-using `git show --format=FORMAT ...' inside TOPLEVEL.
-
-The expansion of POINT-FORMAT is inserted at point, and the
-expansion of EOB-FORMAT is inserted at the end of the buffer (if
-the buffer ends with a comment, then it is inserted right before
-that)."
- :package-version '(magit . "2.3.0")
- :group 'magit-commands
- :type '(list (choice (string :tag "Insert at point format")
- (cons (string :tag "Insert at point format")
- (repeat (string :tag "Argument to git show")))
- (const :tag "Don't insert at point" nil))
- (choice (string :tag "Insert at eob format")
- (cons (string :tag "Insert at eob format")
- (repeat (string :tag "Argument to git show")))
- (const :tag "Don't insert at eob" nil))
- (choice (regexp :tag "Find index regexp")
- (const :tag "Don't number entries" nil))))
-
-;;;###autoload
-(defun magit-pop-revision-stack (rev toplevel)
- "Insert a representation of a revision into the current buffer.
-
-Pop a revision from the `magit-revision-stack' and insert it into
-the current buffer according to `magit-pop-revision-stack-format'.
-Revisions can be put on the stack using `magit-copy-section-value'
-and `magit-copy-buffer-revision'.
-
-If the stack is empty or with a prefix argument, instead read a
-revision in the minibuffer. By using the minibuffer history this
-allows selecting an item which was popped earlier or to insert an
-arbitrary reference or revision without first pushing it onto the
-stack.
-
-When reading the revision from the minibuffer, then it might not
-be possible to guess the correct repository. When this command
-is called inside a repository (e.g. while composing a commit
-message), then that repository is used. Otherwise (e.g. while
-composing an email) then the repository recorded for the top
-element of the stack is used (even though we insert another
-revision). If not called inside a repository and with an empty
-stack, or with two prefix arguments, then read the repository in
-the minibuffer too."
- (interactive
- (if (or current-prefix-arg (not magit-revision-stack))
- (let ((default-directory
- (or (and (not (= (prefix-numeric-value current-prefix-arg) 16))
- (or (magit-toplevel)
- (cadr (car magit-revision-stack))))
- (magit-read-repository))))
- (list (magit-read-branch-or-commit "Insert revision")
- default-directory))
- (push (caar magit-revision-stack) magit-revision-history)
- (pop magit-revision-stack)))
- (if rev
- (pcase-let ((`(,pnt-format ,eob-format ,idx-format)
- magit-pop-revision-stack-format))
- (let ((default-directory toplevel)
- (idx (and idx-format
- (save-excursion
- (if (re-search-backward idx-format nil t)
- (number-to-string
- (1+ (string-to-number (match-string 1))))
- "1"))))
- pnt-args eob-args)
- (when (listp pnt-format)
- (setq pnt-args (cdr pnt-format))
- (setq pnt-format (car pnt-format)))
- (when (listp eob-format)
- (setq eob-args (cdr eob-format))
- (setq eob-format (car eob-format)))
- (when pnt-format
- (when idx-format
- (setq pnt-format
- (replace-regexp-in-string "%N" idx pnt-format t t)))
- (magit-rev-insert-format pnt-format rev pnt-args)
- (backward-delete-char 1))
- (when eob-format
- (when idx-format
- (setq eob-format
- (replace-regexp-in-string "%N" idx eob-format t t)))
- (save-excursion
- (goto-char (point-max))
- (skip-syntax-backward ">s-")
- (beginning-of-line)
- (if (and comment-start (looking-at comment-start))
- (while (looking-at comment-start)
- (forward-line -1))
- (forward-line)
- (unless (= (current-column) 0)
- (insert ?\n)))
- (insert ?\n)
- (magit-rev-insert-format eob-format rev eob-args)
- (backward-delete-char 1)))))
- (user-error "Revision stack is empty")))
-
-(define-key git-commit-mode-map
- (kbd "C-c C-w") 'magit-pop-revision-stack)
-
-;;;###autoload
-(defun magit-copy-section-value ()
- "Save the value of the current section for later use.
-
-Save the section value to the `kill-ring', and, provided that
-the current section is a commit, branch, or tag section, push
-the (referenced) revision to the `magit-revision-stack' for use
-with `magit-pop-revision-stack'.
-
-When the current section is a branch or a tag, and a prefix
-argument is used, then save the revision at its tip to the
-`kill-ring' instead of the reference name.
-
-When the region is active, then save that to the `kill-ring',
-like `kill-ring-save' would, instead of behaving as described
-above."
- (interactive)
- (if (use-region-p)
- (copy-region-as-kill nil nil 'region)
- (when-let ((section (magit-current-section))
- (value (oref section value)))
- (magit-section-case
- ((branch commit module-commit tag)
- (let ((default-directory default-directory) ref)
- (magit-section-case
- ((branch tag)
- (setq ref value))
- (module-commit
- (setq default-directory
- (file-name-as-directory
- (expand-file-name (magit-section-parent-value section)
- (magit-toplevel))))))
- (setq value (magit-rev-parse value))
- (push (list value default-directory) magit-revision-stack)
- (kill-new (message "%s" (or (and current-prefix-arg ref)
- value)))))
- (t (kill-new (message "%s" value)))))))
-
-;;;###autoload
-(defun magit-copy-buffer-revision ()
- "Save the revision of the current buffer for later use.
-
-Save the revision shown in the current buffer to the `kill-ring'
-and push it to the `magit-revision-stack'.
-
-This command is mainly intended for use in `magit-revision-mode'
-buffers, the only buffers where it is always unambiguous exactly
-which revision should be saved.
-
-Most other Magit buffers usually show more than one revision, in
-some way or another, so this command has to select one of them,
-and that choice might not always be the one you think would have
-been the best pick.
-
-In such buffers it is often more useful to save the value of
-the current section instead, using `magit-copy-section-value'.
-
-When the region is active, then save that to the `kill-ring',
-like `kill-ring-save' would, instead of behaving as described
-above."
- (interactive)
- (if (use-region-p)
- (copy-region-as-kill nil nil 'region)
- (when-let ((rev (cond ((memq major-mode '(magit-cherry-mode
- magit-log-select-mode
- magit-reflog-mode
- magit-refs-mode
- magit-revision-mode
- magit-stash-mode
- magit-stashes-mode))
- (car magit-refresh-args))
- ((memq major-mode '(magit-diff-mode
- magit-log-mode))
- (let ((r (caar magit-refresh-args)))
- (if (string-match "\\.\\.\\.?\\(.+\\)" r)
- (match-string 1 r)
- r)))
- ((eq major-mode 'magit-status-mode) "HEAD"))))
- (when (magit-rev-verify-commit rev)
- (setq rev (magit-rev-parse rev))
- (push (list rev default-directory) magit-revision-stack)
- (kill-new (message "%s" rev))))))
-
-;;; Miscellaneous
-
-;;;###autoload
-(defun magit-abort-dwim ()
- "Abort current operation.
-Depending on the context, this will abort a merge, a rebase, a
-patch application, a cherry-pick, a revert, or a bisect."
- (interactive)
- (cond ((magit-merge-in-progress-p) (magit-merge-abort))
- ((magit-rebase-in-progress-p) (magit-rebase-abort))
- ((magit-am-in-progress-p) (magit-am-abort))
- ((magit-sequencer-in-progress-p) (magit-sequencer-abort))
- ((magit-bisect-in-progress-p) (magit-bisect-reset))))
-
-;;; _
-(provide 'magit-extras)
-;;; magit-extras.el ends here
diff --git a/elpa/magit-20181116.1412/magit-extras.elc b/elpa/magit-20181116.1412/magit-extras.elc
deleted file mode 100644
index a61d51f..0000000
--- a/elpa/magit-20181116.1412/magit-extras.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-fetch.el b/elpa/magit-20181116.1412/magit-fetch.el
deleted file mode 100644
index dc04233..0000000
--- a/elpa/magit-20181116.1412/magit-fetch.el
+++ /dev/null
@@ -1,157 +0,0 @@
-;;; magit-fetch.el --- download objects and refs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements fetch commands.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Options
-
-(defcustom magit-fetch-modules-jobs 4
- "Number of submodules to fetch in parallel.
-Ignored for Git versions before v2.8.0."
- :package-version '(magit . "2.12.0")
- :group 'magit-commands
- :type '(choice (const :tag "one at a time" nil) number))
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-fetch-popup "magit-fetch" nil t)
-(magit-define-popup magit-fetch-popup
- "Popup console for fetch commands."
- :man-page "git-fetch"
- :switches '((?p "Prune deleted branches" "--prune"))
- :actions '("Configure"
- (?C "variables..." magit-branch-config-popup)
- "Fetch from"
- (?p magit-get-push-remote magit-fetch-from-pushremote)
- (?u magit-get-remote magit-fetch-from-upstream)
- (?e "elsewhere" magit-fetch-other)
- (?a "all remotes" magit-fetch-all)
- "Fetch"
- (?o "another branch" magit-fetch-branch)
- (?r "explicit refspec" magit-fetch-refspec)
- (?m "submodules" magit-fetch-modules))
- :default-action 'magit-fetch
- :max-action-columns 1)
-
-(defun magit-git-fetch (remote args)
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "fetch" remote args))
-
-;;;###autoload
-(defun magit-fetch-from-pushremote (args)
- "Fetch from the push-remote of the current branch."
- (interactive (list (magit-fetch-arguments)))
- (--if-let (magit-get-push-remote)
- (magit-git-fetch it args)
- (--if-let (magit-get-current-branch)
- (user-error "No push-remote is configured for %s" it)
- (user-error "No branch is checked out"))))
-
-;;;###autoload
-(defun magit-fetch-from-upstream (args)
- "Fetch from the upstream repository of the current branch."
- (interactive (list (magit-fetch-arguments)))
- (--if-let (magit-get-remote)
- (magit-git-fetch it args)
- (--if-let (magit-get-current-branch)
- (user-error "No upstream is configured for %s" it)
- (user-error "No branch is checked out"))))
-
-;;;###autoload
-(defun magit-fetch-other (remote args)
- "Fetch from another repository."
- (interactive (list (magit-read-remote "Fetch remote")
- (magit-fetch-arguments)))
- (magit-git-fetch remote args))
-
-;;;###autoload
-(defun magit-fetch-branch (remote branch args)
- "Fetch a BRANCH from a REMOTE."
- (interactive
- (let ((remote (magit-read-remote-or-url "Fetch from remote or url")))
- (list remote
- (magit-read-remote-branch "Fetch branch" remote)
- (magit-fetch-arguments))))
- (magit-git-fetch remote (cons branch args)))
-
-;;;###autoload
-(defun magit-fetch-refspec (remote refspec args)
- "Fetch a REFSPEC from a REMOTE."
- (interactive
- (let ((remote (magit-read-remote-or-url "Fetch from remote or url")))
- (list remote
- (magit-read-refspec "Fetch using refspec" remote)
- (magit-fetch-arguments))))
- (magit-git-fetch remote (cons refspec args)))
-
-;;;###autoload
-(defun magit-fetch-all (args)
- "Fetch from all remotes."
- (interactive (list (cl-intersection (magit-fetch-arguments)
- (list "--verbose" "--prune")
- :test #'equal)))
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "remote" "update" args))
-
-;;;###autoload
-(defun magit-fetch-all-prune ()
- "Fetch from all remotes, and prune.
-Prune remote tracking branches for branches that have been
-removed on the respective remote."
- (interactive)
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "remote" "update" "--prune"))
-
-;;;###autoload
-(defun magit-fetch-all-no-prune ()
- "Fetch from all remotes."
- (interactive)
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "remote" "update"))
-
-;;;###autoload
-(defun magit-fetch-modules (&optional all)
- "Fetch all submodules.
-
-Option `magit-fetch-modules-jobs' controls how many submodules
-are being fetched in parallel. Also fetch the super-repository,
-because `git-fetch' does not support not doing that. With a
-prefix argument fetch all remotes."
- (interactive "P")
- (magit-with-toplevel
- (magit-run-git-async
- "fetch" "--verbose" "--recurse-submodules"
- (and magit-fetch-modules-jobs
- (version<= "2.8.0" (magit-git-version))
- (list "-j" (number-to-string magit-fetch-modules-jobs)))
- (and all "--all"))))
-
-;;; _
-(provide 'magit-fetch)
-;;; magit-fetch.el ends here
diff --git a/elpa/magit-20181116.1412/magit-fetch.elc b/elpa/magit-20181116.1412/magit-fetch.elc
deleted file mode 100644
index 7cb194c..0000000
--- a/elpa/magit-20181116.1412/magit-fetch.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-files.el b/elpa/magit-20181116.1412/magit-files.el
deleted file mode 100644
index 094539f..0000000
--- a/elpa/magit-20181116.1412/magit-files.el
+++ /dev/null
@@ -1,493 +0,0 @@
-;;; magit-files.el --- finding files -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for finding blobs, staged files,
-;; and Git configuration files. It also implements modes useful in
-;; buffers visiting files and blobs, and the commands used by those
-;; modes.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-;;; Find Blob
-
-(defvar magit-find-file-hook nil)
-(add-hook 'magit-find-file-hook #'magit-blob-mode)
-
-;;;###autoload
-(defun magit-find-file (rev file)
- "View FILE from REV.
-Switch to a buffer visiting blob REV:FILE,
-creating one if none already exists."
- (interactive (magit-find-file-read-args "Find file"))
- (switch-to-buffer (magit-find-file-noselect rev file)))
-
-;;;###autoload
-(defun magit-find-file-other-window (rev file)
- "View FILE from REV, in another window.
-Like `magit-find-file', but create a new window or reuse an
-existing one."
- (interactive (magit-find-file-read-args "Find file in other window"))
- (switch-to-buffer-other-window (magit-find-file-noselect rev file)))
-
-(defun magit-find-file-read-args (prompt)
- (let ((rev (magit-read-branch-or-commit "Find file from revision")))
- (list rev (magit-read-file-from-rev rev prompt))))
-
-(defun magit-find-file-noselect (rev file)
- "Read FILE from REV into a buffer and return the buffer.
-FILE must be relative to the top directory of the repository."
- (magit-find-file-noselect-1 rev file 'magit-find-file-hook))
-
-(defun magit-find-file-noselect-1 (rev file hookvar &optional revert)
- "Read FILE from REV into a buffer and return the buffer.
-FILE must be relative to the top directory of the repository.
-An empty REV stands for index."
- (let ((topdir (magit-toplevel)))
- (when (file-name-absolute-p file)
- (setq file (file-relative-name file topdir)))
- (with-current-buffer (magit-get-revision-buffer-create rev file)
- (when (or (not magit-buffer-file-name)
- (if (eq revert 'ask-revert)
- (y-or-n-p (format "%s already exists; revert it? "
- (buffer-name))))
- revert)
- (setq magit-buffer-revision
- (if (string= rev "") "{index}" (magit-rev-format "%H" rev)))
- (setq magit-buffer-refname rev)
- (setq magit-buffer-file-name (expand-file-name file topdir))
- (setq default-directory
- (let ((dir (file-name-directory magit-buffer-file-name)))
- (if (file-exists-p dir) dir topdir)))
- (setq-local revert-buffer-function #'magit-revert-rev-file-buffer)
- (revert-buffer t t)
- (run-hooks hookvar))
- (current-buffer))))
-
-(defun magit-get-revision-buffer-create (rev file)
- (magit-get-revision-buffer rev file t))
-
-(defun magit-get-revision-buffer (rev file &optional create)
- (funcall (if create 'get-buffer-create 'get-buffer)
- (format "%s.~%s~" file (if (equal rev "") "index"
- (subst-char-in-string ?/ ?_ rev)))))
-
-(defun magit-revert-rev-file-buffer (_ignore-auto noconfirm)
- (when (or noconfirm
- (and (not (buffer-modified-p))
- (catch 'found
- (dolist (regexp revert-without-query)
- (when (string-match regexp magit-buffer-file-name)
- (throw 'found t)))))
- (yes-or-no-p (format "Revert buffer from git %s? "
- (if (equal magit-buffer-refname "") "{index}"
- (concat "revision " magit-buffer-refname)))))
- (let* ((inhibit-read-only t)
- (default-directory (magit-toplevel))
- (file (file-relative-name magit-buffer-file-name))
- (coding-system-for-read (or coding-system-for-read 'undecided)))
- (erase-buffer)
- (magit-git-insert "cat-file" "-p" (concat magit-buffer-refname ":" file))
- (setq buffer-file-coding-system last-coding-system-used))
- (let ((buffer-file-name magit-buffer-file-name)
- (after-change-major-mode-hook
- (remq 'global-diff-hl-mode-enable-in-buffers
- after-change-major-mode-hook)))
- (normal-mode t))
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- (goto-char (point-min))))
-
-;;; Find Index
-
-(defvar magit-find-index-hook nil)
-
-(defun magit-find-file-index-noselect (file &optional revert)
- "Read FILE from the index into a buffer and return the buffer.
-FILE must to be relative to the top directory of the repository."
- (magit-find-file-noselect-1 "" file 'magit-find-index-hook
- (or revert 'ask-revert)))
-
-(defun magit-update-index ()
- "Update the index with the contents of the current buffer.
-The current buffer has to be visiting a file in the index, which
-is done using `magit-find-index-noselect'."
- (interactive)
- (let ((file (magit-file-relative-name)))
- (unless (equal magit-buffer-refname "")
- (user-error "%s isn't visiting the index" file))
- (if (y-or-n-p (format "Update index with contents of %s" (buffer-name)))
- (let ((index (make-temp-file "index"))
- (buffer (current-buffer)))
- (when magit-wip-before-change-mode
- (magit-wip-commit-before-change (list file) " before un-/stage"))
- (let ((coding-system-for-write buffer-file-coding-system))
- (with-temp-file index
- (insert-buffer-substring buffer)))
- (magit-with-toplevel
- (magit-call-git "update-index" "--cacheinfo"
- (substring (magit-git-string "ls-files" "-s" file)
- 0 6)
- (magit-git-string "hash-object" "-t" "blob" "-w"
- (concat "--path=" file)
- "--" index)
- file))
- (set-buffer-modified-p nil)
- (when magit-wip-after-apply-mode
- (magit-wip-commit-after-apply (list file) " after un-/stage")))
- (message "Abort")))
- (--when-let (magit-mode-get-buffer 'magit-status-mode)
- (with-current-buffer it (magit-refresh)))
- t)
-
-;;; Find Config File
-
-(defun magit-find-git-config-file (filename &optional wildcards)
- "Edit a file located in the current repository's git directory.
-
-When \".git\", located at the root of the working tree, is a
-regular file, then that makes it cumbersome to open a file
-located in the actual git directory.
-
-This command is like `find-file', except that it temporarily
-binds `default-directory' to the actual git directory, while
-reading the FILENAME."
- (interactive
- (let ((default-directory (magit-git-dir)))
- (find-file-read-args "Find file: "
- (confirm-nonexistent-file-or-buffer))))
- (find-file filename wildcards))
-
-(defun magit-find-git-config-file-other-window (filename &optional wildcards)
- "Edit a file located in the current repository's git directory, in another window.
-
-When \".git\", located at the root of the working tree, is a
-regular file, then that makes it cumbersome to open a file
-located in the actual git directory.
-
-This command is like `find-file-other-window', except that it
-temporarily binds `default-directory' to the actual git
-directory, while reading the FILENAME."
- (interactive
- (let ((default-directory (magit-git-dir)))
- (find-file-read-args "Find file in other window: "
- (confirm-nonexistent-file-or-buffer))))
- (find-file-other-window filename wildcards))
-
-(defun magit-find-git-config-file-other-frame (filename &optional wildcards)
- "Edit a file located in the current repository's git directory, in another frame.
-
-When \".git\", located at the root of the working tree, is a
-regular file, then that makes it cumbersome to open a file
-located in the actual git directory.
-
-This command is like `find-file-other-frame', except that it
-temporarily binds `default-directory' to the actual git
-directory, while reading the FILENAME."
- (interactive
- (let ((default-directory (magit-git-dir)))
- (find-file-read-args "Find file in other frame: "
- (confirm-nonexistent-file-or-buffer))))
- (find-file-other-frame filename wildcards))
-
-;;; File Mode
-
-(defvar magit-file-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\C-xg" 'magit-status)
- (define-key map "\C-x\M-g" 'magit-dispatch-popup)
- (define-key map "\C-c\M-g" 'magit-file-popup)
- map)
- "Keymap for `magit-file-mode'.")
-
-;;;###autoload (autoload 'magit-file-popup "magit" nil t)
-(magit-define-popup magit-file-popup
- "Popup console for Magit commands in file-visiting buffers."
- :actions '((?s "Stage" magit-stage-file)
- (?D "Diff..." magit-diff-buffer-file-popup)
- (?L "Log..." magit-log-buffer-file-popup)
- (?B "Blame..." magit-blame-popup) nil
- (?u "Unstage" magit-unstage-file)
- (?d "Diff" magit-diff-buffer-file)
- (?l "Log" magit-log-buffer-file)
- (?b "Blame" magit-blame-addition)
- (?p "Prev blob" magit-blob-previous)
- (?c "Commit" magit-commit-popup) nil
- (?t "Trace" magit-log-trace-definition)
- (?r (lambda ()
- (with-current-buffer magit-pre-popup-buffer
- (and (not buffer-file-name)
- (propertize "...removal" 'face 'default))))
- magit-blame-removal)
- (?n "Next blob" magit-blob-next)
- (?e "Edit line" magit-edit-line-commit)
- nil nil
- (?f (lambda ()
- (with-current-buffer magit-pre-popup-buffer
- (and (not buffer-file-name)
- (propertize "...reverse" 'face 'default))))
- magit-blame-reverse)
- nil)
- :max-action-columns 5)
-
-(defvar magit-file-mode-lighter "")
-
-(define-minor-mode magit-file-mode
- "Enable some Magit features in a file-visiting buffer.
-
-Currently this only adds the following key bindings.
-\n\\{magit-file-mode-map}"
- :package-version '(magit . "2.2.0")
- :lighter magit-file-mode-lighter
- :keymap magit-file-mode-map)
-
-(defun magit-file-mode-turn-on ()
- (and buffer-file-name
- (magit-inside-worktree-p t)
- (magit-file-mode)))
-
-;;;###autoload
-(define-globalized-minor-mode global-magit-file-mode
- magit-file-mode magit-file-mode-turn-on
- :package-version '(magit . "2.13.0")
- :link '(info-link "(magit)Minor Mode for Buffers Visiting Files")
- :group 'magit-essentials
- :group 'magit-modes
- :init-value t)
-;; Unfortunately `:init-value t' only sets the value of the mode
-;; variable but does not cause the mode function to be called, and we
-;; cannot use `:initialize' to call that explicitly because the option
-;; is defined before the functions, so we have to do it here.
-(cl-eval-when (load)
- (when global-magit-file-mode
- (global-magit-file-mode 1)))
-
-;;; Blob Mode
-
-(defvar magit-blob-mode-map
- (let ((map (make-sparse-keymap)))
- (cond ((featurep 'jkl)
- (define-key map "i" 'magit-blob-previous)
- (define-key map "k" 'magit-blob-next)
- (define-key map "j" 'magit-blame-addition)
- (define-key map "l" 'magit-blame-removal)
- (define-key map "f" 'magit-blame-reverse))
- (t
- (define-key map "p" 'magit-blob-previous)
- (define-key map "n" 'magit-blob-next)
- (define-key map "b" 'magit-blame-addition)
- (define-key map "r" 'magit-blame-removal)
- (define-key map "f" 'magit-blame-reverse)))
- (define-key map "q" 'magit-kill-this-buffer)
- map)
- "Keymap for `magit-blob-mode'.")
-
-(define-minor-mode magit-blob-mode
- "Enable some Magit features in blob-visiting buffers.
-
-Currently this only adds the following key bindings.
-\n\\{magit-blob-mode-map}"
- :package-version '(magit . "2.3.0"))
-
-(defun magit-blob-next ()
- "Visit the next blob which modified the current file."
- (interactive)
- (if magit-buffer-file-name
- (magit-blob-visit (or (magit-blob-successor magit-buffer-revision
- magit-buffer-file-name)
- magit-buffer-file-name)
- (line-number-at-pos))
- (if (buffer-file-name (buffer-base-buffer))
- (user-error "You have reached the end of time")
- (user-error "Buffer isn't visiting a file or blob"))))
-
-(defun magit-blob-previous ()
- "Visit the previous blob which modified the current file."
- (interactive)
- (if-let ((file (or magit-buffer-file-name
- (buffer-file-name (buffer-base-buffer)))))
- (--if-let (magit-blob-ancestor magit-buffer-revision file)
- (magit-blob-visit it (line-number-at-pos))
- (user-error "You have reached the beginning of time"))
- (user-error "Buffer isn't visiting a file or blob")))
-
-(defun magit-blob-visit (blob-or-file line)
- (if (stringp blob-or-file)
- (find-file blob-or-file)
- (pcase-let ((`(,rev ,file) blob-or-file))
- (magit-find-file rev file)
- (apply #'message "%s (%s %s ago)"
- (magit-rev-format "%s" rev)
- (magit--age (magit-rev-format "%ct" rev)))))
- (goto-char (point-min))
- (forward-line (1- line)))
-
-(defun magit-blob-ancestor (rev file)
- (let ((lines (magit-with-toplevel
- (magit-git-lines "log" "-2" "--format=%H" "--name-only"
- "--follow" (or rev "HEAD") "--" file))))
- (if rev (cddr lines) (butlast lines 2))))
-
-(defun magit-blob-successor (rev file)
- (let ((lines (magit-with-toplevel
- (magit-git-lines "log" "--format=%H" "--name-only" "--follow"
- "HEAD" "--" file))))
- (catch 'found
- (while lines
- (if (equal (nth 2 lines) rev)
- (throw 'found (list (nth 0 lines) (nth 1 lines)))
- (setq lines (nthcdr 2 lines)))))))
-
-;;; File Commands
-
-(defun magit-file-rename (file newname)
- "Rename the FILE to NEWNAME.
-If FILE isn't tracked in Git, fallback to using `rename-file'."
- (interactive
- (let* ((file (magit-read-file "Rename file"))
- (dir (file-name-directory file))
- (newname (read-file-name (format "Rename %s to file: " file)
- (and dir (expand-file-name dir)))))
- (list (expand-file-name file (magit-toplevel))
- (expand-file-name newname))))
- (if (magit-file-tracked-p (magit-convert-filename-for-git file))
- (let ((oldbuf (get-file-buffer file)))
- (when (and oldbuf (buffer-modified-p oldbuf))
- (user-error "Save %s before moving it" file))
- (when (file-exists-p newname)
- (user-error "%s already exists" newname))
- (magit-run-git "mv"
- (magit-convert-filename-for-git file)
- (magit-convert-filename-for-git newname))
- (when oldbuf
- (with-current-buffer oldbuf
- (let ((buffer-read-only buffer-read-only))
- (set-visited-file-name newname))
- (if (fboundp 'vc-refresh-state)
- (vc-refresh-state)
- (with-no-warnings
- (vc-find-file-hook))))))
- (rename-file file newname current-prefix-arg)
- (magit-refresh)))
-
-(defun magit-file-untrack (files &optional force)
- "Untrack the selected FILES or one file read in the minibuffer.
-
-With a prefix argument FORCE do so even when the files have
-staged as well as unstaged changes."
- (interactive (list (or (--if-let (magit-region-values 'file t)
- (progn
- (unless (magit-file-tracked-p (car it))
- (user-error "Already untracked"))
- (magit-confirm-files 'untrack it "Untrack"))
- (list (magit-read-tracked-file "Untrack file"))))
- current-prefix-arg))
- (magit-run-git "rm" "--cached" (and force "--force") "--" files))
-
-(defun magit-file-delete (files &optional force)
- "Delete the selected FILES or one file read in the minibuffer.
-
-With a prefix argument FORCE do so even when the files have
-uncommitted changes. When the files aren't being tracked in
-Git, then fallback to using `delete-file'."
- (interactive (list (--if-let (magit-region-values 'file t)
- (magit-confirm-files 'delete it "Delete")
- (list (magit-read-file "Delete file")))
- current-prefix-arg))
- (if (magit-file-tracked-p (car files))
- (magit-call-git "rm" (and force "--force") "--" files)
- (let ((topdir (magit-toplevel)))
- (dolist (file files)
- (delete-file (expand-file-name file topdir) t))))
- (magit-refresh))
-
-;;;###autoload
-(defun magit-file-checkout (rev file)
- "Checkout FILE from REV."
- (interactive
- (let ((rev (magit-read-branch-or-commit
- "Checkout from revision" magit-buffer-revision)))
- (list rev (magit-read-file-from-rev rev "Checkout file"))))
- (magit-with-toplevel
- (magit-run-git "checkout" rev "--" file)))
-
-;;; Read File
-
-(defvar magit-read-file-hist nil)
-
-(defun magit-read-file-from-rev (rev prompt &optional default)
- (let ((files (magit-revision-files rev)))
- (magit-completing-read
- prompt files nil t nil 'magit-read-file-hist
- (car (member (or default (magit-current-file)) files)))))
-
-(defun magit-read-file (prompt &optional tracked-only)
- (let ((choices (nconc (magit-list-files)
- (unless tracked-only (magit-untracked-files)))))
- (magit-completing-read
- prompt choices nil t nil nil
- (car (member (or (magit-section-value-if '(file submodule))
- (magit-file-relative-name nil tracked-only))
- choices)))))
-
-(defun magit-read-tracked-file (prompt)
- (magit-read-file prompt t))
-
-(defun magit-read-file-choice (prompt files &optional error default)
- "Read file from FILES.
-
-If FILES has only one member, return that instead of prompting.
-If FILES has no members, give a user error. ERROR can be given
-to provide a more informative error.
-
-If DEFAULT is non-nil, use this as the default value instead of
-`magit-current-file'."
- (pcase (length files)
- (0 (user-error (or error "No file choices")))
- (1 (car files))
- (_ (magit-completing-read
- prompt files nil t nil 'magit-read-file-hist
- (car (member (or default (magit-current-file)) files))))))
-
-(defun magit-read-changed-file (rev-or-range prompt &optional default)
- (magit-read-file-choice
- prompt
- (magit-changed-files rev-or-range)
- default
- (concat "No file changed in " rev-or-range)))
-
-(defun magit-read-files (prompt initial-contents)
- (mapconcat 'identity
- (completing-read-multiple (or prompt "File,s: ")
- (magit-list-files)
- nil nil initial-contents) ","))
-
-;;; _
-(provide 'magit-files)
-;;; magit-files.el ends here
diff --git a/elpa/magit-20181116.1412/magit-files.elc b/elpa/magit-20181116.1412/magit-files.elc
deleted file mode 100644
index 175652f..0000000
--- a/elpa/magit-20181116.1412/magit-files.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-git.el b/elpa/magit-20181116.1412/magit-git.el
deleted file mode 100644
index 6ebf298..0000000
--- a/elpa/magit-20181116.1412/magit-git.el
+++ /dev/null
@@ -1,2175 +0,0 @@
-;;; magit-git.el --- Git functionality -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements wrappers for various Git plumbing commands.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dash)
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit-utils)
-(require 'magit-section)
-
-(declare-function magit-call-git "magit-process" (&rest args))
-(declare-function magit-maybe-make-margin-overlay "magit-margin" ())
-(declare-function magit-process-buffer "magit-process" (&optional nodisplay))
-(declare-function magit-process-file "magit-process" (&rest args))
-(declare-function magit-process-insert-section "magit-process"
- (pwe program args &optional errcode errlog))
-(declare-function magit-refresh "magit-mode" ())
-(defvar magit-process-error-message-regexps)
-(defvar magit-refresh-args) ; from `magit-mode' for `magit-current-file'
-(defvar magit-branch-prefer-remote-upstream)
-(defvar magit-published-branches)
-(defvar magit-diff-section-arguments)
-
-(defvar magit-tramp-process-environment nil)
-
-;;; Options
-
-;; For now this is shared between `magit-process' and `magit-git'.
-(defgroup magit-process nil
- "Git and other external processes used by Magit."
- :group 'magit)
-
-(defvar magit-git-environment
- (list (format "INSIDE_EMACS=%s,magit" emacs-version))
- "Prepended to `process-environment' while running git.")
-
-(defcustom magit-git-output-coding-system
- (and (eq system-type 'windows-nt) 'utf-8)
- "Coding system for receiving output from Git.
-
-If non-nil, the Git config value `i18n.logOutputEncoding' should
-be set via `magit-git-global-arguments' to value consistent with
-this."
- :package-version '(magit . "2.9.0")
- :group 'magit-process
- :type '(choice (coding-system :tag "Coding system to decode Git output")
- (const :tag "Use system default" nil)))
-
-(defvar magit-git-w32-path-hack nil
- "Alist of (EXE . (PATHENTRY)).
-This specifies what additional PATH setting needs to be added to
-the environment in order to run the non-wrapper git executables
-successfully.")
-
-(defcustom magit-git-executable
- ;; Git might be installed in a different location on a remote, so
- ;; it is better not to use the full path to the executable, except
- ;; on Window were we would otherwise end up using one one of the
- ;; wrappers "cmd/git.exe" or "cmd/git.cmd", which are much slower
- ;; than using "bin/git.exe" directly.
- (or (and (eq system-type 'windows-nt)
- (--when-let (executable-find "git")
- (ignore-errors
- ;; Git for Windows 2.x provides cygpath so we can
- ;; ask it for native paths.
- (let* ((core-exe
- (car
- (process-lines
- it "-c"
- "alias.X=!x() { which \"$1\" | cygpath -mf -; }; x"
- "X" "git")))
- (hack-entry (assoc core-exe magit-git-w32-path-hack))
- ;; Running the libexec/git-core executable
- ;; requires some extra PATH entries.
- (path-hack
- (list (concat "PATH="
- (car (process-lines
- it "-c"
- "alias.P=!cygpath -wp \"$PATH\""
- "P"))))))
- ;; The defcustom STANDARD expression can be
- ;; evaluated many times, so make sure it is
- ;; idempotent.
- (if hack-entry
- (setcdr hack-entry path-hack)
- (push (cons core-exe path-hack) magit-git-w32-path-hack))
- core-exe))))
- "git")
- "The Git executable used by Magit."
- :group 'magit-process
- :type 'string)
-
-(defcustom magit-git-global-arguments
- `("--no-pager" "--literal-pathspecs" "-c" "core.preloadindex=true"
- "-c" "log.showSignature=false"
- ,@(and (eq system-type 'windows-nt)
- (list "-c" "i18n.logOutputEncoding=UTF-8")))
- "Global Git arguments.
-
-The arguments set here are used every time the git executable is
-run as a subprocess. They are placed right after the executable
-itself and before the git command - as in `git HERE... COMMAND
-REST'. See the manpage `git(1)' for valid arguments.
-
-Be careful what you add here, especially if you are using Tramp
-to connect to servers with ancient Git versions. Never remove
-anything that is part of the default value, unless you really
-know what you are doing. And think very hard before adding
-something; it will be used every time Magit runs Git for any
-purpose."
- :package-version '(magit . "2.9.0")
- :group 'magit-git-arguments
- :group 'magit-process
- :type '(repeat string))
-
-(defvar magit-git-debug nil
- "Whether to enable additional reporting of git errors.
-
-Magit basically calls git for one of these two reasons: for
-side-effects or to do something with its standard output.
-
-When git is run for side-effects then its output, including error
-messages, go into the process buffer which is shown when using \
-\\<magit-status-mode-map>\\[magit-process].
-
-When git's output is consumed in some way, then it would be too
-expensive to also insert it into this buffer, but when this
-option is non-nil and git returns with a non-zero exit status,
-then at least its standard error is inserted into this buffer.
-
-This is only intended for debugging purposes. Do not enable this
-permanently, that would negatively affect performance.")
-
-
-(defcustom magit-prefer-remote-upstream nil
- "Whether to favor remote branches when reading the upstream branch.
-
-This controls whether commands that read a branch from the user
-and then set it as the upstream branch, offer a local or a remote
-branch as default completion candidate, when they have the choice.
-
-This affects all commands that use `magit-read-upstream-branch'
-or `magit-read-starting-point', which includes all commands that
-change the upstream and many which create new branches."
- :package-version '(magit . "2.4.2")
- :group 'magit-commands
- :type 'boolean)
-
-(defcustom magit-list-refs-sortby nil
- "How to sort the ref collection in the prompt.
-
-This affects commands that read a ref. More specifically, it
-controls the order of refs returned by `magit-list-refs', which
-is called by functions like `magit-list-branch-names' to generate
-the collection of refs. By default, refs are sorted according to
-their full refname (i.e., 'refs/...').
-
-Any value accepted by the `--sort' flag of `git for-each-ref' can
-be used. For example, \"-creatordate\" places refs with more
-recent committer or tagger dates earlier in the list. A list of
-strings can also be given in order to pass multiple sort keys to
-`git for-each-ref'.
-
-Note that, depending on the completion framework you use, this
-may not be sufficient to change the order in which the refs are
-displayed. It only controls the order of the collection passed
-to `magit-completing-read' or, for commands that support reading
-multiple strings, `read-from-minibuffer'. The completion
-framework ultimately determines how the collection is displayed."
- :package-version '(magit . "2.11.0")
- :group 'magit-miscellanous
- :type '(choice string (repeat string)))
-
-;;; Git
-
-(defvar magit--refresh-cache nil)
-
-(defmacro magit--with-refresh-cache (key &rest body)
- (declare (indent 1) (debug (form body)))
- (let ((k (cl-gensym)))
- `(if magit--refresh-cache
- (let ((,k ,key))
- (--if-let (assoc ,k (cdr magit--refresh-cache))
- (progn (cl-incf (caar magit--refresh-cache))
- (cdr it))
- (cl-incf (cdar magit--refresh-cache))
- (let ((value ,(macroexp-progn body)))
- (push (cons ,k value)
- (cdr magit--refresh-cache))
- value)))
- ,@body)))
-
-(defvar magit-with-editor-envvar "GIT_EDITOR"
- "The environment variable exported by `magit-with-editor'.
-Set this to \"GIT_SEQUENCE_EDITOR\" if you do not want to use
-Emacs to edit commit messages but would like to do so to edit
-rebase sequences.")
-
-(defmacro magit-with-editor (&rest body)
- "Like `with-editor' but let-bind some more variables.
-Also respect the value of `magit-with-editor-envvar'."
- (declare (indent 0) (debug (body)))
- `(let ((magit-process-popup-time -1)
- ;; The user may have customized `shell-file-name' to
- ;; something which results in `w32-shell-dos-semantics' nil
- ;; (which changes the quoting style used by
- ;; `shell-quote-argument'), but Git for Windows expects shell
- ;; quoting in the dos style.
- (shell-file-name (if (and (eq system-type 'windows-nt)
- ;; If we have Cygwin mount points,
- ;; the git flavor is cygwin, so dos
- ;; shell quoting is probably wrong.
- (not magit-cygwin-mount-points))
- "cmdproxy"
- shell-file-name)))
- (with-editor* magit-with-editor-envvar
- ,@body)))
-
-(defun magit-process-git-arguments (args)
- "Prepare ARGS for a function that invokes Git.
-
-Magit has many specialized functions for running Git; they all
-pass arguments through this function before handing them to Git,
-to do the following.
-
-* Flatten ARGS, removing nil arguments.
-* Prepend `magit-git-global-arguments' to ARGS.
-* On w32 systems, encode to `w32-ansi-code-page'."
- (setq args (append magit-git-global-arguments (-flatten args)))
- (if (and (eq system-type 'windows-nt) (boundp 'w32-ansi-code-page))
- ;; On w32, the process arguments *must* be encoded in the
- ;; current code-page (see #3250).
- (mapcar (lambda (arg)
- (encode-coding-string
- arg (intern (format "cp%d" w32-ansi-code-page))))
- args)
- args))
-
-(defun magit-git-exit-code (&rest args)
- "Execute Git with ARGS, returning its exit code."
- (apply #'magit-process-file magit-git-executable nil nil nil
- (magit-process-git-arguments args)))
-
-(defun magit-git-success (&rest args)
- "Execute Git with ARGS, returning t if its exit code is 0."
- (= (magit-git-exit-code args) 0))
-
-(defun magit-git-failure (&rest args)
- "Execute Git with ARGS, returning t if its exit code is 1."
- (= (magit-git-exit-code args) 1))
-
-(defun magit-git-str (&rest args)
- "Execute Git with ARGS, returning the first line of its output.
-If there is no output, return nil. If the output begins with a
-newline, return an empty string. Like `magit-git-string' but
-ignore `magit-git-debug'."
- (setq args (-flatten args))
- (magit--with-refresh-cache (cons default-directory args)
- (with-temp-buffer
- (apply #'magit-process-file magit-git-executable nil (list t nil) nil
- (magit-process-git-arguments args))
- (unless (bobp)
- (goto-char (point-min))
- (buffer-substring-no-properties (point) (line-end-position))))))
-
-(defun magit-git-output (&rest args)
- "Execute Git with ARGS, returning its output."
- (setq args (-flatten args))
- (magit--with-refresh-cache (cons default-directory args)
- (with-temp-buffer
- (apply #'magit-process-file magit-git-executable nil (list t nil) nil
- (magit-process-git-arguments args))
- (buffer-substring-no-properties (point-min) (point-max)))))
-
-(define-error 'magit-invalid-git-boolean "Not a Git boolean")
-
-(defun magit-git-true (&rest args)
- "Execute Git with ARGS, returning t if it prints \"true\".
-If it prints \"false\", then return nil. For any other output
-signal `magit-invalid-git-boolean'."
- (pcase (magit-git-output args)
- ((or "true" "true\n") t)
- ((or "false" "false\n") nil)
- (output (signal 'magit-invalid-git-boolean output))))
-
-(defun magit-git-false (&rest args)
- "Execute Git with ARGS, returning t if it prints \"false\".
-If it prints \"true\", then return nil. For any other output
-signal `magit-invalid-git-boolean'."
- (pcase (magit-git-output args)
- ((or "true" "true\n") nil)
- ((or "false" "false\n") t)
- (output (signal 'magit-invalid-git-boolean output))))
-
-(defun magit-git-insert (&rest args)
- "Execute Git with ARGS, inserting its output at point.
-If Git exits with a non-zero exit status, then show a message and
-add a section in the respective process buffer."
- (setq args (magit-process-git-arguments args))
- (if magit-git-debug
- (let (log)
- (unwind-protect
- (progn
- (setq log (make-temp-file "magit-stderr"))
- (delete-file log)
- (let ((exit (apply #'magit-process-file magit-git-executable
- nil (list t log) nil args)))
- (when (> exit 0)
- (let ((msg "Git failed"))
- (when (file-exists-p log)
- (setq msg (with-temp-buffer
- (insert-file-contents log)
- (goto-char (point-max))
- (cond
- ((functionp magit-git-debug)
- (funcall magit-git-debug (buffer-string)))
- ((run-hook-wrapped
- 'magit-process-error-message-regexps
- (lambda (re) (re-search-backward re nil t)))
- (match-string-no-properties 1)))))
- (let ((magit-git-debug nil))
- (with-current-buffer (magit-process-buffer t)
- (magit-process-insert-section default-directory
- magit-git-executable
- args exit log))))
- (message "%s" msg)))
- exit))
- (ignore-errors (delete-file log))))
- (apply #'magit-process-file magit-git-executable
- nil (list t nil) nil args)))
-
-(defun magit-git-string (&rest args)
- "Execute Git with ARGS, returning the first line of its output.
-If there is no output, return nil. If the output begins with a
-newline, return an empty string."
- (setq args (-flatten args))
- (magit--with-refresh-cache (cons default-directory args)
- (with-temp-buffer
- (apply #'magit-git-insert args)
- (unless (bobp)
- (goto-char (point-min))
- (buffer-substring-no-properties (point) (line-end-position))))))
-
-(defun magit-git-lines (&rest args)
- "Execute Git with ARGS, returning its output as a list of lines.
-Empty lines anywhere in the output are omitted.
-
-If Git exits with a non-zero exit status, then report show a
-message and add a section in the respective process buffer."
- (with-temp-buffer
- (apply #'magit-git-insert args)
- (split-string (buffer-string) "\n" t)))
-
-(defun magit-git-items (&rest args)
- "Execute Git with ARGS, returning its null-separated output as a list.
-Empty items anywhere in the output are omitted.
-
-If Git exits with a non-zero exit status, then report show a
-message and add a section in the respective process buffer."
- (with-temp-buffer
- (apply #'magit-git-insert args)
- (split-string (buffer-string) "\0" t)))
-
-(defun magit-git-wash (washer &rest args)
- "Execute Git with ARGS, inserting washed output at point.
-Actually first insert the raw output at point. If there is no
-output, call `magit-cancel-section'. Otherwise temporarily narrow
-the buffer to the inserted text, move to its beginning, and then
-call function WASHER with ARGS as its sole argument."
- (declare (indent 1))
- (let ((beg (point)))
- (setq args (-flatten args))
- (magit-git-insert args)
- (if (= (point) beg)
- (magit-cancel-section)
- (unless (bolp)
- (insert "\n"))
- (save-restriction
- (narrow-to-region beg (point))
- (goto-char beg)
- (funcall washer args))
- (when (or (= (point) beg)
- (= (point) (1+ beg)))
- (magit-cancel-section))
- (magit-maybe-make-margin-overlay))))
-
-(defun magit-git-version (&optional raw)
- (--when-let (let (magit-git-global-arguments)
- (ignore-errors (substring (magit-git-string "version") 12)))
- (if raw it (and (string-match "^\\([0-9]+\\.[0-9]+\\.[0-9]+\\)" it)
- (match-string 1 it)))))
-
-;;; Variables
-
-(defun magit-config-get-from-cached-list (key)
- (gethash
- ;; `git config --list' downcases first and last components of the key.
- (--> key
- (replace-regexp-in-string "\\`[^.]+" #'downcase it t t)
- (replace-regexp-in-string "[^.]+\\'" #'downcase it t t))
- (magit--with-refresh-cache (cons (magit-toplevel) 'config)
- (let ((configs (make-hash-table :test 'equal)))
- (dolist (conf (magit-git-items "config" "--list" "-z"))
- (let* ((nl-pos (cl-position ?\n conf))
- (key (substring conf 0 nl-pos))
- (val (if nl-pos (substring conf (1+ nl-pos)) "")))
- (puthash key (nconc (gethash key configs) (list val)) configs)))
- configs))))
-
-(defun magit-get (&rest keys)
- "Return the value of the Git variable specified by KEYS."
- (car (last (apply 'magit-get-all keys))))
-
-(defun magit-get-all (&rest keys)
- "Return all values of the Git variable specified by KEYS."
- (let ((magit-git-debug nil)
- (arg (and (or (null (car keys))
- (string-prefix-p "--" (car keys)))
- (pop keys)))
- (key (mapconcat 'identity keys ".")))
- (if (and magit--refresh-cache (not arg))
- (magit-config-get-from-cached-list key)
- (magit-git-items "config" arg "-z" "--get-all" key))))
-
-(defun magit-get-boolean (&rest keys)
- "Return the boolean value of the Git variable specified by KEYS."
- (let ((key (mapconcat 'identity keys ".")))
- (if magit--refresh-cache
- (equal "true" (car (last (magit-config-get-from-cached-list key))))
- (equal (magit-git-str "config" "--bool" key) "true"))))
-
-(defun magit-set (value &rest keys)
- "Set the value of the Git variable specified by KEYS to VALUE."
- (let ((arg (and (or (null (car keys))
- (string-prefix-p "--" (car keys)))
- (pop keys)))
- (key (mapconcat 'identity keys ".")))
- (if value
- (magit-git-success "config" arg key value)
- (magit-git-success "config" arg "--unset" key))
- value))
-
-(gv-define-setter magit-get (val &rest keys)
- `(magit-set ,val ,@keys))
-
-(defun magit-set-all (values &rest keys)
- "Set all values of the Git variable specified by KEYS to VALUES."
- (let ((arg (and (or (null (car keys))
- (string-prefix-p "--" (car keys)))
- (pop keys)))
- (var (mapconcat 'identity keys ".")))
- (when (magit-get var)
- (magit-call-git "config" arg "--unset-all" var))
- (dolist (v values)
- (magit-call-git "config" arg "--add" var v))))
-
-;;; Files
-
-(defun magit--safe-default-directory (&optional file)
- (catch 'unsafe-default-dir
- (let ((dir (file-name-as-directory
- (expand-file-name (or file default-directory))))
- (previous nil))
- (while (not (magit-file-accessible-directory-p dir))
- (setq dir (file-name-directory (directory-file-name dir)))
- (when (equal dir previous)
- (throw 'unsafe-default-dir nil))
- (setq previous dir))
- dir)))
-
-(defmacro magit--with-safe-default-directory (file &rest body)
- (declare (indent 1) (debug (form body)))
- `(when-let ((default-directory (magit--safe-default-directory ,file)))
- ,@body))
-
-(defun magit-gitdir (&optional directory)
- "Return the absolute and resolved path of the .git directory.
-
-If the `GIT_DIR' environment variable is define then return that.
-Otherwise return the .git directory for DIRECTORY, or if that is
-nil, then for `default-directory' instead. If the directory is
-not located inside a Git repository, then return nil."
- (let ((default-directory (or directory default-directory)))
- (magit-git-dir)))
-
-(defun magit-git-dir (&optional path)
- "Return the absolute and resolved path of the .git directory.
-
-If the `GIT_DIR' environment variable is define then return that.
-Otherwise return the .git directory for `default-directory'. If
-the directory is not located inside a Git repository, then return
-nil."
- (magit--with-refresh-cache (list default-directory 'magit-git-dir path)
- (magit--with-safe-default-directory nil
- (when-let ((dir (magit-rev-parse-safe "--git-dir")))
- (setq dir (file-name-as-directory (magit-expand-git-file-name dir)))
- (unless (file-remote-p dir)
- (setq dir (concat (file-remote-p default-directory) dir)))
- (if path (expand-file-name (convert-standard-filename path) dir) dir)))))
-
-(defvar magit--separated-gitdirs nil)
-
-(defun magit--record-separated-gitdir ()
- (let ((topdir (magit-toplevel))
- (gitdir (magit-git-dir)))
- ;; Kludge: git-annex converts submodule gitdirs to symlinks. See #3599.
- (when (file-symlink-p (directory-file-name gitdir))
- (setq gitdir (file-truename gitdir)))
- ;; We want to delete the entry for `topdir' here, rather than within
- ;; (unless ...), in case a `--separate-git-dir' repository was switched to
- ;; the standard structure (i.e., "topdir/.git/").
- (setq magit--separated-gitdirs (cl-delete topdir
- magit--separated-gitdirs
- :key #'car :test #'equal))
- (unless (equal (file-name-as-directory (expand-file-name ".git" topdir))
- gitdir)
- (push (cons topdir gitdir) magit--separated-gitdirs))))
-
-(defun magit-toplevel (&optional directory)
- "Return the absolute path to the toplevel of the current repository.
-
-From within the working tree or control directory of a repository
-return the absolute path to the toplevel directory of the working
-tree. As a special case, from within a bare repository return
-the control directory instead. When called outside a repository
-then return nil.
-
-When optional DIRECTORY is non-nil then return the toplevel for
-that directory instead of the one for `default-directory'.
-
-Try to respect the option `find-file-visit-truename', i.e. when
-the value of that option is nil, then avoid needlessly returning
-the truename. When a symlink to a sub-directory of the working
-tree is involved, or when called from within a sub-directory of
-the gitdir or from the toplevel of a gitdir, which itself is not
-located within the working tree, then it is not possible to avoid
-returning the truename."
- (magit--with-refresh-cache
- (cons (or directory default-directory) 'magit-toplevel)
- (magit--with-safe-default-directory directory
- (if-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
- (let (updir)
- (setq topdir (magit-expand-git-file-name topdir))
- (if (and
- ;; Always honor these settings.
- (not find-file-visit-truename)
- (not (getenv "GIT_WORK_TREE"))
- ;; `--show-cdup' is the relative path to the toplevel
- ;; from `(file-truename default-directory)'. Here we
- ;; pretend it is relative to `default-directory', and
- ;; go to that directory. Then we check whether
- ;; `--show-toplevel' still returns the same value and
- ;; whether `--show-cdup' now is the empty string. If
- ;; both is the case, then we are at the toplevel of
- ;; the same working tree, but also avoided needlessly
- ;; following any symlinks.
- (progn
- (setq updir (file-name-as-directory
- (magit-rev-parse-safe "--show-cdup")))
- (setq updir (if (file-name-absolute-p updir)
- (concat (file-remote-p default-directory) updir)
- (expand-file-name updir)))
- (let ((default-directory updir))
- (and (string-equal (magit-rev-parse-safe "--show-cdup") "")
- (--when-let (magit-rev-parse-safe "--show-toplevel")
- (string-equal (magit-expand-git-file-name it)
- topdir))))))
- updir
- (concat (file-remote-p default-directory)
- (file-name-as-directory topdir))))
- (when-let ((gitdir (magit-rev-parse-safe "--git-dir")))
- (setq gitdir (file-name-as-directory
- (if (file-name-absolute-p gitdir)
- ;; We might have followed a symlink.
- (concat (file-remote-p default-directory)
- (magit-expand-git-file-name gitdir))
- (expand-file-name gitdir))))
- (if (magit-bare-repo-p)
- gitdir
- (let* ((link (expand-file-name "gitdir" gitdir))
- (wtree (and (file-exists-p link)
- (magit-file-line link))))
- (cond
- ((and wtree
- ;; Ignore .git/gitdir files that result from a
- ;; Git bug. See #2364.
- (not (equal wtree ".git")))
- ;; Return the linked working tree.
- (file-name-directory wtree))
- ;; The working directory may not be the parent directory of
- ;; .git if it was set up with `git init --separate-git-dir'.
- ;; See #2955.
- ((car (rassoc gitdir magit--separated-gitdirs)))
- (t
- ;; Step outside the control directory to enter the working tree.
- (file-name-directory (directory-file-name gitdir)))))))))))
-
-(defmacro magit-with-toplevel (&rest body)
- (declare (indent defun) (debug (body)))
- (let ((toplevel (cl-gensym "toplevel")))
- `(let ((,toplevel (magit-toplevel)))
- (if ,toplevel
- (let ((default-directory ,toplevel))
- ,@body)
- (magit--not-inside-repository-error)))))
-
-(define-error 'magit-outside-git-repo "Not inside Git repository")
-(define-error 'magit-git-executable-not-found
- "Git executable cannot be found (see https://magit.vc/goto/e6a78ed2)")
-
-(defun magit--not-inside-repository-error ()
- (if (executable-find magit-git-executable)
- (signal 'magit-outside-git-repo default-directory)
- (signal 'magit-git-executable-not-found magit-git-executable)))
-
-(defun magit-inside-gitdir-p (&optioal noerror)
- "Return t if `default-directory' is below the repository directory.
-If it is below the working directory, then return nil.
-If it isn't below either, then signal an error unless NOERROR
-is non-nil, in which case return nil."
- (and (magit--assert-default-directory noerror)
- ;; Below a repository directory that is not located below the
- ;; working directory "git rev-parse --is-inside-git-dir" prints
- ;; "false", which is wrong.
- (let ((gitdir (magit-git-dir)))
- (cond (gitdir (file-in-directory-p default-directory gitdir))
- (noerror nil)
- (t (signal 'magit-outside-git-repo default-directory))))))
-
-(defun magit-inside-worktree-p (&optional noerror)
- "Return t if `default-directory' is below the working directory.
-If it is below the repository directory, then return nil.
-If it isn't below either, then signal an error unless NOERROR
-is non-nil, in which case return nil."
- (and (magit--assert-default-directory noerror)
- (condition-case nil
- (magit-rev-parse-true "--is-inside-work-tree")
- (magit-invalid-git-boolean
- (and (not noerror)
- (signal 'magit-outside-git-repo default-directory))))))
-
-(defun magit-bare-repo-p (&optional noerror)
- "Return t if the current repository is bare.
-If it is non-bare, then return nil. If `default-directory'
-isn't below a Git repository, then signal an error unless
-NOERROR is non-nil, in which case return nil."
- (and (magit--assert-default-directory noerror)
- (condition-case nil
- (magit-rev-parse-true "--is-bare-repository")
- (magit-invalid-git-boolean
- (and (not noerror)
- (signal 'magit-outside-git-repo default-directory))))))
-
-(defun magit--assert-default-directory (&optional noerror)
- (or (file-directory-p default-directory)
- (and (not noerror)
- (let ((exists (file-exists-p default-directory)))
- (signal (if exists 'file-error 'file-missing)
- (list "Running git in directory"
- (if exists
- "Not a directory"
- "No such file or directory")
- default-directory))))))
-
-(defun magit-git-repo-p (directory &optional non-bare)
- "Return t if DIRECTORY is a Git repository.
-When optional NON-BARE is non-nil also return nil if DIRECTORY is
-a bare repository."
- (and (file-directory-p directory) ; Avoid archives, see #3397.
- (or (file-regular-p (expand-file-name ".git" directory))
- (file-directory-p (expand-file-name ".git" directory))
- (and (not non-bare)
- (file-regular-p (expand-file-name "HEAD" directory))
- (file-directory-p (expand-file-name "refs" directory))
- (file-directory-p (expand-file-name "objects" directory))))))
-
-(defvar-local magit-buffer-revision nil)
-(defvar-local magit-buffer-refname nil)
-(defvar-local magit-buffer-file-name nil)
-(put 'magit-buffer-revision 'permanent-local t)
-(put 'magit-buffer-refname 'permanent-local t)
-(put 'magit-buffer-file-name 'permanent-local t)
-
-(defun magit-file-relative-name (&optional file tracked)
- "Return the path of FILE relative to the repository root.
-
-If optional FILE is nil or omitted, return the relative path of
-the file being visited in the current buffer, if any, else nil.
-If the file is not inside a Git repository, then return nil.
-
-If TRACKED is non-nil, return the path only if it matches a
-tracked file."
- (unless file
- (with-current-buffer (or (buffer-base-buffer)
- (current-buffer))
- (setq file (or magit-buffer-file-name buffer-file-name
- (and (derived-mode-p 'dired-mode) default-directory)))))
- (when (and file (or (not tracked)
- (magit-file-tracked-p (file-relative-name file))))
- (--when-let (magit-toplevel
- (magit--safe-default-directory
- (directory-file-name (file-name-directory file))))
- (file-relative-name file it))))
-
-(defun magit-file-tracked-p (file)
- (magit-git-success "ls-files" "--error-unmatch" file))
-
-(defun magit-list-files (&rest args)
- (apply #'magit-git-items "ls-files" "-z" "--full-name" args))
-
-(defun magit-tracked-files ()
- (magit-list-files "--cached"))
-
-(defun magit-untracked-files (&optional all files)
- (magit-list-files "--other" (unless all "--exclude-standard") "--" files))
-
-(defun magit-unstaged-files (&optional nomodules files)
- (magit-git-items "diff-files" "-z" "--name-only"
- (and nomodules "--ignore-submodules")
- "--" files))
-
-(defun magit-staged-files (&optional nomodules files)
- (magit-git-items "diff-index" "-z" "--name-only" "--cached"
- (and nomodules "--ignore-submodules")
- (magit-headish) "--" files))
-
-(defun magit-binary-files (&rest args)
- (--mapcat (and (string-match "^-\t-\t\\(.+\\)" it)
- (list (match-string 1 it)))
- (apply #'magit-git-items
- "diff" "-z" "--numstat" "--ignore-submodules"
- args)))
-
-(defun magit-unmerged-files ()
- (magit-git-items "diff-files" "-z" "--name-only" "--diff-filter=U"))
-
-(defun magit-ignored-files ()
- (magit-git-items "ls-files" "-z" "--others" "--ignored"
- "--exclude-standard" "--directory"))
-
-(defun magit-revision-files (rev)
- (magit-with-toplevel
- (magit-git-items "ls-tree" "-z" "-r" "--name-only" rev)))
-
-(defun magit-changed-files (rev-or-range &optional other-rev)
- "Return list of files the have changed between two revisions.
-If OTHER-REV is non-nil, REV-OR-RANGE should be a revision, not a
-range. Otherwise, it can be any revision or range accepted by
-\"git diff\" (i.e., <rev>, <revA>..<revB>, or <revA>...<revB>)."
- (magit-with-toplevel
- (magit-git-items "diff" "-z" "--name-only" rev-or-range other-rev)))
-
-(defun magit-renamed-files (revA revB)
- (--map (cons (nth 1 it) (nth 2 it))
- (-partition 3 (magit-git-items
- "diff-tree" "-r" "--diff-filter=R" "-z" "-M"
- revA revB))))
-
-(defun magit-file-status (&rest args)
- (with-temp-buffer
- (save-excursion (magit-git-insert "status" "-z" args))
- (let ((pos (point)) status)
- (while (> (skip-chars-forward "[:print:]") 0)
- (let ((x (char-after pos))
- (y (char-after (1+ pos)))
- (file (buffer-substring (+ pos 3) (point))))
- (forward-char)
- (if (memq x '(?R ?C))
- (progn
- (setq pos (point))
- (skip-chars-forward "[:print:]")
- (push (list file (buffer-substring pos (point)) x y) status)
- (forward-char))
- (push (list file nil x y) status)))
- (setq pos (point)))
- status)))
-
-(defcustom magit-cygwin-mount-points
- (when (eq system-type 'windows-nt)
- (cl-sort (--map (if (string-match "^\\(.*\\) on \\(.*\\) type" it)
- (cons (file-name-as-directory (match-string 2 it))
- (file-name-as-directory (match-string 1 it)))
- (lwarn '(magit) :error
- "Failed to parse Cygwin mount: %S" it))
- ;; If --exec-path is not a native Windows path,
- ;; then we probably have a cygwin git.
- (let ((process-environment
- (append magit-git-environment process-environment)))
- (and (not (string-match-p
- "\\`[a-zA-Z]:"
- (car (process-lines
- magit-git-executable "--exec-path"))))
- (ignore-errors (process-lines "mount")))))
- #'> :key (pcase-lambda (`(,cyg . ,_win)) (length cyg))))
- "Alist of (CYGWIN . WIN32) directory names.
-Sorted from longest to shortest CYGWIN name."
- :package-version '(magit . "2.3.0")
- :group 'magit-process
- :type '(alist :key-type string :value-type directory))
-
-(defun magit-expand-git-file-name (filename)
- (unless (file-name-absolute-p filename)
- (setq filename (expand-file-name filename)))
- (-if-let ((cyg . win)
- (cl-assoc filename magit-cygwin-mount-points
- :test (lambda (f cyg) (string-prefix-p cyg f))))
- (concat win (substring filename (length cyg)))
- filename))
-
-(defun magit-convert-filename-for-git (filename)
- "Convert FILENAME so that it can be passed to git.
-1. If it's a remote filename, then remove the remote part.
-2. Deal with an `windows-nt' Emacs vs. Cygwin Git incompatibility."
- (if (file-name-absolute-p filename)
- (-if-let ((cyg . win)
- (cl-rassoc filename magit-cygwin-mount-points
- :test (lambda (f win) (string-prefix-p win f))))
- (concat cyg (substring filename (length win)))
- (or (file-remote-p filename 'localname)
- filename))
- filename))
-
-(defun magit-decode-git-path (path)
- (if (eq (aref path 0) ?\")
- (decode-coding-string (read path)
- (or magit-git-output-coding-system
- (car default-process-coding-system))
- t)
- path))
-
-(defun magit-file-at-point ()
- (magit-section-case
- (file (oref it value))
- (hunk (magit-section-parent-value it))))
-
-(defun magit-current-file ()
- (or (magit-file-relative-name)
- (magit-file-at-point)
- (and (derived-mode-p 'magit-log-mode)
- (car (nth 2 magit-refresh-args)))))
-
-;;; Predicates
-
-(defun magit-no-commit-p ()
- "Return t if there is no commit in the current Git repository."
- (not (magit-rev-verify "HEAD")))
-
-(defun magit-merge-commit-p (commit)
- "Return t if COMMIT is a merge commit."
- (> (length (magit-commit-parents commit)) 1))
-
-(defun magit-anything-staged-p (&optional ignore-submodules &rest files)
- "Return t if there are any staged changes.
-If optional FILES is non-nil, then only changes to those files
-are considered."
- (magit-git-failure "diff" "--quiet" "--cached"
- (and ignore-submodules "--ignore-submodules")
- "--" files))
-
-(defun magit-anything-unstaged-p (&optional ignore-submodules &rest files)
- "Return t if there are any unstaged changes.
-If optional FILES is non-nil, then only changes to those files
-are considered."
- (magit-git-failure "diff" "--quiet"
- (and ignore-submodules "--ignore-submodules")
- "--" files))
-
-(defun magit-anything-modified-p (&optional ignore-submodules &rest files)
- "Return t if there are any staged or unstaged changes.
-If optional FILES is non-nil, then only changes to those files
-are considered."
- (or (apply 'magit-anything-staged-p ignore-submodules files)
- (apply 'magit-anything-unstaged-p ignore-submodules files)))
-
-(defun magit-anything-unmerged-p (&rest files)
- "Return t if there are any merge conflicts.
-If optional FILES is non-nil, then only conflicts in those files
-are considered."
- (and (magit-git-string "ls-files" "--unmerged" files) t))
-
-(defun magit-module-worktree-p (module)
- (magit-with-toplevel
- (file-exists-p (expand-file-name (expand-file-name ".git" module)))))
-
-(defun magit-module-no-worktree-p (module)
- (not (magit-module-worktree-p module)))
-
-(defun magit-ignore-submodules-p ()
- (cl-find-if (lambda (arg)
- (string-prefix-p "--ignore-submodules" arg))
- magit-diff-section-arguments))
-
-;;; Revisions and References
-
-(defun magit-rev-parse (&rest args)
- "Execute `git rev-parse ARGS', returning first line of output.
-If there is no output, return nil."
- (apply #'magit-git-string "rev-parse" args))
-
-(defun magit-rev-parse-safe (&rest args)
- "Execute `git rev-parse ARGS', returning first line of output.
-If there is no output, return nil. Like `magit-rev-parse' but
-ignore `magit-git-debug'."
- (apply #'magit-git-str "rev-parse" args))
-
-(defun magit-rev-parse-true (&rest args)
- "Execute `git rev-parse ARGS', returning t if it prints \"true\".
-If it prints \"false\", then return nil. For any other output
-signal an error."
- (magit-git-true "rev-parse" args))
-
-(defun magit-rev-parse-false (&rest args)
- "Execute `git rev-parse ARGS', returning t if it prints \"false\".
-If it prints \"true\", then return nil. For any other output
-signal an error."
- (magit-git-false "rev-parse" args))
-
-(defun magit-rev-parse-p (&rest args)
- "Execute `git rev-parse ARGS', returning t if it prints \"true\".
-Return t if the first (and usually only) output line is the
-string \"true\", otherwise return nil."
- (equal (magit-git-str "rev-parse" args) "true"))
-
-(defun magit-rev-verify (rev)
- (magit-rev-parse-safe "--verify" rev))
-
-(defun magit-rev-verify-commit (rev)
- "Return full hash for REV if it names an existing commit."
- (magit-rev-verify (concat rev "^{commit}")))
-
-(defun magit-rev-equal (a b)
- (magit-git-success "diff" "--quiet" a b))
-
-(defun magit-rev-eq (a b)
- (let ((a (magit-rev-verify a))
- (b (magit-rev-verify b)))
- (and a b (equal a b))))
-
-(defun magit-rev-ancestor-p (a b)
- "Return non-nil if commit A is an ancestor of commit B."
- (magit-git-success "merge-base" "--is-ancestor" a b))
-
-(defun magit-rev-head-p (rev)
- (or (equal rev "HEAD")
- (and rev
- (not (string-match-p "\\.\\." rev))
- (equal (magit-rev-parse rev)
- (magit-rev-parse "HEAD")))))
-
-(defun magit-rev-author-p (rev)
- "Return t if the user is the author of REV.
-More precisely return t if `user.name' is equal to the author
-name of REV and/or `user.email' is equal to the author email
-of REV."
- (or (equal (magit-get "user.name") (magit-rev-format "%an" rev))
- (equal (magit-get "user.email") (magit-rev-format "%ae" rev))))
-
-(defun magit-rev-name (rev &optional pattern)
- "Return a symbolic name for REV.
-PATTERN is passed to the `--refs' flag of `git-name-rev' and can
-be used to limit the result to a matching ref. When structured
-as \"refs/<subdir>/*\", PATTERN is taken as a namespace. In this
-case, the name returned by `git-name-rev' is discarded if it
-corresponds to a ref outside of the namespace."
- (--when-let (magit-git-string "name-rev" "--name-only" "--no-undefined"
- (and pattern (concat "--refs=" pattern))
- rev)
- ;; We can't use name-rev's --exclude to filter out "*/PATTERN"
- ;; because --exclude wasn't added until Git v2.13.0.
- (if (and pattern
- (string-match-p "\\`refs/[^/]+/\\*\\'" pattern))
- (let ((namespace (substring pattern 0 -1)))
- (unless (and (string-match-p namespace it)
- (not (magit-rev-verify (concat namespace it))))
- it))
- it)))
-
-(defun magit-rev-branch (rev)
- (--when-let (magit-rev-name rev "refs/heads/*")
- (unless (string-match-p "[~^]" it) it)))
-
-(defun magit-get-shortname (rev)
- (let* ((fn (apply-partially 'magit-rev-name rev))
- (name (or (funcall fn "refs/tags/*")
- (funcall fn "refs/heads/*")
- (funcall fn "refs/remotes/*"))))
- (cond ((not name)
- (magit-rev-parse "--short" rev))
- ((string-match "^\\(?:tags\\|remotes\\)/\\(.+\\)" name)
- (if (magit-ref-ambiguous-p (match-string 1 name))
- name
- (match-string 1 name)))
- (t (magit-ref-maybe-qualify name)))))
-
-(defun magit-name-branch (rev &optional lax)
- (or (magit-name-local-branch rev)
- (magit-name-remote-branch rev)
- (and lax (or (magit-name-local-branch rev t)
- (magit-name-remote-branch rev t)))))
-
-(defun magit-name-local-branch (rev &optional lax)
- (--when-let (magit-rev-name rev "refs/heads/*")
- (and (or lax (not (string-match-p "[~^]" it))) it)))
-
-(defun magit-name-remote-branch (rev &optional lax)
- (--when-let (magit-rev-name rev "refs/remotes/*")
- (and (or lax (not (string-match-p "[~^]" it)))
- (substring it 8))))
-
-(defun magit-name-tag (rev &optional lax)
- (--when-let (magit-rev-name rev "refs/tags/*")
- (and (or lax (not (string-match-p "[~^]" it)))
- (substring it 5))))
-
-(defun magit-ref-fullname (name)
- "Return fully qualified refname for NAME.
-If NAME is ambiguous, return nil. NAME may include suffixes such
-as \"^1\" and \"~3\". "
- (save-match-data
- (if (string-match "\\`\\([^^~]+\\)\\(.*\\)" name)
- (--when-let (magit-rev-parse "--symbolic-full-name"
- (match-string 1 name))
- (concat it (match-string 2 name)))
- (error "`name' has an unrecognized format"))))
-
-(defun magit-ref-ambiguous-p (name)
- (not (magit-ref-fullname name)))
-
-(cl-defun magit-ref-maybe-qualify (name &optional (prefix "heads/"))
- "If NAME is ambiguous, prepend PREFIX to it."
- (concat (and (magit-ref-ambiguous-p name)
- prefix)
- name))
-
-(defun magit-ref-exists-p (ref)
- (magit-git-success "show-ref" "--verify" ref))
-
-(defun magit-ref-equal (a b)
- "Return t if the refs A and B are `equal'.
-A symbolic-ref pointing to some ref, is `equal' to that ref,
-as are two symbolic-refs pointing to the same ref."
- (equal (magit-ref-fullname a)
- (magit-ref-fullname b)))
-
-(defun magit-ref-eq (a b)
- "Return t if the refs A and B are `eq'.
-A symbolic-ref is `eq' to itself, but not to the ref it points
-to, or to some other symbolic-ref that points to the same ref."
- (let ((symbolic-a (magit-symbolic-ref-p a))
- (symbolic-b (magit-symbolic-ref-p b)))
- (or (and symbolic-a
- symbolic-b
- (equal a b))
- (and (not symbolic-a)
- (not symbolic-b)
- (magit-ref-equal a b)))))
-
-(defun magit-headish ()
- "Return \"HEAD\" or if that doesn't exist the hash of the empty tree."
- (if (magit-no-commit-p)
- (magit-git-string "mktree")
- "HEAD"))
-
-(defun magit-branch-at-point ()
- (magit-section-case
- (branch (oref it value))
- (commit (or (magit--painted-branch-at-point)
- (magit-name-branch (oref it value))))))
-
-(defun magit--painted-branch-at-point (&optional type)
- (or (and (not (eq type 'remote))
- (memq (get-text-property (point) 'face)
- (list 'magit-branch-local
- 'magit-branch-current))
- (cdr (magit-split-branch-name
- (thing-at-point 'git-revision t))))
- (and (not (eq type 'local))
- (memq (get-text-property (point) 'face)
- (list 'magit-branch-remote
- 'magit-branch-remote-head))
- (thing-at-point 'git-revision t))))
-
-(defun magit-local-branch-at-point ()
- (magit-section-case
- (branch (let ((branch (magit-ref-maybe-qualify (oref it value))))
- (when (member branch (magit-list-local-branch-names))
- branch)))
- (commit (or (magit--painted-branch-at-point 'local)
- (magit-name-local-branch (oref it value))))))
-
-(defun magit-remote-branch-at-point ()
- (magit-section-case
- (branch (let ((branch (oref it value)))
- (when (member branch (magit-list-remote-branch-names))
- branch)))
- (commit (or (magit--painted-branch-at-point 'remote)
- (magit-name-remote-branch (oref it value))))))
-
-(defun magit-commit-at-point ()
- (or (magit-section-value-if 'commit)
- (and (derived-mode-p 'magit-revision-mode)
- (car magit-refresh-args))))
-
-(defun magit-branch-or-commit-at-point ()
- (or magit-buffer-refname
- (magit-section-case
- (branch (magit-ref-maybe-qualify (oref it value)))
- (commit (or (magit--painted-branch-at-point)
- (let ((rev (oref it value)))
- (or (magit-name-branch rev)
- (magit-get-shortname rev)
- rev))))
- (tag (magit-ref-maybe-qualify (oref it value) "tags/")))
- (thing-at-point 'git-revision t)
- (and (derived-mode-p 'magit-revision-mode
- 'magit-merge-preview-mode)
- (car magit-refresh-args))))
-
-(defun magit-tag-at-point ()
- (magit-section-case
- (tag (oref it value))
- (commit (magit-name-tag (oref it value)))))
-
-(defun magit-stash-at-point ()
- (magit-section-value-if 'stash))
-
-(defun magit-remote-at-point ()
- (magit-section-case
- (remote (oref it value))
- (branch (magit-section-parent-value it))))
-
-(defun magit-module-at-point (&optional predicate)
- (when (magit-section-match 'magit-module-section)
- (let ((module (oref (magit-current-section) value)))
- (and (or (not predicate)
- (funcall predicate module))
- module))))
-
-(defun magit-get-current-branch ()
- "Return the refname of the currently checked out branch.
-Return nil if no branch is currently checked out."
- (magit-git-string "symbolic-ref" "--short" "HEAD"))
-
-(defvar magit-get-previous-branch-timeout 0.5
- "Maximum time to spend in `magit-get-previous-branch'.
-Given as a number of seconds.")
-
-(defun magit-get-previous-branch ()
- "Return the refname of the previously checked out branch.
-Return nil if no branch can be found in the `HEAD' reflog
-which is different from the current branch and still exists.
-The amount of time spent searching is limited by
-`magit-get-previous-branch-timeout'."
- (let ((t0 (float-time))
- (current (magit-get-current-branch))
- (i 1) prev)
- (while (if (> (- (float-time) t0) magit-get-previous-branch-timeout)
- (setq prev nil) ;; Timed out.
- (and (setq prev (magit-rev-verify (format "@{-%i}" i)))
- (or (not (setq prev (magit-rev-branch prev)))
- (equal prev current))))
- (cl-incf i))
- prev))
-
-(defun magit-get-upstream-ref (&optional branch)
- (and (or branch (setq branch (magit-get-current-branch)))
- (let ((remote (magit-get "branch" branch "remote"))
- (merge (magit-get "branch" branch "merge")))
- (when (and remote merge)
- (cond ((string-equal remote ".") merge)
- ((string-prefix-p "refs/heads/" merge)
- (concat "refs/remotes/" remote "/" (substring merge 11))))))))
-
-(defun magit-set-upstream-branch (branch upstream)
- (if upstream
- (pcase-let ((`(,remote . ,merge) (magit-split-branch-name upstream)))
- (setf (magit-get (format "branch.%s.remote" branch)) remote)
- (setf (magit-get (format "branch.%s.merge" branch))
- (concat "refs/heads/" merge)))
- (magit-call-git "branch" "--unset-upstream" branch)))
-
-(defun magit-get-upstream-branch (&optional branch verify)
- (and (or branch (setq branch (magit-get-current-branch)))
- (when-let ((remote (magit-get "branch" branch "remote"))
- (merge (magit-get "branch" branch "merge")))
- (and (string-prefix-p "refs/heads/" merge)
- (let* ((upstream (substring merge 11))
- (upstream
- (cond ((string-equal remote ".")
- (propertize upstream 'face 'magit-branch-local))
- ((string-match-p "[@:]" remote)
- (propertize (concat remote " " upstream)
- 'face 'magit-branch-remote))
- (t
- (propertize (concat remote "/" upstream)
- 'face 'magit-branch-remote)))))
- (and (or (not verify)
- (magit-rev-verify upstream))
- upstream))))))
-
-(defun magit-get-indirect-upstream-branch (branch &optional force)
- (let ((remote (magit-get "branch" branch "remote")))
- (and remote (not (equal remote "."))
- ;; The user has opted in...
- (or force
- (--some (if (magit-git-success "check-ref-format" "--branch" it)
- (equal it branch)
- (string-match-p it branch))
- magit-branch-prefer-remote-upstream))
- ;; and local BRANCH tracks a remote branch...
- (let ((upstream (magit-get-upstream-branch branch)))
- ;; whose upstream...
- (and upstream
- ;; has the same name as BRANCH and...
- (equal (substring upstream (1+ (length remote))) branch)
- ;; and can be fast-forwarded to BRANCH.
- (magit-rev-ancestor-p upstream branch)
- upstream)))))
-
-(defun magit-get-upstream-remote (&optional branch non-local)
- (unless branch
- (setq branch (magit-get-current-branch)))
- (and branch
- (let ((remote (magit-get "branch" branch "remote")))
- (and (not (and non-local (equal remote ".")))
- remote))))
-
-(defun magit-get-push-remote (&optional branch)
- (or (and (or branch (setq branch (magit-get-current-branch)))
- (magit-get "branch" branch "pushRemote"))
- (magit-get "remote.pushDefault")))
-
-(defun magit-get-push-branch (&optional branch verify)
- (and (or branch (setq branch (magit-get-current-branch)))
- (when-let ((remote (magit-get-push-remote branch))
- (push-branch (concat remote "/" branch)))
- (and (or (not verify)
- (magit-rev-verify push-branch))
- (propertize push-branch 'face 'magit-branch-remote)))))
-
-(defun magit-get-@{push}-branch (&optional branch)
- (let ((ref (magit-rev-parse "--symbolic-full-name"
- (concat branch "@{push}"))))
- (when (and ref (string-prefix-p "refs/remotes/" ref))
- (substring ref 13))))
-
-(defun magit-get-remote (&optional branch)
- (when (or branch (setq branch (magit-get-current-branch)))
- (let ((remote (magit-get "branch" branch "remote")))
- (unless (equal remote ".")
- remote))))
-
-(defun magit-get-some-remote (&optional branch)
- (or (magit-get-remote branch)
- (and (magit-branch-p "master")
- (magit-get-remote "master"))
- (let ((remotes (magit-list-remotes)))
- (or (car (member "origin" remotes))
- (car remotes)))))
-
-(defun magit-branch-merged-p (branch &optional target)
- "Return non-nil if BRANCH is merged into its upstream and TARGET.
-
-TARGET defaults to the current branch. If `HEAD' is detached and
-TARGET is nil, then always return nil. As a special case, if
-TARGET is t, then return non-nil if BRANCH is merged into any one
-of the other local branches.
-
-If, and only if, BRANCH has an upstream, then only return non-nil
-if BRANCH is merged into both TARGET (as described above) as well
-as into its upstream."
- (and (--if-let (and (magit-branch-p branch)
- (magit-get-upstream-branch branch))
- (magit-git-success "merge-base" "--is-ancestor" branch it)
- t)
- (if (eq target t)
- (delete (magit-name-local-branch branch)
- (magit-list-containing-branches branch))
- (--when-let (or target (magit-get-current-branch))
- (magit-git-success "merge-base" "--is-ancestor" branch it)))))
-
-(defun magit-split-branch-name (branch)
- (cond ((member branch (magit-list-local-branch-names))
- (cons "." branch))
- ((string-match " " branch)
- (pcase-let ((`(,url ,branch) (split-string branch " ")))
- (cons url branch)))
- ((string-match "/" branch)
- (let ((remote (substring branch 0 (match-beginning 0))))
- (if (save-match-data (member remote (magit-list-remotes)))
- (cons remote (substring branch (match-end 0)))
- (error "Invalid branch name %s" branch))))))
-
-(defun magit-get-current-tag (&optional rev with-distance)
- "Return the closest tag reachable from REV.
-
-If optional REV is nil, then default to `HEAD'.
-If optional WITH-DISTANCE is non-nil then return (TAG COMMITS),
-if it is `dirty' return (TAG COMMIT DIRTY). COMMITS is the number
-of commits in `HEAD' but not in TAG and DIRTY is t if there are
-uncommitted changes, nil otherwise."
- (--when-let (magit-git-str "describe" "--long" "--tags"
- (and (eq with-distance 'dirty) "--dirty") rev)
- (save-match-data
- (string-match
- "\\(.+\\)-\\(?:0[0-9]*\\|\\([0-9]+\\)\\)-g[0-9a-z]+\\(-dirty\\)?$" it)
- (if with-distance
- `(,(match-string 1 it)
- ,(string-to-number (or (match-string 2 it) "0"))
- ,@(and (match-string 3 it) (list t)))
- (match-string 1 it)))))
-
-(defun magit-get-next-tag (&optional rev with-distance)
- "Return the closest tag from which REV is reachable.
-
-If optional REV is nil, then default to `HEAD'.
-If no such tag can be found or if the distance is 0 (in which
-case it is the current tag, not the next), return nil instead.
-If optional WITH-DISTANCE is non-nil, then return (TAG COMMITS)
-where COMMITS is the number of commits in TAG but not in REV."
- (--when-let (magit-git-str "describe" "--contains" (or rev "HEAD"))
- (save-match-data
- (when (string-match "^[^^~]+" it)
- (setq it (match-string 0 it))
- (unless (equal it (magit-get-current-tag rev))
- (if with-distance
- (list it (car (magit-rev-diff-count it rev)))
- it))))))
-
-(defvar magit-list-refs-namespaces
- '("refs/heads" "refs/remotes" "refs/tags" "refs/pull"))
-
-(defun magit-list-refs (&optional namespaces format sortby)
- "Return list of references.
-
-When NAMESPACES is non-nil, list refs from these namespaces
-rather than those from `magit-list-refs-namespaces'.
-
-FORMAT is passed to the `--format' flag of `git for-each-ref'
-and defaults to \"%(refname)\". If the format is \"%(refname)\"
-or \"%(refname:short)\", then drop the symbolic-ref \"HEAD\".
-
-SORTBY is a key or list of keys to pass to the `--sort' flag of
-`git for-each-ref'. When nil, use `magit-list-refs-sortby'"
- (unless format
- (setq format "%(refname)"))
- (let ((refs (magit-git-lines "for-each-ref"
- (concat "--format=" format)
- (--map (concat "--sort=" it)
- (pcase (or sortby magit-list-refs-sortby)
- ((and val (pred stringp)) (list val))
- ((and val (pred listp)) val)))
- (or namespaces magit-list-refs-namespaces))))
- (if (member format '("%(refname)" "%(refname:short)"))
- (--remove (string-match-p "\\(\\`\\|/\\)HEAD\\'" it) refs)
- refs)))
-
-(defun magit-list-branches ()
- (magit-list-refs (list "refs/heads" "refs/remotes")))
-
-(defun magit-list-local-branches ()
- (magit-list-refs "refs/heads"))
-
-(defun magit-list-remote-branches (&optional remote)
- (magit-list-refs (concat "refs/remotes/" remote)))
-
-(defun magit-list-related-branches (relation &optional commit arg)
- (--remove (string-match-p "\\(\\`(HEAD\\|HEAD -> \\)" it)
- (--map (substring it 2)
- (magit-git-lines "branch" arg relation commit))))
-
-(defun magit-list-containing-branches (&optional commit arg)
- (magit-list-related-branches "--contains" commit arg))
-
-(defun magit-list-publishing-branches (&optional commit)
- (--filter (magit-rev-ancestor-p commit it)
- magit-published-branches))
-
-(defun magit-list-merged-branches (&optional commit arg)
- (magit-list-related-branches "--merged" commit arg))
-
-(defun magit-list-unmerged-branches (&optional commit arg)
- (magit-list-related-branches "--no-merged" commit arg))
-
-(defun magit-list-unmerged-to-upstream-branches ()
- (--filter (when-let ((upstream (magit-get-upstream-branch it)))
- (member it (magit-list-unmerged-branches upstream)))
- (magit-list-local-branch-names)))
-
-(defun magit-list-branches-pointing-at (commit)
- (let ((re (format "\\`%s refs/\\(heads\\|remotes\\)/\\(.*\\)\\'"
- (magit-rev-verify commit))))
- (--keep (and (string-match re it)
- (let ((name (match-string 2 it)))
- (and (not (string-suffix-p "HEAD" name))
- name)))
- (magit-git-lines "show-ref"))))
-
-(defun magit-list-refnames (&optional namespaces)
- (magit-list-refs namespaces "%(refname:short)"))
-
-(defun magit-list-branch-names ()
- (magit-list-refnames (list "refs/heads" "refs/remotes")))
-
-(defun magit-list-local-branch-names ()
- (magit-list-refnames "refs/heads"))
-
-(defun magit-list-remote-branch-names (&optional remote relative)
- (if (and remote relative)
- (let ((regexp (format "^refs/remotes/%s/\\(.+\\)" remote)))
- (--mapcat (when (string-match regexp it)
- (list (match-string 1 it)))
- (magit-list-remote-branches remote)))
- (magit-list-refnames (concat "refs/remotes/" remote))))
-
-(defun magit-format-refs (format &rest args)
- (let ((lines (magit-git-lines
- "for-each-ref" (concat "--format=" format)
- (or args (list "refs/heads" "refs/remotes" "refs/tags")))))
- (if (string-match-p "\f" format)
- (--map (split-string it "\f") lines)
- lines)))
-
-(defun magit-list-remotes ()
- (magit-git-lines "remote"))
-
-(defun magit-list-tags ()
- (magit-git-lines "tag"))
-
-(defun magit-list-stashes (&optional format)
- (magit-git-lines "stash" "list" (concat "--format=" (or format "%gd"))))
-
-(defun magit-list-active-notes-refs ()
- "Return notes refs according to `core.notesRef' and `notes.displayRef'."
- (magit-git-lines "for-each-ref" "--format=%(refname)"
- (or (magit-get "core.notesRef") "refs/notes/commits")
- (magit-get-all "notes.displayRef")))
-
-(defun magit-list-notes-refnames ()
- (--map (substring it 6) (magit-list-refnames "refs/notes")))
-
-(defun magit-remote-list-tags (remote)
- (--keep (and (not (string-match-p "\\^{}$" it))
- (substring it 51))
- (magit-git-lines "ls-remote" "--tags" remote)))
-
-(defun magit-remote-list-branches (remote)
- (--keep (and (not (string-match-p "\\^{}$" it))
- (substring it 52))
- (magit-git-lines "ls-remote" "--heads" remote)))
-
-(defun magit-remote-list-refs (remote)
- (--keep (and (not (string-match-p "\\^{}$" it))
- (substring it 41))
- (magit-git-lines "ls-remote" remote)))
-
-(defun magit-list-module-paths ()
- (--mapcat (and (string-match "^160000 [0-9a-z]\\{40\\} 0\t\\(.+\\)$" it)
- (list (match-string 1 it)))
- (magit-git-items "ls-files" "-z" "--stage")))
-
-(defun magit-get-submodule-name (path)
- "Return the name of the submodule at PATH.
-PATH has to be relative to the super-repository."
- (cadr (split-string
- (car (or (magit-git-items
- "config" "-z"
- "-f" (expand-file-name ".gitmodules" (magit-toplevel))
- "--get-regexp" "^submodule\\..*\\.path$"
- (concat "^" (regexp-quote (directory-file-name path)) "$"))
- (error "No such submodule `%s'" path)))
- "\n")))
-
-(defun magit-list-worktrees ()
- (let (worktrees worktree)
- (dolist (line (let ((magit-git-global-arguments
- ;; KLUDGE At least in v2.8.3 this triggers a segfault.
- (remove "--no-pager" magit-git-global-arguments)))
- (magit-git-lines "worktree" "list" "--porcelain")))
- (cond ((string-prefix-p "worktree" line)
- (push (setq worktree (list (substring line 9) nil nil nil))
- worktrees))
- ((string-equal line "bare")
- (let* ((default-directory (car worktree))
- (wt (and (not (magit-get-boolean "core.bare"))
- (magit-get "core.worktree"))))
- (if (and wt (file-exists-p (expand-file-name wt)))
- (progn (setf (nth 0 worktree) (expand-file-name wt))
- (setf (nth 2 worktree) (magit-rev-parse "HEAD"))
- (setf (nth 3 worktree) (magit-get-current-branch)))
- (setf (nth 1 worktree) t))))
- ((string-prefix-p "HEAD" line)
- (setf (nth 2 worktree) (substring line 5)))
- ((string-prefix-p "branch" line)
- (setf (nth 3 worktree) (substring line 18)))
- ((string-equal line "detached"))))
- (nreverse worktrees)))
-
-(defun magit-symbolic-ref-p (name)
- (magit-git-success "symbolic-ref" "--quiet" name))
-
-(defun magit-ref-p (rev)
- (or (car (member rev (magit-list-refs)))
- (car (member rev (magit-list-refnames)))))
-
-(defun magit-branch-p (rev)
- (or (car (member rev (magit-list-branches)))
- (car (member rev (magit-list-branch-names)))))
-
-(defun magit-local-branch-p (rev)
- (or (car (member rev (magit-list-local-branches)))
- (car (member rev (magit-list-local-branch-names)))))
-
-(defun magit-remote-branch-p (rev)
- (or (car (member rev (magit-list-remote-branches)))
- (car (member rev (magit-list-remote-branch-names)))))
-
-(defun magit-branch-set-face (branch)
- (propertize branch 'face (if (magit-local-branch-p branch)
- 'magit-branch-local
- 'magit-branch-remote)))
-
-(defun magit-tag-p (rev)
- (car (member rev (magit-list-tags))))
-
-(defun magit-remote-p (string)
- (car (member string (magit-list-remotes))))
-
-(defun magit-rev-diff-count (a b)
- "Return the commits in A but not B and vice versa.
-Return a list of two integers: (A>B B>A)."
- (mapcar 'string-to-number
- (split-string (magit-git-string "rev-list"
- "--count" "--left-right"
- (concat a "..." b))
- "\t")))
-
-(defun magit-abbrev-length ()
- (--if-let (magit-get "core.abbrev")
- (string-to-number it)
- ;; Guess the length git will be using based on an example
- ;; abbreviation. Actually HEAD's abbreviation might be an
- ;; outlier, so use the shorter of the abbreviations for two
- ;; commits. When a commit does not exist, then fall back
- ;; to the default of 7. See #3034.
- (min (--if-let (magit-rev-parse "--short" "HEAD") (length it) 7)
- (--if-let (magit-rev-parse "--short" "HEAD~") (length it) 7))))
-
-(defun magit-abbrev-arg (&optional arg)
- (format "--%s=%d" (or arg "abbrev") (magit-abbrev-length)))
-
-(defun magit-rev-abbrev (rev)
- (magit-rev-parse (magit-abbrev-arg "short") rev))
-
-(defun magit-commit-children (commit &optional args)
- (mapcar #'car
- (--filter (member commit (cdr it))
- (--map (split-string it " ")
- (magit-git-lines
- "log" "--format=%H %P"
- (or args (list "--branches" "--tags" "--remotes"))
- "--not" commit)))))
-
-(defun magit-commit-parents (commit)
- (--when-let (magit-git-string "rev-list" "-1" "--parents" commit)
- (cdr (split-string it))))
-
-(defun magit-patch-id (rev)
- (with-temp-buffer
- (magit-process-file
- shell-file-name nil '(t nil) nil shell-command-switch
- (let ((exec (shell-quote-argument magit-git-executable)))
- (format "%s diff-tree -u %s | %s patch-id" exec rev exec)))
- (car (split-string (buffer-string)))))
-
-(defun magit-rev-format (format &optional rev args)
- (let ((str (magit-git-string "show" "--no-patch"
- (concat "--format=" format) args
- (if rev (concat rev "^{commit}") "HEAD") "--")))
- (unless (string-equal str "")
- str)))
-
-(defun magit-rev-insert-format (format &optional rev args)
- (magit-git-insert "show" "--no-patch"
- (concat "--format=" format) args
- (if rev (concat rev "^{commit}") "HEAD") "--"))
-
-(defun magit-format-rev-summary (rev)
- (--when-let (magit-rev-format "%h %s" rev)
- (string-match " " it)
- (put-text-property 0 (match-beginning 0) 'face 'magit-hash it)
- it))
-
-(defvar magit-ref-namespaces
- '(("\\`HEAD\\'" . magit-head)
- ("\\`refs/tags/\\(.+\\)" . magit-tag)
- ("\\`refs/heads/\\(.+\\)" . magit-branch-local)
- ("\\`refs/remotes/\\(.+\\)" . magit-branch-remote)
- ("\\`refs/bisect/\\(bad\\)" . magit-bisect-bad)
- ("\\`refs/bisect/\\(skip.*\\)" . magit-bisect-skip)
- ("\\`refs/bisect/\\(good.*\\)" . magit-bisect-good)
- ("\\`refs/stash$" . magit-refname-stash)
- ("\\`refs/wip/\\(.+\\)" . magit-refname-wip)
- ("\\`refs/pullreqs/\\(.+\\)" . magit-refname-pullreq)
- ("\\`\\(bad\\):" . magit-bisect-bad)
- ("\\`\\(skip\\):" . magit-bisect-skip)
- ("\\`\\(good\\):" . magit-bisect-good)
- ("\\`\\(.+\\)" . magit-refname))
- "How refs are formatted for display.
-
-Each entry controls how a certain type of ref is displayed, and
-has the form (REGEXP . FACE). REGEXP is a regular expression
-used to match full refs. The first entry whose REGEXP matches
-the reference is used.
-
-In log and revision buffers the first regexp submatch becomes the
-\"label\" that represents the ref and is propertized with FONT.
-In refs buffers the displayed text is controlled by other means
-and this option only controls what face is used.")
-
-(defun magit-format-ref-labels (string)
- ;; To support Git <2.2.0, we remove the surrounding parentheses here
- ;; rather than specifying that STRING should be generated with Git's
- ;; "%D" placeholder.
- (setq string (->> string
- (replace-regexp-in-string "\\`\\s-*(" "")
- (replace-regexp-in-string ")\\s-*\\'" "")))
- (save-match-data
- (let ((regexp "\\(, \\|tag: \\|HEAD -> \\)")
- names)
- (if (and (derived-mode-p 'magit-log-mode)
- (member "--simplify-by-decoration" (cadr magit-refresh-args)))
- (let ((branches (magit-list-local-branch-names))
- (re (format "^%s/.+" (regexp-opt (magit-list-remotes)))))
- (setq names
- (--map (cond ((string-equal it "HEAD") it)
- ((string-prefix-p "refs/" it) it)
- ((member it branches) (concat "refs/heads/" it))
- ((string-match re it) (concat "refs/remotes/" it))
- (t (concat "refs/" it)))
- (split-string
- (replace-regexp-in-string "tag: " "refs/tags/" string)
- regexp t))))
- (setq names (split-string string regexp t)))
- (let (state head upstream tags branches remotes other combined)
- (dolist (ref names)
- (let* ((face (cdr (--first (string-match (car it) ref)
- magit-ref-namespaces)))
- (name (propertize (or (match-string 1 ref) ref) 'face face)))
- (cl-case face
- ((magit-bisect-bad magit-bisect-skip magit-bisect-good)
- (setq state name))
- (magit-head
- (setq head (propertize "@" 'face 'magit-head)))
- (magit-tag (push name tags))
- (magit-branch-local (push name branches))
- (magit-branch-remote (push name remotes))
- (t (push name other)))))
- (setq remotes
- (-keep
- (lambda (name)
- (if (string-match "\\`\\([^/]*\\)/\\(.*\\)\\'" name)
- (let ((r (match-string 1 name))
- (b (match-string 2 name)))
- (and (not (equal b "HEAD"))
- (if (equal (concat "refs/remotes/" name)
- (magit-git-string
- "symbolic-ref"
- (format "refs/remotes/%s/HEAD" r)))
- (propertize name
- 'face 'magit-branch-remote-head)
- name)))
- name))
- remotes))
- (let* ((current (magit-get-current-branch))
- (target (magit-get-upstream-branch current t)))
- (dolist (name branches)
- (let ((push (car (member (magit-get-push-branch name) remotes))))
- (when push
- (setq remotes (delete push remotes))
- (string-match "^[^/]*/" push)
- (setq push (substring push 0 (match-end 0))))
- (cond
- ((equal name current)
- (setq head
- (concat push
- (propertize name 'face 'magit-branch-current))))
- ((equal name target)
- (setq upstream
- (concat push
- (propertize name 'face '(magit-branch-upstream
- magit-branch-local)))))
- (t
- (push (concat push name) combined)))))
- (when (and target (not upstream))
- (if (member target remotes)
- (progn
- (add-face-text-property 0 (length target)
- 'magit-branch-upstream nil target)
- (setq upstream target)
- (setq remotes (delete target remotes)))
- (when-let ((target (car (member target combined))))
- (add-face-text-property 0 (length target)
- 'magit-branch-upstream nil target)
- (setq upstream target)
- (setq combined (delete target combined))))))
- (mapconcat #'identity
- (-flatten `(,state
- ,head
- ,upstream
- ,@(nreverse tags)
- ,@(nreverse combined)
- ,@(nreverse remotes)
- ,@other))
- " ")))))
-
-(defun magit-object-type (object)
- (magit-git-string "cat-file" "-t" object))
-
-(defmacro magit-with-blob (commit file &rest body)
- (declare (indent 2)
- (debug (form form body)))
- `(with-temp-buffer
- (let ((buffer-file-name ,file))
- (save-excursion
- (magit-git-insert "cat-file" "-p"
- (concat ,commit ":" buffer-file-name)))
- (decode-coding-inserted-region
- (point-min) (point-max) buffer-file-name t nil nil t)
- ,@body)))
-
-(defmacro magit-with-temp-index (tree arg &rest body)
- (declare (indent 2) (debug (form form body)))
- (let ((file (cl-gensym "file")))
- `(let ((magit--refresh-cache nil)
- (,file (magit-convert-filename-for-git
- (make-temp-name (magit-git-dir "index.magit.")))))
- (unwind-protect
- (magit-with-toplevel
- (--when-let ,tree
- (or (magit-git-success "read-tree" ,arg it
- (concat "--index-output=" ,file))
- (error "Cannot read tree %s" it)))
- (if (file-remote-p default-directory)
- (let ((magit-tramp-process-environment
- (cons (concat "GIT_INDEX_FILE=" ,file)
- magit-tramp-process-environment)))
- ,@body)
- (let ((process-environment
- (cons (concat "GIT_INDEX_FILE=" ,file)
- process-environment)))
- ,@body)))
- (ignore-errors
- (delete-file (concat (file-remote-p default-directory) ,file)))))))
-
-(defun magit-commit-tree (message &optional tree &rest parents)
- (magit-git-string "commit-tree" "--no-gpg-sign" "-m" message
- (--mapcat (list "-p" it) (delq nil parents))
- (or tree
- (magit-git-string "write-tree")
- (error "Cannot write tree"))))
-
-(defun magit-commit-worktree (message &optional arg &rest other-parents)
- (magit-with-temp-index "HEAD" arg
- (and (magit-update-files (magit-unstaged-files))
- (apply #'magit-commit-tree message nil "HEAD" other-parents))))
-
-(defun magit-update-files (files)
- (magit-git-success "update-index" "--add" "--remove" "--" files))
-
-(defun magit-update-ref (ref message rev &optional stashish)
- (let ((magit--refresh-cache nil))
- (or (if (not (version< (magit-git-version) "2.6.0"))
- (zerop (magit-call-git "update-ref" "--create-reflog"
- "-m" message ref rev
- (or (magit-rev-verify ref) "")))
- ;; `--create-reflog' didn't exist before v2.6.0
- (let ((oldrev (magit-rev-verify ref))
- (logfile (magit-git-dir (concat "logs/" ref))))
- (unless (file-exists-p logfile)
- (when oldrev
- (magit-git-success "update-ref" "-d" ref oldrev))
- (make-directory (file-name-directory logfile) t)
- (with-temp-file logfile)
- (when (and oldrev (not stashish))
- (magit-git-success "update-ref" "-m" "enable reflog"
- ref oldrev ""))))
- (magit-git-success "update-ref" "-m" message ref rev
- (or (magit-rev-verify ref) "")))
- (error "Cannot update %s with %s" ref rev))))
-
-(defconst magit-range-re
- (concat "\\`\\([^ \t]*[^.]\\)?" ; revA
- "\\(\\.\\.\\.?\\)" ; range marker
- "\\([^.][^ \t]*\\)?\\'")) ; revB
-
-(defun magit-split-range (range)
- (and (string-match magit-range-re range)
- (let ((beg (or (match-string 1 range) "HEAD"))
- (end (or (match-string 3 range) "HEAD")))
- (cons (if (string-equal (match-string 2 range) "...")
- (magit-git-string "merge-base" beg end)
- beg)
- end))))
-
-(defvar magit-thingatpt--git-revision-chars "-_./[:alnum:]@{}^~!"
- "Characters allowable in filenames, excluding space and colon.")
-
-(put 'git-revision 'end-op
- (lambda ()
- (re-search-forward
- (concat "\\=[" magit-thingatpt--git-revision-chars "]*")
- nil t)))
-
-(put 'git-revision 'beginning-op
- (lambda ()
- (if (re-search-backward
- (concat "[^" magit-thingatpt--git-revision-chars "]") nil t)
- (forward-char)
- (goto-char (point-min)))))
-
-(put 'git-revision 'thing-at-point 'magit-thingatpt--git-revision)
-
-(defun magit-thingatpt--git-revision ()
- (--when-let (bounds-of-thing-at-point 'git-revision)
- (let ((text (buffer-substring-no-properties (car it) (cdr it))))
- (and (magit-rev-verify-commit text) text))))
-
-;;; Completion
-
-(defvar magit-revision-history nil)
-
-(defun magit-read-branch (prompt &optional secondary-default)
- (magit-completing-read prompt (magit-list-branch-names)
- nil t nil 'magit-revision-history
- (or (magit-branch-at-point)
- secondary-default
- (magit-get-current-branch))))
-
-(defun magit-read-branch-or-commit (prompt &optional secondary-default)
- (or (magit-completing-read prompt (cons "HEAD" (magit-list-refnames))
- nil nil nil 'magit-revision-history
- (or (magit-branch-or-commit-at-point)
- secondary-default
- (magit-get-current-branch)))
- (user-error "Nothing selected")))
-
-(defun magit-read-range-or-commit (prompt &optional secondary-default)
- (magit-read-range
- prompt
- (or (--when-let (magit-region-values '(commit branch) t)
- (deactivate-mark)
- (concat (car (last it)) ".." (car it)))
- (magit-branch-or-commit-at-point)
- secondary-default
- (magit-get-current-branch))))
-
-(defun magit-read-range (prompt &optional default)
- (magit-completing-read-multiple prompt
- (magit-list-refnames)
- "\\.\\.\\.?"
- default 'magit-revision-history))
-
-(defun magit-read-remote-branch
- (prompt &optional remote default local-branch require-match)
- (let ((choice (magit-completing-read
- prompt
- (-union (and local-branch
- (if remote
- (concat remote "/" local-branch)
- (--map (concat it "/" local-branch)
- (magit-list-remotes))))
- (magit-list-remote-branch-names remote t))
- nil require-match nil 'magit-revision-history default)))
- (if (or remote (string-match "\\`\\([^/]+\\)/\\(.+\\)" choice))
- choice
- (user-error "`%s' doesn't have the form REMOTE/BRANCH" choice))))
-
-(defun magit-read-refspec (prompt remote)
- (magit-completing-read prompt
- (prog2 (message "Determining available refs...")
- (magit-remote-list-refs remote)
- (message "Determining available refs...done"))))
-
-(defun magit-read-local-branch (prompt &optional secondary-default)
- (magit-completing-read prompt (magit-list-local-branch-names)
- nil t nil 'magit-revision-history
- (or (magit-local-branch-at-point)
- secondary-default
- (magit-get-current-branch))))
-
-(defun magit-read-local-branch-or-commit (prompt)
- (let ((branches (magit-list-local-branch-names))
- (commit (magit-commit-at-point)))
- (or (magit-completing-read prompt
- (if commit (cons commit branches) branches)
- nil nil nil 'magit-revision-history
- (or (magit-local-branch-at-point) commit))
- (user-error "Nothing selected"))))
-
-(defun magit-read-local-branch-or-ref (prompt &optional secondary-default)
- (magit-completing-read prompt (nconc (magit-list-local-branch-names)
- (magit-list-refs "refs/"))
- nil t nil 'magit-revision-history
- (or (magit-local-branch-at-point)
- secondary-default
- (magit-get-current-branch))))
-
-(defun magit-read-other-branch
- (prompt &optional exclude secondary-default no-require-match)
- (let* ((current (magit-get-current-branch))
- (atpoint (magit-branch-at-point))
- (exclude (or exclude current))
- (default (or (and (not (equal atpoint exclude)) atpoint)
- (and (not (equal current exclude)) current)
- secondary-default
- (magit-get-previous-branch))))
- (magit-completing-read prompt (delete exclude (magit-list-branch-names))
- nil (not no-require-match)
- nil 'magit-revision-history default)))
-
-(defun magit-read-other-branch-or-commit
- (prompt &optional exclude secondary-default)
- (let* ((current (magit-get-current-branch))
- (atpoint (magit-branch-or-commit-at-point))
- (exclude (or exclude current))
- (default (or (and (not (equal atpoint exclude)) atpoint)
- (and (not (equal current exclude)) current)
- secondary-default
- (magit-get-previous-branch))))
- (or (magit-completing-read prompt (delete exclude (magit-list-refnames))
- nil nil nil 'magit-revision-history default)
- (user-error "Nothing selected"))))
-
-(defun magit-read-other-local-branch
- (prompt &optional exclude secondary-default no-require-match)
- (let* ((current (magit-get-current-branch))
- (atpoint (magit-local-branch-at-point))
- (exclude (or exclude current))
- (default (or (and (not (equal atpoint exclude)) atpoint)
- (and (not (equal current exclude)) current)
- secondary-default
- (magit-get-previous-branch))))
- (magit-completing-read prompt
- (delete exclude (magit-list-local-branch-names))
- nil (not no-require-match)
- nil 'magit-revision-history default)))
-
-(defun magit-read-branch-prefer-other (prompt)
- (let* ((current (magit-get-current-branch))
- (commit (magit-commit-at-point))
- (atrev (and commit (magit-list-branches-pointing-at commit)))
- (atpoint (magit--painted-branch-at-point)))
- (magit-completing-read prompt (magit-list-branch-names)
- nil t nil 'magit-revision-history
- (or (magit-section-value-if 'branch)
- atpoint
- (and (not (cdr atrev)) (car atrev))
- (--first (not (equal it current)) atrev)
- (magit-get-previous-branch)
- (car atrev)))))
-
-(cl-defun magit-read-upstream-branch
- (&optional (branch (magit-get-current-branch)) prompt)
- (magit-completing-read
- (or prompt (format "Change upstream of %s to" branch))
- (-union (--map (concat it "/" branch)
- (magit-list-remotes))
- (delete branch (magit-list-branch-names)))
- nil nil nil 'magit-revision-history
- (or (let ((r (magit-remote-branch-at-point))
- (l (magit-branch-at-point)))
- (when (and l (equal l branch))
- (setq l nil))
- (if magit-prefer-remote-upstream (or r l) (or l r)))
- (let ((r (magit-branch-p "origin/master"))
- (l (and (not (equal branch "master"))
- (magit-branch-p "master"))))
- (if magit-prefer-remote-upstream (or r l) (or l r)))
- (let ((previous (magit-get-previous-branch)))
- (and (not (equal previous branch)) previous)))))
-
-(defun magit-read-starting-point (prompt &optional branch)
- (or (magit-completing-read
- (concat prompt
- (and branch
- (if (bound-and-true-p ivy-mode)
- ;; Ivy-mode strips faces from prompt.
- (format " `%s'" branch)
- (concat " "
- (propertize branch 'face 'magit-branch-local))))
- " starting at")
- (nconc (list "HEAD")
- (magit-list-refnames)
- (directory-files (magit-git-dir) nil "_HEAD\\'"))
- nil nil nil 'magit-revision-history
- (magit--default-starting-point))
- (user-error "Nothing selected")))
-
-(defun magit--default-starting-point ()
- (or (let ((r (magit-remote-branch-at-point))
- (l (magit-local-branch-at-point)))
- (if magit-prefer-remote-upstream (or r l) (or l r)))
- (magit-commit-at-point)
- (magit-stash-at-point)
- (magit-get-current-branch)))
-
-(defun magit-read-tag (prompt &optional require-match)
- (magit-completing-read prompt (magit-list-tags) nil
- require-match nil 'magit-revision-history
- (magit-tag-at-point)))
-
-(defun magit-read-stash (prompt)
- (let ((stashes (magit-list-stashes)))
- (magit-completing-read prompt stashes nil t nil nil
- (magit-stash-at-point)
- (car stashes))))
-
-(defun magit-read-remote (prompt &optional default use-only)
- (let ((remotes (magit-list-remotes)))
- (if (and use-only (= (length remotes) 1))
- (car remotes)
- (magit-completing-read prompt remotes
- nil t nil nil
- (or default
- (magit-remote-at-point)
- (magit-get-remote))))))
-
-(defun magit-read-remote-or-url (prompt &optional default)
- (magit-completing-read prompt
- (nconc (magit-list-remotes)
- (list "https://" "git://" "git@"))
- nil nil nil nil
- (or default
- (magit-remote-at-point)
- (magit-get-remote))))
-
-(defun magit-read-module-path (prompt &optional predicate)
- (magit-completing-read prompt (magit-list-module-paths)
- predicate t nil nil
- (magit-module-at-point predicate)))
-
-(defun magit-module-confirm (verb &optional predicate)
- (let (modules)
- (if current-prefix-arg
- (progn
- (setq modules (magit-list-module-paths))
- (when predicate
- (setq modules (-filter predicate modules)))
- (unless modules
- (if predicate
- (user-error "No modules satisfying %s available" predicate)
- (user-error "No modules available"))))
- (setq modules (magit-region-values 'magit-module-section))
- (when modules
- (when predicate
- (setq modules (-filter predicate modules)))
- (unless modules
- (user-error "No modules satisfying %s selected" predicate))))
- (if (> (length modules) 1)
- (magit-confirm t nil (format "%s %%i modules" verb) nil modules)
- (list (magit-read-module-path (format "%s module" verb) predicate)))))
-
-;;; Variables in Popups
-
-(defun magit--format-popup-variable:value (variable width &optional global)
- (concat variable
- (make-string (max 1 (- width 3 (length variable))) ?\s)
- (if-let ((value (magit-get (and global "--global") variable)))
- (propertize value 'face 'magit-popup-option-value)
- (propertize "unset" 'face 'magit-popup-disabled-argument))))
-
-(defun magit--format-popup-variable:values (variable width &optional global)
- (concat variable
- (make-string (max 1 (- width 3 (length variable))) ?\s)
- (if-let ((values (magit-get-all (and global "--global") variable)))
- (concat
- (propertize (car values) 'face 'magit-popup-option-value)
- (mapconcat
- (lambda (value)
- (concat "\n" (make-string width ?\s)
- (propertize value
- 'face 'magit-popup-option-value)))
- (cdr values) ""))
- (propertize "unset" 'face 'magit-popup-disabled-argument))))
-
-(defun magit--set-popup-variable
- (variable choices &optional default other)
- (magit-set (--if-let (magit-git-string "config" "--local" variable)
- (cadr (member it choices))
- (car choices))
- variable)
- (magit-with-pre-popup-buffer
- (magit-refresh))
- (message "%s %s" variable
- (magit--format-popup-variable:choices*
- variable choices default other)))
-
-(defun magit--format-popup-variable:choices
- (variable choices &optional default other width)
- (concat variable
- (if width (make-string (- width (length variable)) ?\s) " ")
- (magit--format-popup-variable:choices*
- variable choices default other)))
-
-(defun magit--format-popup-variable:choices*
- (variable choices &optional default other)
- (let ((local (magit-git-string "config" "--local" variable))
- (global (magit-git-string "config" "--global" variable)))
- (when other
- (setq other (--when-let (magit-get other)
- (concat other ":" it))))
- (concat
- (propertize "[" 'face 'magit-popup-disabled-argument)
- (mapconcat
- (lambda (choice)
- (propertize choice 'face (if (equal choice local)
- 'magit-popup-option-value
- 'magit-popup-disabled-argument)))
- choices
- (propertize "|" 'face 'magit-popup-disabled-argument))
- (when (or global other default)
- (concat
- (propertize "|" 'face 'magit-popup-disabled-argument)
- (cond (global
- (propertize (concat "global:" global)
- 'face (cond (local
- 'magit-popup-disabled-argument)
- ((member global choices)
- 'magit-popup-option-value)
- (t
- 'font-lock-warning-face))))
- (other
- (propertize other
- 'face (if local
- 'magit-popup-disabled-argument
- 'magit-popup-option-value)))
- (default
- (propertize (concat "default:" default)
- 'face (if local
- 'magit-popup-disabled-argument
- 'magit-popup-option-value))))))
- (propertize "]" 'face 'magit-popup-disabled-argument))))
-
-;;; _
-(provide 'magit-git)
-;;; magit-git.el ends here
diff --git a/elpa/magit-20181116.1412/magit-git.elc b/elpa/magit-20181116.1412/magit-git.elc
deleted file mode 100644
index 4de5687..0000000
--- a/elpa/magit-20181116.1412/magit-git.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-gitignore.el b/elpa/magit-20181116.1412/magit-gitignore.el
deleted file mode 100644
index 1d4e84a..0000000
--- a/elpa/magit-20181116.1412/magit-gitignore.el
+++ /dev/null
@@ -1,98 +0,0 @@
-;;; magit-gitignore.el --- intentionally untracked files -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements gitignore commands.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-gitignore-popup "magit-gitignore" nil t)
-(magit-define-popup magit-gitignore-popup
- "Popup console for gitignore commands."
- :man-page "gitignore"
- :actions '((?l "ignore locally" magit-gitignore-locally)
- (?g "ignore globally" magit-gitignore-globally))
- :max-action-columns 1)
-
-;;;###autoload
-(defun magit-gitignore-globally (file-or-pattern)
- "Instruct Git to globally ignore FILE-OR-PATTERN."
- (interactive (list (magit-gitignore-read-pattern nil)))
- (magit--gitignore file-or-pattern nil))
-
-;;;###autoload
-(defun magit-gitignore-locally (file-or-pattern)
- "Instruct Git to locally ignore FILE-OR-PATTERN."
- (interactive (list (magit-gitignore-read-pattern t)))
- (magit--gitignore file-or-pattern t))
-
-(defun magit--gitignore (file-or-pattern local)
- (let ((gitignore
- (if local
- (magit-git-dir (convert-standard-filename "info/exclude"))
- (expand-file-name ".gitignore" (magit-toplevel)))))
- (make-directory (file-name-directory gitignore) t)
- (with-temp-buffer
- (when (file-exists-p gitignore)
- (insert-file-contents gitignore))
- (goto-char (point-max))
- (unless (bolp)
- (insert "\n"))
- (insert (replace-regexp-in-string "\\(\\\\*\\)" "\\1\\1" file-or-pattern))
- (insert "\n")
- (write-region nil nil gitignore))
- (if local
- (magit-refresh)
- (magit-run-git "add" ".gitignore"))))
-
-(defun magit-gitignore-read-pattern (local)
- (let* ((default (magit-current-file))
- (choices
- (delete-dups
- (--mapcat
- (cons (concat "/" it)
- (when-let ((ext (file-name-extension it)))
- (list (concat "/" (file-name-directory "foo") "*." ext)
- (concat "*." ext))))
- (magit-untracked-files)))))
- (when default
- (setq default (concat "/" default))
- (unless (member default choices)
- (setq default (concat "*." (file-name-extension default)))
- (unless (member default choices)
- (setq default nil))))
- (magit-completing-read (concat "File or pattern to ignore"
- (and local " locally"))
- choices nil nil nil nil default)))
-
-;;; _
-(provide 'magit-gitignore)
-;;; magit-gitignore.el ends here
diff --git a/elpa/magit-20181116.1412/magit-gitignore.elc b/elpa/magit-20181116.1412/magit-gitignore.elc
deleted file mode 100644
index 14c374e..0000000
--- a/elpa/magit-20181116.1412/magit-gitignore.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-imenu.el b/elpa/magit-20181116.1412/magit-imenu.el
deleted file mode 100644
index 52b7ed6..0000000
--- a/elpa/magit-20181116.1412/magit-imenu.el
+++ /dev/null
@@ -1,243 +0,0 @@
-;;; magit-imenu.el --- Integrate Imenu in magit major modes -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Damien Cassou <damien@cassou.me>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Emacs' major modes can facilitate navigation in their buffers by
-;; supporting Imenu. In such major modes, launching Imenu (M-x imenu)
-;; makes Emacs display a list of items (e.g., function definitions in
-;; a programming major mode). Selecting an item from this list moves
-;; point to this item.
-
-;; magit-imenu.el adds Imenu support to every major mode in Magit
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-(require 'git-rebase)
-
-(defun magit-imenu--index-function (entry-types menu-types)
- "Return an alist of imenu entries in current buffer.
-
-ENTRY-TYPES is a list of section types to be selected through
-`imenu'.
-
-MENU-TYPES is a list of section types containing elements of
-ENTRY-TYPES. Elements of MENU-TYPES are are used to categories
-elements of ENTRY-TYPES.
-
-This function is used as a helper for functions set as
-`imenu-create-index-function'."
- (let ((entries (make-hash-table :test 'equal)))
- (goto-char (point-max))
- (while (magit-section--backward-find
- (lambda ()
- (let* ((section (magit-current-section))
- (type (oref section type))
- (parent (oref section parent))
- (parent-type (oref parent type)))
- (and (-contains-p entry-types type)
- (-contains-p menu-types parent-type)))))
- (let* ((section (magit-current-section))
- (name (buffer-substring-no-properties
- (line-beginning-position)
- (line-end-position)))
- (parent (oref section parent))
- (parent-title (buffer-substring-no-properties
- (oref parent start)
- (1- (oref parent content)))))
- (puthash parent-title
- (cons (cons name (point))
- (gethash parent-title entries (list)))
- entries)))
- (mapcar (lambda (menu-title)
- (cons menu-title (gethash menu-title entries)))
- (hash-table-keys entries))))
-
-;;; Log mode
-
-;;;###autoload
-(defun magit-imenu--log-prev-index-position-function ()
- "Move point to previous line in current buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'."
- (magit-section--backward-find
- (lambda ()
- (-contains-p '(commit stash)
- (oref (magit-current-section) type)))))
-
-;;;###autoload
-(defun magit-imenu--log-extract-index-name-function ()
- "Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line."
- (save-match-data
- (looking-at "\\([^ ]+\\)[ *|]+\\(.+\\)$")
- (format "%s: %s"
- (match-string-no-properties 1)
- (match-string-no-properties 2))))
-
-;;; Diff mode
-
-;;;###autoload
-(defun magit-imenu--diff-prev-index-position-function ()
- "Move point to previous file line in current buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'."
- (magit-section--backward-find
- (lambda ()
- (let ((section (magit-current-section)))
- (and (magit-file-section-p section)
- (not (equal (oref (oref section parent) type)
- 'diffstat)))))))
-
-;;;###autoload
-(defun magit-imenu--diff-extract-index-name-function ()
- "Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line."
- (buffer-substring-no-properties (line-beginning-position)
- (line-end-position)))
-
-;;; Status mode
-
-;;;###autoload
-(defun magit-imenu--status-create-index-function ()
- "Return an alist of all imenu entries in current buffer.
-This function is used as a value for
-`imenu-create-index-function'."
- (magit-imenu--index-function
- '(file commit stash)
- '(unpushed unstaged unpulled untracked staged stashes)))
-
-;;;; Refs mode
-
-;;;###autoload
-(defun magit-imenu--refs-create-index-function ()
- "Return an alist of all imenu entries in current buffer.
-This function is used as a value for
-`imenu-create-index-function'."
- (magit-imenu--index-function
- '(branch commit tag)
- '(local remote tags)))
-
-;;;; Cherry mode
-
-;;;###autoload
-(defun magit-imenu--cherry-create-index-function ()
- "Return an alist of all imenu entries in current buffer.
-This function is used as a value for
-`imenu-create-index-function'."
- (magit-imenu--index-function
- '(commit)
- '(cherries)))
-
-;;;; Submodule list mode
-
-;;;###autoload
-(defun magit-imenu--submodule-prev-index-position-function ()
- "Move point to previous line in magit-submodule-list buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'."
- (unless (bobp)
- (forward-line -1)))
-
-;;;###autoload
-(defun magit-imenu--submodule-extract-index-name-function ()
- "Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line."
- (elt (tabulated-list-get-entry) 0))
-
-;;;; Repolist mode
-
-;;;###autoload
-(defun magit-imenu--repolist-prev-index-position-function ()
- "Move point to previous line in magit-repolist buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'."
- (unless (bobp)
- (forward-line -1)))
-
-;;;###autoload
-(defun magit-imenu--repolist-extract-index-name-function ()
- "Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line."
- (let ((entry (tabulated-list-get-entry)))
- (format "%s (%s)"
- (elt entry 0)
- (elt entry (1- (length entry))))))
-
-;;;; Process mode
-
-;;;###autoload
-(defun magit-imenu--process-prev-index-position-function ()
- "Move point to previous process in magit-process buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'."
- (magit-section--backward-find
- (lambda ()
- (eq (oref (magit-current-section) type) 'process))))
-
-;;;###autoload
-(defun magit-imenu--process-extract-index-name-function ()
- "Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line."
- (buffer-substring-no-properties (line-beginning-position)
- (line-end-position)))
-
-;;;; Rebase mode
-
-;;;###autoload
-(defun magit-imenu--rebase-prev-index-position-function ()
- "Move point to previous commit in git-rebase buffer.
-This function is used as a value for
-`imenu-prev-index-position-function'."
- (catch 'found
- (while (not (bobp))
- (git-rebase-backward-line)
- (when (git-rebase-line-p)
- (throw 'found t)))))
-
-;;;###autoload
-(defun magit-imenu--rebase-extract-index-name-function ()
- "Return imenu name for line at point.
-This function is used as a value for
-`imenu-extract-index-name-function'. Point should be at the
-beginning of the line."
- (buffer-substring-no-properties (line-beginning-position)
- (line-end-position)))
-
-;;; _
-(provide 'magit-imenu)
-;;; magit-imenu.el ends here
diff --git a/elpa/magit-20181116.1412/magit-imenu.elc b/elpa/magit-20181116.1412/magit-imenu.elc
deleted file mode 100644
index d24bedc..0000000
--- a/elpa/magit-20181116.1412/magit-imenu.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-log.el b/elpa/magit-20181116.1412/magit-log.el
deleted file mode 100644
index 82cad85..0000000
--- a/elpa/magit-20181116.1412/magit-log.el
+++ /dev/null
@@ -1,1754 +0,0 @@
-;;; magit-log.el --- inspect Git history -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for looking at Git logs, including
-;; special logs like reflogs and cherry-logs, as well as for selecting
-;; a commit from a log.
-
-;;; Code:
-
-(require 'magit-core)
-(require 'magit-diff)
-
-(declare-function magit-blob-visit "magit-files" (blob-or-file line))
-(declare-function magit-insert-head-branch-header "magit-status"
- (&optional branch))
-(declare-function magit-insert-upstream-branch-header "magit-status"
- (&optional branch pull keyword))
-(declare-function magit-read-file-from-rev "magit-files"
- (rev prompt &optional default))
-(declare-function magit-show-commit "magit-diff"
- (arg1 &optional arg2 arg3 arg4))
-(defvar magit-refs-focus-column-width)
-(defvar magit-refs-margin)
-(defvar magit-refs-show-commit-count)
-(defvar magit-buffer-margin)
-(defvar magit-status-margin)
-(defvar magit-status-sections-hook)
-
-(require 'ansi-color)
-(require 'crm)
-(require 'which-func)
-
-(eval-when-compile
- (require 'subr-x))
-
-(defvar bookmark-make-record-function)
-
-;;; Options
-;;;; Log Mode
-
-(defgroup magit-log nil
- "Inspect and manipulate Git history."
- :link '(info-link "(magit)Logging")
- :group 'magit-modes)
-
-(defcustom magit-log-mode-hook nil
- "Hook run after entering Magit-Log mode."
- :group 'magit-log
- :type 'hook)
-
-(defcustom magit-log-arguments '("-n256" "--graph" "--decorate")
- "The log arguments used in `magit-log-mode' buffers."
- :package-version '(magit . "2.3.0")
- :group 'magit-git-arguments
- :group 'magit-log
- :type '(repeat (string :tag "Argument")))
-
-(defcustom magit-log-remove-graph-args '("--follow" "--grep" "-G" "-S" "-L")
- "The log arguments that cause the `--graph' argument to be dropped."
- :package-version '(magit . "2.3.0")
- :group 'magit-log
- :type '(repeat (string :tag "Argument"))
- :options '("--follow" "--grep" "-G" "-S" "-L"))
-
-(defcustom magit-log-revision-headers-format "\
-%+b
-Author: %aN <%aE>
-Committer: %cN <%cE>"
- "Additional format string used with the `++header' argument."
- :package-version '(magit . "2.3.0")
- :group 'magit-log
- :type 'string)
-
-(defcustom magit-log-auto-more nil
- "Insert more log entries automatically when moving past the last entry.
-Only considered when moving past the last entry with
-`magit-goto-*-section' commands."
- :group 'magit-log
- :type 'boolean)
-
-(defcustom magit-log-margin '(t age magit-log-margin-width t 18)
- "Format of the margin in `magit-log-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the committer date. It can be one
- of `age' (to show the age of the commit), `age-abbreviated' (to
- abbreviate the time unit to a character), or a string (suitable
- for `format-time-string') to show the actual date.
-WIDTH controls the width of the margin. This exists for forward
- compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
- default.
-AUTHOR-WIDTH has to be an integer. When the name of the author
- is shown, then this specifies how much space is used to do so."
- :package-version '(magit . "2.9.0")
- :group 'magit-log
- :group 'magit-margin
- :type magit-log-margin--custom-type
- :initialize 'magit-custom-initialize-reset
- :set (apply-partially #'magit-margin-set-variable 'magit-log-mode))
-
-(defcustom magit-log-show-refname-after-summary nil
- "Whether to show refnames after commit summaries.
-This is useful if you use really long branch names."
- :package-version '(magit . "2.2.0")
- :group 'magit-log
- :type 'boolean)
-
-(defcustom magit-log-highlight-keywords t
- "Whether to highlight bracketed keywords in commit summaries."
- :package-version '(magit . "2.12.0")
- :group 'magit-log
- :type 'boolean)
-
-(defcustom magit-log-header-line-function 'magit-log-header-line-sentence
- "Function used to generate text shown in header line of log buffers."
- :package-version '(magit . "2.12.0")
- :group 'magit-log
- :type '(choice (function-item magit-log-header-line-arguments)
- (function-item magit-log-header-line-sentence)
- function))
-
-(defcustom magit-log-trace-definition-function 'which-function
- "Function used to determine the function at point.
-This is used by the command `magit-log-trace-definition'."
- :package-version '(magit . "2.90.0")
- :group 'magit-log
- :type '(choice (function-item which-function) function))
-
-(defface magit-log-graph
- '((((class color) (background light)) :foreground "grey30")
- (((class color) (background dark)) :foreground "grey80"))
- "Face for the graph part of the log output."
- :group 'magit-faces)
-
-(defface magit-log-author
- '((((class color) (background light)) :foreground "firebrick")
- (((class color) (background dark)) :foreground "tomato"))
- "Face for the author part of the log output."
- :group 'magit-faces)
-
-(defface magit-log-date
- '((((class color) (background light)) :foreground "grey30")
- (((class color) (background dark)) :foreground "grey80"))
- "Face for the date part of the log output."
- :group 'magit-faces)
-
-(defface magit-header-line-log-select
- '((t :inherit bold))
- "Face for the `header-line' in `magit-log-select-mode'."
- :group 'magit-faces)
-
-;;;; File Log
-
-(defcustom magit-log-buffer-file-locked t
- "Whether `magit-log-buffer-file' uses a dedicated buffer."
- :package-version '(magit . "2.7.0")
- :group 'magit-commands
- :group 'magit-log
- :type 'boolean)
-
-;;;; Select Mode
-
-(defcustom magit-log-select-arguments '("-n256" "--graph" "--decorate")
- "The log arguments used in `magit-log-select-mode' buffers."
- :package-version '(magit . "2.3.0")
- :group 'magit-log
- :type '(repeat (string :tag "Argument")))
-
-(defcustom magit-log-select-show-usage 'both
- "Whether to show usage information when selecting a commit from a log.
-The message can be shown in the `echo-area' or the `header-line', or in
-`both' places. If the value isn't one of these symbols, then it should
-be nil, in which case no usage information is shown."
- :package-version '(magit . "2.1.0")
- :group 'magit-log
- :type '(choice (const :tag "in echo-area" echo-area)
- (const :tag "in header-line" header-line)
- (const :tag "in both places" both)
- (const :tag "nowhere")))
-
-(defcustom magit-log-select-margin
- (list (nth 0 magit-log-margin)
- (nth 1 magit-log-margin)
- 'magit-log-margin-width t
- (nth 4 magit-log-margin))
- "Format of the margin in `magit-log-select-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the committer date. It can be one
- of `age' (to show the age of the commit), `age-abbreviated' (to
- abbreviate the time unit to a character), or a string (suitable
- for `format-time-string') to show the actual date.
-WIDTH controls the width of the margin. This exists for forward
- compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
- default.
-AUTHOR-WIDTH has to be an integer. When the name of the author
- is shown, then this specifies how much space is used to do so."
- :package-version '(magit . "2.9.0")
- :group 'magit-log
- :group 'magit-margin
- :type magit-log-margin--custom-type
- :initialize 'magit-custom-initialize-reset
- :set-after '(magit-log-margin)
- :set (apply-partially #'magit-margin-set-variable 'magit-log-select-mode))
-
-;;;; Cherry Mode
-
-(defcustom magit-cherry-sections-hook
- '(magit-insert-cherry-headers
- magit-insert-cherry-commits)
- "Hook run to insert sections into the cherry buffer."
- :package-version '(magit . "2.1.0")
- :group 'magit-log
- :type 'hook)
-
-(defcustom magit-cherry-margin
- (list (nth 0 magit-log-margin)
- (nth 1 magit-log-margin)
- 'magit-log-margin-width t
- (nth 4 magit-log-margin))
- "Format of the margin in `magit-cherry-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the committer date. It can be one
- of `age' (to show the age of the commit), `age-abbreviated' (to
- abbreviate the time unit to a character), or a string (suitable
- for `format-time-string') to show the actual date.
-WIDTH controls the width of the margin. This exists for forward
- compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
- default.
-AUTHOR-WIDTH has to be an integer. When the name of the author
- is shown, then this specifies how much space is used to do so."
- :package-version '(magit . "2.9.0")
- :group 'magit-log
- :group 'magit-margin
- :type magit-log-margin--custom-type
- :initialize 'magit-custom-initialize-reset
- :set-after '(magit-log-margin)
- :set (apply-partially #'magit-margin-set-variable 'magit-cherry-mode))
-
-;;;; Reflog Mode
-
-(defcustom magit-reflog-arguments '("-n256")
- "The log arguments used in `magit-reflog-mode' buffers."
- :package-version '(magit . "2.3.0")
- :group 'magit-git-arguments
- :type '(repeat (string :tag "Argument")))
-
-(defcustom magit-reflog-margin
- (list (nth 0 magit-log-margin)
- (nth 1 magit-log-margin)
- 'magit-log-margin-width nil
- (nth 4 magit-log-margin))
- "Format of the margin in `magit-reflog-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the committer date. It can be one
- of `age' (to show the age of the commit), `age-abbreviated' (to
- abbreviate the time unit to a character), or a string (suitable
- for `format-time-string') to show the actual date.
-WIDTH controls the width of the margin. This exists for forward
- compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
- default.
-AUTHOR-WIDTH has to be an integer. When the name of the author
- is shown, then this specifies how much space is used to do so."
- :package-version '(magit . "2.9.0")
- :group 'magit-log
- :group 'magit-margin
- :type magit-log-margin--custom-type
- :initialize 'magit-custom-initialize-reset
- :set-after '(magit-log-margin)
- :set (apply-partially #'magit-margin-set-variable 'magit-reflog-mode))
-
-(defface magit-reflog-commit '((t :foreground "green"))
- "Face for commit commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-amend '((t :foreground "magenta"))
- "Face for amend commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-merge '((t :foreground "green"))
- "Face for merge, checkout and branch commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-checkout '((t :foreground "blue"))
- "Face for checkout commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-reset '((t :foreground "red"))
- "Face for reset commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-rebase '((t :foreground "magenta"))
- "Face for rebase commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-cherry-pick '((t :foreground "green"))
- "Face for cherry-pick commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-remote '((t :foreground "cyan"))
- "Face for pull and clone commands in reflogs."
- :group 'magit-faces)
-
-(defface magit-reflog-other '((t :foreground "cyan"))
- "Face for other commands in reflogs."
- :group 'magit-faces)
-
-;;;; Log Sections
-
-(defcustom magit-log-section-commit-count 10
- "How many recent commits to show in certain log sections.
-How many recent commits `magit-insert-recent-commits' and
-`magit-insert-unpulled-from-upstream-or-recent' (provided
-the upstream isn't ahead of the current branch) show."
- :package-version '(magit . "2.1.0")
- :group 'magit-status
- :type 'number)
-
-(defcustom magit-log-section-arguments '("-n256" "--decorate")
- "The log arguments used in buffers that show other things besides logs."
- :package-version '(magit . "2.4.0")
- :group 'magit-git-arguments
- :group 'magit-log
- :group 'magit-status
- :type '(repeat (string :tag "Argument")))
-
-;;; Commands
-;;;; Popups
-
-(defvar magit-log-popup
- '(:variable magit-log-arguments
- :man-page "git-log"
- :switches ((?g "Show graph" "--graph")
- (?c "Show graph in color" "--color")
- (?d "Show refnames" "--decorate")
- (?S "Show signatures" "--show-signature")
- (?u "Show diffs" "--patch")
- (?s "Show diffstats" "--stat")
- (?h "Show header" "++header" magit-log++header)
- (?r "Show in reverse order" "--reverse")
- (?D "Simplify by decoration" "--simplify-by-decoration")
- (?f "Follow renames when showing single-file log" "--follow"))
- :options ((?n "Limit number of commits" "-n")
- (?f "Limit to files" "-- " magit-read-files)
- (?a "Limit to author" "--author=")
- (?o "Order commits by" "++order=" magit-log-select-order)
- (?g "Search messages" "--grep=")
- (?G "Search changes" "-G")
- (?S "Search occurrences" "-S")
- (?L "Trace line evolution" "-L" magit-read-file-trace))
- :actions ((?l "Log current" magit-log-current)
- (?L "Log local branches" magit-log-branches)
- (?r "Reflog current" magit-reflog-current)
- (?o "Log other" magit-log-other)
- (?b "Log all branches" magit-log-all-branches)
- (?O "Reflog other" magit-reflog-other)
- (?h "Log HEAD" magit-log-head)
- (?a "Log all references" magit-log-all)
- (?H "Reflog HEAD" magit-reflog-head))
- :default-action magit-log-current
- :max-action-columns 3))
-
-(defvar magit-log-mode-refresh-popup
- '(:variable magit-log-arguments
- :man-page "git-log"
- :switches ((?g "Show graph" "--graph")
- (?c "Show graph in color" "--color")
- (?d "Show refnames" "--decorate")
- (?S "Show signatures" "--show-signature")
- (?u "Show diffs" "--patch")
- (?s "Show diffstats" "--stat")
- (?r "Show in reverse order" "--reverse")
- (?D "Simplify by decoration" "--simplify-by-decoration")
- (?f "Follow renames when showing single-file log" "--follow"))
- :options ((?n "Limit number of commits" "-n")
- (?f "Limit to files" "-- " magit-read-files)
- (?a "Limit to author" "--author=")
- (?o "Order commits by" "++order=" magit-log-select-order)
- (?g "Search messages" "--grep=")
- (?G "Search changes" "-G")
- (?S "Search occurrences" "-S")
- (?L "Trace line evolution" "-L" magit-read-file-trace))
- :actions ((?g "Refresh" magit-log-refresh)
- (?L "Toggle margin" magit-toggle-margin)
- (?s "Set defaults" magit-log-set-default-arguments) nil
- (?w "Save defaults" magit-log-save-default-arguments))
- :max-action-columns 2))
-
-(defvar magit-reflog-mode-refresh-popup
- '(:variable magit-reflog-arguments
- :man-page "git-reflog"
- :options ((?n "Limit number of commits" "-n"))))
-
-(defvar magit-log-refresh-popup
- '(:variable magit-log-arguments
- :man-page "git-log"
- :switches ((?g "Show graph" "--graph")
- (?c "Show graph in color" "--color")
- (?d "Show refnames" "--decorate"))
- :options ((?n "Limit number of commits" "-n")
- (?o "Order commits by" "++order=" magit-log-select-order))
- :actions ("Refresh"
- (?g "buffer" magit-log-refresh)
- (?s "buffer and set defaults" magit-log-set-default-arguments)
- (?w "buffer and save defaults" magit-log-save-default-arguments)
- "Margin"
- (?L "toggle visibility" magit-toggle-margin)
- (?l "cycle style" magit-cycle-margin-style)
- (?d "toggle details" magit-toggle-margin-details))
- :max-action-columns 1))
-
-(magit-define-popup-keys-deferred 'magit-log-popup)
-(magit-define-popup-keys-deferred 'magit-log-mode-refresh-popup)
-(magit-define-popup-keys-deferred 'magit-log-refresh-popup)
-
-(defun magit-log-select-order (&rest _ignored)
- "Set one `--<value>-order' option in Git log.
-This encompasses the options `--author-date-order',
-`--date-order', and `--topo-order'."
- (magit-read-char-case "Order commits by " t
- (?t "[t]opography" "topo")
- (?a "[a]uthor date" "author-date")
- (?c "[c]ommitter date" "date")))
-
-;; This is a dummy procedure used to show help in `magit-log-popup'.
-(defun magit-log++header ()
- "Insert a header after each revision summary in Git log.
-Customize `magit-log-revision-headers-format' to change this
-header."
- nil)
-
-(defun magit-log-get-buffer-args ()
- (cond ((and magit-use-sticky-arguments
- (derived-mode-p 'magit-log-mode))
- (list (nth 1 magit-refresh-args)
- (nth 2 magit-refresh-args)))
- ((and (eq magit-use-sticky-arguments t)
- (--when-let (magit-mode-get-buffer 'magit-log-mode)
- (with-current-buffer it
- (list (nth 1 magit-refresh-args)
- (nth 2 magit-refresh-args))))))
- (t
- (list (default-value 'magit-log-arguments) nil))))
-
-(defun magit-log-arguments (&optional refresh)
- (cond ((memq magit-current-popup
- '(magit-log-popup magit-log-refresh-popup))
- (magit-popup-export-file-args magit-current-popup-args))
- ((and refresh (not (derived-mode-p 'magit-log-mode)))
- (list magit-log-section-arguments nil))
- (t
- (magit-log-get-buffer-args))))
-
-(defun magit-log-popup (arg)
- "Popup console for log commands."
- (interactive "P")
- (let ((magit-log-refresh-popup
- (pcase major-mode
- (`magit-log-mode magit-log-mode-refresh-popup)
- (_ magit-log-refresh-popup)))
- (magit-log-arguments
- (apply #'magit-popup-import-file-args (magit-log-get-buffer-args))))
- (magit-invoke-popup 'magit-log-popup nil arg)))
-
-;;;###autoload
-(defun magit-log-buffer-file-popup ()
- "Popup console for log commands.
-
-This is a variant of `magit-log-popup' which shows the same popup
-but which limits the log to the file being visited in the current
-buffer."
- (interactive)
- (if-let ((file (magit-file-relative-name)))
- (let ((magit-log-arguments
- (magit-popup-import-file-args
- (if-let ((buffer (magit-mode-get-buffer 'magit-log-mode)))
- (with-current-buffer buffer
- (nth 2 magit-refresh-args))
- (default-value 'magit-log-arguments))
- (list file))))
- (magit-invoke-popup 'magit-log-popup nil nil))
- (user-error "Buffer isn't visiting a file")))
-
-(defun magit-log-refresh-popup (arg)
- "Popup console for changing log arguments in the current buffer."
- (interactive "P")
- (magit-log-refresh-assert)
- (let ((magit-log-refresh-popup
- (cond ((derived-mode-p 'magit-log-select-mode)
- magit-log-refresh-popup)
- ((derived-mode-p 'magit-log-mode)
- (let ((def (copy-sequence magit-log-refresh-popup)))
- (plist-put def :switches (plist-get magit-log-popup :switches))
- (plist-put def :options (plist-get magit-log-popup :options))
- def))
- (t
- magit-log-refresh-popup)))
- (magit-log-arguments
- (cond ((derived-mode-p 'magit-log-select-mode)
- (cadr magit-refresh-args))
- ((derived-mode-p 'magit-log-mode)
- (magit-popup-import-file-args (nth 1 magit-refresh-args)
- (nth 2 magit-refresh-args)))
- (t
- magit-log-section-arguments))))
- (magit-invoke-popup 'magit-log-refresh-popup nil arg)))
-
-(defun magit-read-file-trace (&rest _ignored)
- (let ((file (magit-read-file-from-rev "HEAD" "File"))
- (trace (magit-read-string "Trace")))
- (concat trace (or (match-string 2 trace) ":") file)))
-
-;;;; Refresh Commands
-
-(defun magit-log-refresh (args files)
- "Set the local log arguments for the current buffer."
- (interactive (magit-log-arguments t))
- (magit-log-refresh-assert)
- (cond ((derived-mode-p 'magit-log-select-mode)
- (setcar (cdr magit-refresh-args) args))
- ((derived-mode-p 'magit-log-mode)
- (setcdr magit-refresh-args (list args files)))
- (t
- (setq-local magit-log-section-arguments args)))
- (magit-refresh))
-
-(defun magit-log-set-default-arguments (args files)
- "Set the global log arguments for the current buffer."
- (interactive (magit-log-arguments t))
- (magit-log-refresh-assert)
- (cond ((derived-mode-p 'magit-log-select-mode)
- (customize-set-variable 'magit-log-select-arguments args)
- (setcar (cdr magit-refresh-args) args))
- ((derived-mode-p 'magit-log-mode)
- (customize-set-variable 'magit-log-arguments args)
- (setcdr magit-refresh-args (list args files)))
- (t
- (customize-set-variable 'magit-log-section-arguments args)
- (kill-local-variable 'magit-log-section-arguments)))
- (magit-refresh))
-
-(defun magit-log-save-default-arguments (args files)
- "Set and save the global log arguments for the current buffer."
- (interactive (magit-log-arguments t))
- (magit-log-refresh-assert)
- (cond ((derived-mode-p 'magit-log-select-mode)
- (customize-save-variable 'magit-log-select-arguments args)
- (setcar (cdr magit-refresh-args) args))
- ((derived-mode-p 'magit-log-mode)
- (customize-save-variable 'magit-log-arguments args)
- (setcdr magit-refresh-args (list args files)))
- (t
- (customize-save-variable 'magit-log-section-arguments args)
- (kill-local-variable 'magit-log-section-arguments)))
- (magit-refresh))
-
-(defun magit-log-refresh-assert ()
- (cond ((derived-mode-p 'magit-reflog-mode)
- (user-error "Cannot change log arguments in reflog buffers"))
- ((derived-mode-p 'magit-cherry-mode)
- (user-error "Cannot change log arguments in cherry buffers"))))
-
-;;;; Log Commands
-
-(defvar magit-log-read-revs-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map crm-local-completion-map)
- (define-key map "\s" 'self-insert-command)
- map))
-
-(defun magit-log-read-revs (&optional use-current)
- (or (and use-current (--when-let (magit-get-current-branch) (list it)))
- (let ((collection `(,@(and (file-exists-p (magit-git-dir "FETCH_HEAD"))
- (list "FETCH_HEAD"))
- ,@(magit-list-refnames))))
- (split-string
- (magit-completing-read-multiple "Log rev,s" collection
- "\\(\\.\\.\\.?\\|[, ]\\)"
- (or (magit-branch-or-commit-at-point)
- (unless use-current
- (magit-get-previous-branch)))
- 'magit-revision-history
- magit-log-read-revs-map)
- "[, ]" t))))
-
-(defun magit-git-log (revs args files)
- (require 'magit)
- (magit-mode-setup #'magit-log-mode revs args files)
- (magit-log-goto-same-commit))
-
-;;;###autoload
-(defun magit-log-current (revs &optional args files)
- "Show log for the current branch.
-When `HEAD' is detached or with a prefix argument show log for
-one or more revs read from the minibuffer."
- (interactive (cons (magit-log-read-revs t)
- (magit-log-arguments)))
- (magit-git-log revs args files))
-
-;;;###autoload
-(defun magit-log-other (revs &optional args files)
- "Show log for one or more revs read from the minibuffer.
-The user can input any revision or revisions separated by a
-space, or even ranges, but only branches and tags, and a
-representation of the commit at point, are available as
-completion candidates."
- (interactive (cons (magit-log-read-revs)
- (magit-log-arguments)))
- (magit-git-log revs args files))
-
-;;;###autoload
-(defun magit-log-head (&optional args files)
- "Show log for `HEAD'."
- (interactive (magit-log-arguments))
- (magit-git-log (list "HEAD") args files))
-
-;;;###autoload
-(defun magit-log-branches (&optional args files)
- "Show log for all local branches and `HEAD'."
- (interactive (magit-log-arguments))
- (magit-git-log (if (magit-get-current-branch)
- (list "--branches")
- (list "HEAD" "--branches"))
- args files))
-
-;;;###autoload
-(defun magit-log-all-branches (&optional args files)
- "Show log for all local and remote branches and `HEAD'."
- (interactive (magit-log-arguments))
- (magit-git-log (if (magit-get-current-branch)
- (list "--branches" "--remotes")
- (list "HEAD" "--branches" "--remotes"))
- args files))
-
-;;;###autoload
-(defun magit-log-all (&optional args files)
- "Show log for all references and `HEAD'."
- (interactive (magit-log-arguments))
- (magit-git-log (if (magit-get-current-branch)
- (list "--all")
- (list "HEAD" "--all"))
- args files))
-
-;;;###autoload
-(defun magit-log-buffer-file (&optional follow beg end)
- "Show log for the blob or file visited in the current buffer.
-With a prefix argument or when `--follow' is part of
-`magit-log-arguments', then follow renames. When the region is
-active, restrict the log to the lines that the region touches."
- (interactive
- (cons current-prefix-arg
- (and (region-active-p)
- (magit-file-relative-name)
- (save-restriction
- (widen)
- (list (line-number-at-pos (region-beginning))
- (line-number-at-pos
- (let ((end (region-end)))
- (if (char-after end)
- end
- ;; Ensure that we don't get the line number
- ;; of a trailing newline.
- (1- end)))))))))
- (require 'magit)
- (if-let ((file (magit-file-relative-name)))
- (magit-mode-setup-internal
- #'magit-log-mode
- (list (list (or magit-buffer-refname
- (magit-get-current-branch)
- "HEAD"))
- (let ((args (car (magit-log-arguments))))
- (when (and follow (not (member "--follow" args)))
- (push "--follow" args))
- (when (and (file-regular-p
- (expand-file-name file (magit-toplevel)))
- beg end)
- (setq args (cons (format "-L%s,%s:%s" beg end file)
- (cl-delete "-L" args :test
- 'string-prefix-p)))
- (setq file nil))
- args)
- (and file (list file)))
- magit-log-buffer-file-locked)
- (user-error "Buffer isn't visiting a file"))
- (magit-log-goto-same-commit))
-
-;;;###autoload
-(defun magit-log-trace-definition (file fn rev)
- "Show log for the definition at point."
- (interactive (list (or (magit-file-relative-name)
- (user-error "Buffer isn't visiting a file"))
- (funcall magit-log-trace-definition-function)
- (or magit-buffer-refname
- (magit-get-current-branch)
- "HEAD")))
- (require 'magit)
- (magit-mode-setup-internal
- #'magit-log-mode
- (list (list rev)
- (cons (format "-L:%s:%s" (regexp-quote fn) file)
- (cl-delete "-L" (car (magit-log-arguments))
- :test 'string-prefix-p))
- nil)
- magit-log-buffer-file-locked)
- (magit-log-goto-same-commit))
-
-(defun magit-diff-trace-definition ()
- "Show log for the definition at point in a diff."
- (interactive)
- (let (buf pos)
- (save-window-excursion
- (call-interactively #'magit-diff-visit-file)
- (setq buf (current-buffer))
- (setq pos (point)))
- (save-excursion
- (with-current-buffer buf
- (goto-char pos)
- (call-interactively #'magit-log-trace-definition)))))
-
-;;;###autoload
-(defun magit-log-merged (commit branch &optional args files)
- "Show log for the merge of COMMIT into BRANCH.
-More precisely, find merge commit M that brought COMMIT into
-BRANCH, and show the log of the range \"M^..M\". This command
-requires git-when-merged, which is available from
-https://github.com/mhagger/git-when-merged."
- (interactive
- (append (let ((commit (magit-read-branch-or-commit "Commit")))
- (list commit
- (magit-read-other-branch "Merged into" commit)))
- (magit-log-arguments)))
- (unless (executable-find "git-when-merged")
- (user-error "This command requires git-when-merged (%s)"
- "https://github.com/mhagger/git-when-merged"))
- (magit-git-log
- (list (or (magit-git-string "when-merged" "--show-branch" commit branch)
- (user-error "Could not find when %s was merged into %s"
- commit branch)))
- args files))
-
-(defun magit-git-reflog (ref args)
- (require 'magit)
- (magit-mode-setup #'magit-reflog-mode ref args))
-
-;;;###autoload
-(defun magit-reflog-current (args)
- "Display the reflog of the current branch."
- (interactive (list magit-reflog-arguments))
- (magit-git-reflog (magit-get-current-branch) args))
-
-;;;###autoload
-(defun magit-reflog-other (ref args)
- "Display the reflog of a branch or another ref."
- (interactive (list (magit-read-local-branch-or-ref "Show reflog for")
- magit-reflog-arguments))
- (magit-git-reflog ref args))
-
-;;;###autoload
-(defun magit-reflog-head (args)
- "Display the `HEAD' reflog."
- (interactive (list magit-reflog-arguments))
- (magit-git-reflog "HEAD" args))
-
-;;;; Limit Commands
-
-(defun magit-log-toggle-commit-limit ()
- "Toggle the number of commits the current log buffer is limited to.
-If the number of commits is currently limited, then remove that
-limit. Otherwise set it to 256."
- (interactive)
- (magit-log-set-commit-limit (lambda (&rest _) nil)))
-
-(defun magit-log-double-commit-limit ()
- "Double the number of commits the current log buffer is limited to."
- (interactive)
- (magit-log-set-commit-limit '*))
-
-(defun magit-log-half-commit-limit ()
- "Half the number of commits the current log buffer is limited to."
- (interactive)
- (magit-log-set-commit-limit '/))
-
-(defun magit-log-set-commit-limit (fn)
- (let* ((val (car (magit-log-arguments t)))
- (arg (--first (string-match "^-n\\([0-9]+\\)?$" it) val))
- (num (and arg (string-to-number (match-string 1 arg))))
- (num (if num (funcall fn num 2) 256)))
- (setq val (delete arg val))
- (setcar (cdr magit-refresh-args)
- (if (and num (> num 0))
- (cons (format "-n%i" num) val)
- val)))
- (magit-refresh))
-
-(defun magit-log-get-commit-limit ()
- (--when-let (--first (string-match "^-n\\([0-9]+\\)?$" it)
- (car (magit-log-arguments t)))
- (string-to-number (match-string 1 it))))
-
-;;;; Other Commands
-
-(defun magit-log-bury-buffer (&optional arg)
- "Bury the current buffer or the revision buffer in the same frame.
-Like `magit-mode-bury-buffer' (which see) but with a negative
-prefix argument instead bury the revision buffer, provided it
-is displayed in the current frame."
- (interactive "p")
- (if (< arg 0)
- (let* ((buf (magit-mode-get-buffer 'magit-revision-mode))
- (win (and buf (get-buffer-window buf (selected-frame)))))
- (if win
- (with-selected-window win
- (with-current-buffer buf
- (magit-mode-bury-buffer (> (abs arg) 1))))
- (user-error "No revision buffer in this frame")))
- (magit-mode-bury-buffer (> arg 1))))
-
-;;;###autoload
-(defun magit-log-move-to-parent (&optional n)
- "Move to the Nth parent of the current commit."
- (interactive "p")
- (when (derived-mode-p 'magit-log-mode)
- (when (magit-section-match 'commit)
- (let* ((section (magit-current-section))
- (parent-rev (format "%s^%s" (oref section value) (or n 1))))
- (if-let ((parent-hash (magit-rev-parse "--short" parent-rev)))
- (if-let ((parent (--first (equal (oref section value)
- parent-hash)
- (magit-section-siblings section 'next))))
- (magit-section-goto parent)
- (user-error
- (substitute-command-keys
- (concat "Parent " parent-hash " not found. Try typing "
- "\\[magit-log-double-commit-limit] first"))))
- (user-error "Parent %s does not exist" parent-rev))))))
-
-;;; Log Mode
-
-(defvar magit-log-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-mode-map)
- (define-key map "\C-c\C-b" 'magit-go-backward)
- (define-key map "\C-c\C-f" 'magit-go-forward)
- (define-key map "\C-c\C-n" 'magit-log-move-to-parent)
- (define-key map "=" 'magit-log-toggle-commit-limit)
- (define-key map "+" 'magit-log-double-commit-limit)
- (define-key map "-" 'magit-log-half-commit-limit)
- (define-key map "q" 'magit-log-bury-buffer)
- map)
- "Keymap for `magit-log-mode'.")
-
-(define-derived-mode magit-log-mode magit-mode "Magit Log"
- "Mode for looking at Git log.
-
-This mode is documented in info node `(magit)Log Buffer'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-visit-thing] or \\[magit-diff-show-or-scroll-up] \
-to visit the commit at point.
-
-Type \\[magit-branch-popup] to see available branch commands.
-Type \\[magit-merge-popup] to merge the branch or commit at point.
-Type \\[magit-cherry-pick-popup] to apply the commit at point.
-Type \\[magit-reset] to reset `HEAD' to the commit at point.
-
-\\{magit-log-mode-map}"
- :group 'magit-log
- (hack-dir-local-variables-non-file-buffer)
- (setq imenu-prev-index-position-function
- 'magit-imenu--log-prev-index-position-function)
- (setq imenu-extract-index-name-function
- 'magit-imenu--log-extract-index-name-function)
- (setq-local bookmark-make-record-function
- 'magit-bookmark--log-make-record))
-
-(defvar magit-log-disable-graph-hack-args
- '("-G" "--grep" "--author")
- "Arguments which disable the graph speedup hack.")
-
-(defun magit-log-refresh-buffer (revs args files)
- (magit-set-header-line-format
- (funcall magit-log-header-line-function revs args files))
- (if (= (length files) 1)
- (unless (magit-file-tracked-p (car files))
- (setq args (cons "--full-history" args)))
- (setq args (remove "--follow" args)))
- (when (--any-p (string-match-p
- (concat "^" (regexp-opt magit-log-remove-graph-args)) it)
- args)
- (setq args (remove "--graph" args)))
- (unless (member "--graph" args)
- (setq args (remove "--color" args)))
- (when-let ((limit (magit-log-get-commit-limit))
- (limit (* 2 limit)) ; increase odds for complete graph
- (count (and (= (length revs) 1)
- (> limit 1024) ; otherwise it's fast enough
- (setq revs (car revs))
- (not (string-match-p "\\.\\." revs))
- (not (member revs '("--all" "--branches")))
- (-none-p (lambda (arg)
- (--any-p (string-prefix-p it arg)
- magit-log-disable-graph-hack-args))
- args)
- (magit-git-string "rev-list" "--count"
- "--first-parent" args revs))))
- (setq revs (if (< (string-to-number count) limit)
- revs
- (format "%s~%s..%s" revs limit revs))))
- (magit-insert-section (logbuf)
- (magit-insert-log revs args files)))
-
-(defun magit-log-header-line-arguments (revs args files)
- "Return string describing some of the used arguments."
- (mapconcat (lambda (arg)
- (if (string-match-p " " arg)
- (prin1 arg)
- arg))
- `("git" "log" ,@args ,@revs "--" ,@files)
- " "))
-
-(defun magit-log-header-line-sentence (revs args files)
- "Return string containing all arguments."
- (concat "Commits in "
- (mapconcat #'identity revs " ")
- (and (member "--reverse" args)
- " in reverse")
- (and files (concat " touching "
- (mapconcat 'identity files " ")))
- (--some (and (string-prefix-p "-L" it)
- (concat " " it))
- args)))
-
-(defun magit-insert-log (revs &optional args files)
- "Insert a log section.
-Do not add this to a hook variable."
- (let ((magit-git-global-arguments
- (remove "--literal-pathspecs" magit-git-global-arguments)))
- (magit-git-wash (apply-partially #'magit-log-wash-log 'log)
- "log"
- (format "--format=%s%%h%s%%x00%s%%x00%%aN%%x00%%at%%x00%%s%s"
- (if (and (member "--left-right" args)
- (not (member "--graph" args)))
- "%m "
- "")
- (if (member "--decorate" args) "%d" "")
- (if (member "--show-signature" args)
- (progn (setq args (remove "--show-signature" args)) "%G?")
- "")
- (if (member "++header" args)
- (if (member "--graph" (setq args (remove "++header" args)))
- (concat "\n" magit-log-revision-headers-format "\n")
- (concat "\n " magit-log-revision-headers-format " \n"))
- ""))
- (progn
- (--when-let (--first (string-match "^\\+\\+order=\\(.+\\)$" it) args)
- (setq args (cons (format "--%s-order" (match-string 1 it))
- (remove it args))))
- (when (member "--decorate" args)
- (setq args (cons "--decorate=full" (remove "--decorate" args))))
- (when (member "--reverse" args)
- (setq args (remove "--graph" args)))
- args)
- "--use-mailmap" "--no-prefix" revs "--" files)))
-
-(defvar magit-commit-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-show-commit)
- (define-key map "a" 'magit-cherry-apply)
- map)
- "Keymap for `commit' sections.")
-
-(defvar magit-module-commit-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-show-commit)
- map)
- "Keymap for `module-commit' sections.")
-
-(defconst magit-log-heading-re
- (concat "^"
- "\\(?4:[-_/|\\*o<>. ]*\\)" ; graph
- "\\(?1:[0-9a-fA-F]+\\)" ; sha1
- "\\(?3:[^\0\n]+)\\)?\0" ; refs
- "\\(?7:[BGUXYREN]\\)?\0" ; gpg
- "\\(?5:[^\0\n]*\\)\0" ; author
- ;; Note: Date is optional because, prior to Git v2.19.0,
- ;; `git rebase -i --root` corrupts the root's author date.
- "\\(?6:[^\0\n]*\\)\0" ; date
- "\\(?2:.*\\)$")) ; msg
-
-(defconst magit-log-cherry-re
- (concat "^"
- "\\(?8:[-+]\\) " ; cherry
- "\\(?1:[0-9a-fA-F]+\\) " ; sha1
- "\\(?2:.*\\)$")) ; msg
-
-(defconst magit-log-module-re
- (concat "^"
- "\\(?:\\(?11:[<>]\\) \\)?" ; side
- "\\(?1:[0-9a-fA-F]+\\) " ; sha1
- "\\(?2:.*\\)$")) ; msg
-
-(defconst magit-log-bisect-vis-re
- (concat "^"
- "\\(?4:[-_/|\\*o<>. ]*\\)" ; graph
- "\\(?1:[0-9a-fA-F]+\\)" ; sha1
- "\\(?3:[^\0\n]+)\\)?\0" ; refs
- "\\(?2:.*\\)$")) ; msg
-
-(defconst magit-log-bisect-log-re
- (concat "^# "
- "\\(?3:bad:\\|skip:\\|good:\\) " ; "refs"
- "\\[\\(?1:[^]\n]+\\)\\] " ; sha1
- "\\(?2:.*\\)$")) ; msg
-
-(defconst magit-log-reflog-re
- (concat "^"
- "\\(?1:[^\0\n]+\\)\0" ; sha1
- "\\(?5:[^\0\n]*\\)\0" ; author
- "\\(?:\\(?:[^@\n]+@{\\(?6:[^}\n]+\\)}\0" ; date
- "\\(?10:merge \\|autosave \\|restart \\|[^:\n]+: \\)?" ; refsub
- "\\(?2:.*\\)?\\)\\|\0\\)$")) ; msg
-
-(defconst magit-reflog-subject-re
- (concat "\\(?1:[^ ]+\\) ?" ; command
- "\\(?2:\\(?: ?-[^ ]+\\)+\\)?" ; option
- "\\(?: ?(\\(?3:[^)]+\\))\\)?")) ; type
-
-(defconst magit-log-stash-re
- (concat "^"
- "\\(?1:[^\0\n]+\\)\0" ; "sha1"
- "\\(?5:[^\0\n]*\\)\0" ; author
- "\\(?6:[^\0\n]+\\)\0" ; date
- "\\(?2:.*\\)$")) ; msg
-
-(defvar magit-log-count nil)
-
-(defvar magit-log-format-message-function 'magit-log-propertize-keywords)
-
-(defun magit-log-wash-log (style args)
- (setq args (-flatten args))
- (when (and (member "--graph" args)
- (member "--color" args))
- (let ((ansi-color-apply-face-function
- (lambda (beg end face)
- (put-text-property beg end 'font-lock-face
- (or face 'magit-log-graph)))))
- (ansi-color-apply-on-region (point-min) (point-max))))
- (when (eq style 'cherry)
- (reverse-region (point-min) (point-max)))
- (let ((magit-log-count 0))
- (magit-wash-sequence (apply-partially 'magit-log-wash-rev style
- (magit-abbrev-length)))
- (if (derived-mode-p 'magit-log-mode)
- (when (eq magit-log-count (magit-log-get-commit-limit))
- (magit-insert-section (longer)
- (insert-text-button
- (substitute-command-keys
- (format "Type \\<%s>\\[%s] to show more history"
- 'magit-log-mode-map
- 'magit-log-double-commit-limit))
- 'action (lambda (_button)
- (magit-log-double-commit-limit))
- 'follow-link t
- 'mouse-face 'magit-section-highlight)))
- (insert ?\n))))
-
-(cl-defun magit-log-wash-rev (style abbrev)
- (when (derived-mode-p 'magit-log-mode)
- (cl-incf magit-log-count))
- (looking-at (pcase style
- (`log magit-log-heading-re)
- (`cherry magit-log-cherry-re)
- (`module magit-log-module-re)
- (`reflog magit-log-reflog-re)
- (`stash magit-log-stash-re)
- (`bisect-vis magit-log-bisect-vis-re)
- (`bisect-log magit-log-bisect-log-re)))
- (magit-bind-match-strings
- (hash msg refs graph author date gpg cherry _ refsub side) nil
- (setq msg (substring-no-properties msg))
- (when refs
- (setq refs (substring-no-properties refs)))
- (let ((align (or (eq style 'cherry)
- (not (member "--stat" (cadr magit-refresh-args)))))
- (non-graph-re (if (eq style 'bisect-vis)
- magit-log-bisect-vis-re
- magit-log-heading-re)))
- (magit-delete-line)
- ;; If the reflog entries have been pruned, the output of `git
- ;; reflog show' includes a partial line that refers to the hash
- ;; of the youngest expired reflog entry.
- (when (and (eq style 'reflog) (not date))
- (cl-return-from magit-log-wash-rev t))
- (magit-insert-section section (commit hash)
- (pcase style
- (`stash (oset section type 'stash))
- (`module (oset section type 'module-commit))
- (`bisect-log (setq hash (magit-rev-parse "--short" hash))))
- (when cherry
- (when (and (derived-mode-p 'magit-refs-mode)
- magit-refs-show-commit-count)
- (insert (make-string (1- magit-refs-focus-column-width) ?\s)))
- (insert (propertize cherry 'face (if (string= cherry "-")
- 'magit-cherry-equivalent
- 'magit-cherry-unmatched)))
- (insert ?\s))
- (when side
- (insert (propertize side 'face (if (string= side "<")
- 'magit-cherry-equivalent
- 'magit-cherry-unmatched)))
- (insert ?\s))
- (when align
- (insert (propertize hash 'face 'magit-hash) ?\s))
- (when graph
- (insert graph))
- (unless align
- (insert (propertize hash 'face 'magit-hash) ?\s))
- (when (and refs (not magit-log-show-refname-after-summary))
- (insert (magit-format-ref-labels refs) ?\s))
- (when (eq style 'reflog)
- (insert (format "%-2s " (1- magit-log-count)))
- (when refsub
- (insert (magit-reflog-format-subject
- (substring refsub 0 (if (string-match-p ":" refsub) -2 -1))))))
- (when msg
- (when gpg
- (setq msg (propertize msg 'face
- (pcase (aref gpg 0)
- (?G 'magit-signature-good)
- (?B 'magit-signature-bad)
- (?U 'magit-signature-untrusted)
- (?X 'magit-signature-expired)
- (?Y 'magit-signature-expired-key)
- (?R 'magit-signature-revoked)
- (?E 'magit-signature-error)))))
- (insert (funcall magit-log-format-message-function hash msg)))
- (when (and refs magit-log-show-refname-after-summary)
- (insert ?\s)
- (insert (magit-format-ref-labels refs)))
- (insert ?\n)
- (when (memq style '(log reflog stash))
- (goto-char (line-beginning-position))
- (when (and refsub
- (string-match "\\`\\([^ ]\\) \\+\\(..\\)\\(..\\)" date))
- (setq date (+ (string-to-number (match-string 1 date))
- (* (string-to-number (match-string 2 date)) 60 60)
- (* (string-to-number (match-string 3 date)) 60))))
- (save-excursion
- (backward-char)
- (magit-log-format-margin hash author date)))
- (when (and (eq style 'cherry)
- (magit-buffer-margin-p))
- (save-excursion
- (backward-char)
- (apply #'magit-log-format-margin hash
- (split-string (magit-rev-format "%aN%x00%ct" hash) "\0"))))
- (when (and graph
- (not (eobp))
- (not (looking-at non-graph-re)))
- (when (looking-at " ")
- (magit-insert-heading)
- (delete-char 1)
- (magit-insert-section (commit-header)
- (forward-line)
- (magit-insert-heading)
- (re-search-forward " ")
- (backward-delete-char 1)
- (forward-char)
- (insert ?\n))
- (delete-char 1))
- (if (looking-at "^\\(---\\|\n\s\\|\ndiff\\)")
- (let ((limit (save-excursion
- (and (re-search-forward non-graph-re nil t)
- (match-beginning 0)))))
- (unless (oref magit-insert-section--current content)
- (magit-insert-heading))
- (delete-char (if (looking-at "\n") 1 4))
- (magit-diff-wash-diffs (list "--stat") limit))
- (when align
- (setq align (make-string (1+ abbrev) ? )))
- (when (and (not (eobp)) (not (looking-at non-graph-re)))
- (when align
- (setq align (make-string (1+ abbrev) ? )))
- (while (and (not (eobp)) (not (looking-at non-graph-re)))
- (when align
- (save-excursion (insert align)))
- (magit-make-margin-overlay)
- (forward-line))
- ;; When `--format' is used and its value isn't one of the
- ;; predefined formats, then `git-log' does not insert a
- ;; separator line.
- (save-excursion
- (forward-line -1)
- (looking-at "[-_/|\\*o<>. ]*"))
- (setq graph (match-string 0))
- (unless (string-match-p "[/\\]" graph)
- (insert graph ?\n))))))))
- t)
-
-(defun magit-log-propertize-keywords (_rev msg)
- (let ((start 0))
- (when (string-match "^\\(squash\\|fixup\\)! " msg start)
- (setq start (match-end 0))
- (put-text-property (match-beginning 0)
- (match-end 0)
- 'face 'magit-keyword-squash msg))
- (while (string-match "\\[[^[]*\\]" msg start)
- (setq start (match-end 0))
- (when magit-log-highlight-keywords
- (put-text-property (match-beginning 0)
- (match-end 0)
- 'face 'magit-keyword msg))))
- msg)
-
-(defun magit-log-maybe-show-more-commits (section)
- "When point is at the end of a log buffer, insert more commits.
-
-Log buffers end with a button \"Type + to show more history\".
-When the use of a section movement command puts point on that
-button, then automatically show more commits, without the user
-having to press \"+\".
-
-This function is called by `magit-section-movement-hook' and
-exists mostly for backward compatibility reasons."
- (when (and (eq (oref section type) 'longer)
- magit-log-auto-more)
- (magit-log-double-commit-limit)
- (forward-line -1)
- (magit-section-forward)))
-
-(defvar magit--update-revision-buffer nil)
-
-(defun magit-log-maybe-update-revision-buffer (&optional _)
- "When moving in the log buffer, update the revision buffer.
-If there is no revision buffer in the same frame, then do nothing."
- (when (derived-mode-p 'magit-log-mode)
- (magit-log-maybe-update-revision-buffer-1)))
-
-(defun magit-log-maybe-update-revision-buffer-1 ()
- (unless magit--update-revision-buffer
- (when-let ((commit (magit-section-value-if 'commit))
- (buffer (magit-mode-get-buffer 'magit-revision-mode nil t)))
- (setq magit--update-revision-buffer (list commit buffer))
- (run-with-idle-timer
- magit-update-other-window-delay nil
- (let ((args (magit-show-commit--arguments)))
- (lambda ()
- (pcase-let ((`(,rev ,buf) magit--update-revision-buffer))
- (setq magit--update-revision-buffer nil)
- (when (buffer-live-p buf)
- (let ((magit-display-buffer-noselect t))
- (apply #'magit-show-commit rev args))))
- (setq magit--update-revision-buffer nil)))))))
-
-(defvar magit--update-blob-buffer nil)
-
-(defun magit-log-maybe-update-blob-buffer (&optional _)
- "When moving in the log buffer, update the blob buffer.
-If there is no blob buffer in the same frame, then do nothing."
- (when (derived-mode-p 'magit-log-mode)
- (magit-log-maybe-update-blob-buffer-1)))
-
-(defun magit-log-maybe-update-blob-buffer-1 ()
- (unless magit--update-revision-buffer
- (when-let ((commit (magit-section-value-if 'commit))
- (buffer (--first (with-current-buffer it magit-buffer-revision)
- (mapcar #'window-buffer (window-list)))))
- (setq magit--update-blob-buffer (list commit buffer))
- (run-with-idle-timer
- magit-update-other-window-delay nil
- (lambda ()
- (pcase-let ((`(,rev ,buf) magit--update-blob-buffer))
- (setq magit--update-blob-buffer nil)
- (when (buffer-live-p buf)
- (save-excursion
- (with-selected-window (get-buffer-window buf)
- (with-current-buffer buf
- (magit-blob-visit (list (magit-rev-parse rev)
- (magit-file-relative-name
- magit-buffer-file-name))
- (line-number-at-pos))))))))))))
-
-(defun magit-log-goto-same-commit (&optional default)
- (let ((prev magit-previous-section))
- (when-let ((rev (cond ((and prev (magit-section-match 'commit prev))
- (oref prev value))
- ((and prev (magit-section-match 'branch prev))
- (magit-rev-format "%h" (oref prev value)))
- (default (magit-rev-format "%h" default))))
- (same (--first (equal (oref it value) rev)
- (oref magit-root-section children))))
- (goto-char (oref same start)))))
-
-;;; Log Margin
-
-(defvar-local magit-log-margin-show-shortstat nil)
-
-(defun magit-toggle-log-margin-style ()
- "Toggle between the regular and the shortstat margin style.
-The shortstat style is experimental and rather slow."
- (interactive)
- (setq magit-log-margin-show-shortstat
- (not magit-log-margin-show-shortstat))
- (magit-set-buffer-margin nil t))
-
-(defun magit-log-format-margin (rev author date)
- (when-let ((option (magit-margin-option)))
- (if magit-log-margin-show-shortstat
- (magit-log-format-shortstat-margin rev)
- (pcase-let ((`(,_ ,style ,width ,details ,details-width)
- (or magit-buffer-margin
- (symbol-value option))))
- (magit-make-margin-overlay
- (concat (and details
- (concat (propertize (truncate-string-to-width
- (or author "")
- details-width
- nil ?\s (make-string 1 magit-ellipsis))
- 'face 'magit-log-author)
- " "))
- (propertize
- (if (stringp style)
- (format-time-string
- style
- (seconds-to-time (string-to-number date)))
- (pcase-let* ((abbr (eq style 'age-abbreviated))
- (`(,cnt ,unit) (magit--age date abbr)))
- (format (format (if abbr "%%2i%%-%ic" "%%2i %%-%is")
- (- width (if details (1+ details-width) 0)))
- cnt unit)))
- 'face 'magit-log-date)))))))
-
-(defun magit-log-format-shortstat-margin (rev)
- (magit-make-margin-overlay
- (if-let ((line (and rev (magit-git-string
- "show" "--format=" "--shortstat" rev))))
- (if (string-match "\
-\\([0-9]+\\) files? changed, \
-\\(?:\\([0-9]+\\) insertions?(\\+)\\)?\
-\\(?:\\(?:, \\)?\\([0-9]+\\) deletions?(-)\\)?\\'" line)
- (magit-bind-match-strings (files add del) line
- (format
- "%5s %5s%4s"
- (if add
- (propertize (format "%s+" add) 'face 'magit-diffstat-added)
- "")
- (if del
- (propertize (format "%s-" del) 'face 'magit-diffstat-removed)
- "")
- files))
- "")
- "")))
-
-(defun magit-log-margin-width (style details details-width)
- (if magit-log-margin-show-shortstat
- 16
- (+ (if details (1+ details-width) 0)
- (if (stringp style)
- (length (format-time-string style))
- (+ 2 ; two digits
- 1 ; trailing space
- (if (eq style 'age-abbreviated)
- 1 ; single character
- (+ 1 ; gap after digits
- (apply #'max (--map (max (length (nth 1 it))
- (length (nth 2 it)))
- magit--age-spec)))))))))
-
-;;; Select Mode
-
-(defvar magit-log-select-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-log-mode-map)
- (define-key map "\C-c\C-b" 'undefined)
- (define-key map "\C-c\C-f" 'undefined)
- (define-key map "." 'magit-log-select-pick)
- (define-key map "e" 'magit-log-select-pick)
- (define-key map "\C-c\C-c" 'magit-log-select-pick)
- (define-key map "q" 'magit-log-select-quit)
- (define-key map "\C-c\C-k" 'magit-log-select-quit)
- map)
- "Keymap for `magit-log-select-mode'.")
-
-(put 'magit-log-select-pick :advertised-binding [?\C-c ?\C-c])
-(put 'magit-log-select-quit :advertised-binding [?\C-c ?\C-k])
-
-(define-derived-mode magit-log-select-mode magit-log-mode "Magit Select"
- "Mode for selecting a commit from history.
-
-This mode is documented in info node `(magit)Select from Log'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-visit-thing] or \\[magit-diff-show-or-scroll-up] \
-to visit the commit at point.
-
-\\<magit-log-select-mode-map>\
-Type \\[magit-log-select-pick] to select the commit at point.
-Type \\[magit-log-select-quit] to abort without selecting a commit."
- :group 'magit-log
- (hack-dir-local-variables-non-file-buffer))
-
-(defun magit-log-select-refresh-buffer (rev args)
- (magit-insert-section (logbuf)
- (magit-insert-log rev args)))
-
-(defvar-local magit-log-select-pick-function nil)
-(defvar-local magit-log-select-quit-function nil)
-
-(defun magit-log-select (pick &optional msg quit branch args initial)
- (declare (indent defun))
- (magit-mode-setup #'magit-log-select-mode
- (or branch (magit-get-current-branch) "HEAD")
- (append args magit-log-select-arguments))
- (magit-log-goto-same-commit initial)
- (setq magit-log-select-pick-function pick)
- (setq magit-log-select-quit-function quit)
- (when magit-log-select-show-usage
- (let ((pick (propertize (substitute-command-keys
- "\\[magit-log-select-pick]")
- 'face
- 'magit-header-line-key))
- (quit (propertize (substitute-command-keys
- "\\[magit-log-select-quit]")
- 'face
- 'magit-header-line-key)))
- (setq msg (format-spec
- (if msg
- (if (string-suffix-p "," msg)
- (concat msg " or %q to abort")
- msg)
- "Type %p to select commit at point, or %q to abort")
- `((?p . ,pick)
- (?q . ,quit)))))
- (add-face-text-property 0 (length msg) 'magit-header-line-log-select t msg)
- (when (memq magit-log-select-show-usage '(both header-line))
- (magit-set-header-line-format msg))
- (when (memq magit-log-select-show-usage '(both echo-area))
- (message "%s" (substring-no-properties msg)))))
-
-(defun magit-log-select-pick ()
- "Select the commit at point and act on it.
-Call `magit-log-select-pick-function' with the selected
-commit as argument."
- (interactive)
- (let ((fun magit-log-select-pick-function)
- (rev (magit-commit-at-point)))
- (magit-mode-bury-buffer 'kill)
- (funcall fun rev)))
-
-(defun magit-log-select-quit ()
- "Abort selecting a commit, don't act on any commit."
- (interactive)
- (magit-mode-bury-buffer 'kill)
- (when magit-log-select-quit-function
- (funcall magit-log-select-quit-function)))
-
-;;; Cherry Mode
-
-(defvar magit-cherry-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-mode-map)
- (define-key map "q" 'magit-log-bury-buffer)
- (define-key map "L" 'magit-margin-popup)
- map)
- "Keymap for `magit-cherry-mode'.")
-
-(define-derived-mode magit-cherry-mode magit-mode "Magit Cherry"
- "Mode for looking at commits not merged upstream.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-visit-thing] or \\[magit-diff-show-or-scroll-up] \
-to visit the commit at point.
-
-Type \\[magit-cherry-pick-popup] to apply the commit at point.
-
-\\{magit-cherry-mode-map}"
- :group 'magit-log
- (hack-dir-local-variables-non-file-buffer)
- (setq imenu-create-index-function
- 'magit-imenu--cherry-create-index-function)
- (setq-local bookmark-make-record-function
- 'magit-bookmark--cherry-make-record))
-
-;;;###autoload
-(defun magit-cherry (head upstream)
- "Show commits in a branch that are not merged in the upstream branch."
- (interactive
- (let ((head (magit-read-branch "Cherry head")))
- (list head (magit-read-other-branch "Cherry upstream" head
- (magit-get-upstream-branch head)))))
- (require 'magit)
- (magit-mode-setup #'magit-cherry-mode upstream head))
-
-(defun magit-cherry-refresh-buffer (_upstream _head)
- (magit-insert-section (cherry)
- (magit-run-section-hook 'magit-cherry-sections-hook)))
-
-(defun magit-insert-cherry-headers ()
- "Insert headers appropriate for `magit-cherry-mode' buffers."
- (magit-insert-head-branch-header (nth 1 magit-refresh-args))
- (magit-insert-upstream-branch-header (nth 1 magit-refresh-args)
- (nth 0 magit-refresh-args)
- "Upstream: ")
- (insert ?\n))
-
-(defun magit-insert-cherry-commits ()
- "Insert commit sections into a `magit-cherry-mode' buffer."
- (magit-insert-section (cherries)
- (magit-insert-heading "Cherry commits:")
- (magit-git-wash (apply-partially 'magit-log-wash-log 'cherry)
- "cherry" "-v" "--abbrev" magit-refresh-args)))
-
-;;; Reflog Mode
-
-(defvar magit-reflog-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-log-mode-map)
- (define-key map "L" 'magit-margin-popup)
- map)
- "Keymap for `magit-reflog-mode'.")
-
-(define-derived-mode magit-reflog-mode magit-log-mode "Magit Reflog"
- "Mode for looking at Git reflog.
-
-This mode is documented in info node `(magit)Reflog'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-visit-thing] or \\[magit-diff-show-or-scroll-up] \
-to visit the commit at point.
-
-Type \\[magit-cherry-pick-popup] to apply the commit at point.
-Type \\[magit-reset] to reset `HEAD' to the commit at point.
-
-\\{magit-reflog-mode-map}"
- :group 'magit-log
- (hack-dir-local-variables-non-file-buffer)
- (setq-local bookmark-make-record-function
- 'magit-bookmark--reflog-make-record))
-
-(defun magit-reflog-refresh-buffer (ref args)
- (magit-set-header-line-format (concat "Reflog for " ref))
- (magit-insert-section (reflogbuf)
- (magit-git-wash (apply-partially 'magit-log-wash-log 'reflog)
- "reflog" "show" "--format=%h%x00%aN%x00%gd%x00%gs" "--date=raw"
- args ref "--")))
-
-(defvar magit-reflog-labels
- '(("commit" . magit-reflog-commit)
- ("amend" . magit-reflog-amend)
- ("merge" . magit-reflog-merge)
- ("checkout" . magit-reflog-checkout)
- ("branch" . magit-reflog-checkout)
- ("reset" . magit-reflog-reset)
- ("rebase" . magit-reflog-rebase)
- ("cherry-pick" . magit-reflog-cherry-pick)
- ("initial" . magit-reflog-commit)
- ("pull" . magit-reflog-remote)
- ("clone" . magit-reflog-remote)
- ("autosave" . magit-reflog-commit)
- ("restart" . magit-reflog-reset)))
-
-(defun magit-reflog-format-subject (subject)
- (let* ((match (string-match magit-reflog-subject-re subject))
- (command (and match (match-string 1 subject)))
- (option (and match (match-string 2 subject)))
- (type (and match (match-string 3 subject)))
- (label (if (string= command "commit")
- (or type command)
- command))
- (text (if (string= command "commit")
- label
- (mapconcat #'identity
- (delq nil (list command option type))
- " "))))
- (format "%-16s "
- (propertize text 'face
- (or (cdr (assoc label magit-reflog-labels))
- 'magit-reflog-other)))))
-
-;;; Log Sections
-;;;; Standard Log Sections
-
-(defvar magit-unpulled-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-diff-dwim)
- map)
- "Keymap for `unpulled' sections.")
-
-(magit-define-section-jumper magit-jump-to-unpulled-from-upstream
- "Unpulled from @{upstream}" unpulled "..@{upstream}")
-
-(defun magit-insert-unpulled-from-upstream ()
- "Insert commits that haven't been pulled from the upstream yet."
- (when (magit-git-success "rev-parse" "@{upstream}")
- (magit-insert-section (unpulled "..@{upstream}" t)
- (magit-insert-heading
- (format (propertize "Unpulled from %s:" 'face 'magit-section-heading)
- (magit-get-upstream-branch)))
- (magit-insert-log "..@{upstream}" magit-log-section-arguments))))
-
-(magit-define-section-jumper magit-jump-to-unpulled-from-pushremote
- "Unpulled from <push-remote>" unpulled
- (concat ".." (magit-get-push-branch)))
-
-(defun magit-insert-unpulled-from-pushremote ()
- "Insert commits that haven't been pulled from the push-remote yet."
- (--when-let (magit-get-push-branch)
- (unless (and (equal (magit-rev-name it)
- (magit-rev-name "@{upstream}"))
- (or (memq 'magit-insert-unpulled-from-upstream
- magit-status-sections-hook)
- (memq 'magit-insert-unpulled-from-upstream-or-recent
- magit-status-sections-hook)))
- (magit-insert-section (unpulled (concat ".." it) t)
- (magit-insert-heading
- (format (propertize "Unpulled from %s:" 'face 'magit-section-heading)
- (propertize it 'face 'magit-branch-remote)))
- (magit-insert-log (concat ".." it) magit-log-section-arguments)))))
-
-(defvar magit-unpushed-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-diff-dwim)
- map)
- "Keymap for `unpushed' sections.")
-
-(magit-define-section-jumper magit-jump-to-unpushed-to-upstream
- "Unpushed to @{upstream}" unpushed "@{upstream}..")
-
-(defun magit-insert-unpushed-to-upstream-or-recent ()
- "Insert section showing unpushed or other recent commits.
-If an upstream is configured for the current branch and it is
-behind of the current branch, then show the commits that have
-not yet been pushed into the upstream branch. If no upstream is
-configured or if the upstream is not behind of the current branch,
-then show the last `magit-log-section-commit-count' commits."
- (let ((upstream (magit-rev-parse "@{upstream}")))
- (if (or (not upstream)
- (magit-rev-ancestor-p "HEAD" upstream))
- (magit-insert-recent-commits 'unpushed "@{upstream}..")
- (magit-insert-unpushed-to-upstream))))
-
-(defun magit-insert-unpushed-to-upstream ()
- "Insert commits that haven't been pushed to the upstream yet."
- (when (magit-git-success "rev-parse" "@{upstream}")
- (magit-insert-section (unpushed "@{upstream}..")
- (magit-insert-heading
- (format (propertize "Unmerged into %s:" 'face 'magit-section-heading)
- (magit-get-upstream-branch)))
- (magit-insert-log "@{upstream}.." magit-log-section-arguments))))
-
-(defun magit-insert-recent-commits (&optional type value)
- "Insert section showing recent commits.
-Show the last `magit-log-section-commit-count' commits."
- (let* ((start (format "HEAD~%s" magit-log-section-commit-count))
- (range (and (magit-rev-verify start)
- (concat start "..HEAD"))))
- (magit-insert-section ((eval (or type 'recent))
- (or value range)
- t)
- (magit-insert-heading "Recent commits")
- (magit-insert-log range
- (cons (format "-n%d" magit-log-section-commit-count)
- (--remove (string-prefix-p "-n" it)
- magit-log-section-arguments))))))
-
-(magit-define-section-jumper magit-jump-to-unpushed-to-pushremote
- "Unpushed to <push-remote>" unpushed
- (concat (magit-get-push-branch) ".."))
-
-(defun magit-insert-unpushed-to-pushremote ()
- "Insert commits that haven't been pushed to the push-remote yet."
- (--when-let (magit-get-push-branch)
- (unless (and (equal (magit-rev-name it)
- (magit-rev-name "@{upstream}"))
- (or (memq 'magit-insert-unpushed-to-upstream
- magit-status-sections-hook)
- (memq 'magit-insert-unpushed-to-upstream-or-recent
- magit-status-sections-hook)))
- (magit-insert-section (unpushed (concat it "..") t)
- (magit-insert-heading
- (format (propertize "Unpushed to %s:" 'face 'magit-section-heading)
- (propertize it 'face 'magit-branch-remote)))
- (magit-insert-log (concat it "..") magit-log-section-arguments)))))
-
-;;;; Auxiliary Log Sections
-
-(defun magit-insert-unpulled-cherries ()
- "Insert section showing unpulled commits.
-Like `magit-insert-unpulled-from-upstream' but prefix each commit
-which has not been applied yet (i.e. a commit with a patch-id
-not shared with any local commit) with \"+\", and all others with
-\"-\"."
- (when (magit-git-success "rev-parse" "@{upstream}")
- (magit-insert-section (unpulled "..@{upstream}")
- (magit-insert-heading "Unpulled commits:")
- (magit-git-wash (apply-partially 'magit-log-wash-log 'cherry)
- "cherry" "-v" (magit-abbrev-arg)
- (magit-get-current-branch) "@{upstream}"))))
-
-(defun magit-insert-unpushed-cherries ()
- "Insert section showing unpushed commits.
-Like `magit-insert-unpushed-to-upstream' but prefix each commit
-which has not been applied to upstream yet (i.e. a commit with
-a patch-id not shared with any upstream commit) with \"+\", and
-all others with \"-\"."
- (when (magit-git-success "rev-parse" "@{upstream}")
- (magit-insert-section (unpushed "@{upstream}..")
- (magit-insert-heading "Unpushed commits:")
- (magit-git-wash (apply-partially 'magit-log-wash-log 'cherry)
- "cherry" "-v" (magit-abbrev-arg) "@{upstream}"))))
-
-;;; _
-(provide 'magit-log)
-;;; magit-log.el ends here
diff --git a/elpa/magit-20181116.1412/magit-log.elc b/elpa/magit-20181116.1412/magit-log.elc
deleted file mode 100644
index 167d107..0000000
--- a/elpa/magit-20181116.1412/magit-log.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-margin.el b/elpa/magit-20181116.1412/magit-margin.el
deleted file mode 100644
index 5aaa4f5..0000000
--- a/elpa/magit-20181116.1412/magit-margin.el
+++ /dev/null
@@ -1,242 +0,0 @@
-;;; magit-margin.el --- margins in Magit buffers -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for showing additional information
-;; in the margins of Magit buffers. Currently this is only used for
-;; commits, for which the committer date or age, and optionally the
-;; author name are shown.
-
-;;; Code:
-
-(require 'dash)
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit-section)
-(require 'magit-mode)
-
-(defgroup magit-margin nil
- "Information Magit displays in the margin.
-
-You can change the STYLE and AUTHOR-WIDTH of all `magit-*-margin'
-options to the same values by customizing `magit-log-margin'
-*before* `magit' is loaded. If you do that, then the respective
-values for the other options will default to what you have set
-for that variable. Likewise if you set `magit-log-margin's INIT
-to nil, then that is used in the default of all other options. But
-setting it to t, i.e. re-enforcing the default for that option,
-does not carry to other options."
- :link '(info-link "(magit)Log Margin")
- :group 'magit-log)
-
-(defvar-local magit-buffer-margin nil)
-(put 'magit-buffer-margin 'permanent-local t)
-
-(defvar-local magit-set-buffer-margin-refresh nil)
-
-(defvar magit--age-spec)
-
-;;; Commands
-
-(magit-define-popup magit-margin-popup
- "Popup console for changing appearance of the margin."
- :actions '("Margin"
- (?L "Toggle visibility" magit-toggle-margin)
- (?l "Cycle style" magit-cycle-margin-style)
- (?d "Toggle details" magit-toggle-margin-details)
- (lambda ()
- (and (with-current-buffer magit-pre-popup-buffer
- (derived-mode-p 'magit-refs-mode))
- (propertize "Left edge" 'face 'magit-popup-heading)))
- (?v "Change verbosity" magit-refs-set-show-commit-count))
- :max-action-columns 1)
-
-(defun magit-toggle-margin ()
- "Show or hide the Magit margin."
- (interactive)
- (unless (magit-margin-option)
- (user-error "Magit margin isn't supported in this buffer"))
- (setcar magit-buffer-margin (not (magit-buffer-margin-p)))
- (magit-set-buffer-margin))
-
-(defun magit-cycle-margin-style ()
- "Cycle style used for the Magit margin."
- (interactive)
- (unless (magit-margin-option)
- (user-error "Magit margin isn't supported in this buffer"))
- ;; This is only suitable for commit margins (there are not others).
- (setf (cadr magit-buffer-margin)
- (pcase (cadr magit-buffer-margin)
- (`age 'age-abbreviated)
- (`age-abbreviated
- (let ((default (cadr (symbol-value (magit-margin-option)))))
- (if (stringp default) default "%Y-%m-%d %H:%M ")))
- (_ 'age)))
- (magit-set-buffer-margin nil t))
-
-(defun magit-toggle-margin-details ()
- "Show or hide details in the Magit margin."
- (interactive)
- (unless (magit-margin-option)
- (user-error "Magit margin isn't supported in this buffer"))
- (setf (nth 3 magit-buffer-margin)
- (not (nth 3 magit-buffer-margin)))
- (magit-set-buffer-margin nil t))
-
-;;; Core
-
-(defun magit-buffer-margin-p ()
- (car magit-buffer-margin))
-
-(defun magit-margin-option ()
- (pcase major-mode
- (`magit-cherry-mode 'magit-cherry-margin)
- (`magit-log-mode 'magit-log-margin)
- (`magit-log-select-mode 'magit-log-select-margin)
- (`magit-reflog-mode 'magit-reflog-margin)
- (`magit-refs-mode 'magit-refs-margin)
- (`magit-stashes-mode 'magit-stashes-margin)
- (`magit-status-mode 'magit-status-margin)))
-
-(defun magit-set-buffer-margin (&optional reset refresh)
- (when-let ((option (magit-margin-option)))
- (let* ((default (symbol-value option))
- (default-width (nth 2 default)))
- (when (or reset (not magit-buffer-margin))
- (setq magit-buffer-margin (copy-sequence default)))
- (pcase-let ((`(,enable ,style ,_width ,details ,details-width)
- magit-buffer-margin))
- (when (functionp default-width)
- (setf (nth 2 magit-buffer-margin)
- (funcall default-width style details details-width)))
- (dolist (window (get-buffer-window-list nil nil 0))
- (with-selected-window window
- (magit-set-window-margin window)
- (if enable
- (add-hook 'window-configuration-change-hook
- 'magit-set-window-margin nil t)
- (remove-hook 'window-configuration-change-hook
- 'magit-set-window-margin t))))
- (when (and enable (or refresh magit-set-buffer-margin-refresh))
- (magit-refresh-buffer))))))
-
-(defun magit-set-window-margin (&optional window)
- (when (or window (setq window (get-buffer-window)))
- (with-selected-window window
- (set-window-margins
- nil (car (window-margins))
- (and (magit-buffer-margin-p)
- (nth 2 magit-buffer-margin))))))
-
-(defun magit-make-margin-overlay (&optional string previous-line)
- (if previous-line
- (save-excursion
- (forward-line -1)
- (magit-make-margin-overlay string))
- ;; Don't put the overlay on the complete line to work around #1880.
- (let ((o (make-overlay (1+ (line-beginning-position))
- (line-end-position)
- nil t)))
- (overlay-put o 'evaporate t)
- (overlay-put o 'before-string
- (propertize "o" 'display
- (list (list 'margin 'right-margin)
- (or string " ")))))))
-
-(defun magit-maybe-make-margin-overlay ()
- (when (or (magit-section-match
- '(unpulled unpushed recent stashes local cherries)
- magit-insert-section--current)
- (and (eq major-mode 'magit-refs-mode)
- (magit-section-match
- '(remote commit tags)
- magit-insert-section--current)))
- (magit-make-margin-overlay nil t)))
-
-;;; Custom Support
-
-(defun magit-margin-set-variable (mode symbol value)
- (set-default symbol value)
- (message "Updating margins in %s buffers..." mode)
- (dolist (buffer (buffer-list))
- (with-current-buffer buffer
- (when (eq major-mode mode)
- (magit-set-buffer-margin t)
- (magit-refresh))))
- (message "Updating margins in %s buffers...done" mode))
-
-(defconst magit-log-margin--custom-type
- '(list (boolean :tag "Show margin initially")
- (choice :tag "Show committer"
- (string :tag "date using time-format" "%Y-%m-%d %H:%M ")
- (const :tag "date's age" age)
- (const :tag "date's age (abbreviated)" age-abbreviated))
- (const :tag "Calculate width using magit-log-margin-width"
- magit-log-margin-width)
- (boolean :tag "Show author name by default")
- (integer :tag "Show author name using width")))
-
-;;; Time Utilities
-
-(defvar magit--age-spec
- `((?Y "year" "years" ,(round (* 60 60 24 365.2425)))
- (?M "month" "months" ,(round (* 60 60 24 30.436875)))
- (?w "week" "weeks" ,(* 60 60 24 7))
- (?d "day" "days" ,(* 60 60 24))
- (?h "hour" "hours" ,(* 60 60))
- (?m "minute" "minutes" 60)
- (?s "second" "seconds" 1))
- "Time units used when formatting relative commit ages.
-
-The value is a list of time units, beginning with the longest.
-Each element has the form (CHAR UNIT UNITS SECONDS). UNIT is the
-time unit, UNITS is the plural of that unit. CHAR is a character
-abbreviation. And SECONDS is the number of seconds in one UNIT.
-
-This is defined as a variable to make it possible to use time
-units for a language other than English. It is not defined
-as an option, because most other parts of Magit are always in
-English.")
-
-(defun magit--age (date &optional abbreviate)
- (cl-labels ((fn (age spec)
- (pcase-let ((`(,char ,unit ,units ,weight) (car spec)))
- (let ((cnt (round (/ age weight 1.0))))
- (if (or (not (cdr spec))
- (>= (/ age weight) 1))
- (list cnt (cond (abbreviate char)
- ((= cnt 1) unit)
- (t units)))
- (fn age (cdr spec)))))))
- (fn (abs (- (float-time)
- (if (stringp date)
- (string-to-number date)
- date)))
- magit--age-spec)))
-
-;;; _
-(provide 'magit-margin)
-;;; magit-margin.el ends here
diff --git a/elpa/magit-20181116.1412/magit-margin.elc b/elpa/magit-20181116.1412/magit-margin.elc
deleted file mode 100644
index 66abd53..0000000
--- a/elpa/magit-20181116.1412/magit-margin.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-merge.el b/elpa/magit-20181116.1412/magit-merge.el
deleted file mode 100644
index f06b1dc..0000000
--- a/elpa/magit-20181116.1412/magit-merge.el
+++ /dev/null
@@ -1,285 +0,0 @@
-;;; magit-merge.el --- merge functionality -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements merge commands.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-(declare-function magit-git-push "magit-push" (branch target args))
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-merge-popup "magit" nil t)
-(magit-define-popup magit-merge-popup
- "Popup console for merge commands."
- :man-page "git-merge"
- :switches '((?f "Fast-forward only" "--ff-only")
- (?n "No fast-forward" "--no-ff"))
- :options '((?s "Strategy" "--strategy="))
- :actions '((?m "Merge" magit-merge-plain)
- (?p "Preview merge" magit-merge-preview)
- (?e "Merge and edit message" magit-merge-editmsg) nil
- (?n "Merge but don't commit" magit-merge-nocommit)
- (?s "Squash merge" magit-merge-squash)
- (?a "Absorb" magit-merge-absorb)
- (?i "Merge into" magit-merge-into))
- :sequence-actions '((?m "Commit merge" magit-commit-create)
- (?a "Abort merge" magit-merge-abort))
- :sequence-predicate 'magit-merge-in-progress-p
- :default-action 'magit-merge
- :max-action-columns 2)
-
-;;;###autoload
-(defun magit-merge-plain (rev &optional args nocommit)
- "Merge commit REV into the current branch; using default message.
-
-Unless there are conflicts or a prefix argument is used create a
-merge commit using a generic commit message and without letting
-the user inspect the result. With a prefix argument pretend the
-merge failed to give the user the opportunity to inspect the
-merge.
-
-\(git merge --no-edit|--no-commit [ARGS] REV)"
- (interactive (list (magit-read-other-branch-or-commit "Merge")
- (magit-merge-arguments)
- current-prefix-arg))
- (magit-merge-assert)
- (magit-run-git-async "merge" (if nocommit "--no-commit" "--no-edit") args rev))
-
-;;;###autoload
-(defun magit-merge-editmsg (rev &optional args)
- "Merge commit REV into the current branch; and edit message.
-Perform the merge and prepare a commit message but let the user
-edit it.
-\n(git merge --edit --no-ff [ARGS] REV)"
- (interactive (list (magit-read-other-branch-or-commit "Merge")
- (magit-merge-arguments)))
- (magit-merge-assert)
- (cl-pushnew "--no-ff" args :test #'equal)
- (apply #'magit-run-git-with-editor "merge" "--edit"
- (append args (list rev))))
-
-;;;###autoload
-(defun magit-merge-nocommit (rev &optional args)
- "Merge commit REV into the current branch; pretending it failed.
-Pretend the merge failed to give the user the opportunity to
-inspect the merge and change the commit message.
-\n(git merge --no-commit --no-ff [ARGS] REV)"
- (interactive (list (magit-read-other-branch-or-commit "Merge")
- (magit-merge-arguments)))
- (magit-merge-assert)
- (cl-pushnew "--no-ff" args :test #'equal)
- (magit-run-git-async "merge" "--no-commit" args rev))
-
-;;;###autoload
-(defun magit-merge-into (branch &optional args)
- "Merge the current branch into BRANCH and remove the former.
-
-Before merging, force push the source branch to its push-remote,
-provided the respective remote branch already exists, ensuring
-that the respective pull-request (if any) won't get stuck on some
-obsolete version of the commits that are being merged. Finally
-if `magit-branch-pull-request' was used to create the merged
-branch, then also remove the respective remote branch."
- (interactive
- (list (magit-read-other-local-branch
- (format "Merge `%s' into" (magit-get-current-branch))
- nil
- (when-let ((upstream (magit-get-upstream-branch)))
- (when-let ((upstream (cdr (magit-split-branch-name upstream))))
- (and (magit-branch-p upstream) upstream))))
- (magit-merge-arguments)))
- (let ((current (magit-get-current-branch)))
- (when (zerop (magit-call-git "checkout" branch))
- (magit--merge-absort current args))))
-
-;;;###autoload
-(defun magit-merge-absorb (branch &optional args)
- "Merge BRANCH into the current branch and remove the former.
-
-Before merging, force push the source branch to its push-remote,
-provided the respective remote branch already exists, ensuring
-that the respective pull-request (if any) won't get stuck on some
-obsolete version of the commits that are being merged. Finally
-if `magit-branch-pull-request' was used to create the merged
-branch, then also remove the respective remote branch."
- (interactive (list (magit-read-other-local-branch "Absorb branch")
- (magit-merge-arguments)))
- (magit--merge-absort branch args))
-
-(defun magit--merge-absort (branch args)
- (when (equal branch "master")
- (unless (yes-or-no-p
- "Do you really want to merge `master' into another branch? ")
- (user-error "Abort")))
- (if-let ((target (magit-get-push-branch branch t)))
- (progn
- (magit-git-push branch target (list "--force-with-lease"))
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (when (memq (process-status process) '(exit signal))
- (if (not (zerop (process-exit-status process)))
- (magit-process-sentinel process event)
- (process-put process 'inhibit-refresh t)
- (magit-process-sentinel process event)
- (magit--merge-absort-1 branch args))))))
- (magit--merge-absort-1 branch args)))
-
-(defun magit--merge-absort-1 (branch args)
- (magit-run-git-async "merge" args "--no-edit" branch)
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (when (memq (process-status process) '(exit signal))
- (if (> (process-exit-status process) 0)
- (magit-process-sentinel process event)
- (process-put process 'inhibit-refresh t)
- (magit-process-sentinel process event)
- (magit-branch-maybe-delete-pr-remote branch)
- (magit-branch-unset-pushRemote branch)
- (magit-run-git "branch" "-D" branch))))))
-
-;;;###autoload
-(defun magit-merge-squash (rev)
- "Squash commit REV into the current branch; don't create a commit.
-\n(git merge --squash REV)"
- (interactive (list (magit-read-other-branch-or-commit "Squash")))
- (magit-merge-assert)
- (magit-run-git-async "merge" "--squash" rev))
-
-;;;###autoload
-(defun magit-merge-preview (rev)
- "Preview result of merging REV into the current branch."
- (interactive (list (magit-read-other-branch-or-commit "Preview merge")))
- (magit-mode-setup #'magit-merge-preview-mode rev))
-
-(define-derived-mode magit-merge-preview-mode magit-diff-mode "Magit Merge"
- "Mode for previewing a merge."
- :group 'magit-diff
- (hack-dir-local-variables-non-file-buffer))
-
-(defun magit-merge-preview-refresh-buffer (rev)
- (let* ((branch (magit-get-current-branch))
- (head (or branch (magit-rev-verify "HEAD"))))
- (magit-set-header-line-format (format "Preview merge of %s into %s"
- rev
- (or branch "HEAD")))
- (magit-insert-section (diffbuf)
- (magit-git-wash #'magit-diff-wash-diffs
- "merge-tree" (magit-git-string "merge-base" head rev) head rev))))
-
-;;;###autoload
-(defun magit-merge-abort ()
- "Abort the current merge operation.
-\n(git merge --abort)"
- (interactive)
- (unless (file-exists-p (magit-git-dir "MERGE_HEAD"))
- (user-error "No merge in progress"))
- (magit-confirm 'abort-merge)
- (magit-run-git-async "merge" "--abort"))
-
-(defun magit-checkout-stage (file arg)
- "During a conflict checkout and stage side, or restore conflict."
- (interactive
- (let ((file (magit-completing-read "Checkout file"
- (magit-tracked-files) nil nil nil
- 'magit-read-file-hist
- (magit-current-file))))
- (cond ((member file (magit-unmerged-files))
- (list file (magit-checkout-read-stage file)))
- ((yes-or-no-p (format "Restore conflicts in %s? " file))
- (list file "--merge"))
- (t
- (user-error "Quit")))))
- (pcase (cons arg (cddr (car (magit-file-status file))))
- ((or `("--ours" ?D ,_)
- `("--theirs" ,_ ?D))
- (magit-run-git "rm" "--" file))
- (_ (if (equal arg "--merge")
- ;; This fails if the file was deleted on one
- ;; side. And we cannot do anything about it.
- (magit-run-git "checkout" "--merge" "--" file)
- (magit-call-git "checkout" arg "--" file)
- (magit-run-git "add" "-u" "--" file)))))
-
-;;; Utilities
-
-(defun magit-merge-in-progress-p ()
- (file-exists-p (magit-git-dir "MERGE_HEAD")))
-
-(defun magit--merge-range (&optional head)
- (unless head
- (setq head (magit-get-shortname
- (car (magit-file-lines (magit-git-dir "MERGE_HEAD"))))))
- (and head
- (concat (magit-git-string "merge-base" "--octopus" "HEAD" head)
- ".." head)))
-
-(defun magit-merge-assert ()
- (or (not (magit-anything-modified-p t))
- (magit-confirm 'merge-dirty
- "Merging with dirty worktree is risky. Continue")))
-
-(defun magit-checkout-read-stage (file)
- (magit-read-char-case (format "For %s checkout: " file) t
- (?o "[o]ur stage" "--ours")
- (?t "[t]heir stage" "--theirs")
- (?c "[c]onflict" "--merge")))
-
-;;; Sections
-
-(defvar magit-unmerged-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-diff-dwim)
- map)
- "Keymap for `unmerged' sections.")
-
-(defun magit-insert-merge-log ()
- "Insert section for the on-going merge.
-Display the heads that are being merged.
-If no merge is in progress, do nothing."
- (when (magit-merge-in-progress-p)
- (let* ((heads (mapcar #'magit-get-shortname
- (magit-file-lines (magit-git-dir "MERGE_HEAD"))))
- (range (magit--merge-range (car heads))))
- (magit-insert-section (unmerged range)
- (magit-insert-heading
- (format "Merging %s:" (mapconcat #'identity heads ", ")))
- (magit-insert-log
- range
- (let ((args magit-log-section-arguments))
- (unless (member "--decorate=full" magit-log-section-arguments)
- (push "--decorate=full" args))
- args))))))
-
-;;; _
-(provide 'magit-merge)
-;;; magit-merge.el ends here
diff --git a/elpa/magit-20181116.1412/magit-merge.elc b/elpa/magit-20181116.1412/magit-merge.elc
deleted file mode 100644
index 80a2966..0000000
--- a/elpa/magit-20181116.1412/magit-merge.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-mode.el b/elpa/magit-20181116.1412/magit-mode.el
deleted file mode 100644
index 2431be7..0000000
--- a/elpa/magit-20181116.1412/magit-mode.el
+++ /dev/null
@@ -1,1404 +0,0 @@
-;;; magit-mode.el --- create and refresh Magit buffers -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements the abstract major-mode `magit-mode' from
-;; which almost all other Magit major-modes derive. The code in here
-;; is mostly concerned with creating and refreshing Magit buffers.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dash)
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit-section)
-(require 'magit-git)
-
-;; For `magit-display-buffer-fullcolumn-most-v1' from `git-commit'
-(defvar git-commit-mode)
-;; For `magit-xref-insert-buttons' from `magit'
-(defvar magit-diff-show-xref-buttons)
-(defvar magit-revision-show-xref-buttons)
-;; For `magit-refresh'
-(defvar magit-post-commit-hook-commands)
-(defvar magit-post-stage-hook-commands)
-(defvar magit-post-unstage-hook-commands)
-;; For `magit-refresh' and `magit-refresh-all'
-(declare-function magit-auto-revert-buffers "magit-autorevert" ())
-;; For `magit-refresh-buffer'
-(declare-function magit-process-unset-mode-line-error-status "magit-process" ())
-;; For `magit-mode-setup-internal'
-(declare-function magit-status-goto-initial-section "magit-status" ())
-
-(require 'format-spec)
-(require 'help-mode)
-
-;;; Options
-
-(defcustom magit-mode-hook
- '(magit-load-config-extensions
- magit-xref-setup)
- "Hook run when entering a mode derived from Magit mode."
- :group 'magit-modes
- :type 'hook
- :options '(magit-load-config-extensions
- magit-xref-setup
- bug-reference-mode))
-
-(defcustom magit-mode-setup-hook
- '(magit-maybe-save-repository-buffers
- magit-set-buffer-margin)
- "Hook run by `magit-mode-setup'.
-
-This is run right after displaying the buffer and right before
-generating or updating its content. `magit-mode-hook' and other,
-more specific, `magit-mode-*-hook's on the other hand are run
-right before displaying the buffer. Usually one of these hooks
-should be used instead of this one."
- :package-version '(magit . "2.3.0")
- :group 'magit-modes
- :type 'hook
- :options '(magit-maybe-save-repository-buffers
- magit-set-buffer-margin))
-
-(defcustom magit-pre-refresh-hook '(magit-maybe-save-repository-buffers)
- "Hook run before refreshing in `magit-refresh'.
-
-This hook, or `magit-post-refresh-hook', should be used
-for functions that are not tied to a particular buffer.
-
-To run a function with a particular buffer current, use
-`magit-refresh-buffer-hook' and use `derived-mode-p'
-inside your function."
- :package-version '(magit . "2.4.0")
- :group 'magit-refresh
- :type 'hook
- :options '(magit-maybe-save-repository-buffers))
-
-(defcustom magit-post-refresh-hook nil
- "Hook run after refreshing in `magit-refresh'.
-
-This hook, or `magit-pre-refresh-hook', should be used
-for functions that are not tied to a particular buffer.
-
-To run a function with a particular buffer current, use
-`magit-refresh-buffer-hook' and use `derived-mode-p'
-inside your function."
- :package-version '(magit . "2.4.0")
- :group 'magit-refresh
- :type 'hook)
-
-(defcustom magit-display-buffer-function 'magit-display-buffer-traditional
- "The function used display a Magit buffer.
-
-All Magit buffers (buffers whose major-modes derive from
-`magit-mode') are displayed using `magit-display-buffer',
-which in turn uses the function specified here."
- :package-version '(magit . "2.3.0")
- :group 'magit-buffers
- :type '(radio (function-item magit-display-buffer-traditional)
- (function-item magit-display-buffer-same-window-except-diff-v1)
- (function-item magit-display-buffer-fullframe-status-v1)
- (function-item magit-display-buffer-fullframe-status-topleft-v1)
- (function-item magit-display-buffer-fullcolumn-most-v1)
- (function-item display-buffer)
- (function :tag "Function")))
-
-(defcustom magit-pre-display-buffer-hook '(magit-save-window-configuration)
- "Hook run by `magit-display-buffer' before displaying the buffer."
- :package-version '(magit . "2.3.0")
- :group 'magit-buffers
- :type 'hook
- :get 'magit-hook-custom-get
- :options '(magit-save-window-configuration))
-
-(defcustom magit-post-display-buffer-hook '(magit-maybe-set-dedicated)
- "Hook run by `magit-display-buffer' after displaying the buffer."
- :package-version '(magit . "2.3.0")
- :group 'magit-buffers
- :type 'hook
- :get 'magit-hook-custom-get
- :options '(magit-maybe-set-dedicated))
-
-(defcustom magit-generate-buffer-name-function
- 'magit-generate-buffer-name-default-function
- "The function used to generate the name for a Magit buffer."
- :package-version '(magit . "2.3.0")
- :group 'magit-buffers
- :type '(radio (function-item magit-generate-buffer-name-default-function)
- (function :tag "Function")))
-
-(defcustom magit-buffer-name-format "%x%M%v: %t%x"
- "The format string used to name Magit buffers.
-
-The following %-sequences are supported:
-
-`%m' The name of the major-mode, but with the `-mode' suffix
- removed.
-
-`%M' Like \"%m\" but abbreviate `magit-status-mode' as `magit'.
-
-`%v' The value the buffer is locked to, in parentheses, or an
- empty string if the buffer is not locked to a value.
-
-`%V' Like \"%v\", but the string is prefixed with a space, unless
- it is an empty string.
-
-`%t' The top-level directory of the working tree of the
- repository, or if `magit-uniquify-buffer-names' is non-nil
- an abbreviation of that.
-
-`%x' If `magit-uniquify-buffer-names' is nil \"*\", otherwise the
- empty string. Due to limitations of the `uniquify' package,
- buffer names must end with the path.
-
-`%T' Obsolete, use \"%t%x\" instead. Like \"%t\", but append an
- asterisk if and only if `magit-uniquify-buffer-names' is nil.
-
-The value should always contain \"%m\" or \"%M\", \"%v\" or
-\"%V\", and \"%t\" (or the obsolete \"%T\").
-
-If `magit-uniquify-buffer-names' is non-nil, then the value must
-end with \"%t\" or \"%t%x\" (or the obsolete \"%T\"). See issue
-#2841.
-
-This is used by `magit-generate-buffer-name-default-function'.
-If another `magit-generate-buffer-name-function' is used, then
-it may not respect this option, or on the contrary it may
-support additional %-sequences."
- :package-version '(magit . "2.12.0")
- :group 'magit-buffers
- :type 'string)
-
-(defcustom magit-uniquify-buffer-names t
- "Whether to uniquify the names of Magit buffers."
- :package-version '(magit . "2.3.0")
- :group 'magit-buffers
- :type 'boolean)
-
-(defcustom magit-bury-buffer-function 'magit-restore-window-configuration
- "The function used to bury or kill the current Magit buffer."
- :package-version '(magit . "2.3.0")
- :group 'magit-buffers
- :type '(radio (function-item quit-window)
- (function-item magit-mode-quit-window)
- (function-item magit-restore-window-configuration)
- (function :tag "Function")))
-
-(defcustom magit-use-sticky-arguments t
- "How to reuse arguments from existing diff and log buffers.
-
-nil Always use the default value of the variable
- `magit-log-arguments' for log commands. Likewise,
- always use the default value of the variable
- `magit-diff-arguments' for diff command calls.
-
-current If the mode of the current buffer is derived from
- `magit-log-mode' or `magit-diff-mode', reuse the
- arguments from that buffer instead of those given by
- the variable `magit-log-arguments' or
- `magit-diff-arguments', respectively.
-
-t Like `current', but if the mode of the current buffer
- is not derived from `magit-log-mode' or
- `magit-diff-mode', use the arguments from the current
- repository's active (i.e. non-locked) `magit-log-mode'
- or `magit-diff-mode' buffer, respectively, if it
- exists.
-
- Note that commands that generate a
- `magit-revision-mode' or `magit-stash-mode' buffer will
- also collect their diff arguments from the active
- `magit-diff-mode' buffer.
-
-In general, there is a separation between the \"sticky\"
-arguments for log and diff buffers, but there is one special
-case: if the current buffer is a log buffer,
-`magit-show-commit' (considered a diff command) uses the file
-filter from the log buffer."
- :package-version '(magit . "2.11.0")
- :group 'magit-buffers
- :type '(choice (const :tag "disabled" nil)
- (const :tag "sticky for current" current)
- (const :tag "sticky" t)))
-
-(defcustom magit-region-highlight-hook
- '(magit-section-update-region magit-diff-update-hunk-region)
- "Functions used to highlight the region.
-
-Each function is run with the current section as only argument
-until one of them returns non-nil. If all functions return nil,
-then fall back to regular region highlighting."
- :package-version '(magit . "2.1.0")
- :group 'magit-refresh
- :type 'hook
- :options '(magit-section-update-region magit-diff-update-hunk-region))
-
-(defcustom magit-create-buffer-hook nil
- "Normal hook run after creating a new `magit-mode' buffer."
- :package-version '(magit . "2.90.0")
- :group 'magit-refresh
- :type 'hook)
-
-(defcustom magit-refresh-buffer-hook nil
- "Normal hook for `magit-refresh-buffer' to run after refreshing."
- :package-version '(magit . "2.1.0")
- :group 'magit-refresh
- :type 'hook)
-
-(defcustom magit-refresh-status-buffer t
- "Whether the status buffer is refreshed after running git.
-
-When this is non-nil, then the status buffer is automatically
-refreshed after running git for side-effects, in addition to the
-current Magit buffer, which is always refreshed automatically.
-
-Only set this to nil after exhausting all other options to
-improve performance."
- :package-version '(magit . "2.4.0")
- :group 'magit-refresh
- :group 'magit-status
- :type 'boolean)
-
-(defcustom magit-refresh-verbose nil
- "Whether to revert Magit buffers verbosely."
- :package-version '(magit . "2.1.0")
- :group 'magit-refresh
- :type 'boolean)
-
-(defcustom magit-save-repository-buffers t
- "Whether to save file-visiting buffers when appropriate.
-
-If non-nil, then all modified file-visiting buffers belonging
-to the current repository may be saved before running Magit
-commands and before creating or refreshing Magit buffers.
-If `dontask', then this is done without user intervention, for
-any other non-nil value the user has to confirm each save.
-
-The default is t to avoid surprises, but `dontask' is the
-recommended value."
- :group 'magit-essentials
- :group 'magit-buffers
- :type '(choice (const :tag "Never" nil)
- (const :tag "Ask" t)
- (const :tag "Save without asking" dontask)))
-
-(defcustom magit-keep-region-overlay nil
- "Whether to keep the region overlay when there is a valid selection.
-
-By default Magit removes the regular region overlay if, and only
-if, that region constitutes a valid selection as understood by
-Magit commands. Otherwise it does not remove that overlay, and
-the region looks like it would in other buffers.
-
-There are two types of such valid selections: hunk-internal
-regions and regions that select two or more sibling sections.
-In such cases Magit removes the region overlay and instead
-highlights a slightly larger range. All text (for hunk-internal
-regions) or the headings of all sections (for sibling selections)
-that are inside that range (not just inside the region) are acted
-on by commands such as the staging command. This buffer range
-begins at the beginning of the line on which the region begins
-and ends at the end of the line on which the region ends.
-
-Because Magit acts on this larger range and not the region, it is
-actually quite important to visualize that larger range. If we
-don't do that, then one might think that these commands act on
-the region instead. If you want to *also* visualize the region,
-then set this option to t. But please note that when the region
-does *not* constitute a valid selection, then the region is
-*always* visualized as usual, and that it is usually under such
-circumstances that you want to use a non-magit command to act on
-the region.
-
-Besides keeping the region overlay, setting this option to t also
-causes all face properties, except for `:foreground', to be
-ignored for the faces used to highlight headings of selected
-sections. This avoids the worst conflicts that result from
-displaying the region and the selection overlays at the same
-time. We are not interested in dealing with other conflicts.
-In fact we *already* provide a way to avoid all of these
-conflicts: *not* changing the value of this option.
-
-It should be clear by now that we consider it a mistake to set
-this to display the region when the Magit selection is also
-visualized, but since it has been requested a few times and
-because it doesn't cost much to offer this option we do so.
-However that might change. If the existence of this option
-starts complicating other things, then it will be removed."
- :package-version '(magit . "2.3.0")
- :group 'magit-miscellaneous
- :type 'boolean)
-
-;;; Magit Mode
-
-(defvar magit-mode-map
- (let ((map (make-keymap)))
- (suppress-keymap map t)
- (cond ((featurep 'jkl)
- (define-key map [return] 'magit-visit-thing)
- (define-key map [C-return] 'magit-dired-jump)
- (define-key map [tab] 'magit-section-toggle)
- (define-key map [C-tab] 'magit-section-cycle)
- (define-key map [M-tab] 'magit-section-cycle-diffs)
- (define-key map [S-tab] 'magit-section-cycle-global)
- (define-key map (kbd "M-o") 'magit-section-up)
- (define-key map (kbd "i") 'magit-section-backward)
- (define-key map (kbd "k") 'magit-section-forward)
- (define-key map (kbd "M-i") 'magit-section-backward-sibling)
- (define-key map (kbd "M-k") 'magit-section-forward-sibling)
- (define-key map (kbd "p") 'magit-push-popup)
- (define-key map (kbd ",") 'magit-delete-thing)
- (define-key map (kbd ";") 'magit-file-untrack)
- (define-key map (kbd "C-c C-i") 'magit-gitignore-popup))
- (t
- (define-key map [C-return] 'magit-visit-thing)
- (define-key map (kbd "C-m") 'magit-visit-thing)
- (define-key map (kbd "C-M-i") 'magit-dired-jump)
- (define-key map (kbd "C-i") 'magit-section-toggle)
- (define-key map [C-tab] 'magit-section-cycle)
- (define-key map [M-tab] 'magit-section-cycle-diffs)
- ;; [backtab] is the most portable binding for Shift+Tab.
- (define-key map [backtab] 'magit-section-cycle-global)
- (define-key map (kbd "^") 'magit-section-up)
- (define-key map (kbd "p") 'magit-section-backward)
- (define-key map (kbd "n") 'magit-section-forward)
- (define-key map (kbd "M-p") 'magit-section-backward-sibling)
- (define-key map (kbd "M-n") 'magit-section-forward-sibling)
- (define-key map (kbd "P") 'magit-push-popup)
- (define-key map (kbd "k") 'magit-delete-thing)
- (define-key map (kbd "K") 'magit-file-untrack)
- (define-key map (kbd "i") 'magit-gitignore-popup)
- (define-key map (kbd "I") 'magit-gitignore-popup)))
- (define-key map (kbd "SPC") 'magit-diff-show-or-scroll-up)
- (define-key map (kbd "DEL") 'magit-diff-show-or-scroll-down)
- (define-key map "+" 'magit-diff-more-context)
- (define-key map "-" 'magit-diff-less-context)
- (define-key map "0" 'magit-diff-default-context)
- (define-key map "1" 'magit-section-show-level-1)
- (define-key map "2" 'magit-section-show-level-2)
- (define-key map "3" 'magit-section-show-level-3)
- (define-key map "4" 'magit-section-show-level-4)
- (define-key map (kbd "M-1") 'magit-section-show-level-1-all)
- (define-key map (kbd "M-2") 'magit-section-show-level-2-all)
- (define-key map (kbd "M-3") 'magit-section-show-level-3-all)
- (define-key map (kbd "M-4") 'magit-section-show-level-4-all)
- (define-key map "$" 'magit-process-buffer)
- (define-key map "%" 'magit-worktree-popup)
- (define-key map "a" 'magit-cherry-apply)
- (define-key map "A" 'magit-cherry-pick-popup)
- (define-key map "b" 'magit-branch-popup)
- (define-key map "B" 'magit-bisect-popup)
- (define-key map "c" 'magit-commit-popup)
- (define-key map "d" 'magit-diff-popup)
- (define-key map "D" 'magit-diff-refresh-popup)
- (define-key map "e" 'magit-ediff-dwim)
- (define-key map "E" 'magit-ediff-popup)
- (define-key map "f" 'magit-fetch-popup)
- (define-key map "F" 'magit-pull-popup)
- (define-key map "g" 'magit-refresh)
- (define-key map "G" 'magit-refresh-all)
- (define-key map "h" 'magit-dispatch-popup)
- (define-key map "?" 'magit-dispatch-popup)
- (define-key map "l" 'magit-log-popup)
- (define-key map "L" 'magit-log-refresh-popup)
- (define-key map "m" 'magit-merge-popup)
- (define-key map "M" 'magit-remote-popup)
- (define-key map "o" 'magit-submodule-popup)
- (define-key map "O" 'magit-subtree-popup)
- (define-key map "q" 'magit-mode-bury-buffer)
- (define-key map "r" 'magit-rebase-popup)
- (define-key map "R" 'magit-file-rename)
- (define-key map "t" 'magit-tag-popup)
- (define-key map "T" 'magit-notes-popup)
- (define-key map "s" 'magit-stage-file)
- (define-key map "S" 'magit-stage-modified)
- (define-key map "u" 'magit-unstage-file)
- (define-key map "U" 'magit-unstage-all)
- (define-key map "v" 'magit-revert-no-commit)
- (define-key map "V" 'magit-revert-popup)
- (define-key map "w" 'magit-am-popup)
- (define-key map "W" 'magit-patch-popup)
- (define-key map "x" 'magit-reset-quickly)
- (define-key map "X" 'magit-reset-popup)
- (define-key map "y" 'magit-show-refs-popup)
- (define-key map "Y" 'magit-cherry)
- (define-key map "z" 'magit-stash-popup)
- (define-key map "Z" 'magit-stash-popup)
- (define-key map ":" 'magit-git-command)
- (define-key map "!" 'magit-run-popup)
- (define-key map (kbd "C-c C-c") 'magit-dispatch-popup)
- (define-key map (kbd "C-c C-e") 'magit-edit-thing)
- (define-key map (kbd "C-c C-w") 'magit-browse-thing)
- (define-key map (kbd "C-x a") 'magit-add-change-log-entry)
- (define-key map (kbd "C-x 4 a") 'magit-add-change-log-entry-other-window)
- (define-key map (kbd "C-w") 'magit-copy-section-value)
- (define-key map (kbd "M-w") 'magit-copy-buffer-revision)
- (define-key map [remap previous-line] 'magit-previous-line)
- (define-key map [remap next-line] 'magit-next-line)
- (define-key map [remap evil-previous-line] 'evil-previous-visual-line)
- (define-key map [remap evil-next-line] 'evil-next-visual-line)
- map)
- "Parent keymap for all keymaps of modes derived from `magit-mode'.")
-
-(defun magit-delete-thing ()
- "This is a placeholder command.
-Where applicable, section-specific keymaps bind another command
-which deletes the thing at point."
- (interactive)
- (user-error "There is no thing at point that could be deleted"))
-
-(defun magit-visit-thing ()
- "This is a placeholder command.
-Where applicable, section-specific keymaps bind another command
-which visits the thing at point."
- (interactive)
- (if (eq magit-current-popup 'magit-dispatch-popup)
- (progn (setq magit-current-popup nil)
- (call-interactively (key-binding (this-command-keys))))
- (user-error "There is no thing at point that could be visited")))
-
-(defun magit-edit-thing ()
- "This is a placeholder command.
-Where applicable, section-specific keymaps bind another command
-which lets you edit the thing at point, likely in another buffer."
- (interactive)
- (if (eq magit-current-popup 'magit-dispatch-popup)
- (progn (setq magit-current-popup nil)
- (call-interactively (key-binding (this-command-keys))))
- (user-error "There is no thing at point that could be edited")))
-
-(defun magit-browse-thing ()
- "This is a placeholder command.
-Where applicable, section-specific keymaps bind another command
-which visits the thing at point using `browse-url'."
- (interactive)
- (user-error "There is no thing at point that could be browsed"))
-
-(easy-menu-define magit-mode-menu magit-mode-map
- "Magit menu"
- '("Magit"
- ["Refresh" magit-refresh t]
- ["Refresh all" magit-refresh-all t]
- "---"
- ["Stage" magit-stage t]
- ["Stage modified" magit-stage-modified t]
- ["Unstage" magit-unstage t]
- ["Reset index" magit-reset-index t]
- ["Commit" magit-commit-popup t]
- ["Add log entry" magit-commit-add-log t]
- ["Tag" magit-tag-create t]
- "---"
- ["Diff working tree" magit-diff-working-tree t]
- ["Diff" magit-diff t]
- ("Log"
- ["Log" magit-log-other t]
- ["Reflog" magit-reflog-other t]
- ["Extended..." magit-log-popup t])
- "---"
- ["Cherry pick" magit-cherry-pick t]
- ["Revert commit" magit-revert-popup t]
- "---"
- ["Ignore globally" magit-gitignore-globally t]
- ["Ignore locally" magit-gitignore-locally t]
- ["Discard" magit-discard t]
- ["Reset head and index" magit-reset-mixed t]
- ["Stash" magit-stash-both t]
- ["Snapshot" magit-snapshot-both t]
- "---"
- ["Branch..." magit-checkout t]
- ["Merge" magit-merge t]
- ["Ediff resolve" magit-ediff-resolve t]
- ["Rebase..." magit-rebase-popup t]
- "---"
- ["Push" magit-push t]
- ["Pull" magit-pull-branch t]
- ["Remote update" magit-fetch-all t]
- ("Submodule"
- ["Submodule update" magit-submodule-update t]
- ["Submodule update and init" magit-submodule-setup t]
- ["Submodule init" magit-submodule-init t]
- ["Submodule sync" magit-submodule-sync t])
- "---"
- ("Extensions")
- "---"
- ["Display Git output" magit-process-buffer t]
- ["Quit Magit" magit-mode-bury-buffer t]))
-
-(defun magit-load-config-extensions ()
- "Load Magit extensions that are defined at the Git config layer."
- (dolist (ext (magit-get-all "magit.extension"))
- (let ((sym (intern (format "magit-%s-mode" ext))))
- (when (fboundp sym)
- (funcall sym 1)))))
-
-(define-derived-mode magit-mode special-mode "Magit"
- "Parent major mode from which Magit major modes inherit.
-
-Magit is documented in info node `(magit)'."
- :group 'magit-modes
- (buffer-disable-undo)
- (setq truncate-lines t)
- (setq buffer-read-only t)
- (setq-local line-move-visual t) ; see #1771
- (setq show-trailing-whitespace nil)
- (setq list-buffers-directory (abbreviate-file-name default-directory))
- (hack-dir-local-variables-non-file-buffer)
- (make-local-variable 'text-property-default-nonsticky)
- (push (cons 'keymap t) text-property-default-nonsticky)
- (add-hook 'post-command-hook #'magit-section-update-highlight t t)
- (add-hook 'deactivate-mark-hook #'magit-section-update-highlight t t)
- (setq-local redisplay-highlight-region-function 'magit-highlight-region)
- (setq-local redisplay-unhighlight-region-function 'magit-unhighlight-region)
- (setq mode-line-process (magit-repository-local-get 'mode-line-process))
- (when (bound-and-true-p global-linum-mode)
- (linum-mode -1))
- (when (and (fboundp 'nlinum-mode)
- (bound-and-true-p global-nlinum-mode))
- (nlinum-mode -1))
- (when (and (fboundp 'display-line-numbers-mode)
- (bound-and-true-p global-display-line-numbers-mode))
- (display-line-numbers-mode -1))
- (add-hook 'kill-buffer-hook 'magit-preserve-section-visibility-cache))
-
-(defvar-local magit-region-overlays nil)
-
-(defun magit-delete-region-overlays ()
- (mapc #'delete-overlay magit-region-overlays)
- (setq magit-region-overlays nil))
-
-(defun magit-highlight-region (start end window rol)
- (magit-delete-region-overlays)
- (if (and (run-hook-with-args-until-success 'magit-region-highlight-hook
- (magit-current-section))
- (not magit-keep-region-overlay)
- (not (= (line-number-at-pos start)
- (line-number-at-pos end)))
- ;; (not (eq (car-safe last-command-event) 'mouse-movement))
- )
- (funcall (default-value 'redisplay-unhighlight-region-function) rol)
- (funcall (default-value 'redisplay-highlight-region-function)
- start end window rol)))
-
-(defun magit-unhighlight-region (rol)
- (setq magit-section-highlighted-section nil)
- (magit-delete-region-overlays)
- (funcall (default-value 'redisplay-unhighlight-region-function) rol))
-
-(defvar-local magit-refresh-args nil
- "The arguments used to refresh the current buffer.")
-(put 'magit-refresh-args 'permanent-local t)
-
-(defvar-local magit-previous-section nil)
-(put 'magit-previous-section 'permanent-local t)
-
-(defun magit-mode-setup (mode &rest args)
- "Setup up a MODE buffer using ARGS to generate its content."
- (magit-mode-setup-internal mode args))
-
-(defun magit-mode-setup-internal (mode args &optional locked)
- "Setup up a MODE buffer using ARGS to generate its content.
-When optional LOCKED is non-nil, then create a buffer that is
-locked to its value, which is derived from MODE and ARGS."
- (let* ((value (and locked (magit-buffer-lock-value mode args)))
- (buffer (magit-mode-get-buffer mode nil nil value))
- (section (and buffer (magit-current-section)))
- (created (not buffer)))
- (unless buffer
- (setq buffer (magit-with-toplevel
- (magit-generate-new-buffer mode value))))
- (with-current-buffer buffer
- (setq magit-previous-section section)
- (setq magit-refresh-args args)
- (funcall mode)
- (when created
- (magit-status-goto-initial-section)
- (run-hooks 'magit-create-buffer-hook)))
- (magit-display-buffer buffer)
- (with-current-buffer buffer
- (run-hooks 'magit-mode-setup-hook)
- (magit-refresh-buffer))))
-
-(defvar magit-display-buffer-noselect nil
- "If non-nil, then `magit-display-buffer' doesn't call `select-window'.")
-
-(defun magit-display-buffer (buffer)
- "Display BUFFER in some window and maybe select it.
-
-Display the buffer using `magit-display-buffer-function' and
-then, unless `magit-display-buffer-noselect' is non-nil, select
-the window which was used to display the buffer.
-
-Also run the hooks `magit-pre-display-buffer-hook'
-and `magit-post-display-buffer-hook'."
- (with-current-buffer buffer
- (run-hooks 'magit-pre-display-buffer-hook))
- (let ((window (funcall magit-display-buffer-function buffer)))
- (unless magit-display-buffer-noselect
- (let* ((old-frame (selected-frame))
- (new-frame (window-frame window)))
- (select-window window)
- (unless (eq old-frame new-frame)
- (select-frame-set-input-focus new-frame)))))
- (with-current-buffer buffer
- (run-hooks 'magit-post-display-buffer-hook)))
-
-(defun magit-display-buffer-traditional (buffer)
- "Display BUFFER the way this has traditionally been done."
- (display-buffer
- buffer (if (and (derived-mode-p 'magit-mode)
- (not (memq (with-current-buffer buffer major-mode)
- '(magit-process-mode
- magit-revision-mode
- magit-diff-mode
- magit-stash-mode
- magit-status-mode))))
- '(display-buffer-same-window)
- nil))) ; display in another window
-
-(defun magit-display-buffer-same-window-except-diff-v1 (buffer)
- "Display BUFFER in the selected window except for some modes.
-If a buffer's `major-mode' derives from `magit-diff-mode' or
-`magit-process-mode', display it in another window. Display all
-other buffers in the selected window."
- (display-buffer
- buffer (if (with-current-buffer buffer
- (derived-mode-p 'magit-diff-mode 'magit-process-mode))
- nil ; display in another window
- '(display-buffer-same-window))))
-
-(defun magit--display-buffer-fullframe (buffer alist)
- (when-let ((window (or (display-buffer-reuse-window buffer alist)
- (display-buffer-same-window buffer alist)
- (display-buffer-pop-up-window buffer alist)
- (display-buffer-use-some-window buffer alist))))
- (delete-other-windows window)
- window))
-
-(defun magit-display-buffer-fullframe-status-v1 (buffer)
- "Display BUFFER, filling entire frame if BUFFER is a status buffer.
-Otherwise, behave like `magit-display-buffer-traditional'."
- (if (eq (with-current-buffer buffer major-mode)
- 'magit-status-mode)
- (display-buffer buffer '(magit--display-buffer-fullframe))
- (magit-display-buffer-traditional buffer)))
-
-(defun magit--display-buffer-topleft (buffer alist)
- (or (display-buffer-reuse-window buffer alist)
- (when-let ((window2 (display-buffer-pop-up-window buffer alist)))
- (let ((window1 (get-buffer-window))
- (buffer1 (current-buffer))
- (buffer2 (window-buffer window2))
- (w2-quit-restore (window-parameter window2 'quit-restore)))
- (set-window-buffer window1 buffer2)
- (set-window-buffer window2 buffer1)
- (select-window window2)
- ;; Swap some window state that `magit-mode-quit-window' and
- ;; `quit-restore-window' inspect.
- (set-window-prev-buffers window2 (cdr (window-prev-buffers window1)))
- (set-window-prev-buffers window1 nil)
- (set-window-parameter window2 'magit-dedicated
- (window-parameter window1 'magit-dedicated))
- (set-window-parameter window1 'magit-dedicated t)
- (set-window-parameter window1 'quit-restore
- (list 'window 'window
- (nth 2 w2-quit-restore)
- (nth 3 w2-quit-restore)))
- (set-window-parameter window2 'quit-restore nil)
- window1))))
-
-(defun magit-display-buffer-fullframe-status-topleft-v1 (buffer)
- "Display BUFFER, filling entire frame if BUFFER is a status buffer.
-When BUFFER derives from `magit-diff-mode' or
-`magit-process-mode', try to display BUFFER to the top or left of
-the current buffer rather than to the bottom or right, as
-`magit-display-buffer-fullframe-status-v1' would. Whether the
-split is made vertically or horizontally is determined by
-`split-window-preferred-function'."
- (display-buffer
- buffer
- (cond ((eq (with-current-buffer buffer major-mode)
- 'magit-status-mode)
- '(magit--display-buffer-fullframe))
- ((with-current-buffer buffer
- (derived-mode-p 'magit-diff-mode 'magit-process-mode))
- '(magit--display-buffer-topleft))
- (t
- '(display-buffer-same-window)))))
-
-(defun magit--display-buffer-fullcolumn (buffer alist)
- (when-let ((window (or (display-buffer-reuse-window buffer alist)
- (display-buffer-same-window buffer alist)
- (display-buffer-below-selected buffer alist))))
- (delete-other-windows-vertically window)
- window))
-
-(defun magit-display-buffer-fullcolumn-most-v1 (buffer)
- "Display BUFFER using the full column except in some cases.
-For most cases where BUFFER's `major-mode' derives from
-`magit-mode', display it in the selected window and grow that
-window to the full height of the frame, deleting other windows in
-that column as necessary. However, display BUFFER in another
-window if 1) BUFFER's mode derives from `magit-process-mode', or
-2) BUFFER's mode derives from `magit-diff-mode', provided that
-the mode of the current buffer derives from `magit-log-mode' or
-`magit-cherry-mode'."
- (display-buffer
- buffer
- (cond ((and (or git-commit-mode
- (derived-mode-p 'magit-log-mode 'magit-cherry-mode))
- (with-current-buffer buffer
- (derived-mode-p 'magit-diff-mode)))
- nil)
- ((with-current-buffer buffer
- (derived-mode-p 'magit-process-mode))
- nil)
- (t
- '(magit--display-buffer-fullcolumn)))))
-
-(defun magit-maybe-set-dedicated ()
- "Mark the selected window as dedicated if appropriate.
-
-If a new window was created to display the buffer, then remember
-that fact. That information is used by `magit-mode-quit-window',
-to determine whether the window should be deleted when its last
-Magit buffer is buried."
- (let ((window (get-buffer-window (current-buffer))))
- (when (and (window-live-p window)
- (not (window-prev-buffers window)))
- (set-window-parameter window 'magit-dedicated t))))
-
-(defvar-local magit--default-directory nil
- "Value of `default-directory' when buffer is generated.
-This exists to prevent a let-bound `default-directory' from
-tricking `magit-mode-get-buffer' or `magit-mode-get-buffers' into
-thinking a buffer belongs to a repo that it doesn't.")
-(put 'magit--default-directory 'permanent-local t)
-
-(defun magit-mode-get-buffers ()
- (let ((topdir (magit-toplevel)))
- (--filter (with-current-buffer it
- (and (derived-mode-p 'magit-mode)
- (equal magit--default-directory topdir)))
- (buffer-list))))
-
-(defvar-local magit-buffer-locked-p nil)
-(put 'magit-buffer-locked-p 'permanent-local t)
-
-(defun magit-mode-get-buffer (mode &optional create frame value)
- (when create
- (error "`magit-mode-get-buffer's CREATE argument is obsolete"))
- (if-let ((topdir (magit-toplevel)))
- (--first (with-current-buffer it
- (and (eq major-mode mode)
- (equal magit--default-directory topdir)
- (if value
- (and magit-buffer-locked-p
- (equal (magit-buffer-lock-value) value))
- (not magit-buffer-locked-p))))
- (if frame
- (mapcar #'window-buffer
- (window-list (unless (eq frame t) frame)))
- (buffer-list)))
- (magit--not-inside-repository-error)))
-
-(defun magit-generate-new-buffer (mode &optional value)
- (let* ((name (funcall magit-generate-buffer-name-function mode value))
- (buffer (generate-new-buffer name)))
- (with-current-buffer buffer
- (setq magit--default-directory default-directory)
- (setq magit-buffer-locked-p (and value t))
- (magit-restore-section-visibility-cache mode))
- (when magit-uniquify-buffer-names
- (add-to-list 'uniquify-list-buffers-directory-modes mode)
- (with-current-buffer buffer
- (setq list-buffers-directory (abbreviate-file-name default-directory)))
- (let ((uniquify-buffer-name-style
- (if (memq uniquify-buffer-name-style '(nil forward))
- 'post-forward-angle-brackets
- uniquify-buffer-name-style)))
- (uniquify-rationalize-file-buffer-names
- name (file-name-directory (directory-file-name default-directory))
- buffer)))
- buffer))
-
-(defun magit-generate-buffer-name-default-function (mode &optional value)
- "Generate buffer name for a MODE buffer in the current repository.
-The returned name is based on `magit-buffer-name-format' and
-takes `magit-uniquify-buffer-names' and VALUE, if non-nil, into
-account."
- (let ((m (substring (symbol-name mode) 0 -5))
- (v (and value (format "%s" (if (listp value) value (list value)))))
- (n (if magit-uniquify-buffer-names
- (file-name-nondirectory
- (directory-file-name default-directory))
- (abbreviate-file-name default-directory))))
- (format-spec
- magit-buffer-name-format
- `((?m . ,m)
- (?M . ,(if (eq mode 'magit-status-mode) "magit" m))
- (?v . ,(or v ""))
- (?V . ,(if v (concat " " v) ""))
- (?t . ,n)
- (?x . ,(if magit-uniquify-buffer-names "" "*"))
- (?T . ,(if magit-uniquify-buffer-names n (concat n "*")))))))
-
-(defun magit-toggle-buffer-lock ()
- "Lock the current buffer to its value or unlock it.
-
-Locking a buffer to its value prevents it from being reused to
-display another value. The name of a locked buffer contains its
-value, which allows telling it apart from other locked buffers
-and the unlocked buffer.
-
-Not all Magit buffers can be locked to their values, for example
-it wouldn't make sense to lock a status buffer.
-
-There can only be a single unlocked buffer using a certain
-major-mode per repository. So when a buffer is being unlocked
-and another unlocked buffer already exists for that mode and
-repository, then the former buffer is instead deleted and the
-latter is displayed in its place."
- (interactive)
- (if magit-buffer-locked-p
- (if-let ((unlocked (magit-mode-get-buffer major-mode)))
- (let ((locked (current-buffer)))
- (switch-to-buffer unlocked nil t)
- (kill-buffer locked))
- (setq magit-buffer-locked-p nil)
- (rename-buffer (funcall magit-generate-buffer-name-function
- major-mode)))
- (if-let ((value (magit-buffer-lock-value)))
- (if-let ((locked (magit-mode-get-buffer major-mode nil nil value)))
- (let ((unlocked (current-buffer)))
- (switch-to-buffer locked nil t)
- (kill-buffer unlocked))
- (setq magit-buffer-locked-p t)
- (rename-buffer (funcall magit-generate-buffer-name-function
- major-mode value)))
- (user-error "Buffer has no value it could be locked to"))))
-
-(defvar magit-buffer-lock-functions '((forge-topic-mode . car))
- "Provide buffer-locking support for third-party modes.
-An alist of symbols to functions.
-
-The symbol must be the major-mode the locked buffer will have.
-
-The function must take a single argument, a list of refresh
-arguments (the value of `magit-refresh-args') and return a
-value that identifies the buffer (i.e., its 'lock value').
-If the third-party mode is invoked as
-
- (magit-mode-setup-internal #\\='my-mode \\='(1 2 3) t)
-
-the function will be invoked as
-
- (funcall lock-func \\='(1 2 3))
-
-if the cons (my-mode . lock-func) is in this list.
-
-This variable is intended for third-party extensions;
-`magit-buffer-lock-value' implements all built-in behavior.
-
-See also `magit-toggle-buffer-lock'.")
-
-(cl-defun magit-buffer-lock-value
- (&optional (mode major-mode)
- (args magit-refresh-args))
- "Find an appropriate buffer lock value for MODE under ARGS.
-See also `magit-buffer-lock-functions'."
- (cl-case mode
- (magit-cherry-mode
- (pcase-let ((`(,upstream ,head) args))
- (concat head ".." upstream)))
- (magit-diff-mode
- (pcase-let ((`(,rev-or-range ,const ,_args ,files) args))
- (nconc (cons (or rev-or-range
- (if (member "--cached" const)
- (progn (setq const (delete "--cached" const))
- 'staged)
- 'unstaged))
- const)
- (and files (cons "--" files)))))
- (magit-log-mode
- (pcase-let ((`(,revs ,_args ,files) args))
- (if (and revs files)
- (append revs (cons "--" files))
- (append revs files))))
- (magit-refs-mode
- (pcase-let ((`(,ref ,args) args))
- (cons (or ref "HEAD") args)))
- (magit-revision-mode
- (pcase-let ((`(,rev ,_const ,_args ,files) args))
- (if files (cons rev files) (list rev))))
- ((magit-reflog-mode ; (ref ~args)
- magit-stash-mode ; (stash _const _args _files)
- magit-stashes-mode) ; (ref)
- (car args))
- (t
- (--when-let (cdr (assq mode magit-buffer-lock-functions))
- (funcall it args)))))
-
-(defun magit-mode-bury-buffer (&optional kill-buffer)
- "Bury the current buffer.
-With a prefix argument, kill the buffer instead.
-This is done using `magit-bury-buffer-function'."
- (interactive "P")
- (funcall magit-bury-buffer-function kill-buffer))
-
-(defun magit-mode-quit-window (kill-buffer)
- "Quit the selected window and bury its buffer.
-
-This behaves similar to `quit-window', but when the window
-was originally created to display a Magit buffer and the
-current buffer is the last remaining Magit buffer that was
-ever displayed in the selected window, then delete that
-window."
- (if (or (one-window-p)
- (--first (let ((buffer (car it)))
- (and (not (eq buffer (current-buffer)))
- (buffer-live-p buffer)
- (or (not (window-parameter nil 'magit-dedicated))
- (with-current-buffer buffer
- (derived-mode-p 'magit-mode
- 'magit-process-mode)))))
- (window-prev-buffers)))
- (quit-window kill-buffer)
- (let ((window (selected-window)))
- (quit-window kill-buffer)
- (when (window-live-p window)
- (delete-window window)))))
-
-;;; Refresh Magit Buffers
-
-(defvar inhibit-magit-refresh nil)
-
-(defun magit-refresh ()
- "Refresh some buffers belonging to the current repository.
-
-Refresh the current buffer if its major mode derives from
-`magit-mode', and refresh the corresponding status buffer.
-
-Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'."
- (interactive)
- (unless inhibit-magit-refresh
- (unwind-protect
- (let ((start (current-time))
- (magit--refresh-cache (or magit--refresh-cache
- (list (cons 0 0)))))
- (when magit-refresh-verbose
- (message "Refreshing magit..."))
- (magit-run-hook-with-benchmark 'magit-pre-refresh-hook)
- (when (derived-mode-p 'magit-mode)
- (magit-refresh-buffer))
- (--when-let (and magit-refresh-status-buffer
- (not (derived-mode-p 'magit-status-mode))
- (magit-mode-get-buffer 'magit-status-mode))
- (with-current-buffer it
- (magit-refresh-buffer)))
- (magit-auto-revert-buffers)
- (cond
- ((and (not this-command)
- (memq last-command magit-post-commit-hook-commands))
- (magit-run-hook-with-benchmark 'magit-post-commit-hook))
- ((memq this-command magit-post-stage-hook-commands)
- (magit-run-hook-with-benchmark 'magit-post-stage-hook))
- ((memq this-command magit-post-unstage-hook-commands)
- (magit-run-hook-with-benchmark 'magit-post-unstage-hook)))
- (magit-run-hook-with-benchmark 'magit-post-refresh-hook)
- (when magit-refresh-verbose
- (message "Refreshing magit...done (%.3fs, cached %s/%s)"
- (float-time (time-subtract (current-time) start))
- (caar magit--refresh-cache)
- (+ (caar magit--refresh-cache)
- (cdar magit--refresh-cache)))))
- (run-hooks 'magit-unwind-refresh-hook))))
-
-(defun magit-refresh-all ()
- "Refresh all buffers belonging to the current repository.
-
-Refresh all Magit buffers belonging to the current repository,
-and revert buffers that visit files located inside the current
-repository.
-
-Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'."
- (interactive)
- (magit-run-hook-with-benchmark 'magit-pre-refresh-hook)
- (dolist (buffer (magit-mode-get-buffers))
- (with-current-buffer buffer (magit-refresh-buffer)))
- (magit-auto-revert-buffers)
- (magit-run-hook-with-benchmark 'magit-post-refresh-hook))
-
-(defvar-local magit-refresh-start-time nil)
-
-(defun magit-refresh-buffer ()
- "Refresh the current Magit buffer."
- (setq magit-refresh-start-time (current-time))
- (let ((refresh (intern (format "%s-refresh-buffer"
- (substring (symbol-name major-mode) 0 -5))))
- (magit--refresh-cache (or magit--refresh-cache (list (cons 0 0)))))
- (when (functionp refresh)
- (when magit-refresh-verbose
- (message "Refreshing buffer `%s'..." (buffer-name)))
- (let* ((buffer (current-buffer))
- (windows
- (--mapcat (with-selected-window it
- (with-current-buffer buffer
- (when-let ((section (magit-current-section)))
- (list
- (nconc (list it section)
- (magit-refresh-get-relative-position))))))
- (or (get-buffer-window-list buffer nil t)
- (list (selected-window))))))
- (deactivate-mark)
- (setq magit-section-highlight-overlays nil)
- (setq magit-section-highlighted-section nil)
- (setq magit-section-highlighted-sections nil)
- (setq magit-section-unhighlight-sections nil)
- (magit-process-unset-mode-line-error-status)
- (let ((inhibit-read-only t))
- (erase-buffer)
- (save-excursion
- (apply refresh magit-refresh-args)))
- (dolist (window windows)
- (with-selected-window (car window)
- (with-current-buffer buffer
- (apply #'magit-section-goto-successor (cdr window)))))
- (run-hooks 'magit-refresh-buffer-hook)
- (magit-section-update-highlight)
- (set-buffer-modified-p nil))
- (when magit-refresh-verbose
- (message "Refreshing buffer `%s'...done (%.3fs)" (buffer-name)
- (float-time (time-subtract (current-time)
- magit-refresh-start-time)))))))
-
-(defun magit-refresh-get-relative-position ()
- (when-let ((section (magit-current-section)))
- (let ((start (oref section start)))
- (list (count-lines start (point))
- (- (point) (line-beginning-position))
- (and (magit-hunk-section-p section)
- (region-active-p)
- (progn (goto-char (line-beginning-position))
- (when (looking-at "^[-+]") (forward-line))
- (while (looking-at "^[ @]") (forward-line))
- (let ((beg (point)))
- (cond ((looking-at "^[-+]")
- (forward-line)
- (while (looking-at "^[-+]") (forward-line))
- (while (looking-at "^ ") (forward-line))
- (forward-line -1)
- (regexp-quote (buffer-substring-no-properties
- beg (line-end-position))))
- (t t)))))))))
-
-;;; Save File-Visiting Buffers
-
-(defvar disable-magit-save-buffers nil)
-
-(defun magit-pre-command-hook ()
- (setq disable-magit-save-buffers nil))
-(add-hook 'pre-command-hook #'magit-pre-command-hook)
-
-(defvar magit-after-save-refresh-buffers nil)
-
-(defun magit-after-save-refresh-buffers ()
- (dolist (buffer magit-after-save-refresh-buffers)
- (when (buffer-live-p buffer)
- (with-current-buffer buffer
- (magit-refresh-buffer))))
- (setq magit-after-save-refresh-buffers nil)
- (remove-hook 'post-command-hook 'magit-after-save-refresh-buffers))
-
-(defun magit-after-save-refresh-status ()
- "Refresh the status buffer of the current repository.
-
-This function is intended to be added to `after-save-hook'.
-
-If the status buffer does not exist or the file being visited in
-the current buffer isn't inside the working tree of a repository,
-then do nothing.
-
-Note that refreshing a Magit buffer is done by re-creating its
-contents from scratch, which can be slow in large repositories.
-If you are not satisfied with Magit's performance, then you
-should obviously not add this function to that hook."
- (when (and (not disable-magit-save-buffers)
- (magit-inside-worktree-p t))
- (--when-let (ignore-errors (magit-mode-get-buffer 'magit-status-mode))
- (add-to-list 'magit-after-save-refresh-buffers it)
- (add-hook 'post-command-hook 'magit-after-save-refresh-buffers))))
-
-(defun magit-maybe-save-repository-buffers ()
- "Maybe save file-visiting buffers belonging to the current repository.
-Do so if `magit-save-repository-buffers' is non-nil. You should
-not remove this from any hooks, instead set that variable to nil
-if you so desire."
- (when (and magit-save-repository-buffers
- (not disable-magit-save-buffers))
- (setq disable-magit-save-buffers t)
- (let ((msg (current-message)))
- (magit-save-repository-buffers
- (eq magit-save-repository-buffers 'dontask))
- (when (and msg
- (current-message)
- (not (equal msg (current-message))))
- (message "%s" msg)))))
-
-(add-hook 'magit-pre-refresh-hook #'magit-maybe-save-repository-buffers)
-(add-hook 'magit-pre-call-git-hook #'magit-maybe-save-repository-buffers)
-(add-hook 'magit-pre-start-git-hook #'magit-maybe-save-repository-buffers)
-
-(defvar-local magit-inhibit-refresh-save nil)
-
-(defun magit-save-repository-buffers (&optional arg)
- "Save file-visiting buffers belonging to the current repository.
-After any buffer where `buffer-save-without-query' is non-nil
-is saved without asking, the user is asked about each modified
-buffer which visits a file in the current repository. Optional
-argument (the prefix) non-nil means save all with no questions."
- (interactive "P")
- (when-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
- (let ((remote (file-remote-p topdir))
- (save-some-buffers-action-alist
- `((?Y (lambda (buffer)
- (with-current-buffer buffer
- (setq buffer-save-without-query t)
- (save-buffer)))
- "to save the current buffer and remember choice")
- (?N (lambda (buffer)
- (with-current-buffer buffer
- (setq magit-inhibit-refresh-save t)))
- "to skip the current buffer and remember choice")
- ,@save-some-buffers-action-alist)))
- (save-some-buffers
- arg (lambda ()
- (and (not magit-inhibit-refresh-save)
- buffer-file-name
- (file-exists-p (file-name-directory buffer-file-name))
- ;; Avoid needlessly connecting to unrelated remotes.
- (equal (file-remote-p buffer-file-name)
- remote)
- (string-prefix-p topdir (file-truename buffer-file-name))
- (equal (magit-rev-parse-safe "--show-toplevel")
- topdir)))))))
-
-;;; Restore Window Configuration
-
-(defvar magit-inhibit-save-previous-winconf nil)
-
-(defvar-local magit-previous-window-configuration nil)
-(put 'magit-previous-window-configuration 'permanent-local t)
-
-(defun magit-save-window-configuration ()
- "Save the current window configuration.
-
-Later, when the buffer is buried, it may be restored by
-`magit-restore-window-configuration'."
- (if magit-inhibit-save-previous-winconf
- (when (eq magit-inhibit-save-previous-winconf 'unset)
- (setq magit-previous-window-configuration nil))
- (unless (get-buffer-window (current-buffer) (selected-frame))
- (setq magit-previous-window-configuration
- (current-window-configuration)))))
-
-(defun magit-restore-window-configuration (&optional kill-buffer)
- "Bury or kill the current buffer and restore previous window configuration."
- (let ((winconf magit-previous-window-configuration)
- (buffer (current-buffer))
- (frame (selected-frame)))
- (quit-window kill-buffer (selected-window))
- (when (and winconf (equal frame (window-configuration-frame winconf)))
- (set-window-configuration winconf)
- (when (buffer-live-p buffer)
- (with-current-buffer buffer
- (setq magit-previous-window-configuration nil))))))
-
-;;; Buffer History
-
-(defun magit-go-backward ()
- "Move backward in current buffer's history."
- (interactive)
- (if help-xref-stack
- (help-xref-go-back (current-buffer))
- (user-error "No previous entry in buffer's history")))
-
-(defun magit-go-forward ()
- "Move forward in current buffer's history."
- (interactive)
- (if help-xref-forward-stack
- (help-xref-go-forward (current-buffer))
- (user-error "No next entry in buffer's history")))
-
-(defun magit-insert-xref-buttons (&optional _)
- "Insert xref buttons."
- (when (or help-xref-stack help-xref-forward-stack)
- (when help-xref-stack
- (magit-xref-insert-button help-back-label 'magit-xref-backward))
- (when help-xref-forward-stack
- (when help-xref-stack
- (insert " "))
- (magit-xref-insert-button help-forward-label 'magit-xref-forward))))
-
-(defun magit-xref-insert-button (label type)
- (magit-insert-section (button label)
- (insert-text-button label 'type type
- 'help-args (list (current-buffer)))))
-
-(define-button-type 'magit-xref-backward
- :supertype 'help-back
- 'mouse-face 'magit-section-highlight
- 'help-echo (purecopy "mouse-2, RET: go back to previous history entry"))
-
-(define-button-type 'magit-xref-forward
- :supertype 'help-forward
- 'mouse-face 'magit-section-highlight
- 'help-echo (purecopy "mouse-2, RET: go back to next history entry"))
-
-(defun magit-xref-setup ()
- "Insert backward/forward buttons if the major-mode supports it.
-Currently `magit-log-mode', `magit-reflog-mode',
-`magit-diff-mode', and `magit-revision-mode' support it"
- (when (memq major-mode '(magit-log-mode
- magit-reflog-mode
- magit-diff-mode
- magit-revision-mode))
- (when help-xref-stack-item
- (push (cons (point) help-xref-stack-item) help-xref-stack)
- (setq help-xref-forward-stack nil))
- (when (called-interactively-p 'interactive)
- (--when-let (nthcdr 10 help-xref-stack)
- (setcdr it nil)))
- (setq help-xref-stack-item
- `(magit-xref-restore ,default-directory ,@magit-refresh-args))))
-
-(defun magit-xref-restore (&rest args)
- (magit-xref-setup)
- (setq default-directory (car args))
- (setq magit-refresh-args (cdr args))
- (magit-refresh-buffer))
-
-;;; Repository-Local Cache
-
-(defvar magit-repository-local-cache nil
- "Alist mapping `magit-toplevel' paths to alists of key/value pairs.")
-
-(defun magit-repository-local-repository ()
- "Return the key for the current repository."
- (or (bound-and-true-p magit--default-directory)
- (magit-toplevel)))
-
-(defun magit-repository-local-set (key value &optional repository)
- "Set the repository-local VALUE for KEY.
-
-Unless specified, REPOSITORY is the current buffer's repository.
-
-If REPOSITORY is nil (meaning there is no current repository),
-then the value is not cached, and we return nil."
- (let* ((repokey (or repository (magit-repository-local-repository)))
- (cache (assoc repokey magit-repository-local-cache)))
- ;; Don't cache values for a nil REPOSITORY, as the 'set' and 'get'
- ;; calls for some KEY may happen in unrelated contexts.
- (when repokey
- (if cache
- (let ((keyvalue (assoc key (cdr cache))))
- (if keyvalue
- ;; Update pre-existing value for key.
- (setcdr keyvalue value)
- ;; No such key in repository-local cache.
- (push (cons key value) (cdr cache))))
- ;; No cache for this repository.
- (push (cons repokey (list (cons key value)))
- magit-repository-local-cache)))))
-
-(defun magit-repository-local-exists-p (key &optional repository)
- "Non-nil when a repository-local value exists for KEY.
-
-Returns a (KEY . value) cons cell.
-
-The KEY is matched using `equal'.
-
-Unless specified, REPOSITORY is the current buffer's repository."
- (let* ((repokey (or repository (magit-repository-local-repository)))
- (cache (assoc repokey magit-repository-local-cache)))
- (and cache
- (assoc key (cdr cache)))))
-
-(defun magit-repository-local-get (key &optional default repository)
- "Return the repository-local value for KEY.
-
-Return DEFAULT if no value for KEY exists.
-
-The KEY is matched using `equal'.
-
-Unless specified, REPOSITORY is the current buffer's repository."
- (let ((keyvalue (magit-repository-local-exists-p key repository)))
- (if keyvalue
- (cdr keyvalue)
- default)))
-
-(defun magit-repository-local-delete (key &optional repository)
- "Delete the repository-local value for KEY.
-
-Unless specified, REPOSITORY is the current buffer's repository."
- (let* ((repokey (or repository (magit-repository-local-repository)))
- (cache (assoc repokey magit-repository-local-cache)))
- (when cache
- ;; There is no `assoc-delete-all'.
- (setf (cdr cache)
- (cl-delete key (cdr cache) :key #'car :test #'equal)))))
-
-(defun magit-zap-caches ()
- "Zap caches for the current repository.
-Remove the repository's entry from `magit-repository-local-cache'
-and set `magit-section-visibility-cache' to nil in all of the
-repository's Magit buffers."
- (interactive)
- (magit-with-toplevel
- (setq magit-repository-local-cache
- (cl-delete default-directory
- magit-repository-local-cache
- :key #'car :test #'equal)))
- (dolist (buffer (magit-mode-get-buffers))
- (with-current-buffer buffer
- (setq magit-section-visibility-cache nil))))
-
-;;; Utilities
-
-(defun magit-run-hook-with-benchmark (hook)
- (when hook
- (if magit-refresh-verbose
- (let ((start (current-time)))
- (message "Running %s..." hook)
- (run-hooks hook)
- (message "Running %s...done (%.3fs)" hook
- (float-time (time-subtract (current-time) start))))
- (run-hooks hook))))
-
-;;; _
-(provide 'magit-mode)
-;;; magit-mode.el ends here
diff --git a/elpa/magit-20181116.1412/magit-mode.elc b/elpa/magit-20181116.1412/magit-mode.elc
deleted file mode 100644
index f6b53c9..0000000
--- a/elpa/magit-20181116.1412/magit-mode.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-notes.el b/elpa/magit-20181116.1412/magit-notes.el
deleted file mode 100644
index e4806a2..0000000
--- a/elpa/magit-20181116.1412/magit-notes.el
+++ /dev/null
@@ -1,202 +0,0 @@
-;;; magit-notes.el --- notes support -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for `git-notes'.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Popup
-
-;;;###autoload (autoload 'magit-notes-popup "magit" nil t)
-(magit-define-popup magit-notes-popup
- "Popup console for notes commands."
- :man-page "git-notes"
- :variables '("Configure local settings"
- (?c "core.notesRef"
- magit-set-core.notesRef
- magit-format-core.notesRef)
- (?d "notes.displayRef"
- magit-set-notes.displayRef
- magit-format-notes.displayRef)
- "Configure global settings"
- (?C "core.notesRef"
- magit-set-global-core.notesRef
- magit-format-global-core.notesRef)
- (?D "notes.displayRef"
- magit-set-global-notes.displayRef
- magit-format-global-notes.displayRef))
- :switches '("Switch for prune"
- (?n "Dry run" "--dry-run"))
- :options '("Option for edit and remove"
- (?r "Manipulate ref" "--ref=" magit-notes-popup-read-ref)
- "Option for merge"
- (?s "Merge strategy" "--strategy="))
- :actions '((?T "Edit" magit-notes-edit)
- (?r "Remove" magit-notes-remove)
- (?m "Merge" magit-notes-merge)
- (?p "Prune" magit-notes-prune))
- :sequence-actions '((?c "Commit merge" magit-notes-merge-commit)
- (?a "Abort merge" magit-notes-merge-abort))
- :sequence-predicate 'magit-notes-merging-p
- :default-action 'magit-notes-edit)
-
-(defun magit-notes-merging-p ()
- (let ((dir (magit-git-dir "NOTES_MERGE_WORKTREE")))
- (and (file-directory-p dir)
- (directory-files dir nil "^[^.]"))))
-
-(defun magit-format-core.notesRef ()
- (magit--format-popup-variable:value "core.notesRef" 22))
-
-(defun magit-format-notes.displayRef ()
- (magit--format-popup-variable:values "notes.displayRef" 22))
-
-(defun magit-format-global-core.notesRef ()
- (magit--format-popup-variable:value "core.notesRef" 22 t))
-
-(defun magit-format-global-notes.displayRef ()
- (magit--format-popup-variable:values "notes.displayRef" 22 t))
-
-;;; Commands
-
-(defun magit-notes-edit (commit &optional ref)
- "Edit the note attached to COMMIT.
-REF is the notes ref used to store the notes.
-
-Interactively or when optional REF is nil use the value of Git
-variable `core.notesRef' or \"refs/notes/commits\" if that is
-undefined."
- (interactive (magit-notes-read-args "Edit notes"))
- (magit-run-git-with-editor "notes" (and ref (concat "--ref=" ref))
- "edit" commit))
-
-(defun magit-notes-remove (commit &optional ref)
- "Remove the note attached to COMMIT.
-REF is the notes ref from which the note is removed.
-
-Interactively or when optional REF is nil use the value of Git
-variable `core.notesRef' or \"refs/notes/commits\" if that is
-undefined."
- (interactive (magit-notes-read-args "Remove notes"))
- (magit-run-git-with-editor "notes" (and ref (concat "--ref=" ref))
- "remove" commit))
-
-(defun magit-notes-merge (ref)
- "Merge the notes ref REF into the current notes ref.
-
-The current notes ref is the value of Git variable
-`core.notesRef' or \"refs/notes/commits\" if that is undefined.
-
-When there are conflicts, then they have to be resolved in the
-temporary worktree \".git/NOTES_MERGE_WORKTREE\". When
-done use `magit-notes-merge-commit' to finish. To abort
-use `magit-notes-merge-abort'."
- (interactive (list (magit-read-string-ns "Merge reference")))
- (magit-run-git-with-editor "notes" "merge" ref))
-
-(defun magit-notes-merge-commit ()
- "Commit the current notes ref merge.
-Also see `magit-notes-merge'."
- (interactive)
- (magit-run-git-with-editor "notes" "merge" "--commit"))
-
-(defun magit-notes-merge-abort ()
- "Abort the current notes ref merge.
-Also see `magit-notes-merge'."
- (interactive)
- (magit-run-git-with-editor "notes" "merge" "--abort"))
-
-(defun magit-notes-prune (&optional dry-run)
- "Remove notes about unreachable commits."
- (interactive (list (and (member "--dry-run" (magit-notes-arguments)) t)))
- (when dry-run
- (magit-process-buffer))
- (magit-run-git-with-editor "notes" "prune" (and dry-run "--dry-run")))
-
-(defun magit-set-core.notesRef (ref)
- "Set the local value of `core.notesRef' to REF."
- (interactive (list (magit-notes-read-ref "Set local core.notesRef")))
- (magit-set ref "core.notesRef")
- (magit-with-pre-popup-buffer
- (magit-refresh)))
-
-(defun magit-set-global-core.notesRef (ref)
- "Set the global value of `core.notesRef' to REF."
- (interactive (list (magit-notes-read-ref "Set global core.notesRef")))
- (magit-set ref "--global" "core.notesRef")
- (magit-with-pre-popup-buffer
- (magit-refresh)))
-
-(defun magit-set-notes.displayRef (refs)
- "Set the local values of `notes.displayRef' to REFS."
- (interactive (list (magit-notes-read-refs "Set local notes.displayRef")))
- (magit-set-all refs "notes.displayRef")
- (magit-with-pre-popup-buffer
- (magit-refresh)))
-
-(defun magit-set-global-notes.displayRef (refs)
- "Set the global values of `notes.displayRef' to REFS."
- (interactive (list (magit-notes-read-refs "Set global notes.displayRef")))
- (magit-set-all refs "--global" "notes.displayRef")
- (magit-with-pre-popup-buffer
- (magit-refresh)))
-
-(defun magit-notes-read-ref (prompt)
- (--when-let (magit-completing-read
- prompt (magit-list-notes-refnames) nil nil
- (--when-let (magit-get "core.notesRef")
- (if (string-prefix-p "refs/notes/" it)
- (substring it 11)
- it)))
- (if (string-prefix-p "refs/" it)
- it
- (concat "refs/notes/" it))))
-
-(defun magit-notes-read-refs (prompt)
- (mapcar (lambda (ref)
- (if (string-prefix-p "refs/" ref)
- ref
- (concat "refs/notes/" ref)))
- (completing-read-multiple
- (concat prompt ": ")
- (magit-list-notes-refnames) nil nil
- (mapconcat (lambda (ref)
- (if (string-prefix-p "refs/notes/" ref)
- (substring ref 11)
- ref))
- (magit-get-all "notes.displayRef")
- ","))))
-
-(defun magit-notes-read-args (prompt)
- (list (magit-read-branch-or-commit prompt (magit-stash-at-point))
- (--when-let (--first (string-match "^--ref=\\(.+\\)" it)
- (magit-notes-arguments))
- (match-string 1 it))))
-
-;;; _
-(provide 'magit-notes)
-;;; magit-notes.el ends here
diff --git a/elpa/magit-20181116.1412/magit-notes.elc b/elpa/magit-20181116.1412/magit-notes.elc
deleted file mode 100644
index 59231de..0000000
--- a/elpa/magit-20181116.1412/magit-notes.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-obsolete.el b/elpa/magit-20181116.1412/magit-obsolete.el
deleted file mode 100644
index 67a3d1c..0000000
--- a/elpa/magit-20181116.1412/magit-obsolete.el
+++ /dev/null
@@ -1,55 +0,0 @@
-;;; magit-obsolete.el --- obsolete definitions -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library defines aliases for obsolete variables and functions.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Obsolete since v2.90.0
-
-(define-obsolete-function-alias 'magit-reset-head 'magit-reset-mixed "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-gitignore 'magit-gitignore-globally "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-branch 'magit-branch-create "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-tag 'magit-tag-create "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-fetch 'magit-fetch-other "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-pull 'magit-pull-branch "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-rebase 'magit-rebase-branch "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-blame 'magit-blame-addition "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-revert 'magit-revert-and-commit "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-reset 'magit-reset-quickly "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-merge 'magit-merge-plain "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-stash 'magit-stash-both "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-snapshot 'magit-snapshot-both "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-push 'magit-push-other "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-commit 'magit-commit-create "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-log 'magit-log-other "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-reflog 'magit-reflog-other "Magit 2.90.0")
-(define-obsolete-function-alias 'magit-diff 'magit-diff-range "Magit 2.90.0")
-
-;;; _
-(provide 'magit-obsolete)
-;;; magit-obsolete.el ends here
diff --git a/elpa/magit-20181116.1412/magit-obsolete.elc b/elpa/magit-20181116.1412/magit-obsolete.elc
deleted file mode 100644
index 1f4bca3..0000000
--- a/elpa/magit-20181116.1412/magit-obsolete.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-patch.el b/elpa/magit-20181116.1412/magit-patch.el
deleted file mode 100644
index e42b44a..0000000
--- a/elpa/magit-20181116.1412/magit-patch.el
+++ /dev/null
@@ -1,188 +0,0 @@
-;;; magit-patch.el --- creating and applying patches -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements patch commands.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-;;; Options
-
-(defcustom magit-patch-save-arguments '(exclude "--stat")
- "Arguments used by `magit-patch-save-arguments' (which see)"
- :package-version '(magit . "2.12.0")
- :group 'magit-diff
- :type '(choice (const :tag "use buffer arguments" buffer)
- (cons :tag "use buffer arguments except"
- (const :format "" exclude)
- (repeat :format "%v%i\n"
- (string :tag "Argument")))
- (repeat :tag "use constant arguments"
- (string :tag "Argument"))))
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-patch-popup "magit-patch" nil t)
-(magit-define-popup magit-patch-popup
- "Popup console for patch commands."
- :man-page "git-format-patch"
- :switches '("Switches for formatting patches"
- (?l "Add cover letter" "--cover-letter"))
- :options '("Options for formatting patches"
- (?f "From" "--from=")
- (?t "To" "--to=")
- (?c "CC" "--cc=")
- (?r "In reply to" "--in-reply-to=")
- (?P "Subject Prefix" "--subject-prefix=")
- (?v "Reroll count" "--reroll-count=")
- (?s "Thread style" "--thread=")
- (?U "Context lines" "-U")
- (?M "Detect renames" "-M")
- (?C "Detect copies" "-C")
- (?A "Diff algorithm" "--diff-algorithm="
- magit-diff-select-algorithm)
- (?o "Output directory" "--output-directory=")
- (?F "Limit to files" "-- " magit-read-files))
- :actions '((?p "Format patches" magit-format-patch)
- (?r "Request pull" magit-request-pull))
- :default-action 'magit-format-patch)
-
-;;;###autoload
-(defun magit-format-patch (range args files)
- "Create patches for the commits in RANGE.
-When a single commit is given for RANGE, create a patch for the
-changes introduced by that commit (unlike 'git format-patch'
-which creates patches for all commits that are reachable from
-`HEAD' but not from the specified commit)."
- (interactive
- (cons (if-let ((revs (magit-region-values 'commit t)))
- (concat (car (last revs)) "^.." (car revs))
- (let ((range (magit-read-range-or-commit
- "Format range or commit")))
- (if (string-match-p "\\.\\." range)
- range
- (format "%s~..%s" range range))))
- (magit-popup-export-file-args (magit-patch-arguments))))
- (magit-run-git "format-patch" range args "--" files)
- (when (member "--cover-letter" args)
- (find-file
- (expand-file-name
- "0000-cover-letter.patch"
- (let ((topdir (magit-toplevel)))
- (or (--some (and (string-match "--output-directory=\\(.+\\)" it)
- (expand-file-name (match-string 1 it) topdir))
- args)
- topdir))))))
-
-;;;###autoload
-(defun magit-request-pull (url start end)
- "Request upstream to pull from you public repository.
-
-URL is the url of your publically accessible repository.
-START is a commit that already is in the upstream repository.
-END is the last commit, usually a branch name, which upstream
-is asked to pull. START has to be reachable from that commit."
- (interactive
- (list (magit-get "remote" (magit-read-remote "Remote") "url")
- (magit-read-branch-or-commit "Start" (magit-get-upstream-branch))
- (magit-read-branch-or-commit "End")))
- (let ((dir default-directory))
- ;; mu4e changes default-directory
- (compose-mail)
- (setq default-directory dir))
- (message-goto-body)
- (magit-git-insert "request-pull" start url end)
- (set-buffer-modified-p nil))
-
-;;;###autoload (autoload 'magit-patch-apply-popup "magit-patch" nil t)
-(magit-define-popup magit-patch-apply-popup
- "Popup console for applying a patch file."
- :man-page "git-apply"
- :switches '((?i "Also apply to index" "--index")
- (?c "Only apply to index" "--cached")
- (?3 "Fall back on 3way merge" "--3way"))
- :actions '((?a "Apply patch" magit-patch-apply))
- :default-action 'magit-patch-apply)
-
-;;;###autoload
-(defun magit-patch-apply (file &rest args)
- "Apply the patch file FILE."
- (interactive (list (expand-file-name
- (read-file-name "Apply patch: "
- default-directory nil nil
- (--when-let (magit-file-at-point)
- (file-relative-name it))))
- (magit-patch-apply-arguments)))
- (magit-run-git "apply" args "--" (magit-convert-filename-for-git file)))
-
-;;;###autoload
-(defun magit-patch-save (file &optional arg)
- "Write current diff into patch FILE.
-
-What arguments are used to create the patch depends on the value
-of `magit-patch-save-arguments' and whether a prefix argument is
-used.
-
-If the value is the symbol `buffer', then use the same arguments
-as the buffer. With a prefix argument use no arguments.
-
-If the value is a list beginning with the symbol `exclude', then
-use the same arguments as the buffer except for those matched by
-entries in the cdr of the list. The comparison is done using
-`string-prefix-p'. With a prefix argument use the same arguments
-as the buffer.
-
-If the value is a list of strings (including the empty list),
-then use those arguments. With a prefix argument use the same
-arguments as the buffer.
-
-Of course the arguments that are required to actually show the
-same differences as those shown in the buffer are always used."
- (interactive (list (read-file-name "Write patch file: " default-directory)
- current-prefix-arg))
- (unless (derived-mode-p 'magit-diff-mode)
- (user-error "Only diff buffers can be saved as patches"))
- (pcase-let ((`(,rev ,const ,args ,files) magit-refresh-args))
- (when (derived-mode-p 'magit-revision-mode)
- (setq rev (format "%s~..%s" rev rev)))
- (cond ((eq magit-patch-save-arguments 'buffer)
- (when arg
- (setq args nil)))
- ((eq (car-safe magit-patch-save-arguments) 'exclude)
- (unless arg
- (setq args (-difference args (cdr magit-patch-save-arguments)))))
- ((not arg)
- (setq args magit-patch-save-arguments)))
- (with-temp-file file
- (magit-git-insert "diff" rev "-p" const args "--" files)))
- (magit-refresh))
-
-;;; _
-(provide 'magit-patch)
-;;; magit-patch.el ends here
diff --git a/elpa/magit-20181116.1412/magit-patch.elc b/elpa/magit-20181116.1412/magit-patch.elc
deleted file mode 100644
index 7c2456f..0000000
--- a/elpa/magit-20181116.1412/magit-patch.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-pkg.el b/elpa/magit-20181116.1412/magit-pkg.el
deleted file mode 100644
index ba49103..0000000
--- a/elpa/magit-20181116.1412/magit-pkg.el
+++ /dev/null
@@ -1,11 +0,0 @@
-(define-package "magit" "20181116.1412" "A Git porcelain inside Emacs."
- '((emacs "25.1")
- (async "20180527")
- (dash "20180910")
- (ghub "20181107")
- (git-commit "20181104")
- (magit-popup "20181003")
- (with-editor "20181103")))
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/elpa/magit-20181116.1412/magit-process.el b/elpa/magit-20181116.1412/magit-process.el
deleted file mode 100644
index 6378ffc..0000000
--- a/elpa/magit-20181116.1412/magit-process.el
+++ /dev/null
@@ -1,1122 +0,0 @@
-;;; magit-process.el --- process functionality -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements the tools used to run Git for side-effects.
-
-;; Note that the functions used to run Git and then consume its
-;; output, are defined in `magit-git.el'. There's a bit of overlap
-;; though.
-
-;;; Code:
-
-(require 'ansi-color)
-(require 'cl-lib)
-(require 'dash)
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'with-editor)
-(require 'magit-utils)
-(require 'magit-section)
-(require 'magit-git)
-(require 'magit-mode)
-
-(declare-function auth-source-search "auth-source"
- (&rest spec &key max require create delete &allow-other-keys))
-
-;;; Options
-
-(defcustom magit-process-connection-type (not (eq system-type 'cygwin))
- "Connection type used for the Git process.
-
-If nil, use pipes: this is usually more efficient, and works on Cygwin.
-If t, use ptys: this enables Magit to prompt for passphrases when needed."
- :group 'magit-process
- :type '(choice (const :tag "pipe" nil)
- (const :tag "pty" t)))
-
-(defcustom magit-need-cygwin-noglob
- (and (eq system-type 'windows-nt)
- (with-temp-buffer
- (let ((process-environment
- (append magit-git-environment process-environment)))
- (condition-case e
- (process-file magit-git-executable
- nil (current-buffer) nil
- "-c" "alias.echo=!echo" "echo" "x{0}")
- (file-error
- (lwarn 'magit-process :warning
- "Could not run Git: %S" e))))
- (equal "x0\n" (buffer-string))))
- "Whether to use a workaround for Cygwin's globbing behavior.
-
-If non-nil, add environment variables to `process-environment' to
-prevent the git.exe distributed by Cygwin and MSYS2 from
-attempting to perform glob expansion when called from a native
-Windows build of Emacs. See #2246."
- :package-version '(magit . "2.3.0")
- :group 'magit-process
- :type '(choice (const :tag "Yes" t)
- (const :tag "No" nil)))
-
-(defcustom magit-process-popup-time -1
- "Popup the process buffer if a command takes longer than this many seconds."
- :group 'magit-process
- :type '(choice (const :tag "Never" -1)
- (const :tag "Immediately" 0)
- (integer :tag "After this many seconds")))
-
-(defcustom magit-process-log-max 32
- "Maximum number of sections to keep in a process log buffer.
-When adding a new section would go beyond the limit set here,
-then the older half of the sections are remove. Sections that
-belong to processes that are still running are never removed.
-When this is nil, no sections are ever removed."
- :package-version '(magit . "2.1.0")
- :group 'magit-process
- :type '(choice (const :tag "Never remove old sections" nil) integer))
-
-(defcustom magit-process-error-tooltip-max-lines 20
- "The number of lines for `magit-process-error-lines' to return.
-
-These are displayed in a tooltip for `mode-line-process' errors.
-
-If `magit-process-error-tooltip-max-lines' is nil, the tooltip
-displays the text of `magit-process-error-summary' instead."
- :package-version '(magit . "2.12.0")
- :group 'magit-process
- :type '(choice (const :tag "Use summary line" nil)
- integer))
-
-(defcustom magit-credential-cache-daemon-socket
- (--some (pcase-let ((`(,prog . ,args) (split-string it)))
- (if (and prog
- (string-match-p
- "\\`\\(?:\\(?:/.*/\\)?git-credential-\\)?cache\\'" prog))
- (or (cl-loop for (opt val) on args
- if (string= opt "--socket")
- return val)
- (expand-file-name "~/.git-credential-cache/socket"))))
- ;; Note: `magit-process-file' is not yet defined when
- ;; evaluating this form, so we use `process-lines'.
- (ignore-errors
- (let ((process-environment
- (append magit-git-environment process-environment)))
- (process-lines magit-git-executable
- "config" "--get-all" "credential.helper"))))
- "If non-nil, start a credential cache daemon using this socket.
-
-When using Git's cache credential helper in the normal way, Emacs
-sends a SIGHUP to the credential daemon after the git subprocess
-has exited, causing the daemon to also quit. This can be avoided
-by starting the `git-credential-cache--daemon' process directly
-from Emacs.
-
-The function `magit-maybe-start-credential-cache-daemon' takes
-care of starting the daemon if necessary, using the value of this
-option as the socket. If this option is nil, then it does not
-start any daemon. Likewise if another daemon is already running,
-then it starts no new daemon. This function has to be a member
-of the hook variable `magit-credential-hook' for this to work.
-If an error occurs while starting the daemon, most likely because
-the necessary executable is missing, then the function removes
-itself from the hook, to avoid further futile attempts."
- :package-version '(magit . "2.3.0")
- :group 'magit-process
- :type '(choice (file :tag "Socket")
- (const :tag "Don't start a cache daemon" nil)))
-
-(defcustom magit-process-yes-or-no-prompt-regexp
- " [\[(]\\([Yy]\\(?:es\\)?\\)[/|]\\([Nn]o?\\)[\])] ?[?:] ?$"
- "Regexp matching Yes-or-No prompts of Git and its subprocesses."
- :package-version '(magit . "2.1.0")
- :group 'magit-process
- :type 'regexp)
-
-(defcustom magit-process-password-prompt-regexps
- '("^\\(Enter \\)?[Pp]assphrase\\( for \\(RSA \\)?key '.*'\\)?: ?$"
- ;; Match-group 99 is used to identify the "user@host" part.
- "^\\(Enter \\)?[Pp]assword\\( for '\\(https?://\\)?\\(?99:.*\\)'\\)?: ?$"
- "^.*'s password: ?$"
- "^Yubikey for .*: ?$"
- "^Enter PIN for .*: ?$")
- "List of regexps matching password prompts of Git and its subprocesses.
-Also see `magit-process-find-password-functions'."
- :package-version '(magit . "2.8.0")
- :group 'magit-process
- :type '(repeat (regexp)))
-
-(defcustom magit-process-find-password-functions nil
- "List of functions to try in sequence to get a password.
-
-These functions may be called when git asks for a password, which
-is detected using `magit-process-password-prompt-regexps'. They
-are called if and only if matching the prompt resulted in the
-value of the 99th submatch to be non-nil. Therefore users can
-control for which prompts these functions should be called by
-putting the host name in the 99th submatch, or not.
-
-If the functions are called, then they are called in the order
-given, with the host name as only argument, until one of them
-returns non-nil. If they are not called or none of them returns
-non-nil, then the password is read from the user instead."
- :package-version '(magit . "2.3.0")
- :group 'magit-process
- :type 'hook
- :options '(magit-process-password-auth-source))
-
-(defcustom magit-process-username-prompt-regexps
- '("^Username for '.*': ?$")
- "List of regexps matching username prompts of Git and its subprocesses."
- :package-version '(magit . "2.1.0")
- :group 'magit-process
- :type '(repeat (regexp)))
-
-(defcustom magit-process-ensure-unix-line-ending t
- "Whether Magit should ensure a unix coding system when talking to Git."
- :package-version '(magit . "2.6.0")
- :group 'magit-process
- :type 'boolean)
-
-(defcustom magit-process-display-mode-line-error t
- "Whether Magit should retain and highlight process errors in the mode line."
- :package-version '(magit . "2.12.0")
- :group 'magit-process
- :type 'boolean)
-
-(defface magit-process-ok
- '((t :inherit magit-section-heading :foreground "green"))
- "Face for zero exit-status."
- :group 'magit-faces)
-
-(defface magit-process-ng
- '((t :inherit magit-section-heading :foreground "red"))
- "Face for non-zero exit-status."
- :group 'magit-faces)
-
-(defface magit-mode-line-process
- '((t :inherit mode-line-emphasis))
- "Face for `mode-line-process' status when Git is running for side-effects."
- :group 'magit-faces)
-
-(defface magit-mode-line-process-error
- '((t :inherit error))
- "Face for `mode-line-process' error status.
-
-Used when `magit-process-display-mode-line-error' is non-nil."
- :group 'magit-faces)
-
-;;; Process Mode
-
-(defvar magit-process-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-mode-map)
- map)
- "Keymap for `magit-process-mode'.")
-
-(define-derived-mode magit-process-mode magit-mode "Magit Process"
- "Mode for looking at Git process output."
- :group 'magit-process
- (hack-dir-local-variables-non-file-buffer)
- (setq imenu-prev-index-position-function
- 'magit-imenu--process-prev-index-position-function)
- (setq imenu-extract-index-name-function
- 'magit-imenu--process-extract-index-name-function))
-
-(defun magit-process-buffer (&optional nodisplay)
- "Display the current repository's process buffer.
-
-If that buffer doesn't exist yet, then create it.
-Non-interactively return the buffer and unless
-optional NODISPLAY is non-nil also display it."
- (interactive)
- (let ((topdir (magit-toplevel)))
- (unless topdir
- (magit--with-safe-default-directory nil
- (setq topdir default-directory)
- (let (prev)
- (while (not (equal topdir prev))
- (setq prev topdir)
- (setq topdir (file-name-directory (directory-file-name topdir)))))))
- (let ((buffer (or (--first (with-current-buffer it
- (and (eq major-mode 'magit-process-mode)
- (equal default-directory topdir)))
- (buffer-list))
- (let ((default-directory topdir))
- (magit-generate-new-buffer 'magit-process-mode)))))
- (with-current-buffer buffer
- (if magit-root-section
- (when magit-process-log-max
- (magit-process-truncate-log))
- (magit-process-mode)
- (let ((inhibit-read-only t)
- (magit-insert-section--parent nil)
- (magit-insert-section--oldroot nil))
- (make-local-variable 'text-property-default-nonsticky)
- (magit-insert-section (processbuf)
- (insert "\n")))))
- (unless nodisplay
- (magit-display-buffer buffer))
- buffer)))
-
-(defun magit-process-kill ()
- "Kill the process at point."
- (interactive)
- (when-let ((process (magit-section-value-if 'process)))
- (unless (eq (process-status process) 'run)
- (user-error "Process isn't running"))
- (magit-confirm 'kill-process)
- (kill-process process)))
-
-;;; Synchronous Processes
-
-(defvar magit-process-raise-error nil)
-
-(defun magit-git (&rest args)
- "Call Git synchronously in a separate process, for side-effects.
-
-Option `magit-git-executable' specifies the Git executable.
-The arguments ARGS specify arguments to Git, they are flattened
-before use.
-
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'. If Git exits with a non-zero status,
-then raise an error."
- (let ((magit-process-raise-error t))
- (magit-call-git args)))
-
-(defun magit-run-git (&rest args)
- "Call Git synchronously in a separate process, and refresh.
-
-Option `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The arguments ARGS specify arguments to Git, they are flattened
-before use.
-
-After Git returns, the current buffer (if it is a Magit buffer)
-as well as the current repository's status buffer are refreshed.
-
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'."
- (let ((magit--refresh-cache (list (cons 0 0))))
- (magit-call-git args)
- (when (member (car args) '("init" "clone"))
- ;; Creating a new repository invalidates the cache.
- (setq magit--refresh-cache nil))
- (magit-refresh)))
-
-(defvar magit-pre-call-git-hook nil)
-
-(defun magit-call-git (&rest args)
- "Call Git synchronously in a separate process.
-
-Option `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The arguments ARGS specify arguments to Git, they are flattened
-before use.
-
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'."
- (run-hooks 'magit-pre-call-git-hook)
- (let ((default-process-coding-system (magit--process-coding-system)))
- (apply #'magit-call-process magit-git-executable
- (magit-process-git-arguments args))))
-
-(defun magit-call-process (program &rest args)
- "Call PROGRAM synchronously in a separate process.
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'."
- (pcase-let ((`(,process-buf . ,section)
- (magit-process-setup program args)))
- (magit-process-finish
- (let ((inhibit-read-only t))
- (apply #'magit-process-file program nil process-buf nil args))
- process-buf (current-buffer) default-directory section)))
-
-(defun magit-process-file (process &optional infile buffer display &rest args)
- "Process files synchronously in a separate process.
-Identical to `process-file' but temporarily enable Cygwin's
-\"noglob\" option during the call and ensure unix eol
-conversion."
- (let ((process-environment (magit-process-environment))
- (default-process-coding-system (magit--process-coding-system)))
- (apply #'process-file process infile buffer display args)))
-
-(defun magit-process-environment ()
- ;; The various w32 hacks are only applicable when running on the
- ;; local machine. As of Emacs 25.1, a local binding of
- ;; process-environment different from the top-level value affects
- ;; the environment used in
- ;; tramp-sh-handle-{start-file-process,process-file}.
- (let ((local (not (file-remote-p default-directory))))
- (append magit-git-environment
- (and local
- (cdr (assoc magit-git-executable magit-git-w32-path-hack)))
- (and local magit-need-cygwin-noglob
- (mapcar (lambda (var)
- (concat var "=" (--if-let (getenv var)
- (concat it " noglob")
- "noglob")))
- '("CYGWIN" "MSYS")))
- process-environment)))
-
-(defvar magit-this-process nil)
-
-(defun magit-run-git-with-input (&rest args)
- "Call Git in a separate process.
-ARGS is flattened and then used as arguments to Git.
-
-The current buffer's content is used as the process' standard
-input.
-
-Option `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The remaining arguments ARGS specify arguments to Git, they are
-flattened before use."
- (when (eq system-type 'windows-nt)
- ;; On w32, git expects UTF-8 encoded input, ignore any user
- ;; configuration telling us otherwise (see #3250).
- (encode-coding-region (point-min) (point-max) 'utf-8-unix))
- (if (file-remote-p default-directory)
- ;; We lack `process-file-region', so fall back to asynch +
- ;; waiting in remote case.
- (progn
- (magit-start-git (current-buffer) args)
- (while (and magit-this-process
- (eq (process-status magit-this-process) 'run))
- (sleep-for 0.005)))
- (run-hooks 'magit-pre-call-git-hook)
- (pcase-let* ((process-environment (magit-process-environment))
- (default-process-coding-system (magit--process-coding-system))
- (flat-args (magit-process-git-arguments args))
- (`(,process-buf . ,section)
- (magit-process-setup magit-git-executable flat-args))
- (inhibit-read-only t))
- (magit-process-finish
- (apply #'call-process-region (point-min) (point-max)
- magit-git-executable nil process-buf nil flat-args)
- process-buf nil default-directory section))))
-
-(defun magit-run-git-with-logfile (file &rest args)
- "Call Git in a separate process and log its output to FILE.
-This function might have a short halflive."
- (apply #'magit-process-file magit-git-executable nil `(:file ,file) nil
- (magit-process-git-arguments args))
- (magit-refresh))
-
-;;; Asynchronous Processes
-
-(defun magit-run-git-async (&rest args)
- "Start Git, prepare for refresh, and return the process object.
-ARGS is flattened and then used as arguments to Git.
-
-Display the command line arguments in the echo area.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-
-See `magit-start-process' for more information."
- (message "Running %s %s" magit-git-executable
- (let ((m (mapconcat #'identity (-flatten args) " ")))
- (remove-list-of-text-properties 0 (length m) '(face) m)
- m))
- (magit-start-git nil args))
-
-(defun magit-run-git-with-editor (&rest args)
- "Export GIT_EDITOR and start Git.
-Also prepare for refresh and return the process object.
-ARGS is flattened and then used as arguments to Git.
-
-Display the command line arguments in the echo area.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-
-See `magit-start-process' and `with-editor' for more information."
- (magit--record-separated-gitdir)
- (magit-with-editor (magit-run-git-async args)))
-
-(defun magit-run-git-sequencer (&rest args)
- "Export GIT_EDITOR and start Git.
-Also prepare for refresh and return the process object.
-ARGS is flattened and then used as arguments to Git.
-
-Display the command line arguments in the echo area.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-If the sequence stops at a commit, make the section representing
-that commit the current section by moving `point' there.
-
-See `magit-start-process' and `with-editor' for more information."
- (apply #'magit-run-git-with-editor args)
- (set-process-sentinel magit-this-process #'magit-sequencer-process-sentinel)
- magit-this-process)
-
-(defvar magit-pre-start-git-hook nil)
-
-(defun magit-start-git (input &rest args)
- "Start Git, prepare for refresh, and return the process object.
-
-If INPUT is non-nil, it has to be a buffer or the name of an
-existing buffer. The buffer content becomes the processes
-standard input.
-
-Option `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The remaining arguments ARGS specify arguments to Git, they are
-flattened before use.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-
-See `magit-start-process' for more information."
- (run-hooks 'magit-pre-start-git-hook)
- (let ((default-process-coding-system (magit--process-coding-system)))
- (apply #'magit-start-process magit-git-executable input
- (magit-process-git-arguments args))))
-
-(defun magit-start-process (program &optional input &rest args)
- "Start PROGRAM, prepare for refresh, and return the process object.
-
-If optional argument INPUT is non-nil, it has to be a buffer or
-the name of an existing buffer. The buffer content becomes the
-processes standard input.
-
-The process is started using `start-file-process' and then setup
-to use the sentinel `magit-process-sentinel' and the filter
-`magit-process-filter'. Information required by these functions
-is stored in the process object. When this function returns the
-process has not started to run yet so it is possible to override
-the sentinel and filter.
-
-After the process returns, `magit-process-sentinel' refreshes the
-buffer that was current when `magit-start-process' was called (if
-it is a Magit buffer and still alive), as well as the respective
-Magit status buffer."
- (pcase-let*
- ((`(,process-buf . ,section)
- (magit-process-setup program args))
- (process
- (let ((process-connection-type
- ;; Don't use a pty, because it would set icrnl
- ;; which would modify the input (issue #20).
- (and (not input) magit-process-connection-type))
- (process-environment (magit-process-environment))
- (default-process-coding-system (magit--process-coding-system)))
- (apply #'start-file-process
- (file-name-nondirectory program)
- process-buf program args))))
- (with-editor-set-process-filter process #'magit-process-filter)
- (set-process-sentinel process #'magit-process-sentinel)
- (set-process-buffer process process-buf)
- (when (eq system-type 'windows-nt)
- ;; On w32, git expects UTF-8 encoded input, ignore any user
- ;; configuration telling us otherwise.
- (set-process-coding-system process 'utf-8-unix))
- (process-put process 'section section)
- (process-put process 'command-buf (current-buffer))
- (process-put process 'default-dir default-directory)
- (when inhibit-magit-refresh
- (process-put process 'inhibit-refresh t))
- (oset section process process)
- (with-current-buffer process-buf
- (set-marker (process-mark process) (point)))
- (when input
- (with-current-buffer input
- (process-send-region process (point-min) (point-max))
- (process-send-eof process)))
- (setq magit-this-process process)
- (oset section value process)
- (magit-process-display-buffer process)
- process))
-
-(defun magit-parse-git-async (&rest args)
- (setq args (magit-process-git-arguments args))
- (let ((command-buf (current-buffer))
- (process-buf (generate-new-buffer " *temp*"))
- (toplevel (magit-toplevel)))
- (with-current-buffer process-buf
- (setq default-directory toplevel)
- (let ((process
- (let ((process-connection-type nil)
- (process-environment (magit-process-environment))
- (default-process-coding-system
- (magit--process-coding-system)))
- (apply #'start-file-process "git" process-buf
- magit-git-executable args))))
- (process-put process 'command-buf command-buf)
- (process-put process 'parsed (point))
- (setq magit-this-process process)
- process))))
-
-;;; Process Internals
-
-(defun magit-process-setup (program args)
- (magit-process-set-mode-line program args)
- (let ((pwd default-directory)
- (buf (magit-process-buffer t)))
- (cons buf (with-current-buffer buf
- (prog1 (magit-process-insert-section pwd program args nil nil)
- (backward-char 1))))))
-
-(defun magit-process-insert-section (pwd program args &optional errcode errlog)
- (let ((inhibit-read-only t)
- (magit-insert-section--parent magit-root-section)
- (magit-insert-section--oldroot nil))
- (goto-char (1- (point-max)))
- (magit-insert-section (process)
- (insert (if errcode
- (format "%3s " (propertize (number-to-string errcode)
- 'face 'magit-process-ng))
- "run "))
- (unless (equal (expand-file-name pwd)
- (expand-file-name default-directory))
- (insert (file-relative-name pwd default-directory) ?\s))
- (cond
- ((and args (equal program magit-git-executable))
- (setq args (-split-at (length magit-git-global-arguments) args))
- (insert (propertize (file-name-nondirectory program)
- 'face 'magit-section-heading) " ")
- (insert (propertize (char-to-string magit-ellipsis)
- 'face 'magit-section-heading
- 'help-echo (mapconcat #'identity (car args) " ")))
- (insert " ")
- (insert (propertize (mapconcat #'shell-quote-argument (cadr args) " ")
- 'face 'magit-section-heading)))
- ((and args (equal program shell-file-name))
- (insert (propertize (cadr args) 'face 'magit-section-heading)))
- (t
- (insert (propertize (file-name-nondirectory program)
- 'face 'magit-section-heading) " ")
- (insert (propertize (mapconcat #'shell-quote-argument args " ")
- 'face 'magit-section-heading))))
- (magit-insert-heading)
- (when errlog
- (insert-file-contents errlog)
- (goto-char (1- (point-max))))
- (insert "\n"))))
-
-(defun magit-process-truncate-log ()
- (let* ((head nil)
- (tail (oref magit-root-section children))
- (count (length tail)))
- (when (> (1+ count) magit-process-log-max)
- (while (and (cdr tail)
- (> count (/ magit-process-log-max 2)))
- (let* ((inhibit-read-only t)
- (section (car tail))
- (process (oref section process)))
- (cond ((not process))
- ((memq (process-status process) '(exit signal))
- (delete-region (oref section start)
- (1+ (oref section end)))
- (cl-decf count))
- (t
- (push section head))))
- (pop tail))
- (oset magit-root-section children
- (nconc (reverse head) tail)))))
-
-(defun magit-process-sentinel (process event)
- "Default sentinel used by `magit-start-process'."
- (when (memq (process-status process) '(exit signal))
- (setq event (substring event 0 -1))
- (when (string-match "^finished" event)
- (message (concat (capitalize (process-name process)) " finished")))
- (magit-process-finish process)
- (when (eq process magit-this-process)
- (setq magit-this-process nil))
- (unless (process-get process 'inhibit-refresh)
- (let ((command-buf (process-get process 'command-buf)))
- (if (buffer-live-p command-buf)
- (with-current-buffer command-buf
- (magit-refresh))
- (with-temp-buffer
- (setq default-directory (process-get process 'default-dir))
- (magit-refresh)))))))
-
-(defun magit-sequencer-process-sentinel (process event)
- "Special sentinel used by `magit-run-git-sequencer'."
- (when (memq (process-status process) '(exit signal))
- (magit-process-sentinel process event)
- (when-let ((process-buf (process-buffer process)))
- (when (buffer-live-p process-buf)
- (when-let ((status-buf (with-current-buffer process-buf
- (magit-mode-get-buffer 'magit-status-mode))))
- (with-current-buffer status-buf
- (--when-let
- (magit-get-section
- `((commit . ,(magit-rev-parse "HEAD"))
- (,(pcase (car (cadr (-split-at
- (1+ (length magit-git-global-arguments))
- (process-command process))))
- ((or "rebase" "am") 'rebase-sequence)
- ((or "cherry-pick" "revert") 'sequence)))
- (status)))
- (goto-char (oref it start))
- (magit-section-update-highlight))))))))
-
-(defun magit-process-filter (proc string)
- "Default filter used by `magit-start-process'."
- (with-current-buffer (process-buffer proc)
- (let ((inhibit-read-only t))
- (magit-process-yes-or-no-prompt proc string)
- (magit-process-username-prompt proc string)
- (magit-process-password-prompt proc string)
- (goto-char (process-mark proc))
- (setq string (propertize string 'magit-section
- (process-get proc 'section)))
- ;; Find last ^M in string. If one was found, ignore
- ;; everything before it and delete the current line.
- (let ((ret-pos (length string)))
- (while (and (>= (cl-decf ret-pos) 0)
- (/= ?\r (aref string ret-pos))))
- (if (< ret-pos 0)
- (insert string)
- (delete-region (line-beginning-position) (point))
- (insert (substring string (1+ ret-pos)))))
- (set-marker (process-mark proc) (point)))))
-
-(defmacro magit-process-kill-on-abort (proc &rest body)
- (declare (indent 1) (debug (form body)))
- (let ((map (cl-gensym)))
- `(let ((,map (make-sparse-keymap)))
- (set-keymap-parent ,map minibuffer-local-map)
- (define-key ,map "\C-g"
- (lambda ()
- (interactive)
- (ignore-errors (kill-process ,proc))
- (abort-recursive-edit)))
- (let ((minibuffer-local-map ,map))
- ,@body))))
-
-(defun magit-process-yes-or-no-prompt (process string)
- "Forward Yes-or-No prompts to the user."
- (when-let ((beg (string-match magit-process-yes-or-no-prompt-regexp string)))
- (let ((max-mini-window-height 30))
- (process-send-string
- process
- (downcase
- (concat
- (match-string
- (if (save-match-data
- (magit-process-kill-on-abort process
- (yes-or-no-p (substring string 0 beg)))) 1 2)
- string)
- "\n"))))))
-
-(defun magit-process-password-auth-source (key)
- "Use `auth-source-search' to get a password.
-If found, return the password. Otherwise, return nil.
-
-To use this function add it to the appropriate hook
- (add-hook 'magit-process-find-password-functions
- 'magit-process-password-auth-source)
-
-KEY typically derives from a prompt such as:
- Password for 'https://tarsius@bitbucket.org'
-in which case it would be the string
- tarsius@bitbucket.org
-which matches the ~/.authinfo.gpg entry
- machine bitbucket.org login tarsius password 12345
-or iff that is undefined, for backward compatibility
- machine tarsius@bitbucket.org password 12345"
- (require 'auth-source)
- (and (string-match "\\`\\([^@]+\\)@\\([^@]+\\)\\'" key)
- (let* ((user (match-string 1 key))
- (host (match-string 2 key))
- (secret
- (plist-get
- (car (or (auth-source-search :max 1 :host host :user user)
- (auth-source-search :max 1 :host key)))
- :secret)))
- (if (functionp secret)
- (funcall secret)
- secret))))
-
-(defun magit-process-password-prompt (process string)
- "Find a password based on prompt STRING and send it to git.
-Use `magit-process-password-prompt-regexps' to find a known
-prompt. If and only if one is found, then call functions in
-`magit-process-find-password-functions' until one of them returns
-the password. If all function return nil, then read the password
-from the user."
- (when-let ((prompt (magit-process-match-prompt
- magit-process-password-prompt-regexps string)))
- (process-send-string
- process (magit-process-kill-on-abort process
- (concat (or (when-let ((key (match-string 99 string)))
- (run-hook-with-args-until-success
- 'magit-process-find-password-functions key))
- (read-passwd prompt))
- "\n")))))
-
-(defun magit-process-username-prompt (process string)
- "Forward username prompts to the user."
- (--when-let (magit-process-match-prompt
- magit-process-username-prompt-regexps string)
- (process-send-string
- process (magit-process-kill-on-abort process
- (concat (read-string it nil nil (user-login-name)) "\n")))))
-
-(defun magit-process-match-prompt (prompts string)
- "Match STRING against PROMPTS and set match data.
-Return the matched string suffixed with \": \", if needed."
- (when (--any-p (string-match it string) prompts)
- (let ((prompt (match-string 0 string)))
- (cond ((string-suffix-p ": " prompt) prompt)
- ((string-suffix-p ":" prompt) (concat prompt " "))
- (t (concat prompt ": "))))))
-
-(defun magit--process-coding-system ()
- (let ((fro (or magit-git-output-coding-system
- (car default-process-coding-system)))
- (to (cdr default-process-coding-system)))
- (if magit-process-ensure-unix-line-ending
- (cons (coding-system-change-eol-conversion fro 'unix)
- (coding-system-change-eol-conversion to 'unix))
- (cons fro to))))
-
-(defvar magit-credential-hook nil
- "Hook run before Git needs credentials.")
-
-(defvar magit-credential-cache-daemon-process nil)
-
-(defun magit-maybe-start-credential-cache-daemon ()
- "Maybe start a `git-credential-cache--daemon' process.
-
-If such a process is already running or if the value of option
-`magit-credential-cache-daemon-socket' is nil, then do nothing.
-Otherwise start the process passing the value of that options
-as argument."
- (unless (or (not magit-credential-cache-daemon-socket)
- (process-live-p magit-credential-cache-daemon-process)
- (memq magit-credential-cache-daemon-process
- (list-system-processes)))
- (setq magit-credential-cache-daemon-process
- (or (--first (let* ((attr (process-attributes it))
- (comm (cdr (assq 'comm attr)))
- (user (cdr (assq 'user attr))))
- (and (string= comm "git-credential-cache--daemon")
- (string= user user-login-name)))
- (list-system-processes))
- (condition-case nil
- (start-process "git-credential-cache--daemon"
- " *git-credential-cache--daemon*"
- magit-git-executable
- "credential-cache--daemon"
- magit-credential-cache-daemon-socket)
- ;; Some Git implementations (e.g. Windows) won't have
- ;; this program; if we fail the first time, stop trying.
- ((debug error)
- (remove-hook 'magit-credential-hook
- #'magit-maybe-start-credential-cache-daemon)))))))
-
-(add-hook 'magit-credential-hook #'magit-maybe-start-credential-cache-daemon)
-
-(defun tramp-sh-handle-start-file-process--magit-tramp-process-environment
- (fn name buffer program &rest args)
- (if magit-tramp-process-environment
- (apply fn name buffer
- (car magit-tramp-process-environment)
- (append (cdr magit-tramp-process-environment)
- (cons program args)))
- (apply fn name buffer program args)))
-
-(advice-add 'tramp-sh-handle-start-file-process :around
- 'tramp-sh-handle-start-file-process--magit-tramp-process-environment)
-
-(defun tramp-sh-handle-process-file--magit-tramp-process-environment
- (fn program &optional infile destination display &rest args)
- (if magit-tramp-process-environment
- (apply fn "env" infile destination display
- (append magit-tramp-process-environment
- (cons program args)))
- (apply fn program infile destination display args)))
-
-(advice-add 'tramp-sh-handle-process-file :around
- 'tramp-sh-handle-process-file--magit-tramp-process-environment)
-
-(defvar magit-mode-line-process-map
- (let ((map (make-sparse-keymap)))
- (define-key map (kbd "<mode-line> <mouse-1>")
- 'magit-process-buffer)
- map)
- "Keymap for `mode-line-process'.")
-
-(defun magit-process-set-mode-line (program args)
- "Display the git command (sans arguments) in the mode line."
- (when (equal program magit-git-executable)
- (setq args (nthcdr (length magit-git-global-arguments) args)))
- (let ((str (concat " " (propertize
- (concat (file-name-nondirectory program)
- (and args (concat " " (car args))))
- 'mouse-face 'highlight
- 'keymap magit-mode-line-process-map
- 'help-echo "mouse-1: Show process buffer"
- 'face 'magit-mode-line-process))))
- (magit-repository-local-set 'mode-line-process str)
- (dolist (buf (magit-mode-get-buffers))
- (with-current-buffer buf
- (setq mode-line-process str)))
- (force-mode-line-update t)))
-
-(defun magit-process-set-mode-line-error-status (&optional error str)
- "Apply an error face to the string set by `magit-process-set-mode-line'.
-
-If ERROR is supplied, include it in the `mode-line-process' tooltip.
-
-If STR is supplied, it replaces the `mode-line-process' text."
- (setq str (or str (magit-repository-local-get 'mode-line-process)))
- (when str
- (setq error (format "%smouse-1: Show process buffer"
- (if (stringp error)
- (concat error "\n\n")
- "")))
- (setq str (concat " " (propertize
- (substring-no-properties str 1)
- 'mouse-face 'highlight
- 'keymap magit-mode-line-process-map
- 'help-echo error
- 'face 'magit-mode-line-process-error)))
- (magit-repository-local-set 'mode-line-process str)
- (dolist (buf (magit-mode-get-buffers))
- (with-current-buffer buf
- (setq mode-line-process str)))
- (force-mode-line-update t)
- ;; We remove any error status from the mode line when a magit
- ;; buffer is refreshed (see `magit-refresh-buffer'), but we must
- ;; ensure that we ignore any refreshes during the remainder of the
- ;; current command -- otherwise a newly-set error status would be
- ;; removed before it was seen. We set a flag which prevents the
- ;; status from being removed prior to the next command, so that
- ;; the error status is guaranteed to remain visible until then.
- (let ((repokey (magit-repository-local-repository)))
- ;; The following closure captures the repokey value, and is
- ;; added to `pre-command-hook'.
- (cl-labels ((enable-magit-process-unset-mode-line
- () ;; Remove ourself from the hook variable, so
- ;; that we only run once.
- (remove-hook 'pre-command-hook
- #'enable-magit-process-unset-mode-line)
- ;; Clear the inhibit flag for the repository in
- ;; which we set it.
- (magit-repository-local-set
- 'inhibit-magit-process-unset-mode-line nil repokey)))
- ;; Set the inhibit flag until the next command is invoked.
- (magit-repository-local-set
- 'inhibit-magit-process-unset-mode-line t repokey)
- (add-hook 'pre-command-hook
- #'enable-magit-process-unset-mode-line)))))
-
-(defun magit-process-unset-mode-line-error-status ()
- "Remove any current error status from the mode line."
- (let ((status (or mode-line-process
- (magit-repository-local-get 'mode-line-process))))
- (when (and status
- (eq (get-text-property 1 'face status)
- 'magit-mode-line-process-error))
- (magit-process-unset-mode-line))))
-
-(defun magit-process-unset-mode-line ()
- "Remove the git command from the mode line."
- (unless (magit-repository-local-get 'inhibit-magit-process-unset-mode-line)
- (magit-repository-local-set 'mode-line-process nil)
- (dolist (buf (magit-mode-get-buffers))
- (with-current-buffer buf (setq mode-line-process nil)))
- (force-mode-line-update t)))
-
-(defvar magit-process-error-message-regexps
- (list "^\\*ERROR\\*: Canceled by user$"
- "^\\(?:error\\|fatal\\|git\\): \\(.*\\)$"
- "^\\(Cannot rebase:.*\\)$"))
-
-(define-error 'magit-git-error "Git error")
-
-(defun magit-process-error-summary (process-buf section)
- "A one-line error summary from the given SECTION."
- (or (and (buffer-live-p process-buf)
- (with-current-buffer process-buf
- (and (oref section content)
- (save-excursion
- (goto-char (oref section end))
- (run-hook-wrapped
- 'magit-process-error-message-regexps
- (lambda (re)
- (save-excursion
- (and (re-search-backward
- re (oref section start) t)
- (or (match-string-no-properties 1)
- (and (not magit-process-raise-error)
- 'suppressed))))))))))
- "Git failed"))
-
-(defun magit-process-error-tooltip (process-buf section)
- "Returns the text from SECTION of the PROCESS-BUF buffer.
-
-Limited by `magit-process-error-tooltip-max-lines'."
- (and (integerp magit-process-error-tooltip-max-lines)
- (> magit-process-error-tooltip-max-lines 0)
- (buffer-live-p process-buf)
- (with-current-buffer process-buf
- (save-excursion
- (goto-char (or (oref section content)
- (oref section start)))
- (buffer-substring-no-properties
- (point)
- (save-excursion
- (forward-line magit-process-error-tooltip-max-lines)
- (goto-char
- (if (> (point) (oref section end))
- (oref section end)
- (point)))
- ;; Remove any trailing whitespace.
- (when (re-search-backward "[^[:space:]\n]"
- (oref section start) t)
- (forward-char 1))
- (point)))))))
-
-(defvar-local magit-this-error nil)
-
-(defvar magit-process-finish-apply-ansi-colors nil)
-
-(defun magit-process-finish (arg &optional process-buf command-buf
- default-dir section)
- (unless (integerp arg)
- (setq process-buf (process-buffer arg))
- (setq command-buf (process-get arg 'command-buf))
- (setq default-dir (process-get arg 'default-dir))
- (setq section (process-get arg 'section))
- (setq arg (process-exit-status arg)))
- (when (fboundp 'dired-uncache)
- (dired-uncache default-dir))
- (when (buffer-live-p process-buf)
- (with-current-buffer process-buf
- (let ((inhibit-read-only t)
- (marker (oref section start)))
- (goto-char marker)
- (save-excursion
- (delete-char 3)
- (set-marker-insertion-type marker nil)
- (insert (propertize (format "%3s" arg)
- 'magit-section section
- 'face (if (= arg 0)
- 'magit-process-ok
- 'magit-process-ng)))
- (set-marker-insertion-type marker t))
- (when magit-process-finish-apply-ansi-colors
- (ansi-color-apply-on-region (oref section content)
- (oref section end)))
- (if (= (oref section end)
- (+ (line-end-position) 2))
- (save-excursion
- (goto-char (1+ (line-end-position)))
- (delete-char -1)
- (oset section content nil))
- (let ((buf (magit-process-buffer t)))
- (when (and (= arg 0)
- (not (--any-p (eq (window-buffer it) buf)
- (window-list))))
- (magit-section-hide section)))))))
- (if (= arg 0)
- ;; Unset the `mode-line-process' value upon success.
- (magit-process-unset-mode-line)
- ;; Otherwise process the error.
- (let ((msg (magit-process-error-summary process-buf section)))
- ;; Change `mode-line-process' to an error face upon failure.
- (if magit-process-display-mode-line-error
- (magit-process-set-mode-line-error-status
- (or (magit-process-error-tooltip process-buf section)
- msg))
- (magit-process-unset-mode-line))
- ;; Either signal the error, or else display the error summary in
- ;; the status buffer and with a message in the echo area.
- (cond
- (magit-process-raise-error
- (signal 'magit-git-error (list (format "%s (in %s)" msg default-dir))))
- ((not (eq msg 'suppressed))
- (when (buffer-live-p process-buf)
- (with-current-buffer process-buf
- (when-let ((status-buf (magit-mode-get-buffer 'magit-status-mode)))
- (with-current-buffer status-buf
- (setq magit-this-error msg)))))
- (message "%s ... [%s buffer %s for details]" msg
- (if-let ((key (and (buffer-live-p command-buf)
- (with-current-buffer command-buf
- (car (where-is-internal
- 'magit-process-buffer))))))
- (format "Hit %s to see" (key-description key))
- "See")
- (buffer-name process-buf))))))
- arg)
-
-(defun magit-process-display-buffer (process)
- (when (process-live-p process)
- (let ((buf (process-buffer process)))
- (cond ((not (buffer-live-p buf)))
- ((= magit-process-popup-time 0)
- (if (minibufferp)
- (switch-to-buffer-other-window buf)
- (pop-to-buffer buf)))
- ((> magit-process-popup-time 0)
- (run-with-timer magit-process-popup-time nil
- (lambda (p)
- (when (eq (process-status p) 'run)
- (let ((buf (process-buffer p)))
- (when (buffer-live-p buf)
- (if (minibufferp)
- (switch-to-buffer-other-window buf)
- (pop-to-buffer buf))))))
- process))))))
-
-(defun magit--log-action (summary line list)
- (let (heading lines)
- (if (cdr list)
- (progn (setq heading (funcall summary list))
- (setq lines (mapcar line list)))
- (setq heading (funcall line (car list))))
- (with-current-buffer (magit-process-buffer t)
- (goto-char (1- (point-max)))
- (let ((inhibit-read-only t))
- (magit-insert-section (message)
- (magit-insert-heading (concat " * " heading))
- (when lines
- (dolist (line lines)
- (insert line "\n"))
- (insert "\n"))))
- (let ((inhibit-message t))
- (when heading
- (setq lines (cons heading lines)))
- (message (mapconcat #'identity lines "\n"))))))
-
-;;; _
-(provide 'magit-process)
-;;; magit-process.el ends here
diff --git a/elpa/magit-20181116.1412/magit-process.elc b/elpa/magit-20181116.1412/magit-process.elc
deleted file mode 100644
index 7b19461..0000000
--- a/elpa/magit-20181116.1412/magit-process.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-pull.el b/elpa/magit-20181116.1412/magit-pull.el
deleted file mode 100644
index 67abe43..0000000
--- a/elpa/magit-20181116.1412/magit-pull.el
+++ /dev/null
@@ -1,151 +0,0 @@
-;;; magit-pull.el --- update local objects and refs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements pull commands.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-pull-popup "magit-pull" nil t)
-(magit-define-popup magit-pull-popup
- "Popup console for pull commands."
- :man-page "git-pull"
- :variables '("Configure"
- (?r "branch.%s.rebase"
- magit-cycle-branch*rebase
- magit-pull-format-branch*rebase)
- (?C "variables..." magit-branch-config-popup))
- :actions '((lambda ()
- (--if-let (magit-get-current-branch)
- (concat
- (propertize "Pull into " 'face 'magit-popup-heading)
- (propertize it 'face 'magit-branch-local)
- (propertize " from" 'face 'magit-popup-heading))
- (propertize "Pull from" 'face 'magit-popup-heading)))
- (?p magit-get-push-branch magit-pull-from-pushremote)
- (?u magit-get-upstream-branch magit-pull-from-upstream)
- (?e "elsewhere" magit-pull-branch))
- :default-action 'magit-pull
- :max-action-columns 1)
-
-;;;###autoload (autoload 'magit-pull-and-fetch-popup "magit-pull" nil t)
-(magit-define-popup magit-pull-and-fetch-popup
- "Popup console for pull and fetch commands.
-
-This popup is intended as a replacement for the separate popups
-`magit-pull-popup' and `magit-fetch-popup'. To use it, add this
-to your init file:
-
- (with-eval-after-load \\='magit-remote
- (define-key magit-mode-map \"f\" \\='magit-pull-and-fetch-popup)
- (define-key magit-mode-map \"F\" nil))
-
-The combined popup does not offer all commands and arguments
-available from the individual popups. Instead of the argument
-`--prune' and the command `magit-fetch-all' it uses two commands
-`magit-fetch-prune' and `magit-fetch-no-prune'. And the commands
-`magit-fetch-from-pushremote' and `magit-fetch-from-upstream' are
-missing. To add them use something like:
-
- (with-eval-after-load \\='magit-remote
- (magit-define-popup-action \\='magit-pull-and-fetch-popup ?U
- \\='magit-get-upstream-branch
- \\='magit-fetch-from-upstream-remote ?F)
- (magit-define-popup-action \\='magit-pull-and-fetch-popup ?P
- \\='magit-get-push-branch
- \\='magit-fetch-from-push-remote ?F))"
- :man-page "git-pull"
- :variables '("Configure"
- (?r "branch.%s.rebase"
- magit-cycle-branch*rebase
- magit-pull-format-branch*rebase)
- (?C "variables..." magit-branch-config-popup))
- :actions '((lambda ()
- (--if-let (magit-get-current-branch)
- (concat
- (propertize "Pull into " 'face 'magit-popup-heading)
- (propertize it 'face 'magit-branch-local)
- (propertize " from" 'face 'magit-popup-heading))
- (propertize "Pull from" 'face 'magit-popup-heading)))
- (?p magit-get-push-branch magit-pull-from-pushremote)
- (?u magit-get-upstream-branch magit-pull-from-upstream)
- (?e "elsewhere" magit-pull-branch)
- "Fetch from"
- (?f "remotes" magit-fetch-all-no-prune)
- (?F "remotes and prune" magit-fetch-all-prune)
- "Fetch"
- (?o "another branch" magit-fetch-branch)
- (?s "explicit refspec" magit-fetch-refspec)
- (?m "submodules" magit-fetch-modules))
- :default-action 'magit-fetch
- :max-action-columns 1)
-
-(defun magit-pull-format-branch*rebase ()
- (magit--format-popup-variable:choices
- (format "branch.%s.rebase" (or (magit-get-current-branch) "<name>"))
- '("true" "false")
- "false" "pull.rebase"))
-
-(defun magit-git-pull (source args)
- (run-hooks 'magit-credential-hook)
- (pcase-let ((`(,remote . ,branch)
- (magit-split-branch-name source)))
- (magit-run-git-with-editor "pull" args remote branch)))
-
-;;;###autoload
-(defun magit-pull-from-pushremote (args)
- "Pull from the push-remote of the current branch."
- (interactive (list (magit-pull-arguments)))
- (--if-let (magit-get-push-branch)
- (magit-git-pull it args)
- (--if-let (magit-get-current-branch)
- (user-error "No push-remote is configured for %s" it)
- (user-error "No branch is checked out"))))
-
-;;;###autoload
-(defun magit-pull-from-upstream (args)
- "Pull from the upstream of the current branch."
- (interactive (list (magit-pull-arguments)))
- (--if-let (magit-get-upstream-branch)
- (progn (run-hooks 'magit-credential-hook)
- (magit-run-git-with-editor
- "pull" args (car (magit-split-branch-name it))))
- (--if-let (magit-get-current-branch)
- (user-error "No upstream is configured for %s" it)
- (user-error "No branch is checked out"))))
-
-;;;###autoload
-(defun magit-pull-branch (source args)
- "Pull from a branch read in the minibuffer."
- (interactive (list (magit-read-remote-branch "Pull" nil nil nil t)
- (magit-pull-arguments)))
- (magit-git-pull source args))
-
-;;; _
-(provide 'magit-pull)
-;;; magit-pull.el ends here
diff --git a/elpa/magit-20181116.1412/magit-pull.elc b/elpa/magit-20181116.1412/magit-pull.elc
deleted file mode 100644
index 4975d37..0000000
--- a/elpa/magit-20181116.1412/magit-pull.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-push.el b/elpa/magit-20181116.1412/magit-push.el
deleted file mode 100644
index f6e0428..0000000
--- a/elpa/magit-20181116.1412/magit-push.el
+++ /dev/null
@@ -1,345 +0,0 @@
-;;; magit-push.el --- update remote objects and refs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements push commands.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-;;; Options
-
-(defcustom magit-push-current-set-remote-if-missing t
- "Whether to configure missing remotes before pushing.
-
-When nil, then the command `magit-push-current-to-pushremote' and
-`magit-push-current-to-upstream' do not appear in the push popup
-if the push-remote resp. upstream is not configured. If the user
-invokes one of these commands anyway, then it raises an error.
-
-When non-nil, then these commands always appear in the push
-popup. But if the required configuration is missing, then they
-do appear in a way that indicates that this is the case. If the
-user invokes one of them, then it asks for the necessary
-configuration, stores the configuration, and then uses it to push
-a first time.
-
-This option also affects whether the argument `--set-upstream' is
-available in the popup. If the value is t, then that argument is
-redundant. But note that changing the value of this option does
-not take affect immediately, the argument will only be added or
-removed after restarting Emacs."
- :package-version '(magit . "2.6.0")
- :group 'magit-commands
- :type '(choice (const :tag "don't set" nil)
- (const :tag "set branch.<name>.pushRemote" t)
- (const :tag "set remote.pushDefault" default)))
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-push-popup "magit-push" nil t)
-(magit-define-popup magit-push-popup
- "Popup console for push commands."
- :man-page "git-push"
- :switches `((?f "Force with lease" "--force-with-lease")
- (?F "Force" "--force")
- (?h "Disable hooks" "--no-verify")
- (?d "Dry run" "--dry-run")
- ,@(and (not magit-push-current-set-remote-if-missing)
- '((?u "Set upstream" "--set-upstream"))))
- :actions '("Configure"
- (?C "variables..." magit-branch-config-popup)
- (lambda ()
- (--when-let (magit-get-current-branch)
- (concat (propertize "Push " 'face 'magit-popup-heading)
- (propertize it 'face 'magit-branch-local)
- (propertize " to" 'face 'magit-popup-heading))))
- (?p magit--push-current-to-pushremote-desc
- magit-push-current-to-pushremote)
- (?u magit--push-current-to-upstream-desc
- magit-push-current-to-upstream)
- (?e "elsewhere\n" magit-push-current)
- "Push"
- (?o "another branch" magit-push-other)
- (?T "a tag" magit-push-tag)
- (?r "explicit refspecs" magit-push-refspecs)
- (?t "all tags" magit-push-tags)
- (?m "matching branches" magit-push-matching))
- :max-action-columns 2)
-
-(defun magit-git-push (branch target args)
- (run-hooks 'magit-credential-hook)
- (pcase-let ((`(,remote . ,target)
- (magit-split-branch-name target)))
- (magit-run-git-async "push" "-v" args remote
- (format "%s:refs/heads/%s" branch target))))
-
-;;;###autoload
-(defun magit-push-current-to-pushremote (args &optional push-remote)
- "Push the current branch to `branch.<name>.pushRemote'.
-If that variable is unset, then push to `remote.pushDefault'.
-
-When `magit-push-current-set-remote-if-missing' is non-nil and
-the push-remote is not configured, then read the push-remote from
-the user, set it, and then push to it. With a prefix argument
-the push-remote can be changed before pushed to it."
- (interactive
- (list (magit-push-arguments)
- (and (magit--push-current-set-pushremote-p current-prefix-arg)
- (magit-read-remote
- (if (eq magit-push-current-set-remote-if-missing 'default)
- "Set `remote.pushDefault' and push there"
- (format "Set `branch.%s.pushRemote' and push there"
- (magit-get-current-branch)))))))
- (--if-let (magit-get-current-branch)
- (progn (when push-remote
- (setf (magit-get
- (if (eq magit-push-current-set-remote-if-missing 'default)
- "remote.pushDefault"
- (format "branch.%s.pushRemote" it)))
- push-remote))
- (if-let ((remote (magit-get-push-remote it)))
- (if (member remote (magit-list-remotes))
- (magit-git-push it (concat remote "/" it) args)
- (user-error "Remote `%s' doesn't exist" remote))
- (user-error "No push-remote is configured for %s" it)))
- (user-error "No branch is checked out")))
-
-(defun magit--push-current-set-pushremote-p (&optional change)
- (and (or change
- (and magit-push-current-set-remote-if-missing
- (not (magit-get-push-remote))))
- (magit-get-current-branch)))
-
-(defun magit--push-current-to-pushremote-desc ()
- (--if-let (magit-get-push-branch)
- (concat (magit-branch-set-face it) "\n")
- (and (magit--push-current-set-pushremote-p)
- (concat
- (propertize (if (eq magit-push-current-set-remote-if-missing 'default)
- "pushDefault"
- "pushRemote")
- 'face 'bold)
- ", after setting that\n"))))
-
-;;;###autoload
-(defun magit-push-current-to-upstream (args &optional upstream)
- "Push the current branch to its upstream branch.
-
-When `magit-push-current-set-remote-if-missing' is non-nil and
-the upstream is not configured, then read the upstream from the
-user, set it, and then push to it. With a prefix argument the
-upstream can be changed before pushed to it."
- (interactive
- (list (magit-push-arguments)
- (and (magit--push-current-set-upstream-p current-prefix-arg)
- (magit-read-upstream-branch))))
- (--if-let (magit-get-current-branch)
- (progn
- (when upstream
- (magit-set-upstream-branch it upstream))
- (if-let ((target (magit-get-upstream-branch it)))
- (magit-git-push it target args)
- (user-error "No upstream is configured for %s" it)))
- (user-error "No branch is checked out")))
-
-(defun magit--push-current-set-upstream-p (&optional change)
- (and (or change
- (and magit-push-current-set-remote-if-missing
- (not (magit-get-upstream-branch))))
- (magit-get-current-branch)))
-
-(defun magit--push-current-to-upstream-desc ()
- (--if-let (magit-get-upstream-branch)
- (concat (magit-branch-set-face it) "\n")
- (and (magit--push-current-set-upstream-p)
- (concat (propertize "@{upstream}" 'face 'bold)
- ", after setting that\n"))))
-
-;;;###autoload
-(defun magit-push-current (target args)
- "Push the current branch to a branch read in the minibuffer."
- (interactive
- (--if-let (magit-get-current-branch)
- (list (magit-read-remote-branch (format "Push %s to" it)
- nil nil it 'confirm)
- (magit-push-arguments))
- (user-error "No branch is checked out")))
- (magit-git-push (magit-get-current-branch) target args))
-
-;;;###autoload
-(defun magit-push-other (source target args)
- "Push an arbitrary branch or commit somewhere.
-Both the source and the target are read in the minibuffer."
- (interactive
- (let ((source (magit-read-local-branch-or-commit "Push")))
- (list source
- (magit-read-remote-branch
- (format "Push %s to" source) nil
- (if (magit-local-branch-p source)
- (or (magit-get-push-branch source)
- (magit-get-upstream-branch source))
- (and (magit-rev-ancestor-p source "HEAD")
- (or (magit-get-push-branch)
- (magit-get-upstream-branch))))
- source 'confirm)
- (magit-push-arguments))))
- (magit-git-push source target args))
-
-(defvar magit-push-refspecs-history nil)
-
-;;;###autoload
-(defun magit-push-refspecs (remote refspecs args)
- "Push one or multiple REFSPECS to a REMOTE.
-Both the REMOTE and the REFSPECS are read in the minibuffer. To
-use multiple REFSPECS, separate them with commas. Completion is
-only available for the part before the colon, or when no colon
-is used."
- (interactive
- (list (magit-read-remote "Push to remote")
- (split-string (magit-completing-read-multiple
- "Push refspec,s"
- (cons "HEAD" (magit-list-local-branch-names))
- nil nil 'magit-push-refspecs-history)
- crm-default-separator t)
- (magit-push-arguments)))
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "push" "-v" args remote refspecs))
-
-;;;###autoload
-(defun magit-push-matching (remote &optional args)
- "Push all matching branches to another repository.
-If multiple remotes exist, then read one from the user.
-If just one exists, use that without requiring confirmation."
- (interactive (list (magit-read-remote "Push matching branches to" nil t)
- (magit-push-arguments)))
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "push" "-v" args remote ":"))
-
-;;;###autoload
-(defun magit-push-tags (remote &optional args)
- "Push all tags to another repository.
-If only one remote exists, then push to that. Otherwise prompt
-for a remote, offering the remote configured for the current
-branch as default."
- (interactive (list (magit-read-remote "Push tags to remote" nil t)
- (magit-push-arguments)))
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "push" remote "--tags" args))
-
-;;;###autoload
-(defun magit-push-tag (tag remote &optional args)
- "Push a tag to another repository."
- (interactive
- (let ((tag (magit-read-tag "Push tag")))
- (list tag (magit-read-remote (format "Push %s to remote" tag) nil t)
- (magit-push-arguments))))
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "push" remote tag args))
-
-;;;###autoload
-(defun magit-push-implicitly (args)
- "Push somewhere without using an explicit refspec.
-
-This command simply runs \"git push -v [ARGS]\". ARGS are the
-arguments specified in the popup buffer. No explicit refspec
-arguments are used. Instead the behavior depends on at least
-these Git variables: `push.default', `remote.pushDefault',
-`branch.<branch>.pushRemote', `branch.<branch>.remote',
-`branch.<branch>.merge', and `remote.<remote>.push'.
-
-To add this command to the push popup add this to your init file:
-
- (with-eval-after-load \\='magit-remote
- (magit-define-popup-action \\='magit-push-popup ?P
- \\='magit-push-implicitly--desc
- \\='magit-push-implicitly ?p t))
-
-The function `magit-push-implicitly--desc' attempts to predict
-what this command will do. The value it returns is displayed in
-the popup buffer."
- (interactive (list (magit-push-arguments)))
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "push" "-v" args))
-
-(defun magit-push-implicitly--desc ()
- (let ((default (magit-get "push.default")))
- (unless (equal default "nothing")
- (or (when-let ((remote (or (magit-get-remote)
- (magit-remote-p "origin")))
- (refspec (magit-get "remote" remote "push")))
- (format "%s using %s"
- (propertize remote 'face 'magit-branch-remote)
- (propertize refspec 'face 'bold)))
- (--when-let (and (not (magit-get-push-branch))
- (magit-get-upstream-branch))
- (format "%s aka %s\n"
- (magit-branch-set-face it)
- (propertize "@{upstream}" 'face 'bold)))
- (--when-let (magit-get-push-branch)
- (format "%s aka %s\n"
- (magit-branch-set-face it)
- (propertize "pushRemote" 'face 'bold)))
- (--when-let (magit-get-@{push}-branch)
- (format "%s aka %s\n"
- (magit-branch-set-face it)
- (propertize "@{push}" 'face 'bold)))
- (format "using %s (%s is %s)\n"
- (propertize "git push" 'face 'bold)
- (propertize "push.default" 'face 'bold)
- (propertize default 'face 'bold))))))
-
-;;;###autoload
-(defun magit-push-to-remote (remote args)
- "Push to REMOTE without using an explicit refspec.
-The REMOTE is read in the minibuffer.
-
-This command simply runs \"git push -v [ARGS] REMOTE\". ARGS
-are the arguments specified in the popup buffer. No refspec
-arguments are used. Instead the behavior depends on at least
-these Git variables: `push.default', `remote.pushDefault',
-`branch.<branch>.pushRemote', `branch.<branch>.remote',
-`branch.<branch>.merge', and `remote.<remote>.push'.
-
-To add this command to the push popup add this to your init file:
-
- (with-eval-after-load \\='magit-remote
- (magit-define-popup-action \\='magit-push-popup ?r
- \\='magit-push-to-remote--desc
- \\='magit-push-to-remote ?p t))"
- (interactive (list (magit-read-remote "Push to remote")
- (magit-push-arguments)))
- (run-hooks 'magit-credential-hook)
- (magit-run-git-async "push" "-v" args remote))
-
-(defun magit-push-to-remote--desc ()
- (format "using %s\n" (propertize "git push <remote>" 'face 'bold)))
-
-;;; _
-(provide 'magit-push)
-;;; magit-push.el ends here
diff --git a/elpa/magit-20181116.1412/magit-push.elc b/elpa/magit-20181116.1412/magit-push.elc
deleted file mode 100644
index 9321e4a..0000000
--- a/elpa/magit-20181116.1412/magit-push.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-refs.el b/elpa/magit-20181116.1412/magit-refs.el
deleted file mode 100644
index a0bddd3..0000000
--- a/elpa/magit-20181116.1412/magit-refs.el
+++ /dev/null
@@ -1,752 +0,0 @@
-;;; magit-refs.el --- listing references -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for listing references in a buffer.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-(defvar bookmark-make-record-function)
-
-;;; Options
-
-(defgroup magit-refs nil
- "Inspect and manipulate Git branches and tags."
- :link '(info-link "(magit)References Buffer")
- :group 'magit-modes)
-
-(defcustom magit-refs-mode-hook nil
- "Hook run after entering Magit-Refs mode."
- :package-version '(magit . "2.1.0")
- :group 'magit-refs
- :type 'hook)
-
-(defcustom magit-refs-sections-hook
- '(magit-insert-error-header
- magit-insert-branch-description
- magit-insert-local-branches
- magit-insert-remote-branches
- magit-insert-tags)
- "Hook run to insert sections into a references buffer."
- :package-version '(magit . "2.1.0")
- :group 'magit-refs
- :type 'hook)
-
-(defcustom magit-refs-show-commit-count nil
- "Whether to show commit counts in Magit-Refs mode buffers.
-
-all Show counts for branches and tags.
-branch Show counts for branches only.
-nil Never show counts.
-
-To change the value in an existing buffer use the command
-`magit-refs-show-commit-count'"
- :package-version '(magit . "2.1.0")
- :group 'magit-refs
- :safe (lambda (val) (memq val '(all branch nil)))
- :type '(choice (const all :tag "For branches and tags")
- (const branch :tag "For branches only")
- (const nil :tag "Never")))
-(put 'magit-refs-show-commit-count 'safe-local-variable 'symbolp)
-(put 'magit-refs-show-commit-count 'permanent-local t)
-
-(defcustom magit-refs-pad-commit-counts nil
- "Whether to pad all counts on all sides in `magit-refs-mode' buffers.
-
-If this is nil, then some commit counts are displayed right next
-to one of the branches that appear next to the count, without any
-space in between. This might look bad if the branch name faces
-look too similar to `magit-dimmed'.
-
-If this is non-nil, then spaces are placed on both sides of all
-commit counts."
- :package-version '(magit . "2.12.0")
- :group 'magit-refs
- :type 'boolean)
-
-(defvar magit-refs-show-push-remote nil
- "Whether to show the push-remotes of local branches.
-Also show the commits that the local branch is ahead and behind
-the push-target. Unfortunately there is a bug in Git that makes
-this useless (the commits ahead and behind the upstream are
-shown), so this isn't enabled yet.")
-
-(defcustom magit-refs-show-remote-prefix nil
- "Whether to show the remote prefix in lists of remote branches.
-
-This is redundant because the name of the remote is already shown
-in the heading preceeding the list of its branches."
- :package-version '(magit . "2.12.0")
- :group 'magit-refs
- :type 'boolean)
-
-(defcustom magit-refs-margin
- (list nil
- (nth 1 magit-log-margin)
- 'magit-log-margin-width nil
- (nth 4 magit-log-margin))
- "Format of the margin in `magit-refs-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the committer date. It can be one
- of `age' (to show the age of the commit), `age-abbreviated' (to
- abbreviate the time unit to a character), or a string (suitable
- for `format-time-string') to show the actual date.
-WIDTH controls the width of the margin. This exists for forward
- compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
- default.
-AUTHOR-WIDTH has to be an integer. When the name of the author
- is shown, then this specifies how much space is used to do so."
- :package-version '(magit . "2.9.0")
- :group 'magit-refs
- :group 'magit-margin
- :safe (lambda (val) (memq val '(all branch nil)))
- :type magit-log-margin--custom-type
- :initialize 'magit-custom-initialize-reset
- :set-after '(magit-log-margin)
- :set (apply-partially #'magit-margin-set-variable 'magit-refs-mode))
-
-(defcustom magit-refs-margin-for-tags nil
- "Whether to show information about tags in the margin.
-
-This is disabled by default because it is slow if there are many
-tags."
- :package-version '(magit . "2.9.0")
- :group 'magit-refs
- :group 'magit-margin
- :type 'boolean)
-
-(defcustom magit-refs-primary-column-width (cons 16 32)
- "Width of the focus column in `magit-refs-mode' buffers.
-
-The primary column is the column that contains the name of the
-branch that the current row is about.
-
-If this is an integer, then the column is that many columns wide.
-Otherwise it has to be a cons-cell of two integers. The first
-specifies the minimal width, the second the maximal width. In that
-case the actual width is determined using the length of the names
-of the shown local branches. (Remote branches and tags are not
-taken into account when calculating to optimal width.)"
- :package-version '(magit . "2.12.0")
- :group 'magit-refs
- :type '(choice (integer :tag "Constant wide")
- (cons :tag "Wide constrains"
- (integer :tag "Minimum")
- (integer :tag "Maximum"))))
-
-(defcustom magit-refs-focus-column-width 5
- "Width of the focus column in `magit-refs-mode' buffers.
-
-The focus column is the first column, which marks one
-branch (usually the current branch) as the focused branch using
-\"*\" or \"@\". For each other reference, this column optionally
-shows how many commits it is ahead of the focused branch and \"<\", or
-if it isn't ahead then the commits it is behind and \">\", or if it
-isn't behind either, then a \"=\".
-
-This column may also display only \"*\" or \"@\" for the focused
-branch, in which case this option is ignored. Use \"L v\" to
-change the verbosity of this column."
- :package-version '(magit . "2.12.0")
- :group 'magit-refs
- :type 'integer)
-
-(defcustom magit-refs-filter-alist nil
- "Alist controlling which refs are omitted from `magit-refs-mode' buffers.
-
-All keys are tried in order until one matches. Then its value
-is used and subsequent elements are ignored. If the value is
-non-nil, then the reference is displayed, otherwise it is not.
-If no element matches, then the reference is displayed.
-
-A key can either be a regular expression that the refname has
-to match, or a function that takes the refname as only argument
-and returns a boolean. Contrary to how they are displayed in
-the buffer, for comparison each tag begins with \"tags/\" and
-each remote branch with \"<remote>/\"."
- :package-version '(magit . "2.12.0")
- :group 'magit-refs
- :type '(alist :key-type (choice :tag "Key" regexp function)
- :value-type (boolean :tag "Value"
- :on "show (non-nil)"
- :off "omit (nil)")))
-
-(defcustom magit-visit-ref-behavior nil
- "Control how `magit-visit-ref' behaves in `magit-refs-mode' buffers.
-
-By default `magit-visit-ref' behaves like `magit-show-commit',
-in all buffers, including `magit-refs-mode' buffers. When the
-type of the section at point is `commit' then \"RET\" is bound to
-`magit-show-commit', and when the type is either `branch' or
-`tag' then it is bound to `magit-visit-ref'.
-
-\"RET\" is one of Magit's most essential keys and at least by
-default it should behave consistently across all of Magit,
-especially because users quickly learn that it does something
-very harmless; it shows more information about the thing at point
-in another buffer.
-
-However \"RET\" used to behave differently in `magit-refs-mode'
-buffers, doing surprising things, some of which cannot really be
-described as \"visit this thing\". If you have grown accustomed
-to such inconsistent, but to you useful, behavior, then you can
-restore that by adding one or more of the below symbols to the
-value of this option. But keep in mind that by doing so you
-don't only introduce inconsistencies, you also lose some
-functionality and might have to resort to `M-x magit-show-commit'
-to get it back.
-
-`magit-visit-ref' looks for these symbols in the order in which
-they are described here. If the presence of a symbol applies to
-the current situation, then the symbols that follow do not affect
-the outcome.
-
-`focus-on-ref'
-
- With a prefix argument update the buffer to show commit counts
- and lists of cherry commits relative to the reference at point
- instead of relative to the current buffer or `HEAD'.
-
- Instead of adding this symbol, consider pressing \"C-u y o RET\".
-
-`create-branch'
-
- If point is on a remote branch, then create a new local branch
- with the same name, use the remote branch as its upstream, and
- then check out the local branch.
-
- Instead of adding this symbol, consider pressing \"b c RET RET\",
- like you would do in other buffers.
-
-`checkout-any'
-
- Check out the reference at point. If that reference is a tag
- or a remote branch, then this results in a detached `HEAD'.
-
- Instead of adding this symbol, consider pressing \"b b RET\",
- like you would do in other buffers.
-
-`checkout-branch'
-
- Check out the local branch at point.
-
- Instead of adding this symbol, consider pressing \"b b RET\",
- like you would do in other buffers."
- :package-version '(magit . "2.9.0")
- :group 'magit-refs
- :group 'magit-commands
- :options '(focus-on-ref create-branch checkout-any checkout-branch)
- :type '(list :convert-widget custom-hook-convert-widget))
-
-;;; Mode
-
-(defvar magit-refs-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-mode-map)
- (define-key map "\C-y" 'magit-refs-set-show-commit-count)
- (define-key map "L" 'magit-margin-popup)
- map)
- "Keymap for `magit-refs-mode'.")
-
-(define-derived-mode magit-refs-mode magit-mode "Magit Refs"
- "Mode which lists and compares references.
-
-This mode is documented in info node `(magit)References Buffer'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-section-toggle] to expand or hide the section at point.
-Type \\[magit-visit-thing] or \\[magit-diff-show-or-scroll-up] \
-to visit the commit or branch at point.
-
-Type \\[magit-branch-popup] to see available branch commands.
-Type \\[magit-merge-popup] to merge the branch or commit at point.
-Type \\[magit-cherry-pick-popup] to apply the commit at point.
-Type \\[magit-reset] to reset `HEAD' to the commit at point.
-
-\\{magit-refs-mode-map}"
- :group 'magit-refs
- (hack-dir-local-variables-non-file-buffer)
- (setq imenu-create-index-function
- #'magit-imenu--refs-create-index-function)
- (setq-local bookmark-make-record-function
- #'magit-bookmark--refs-make-record))
-
-(defun magit-refs-refresh-buffer (ref &optional args)
- (setq magit-set-buffer-margin-refresh (not (magit-buffer-margin-p)))
- (unless ref
- (setq ref "HEAD"))
- (unless (magit-rev-verify ref)
- (setq magit-refs-show-commit-count nil))
- (magit-set-header-line-format
- (format "%s %s" ref (mapconcat #'identity args " ")))
- (magit-insert-section (branchbuf)
- (magit-run-section-hook 'magit-refs-sections-hook))
- (add-hook 'kill-buffer-hook 'magit-preserve-section-visibility-cache))
-
-;;; Commands
-
-(defcustom magit-show-refs-arguments nil
- "The arguments used in `magit-refs-mode' buffers."
- :group 'magit-git-arguments
- :group 'magit-refs
- :type '(repeat (string :tag "Argument")))
-
-(defvar magit-show-refs-popup
- (list
- :variable 'magit-show-refs-arguments
- :man-page "git-branch"
- :switches '((?m "Merged to HEAD" "--merged")
- (?M "Merged to master" "--merged=master")
- (?n "Not merged to HEAD" "--no-merged")
- (?N "Not merged to master" "--no-merged=master"))
- :options '((?c "Contains" "--contains=" magit-read-branch-or-commit)
- (?m "Merged" "--merged=" magit-read-branch-or-commit)
- (?n "Not merged" "--no-merged=" magit-read-branch-or-commit)
- (?s "Sort" "--sort=" magit-read-ref-sort))
- :actions '((?y "Show refs, comparing them with HEAD"
- magit-show-refs-head)
- (?c "Show refs, comparing them with current branch"
- magit-show-refs-current)
- (?o "Show refs, comparing them with other branch"
- magit-show-refs))
- :default-action 'magit-show-refs-head
- :max-action-columns 1
- :use-prefix (lambda ()
- (if (derived-mode-p 'magit-refs-mode)
- (if current-prefix-arg 'popup 'default)
- 'popup))))
-
-(magit-define-popup-keys-deferred 'magit-show-refs-popup)
-
-(defun magit-read-ref-sort (prompt initial-input)
- (magit-completing-read prompt
- '("-committerdate" "-authordate"
- "committerdate" "authordate")
- nil nil initial-input))
-
-(defun magit-show-refs-get-buffer-args ()
- (cond ((and magit-use-sticky-arguments
- (derived-mode-p 'magit-refs-mode))
- (cadr magit-refresh-args))
- ((and (eq magit-use-sticky-arguments t)
- (--when-let (magit-mode-get-buffer 'magit-refs-mode)
- (with-current-buffer it
- (cadr magit-refresh-args)))))
- (t
- (default-value 'magit-show-refs-arguments))))
-
-(defun magit-show-refs-arguments ()
- (if (eq magit-current-popup 'magit-show-refs-popup)
- magit-current-popup-args
- (magit-show-refs-get-buffer-args)))
-
-;;;###autoload
-(defun magit-show-refs-popup (&optional arg)
- "Popup console for `magit-show-refs'."
- (interactive "P")
- (let ((magit-show-refs-arguments (magit-show-refs-get-buffer-args)))
- (magit-invoke-popup 'magit-show-refs-popup nil arg)))
-
-;;;###autoload
-(defun magit-show-refs-head (&optional args)
- "List and compare references in a dedicated buffer.
-Refs are compared with `HEAD'."
- (interactive (list (magit-show-refs-arguments)))
- (magit-show-refs nil args))
-
-;;;###autoload
-(defun magit-show-refs-current (&optional args)
- "List and compare references in a dedicated buffer.
-Refs are compared with the current branch or `HEAD' if
-it is detached."
- (interactive (list (magit-show-refs-arguments)))
- (magit-show-refs (magit-get-current-branch) args))
-
-;;;###autoload
-(defun magit-show-refs (&optional ref args)
- "List and compare references in a dedicated buffer.
-Refs are compared with a branch read from the user."
- (interactive (list (magit-read-other-branch "Compare with")
- (magit-show-refs-arguments)))
- (magit-mode-setup #'magit-refs-mode ref args))
-
-(defun magit-refs-set-show-commit-count ()
- "Change for which refs the commit count is shown."
- (interactive)
- (setq-local magit-refs-show-commit-count
- (magit-read-char-case "Show commit counts for " nil
- (?a "[a]ll refs" 'all)
- (?b "[b]ranches only" t)
- (?n "[n]othing" nil)))
- (magit-refresh))
-
-(defun magit-visit-ref ()
- "Visit the reference or revision at point in another buffer.
-If there is no revision at point or with a prefix argument prompt
-for a revision.
-
-This command behaves just like `magit-show-commit', except if
-point is on a reference in a `magit-refs-mode' buffer (a buffer
-listing branches and tags), in which case the behavior may be
-different, but only if you have customized the option
-`magit-visit-ref-behavior' (which see)."
- (interactive)
- (if (and (derived-mode-p 'magit-refs-mode)
- (magit-section-match '(branch tag)))
- (let ((ref (oref (magit-current-section) value)))
- (cond (current-prefix-arg
- (cond ((memq 'focus-on-ref magit-visit-ref-behavior)
- (magit-show-refs ref))
- (magit-visit-ref-behavior
- ;; Don't prompt for commit to visit.
- (let ((current-prefix-arg nil))
- (call-interactively #'magit-show-commit)))))
- ((and (memq 'create-branch magit-visit-ref-behavior)
- (magit-section-match [branch remote]))
- (let ((branch (cdr (magit-split-branch-name ref))))
- (if (magit-branch-p branch)
- (if (magit-rev-eq branch ref)
- (magit-call-git "checkout" branch)
- (setq branch (propertize branch 'face 'magit-branch-local))
- (setq ref (propertize ref 'face 'magit-branch-remote))
- (pcase (prog1 (read-char-choice (format (propertize "\
-Branch %s already exists.
- [c]heckout %s as-is
- [r]reset %s to %s and checkout %s
- [a]bort " 'face 'minibuffer-prompt) branch branch branch ref branch)
- '(?c ?r ?a))
- (message "")) ; otherwise prompt sticks
- (?c (magit-call-git "checkout" branch))
- (?r (magit-call-git "checkout" "-B" branch ref))
- (?a (user-error "Abort"))))
- (magit-call-git "checkout" "-b" branch ref))
- (setcar magit-refresh-args branch)
- (magit-refresh)))
- ((or (memq 'checkout-any magit-visit-ref-behavior)
- (and (memq 'checkout-branch magit-visit-ref-behavior)
- (magit-section-match [branch local])))
- (magit-call-git "checkout" ref)
- (setcar magit-refresh-args ref)
- (magit-refresh))
- (t
- (call-interactively #'magit-show-commit))))
- (call-interactively #'magit-show-commit)))
-
-;;; Sections
-
-(defvar magit-remote-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-delete-thing] 'magit-remote-remove)
- (define-key map "R" 'magit-remote-rename)
- map)
- "Keymap for `remote' sections.")
-
-(defvar magit-branch-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-visit-ref)
- (define-key map [remap magit-delete-thing] 'magit-branch-delete)
- (define-key map "R" 'magit-branch-rename)
- map)
- "Keymap for `branch' sections.")
-
-(defvar magit-tag-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-visit-ref)
- (define-key map [remap magit-delete-thing] 'magit-tag-delete)
- map)
- "Keymap for `tag' sections.")
-
-(defun magit-insert-branch-description ()
- "Insert header containing the description of the current branch.
-Insert a header line with the name and description of the
-current branch. The description is taken from the Git variable
-`branch.<NAME>.description'; if that is undefined then no header
-line is inserted at all."
- (when-let ((branch (magit-get-current-branch))
- (desc (magit-get "branch" branch "description"))
- (desc (split-string desc "\n")))
- (when (equal (car (last desc)) "")
- (setq desc (butlast desc)))
- (magit-insert-section (branchdesc branch t)
- (magit-insert-heading branch ": " (car desc))
- (when (cdr desc)
- (insert (mapconcat 'identity (cdr desc) "\n"))
- (insert "\n\n")))))
-
-(defun magit-insert-tags ()
- "Insert sections showing all tags."
- (when-let ((tags (magit-git-lines "tag" "--list" "-n"
- (cadr magit-refresh-args))))
- (let ((_head (magit-rev-parse "HEAD")))
- (magit-insert-section (tags)
- (magit-insert-heading "Tags:")
- (dolist (tag tags)
- (string-match "^\\([^ \t]+\\)[ \t]+\\([^ \t\n].*\\)?" tag)
- (let ((tag (match-string 1 tag))
- (msg (match-string 2 tag)))
- (when (magit-refs--insert-refname-p tag)
- (magit-insert-section section (tag tag t)
- (magit-insert-heading
- (magit-refs--format-focus-column tag 'tag)
- (propertize tag 'face 'magit-tag)
- (make-string (max 1 (- magit-refs-primary-column-width
- (length tag)))
- ?\s)
- (and msg (magit-log-propertize-keywords nil msg)))
- (when (and magit-refs-margin-for-tags (magit-buffer-margin-p))
- (magit-refs--format-margin tag))
- (magit-refs--insert-cherry-commits tag section)))))
- (insert ?\n)
- (magit-make-margin-overlay nil t)))))
-
-(defun magit-insert-remote-branches ()
- "Insert sections showing all remote-tracking branches."
- (dolist (remote (magit-list-remotes))
- (magit-insert-section (remote remote)
- (magit-insert-heading
- (let ((pull (magit-get "remote" remote "url"))
- (push (magit-get "remote" remote "pushurl")))
- (format (propertize "Remote %s (%s):" 'face 'magit-section-heading)
- (propertize remote 'face 'magit-branch-remote)
- (concat pull (and pull push ", ") push))))
- (let (head)
- (dolist (line (magit-git-lines "for-each-ref" "--format=\
-%(symref:short)%00%(refname:short)%00%(refname)%00%(subject)"
- (concat "refs/remotes/" remote)
- (cadr magit-refresh-args)))
- (pcase-let ((`(,head-branch ,branch ,ref ,msg)
- (-replace "" nil (split-string line "\0"))))
- (if head-branch
- (progn (cl-assert (equal branch (concat remote "/HEAD")))
- (setq head head-branch))
- (when (magit-refs--insert-refname-p branch)
- (magit-insert-section section (branch branch t)
- (let ((headp (equal branch head))
- (abbrev (if magit-refs-show-remote-prefix
- branch
- (substring branch (1+ (length remote))))))
- (magit-insert-heading
- (magit-refs--format-focus-column branch)
- (magit-refs--propertize-branch
- abbrev ref (and headp 'magit-branch-remote-head))
- (make-string (max 1 (- magit-refs-primary-column-width
- (length abbrev)))
- ?\s)
- (and msg (magit-log-propertize-keywords nil msg))))
- (when (magit-buffer-margin-p)
- (magit-refs--format-margin branch))
- (magit-refs--insert-cherry-commits branch section)))))))
- (insert ?\n)
- (magit-make-margin-overlay nil t))))
-
-(defun magit-insert-local-branches ()
- "Insert sections showing all local branches."
- (magit-insert-section (local nil)
- (magit-insert-heading "Branches:")
- (dolist (line (magit-refs--format-local-branches))
- (pcase-let ((`(,branch . ,strings) line))
- (magit-insert-section section
- ((eval (if branch 'branch 'commit))
- (or branch (magit-rev-parse "HEAD"))
- t)
- (apply #'magit-insert-heading strings)
- (when (magit-buffer-margin-p)
- (magit-refs--format-margin branch))
- (magit-refs--insert-cherry-commits branch section))))
- (insert ?\n)
- (magit-make-margin-overlay nil t)))
-
-(defun magit-refs--format-local-branches ()
- (let ((lines (-keep 'magit-refs--format-local-branch
- (magit-git-lines
- "for-each-ref"
- (concat "--format=\
-%(HEAD)%00%(refname:short)%00%(refname)%00\
-%(upstream:short)%00%(upstream)%00%(upstream:track)%00"
- (if magit-refs-show-push-remote "\
-%(push:remotename)%00%(push)%00%(push:track)%00%(subject)"
- "%00%00%00%(subject)"))
- "refs/heads"
- (cadr magit-refresh-args)))))
- (unless (magit-get-current-branch)
- (push (magit-refs--format-local-branch
- (concat "*\0\0\0\0\0\0\0\0" (magit-rev-format "%s")))
- lines))
- (setq-local magit-refs-primary-column-width
- (let ((def (default-value 'magit-refs-primary-column-width)))
- (if (atom def)
- def
- (pcase-let ((`(,min . ,max) def))
- (min max (apply #'max min (mapcar #'car lines)))))))
- (mapcar (pcase-lambda (`(,_ ,branch ,focus ,branch-desc ,u:ahead ,p:ahead
- ,u:behind ,upstream ,p:behind ,push ,msg))
- (list branch focus branch-desc u:ahead p:ahead
- (make-string (max 1 (- magit-refs-primary-column-width
- (length (concat branch-desc
- u:ahead
- p:ahead
- u:behind))))
- ?\s)
- u:behind upstream p:behind push
- msg))
- lines)))
-
-(defun magit-refs--format-local-branch (line)
- (pcase-let ((`(,head ,branch ,ref ,upstream ,u:ref ,u:track
- ,push ,p:ref ,p:track ,msg)
- (-replace "" nil (split-string line "\0"))))
- (when (or (not branch)
- (magit-refs--insert-refname-p branch))
- (let* ((headp (equal head "*"))
- (pushp (and push
- magit-refs-show-push-remote
- (magit-rev-verify p:ref)
- (not (equal p:ref u:ref))))
- (branch-desc
- (if branch
- (magit-refs--propertize-branch
- branch ref (and headp 'magit-branch-current))
- (propertize "(detached)" 'face 'font-lock-warning-face)))
- (u:ahead (and u:track
- (string-match "ahead \\([0-9]+\\)" u:track)
- (propertize
- (concat (and magit-refs-pad-commit-counts " ")
- (match-string 1 u:track)
- ">")
- 'face 'magit-dimmed)))
- (u:behind (and u:track
- (string-match "behind \\([0-9]+\\)" u:track)
- (propertize
- (concat "<"
- (match-string 1 u:track)
- (and magit-refs-pad-commit-counts " "))
- 'face 'magit-dimmed)))
- (p:ahead (and pushp p:track
- (string-match "ahead \\([0-9]+\\)" p:track)
- (propertize
- (concat (match-string 1 p:track)
- ">"
- (and magit-refs-pad-commit-counts " "))
- 'face 'magit-branch-remote)))
- (p:behind (and pushp p:track
- (string-match "behind \\([0-9]+\\)" p:track)
- (propertize
- (concat "<"
- (match-string 1 p:track)
- (and magit-refs-pad-commit-counts " "))
- 'face 'magit-dimmed))))
- (list (1+ (length (concat branch-desc u:ahead p:ahead u:behind)))
- branch
- (magit-refs--format-focus-column branch headp)
- branch-desc u:ahead p:ahead u:behind
- (and upstream
- (concat (if (equal u:track "[gone]")
- (propertize upstream 'face 'error)
- (magit-refs--propertize-branch upstream u:ref))
- " "))
- (and pushp
- (concat p:behind
- (propertize push 'face 'magit-branch-remote)
- " "))
- (and msg (magit-log-propertize-keywords nil msg)))))))
-
-(defun magit-refs--format-focus-column (ref &optional type)
- (let ((focus (car magit-refresh-args))
- (width (if magit-refs-show-commit-count
- magit-refs-focus-column-width
- 1)))
- (format
- (format "%%%ss " width)
- (cond ((or (equal ref focus)
- (and (eq type t)
- (eq focus nil)))
- (propertize (concat (if focus "@" "*")
- (make-string (1- width) ?\s))
- 'face 'magit-section-heading))
- ((if (eq type 'tag)
- (eq magit-refs-show-commit-count 'all)
- magit-refs-show-commit-count)
- (pcase-let ((`(,behind ,ahead)
- (magit-rev-diff-count
- (or (car magit-refresh-args) "HEAD")
- ref)))
- (propertize
- (cond ((> ahead 0) (concat "<" (number-to-string ahead)))
- ((> behind 0) (concat (number-to-string behind) ">"))
- (t "="))
- 'face 'magit-dimmed)))
- (t "")))))
-
-(defun magit-refs--propertize-branch (branch ref &optional head-face)
- (let ((face (cdr (cl-find-if (pcase-lambda (`(,re . ,_))
- (string-match-p re ref))
- magit-ref-namespaces))))
- (propertize branch 'face (if head-face (list face head-face) face))))
-
-(defun magit-refs--insert-refname-p (refname)
- (--if-let (-first (pcase-lambda (`(,key . ,_))
- (if (functionp key)
- (funcall key refname)
- (string-match-p key refname)))
- magit-refs-filter-alist)
- (cdr it)
- t))
-
-(defun magit-refs--insert-cherry-commits (ref section)
- (if (oref section hidden)
- (oset section washer
- (apply-partially #'magit-refs--insert-cherry-commits-1 ref section))
- (magit-refs--insert-cherry-commits-1 ref section)))
-
-(defun magit-refs--insert-cherry-commits-1 (ref _section)
- (let ((start (point))
- (magit-insert-section--current nil))
- (magit-git-wash (apply-partially 'magit-log-wash-log 'cherry)
- "cherry" "-v" (magit-abbrev-arg)
- (or (car magit-refresh-args) "HEAD")
- ref magit-refresh-args)
- (unless (= (point) start)
- (magit-make-margin-overlay nil t))))
-
-(defun magit-refs--format-margin (commit)
- (save-excursion
- (goto-char (line-beginning-position 0))
- (let ((line (magit-rev-format "%ct%cN" commit)))
- (magit-log-format-margin commit
- (substring line 10)
- (substring line 0 10)))))
-
-;;; _
-(provide 'magit-refs)
-;;; magit-refs.el ends here
diff --git a/elpa/magit-20181116.1412/magit-refs.elc b/elpa/magit-20181116.1412/magit-refs.elc
deleted file mode 100644
index dd2a47d..0000000
--- a/elpa/magit-20181116.1412/magit-refs.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-remote.el b/elpa/magit-20181116.1412/magit-remote.el
deleted file mode 100644
index 5f80452..0000000
--- a/elpa/magit-20181116.1412/magit-remote.el
+++ /dev/null
@@ -1,376 +0,0 @@
-;;; magit-remote.el --- transfer Git commits -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements remote commands.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Options
-
-(defcustom magit-remote-add-set-remote.pushDefault 'ask-if-unset
- "Whether to set the value of `remote.pushDefault' after adding a remote.
-
-If `ask', then always ask. If `ask-if-unset', then ask, but only
-if the variable isn't set already. If nil, then don't ever set.
-If the value is a string, then set without asking, provided that
-the name of the added remote is equal to that string and the
-variable isn't already set."
- :package-version '(magit . "2.4.0")
- :group 'magit-commands
- :type '(choice (const :tag "ask if unset" ask-if-unset)
- (const :tag "always ask" ask)
- (string :tag "set if named")
- (const :tag "don't set")))
-
-(defcustom magit-remote-popup-show-variables t
- "Whether the `magit-remote-popup' shows Git variables.
-When set to nil, no variables are displayed directly in this
-popup, instead the sub-popup `magit-remote-config-popup' has
-to be used to view and change remote related variables."
- :package-version '(magit . "2.12.0")
- :group 'magit-commands
- :type 'boolean)
-
-;;; Commands
-
-(defvar magit-remote-config-variables)
-
-;;;###autoload (autoload 'magit-remote-popup "magit-remote" nil t)
-(magit-define-popup magit-remote-popup
- "Popup console for remote commands."
- :man-page "git-remote"
- :default-arguments '("-f")
- :variables (lambda ()
- (and magit-remote-popup-show-variables
- magit-remote-config-variables))
- :switches '("Switches for add"
- (?f "Fetch after add" "-f"))
- :actions '((?a "Add" magit-remote-add)
- (?C "Configure..." magit-remote-config-popup)
- (?r "Rename" magit-remote-rename)
- (?p "Prune stale branches" magit-remote-prune)
- (?k "Remove" magit-remote-remove)
- (?P "Prune stale refspecs" magit-remote-prune-refspecs))
- :max-action-columns 2)
-
-(defun magit-read-url (prompt &optional initial-input)
- (let ((url (magit-read-string-ns prompt initial-input)))
- (if (string-prefix-p "~" url)
- (expand-file-name url)
- url)))
-
-;;;###autoload
-(defun magit-remote-add (remote url &optional args)
- "Add a remote named REMOTE and fetch it."
- (interactive (list (magit-read-string-ns "Remote name")
- (magit-read-url "Remote url")
- (magit-remote-arguments)))
- (if (pcase (list magit-remote-add-set-remote.pushDefault
- (magit-get "remote.pushDefault"))
- (`(,(pred stringp) ,_) t)
- ((or `(ask ,_) `(ask-if-unset nil))
- (y-or-n-p (format "Set `remote.pushDefault' to \"%s\"? " remote))))
- (progn (magit-call-git "remote" "add" args remote url)
- (setf (magit-get "remote.pushDefault") remote)
- (magit-refresh))
- (magit-run-git-async "remote" "add" args remote url)))
-
-;;;###autoload
-(defun magit-remote-rename (old new)
- "Rename the remote named OLD to NEW."
- (interactive
- (let ((remote (magit-read-remote "Rename remote")))
- (list remote (magit-read-string-ns (format "Rename %s to" remote)))))
- (unless (string= old new)
- (magit-call-git "remote" "rename" old new)
- (magit-remote--cleanup-push-variables old new)
- (magit-refresh)))
-
-;;;###autoload
-(defun magit-remote-remove (remote)
- "Delete the remote named REMOTE."
- (interactive (list (magit-read-remote "Delete remote")))
- (magit-call-git "remote" "rm" remote)
- (magit-remote--cleanup-push-variables remote)
- (magit-refresh))
-
-(defun magit-remote--cleanup-push-variables (remote &optional new-name)
- (magit-with-toplevel
- (when (equal (magit-get "remote.pushDefault") remote)
- (magit-set new-name "remote.pushDefault"))
- (dolist (var (magit-git-lines "config" "--name-only"
- "--get-regexp" "^branch\.[^.]*\.pushRemote"
- (format "^%s$" remote)))
- (magit-call-git "config" (and (not new-name) "--unset") var new-name))))
-
-(defconst magit--refspec-re "\\`\\(\\+\\)?\\([^:]+\\):\\(.*\\)\\'")
-
-;;;###autoload
-(defun magit-remote-prune (remote)
- "Remove stale remote-tracking branches for REMOTE."
- (interactive (list (magit-read-remote "Prune stale branches of remote")))
- (magit-run-git-async "remote" "prune" remote))
-
-;;;###autoload
-(defun magit-remote-prune-refspecs (remote)
- "Remove stale refspecs for REMOTE.
-
-A refspec is stale if there no longer exists at least one branch
-on the remote that would be fetched due to that refspec. A stale
-refspec is problematic because its existence causes Git to refuse
-to fetch according to the remaining non-stale refspecs.
-
-If only stale refspecs remain, then offer to either delete the
-remote or to replace the stale refspecs with the default refspec.
-
-Also remove the remote-tracking branches that were created due to
-the now stale refspecs. Other stale branches are not removed."
- (interactive (list (magit-read-remote "Prune refspecs of remote")))
- (let* ((tracking-refs (magit-list-remote-branches remote))
- (remote-refs (magit-remote-list-refs remote))
- (variable (format "remote.%s.fetch" remote))
- (refspecs (magit-get-all variable))
- stale)
- (dolist (refspec refspecs)
- (when (string-match magit--refspec-re refspec)
- (let ((theirs (match-string 2 refspec))
- (ours (match-string 3 refspec)))
- (unless (if (string-match "\\*" theirs)
- (let ((re (replace-match ".*" t t theirs)))
- (--some (string-match-p re it) remote-refs))
- (member theirs remote-refs))
- (push (cons refspec
- (if (string-match "\\*" ours)
- (let ((re (replace-match ".*" t t ours)))
- (--filter (string-match-p re it) tracking-refs))
- (list (car (member ours tracking-refs)))))
- stale)))))
- (if (not stale)
- (message "No stale refspecs for remote %S" remote)
- (if (= (length stale)
- (length refspecs))
- (magit-read-char-case
- (format "All of %s's refspecs are stale. " remote) nil
- (?s "replace with [d]efault refspec"
- (magit-set-all
- (list (format "+refs/heads/*:refs/remotes/%s/*" remote))
- variable))
- (?r "[r]emove remote"
- (magit-call-git "remote" "rm" remote))
- (?a "or [a]abort"
- (user-error "Abort")))
- (if (if (= (length stale) 1)
- (pcase-let ((`(,refspec . ,refs) (car stale)))
- (magit-confirm 'prune-stale-refspecs
- (format "Prune stale refspec %s and branch %%s" refspec)
- (format "Prune stale refspec %s and %%i branches" refspec)
- nil refs))
- (magit-confirm 'prune-stale-refspecs nil
- (format "Prune %%i stale refspecs and %i branches"
- (length (cl-mapcan (lambda (s) (copy-sequence (cdr s)))
- stale)))
- nil
- (mapcar (pcase-lambda (`(,refspec . ,refs))
- (concat refspec "\n"
- (mapconcat (lambda (b) (concat " " b))
- refs "\n")))
- stale)))
- (pcase-dolist (`(,refspec . ,refs) stale)
- (magit-call-git "config" "--unset" variable
- (regexp-quote refspec))
- (magit--log-action
- (lambda (refs)
- (format "Deleting %i branches" (length refs)))
- (lambda (ref)
- (format "Deleting branch %s (was %s)" ref
- (magit-rev-parse "--short" ref)))
- refs)
- (dolist (ref refs)
- (magit-call-git "update-ref" "-d" ref)))
- (user-error "Abort")))
- (magit-refresh))))
-
-;;;###autoload
-(defun magit-remote-set-head (remote &optional branch)
- "Set the local representation of REMOTE's default branch.
-Query REMOTE and set the symbolic-ref refs/remotes/<remote>/HEAD
-accordingly. With a prefix argument query for the branch to be
-used, which allows you to select an incorrect value if you fancy
-doing that."
- (interactive
- (let ((remote (magit-read-remote "Set HEAD for remote")))
- (list remote
- (and current-prefix-arg
- (magit-read-remote-branch (format "Set %s/HEAD to" remote)
- remote nil nil t)))))
- (magit-run-git "remote" "set-head" remote (or branch "--auto")))
-
-;;;###autoload
-(defun magit-remote-unset-head (remote)
- "Unset the local representation of REMOTE's default branch.
-Delete the symbolic-ref \"refs/remotes/<remote>/HEAD\"."
- (interactive (list (magit-read-remote "Unset HEAD for remote")))
- (magit-run-git "remote" "set-head" remote "--delete"))
-
-;;; Configure
-
-(defvar magit-remote-config--remote nil)
-
-;;;###autoload
-(defun magit-remote-config-popup (remote)
- "Popup console for setting remote variables."
- (interactive
- (list (if (or current-prefix-arg
- (and (eq magit-current-popup 'magit-remote-popup)
- magit-remote-popup-show-variables))
- (magit-read-remote "Configure remote")
- (magit-remote-config--remote-1))))
- (let ((magit-remote-config--remote remote))
- (magit-invoke-popup 'magit-remote-config-popup nil nil)))
-
-(defvar magit-remote-config-variables
- '((lambda ()
- (concat
- (propertize "Configure " 'face 'magit-popup-heading)
- (propertize (magit-remote-config--remote) 'face 'magit-branch-remote)))
- (?u "remote.%s.url"
- magit-set-remote*url
- magit-format-remote*url)
- (?U "remote.%s.fetch"
- magit-set-remote*fetch
- magit-format-remote*fetch)
- (?s "remote.%s.pushurl"
- magit-set-remote*pushurl
- magit-format-remote*pushurl)
- (?S "remote.%s.push"
- magit-set-remote*push
- magit-format-remote*push)
- (?O "remote.%s.tagOpt"
- magit-cycle-remote*tagOpt
- magit-format-remote*tagOpt)))
-
-(defvar magit-remote-config-popup
- `(:man-page "git-remote"
- :variables ,magit-remote-config-variables
- :setup-function magit-remote-config-popup-setup))
-
-(defun magit-remote-config-popup-setup (val def)
- (magit-popup-default-setup val def)
- (setq-local magit-remote-config--remote magit-remote-config--remote))
-
-(defun magit-remote-config--remote (&optional prompt)
- (if prompt
- (or (and (not current-prefix-arg)
- (or magit-remote-config--remote
- (magit-remote-config--remote-1)))
- (magit-read-remote prompt))
- (or magit-remote-config--remote
- (magit-remote-config--remote-1)
- "<name>")))
-
-(defun magit-remote-config--remote-1 ()
- (let ((remote (magit-get-upstream-remote)))
- (if (or (not remote)
- (equal remote "."))
- (and (magit-remote-p "origin") "origin")
- remote)))
-
-(defun magit-set-remote*url (remote urls)
- "Set the variable `url' for the remote named REMOTE to URLS."
- (interactive (magit-remote-config--read-args "url" "Urls: "))
- (magit-remote-config--set-url remote "url" urls))
-
-(defun magit-set-remote*fetch (remote values)
- "Set the variable `fetch' for the remote named REMOTE to VALUES."
- (interactive (magit-remote-config--read-args "fetch" "Fetch specs: "))
- (magit-set-all values "remote" remote "fetch")
- (magit-refresh))
-
-(defun magit-set-remote*pushurl (remote urls)
- "Set the variable `pushurl' for the remote named REMOTE to URLS."
- (interactive (magit-remote-config--read-args "pushurl" "Urls: "))
- (magit-remote-config--set-url remote "pushurl" urls "--push"))
-
-(defun magit-set-remote*push (remote values)
- "Set the variable `push' for the remote named REMOTE to VALUES."
- (interactive (magit-remote-config--read-args "push" "Push specs: "))
- (magit-set-all values "remote" remote "push")
- (magit-refresh))
-
-(defun magit-cycle-remote*tagOpt (remote)
- (interactive (list (magit-remote-config--remote)))
- (magit--set-popup-variable (format "remote.%s.tagOpt" remote)
- '("--no-tags" "--tags") nil))
-
-(defun magit-format-remote*url ()
- (magit-remote-config--format-variable "url"))
-
-(defun magit-format-remote*fetch ()
- (magit-remote-config--format-variable "fetch"))
-
-(defun magit-format-remote*pushurl ()
- (magit-remote-config--format-variable "pushurl"))
-
-(defun magit-format-remote*push ()
- (magit-remote-config--format-variable "push"))
-
-(defun magit-format-remote*tagOpt ()
- (let ((remote (magit-remote-config--remote)))
- (magit--format-popup-variable:choices
- (format "remote.%s.tagOpts" remote)
- '("--no-tags" "--tags") nil nil
- (+ (length remote) 16))))
-
-(defun magit-remote-config--read-args (var prompt)
- (let* ((remote (magit-remote-config--remote (format "Set `%s' of remote" var)))
- (value (magit-get-all "remote" remote var)))
- (list remote
- (mapcar (lambda (url)
- (if (string-prefix-p "~" url)
- (expand-file-name url)
- url))
- (completing-read-multiple
- prompt nil nil nil
- (and value (mapconcat #'identity value ",")))))))
-
-(defun magit-remote-config--set-url (remote var values &optional arg)
- (let ((old (magit-get-all "remote" remote var)))
- (dolist (v (-difference values old))
- (magit-call-git "remote" "set-url" arg "--add" remote v))
- (dolist (v (-difference old values))
- (magit-call-git "remote" "set-url" arg "--delete" remote
- (concat "^" (regexp-quote v) "$"))))
- (magit-refresh))
-
-(defun magit-remote-config--format-variable (variable)
- (magit--format-popup-variable:values
- (format "remote.%s.%s" (magit-remote-config--remote) variable)
- 25))
-
-;;; _
-(provide 'magit-remote)
-;;; magit-remote.el ends here
diff --git a/elpa/magit-20181116.1412/magit-remote.elc b/elpa/magit-20181116.1412/magit-remote.elc
deleted file mode 100644
index 6b2ed20..0000000
--- a/elpa/magit-20181116.1412/magit-remote.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-repos.el b/elpa/magit-20181116.1412/magit-repos.el
deleted file mode 100644
index 8db44d8..0000000
--- a/elpa/magit-20181116.1412/magit-repos.el
+++ /dev/null
@@ -1,314 +0,0 @@
-;;; magit-repos.el --- listing repositories -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for listing repositories. This
-;; includes getting a Lisp list of known repositories as well as a
-;; mode for listing repositories in a buffer.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit-core)
-
-(declare-function magit-status-internal "magit-status" (directory))
-
-(defvar x-stretch-cursor)
-
-;;; Options
-
-(defcustom magit-repository-directories
- '(("~/.emacs.d/" . 0) ; this should always be a repository
- ("~/.emacs.d/lib/" . 1)) ; useful for `borg' users
- "List of directories that are or contain Git repositories.
-
-Each element has the form (DIRECTORY . DEPTH). DIRECTORY has
-to be a directory or a directory file-name, a string. DEPTH,
-an integer, specifies the maximum depth to look for Git
-repositories. If it is 0, then only add DIRECTORY itself."
- :package-version '(magit . "2.90.0")
- :group 'magit-essentials
- :type '(repeat (cons directory (integer :tag "Depth"))))
-
-(defgroup magit-repolist nil
- "List repositories in a buffer."
- :link '(info-link "(magit)Repository List")
- :group 'magit-modes)
-
-(defcustom magit-repolist-mode-hook '(hl-line-mode)
- "Hook run after entering Magit-Repolist mode."
- :package-version '(magit . "2.9.0")
- :group 'magit-repolist
- :type 'hook
- :get 'magit-hook-custom-get
- :options '(hl-line-mode))
-
-(defcustom magit-repolist-columns
- '(("Name" 25 magit-repolist-column-ident nil)
- ("Version" 25 magit-repolist-column-version nil)
- ("B<U" 3 magit-repolist-column-unpulled-from-upstream
- ((:right-align t)
- (:help-echo "Upstream changes not in branch")))
- ("B>U" 3 magit-repolist-column-unpushed-to-upstream
- ((:right-align t)
- (:help-echo "Local changes not in upstream")))
- ("Path" 99 magit-repolist-column-path nil))
- "List of columns displayed by `magit-list-repositories'.
-
-Each element has the form (HEADER WIDTH FORMAT PROPS).
-
-HEADER is the string displayed in the header. WIDTH is the width
-of the column. FORMAT is a function that is called with one
-argument, the repository identification (usually its basename),
-and with `default-directory' bound to the toplevel of its working
-tree. It has to return a string to be inserted or nil. PROPS is
-an alist that supports the keys `:right-align' and `:pad-right'.
-Some entries also use `:help-echo', but `tabulated-list' does not
-actually support that yet."
- :package-version '(magit . "2.12.0")
- :group 'magit-repolist
- :type `(repeat (list :tag "Column"
- (string :tag "Header Label")
- (integer :tag "Column Width")
- (function :tag "Inserter Function")
- (repeat :tag "Properties"
- (list (choice :tag "Property"
- (const :right-align)
- (const :pad-right)
- (symbol))
- (sexp :tag "Value"))))))
-
-
-;;; List Repositories
-;;;; Command
-;;;###autoload
-(defun magit-list-repositories ()
- "Display a list of repositories.
-
-Use the options `magit-repository-directories' to control which
-repositories are displayed."
- (interactive)
- (if magit-repository-directories
- (with-current-buffer (get-buffer-create "*Magit Repositories*")
- (magit-repolist-mode)
- (magit-repolist-refresh)
- (tabulated-list-print)
- (switch-to-buffer (current-buffer)))
- (message "You need to customize `magit-repository-directories' %s"
- "before you can list repositories")))
-
-;;;; Mode
-
-(defvar magit-repolist-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map tabulated-list-mode-map)
- (define-key map (if (featurep 'jkl) [return] (kbd "C-m"))
- 'magit-repolist-status)
- map)
- "Local keymap for Magit-Repolist mode buffers.")
-
-(defun magit-repolist-status (&optional _button)
- "Show the status for the repository at point."
- (interactive)
- (--if-let (tabulated-list-get-id)
- (magit-status-internal (expand-file-name it))
- (user-error "There is no repository at point")))
-
-(define-derived-mode magit-repolist-mode tabulated-list-mode "Repos"
- "Major mode for browsing a list of Git repositories."
- (setq x-stretch-cursor nil)
- (setq tabulated-list-padding 0)
- (setq tabulated-list-sort-key (cons "Path" nil))
- (setq tabulated-list-format
- (vconcat (mapcar (pcase-lambda (`(,title ,width ,_fn ,props))
- (nconc (list title width t)
- (-flatten props)))
- magit-repolist-columns)))
- (tabulated-list-init-header)
- (add-hook 'tabulated-list-revert-hook 'magit-repolist-refresh nil t)
- (setq imenu-prev-index-position-function
- 'magit-imenu--repolist-prev-index-position-function)
- (setq imenu-extract-index-name-function
- 'magit-imenu--repolist-extract-index-name-function))
-
-(defun magit-repolist-refresh ()
- (setq tabulated-list-entries
- (mapcar (pcase-lambda (`(,id . ,path))
- (let ((default-directory path))
- (list path
- (vconcat (--map (or (funcall (nth 2 it) id) "")
- magit-repolist-columns)))))
- (magit-list-repos-uniquify
- (--map (cons (file-name-nondirectory (directory-file-name it))
- it)
- (magit-list-repos))))))
-
-;;;; Columns
-
-(defun magit-repolist-column-ident (id)
- "Insert the identification of the repository.
-Usually this is just its basename."
- id)
-
-(defun magit-repolist-column-path (_id)
- "Insert the absolute path of the repository."
- (abbreviate-file-name default-directory))
-
-(defun magit-repolist-column-version (_id)
- "Insert a description of the repository's `HEAD' revision."
- (let ((v (or (magit-git-string "describe" "--tags" "--dirty")
- ;; If there are no tags, use the date in MELPA format.
- (magit-git-string "show" "--no-patch" "--format=%cd-g%h"
- "--date=format:%Y%m%d.%H%M"))))
- (save-match-data
- (when (string-match "-dirty\\'" v)
- (put-text-property (1+ (match-beginning 0)) (length v) 'face 'error v))
- (if (and v (string-match "\\`[0-9]" v))
- (concat " " v)
- v))))
-
-(defun magit-repolist-column-branch (_id)
- "Insert the current branch."
- (magit-get-current-branch))
-
-(defun magit-repolist-column-upstream (_id)
- "Insert the upstream branch of the current branch."
- (magit-get-upstream-branch))
-
-(defun magit-repolist-column-dirty (_id)
- "Insert a letter if there are uncommitted changes.
-
-Show N if there is at least one untracked file.
-Show U if there is at least one unstaged file.
-Show S if there is at least one staged file.
-Only one letter is shown, the first that applies."
- (cond ((magit-untracked-files) "N")
- ((magit-unstaged-files) "U")
- ((magit-staged-files) "S")))
-
-(defun magit-repolist-column-unpulled-from-upstream (_id)
- "Insert number of upstream commits not in the current branch."
- (--when-let (magit-get-upstream-branch nil t)
- (let ((n (cadr (magit-rev-diff-count "HEAD" it))))
- (propertize (number-to-string n) 'face (if (> n 0) 'bold 'shadow)))))
-
-(defun magit-repolist-column-unpulled-from-pushremote (_id)
- "Insert number of commits in the push branch but not the current branch."
- (--when-let (magit-get-push-branch nil t)
- (let ((n (cadr (magit-rev-diff-count "HEAD" it))))
- (propertize (number-to-string n) 'face (if (> n 0) 'bold 'shadow)))))
-
-(defun magit-repolist-column-unpushed-to-upstream (_id)
- "Insert number of commits in the current branch but not its upstream."
- (--when-let (magit-get-upstream-branch nil t)
- (let ((n (car (magit-rev-diff-count "HEAD" it))))
- (propertize (number-to-string n) 'face (if (> n 0) 'bold 'shadow)))))
-
-(defun magit-repolist-column-unpushed-to-pushremote (_id)
- "Insert number of commits in the current branch but not its push branch."
- (--when-let (magit-get-push-branch nil t)
- (let ((n (car (magit-rev-diff-count "HEAD" it))))
- (propertize (number-to-string n) 'face (if (> n 0) 'bold 'shadow)))))
-
-(defun magit-repolist-column-branches (_id)
- "Insert number of branches."
- (let ((n (length (magit-list-local-branches))))
- (propertize (number-to-string n) 'face (if (> n 1) 'bold 'shadow))))
-
-(defun magit-repolist-column-stashes (_id)
- "Insert number of stashes."
- (let ((n (length (magit-list-stashes))))
- (propertize (number-to-string n) 'face (if (> n 0) 'bold 'shadow))))
-
-;;; Read Repository
-
-(defun magit-read-repository (&optional read-directory-name)
- "Read a Git repository in the minibuffer, with completion.
-
-The completion choices are the basenames of top-levels of
-repositories found in the directories specified by option
-`magit-repository-directories'. In case of name conflicts
-the basenames are prefixed with the name of the respective
-parent directories. The returned value is the actual path
-to the selected repository.
-
-With prefix argument simply read a directory name using
-`read-directory-name'."
- (if-let ((repos (and (not read-directory-name)
- magit-repository-directories
- (magit-list-repos-uniquify
- (--map (cons (file-name-nondirectory
- (directory-file-name it))
- it)
- (magit-list-repos))))))
- (let ((reply (magit-completing-read "Git repository" repos)))
- (file-name-as-directory
- (or (cdr (assoc reply repos))
- (if (file-directory-p reply)
- (expand-file-name reply)
- (user-error "Not a repository or a directory: %s" reply)))))
- (file-name-as-directory
- (read-directory-name "Git repository: "
- (or (magit-toplevel) default-directory)))))
-
-(defun magit-list-repos ()
- (cl-mapcan (pcase-lambda (`(,dir . ,depth))
- (magit-list-repos-1 dir depth))
- magit-repository-directories))
-
-(defun magit-list-repos-1 (directory depth)
- (cond ((file-readable-p (expand-file-name ".git" directory))
- (list directory))
- ((and (> depth 0) (magit-file-accessible-directory-p directory))
- (--mapcat (and (file-directory-p it)
- (magit-list-repos-1 it (1- depth)))
- (directory-files directory t
- directory-files-no-dot-files-regexp t)))))
-
-(defun magit-list-repos-uniquify (alist)
- (let (result (dict (make-hash-table :test 'equal)))
- (dolist (a (delete-dups alist))
- (puthash (car a) (cons (cdr a) (gethash (car a) dict)) dict))
- (maphash
- (lambda (key value)
- (if (= (length value) 1)
- (push (cons key (car value)) result)
- (setq result
- (append result
- (magit-list-repos-uniquify
- (--map (cons (concat
- key "\\"
- (file-name-nondirectory
- (directory-file-name
- (substring it 0 (- (1+ (length key)))))))
- it)
- value))))))
- dict)
- result))
-
-;;; _
-(provide 'magit-repos)
-;;; magit-repos.el ends here
diff --git a/elpa/magit-20181116.1412/magit-repos.elc b/elpa/magit-20181116.1412/magit-repos.elc
deleted file mode 100644
index adbb712..0000000
--- a/elpa/magit-20181116.1412/magit-repos.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-reset.el b/elpa/magit-20181116.1412/magit-reset.el
deleted file mode 100644
index c487649..0000000
--- a/elpa/magit-20181116.1412/magit-reset.el
+++ /dev/null
@@ -1,126 +0,0 @@
-;;; magit-reset.el --- reset fuctionality -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements reset commands.
-
-;;; Code:
-
-(require 'magit)
-
-;;;###autoload (autoload 'magit-reset-popup "magit" nil t)
-(magit-define-popup magit-reset-popup
- "Popup console for reset commands."
- :man-page "git-reset"
- :actions '((?m "reset mixed (HEAD and index)" magit-reset-mixed)
- (?s "reset soft (HEAD only)" magit-reset-soft)
- (?h "reset hard (HEAD, index, and files)" magit-reset-hard)
- (?i "reset index (only)" magit-reset-index)
- (?w "reset worktree (only)" magit-reset-worktree)
- nil
- (?f "reset a file" magit-file-checkout))
- :max-action-columns 1)
-
-;;;###autoload
-(defun magit-reset-mixed (commit)
- "Reset the `HEAD' and index to COMMIT, but not the working tree.
-\n(git reset --mixed COMMIT)"
- (interactive (list (magit-reset-read-branch-or-commit "Reset %s to")))
- (magit-reset-internal "--mixed" commit))
-
-;;;###autoload
-(defun magit-reset-soft (commit)
- "Reset the `HEAD' to COMMIT, but not the index and working tree.
-\n(git reset --soft REVISION)"
- (interactive (list (magit-reset-read-branch-or-commit "Soft reset %s to")))
- (magit-reset-internal "--soft" commit))
-
-;;;###autoload
-(defun magit-reset-hard (commit)
- "Reset the `HEAD', index, and working tree to COMMIT.
-\n(git reset --hard REVISION)"
- (interactive (list (magit-reset-read-branch-or-commit
- (concat (propertize "Hard" 'face 'bold)
- " reset %s to"))))
- (magit-reset-internal "--hard" commit))
-
-;;;###autoload
-(defun magit-reset-index (commit)
- "Reset the index to COMMIT.
-Keep the `HEAD' and working tree as-is, so if COMMIT refers to the
-head this effectively unstages all changes.
-\n(git reset COMMIT .)"
- (interactive (list (magit-read-branch-or-commit "Reset index to")))
- (magit-reset-internal nil commit "."))
-
-;;;###autoload
-(defun magit-reset-worktree (commit)
- "Reset the worktree to COMMIT.
-Keep the `HEAD' and index as-is."
- (interactive (list (magit-read-branch-or-commit "Reset worktree to")))
- (magit-with-temp-index commit nil
- (magit-wip-commit-before-change nil " before reset")
- (magit-run-git "checkout-index" "--all" "--force")
- (magit-wip-commit-after-apply nil " after reset")))
-
-;;;###autoload
-(defun magit-reset-quickly (commit &optional hard)
- "Reset the `HEAD' and index to COMMIT, and possibly the working tree.
-With a prefix argument reset the working tree otherwise don't.
-\n(git reset --mixed|--hard COMMIT)"
- (interactive (list (magit-reset-read-branch-or-commit
- (if current-prefix-arg
- (concat (propertize "Hard" 'face 'bold)
- " reset %s to")
- "Reset %s to"))
- current-prefix-arg))
- (magit-reset-internal (if hard "--hard" "--mixed") commit))
-
-(defun magit-reset-read-branch-or-commit (prompt)
- "Prompt for and return a ref to reset HEAD to.
-
-PROMPT is a format string, where either the current branch name
-or \"detached head\" will be substituted for %s."
- (magit-read-branch-or-commit
- (format prompt (or (magit-get-current-branch) "detached head"))))
-
-(defun magit-reset-internal (arg commit &optional path)
- (when (and (not (member arg '("--hard" nil)))
- (equal (magit-rev-parse commit)
- (magit-rev-parse "HEAD~")))
- (with-temp-buffer
- (magit-git-insert "show" "-s" "--format=%B" "HEAD")
- (when git-commit-major-mode
- (funcall git-commit-major-mode))
- (git-commit-setup-font-lock)
- (git-commit-save-message)))
- (let ((cmd (if (and (equal commit "HEAD") (not arg)) "unstage" "reset")))
- (magit-wip-commit-before-change nil (concat " before " cmd))
- (magit-run-git "reset" arg commit "--" path)
- (when (equal cmd "unstage")
- (magit-wip-commit-after-apply nil " after unstage"))))
-
-;;; _
-(provide 'magit-reset)
-;;; magit-reset.el ends here
diff --git a/elpa/magit-20181116.1412/magit-reset.elc b/elpa/magit-20181116.1412/magit-reset.elc
deleted file mode 100644
index 6c80cad..0000000
--- a/elpa/magit-20181116.1412/magit-reset.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-section.el b/elpa/magit-20181116.1412/magit-section.el
deleted file mode 100644
index 704d5fa..0000000
--- a/elpa/magit-20181116.1412/magit-section.el
+++ /dev/null
@@ -1,1460 +0,0 @@
-;;; magit-section.el --- section functionality -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements "sections" as used in all Magit buffers.
-;; If you have used Magit before, then you probably know what that
-;; means, otherwise think "read-only Org-Mode for Git", kinda.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dash)
-(require 'eieio)
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit-utils)
-
-(declare-function magit-maybe-make-margin-overlay "magit-margin" ())
-(declare-function magit-repository-local-get "magit-mode"
- (key &optional default repository))
-(declare-function magit-repository-local-set "magit-mode"
- (key value &optional repository))
-(defvar magit-keep-region-overlay)
-
-;;; Options
-
-(defgroup magit-section nil
- "Expandable sections."
- :link '(info-link "(magit)Sections")
- :group 'magit)
-
-(defcustom magit-section-show-child-count t
- "Whether to append the number of children to section headings.
-This only applies to sections for which doing so makes sense."
- :package-version '(magit . "2.1.0")
- :group 'magit-section
- :type 'boolean)
-
-(defcustom magit-section-movement-hook
- '(magit-hunk-set-window-start
- magit-log-maybe-update-revision-buffer
- magit-log-maybe-show-more-commits)
- "Hook run by `magit-section-goto'.
-That function in turn is used by all section movement commands."
- :package-version '(magit . "2.3.0")
- :group 'magit-section
- :type 'hook
- :options '(magit-hunk-set-window-start
- magit-status-maybe-update-revision-buffer
- magit-status-maybe-update-blob-buffer
- magit-log-maybe-update-revision-buffer
- magit-log-maybe-update-blob-buffer
- magit-log-maybe-show-more-commits))
-
-(defcustom magit-section-highlight-hook
- '(magit-diff-highlight
- magit-section-highlight
- magit-section-highlight-selection)
- "Functions used to highlight the current section.
-Each function is run with the current section as only argument
-until one of them returns non-nil."
- :package-version '(magit . "2.1.0")
- :group 'magit-section
- :type 'hook
- :options '(magit-diff-highlight
- magit-section-highlight
- magit-section-highlight-selection))
-
-(defcustom magit-section-unhighlight-hook
- '(magit-diff-unhighlight)
- "Functions used to unhighlight the previously current section.
-Each function is run with the current section as only argument
-until one of them returns non-nil. Most sections are properly
-unhighlighted without requiring a specialized unhighlighter,
-diff-related sections being the only exception."
- :package-version '(magit . "2.1.0")
- :group 'magit-section
- :type 'hook
- :options '(magit-diff-unhighlight))
-
-(defcustom magit-section-set-visibility-hook
- '(magit-diff-expansion-threshold
- magit-section-cached-visibility)
- "Hook used to set the initial visibility of a section.
-Stop at the first function that returns non-nil. The returned
-value should be `show', `hide' or nil. If no function returns
-non-nil, determine the visibility as usual, i.e. use the
-hardcoded section specific default (see `magit-insert-section')."
- :package-version '(magit . "2.4.0")
- :group 'magit-section
- :type 'hook
- :options '(magit-diff-expansion-threshold
- magit-section-cached-visibility))
-
-(defcustom magit-section-cache-visibility t
- "Whether to cache visibility of sections.
-
-Sections always retain their visibility state when they are being
-recreated during a refresh. But if a section disappears and then
-later reappears again, then this option controls whether this is
-the case.
-
-If t, then cache the visibility of all sections. If a list of
-section types, then only do so for matching sections. If nil,
-then don't do so for any sections."
- :package-version '(magit . "2.12.0")
- :group 'magit-section
- :type '(choice (const :tag "Don't cache visibility" nil)
- (const :tag "Cache visibility of all sections" t)
- (repeat :tag "Cache visibility for section types" symbol)))
-
-(defcustom magit-section-initial-visibility-alist
- '((stashes . hide))
- "Alist controlling the initial visibility of sections.
-
-Each element maps a section type or lineage to the initial
-visibility state for such sections. The state has to be one of
-`show' or `hide', or a function that returns one of these symbols.
-A function is called with the section as the only argument.
-
-Use the command `magit-describe-section' to determine a section's
-lineage or type. The vector in the output is the section lineage
-and the type is the first element of that vector. Wildcards can
-be used, see `magit-section-match'.
-
-Currently this option is only used to override hardcoded defaults,
-but in the future it will also be used set the defaults.
-
-An entry whose key is `magit-status-initial-section' specifies
-the visibility of the section `magit-status-goto-initial-section'
-jumps to. This does not only override defaults, but also other
-entries of this alist."
- :package-version '(magit . "2.12.0")
- :group 'magit-section
- :type '(alist :key-type (sexp :tag "Section type/lineage")
- :value-type (choice (const hide)
- (const show)
- function)))
-
-(defface magit-section-highlight
- '((((class color) (background light)) :background "grey95")
- (((class color) (background dark)) :background "grey20"))
- "Face for highlighting the current section."
- :group 'magit-faces)
-
-(defface magit-section-heading
- '((((class color) (background light)) :foreground "DarkGoldenrod4" :weight bold)
- (((class color) (background dark)) :foreground "LightGoldenrod2" :weight bold))
- "Face for section headings."
- :group 'magit-faces)
-
-(defface magit-section-secondary-heading '((t :weight bold))
- "Face for section headings of some secondary headings."
- :group 'magit-faces)
-
-(defface magit-section-heading-selection
- '((((class color) (background light)) :foreground "salmon4")
- (((class color) (background dark)) :foreground "LightSalmon3"))
- "Face for selected section headings."
- :group 'magit-faces)
-
-;;; Classes
-
-(defvar magit--current-section-hook nil
- "Internal variable used for `magit-explain-section'.")
-
-(defvar magit--section-type-alist
- '(
- (file . magit-file-section)
- (hunk . magit-hunk-section)
- (module . magit-module-section)
- ))
-
-(defclass magit-section ()
- ((keymap :initform nil :allocation :class)
- (type :initform nil :initarg :type)
- (value :initform nil :initarg :value)
- (start :initform nil :initarg :start)
- (content :initform nil)
- (end :initform nil)
- (hidden :initform nil)
- (washer :initform nil)
- (process :initform nil)
- (heading-highlight-face :initform nil)
- (inserter :initform (symbol-value 'magit--current-section-hook))
- (parent :initform nil :initarg :parent)
- (children :initform nil)))
-
-(defclass magit-file-section (magit-section)
- ((source :initform nil)
- (header :initform nil)))
-
-(defclass magit-hunk-section (magit-section)
- ((refined :initform nil)))
-
-(defclass magit-module-section (magit-file-section)
- ())
-
-;;; Core
-
-(defvar-local magit-root-section nil
- "The root section in the current buffer.
-All other sections are descendants of this section. The value
-of this variable is set by `magit-insert-section' and you should
-never modify it.")
-(put 'magit-root-section 'permanent-local t)
-
-(defun magit-current-section ()
- "Return the section at point."
- (or (get-text-property (point) 'magit-section) magit-root-section))
-
-(defun magit-section-ident (section)
- "Return an unique identifier for SECTION.
-The return value has the form ((TYPE . VALUE)...)."
- (with-slots (type value parent) section
- (cons (cons type
- (cond ((not (memq type '(unpulled unpushed))) value)
- ((string-match-p "@{upstream}" value) value)
- ;; Unfortunately Git chokes on "@{push}" when
- ;; the value of `push.default' does not allow a
- ;; 1:1 mapping. Arbitrary commands may consult
- ;; the section value so we cannot use "@{push}".
- ;; But `unpushed' and `unpulled' sections should
- ;; keep their identity when switching branches
- ;; so we have to use another value here.
- ((string-match-p "\\`\\.\\." value) "..@{push}")
- (t "@{push}..")))
- (and parent
- (magit-section-ident parent)))))
-
-(defun magit-get-section (ident &optional root)
- "Return the section identified by IDENT.
-IDENT has to be a list as returned by `magit-section-ident'."
- (setq ident (reverse ident))
- (let ((section (or root magit-root-section)))
- (when (eq (car (pop ident))
- (oref section type))
- (while (and ident
- (setq section
- (--first
- (and (eq (caar ident) (oref it type))
- (equal (cdar ident) (oref it value)))
- (oref section children))))
- (pop ident))
- section)))
-
-(defun magit-section-lineage (section)
- "Return the lineage of SECTION.
-The return value has the form (TYPE...)."
- (cons (oref section type)
- (when-let ((parent (oref section parent)))
- (magit-section-lineage parent))))
-
-(defvar magit-insert-section--current nil "For internal use only.")
-(defvar magit-insert-section--parent nil "For internal use only.")
-(defvar magit-insert-section--oldroot nil "For internal use only.")
-
-;;; Commands
-;;;; Movement
-
-(defun magit-section-forward ()
- "Move to the beginning of the next visible section."
- (interactive)
- (if (eobp)
- (user-error "No next section")
- (let ((section (magit-current-section)))
- (if (oref section parent)
- (let ((next (and (not (oref section hidden))
- (not (= (oref section end)
- (1+ (point))))
- (car (oref section children)))))
- (while (and section (not next))
- (unless (setq next (car (magit-section-siblings section 'next)))
- (setq section (oref section parent))))
- (if next
- (magit-section-goto next)
- (user-error "No next section")))
- (magit-section-goto 1)))))
-
-(defun magit-section-backward ()
- "Move to the beginning of the current or the previous visible section.
-When point is at the beginning of a section then move to the
-beginning of the previous visible section. Otherwise move to
-the beginning of the current section."
- (interactive)
- (if (bobp)
- (user-error "No previous section")
- (let ((section (magit-current-section)) children)
- (cond
- ((and (= (point)
- (1- (oref section end)))
- (setq children (oref section children)))
- (magit-section-goto (car (last children))))
- ((and (oref section parent)
- (not (= (point)
- (oref section start))))
- (magit-section-goto section))
- (t
- (let ((prev (car (magit-section-siblings section 'prev))))
- (if prev
- (while (and (not (oref prev hidden))
- (setq children (oref prev children)))
- (setq prev (car (last children))))
- (setq prev (oref section parent)))
- (cond (prev
- (magit-section-goto prev))
- ((oref section parent)
- (user-error "No previous section"))
- ;; Eob special cases.
- ((not (get-text-property (1- (point)) 'invisible))
- (magit-section-goto -1))
- (t
- (goto-char (previous-single-property-change
- (1- (point)) 'invisible))
- (forward-line -1)
- (magit-section-goto (magit-current-section))))))))))
-
-(defun magit-section-up ()
- "Move to the beginning of the parent section."
- (interactive)
- (--if-let (oref (magit-current-section) parent)
- (magit-section-goto it)
- (user-error "No parent section")))
-
-(defun magit-section-forward-sibling ()
- "Move to the beginning of the next sibling section.
-If there is no next sibling section, then move to the parent."
- (interactive)
- (let ((current (magit-current-section)))
- (if (oref current parent)
- (--if-let (car (magit-section-siblings current 'next))
- (magit-section-goto it)
- (magit-section-forward))
- (magit-section-goto 1))))
-
-(defun magit-section-backward-sibling ()
- "Move to the beginning of the previous sibling section.
-If there is no previous sibling section, then move to the parent."
- (interactive)
- (let ((current (magit-current-section)))
- (if (oref current parent)
- (--if-let (car (magit-section-siblings current 'prev))
- (magit-section-goto it)
- (magit-section-backward))
- (magit-section-goto -1))))
-
-(defun magit-section-goto (arg)
- (if (integerp arg)
- (progn (forward-line arg)
- (setq arg (magit-current-section)))
- (goto-char (oref arg start)))
- (run-hook-with-args 'magit-section-movement-hook arg))
-
-(defun magit-section-set-window-start (section)
- "Ensure the beginning of SECTION is visible."
- (unless (pos-visible-in-window-p (oref section end))
- (set-window-start (selected-window) (oref section start))))
-
-(defun magit-hunk-set-window-start (section)
- "When SECTION is a `hunk', ensure that its beginning is visible.
-It the SECTION has a different type, then do nothing."
- (when (magit-hunk-section-p section)
- (magit-section-set-window-start section)))
-
-(defmacro magit-define-section-jumper (name heading type &optional value)
- "Define an interactive function to go some section.
-Together TYPE and VALUE identify the section.
-HEADING is the displayed heading of the section."
- (declare (indent defun))
- `(defun ,name (&optional expand) ,(format "\
-Jump to the section \"%s\".
-With a prefix argument also expand it." heading)
- (interactive "P")
- (--if-let (magit-get-section
- (cons (cons ',type ,value)
- (magit-section-ident magit-root-section)))
- (progn (goto-char (oref it start))
- (when expand
- (with-local-quit (magit-section-show it))
- (recenter 0)))
- (message ,(format "Section \"%s\" wasn't found" heading)))))
-
-;;;; Visibility
-
-(defun magit-section-show (section)
- "Show the body of the current section."
- (interactive (list (magit-current-section)))
- (oset section hidden nil)
- (when-let ((washer (oref section washer)))
- (oset section washer nil)
- (let ((inhibit-read-only t)
- (magit-insert-section--parent section)
- (content (oref section content)))
- (save-excursion
- (if (and content (< content (oref section end)))
- (funcall washer section) ; already partially washed (hunk)
- (goto-char (oref section end))
- (oset section content (point-marker))
- (funcall washer)
- (oset section end (point-marker)))))
- (magit-section-update-highlight))
- (when-let ((beg (oref section content)))
- (remove-overlays beg (oref section end) 'invisible t))
- (magit-section-maybe-cache-visibility section)
- (dolist (child (oref section children))
- (if (oref child hidden)
- (magit-section-hide child)
- (magit-section-show child))))
-
-(defun magit-section-hide (section)
- "Hide the body of the current section."
- (interactive (list (magit-current-section)))
- (if (eq section magit-root-section)
- (user-error "Cannot hide root section")
- (oset section hidden t)
- (when-let ((beg (oref section content)))
- (let ((end (oref section end)))
- (remove-overlays beg end 'invisible t)
- (let ((o (make-overlay beg end)))
- (overlay-put o 'evaporate t)
- (overlay-put o 'invisible t))))
- (magit-section-maybe-cache-visibility section)))
-
-(defun magit-section-toggle (section)
- "Toggle visibility of the body of the current section."
- (interactive (list (magit-current-section)))
- (if (eq section magit-root-section)
- (user-error "Cannot hide root section")
- (goto-char (oref section start))
- (if (oref section hidden)
- (magit-section-show section)
- (magit-section-hide section))))
-
-(defun magit-section-toggle-children (section)
- "Toggle visibility of bodies of children of the current section."
- (interactive (list (magit-current-section)))
- (goto-char (oref section start))
- (let* ((children (oref section children))
- (show (--any-p (oref it hidden) children)))
- (dolist (c children)
- (oset c hidden show)))
- (magit-section-show section))
-
-(defun magit-section-show-children (section &optional depth)
- "Recursively show the bodies of children of the current section.
-With a prefix argument show children that deep and hide deeper
-children."
- (interactive (list (magit-current-section)))
- (magit-section-show-children-1 section depth)
- (magit-section-show section))
-
-(defun magit-section-show-children-1 (section &optional depth)
- (dolist (child (oref section children))
- (oset child hidden nil)
- (if depth
- (if (> depth 0)
- (magit-section-show-children-1 child (1- depth))
- (magit-section-hide child))
- (magit-section-show-children-1 child))))
-
-(defun magit-section-hide-children (section)
- "Recursively hide the bodies of children of the current section."
- (interactive (list (magit-current-section)))
- (mapc 'magit-section-hide (oref section children)))
-
-(defun magit-section-show-headings (section)
- "Recursively show headings of children of the current section.
-Only show the headings, previously shown text-only bodies are
-hidden."
- (interactive (list (magit-current-section)))
- (magit-section-show-headings-1 section)
- (magit-section-show section))
-
-(defun magit-section-show-headings-1 (section)
- (dolist (child (oref section children))
- (oset child hidden nil)
- (when (or (oref child children)
- (not (oref child content)))
- (magit-section-show-headings-1 child))))
-
-(defun magit-section-cycle (section)
- "Cycle visibility of current section and its children."
- (interactive (list (magit-current-section)))
- (goto-char (oref section start))
- (if (oref section hidden)
- (progn (magit-section-show section)
- (magit-section-hide-children section))
- (let ((children (oref section children)))
- (cond ((and (--any-p (oref it hidden) children)
- (--any-p (oref it children) children))
- (magit-section-show-headings section))
- ((-any-p 'magit-section-hidden-body children)
- (magit-section-show-children section))
- (t
- (magit-section-hide section))))))
-
-(defun magit-section-cycle-global ()
- "Cycle visibility of all sections in the current buffer."
- (interactive)
- (let ((children (oref magit-root-section children)))
- (cond ((and (--any-p (oref it hidden) children)
- (--any-p (oref it children) children))
- (magit-section-show-headings magit-root-section))
- ((-any-p 'magit-section-hidden-body children)
- (magit-section-show-children magit-root-section))
- (t
- (mapc 'magit-section-hide children)))))
-
-(defun magit-section-cycle-diffs ()
- "Cycle visibility of diff-related sections in the current buffer."
- (interactive)
- (when-let ((sections
- (cond ((derived-mode-p 'magit-status-mode)
- (--mapcat
- (when it
- (when (oref it hidden)
- (magit-section-show it))
- (oref it children))
- (list (magit-get-section '((staged) (status)))
- (magit-get-section '((unstaged) (status))))))
- ((derived-mode-p 'magit-diff-mode)
- (-filter #'magit-file-section-p
- (oref magit-root-section children))))))
- (if (--any-p (oref it hidden) sections)
- (dolist (s sections)
- (magit-section-show s)
- (magit-section-hide-children s))
- (let ((children (--mapcat (oref it children) sections)))
- (cond ((and (--any-p (oref it hidden) children)
- (--any-p (oref it children) children))
- (mapc 'magit-section-show-headings sections))
- ((-any-p 'magit-section-hidden-body children)
- (mapc 'magit-section-show-children sections))
- (t
- (mapc 'magit-section-hide sections)))))))
-
-(defun magit-section-hidden-body (section &optional pred)
- (--if-let (oref section children)
- (funcall (or pred '-any-p) 'magit-section-hidden-body it)
- (and (oref section content)
- (oref section hidden))))
-
-(defun magit-section-invisible-p (section)
- "Return t if the SECTION's body is invisible.
-When the body of an ancestor of SECTION is collapsed then
-SECTION's body (and heading) obviously cannot be visible."
- (or (oref section hidden)
- (--when-let (oref section parent)
- (magit-section-invisible-p it))))
-
-(defun magit-section-show-level (level)
- "Show surrounding sections up to LEVEL.
-If LEVEL is negative, show up to the absolute value.
-Sections at higher levels are hidden."
- (if (< level 0)
- (let ((s (magit-current-section)))
- (setq level (- level))
- (while (> (1- (length (magit-section-ident s))) level)
- (setq s (oref s parent))
- (goto-char (oref s start)))
- (magit-section-show-children magit-root-section (1- level)))
- (cl-do* ((s (magit-current-section)
- (oref s parent))
- (i (1- (length (magit-section-ident s)))
- (cl-decf i)))
- ((cond ((< i level) (magit-section-show-children s (- level i 1)) t)
- ((= i level) (magit-section-hide s) t))
- (magit-section-goto s)))))
-
-(defun magit-section-show-level-1 ()
- "Show surrounding sections on first level."
- (interactive)
- (magit-section-show-level 1))
-
-(defun magit-section-show-level-1-all ()
- "Show all sections on first level."
- (interactive)
- (magit-section-show-level -1))
-
-(defun magit-section-show-level-2 ()
- "Show surrounding sections up to second level."
- (interactive)
- (magit-section-show-level 2))
-
-(defun magit-section-show-level-2-all ()
- "Show all sections up to second level."
- (interactive)
- (magit-section-show-level -2))
-
-(defun magit-section-show-level-3 ()
- "Show surrounding sections up to third level."
- (interactive)
- (magit-section-show-level 3))
-
-(defun magit-section-show-level-3-all ()
- "Show all sections up to third level."
- (interactive)
- (magit-section-show-level -3))
-
-(defun magit-section-show-level-4 ()
- "Show surrounding sections up to fourth level."
- (interactive)
- (magit-section-show-level 4))
-
-(defun magit-section-show-level-4-all ()
- "Show all sections up to fourth level."
- (interactive)
- (magit-section-show-level -4))
-
-;;;; Auxiliary
-
-(defun magit-describe-section-briefly (section &optional message ident)
- "Show information about the section at point.
-With a prefix argument show the section identity instead of the
-section lineage. This command is intended for debugging purposes."
- (interactive (list (magit-current-section) t))
- (let ((str (format "#<%s %S %S %s-%s>"
- (eieio-object-class section)
- (let ((val (oref section value)))
- (cond ((stringp val)
- (substring-no-properties val))
- ((and (eieio-object-p val)
- (fboundp 'cl-prin1-to-string))
- (cl-prin1-to-string val))
- (t
- val)))
- (if ident
- (magit-section-ident section)
- (apply #'vector (magit-section-lineage section)))
- (when-let ((m (oref section start)))
- (marker-position m))
- (when-let ((m (oref section end)))
- (marker-position m)))))
- (if message (message "%s" str) str)))
-
-(cl-defmethod cl-print-object ((section magit-section) stream)
- "Print `magit-describe-section' result of SECTION."
- ;; Used by debug and edebug as of Emacs 26.
- (princ (magit-describe-section-briefly section) stream))
-
-(defun magit-describe-section (section &optional interactive-p)
- "Show information about the section at point."
- (interactive (list (magit-current-section) t))
- (let ((inserter-section section))
- (while (and inserter-section (not (oref inserter-section inserter)))
- (setq inserter-section (oref inserter-section parent)))
- (when (and inserter-section (oref inserter-section inserter))
- (setq section inserter-section)))
- (pcase (oref section inserter)
- (`((,hook ,fun) . ,src-src)
- (help-setup-xref `(magit-describe-section ,section) interactive-p)
- (with-help-window (help-buffer)
- (with-current-buffer standard-output
- (insert (format-message
- "%s\n is inserted by `%s'\n from `%s'"
- (magit-describe-section-briefly section)
- (make-text-button (symbol-name fun) nil
- :type 'help-function
- 'help-args (list fun))
- (make-text-button (symbol-name hook) nil
- :type 'help-variable
- 'help-args (list hook))))
- (pcase-dolist (`(,hook ,fun) src-src)
- (insert (format-message
- ",\n called by `%s'\n from `%s'"
- (make-text-button (symbol-name fun) nil
- :type 'help-function
- 'help-args (list fun))
- (make-text-button (symbol-name hook) nil
- :type 'help-variable
- 'help-args (list hook)))))
- (insert ".\n\n")
- (insert
- (format-message
- "`%s' is "
- (make-text-button (symbol-name fun) nil
- :type 'help-function 'help-args (list fun))))
- (describe-function-1 fun))))
- (_ (message "%s, inserter unknown"
- (magit-describe-section-briefly section)))))
-
-;;; Match
-
-(cl-defun magit-section-match
- (condition &optional (section (magit-current-section)))
- "Return t if SECTION matches CONDITION.
-
-SECTION defaults to the section at point. If SECTION is not
-specified and there also is no section at point, then return
-nil.
-
-CONDITION can take the following forms:
- (CONDITION...) matches if any of the CONDITIONs matches.
- [CLASS...] matches if the section's class is the same
- as the first CLASS or a subclass of that;
- the section's parent class matches the
- second CLASS; and so on.
- [* CLASS...] matches sections that match [CLASS...] and
- also recursively all their child sections.
- CLASS matches if the section's class is the same
- as CLASS or a subclass of that; regardless
- of the classes of the parent sections.
-
-Each CLASS should be a class symbol, identifying a class that
-derives from `magit-section'. For backward compatibility CLASS
-can also be a \"type symbol\". A section matches such a symbol
-if the value of its `type' slot is `eq'. If a type symbol has
-an entry in `magit--section-type-alist', then a section also
-matches that type if its class is a subclass of the class that
-corresponds to the type as per that alist.
-
-Note that it is not necessary to specify the complete section
-lineage as printed by `magit-describe-section-briefly', unless
-of course you want to be that precise."
- (and section (magit-section-match-1 condition section)))
-
-(defun magit-section-match-1 (condition section)
- (cl-assert condition)
- (and section
- (if (listp condition)
- (--first (magit-section-match-1 it section) condition)
- (magit-section-match-2 (if (symbolp condition)
- (list condition)
- (cl-coerce condition 'list))
- section))))
-
-(defun magit-section-match-2 (condition section)
- (if (eq (car condition) '*)
- (or (magit-section-match-2 (cdr condition) section)
- (when-let ((parent (oref section parent)))
- (magit-section-match-2 condition parent)))
- (and (let ((c (car condition)))
- (if (class-p c)
- (cl-typep section c)
- (if-let ((class (cdr (assq c magit--section-type-alist))))
- (cl-typep section class)
- (eq (oref section type) c))))
- (or (not (setq condition (cdr condition)))
- (when-let ((parent (oref section parent)))
- (magit-section-match-2 condition parent))))))
-
-(defun magit-section-value-if (condition &optional section)
- "If the section at point matches CONDITION, then return its value.
-
-If optional SECTION is non-nil then test whether that matches
-instead. If there is no section at point and SECTION is nil,
-then return nil. If the section does not match, then return
-nil.
-
-See `magit-section-match' for the forms CONDITION can take."
- (when-let ((section (or section (magit-current-section))))
- (and (magit-section-match condition section)
- (oref section value))))
-
-(defmacro magit-section-when (condition &rest body)
- "If the section at point matches CONDITION, evaluate BODY.
-
-If the section matches, then evaluate BODY forms sequentially
-with `it' bound to the section and return the value of the last
-form. If there are no BODY forms, then return the value of the
-section. If the section does not match or if there is no section
-at point, then return nil.
-
-See `magit-section-match' for the forms CONDITION can take."
- (declare (obsolete
- "instead use `magit-section-match' or `magit-section-value-if'."
- "Magit 2.90.0")
- (indent 1)
- (debug (sexp body)))
- `(--when-let (magit-current-section)
- ;; Quoting CONDITION here often leads to double-quotes, which
- ;; isn't an issue because `magit-section-match-1' implicitly
- ;; deals with that. We shouldn't force users of this function
- ;; to not quote CONDITION because that would needlessly break
- ;; backward compatibility.
- (when (magit-section-match ',condition it)
- ,@(or body '((oref it value))))))
-
-(defmacro magit-section-case (&rest clauses)
- "Choose among clauses on the type of the section at point.
-
-Each clause looks like (CONDITION BODY...). The type of the
-section is compared against each CONDITION; the BODY forms of the
-first match are evaluated sequentially and the value of the last
-form is returned. Inside BODY the symbol `it' is bound to the
-section at point. If no clause succeeds or if there is no
-section at point, return nil.
-
-See `magit-section-match' for the forms CONDITION can take.
-Additionally a CONDITION of t is allowed in the final clause, and
-matches if no other CONDITION match, even if there is no section
-at point."
- (declare (indent 0)
- (debug (&rest (sexp body))))
- `(let* ((it (magit-current-section)))
- (cond ,@(mapcar (lambda (clause)
- `(,(or (eq (car clause) t)
- `(and it
- (magit-section-match-1 ',(car clause) it)))
- ,@(cdr clause)))
- clauses))))
-
-(defun magit-section-match-assoc (section alist)
- "Return the value associated with SECTION's type or lineage in ALIST."
- (-some (pcase-lambda (`(,key . ,val))
- (and (magit-section-match-1 key section) val))
- alist))
-
-;;; Create
-
-(defvar magit-insert-section-hook nil
- "Hook run after `magit-insert-section's BODY.
-Avoid using this hook and only ever do so if you know
-what you are doing and are sure there is no other way.")
-
-(defmacro magit-insert-section (&rest args)
- "Insert a section at point.
-
-TYPE is the section type, a symbol. Many commands that act on
-the current section behave differently depending on that type.
-Also if a variable `magit-TYPE-section-map' exists, then use
-that as the text-property `keymap' of all text belonging to the
-section (but this may be overwritten in subsections). TYPE can
-also have the form `(eval FORM)' in which case FORM is evaluated
-at runtime.
-
-Optional VALUE is the value of the section, usually a string
-that is required when acting on the section.
-
-When optional HIDE is non-nil collapse the section body by
-default, i.e. when first creating the section, but not when
-refreshing the buffer. Else expand it by default. This can be
-overwritten using `magit-section-set-visibility-hook'. When a
-section is recreated during a refresh, then the visibility of
-predecessor is inherited and HIDE is ignored (but the hook is
-still honored).
-
-BODY is any number of forms that actually insert the section's
-heading and body. Optional NAME, if specified, has to be a
-symbol, which is then bound to the struct of the section being
-inserted.
-
-Before BODY is evaluated the `start' of the section object is set
-to the value of `point' and after BODY was evaluated its `end' is
-set to the new value of `point'; BODY is responsible for moving
-`point' forward.
-
-If it turns out inside BODY that the section is empty, then
-`magit-cancel-section' can be used to abort and remove all traces
-of the partially inserted section. This can happen when creating
-a section by washing Git's output and Git didn't actually output
-anything this time around.
-
-\(fn [NAME] (TYPE &optional VALUE HIDE) &rest BODY)"
- (declare (indent defun)
- (debug ([&optional symbolp]
- (&or [("eval" symbolp) &optional form form]
- [symbolp &optional form form])
- body)))
- (let ((tp (cl-gensym "type"))
- (s* (and (symbolp (car args))
- (pop args)))
- (s (cl-gensym "section")))
- `(let* ((,tp ,(let ((type (nth 0 (car args))))
- (if (eq (car-safe type) 'eval)
- (cadr type)
- `',type)))
- (,s (funcall (if (class-p ,tp)
- ,tp
- (or (cdr (assq ,tp magit--section-type-alist))
- 'magit-section))
- :type
- (if (class-p ,tp)
- (or (car (rassq ,tp magit--section-type-alist))
- (error "BUG: No entry for %s in %s" ,tp
- 'magit--section-type-alist))
- ,tp)
- :value ,(nth 1 (car args))
- :start (point-marker)
- :parent magit-insert-section--parent)))
- (oset ,s hidden
- (if-let ((value (run-hook-with-args-until-success
- 'magit-section-set-visibility-hook ,s)))
- (eq value 'hide)
- (if-let ((incarnation (and magit-insert-section--oldroot
- (magit-get-section
- (magit-section-ident ,s)
- magit-insert-section--oldroot))))
- (oref incarnation hidden)
- (if-let ((value (magit-section-match-assoc
- ,s magit-section-initial-visibility-alist)))
- (progn
- (when (functionp value)
- (setq value (funcall value ,s)))
- (eq value 'hide))
- ,(nth 2 (car args))))))
- (let ((magit-insert-section--current ,s)
- (magit-insert-section--parent ,s)
- (magit-insert-section--oldroot
- (or magit-insert-section--oldroot
- (unless magit-insert-section--parent
- (prog1 magit-root-section
- (setq magit-root-section ,s))))))
- (catch 'cancel-section
- ,@(if s*
- `((let ((,s* ,s))
- ,@(cdr args)))
- (cdr args))
- ;; `magit-insert-section-hook' should *not* be run with
- ;; `magit-run-section-hook' because it's a hook that runs
- ;; on section insertion, not a section inserting hook.
- (run-hooks 'magit-insert-section-hook)
- (magit-insert-child-count ,s)
- (set-marker-insertion-type (oref ,s start) t)
- (let* ((end (oset ,s end (point-marker)))
- (class-map (oref-default ,s keymap))
- (magit-map (intern (format "magit-%s-section-map"
- (oref ,s type))))
- (forge-map (intern (format "forge-%s-section-map"
- (oref ,s type))))
- (map (or (and class-map (symbol-value class-map))
- (and (boundp magit-map) (symbol-value magit-map))
- (and (boundp forge-map) (symbol-value forge-map)))))
- (save-excursion
- (goto-char (oref ,s start))
- (while (< (point) end)
- (let ((next (or (next-single-property-change
- (point) 'magit-section)
- end)))
- (unless (get-text-property (point) 'magit-section)
- (put-text-property (point) next 'magit-section ,s)
- (when map
- (put-text-property (point) next 'keymap map)))
- (goto-char next)))))
- (if (eq ,s magit-root-section)
- (let ((magit-section-cache-visibility nil))
- (magit-section-show ,s))
- (oset (oref ,s parent) children
- (nconc (oref (oref ,s parent) children)
- (list ,s)))))
- ,s))))
-
-(defun magit-cancel-section ()
- (when magit-insert-section--current
- (if (not (oref magit-insert-section--current parent))
- (insert "(empty)\n")
- (delete-region (oref magit-insert-section--current start)
- (point))
- (setq magit-insert-section--current nil)
- (throw 'cancel-section nil))))
-
-(defun magit-insert-heading (&rest args)
- "Insert the heading for the section currently being inserted.
-
-This function should only be used inside `magit-insert-section'.
-
-When called without any arguments, then just set the `content'
-slot of the object representing the section being inserted to
-a marker at `point'. The section should only contain a single
-line when this function is used like this.
-
-When called with arguments ARGS, which have to be strings, or
-nil, then insert those strings at point. The section should not
-contain any text before this happens and afterwards it should
-again only contain a single line. If the `face' property is set
-anywhere inside any of these strings, then insert all of them
-unchanged. Otherwise use the `magit-section-heading' face for
-all inserted text.
-
-The `content' property of the section struct is the end of the
-heading (which lasts from `start' to `content') and the beginning
-of the the body (which lasts from `content' to `end'). If the
-value of `content' is nil, then the section has no heading and
-its body cannot be collapsed. If a section does have a heading,
-then its height must be exactly one line, including a trailing
-newline character. This isn't enforced, you are responsible for
-getting it right. The only exception is that this function does
-insert a newline character if necessary."
- (declare (indent defun))
- (when args
- (let ((heading (apply #'concat args)))
- (insert (if (text-property-not-all 0 (length heading) 'face nil heading)
- heading
- (propertize heading 'face 'magit-section-heading)))))
- (unless (bolp)
- (insert ?\n))
- (magit-maybe-make-margin-overlay)
- (oset magit-insert-section--current content (point-marker)))
-
-(defun magit-insert-headers (hook)
- (let* ((header-sections nil)
- (magit-insert-section-hook
- (cons (lambda ()
- (push magit-insert-section--current
- header-sections))
- (if (listp magit-insert-section-hook)
- magit-insert-section-hook
- (list magit-insert-section-hook)))))
- (magit-run-section-hook hook)
- (when header-sections
- (insert "\n")
- ;; Make the first header into the parent of the rest.
- (when (cdr header-sections)
- (cl-callf nreverse header-sections)
- (let* ((1st-header (pop header-sections))
- (header-parent (oref 1st-header parent)))
- (oset header-parent children (list 1st-header))
- (oset 1st-header children header-sections)
- (oset 1st-header content (oref (car header-sections) start))
- (oset 1st-header end (oref (car (last header-sections)) end))
- (dolist (sub-header header-sections)
- (oset sub-header parent 1st-header)))))))
-
-(defun magit-insert-child-count (section)
- "Modify SECTION's heading to contain number of child sections.
-
-If `magit-section-show-child-count' is non-nil and the SECTION
-has children and its heading ends with \":\", then replace that
-with \" (N)\", where N is the number of child sections.
-
-This function is called by `magit-insert-section' after that has
-evaluated its BODY. Admittedly that's a bit of a hack."
- ;; This has to be fast, not pretty!
- (let (content count)
- (when (and magit-section-show-child-count
- (setq count (length (oref section children)))
- (> count 0)
- (setq content (oref section content))
- (eq (char-before (1- content)) ?:))
- (save-excursion
- (goto-char (- content 2))
- (insert (format " (%s)" count))
- (delete-char 1)))))
-
-;;; Update
-
-(defvar-local magit-section-highlight-overlays nil)
-(defvar-local magit-section-highlighted-section nil)
-(defvar-local magit-section-highlighted-sections nil)
-(defvar-local magit-section-unhighlight-sections nil)
-
-(defun magit-section-update-region (_)
- "When the region is a valid section-selection, highlight them all."
- ;; At least that's what it does conceptually. In actuality it just
- ;; returns a list of those sections, and it doesn't even matter if
- ;; this is a member of `magit-region-highlight-hook'. It probably
- ;; should be removed, but I want to make sure before removing it.
- (magit-region-sections))
-
-(defun magit-section-update-highlight ()
- (let ((section (magit-current-section)))
- (unless (eq section magit-section-highlighted-section)
- (let ((inhibit-read-only t)
- (deactivate-mark nil)
- (selection (magit-region-sections)))
- (mapc #'delete-overlay magit-section-highlight-overlays)
- (setq magit-section-highlight-overlays nil)
- (setq magit-section-unhighlight-sections
- magit-section-highlighted-sections)
- (setq magit-section-highlighted-sections nil)
- (unless (eq section magit-root-section)
- (run-hook-with-args-until-success
- 'magit-section-highlight-hook section selection))
- (dolist (s magit-section-unhighlight-sections)
- (run-hook-with-args-until-success
- 'magit-section-unhighlight-hook s selection))
- (restore-buffer-modified-p nil)
- (unless (eq magit-section-highlighted-section section)
- (setq magit-section-highlighted-section
- (and (not (oref section hidden))
- section))))
- (when (version< emacs-version "25.1")
- (setq deactivate-mark nil)))))
-
-(defun magit-section-highlight (section selection)
- "Highlight SECTION and if non-nil all sections in SELECTION.
-This function works for any section but produces undesirable
-effects for diff related sections, which by default are
-highlighted using `magit-diff-highlight'. Return t."
- (when-let ((face (oref section heading-highlight-face)))
- (dolist (section (or selection (list section)))
- (magit-section-make-overlay
- (oref section start)
- (or (oref section content)
- (oref section end))
- face)))
- (cond (selection
- (magit-section-make-overlay (oref (car selection) start)
- (oref (car (last selection)) end)
- 'magit-section-highlight)
- (magit-section-highlight-selection nil selection))
- (t
- (magit-section-make-overlay (oref section start)
- (oref section end)
- 'magit-section-highlight)))
- t)
-
-(defun magit-section-highlight-selection (_ selection)
- "Highlight the section-selection region.
-If SELECTION is non-nil, then it is a list of sections selected by
-the region. The headings of these sections are then highlighted.
-
-This is a fallback for people who don't want to highlight the
-current section and therefore removed `magit-section-highlight'
-from `magit-section-highlight-hook'.
-
-This function is necessary to ensure that a representation of
-such a region is visible. If neither of these functions were
-part of the hook variable, then such a region would be
-invisible."
- (when (and selection
- (not (and (eq this-command 'mouse-drag-region))))
- (dolist (section selection)
- (magit-section-make-overlay (oref section start)
- (or (oref section content)
- (oref section end))
- 'magit-section-heading-selection))
- t))
-
-(defun magit-section-make-overlay (start end face)
- ;; Yes, this doesn't belong here. But the alternative of
- ;; spreading this hack across the code base is even worse.
- (when (and magit-keep-region-overlay
- (memq face '(magit-section-heading-selection
- magit-diff-file-heading-selection
- magit-diff-hunk-heading-selection)))
- (setq face (list :foreground (face-foreground face))))
- (let ((ov (make-overlay start end nil t)))
- (overlay-put ov 'face face)
- (overlay-put ov 'evaporate t)
- (push ov magit-section-highlight-overlays)
- ov))
-
-(defun magit-section-goto-successor (section line char arg)
- (let ((ident (magit-section-ident section)))
- (--if-let (magit-get-section ident)
- (let ((start (oref it start)))
- (goto-char start)
- (unless (eq it magit-root-section)
- (ignore-errors
- (forward-line line)
- (forward-char char))
- (unless (eq (magit-current-section) it)
- (goto-char start))))
- (or (and (magit-hunk-section-p section)
- (when-let ((parent (magit-get-section
- (magit-section-ident
- (oref section parent)))))
- (let* ((children (oref parent children))
- (siblings (magit-section-siblings section 'prev))
- (previous (nth (length siblings) children)))
- (if (not arg)
- (--when-let (or previous (car (last children)))
- (magit-section-goto it)
- t)
- (when previous
- (magit-section-goto previous))
- (if (and (stringp arg)
- (re-search-forward arg (oref parent end) t))
- (goto-char (match-beginning 0))
- (goto-char (oref (car (last children)) end))
- (forward-line -1)
- (while (looking-at "^ ") (forward-line -1))
- (while (looking-at "^[-+]") (forward-line -1))
- (forward-line))))))
- (goto-char (--if-let (magit-section-goto-successor-1 section)
- (if (eq (oref it type) 'button)
- (point-min)
- (oref it start))
- (point-min)))))))
-
-(defun magit-section-goto-successor-1 (section)
- (or (--when-let (pcase (oref section type)
- (`staged 'unstaged)
- (`unstaged 'staged)
- (`unpushed 'unpulled)
- (`unpulled 'unpushed))
- (magit-get-section `((,it) (status))))
- (--when-let (car (magit-section-siblings section 'next))
- (magit-get-section (magit-section-ident it)))
- (--when-let (car (magit-section-siblings section 'prev))
- (magit-get-section (magit-section-ident it)))
- (--when-let (oref section parent)
- (or (magit-get-section (magit-section-ident it))
- (magit-section-goto-successor-1 it)))))
-
-;;; Visibility
-
-(defvar-local magit-section-visibility-cache nil)
-(put 'magit-section-visibility-cache 'permanent-local t)
-
-(defun magit-section-cached-visibility (section)
- "Set SECTION's visibility to the cached value."
- (cdr (assoc (magit-section-ident section)
- magit-section-visibility-cache)))
-
-(cl-defun magit-section-cache-visibility
- (&optional (section magit-insert-section--current))
- ;; Emacs 25's `alist-get' lacks TESTFN.
- (let* ((id (magit-section-ident section))
- (elt (assoc id magit-section-visibility-cache))
- (val (if (oref section hidden) 'hide 'show)))
- (if elt
- (setcdr elt val)
- (push (cons id val) magit-section-visibility-cache))))
-
-(cl-defun magit-section-maybe-cache-visibility
- (&optional (section magit-insert-section--current))
- (when (or (eq magit-section-cache-visibility t)
- (memq (oref section type)
- magit-section-cache-visibility))
- (magit-section-cache-visibility section)))
-
-(defun magit-preserve-section-visibility-cache ()
- (when (derived-mode-p 'magit-status-mode 'magit-refs-mode)
- (magit-repository-local-set
- (cons major-mode 'magit-section-visibility-cache)
- magit-section-visibility-cache)))
-
-(defun magit-restore-section-visibility-cache (mode)
- (setq magit-section-visibility-cache
- (magit-repository-local-get
- (cons mode 'magit-section-visibility-cache))))
-
-;;; Utilities
-
-(cl-defun magit-section-selected-p (section &optional (selection nil sselection))
- (and (not (eq section magit-root-section))
- (or (eq section (magit-current-section))
- (memq section (if sselection
- selection
- (setq selection (magit-region-sections))))
- (--when-let (oref section parent)
- (magit-section-selected-p it selection)))))
-
-(defun magit-section-parent-value (section)
- (when-let ((parent (oref section parent)))
- (oref parent value)))
-
-(defun magit-section-siblings (section &optional direction)
- "Return a list of the sibling sections of SECTION.
-
-If optional DIRECTION is `prev', then return siblings that come
-before SECTION. If it is `next', then return siblings that come
-after SECTION. For all other values, return all siblings
-excluding SECTION itself."
- (when-let ((parent (oref section parent)))
- (let ((siblings (oref parent children)))
- (pcase direction
- (`prev (cdr (member section (reverse siblings))))
- (`next (cdr (member section siblings)))
- (_ (remq section siblings))))))
-
-(defun magit-region-values (&optional condition multiple)
- "Return a list of the values of the selected sections.
-
-Return the values that themselves would be returned by
-`magit-region-sections' (which see)."
- (--map (oref it value)
- (magit-region-sections condition multiple)))
-
-(defun magit-region-sections (&optional condition multiple)
- "Return a list of the selected sections.
-
-When the region is active and constitutes a valid section
-selection, then return a list of all selected sections. This is
-the case when the region begins in the heading of a section and
-ends in the heading of the same section or in that of a sibling
-section. If optional MULTIPLE is non-nil, then the region cannot
-begin and end in the same section.
-
-When the selection is not valid, then return nil. In this case,
-most commands that can act on the selected sections will instead
-act on the section at point.
-
-When the region looks like it would in any other buffer then
-the selection is invalid. When the selection is valid then the
-region uses the `magit-section-highlight' face. This does not
-apply to diffs where things get a bit more complicated, but even
-here if the region looks like it usually does, then that's not
-a valid selection as far as this function is concerned.
-
-If optional CONDITION is non-nil, then the selection not only
-has to be valid; all selected sections additionally have to match
-CONDITION, or nil is returned. See `magit-section-match' for the
-forms CONDITION can take."
- (when (region-active-p)
- (let* ((rbeg (region-beginning))
- (rend (region-end))
- (sbeg (get-text-property rbeg 'magit-section))
- (send (get-text-property rend 'magit-section)))
- (when (and send
- (not (eq send magit-root-section))
- (not (and multiple (eq send sbeg))))
- (let ((siblings (cons sbeg (magit-section-siblings sbeg 'next)))
- sections)
- (when (and (memq send siblings)
- (magit-section-position-in-heading-p sbeg rbeg)
- (magit-section-position-in-heading-p send rend))
- (while siblings
- (push (car siblings) sections)
- (when (eq (pop siblings) send)
- (setq siblings nil)))
- (setq sections (nreverse sections))
- (when (or (not condition)
- (--all-p (magit-section-match condition it) sections))
- sections)))))))
-
-(defun magit-section-position-in-heading-p (&optional section pos)
- "Return t if POSITION is inside the heading of SECTION.
-POSITION defaults to point and SECTION defaults to the
-current section."
- (unless section
- (setq section (magit-current-section)))
- (unless pos
- (setq pos (point)))
- (and section
- (>= pos (oref section start))
- (< pos (or (oref section content)
- (oref section end)))
- t))
-
-(defun magit-section-internal-region-p (&optional section)
- "Return t if the region is active and inside SECTION's body.
-If optional SECTION is nil, use the current section."
- (and (region-active-p)
- (or section (setq section (magit-current-section)))
- (let ((beg (get-text-property (region-beginning) 'magit-section)))
- (and (eq beg (get-text-property (region-end) 'magit-section))
- (eq beg section)))
- (not (or (magit-section-position-in-heading-p section (region-beginning))
- (magit-section-position-in-heading-p section (region-end))))
- t))
-
-(defun magit-section--backward-protected ()
- "Move to the beginning of the current or the previous visible section.
-Same as `magit-section-backward' but for non-interactive use.
-Suppress `magit-section-movement-hook', and return a boolean to
-indicate whether a section was found, instead of raising an error
-if not."
- (condition-case nil
- (let ((magit-section-movement-hook nil))
- (magit-section-backward)
- t)
- (user-error nil)))
-
-(defun magit-section--backward-find (predicate)
- "Move to the first previous section satisfying PREDICATE.
-PREDICATE does not take any parameter and should not move
-point."
- (let (found)
- (while (and (setq found (magit-section--backward-protected))
- (not (funcall predicate))))
- found))
-
-(defun magit-wash-sequence (function)
- "Repeatedly call FUNCTION until it returns nil or eob is reached.
-FUNCTION has to move point forward or return nil."
- (while (and (not (eobp)) (funcall function))))
-
-(defun magit-add-section-hook (hook function &optional at append local)
- "Add to the value of section hook HOOK the function FUNCTION.
-
-Add FUNCTION at the beginning of the hook list unless optional
-APPEND is non-nil, in which case FUNCTION is added at the end.
-If FUNCTION already is a member, then move it to the new location.
-
-If optional AT is non-nil and a member of the hook list, then
-add FUNCTION next to that instead. Add before or after AT, or
-replace AT with FUNCTION depending on APPEND. If APPEND is the
-symbol `replace', then replace AT with FUNCTION. For any other
-non-nil value place FUNCTION right after AT. If nil, then place
-FUNCTION right before AT. If FUNCTION already is a member of the
-list but AT is not, then leave FUNCTION where ever it already is.
-
-If optional LOCAL is non-nil, then modify the hook's buffer-local
-value rather than its global value. This makes the hook local by
-copying the default value. That copy is then modified.
-
-HOOK should be a symbol. If HOOK is void, it is first set to nil.
-HOOK's value must not be a single hook function. FUNCTION should
-be a function that takes no arguments and inserts one or multiple
-sections at point, moving point forward. FUNCTION may choose not
-to insert its section(s), when doing so would not make sense. It
-should not be abused for other side-effects. To remove FUNCTION
-again use `remove-hook'."
- (unless (boundp hook)
- (error "Cannot add function to undefined hook variable %s" hook))
- (or (default-boundp hook) (set-default hook nil))
- (let ((value (if local
- (if (local-variable-p hook)
- (symbol-value hook)
- (unless (local-variable-if-set-p hook)
- (make-local-variable hook))
- (copy-sequence (default-value hook)))
- (default-value hook))))
- (if at
- (when (setq at (member at value))
- (setq value (delq function value))
- (cond ((eq append 'replace)
- (setcar at function))
- (append
- (push function (cdr at)))
- (t
- (push (car at) (cdr at))
- (setcar at function))))
- (setq value (delq function value)))
- (unless (member function value)
- (setq value (if append
- (append value (list function))
- (cons function value))))
- (when (eq append 'replace)
- (setq value (delq at value)))
- (if local
- (set hook value)
- (set-default hook value))))
-
-(defun magit-run-section-hook (hook &rest args)
- "Run HOOK with ARGS, warning about invalid entries."
- (let ((entries (symbol-value hook)))
- (unless (listp entries)
- (setq entries (list entries)))
- (--when-let (-remove #'functionp entries)
- (message "`%s' contains entries that are no longer valid.
-%s\nUsing standard value instead. Please re-configure hook variable."
- hook
- (mapconcat (lambda (sym) (format " `%s'" sym)) it "\n"))
- (sit-for 5)
- (setq entries (eval (car (get hook 'standard-value)))))
- (dolist (entry entries)
- (let ((magit--current-section-hook (cons (list hook entry)
- magit--current-section-hook)))
- (apply entry args)))))
-
-;;; _
-(provide 'magit-section)
-;;; magit-section.el ends here
diff --git a/elpa/magit-20181116.1412/magit-section.elc b/elpa/magit-20181116.1412/magit-section.elc
deleted file mode 100644
index e333349..0000000
--- a/elpa/magit-20181116.1412/magit-section.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-sequence.el b/elpa/magit-20181116.1412/magit-sequence.el
deleted file mode 100644
index 0eb1ec6..0000000
--- a/elpa/magit-20181116.1412/magit-sequence.el
+++ /dev/null
@@ -1,915 +0,0 @@
-;;; magit-sequence.el --- history manipulation in Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2011-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Support for Git commands that replay commits and help the user make
-;; changes along the way. Supports `cherry-pick', `revert', `rebase',
-;; `rebase--interactive' and `am'.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-;;; Options
-;;;; Faces
-
-(defface magit-sequence-pick
- '((t :inherit default))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-(defface magit-sequence-stop
- '((((class color) (background light)) :foreground "DarkOliveGreen4")
- (((class color) (background dark)) :foreground "DarkSeaGreen2"))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-(defface magit-sequence-part
- '((((class color) (background light)) :foreground "Goldenrod4")
- (((class color) (background dark)) :foreground "LightGoldenrod2"))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-(defface magit-sequence-head
- '((((class color) (background light)) :foreground "SkyBlue4")
- (((class color) (background dark)) :foreground "LightSkyBlue1"))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-(defface magit-sequence-drop
- '((((class color) (background light)) :foreground "IndianRed")
- (((class color) (background dark)) :foreground "IndianRed"))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-(defface magit-sequence-done
- '((t :inherit magit-hash))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-(defface magit-sequence-onto
- '((t :inherit magit-sequence-done))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-(defface magit-sequence-exec
- '((t :inherit magit-hash))
- "Face used in sequence sections."
- :group 'magit-faces)
-
-;;; Common
-
-;;;###autoload
-(defun magit-sequencer-continue ()
- "Resume the current cherry-pick or revert sequence."
- (interactive)
- (if (magit-sequencer-in-progress-p)
- (if (magit-anything-unstaged-p t)
- (user-error "Cannot continue due to unstaged changes")
- (magit-run-git-sequencer
- (if (magit-revert-in-progress-p) "revert" "cherry-pick") "--continue"))
- (user-error "No cherry-pick or revert in progress")))
-
-;;;###autoload
-(defun magit-sequencer-skip ()
- "Skip the stopped at commit during a cherry-pick or revert sequence."
- (interactive)
- (if (magit-sequencer-in-progress-p)
- (progn (magit-call-git "reset" "--hard")
- (magit-sequencer-continue))
- (user-error "No cherry-pick or revert in progress")))
-
-;;;###autoload
-(defun magit-sequencer-abort ()
- "Abort the current cherry-pick or revert sequence.
-This discards all changes made since the sequence started."
- (interactive)
- (if (magit-sequencer-in-progress-p)
- (magit-run-git-sequencer
- (if (magit-revert-in-progress-p) "revert" "cherry-pick") "--abort")
- (user-error "No cherry-pick or revert in progress")))
-
-(defun magit-sequencer-in-progress-p ()
- (or (magit-cherry-pick-in-progress-p)
- (magit-revert-in-progress-p)))
-
-;;; Cherry-Pick
-
-(defvar magit-perl-executable "perl"
- "The Perl executable.")
-
-;;;###autoload (autoload 'magit-cherry-pick-popup "magit-sequence" nil t)
-(magit-define-popup magit-cherry-pick-popup
- "Popup console for cherry-pick commands."
- :man-page "git-cherry-pick"
- :switches '((?s "Add Signed-off-by lines" "--signoff")
- (?e "Edit commit messages" "--edit")
- (?x "Reference cherry in commit message" "-x")
- (?F "Attempt fast-forward" "--ff"))
- :options '((?s "Strategy" "--strategy=")
- (?m "Replay merge relative to parent" "--mainline="))
- :actions '("Apply here"
- (?A "Pick" magit-cherry-copy)
- (?a "Apply" magit-cherry-apply)
- (?h "Harvest" magit-cherry-harvest)
- "Apply elsewhere"
- (?d "Donate" magit-cherry-donate)
- (?n "Spinout" magit-cherry-spinout)
- (?s "Spinoff" magit-cherry-spinoff))
- :sequence-actions '((?A "Continue" magit-sequencer-continue)
- (?s "Skip" magit-sequencer-skip)
- (?a "Abort" magit-sequencer-abort))
- :sequence-predicate 'magit-sequencer-in-progress-p
- :default-arguments '("--ff"))
-
-(defun magit-cherry-pick-read-args (prompt)
- (list (or (nreverse (magit-region-values 'commit))
- (magit-read-other-branch-or-commit prompt))
- (magit-cherry-pick-arguments)))
-
-(defun magit--cherry-move-read-args (verb away fn)
- (declare (indent defun))
- (let ((commits (or (nreverse (magit-region-values 'commit))
- (list (funcall (if away
- 'magit-read-branch-or-commit
- 'magit-read-other-branch-or-commit)
- (format "%s cherry" (capitalize verb))))))
- (current (magit-get-current-branch)))
- (unless current
- (user-error "Cannot %s cherries while HEAD is detached" verb))
- (let ((reachable (magit-rev-ancestor-p (car commits) current))
- (msg "Cannot %s cherries that %s reachable from HEAD"))
- (pcase (list away reachable)
- (`(nil t) (user-error msg verb "are"))
- (`(t nil) (user-error msg verb "are not"))))
- `(,commits
- ,@(funcall fn commits)
- ,(magit-cherry-pick-arguments))))
-
-(defun magit--cherry-spinoff-read-args (verb)
- (magit--cherry-move-read-args verb t
- (lambda (commits)
- (butlast (magit-branch-read-args
- (format "Create branch from %s cherries" commits))))))
-
-;;;###autoload
-(defun magit-cherry-copy (commits &optional args)
- "Copy COMMITS from another branch onto the current branch.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then pick all of them,
-without prompting."
- (interactive (magit-cherry-pick-read-args "Cherry-pick"))
- (magit--cherry-pick commits args))
-
-;;;###autoload
-(defun magit-cherry-apply (commits &optional args)
- "Apply the changes in COMMITS but do not commit them.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then apply all of them,
-without prompting."
- (interactive (magit-cherry-pick-read-args "Apply changes from commit"))
- (magit--cherry-pick commits (cons "--no-commit" (remove "--ff" args))))
-
-;;;###autoload
-(defun magit-cherry-harvest (commits branch &optional args)
- "Move COMMITS from another BRANCH onto the current branch.
-Remove the COMMITS from BRANCH and stay on the current branch.
-If a conflict occurs, then you have to fix that and finish the
-process manually."
- (interactive
- (magit--cherry-move-read-args "harvest" nil
- (lambda (commits)
- (list (let ((branches (magit-list-containing-branches (car commits))))
- (pcase (length branches)
- (0 nil)
- (1 (car branches))
- (_ (magit-completing-read
- (format "Remove %s cherries from branch" (length commits))
- branches nil t))))))))
- (magit--cherry-move commits branch (magit-get-current-branch) args nil t))
-
-;;;###autoload
-(defun magit-cherry-donate (commits branch &optional args)
- "Move COMMITS from the current branch onto another existing BRANCH.
-Remove COMMITS from the current branch and stay on that branch.
-If a conflict occurs, then you have to fix that and finish the
-process manually."
- (interactive
- (magit--cherry-move-read-args "donate" t
- (lambda (commits)
- (list (magit-read-other-branch (format "Move %s cherries to branch"
- (length commits)))))))
- (magit--cherry-move commits (magit-get-current-branch) branch args))
-
-;;;###autoload
-(defun magit-cherry-spinout (commits branch start-point &optional args)
- "Move COMMITS from the current branch onto a new BRANCH.
-Remove COMMITS from the current branch and stay on that branch.
-If a conflict occurs, then you have to fix that and finish the
-process manually."
- (interactive (magit--cherry-spinoff-read-args "spinout"))
- (magit--cherry-move commits (magit-get-current-branch) branch args
- start-point))
-
-;;;###autoload
-(defun magit-cherry-spinoff (commits branch start-point &optional args)
- "Move COMMITS from the current branch onto a new BRANCH.
-Remove COMMITS from the current branch and checkout BRANCH.
-If a conflict occurs, then you have to fix that and finish
-the process manually."
- (interactive (magit--cherry-spinoff-read-args "spinoff"))
- (magit--cherry-move commits (magit-get-current-branch) branch args
- start-point t))
-
-(defun magit--cherry-move (commits src dst args
- &optional start-point checkout-dst)
- (let ((current (magit-get-current-branch)))
- (unless (magit-branch-p dst)
- (let ((magit-process-raise-error t))
- (magit-call-git "branch" dst start-point))
- (--when-let (magit-get-indirect-upstream-branch start-point)
- (magit-call-git "branch" "--set-upstream-to" it dst)))
- (unless (equal dst current)
- (let ((magit-process-raise-error t))
- (magit-call-git "checkout" dst)))
- (if (not src) ; harvest only
- (magit--cherry-pick commits args)
- (let ((tip (car (last commits)))
- (keep (concat (car commits) "^")))
- (magit--cherry-pick commits args)
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (when (memq (process-status process) '(exit signal))
- (if (> (process-exit-status process) 0)
- (magit-process-sentinel process event)
- (process-put process 'inhibit-refresh t)
- (magit-process-sentinel process event)
- (cond
- ((magit-rev-equal tip src)
- (magit-call-git "update-ref"
- "-m" (format "reset: moving to %s" keep)
- (magit-ref-fullname src)
- keep tip)
- (if (not checkout-dst)
- (magit-run-git "checkout" src)
- (magit-refresh)))
- (t
- (magit-git "checkout" src)
- (let ((process-environment process-environment))
- (push (format "%s=%s -i -ne '/^pick (%s)/ or print'"
- "GIT_SEQUENCE_EDITOR"
- magit-perl-executable
- (mapconcat #'magit-rev-abbrev commits "|"))
- process-environment)
- (magit-run-git-sequencer "rebase" "-i" keep))
- (when checkout-dst
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (when (memq (process-status process) '(exit signal))
- (if (> (process-exit-status process) 0)
- (magit-process-sentinel process event)
- (process-put process 'inhibit-refresh t)
- (magit-process-sentinel process event)
- (magit-run-git "checkout" dst))))))))))))))))
-
-(defun magit--cherry-pick (commits args &optional revert)
- (let ((command (if revert "revert" "cherry-pick")))
- (when (stringp commits)
- (setq commits (if (string-match-p "\\.\\." commits)
- (split-string commits "\\.\\.")
- (list commits))))
- (magit-run-git-sequencer
- (if revert "revert" "cherry-pick")
- (pcase-let ((`(,merge ,non-merge)
- (-separate 'magit-merge-commit-p commits)))
- (cond
- ((not merge)
- (--remove (string-prefix-p "--mainline=" it) args))
- (non-merge
- (user-error "Cannot %s merge and non-merge commits at once"
- command))
- ((--first (string-prefix-p "--mainline=" it) args)
- args)
- (t
- (cons (format "--mainline=%s"
- (read-number "Replay merges relative to parent: "))
- args))))
- commits)))
-
-(defun magit-cherry-pick-in-progress-p ()
- ;; .git/sequencer/todo does not exist when there is only one commit left.
- (file-exists-p (magit-git-dir "CHERRY_PICK_HEAD")))
-
-;;; Revert
-
-;;;###autoload (autoload 'magit-revert-popup "magit-sequence" nil t)
-(magit-define-popup magit-revert-popup
- "Popup console for revert commands."
- :man-page "git-revert"
- :switches '((?s "Add Signed-off-by lines" "--signoff")
- (?e "Edit commit message" "--edit")
- (?E "Don't edit commit message" "--no-edit"))
- :options '((?s "Strategy" "--strategy=")
- (?S "Sign using gpg" "--gpg-sign=" magit-read-gpg-secret-key)
- (?m "Replay merge relative to parent" "--mainline="))
- :actions '((?V "Revert commit(s)" magit-revert-and-commit)
- (?v "Revert changes" magit-revert-no-commit))
- :sequence-actions '((?V "Continue" magit-sequencer-continue)
- (?s "Skip" magit-sequencer-skip)
- (?a "Abort" magit-sequencer-abort))
- :sequence-predicate 'magit-sequencer-in-progress-p
- :default-arguments '("--edit"))
-
-(defun magit-revert-read-args (prompt)
- (list (or (magit-region-values 'commit)
- (magit-read-branch-or-commit prompt))
- (magit-revert-arguments)))
-
-;;;###autoload
-(defun magit-revert-and-commit (commit &optional args)
- "Revert COMMIT by creating a new commit.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then revert all of them,
-without prompting."
- (interactive (magit-revert-read-args "Revert commit"))
- (magit--cherry-pick commit args t))
-
-;;;###autoload
-(defun magit-revert-no-commit (commit &optional args)
- "Revert COMMIT by applying it in reverse to the worktree.
-Prompt for a commit, defaulting to the commit at point. If
-the region selects multiple commits, then revert all of them,
-without prompting."
- (interactive (magit-revert-read-args "Revert changes"))
- (magit--cherry-pick commit (cons "--no-commit" args) t))
-
-(defun magit-revert-in-progress-p ()
- ;; .git/sequencer/todo does not exist when there is only one commit left.
- (file-exists-p (magit-git-dir "REVERT_HEAD")))
-
-;;; Patch
-
-;;;###autoload (autoload 'magit-am-popup "magit-sequence" nil t)
-(magit-define-popup magit-am-popup
- "Popup console for mailbox commands."
- :man-page "git-am"
- :switches '((?3 "Fall back on 3way merge" "--3way")
- (?s "Add Signed-off-by lines" "--signoff")
- (?c "Remove text before scissors line" "--scissors")
- (?k "Inhibit removal of email cruft" "--keep")
- (?b "Limit removal of email cruft" "--keep-non-patch")
- (?d "Use author date as committer date"
- "--committer-date-is-author-date")
- (?D "Use committer date as author date" "--ignore-date"))
- :options '((?p "Remove leading slashes from paths" "-p"
- magit-read-number-string))
- :actions '((?m "Apply maildir" magit-am-apply-maildir)
- (?w "Apply patches" magit-am-apply-patches)
- (?a "Apply plain patch" magit-patch-apply-popup))
- :default-arguments '("--3way")
- :default-actions 'magit-am-apply-patches
- :max-action-columns 1
- :sequence-actions '((?w "Continue" magit-am-continue)
- (?s "Skip" magit-am-skip)
- (?a "Abort" magit-am-abort))
- :sequence-predicate 'magit-am-in-progress-p)
-
-;;;###autoload
-(defun magit-am-apply-patches (&optional files args)
- "Apply the patches FILES."
- (interactive (list (or (magit-region-values 'file)
- (list (let ((default (magit-file-at-point)))
- (read-file-name
- (if default
- (format "Apply patch (%s): " default)
- "Apply patch: ")
- nil default))))
- (magit-am-arguments)))
- (magit-run-git-sequencer "am" args "--"
- (--map (magit-convert-filename-for-git
- (expand-file-name it))
- files)))
-
-;;;###autoload
-(defun magit-am-apply-maildir (&optional maildir args)
- "Apply the patches from MAILDIR."
- (interactive (list (read-file-name "Apply mbox or Maildir: ")
- (magit-am-arguments)))
- (magit-run-git-sequencer "am" args (magit-convert-filename-for-git
- (expand-file-name maildir))))
-
-;;;###autoload
-(defun magit-am-continue ()
- "Resume the current patch applying sequence."
- (interactive)
- (if (magit-am-in-progress-p)
- (if (magit-anything-unstaged-p t)
- (error "Cannot continue due to unstaged changes")
- (magit-run-git-sequencer "am" "--continue"))
- (user-error "Not applying any patches")))
-
-;;;###autoload
-(defun magit-am-skip ()
- "Skip the stopped at patch during a patch applying sequence."
- (interactive)
- (if (magit-am-in-progress-p)
- (magit-run-git-sequencer "am" "--skip")
- (user-error "Not applying any patches")))
-
-;;;###autoload
-(defun magit-am-abort ()
- "Abort the current patch applying sequence.
-This discards all changes made since the sequence started."
- (interactive)
- (if (magit-am-in-progress-p)
- (magit-run-git "am" "--abort")
- (user-error "Not applying any patches")))
-
-(defun magit-am-in-progress-p ()
- (file-exists-p (magit-git-dir "rebase-apply/applying")))
-
-;;; Rebase
-
-;;;###autoload (autoload 'magit-rebase-popup "magit-sequence" nil t)
-(magit-define-popup magit-rebase-popup
- "Key menu for rebasing."
- :man-page "git-rebase"
- :switches '((?k "Keep empty commits" "--keep-empty")
- (?p "Preserve merges" "--preserve-merges")
- (?c "Lie about committer date" "--committer-date-is-author-date")
- (?a "Autosquash" "--autosquash")
- (?A "Autostash" "--autostash")
- (?i "Interactive" "--interactive")
- (?h "Disable hooks" "--no-verify"))
- :actions '((lambda ()
- (concat (propertize "Rebase " 'face 'magit-popup-heading)
- (propertize (or (magit-get-current-branch) "HEAD")
- 'face 'magit-branch-local)
- (propertize " onto" 'face 'magit-popup-heading)))
- (?p (lambda ()
- (--when-let (magit-get-push-branch) (concat it "\n")))
- magit-rebase-onto-pushremote)
- (?u (lambda ()
- (--when-let (magit-get-upstream-branch) (concat it "\n")))
- magit-rebase-onto-upstream)
- (?e "elsewhere" magit-rebase-branch)
- "Rebase"
- (?i "interactively" magit-rebase-interactive)
- (?m "to modify a commit" magit-rebase-edit-commit)
- (?s "a subset" magit-rebase-subset)
- (?w "to reword a commit" magit-rebase-reword-commit) nil
- (?k "to remove a commit" magit-rebase-remove-commit) nil
- (?f "to autosquash" magit-rebase-autosquash))
- :sequence-actions '((?r "Continue" magit-rebase-continue)
- (?s "Skip" magit-rebase-skip)
- (?e "Edit" magit-rebase-edit)
- (?a "Abort" magit-rebase-abort))
- :sequence-predicate 'magit-rebase-in-progress-p
- :max-action-columns 2)
-
-(defun magit-git-rebase (target args)
- (magit-run-git-sequencer "rebase" target args))
-
-;;;###autoload
-(defun magit-rebase-onto-pushremote (args)
- "Rebase the current branch onto `branch.<name>.pushRemote'.
-If that variable is unset, then rebase onto `remote.pushDefault'."
- (interactive (list (magit-rebase-arguments)))
- (--if-let (magit-get-current-branch)
- (if-let ((remote (magit-get-push-remote it)))
- (if (member remote (magit-list-remotes))
- (magit-git-rebase (concat remote "/" it) args)
- (user-error "Remote `%s' doesn't exist" remote))
- (user-error "No push-remote is configured for %s" it))
- (user-error "No branch is checked out")))
-
-;;;###autoload
-(defun magit-rebase-onto-upstream (args)
- "Rebase the current branch onto its upstream branch."
- (interactive (list (magit-rebase-arguments)))
- (--if-let (magit-get-current-branch)
- (if-let ((target (magit-get-upstream-branch it)))
- (magit-git-rebase target args)
- (user-error "No upstream is configured for %s" it))
- (user-error "No branch is checked out")))
-
-;;;###autoload
-(defun magit-rebase-branch (target args)
- "Rebase the current branch onto a branch read in the minibuffer.
-All commits that are reachable from `HEAD' but not from the
-selected branch TARGET are being rebased."
- (interactive (list (magit-read-other-branch-or-commit "Rebase onto")
- (magit-rebase-arguments)))
- (message "Rebasing...")
- (magit-git-rebase target args)
- (message "Rebasing...done"))
-
-;;;###autoload
-(defun magit-rebase-subset (newbase start args)
- "Rebase a subset of the current branch's history onto a new base.
-Rebase commits from START to `HEAD' onto NEWBASE.
-START has to be selected from a list of recent commits."
- (interactive (list (magit-read-other-branch-or-commit
- "Rebase subset onto" nil
- (magit-get-upstream-branch))
- nil
- (magit-rebase-arguments)))
- (if start
- (progn (message "Rebasing...")
- (magit-run-git-sequencer "rebase" "--onto" newbase start args)
- (message "Rebasing...done"))
- (magit-log-select
- `(lambda (commit)
- (magit-rebase-subset ,newbase (concat commit "^") (list ,@args)))
- (concat "Type %p on a commit to rebase it "
- "and commits above it onto " newbase ","))))
-
-(defun magit-rebase-interactive-1
- (commit args message &optional editor delay-edit-confirm noassert confirm)
- (declare (indent 2))
- (when commit
- (if (eq commit :merge-base)
- (setq commit (--if-let (magit-get-upstream-branch)
- (magit-git-string "merge-base" it "HEAD")
- nil))
- (unless (magit-rev-ancestor-p commit "HEAD")
- (user-error "%s isn't an ancestor of HEAD" commit))
- (if (magit-commit-parents commit)
- (setq commit (concat commit "^"))
- (setq args (cons "--root" args)))))
- (when (and commit (not noassert))
- (setq commit (magit-rebase-interactive-assert commit delay-edit-confirm)))
- (if (and commit (not confirm))
- (let ((process-environment process-environment))
- (when editor
- (push (concat "GIT_SEQUENCE_EDITOR=" editor) process-environment))
- (magit-run-git-sequencer "rebase" "-i" args
- (unless (member "--root" args) commit)))
- (magit-log-select
- `(lambda (commit)
- (magit-rebase-interactive-1 commit (list ,@args)
- ,message ,editor ,delay-edit-confirm ,noassert))
- message)))
-
-(defvar magit--rebase-published-symbol nil)
-(defvar magit--rebase-public-edit-confirmed nil)
-
-(defun magit-rebase-interactive-assert (since &optional delay-edit-confirm)
- (let* ((commit (if (string-suffix-p "^" since)
- ;; If SINCE is "REV^", then the user selected
- ;; "REV", which is the first commit that will
- ;; be replaced. (from^..to] <=> [from..to].
- (substring since 0 -1)
- ;; The "--root" argument is being used.
- since))
- (branches (magit-list-publishing-branches commit)))
- (setq magit--rebase-public-edit-confirmed
- (delete (magit-toplevel) magit--rebase-public-edit-confirmed))
- (when (and branches
- (or (not delay-edit-confirm)
- ;; The user might have stopped at a published commit
- ;; merely to add new commits *after* it. Try not to
- ;; ask users whether they really want to edit public
- ;; commits, when they don't actually intend to do so.
- (not (--all-p (magit-rev-equal it commit) branches))))
- (let ((m1 "Some of these commits have already been published to ")
- (m2 ".\nDo you really want to modify them"))
- (magit-confirm (or magit--rebase-published-symbol 'rebase-published)
- (concat m1 "%s" m2)
- (concat m1 "%i public branches" m2)
- nil branches))
- (push (magit-toplevel) magit--rebase-public-edit-confirmed)))
- (if (magit-git-lines "rev-list" "--merges" (concat since "..HEAD"))
- (magit-read-char-case "Proceed despite merge in rebase range? " nil
- (?c "[c]ontinue" since)
- (?s "[s]elect other" nil)
- (?a "[a]bort" (user-error "Quit")))
- since))
-
-;;;###autoload
-(defun magit-rebase-interactive (commit args)
- "Start an interactive rebase sequence."
- (interactive (list (magit-commit-at-point)
- (magit-rebase-arguments)))
- (magit-rebase-interactive-1 commit args
- "Type %p on a commit to rebase it and all commits above it,"
- nil t))
-
-;;;###autoload
-(defun magit-rebase-autosquash (args)
- "Combine squash and fixup commits with their intended targets."
- (interactive (list (magit-rebase-arguments)))
- (magit-rebase-interactive-1 :merge-base (cons "--autosquash" args)
- "Type %p on a commit to squash into it and then rebase as necessary,"
- "true" nil t))
-
-;;;###autoload
-(defun magit-rebase-edit-commit (commit args)
- "Edit a single older commit using rebase."
- (interactive (list (magit-commit-at-point)
- (magit-rebase-arguments)))
- (magit-rebase-interactive-1 commit args
- "Type %p on a commit to edit it,"
- (concat magit-perl-executable
- " -i -p -e '++$x if not $x and s/^pick/edit/'")
- t))
-
-;;;###autoload
-(defun magit-rebase-reword-commit (commit args)
- "Reword a single older commit using rebase."
- (interactive (list (magit-commit-at-point)
- (magit-rebase-arguments)))
- (magit-rebase-interactive-1 commit args
- "Type %p on a commit to reword its message,"
- (concat magit-perl-executable
- " -i -p -e '++$x if not $x and s/^pick/reword/'")))
-
-;;;###autoload
-(defun magit-rebase-remove-commit (commit args)
- "Remove a single older commit using rebase."
- (interactive (list (magit-commit-at-point)
- (magit-rebase-arguments)))
- (magit-rebase-interactive-1 commit args
- "Type %p on a commit to remove it,"
- (concat magit-perl-executable
- " -i -p -e '++$x if not $x and s/^pick/# pick/'")
- nil nil t))
-
-;;;###autoload
-(defun magit-rebase-continue (&optional noedit)
- "Restart the current rebasing operation.
-In some cases this pops up a commit message buffer for you do
-edit. With a prefix argument the old message is reused as-is."
- (interactive "P")
- (if (magit-rebase-in-progress-p)
- (if (magit-anything-unstaged-p t)
- (user-error "Cannot continue rebase with unstaged changes")
- (when (and (magit-anything-staged-p)
- (file-exists-p (magit-git-dir "rebase-merge"))
- (not (member (magit-toplevel)
- magit--rebase-public-edit-confirmed)))
- (magit-commit-amend-assert))
- (if noedit
- (let ((process-environment process-environment))
- (push "GIT_EDITOR=true" process-environment)
- (magit-run-git-async (magit--rebase-resume-command) "--continue")
- (set-process-sentinel magit-this-process
- #'magit-sequencer-process-sentinel)
- magit-this-process)
- (magit-run-git-sequencer (magit--rebase-resume-command) "--continue")))
- (user-error "No rebase in progress")))
-
-;;;###autoload
-(defun magit-rebase-skip ()
- "Skip the current commit and restart the current rebase operation."
- (interactive)
- (unless (magit-rebase-in-progress-p)
- (user-error "No rebase in progress"))
- (magit-run-git-sequencer (magit--rebase-resume-command) "--skip"))
-
-;;;###autoload
-(defun magit-rebase-edit ()
- "Edit the todo list of the current rebase operation."
- (interactive)
- (unless (magit-rebase-in-progress-p)
- (user-error "No rebase in progress"))
- (magit-run-git-sequencer "rebase" "--edit-todo"))
-
-;;;###autoload
-(defun magit-rebase-abort ()
- "Abort the current rebase operation, restoring the original branch."
- (interactive)
- (unless (magit-rebase-in-progress-p)
- (user-error "No rebase in progress"))
- (magit-confirm 'abort-rebase "Abort this rebase")
- (magit-run-git (magit--rebase-resume-command) "--abort"))
-
-(defun magit-rebase-in-progress-p ()
- "Return t if a rebase is in progress."
- (or (file-exists-p (magit-git-dir "rebase-merge"))
- (file-exists-p (magit-git-dir "rebase-apply/onto"))))
-
-(defun magit--rebase-resume-command ()
- (if (file-exists-p (magit-git-dir "rebase-recursive")) "rbr" "rebase"))
-
-;;; Sections
-
-(defun magit-insert-sequencer-sequence ()
- "Insert section for the on-going cherry-pick or revert sequence.
-If no such sequence is in progress, do nothing."
- (let ((picking (magit-cherry-pick-in-progress-p)))
- (when (or picking (magit-revert-in-progress-p))
- (magit-insert-section (sequence)
- (magit-insert-heading (if picking "Cherry Picking" "Reverting"))
- (when-let ((lines
- (cdr (magit-file-lines (magit-git-dir "sequencer/todo")))))
- (dolist (line (nreverse lines))
- (when (string-match
- "^\\(pick\\|revert\\) \\([^ ]+\\) \\(.*\\)$" line)
- (magit-bind-match-strings (cmd hash msg) line
- (magit-insert-section (commit hash)
- (insert (propertize cmd 'face 'magit-sequence-pick)
- " " (propertize hash 'face 'magit-hash)
- " " msg "\n"))))))
- (magit-sequence-insert-sequence
- (magit-file-line (magit-git-dir (if picking
- "CHERRY_PICK_HEAD"
- "REVERT_HEAD")))
- (magit-file-line (magit-git-dir "sequencer/head")))
- (insert "\n")))))
-
-(defun magit-insert-am-sequence ()
- "Insert section for the on-going patch applying sequence.
-If no such sequence is in progress, do nothing."
- (when (magit-am-in-progress-p)
- (magit-insert-section (rebase-sequence)
- (magit-insert-heading "Applying patches")
- (let ((patches (nreverse (magit-rebase-patches)))
- patch commit)
- (while patches
- (setq patch (pop patches))
- (setq commit (magit-rev-verify-commit
- (cadr (split-string (magit-file-line patch)))))
- (cond ((and commit patches)
- (magit-sequence-insert-commit
- "pick" commit 'magit-sequence-pick))
- (patches
- (magit-sequence-insert-am-patch
- "pick" patch 'magit-sequence-pick))
- (commit
- (magit-sequence-insert-sequence commit "ORIG_HEAD"))
- (t
- (magit-sequence-insert-am-patch
- "stop" patch 'magit-sequence-stop)
- (magit-sequence-insert-sequence nil "ORIG_HEAD")))))
- (insert ?\n))))
-
-(defun magit-sequence-insert-am-patch (type patch face)
- (magit-insert-section (file patch)
- (let ((title
- (with-temp-buffer
- (insert-file-contents patch nil nil 4096)
- (unless (re-search-forward "^Subject: " nil t)
- (goto-char (point-min)))
- (buffer-substring (point) (line-end-position)))))
- (insert (propertize type 'face face)
- ?\s (propertize (file-name-nondirectory patch) 'face 'magit-hash)
- ?\s title
- ?\n))))
-
-(defun magit-insert-rebase-sequence ()
- "Insert section for the on-going rebase sequence.
-If no such sequence is in progress, do nothing."
- (when (magit-rebase-in-progress-p)
- (let* ((interactive (file-directory-p (magit-git-dir "rebase-merge")))
- (dir (if interactive "rebase-merge/" "rebase-apply/"))
- (name (-> (concat dir "head-name") magit-git-dir magit-file-line))
- (onto (-> (concat dir "onto") magit-git-dir magit-file-line))
- (onto (or (magit-rev-name onto name)
- (magit-rev-name onto "refs/heads/*") onto))
- (name (or (magit-rev-name name "refs/heads/*") name)))
- (magit-insert-section (rebase-sequence)
- (magit-insert-heading (format "Rebasing %s onto %s" name onto))
- (if interactive
- (magit-rebase-insert-merge-sequence onto)
- (magit-rebase-insert-apply-sequence onto))
- (insert ?\n)))))
-
-(defun magit-rebase-insert-merge-sequence (onto)
- (let (exec)
- (dolist (line (nreverse
- (magit-file-lines
- (magit-git-dir "rebase-merge/git-rebase-todo"))))
- (cond ((string-prefix-p "exec" line)
- (setq exec (substring line 5)))
- ((string-match (format "^\\([^%c ]+\\) \\([^ ]+\\) .*$"
- (string-to-char
- (or (magit-get "core.commentChar") "#")))
- line)
- (magit-bind-match-strings (action hash) line
- (unless (equal action "exec")
- (magit-sequence-insert-commit
- action hash 'magit-sequence-pick exec)))
- (setq exec nil)))))
- (magit-sequence-insert-sequence
- (magit-file-line (magit-git-dir "rebase-merge/stopped-sha"))
- onto
- (--when-let (magit-file-lines (magit-git-dir "rebase-merge/done"))
- (cadr (split-string (car (last it)))))))
-
-(defun magit-rebase-insert-apply-sequence (onto)
- (let ((rewritten
- (--map (car (split-string it))
- (magit-file-lines (magit-git-dir "rebase-apply/rewritten"))))
- (stop (magit-file-line (magit-git-dir "rebase-apply/original-commit"))))
- (dolist (patch (nreverse (cdr (magit-rebase-patches))))
- (let ((hash (cadr (split-string (magit-file-line patch)))))
- (unless (or (member hash rewritten)
- (equal hash stop))
- (magit-sequence-insert-commit "pick" hash 'magit-sequence-pick)))))
- (magit-sequence-insert-sequence
- (magit-file-line (magit-git-dir "rebase-apply/original-commit"))
- onto))
-
-(defun magit-rebase-patches ()
- (directory-files (magit-git-dir "rebase-apply") t "^[0-9]\\{4\\}$"))
-
-(defun magit-sequence-insert-sequence (stop onto &optional orig)
- (let ((head (magit-rev-parse "HEAD")) done)
- (setq onto (if onto (magit-rev-parse onto) head))
- (setq done (magit-git-lines "log" "--format=%H" (concat onto "..HEAD")))
- (when (and stop (not (member stop done)))
- (let ((id (magit-patch-id stop)))
- (--if-let (--first (equal (magit-patch-id it) id) done)
- (setq stop it)
- (cond
- ((--first (magit-rev-equal it stop) done)
- ;; The commit's testament has been executed.
- (magit-sequence-insert-commit "void" stop 'magit-sequence-drop))
- ;; The faith of the commit is still undecided...
- ((magit-anything-unmerged-p)
- ;; ...and time travel isn't for the faint of heart.
- (magit-sequence-insert-commit "join" stop 'magit-sequence-part))
- ((magit-anything-modified-p t)
- ;; ...and the dust hasn't settled yet...
- (magit-sequence-insert-commit
- (let* ((magit--refresh-cache nil)
- (staged (magit-commit-tree "oO" nil "HEAD"))
- (unstaged (magit-commit-worktree "oO" "--reset")))
- (cond
- ;; ...but we could end up at the same tree just by committing.
- ((or (magit-rev-equal staged stop)
- (magit-rev-equal unstaged stop)) "goal")
- ;; ...but the changes are still there, untainted.
- ((or (equal (magit-patch-id staged) id)
- (equal (magit-patch-id unstaged) id)) "same")
- ;; ...and some changes are gone and/or others were added.
- (t "work")))
- stop 'magit-sequence-part))
- ;; The commit is definitely gone...
- ((--first (magit-rev-equal it stop) done)
- ;; ...but all of its changes are still in effect.
- (magit-sequence-insert-commit "poof" stop 'magit-sequence-drop))
- (t
- ;; ...and some changes are gone and/or other changes were added.
- (magit-sequence-insert-commit "gone" stop 'magit-sequence-drop)))
- (setq stop nil))))
- (dolist (rev done)
- (apply 'magit-sequence-insert-commit
- (cond ((equal rev stop)
- ;; ...but its reincarnation lives on.
- ;; Or it didn't die in the first place.
- (list (if (and (equal rev head)
- (equal (magit-patch-id rev)
- (magit-patch-id orig)))
- "stop" ; We haven't done anything yet.
- "like") ; There are new commits.
- rev (if (equal rev head)
- 'magit-sequence-head
- 'magit-sequence-stop)))
- ((equal rev head)
- (list "done" rev 'magit-sequence-head))
- (t
- (list "done" rev 'magit-sequence-done)))))
- (magit-sequence-insert-commit "onto" onto
- (if (equal onto head)
- 'magit-sequence-head
- 'magit-sequence-onto))))
-
-(defun magit-sequence-insert-commit (type hash face &optional exec)
- (magit-insert-section (commit hash)
- (magit-insert-heading
- (propertize type 'face face) "\s"
- (magit-format-rev-summary hash) "\n")
- (when exec
- (insert (propertize "exec" 'face 'magit-sequence-onto) "\s" exec "\n"))))
-
-;;; _
-(provide 'magit-sequence)
-;;; magit-sequence.el ends here
diff --git a/elpa/magit-20181116.1412/magit-sequence.elc b/elpa/magit-20181116.1412/magit-sequence.elc
deleted file mode 100644
index 9e5ee3f..0000000
--- a/elpa/magit-20181116.1412/magit-sequence.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-stash.el b/elpa/magit-20181116.1412/magit-stash.el
deleted file mode 100644
index 9012c9a..0000000
--- a/elpa/magit-20181116.1412/magit-stash.el
+++ /dev/null
@@ -1,496 +0,0 @@
-;;; magit-stash.el --- stash support for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Support for Git stashes.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-(defvar bookmark-make-record-function)
-
-;;; Options
-
-(defgroup magit-stash nil
- "List stashes and show stash diffs."
- :group 'magit-modes)
-
-;;;; Diff options
-
-(defcustom magit-stash-sections-hook
- '(magit-insert-stash-notes
- magit-insert-stash-worktree
- magit-insert-stash-index
- magit-insert-stash-untracked)
- "Hook run to insert sections into stash diff buffers."
- :package-version '(magit . "2.1.0")
- :group 'magit-stash
- :type 'hook)
-
-;;;; Log options
-
-(defcustom magit-stashes-margin
- (list (nth 0 magit-log-margin)
- (nth 1 magit-log-margin)
- 'magit-log-margin-width nil
- (nth 4 magit-log-margin))
- "Format of the margin in `magit-stashes-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the committer date. It can be one
- of `age' (to show the age of the commit), `age-abbreviated' (to
- abbreviate the time unit to a character), or a string (suitable
- for `format-time-string') to show the actual date.
-WIDTH controls the width of the margin. This exists for forward
- compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
- default.
-AUTHOR-WIDTH has to be an integer. When the name of the author
- is shown, then this specifies how much space is used to do so."
- :package-version '(magit . "2.9.0")
- :group 'magit-stash
- :group 'magit-margin
- :type magit-log-margin--custom-type
- :initialize 'magit-custom-initialize-reset
- :set-after '(magit-log-margin)
- :set (apply-partially #'magit-margin-set-variable 'magit-stashes-mode))
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-stash-popup "magit-stash" nil t)
-(magit-define-popup magit-stash-popup
- "Popup console for stash commands."
- :man-page "git-stash"
- :switches '((?u "Also save untracked files" "--include-untracked")
- (?a "Also save untracked and ignored files" "--all"))
- :actions '((?z "Save" magit-stash-both)
- (?Z "Snapshot" magit-snapshot-both)
- (?p "Pop" magit-stash-pop)
- (?i "Save index" magit-stash-index)
- (?I "Snapshot index" magit-snapshot-index)
- (?a "Apply" magit-stash-apply)
- (?w "Save worktree" magit-stash-worktree)
- (?W "Snapshot worktree" magit-snapshot-worktree)
- (?l "List" magit-stash-list)
- (?x "Save keeping index" magit-stash-keep-index)
- (?r "Snapshot to wipref" magit-wip-commit)
- (?v "Show" magit-stash-show)
- (?b "Branch" magit-stash-branch)
- (?k "Drop" magit-stash-drop) nil
- (?B "Branch here" magit-stash-branch-here) nil nil
- (?f "Format patch" magit-stash-format-patch))
- :default-action 'magit-stash
- :max-action-columns 3)
-
-;;;###autoload
-(defun magit-stash-both (message &optional include-untracked)
- "Create a stash of the index and working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'."
- (interactive (magit-stash-read-args))
- (magit-stash-save message t t include-untracked t))
-
-;;;###autoload
-(defun magit-stash-index (message)
- "Create a stash of the index only.
-Unstaged and untracked changes are not stashed. The stashed
-changes are applied in reverse to both the index and the
-worktree. This command can fail when the worktree is not clean.
-Applying the resulting stash has the inverse effect."
- (interactive (list (magit-stash-read-message)))
- (magit-stash-save message t nil nil t 'worktree))
-
-;;;###autoload
-(defun magit-stash-worktree (message &optional include-untracked)
- "Create a stash of unstaged changes in the working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'."
- (interactive (magit-stash-read-args))
- (magit-stash-save message nil t include-untracked t 'index))
-
-;;;###autoload
-(defun magit-stash-keep-index (message &optional include-untracked)
- "Create a stash of the index and working tree, keeping index intact.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'."
- (interactive (magit-stash-read-args))
- (magit-stash-save message t t include-untracked t 'index))
-
-(defun magit-stash-read-args ()
- (list (magit-stash-read-message)
- (magit-stash-read-untracked)))
-
-(defun magit-stash-read-untracked ()
- (let ((prefix (prefix-numeric-value current-prefix-arg))
- (args (magit-stash-arguments)))
- (cond ((or (= prefix 16) (member "--all" args)) 'all)
- ((or (= prefix 4) (member "--include-untracked" args)) t))))
-
-(defun magit-stash-read-message ()
- (let* ((default (format "On %s: "
- (or (magit-get-current-branch) "(no branch)")))
- (input (magit-read-string "Stash message" default)))
- (if (equal input default)
- (concat default (magit-rev-format "%h %s"))
- input)))
-
-;;;###autoload
-(defun magit-snapshot-both (&optional include-untracked)
- "Create a snapshot of the index and working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'."
- (interactive (magit-snapshot-read-args))
- (magit-snapshot-save t t include-untracked t))
-
-;;;###autoload
-(defun magit-snapshot-index ()
- "Create a snapshot of the index only.
-Unstaged and untracked changes are not stashed."
- (interactive)
- (magit-snapshot-save t nil nil t))
-
-;;;###autoload
-(defun magit-snapshot-worktree (&optional include-untracked)
- "Create a snapshot of unstaged changes in the working tree.
-Untracked files are included according to popup arguments.
-One prefix argument is equivalent to `--include-untracked'
-while two prefix arguments are equivalent to `--all'."
- (interactive (magit-snapshot-read-args))
- (magit-snapshot-save nil t include-untracked t))
-
-(defun magit-snapshot-read-args ()
- (list (magit-stash-read-untracked)))
-
-(defun magit-snapshot-save (index worktree untracked &optional refresh)
- (magit-stash-save (concat "WIP on " (magit-stash-summary))
- index worktree untracked refresh t))
-
-;;;###autoload
-(defun magit-stash-apply (stash)
- "Apply a stash to the working tree.
-Try to preserve the stash index. If that fails because there
-are staged changes, apply without preserving the stash index."
- (interactive (list (magit-read-stash "Apply stash")))
- (if (= (magit-call-git "stash" "apply" "--index" stash) 0)
- (magit-refresh)
- (magit-run-git "stash" "apply" stash)))
-
-(defun magit-stash-pop (stash)
- "Apply a stash to the working tree and remove it from stash list.
-Try to preserve the stash index. If that fails because there
-are staged changes, apply without preserving the stash index
-and forgo removing the stash."
- (interactive (list (magit-read-stash "Pop stash")))
- (if (= (magit-call-git "stash" "apply" "--index" stash) 0)
- (magit-stash-drop stash)
- (magit-run-git "stash" "apply" stash)))
-
-;;;###autoload
-(defun magit-stash-drop (stash)
- "Remove a stash from the stash list.
-When the region is active offer to drop all contained stashes."
- (interactive (list (--if-let (magit-region-values 'stash)
- (magit-confirm t nil "Drop %i stashes" nil it)
- (magit-read-stash "Drop stash"))))
- (dolist (stash (if (listp stash)
- (nreverse (prog1 stash (setq stash (car stash))))
- (list stash)))
- (message "Deleted refs/%s (was %s)" stash
- (magit-rev-parse "--short" stash))
- (magit-call-git "rev-parse" stash)
- (magit-call-git "reflog" "delete" "--updateref" "--rewrite" stash))
- (when-let ((ref (and (string-match "\\(.+\\)@{[0-9]+}$" stash)
- (match-string 1 stash))))
- (unless (string-match "^refs/" ref)
- (setq ref (concat "refs/" ref)))
- (unless (magit-rev-verify (concat ref "@{0}"))
- (magit-run-git "update-ref" "-d" ref)))
- (magit-refresh))
-
-;;;###autoload
-(defun magit-stash-clear (ref)
- "Remove all stashes saved in REF's reflog by deleting REF."
- (interactive (let ((ref (or (magit-section-value-if 'stashes) "refs/stash")))
- (magit-confirm t (format "Drop all stashes in %s" ref))
- (list ref)))
- (magit-run-git "update-ref" "-d" ref))
-
-;;;###autoload
-(defun magit-stash-branch (stash branch)
- "Create and checkout a new BRANCH from STASH."
- (interactive (list (magit-read-stash "Branch stash")
- (magit-read-string-ns "Branch name")))
- (magit-run-git "stash" "branch" branch stash))
-
-;;;###autoload
-(defun magit-stash-branch-here (stash branch)
- "Create and checkout a new BRANCH and apply STASH.
-The branch is created using `magit-branch', using the current
-branch or `HEAD' as the string-point."
- (interactive (list (magit-read-stash "Branch stash")
- (magit-read-string-ns "Branch name")))
- (let ((inhibit-magit-refresh t))
- (magit-branch-create branch (or (magit-get-current-branch) "HEAD")))
- (magit-stash-apply stash))
-
-;;;###autoload
-(defun magit-stash-format-patch (stash)
- "Create a patch from STASH"
- (interactive (list (magit-read-stash "Create patch from stash")))
- (with-temp-file (magit-rev-format "0001-%f.patch" stash)
- (magit-git-insert "stash" "show" "-p" stash))
- (magit-refresh))
-
-;;; Plumbing
-
-(defun magit-stash-save (message index worktree untracked
- &optional refresh keep noerror ref)
- (if (or (and index (magit-staged-files t))
- (and worktree (magit-unstaged-files t))
- (and untracked (magit-untracked-files (eq untracked 'all))))
- (magit-with-toplevel
- (magit-stash-store message (or ref "refs/stash")
- (magit-stash-create message index worktree untracked))
- (if (eq keep 'worktree)
- (with-temp-buffer
- (magit-git-insert "diff" "--cached")
- (magit-run-git-with-input
- "apply" "--reverse" "--cached" "--ignore-space-change" "-")
- (magit-run-git-with-input
- "apply" "--reverse" "--ignore-space-change" "-"))
- (unless (eq keep t)
- (if (eq keep 'index)
- (magit-call-git "checkout" "--" ".")
- (magit-call-git "reset" "--hard" "HEAD"))
- (when untracked
- (magit-call-git "clean" "--force" "-d"
- (and (eq untracked 'all) "-x")))))
- (when refresh
- (magit-refresh)))
- (unless noerror
- (user-error "No %s changes to save" (cond ((not index) "unstaged")
- ((not worktree) "staged")
- (t "local"))))))
-
-(defun magit-stash-store (message ref commit)
- (magit-update-ref ref message commit t))
-
-(defun magit-stash-create (message index worktree untracked)
- (unless (magit-rev-parse "--verify" "HEAD")
- (error "You do not have the initial commit yet"))
- (let ((magit-git-global-arguments (nconc (list "-c" "commit.gpgsign=false")
- magit-git-global-arguments))
- (default-directory (magit-toplevel))
- (summary (magit-stash-summary))
- (head "HEAD"))
- (when (and worktree (not index))
- (setq head (or (magit-commit-tree "pre-stash index" nil "HEAD")
- (error "Cannot save the current index state"))))
- (or (setq index (magit-commit-tree (concat "index on " summary) nil head))
- (error "Cannot save the current index state"))
- (and untracked
- (setq untracked (magit-untracked-files (eq untracked 'all)))
- (setq untracked (magit-with-temp-index nil nil
- (or (and (magit-update-files untracked)
- (magit-commit-tree
- (concat "untracked files on " summary)))
- (error "Cannot save the untracked files")))))
- (magit-with-temp-index index "-m"
- (when worktree
- (or (magit-update-files (magit-git-items "diff" "-z" "--name-only" head))
- (error "Cannot save the current worktree state")))
- (or (magit-commit-tree message nil head index untracked)
- (error "Cannot save the current worktree state")))))
-
-(defun magit-stash-summary ()
- (concat (or (magit-get-current-branch) "(no branch)")
- ": " (magit-rev-format "%h %s")))
-
-;;; Sections
-
-(defvar magit-stashes-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-delete-thing] 'magit-stash-clear)
- map)
- "Keymap for `stashes' section.")
-
-(defvar magit-stash-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-stash-show)
- (define-key map [remap magit-delete-thing] 'magit-stash-drop)
- (define-key map "a" 'magit-stash-apply)
- (define-key map "A" 'magit-stash-pop)
- map)
- "Keymap for `stash' sections.")
-
-(magit-define-section-jumper magit-jump-to-stashes
- "Stashes" stashes "refs/stash")
-
-(cl-defun magit-insert-stashes (&optional (ref "refs/stash")
- (heading "Stashes:"))
- "Insert `stashes' section showing reflog for \"refs/stash\".
-If optional REF is non-nil, show reflog for that instead.
-If optional HEADING is non-nil, use that as section heading
-instead of \"Stashes:\"."
- (let ((verified (magit-rev-verify ref))
- (autostash
- (and (magit-rebase-in-progress-p)
- (magit-file-line
- (magit-git-dir
- (-> (if (file-directory-p (magit-git-dir "rebase-merge"))
- "rebase-merge/autostash"
- "rebase-apply/autostash")))))))
- (when (or autostash verified)
- (magit-insert-section (stashes ref)
- (magit-insert-heading heading)
- (when autostash
- (pcase-let ((`(,author ,date ,msg)
- (split-string
- (car (magit-git-lines
- "show" "-q" "--format=%aN%x00%at%x00%s"
- autostash))
- "\0")))
- (magit-insert-section (stash autostash)
- (insert (propertize "AUTOSTASH" 'face 'magit-hash))
- (insert " " msg "\n")
- (save-excursion
- (backward-char)
- (magit-log-format-margin autostash author date)))))
- (if verified
- (magit-git-wash (apply-partially 'magit-log-wash-log 'stash)
- "reflog" "--format=%gd%x00%aN%x00%at%x00%gs" ref)
- (insert ?\n)
- (save-excursion
- (backward-char)
- (magit-make-margin-overlay)))))))
-
-;;; List Stashes
-
-;;;###autoload
-(defun magit-stash-list ()
- "List all stashes in a buffer."
- (interactive)
- (magit-mode-setup #'magit-stashes-mode "refs/stash"))
-
-(define-derived-mode magit-stashes-mode magit-reflog-mode "Magit Stashes"
- "Mode for looking at lists of stashes."
- :group 'magit-log
- (hack-dir-local-variables-non-file-buffer)
- (setq-local bookmark-make-record-function
- #'magit-bookmark--stashes-make-record))
-
-(cl-defun magit-stashes-refresh-buffer (ref)
- (magit-insert-section (stashesbuf)
- (magit-insert-heading (if (equal ref "refs/stash")
- "Stashes:"
- (format "Stashes [%s]:" ref)))
- (magit-git-wash (apply-partially 'magit-log-wash-log 'stash)
- "reflog" "--format=%gd%x00%aN%x00%at%x00%gs" ref)))
-
-;;; Show Stash
-
-;;;###autoload
-(defun magit-stash-show (stash &optional args files)
- "Show all diffs of a stash in a buffer."
- (interactive (cons (or (and (not current-prefix-arg)
- (magit-stash-at-point))
- (magit-read-stash "Show stash"))
- (pcase-let ((`(,args ,files) (magit-diff-arguments)))
- (list (delete "--stat" args) files))))
- (magit-mode-setup #'magit-stash-mode stash nil args files))
-
-(define-derived-mode magit-stash-mode magit-diff-mode "Magit Stash"
- "Mode for looking at individual stashes."
- :group 'magit-diff
- (hack-dir-local-variables-non-file-buffer)
- (setq-local bookmark-make-record-function
- #'magit-bookmark--stash-make-record))
-
-(defun magit-stash-refresh-buffer (stash _const _args _files)
- (magit-set-header-line-format
- (concat (propertize (capitalize stash) 'face 'magit-section-heading)
- " "
- (magit-rev-format "%s" stash)))
- (setq magit-buffer-revision-hash (magit-rev-parse stash))
- (magit-insert-section (stash)
- (magit-run-section-hook 'magit-stash-sections-hook)))
-
-(defun magit-stash-insert-section (commit range message &optional files)
- (magit-insert-section (commit commit)
- (magit-insert-heading message)
- (magit-git-wash #'magit-diff-wash-diffs
- "diff" range "-p" "--no-prefix"
- (nth 2 magit-refresh-args)
- "--" (or files (nth 3 magit-refresh-args)))))
-
-(defun magit-insert-stash-notes ()
- "Insert section showing notes for a stash.
-This shows the notes for stash@{N} but not for the other commits
-that make up the stash."
- (magit-insert-section section (note)
- (magit-insert-heading "Notes")
- (magit-git-insert "notes" "show" (car magit-refresh-args))
- (if (= (point)
- (oref section content))
- (magit-cancel-section)
- (insert "\n"))))
-
-(defun magit-insert-stash-index ()
- "Insert section showing staged changes of the stash."
- (let ((stash (car magit-refresh-args)))
- (magit-stash-insert-section (format "%s^2" stash)
- (format "%s^..%s^2" stash stash)
- "Staged")))
-
-(defun magit-insert-stash-worktree ()
- "Insert section showing unstaged changes of the stash."
- (let ((stash (car magit-refresh-args)))
- (magit-stash-insert-section stash
- (format "%s^2..%s" stash stash)
- "Unstaged")))
-
-(defun magit-insert-stash-untracked ()
- "Insert section showing the untracked files commit of the stash."
- (let ((stash (car magit-refresh-args))
- (rev (concat (car magit-refresh-args) "^3")))
- (when (magit-rev-verify rev)
- (magit-stash-insert-section (format "%s^3" stash)
- (format "%s^..%s^3" stash stash)
- "Untracked files"
- (magit-git-items "ls-tree" "-z" "--name-only"
- "-r" "--full-tree" rev)))))
-
-;;; _
-(provide 'magit-stash)
-;;; magit-stash.el ends here
diff --git a/elpa/magit-20181116.1412/magit-stash.elc b/elpa/magit-20181116.1412/magit-stash.elc
deleted file mode 100644
index e2714b7..0000000
--- a/elpa/magit-20181116.1412/magit-stash.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-status.el b/elpa/magit-20181116.1412/magit-status.el
deleted file mode 100644
index 73a3167..0000000
--- a/elpa/magit-20181116.1412/magit-status.el
+++ /dev/null
@@ -1,634 +0,0 @@
-;;; magit-status.el --- the grand overview -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements the status buffer.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-(defvar bookmark-make-record-function)
-
-;;; Options
-
-(defgroup magit-status nil
- "Inspect and manipulate Git repositories."
- :link '(info-link "(magit)Status Buffer")
- :group 'magit-modes)
-
-(defcustom magit-status-mode-hook nil
- "Hook run after entering Magit-Status mode."
- :group 'magit-status
- :type 'hook)
-
-(defcustom magit-status-headers-hook
- '(magit-insert-error-header
- magit-insert-diff-filter-header
- magit-insert-head-branch-header
- magit-insert-upstream-branch-header
- magit-insert-push-branch-header
- magit-insert-tags-header)
- "Hook run to insert headers into the status buffer.
-
-This hook is run by `magit-insert-status-headers', which in turn
-has to be a member of `magit-status-sections-hook' to be used at
-all."
- :package-version '(magit . "2.1.0")
- :group 'magit-status
- :type 'hook
- :options '(magit-insert-error-header
- magit-insert-diff-filter-header
- magit-insert-repo-header
- magit-insert-remote-header
- magit-insert-head-branch-header
- magit-insert-upstream-branch-header
- magit-insert-push-branch-header
- magit-insert-tags-header))
-
-(defcustom magit-status-sections-hook
- '(magit-insert-status-headers
- magit-insert-merge-log
- magit-insert-rebase-sequence
- magit-insert-am-sequence
- magit-insert-sequencer-sequence
- magit-insert-bisect-output
- magit-insert-bisect-rest
- magit-insert-bisect-log
- magit-insert-untracked-files
- magit-insert-unstaged-changes
- magit-insert-staged-changes
- magit-insert-stashes
- magit-insert-unpushed-to-pushremote
- magit-insert-unpushed-to-upstream-or-recent
- magit-insert-unpulled-from-pushremote
- magit-insert-unpulled-from-upstream)
- "Hook run to insert sections into a status buffer."
- :package-version '(magit . "2.12.0")
- :group 'magit-status
- :type 'hook)
-
-(defcustom magit-status-initial-section '(1)
- "The section point is placed on when a status buffer is created.
-
-When such a buffer is merely being refreshed or being shown again
-after it was merely burried, then this option has no effect.
-
-If this is nil, then point remains on the very first section as
-usual. Otherwise it has to be a list of integers and section
-identity lists. The members of that list are tried in order
-until a matching section is found.
-
-An integer means to jump to the nth section, 1 for example
-jumps over the headings. To get a section's \"identity list\"
-use \\[universal-argument] \\[magit-describe-section-briefly].
-
-If, for example, you want to jump to the commits that haven't
-been pulled from the upstream, or else the second section, then
-use: (((unpulled . \"..@{upstream}\") (status)) 1).
-
-See option `magit-section-initial-visibility-alist' for how to
-control the initial visibility of the jumped to section."
- :package-version '(magit . "2.90.0")
- :group 'magit-status
- :type '(choice (const :tag "as usual" nil)
- (repeat (choice (number :tag "nth top-level section")
- (sexp :tag "section identity")))))
-
-(defcustom magit-status-show-hashes-in-headers nil
- "Whether headers in the status buffer show hashes.
-The functions which respect this option are
-`magit-insert-head-branch-header',
-`magit-insert-upstream-branch-header', and
-`magit-insert-push-branch-header'."
- :package-version '(magit . "2.4.0")
- :group 'magit-status
- :type 'boolean)
-
-(defcustom magit-status-margin
- (list nil
- (nth 1 magit-log-margin)
- 'magit-log-margin-width nil
- (nth 4 magit-log-margin))
- "Format of the margin in `magit-status-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the committer date. It can be one
- of `age' (to show the age of the commit), `age-abbreviated' (to
- abbreviate the time unit to a character), or a string (suitable
- for `format-time-string') to show the actual date.
-WIDTH controls the width of the margin. This exists for forward
- compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
- default.
-AUTHOR-WIDTH has to be an integer. When the name of the author
- is shown, then this specifies how much space is used to do so."
- :package-version '(magit . "2.9.0")
- :group 'magit-status
- :group 'magit-margin
- :type magit-log-margin--custom-type
- :initialize 'magit-custom-initialize-reset
- :set-after '(magit-log-margin)
- :set (apply-partially #'magit-margin-set-variable 'magit-status-mode))
-
-;;; Commands
-
-;;;###autoload
-(defun magit-init (directory)
- "Initialize a Git repository, then show its status.
-
-If the directory is below an existing repository, then the user
-has to confirm that a new one should be created inside. If the
-directory is the root of the existing repository, then the user
-has to confirm that it should be reinitialized.
-
-Non-interactively DIRECTORY is (re-)initialized unconditionally."
- (interactive
- (let ((directory (file-name-as-directory
- (expand-file-name
- (read-directory-name "Create repository in: ")))))
- (when-let ((toplevel (magit-toplevel directory)))
- (setq toplevel (expand-file-name toplevel))
- (unless (y-or-n-p (if (file-equal-p toplevel directory)
- (format "Reinitialize existing repository %s? "
- directory)
- (format "%s is a repository. Create another in %s? "
- toplevel directory)))
- (user-error "Abort")))
- (list directory)))
- ;; `git init' does not understand the meaning of "~"!
- (magit-call-git "init" (magit-convert-filename-for-git
- (expand-file-name directory)))
- (magit-status-internal directory))
-
-;;;###autoload
-(defun magit-status (&optional directory cache)
- "Show the status of the current Git repository in a buffer.
-With a prefix argument prompt for a repository to be shown.
-With two prefix arguments prompt for an arbitrary directory.
-If that directory isn't the root of an existing repository,
-then offer to initialize it as a new repository."
- (interactive
- (let ((magit--refresh-cache (list (cons 0 0))))
- (list (and (or current-prefix-arg (not (magit-toplevel)))
- (magit-read-repository
- (>= (prefix-numeric-value current-prefix-arg) 16)))
- magit--refresh-cache)))
- (let ((magit--refresh-cache (or cache (list (cons 0 0)))))
- (if directory
- (let ((toplevel (magit-toplevel directory)))
- (setq directory (file-name-as-directory
- (expand-file-name directory)))
- (if (and toplevel (file-equal-p directory toplevel))
- (magit-status-internal directory)
- (when (y-or-n-p
- (if toplevel
- (format "%s is a repository. Create another in %s? "
- toplevel directory)
- (format "Create repository in %s? " directory)))
- ;; Creating a new repository will invalidate cached
- ;; values.
- (setq magit--refresh-cache nil)
- (magit-init directory))))
- (magit-status-internal default-directory))))
-
-(put 'magit-status 'interactive-only 'magit-status-internal)
-
-(defalias 'magit 'magit-status
- "An alias for `magit-status' for better discoverability.
-
-Instead of invoking this alias for `magit-status' using
-\"M-x magit RET\", you should bind a key to `magit-status'
-and read the info node `(magit)Getting Started', which
-also contains other useful hints.")
-
-;;;###autoload
-(defun magit-status-internal (directory)
- (magit--tramp-asserts directory)
- (let ((default-directory directory))
- (magit-mode-setup #'magit-status-mode)))
-
-(defvar magit--remotes-using-recent-git nil)
-
-(defun magit--tramp-asserts (directory)
- (when-let ((remote (file-remote-p directory)))
- (unless (member remote magit--remotes-using-recent-git)
- (if-let ((version (let ((default-directory directory))
- (magit-git-version))))
- (if (version<= magit--minimal-git version)
- (push version magit--remotes-using-recent-git)
- (display-warning 'magit (format "\
-Magit requires Git >= %s, but on %s the version is %s.
-
-If multiple Git versions are installed on the host, then the
-problem might be that TRAMP uses the wrong executable.
-
-First check the value of `magit-git-executable'. Its value is
-used when running git locally as well as when running it on a
-remote host. The default value is \"git\", except on Windows
-where an absolute path is used for performance reasons.
-
-If the value already is just \"git\" but TRAMP never-the-less
-doesn't use the correct executable, then consult the info node
-`(tramp)Remote programs'.\n" magit--minimal-git remote version) :error))
- (display-warning 'magit (format "\
-Magit cannot find Git on %s.
-
-First check the value of `magit-git-executable'. Its value is
-used when running git locally as well as when running it on a
-remote host. The default value is \"git\", except on Windows
-where an absolute path is used for performance reasons.
-
-If the value already is just \"git\" but TRAMP never-the-less
-doesn't find the executable, then consult the info node
-`(tramp)Remote programs'.\n" remote) :error)))))
-
-;;; Mode
-
-(defvar magit-status-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-mode-map)
- (define-key map "jz" 'magit-jump-to-stashes)
- (define-key map "jt" 'magit-jump-to-tracked)
- (define-key map "jn" 'magit-jump-to-untracked)
- (define-key map "ju" 'magit-jump-to-unstaged)
- (define-key map "js" 'magit-jump-to-staged)
- (define-key map "jfu" 'magit-jump-to-unpulled-from-upstream)
- (define-key map "jfp" 'magit-jump-to-unpulled-from-pushremote)
- (define-key map "jpu" 'magit-jump-to-unpushed-to-upstream)
- (define-key map "jpp" 'magit-jump-to-unpushed-to-pushremote)
- (define-key map [remap dired-jump] 'magit-dired-jump)
- map)
- "Keymap for `magit-status-mode'.")
-
-(define-derived-mode magit-status-mode magit-mode "Magit"
- "Mode for looking at Git status.
-
-This mode is documented in info node `(magit)Status Buffer'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-section-toggle] to expand or hide the section at point.
-Type \\[magit-visit-thing] to visit the change or commit at point.
-
-Type \\[magit-dispatch-popup] to see available prefix popups.
-
-Staging and applying changes is documented in info node
-`(magit)Staging and Unstaging' and info node `(magit)Applying'.
-
-\\<magit-hunk-section-map>Type \
-\\[magit-apply] to apply the change at point, \
-\\[magit-stage] to stage,
-\\[magit-unstage] to unstage, \
-\\[magit-discard] to discard, or \
-\\[magit-reverse] to reverse it.
-
-\\<magit-status-mode-map>\
-Type \\[magit-commit-popup] to create a commit.
-
-\\{magit-status-mode-map}"
- :group 'magit-status
- (hack-dir-local-variables-non-file-buffer)
- (setq imenu-create-index-function
- 'magit-imenu--status-create-index-function)
- (setq-local bookmark-make-record-function
- #'magit-bookmark--status-make-record))
-
-(defun magit-status-refresh-buffer ()
- (magit-git-exit-code "update-index" "--refresh")
- (magit-insert-section (status)
- (magit-run-section-hook 'magit-status-sections-hook)))
-
-(defun magit-status-goto-initial-section ()
- "In a `magit-status-mode' buffer, jump `magit-status-initial-section'.
-Actually doing so is deferred until `magit-refresh-buffer-hook'
-runs `magit-status-goto-initial-section-1'. That function then
-removes itself from the hook, so that this only happens when the
-status buffer is first created."
- (when (and magit-status-initial-section
- (derived-mode-p 'magit-status-mode))
- (add-hook 'magit-refresh-buffer-hook
- 'magit-status-goto-initial-section-1 nil t)))
-
-(defun magit-status-goto-initial-section-1 ()
- "In a `magit-status-mode' buffer, jump `magit-status-initial-section'.
-This function removes itself from `magit-refresh-buffer-hook'."
- (when-let ((section
- (--some (if (integerp it)
- (nth (1- it)
- (magit-section-siblings (magit-current-section)
- 'next))
- (magit-get-section it))
- magit-status-initial-section)))
- (goto-char (oref section start))
- (when-let ((vis (cdr (assq 'magit-status-initial-section
- magit-section-initial-visibility-alist))))
- (if (eq vis 'hide)
- (magit-section-hide section)
- (magit-section-show section))))
- (remove-hook 'magit-refresh-buffer-hook
- 'magit-status-goto-initial-section-1 t))
-
-(defun magit-status-maybe-update-revision-buffer (&optional _)
- "When moving in the status buffer, update the revision buffer.
-If there is no revision buffer in the same frame, then do nothing."
- (when (derived-mode-p 'magit-status-mode)
- (magit-log-maybe-update-revision-buffer-1)))
-
-(defun magit-status-maybe-update-blob-buffer (&optional _)
- "When moving in the status buffer, update the blob buffer.
-If there is no blob buffer in the same frame, then do nothing."
- (when (derived-mode-p 'magit-status-mode)
- (magit-log-maybe-update-blob-buffer-1)))
-
-;;; Sections
-;;;; Special Headers
-
-(defun magit-insert-status-headers ()
- "Insert header sections appropriate for `magit-status-mode' buffers.
-The sections are inserted by running the functions on the hook
-`magit-status-headers-hook'."
- (if (magit-rev-verify "HEAD")
- (magit-insert-headers 'magit-status-headers-hook)
- (insert "In the beginning there was darkness\n\n")))
-
-(defvar magit-error-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-process-buffer)
- map)
- "Keymap for `error' sections.")
-
-(defun magit-insert-error-header ()
- "Insert the message about the Git error that just occured.
-
-This function is only aware of the last error that occur when Git
-was run for side-effects. If, for example, an error occurs while
-generating a diff, then that error won't be inserted. Refreshing
-the status buffer causes this section to disappear again."
- (when magit-this-error
- (magit-insert-section (error 'git)
- (insert (propertize (format "%-10s" "GitError! ")
- 'face 'magit-section-heading))
- (insert (propertize magit-this-error 'face 'font-lock-warning-face))
- (when-let ((key (car (where-is-internal 'magit-process-buffer))))
- (insert (format " [Type `%s' for details]" (key-description key))))
- (insert ?\n))
- (setq magit-this-error nil)))
-
-(defun magit-insert-diff-filter-header ()
- "Insert a header line showing the effective diff filters."
- (let ((ignore-modules (magit-ignore-submodules-p)))
- (when (or ignore-modules
- magit-diff-section-file-args)
- (insert (propertize (format "%-10s" "Filter! ")
- 'face 'magit-section-heading))
- (when ignore-modules
- (insert ignore-modules)
- (when magit-diff-section-file-args
- (insert " -- ")))
- (when magit-diff-section-file-args
- (insert (mapconcat #'identity magit-diff-section-file-args " ")))
- (insert ?\n))))
-
-;;;; Reference Headers
-
-(cl-defun magit-insert-head-branch-header
- (&optional (branch (magit-get-current-branch)))
- "Insert a header line about BRANCH.
-When BRANCH is nil, use the current branch or, if none, the
-detached `HEAD'."
- (let ((output (magit-rev-format "%h %s" (or branch "HEAD"))))
- (string-match "^\\([^ ]+\\) \\(.*\\)" output)
- (magit-bind-match-strings (commit summary) output
- (if branch
- (magit-insert-section (branch branch)
- (insert (format "%-10s" "Head: "))
- (when magit-status-show-hashes-in-headers
- (insert (propertize commit 'face 'magit-hash) ?\s))
- (insert (propertize branch 'face 'magit-branch-local))
- (insert ?\s)
- (insert (funcall magit-log-format-message-function branch summary))
- (insert ?\n))
- (magit-insert-section (commit commit)
- (insert (format "%-10s" "Head: "))
- (insert (propertize commit 'face 'magit-hash))
- (insert ?\s summary ?\n))))))
-
-(cl-defun magit-insert-upstream-branch-header
- (&optional (branch (magit-get-current-branch))
- (pull (magit-get-upstream-branch branch))
- keyword)
- "Insert a header line about branch usually pulled into current branch."
- (when pull
- (magit-insert-section (branch pull)
- (let ((rebase (magit-get "branch" branch "rebase")))
- (pcase rebase
- ("true")
- ("false" (setq rebase nil))
- (_ (setq rebase (magit-get-boolean "pull.rebase"))))
- (insert (format "%-10s" (or keyword (if rebase "Rebase: " "Merge: ")))))
- (--when-let (and magit-status-show-hashes-in-headers
- (not (string-match-p " " pull))
- (magit-rev-format "%h" pull))
- (insert (propertize it 'face 'magit-hash) " "))
- (if (string-match-p " " pull)
- (pcase-let ((`(,url ,branch) (split-string pull " ")))
- (insert branch " from " url " "))
- (insert pull " ")
- (--if-let (and (magit-rev-verify pull)
- (magit-rev-format "%s" pull))
- (insert (funcall magit-log-format-message-function pull it))
- (insert (propertize "is missing" 'face 'font-lock-warning-face))))
- (insert ?\n))))
-
-(cl-defun magit-insert-push-branch-header
- (&optional (branch (magit-get-current-branch))
- (push (magit-get-push-branch branch)))
- "Insert a header line about the branch the current branch is pushed to."
- (when push
- (magit-insert-section (branch push)
- (insert (format "%-10s" "Push: "))
- (--when-let (and magit-status-show-hashes-in-headers
- (magit-rev-format "%h" push))
- (insert (propertize it 'face 'magit-hash) ?\s))
- (insert (propertize push 'face 'magit-branch-remote) ?\s)
- (--if-let (and (magit-rev-verify push)
- (magit-rev-format "%s" push))
- (insert (funcall magit-log-format-message-function push it))
- (insert (propertize "is missing" 'face 'font-lock-warning-face)))
- (insert ?\n))))
-
-(defun magit-insert-tags-header ()
- "Insert a header line about the current and/or next tag."
- (let* ((this-tag (magit-get-current-tag nil t))
- (next-tag (magit-get-next-tag nil t))
- (this-cnt (cadr this-tag))
- (next-cnt (cadr next-tag))
- (this-tag (car this-tag))
- (next-tag (car next-tag))
- (both-tags (and this-tag next-tag t)))
- (when (or this-tag next-tag)
- (magit-insert-section (tag (or this-tag next-tag))
- (insert (format "%-10s" (if both-tags "Tags: " "Tag: ")))
- (cl-flet ((insert-count
- (tag count face)
- (insert (concat (propertize tag 'face 'magit-tag)
- (and (> count 0)
- (format " (%s)"
- (propertize (format "%s" count)
- 'face face)))))))
- (when this-tag (insert-count this-tag this-cnt 'magit-branch-local))
- (when both-tags (insert ", "))
- (when next-tag (insert-count next-tag next-cnt 'magit-tag)))
- (insert ?\n)))))
-
-;;;; Auxiliary Headers
-
-(defun magit-insert-user-header ()
- "Insert a header line about the current user."
- (let ((name (magit-get "user.name"))
- (email (magit-get "user.email")))
- (when (and name email)
- (magit-insert-section (user name)
- (insert (format "%-10s" "User: "))
- (insert (propertize name 'face 'magit-log-author))
- (insert " <" email ">\n")))))
-
-(defun magit-insert-repo-header ()
- "Insert a header line showing the path to the repository top-level."
- (let ((topdir (magit-toplevel)))
- (magit-insert-section (repo topdir)
- (insert (format "%-10s%s\n" "Repo: " (abbreviate-file-name topdir))))))
-
-(defun magit-insert-remote-header ()
- "Insert a header line about the remote of the current branch.
-
-If no remote is configured for the current branch, then fall back
-showing the \"origin\" remote, or if that does not exist the first
-remote in alphabetic order."
- (when-let ((name (magit-get-some-remote))
- ;; Under certain configurations it's possible for url
- ;; to be nil, when name is not, see #2858.
- (url (magit-get "remote" name "url")))
- (magit-insert-section (remote name)
- (insert (format "%-10s" "Remote: "))
- (insert (propertize name 'face 'magit-branch-remote) ?\s)
- (insert url ?\n))))
-
-;;;; File Sections
-
-(defvar magit-untracked-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-delete-thing] 'magit-discard)
- (define-key map "s" 'magit-stage)
- map)
- "Keymap for the `untracked' section.")
-
-(magit-define-section-jumper magit-jump-to-untracked "Untracked files" untracked)
-
-(defun magit-insert-untracked-files ()
- "Maybe insert a list or tree of untracked files.
-
-Do so depending on the value of `status.showUntrackedFiles'.
-Note that even if the value is `all', Magit still initially
-only shows directories. But the directory sections can then
-be expanded using \"TAB\".
-
-If the first element of `magit-diff-section-arguments' is a
-directory, then limit the list to files below that. The value
-value of that variable can be set using \"D = f DIRECTORY RET g\"."
- (let* ((show (or (magit-get "status.showUntrackedFiles") "normal"))
- (base (car magit-diff-section-file-args))
- (base (and base (file-directory-p base) base)))
- (unless (equal show "no")
- (if (equal show "all")
- (when-let ((files (magit-untracked-files nil base)))
- (magit-insert-section (untracked)
- (magit-insert-heading "Untracked files:")
- (magit-insert-files files base)
- (insert ?\n)))
- (when-let ((files
- (--mapcat (and (eq (aref it 0) ??)
- (list (substring it 3)))
- (magit-git-items "status" "-z" "--porcelain"
- (magit-ignore-submodules-p)
- "--" base))))
- (magit-insert-section (untracked)
- (magit-insert-heading "Untracked files:")
- (dolist (file files)
- (magit-insert-section (file file)
- (insert (propertize file 'face 'magit-filename) ?\n)))
- (insert ?\n)))))))
-
-(magit-define-section-jumper magit-jump-to-tracked "Tracked files" tracked)
-
-(defun magit-insert-tracked-files ()
- "Insert a tree of tracked files.
-
-If the first element of `magit-diff-section-arguments' is a
-directory, then limit the list to files below that. The value
-value of that variable can be set using \"D = f DIRECTORY RET g\"."
- (when-let ((files (magit-list-files)))
- (let* ((base (car magit-diff-section-file-args))
- (base (and base (file-directory-p base) base)))
- (magit-insert-section (tracked nil t)
- (magit-insert-heading "Tracked files:")
- (magit-insert-files files base)
- (insert ?\n)))))
-
-(defun magit-insert-ignored-files ()
- "Insert a tree of ignored files.
-
-If the first element of `magit-diff-section-arguments' is a
-directory, then limit the list to files below that. The value
-of that variable can be set using \"D = f DIRECTORY RET g\"."
- (when-let ((files (magit-ignored-files)))
- (let* ((base (car magit-diff-section-file-args))
- (base (and base (file-directory-p base) base)))
- (magit-insert-section (tracked nil t)
- (magit-insert-heading "Ignored files:")
- (magit-insert-files files base)
- (insert ?\n)))))
-
-(defun magit-insert-files (files directory)
- (while (and files (string-prefix-p (or directory "") (car files)))
- (let ((dir (file-name-directory (car files))))
- (if (equal dir directory)
- (let ((file (pop files)))
- (magit-insert-section (file file)
- (insert (propertize file 'face 'magit-filename) ?\n)))
- (magit-insert-section (file dir t)
- (insert (propertize dir 'file 'magit-filename) ?\n)
- (magit-insert-heading)
- (setq files (magit-insert-files files dir))))))
- files)
-
-;;; _
-(provide 'magit-status)
-;;; magit-status.el ends here
diff --git a/elpa/magit-20181116.1412/magit-status.elc b/elpa/magit-20181116.1412/magit-status.elc
deleted file mode 100644
index 729f6f0..0000000
--- a/elpa/magit-20181116.1412/magit-status.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-submodule.el b/elpa/magit-20181116.1412/magit-submodule.el
deleted file mode 100644
index d05b7e8..0000000
--- a/elpa/magit-20181116.1412/magit-submodule.el
+++ /dev/null
@@ -1,636 +0,0 @@
-;;; magit-submodule.el --- submodule support for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2011-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit)
-
-(defvar x-stretch-cursor)
-(defvar bookmark-make-record-function)
-
-;;; Options
-
-(defcustom magit-module-sections-hook
- '(magit-insert-modules-overview
- magit-insert-modules-unpulled-from-upstream
- magit-insert-modules-unpulled-from-pushremote
- magit-insert-modules-unpushed-to-upstream
- magit-insert-modules-unpushed-to-pushremote)
- "Hook run by `magit-insert-modules'.
-
-That function isn't part of `magit-status-sections-hook's default
-value, so you have to add it yourself for this hook to have any
-effect."
- :package-version '(magit . "2.11.0")
- :group 'magit-status
- :type 'hook)
-
-(defcustom magit-module-sections-nested t
- "Whether `magit-insert-modules' wraps inserted sections.
-
-If this is non-nil, then only a single top-level section
-is inserted. If it is nil, then all sections listed in
-`magit-module-sections-hook' become top-level sections."
- :package-version '(magit . "2.11.0")
- :group 'magit-status
- :type 'boolean)
-
-(defcustom magit-submodule-list-mode-hook '(hl-line-mode)
- "Hook run after entering Magit-Submodule-List mode."
- :package-version '(magit . "2.9.0")
- :group 'magit-repolist
- :type 'hook
- :get 'magit-hook-custom-get
- :options '(hl-line-mode))
-
-(defcustom magit-submodule-list-columns
- '(("Path" 25 magit-modulelist-column-path nil)
- ("Version" 25 magit-repolist-column-version nil)
- ("Branch" 20 magit-repolist-column-branch nil)
- ("B<U" 3 magit-repolist-column-unpulled-from-upstream ((:right-align t)))
- ("B>U" 3 magit-repolist-column-unpushed-to-upstream ((:right-align t)))
- ("B<P" 3 magit-repolist-column-unpulled-from-pushremote ((:right-align t)))
- ("B>P" 3 magit-repolist-column-unpushed-to-pushremote ((:right-align t)))
- ("B" 3 magit-repolist-column-branches ((:right-align t)))
- ("S" 3 magit-repolist-column-stashes ((:right-align t))))
- "List of columns displayed by `magit-list-submodules'.
-
-Each element has the form (HEADER WIDTH FORMAT PROPS).
-
-HEADER is the string displayed in the header. WIDTH is the width
-of the column. FORMAT is a function that is called with one
-argument, the repository identification (usually its basename),
-and with `default-directory' bound to the toplevel of its working
-tree. It has to return a string to be inserted or nil. PROPS is
-an alist that supports the keys `:right-align' and `:pad-right'."
- :package-version '(magit . "2.8.0")
- :group 'magit-repolist-mode
- :type `(repeat (list :tag "Column"
- (string :tag "Header Label")
- (integer :tag "Column Width")
- (function :tag "Inserter Function")
- (repeat :tag "Properties"
- (list (choice :tag "Property"
- (const :right-align)
- (const :pad-right)
- (symbol))
- (sexp :tag "Value"))))))
-
-(defcustom magit-submodule-remove-trash-gitdirs nil
- "Whether `magit-submodule-remove' offers to trash module gitdirs.
-
-If this is nil, then that command does not offer to do so unless
-a prefix argument is used. When this is t, then it does offer to
-do so even without a prefix argument.
-
-In both cases the action still has to be confirmed unless that is
-disabled using the option `magit-no-confirm'. Doing the latter
-and also setting this variable to t will lead to tears."
- :package-version '(magit . "2.90.0")
- :group 'magit-commands
- :type 'boolean)
-
-;;; Popup
-
-;;;###autoload (autoload 'magit-submodule-popup "magit-submodule" nil t)
-(magit-define-popup magit-submodule-popup
- "Popup console for submodule commands."
- :man-page "git-submodule"
- :switches '((?f "Force" "--force")
- (?r "Recursive" "--recursive")
- (?N "Do not fetch" "--no-fetch")
- (?C "Checkout tip" "--checkout")
- (?R "Rebase onto tip" "--rebase")
- (?M "Merge tip" "--merge")
- (?U "Use upstream tip" "--remote"))
- :actions
- '((?a "Add git submodule add [--force]"
- magit-submodule-add)
- (?r "Register git submodule init"
- magit-submodule-register)
- (?p "Populate git submodule update --init"
- magit-submodule-populate)
- (?u "Update git submodule update [--force] [--no-fetch]
- [--remote] [--recursive] [--checkout|--rebase|--merge]"
- magit-submodule-update)
- (?s "Synchronize git submodule sync [--recursive]"
- magit-submodule-synchronize)
- (?d "Unpopulate git submodule deinit [--force]"
- magit-submodule-unpopulate)
- (?k "Remove" magit-submodule-remove)
- nil
- (?l "List all modules" magit-list-submodules)
- (?f "Fetch all modules" magit-fetch-modules))
- :max-action-columns 1)
-
-(defun magit-submodule-filtered-arguments (&rest filters)
- (--filter (and (member it filters) it)
- (magit-submodule-arguments)))
-
-;;;###autoload
-(defun magit-submodule-add (url &optional path name args)
- "Add the repository at URL as a module.
-
-Optional PATH is the path to the module relative to the root of
-the superproject. If it is nil, then the path is determined
-based on the URL. Optional NAME is the name of the module. If
-it is nil, then PATH also becomes the name."
- (interactive
- (magit-with-toplevel
- (let* ((url (magit-read-string-ns "Add submodule (remote url)"))
- (path (let ((read-file-name-function
- (if (or (eq read-file-name-function 'ido-read-file-name)
- (advice-function-member-p
- 'ido-read-file-name
- read-file-name-function))
- ;; The Ido variant doesn't work properly here.
- #'read-file-name-default
- read-file-name-function)))
- (directory-file-name
- (file-relative-name
- (read-directory-name
- "Add submodules at path: " nil nil nil
- (and (string-match "\\([^./]+\\)\\(\\.git\\)?$" url)
- (match-string 1 url))))))))
- (list url
- (directory-file-name path)
- (magit-submodule-read-name-for-path path)
- (magit-submodule-filtered-arguments "--force")))))
- (magit-with-toplevel
- (magit-submodule--maybe-reuse-gitdir name path)
- (magit-run-git-async "submodule" "add"
- (and name (list "--name" name))
- args "--" url path)
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (when (memq (process-status process) '(exit signal))
- (if (> (process-exit-status process) 0)
- (magit-process-sentinel process event)
- (process-put process 'inhibit-refresh t)
- (magit-process-sentinel process event)
- (unless (version< (magit-git-version) "2.12.0")
- (magit-call-git "submodule" "absorbgitdirs" path))
- (magit-refresh)))))))
-
-;;;###autoload
-(defun magit-submodule-read-name-for-path (path &optional prefer-short)
- (let* ((path (directory-file-name (file-relative-name path)))
- (name (file-name-nondirectory path)))
- (push (if prefer-short path name) minibuffer-history)
- (magit-read-string-ns
- "Submodule name" nil (cons 'minibuffer-history 2)
- (or (--keep (pcase-let ((`(,var ,val) (split-string it "=")))
- (and (equal val path)
- (cadr (split-string var "\\."))))
- (magit-git-lines "config" "--list" "-f" ".gitmodules"))
- (if prefer-short name path)))))
-
-;;;###autoload
-(defun magit-submodule-register (modules)
- "Register MODULES.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user."
- ;; This command and the underlying "git submodule init" do NOT
- ;; "initialize" modules. They merely "register" modules in the
- ;; super-projects $GIT_DIR/config file, the purpose of which is to
- ;; allow users to change such values before actually initializing
- ;; the modules.
- (interactive
- (list (magit-module-confirm "Register" 'magit-module-no-worktree-p)))
- (magit-with-toplevel
- (magit-run-git-async "submodule" "init" "--" modules)))
-
-;;;###autoload
-(defun magit-submodule-populate (modules)
- "Create MODULES working directories, checking out the recorded commits.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user."
- ;; This is the command that actually "initializes" modules.
- ;; A module is initialized when it has a working directory,
- ;; a gitlink, and a .gitmodules entry.
- (interactive
- (list (magit-module-confirm "Populate" 'magit-module-no-worktree-p)))
- (magit-with-toplevel
- (magit-run-git-async "submodule" "update" "--init" "--" modules)))
-
-;;;###autoload
-(defun magit-submodule-update (modules args)
- "Update MODULES by checking out the recorded commits.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user."
- ;; Unlike `git-submodule's `update' command ours can only update
- ;; "initialized" modules by checking out other commits but not
- ;; "initialize" modules by creating the working directories.
- ;; To do the latter we provide the "setup" command.
- (interactive
- (list (magit-module-confirm "Update" 'magit-module-worktree-p)
- (magit-submodule-filtered-arguments
- "--force" "--remote" "--recursive" "--checkout" "--rebase" "--merge"
- "--no-fetch")))
- (magit-with-toplevel
- (magit-run-git-async "submodule" "update" args "--" modules)))
-
-;;;###autoload
-(defun magit-submodule-synchronize (modules args)
- "Synchronize url configuration of MODULES.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user."
- (interactive
- (list (magit-module-confirm "Synchronize" 'magit-module-worktree-p)
- (magit-submodule-filtered-arguments "--recursive")))
- (magit-with-toplevel
- (magit-run-git-async "submodule" "sync" args "--" modules)))
-
-;;;###autoload
-(defun magit-submodule-unpopulate (modules args)
- "Remove working directories of MODULES.
-
-With a prefix argument act on all suitable modules. Otherwise,
-if the region selects modules, then act on those. Otherwise, if
-there is a module at point, then act on that. Otherwise read a
-single module from the user."
- ;; Even though a package is "uninitialized" (it has no worktree)
- ;; the super-projects $GIT_DIR/config may never-the-less set the
- ;; module's url. This may happen if you `deinit' and then `init'
- ;; to register (NOT initialize). Because the purpose of `deinit'
- ;; is to remove the working directory AND to remove the url, this
- ;; command does not limit itself to modules that have no working
- ;; directory.
- (interactive
- (list (magit-module-confirm "Unpopulate")
- (magit-submodule-filtered-arguments "--force")))
- (magit-with-toplevel
- (magit-run-git-async "submodule" "deinit" args "--" modules)))
-
-;;;###autoload
-(defun magit-submodule-remove (modules args trash-gitdirs)
- "Unregister MODULES and remove their working directories.
-
-For safety reasons, do not remove the gitdirs and if a module has
-uncomitted changes, then do not remove it at all. If a module's
-gitdir is located inside the working directory, then move it into
-the gitdir of the superproject first.
-
-With the \"--force\" argument offer to remove dirty working
-directories and with a prefix argument offer to delete gitdirs.
-Both actions are very dangerous and have to be confirmed. There
-are additional safety precautions in place, so you might be able
-to recover from making a mistake here, but don't count on it."
- (interactive
- (list (if-let ((modules (magit-region-values 'magit-module-section t)))
- (magit-confirm 'remove-modules nil "Remove %i modules" nil modules)
- (list (magit-read-module-path "Remove module")))
- (magit-submodule-filtered-arguments "--force")
- current-prefix-arg))
- (when (version< (magit-git-version) "2.12.0")
- (error "This command requires Git v2.12.0"))
- (when magit-submodule-remove-trash-gitdirs
- (setq trash-gitdirs t))
- (magit-with-toplevel
- (when-let
- ((modified
- (-filter (lambda (module)
- (let ((default-directory (file-name-as-directory
- (expand-file-name module))))
- (and (cddr (directory-files default-directory))
- (magit-anything-modified-p))))
- modules)))
- (if (member "--force" args)
- (if (magit-confirm 'remove-dirty-modules
- "Remove dirty module %s"
- "Remove %i dirty modules"
- t modified)
- (dolist (module modified)
- (let ((default-directory (file-name-as-directory
- (expand-file-name module))))
- (magit-git "stash" "push"
- "-m" "backup before removal of this module")))
- (setq modules (cl-set-difference modules modified)))
- (if (cdr modified)
- (message "Omitting %s modules with uncommitted changes: %s"
- (length modified)
- (mapconcat #'identity modified ", "))
- (message "Omitting module %s, it has uncommitted changes"
- (car modified)))
- (setq modules (cl-set-difference modules modified))))
- (when modules
- (let ((alist
- (and trash-gitdirs
- (--map (split-string it "\0")
- (magit-git-lines "submodule" "foreach" "-q"
- "printf \"$sm_path\\0$name\n\"")))))
- (magit-git "submodule" "absorbgitdirs" "--" modules)
- (magit-git "submodule" "deinit" args "--" modules)
- (magit-git "rm" args "--" modules)
- (when (and trash-gitdirs
- (magit-confirm 'trash-module-gitdirs
- "Trash gitdir of module %s"
- "Trash gitdirs of %i modules"
- t modules))
- (dolist (module modules)
- (if-let ((name (cadr (assoc module alist))))
- ;; Disregard if `magit-delete-by-moving-to-trash'
- ;; is nil. Not doing so would be too dangerous.
- (delete-directory (magit-git-dir
- (convert-standard-filename
- (concat "modules/" name)))
- t t)
- (error "BUG: Weird module name and/or path for %s" module)))))
- (magit-refresh))))
-
-;;; Sections
-
-;;;###autoload
-(defun magit-insert-modules ()
- "Insert submodule sections.
-Hook `magit-module-sections-hook' controls which module sections
-are inserted, and option `magit-module-sections-nested' controls
-whether they are wrapped in an additional section."
- (when-let ((modules (magit-list-module-paths)))
- (if magit-module-sections-nested
- (magit-insert-section section (modules nil t)
- (magit-insert-heading
- (format "%s (%s)"
- (propertize "Modules" 'face 'magit-section-heading)
- (length modules)))
- (if (oref section hidden)
- (oset section washer 'magit--insert-modules)
- (magit--insert-modules)))
- (magit--insert-modules))))
-
-(defun magit--insert-modules (&optional _section)
- (magit-run-section-hook 'magit-module-sections-hook))
-
-;;;###autoload
-(defun magit-insert-modules-overview ()
- "Insert sections for all modules.
-For each section insert the path and the output of `git describe --tags',
-or, failing that, the abbreviated HEAD commit hash."
- (when-let ((modules (magit-list-module-paths)))
- (magit-insert-section section (modules nil t)
- (magit-insert-heading
- (format "%s (%s)"
- (propertize "Modules overview" 'face 'magit-section-heading)
- (length modules)))
- (if (oref section hidden)
- (oset section washer 'magit--insert-modules-overview)
- (magit--insert-modules-overview)))))
-
-(defvar magit-modules-overview-align-numbers t)
-
-(defun magit--insert-modules-overview (&optional _section)
- (magit-with-toplevel
- (let* ((modules (magit-list-module-paths))
- (path-format (format "%%-%is "
- (min (apply 'max (mapcar 'length modules))
- (/ (window-width) 2))))
- (branch-format (format "%%-%is " (min 25 (/ (window-width) 3)))))
- (dolist (module modules)
- (let ((default-directory
- (expand-file-name (file-name-as-directory module))))
- (magit-insert-section (magit-module-section module t)
- (insert (propertize (format path-format module)
- 'face 'magit-diff-file-heading))
- (if (not (file-exists-p ".git"))
- (insert "(unpopulated)")
- (insert (format branch-format
- (--if-let (magit-get-current-branch)
- (propertize it 'face 'magit-branch-local)
- (propertize "(detached)" 'face 'warning))))
- (--if-let (magit-git-string "describe" "--tags")
- (progn (when (and magit-modules-overview-align-numbers
- (string-match-p "\\`[0-9]" it))
- (insert ?\s))
- (insert (propertize it 'face 'magit-tag)))
- (--when-let (magit-rev-format "%h")
- (insert (propertize it 'face 'magit-hash)))))
- (insert ?\n))))))
- (insert ?\n))
-
-(defvar magit-modules-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-list-submodules)
- map)
- "Keymap for `modules' sections.")
-
-(defvar magit-module-section-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-file-section-map)
- (unless (featurep 'jkl)
- (define-key map "\C-j" 'magit-submodule-visit))
- (define-key map [C-return] 'magit-submodule-visit)
- (define-key map [remap magit-visit-thing] 'magit-submodule-visit)
- (define-key map [remap magit-delete-thing] 'magit-submodule-unpopulate)
- (define-key map "K" 'magit-file-untrack)
- (define-key map "R" 'magit-file-rename)
- map)
- "Keymap for `module' sections.")
-
-(defun magit-submodule-visit (module &optional other-window)
- "Visit MODULE by calling `magit-status' on it.
-Offer to initialize MODULE if it's not checked out yet.
-With a prefix argument, visit in another window."
- (interactive (list (or (magit-section-value-if 'module)
- (magit-read-module-path "Visit module"))
- current-prefix-arg))
- (magit-with-toplevel
- (let ((path (expand-file-name module)))
- (cond
- ((file-exists-p (expand-file-name ".git" module))
- (magit-diff-visit-directory path other-window))
- ((y-or-n-p (format "Initialize submodule '%s' first?" module))
- (magit-run-git-async "submodule" "update" "--init" "--" module)
- (set-process-sentinel
- magit-this-process
- (lambda (process event)
- (let ((magit-process-raise-error t))
- (magit-process-sentinel process event))
- (when (and (eq (process-status process) 'exit)
- (= (process-exit-status process) 0))
- (magit-diff-visit-directory path other-window)))))
- ((file-exists-p path)
- (dired-jump other-window (concat path "/.")))))))
-
-;;;###autoload
-(defun magit-insert-modules-unpulled-from-upstream ()
- "Insert sections for modules that haven't been pulled from the upstream.
-These sections can be expanded to show the respective commits."
- (magit--insert-modules-logs "Modules unpulled from @{upstream}"
- 'modules-unpulled-from-upstream
- "HEAD..@{upstream}"))
-
-;;;###autoload
-(defun magit-insert-modules-unpulled-from-pushremote ()
- "Insert sections for modules that haven't been pulled from the push-remote.
-These sections can be expanded to show the respective commits."
- (magit--insert-modules-logs "Modules unpulled from @{push}"
- 'modules-unpulled-from-pushremote
- "HEAD..@{push}"))
-
-;;;###autoload
-(defun magit-insert-modules-unpushed-to-upstream ()
- "Insert sections for modules that haven't been pushed to the upstream.
-These sections can be expanded to show the respective commits."
- (magit--insert-modules-logs "Modules unmerged into @{upstream}"
- 'modules-unpushed-to-upstream
- "@{upstream}..HEAD"))
-
-;;;###autoload
-(defun magit-insert-modules-unpushed-to-pushremote ()
- "Insert sections for modules that haven't been pushed to the push-remote.
-These sections can be expanded to show the respective commits."
- (magit--insert-modules-logs "Modules unpushed to @{push}"
- 'modules-unpushed-to-pushremote
- "@{push}..HEAD"))
-
-(defun magit--insert-modules-logs (heading type range)
- "For internal use, don't add to a hook."
- (unless (magit-ignore-submodules-p)
- (when-let ((modules (magit-list-module-paths)))
- (magit-insert-section section ((eval type) nil t)
- (string-match "\\`\\(.+\\) \\([^ ]+\\)\\'" heading)
- (magit-insert-heading
- (propertize (match-string 1 heading) 'face 'magit-section-heading) " "
- (propertize (match-string 2 heading) 'face 'magit-branch-remote) ":")
- (magit-with-toplevel
- (dolist (module modules)
- (when (magit-module-worktree-p module)
- (let ((default-directory
- (expand-file-name (file-name-as-directory module))))
- (when (magit-file-accessible-directory-p default-directory)
- (magit-insert-section sec (magit-module-section module t)
- (magit-insert-heading
- (propertize module 'face 'magit-diff-file-heading) ":")
- (magit-git-wash
- (apply-partially 'magit-log-wash-log 'module)
- "-c" "push.default=current" "log" "--oneline" range)
- (when (> (point)
- (oref sec content))
- (delete-char -1))))))))
- (if (> (point)
- (oref section content))
- (insert ?\n)
- (magit-cancel-section))))))
-
-;;; List
-
-;;;###autoload
-(defun magit-list-submodules ()
- "Display a list of the current repository's submodules."
- (interactive)
- (magit-display-buffer
- (or (magit-mode-get-buffer 'magit-submodule-list-mode)
- (magit-with-toplevel
- (magit-generate-new-buffer 'magit-submodule-list-mode))))
- (magit-submodule-list-mode)
- (magit-submodule-list-refresh)
- (tabulated-list-print))
-
-(defvar magit-submodule-list-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-repolist-mode-map)
- map)
- "Local keymap for Magit-Submodule-List mode buffers.")
-
-(define-derived-mode magit-submodule-list-mode tabulated-list-mode "Modules"
- "Major mode for browsing a list of Git submodules."
- :group 'magit-repolist-mode
- (setq x-stretch-cursor nil)
- (setq tabulated-list-padding 0)
- (setq tabulated-list-sort-key (cons "Path" nil))
- (setq tabulated-list-format
- (vconcat (mapcar (pcase-lambda (`(,title ,width ,_fn ,props))
- (nconc (list title width t)
- (-flatten props)))
- magit-submodule-list-columns)))
- (tabulated-list-init-header)
- (add-hook 'tabulated-list-revert-hook 'magit-submodule-list-refresh nil t)
- (setq imenu-prev-index-position-function
- #'magit-imenu--submodule-prev-index-position-function)
- (setq imenu-extract-index-name-function
- #'magit-imenu--submodule-extract-index-name-function)
- (setq-local bookmark-make-record-function
- #'magit-bookmark--submodules-make-record))
-
-(defun magit-submodule-list-refresh ()
- (setq tabulated-list-entries
- (-keep (lambda (module)
- (let ((default-directory
- (expand-file-name (file-name-as-directory module))))
- (and (file-exists-p ".git")
- (list module
- (vconcat
- (--map (or (funcall (nth 2 it) module) "")
- magit-submodule-list-columns))))))
- (magit-list-module-paths))))
-
-(defun magit-modulelist-column-path (path)
- "Insert the relative path of the submodule."
- path)
-
-;;; Utilities
-
-(defun magit-submodule--maybe-reuse-gitdir (name path)
- (let ((gitdir
- (magit-git-dir (convert-standard-filename (concat "modules/" name)))))
- (when (and (file-exists-p gitdir)
- (not (file-exists-p path)))
- (pcase (read-char-choice
- (concat
- gitdir " already exists.\n"
- "Type [u] to use the existing gitdir and create the working tree\n"
- " [r] to rename the existing gitdir and clone again\n"
- " [t] to trash the existing gitdir and clone again\n"
- " [C-g] to abort ")
- '(?u ?r ?t))
- (?u (magit-submodule--restore-worktree (expand-file-name path) gitdir))
- (?r (rename-file gitdir (concat gitdir "-"
- (format-time-string "%F-%T"))))
- (?t (delete-directory gitdir t t))))))
-
-(defun magit-submodule--restore-worktree (worktree gitdir)
- (make-directory worktree t)
- (with-temp-file (expand-file-name ".git" worktree)
- (insert "gitdir: " (file-relative-name gitdir worktree) "\n"))
- (let ((default-directory worktree))
- (magit-call-git "reset" "--hard" "HEAD")))
-
-;;; _
-(provide 'magit-submodule)
-;;; magit-submodule.el ends here
diff --git a/elpa/magit-20181116.1412/magit-submodule.elc b/elpa/magit-20181116.1412/magit-submodule.elc
deleted file mode 100644
index e8081d6..0000000
--- a/elpa/magit-20181116.1412/magit-submodule.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-subtree.el b/elpa/magit-20181116.1412/magit-subtree.el
deleted file mode 100644
index 4e5d32b..0000000
--- a/elpa/magit-20181116.1412/magit-subtree.el
+++ /dev/null
@@ -1,147 +0,0 @@
-;;; magit-subtree.el --- subtree support for Magit -*- lexical-binding: t -*-
-
-;; Copyright (C) 2011-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Popup
-
-;;;###autoload (autoload 'magit-subtree-popup "magit-subtree" nil t)
-(magit-define-popup magit-subtree-popup
- "Popup console for subtree commands."
- :man-page "git-subtree"
- :switches '("Switches for add, merge, push, and pull"
- (?s "Squash" "--squash")
- "Switches for split"
- (?i "Ignore joins" "--ignore-joins")
- (?j "Rejoin" "--rejoin"))
- :options '("Options"
- (?p "Prefix" "--prefix=" magit-subtree-read-prefix)
- "Options for add, merge, and pull"
- (?m "Message" "--message=")
- "Options for split"
- (?a "Annotate" "--annotate=")
- (?b "Branch" "--branch=")
- (?o "Onto" "--onto=" magit-read-branch-or-commit))
- :actions '((?a "Add" magit-subtree-add)
- (?m "Merge" magit-subtree-merge)
- (?p "Push" magit-subtree-push)
- (?c "Add commit" magit-subtree-add-commit)
- (?f "Pull" magit-subtree-pull)
- (?s "Split" magit-subtree-split))
- :max-action-columns 3)
-
-(defun magit-subtree-read-prefix (prompt &optional default)
- (let* ((insert-default-directory nil)
- (topdir (magit-toplevel))
- (prefix (read-directory-name (concat prompt ": ") topdir default)))
- (if (file-name-absolute-p prefix)
- ;; At least `ido-mode's variant is not compatible.
- (if (string-prefix-p topdir prefix)
- (file-relative-name prefix topdir)
- (user-error "%s isn't inside the repository at %s" prefix topdir))
- prefix)))
-
-;;; Commands
-
-(defun magit-subtree-prefix (prompt)
- (--if-let (--first (string-prefix-p "--prefix=" it)
- (magit-subtree-arguments))
- (substring it 9)
- (magit-subtree-read-prefix prompt)))
-
-(defun magit-subtree-args ()
- (-filter (lambda (arg)
- (if (eq this-command 'magit-subtree-split)
- (or (equal arg "--ignore-joins")
- (equal arg "--rejoin")
- (string-prefix-p "--annotate=" arg)
- (string-prefix-p "--branch=" arg)
- (string-prefix-p "--onto=" arg))
- (or (equal arg "--squash")
- (and (string-prefix-p "--message=" arg)
- (not (eq this-command 'magit-subtree-push))))))
- (magit-subtree-arguments)))
-
-(defun magit-git-subtree (subcmd prefix &rest args)
- (magit-run-git-async "subtree" subcmd (concat "--prefix=" prefix) args))
-
-;;;###autoload
-(defun magit-subtree-add (prefix repository ref args)
- "Add REF from REPOSITORY as a new subtree at PREFIX."
- (interactive
- (cons (magit-subtree-prefix "Add subtree")
- (let ((remote (magit-read-remote-or-url "From repository")))
- (list remote
- (magit-read-refspec "Ref" remote)
- (magit-subtree-args)))))
- (magit-git-subtree "add" prefix args repository ref))
-
-;;;###autoload
-(defun magit-subtree-add-commit (prefix commit args)
- "Add COMMIT as a new subtree at PREFIX."
- (interactive (list (magit-subtree-prefix "Add subtree")
- (magit-read-string-ns "Commit")
- (magit-subtree-args)))
- (magit-git-subtree "add" prefix args commit))
-
-;;;###autoload
-(defun magit-subtree-merge (prefix commit args)
- "Merge COMMIT into the PREFIX subtree."
- (interactive (list (magit-subtree-prefix "Merge into subtree")
- (magit-read-string-ns "Commit")
- (magit-subtree-args)))
- (magit-git-subtree "merge" prefix args commit))
-
-;;;###autoload
-(defun magit-subtree-pull (prefix repository ref args)
- "Pull REF from REPOSITORY into the PREFIX subtree."
- (interactive
- (cons (magit-subtree-prefix "Pull into subtree")
- (let ((remote (magit-read-remote-or-url "From repository")))
- (list remote
- (magit-read-refspec "Ref" remote)
- (magit-subtree-args)))))
- (magit-git-subtree "pull" prefix args repository ref))
-
-;;;###autoload
-(defun magit-subtree-push (prefix repository ref args)
- "Extract the history of the subtree PREFIX and push it to REF on REPOSITORY."
- (interactive (list (magit-subtree-prefix "Push subtree")
- (magit-read-remote-or-url "To repository")
- (magit-read-string-ns "To reference")
- (magit-subtree-args)))
- (magit-git-subtree "push" prefix args repository ref))
-
-;;;###autoload
-(defun magit-subtree-split (prefix commit args)
- "Extract the history of the subtree PREFIX."
- (interactive (list (magit-subtree-prefix "Split subtree")
- (magit-read-string-ns "Commit")
- (magit-subtree-args)))
- (magit-git-subtree "split" prefix args commit))
-
-;;; _
-(provide 'magit-subtree)
-;;; magit-subtree.el ends here
diff --git a/elpa/magit-20181116.1412/magit-subtree.elc b/elpa/magit-20181116.1412/magit-subtree.elc
deleted file mode 100644
index 409f873..0000000
--- a/elpa/magit-20181116.1412/magit-subtree.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-tag.el b/elpa/magit-20181116.1412/magit-tag.el
deleted file mode 100644
index ca5f6ab..0000000
--- a/elpa/magit-20181116.1412/magit-tag.el
+++ /dev/null
@@ -1,133 +0,0 @@
-;;; magit-tag.el --- tag functionality -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements tag commands.
-
-;;; Code:
-
-(require 'magit)
-
-;;;###autoload (autoload 'magit-tag-popup "magit" nil t)
-(magit-define-popup magit-tag-popup
- "Popup console for tag commands."
- :man-page "git-tag"
- :switches '((?a "Annotate" "--annotate")
- (?f "Force" "--force")
- (?s "Sign" "--sign"))
- :options '((?f "Sign" "--local-user=" magit-read-gpg-secret-key))
- :actions '((?t "Create" magit-tag-create)
- (?k "Delete" magit-tag-delete)
- (?p "Prune" magit-tag-prune))
- :default-action 'magit-tag-create)
-
-;;;###autoload
-(defun magit-tag-create (name rev &optional args)
- "Create a new tag with the given NAME at REV.
-With a prefix argument annotate the tag.
-\n(git tag [--annotate] NAME REV)"
- (interactive (list (magit-read-tag "Tag name")
- (magit-read-branch-or-commit "Place tag on")
- (let ((args (magit-tag-arguments)))
- (when current-prefix-arg
- (cl-pushnew "--annotate" args))
- args)))
- (magit-run-git-with-editor "tag" args name rev))
-
-;;;###autoload
-(defun magit-tag-delete (tags)
- "Delete one or more tags.
-If the region marks multiple tags (and nothing else), then offer
-to delete those, otherwise prompt for a single tag to be deleted,
-defaulting to the tag at point.
-\n(git tag -d TAGS)"
- (interactive (list (--if-let (magit-region-values 'tag)
- (magit-confirm t nil "Delete %i tags" nil it)
- (magit-read-tag "Delete tag" t))))
- (magit-run-git "tag" "-d" tags))
-
-;;;###autoload
-(defun magit-tag-prune (tags remote-tags remote)
- "Offer to delete tags missing locally from REMOTE, and vice versa."
- (interactive
- (let* ((remote (magit-read-remote "Prune tags using remote"))
- (tags (magit-list-tags))
- (rtags (prog2 (message "Determining remote tags...")
- (magit-remote-list-tags remote)
- (message "Determining remote tags...done")))
- (ltags (-difference tags rtags))
- (rtags (-difference rtags tags)))
- (unless (or ltags rtags)
- (message "Same tags exist locally and remotely"))
- (unless (magit-confirm t
- "Delete %s locally"
- "Delete %i tags locally"
- 'noabort ltags)
- (setq ltags nil))
- (unless (magit-confirm t
- "Delete %s from remote"
- "Delete %i tags from remote"
- 'noabort rtags)
- (setq rtags nil))
- (list ltags rtags remote)))
- (when tags
- (magit-call-git "tag" "-d" tags))
- (when remote-tags
- (magit-run-git-async "push" remote (--map (concat ":" it) remote-tags))))
-
-;;;###autoload
-(defun magit-tag-release (tag)
- "Create an opinionated release tag.
-
-Assume version tags that match \"\\\\`v?[0-9]\\\\(\\\\.[0-9]\\\\)*\\\\'\".
-Prompt for the name of the new tag using the highest existing tag
-as initial input and call \"git tag --annotate --sign -m MSG\" TAG,
-regardless of whether these arguments are enabled in the popup.
-Given a TAG \"v1.2.3\" and a repository \"/path/to/foo-bar\", the
-MESSAGE would be \"Foo-Bar 1.2.3\".
-
-Because it is so opinionated, this command is not available from
-the tag popup by default."
- (interactive
- (list (read-string "Create tag: "
- (car (nreverse
- (cl-sort (magit-list-tags) #'version<
- :key (lambda (tag)
- (if (string-prefix-p "v" tag)
- (substring tag 1)
- tag))))))))
- (magit-run-git
- "tag" "--annotate" "--sign"
- "-m" (format "%s %s"
- (capitalize (file-name-nondirectory
- (directory-file-name (magit-toplevel))))
- (if (string-prefix-p "v" tag)
- (substring tag 1)
- tag))
- tag)
- (magit-show-refs))
-
-;;; _
-(provide 'magit-tag)
-;;; magit-tag.el ends here
diff --git a/elpa/magit-20181116.1412/magit-tag.elc b/elpa/magit-20181116.1412/magit-tag.elc
deleted file mode 100644
index 79971e8..0000000
--- a/elpa/magit-20181116.1412/magit-tag.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-utils.el b/elpa/magit-20181116.1412/magit-utils.el
deleted file mode 100644
index fc81951..0000000
--- a/elpa/magit-20181116.1412/magit-utils.el
+++ /dev/null
@@ -1,1099 +0,0 @@
-;;; magit-utils.el --- various utilities -*- lexical-binding: t; coding: utf-8 -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Contains code from GNU Emacs https://www.gnu.org/software/emacs,
-;; released under the GNU General Public License version 3 or later.
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library defines several utility functions used by several
-;; other libraries which cannot depend on one another (because
-;; circular dependencies are not good). Luckily most (all) of these
-;; functions have very little (nothing) to do with Git, so we not only
-;; have to do this, it even makes sense.
-
-;; Unfortunately there are also some options which are used by several
-;; libraries which cannot depend on one another, they are defined here
-;; too.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dash)
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'crm)
-
-(eval-when-compile (require 'ido))
-(declare-function ido-completing-read+ "ido-completing-read+"
- (prompt collection &optional predicate
- require-match initial-input
- hist def inherit-input-method))
-(declare-function Info-get-token "info" (pos start all &optional errorstring))
-
-(eval-when-compile (require 'vc-git))
-(declare-function vc-git--run-command-string "vc-git" (file &rest args))
-
-(defvar magit-wip-before-change-mode)
-
-(require 'magit-popup)
-
-;;; Options
-
-(defcustom magit-completing-read-function 'magit-builtin-completing-read
- "Function to be called when requesting input from the user.
-
-If you have enabled `ivy-mode' or `helm-mode', then you don't
-have to customize this option; `magit-builtin-completing-read'
-will work just fine. However, if you use Ido completion, then
-you do have to use `magit-ido-completion-read', because Ido is
-less well behaved than the former, more modern alternatives.
-
-If you would like to use Ivy or Helm completion with Magit but
-not enable the respective modes globally, then customize this
-option to use `ivy-completing-read' or
-`helm--completing-read-default'. If you choose to use
-`ivy-completing-read', note that the items may always be shown in
-alphabetical order, depending on your version of Ivy."
- :group 'magit-essentials
- :type '(radio (function-item magit-builtin-completing-read)
- (function-item magit-ido-completing-read)
- (function-item ivy-completing-read)
- (function-item helm--completing-read-default)
- (function :tag "Other function")))
-
-(defcustom magit-dwim-selection
- '((magit-stash-apply nil t)
- (magit-stash-branch nil t)
- (magit-stash-branch-here nil t)
- (magit-stash-format-patch nil t)
- (magit-stash-drop nil ask)
- (magit-stash-pop nil ask)
- (forge-browse-commit nil t)
- (forge-browse-branch nil t)
- (forge-browse-remote nil t)
- (forge-browse-issue nil t)
- (forge-browse-pullreq nil t)
- (forge-edit-topic-title nil t)
- (forge-edit-topic-labels nil t)
- (forge-edit-topic-assignees nil t)
- (forge-visit-issue nil t)
- (forge-visit-pullreq nil t))
- "When not to offer alternatives and ask for confirmation.
-
-Many commands by default ask the user to select from a list of
-possible candidates. They do so even when there is a thing at
-point that they can act on, which is then offered as the default.
-
-This option can be used to tell certain commands to use the thing
-at point instead of asking the user to select a candidate to act
-on, with or without confirmation.
-
-The value has the form ((COMMAND nil|PROMPT DEFAULT)...).
-
-- COMMAND is the command that should not prompt for a choice.
- To have an effect, the command has to use the function
- `magit-completing-read' or a utility function which in turn uses
- that function.
-
-- If the command uses `magit-completing-read' multiple times, then
- PROMPT can be used to only affect one of these uses. PROMPT, if
- non-nil, is a regular expression that is used to match against
- the PROMPT argument passed to `magit-completing-read'.
-
-- DEFAULT specifies how to use the default. If it is t, then
- the DEFAULT argument passed to `magit-completing-read' is used
- without confirmation. If it is `ask', then the user is given
- a chance to abort. DEFAULT can also be nil, in which case the
- entry has no effect."
- :package-version '(magit . "2.12.0")
- :group 'magit-commands
- :type '(repeat
- (list (symbol :tag "Command") ; It might not be fboundp yet.
- (choice (const :tag "for all prompts" nil)
- (regexp :tag "for prompts matching regexp"))
- (choice (const :tag "offer other choices" nil)
- (const :tag "require confirmation" ask)
- (const :tag "use default without confirmation" t)))))
-
-(defconst magit--confirm-actions
- '((const reverse) (const discard)
- (const rename) (const resurrect)
- (const untrack) (const trash)
- (const delete) (const abort-rebase)
- (const abort-merge) (const merge-dirty)
- (const drop-stashes) (const reset-bisect)
- (const kill-process) (const delete-unmerged-branch)
- (const delete-pr-branch) (const remove-modules)
- (const stage-all-changes) (const unstage-all-changes)
- (const safe-with-wip)))
-
-(defcustom magit-no-confirm nil
- "A list of symbols for actions Magit should not confirm, or t.
-
-Many potentially dangerous commands by default ask the user for
-confirmation. Each of the below symbols stands for an action
-which, when invoked unintentionally or without being fully aware
-of the consequences, could lead to tears. In many cases there
-are several commands that perform variations of a certain action,
-so we don't use the command names but more generic symbols.
-
-Applying changes:
-
- `discard' Discarding one or more changes (i.e. hunks or the
- complete diff for a file) loses that change, obviously.
-
- `reverse' Reverting one or more changes can usually be undone
- by reverting the reversion.
-
- `stage-all-changes', `unstage-all-changes' When there are both
- staged and unstaged changes, then un-/staging everything would
- destroy that distinction. Of course that also applies when
- un-/staging a single change, but then less is lost and one does
- that so often that having to confirm every time would be
- unacceptable.
-
-Files:
-
- `delete' When a file that isn't yet tracked by Git is deleted
- then it is completely lost, not just the last changes. Very
- dangerous.
-
- `trash' Instead of deleting a file it can also be move to the
- system trash. Obviously much less dangerous than deleting it.
-
- Also see option `magit-delete-by-moving-to-trash'.
-
- `resurrect' A deleted file can easily be resurrected by
- \"deleting\" the deletion, which is done using the same command
- that was used to delete the same file in the first place.
-
- `untrack' Untracking a file can be undone by tracking it again.
-
- `rename' Renaming a file can easily be undone.
-
-Sequences:
-
- `reset-bisect' Aborting (known to Git as \"resetting\") a
- bisect operation loses all information collected so far.
-
- `abort-rebase' Aborting a rebase throws away all already
- modified commits, but it's possible to restore those from the
- reflog.
-
- `abort-merge' Aborting a merge throws away all conflict
- resolutions which has already been carried out by the user.
-
- `merge-dirty' Merging with a dirty worktree can make it hard to
- go back to the state before the merge was initiated.
-
-References:
-
- `delete-unmerged-branch' Once a branch has been deleted it can
- only be restored using low-level recovery tools provided by
- Git. And even then the reflog is gone. The user always has
- to confirm the deletion of a branch by accepting the default
- choice (or selecting another branch), but when a branch has
- not been merged yet, also make sure the user is aware of that.
-
- `delete-pr-branch' When deleting a branch that was created from
- a pull request and if no other branches still exist on that
- remote, then `magit-branch-delete' offers to delete the remote
- as well. This should be safe because it only happens if no
- other refs exist in the remotes namespace, and you can recreate
- the remote if necessary.
-
- `drop-stashes' Dropping a stash is dangerous because Git stores
- stashes in the reflog. Once a stash is removed, there is no
- going back without using low-level recovery tools provided by
- Git. When a single stash is dropped, then the user always has
- to confirm by accepting the default (or selecting another).
- This action only concerns the deletion of multiple stashes at
- once.
-
-Edit published history:
-
- Without adding these symbols here, you will be warned before
- editing commits that have already been pushed to one of the
- branches listed in `magit-published-branches'.
-
- `amend-published' Affects most commands that amend to \"HEAD\".
-
- `rebase-published' Affects commands that perform interactive
- rebases. This includes commands from the commit popup that
- modify a commit other than \"HEAD\", namely the various fixup
- and squash variants.
-
- `edit-published' Affects the commands `magit-edit-line-commit'
- and `magit-diff-edit-hunk-commit'. These two commands make
- it quite easy to accidentally edit a published commit, so you
- should think twice before configuring them not to ask for
- confirmation.
-
- To disable confirmation completely, add all three symbols here
- or set `magit-published-branches' to nil.
-
-Removing modules:
-
- `remove-modules' When you remove the working directory of a
- module that does not contain uncommitted changes, then that is
- safer than doing so when there are uncommitted changes and/or
- when you also remove the gitdir. Still, you don't want to do
- that by accident.
-
- `remove-dirty-modules' When you remove the working directory of
- a module that contains uncommitted changes, then those changes
- are gone for good. It is better to go to the module, inspect
- these changes and only if appropriate discard them manually.
-
- `trash-module-gitdirs' When you remove the gitdir of a module,
- then all unpushed changes are gone for good. It is very easy
- to forget that you have some unfinished work on an unpublished
- feature branch or even in a stash.
-
- Actually there are some safety precautions in place, that might
- help you out if you make an unwise choice here, but don't count
- on it. In case of emergency, stay calm and check the stash and
- the `trash-directory' for traces of lost work.
-
-Various:
-
- `kill-process' There seldom is a reason to kill a process.
-
-Global settings:
-
- Instead of adding all of the above symbols to the value of this
- option you can also set it to the atom `t', which has the same
- effect as adding all of the above symbols. Doing that most
- certainly is a bad idea, especially because other symbols might
- be added in the future. So even if you don't want to be asked
- for confirmation for any of these actions, you are still better
- of adding all of the respective symbols individually.
-
- When `magit-wip-before-change-mode' is enabled then these actions
- can fairly easily be undone: `discard', `reverse',
- `stage-all-changes', and `unstage-all-changes'. If and only if
- this mode is enabled, then `safe-with-wip' has the same effect
- as adding all of these symbols individually."
- :package-version '(magit . "2.1.0")
- :group 'magit-essentials
- :group 'magit-commands
- :type `(choice (const :tag "Always require confirmation" nil)
- (const :tag "Never require confirmation" t)
- (set :tag "Require confirmation except for"
- ;; `remove-dirty-modules' and
- ;; `trash-module-gitdirs' intentionally
- ;; omitted.
- ,@magit--confirm-actions)))
-
-(defcustom magit-slow-confirm '(drop-stashes)
- "Whether to ask user \"y or n\" or \"yes or no\" questions.
-
-When this is nil, then `y-or-n-p' is used when the user has to
-confirm a potentially destructive action. When this is t, then
-`yes-or-no-p' is used instead. If this is a list of symbols
-identifying actions, then `yes-or-no-p' is used for those,
-`y-or-no-p' for all others. The list of actions is the same as
-for `magit-no-confirm' (which see)."
- :package-version '(magit . "2.9.0")
- :group 'magit-miscellaneous
- :type `(choice (const :tag "Always ask \"yes or no\" questions" t)
- (const :tag "Always ask \"y or n\" questions" nil)
- (set :tag "Ask \"yes or no\" questions only for"
- ,@magit--confirm-actions)))
-
-(defcustom magit-no-message nil
- "A list of messages Magit should not display.
-
-Magit displays most echo area messages using `message', but a few
-are displayed using `magit-message' instead, which takes the same
-arguments as the former, FORMAT-STRING and ARGS. `magit-message'
-forgoes printing a message if any member of this list is a prefix
-of the respective FORMAT-STRING.
-
-If Magit prints a message which causes you grief, then please
-first investigate whether there is another option which can be
-used to suppress it. If that is not the case, then ask the Magit
-maintainers to start using `magit-message' instead of `message'
-in that case. We are not proactively replacing all uses of
-`message' with `magit-message', just in case someone *might* find
-some of these messages useless.
-
-Messages which can currently be suppressed using this option are:
-* \"Turning on magit-auto-revert-mode...\""
- :package-version '(magit . "2.8.0")
- :group 'magit-miscellaneous
- :type '(repeat string))
-
-(defcustom magit-ellipsis ?…
- "Character used to abbreviate text.
-
-Currently this is used to abbreviate author names in the margin
-and in process buffers to elide `magit-git-global-arguments'."
- :package-version '(magit . "2.1.0")
- :group 'magit-miscellaneous
- :type 'character)
-
-(defcustom magit-update-other-window-delay 0.2
- "Delay before automatically updating the other window.
-
-When moving around in certain buffers, then certain other
-buffers, which are being displayed in another window, may
-optionally be updated to display information about the
-section at point.
-
-When holding down a key to move by more than just one section,
-then that would update that buffer for each section on the way.
-To prevent that, updating the revision buffer is delayed, and
-this option controls for how long. For optimal experience you
-might have to adjust this delay and/or the keyboard repeat rate
-and delay of your graphical environment or operating system."
- :package-version '(magit . "2.3.0")
- :group 'magit-miscellaneous
- :type 'number)
-
-(defcustom magit-view-git-manual-method 'info
- "How links to Git documentation are followed from Magit's Info manuals.
-
-`info' Follow the link to the node in the `gitman' Info manual
- as usual. Unfortunately that manual is not installed by
- default on some platforms, and when it is then the nodes
- look worse than the actual manpages.
-
-`man' View the respective man-page using the `man' package.
-
-`woman' View the respective man-page using the `woman' package."
- :package-version '(magit . "2.9.0")
- :group 'magit-miscellaneous
- :type '(choice (const :tag "view info manual" info)
- (const :tag "view manpage using `man'" man)
- (const :tag "view manpage using `woman'" woman)))
-
-;;; User Input
-
-(defvar helm-completion-in-region-default-sort-fn)
-(defvar ivy-sort-functions-alist)
-
-(defvar magit-completing-read--silent-default nil)
-
-(defun magit-completing-read (prompt collection &optional
- predicate require-match initial-input
- hist def fallback)
- "Read a choice in the minibuffer, or use the default choice.
-
-This is the function that Magit commands use when they need the
-user to select a single thing to act on. The arguments have the
-same meaning as for `completing-read', except for FALLBACK, which
-is unique to this function and is described below.
-
-Instead of asking the user to choose from a list of possible
-candidates, this function may instead just return the default
-specified by DEF, with or without requiring user confirmation.
-Whether that is the case depends on PROMPT, `this-command' and
-`magit-dwim-selection'. See the documentation of the latter for
-more information.
-
-If it does use the default without the user even having to
-confirm that, then `magit-completing-read--silent-default' is set
-to t, otherwise nil.
-
-If it does read a value in the minibuffer, then this function
-acts similarly to `completing-read', except for the following:
-
-- If REQUIRE-MATCH is nil and the user exits without a choice,
- then nil is returned instead of an empty string.
-
-- If REQUIRE-MATCH is non-nil and the users exits without a
- choice, an user-error is raised.
-
-- FALLBACK specifies a secondary default that is only used if
- the primary default DEF is nil. The secondary default is not
- subject to `magit-dwim-selection' — if DEF is nil but FALLBACK
- is not, then this function always asks the user to choose a
- candidate, just as if both defaults were nil.
-
-- \": \" is appended to PROMPT.
-
-- PROMPT is modified to end with \" (default DEF|FALLBACK): \"
- provided that DEF or FALLBACK is non-nil, that neither
- `ivy-mode' nor `helm-mode' is enabled, and that
- `magit-completing-read-function' is set to its default value of
- `magit-builtin-completing-read'."
- (setq magit-completing-read--silent-default nil)
- (if-let ((dwim (and def
- (nth 2 (-first (pcase-lambda (`(,cmd ,re ,_))
- (and (eq this-command cmd)
- (or (not re)
- (string-match-p re prompt))))
- magit-dwim-selection)))))
- (if (eq dwim 'ask)
- (if (y-or-n-p (format "%s %s? " prompt def))
- def
- (user-error "Abort"))
- (setq magit-completing-read--silent-default t)
- def)
- (unless def
- (setq def fallback))
- (let ((command this-command)
- (reply (funcall magit-completing-read-function
- (concat prompt ": ")
- (if (and def (not (member def collection)))
- (cons def collection)
- collection)
- predicate
- require-match initial-input hist def)))
- (setq this-command command)
- (if (string= reply "")
- (if require-match
- (user-error "Nothing selected")
- nil)
- reply))))
-
-(defun magit--completion-table (collection)
- (lambda (string pred action)
- (if (eq action 'metadata)
- '(metadata (display-sort-function . identity))
- (complete-with-action action collection string pred))))
-
-(defun magit-builtin-completing-read
- (prompt choices &optional predicate require-match initial-input hist def)
- "Magit wrapper for standard `completing-read' function."
- (unless (or (bound-and-true-p helm-mode)
- (bound-and-true-p ivy-mode))
- (setq prompt (magit-prompt-with-default prompt def))
- (setq choices (magit--completion-table choices)))
- (cl-letf (((symbol-function 'completion-pcm--all-completions)
- #'magit-completion-pcm--all-completions))
- (let ((ivy-sort-functions-alist nil))
- (completing-read prompt choices
- predicate require-match
- initial-input hist def))))
-
-(defun magit-completing-read-multiple
- (prompt choices &optional sep default hist keymap)
- "Read multiple items from CHOICES, separated by SEP.
-
-Set up the `crm' variables needed to read multiple values with
-`read-from-minibuffer'.
-
-SEP is a regexp matching characters that can separate choices.
-When SEP is nil, it defaults to `crm-default-separator'.
-DEFAULT, HIST, and KEYMAP are passed to `read-from-minibuffer'.
-When KEYMAP is nil, it defaults to `crm-local-completion-map'.
-
-Unlike `completing-read-multiple', the return value is not split
-into a list."
- (let* ((crm-separator (or sep crm-default-separator))
- (crm-completion-table (magit--completion-table choices))
- (choose-completion-string-functions
- '(crm--choose-completion-string))
- (minibuffer-completion-table #'crm--collection-fn)
- (minibuffer-completion-confirm t)
- (helm-completion-in-region-default-sort-fn nil)
- (input
- (cl-letf (((symbol-function 'completion-pcm--all-completions)
- #'magit-completion-pcm--all-completions))
- (read-from-minibuffer
- (concat prompt (and default (format " (%s)" default)) ": ")
- nil (or keymap crm-local-completion-map)
- nil hist default))))
- (when (string-equal input "")
- (or (setq input default)
- (user-error "Nothing selected")))
- input))
-
-(defun magit-completing-read-multiple*
- (prompt table &optional predicate require-match initial-input
- hist def inherit-input-method)
- "Read multiple strings in the minibuffer, with completion.
-Like `completing-read-multiple' but don't mess with order of
-TABLE. Also bind `helm-completion-in-region-default-sort-fn'
-to nil."
- (unwind-protect
- (cl-letf (((symbol-function 'completion-pcm--all-completions)
- #'magit-completion-pcm--all-completions))
- (add-hook 'choose-completion-string-functions
- 'crm--choose-completion-string)
- (let* ((minibuffer-completion-table #'crm--collection-fn)
- (minibuffer-completion-predicate predicate)
- ;; see completing_read in src/minibuf.c
- (minibuffer-completion-confirm
- (unless (eq require-match t) require-match))
- (crm-completion-table (magit--completion-table table))
- (map (if require-match
- crm-local-must-match-map
- crm-local-completion-map))
- (helm-completion-in-region-default-sort-fn nil)
- ;; If the user enters empty input, `read-from-minibuffer'
- ;; returns the empty string, not DEF.
- (input (read-from-minibuffer
- prompt initial-input map
- nil hist def inherit-input-method)))
- (and def (string-equal input "") (setq input def))
- ;; Remove empty strings in the list of read strings.
- (split-string input crm-separator t)))
- (remove-hook 'choose-completion-string-functions
- 'crm--choose-completion-string)))
-
-(defun magit-ido-completing-read
- (prompt choices &optional predicate require-match initial-input hist def)
- "Ido-based `completing-read' almost-replacement.
-
-Unfortunately `ido-completing-read' is not suitable as a
-drop-in replacement for `completing-read', instead we use
-`ido-completing-read+' from the third-party package by the
-same name."
- (if (require 'ido-completing-read+ nil t)
- (ido-completing-read+ prompt choices predicate require-match
- initial-input hist def)
- (display-warning 'magit "ido-completing-read+ is not installed
-
-To use Ido completion with Magit you need to install the
-third-party `ido-completing-read+' packages. Falling
-back to built-in `completing-read' for now." :error)
- (magit-builtin-completing-read prompt choices predicate require-match
- initial-input hist def)))
-
-(defun magit-prompt-with-default (prompt def)
- (if (and def (> (length prompt) 2)
- (string-equal ": " (substring prompt -2)))
- (format "%s (default %s): " (substring prompt 0 -2) def)
- prompt))
-
-(defvar magit-minibuffer-local-ns-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map minibuffer-local-map)
- (define-key map "\s" 'magit-whitespace-disallowed)
- (define-key map "\t" 'magit-whitespace-disallowed)
- map))
-
-(defun magit-whitespace-disallowed ()
- "Beep to tell the user that whitespace is not allowed."
- (interactive)
- (ding)
- (message "Whitespace isn't allowed here")
- (setq defining-kbd-macro nil)
- (force-mode-line-update))
-
-(defun magit-read-string (prompt &optional initial-input history default-value
- inherit-input-method no-whitespace)
- "Read a string from the minibuffer, prompting with string PROMPT.
-
-This is similar to `read-string', but
-* empty input is only allowed if DEFAULT-VALUE is non-nil in
- which case that is returned,
-* whitespace is not allowed and leading and trailing whitespace is
- removed automatically if NO-WHITESPACE is non-nil,
-* \": \" is appended to PROMPT, and
-* an invalid DEFAULT-VALUE is silently ignored."
- (when default-value
- (when (consp default-value)
- (setq default-value (car default-value)))
- (unless (stringp default-value)
- (setq default-value nil)))
- (let* ((minibuffer-completion-table nil)
- (val (read-from-minibuffer
- (magit-prompt-with-default (concat prompt ": ") default-value)
- initial-input (and no-whitespace magit-minibuffer-local-ns-map)
- nil history default-value inherit-input-method))
- (trim (lambda (regexp string)
- (save-match-data
- (if (string-match regexp string)
- (replace-match "" t t string)
- string)))))
- (when (and (string= val "") default-value)
- (setq val default-value))
- (when no-whitespace
- (setq val (funcall trim "\\`\\(?:[ \t\n\r]+\\)"
- (funcall trim "\\(?:[ \t\n\r]+\\)\\'" val))))
- (cond ((string= val "")
- (user-error "Need non-empty input"))
- ((and no-whitespace (string-match-p "[\s\t\n]" val))
- (user-error "Input contains whitespace"))
- (t val))))
-
-(defun magit-read-string-ns (prompt &optional initial-input history
- default-value inherit-input-method)
- "Call `magit-read-string' with non-nil NO-WHITESPACE."
- (magit-read-string prompt initial-input history default-value
- inherit-input-method t))
-
-(defmacro magit-read-char-case (prompt verbose &rest clauses)
- (declare (indent 2)
- (debug (form form &rest (characterp form body))))
- `(pcase (read-char-choice
- (concat ,prompt
- ,(concat (mapconcat 'cadr clauses ", ")
- (and verbose ", or [C-g] to abort") " "))
- ',(mapcar 'car clauses))
- ,@(--map `(,(car it) ,@(cddr it)) clauses)))
-
-(defun magit-y-or-n-p (prompt &optional action)
- "Ask user a \"y or n\" or a \"yes or no\" question using PROMPT.
-Which kind of question is used depends on whether
-ACTION is a member of option `magit-slow-confirm'."
- (if (or (eq magit-slow-confirm t)
- (and action (member action magit-slow-confirm)))
- (yes-or-no-p prompt)
- (y-or-n-p prompt)))
-
-(defvar magit--no-confirm-alist
- '((safe-with-wip magit-wip-before-change-mode
- discard reverse stage-all-changes unstage-all-changes)))
-
-(cl-defun magit-confirm (action &optional prompt prompt-n noabort
- (items nil sitems))
- (declare (indent defun))
- (setq prompt-n (format (concat (or prompt-n prompt) "? ") (length items)))
- (setq prompt (format (concat (or prompt (magit-confirm-make-prompt action))
- "? ")
- (car items)))
- (or (cond ((and (not (eq action t))
- (or (eq magit-no-confirm t)
- (memq action magit-no-confirm)
- (cl-member-if (pcase-lambda (`(,key ,var . ,sub))
- (and (memq key magit-no-confirm)
- (memq action sub)
- (or (not var)
- (and (boundp var)
- (symbol-value var)))))
- magit--no-confirm-alist)))
- (or (not sitems) items))
- ((not sitems)
- (magit-y-or-n-p prompt action))
- ((= (length items) 1)
- (and (magit-y-or-n-p prompt action) items))
- ((> (length items) 1)
- (and (magit-y-or-n-p (concat (mapconcat #'identity items "\n")
- "\n\n" prompt-n)
- action)
- items)))
- (if noabort nil (user-error "Abort"))))
-
-(defun magit-confirm-files (action files &optional prompt)
- (when files
- (unless prompt
- (setq prompt (magit-confirm-make-prompt action)))
- (magit-confirm action
- (concat prompt " %s")
- (concat prompt " %i files")
- nil files)))
-
-(defun magit-confirm-make-prompt (action)
- (let ((prompt (symbol-name action)))
- (replace-regexp-in-string
- "-" " " (concat (upcase (substring prompt 0 1)) (substring prompt 1)))))
-
-(defun magit-read-number-string (prompt &optional default)
- "Like `read-number' but return value is a string.
-DEFAULT may be a number or a numeric string."
- (number-to-string
- (read-number prompt (if (stringp default)
- (string-to-number default)
- default))))
-
-;;; Debug Utilities
-
-;;;###autoload
-(defun magit-emacs-Q-command ()
- "Show a shell command that runs an uncustomized Emacs with only Magit loaded.
-See info node `(magit)Debugging Tools' for more information."
- (interactive)
- (let ((cmd (mapconcat
- #'shell-quote-argument
- `(,(concat invocation-directory invocation-name)
- "-Q" "--eval" "(setq debug-on-error t)"
- ,@(cl-mapcan
- (lambda (dir) (list "-L" dir))
- (delete-dups
- (cl-mapcan
- (lambda (lib)
- (let ((path (locate-library lib)))
- (cond
- (path
- (list (file-name-directory path)))
- ((not (member lib '("lv" "transient")))
- (error "Cannot find mandatory dependency %s" lib)))))
- '(;; Like `LOAD_PATH' in `default.mk'.
- "dash"
- "ghub"
- "graphql"
- "lv"
- "magit-popup"
- "transient"
- "treepy"
- "with-editor"
- ;; Obviously `magit' itself is needed too.
- "magit"
- ;; While this is part of the Magit repository,
- ;; it is distributed as a separate package.
- "git-commit"
- ;; Even though `async' is a dependency of the
- ;; `magit' package, it is not required here.
- ))))
- ;; Avoid Emacs bug#16406 by using full path.
- "-l" ,(file-name-sans-extension (locate-library "magit")))
- " ")))
- (message "Uncustomized Magit command saved to kill-ring, %s"
- "please run it in a terminal.")
- (kill-new cmd)))
-
-;;; Text Utilities
-
-(defmacro magit-bind-match-strings (varlist string &rest body)
- "Bind variables to submatches according to VARLIST then evaluate BODY.
-Bind the symbols in VARLIST to submatches of the current match
-data, starting with 1 and incrementing by 1 for each symbol. If
-the last match was against a string, then that has to be provided
-as STRING."
- (declare (indent 2) (debug (listp form body)))
- (let ((s (cl-gensym "string"))
- (i 0))
- `(let ((,s ,string))
- (let ,(save-match-data
- (--map (list it (list 'match-string (cl-incf i) s)) varlist))
- ,@body))))
-
-(defun magit-delete-line ()
- "Delete the rest of the current line."
- (delete-region (point) (1+ (line-end-position))))
-
-(defun magit-delete-match (&optional num)
- "Delete text matched by last search.
-If optional NUM is specified, only delete that subexpression."
- (delete-region (match-beginning (or num 0))
- (match-end (or num 0))))
-
-(defun magit-file-line (file)
- "Return the first line of FILE as a string."
- (when (file-regular-p file)
- (with-temp-buffer
- (insert-file-contents file)
- (buffer-substring-no-properties (point-min)
- (line-end-position)))))
-
-(defun magit-file-lines (file &optional keep-empty-lines)
- "Return a list of strings containing one element per line in FILE.
-Unless optional argument KEEP-EMPTY-LINES is t, trim all empty lines."
- (when (file-regular-p file)
- (with-temp-buffer
- (insert-file-contents file)
- (split-string (buffer-string) "\n" (not keep-empty-lines)))))
-
-(defun magit-set-header-line-format (string)
- "Set the header-line using STRING.
-Propertize STRING with the `magit-header-line' face if no face is
-present, and pad the left and right sides of STRING equally such
-that it will align with the text area."
- (let* ((header-line
- (concat (propertize " "
- 'display
- '(space :align-to 0))
- string
- (propertize
- " "
- 'display
- `(space :width (+ left-fringe
- left-margin
- ,@(and (eq (car (window-current-scroll-bars))
- 'left)
- '(scroll-bar)))))))
- (len (length header-line)))
- (setq header-line-format
- (if (text-property-not-all 0 len 'face nil header-line)
- (let ((face (get-text-property 0 'face string)))
- (when (and (atom face)
- (magit-face-property-all face string))
- (add-face-text-property 0 1 face nil header-line)
- (add-face-text-property (1- len) len face nil header-line))
- header-line)
- (propertize header-line
- 'face
- 'magit-header-line)))))
-
-(defun magit-face-property-all (face string)
- "Return non-nil if FACE is present in all of STRING."
- (cl-loop for pos = 0 then (next-single-property-change pos 'face string)
- unless pos
- return t
- for current = (get-text-property pos 'face string)
- unless (if (consp current)
- (memq face current)
- (eq face current))
- return nil))
-
-(defun magit--format-spec (format specification)
- "Like `format-spec' but preserve text properties in SPECIFICATION."
- (with-temp-buffer
- (insert format)
- (goto-char (point-min))
- (while (search-forward "%" nil t)
- (cond
- ;; Quoted percent sign.
- ((eq (char-after) ?%)
- (delete-char 1))
- ;; Valid format spec.
- ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
- (let* ((num (match-string 1))
- (spec (string-to-char (match-string 2)))
- (val (assq spec specification)))
- (unless val
- (error "Invalid format character: `%%%c'" spec))
- (setq val (cdr val))
- ;; Pad result to desired length.
- (let ((text (format (concat "%" num "s") val)))
- ;; Insert first, to preserve text properties.
- (if (next-property-change 0 (concat " " text))
- ;; If the inserted text has properties, then preserve those.
- (insert text)
- ;; Otherwise preserve FORMAT's properties, like `format-spec'.
- (insert-and-inherit text))
- ;; Delete the specifier body.
- (delete-region (+ (match-beginning 0) (length text))
- (+ (match-end 0) (length text)))
- ;; Delete the percent sign.
- (delete-region (1- (match-beginning 0)) (match-beginning 0)))))
- ;; Signal an error on bogus format strings.
- (t
- (error "Invalid format string"))))
- (buffer-string)))
-
-;;; Missing from Emacs
-
-(defun magit-kill-this-buffer ()
- "Kill the current buffer."
- (interactive)
- (kill-buffer (current-buffer)))
-
-;;; Kludges for Emacs Bugs
-
-(defun magit-file-accessible-directory-p (filename)
- "Like `file-accessible-directory-p' but work around an Apple bug.
-See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=21573#17
-and https://github.com/magit/magit/issues/2295."
- (and (file-directory-p filename)
- (file-accessible-directory-p filename)))
-
-(when (version<= "25.1" emacs-version)
- (with-eval-after-load 'vc-git
- (defun vc-git-conflicted-files (directory)
- "Return the list of files with conflicts in DIRECTORY."
- (let* ((status
- (vc-git--run-command-string directory "diff-files"
- "--name-status"))
- (lines (when status (split-string status "\n" 'omit-nulls)))
- files)
- (dolist (line lines files)
- (when (string-match "\\([ MADRCU?!]\\)[ \t]+\\(.+\\)" line)
- (let ((state (match-string 1 line))
- (file (match-string 2 line)))
- (when (equal state "U")
- (push (expand-file-name file directory) files)))))))))
-
-(when (< emacs-major-version 27)
- (defun vc-git--call@bug21559 (fn buffer command &rest args)
- "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
- (let ((process-environment process-environment))
- (when revert-buffer-in-progress-p
- (push "GIT_OPTIONAL_LOCKS=0" process-environment))
- (apply fn buffer command args)))
- (advice-add 'vc-git--call :around 'vc-git--call@bug21559)
-
- (defun vc-git-command@bug21559
- (fn buffer okstatus file-or-list &rest flags)
- "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
- (let ((process-environment process-environment))
- (when revert-buffer-in-progress-p
- (push "GIT_OPTIONAL_LOCKS=0" process-environment))
- (apply fn buffer okstatus file-or-list flags)))
- (advice-add 'vc-git-command :around 'vc-git-command@bug21559)
-
- (defun auto-revert-handler@bug21559 (fn)
- "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
- (let ((revert-buffer-in-progress-p t))
- (funcall fn)))
- (advice-add 'auto-revert-handler :around 'auto-revert-handler@bug21559)
- )
-
-;; `completion-pcm--all-completions' reverses the completion list. To
-;; preserve the order of our pre-sorted completions, we'll temporarily
-;; override it with the function below. bug#24676
-(defun magit-completion-pcm--all-completions (prefix pattern table pred)
- (if (completion-pcm--pattern-trivial-p pattern)
- (all-completions (concat prefix (car pattern)) table pred)
- (let* ((regex (completion-pcm--pattern->regex pattern))
- (case-fold-search completion-ignore-case)
- (completion-regexp-list (cons regex completion-regexp-list))
- (compl (all-completions
- (concat prefix
- (if (stringp (car pattern)) (car pattern) ""))
- table pred)))
- (if (not (functionp table))
- compl
- (let ((poss ()))
- (dolist (c compl)
- (when (string-match-p regex c) (push c poss)))
- ;; This `nreverse' call is the only code change made to the
- ;; `completion-pcm--all-completions' that shipped with Emacs 25.1.
- (nreverse poss))))))
-
-;;; Kludges for Incompatible Modes
-
-(defvar whitespace-mode)
-
-(defun whitespace-dont-turn-on-in-magit-mode (fn)
- "Prevent `whitespace-mode' from being turned on in Magit buffers.
-
-Because `whitespace-mode' uses font-lock and Magit does not, they
-are not compatible. Therefore you cannot turn on that minor-mode
-in Magit buffers. If you try to enable it anyway, then this
-advice prevents that.
-
-If the reason the attempt is made is that `global-whitespace-mode'
-is enabled, then that is done silently. However if you call the local
-minor-mode interactively, then that results in an error.
-
-See `magit-diff-paint-whitespace' for an alternative."
- (if (not (derived-mode-p 'magit-mode))
- (funcall fn)
- (setq whitespace-mode nil)
- (when (eq this-command 'whitespace-mode)
- (user-error
- "Whitespace mode NOT enabled because it is not compatible with Magit"))))
-
-(advice-add 'whitespace-turn-on :around
- 'whitespace-dont-turn-on-in-magit-mode)
-
-;;; Kludges for Custom
-
-(defun magit-custom-initialize-reset (symbol exp)
- "Initialize SYMBOL based on EXP.
-Set the symbol, using `set-default' (unlike
-`custom-initialize-reset' which uses the `:set' function if any.)
-The value is either the symbol's current value
- (as obtained using the `:get' function), if any,
-or the value in the symbol's `saved-value' property if any,
-or (last of all) the value of EXP."
- (set-default-toplevel-value
- symbol
- (condition-case nil
- (let ((def (default-toplevel-value symbol))
- (getter (get symbol 'custom-get)))
- (if getter (funcall getter symbol) def))
- (error
- (eval (let ((sv (get symbol 'saved-value)))
- (if sv (car sv) exp)))))))
-
-(defun magit-hook-custom-get (symbol)
- (if (symbol-file symbol 'defvar)
- (default-toplevel-value symbol)
- ;;
- ;; Called by `custom-initialize-reset' on behalf of `symbol's
- ;; `defcustom', which is being evaluated for the first time to
- ;; set the initial value, but there's already a default value,
- ;; which most likely was established by one or more `add-hook'
- ;; calls.
- ;;
- ;; We combine the `standard-value' and the current value, while
- ;; preserving the order established by `:options', and return
- ;; the result of that to be used as the "initial" default value.
- ;;
- (let ((standard (eval (car (get symbol 'standard-value))))
- (current (default-toplevel-value symbol))
- (value nil))
- (dolist (fn (get symbol 'custom-options))
- (when (or (memq fn standard)
- (memq fn current))
- (push fn value)))
- (dolist (fn current)
- (unless (memq fn value)
- (push fn value)))
- (nreverse value))))
-
-;;; Kludges for Info Manuals
-
-;;;###autoload
-(defun Info-follow-nearest-node--magit-gitman (fn &optional fork)
- (if magit-view-git-manual-method
- (let ((node (Info-get-token
- (point) "\\*note[ \n\t]+"
- "\\*note[ \n\t]+\\([^:]*\\):\\(:\\|[ \n\t]*(\\)?")))
- (if (and node (string-match "^(gitman)\\(.+\\)" node))
- (pcase magit-view-git-manual-method
- (`man (require 'man)
- (man (match-string 1 node)))
- (`woman (require 'woman)
- (woman (match-string 1 node)))
- (_
- (user-error "Invalid value for `magit-view-git-documentation'")))
- (funcall fn fork)))
- (funcall fn fork)))
-
-;;;###autoload
-(advice-add 'Info-follow-nearest-node :around
- 'Info-follow-nearest-node--magit-gitman)
-
-;;;###autoload
-(defun org-man-export--magit-gitman (fn link description format)
- (if (and (eq format 'texinfo)
- (string-match-p "\\`git" link))
- (replace-regexp-in-string "%s" link "
-@ifinfo
-@ref{%s,,,gitman,}.
-@end ifinfo
-@ifhtml
-@html
-the <a href=\"http://git-scm.com/docs/%s\">%s(1)</a> manpage.
-@end html
-@end ifhtml
-@iftex
-the %s(1) manpage.
-@end iftex
-")
- (funcall fn link description format)))
-
-;;;###autoload
-(advice-add 'org-man-export :around
- 'org-man-export--magit-gitman)
-
-;;; Miscellaneous
-
-(defun magit-message (format-string &rest args)
- "Display a message at the bottom of the screen, or not.
-Like `message', except that if the users configured option
-`magit-no-message' to prevent the message corresponding to
-FORMAT-STRING to be displayed, then don't."
- (unless (--first (string-prefix-p it format-string) magit-no-message)
- (apply #'message format-string args)))
-
-(defun magit-msg (format-string &rest args)
- "Display a message at the bottom of the screen, but don't log it.
-Like `message', except that `message-log-max' is bound to nil."
- (let ((message-log-max nil))
- (apply #'message format-string args)))
-
-;;; _
-(provide 'magit-utils)
-;;; magit-utils.el ends here
diff --git a/elpa/magit-20181116.1412/magit-utils.elc b/elpa/magit-20181116.1412/magit-utils.elc
deleted file mode 100644
index de306c1..0000000
--- a/elpa/magit-20181116.1412/magit-utils.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-wip.el b/elpa/magit-20181116.1412/magit-wip.el
deleted file mode 100644
index 10c085b..0000000
--- a/elpa/magit-20181116.1412/magit-wip.el
+++ /dev/null
@@ -1,432 +0,0 @@
-;;; magit-wip.el --- commit snapshots to work-in-progress refs -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library defines tree global modes which automatically commit
-;; snapshots to branch-specific work-in-progress refs before and after
-;; making changes, and two commands which can be used to do so on
-;; demand.
-
-;;; Code:
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'magit-core)
-(require 'magit-log)
-
-;;; Options
-
-(defgroup magit-wip nil
- "Automatically commit to work-in-progress refs."
- :link '(info-link "(magit)Wip Modes")
- :group 'magit-modes
- :group 'magit-essentials)
-
-(defgroup magit-wip-legacy nil
- "It is better to not use these modes individually."
- :link '(info-link "(magit)Legacy Wip Modes")
- :group 'magit-wip)
-
-(defcustom magit-wip-mode-lighter " Wip"
- "Lighter for Magit-Wip mode."
- :package-version '(magit . "2.90.0")
- :group 'magit-wip
- :type 'string)
-
-(defcustom magit-wip-after-save-local-mode-lighter ""
- "Lighter for Magit-Wip-After-Save-Local mode."
- :package-version '(magit . "2.1.0")
- :group 'magit-wip-legacy
- :type 'string)
-
-(defcustom magit-wip-after-apply-mode-lighter ""
- "Lighter for Magit-Wip-After-Apply mode."
- :package-version '(magit . "2.1.0")
- :group 'magit-wip-legacy
- :type 'string)
-
-(defcustom magit-wip-before-change-mode-lighter ""
- "Lighter for Magit-Wip-Before-Change mode."
- :package-version '(magit . "2.1.0")
- :group 'magit-wip-legacy
- :type 'string)
-
-(defcustom magit-wip-initial-backup-mode-lighter ""
- "Lighter for Magit-Wip-Initial Backup mode."
- :package-version '(magit . "2.1.0")
- :group 'magit-wip-legacy
- :type 'string)
-
-(defcustom magit-wip-merge-branch nil
- "Whether to merge the current branch into its wip ref.
-
-If non-nil and the current branch has new commits, then it is
-merged into the wip ref before creating a new wip commit. This
-makes it easier to inspect wip history and the wip commits are
-never garbage collected.
-
-If nil and the current branch has new commits, then the wip ref
-is reset to the tip of the branch before creating a new wip
-commit. With this setting wip commits are eventually garbage
-collected. This is currently the default."
- :package-version '(magit . "2.90.0")
- :group 'magit-wip
- :type 'boolean)
-
-(defcustom magit-wip-namespace "refs/wip/"
- "Namespace used for work-in-progress refs.
-The wip refs are named \"<namespace/>index/<branchref>\"
-and \"<namespace/>wtree/<branchref>\". When snapshots
-are created while the `HEAD' is detached then \"HEAD\"
-is used as `branch-ref'."
- :package-version '(magit . "2.1.0")
- :group 'magit-wip
- :type 'string)
-
-;;; Modes
-
-(define-minor-mode magit-wip-mode
- "Save uncommitted changes to work-in-progress refs.
-
-Whenever appropriate (i.e. when dataloss would be a possibility
-otherwise) this mode causes uncommitted changes to be committed
-to dedicated work-in-progress refs.
-
-For historic reasons this mode is implemented on top of four
-other `magit-wip-*' modes, which can also be used individually,
-if you want finer control over when the wip refs are updated;
-but that is discouraged."
- :package-version '(magit . "2.90.0")
- :lighter magit-wip-mode-lighter
- :global t
- (let ((arg (if magit-wip-mode 1 -1)))
- (magit-wip-after-save-mode arg)
- (magit-wip-after-apply-mode arg)
- (magit-wip-before-change-mode arg)
- (magit-wip-initial-backup-mode arg)))
-
-(define-minor-mode magit-wip-after-save-local-mode
- "After saving, also commit to a worktree work-in-progress ref.
-
-After saving the current file-visiting buffer this mode also
-commits the changes to the worktree work-in-progress ref for
-the current branch.
-
-This mode should be enabled globally by turning on the globalized
-variant `magit-wip-after-save-mode'."
- :package-version '(magit . "2.1.0")
- :lighter magit-wip-after-save-local-mode-lighter
- (if magit-wip-after-save-local-mode
- (if (and buffer-file-name (magit-inside-worktree-p t))
- (add-hook 'after-save-hook 'magit-wip-commit-buffer-file t t)
- (setq magit-wip-after-save-local-mode nil)
- (user-error "Need a worktree and a file"))
- (remove-hook 'after-save-hook 'magit-wip-commit-buffer-file t)))
-
-(defun magit-wip-after-save-local-mode-turn-on ()
- (and buffer-file-name
- (magit-inside-worktree-p t)
- (magit-file-tracked-p buffer-file-name)
- (magit-wip-after-save-local-mode)))
-
-;;;###autoload
-(define-globalized-minor-mode magit-wip-after-save-mode
- magit-wip-after-save-local-mode magit-wip-after-save-local-mode-turn-on
- :package-version '(magit . "2.1.0")
- :group 'magit-wip)
-
-(defun magit-wip-commit-buffer-file (&optional msg)
- "Commit visited file to a worktree work-in-progress ref.
-
-Also see `magit-wip-after-save-mode' which calls this function
-automatically whenever a buffer visiting a tracked file is saved."
- (interactive)
- (--when-let (magit-wip-get-ref)
- (magit-with-toplevel
- (let ((file (file-relative-name buffer-file-name)))
- (magit-wip-commit-worktree
- it (list file)
- (format (cond (msg)
- ((called-interactively-p 'any)
- "wip-save %s after save")
- (t
- "autosave %s after save"))
- file))))))
-
-;;;###autoload
-(define-minor-mode magit-wip-after-apply-mode
- "Commit to work-in-progress refs.
-
-After applying a change using any \"apply variant\"
-command (apply, stage, unstage, discard, and reverse) commit the
-affected files to the current wip refs. For each branch there
-may be two wip refs; one contains snapshots of the files as found
-in the worktree and the other contains snapshots of the entries
-in the index."
- :package-version '(magit . "2.1.0")
- :group 'magit-wip
- :lighter magit-wip-after-apply-mode-lighter
- :global t)
-
-(defun magit-wip-commit-after-apply (&optional files msg)
- (when magit-wip-after-apply-mode
- (magit-wip-commit files msg)))
-
-;;;###autoload
-(define-minor-mode magit-wip-before-change-mode
- "Commit to work-in-progress refs before certain destructive changes.
-
-Before invoking a revert command or an \"apply variant\"
-command (apply, stage, unstage, discard, and reverse) commit the
-affected tracked files to the current wip refs. For each branch
-there may be two wip refs; one contains snapshots of the files
-as found in the worktree and the other contains snapshots of the
-entries in the index.
-
-Only changes to files which could potentially be affected by the
-command which is about to be called are committed."
- :package-version '(magit . "2.1.0")
- :group 'magit-wip
- :lighter magit-wip-before-change-mode-lighter
- :global t)
-
-(defun magit-wip-commit-before-change (&optional files msg)
- (when magit-wip-before-change-mode
- (magit-with-toplevel
- (magit-wip-commit files msg))))
-
-(define-minor-mode magit-wip-initial-backup-mode
- "Before saving a buffer for the first time, commit to a wip ref."
- :package-version '(magit . "2.90.0")
- :group 'magit-wip
- :lighter magit-wip-initial-backup-mode-lighter
- :global t
- (if magit-wip-initial-backup-mode
- (add-hook 'before-save-hook 'magit-wip-commit-initial-backup)
- (remove-hook 'before-save-hook 'magit-wip-commit-initial-backup)))
-
-(defvar-local magit-wip-buffer-backed-up nil)
-(put 'magit-wip-buffer-backed-up 'permanent-local t)
-
-;;;###autoload
-(defun magit-wip-commit-initial-backup ()
- "Before saving, commit current file to a worktree wip ref.
-
-The user has to add this function to `before-save-hook'.
-
-Commit the current state of the visited file before saving the
-current buffer to that file. This backs up the same version of
-the file as `backup-buffer' would, but stores the backup in the
-worktree wip ref, which is also used by the various Magit Wip
-modes, instead of in a backup file as `backup-buffer' would.
-
-This function ignores the variables that affect `backup-buffer'
-and can be used along-side that function, which is recommended
-because this function only backs up files that are tracked in
-a Git repository."
- (when (and (not magit-wip-buffer-backed-up)
- buffer-file-name
- (magit-inside-worktree-p t)
- (magit-file-tracked-p buffer-file-name))
- (let ((magit-save-repository-buffers nil))
- (magit-wip-commit-buffer-file "autosave %s before save"))
- (setq magit-wip-buffer-backed-up t)))
-
-;;; Core
-
-(defun magit-wip-commit (&optional files msg)
- "Commit all tracked files to the work-in-progress refs.
-
-Interactively, commit all changes to all tracked files using
-a generic commit message. With a prefix-argument the commit
-message is read in the minibuffer.
-
-Non-interactively, only commit changes to FILES using MSG as
-commit message."
- (interactive (list nil (if current-prefix-arg
- (magit-read-string "Wip commit message")
- "wip-save tracked files")))
- (--when-let (magit-wip-get-ref)
- (magit-wip-commit-index it files msg)
- (magit-wip-commit-worktree it files msg)))
-
-(defun magit-wip-commit-index (ref files msg)
- (let* ((wipref (magit--wip-index-ref ref))
- (parent (magit-wip-get-parent ref wipref))
- (tree (magit-git-string "write-tree")))
- (magit-wip-update-wipref ref wipref tree parent files msg "index")))
-
-(defun magit-wip-commit-worktree (ref files msg)
- (let* ((wipref (magit--wip-wtree-ref ref))
- (parent (magit-wip-get-parent ref wipref))
- (tree (magit-with-temp-index parent "--reset"
- (if files
- (magit-call-git "add" "--" files)
- (magit-with-toplevel
- (magit-call-git "add" "-u" ".")))
- (magit-git-string "write-tree"))))
- (magit-wip-update-wipref ref wipref tree parent files msg "worktree")))
-
-(defun magit-wip-update-wipref (ref wipref tree parent files msg start-msg)
- (cond
- ((and (not (equal parent wipref))
- (or (not magit-wip-merge-branch)
- (not (magit-rev-verify wipref))))
- (setq start-msg (concat "start autosaving " start-msg))
- (magit-update-ref wipref start-msg
- (magit-git-string "commit-tree" "--no-gpg-sign"
- "-p" parent "-m" start-msg
- (concat parent "^{tree}")))
- (setq parent wipref))
- ((and magit-wip-merge-branch
- (or (not (magit-rev-ancestor-p ref wipref))
- (not (magit-rev-ancestor-p
- (concat (magit-git-string "log" "--format=%H"
- "-1" "--merges" wipref)
- "^2")
- ref))))
- (setq start-msg (format "merge %s into %s" ref start-msg))
- (magit-update-ref wipref start-msg
- (magit-git-string "commit-tree" "--no-gpg-sign"
- "-p" wipref "-p" ref
- "-m" start-msg
- (concat ref "^{tree}")))
- (setq parent wipref)))
- (when (magit-git-failure "diff-tree" "--quiet" parent tree "--" files)
- (unless (and msg (not (= (aref msg 0) ?\s)))
- (let ((len (length files)))
- (setq msg (concat
- (cond ((= len 0) "autosave tracked files")
- ((> len 1) (format "autosave %s files" len))
- (t (concat "autosave "
- (file-relative-name (car files)
- (magit-toplevel)))))
- msg))))
- (magit-update-ref wipref msg
- (magit-git-string "commit-tree" "--no-gpg-sign"
- "-p" parent "-m" msg tree))))
-
-(defun magit-wip-get-ref ()
- (let ((ref (or (magit-git-string "symbolic-ref" "HEAD") "HEAD")))
- (and (magit-rev-verify ref)
- ref)))
-
-(defun magit-wip-get-parent (ref wipref)
- (if (and (magit-rev-verify wipref)
- (equal (magit-git-string "merge-base" wipref ref)
- (magit-rev-verify ref)))
- wipref
- ref))
-
-(defun magit--wip-index-ref (&optional ref)
- (magit--wip-ref "index/" ref))
-
-(defun magit--wip-wtree-ref (&optional ref)
- (magit--wip-ref "wtree/" ref))
-
-(defun magit--wip-ref (namespace &optional ref)
- (concat magit-wip-namespace namespace
- (or (and ref (string-prefix-p "refs/" ref) ref)
- (when-let ((branch (or ref (magit-get-current-branch))))
- (concat "refs/heads/" branch))
- "HEAD")))
-
-(defun magit-wip-maybe-add-commit-hook ()
- (when (and magit-wip-merge-branch
- (magit-wip-any-enabled-p))
- (add-hook 'git-commit-post-finish-hook 'magit-wip-commit nil t)))
-
-(defun magit-wip-any-enabled-p ()
- (or magit-wip-mode
- magit-wip-after-save-local-mode
- magit-wip-after-save-mode
- magit-wip-after-apply-mode
- magit-wip-before-change-mode
- magit-wip-initial-backup-mode))
-
-;;; Log
-
-(defun magit-wip-log-index (args files)
- "Show log for the index wip ref of the current branch."
- (interactive (magit-log-arguments))
- (magit-git-log (list (magit--wip-index-ref)) args files))
-
-(defun magit-wip-log-worktree (args files)
- "Show log for the worktree wip ref of the current branch."
- (interactive (magit-log-arguments))
- (magit-git-log (list (magit--wip-wtree-ref)) args files))
-
-(defun magit-wip-log-current (branch args files count)
- "Show log for the current branch and its wip refs.
-With a negative prefix argument only show the worktree wip ref.
-The absolute numeric value of the prefix argument controls how
-many \"branches\" of each wip ref are shown."
- (interactive
- (nconc (list (or (magit-get-current-branch) "HEAD"))
- (magit-log-arguments)
- (list (prefix-numeric-value current-prefix-arg))))
- (magit-wip-log branch args files count))
-
-(defun magit-wip-log (branch args files count)
- "Show log for a branch and its wip refs.
-With a negative prefix argument only show the worktree wip ref.
-The absolute numeric value of the prefix argument controls how
-many \"branches\" of each wip ref are shown."
- (interactive
- (nconc (list (magit-completing-read
- "Log branch and its wip refs"
- (-snoc (magit-list-local-branch-names) "HEAD")
- nil t nil 'magit-revision-history
- (or (magit-branch-at-point)
- (magit-get-current-branch)
- "HEAD")))
- (magit-log-arguments)
- (list (prefix-numeric-value current-prefix-arg))))
- (magit-git-log (nconc (list branch)
- (magit-wip-log-get-tips
- (magit--wip-wtree-ref branch)
- (abs count))
- (and (>= count 0)
- (magit-wip-log-get-tips
- (magit--wip-index-ref branch)
- (abs count))))
- args files))
-
-(defun magit-wip-log-get-tips (wipref count)
- (when-let ((reflog (magit-git-lines "reflog" wipref)))
- (let (tips)
- (while (and reflog (> count 1))
- (setq reflog (cl-member "^[^ ]+ [^:]+: restart autosaving"
- reflog :test #'string-match-p))
- (when (and (cadr reflog)
- (string-match "^[^ ]+ \\([^:]+\\)" (cadr reflog)))
- (push (match-string 1 (cadr reflog)) tips))
- (setq reflog (cddr reflog))
- (cl-decf count))
- (cons wipref (nreverse tips)))))
-
-;;; _
-(provide 'magit-wip)
-;;; magit-wip.el ends here
diff --git a/elpa/magit-20181116.1412/magit-wip.elc b/elpa/magit-20181116.1412/magit-wip.elc
deleted file mode 100644
index 5688544..0000000
--- a/elpa/magit-20181116.1412/magit-wip.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit-worktree.el b/elpa/magit-20181116.1412/magit-worktree.el
deleted file mode 100644
index 08941e5..0000000
--- a/elpa/magit-20181116.1412/magit-worktree.el
+++ /dev/null
@@ -1,175 +0,0 @@
-;;; magit-worktree.el --- worktree support -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This library implements support for `git-worktree'.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-worktree-popup "magit-worktree" nil t)
-(magit-define-popup magit-worktree-popup
- "Popup console for worktree commands."
- :man-page "git-worktree"
- :actions `((?b "Create new worktree" magit-worktree-checkout)
- (?c "Create new branch and worktree" magit-worktree-branch)
- ,@(and (not (require (quote forge) nil t))
- '((?p "Create new worktree from pull-request"
- magit-worktree-checkout-pull-request)))
- (?k "Delete worktree" magit-worktree-delete)
- (?g "Show status for worktree" magit-worktree-status))
- :max-action-columns 1)
-
-;;;###autoload
-(defun magit-worktree-checkout (path branch)
- "Checkout BRANCH in a new worktree at PATH."
- (interactive
- (let ((branch (magit-read-local-branch-or-commit "Checkout")))
- (list (read-directory-name (format "Checkout %s in new worktree: " branch))
- branch)))
- (magit-run-git "worktree" "add" (expand-file-name path) branch)
- (magit-diff-visit-directory path))
-
-(defun magit-worktree-checkout-pull-request (path pr)
- "Create, configure and checkout a new worktree from a pull-request.
-This is like `magit-checkout-pull-request', except that it
-also creates a new worktree. Please see the manual for more
-information."
- (interactive
- (let ((pr (magit-read-pull-request "Checkout pull request")))
- (let-alist pr
- (let ((path (let ((branch (magit--pullreq-branch pr t)))
- (read-directory-name
- (format "Checkout #%s as `%s' in new worktree: "
- .number branch)
- (file-name-directory
- (directory-file-name default-directory))
- nil nil
- (if (string-match-p "\\`pr-[0-9]+\\'" branch)
- (number-to-string .number)
- (format "%s-%s" .number .head.ref))))))
- (when (equal path "")
- (user-error "The empty string isn't a valid path"))
- (list path pr)))))
- (when (and (file-exists-p path)
- (not (and (file-directory-p path)
- (= (length (directory-files "/tmp/testing/")) 2))))
- (user-error "%s already exists and isn't empty" path))
- (magit-worktree-checkout path
- (let ((inhibit-magit-refresh t))
- (magit-branch-pull-request pr))))
-
-;;;###autoload
-(defun magit-worktree-branch (path branch start-point &optional force)
- "Create a new BRANCH and check it out in a new worktree at PATH."
- (interactive
- `(,(read-directory-name "Create worktree: ")
- ,@(butlast (magit-branch-read-args "Create and checkout branch"))
- ,current-prefix-arg))
- (magit-run-git "worktree" "add" (if force "-B" "-b")
- branch (expand-file-name path) start-point)
- (magit-diff-visit-directory path))
-
-(defun magit-worktree-delete (worktree)
- "Delete a worktree, defaulting to the worktree at point.
-The primary worktree cannot be deleted."
- (interactive
- (list (magit-completing-read "Delete worktree"
- (cdr (magit-list-worktrees))
- nil t nil nil
- (magit-section-value-if 'worktree))))
- (if (file-directory-p (expand-file-name ".git" worktree))
- (user-error "Deleting %s would delete the shared .git directory" worktree)
- (let ((primary (file-name-as-directory (caar (magit-list-worktrees)))))
- (magit-confirm-files (if magit-delete-by-moving-to-trash 'trash 'delete)
- (list "worktree"))
- (when (file-exists-p worktree)
- (let ((delete-by-moving-to-trash magit-delete-by-moving-to-trash))
- (delete-directory worktree t magit-delete-by-moving-to-trash)))
- (if (file-exists-p default-directory)
- (magit-run-git "worktree" "prune")
- (let ((default-directory primary))
- (magit-run-git "worktree" "prune"))
- (when (derived-mode-p 'magit-status-mode)
- (kill-buffer)
- (magit-status-internal primary))))))
-
-(defun magit-worktree-status (worktree)
- "Show the status for the worktree at point.
-If there is no worktree at point, then read one in the
-minibuffer. If the worktree at point is the one whose
-status is already being displayed in the current buffer,
-then show it in Dired instead."
- (interactive
- (list (or (magit-section-value-if 'worktree)
- (magit-completing-read
- "Show status for worktree"
- (cl-delete (directory-file-name (magit-toplevel))
- (magit-list-worktrees)
- :test #'equal :key #'car)))))
- (magit-diff-visit-directory worktree))
-
-;;; Sections
-
-(defvar magit-worktree-section-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap magit-visit-thing] 'magit-worktree-status)
- (define-key map [remap magit-delete-thing] 'magit-worktree-delete)
- map)
- "Keymap for `worktree' sections.")
-
-(defun magit-insert-worktrees ()
- "Insert sections for all worktrees.
-If there is only one worktree, then insert nothing."
- (let ((worktrees (magit-list-worktrees)))
- (when (> (length worktrees) 1)
- (magit-insert-section (worktrees)
- (magit-insert-heading "Worktrees:")
- (let* ((cols
- (mapcar (pcase-lambda (`(,path ,barep ,commit ,branch))
- (cons (cond
- (branch (propertize branch
- 'face 'magit-branch-local))
- (commit (propertize (magit-rev-abbrev commit)
- 'face 'magit-hash))
- (barep "(bare)"))
- path))
- worktrees))
- (align (1+ (-max (--map (string-width (car it)) cols)))))
- (pcase-dolist (`(,head . ,path) cols)
- (magit-insert-section (worktree path)
- (insert head)
- (indent-to align)
- (insert (let ((r (file-relative-name path))
- (a (abbreviate-file-name path)))
- (if (< (string-width r) (string-width a)) r a)))
- (insert ?\n))))
- (insert ?\n)))))
-
-;;; _
-(provide 'magit-worktree)
-;;; magit-worktree.el ends here
diff --git a/elpa/magit-20181116.1412/magit-worktree.elc b/elpa/magit-20181116.1412/magit-worktree.elc
deleted file mode 100644
index e2cdd71..0000000
--- a/elpa/magit-20181116.1412/magit-worktree.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit.el b/elpa/magit-20181116.1412/magit.el
deleted file mode 100644
index 5bd9146..0000000
--- a/elpa/magit-20181116.1412/magit.el
+++ /dev/null
@@ -1,630 +0,0 @@
-;;; magit.el --- A Git porcelain inside Emacs -*- lexical-binding: t; coding: utf-8 -*-
-
-;; Copyright (C) 2008-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; Author: Marius Vollmer <marius.vollmer@gmail.com>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-;; Kyle Meyer <kyle@kyleam.com>
-;; Noam Postavsky <npostavs@users.sourceforge.net>
-;; Former-Maintainers:
-;; Nicolas Dudebout <nicolas.dudebout@gatech.edu>
-;; Peter J. Weisberg <pj@irregularexpressions.net>
-;; Phil Jackson <phil@shellarchive.co.uk>
-;; Rémi Vanicat <vanicat@debian.org>
-;; Yann Hodique <yann.hodique@gmail.com>
-
-;; Keywords: git tools vc
-;; Homepage: https://github.com/magit/magit
-
-;; Magit requires at least GNU Emacs 25.1 and Git 2.0.0.
-
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit 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 Magit. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; Magit is an interface to the version control system Git,
-;; implemented as an Emacs package. Magit aspires to be a complete
-;; Git porcelain. While we cannot (yet) claim, that Magit wraps and
-;; improves upon each and every Git command, it is complete enough to
-;; allow even experienced Git users to perform almost all of their
-;; daily version control tasks directly from within Emacs. While many
-;; fine Git clients exist, only Magit and Git itself deserve to be
-;; called porcelains.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dash)
-
-(eval-when-compile
- (require 'subr-x))
-
-(require 'with-editor)
-(require 'git-commit)
-(require 'magit-core)
-(require 'magit-diff)
-(require 'magit-apply)
-(require 'magit-log)
-(require 'magit-repos)
-
-(require 'format-spec)
-(require 'package nil t) ; used in `magit-version'
-
-(defconst magit--minimal-git "2.0.0")
-(defconst magit--minimal-emacs "25.1")
-
-;;; Faces
-
-(defface magit-header-line
- '((t :inherit magit-section-heading))
- "Face for the `header-line' in some Magit modes.
-Note that some modes, such as `magit-log-select-mode', have their
-own faces for the `header-line', or for parts of the
-`header-line'."
- :group 'magit-faces)
-
-(defface magit-header-line-key
- '((t :inherit magit-popup-key))
- "Face for keys in the `header-line'."
- :group 'magit-faces)
-
-(defface magit-dimmed
- '((((class color) (background light)) :foreground "grey50")
- (((class color) (background dark)) :foreground "grey50"))
- "Face for text that shouldn't stand out."
- :group 'magit-faces)
-
-(defface magit-hash
- '((((class color) (background light)) :foreground "grey60")
- (((class color) (background dark)) :foreground "grey40"))
- "Face for the sha1 part of the log output."
- :group 'magit-faces)
-
-(defface magit-tag
- '((((class color) (background light)) :foreground "Goldenrod4")
- (((class color) (background dark)) :foreground "LightGoldenrod2"))
- "Face for tag labels shown in log buffer."
- :group 'magit-faces)
-
-(defface magit-branch-remote
- '((((class color) (background light)) :foreground "DarkOliveGreen4")
- (((class color) (background dark)) :foreground "DarkSeaGreen2"))
- "Face for remote branch head labels shown in log buffer."
- :group 'magit-faces)
-
-(defface magit-branch-remote-head
- '((((class color) (background light)) :inherit magit-branch-remote :box t)
- (((class color) (background dark)) :inherit magit-branch-remote :box t))
- "Face for current branch."
- :group 'magit-faces)
-
-(defface magit-branch-local
- '((((class color) (background light)) :foreground "SkyBlue4")
- (((class color) (background dark)) :foreground "LightSkyBlue1"))
- "Face for local branches."
- :group 'magit-faces)
-
-(defface magit-branch-current
- '((((class color) (background light)) :inherit magit-branch-local :box t)
- (((class color) (background dark)) :inherit magit-branch-local :box t))
- "Face for current branch."
- :group 'magit-faces)
-
-(defface magit-branch-upstream
- '((t :slant italic))
- "Face for upstream branch.
-This face is only used in logs and it gets combined
- with `magit-branch-local', `magit-branch-remote'
-and/or `magit-branch-remote-head'."
- :group 'magit-faces)
-
-(defface magit-head
- '((((class color) (background light)) :inherit magit-branch-local)
- (((class color) (background dark)) :inherit magit-branch-local))
- "Face for the symbolic ref `HEAD'."
- :group 'magit-faces)
-
-(defface magit-refname
- '((((class color) (background light)) :foreground "grey30")
- (((class color) (background dark)) :foreground "grey80"))
- "Face for refnames without a dedicated face."
- :group 'magit-faces)
-
-(defface magit-refname-stash
- '((t :inherit magit-refname))
- "Face for stash refnames."
- :group 'magit-faces)
-
-(defface magit-refname-wip
- '((t :inherit magit-refname))
- "Face for wip refnames."
- :group 'magit-faces)
-
-(defface magit-refname-pullreq
- '((t :inherit magit-refname))
- "Face for pullreq refnames."
- :group 'magit-faces)
-
-(defface magit-keyword
- '((t :inherit font-lock-string-face))
- "Face for parts of commit messages inside brackets."
- :group 'magit-faces)
-
-(defface magit-keyword-squash
- '((t :inherit font-lock-warning-face))
- "Face for squash! and fixup! keywords in commit messages."
- :group 'magit-faces)
-
-(defface magit-signature-good
- '((t :foreground "green"))
- "Face for good signatures."
- :group 'magit-faces)
-
-(defface magit-signature-bad
- '((t :foreground "red" :weight bold))
- "Face for bad signatures."
- :group 'magit-faces)
-
-(defface magit-signature-untrusted
- '((t :foreground "cyan"))
- "Face for good untrusted signatures."
- :group 'magit-faces)
-
-(defface magit-signature-expired
- '((t :foreground "orange"))
- "Face for signatures that have expired."
- :group 'magit-faces)
-
-(defface magit-signature-expired-key
- '((t :inherit magit-signature-expired))
- "Face for signatures made by an expired key."
- :group 'magit-faces)
-
-(defface magit-signature-revoked
- '((t :foreground "violet red"))
- "Face for signatures made by a revoked key."
- :group 'magit-faces)
-
-(defface magit-signature-error
- '((t :foreground "firebrick3"))
- "Face for signatures that cannot be checked (e.g. missing key)."
- :group 'magit-faces)
-
-(defface magit-cherry-unmatched
- '((t :foreground "cyan"))
- "Face for unmatched cherry commits."
- :group 'magit-faces)
-
-(defface magit-cherry-equivalent
- '((t :foreground "magenta"))
- "Face for equivalent cherry commits."
- :group 'magit-faces)
-
-(defface magit-filename
- '((t :weight normal))
- "Face for filenames."
- :group 'magit-faces)
-
-;;; Dispatch Popup
-
-;;;###autoload (autoload 'magit-dispatch-popup "magit" nil t)
-(magit-define-popup magit-dispatch-popup
- "Popup console for dispatching other popups."
- :actions '("Popup and dwim commands"
- (?A "Cherry-picking" magit-cherry-pick-popup)
- (?b "Branching" magit-branch-popup)
- (?B "Bisecting" magit-bisect-popup)
- (?c "Committing" magit-commit-popup)
- (?d "Diffing" magit-diff-popup)
- (?D "Change diffs" magit-diff-refresh-popup)
- (?e "Ediff dwimming" magit-ediff-dwim)
- (?E "Ediffing" magit-ediff-popup)
- (?f "Fetching" magit-fetch-popup)
- (?F "Pulling" magit-pull-popup)
- (?l "Logging" magit-log-popup)
- (?L "Change logs" magit-log-refresh-popup)
- (?m "Merging" magit-merge-popup)
- (?M "Remoting" magit-remote-popup)
- (?o "Submodules" magit-submodule-popup)
- (?O "Subtrees" magit-subtree-popup)
- (?P "Pushing" magit-push-popup)
- (?r "Rebasing" magit-rebase-popup)
- (?t "Tagging" magit-tag-popup)
- (?T "Notes" magit-notes-popup)
- (?V "Reverting" magit-revert-popup)
- (?w "Apply patches" magit-am-popup)
- (?W "Format patches" magit-patch-popup)
- (?X "Resetting" magit-reset-popup)
- (?y "Show Refs" magit-show-refs-popup)
- (?z "Stashing" magit-stash-popup)
- (?! "Running" magit-run-popup)
- (?% "Worktree" magit-worktree-popup)
- (lambda ()
- (and (with-current-buffer magit-pre-popup-buffer
- (derived-mode-p 'magit-mode))
- (propertize "Applying changes" 'face 'magit-popup-heading)))
- (?a "Apply" magit-apply)
- (?s "Stage" magit-stage)
- (?u "Unstage" magit-unstage)
- (?v "Reverse" magit-reverse)
- (?S "Stage all" magit-stage-modified)
- (?U "Unstage all" magit-unstage-all)
- (?k "Discard" magit-discard)
- (lambda ()
- (and (with-current-buffer magit-pre-popup-buffer
- (derived-mode-p 'magit-mode))
- (propertize "Essential commands" 'face 'magit-popup-heading)))
- (?g " refresh current buffer" magit-refresh)
- ;; These bindings only work because of :setup-function.
- (?\t " toggle section at point" magit-section-toggle)
- (?\r " visit thing at point" magit-visit-thing)
- ;; This binding has no effect and only appears to do
- ;; so because it is identical to the global binding.
- ("C-h m" "show all key bindings" describe-mode))
- :setup-function 'magit-dispatch-popup-setup
- :max-action-columns (lambda (heading)
- (pcase heading
- ("Popup and dwim commands" 4)
- ("Applying changes" 3)
- ("Essential commands" 1))))
-
-(defvar magit-dispatch-popup-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map magit-popup-mode-map)
- (cond ((featurep 'jkl)
- (define-key map [tab] 'magit-invoke-popup-action)
- (define-key map [return] 'magit-invoke-popup-action))
- (t
- (define-key map (kbd "C-i") 'magit-invoke-popup-action)
- (define-key map (kbd "C-m") 'magit-invoke-popup-action)))
- map)
- "Keymap used by `magit-dispatch-popup'.")
-
-(defun magit-dispatch-popup-setup (val def)
- (magit-popup-default-setup val def)
- (use-local-map magit-dispatch-popup-map)
- ;; This is necessary for users (i.e. me) who have broken the
- ;; connection between C-i (aka TAB) and tab, and C-m (aka RET)
- ;; and return.
- (magit-popup-put
- :actions (nconc (magit-popup-get :actions)
- (list (make-magit-popup-event :key 'tab
- :fun 'magit-section-toggle)
- (make-magit-popup-event :key 'return
- :fun 'magit-visit-thing)))))
-
-;;; Git Popup
-
-(defcustom magit-shell-command-verbose-prompt t
- "Whether to show the working directory when reading a command.
-This affects `magit-git-command', `magit-git-command-topdir',
-`magit-shell-command', and `magit-shell-command-topdir'."
- :package-version '(magit . "2.11.0")
- :group 'magit-commands
- :type 'boolean)
-
-(defvar magit-git-command-history nil)
-
-;;;###autoload (autoload 'magit-run-popup "magit" nil t)
-(magit-define-popup magit-run-popup
- "Popup console for running raw Git commands."
- :actions '((?! "Git Subcommand (in topdir)" magit-git-command-topdir)
- (?k "Gitk" magit-run-gitk)
- (?p "Git Subcommand (in pwd)" magit-git-command)
- (?a "Gitk --all" magit-run-gitk-all)
- (?s "Shell command (in topdir)" magit-shell-command-topdir)
- (?b "Gitk --branches" magit-run-gitk-branches)
- (?S "Shell command (in pwd)" magit-shell-command)
- (?g "Git Gui" magit-run-git-gui))
- :default-action 'magit-git-command
- :max-action-columns 2)
-
-;;;###autoload
-(defun magit-git-command (command)
- "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. \"git \" is
-used as initial input, but can be deleted to run another command.
-
-With a prefix argument COMMAND is run in the top-level directory
-of the current working tree, otherwise in `default-directory'."
- (interactive (list (magit-read-shell-command nil "git ")))
- (magit--shell-command command))
-
-;;;###autoload
-(defun magit-git-command-topdir (command)
- "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. \"git \" is
-used as initial input, but can be deleted to run another command.
-
-COMMAND is run in the top-level directory of the current
-working tree."
- (interactive (list (magit-read-shell-command t "git ")))
- (magit--shell-command command (magit-toplevel)))
-
-;;;###autoload
-(defun magit-shell-command (command)
- "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. With a
-prefix argument COMMAND is run in the top-level directory of
-the current working tree, otherwise in `default-directory'."
- (interactive (list (magit-read-shell-command)))
- (magit--shell-command command))
-
-;;;###autoload
-(defun magit-shell-command-topdir (command)
- "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. COMMAND
-is run in the top-level directory of the current working tree."
- (interactive (list (magit-read-shell-command t)))
- (magit--shell-command command (magit-toplevel)))
-
-(defun magit--shell-command (command &optional directory)
- (let ((default-directory (or directory default-directory))
- (process-environment process-environment))
- (push "GIT_PAGER=cat" process-environment)
- (magit-start-process shell-file-name nil
- shell-command-switch command))
- (magit-process-buffer))
-
-(defun magit-read-shell-command (&optional toplevel initial-input)
- (let ((dir (abbreviate-file-name
- (if (or toplevel current-prefix-arg)
- (or (magit-toplevel)
- (magit--not-inside-repository-error))
- default-directory))))
- (read-shell-command (if magit-shell-command-verbose-prompt
- (format "Async shell command in %s: " dir)
- "Async shell command: ")
- initial-input 'magit-git-command-history)))
-
-;;; Font-Lock Keywords
-
-(defconst magit-font-lock-keywords
- (eval-when-compile
- `((,(concat "(\\(magit-define-section-jumper\\)\\_>"
- "[ \t'\(]*"
- "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
- (1 'font-lock-keyword-face)
- (2 'font-lock-function-name-face nil t))
- (,(concat "(" (regexp-opt '("magit-insert-section"
- "magit-section-case"
- "magit-bind-match-strings"
- "magit-with-temp-index"
- "magit-with-blob"
- "magit-with-toplevel") t)
- "\\_>")
- . 1))))
-
-(font-lock-add-keywords 'emacs-lisp-mode magit-font-lock-keywords)
-
-;;; Version
-
-(defvar magit-version 'undefined
- "The version of Magit that you're using.
-Use the function by the same name instead of this variable.")
-
-;;;###autoload
-(defun magit-version (&optional print-dest)
- "Return the version of Magit currently in use.
-If optional argument PRINT-DEST is non-nil, output
-stream (interactively, the echo area, or the current buffer with
-a prefix argument), also print the used versions of Magit, Git,
-and Emacs to it."
- (interactive (list (if current-prefix-arg (current-buffer) t)))
- (let ((magit-git-global-arguments nil)
- (toplib (or load-file-name buffer-file-name))
- debug)
- (unless (and toplib
- (equal (file-name-nondirectory toplib) "magit.el"))
- (setq toplib (locate-library "magit.el")))
- (setq toplib (and toplib (file-chase-links toplib)))
- (push toplib debug)
- (when toplib
- (let* ((topdir (file-name-directory toplib))
- (gitdir (expand-file-name
- ".git" (file-name-directory
- (directory-file-name topdir))))
- (static (locate-library "magit-version.el" nil (list topdir)))
- (static (and static (file-chase-links static))))
- (or (progn
- (push 'repo debug)
- (when (and (file-exists-p gitdir)
- ;; It is a repo, but is it the Magit repo?
- (file-exists-p
- (expand-file-name "../lisp/magit.el" gitdir)))
- (push t debug)
- ;; Inside the repo the version file should only exist
- ;; while running make.
- (when (and static (not noninteractive))
- (ignore-errors (delete-file static)))
- (setq magit-version
- (let ((default-directory topdir))
- (magit-git-string "describe" "--tags" "--dirty")))))
- (progn
- (push 'static debug)
- (when (and static (file-exists-p static))
- (push t debug)
- (load-file static)
- magit-version))
- (when (featurep 'package)
- (push 'elpa debug)
- (ignore-errors
- (--when-let (assq 'magit package-alist)
- (push t debug)
- (setq magit-version
- (and (fboundp 'package-desc-version)
- (package-version-join
- (package-desc-version (cadr it))))))))
- (progn
- (push 'dirname debug)
- (let ((dirname (file-name-nondirectory
- (directory-file-name topdir))))
- (when (string-match "\\`magit-\\([0-9]\\{8\\}\\.[0-9]*\\)"
- dirname)
- (setq magit-version (match-string 1 dirname))))))))
- (if (stringp magit-version)
- (when print-dest
- (princ (format "Magit %s, Git %s, Emacs %s, %s"
- (or magit-version "(unknown)")
- (or (let ((magit-git-debug
- (lambda (err)
- (display-warning '(magit git)
- err :error))))
- (magit-git-version t))
- "(unknown)")
- emacs-version
- system-type)
- print-dest))
- (setq debug (reverse debug))
- (setq magit-version 'error)
- (when magit-version
- (push magit-version debug))
- (unless (equal (getenv "TRAVIS") "true")
- ;; The repository is a sparse clone.
- (message "Cannot determine Magit's version %S" debug)))
- magit-version))
-
-;;; Debugging Tools
-
-(defun magit-debug-git-executable ()
- "Display a buffer with information about `magit-git-executable'.
-See info node `(magit)Debugging Tools' for more information."
- (interactive)
- (with-current-buffer (get-buffer-create "*magit-git-debug*")
- (pop-to-buffer (current-buffer))
- (erase-buffer)
- (insert (concat
- (format "magit-git-executable: %S" magit-git-executable)
- (and (not (file-name-absolute-p magit-git-executable))
- (format " [%S]" (executable-find magit-git-executable)))
- (format " (%s)\n"
- (let* ((errmsg nil)
- (magit-git-debug (lambda (err) (setq errmsg err))))
- (or (magit-git-version t) errmsg)))))
- (insert (format "exec-path: %S\n" exec-path))
- (--when-let (cl-set-difference
- (-filter #'file-exists-p (remq nil (parse-colon-path
- (getenv "PATH"))))
- (-filter #'file-exists-p (remq nil exec-path))
- :test #'file-equal-p)
- (insert (format " entries in PATH, but not in exec-path: %S\n" it)))
- (dolist (execdir exec-path)
- (insert (format " %s (%s)\n" execdir (car (file-attributes execdir))))
- (when (file-directory-p execdir)
- (dolist (exec (directory-files
- execdir t (concat
- "\\`git" (regexp-opt exec-suffixes) "\\'")))
- (insert (format " %s (%s)\n" exec
- (let* ((magit-git-executable exec)
- (errmsg nil)
- (magit-git-debug (lambda (err) (setq errmsg err))))
- (or (magit-git-version t) errmsg)))))))))
-
-;;; Startup Asserts
-
-(defun magit-startup-asserts ()
- (when-let ((val (getenv "GIT_DIR")))
- (setenv "GIT_DIR")
- (message "Magit unset $GIT_DIR (was %S). See \
-https://github.com/magit/magit/wiki/Don't-set-$GIT_DIR-and-alike" val))
- (when-let ((val (getenv "GIT_WORK_TREE")))
- (setenv "GIT_WORK_TREE")
- (message "Magit unset $GIT_WORK_TREE (was %S). See \
-https://github.com/magit/magit/wiki/Don't-set-$GIT_DIR-and-alike" val))
- (let ((version (magit-git-version)))
- (when (and version
- (version< version magit--minimal-git)
- (not (equal (getenv "TRAVIS") "true")))
- (display-warning 'magit (format "\
-Magit requires Git >= %s, you are using %s.
-
-If this comes as a surprise to you, because you do actually have
-a newer version installed, then that probably means that the
-older version happens to appear earlier on the `$PATH'. If you
-always start Emacs from a shell, then that can be fixed in the
-shell's init file. If you start Emacs by clicking on an icon,
-or using some sort of application launcher, then you probably
-have to adjust the environment as seen by graphical interface.
-For X11 something like ~/.xinitrc should work.
-
-If you use Tramp to work inside remote Git repositories, then you
-have to make sure a suitable Git is used on the remote machines
-too.\n" magit--minimal-git version) :error)))
- (when (version< emacs-version magit--minimal-emacs)
- (display-warning 'magit (format "\
-Magit requires Emacs >= %s, you are using %s.
-
-If this comes as a surprise to you, because you do actually have
-a newer version installed, then that probably means that the
-older version happens to appear earlier on the `$PATH'. If you
-always start Emacs from a shell, then that can be fixed in the
-shell's init file. If you start Emacs by clicking on an icon,
-or using some sort of application launcher, then you probably
-have to adjust the environment as seen by graphical interface.
-For X11 something like ~/.xinitrc should work.\n"
- magit--minimal-emacs emacs-version)
- :error)))
-
-;;; Loading Libraries
-
-(provide 'magit)
-
-(cl-eval-when (load eval)
- (require 'magit-status)
- (require 'magit-refs)
- (require 'magit-files)
- (require 'magit-collab)
- (require 'magit-reset)
- (require 'magit-branch)
- (require 'magit-merge)
- (require 'magit-tag)
- (require 'magit-worktree)
- (require 'magit-notes)
- (require 'magit-sequence)
- (require 'magit-commit)
- (require 'magit-remote)
- (require 'magit-clone)
- (require 'magit-fetch)
- (require 'magit-pull)
- (require 'magit-push)
- (require 'magit-bisect)
- (require 'magit-stash)
- (require 'magit-blame)
- (require 'magit-obsolete)
- (require 'magit-submodule)
- (unless (load "magit-autoloads" t t)
- (require 'magit-subtree)
- (require 'magit-ediff)
- (require 'magit-extras)
- (require 'git-rebase)
- (require 'magit-imenu)
- (require 'magit-bookmark)))
-
-(eval-after-load 'bookmark
- '(require 'magit-bookmark))
-
-(if after-init-time
- (progn (magit-startup-asserts)
- (magit-version))
- (add-hook 'after-init-hook #'magit-startup-asserts t)
- (add-hook 'after-init-hook #'magit-version t))
-
-;;; magit.el ends here
diff --git a/elpa/magit-20181116.1412/magit.elc b/elpa/magit-20181116.1412/magit.elc
deleted file mode 100644
index 3267510..0000000
--- a/elpa/magit-20181116.1412/magit.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-20181116.1412/magit.info b/elpa/magit-20181116.1412/magit.info
deleted file mode 100644
index 64e27c0..0000000
--- a/elpa/magit-20181116.1412/magit.info
+++ /dev/null
@@ -1,187 +0,0 @@
-This is magit.info, produced by makeinfo version 6.5 from magit.texi.
-
- Copyright (C) 2015-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-
-INFO-DIR-SECTION Emacs
-START-INFO-DIR-ENTRY
-* Magit: (magit). Using Git from Emacs with Magit.
-END-INFO-DIR-ENTRY
-
-
-Indirect:
-magit.info-1: 754
-magit.info-2: 307175
-
-Tag Table:
-(Indirect)
-Node: Top754
-Node: Introduction6307
-Node: Installation11030
-Node: Installing from Melpa11360
-Node: Installing from the Git Repository12433
-Node: Post-Installation Tasks14979
-Node: Getting Started16264
-Node: Interface Concepts21611
-Node: Modes and Buffers21942
-Node: Switching Buffers23691
-Node: Naming Buffers28234
-Node: Quitting Windows31541
-Node: Automatic Refreshing of Magit Buffers33173
-Node: Automatic Saving of File-Visiting Buffers35941
-Node: Automatic Reverting of File-Visiting Buffers37126
-Node: Risk of Reverting Automatically42122
-Node: Sections44505
-Node: Section Movement45446
-Node: Section Visibility49543
-Node: Section Hooks54402
-Node: Section Types and Values56809
-Node: Section Options58112
-Node: Popup Buffers and Prefix Commands58584
-Node: Completion Confirmation and the Selection60965
-Node: Action Confirmation61402
-Node: Completion and Confirmation68748
-Node: The Selection71934
-Node: The hunk-internal region74833
-Node: Support for Completion Frameworks75922
-Node: Additional Completion Options80738
-Node: Running Git81337
-Node: Viewing Git Output81610
-Node: Git Process Status82743
-Node: Running Git Manually83708
-Node: Git Executable86110
-Node: Global Git Arguments88392
-Node: Inspecting89198
-Node: Status Buffer90345
-Node: Status Sections93109
-Node: Status Header Sections97912
-Node: Status Module Sections100542
-Node: Status Options103047
-Node: Repository List104801
-Node: Logging106959
-Node: Refreshing Logs109412
-Node: Log Buffer110797
-Node: Log Margin114592
-Node: Select from Log117232
-Node: Reflog119336
-Node: Cherries120868
-Node: Diffing122595
-Node: Refreshing Diffs125548
-Node: Diff Buffer129039
-Node: Diff Options133623
-Node: Revision Buffer137899
-Node: Ediffing140833
-Node: References Buffer144429
-Node: References Sections154193
-Node: Bisecting155054
-Node: Visiting Blobs156792
-Node: Blaming157302
-Node: Manipulating163113
-Node: Repository Setup163429
-Node: Staging and Unstaging164469
-Node: Staging from File-Visiting Buffers168550
-Node: Applying169718
-Node: Committing171611
-Node: Initiating a Commit172194
-Node: Editing Commit Messages175522
-Node: Branching185918
-Node: The Two Remotes186148
-Node: The Branch Popup188765
-Node: The Branch Config Popup205825
-Node: Auxiliary Branch Commands211766
-Node: Merging212871
-Node: Resolving Conflicts216802
-Node: Rebasing221803
-Node: Editing Rebase Sequences225967
-Node: Information About In-Progress Rebase228997
-Ref: Information About In-Progress Rebase-Footnote-1237746
-Node: Cherry Picking238342
-Node: Reverting242594
-Node: Resetting243968
-Node: Stashing245622
-Node: Transferring250145
-Node: Remotes250383
-Node: The Remote Popup250539
-Node: The Remote Config Popup254007
-Node: Fetching255663
-Node: Pulling257025
-Node: Pushing257868
-Node: Creating and Sending Patches262609
-Node: Applying Patches263446
-Node: Miscellaneous265032
-Node: Tagging265348
-Node: Notes266696
-Node: Submodules269007
-Node: Listing Submodules269221
-Node: Submodule Popup271145
-Node: Subtree273598
-Node: Worktree274838
-Node: Common Commands276048
-Node: Wip Modes277795
-Node: Wip Graph282728
-Node: Legacy Wip Modes285042
-Node: Minor Mode for Buffers Visiting Files287937
-Node: Minor Mode for Buffers Visiting Blobs293353
-Node: Customizing294166
-Node: Per-Repository Configuration295834
-Node: Essential Settings297483
-Node: Safety297807
-Node: Performance299572
-Node: Microsoft Windows Performance307175
-Node: MacOS Performance308366
-Ref: MacOS Performance-Footnote-1309602
-Ref: MacOS Performance-Footnote-2309684
-Ref: MacOS Performance-Footnote-3309744
-Node: Plumbing309910
-Node: Calling Git310733
-Node: Getting a Value from Git312258
-Node: Calling Git for Effect315344
-Node: Section Plumbing321864
-Node: Creating Sections322092
-Node: Section Selection325992
-Node: Matching Sections327791
-Node: Refreshing Buffers333764
-Node: Conventions336906
-Node: Theming Faces337098
-Node: FAQ345213
-Node: FAQ - How to ...?345655
-Node: How to show git's output?346015
-Node: How to install the gitman info manual?346769
-Node: How to show diffs for gpg-encrypted files?347739
-Node: How does branching and pushing work?348335
-Node: Can Magit be used as ediff-version-control-package?348698
-Node: FAQ - Issues and Errors350687
-Node: Magit is slow351619
-Node: I changed several thousand files at once and now Magit is unusable351833
-Node: I am having problems committing352562
-Node: I am using MS Windows and cannot push with Magit353043
-Node: I am using OS X and SOMETHING works in shell but not in Magit353660
-Node: Diffs contain control sequences354466
-Node: Expanding a file to show the diff causes it to disappear355579
-Node: Point is wrong in the COMMIT_EDITMSG buffer356130
-Node: The mode-line information isn't always up-to-date357176
-Node: A branch and tag sharing the same name breaks SOMETHING358258
-Node: My Git hooks work on the command-line but not inside Magit359146
-Node: git-commit-mode isn't used when committing from the command-line359983
-Node: Point ends up inside invisible text when jumping to a file-visiting buffer362250
-Node: Debugging Tools363048
-Node: Keystroke Index364935
-Node: Command Index396948
-Node: Function Index431821
-Node: Variable Index447202
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:
diff --git a/elpa/magit-20181116.1412/magit.info-1 b/elpa/magit-20181116.1412/magit.info-1
deleted file mode 100644
index 885be54..0000000
--- a/elpa/magit-20181116.1412/magit.info-1
+++ /dev/null
@@ -1,7962 +0,0 @@
-This is magit.info, produced by makeinfo version 6.5 from magit.texi.
-
- Copyright (C) 2015-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-
-INFO-DIR-SECTION Emacs
-START-INFO-DIR-ENTRY
-* Magit: (magit). Using Git from Emacs with Magit.
-END-INFO-DIR-ENTRY
-
-
-File: magit.info, Node: Top, Next: Introduction, Up: (dir)
-
-Magit User Manual
-*****************
-
-Magit is an interface to the version control system Git, implemented as
-an Emacs package. Magit aspires to be a complete Git porcelain. While
-we cannot (yet) claim that Magit wraps and improves upon each and every
-Git command, it is complete enough to allow even experienced Git users
-to perform almost all of their daily version control tasks directly from
-within Emacs. While many fine Git clients exist, only Magit and Git
-itself deserve to be called porcelains.
-
-This manual is for Magit version 2.90.1 (v2.90.1-9-gd2c84d9a5+1).
-
- Copyright (C) 2015-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-
-* Menu:
-
-* Introduction::
-* Installation::
-* Getting Started::
-* Interface Concepts::
-* Inspecting::
-* Manipulating::
-* Transferring::
-* Miscellaneous::
-* Customizing::
-* Plumbing::
-* FAQ::
-* Debugging Tools::
-* Keystroke Index::
-* Command Index::
-* Function Index::
-* Variable Index::
-
-— The Detailed Node Listing —
-
-Installation
-
-* Installing from Melpa::
-* Installing from the Git Repository::
-* Post-Installation Tasks::
-
-Interface Concepts
-
-* Modes and Buffers::
-* Sections::
-* Popup Buffers and Prefix Commands::
-* Completion, Confirmation and the Selection: Completion Confirmation and the Selection.
-* Running Git::
-
-Modes and Buffers
-
-* Switching Buffers::
-* Naming Buffers::
-* Quitting Windows::
-* Automatic Refreshing of Magit Buffers::
-* Automatic Saving of File-Visiting Buffers::
-* Automatic Reverting of File-Visiting Buffers::
-
-
-Sections
-
-* Section Movement::
-* Section Visibility::
-* Section Hooks::
-* Section Types and Values::
-* Section Options::
-
-
-Completion, Confirmation and the Selection
-
-* Action Confirmation::
-* Completion and Confirmation::
-* The Selection::
-* The hunk-internal region::
-* Support for Completion Frameworks::
-* Additional Completion Options::
-
-
-Running Git
-
-* Viewing Git Output::
-* Git Process Status::
-* Running Git Manually::
-* Git Executable::
-* Global Git Arguments::
-
-
-Inspecting
-
-* Status Buffer::
-* Repository List::
-* Logging::
-* Diffing::
-* Ediffing::
-* References Buffer::
-* Bisecting::
-* Visiting Blobs::
-* Blaming::
-
-Status Buffer
-
-* Status Sections::
-* Status Header Sections::
-* Status Module Sections::
-* Status Options::
-
-
-Logging
-
-* Refreshing Logs::
-* Log Buffer::
-* Log Margin::
-* Select from Log::
-* Reflog::
-* Cherries::
-
-
-Diffing
-
-* Refreshing Diffs::
-* Diff Buffer::
-* Diff Options::
-* Revision Buffer::
-
-
-References Buffer
-
-* References Sections::
-
-
-Manipulating
-
-* Repository Setup::
-* Staging and Unstaging::
-* Applying::
-* Committing::
-* Branching::
-* Merging::
-* Resolving Conflicts::
-* Rebasing::
-* Cherry Picking::
-* Resetting::
-* Stashing::
-
-Staging and Unstaging
-
-* Staging from File-Visiting Buffers::
-
-
-Committing
-
-* Initiating a Commit::
-* Editing Commit Messages::
-
-
-Branching
-
-* The Two Remotes::
-* The Branch Popup::
-* The Branch Config Popup::
-* Auxiliary Branch Commands::
-
-
-Rebasing
-
-* Editing Rebase Sequences::
-* Information About In-Progress Rebase::
-
-
-Cherry Picking
-
-* Reverting::
-
-
-Transferring
-
-* Remotes::
-* Fetching::
-* Pulling::
-* Pushing::
-* Creating and Sending Patches::
-* Applying Patches::
-
-Remotes
-
-* The Remote Popup::
-* The Remote Config Popup::
-
-
-Miscellaneous
-
-* Tagging::
-* Notes::
-* Submodules::
-* Subtree::
-* Worktree::
-* Common Commands::
-* Wip Modes::
-* Minor Mode for Buffers Visiting Files::
-* Minor Mode for Buffers Visiting Blobs::
-
-Submodules
-
-* Listing Submodules::
-* Submodule Popup::
-
-
-Wip Modes
-
-* Wip Graph::
-* Legacy Wip Modes::
-
-
-Customizing
-
-* Per-Repository Configuration::
-* Essential Settings::
-
-Essential Settings
-
-* Safety::
-* Performance::
-
-
-Plumbing
-
-* Calling Git::
-* Section Plumbing::
-* Refreshing Buffers::
-* Conventions::
-
-Calling Git
-
-* Getting a Value from Git::
-* Calling Git for Effect::
-
-
-Section Plumbing
-
-* Creating Sections::
-* Section Selection::
-* Matching Sections::
-
-
-Conventions
-
-* Theming Faces::
-
-
-FAQ
-
-* FAQ - How to ...?::
-* FAQ - Issues and Errors::
-
-FAQ - How to ...?
-
-* How to show git's output?::
-* How to install the gitman info manual?::
-* How to show diffs for gpg-encrypted files?::
-* How does branching and pushing work?::
-* Can Magit be used as ediff-version-control-package?::
-
-
-FAQ - Issues and Errors
-
-* Magit is slow::
-* I changed several thousand files at once and now Magit is unusable::
-* I am having problems committing::
-* I am using MS Windows and cannot push with Magit::
-* I am using OS X and SOMETHING works in shell, but not in Magit: I am using OS X and SOMETHING works in shell but not in Magit.
-* Diffs contain control sequences::
-* Expanding a file to show the diff causes it to disappear::
-* Point is wrong in the COMMIT_EDITMSG buffer::
-* The mode-line information isn't always up-to-date::
-* A branch and tag sharing the same name breaks SOMETHING::
-* My Git hooks work on the command-line but not inside Magit::
-* git-commit-mode isn't used when committing from the command-line::
-* Point ends up inside invisible text when jumping to a file-visiting buffer::
-
-
-
-
-File: magit.info, Node: Introduction, Next: Installation, Prev: Top, Up: Top
-
-1 Introduction
-**************
-
-Magit is an interface to the version control system Git, implemented as
-an Emacs package. Magit aspires to be a complete Git porcelain. While
-we cannot (yet) claim that Magit wraps and improves upon each and every
-Git command, it is complete enough to allow even experienced Git users
-to perform almost all of their daily version control tasks directly from
-within Emacs. While many fine Git clients exist, only Magit and Git
-itself deserve to be called porcelains.
-
- Staging and otherwise applying changes is one of the most important
-features in a Git porcelain and here Magit outshines anything else,
-including Git itself. Git’s own staging interface (‘git add --patch’)
-is so cumbersome that many users only use it in exceptional cases. In
-Magit staging a hunk or even just part of a hunk is as trivial as
-staging all changes made to a file.
-
- The most visible part of Magit’s interface is the status buffer,
-which displays information about the current repository. Its content is
-created by running several Git commands and making their output
-actionable. Among other things, it displays information about the
-current branch, lists unpulled and unpushed changes and contains
-sections displaying the staged and unstaged changes. That might sound
-noisy, but, since sections are collapsible, it’s not.
-
- To stage or unstage a change one places the cursor on the change and
-then types ‘s’ or ‘u’. The change can be a file or a hunk, or when the
-region is active (i.e. when there is a selection) several files or
-hunks, or even just part of a hunk. The change or changes that these
-commands - and many others - would act on are highlighted.
-
- Magit also implements several other "apply variants" in addition to
-staging and unstaging. One can discard or reverse a change, or apply it
-to the working tree. Git’s own porcelain only supports this for staging
-and unstaging and you would have to do something like ‘git diff ... |
-??? | git apply ...’ to discard, revert, or apply a single hunk on the
-command line. In fact that’s exactly what Magit does internally (which
-is what lead to the term "apply variants").
-
- Magit isn’t just for Git experts, but it does assume some prior
-experience with Git as well as Emacs. That being said, many users have
-reported that using Magit was what finally taught them what Git is
-capable of and how to use it to its fullest. Other users wished they
-had switched to Emacs sooner so that they would have gotten their hands
-on Magit earlier.
-
- While one has to know the basic features of Emacs to be able to make
-full use of Magit, acquiring just enough Emacs skills doesn’t take long
-and is worth it, even for users who prefer other editors. Vim users are
-advised to give Evil (https://bitbucket.org/lyro/evil/wiki/Home), the
-"Extensible VI Layer for Emacs", and Spacemacs
-(https://github.com/syl20bnr/spacemacs), an "Emacs starter-kit focused
-on Evil" a try.
-
- Magit provides a consistent and efficient Git porcelain. After a
-short learning period, you will be able to perform most of your daily
-version control tasks faster than you would on the command line. You
-will likely also start using features that seemed too daunting in the
-past.
-
- Magit fully embraces Git. It exposes many advanced features using a
-simple but flexible interface instead of only wrapping the trivial ones
-like many GUI clients do. Of course Magit supports logging, cloning,
-pushing, and other commands that usually don’t fail in spectacular ways;
-but it also supports tasks that often cannot be completed in a single
-step. Magit fully supports tasks such as merging, rebasing,
-cherry-picking, reverting, and blaming by not only providing a command
-to initiate these tasks but also by displaying context sensitive
-information along the way and providing commands that are useful for
-resolving conflicts and resuming the sequence after doing so.
-
- Magit wraps and in many cases improves upon at least the following
-Git porcelain commands: ‘add’, ‘am’, ‘bisect’, ‘blame’, ‘branch’,
-‘checkout’, ‘cherry’, ‘cherry-pick’, ‘clean’, ‘clone’, ‘commit’,
-‘config’, ‘describe’, ‘diff’, ‘fetch’, ‘format-patch’, ‘init’, ‘log’,
-‘merge’, ‘merge-tree’, ‘mv’, ‘notes’, ‘pull’, ‘rebase’, ‘reflog’,
-‘remote’, ‘request-pull’, ‘reset’, ‘revert’, ‘rm’, ‘show’, ‘stash’,
-‘submodule’, ‘subtree’, ‘tag’, and ‘worktree.’ Many more Magit porcelain
-commands are implemented on top of Git plumbing commands.
-
-
-File: magit.info, Node: Installation, Next: Getting Started, Prev: Introduction, Up: Top
-
-2 Installation
-**************
-
-Magit can be installed using Emacs’ package manager or manually from its
-development repository.
-
-* Menu:
-
-* Installing from Melpa::
-* Installing from the Git Repository::
-* Post-Installation Tasks::
-
-
-File: magit.info, Node: Installing from Melpa, Next: Installing from the Git Repository, Up: Installation
-
-2.1 Installing from Melpa
-=========================
-
-Magit is available from Melpa and Melpa-Stable. If you haven’t used
-Emacs’ package manager before, then it is high time you familiarize
-yourself with it by reading the documentation in the Emacs manual, see
-*note (emacs)Packages::. Then add one of the archives to
-‘package-archives’:
-
- • To use Melpa:
-
- (require 'package)
- (add-to-list 'package-archives
- '("melpa" . "http://melpa.org/packages/") t)
-
- • To use Melpa-Stable:
-
- (require 'package)
- (add-to-list 'package-archives
- '("melpa-stable" . "http://stable.melpa.org/packages/") t)
-
- Once you have added your preferred archive, you need to update the
-local package list using:
-
- M-x package-refresh-contents RET
-
- Once you have done that, you can install Magit and its dependencies
-using:
-
- M-x package-install RET magit RET
-
- Now see *note Post-Installation Tasks::.
-
-
-File: magit.info, Node: Installing from the Git Repository, Next: Post-Installation Tasks, Prev: Installing from Melpa, Up: Installation
-
-2.2 Installing from the Git Repository
-======================================
-
-Magit depends on the ‘dash’, ‘ghub’, ‘graphql’, ‘magit-popup’, ‘treepy’
-and ‘with-editor’ libraries which are available from Melpa and
-Melpa-Stable. Install them using ‘M-x package-install RET <package>
-RET’. Of course you may also install them manually from their
-repository.
-
- Then clone the Magit repository:
-
- $ git clone https://github.com/magit/magit.git ~/.emacs.d/site-lisp/magit
- $ cd ~/.emacs.d/site-lisp/magit
-
- Then compile the libraries and generate the info manuals:
-
- $ make
-
- If you haven’t installed ‘dash’, ‘ghub’, ‘graphql’, ‘magit-popup’,
-‘treepy’ and ‘with-editor’ from Melpa or at
-‘/path/to/magit/../<package>’, then you have to tell ‘make’ where to
-find them. To do so create the file ‘/path/to/magit/config.mk’ with the
-following content before running ‘make’:
-
- LOAD_PATH = -L /path/to/magit/lisp
- LOAD_PATH += -L /path/to/dash
- LOAD_PATH += -L /path/to/ghub
- LOAD_PATH += -L /path/to/graphql
- LOAD_PATH += -L /path/to/magit-popup
- LOAD_PATH += -L /path/to/treepy
- LOAD_PATH += -L /path/to/with-editor
-
- Finally add this to your init file:
-
- (add-to-list 'load-path "~/.emacs.d/site-lisp/magit/lisp")
- (require 'magit)
-
- (with-eval-after-load 'info
- (info-initialize)
- (add-to-list 'Info-directory-list
- "~/.emacs.d/site-lisp/magit/Documentation/"))
-
- Note that you have to add the ‘lisp’ subdirectory to the ‘load-path’,
-not the top-level of the repository, and that elements of ‘load-path’
-should not end with a slash, while those of ‘Info-directory-list’
-should.
-
- Instead of requiring the feature ‘magit’, you could load just the
-autoload definitions, by loading the file ‘magit-autoloads.el’.
-
- (load "/path/to/magit/lisp/magit-autoloads")
-
- Instead of running Magit directly from the repository by adding that
-to the ‘load-path’, you might want to instead install it in some other
-directory using ‘sudo make install’ and setting ‘load-path’ accordingly.
-
- To update Magit use:
-
- $ git pull
- $ make
-
- At times it might be necessary to run ‘make clean all’ instead.
-
- To view all available targets use ‘make help’.
-
- Now see *note Post-Installation Tasks::.
-
-
-File: magit.info, Node: Post-Installation Tasks, Prev: Installing from the Git Repository, Up: Installation
-
-2.3 Post-Installation Tasks
-===========================
-
-After installing Magit you should verify that you are indeed using the
-Magit, Git, and Emacs releases you think you are using. It’s best to
-restart Emacs before doing so, to make sure you are not using an
-outdated value for ‘load-path’.
-
- M-x magit-version RET
-
- should display something like
-
- Magit 2.8.0, Git 2.10.2, Emacs 25.1.1, gnu/linux
-
- Then you might also want to read about options that many users likely
-want to customize. See *note Essential Settings::.
-
- To be able to follow cross references to Git manpages found in this
-manual, you might also have to manually install the ‘gitman’ info
-manual, or advice ‘Info-follow-nearest-node’ to instead open the actual
-manpage. See *note How to install the gitman info manual?::.
-
- If you are completely new to Magit then see *note Getting Started::.
-
- If you run into problems, then please see the *note FAQ::. Also see
-the *note Debugging Tools::.
-
- And last but not least please consider making a donation, to ensure
-that I can keep working on Magit. See <https://magit.vc/donations>.
-for various donation options.
-
-
-File: magit.info, Node: Getting Started, Next: Interface Concepts, Prev: Installation, Up: Top
-
-3 Getting Started
-*****************
-
-This short tutorial describes the most essential features that many
-Magitians use on a daily basis. It only scratches the surface but
-should be enough to get you started.
-
- IMPORTANT: It is safest if you clone some repository just for this
-tutorial. Alternatively you can use an existing local repository, but
-if you do that, then you should commit all uncommitted changes before
-proceeding.
-
- To display information about the current Git repository, type ‘M-x
-magit-status RET’. You will be using this command a lot, and should
-therefore give it a global key binding. This is what we recommend:
-
- (global-set-key (kbd "C-x g") 'magit-status)
-
- Most Magit commands are commonly invoked from the status buffer. It
-can be considered the primary interface for interacting with Git using
-Magit. Many other Magit buffers may exist at a given time, but they are
-often created from this buffer.
-
- Depending on what state your repository is in, this buffer may
-contain sections titled "Staged changes", "Unstaged changes", "Unmerged
-into origin/master", "Unpushed to origin/master", and many others.
-
- Since we are starting from a safe state, which you can easily return
-to (by doing a ‘git reset --hard PRE-MAGIT-STATE’), there currently are
-not staged or unstaged changes. Edit some files and save the changes.
-Then go back to the status buffer, while at the same time refreshing it,
-by typing ‘C-x g’. (When the status buffer, or any Magit buffer for
-that matter, is the current buffer, then you can also use just ‘g’ to
-refresh it).
-
- Move between sections using ‘p’ and ‘n’. Note that the bodies of
-some sections are hidden. Type ‘TAB’ to expand or collapse the section
-at point. You can also use ‘C-tab’ to cycle the visibility of the
-current section and its children. Move to a file section inside the
-section named "Unstaged changes" and type ‘s’ to stage the changes you
-have made to that file. That file now appears under "Staged changes".
-
- Magit can stage and unstage individual hunks, not just complete
-files. Move to the file you have just staged, expand it using ‘TAB’,
-move to one of the hunks using ‘n’, and unstage just that by typing ‘u’.
-Note how the staging (‘s’) and unstaging (‘u’) commands operate on the
-change at point. Many other commands behave the same way.
-
- You can also un-/stage just part of a hunk. Inside the body of a
-hunk section (move there using ‘C-n’), set the mark using ‘C-SPC’ and
-move down until some added and/or removed lines fall inside the region
-but not all of them. Again type ‘s’ to stage.
-
- It is also possible to un-/stage multiple files at once. Move to a
-file section, type ‘C-SPC’, move to the next file using ‘n’, and then
-‘s’ to stage both files. Note that both the mark and point have to be
-on the headings of sibling sections for this to work. If the region
-looks like it does in other buffers, then it doesn’t select Magit
-sections that can be acted on as a unit.
-
- And then of course you want to commit your changes. Type ‘c’. This
-shows the committing popup buffer featuring various commit variants and
-arguments that can be passed to ‘git commit’. Do not worry about those
-for now. We want to create a "normal" commit, which is done by typing
-‘c’ again.
-
- Now two new buffers appear. One is for writing the commit message,
-the other shows a diff with the changes that you are about to committed.
-Write a message and then type ‘C-c C-c’ to actually create the commit.
-
- You probably don’t want to push the commit you just created because
-you just committed some random changes, but if that is not the case you
-could push it by typing ‘P’ to bring up the push popup and then ‘p’ to
-push to a branch with the same name as the local branch onto the remote
-configured as the push-remote. (If the push-remote is not configured
-yet, then you would first be prompted for the remote to push to.)
-
- So far we have mentioned the commit, push, and log popups. These are
-probably among the popups you will be using the most, but many others
-exist. To show a popup that lists all other popups (as well as the
-various apply commands and some other fundamental commands), type ‘h’.
-Try a few.
-
- The key bindings in that popup correspond to the bindings in Magit
-buffers, including but not limited to the status buffer. So you could
-type ‘h d’ to bring up the diff popup, but once you remember that "d"
-stands for "diff", you would usually do so by just typing ‘d’. But the
-"popup of popups" is useful even once you have memorized all the
-bindings, as it can provide easy access to Magit commands from non-Magit
-buffers. You should create a global key binding for this command too:
-
- (global-set-key (kbd "C-x M-g") 'magit-dispatch-popup)
-
- In the same vein, you might also want to enable
-‘global-magit-file-mode’ to get some more Magit key bindings in regular
-file-visiting buffers (see *note Minor Mode for Buffers Visiting
-Files::).
-
- It is not necessary that you do so now, but if you stick with Magit,
-then it is highly recommended that you read the next section too.
-
-
-File: magit.info, Node: Interface Concepts, Next: Inspecting, Prev: Getting Started, Up: Top
-
-4 Interface Concepts
-********************
-
-* Menu:
-
-* Modes and Buffers::
-* Sections::
-* Popup Buffers and Prefix Commands::
-* Completion, Confirmation and the Selection: Completion Confirmation and the Selection.
-* Running Git::
-
-
-File: magit.info, Node: Modes and Buffers, Next: Sections, Up: Interface Concepts
-
-4.1 Modes and Buffers
-=====================
-
-Magit provides several major-modes. For each of these modes there
-usually exists only one buffer per repository. Separate modes and thus
-buffers exist for commits, diffs, logs, and some other things.
-
- Besides these special purpose buffers, there also exists an overview
-buffer, called the *status buffer*. It’s usually from this buffer that
-the user invokes Git commands, or creates or visits other buffers.
-
- In this manual we often speak about "Magit buffers". By that we mean
-buffers whose major-modes derive from ‘magit-mode’.
-
-‘M-x magit-toggle-buffer-lock’ (‘magit-toggle-buffer-lock’)
-
- This command locks the current buffer to its value or if the buffer
- is already locked, then it unlocks it.
-
- Locking a buffer to its value prevents it from being reused to
- display another value. The name of a locked buffer contains its
- value, which allows telling it apart from other locked buffers and
- the unlocked buffer.
-
- Not all Magit buffers can be locked to their values; for example,
- it wouldn’t make sense to lock a status buffer.
-
- There can only be a single unlocked buffer using a certain
- major-mode per repository. So when a buffer is being unlocked and
- another unlocked buffer already exists for that mode and
- repository, then the former buffer is instead deleted and the
- latter is displayed in its place.
-
-* Menu:
-
-* Switching Buffers::
-* Naming Buffers::
-* Quitting Windows::
-* Automatic Refreshing of Magit Buffers::
-* Automatic Saving of File-Visiting Buffers::
-* Automatic Reverting of File-Visiting Buffers::
-
-
-File: magit.info, Node: Switching Buffers, Next: Naming Buffers, Up: Modes and Buffers
-
-4.1.1 Switching Buffers
------------------------
-
- -- Function: magit-display-buffer buffer
-
- This function is a wrapper around ‘display-buffer’ and is used to
- display any Magit buffer. It displays BUFFER in some window and,
- unlike ‘display-buffer’, also selects that window, provided
- ‘magit-display-buffer-noselect’ is ‘nil’. It also runs the hooks
- mentioned below.
-
- -- Variable: magit-display-buffer-noselect
-
- When this is non-nil, then ‘magit-display-buffer’ only displays the
- buffer but forgoes also selecting the window. This variable should
- not be set globally, it is only intended to be let-bound, by code
- that automatically updates "the other window". This is used for
- example when the revision buffer is updated when you move inside
- the log buffer.
-
- -- User Option: magit-display-buffer-function
-
- The function specified here is called by ‘magit-display-buffer’
- with one argument, a buffer, to actually display that buffer. This
- function should call ‘display-buffer’ with that buffer as first and
- a list of display actions as second argument.
-
- Magit provides several functions, listed below, that are suitable
- values for this option. If you want to use different rules, then a
- good way of doing that is to start with a copy of one of these
- functions and then adjust it to your needs.
-
- Instead of using a wrapper around ‘display-buffer’, that function
- itself can be used here, in which case the display actions have to
- be specified by adding them to ‘display-buffer-alist’ instead.
-
- To learn about display actions, see *note (elisp)Choosing a Window
- for Display::.
-
- -- Function: magit-display-buffer-traditional buffer
-
- This function is the current default value of the option
- ‘magit-display-buffer-function’. Before that option and this
- function were added, the behavior was hard-coded in many places all
- over the code base but now all the rules are contained in this one
- function (except for the "noselect" special case mentioned above).
-
- -- Function: magit-display-buffer-same-window-except-diff-v1
-
- This function displays most buffers in the currently selected
- window. If a buffer’s mode derives from ‘magit-diff-mode’ or
- ‘magit-process-mode’, it is displayed in another window.
-
- -- Function: magit-display-buffer-fullframe-status-v1
-
- This function fills the entire frame when displaying a status
- buffer. Otherwise, it behaves like
- ‘magit-display-buffer-traditional’.
-
- -- Function: magit-display-buffer-fullframe-status-topleft-v1
-
- This function fills the entire frame when displaying a status
- buffer. It behaves like ‘magit-display-buffer-fullframe-status-v1’
- except that it displays buffers that derive from ‘magit-diff-mode’
- or ‘magit-process-mode’ to the top or left of the current buffer
- rather than to the bottom or right. As a result, Magit buffers
- tend to pop up on the same side as they would if
- ‘magit-display-buffer-traditional’ were in use.
-
- -- Function: magit-display-buffer-fullcolumn-most-v1
-
- This function displays most buffers so that they fill the entire
- height of the frame. However, the buffer is displayed in another
- window if (1) the buffer’s mode derives from ‘magit-process-mode’,
- or (2) the buffer’s mode derives from ‘magit-diff-mode’, provided
- that the mode of the current buffer derives from ‘magit-log-mode’
- or ‘magit-cherry-mode’.
-
- -- User Option: magit-pre-display-buffer-hook
-
- This hook is run by ‘magit-display-buffer’ before displaying the
- buffer.
-
- -- Function: magit-save-window-configuration
-
- This function saves the current window configuration. Later when
- the buffer is buried, it may be restored by
- ‘magit-restore-window-configuration’.
-
- -- User Option: magit-post-display-buffer-hook
-
- This hook is run by ‘magit-display-buffer’ after displaying the
- buffer.
-
- -- Function: magit-maybe-set-dedicated
-
- This function remembers if a new window had to be created to
- display the buffer, or whether an existing window was reused. This
- information is later used by ‘magit-mode-quit-window’, to determine
- whether the window should be deleted when its last Magit buffer is
- buried.
-
-
-File: magit.info, Node: Naming Buffers, Next: Quitting Windows, Prev: Switching Buffers, Up: Modes and Buffers
-
-4.1.2 Naming Buffers
---------------------
-
- -- User Option: magit-generate-buffer-name-function
-
- The function used to generate the names of Magit buffers.
-
- Such a function should take the options
- ‘magit-uniquify-buffer-names’ as well as ‘magit-buffer-name-format’
- into account. If it doesn’t, then should be clearly stated in the
- doc-string. And if it supports %-sequences beyond those mentioned
- in the doc-string of the option ‘magit-buffer-name-format’, then
- its own doc-string should describe the additions.
-
- -- Function: magit-generate-buffer-name-default-function mode
-
- This function returns a buffer name suitable for a buffer whose
- major-mode is MODE and which shows information about the repository
- in which ‘default-directory’ is located.
-
- This function uses ‘magit-buffer-name-format’ and supporting all of
- the %-sequences mentioned the documentation of that option. It
- also respects the option ‘magit-uniquify-buffer-names’.
-
- -- User Option: magit-buffer-name-format
-
- The format string used to name Magit buffers.
-
- At least the following %-sequences are supported:
-
- • ‘%m’
-
- The name of the major-mode, but with the ‘-mode’ suffix
- removed.
-
- • ‘%M’
-
- Like ‘%m’ but abbreviate ‘magit-status-mode’ as ‘magit’.
-
- • ‘%v’
-
- The value the buffer is locked to, in parentheses, or an empty
- string if the buffer is not locked to a value.
-
- • ‘%V’
-
- Like ‘%v’, but the string is prefixed with a space, unless it
- is an empty string.
-
- • ‘%t’
-
- The top-level directory of the working tree of the repository,
- or if ‘magit-uniquify-buffer-names’ is non-nil an abbreviation
- of that.
-
- • ‘%x’
-
- If ‘magit-uniquify-buffer-names’ is nil "*", otherwise the
- empty string. Due to limitations of the ‘uniquify’ package,
- buffer names must end with the path.
-
- • ‘%T’
-
- Obsolete, use "%t%x" instead. Like ‘%t’, but append an
- asterisk if and only if ‘magit-uniquify-buffer-names’ is nil.
-
- The value should always contain ‘%m’ or ‘%M’, ‘%v’ or ‘%V’, and
- ‘%t’ (or the obsolete ‘%T’). If ‘magit-uniquify-buffer-names’ is
- non-nil, then the value must end with ‘%t’ or ‘%t%x’ (or the
- obsolete ‘%T’). See issue #2841.
-
- -- User Option: magit-uniquify-buffer-names
-
- This option controls whether the names of Magit buffers are
- uniquified. If the names are not being uniquified, then they
- contain the full path of the top-level of the working tree of the
- corresponding repository. If they are being uniquified, then they
- end with the basename of the top-level, or if that would conflict
- with the name used for other buffers, then the names of all these
- buffers are adjusted until they no longer conflict.
-
- This is done using the ‘uniquify’ package; customize its options to
- control how buffer names are uniquified.
-
-
-File: magit.info, Node: Quitting Windows, Next: Automatic Refreshing of Magit Buffers, Prev: Naming Buffers, Up: Modes and Buffers
-
-4.1.3 Quitting Windows
-----------------------
-
-‘q’ (‘magit-mode-bury-buffer’)
-
- This command buries the current Magit buffer. With a prefix
- argument, it instead kills the buffer.
-
- -- User Option: magit-bury-buffer-function
-
- The function used to actually bury or kill the current buffer.
-
- ‘magit-mode-bury-buffer’ calls this function with one argument. If
- the argument is non-nil, then the function has to kill the current
- buffer. Otherwise it has to bury it alive. The default value
- currently is ‘magit-restore-window-configuration’.
-
- -- Function: magit-restore-window-configuration kill-buffer
-
- Bury or kill the current buffer using ‘quit-window’, which is
- called with KILL-BUFFER as first and the selected window as second
- argument.
-
- Then restore the window configuration that existed right before the
- current buffer was displayed in the selected frame. Unfortunately
- that also means that point gets adjusted in all the buffers, which
- are being displayed in the selected frame.
-
- -- Function: magit-mode-quit-window kill-buffer
-
- Bury or kill the current buffer using ‘quit-window’, which is
- called with KILL-BUFFER as first and the selected window as second
- argument.
-
- Then, if the window was originally created to display a Magit
- buffer and the buried buffer was the last remaining Magit buffer
- that was ever displayed in the window, then that is deleted.
-
-
-File: magit.info, Node: Automatic Refreshing of Magit Buffers, Next: Automatic Saving of File-Visiting Buffers, Prev: Quitting Windows, Up: Modes and Buffers
-
-4.1.4 Automatic Refreshing of Magit Buffers
--------------------------------------------
-
-After running a command which may change the state of the current
-repository, the current Magit buffer and the corresponding status buffer
-are refreshed. The status buffer may optionally be automatically
-refreshed whenever a buffer is saved to a file inside the respective
-repository.
-
- Automatically refreshing Magit buffers ensures that the displayed
-information is up-to-date most of the time but can lead to a noticeable
-delay in big repositories. Other Magit buffers are not refreshed to
-keep the delay to a minimum and also because doing so can sometimes be
-undesirable.
-
- Buffers can also be refreshed explicitly, which is useful in buffers
-that weren’t current during the last refresh and after changes were made
-to the repository outside of Magit.
-
-‘g’ (‘magit-refresh’)
-
- This command refreshes the current buffer if its major mode derives
- from ‘magit-mode’ as well as the corresponding status buffer.
-
- If the option ‘magit-revert-buffers’ calls for it, then it also
- reverts all unmodified buffers that visit files being tracked in
- the current repository.
-
-‘G’ (‘magit-refresh-all’)
-
- This command refreshes all Magit buffers belonging to the current
- repository and also reverts all unmodified buffers that visit files
- being tracked in the current repository.
-
- The file-visiting buffers are always reverted, even if
- ‘magit-revert-buffers’ is nil.
-
- -- User Option: magit-refresh-buffer-hook
-
- This hook is run in each Magit buffer that was refreshed during the
- current refresh - normally the current buffer and the status
- buffer.
-
- -- User Option: magit-refresh-status-buffer
-
- When this option is non-nil, then the status buffer is
- automatically refreshed after running git for side-effects, in
- addition to the current Magit buffer, which is always refreshed
- automatically.
-
- Only set this to nil after exhausting all other options to improve
- performance.
-
- -- Function: magit-after-save-refresh-status
-
- This function is intended to be added to ‘after-save-hook’. After
- doing that the corresponding status buffer is refreshed whenever a
- buffer is saved to a file inside a repository.
-
- Note that refreshing a Magit buffer is done by re-creating its
- contents from scratch, which can be slow in large repositories. If
- you are not satisfied with Magit’s performance, then you should
- obviously not add this function to that hook.
-
-
-File: magit.info, Node: Automatic Saving of File-Visiting Buffers, Next: Automatic Reverting of File-Visiting Buffers, Prev: Automatic Refreshing of Magit Buffers, Up: Modes and Buffers
-
-4.1.5 Automatic Saving of File-Visiting Buffers
------------------------------------------------
-
-File-visiting buffers are by default saved at certain points in time.
-This doesn’t guarantee that Magit buffers are always up-to-date, but,
-provided one only edits files by editing them in Emacs and uses only
-Magit to interact with Git, one can be fairly confident. When in doubt
-or after outside changes, type ‘g’ (‘magit-refresh’) to save and refresh
-explicitly.
-
- -- User Option: magit-save-repository-buffers
-
- This option controls whether file-visiting buffers are saved before
- certain events.
-
- If this is non-nil then all modified file-visiting buffers
- belonging to the current repository may be saved before running
- commands, before creating new Magit buffers, and before explicitly
- refreshing such buffers. If this is ‘dontask’ then this is done
- without user intervention. If it is ‘t’ then the user has to
- confirm each save.
-
-
-File: magit.info, Node: Automatic Reverting of File-Visiting Buffers, Prev: Automatic Saving of File-Visiting Buffers, Up: Modes and Buffers
-
-4.1.6 Automatic Reverting of File-Visiting Buffers
---------------------------------------------------
-
-By default Magit automatically reverts buffers that are visiting files
-that are being tracked in a Git repository, after they have changed on
-disk. When using Magit one often changes files on disk by running git,
-i.e. "outside Emacs", making this a rather important feature.
-
- For example, if you discard a change in the status buffer, then that
-is done by running ‘git apply --reverse ...’, and Emacs considers the
-file to have "changed on disk". If Magit did not automatically revert
-the buffer, then you would have to type ‘M-x revert-buffer RET RET’ in
-the visiting buffer before you could continue making changes.
-
- -- User Option: magit-auto-revert-mode
-
- When this mode is enabled, then buffers that visit tracked files,
- are automatically reverted after the visited files changed on disk.
-
- -- User Option: global-auto-revert-mode
-
- When this mode is enabled, then any file-visiting buffer is
- automatically reverted after the visited file changed on disk.
-
- If you like buffers that visit tracked files to be automatically
- reverted, then you might also like any buffer to be reverted, not
- just those visiting tracked files. If that is the case, then
- enable this mode _instead of_ ‘magit-auto-revert-mode’.
-
- -- User Option: magit-auto-revert-immediately
-
- This option controls whether Magit reverts buffers immediately.
-
- If this is non-nil and either ‘global-auto-revert-mode’ or
- ‘magit-auto-revert-mode’ is enabled, then Magit immediately reverts
- buffers by explicitly calling ‘auto-revert-buffers’ after running
- git for side-effects.
-
- If ‘auto-revert-use-notify’ is non-nil (and file notifications are
- actually supported), then ‘magit-auto-revert-immediately’ does not
- have to be non-nil, because the reverts happen immediately anyway.
-
- If ‘magit-auto-revert-immediately’ and ‘auto-revert-use-notify’ are
- both ‘nil’, then reverts happen after ‘auto-revert-interval’
- seconds of user inactivity. That is not desirable.
-
- -- User Option: auto-revert-use-notify
-
- This option controls whether file notification functions should be
- used. Note that this variable unfortunately defaults to ‘t’ even
- on systems on which file notifications cannot be used.
-
- -- User Option: magit-auto-revert-tracked-only
-
- This option controls whether ‘magit-auto-revert-mode’ only reverts
- tracked files or all files that are located inside Git
- repositories, including untracked files and files located inside
- Git’s control directory.
-
- -- Command: auto-revert-mode
-
- The global mode ‘magit-auto-revert-mode’ works by turning on this
- local mode in the appropriate buffers (but
- ‘global-auto-revert-mode’ is implemented differently). You can
- also turn it on or off manually, which might be necessary if Magit
- does not notice that a previously untracked file now is being
- tracked or vice-versa.
-
- -- User Option: auto-revert-stop-on-user-input
-
- This option controls whether the arrival of user input suspends the
- automatic reverts for ‘auto-revert-interval’ seconds.
-
- -- User Option: auto-revert-interval
-
- This option controls for how many seconds Emacs waits before
- resuming suspended reverts.
-
- -- User Option: auto-revert-buffer-list-filter
-
- This option specifies an additional filter used by
- ‘auto-revert-buffers’ to determine whether a buffer should be
- reverted or not.
-
- This option is provided by ‘magit’, which also redefines
- ‘auto-revert-buffers’ to respect it. Magit users who do not turn
- on the local mode ‘auto-revert-mode’ themselves, are best served by
- setting the value to ‘magit-auto-revert-repository-buffers-p’.
-
- However the default is nil, to not disturb users who do use the
- local mode directly. If you experience delays when running Magit
- commands, then you should consider using one of the predicates
- provided by Magit - especially if you also use Tramp.
-
- Users who do turn on ‘auto-revert-mode’ in buffers in which Magit
- doesn’t do that for them, should likely not use any filter. Users
- who turn on ‘global-auto-revert-mode’, do not have to worry about
- this option, because it is disregarded if the global mode is
- enabled.
-
- -- User Option: auto-revert-verbose
-
- This option controls whether Emacs reports when a buffer has been
- reverted.
-
- The options with the ‘auto-revert-’ prefix are located in the Custom
-group named ‘auto-revert’. The other, magit-specific, options are
-located in the ‘magit’ group.
-
-* Menu:
-
-* Risk of Reverting Automatically::
-
-
-File: magit.info, Node: Risk of Reverting Automatically, Up: Automatic Reverting of File-Visiting Buffers
-
-Risk of Reverting Automatically
-...............................
-
-For the vast majority users automatically reverting file-visiting
-buffers after they have changed on disk is harmless.
-
- If a buffer is modified (i.e. it contains changes that haven’t been
-saved yet), then Emacs would refuse to automatically revert it. If you
-save a previously modified buffer, then that results in what is seen by
-Git as an uncommitted change. Git would then refuse to carry out any
-commands that would cause these changes to be lost. In other words, if
-there is anything that could be lost, then either Git or Emacs would
-refuse to discard the changes.
-
- However if you do use file-visiting buffers as a sort of ad hoc
-"staging area", then the automatic reverts could potentially cause data
-loss. So far I have only heard from one user who uses such a workflow.
-
- An example: You visit some file in a buffer, edit it, and save the
-changes. Then, outside of Emacs (or at least not using Magit or by
-saving the buffer) you change the file on disk again. At this point the
-buffer is the only place where the intermediate version still exists.
-You have saved the changes to disk, but that has since been overwritten.
-Meanwhile Emacs considers the buffer to be unmodified (because you have
-not made any changes to it since you last saved it to the visited file)
-and therefore would not object to it being automatically reverted. At
-this point an Auto-Revert mode would kick in. It would check whether
-the buffer is modified and since that is not the case it would revert
-it. The intermediate version would be lost. (Actually you could still
-get it back using the ‘undo’ command.)
-
- If your workflow depends on Emacs preserving the intermediate version
-in the buffer, then you have to disable all Auto-Revert modes. But
-please consider that such a workflow would be dangerous even without
-using an Auto-Revert mode, and should therefore be avoided. If Emacs
-crashed or if you quit Emacs by mistake, then you would also lose the
-buffer content. There would be no autosave file still containing the
-intermediate version (because that was deleted when you saved the
-buffer) and you would not be asked whether you want to save the buffer
-(because it isn’t modified).
-
-
-File: magit.info, Node: Sections, Next: Popup Buffers and Prefix Commands, Prev: Modes and Buffers, Up: Interface Concepts
-
-4.2 Sections
-============
-
-Magit buffers are organized into nested sections, which can be collapsed
-and expanded, similar to how sections are handled in Org mode. Each
-section also has a type, and some sections also have a value. For each
-section type there can also be a local keymap, shared by all sections of
-that type.
-
- Taking advantage of the section value and type, many commands operate
-on the current section, or when the region is active and selects
-sections of the same type, all of the selected sections. Commands that
-only make sense for a particular section type (as opposed to just
-behaving differently depending on the type) are usually bound in section
-type keymaps.
-
-* Menu:
-
-* Section Movement::
-* Section Visibility::
-* Section Hooks::
-* Section Types and Values::
-* Section Options::
-
-
-File: magit.info, Node: Section Movement, Next: Section Visibility, Up: Sections
-
-4.2.1 Section Movement
-----------------------
-
-To move within a section use the usual keys (‘C-p’, ‘C-n’, ‘C-b’, ‘C-f’
-etc), whose global bindings are not shadowed. To move to another
-section use the following commands.
-
-‘p’ (‘magit-section-backward’)
-
- When not at the beginning of a section, then move to the beginning
- of the current section. At the beginning of a section, instead
- move to the beginning of the previous visible section.
-
-‘n’ (‘magit-section-forward’)
-
- Move to the beginning of the next visible section.
-
-‘M-p’ (‘magit-section-backward-siblings’)
-
- Move to the beginning of the previous sibling section. If there is
- no previous sibling section, then move to the parent section
- instead.
-
-‘M-n’ (‘magit-section-forward-siblings’)
-
- Move to the beginning of the next sibling section. If there is no
- next sibling section, then move to the parent section instead.
-
-‘^’ (‘magit-section-up’)
-
- Move to the beginning of the parent of the current section.
-
- The above commands all call the hook ‘magit-section-movement-hook’.
-Any of the functions listed below can be used as members of this hook.
-
- -- Variable: magit-section-movement-hook
-
- This hook is run by all of the above movement commands, after
- arriving at the destination.
-
- -- Function: magit-hunk-set-window-start
-
- This hook function ensures that the beginning of the current
- section is visible, provided it is a ‘hunk’ section. Otherwise, it
- does nothing. This function is a member of the hook’s default
- value.
-
- -- Function: magit-section-set-window-start
-
- This hook function ensures that the beginning of the current
- section is visible, regardless of the section’s type. If you add
- this to ‘magit-section-movement-hook’, then you must remove the
- hunk-only variant in turn.
-
- -- Function: magit-log-maybe-show-more-commits
-
- This hook function only has an effect in log buffers, and ‘point’
- is on the "show more" section. If that is the case, then it
- doubles the number of commits that are being shown. This function
- is a member of the hook’s default value.
-
- -- Function: magit-log-maybe-update-revision-buffer
-
- When moving inside a log buffer, then this function updates the
- revision buffer, provided it is already being displayed in another
- window of the same frame. This function is a member of the hook’s
- default value.
-
- -- Function: magit-log-maybe-update-blob-buffer
-
- When moving inside a log buffer and another window of the same
- frame displays a blob buffer, then this function instead displays
- the blob buffer for the commit at point in that window.
-
- -- Function: magit-status-maybe-update-revision-buffer
-
- When moving inside a status buffer, then this function updates the
- revision buffer, provided it is already being displayed in another
- window of the same frame.
-
- -- Function: magit-status-maybe-update-blob-buffer
-
- When moving inside a status buffer and another window of the same
- frame displays a blob buffer, then this function instead displays
- the blob buffer for the commit at point in that window.
-
- -- User Option: magit-update-other-window-delay
-
- Delay before automatically updating the other window.
-
- When moving around in certain buffers, then certain other buffers,
- which are being displayed in another window, may optionally be
- updated to display information about the section at point.
-
- When holding down a key to move by more than just one section, then
- that would update that buffer for each section on the way. To
- prevent that, updating the revision buffer is delayed, and this
- option controls for how long. For optimal experience you might
- have to adjust this delay and/or the keyboard repeat rate and delay
- of your graphical environment or operating system.
-
-
-File: magit.info, Node: Section Visibility, Next: Section Hooks, Prev: Section Movement, Up: Sections
-
-4.2.2 Section Visibility
-------------------------
-
-Magit provides many commands for changing the visibility of sections,
-but all you need to get started are the next two.
-
-‘TAB’ (‘magit-section-toggle’)
-
- Toggle the visibility of the body of the current section.
-
-‘C-<tab>’ (‘magit-section-cycle’)
-
- Cycle the visibility of current section and its children.
-
-‘M-<tab>’ (‘magit-section-cycle-diffs’)
-
- Cycle the visibility of diff-related sections in the current
- buffer.
-
-‘S-<tab>’ (‘magit-section-cycle-global’)
-
- Cycle the visibility of all sections in the current buffer.
-
-‘1’ (‘magit-section-show-level-1’)
-‘2’ (‘magit-section-show-level-2’)
-‘3’ (‘magit-section-show-level-3’)
-‘4’ (‘magit-section-show-level-4’)
-
- Show sections surrounding the current section up to level N.
-
-‘M-1’ (‘magit-section-show-level-1-all’)
-‘M-2’ (‘magit-section-show-level-2-all’)
-‘M-3’ (‘magit-section-show-level-3-all’)
-‘M-4’ (‘magit-section-show-level-4-all’)
-
- Show all sections up to level N.
-
- Some functions, which are used to implement the above commands, are
-also exposed as commands themselves. By default no keys are bound to
-these commands, as they are generally perceived to be much less useful.
-But your mileage may vary.
-
- -- Command: magit-section-show
-
- Show the body of the current section.
-
- -- Command: magit-section-hide
-
- Hide the body of the current section.
-
- -- Command: magit-section-show-headings
-
- Recursively show headings of children of the current section. Only
- show the headings. Previously shown text-only bodies are hidden.
-
- -- Command: magit-section-show-children
-
- Recursively show the bodies of children of the current section.
- With a prefix argument show children down to the level of the
- current section, and hide deeper children.
-
- -- Command: magit-section-hide-children
-
- Recursively hide the bodies of children of the current section.
-
- -- Command: magit-section-toggle-children
-
- Toggle visibility of bodies of children of the current section.
-
- When a buffer is first created then some sections are shown expanded
-while others are not. This is hard coded. When a buffer is refreshed
-then the previous visibility is preserved. The initial visibility of
-certain sections can also be overwritten using the hook
-‘magit-section-set-visibility-hook’.
-
- -- User Option: magit-section-initial-visibility-alist
-
- This options can be used to override the initial visibility of
- sections. In the future it will also be used to define the
- defaults, but currently a section’s default is still hardcoded.
-
- The value is an alist. Each element maps a section type or lineage
- to the initial visibility state for such sections. The state has
- to be one of ‘show’ or ‘hide’, or a function that returns one of
- these symbols. A function is called with the section as the only
- argument.
-
- Use the command ‘magit-describe-section-briefly’ to determine a
- section’s lineage or type. The vector in the output is the section
- lineage and the type is the first element of that vector.
- Wildcards can be used, see ‘magit-section-match’.
-
- -- User Option: magit-section-cache-visibility
-
- This option controls for which sections the previous visibility
- state should be restored if a section disappears and later appears
- again. The value is a boolean or a list of section types. If t,
- then the visibility of all sections is cached. Otherwise this is
- only done for sections whose type matches one of the listed types.
-
- This requires that the function ‘magit-section-cached-visibility’
- is a member of ‘magit-section-set-visibility-hook’.
-
- -- Variable: magit-section-set-visibility-hook
-
- This hook is run when first creating a buffer and also when
- refreshing an existing buffer, and is used to determine the
- visibility of the section currently being inserted.
-
- Each function is called with one argument, the section being
- inserted. It should return ‘hide’ or ‘show’, or to leave the
- visibility undefined ‘nil’. If no function decides on the
- visibility and the buffer is being refreshed, then the visibility
- is preserved; or if the buffer is being created, then the hard
- coded default is used.
-
- Usually this should only be used to set the initial visibility but
- not during refreshes. If ‘magit-insert-section--oldroot’ is
- non-nil, then the buffer is being refreshed and these functions
- should immediately return ‘nil’.
-
-
-File: magit.info, Node: Section Hooks, Next: Section Types and Values, Prev: Section Visibility, Up: Sections
-
-4.2.3 Section Hooks
--------------------
-
-Which sections are inserted into certain buffers is controlled with
-hooks. This includes the status and the refs buffers. For other
-buffers, e.g. log and diff buffers, this is not possible. The command
-‘magit-describe-section’ can be used to see which hook (if any) was
-responsible for inserting the section at point.
-
- For buffers whose sections can be customized by the user, a hook
-variable called ‘magit-TYPE-sections-hook’ exists. This hook should be
-changed using ‘magit-add-section-hook’. Avoid using ‘add-hooks’ or the
-Custom interface.
-
- The various available section hook variables are described later in
-this manual along with the appropriate "section inserter functions".
-
- -- Function: magit-add-section-hook hook function &optional at append
- local
-
- Add the function FUNCTION to the value of section hook HOOK.
-
- Add FUNCTION at the beginning of the hook list unless optional
- APPEND is non-nil, in which case FUNCTION is added at the end. If
- FUNCTION already is a member then move it to the new location.
-
- If optional AT is non-nil and a member of the hook list, then add
- FUNCTION next to that instead. Add before or after AT, or replace
- AT with FUNCTION depending on APPEND. If APPEND is the symbol
- ‘replace’, then replace AT with FUNCTION. For any other non-nil
- value place FUNCTION right after AT. If nil, then place FUNCTION
- right before AT. If FUNCTION already is a member of the list but
- AT is not, then leave FUNCTION where ever it already is.
-
- If optional LOCAL is non-nil, then modify the hook’s buffer-local
- value rather than its global value. This makes the hook local by
- copying the default value. That copy is then modified.
-
- HOOK should be a symbol. If HOOK is void, it is first set to nil.
- HOOK’s value must not be a single hook function. FUNCTION should
- be a function that takes no arguments and inserts one or multiple
- sections at point, moving point forward. FUNCTION may choose not
- to insert its section(s), when doing so would not make sense. It
- should not be abused for other side-effects.
-
- To remove a function from a section hook, use ‘remove-hook’.
-
-
-File: magit.info, Node: Section Types and Values, Next: Section Options, Prev: Section Hooks, Up: Sections
-
-4.2.4 Section Types and Values
-------------------------------
-
-Each section has a type, for example ‘hunk’, ‘file’, and ‘commit’.
-Instances of certain section types also have a value. The value of a
-section of type ‘file’, for example, is a file name.
-
- Users usually do not have to worry about a section’s type and value,
-but knowing them can be handy at times.
-
-‘M-x magit-describe-section-briefly’ (‘magit-describe-section-briefly’)
-
- Show information about the section at point in the echo area, as
- "#<magit-section VALUE [TYPE PARENT-TYPE...] BEGINNING-END>".
-
- Many commands behave differently depending on the type of the section
-at point and/or somehow consume the value of that section. But that is
-only one of the reasons why the same key may do something different,
-depending on what section is current.
-
- Additionally for each section type a keymap *might* be defined, named
-‘magit-TYPE-section-map’. That keymap is used as text property keymap
-of all text belonging to any section of the respective type. If such a
-map does not exist for a certain type, then you can define it yourself,
-and it will automatically be used.
-
-
-File: magit.info, Node: Section Options, Prev: Section Types and Values, Up: Sections
-
-4.2.5 Section Options
----------------------
-
-This section describes options that have an effect on more than just a
-certain type of sections. As you can see there are not many of those.
-
- -- User Option: magit-section-show-child-count
-
- Whether to append the number of children to section headings. This
- only affects sections that could benefit from this information.
-
-
-File: magit.info, Node: Popup Buffers and Prefix Commands, Next: Completion Confirmation and the Selection, Prev: Sections, Up: Interface Concepts
-
-4.3 Popup Buffers and Prefix Commands
-=====================================
-
-Many Magit commands are implemented using *popup buffers*. First the
-user invokes a *popup* or *prefix* command, which causes a popup buffer
-with the available *infix* arguments and *suffix* commands to be
-displayed. The user then optionally toggles/sets some arguments and
-finally invokes one of the suffix commands.
-
- This is implemented in the library ‘magit-popup’. Earlier releases
-used the library ‘magit-key-mode’. A future release will switch to a
-yet-to-be-written successor, which will likely be named ‘transient’.
-
- Because ‘magit-popup’ can also be used by other packages without
-having to depend on all of Magit, it is documented in its own manual.
-See *note (magit-popup)Top::.
-
-‘C-c C-c’ (‘magit-dispatch-popup’)
-
- This popup command shows a buffer featuring all other Magit popup
- commands as well as some other commands that are not popup commands
- themselves.
-
- This command is also, or especially, useful outside Magit buffers, so
-you should setup a global binding:
-
- (global-set-key (kbd "C-x M-g") 'magit-dispatch-popup)
-
- Most popups set their initial arguments according to the
-corresponding ‘magit-*-arguments’ variable. Two popups, the log and
-diff popups (see *note Logging:: and *note Diffing::), may behave a bit
-differently, depending on the value of ‘magit-use-sticky-arguments’.
-
- -- User Option: magit-use-sticky-arguments
-
- This option controls how diff and log commands reuse arguments from
- existing buffers.
-
- When ‘t’ (the default value), the log or diff popup reuses the
- arguments from the current repository’s log or diff buffer,
- respectively. When no log or diff buffer exists for the current
- repository, these popups use the default value of
- ‘magit-log-arguments’ or ‘magit-diff-arguments’.
-
- When ‘current’, log and diff popups will only reuse the arguments
- if the current buffer is derived from ‘magit-log-mode’ or
- ‘magit-diff-mode’, respectively.
-
- When ‘nil’, the default value of ‘magit-log-arguments’ or
- ‘magit-diff-arguments’ is always used.
-
-
-File: magit.info, Node: Completion Confirmation and the Selection, Next: Running Git, Prev: Popup Buffers and Prefix Commands, Up: Interface Concepts
-
-4.4 Completion, Confirmation and the Selection
-==============================================
-
-* Menu:
-
-* Action Confirmation::
-* Completion and Confirmation::
-* The Selection::
-* The hunk-internal region::
-* Support for Completion Frameworks::
-* Additional Completion Options::
-
-
-File: magit.info, Node: Action Confirmation, Next: Completion and Confirmation, Up: Completion Confirmation and the Selection
-
-4.4.1 Action Confirmation
--------------------------
-
-By default many actions that could potentially lead to data loss have to
-be confirmed. This includes many very common actions, so this can
-quickly become annoying. Many of these actions can be undone and if you
-have thought about how to undo certain mistakes, then it should be safe
-to disable confirmation for the respective actions.
-
- The option ‘magit-no-confirm’ can be used to tell Magit to perform
-certain actions without the user having to confirm them. Note that
-while this option can only be used to disable confirmation for a
-specific set of actions, the next section explains another way of
-telling Magit to ask fewer questions.
-
- -- User Option: magit-no-confirm
-
- The value of this option is a list of symbols, representing actions
- that do not have to be confirmed by the user before being carried
- out.
-
- By default many potentially dangerous commands ask the user for
- confirmation. Each of the below symbols stands for an action
- which, when invoked unintentionally or without being fully aware of
- the consequences, could lead to tears. In many cases there are
- several commands that perform variations of a certain action, so we
- don’t use the command names but more generic symbols.
-
- • Applying changes:
-
- • ‘discard’ Discarding one or more changes (i.e. hunks or
- the complete diff for a file) loses that change,
- obviously.
-
- • ‘reverse’ Reverting one or more changes can usually be
- undone by reverting the reversion.
-
- • ‘stage-all-changes’, ‘unstage-all-changes’ When there are
- both staged and unstaged changes, then un-/staging
- everything would destroy that distinction. Of course
- that also applies when un-/staging a single change, but
- then less is lost and one does that so often that having
- to confirm every time would be unacceptable.
-
- • Files:
-
- • ‘delete’ When a file that isn’t yet tracked by Git is
- deleted, then it is completely lost, not just the last
- changes. Very dangerous.
-
- • ‘trash’ Instead of deleting a file it can also be move to
- the system trash. Obviously much less dangerous than
- deleting it.
-
- Also see option ‘magit-delete-by-moving-to-trash’.
-
- • ‘resurrect’ A deleted file can easily be resurrected by
- "deleting" the deletion, which is done using the same
- command that was used to delete the same file in the
- first place.
-
- • ‘untrack’ Untracking a file can be undone by tracking it
- again.
-
- • ‘rename’ Renaming a file can easily be undone.
-
- • Sequences:
-
- • ‘reset-bisect’ Aborting (known to Git as "resetting") a
- bisect operation loses all information collected so far.
-
- • ‘abort-rebase’ Aborting a rebase throws away all already
- modified commits, but it’s possible to restore those from
- the reflog.
-
- • ‘abort-merge’ Aborting a merge throws away all conflict
- resolutions which have already been carried out by the
- user.
-
- • ‘merge-dirty’ Merging with a dirty worktree can make it
- hard to go back to the state before the merge was
- initiated.
-
- • References:
-
- • ‘delete-unmerged-branch’ Once a branch has been deleted,
- it can only be restored using low-level recovery tools
- provided by Git. And even then the reflog is gone. The
- user always has to confirm the deletion of a branch by
- accepting the default choice (or selecting another
- branch), but when a branch has not been merged yet, also
- make sure the user is aware of that.
-
- • ‘delete-pr-branch’ When deleting a branch that was
- created from a pull request and if no other branches
- still exist on that remote, then ‘magit-branch-delete’
- offers to delete the remote as well. This should be safe
- because it only happens if no other refs exist in the
- remotes namespace, and you can recreate the remote if
- necessary.
-
- • ‘drop-stashes’ Dropping a stash is dangerous because Git
- stores stashes in the reflog. Once a stash is removed,
- there is no going back without using low-level recovery
- tools provided by Git. When a single stash is dropped,
- then the user always has to confirm by accepting the
- default (or selecting another). This action only
- concerns the deletion of multiple stashes at once.
-
- • Edit published history:
-
- Without adding these symbols here, you will be warned before
- editing commits that have already been pushed to one of the
- branches listed in ‘magit-published-branches’.
-
- • ‘amend-published’ Affects most commands that amend to
- "HEAD".
-
- • ‘rebase-published’ Affects commands that perform
- interactive rebases. This includes commands from the
- commit popup that modify a commit other than "HEAD",
- namely the various fixup and squash variants.
-
- • ‘edit-published’ Affects the commands
- ‘magit-edit-line-commit’ and
- ‘magit-diff-edit-hunk-commit’. These two commands make
- it quite easy to accidentally edit a published commit, so
- you should think twice before configuring them not to ask
- for confirmation.
-
- To disable confirmation completely, add all three symbols here
- or set ‘magit-published-branches’ to ‘nil’.
-
- • Various:
-
- • ‘kill-process’ There seldom is a reason to kill a
- process.
-
- • Global settings:
-
- Instead of adding all of the above symbols to the value of
- this option, you can also set it to the atom ‘t’, which has
- the same effect as adding all of the above symbols. Doing
- that most certainly is a bad idea, especially because other
- symbols might be added in the future. So even if you don’t
- want to be asked for confirmation for any of these actions,
- you are still better of adding all of the respective symbols
- individually.
-
- When ‘magit-wip-before-change-mode’ is enabled, then the
- following actions can be undone fairly easily: ‘discard’,
- ‘reverse’, ‘stage-all-changes’, and ‘unstage-all-changes’. If
- and only if this mode is enabled, then ‘safe-with-wip’ has the
- same effect as adding all of these symbols individually.
-
-
-File: magit.info, Node: Completion and Confirmation, Next: The Selection, Prev: Action Confirmation, Up: Completion Confirmation and the Selection
-
-4.4.2 Completion and Confirmation
----------------------------------
-
-Many Magit commands ask the user to select from a list of possible
-things to act on, while offering the most likely choice as the default.
-For many of these commands the default is the thing at point, provided
-that it actually is a valid thing to act on. For many commands that act
-on a branch, the current branch serves as the default if there is no
-branch at point.
-
- These commands combine asking for confirmation and asking for a
-target to act on into a single action. The user can confirm the default
-target using ‘RET’ or abort using ‘C-g’. This is similar to a
-‘y-or-n-p’ prompt, but the keys to confirm or abort differ.
-
- At the same time the user is also given the opportunity to select
-another target, which is useful because for some commands and/or in some
-situations you might want to select the action before selecting the
-target by moving to it.
-
- However you might find that for some commands you always want to use
-the default target, if any, or even that you want the command to act on
-the default without requiring any confirmation at all. The option
-‘magit-dwim-selection’ can be used to configure certain commands to that
-effect.
-
- Note that when the region is active then many commands act on the
-things that are selected using a mechanism based on the region, in many
-cases after asking for confirmation. This region-based mechanism is
-called the "selection" and is described in detail in the next section.
-When a selection exists that is valid for the invoked command, then that
-command never offers to act on something else, and whether it asks for
-confirmation is not controlled by this option.
-
- Also note that Magit asks for confirmation of certain actions that
-are not coupled with completion (or the selection). Such dialogs are
-also not affected by this option and are described in the previous
-section.
-
- -- User Option: magit-dwim-selection
-
- This option can be used to tell certain commands to use the thing at
-point instead of asking the user to select a candidate to act on, with
-or without confirmation.
-
- The value has the form ‘((COMMAND nil|PROMPT DEFAULT)...)’.
-
- • COMMAND is the command that should not prompt for a choice. To
- have an effect, the command has to use the function
- ‘magit-completing-read’ or a utility function which in turn uses
- that function.
-
- • If the command uses ‘magit-completing-read’ multiple times, then
- PROMPT can be used to only affect one of these uses. PROMPT, if
- non-nil, is a regular expression that is used to match against the
- PROMPT argument passed to ‘magit-completing-read’.
-
- • DEFAULT specifies how to use the default. If it is ‘t’, then the
- DEFAULT argument passed to ‘magit-completing-read’ is used without
- confirmation. If it is ‘ask’, then the user is given a chance to
- abort. DEFAULT can also be ‘nil’, in which case the entry has no
- effect.
-
-
-File: magit.info, Node: The Selection, Next: The hunk-internal region, Prev: Completion and Confirmation, Up: Completion Confirmation and the Selection
-
-4.4.3 The Selection
--------------------
-
-If the region is active, then many Magit commands act on the things that
-are selected using a mechanism based on the region instead of one single
-thing. When the region is not active, then these commands act on the
-thing at point or read a single thing to act on. This is described in
-the previous section — this section only covers how multiple things are
-selected, how that is visualized, and how certain commands behave when
-that is the case.
-
- Magit’s mechanism for selecting multiple things, or rather sections
-that represent these things, is based on the Emacs region, but the area
-that Magit considers to be selected is typically larger than the region
-and additional restrictions apply.
-
- Magit makes a distinction between a region that qualifies as forming
-a valid Magit selection and a region that does not. If the region does
-not qualify, then it is displayed as it is in other Emacs buffers. If
-the region does qualify as a Magit selection, then the selection is
-always visualized, while the region itself is only visualized if it
-begins and ends on the same line.
-
- For a region to qualify as a Magit selection, it must begin in the
-heading of one section and end in the heading of a sibling section.
-Note that if the end of the region is at the very beginning of section
-heading (i.e. at the very beginning of a line) then that section is
-considered to be *inside* the selection.
-
- This is not consistent with how the region is normally treated in
-Emacs — if the region ends at the beginning of a line, then that line is
-outside the region. Due to how Magit visualizes the selection, it
-should be obvious that this difference exists.
-
- Not every command acts on every valid selection. Some commands do
-not even consider the location of point, others may act on the section
-at point but not support acting on the selection, and even commands that
-do support the selection of course only do so if it selects things that
-they can act on.
-
- This is the main reason why the selection must include the section at
-point. Even if a selection exists, the invoked command may disregard
-it, in which case it may act on the current section only. It is much
-safer to only act on the current section but not the other selected
-sections than it is to act on the current section *instead* of the
-selected sections. The latter would be much more surprising and if the
-current section always is part of the selection, then that cannot
-happen.
-
- -- Variable: magit-keep-region-overlay
-
- This variable controls whether the region is visualized as usual
- even when a valid Magit selection or a hunk-internal region exists.
- See the doc-string for more information.
-
-
-File: magit.info, Node: The hunk-internal region, Next: Support for Completion Frameworks, Prev: The Selection, Up: Completion Confirmation and the Selection
-
-4.4.4 The hunk-internal region
-------------------------------
-
-Somewhat related to the Magit selection described in the previous
-section is the hunk-internal region.
-
- Like the selection, the hunk-internal region is based on the Emacs
-region but causes that region to not be visualized as it would in other
-Emacs buffers, and includes the line on which the region ends even if it
-ends at the very beginning of that line.
-
- Unlike the selection, which is based on a region that must begin in
-the heading of one section and ends in the section of a sibling section,
-the hunk-internal region must begin inside the *body* of a hunk section
-and end in the body of the *same* section.
-
- The hunk-internal region is honored by "apply" commands, which can,
-among other targets, act on a hunk. If the hunk-internal region is
-active, then such commands act only on the marked part of the hunk
-instead of on the complete hunk.
-
-
-File: magit.info, Node: Support for Completion Frameworks, Next: Additional Completion Options, Prev: The hunk-internal region, Up: Completion Confirmation and the Selection
-
-4.4.5 Support for Completion Frameworks
----------------------------------------
-
-The built-in option ‘completing-read-function’ specifies the low-level
-function used by ‘completing-read’ to ask a user to select from a list
-of choices. Its default value is ‘completing-read-default’.
-Alternative completion frameworks typically activate themselves by
-substituting their own implementation.
-
- Mostly for historic reasons Magit provides a similar option named
-‘magit-completing-read-function’, which only controls the low-level
-function used by ‘magit-completing-read’. This option also makes it
-possible to use a different completing mechanism for Magit than for the
-rest of Emacs, but doing that is not recommend.
-
- You most likely don’t have to customize the magit-specific option to
-use an alternative completion framework. For example, if you enable
-‘ivy-mode’, then Magit will respect that, and if you enable ‘helm-mode’,
-then you are done too.
-
- However if you want to use Ido, then ‘ido-mode’ won’t do the trick.
-You will also have to install the ‘ido-completing-read+’ package and use
-‘magit-ido-completing-read’ as ‘magit-completing-read-function’.
-
- -- User Option: magit-completing-read-function
-
- The value of this variable is the low-level function used to
- perform completion by code that uses ‘magit-completing-read’ (as
- opposed to the built-in ‘completing-read’).
-
- The default value, ‘magit-builtin-completing-read’, is suitable for
- the standard completion mechanism, ‘ivy-mode’, and ‘helm-mode’ at
- least.
-
- The built-in ‘completing-read’ and ‘completing-read-default’ are
- *not* suitable to be used here. ‘magit-builtin-completing-read’
- performs some additional work, and any function used in its place
- has to do the same.
-
- -- Function: magit-builtin-completing-read prompt choices &optional
- predicate require-match initial-input hist def
-
- This function performs completion using the built-in
- ‘completion-read’ and does some additional magit-specific work.
-
- -- Function: magit-ido-completing-read prompt choices &optional
- predicate require-match initial-input hist def
-
- This function performs completion using ‘ido-completing-read+’ from
- the package by the same name (which you have to explicitly install)
- and does some additional magit-specific work.
-
- We have to use ‘ido-completing-read+’ instead of the
- ‘ido-completing-read’ that comes with Ido itself, because the
- latter, while intended as a drop-in replacement, cannot serve that
- purpose because it violates too many of the implicit conventions.
-
- -- Function: magit-completing-read prompt choices &optional predicate
- require-match initial-input hist def fallback
-
- This is the function that Magit commands use when they need the
- user to select a single thing to act on. The arguments have the
- same meaning as for ‘completing-read’, except for FALLBACK, which
- is unique to this function and is described below.
-
- Instead of asking the user to choose from a list of possible
- candidates, this function may just return the default specified by
- DEF, with or without requiring user confirmation. Whether that is
- the case depends on PROMPT, ‘this-command’ and
- ‘magit-dwim-selection’. See the documentation of the latter for
- more information.
-
- If it does read a value in the minibuffer, then this function acts
- similar to ‘completing-read’, except for the following:
-
- • If REQUIRE-MATCH is ‘nil’ and the user exits without a choice,
- then ‘nil’ is returned instead of an empty string.
-
- • If REQUIRE-MATCH is non-nil and the users exits without a
- choice, an user-error is raised.
-
- • FALLBACK specifies a secondary default that is only used if
- the primary default DEF is ‘nil’. The secondary default is
- not subject to ‘magit-dwim-selection’ — if DEF is ‘nil’ but
- FALLBACK is not, then this function always asks the user to
- choose a candidate, just as if both defaults were ‘nil’.
-
- • ": " is appended to PROMPT.
-
- • PROMPT is modified to end with \" (default DEF|FALLBACK): \"
- provided that DEF or FALLBACK is non-nil, that neither
- ‘ivy-mode’ nor ‘helm-mode’ is enabled, and that
- ‘magit-completing-read-function’ is set to its default value
- of ‘magit-builtin-completing-read’.
-
-
-File: magit.info, Node: Additional Completion Options, Prev: Support for Completion Frameworks, Up: Completion Confirmation and the Selection
-
-4.4.6 Additional Completion Options
------------------------------------
-
- -- User Option: magit-list-refs-sortby
-
- For many commands that read a ref or refs from the user, the value
- of this option can be used to control the order of the refs. Valid
- values include any key accepted by the ‘--sort’ flag of ‘git
- for-each-ref’. By default, refs are sorted alphabetically by their
- full name (e.g., "refs/heads/master").
-
-
-File: magit.info, Node: Running Git, Prev: Completion Confirmation and the Selection, Up: Interface Concepts
-
-4.5 Running Git
-===============
-
-* Menu:
-
-* Viewing Git Output::
-* Git Process Status::
-* Running Git Manually::
-* Git Executable::
-* Global Git Arguments::
-
-
-File: magit.info, Node: Viewing Git Output, Next: Git Process Status, Up: Running Git
-
-4.5.1 Viewing Git Output
-------------------------
-
-Magit runs Git either for side-effects (e.g. when pushing) or to get
-some value (e.g. the name of the current branch).
-
- When Git is run for side-effects, the process output is logged in a
-per-repository log buffer, which can be consulted using the
-‘magit-process’ command when things don’t go as expected.
-
- The output/errors for up to ‘magit-process-log-max’ Git commands are
-retained.
-
-‘$’ (‘magit-process’)
-
- This commands displays the process buffer for the current
- repository.
-
- Inside that buffer, the usual key bindings for navigating and showing
-sections are available. There is one additional command.
-
-‘k’ (‘magit-process-kill’)
-
- This command kills the process represented by the section at point.
-
- -- User Option: magit-git-debug
-
- When this is non-nil then the output of all calls to git are logged
- in the process buffer. This is useful when debugging, otherwise it
- just negatively affects performance.
-
-
-File: magit.info, Node: Git Process Status, Next: Running Git Manually, Prev: Viewing Git Output, Up: Running Git
-
-4.5.2 Git Process Status
-------------------------
-
-When a Git process is running for side-effects, Magit displays an
-indicator in the mode line, using the ‘magit-mode-line-process’ face.
-
- If the Git process exits successfully, the process indicator is
-removed from the mode line immediately.
-
- In the case of a Git error, the process indicator is not removed, but
-is instead highlighted with the ‘magit-mode-line-process-error’ face,
-and the error details from the process buffer are provided as a tooltip
-for mouse users. This error indicator persists in the mode line until
-the next magit buffer refresh.
-
- If you do not wish process errors to be indicated in the mode line,
-customize the ‘magit-process-display-mode-line-error’ user option.
-
- Process errors are additionally indicated at the top of the status
-buffer.
-
-
-File: magit.info, Node: Running Git Manually, Next: Git Executable, Prev: Git Process Status, Up: Running Git
-
-4.5.3 Running Git Manually
---------------------------
-
-While Magit provides many Emacs commands to interact with Git, it does
-not cover everything. In those cases your existing Git knowledge will
-come in handy. Magit provides some commands for running arbitrary Git
-commands by typing them into the minibuffer, instead of having to switch
-to a shell.
-
-‘!’ (‘magit-run-popup’)
-
- Shows the popup buffer featuring the below suffix commands.
-
-‘! !’ (‘magit-git-command-topdir’)
-
- This command reads a command from the user and executes it in the
- top-level directory of the current working tree.
-
- The string "git " is used as initial input when prompting the user
- for the command. It can be removed to run another command.
-
-‘! p’ (‘magit-git-command’)
-
- This command reads a command from the user and executes it in
- ‘default-directory’. With a prefix argument the command is
- executed in the top-level directory of the current working tree
- instead.
-
- The string "git " is used as initial input when prompting the user
- for the command. It can be removed to run another command.
-
-‘! s’ (‘magit-shell-command-topdir’)
-
- This command reads a command from the user and executes it in the
- top-level directory of the current working tree.
-
-‘! S’ (‘magit-shell-command’)
-
- This command reads a command from the user and executes it in
- ‘default-directory’. With a prefix argument the command is
- executed in the top-level directory of the current working tree
- instead.
-
- -- User Option: magit-shell-command-verbose-prompt
-
- Whether the prompt, used by the the above commands when reading a
- shell command, shows the directory in which it will be run.
-
- These suffix commands start external gui tools.
-
-‘! k’ (‘magit-run-gitk’)
-
- This command runs ‘gitk’ in the current repository.
-
-‘! a’ (‘magit-run-gitk-all’)
-
- This command runs ‘gitk --all’ in the current repository.
-
-‘! b’ (‘magit-run-gitk-branches’)
-
- This command runs ‘gitk --branches’ in the current repository.
-
-‘! g’ (‘magit-run-git-gui’)
-
- This command runs ‘git gui’ in the current repository.
-
-
-File: magit.info, Node: Git Executable, Next: Global Git Arguments, Prev: Running Git Manually, Up: Running Git
-
-4.5.4 Git Executable
---------------------
-
-Except on MS Windows, Magit defaults to running Git without specifying
-the path to the git executable. Instead the first executable found by
-Emacs on ‘exec-path’ is used (whose value in turn is set based on the
-value of the environment variable ‘$PATH’ when Emacs was started).
-
- This has the advantage that it continues to work even when using
-Tramp to connect to a remote machine on which the executable is found in
-a different place. The downside is that if you have multiple versions
-of Git installed, then you might end up using another version than the
-one you think you are using.
-
-‘M-x magit-version’ (‘magit-version’)
-
- This command shows the currently used versions of Magit, Git, and
- Emacs in the echo area. Non-interactively this just returns the
- Magit version.
-
- When the ‘system-type’ is ‘windows-nt’, then ‘magit-git-executable’
-is set to an absolute path when Magit is first loaded. This is
-necessary because Git on that platform comes with several wrapper
-scripts for the actual git binary, which are also placed on ‘$PATH’, and
-using one of these wrappers instead of the binary would degrade
-performance horribly.
-
- If Magit doesn’t find the correct executable then you *can* work
-around that by setting ‘magit-git-executable’ to an absolute path. But
-note that doing so is a kludge. It is better to make sure the order in
-the environment variable ‘$PATH’ is correct, and that Emacs is started
-with that environment in effect. The command
-‘magit-debug-git-executable’ can be useful to find out where Emacs is
-searching for git. If you have to connect from Windows to a non-Windows
-machine, then you must change the value to "git".
-
- -- User Option: magit-git-executable
-
- The git executable used by Magit, either the full path to the
- executable or the string "git" to let Emacs find the executable
- itself, using the standard mechanism for doing such things.
-
-‘M-x magit-debug-git-executable’ (‘magit-debug-git-executable’)
-
- Display a buffer with information about ‘magit-git-executable’.
-
-
-File: magit.info, Node: Global Git Arguments, Prev: Git Executable, Up: Running Git
-
-4.5.5 Global Git Arguments
---------------------------
-
- -- User Option: magit-git-global-arguments
-
- The arguments set here are used every time the git executable is
- run as a subprocess. They are placed right after the executable
- itself and before the git command - as in ‘git HERE... COMMAND
- REST’. For valid arguments see *note (gitman)git::.
-
- Be careful what you add here, especially if you are using Tramp to
- connect to servers with ancient Git versions. Never remove
- anything that is part of the default value, unless you really know
- what you are doing. And think very hard before adding something;
- it will be used every time Magit runs Git for any purpose.
-
-
-File: magit.info, Node: Inspecting, Next: Manipulating, Prev: Interface Concepts, Up: Top
-
-5 Inspecting
-************
-
-The functionality provided by Magit can be roughly divided into three
-groups: inspecting existing data, manipulating existing data or adding
-new data, and transferring data. Of course that is a rather crude
-distinction that often falls short, but it’s more useful than no
-distinction at all. This section is concerned with inspecting data, the
-next two with manipulating and transferring it. Then follows a section
-about miscellaneous functionality, which cannot easily be fit into this
-distinction.
-
- Of course other distinctions make sense too, e.g. Git’s distinction
-between porcelain and plumbing commands, which for the most part is
-equivalent to Emacs’ distinction between interactive commands and
-non-interactive functions. All of the sections mentioned before are
-mainly concerned with the porcelain – Magit’s plumbing layer is
-described later.
-
-* Menu:
-
-* Status Buffer::
-* Repository List::
-* Logging::
-* Diffing::
-* Ediffing::
-* References Buffer::
-* Bisecting::
-* Visiting Blobs::
-* Blaming::
-
-
-File: magit.info, Node: Status Buffer, Next: Repository List, Up: Inspecting
-
-5.1 Status Buffer
-=================
-
-While other Magit buffers contain e.g. one particular diff or one
-particular log, the status buffer contains the diffs for staged and
-unstaged changes, logs for unpushed and unpulled commits, lists of
-stashes and untracked files, and information related to the current
-branch.
-
- During certain incomplete operations – for example when a merge
-resulted in a conflict – additional information is displayed that helps
-proceeding with or aborting the operation.
-
- The command ‘magit-status’ displays the status buffer belonging to
-the current repository in another window. This command is used so often
-that it should be bound globally. We recommend using ‘C-x g’:
-
- (global-set-key (kbd "C-x g") 'magit-status)
-
-‘C-x g’ (‘magit-status’)
-
- Show the status of the current Git repository in a buffer. With a
- prefix argument prompt for a repository to be shown. With two
- prefix arguments prompt for an arbitrary directory. If that
- directory isn’t the root of an existing repository, then offer to
- initialize it as a new repository.
-
- -- User Option: magit-repository-directories
-
- List of directories that are Git repositories or contain Git
- repositories.
-
- Each element has the form ‘(DIRECTORY . DEPTH)’. DIRECTORY has to
- be a directory or a directory file-name, a string. DEPTH, an
- integer, specifies the maximum depth to look for Git repositories.
- If it is 0, then only add DIRECTORY itself.
-
- -- User Option: magit-repository-directories-depth
-
- The maximum depth to look for Git repositories. This option is
- obsolete and only used for elements of the option
- ‘magit-repository-directories’ (which see) that don’t specify the
- depth directly.
-
- -- Command: ido-enter-magit-status
-
- From an Ido prompt used to open a file, instead drop into
- ‘magit-status’. This is similar to ‘ido-magic-delete-char’, which,
- despite its name, usually causes a Dired buffer to be created.
-
- To make this command available, use something like:
-
- (add-hook 'ido-setup-hook
- (lambda ()
- (define-key ido-completion-map
- (kbd \"C-x g\") 'ido-enter-magit-status)))
-
- Starting with Emacs 25.1 the Ido keymaps are defined just once
- instead of every time Ido is invoked, so now you can modify it like
- pretty much every other keymap:
-
- (define-key ido-common-completion-map
- (kbd \"C-x g\") 'ido-enter-magit-status)
-
-* Menu:
-
-* Status Sections::
-* Status Header Sections::
-* Status Module Sections::
-* Status Options::
-
-
-File: magit.info, Node: Status Sections, Next: Status Header Sections, Up: Status Buffer
-
-5.1.1 Status Sections
----------------------
-
-The contents of status buffers is controlled using the hook
-‘magit-status-sections-hook’. See *note Section Hooks:: to learn about
-such hooks and how to customize them.
-
- -- User Option: magit-status-sections-hook
-
- Hook run to insert sections into a status buffer.
-
- The first function on that hook by default is
-‘magit-insert-status-headers’; it is described in the next section. By
-default the following functions are also members of that hook:
-
- -- Function: magit-insert-merge-log
-
- Insert section for the on-going merge. Display the heads that are
- being merged. If no merge is in progress, do nothing.
-
- -- Function: magit-insert-rebase-sequence
-
- Insert section for the on-going rebase sequence. If no such
- sequence is in progress, do nothing.
-
- -- Function: magit-insert-am-sequence
-
- Insert section for the on-going patch applying sequence. If no
- such sequence is in progress, do nothing.
-
- -- Function: magit-insert-sequencer-sequence
-
- Insert section for the on-going cherry-pick or revert sequence. If
- no such sequence is in progress, do nothing.
-
- -- Function: magit-insert-bisect-output
-
- While bisecting, insert section with output from ‘git bisect’.
-
- -- Function: magit-insert-bisect-rest
-
- While bisecting, insert section visualizing the bisect state.
-
- -- Function: magit-insert-bisect-log
-
- While bisecting, insert section logging bisect progress.
-
- -- Function: magit-insert-untracked-files
-
- Maybe insert a list or tree of untracked files.
-
- Do so depending on the value of ‘status.showUntrackedFiles’. Note
- that even if the value is ‘all’, Magit still initially only shows
- directories. But the directory sections can then be expanded using
- ‘TAB’.
-
- -- Function: magit-insert-unstaged-changes
-
- Insert section showing unstaged changes.
-
- -- Function: magit-insert-staged-changes
-
- Insert section showing staged changes.
-
- -- Function: magit-insert-stashes &optional ref heading
-
- Insert the ‘stashes’ section showing reflog for "refs/stash". If
- optional REF is non-nil show reflog for that instead. If optional
- HEADING is non-nil use that as section heading instead of
- "Stashes:".
-
- -- Function: magit-insert-unpulled-from-upstream
-
- Insert section showing commits that haven’t been pulled from the
- upstream branch yet.
-
- -- Function: magit-insert-unpulled-from-pushremote
-
- Insert section showing commits that haven’t been pulled from the
- push-remote branch yet.
-
- -- Function: magit-insert-unpushed-to-upstream
-
- Insert section showing commits that haven’t been pushed to the
- upstream yet.
-
- -- Function: magit-insert-unpushed-to-pushremote
-
- Insert section showing commits that haven’t been pushed to the
- push-remote yet.
-
- The following functions can also be added to the above hook:
-
- -- Function: magit-insert-tracked-files
-
- Insert a tree of tracked files.
-
- -- Function: magit-insert-ignored-files
-
- Insert a tree of ignored files.
-
- If the first element of ‘magit-diff-section-arguments’ is a
- directory, then limit the list to files below that. The value of
- that variable can be set using ‘D = f <DIRECTORY> RET g’.
-
- -- Function: magit-insert-unpulled-or-recent-commits
-
- Insert section showing unpulled or recent commits. If an upstream
- is configured for the current branch and it is ahead of the current
- branch, then show the missing commits. Otherwise, show the last
- ‘magit-log-section-commit-count’ commits.
-
- -- Function: magit-insert-recent-commits
-
- Insert section showing the last ‘magit-log-section-commit-count’
- commits.
-
- -- User Option: magit-log-section-commit-count
-
- How many recent commits ‘magit-insert-recent-commits’ and
- ‘magit-insert-unpulled-or-recent-commits’ (provided there are no
- unpulled commits) show.
-
- -- Function: magit-insert-unpulled-cherries
-
- Insert section showing unpulled commits. Like
- ‘magit-insert-unpulled-commits’ but prefix each commit that has not
- been applied yet (i.e. a commit with a patch-id not shared with
- any local commit) with "+", and all others with "-".
-
- -- Function: magit-insert-unpushed-cherries
-
- Insert section showing unpushed commits. Like
- ‘magit-insert-unpushed-commits’ but prefix each commit which has
- not been applied to upstream yet (i.e. a commit with a patch-id
- not shared with any upstream commit) with "+" and all others with
- "-".
-
- See *note References Buffer:: for some more section inserters, which
-could be used here.
-
-
-File: magit.info, Node: Status Header Sections, Next: Status Module Sections, Prev: Status Sections, Up: Status Buffer
-
-5.1.2 Status Header Sections
-----------------------------
-
-The contents of status buffers is controlled using the hook
-‘magit-status-sections-hook’ (see *note Status Sections::).
-
- By default ‘magit-insert-status-headers’ is the first member of that
-hook variable.
-
- -- Function: magit-insert-status-headers
-
- Insert headers sections appropriate for ‘magit-status-mode’
- buffers. The sections are inserted by running the functions on the
- hook ‘magit-status-headers-hook’.
-
- -- User Option: magit-status-headers-hook
-
- Hook run to insert headers sections into the status buffer.
-
- This hook is run by ‘magit-insert-status-headers’, which in turn
- has to be a member of ‘magit-status-sections-hook’ to be used at
- all.
-
- By default the following functions are members of the above hook:
-
- -- Function: magit-insert-error-header
-
- Insert a header line showing the message about the Git error that
- just occurred.
-
- This function is only aware of the last error that occur when Git
- was run for side-effects. If, for example, an error occurs while
- generating a diff, then that error won’t be inserted. Refreshing
- the status buffer causes this section to disappear again.
-
- -- Function: magit-insert-diff-filter-header
-
- Insert a header line showing the effective diff filters.
-
- -- Function: magit-insert-head-branch-header
-
- Insert a header line about the current branch or detached ‘HEAD’.
-
- -- Function: magit-insert-upstream-branch-header
-
- Insert a header line about the branch that is usually pulled into
- the current branch.
-
- -- Function: magit-insert-push-branch-header
-
- Insert a header line about the branch that the current branch is
- usually pushed to.
-
- -- Function: magit-insert-tags-header
-
- Insert a header line about the current and/or next tag, along with
- the number of commits between the tag and ‘HEAD’.
-
- The following functions can also be added to the above hook:
-
- -- Function: magit-insert-repo-header
-
- Insert a header line showing the path to the repository top-level.
-
- -- Function: magit-insert-remote-header
-
- Insert a header line about the remote of the current branch.
-
- If no remote is configured for the current branch, then fall back
- showing the "origin" remote, or if that does not exist the first
- remote in alphabetic order.
-
- -- Function: magit-insert-user-header
-
- Insert a header line about the current user.
-
-
-File: magit.info, Node: Status Module Sections, Next: Status Options, Prev: Status Header Sections, Up: Status Buffer
-
-5.1.3 Status Module Sections
-----------------------------
-
-The contents of status buffers is controlled using the hook
-‘magit-status-sections-hook’ (see *note Status Sections::).
-
- By default ‘magit-insert-modules’ is _not_ a member of that hook
-variable.
-
- -- Function: magit-insert-modules
-
- Insert submodule sections.
-
- Hook ‘magit-module-sections-hook’ controls which module sections
- are inserted, and option ‘magit-module-sections-nested’ controls
- whether they are wrapped in an additional section.
-
- -- User Option: magit-module-sections-hook
-
- Hook run by ‘magit-insert-modules’.
-
- -- User Option: magit-module-sections-nested
-
- This option controls whether ‘magit-insert-modules’ wraps inserted
- sections in an additional section.
-
- If this is non-nil, then only a single top-level section is
- inserted. If it is nil, then all sections listed in
- ‘magit-module-sections-hook’ become top-level sections.
-
- -- Function: magit-insert-modules-overview
-
- Insert sections for all submodules. For each section insert the
- path, the branch, and the output of ‘git describe --tags’, or,
- failing that, the abbreviated HEAD commit hash.
-
- Press ‘RET’ on such a submodule section to show its own status
- buffer. Press ‘RET’ on the "Modules" section to display a list of
- submodules in a separate buffer. This shows additional information
- not displayed in the super-repository’s status buffer.
-
- -- Function: magit-insert-modules-unpulled-from-upstream
-
- Insert sections for modules that haven’t been pulled from the
- upstream yet. These sections can be expanded to show the
- respective commits.
-
- -- Function: magit-insert-modules-unpulled-from-pushremote
-
- Insert sections for modules that haven’t been pulled from the
- push-remote yet. These sections can be expanded to show the
- respective commits.
-
- -- Function: magit-insert-modules-unpushed-to-upstream
-
- Insert sections for modules that haven’t been pushed to the
- upstream yet. These sections can be expanded to show the
- respective commits.
-
- -- Function: magit-insert-modules-unpushed-to-pushremote
-
- Insert sections for modules that haven’t been pushed to the
- push-remote yet. These sections can be expanded to show the
- respective commits.
-
-
-File: magit.info, Node: Status Options, Prev: Status Module Sections, Up: Status Buffer
-
-5.1.4 Status Options
---------------------
-
- -- User Option: magit-status-refresh-hook
-
- Hook run after a status buffer has been refreshed.
-
- -- User Option: magit-status-margin
-
- This option specifies whether the margin is initially shown in
- Magit-Status mode buffers and how it is formatted.
-
- The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
- • If INIT is non-nil, then the margin is shown initially.
-
- • STYLE controls how to format the committer date. It can be
- one of ‘age’ (to show the age of the commit),
- ‘age-abbreviated’ (to abbreviate the time unit to a
- character), or a string (suitable for ‘format-time-string’) to
- show the actual date.
-
- • WIDTH controls the width of the margin. This exists for
- forward compatibility and currently the value should not be
- changed.
-
- • AUTHOR controls whether the name of the author is also shown
- by default.
-
- • AUTHOR-WIDTH has to be an integer. When the name of the
- author is shown, then this specifies how much space is used to
- do so.
-
- -- User Option: magit-log-section-args
-
- Additional Git arguments used when creating log sections. Only
- ‘--graph’, ‘--decorate’, and ‘--show-signature’ are supported.
- This option is only a temporary kludge and will be removed.
-
- Note that due to an issue in Git the use of ‘--graph’ is very slow
- with long histories, so you probably don’t want to add this here.
-
- Also see the proceeding section for more options concerning status
-buffers.
-
-
-File: magit.info, Node: Repository List, Next: Logging, Prev: Status Buffer, Up: Inspecting
-
-5.2 Repository List
-===================
-
- -- Command: magit-list-repositories
-
- This command displays a list of repositories in a separate buffer.
-
- The options ‘magit-repository-directories’ and
- ‘magit-repository-directories-depth’ control which repositories are
- displayed.
-
- -- User Option: magit-repolist-columns
-
- This option controls what columns are displayed by the command
- ‘magit-list-repositories’ and how they are displayed.
-
- Each element has the form ‘(HEADER WIDTH FORMAT PROPS)’.
-
- HEADER is the string displayed in the header. WIDTH is the width
- of the column. FORMAT is a function that is called with one
- argument, the repository identification (usually its basename), and
- with ‘default-directory’ bound to the toplevel of its working tree.
- It has to return a string to be inserted or nil. PROPS is an alist
- that supports the keys ‘:right-align’ and ‘:pad-right’.
-
- The following functions can be added to the above option:
-
- -- Function: magit-repolist-column-ident
-
- This function inserts the identification of the repository.
- Usually this is just its basename.
-
- -- Function: magit-repolist-column-path
-
- This function inserts the absolute path of the repository.
-
- -- Function: magit-repolist-column-version
-
- This function inserts a description of the repository’s ‘HEAD’
- revision.
-
- -- Function: magit-repolist-column-unpulled-from-upstream
-
- This function inserts the number of upstream commits not in the
- current branch.
-
- -- Function: magit-repolist-column-unpulled-from-pushremote
-
- This function inserts the number of commits in the push branch but
- not the current branch.
-
- -- Function: magit-repolist-column-unpushed-to-upstream
-
- This function inserts the number of commits in the current branch
- but not its upstream.
-
- -- Function: magit-repolist-column-unpushed-to-pushremote
-
- This function inserts the number of commits in the current branch
- but not its push branch.
-
-
-File: magit.info, Node: Logging, Next: Diffing, Prev: Repository List, Up: Inspecting
-
-5.3 Logging
-===========
-
-The status buffer contains logs for the unpushed and unpulled commits,
-but that obviously isn’t enough. The prefix command ‘magit-log-popup’,
-on ‘l’, features several suffix commands, which show a specific log in a
-separate log buffer.
-
- Like other popups, the log popup also features several arguments that
-can be changed before invoking one of the suffix commands. However, in
-the case of the log popup, these arguments may be taken from those
-currently in use in the current repository’s log buffer, depending on
-the value of ‘magit-use-sticky-arguments’ (see *note Popup Buffers and
-Prefix Commands::).
-
- For information about the various arguments, see *note
-(gitman)git-log::.
-
- The switch ‘++order=VALUE’ is converted to one of
-‘--author-date-order’, ‘--date-order’, or ‘--topo-order’ before being
-passed to ‘git log’.
-
- The log popup also features several reflog commands. See *note
-Reflog::.
-
-‘l’ (‘magit-log-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘l l’ (‘magit-log-current’)
-
- Show log for the current branch. When ‘HEAD’ is detached or with a
- prefix argument, show log for one or more revs read from the
- minibuffer.
-
-‘l o’ (‘magit-log-other’)
-
- Show log for one or more revs read from the minibuffer. The user
- can input any revision or revisions separated by a space, or even
- ranges, but only branches, tags, and a representation of the commit
- at point are available as completion candidates.
-
-‘l h’ (‘magit-log-head’)
-
- Show log for ‘HEAD’.
-
-‘l L’ (‘magit-log-branches’)
-
- Show log for all local branches and ‘HEAD’.
-
-‘l b’ (‘magit-log-all-branches’)
-
- Show log for all local and remote branches and ‘HEAD’.
-
-‘l a’ (‘magit-log-all’)
-
- Show log for all references and ‘HEAD’.
-
- Two additional commands that show the log for the file or blob that
-is being visited in the current buffer exists, see *note Minor Mode for
-Buffers Visiting Files::. The command ‘magit-cherry’ also shows a log,
-see *note Cherries::.
-
-* Menu:
-
-* Refreshing Logs::
-* Log Buffer::
-* Log Margin::
-* Select from Log::
-* Reflog::
-* Cherries::
-
-
-File: magit.info, Node: Refreshing Logs, Next: Log Buffer, Up: Logging
-
-5.3.1 Refreshing Logs
----------------------
-
-The prefix command ‘magit-log-refresh-popup’, on ‘L’, can be used to
-change the log arguments used in the current buffer, without changing
-which log is shown. This works in dedicated log buffers, but also in
-the status buffer.
-
-‘L’ (‘magit-log-refresh-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘L g’ (‘magit-log-refresh’)
-
- This suffix command sets the local log arguments for the current
- buffer.
-
-‘L s’ (‘magit-log-set-default-arguments’)
-
- This suffix command sets the default log arguments for buffers of
- the same type as that of the current buffer. Other existing
- buffers of the same type are not affected because their local
- values have already been initialized.
-
-‘L w’ (‘magit-log-save-default-arguments’)
-
- This suffix command sets the default log arguments for buffers of
- the same type as that of the current buffer, and saves the value
- for future sessions. Other existing buffers of the same type are
- not affected because their local values have already been
- initialized.
-
-‘L t’ (‘magit-toggle-margin’)
-
- Show or hide the margin.
-
-
-File: magit.info, Node: Log Buffer, Next: Log Margin, Prev: Refreshing Logs, Up: Logging
-
-5.3.2 Log Buffer
-----------------
-
-‘L’ (‘magit-log-refresh-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer. See *note
- Refreshing Logs::.
-
-‘q’ (‘magit-log-bury-buffer’)
-
- Bury the current buffer or the revision buffer in the same frame.
- Like ‘magit-mode-bury-buffer’ (which see) but with a negative
- prefix argument instead bury the revision buffer, provided it is
- displayed in the current frame.
-
-‘C-c C-b’ (‘magit-go-backward’)
-
- Move backward in current buffer’s history.
-
-‘C-c C-f’ (‘magit-go-forward’)
-
- Move forward in current buffer’s history.
-
-‘C-c C-n’ (‘magit-log-move-to-parent’)
-
- Move to a parent of the current commit. By default, this is the
- first parent, but a numeric prefix can be used to specify another
- parent.
-
-‘SPC’ (‘magit-diff-show-or-scroll-up’)
-
- Update the commit or diff buffer for the thing at point.
-
- Either show the commit or stash at point in the appropriate buffer,
- or if that buffer is already being displayed in the current frame
- and contains information about that commit or stash, then instead
- scroll the buffer up. If there is no commit or stash at point,
- then prompt for a commit.
-
-‘DEL’ (‘magit-diff-show-or-scroll-down’)
-
- Update the commit or diff buffer for the thing at point.
-
- Either show the commit or stash at point in the appropriate buffer,
- or if that buffer is already being displayed in the current frame
- and contains information about that commit or stash, then instead
- scroll the buffer down. If there is no commit or stash at point,
- then prompt for a commit.
-
-‘=’ (‘magit-log-toggle-commit-limit’)
-
- Toggle the number of commits the current log buffer is limited to.
- If the number of commits is currently limited, then remove that
- limit. Otherwise set it to 256.
-
-‘+’ (‘magit-log-double-commit-limit’)
-
- Double the number of commits the current log buffer is limited to.
-
-‘-’ (‘magit-log-half-commit-limit’)
-
- Half the number of commits the current log buffer is limited to.
-
- -- User Option: magit-log-auto-more
-
- Insert more log entries automatically when moving past the last
- entry. Only considered when moving past the last entry with
- ‘magit-goto-*-section’ commands.
-
- -- User Option: magit-log-show-refname-after-summary
-
- Whether to show the refnames after the commit summaries. This is
- useful if you use really long branch names.
-
- Magit displays references in logs a bit differently from how Git does
-it.
-
- Local branches are blue and remote branches are green. Of course
-that depends on the used theme, as do the colors used for other types of
-references. The current branch has a box around it, as do remote
-branches that are their respective remote’s ‘HEAD’ branch.
-
- If a local branch and its push-target point at the same commit, then
-their names are combined to preserve space and to make that relationship
-visible. For example:
-
- origin/feature
- [green][blue-]
-
- instead of
-
- feature origin/feature
- [blue-] [green-------]
-
- Also note that while the popup features the ‘--show-signature’
-argument, that won’t actually be used when enabled, because Magit
-defaults to use just one line per commit. Instead the commit colorized
-to indicate the validity of the signed commit object, using the faces
-named ‘magit-signature-*’ (which see).
-
- For a description of ‘magit-log-margin’ see *note Log Margin::.
-
-
-File: magit.info, Node: Log Margin, Next: Select from Log, Prev: Log Buffer, Up: Logging
-
-5.3.3 Log Margin
-----------------
-
-In buffers which show one or more logs, it is possible to show
-additional information about each commit in the margin. The options
-used to configure the margin are named ‘magit-INFIX-margin’, where INFIX
-is the same as in the respective major-mode ‘magit-INFIX-mode’. In
-regular log buffers that would be ‘magit-log-margin’.
-
- -- User Option: magit-log-margin
-
- This option specifies whether the margin is initially shown in
- Magit-Log mode buffers and how it is formatted.
-
- The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
- • If INIT is non-nil, then the margin is shown initially.
-
- • STYLE controls how to format the committer date. It can be
- one of ‘age’ (to show the age of the commit),
- ‘age-abbreviated’ (to abbreviate the time unit to a
- character), or a string (suitable for ‘format-time-string’) to
- show the actual date.
-
- • WIDTH controls the width of the margin. This exists for
- forward compatibility and currently the value should not be
- changed.
-
- • AUTHOR controls whether the name of the author is also shown
- by default.
-
- • AUTHOR-WIDTH has to be an integer. When the name of the
- author is shown, then this specifies how much space is used to
- do so.
-
- You can change the STYLE and AUTHOR-WIDTH of all ‘magit-INFIX-margin’
-options to the same values by customizing ‘magit-log-margin’ *before*
-‘magit’ is loaded. If you do that, then the respective values for the
-other options will default to what you have set for that variable.
-Likewise if you set INIT in ‘magit-log-margin’ to ‘nil’, then that is
-used in the default of all other options. But setting it to ‘t’, i.e.
-re-enforcing the default for that option, does not carry to other
-options.
-
-‘L’ (‘magit-margin-popup’)
-
- This prefix command features the following commands for changing
- the appearance of the margin.
-
- In some buffers that support the margin, "L" is bound to
-‘magit-log-refresh-popup’, but that popup features the same commands,
-and then some other unrelated commands.
-
-‘L L’ (‘magit-toggle-margin’)
-
- This command shows or hides the margin.
-
-‘L l’ (‘magit-cycle-margin-style’)
-
- This command cycles the style used for the margin.
-
-‘L d’ (‘magit-toggle-margin-details’)
-
- This command shows or hides details in the margin.
-
-
-File: magit.info, Node: Select from Log, Next: Reflog, Prev: Log Margin, Up: Logging
-
-5.3.4 Select from Log
----------------------
-
-When the user has to select a recent commit that is reachable from
-‘HEAD’, using regular completion would be inconvenient (because most
-humans cannot remember hashes or "HEAD~5", at least not without double
-checking). Instead a log buffer is used to select the commit, which has
-the advantage that commits are presented in order and with the commit
-message.
-
- Such selection logs are used when selecting the beginning of a rebase
-and when selecting the commit to be squashed into.
-
- In addition to the key bindings available in all log buffers, the
-following additional key bindings are available in selection log
-buffers:
-
-‘C-c C-c’ (‘magit-log-select-pick’)
-
- Select the commit at point and act on it. Call
- ‘magit-log-select-pick-function’ with the selected commit as
- argument.
-
-‘C-c C-k’ (‘magit-log-select-quit’)
-
- Abort selecting a commit, don’t act on any commit.
-
- -- User Option: magit-log-select-margin
-
- This option specifies whether the margin is initially shown in
- Magit-Log-Select mode buffers and how it is formatted.
-
- The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
- • If INIT is non-nil, then the margin is shown initially.
-
- • STYLE controls how to format the committer date. It can be
- one of ‘age’ (to show the age of the commit),
- ‘age-abbreviated’ (to abbreviate the time unit to a
- character), or a string (suitable for ‘format-time-string’) to
- show the actual date.
-
- • WIDTH controls the width of the margin. This exists for
- forward compatibility and currently the value should not be
- changed.
-
- • AUTHOR controls whether the name of the author is also shown
- by default.
-
- • AUTHOR-WIDTH has to be an integer. When the name of the
- author is shown, then this specifies how much space is used to
- do so.
-
-
-File: magit.info, Node: Reflog, Next: Cherries, Prev: Select from Log, Up: Logging
-
-5.3.5 Reflog
-------------
-
-Also see *note (gitman)git-reflog::.
-
- These reflog commands are available from the log popup. See *note
-Logging::.
-
-‘l r’ (‘magit-reflog-current’)
-
- Display the reflog of the current branch.
-
-‘l O’ (‘magit-reflog-other’)
-
- Display the reflog of a branch or another ref.
-
-‘l H’ (‘magit-reflog-head’)
-
- Display the ‘HEAD’ reflog.
-
- -- User Option: magit-reflog-margin
-
- This option specifies whether the margin is initially shown in
- Magit-Reflog mode buffers and how it is formatted.
-
- The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
- • If INIT is non-nil, then the margin is shown initially.
-
- • STYLE controls how to format the committer date. It can be
- one of ‘age’ (to show the age of the commit),
- ‘age-abbreviated’ (to abbreviate the time unit to a
- character), or a string (suitable for ‘format-time-string’) to
- show the actual date.
-
- • WIDTH controls the width of the margin. This exists for
- forward compatibility and currently the value should not be
- changed.
-
- • AUTHOR controls whether the name of the author is also shown
- by default.
-
- • AUTHOR-WIDTH has to be an integer. When the name of the
- author is shown, then this specifies how much space is used to
- do so.
-
-
-File: magit.info, Node: Cherries, Prev: Reflog, Up: Logging
-
-5.3.6 Cherries
---------------
-
-Cherries are commits that haven’t been applied upstream (yet), and are
-usually visualized using a log. Each commit is prefixed with ‘-’ if it
-has an equivalent in the upstream and ‘+’ if it does not, i.e. if it is
-a cherry.
-
- The command ‘magit-cherry’ shows cherries for a single branch, but
-the references buffer (see *note References Buffer::) can show cherries
-for multiple "upstreams" at once.
-
- Also see *note (gitman)git-reflog::.
-
-‘Y’ (‘magit-cherry’)
-
- Show commits that are in a certain branch but that have not been
- merged in the upstream branch.
-
- -- User Option: magit-cherry-margin
-
- This option specifies whether the margin is initially shown in
- Magit-Cherry mode buffers and how it is formatted.
-
- The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
- • If INIT is non-nil, then the margin is shown initially.
-
- • STYLE controls how to format the committer date. It can be
- one of ‘age’ (to show the age of the commit),
- ‘age-abbreviated’ (to abbreviate the time unit to a
- character), or a string (suitable for ‘format-time-string’) to
- show the actual date.
-
- • WIDTH controls the width of the margin. This exists for
- forward compatibility and currently the value should not be
- changed.
-
- • AUTHOR controls whether the name of the author is also shown
- by default.
-
- • AUTHOR-WIDTH has to be an integer. When the name of the
- author is shown, then this specifies how much space is used to
- do so.
-
-
-File: magit.info, Node: Diffing, Next: Ediffing, Prev: Logging, Up: Inspecting
-
-5.4 Diffing
-===========
-
-The status buffer contains diffs for the staged and unstaged commits,
-but that obviously isn’t enough. The prefix command ‘magit-diff-popup’,
-on ‘d’, features several suffix commands, which show a specific diff in
-a separate diff buffer.
-
- Like other popups, the diff popup also features several arguments
-that can be changed before invoking one of the suffix commands.
-However, in the case of the diff popup, these arguments may be taken
-from those currently in use in the current repository’s log buffer,
-depending on the value of ‘magit-use-sticky-arguments’ (see *note Popup
-Buffers and Prefix Commands::).
-
- Also see *note (gitman)git-diff::.
-
-‘d’ (‘magit-diff-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘d d’ (‘magit-diff-dwim’)
-
- Show changes for the thing at point.
-
-‘d r’ (‘magit-diff-range’)
-
- Show differences between two commits.
-
- RANGE should be a range (A..B or A...B) but can also be a single
- commit. If one side of the range is omitted, then it defaults to
- ‘HEAD’. If just a commit is given, then changes in the working
- tree relative to that commit are shown.
-
- If the region is active, use the revisions on the first and last
- line of the region. With a prefix argument, instead of diffing the
- revisions, choose a revision to view changes along, starting at the
- common ancestor of both revisions (i.e., use a "..." range).
-
-‘d w’ (‘magit-diff-working-tree’)
-
- Show changes between the current working tree and the ‘HEAD’
- commit. With a prefix argument show changes between the working
- tree and a commit read from the minibuffer.
-
-‘d s’ (‘magit-diff-staged’)
-
- Show changes between the index and the ‘HEAD’ commit. With a
- prefix argument show changes between the index and a commit read
- from the minibuffer.
-
-‘d u’ (‘magit-diff-unstaged’)
-
- Show changes between the working tree and the index.
-
-‘d p’ (‘magit-diff-paths’)
-
- Show changes between any two files on disk.
-
- All of the above suffix commands update the repository’s diff buffer.
-The diff popup also features two commands which show differences in
-another buffer:
-
-‘d c’ (‘magit-show-commit’)
-
- Show the commit at point. If there is no commit at point or with a
- prefix argument, prompt for a commit.
-
-‘d t’ (‘magit-stash-show’)
-
- Show all diffs of a stash in a buffer.
-
- Two additional commands that show the diff for the file or blob that
-is being visited in the current buffer exists, see *note Minor Mode for
-Buffers Visiting Files::.
-
-* Menu:
-
-* Refreshing Diffs::
-* Diff Buffer::
-* Diff Options::
-* Revision Buffer::
-
-
-File: magit.info, Node: Refreshing Diffs, Next: Diff Buffer, Up: Diffing
-
-5.4.1 Refreshing Diffs
-----------------------
-
-The prefix command ‘magit-diff-refresh-popup’, on ‘D’, can be used to
-change the diff arguments used in the current buffer, without changing
-which diff is shown. This works in dedicated diff buffers, but also in
-the status buffer.
-
-‘D’ (‘magit-diff-refresh-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘D g’ (‘magit-diff-refresh’)
-
- This suffix command sets the local diff arguments for the current
- buffer.
-
-‘D s’ (‘magit-diff-set-default-arguments’)
-
- This suffix command sets the default diff arguments for buffers of
- the same type as that of the current buffer. Other existing
- buffers of the same type are not affected because their local
- values have already been initialized.
-
-‘D w’ (‘magit-diff-save-default-arguments’)
-
- This suffix command sets the default diff arguments for buffers of
- the same type as that of the current buffer, and saves the value
- for future sessions. Other existing buffers of the same type are
- not affected because their local values have already been
- initialized.
-
-‘D t’ (‘magit-diff-toggle-refine-hunk’)
-
- This command toggles hunk refinement on or off.
-
-‘D r’ (‘magit-diff-switch-range-type’)
-
- This command converts the diff range type from "revA..revB" to
- "revB...revA", or vice versa.
-
-‘D f’ (‘magit-diff-flip-revs’)
-
- This command swaps revisions in the diff range from "revA..revB" to
- "revB..revA", or vice versa.
-
-‘D F’ (‘magit-diff-toggle-file-filter’)
-
- This command toggles the file restriction of the diffs in the
- current buffer, allowing you to quickly switch between viewing all
- the changes in the commit and the restricted subset. As a special
- case, when this command is called from a log buffer, it toggles the
- file restriction in the repository’s revision buffer, which is
- useful when you display a revision from a log buffer that is
- restricted to a file or files.
-
- In addition to the above popup, which allows changing any of the
-supported arguments, there also exist some commands which change a
-particular argument.
-
-‘-’ (‘magit-diff-less-context’)
-
- This command decreases the context for diff hunks by COUNT lines.
-
-‘+’ (‘magit-diff-more-context’)
-
- This command increases the context for diff hunks by COUNT lines.
-
-‘0’ (‘magit-diff-default-context’)
-
- This command resets the context for diff hunks to the default
- height.
-
- The following commands quickly change what diff is being displayed
-without having to using one of the diff popups.
-
-‘C-c C-d’ (‘magit-diff-while-committing’)
-
- While committing, this command shows the changes that are about to
- be committed. While amending, invoking the command again toggles
- between showing just the new changes or all the changes that will
- be committed.
-
- This binding is available in the diff buffer as well as the commit
- message buffer.
-
-‘C-c C-b’ (‘magit-go-backward’)
-
- This command moves backward in current buffer’s history.
-
-‘C-c C-f’ (‘magit-go-forward’)
-
- This command moves forward in current buffer’s history.
-
-
-File: magit.info, Node: Diff Buffer, Next: Diff Options, Prev: Refreshing Diffs, Up: Diffing
-
-5.4.2 Diff Buffer
------------------
-
-These commands are available in diff buffers.
-
-‘RET’ (‘magit-diff-visit-file’)
-
- From a diff, visit the corresponding file at the appropriate
- position.
-
- If the diff shows changes in the worktree, the index, or ‘HEAD’,
- then visit the actual file. Otherwise, when the diff is about an
- older commit or a range, then visit the appropriate blob.
-
- If point is on a removed line, then visit the blob for the first
- parent of the commit which removed that line, i.e. the last commit
- where that line still existed. Otherwise visit the blob for the
- commit whose changes are being shown.
-
- Interactively, when the file or blob to be displayed is already
- being displayed in another window of the same frame, then just
- select that window and adjust point. Otherwise, or with a prefix
- argument, display the buffer in another window. The meaning of the
- prefix argument can be inverted or further modified using the
- option ‘magit-display-file-buffer-function’.
-
- Non-interactively the optional OTHER-WINDOW argument is taken
- literally. DISPLAY-FN can be used to specify the display function
- explicitly, in which case OTHER-WINDOW is ignored.
-
- The optional FORCE-WORKTREE means to force visiting the worktree
- version of the file. To do this interactively use the command
- ‘magit-diff-visit-file-worktree’ instead.
-
- -- User Option: magit-diff-visit-previous-blob
-
- This option controls whether ‘magit-diff-visit-file’ may visit the
- previous blob. When this is ‘t’ and point is on a removed line in
- a diff for a committed change, then ‘magit-diff-visit-file’ visits
- the blob from the last revision which still had that line.
-
- Currently this is only supported for committed changes, for staged
- and unstaged changes ‘magit-diff-visit-file’ always visits the file
- in the working tree.
-
-‘C-<return>’ (‘magit-diff-visit-file-worktree’)
-
- From a diff, visit the corresponding file at the appropriate
- position.
-
- When the file is already being displayed in another window of the
- same frame, then just select that window and adjust point. With a
- prefix argument also display in another window.
-
- The actual file in the worktree is visited. The positions in the
- hunk headers get less useful the "older" the changes are, and as a
- result, jumping to the appropriate position gets less reliable.
-
- Also see ‘magit-diff-visit-file’, which visits the respective blob,
- unless the diff shows changes in the worktree, the index, or
- ‘HEAD’.
-
- -- Command: magit-diff-visit-file-other-window
-
- From a diff, visit the corresponding file at the appropriate
- position in another window.
-
-‘C-c C-t’ (‘magit-diff-trace-definition’)
-
- From a diff, show log for the definition at point.
-
- -- User Option: magit-log-trace-definition-function
-
- The function used by ‘magit-log-trace-definition’ to determine the
- function at point. For major-modes that have special needs, you
- could set that using the mode’s hook.
-
-‘C-c C-e’ (‘magit-diff-edit-hunk-commit’)
-
- From a hunk, edit the respective commit and visit the file.
-
- First visit the file being modified by the hunk at the correct
- location using ‘magit-diff-visit-file’. This actually visits a
- blob. When point is on a diff header, not within an individual
- hunk, then this visits the blob the first hunk is about.
-
- Then invoke ‘magit-edit-line-commit’, which uses an interactive
- rebase to make the commit editable, or if that is not possible
- because the commit is not reachable from ‘HEAD’ by checking out
- that commit directly. This also causes the actual worktree file to
- be visited.
-
- Neither the blob nor the file buffer are killed when finishing the
- rebase. If that is undesirable, then it might be better to use
- ‘magit-rebase-edit-command’ instead of this command.
-
-‘j’ (‘magit-jump-to-diffstat-or-diff’)
-
- Jump to the diffstat or diff. When point is on a file inside the
- diffstat section, then jump to the respective diff section.
- Otherwise, jump to the diffstat section or a child thereof.
-
-‘SPC’ (‘scroll-up’)
-
- Scroll text upward.
-
-‘DEL’ (‘scroll-down’)
-
- Scroll text downward.
-
-
-File: magit.info, Node: Diff Options, Next: Revision Buffer, Prev: Diff Buffer, Up: Diffing
-
-5.4.3 Diff Options
-------------------
-
- -- User Option: magit-diff-refine-hunk
-
- Whether to show word-granularity differences within diff hunks.
-
- • ‘nil’ never show fine differences.
-
- • ‘t’ show fine differences for the current diff hunk only.
-
- • ‘all’ show fine differences for all displayed diff hunks.
-
- -- User Option: magit-diff-adjust-tab-width
-
- Whether to adjust the width of tabs in diffs.
-
- Determining the correct width can be expensive if it requires
- opening large and/or many files, so the widths are cached in the
- variable ‘magit-diff--tab-width-cache’. Set that to nil to
- invalidate the cache.
-
- • ‘nil’ Never adjust tab width. Use ‘tab-width’s value from the
- Magit buffer itself instead.
-
- • ‘t’ If the corresponding file-visiting buffer exits, then use
- ‘tab-width’’s value from that buffer. Doing this is cheap, so
- this value is used even if a corresponding cache entry exists.
-
- • ‘always’ If there is no such buffer, then temporarily visit
- the file to determine the value.
-
- • NUMBER Like ‘always’, but don’t visit files larger than NUMBER
- bytes.
-
- -- User Option: magit-diff-paint-whitespace
-
- Specify where to highlight whitespace errors.
-
- See ‘magit-diff-highlight-trailing’,
- ‘magit-diff-highlight-indentation’. The symbol ‘t’ means in all
- diffs, ‘status’ means only in the status buffer, and nil means
- nowhere.
-
- -- User Option: magit-diff-highlight-trailing
-
- Whether to highlight whitespace at the end of a line in diffs.
- Used only when ‘magit-diff-paint-whitespace’ is non-nil.
-
- -- User Option: magit-diff-highlight-indentation
-
- Highlight the "wrong" indentation style. Used only when
- ‘magit-diff-paint-whitespace’ is non-nil.
-
- The value is a list of cons cells. The car is a regular
- expression, and the cdr is the value that applies to repositories
- whose directory matches the regular expression. If more than one
- element matches, then the *last* element in the list applies. The
- default value should therefore come first in the list.
-
- If the value is ‘tabs’, highlight indentation with tabs. If the
- value is an integer, highlight indentation with at least that many
- spaces. Otherwise, highlight neither.
-
- -- User Option: magit-diff-hide-trailing-cr-characters
-
- Whether to hide ^M characters at the end of a line in diffs.
-
- -- User Option: magit-diff-highlight-hunk-region-functions
-
- This option specifies the functions used to highlight the
- hunk-internal region.
-
- ‘magit-diff-highlight-hunk-region-dim-outside’ overlays the outside
- of the hunk internal selection with a face that causes the added
- and removed lines to have the same background color as context
- lines. This function should not be removed from the value of this
- option.
-
- ‘magit-diff-highlight-hunk-region-using-overlays’ and
- ‘magit-diff-highlight-hunk-region-using-underline’ emphasize the
- region by placing delimiting horizontal lines before and after it.
- Both of these functions have glitches which cannot be fixed due to
- limitations of Emacs’ display engine. For more information see
- <https://github.com/magit/magit/issues/2758> ff.
-
- Instead of, or in addition to, using delimiting horizontal lines,
- to emphasize the boundaries, you may which to emphasize the text
- itself, using ‘magit-diff-highlight-hunk-region-using-face’.
-
- In terminal frames it’s not possible to draw lines as the overlay
- and underline variants normally do, so there they fall back to
- calling the face function instead.
-
- -- User Option: magit-diff-unmarked-lines-keep-foreground
-
- This option controls whether added and removed lines outside the
- hunk-internal region only lose their distinct background color or
- also the foreground color. Whether the outside of the region is
- dimmed at all depends on
- ‘magit-diff-highlight-hunk-region-functions’.
-
-
-File: magit.info, Node: Revision Buffer, Prev: Diff Options, Up: Diffing
-
-5.4.4 Revision Buffer
----------------------
-
- -- User Option: magit-revision-insert-related-refs
-
- Whether to show related branches in revision buffers.
-
- • ‘nil’ Don’t show any related branches.
-
- • ‘t’ Show related local branches.
-
- • ‘all’ Show related local and remote branches.
-
- • ‘mixed’ Show all containing branches and local merged
- branches.
-
- -- User Option: magit-revision-show-gravatars
-
- Whether to show gravatar images in revision buffers.
-
- If ‘nil’, then don’t insert any gravatar images. If ‘t’, then
- insert both images. If ‘author’ or ‘committer’, then insert only
- the respective image.
-
- If you have customized the option ‘magit-revision-header-format’
- and want to insert the images then you might also have to specify
- where to do so. In that case the value has to be a cons-cell of
- two regular expressions. The car specifies where to insert the
- author’s image. The top half of the image is inserted right after
- the matched text, the bottom half on the next line in the same
- column. The cdr specifies where to insert the committer’s image,
- accordingly. Either the car or the cdr may be nil."
-
- -- User Option: magit-revision-use-hash-sections
-
- Whether to turn hashes inside the commit message into sections.
-
- If non-nil, then hashes inside the commit message are turned into
- ‘commit’ sections. There is a trade off to be made between
- performance and reliability:
-
- • ‘slow’ calls git for every word to be absolutely sure.
-
- • ‘quick’ skips words less than seven characters long.
-
- • ‘quicker’ additionally skips words that don’t contain a
- number.
-
- • ‘quickest’ uses all words that are at least seven characters
- long and which contain at least one number as well as at least
- one letter.
-
- If nil, then no hashes are turned into sections, but you can still
- visit the commit at point using "RET".
-
- The diffs shown in the revision buffer may be automatically
-restricted to a subset of the changed files. If the revision buffer is
-displayed from a log buffer, the revision buffer will share the same
-file restriction as that log buffer (also see the command
-‘magit-diff-toggle-file-filter’). Note, however, that the log’s file
-restriction will be ignored when ‘magit-log-arguments’ includes
-‘--follow’. In this case, the ‘-u’ argument of the log popup can be
-used to show the file-restricted diffs inline.
-
- If the revision buffer is not displayed from a log buffer, the file
-restriction is determined by the file restriction in the repository’s
-diff buffer, if it exists, and the value of the option
-‘magit-use-sticky-arguments’.
-
-
-File: magit.info, Node: Ediffing, Next: References Buffer, Prev: Diffing, Up: Inspecting
-
-5.5 Ediffing
-============
-
-This section describes how to enter Ediff from Magit buffers. For
-information on how to use Ediff itself, see *note (ediff)Top::.
-
-‘e’ (‘magit-ediff-dwim’)
-
- Compare, stage, or resolve using Ediff.
-
- This command tries to guess what file, and what commit or range the
- user wants to compare, stage, or resolve using Ediff. It might
- only be able to guess either the file, or range/commit, in which
- case the user is asked about the other. It might not always guess
- right, in which case the appropriate ‘magit-ediff-*’ command has to
- be used explicitly. If it cannot read the user’s mind at all, then
- it asks the user for a command to run.
-
-‘E’ (‘magit-ediff-popup’)
-
- This prefix command shows the following suffix commands in a popup
- buffer.
-
-‘E r’ (‘magit-ediff-compare’)
-
- Compare two revisions of a file using Ediff.
-
- If the region is active, use the revisions on the first and last
- line of the region. With a prefix argument, instead of diffing the
- revisions, choose a revision to view changes along, starting at the
- common ancestor of both revisions (i.e., use a "..." range).
-
-‘E m’ (‘magit-ediff-resolve’)
-
- Resolve outstanding conflicts in a file using Ediff, defaulting to
- the file at point.
-
- Provided that the value of ‘merge.conflictstyle’ is ‘diff3’, you
- can view the file’s merge-base revision using ‘/’ in the Ediff
- control buffer.
-
- In the rare event that you want to manually resolve all conflicts,
- including those already resolved by Git, use
- ‘ediff-merge-revisions-with-ancestor’.
-
-‘E s’ (‘magit-ediff-stage’)
-
- Stage and unstage changes to a file using Ediff, defaulting to the
- file at point.
-
-‘E u’ (‘magit-ediff-show-unstaged’)
-
- Show unstaged changes to a file using Ediff.
-
-‘E i’ (‘magit-ediff-show-staged’)
-
- Show staged changes to a file using Ediff.
-
-‘E w’ (‘magit-ediff-show-working-tree’)
-
- Show changes in a file between ‘HEAD’ and working tree using Ediff.
-
-‘E c’ (‘magit-ediff-show-commit’)
-
- Show changes to a file introduced by a commit using Ediff.
-
-‘E z’ (‘magit-ediff-show-stash’)
-
- Show changes to a file introduced by a stash using Ediff.
-
- -- User Option: magit-ediff-dwim-show-on-hunks
-
- This option controls what command ‘magit-ediff-dwim’ calls when
- point is on uncommitted hunks. When nil, always run
- ‘magit-ediff-stage’. Otherwise, use ‘magit-ediff-show-staged’ and
- ‘magit-ediff-show-unstaged’ to show staged and unstaged changes,
- respectively.
-
- -- User Option: magit-ediff-show-stash-with-index
-
- This option controls whether ‘magit-ediff-show-stash’ includes a
- buffer containing the file’s state in the index at the time the
- stash was created. This makes it possible to tell which changes in
- the stash were staged.
-
- -- User Option: magit-ediff-quit-hook
-
- This hook is run after quitting an Ediff session that was created
- using a Magit command. The hook functions are run inside the Ediff
- control buffer, and should not change the current buffer.
-
- This is similar to ‘ediff-quit-hook’ but takes the needs of Magit
- into account. The regular ‘ediff-quit-hook’ is ignored by Ediff
- sessions that were created using a Magit command.
-
-
-File: magit.info, Node: References Buffer, Next: Bisecting, Prev: Ediffing, Up: Inspecting
-
-5.6 References Buffer
-=====================
-
-‘y’ (‘magit-show-refs-popup’)
-
- List and compare references in a dedicated buffer. By default all
- refs are compared with ‘HEAD’, but with a prefix argument this
- command instead acts as a prefix command and shows the following
- suffix commands along with the appropriate infix arguments in a
- popup buffer.
-
-‘y y’ (‘magit-show-refs-head’)
-
- List and compare references in a dedicated buffer. Refs are
- compared with ‘HEAD’.
-
-‘y c’ (‘magit-show-refs-current’)
-
- List and compare references in a dedicated buffer. Refs are
- compared with the current branch or ‘HEAD’ if it is detached.
-
-‘y o’ (‘magit-show-refs’)
-
- List and compare references in a dedicated buffer. Refs are
- compared with a branch read from the user.
-
- -- User Option: magit-refs-show-commit-count
-
- Whether to show commit counts in Magit-Refs mode buffers.
-
- • ‘all’ Show counts for branches and tags.
-
- • ‘branch’ Show counts for branches only.
-
- • ‘nil’ Never show counts.
-
- The default is ‘nil’ because anything else can be very expensive.
-
- -- User Option: magit-refs-pad-commit-counts
-
- Whether to pad all commit counts on all sides in Magit-Refs mode
- buffers.
-
- If this is nil, then some commit counts are displayed right next to
- one of the branches that appear next to the count, without any
- space in between. This might look bad if the branch name faces
- look too similar to ‘magit-dimmed’.
-
- If this is non-nil, then spaces are placed on both sides of all
- commit counts.
-
- -- User Option: magit-refs-show-remote-prefix
-
- Whether to show the remote prefix in lists of remote branches.
-
- Showing the prefix is redundant because the name of the remote is
- already shown in the heading preceding the list of its branches.
-
- -- User Option: magit-refs-primary-column-width
-
- Width of the primary column in ‘magit-refs-mode’ buffers. The
- primary column is the column that contains the name of the branch
- that the current row is about.
-
- If this is an integer, then the column is that many columns wide.
- Otherwise it has to be a cons-cell of two integers. The first
- specifies the minimal width, the second the maximal width. In that
- case the actual width is determined using the length of the names
- of the shown local branches. (Remote branches and tags are not
- taken into account when calculating to optimal width.)
-
- -- User Option: magit-refs-focus-column-width
-
- Width of the focus column in ‘magit-refs-mode’ buffers.
-
- The focus column is the first column, which marks one branch
- (usually the current branch) as the focused branch using ‘*’ or
- ‘@’. For each other reference, this column optionally shows how
- many commits it is ahead of the focused branch and ‘<’, or if it
- isn’t ahead then the commits it is behind and ‘>’, or if it isn’t
- behind either, then a ‘=’.
-
- This column may also display only ‘*’ or ‘@’ for the focused
- branch, in which case this option is ignored. Use ‘L v’ to change
- the verbosity of this column.
-
- -- User Option: magit-refs-margin
-
- This option specifies whether the margin is initially shown in
- Magit-Refs mode buffers and how it is formatted.
-
- The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
- • If INIT is non-nil, then the margin is shown initially.
-
- • STYLE controls how to format the committer date. It can be
- one of ‘age’ (to show the age of the commit),
- ‘age-abbreviated’ (to abbreviate the time unit to a
- character), or a string (suitable for ‘format-time-string’) to
- show the actual date.
-
- • WIDTH controls the width of the margin. This exists for
- forward compatibility and currently the value should not be
- changed.
-
- • AUTHOR controls whether the name of the author is also shown
- by default.
-
- • AUTHOR-WIDTH has to be an integer. When the name of the
- author is shown, then this specifies how much space is used to
- do so.
-
- -- User Option: magit-refs-margin-for-tags
-
- This option specifies whether to show information about tags in the
- margin. This is disabled by default because it is slow if there
- are many tags.
-
- The following variables control how individual refs are displayed.
-If you change one of these variables (especially the "%c" part), then
-you should also change the others to keep things aligned. The following
-%-sequences are supported:
-
- • ‘%a’ Number of commits this ref has over the one we compare to.
-
- • ‘%b’ Number of commits the ref we compare to has over this one.
-
- • ‘%c’ Number of commits this ref has over the one we compare to.
- For the ref which all other refs are compared this is instead "@",
- if it is the current branch, or "#" otherwise.
-
- • ‘%C’ For the ref which all other refs are compared this is "@", if
- it is the current branch, or "#" otherwise. For all other refs "
- ".
-
- • ‘%h’ Hash of this ref’s tip.
-
- • ‘%m’ Commit summary of the tip of this ref.
-
- • ‘%n’ Name of this ref.
-
- • ‘%u’ Upstream of this local branch.
-
- • ‘%U’ Upstream of this local branch and additional local vs.
- upstream information.
-
- -- User Option: magit-refs-filter-alist
-
- This alist controls which tags and branches are omitted from being
- displayed in ‘magit-refs-mode’ buffers. If it is ‘nil’, then all
- refs are displayed (subject to ‘magit-refs-sections-hook’).
-
- All keys are tried in order until one matches. Then its value is
- used and subsequent elements are ignored. If the value is non-nil,
- then the reference is displayed, otherwise it is not. If no
- element matches, then the reference is displayed.
-
- A key can either be a regular expression that the refname has to
- match, or a function that takes the refname as only argument and
- returns a boolean. Contrary to how they are displayed in the
- buffer, for comparison each tag begins with "tags/" and each remote
- branch with "<remote>/".
-
-‘RET’ (‘magit-visit-ref’)
-
- This command visits the reference or revision at point in another
- buffer. If there is no revision at point or with a prefix argument
- then it prompts for a revision.
-
- This command behaves just like ‘magit-show-commit’ as described
- above, except if point is on a reference in a ‘magit-refs-mode’
- buffer, in which case the behavior may be different, but only if
- you have customized the option ‘magit-visit-ref-behavior’.
-
- -- User Option: magit-visit-ref-behavior
-
- This option controls how ‘magit-visit-ref’ behaves in
- ‘magit-refs-mode’ buffers.
-
- By default ‘magit-visit-ref’ behaves like ‘magit-show-commit’, in
- all buffers, including ‘magit-refs-mode’ buffers. When the type of
- the section at point is ‘commit’ then "RET" is bound to
- ‘magit-show-commit’, and when the type is either ‘branch’ or ‘tag’
- then it is bound to ‘magit-visit-ref’.
-
- "RET" is one of Magit’s most essential keys and at least by default
- it should behave consistently across all of Magit, especially
- because users quickly learn that it does something very harmless;
- it shows more information about the thing at point in another
- buffer.
-
- However "RET" used to behave differently in ‘magit-refs-mode’
- buffers, doing surprising things, some of which cannot really be
- described as "visit this thing". If you’ve grown accustomed this
- behavior, you can restore it by adding one or more of the below
- symbols to the value of this option. But keep in mind that by
- doing so you don’t only introduce inconsistencies, you also lose
- some functionality and might have to resort to ‘M-x
- magit-show-commit’ to get it back.
-
- ‘magit-visit-ref’ looks for these symbols in the order in which
- they are described here. If the presence of a symbol applies to
- the current situation, then the symbols that follow do not affect
- the outcome.
-
- • ‘focus-on-ref’
-
- With a prefix argument update the buffer to show commit counts
- and lists of cherry commits relative to the reference at point
- instead of relative to the current buffer or ‘HEAD’.
-
- Instead of adding this symbol, consider pressing "C-u y o
- RET".
-
- • ‘create-branch’
-
- If point is on a remote branch, then create a new local branch
- with the same name, use the remote branch as its upstream, and
- then check out the local branch.
-
- Instead of adding this symbol, consider pressing "b c RET
- RET", like you would do in other buffers.
-
- • ‘checkout-any’
-
- Check out the reference at point. If that reference is a tag
- or a remote branch, then this results in a detached ‘HEAD’.
-
- Instead of adding this symbol, consider pressing "b b RET",
- like you would do in other buffers.
-
- • ‘checkout-branch’
-
- Check out the local branch at point.
-
- Instead of adding this symbol, consider pressing "b b RET",
- like you would do in other buffers.
-
-* Menu:
-
-* References Sections::
-
-
-File: magit.info, Node: References Sections, Up: References Buffer
-
-5.6.1 References Sections
--------------------------
-
-The contents of references buffers is controlled using the hook
-‘magit-refs-sections-hook’. See *note Section Hooks:: to learn about
-such hooks and how to customize them. All of the below functions are
-members of the default value. Note that it makes much less sense to
-customize this hook than it does for the respective hook used for the
-status buffer.
-
- -- User Option: magit-refs-sections-hook
-
- Hook run to insert sections into a references buffer.
-
- -- Function: magit-insert-local-branches
-
- Insert sections showing all local branches.
-
- -- Function: magit-insert-remote-branches
-
- Insert sections showing all remote-tracking branches.
-
- -- Function: magit-insert-tags
-
- Insert sections showing all tags.
-
-
-File: magit.info, Node: Bisecting, Next: Visiting Blobs, Prev: References Buffer, Up: Inspecting
-
-5.7 Bisecting
-=============
-
-Also see *note (gitman)git-bisect::.
-
-‘B’ (‘magit-bisect-popup’)
-
- This prefix command shows the following suffix commands in a popup
- buffer.
-
- When bisecting is not in progress, then the popup buffer features the
-following commands.
-
-‘B B’ (‘magit-bisect-start’)
-
- Start a bisect session.
-
- Bisecting a bug means to find the commit that introduced it. This
- command starts such a bisect session by asking for a known good and
- a bad commit.
-
-‘B s’ (‘magit-bisect-run’)
-
- Bisect automatically by running commands after each step.
-
- When bisecting is in progress, then the popup buffer features these
-commands instead.
-
-‘B b’ (‘magit-bisect-bad’)
-
- Mark the current commit as bad. Use this after you have asserted
- that the commit does contain the bug in question.
-
-‘B g’ (‘magit-bisect-good’)
-
- Mark the current commit as good. Use this after you have asserted
- that the commit does not contain the bug in question.
-
-‘B k’ (‘magit-bisect-skip’)
-
- Skip the current commit. Use this if for some reason the current
- commit is not a good one to test. This command lets Git choose a
- different one.
-
-‘B r’ (‘magit-bisect-reset’)
-
- After bisecting, cleanup bisection state and return to original
- ‘HEAD’.
-
- By default the status buffer shows information about the ongoing
-bisect session.
-
- -- User Option: magit-bisect-show-graph
-
- This option controls whether a graph is displayed for the log of
- commits that still have to be bisected.
-
-
-File: magit.info, Node: Visiting Blobs, Next: Blaming, Prev: Bisecting, Up: Inspecting
-
-5.8 Visiting Blobs
-==================
-
-‘M-x magit-find-file’ (‘magit-find-file’)
-
- View FILE from REV. Switch to a buffer visiting blob REV:FILE,
- creating one if none already exists.
-
-‘M-x magit-find-file-other-window’ (‘magit-find-file-other-window’)
-
- View FILE from REV, in another window. Like ‘magit-find-file’, but
- create a new window or reuse an existing one.
-
-
-File: magit.info, Node: Blaming, Prev: Visiting Blobs, Up: Inspecting
-
-5.9 Blaming
-===========
-
-Also see *note (gitman)git-blame::.
-
- To start blaming you can use ‘M-x’ in a file-visiting buffer to
-invoke one of the following commands. You can also invoke these
-commands using the blame popup, which is available on ‘b’ in
-file-visiting buffers that already contain blame information and, also
-on ‘b’, in all blob-visiting buffers. You can also enter the blame
-popup from the file popup, which is available on ‘C-c M-g’, provided
-‘magit-file-mode’ is enabled, see *note Minor Mode for Buffers Visiting
-Files::.
-
- -- Command: magit-blame-addition
-
- This command augments each line or chunk of lines in the current
- file- or blob-visiting buffer with information about what commits
- last touched these lines.
-
- If the buffer visits a revision of that file, then history up to
- that revision is considered. Otherwise, the file’s full history is
- considered, including uncommitted changes.
-
- If Magit-Blame mode is already turned on in the current buffer then
- blaming is done recursively, by visiting REVISION:FILE (using
- ‘magit-find-file’), where REVISION is a parent of the revision that
- added the current line or chunk of lines.
-
- -- Command: magit-blame-echo
-
- This command is like ‘magit-blame-addition’ except that it doesn’t
- turn on ‘read-only-mode’ and that it initially uses the
- visualization style specified by option ‘magit-blame-echo-style’.
-
- -- Command: magit-blame-removal
-
- This command augments each line or chunk of lines in the current
- blob-visiting buffer with information about the revision that
- removes it. It cannot be used in file-visiting buffers.
-
- Like ‘magit-blame-addition’, this command can be used recursively.
-
- -- Command: magit-blame-reverse
-
- This command augments each line or chunk of lines in the current
- file- or blob-visiting buffer with information about the last
- revision in which a line still existed.
-
- Like ‘magit-blame-addition’, this command can be used recursively.
-
- The following key bindings are available when Magit-Blame mode is
-enabled and Read-Only mode is not enabled. These commands are also
-available in other buffers; here only the behavior is described that is
-relevant in file-visiting buffers that are being blamed.
-
-‘RET’ (‘magit-show-commit’)
-
- This command shows the commit that last touched the line at point.
-
-‘SPC’ (‘magit-diff-show-or-scroll-up’)
-
- This command updates the commit buffer.
-
- This either shows the commit that last touched the line at point in
- the appropriate buffer, or if that buffer is already being
- displayed in the current frame and if that buffer contains
- information about that commit, then the buffer is scrolled up
- instead.
-
-‘DEL’ (‘magit-diff-show-or-scroll-down’)
-
- This command updates the commit buffer.
-
- This either shows the commit that last touched the line at point in
- the appropriate buffer, or if that buffer is already being
- displayed in the current frame and if that buffer contains
- information about that commit, then the buffer is scrolled down
- instead.
-
- The following key bindings are available when Magit-Blame mode is
-enabled and Read-Only mode is not enabled.
-
-‘b’ (‘magit-blame-popup’)
-
- This prefix command shows the above suffix command along with the
- appropriate infix arguments in a popup buffer.
-
-‘n’ (‘magit-blame-next-chunk’)
-
- This command moves to the next chunk.
-
-‘N’ (‘magit-blame-next-chunk-same-commit’)
-
- This command moves to the next chunk from the same commit.
-
-‘p’ (‘magit-blame-previous-chunk’)
-
- This command moves to the previous chunk.
-
-‘P’ (‘magit-blame-previous-chunk-same-commit’)
-
- This command moves to the previous chunk from the same commit.
-
-‘q’ (‘magit-blame-quit’)
-
- This command turns off Magit-Blame mode. If the buffer was created
- during a recursive blame, then it also kills the buffer.
-
-‘M-w’ (‘magit-blame-copy-hash’)
-
- This command saves the hash of the current chunk’s commit to the
- kill ring.
-
- When the region is active, the command saves the region’s content
- instead of the hash, like ‘kill-ring-save’ would.
-
-‘c’ (‘magit-blame-cycle-style’)
-
- This command changes how blame information is visualized in the
- current buffer by cycling through the styles specified using the
- option ‘magit-blame-styles’.
-
- Blaming is also controlled using the following options.
-
- -- User Option: magit-blame-styles
-
- This option defines a list of styles used to visualize blame
- information. For now see its doc-string to learn more.
-
- -- User Option: magit-blame-echo-style
-
- This option specifies the blame visualization style used by the
- command ‘magit-blame-echo’. This must be a symbol that is used as
- the identifier for one of the styles defined in
- ‘magit-blame-styles’.
-
- -- User Option: magit-blame-time-format
-
- This option specifies the format string used to display times when
- showing blame information.
-
- -- User Option: magit-blame-read-only
-
- This option controls whether blaming a buffer also makes
- temporarily read-only.
-
- -- User Option: magit-blame-disable-modes
-
- This option lists incompatible minor-modes that should be disabled
- temporarily when a buffer contains blame information. They are
- enabled again when the buffer no longer shows blame information.
-
- -- User Option: magit-blame-goto-chunk-hook
-
- This hook is run when moving between chunks.
-
-
-File: magit.info, Node: Manipulating, Next: Transferring, Prev: Inspecting, Up: Top
-
-6 Manipulating
-**************
-
-* Menu:
-
-* Repository Setup::
-* Staging and Unstaging::
-* Applying::
-* Committing::
-* Branching::
-* Merging::
-* Resolving Conflicts::
-* Rebasing::
-* Cherry Picking::
-* Resetting::
-* Stashing::
-
-
-File: magit.info, Node: Repository Setup, Next: Staging and Unstaging, Up: Manipulating
-
-6.1 Repository Setup
-====================
-
-‘M-x magit-init’ (‘magit-init’)
-
- This command initializes a repository and then shows the status
- buffer for the new repository.
-
- If the directory is below an existing repository, then the user has
- to confirm that a new one should be created inside. If the
- directory is the root of the existing repository, then the user has
- to confirm that it should be reinitialized.
-
-‘M-x magit-clone’ (‘magit-clone’)
-
- This command clones a repository and then shows the status buffer
- for the new repository.
-
- The user is queried for a remote url and a local directory.
-
- -- User Option: magit-clone-set-remote.pushDefault
-
- Whether to set the value of ‘remote.pushDefault’ after cloning.
-
- If ‘t’, then set without asking. If ‘nil’, then don’t set. If
- ‘ask’, then ask the user every time she clones a repository.
-
-
-File: magit.info, Node: Staging and Unstaging, Next: Applying, Prev: Repository Setup, Up: Manipulating
-
-6.2 Staging and Unstaging
-=========================
-
-Like Git, Magit can of course stage and unstage complete files. Unlike
-Git, it also allows users to gracefully un-/stage individual hunks and
-even just part of a hunk. To stage individual hunks and parts of hunks
-using Git directly, one has to use the very modal and rather clumsy
-interface of a ‘git add --interactive’ session.
-
- With Magit, on the other hand, one can un-/stage individual hunks by
-just moving point into the respective section inside a diff displayed in
-the status buffer or a separate diff buffer and typing ‘s’ or ‘u’. To
-operate on just parts of a hunk, mark the changes that should be
-un-/staged using the region and then press the same key that would be
-used to un-/stage. To stage multiple files or hunks at once use a
-region that starts inside the heading of such a section and ends inside
-the heading of a sibling section of the same type.
-
- Besides staging and unstaging, Magit also provides several other
-"apply variants" that can also operate on a file, multiple files at
-once, a hunk, multiple hunks at once, and on parts of a hunk. These
-apply variants are described in the next section.
-
- You can also use Ediff to stage and unstage. See *note Ediffing::.
-
-‘s’ (‘magit-stage’)
-
- Add the change at point to the staging area.
-
- With a prefix argument and an untracked file (or files) at point,
- stage the file but not its content. This makes it possible to
- stage only a subset of the new file’s changes.
-
-‘S’ (‘magit-stage-modified’)
-
- Stage all changes to files modified in the worktree. Stage all new
- content of tracked files and remove tracked files that no longer
- exist in the working tree from the index also. With a prefix
- argument also stage previously untracked (but not ignored) files.
-
-‘u’ (‘magit-unstage’)
-
- Remove the change at point from the staging area.
-
- Only staged changes can be unstaged. But by default this command
- performs an action that is somewhat similar to unstaging, when it
- is called on a committed change: it reverses the change in the
- index but not in the working tree.
-
-‘U’ (‘magit-unstage-all’)
-
- Remove all changes from the staging area.
-
- -- User Option: magit-unstage-committed
-
- This option controls whether ‘magit-unstage’ "unstages" committed
- changes by reversing them in the index but not the working tree.
- The alternative is to raise an error.
-
-‘M-x magit-reverse-in-index’ (‘magit-reverse-in-index’)
-
- This command reverses the committed change at point in the index
- but not the working tree. By default no key is bound directly to
- this command, but it is indirectly called when ‘u’
- (‘magit-unstage’) is pressed on a committed change.
-
- This allows extracting a change from ‘HEAD’, while leaving it in
- the working tree, so that it can later be committed using a
- separate commit. A typical workflow would be:
-
- • Optionally make sure that there are no uncommitted changes.
-
- • Visit the ‘HEAD’ commit and navigate to the change that should
- not have been included in that commit.
-
- • Type ‘u’ (‘magit-unstage’) to reverse it in the index. This
- assumes that ‘magit-unstage-committed-changes’ is non-nil.
-
- • Type ‘c e’ to extend ‘HEAD’ with the staged changes, including
- those that were already staged before.
-
- • Optionally stage the remaining changes using ‘s’ or ‘S’ and
- then type ‘c c’ to create a new commit.
-
-‘M-x magit-reset-index’ (‘magit-reset-index’)
-
- Reset the index to some commit. The commit is read from the user
- and defaults to the commit at point. If there is no commit at
- point, then it defaults to ‘HEAD’.
-
-* Menu:
-
-* Staging from File-Visiting Buffers::
-
-
-File: magit.info, Node: Staging from File-Visiting Buffers, Up: Staging and Unstaging
-
-6.2.1 Staging from File-Visiting Buffers
-----------------------------------------
-
-Fine-grained un-/staging has to be done from the status or a diff
-buffer, but it’s also possible to un-/stage all changes made to the file
-visited in the current buffer right from inside that buffer.
-
-‘M-x magit-stage-file’ (‘magit-stage-file’)
-
- When invoked inside a file-visiting buffer, then stage all changes
- to that file. In a Magit buffer, stage the file at point if any.
- Otherwise prompt for a file to be staged. With a prefix argument
- always prompt the user for a file, even in a file-visiting buffer
- or when there is a file section at point.
-
-‘M-x magit-unstage-file’ (‘magit-unstage-file’)
-
- When invoked inside a file-visiting buffer, then unstage all
- changes to that file. In a Magit buffer, unstage the file at point
- if any. Otherwise prompt for a file to be unstaged. With a prefix
- argument always prompt the user for a file, even in a file-visiting
- buffer or when there is a file section at point.
-
-
-File: magit.info, Node: Applying, Next: Committing, Prev: Staging and Unstaging, Up: Manipulating
-
-6.3 Applying
-============
-
-Magit provides several "apply variants": stage, unstage, discard,
-reverse, and "regular apply". At least when operating on a hunk they
-are all implemented using ‘git apply’, which is why they are called
-"apply variants".
-
- • Stage. Apply a change from the working tree to the index. The
- change also remains in the working tree.
-
- • Unstage. Remove a change from the index. The change remains in
- the working tree.
-
- • Discard. On a staged change, remove it from the working tree and
- the index. On an unstaged change, remove it from the working tree
- only.
-
- • Reverse. Reverse a change in the working tree. Both committed and
- staged changes can be reversed. Unstaged changes cannot be
- reversed. Discard them instead.
-
- • Apply. Apply a change to the working tree. Both committed and
- staged changes can be applied. Unstaged changes cannot be applied
- - as they already have been applied.
-
- The previous section described the staging and unstaging commands.
-What follows are the commands which implement the remaining apply
-variants.
-
-‘a’ (‘magit-apply’)
-
- Apply the change at point to the working tree.
-
- With a prefix argument fallback to a 3-way merge. Doing so causes
- the change to be applied to the index as well.
-
-‘k’ (‘magit-discard’)
-
- Remove the change at point from the working tree.
-
-‘v’ (‘magit-reverse’)
-
- Reverse the change at point in the working tree.
-
- With a prefix argument fallback to a 3-way merge. Doing so causes
- the change to be applied to the index as well.
-
- With a prefix argument all apply variants attempt a 3-way merge when
-appropriate (i.e. when ‘git apply’ is used internally).
-
-
-File: magit.info, Node: Committing, Next: Branching, Prev: Applying, Up: Manipulating
-
-6.4 Committing
-==============
-
-When the user initiates a commit, Magit calls ‘git commit’ without any
-arguments, so Git has to get it from the user. It creates the file
-‘.git/COMMIT_EDITMSG’ and then opens that file in an editor. Magit
-arranges for that editor to be the Emacsclient. Once the user finishes
-the editing session, the Emacsclient exits and Git creates the commit
-using the file’s content as message.
-
-* Menu:
-
-* Initiating a Commit::
-* Editing Commit Messages::
-
-
-File: magit.info, Node: Initiating a Commit, Next: Editing Commit Messages, Up: Committing
-
-6.4.1 Initiating a Commit
--------------------------
-
-Also see *note (gitman)git-commit::.
-
-‘c’ (‘magit-commit-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘c c’ (‘magit-commit-create’)
-
- Create a new commit on ‘HEAD’. With a prefix argument amend to the
- commit at ‘HEAD’ instead.
-
-‘c a’ (‘magit-commit-amend’)
-
- Amend the last commit.
-
-‘c e’ (‘magit-commit-extend’)
-
- Amend the last commit, without editing the message. With a prefix
- argument keep the committer date, otherwise change it. The option
- ‘magit-commit-extend-override-date’ can be used to inverse the
- meaning of the prefix argument.
-
- Non-interactively respect the optional OVERRIDE-DATE argument and
- ignore the option.
-
-‘c w’ (‘magit-commit-reword’)
-
- Reword the last commit, ignoring staged changes. With a prefix
- argument keep the committer date, otherwise change it. The option
- ‘magit-commit-reword-override-date’ can be used to inverse the
- meaning of the prefix argument.
-
- Non-interactively respect the optional OVERRIDE-DATE argument and
- ignore the option.
-
-‘c f’ (‘magit-commit-fixup’)
-
- Create a fixup commit.
-
- With a prefix argument the target commit has to be confirmed.
- Otherwise the commit at point may be used without confirmation
- depending on the value of option ‘magit-commit-squash-confirm’.
-
-‘c F’ (‘magit-commit-instant-fixup’)
-
- Create a fixup commit and instantly rebase.
-
-‘c s’ (‘magit-commit-squash’)
-
- Create a squash commit, without editing the squash message.
-
- With a prefix argument the target commit has to be confirmed.
- Otherwise the commit at point may be used without confirmation
- depending on the value of option ‘magit-commit-squash-confirm’.
-
-‘c S’ (‘magit-commit-instant-squash’)
-
- Create a squash commit and instantly rebase.
-
-‘c A’ (‘magit-commit-augment’)
-
- Create a squash commit, editing the squash message.
-
- With a prefix argument the target commit has to be confirmed.
- Otherwise the commit at point may be used without confirmation
- depending on the value of option ‘magit-commit-squash-confirm’.
-
- -- User Option: magit-commit-ask-to-stage
-
- Whether to ask to stage all unstaged changes when committing and
- nothing is staged.
-
- -- User Option: magit-commit-extend-override-date
-
- Whether using ‘magit-commit-extend’ changes the committer date.
-
- -- User Option: magit-commit-reword-override-date
-
- Whether using ‘magit-commit-reword’ changes the committer date.
-
- -- User Option: magit-commit-squash-confirm
-
- Whether the commit targeted by squash and fixup has to be
- confirmed. When non-nil then the commit at point (if any) is used
- as default choice. Otherwise it has to be confirmed. This option
- only affects ‘magit-commit-squash’ and ‘magit-commit-fixup’. The
- "instant" variants always require confirmation because making an
- error while using those is harder to recover from.
-
-
-File: magit.info, Node: Editing Commit Messages, Prev: Initiating a Commit, Up: Committing
-
-6.4.2 Editing Commit Messages
------------------------------
-
-After initiating a commit as described in the previous section, two new
-buffers appear. One shows the changes that are about to committed,
-while the other is used to write the message. All regular editing
-commands are available in the commit message buffer. This section only
-describes the additional commands.
-
- Commit messages are edited in an edit session - in the background Git
-is waiting for the editor, in our case the Emacsclient, to save the
-commit message in a file (in most cases ‘.git/COMMIT_EDITMSG’) and then
-return. If the Emacsclient returns with a non-zero exit status then Git
-does not create the commit. So the most important commands are those
-for finishing and aborting the commit.
-
-‘C-c C-c’ (‘with-editor-finish’)
-
- Finish the current editing session by returning with exit code 0.
- Git then creates the commit using the message it finds in the file.
-
-‘C-c C-k’ (‘with-editor-cancel’)
-
- Cancel the current editing session by returning with exit code 1.
- Git then cancels the commit, but leaves the file untouched.
-
- In addition to being used by Git, these messages may also be stored
-in a ring that persists until Emacs is closed. By default the message
-is stored at the beginning and the end of an edit session (regardless of
-whether the session is finished successfully or was canceled). It is
-sometimes useful to bring back messages from that ring.
-
-‘C-c M-s’ (‘git-commit-save-message’)
-
- Save the current buffer content to the commit message ring.
-
-‘M-p’ (‘git-commit-prev-message’)
-
- Cycle backward through the commit message ring, after saving the
- current message to the ring. With a numeric prefix ARG, go back
- ARG comments.
-
-‘M-n’ (‘git-commit-next-message’)
-
- Cycle forward through the commit message ring, after saving the
- current message to the ring. With a numeric prefix ARG, go back
- ARG comments.
-
- By default the diff for the changes that are about to be committed
-are automatically shown when invoking the commit. When amending to an
-existing commit it may be useful to show either the changes that are
-about to be added to that commit or to show those changes together with
-those that are already committed.
-
-‘C-c C-d’ (‘magit-diff-while-committing’)
-
- While committing, show the changes that are about to be committed.
- While amending, invoking the command again toggles between showing
- just the new changes or all the changes that will be committed.
-
-‘C-c C-w’ (‘magit-pop-revision-stack’)
-
- This command inserts a representation of a revision into the
- current buffer. It can be used inside buffers used to write commit
- messages but also in other buffers such as buffers used to edit
- emails or ChangeLog files.
-
- By default this command pops the revision which was last added to
- the ‘magit-revision-stack’ and inserts it into the current buffer
- according to ‘magit-pop-revision-stack-format’. Revisions can be
- put on the stack using ‘magit-copy-section-value’ and
- ‘magit-copy-buffer-revision’.
-
- If the stack is empty or with a prefix argument it instead reads a
- revision in the minibuffer. By using the minibuffer history this
- allows selecting an item which was popped earlier or to insert an
- arbitrary reference or revision without first pushing it onto the
- stack.
-
- When reading the revision from the minibuffer, then it might not be
- possible to guess the correct repository. When this command is
- called inside a repository (e.g. while composing a commit
- message), then that repository is used. Otherwise (e.g. while
- composing an email) then the repository recorded for the top
- element of the stack is used (even though we insert another
- revision). If not called inside a repository and with an empty
- stack, or with two prefix arguments, then read the repository in
- the minibuffer too.
-
- -- User Option: magit-pop-revision-stack-format
-
- This option controls how the command ‘magit-pop-revision-stack’
- inserts a revision into the current buffer.
-
- The entries on the stack have the format ‘(HASH TOPLEVEL)’ and this
- option has the format ‘(POINT-FORMAT EOB-FORMAT INDEX-REGEXP)’, all
- of which may be nil or a string (though either one of EOB-FORMAT or
- POINT-FORMAT should be a string, and if INDEX-REGEXP is non-nil,
- then the two formats should be too).
-
- First INDEX-REGEXP is used to find the previously inserted entry,
- by searching backward from point. The first submatch must match
- the index number. That number is incremented by one, and becomes
- the index number of the entry to be inserted. If you don’t want to
- number the inserted revisions, then use nil for INDEX-REGEXP.
-
- If INDEX-REGEXP is non-nil then both POINT-FORMAT and EOB-FORMAT
- should contain \"%N\", which is replaced with the number that was
- determined in the previous step.
-
- Both formats, if non-nil and after removing %N, are then expanded
- using ‘git show –format=FORMAT ...’ inside TOPLEVEL.
-
- The expansion of POINT-FORMAT is inserted at point, and the
- expansion of EOB-FORMAT is inserted at the end of the buffer (if
- the buffer ends with a comment, then it is inserted right before
- that).
-
- Some projects use pseudo headers in commit messages. Magit colorizes
-such headers and provides some commands to insert such headers.
-
- -- User Option: git-commit-known-pseudo-headers
-
- A list of Git pseudo headers to be highlighted.
-
-‘C-c C-a’ (‘git-commit-ack’)
-
- Insert a header acknowledging that you have looked at the commit.
-
-‘C-c C-r’ (‘git-commit-review’)
-
- Insert a header acknowledging that you have reviewed the commit.
-
-‘C-c C-s’ (‘git-commit-signoff’)
-
- Insert a header to sign off the commit.
-
-‘C-c C-t’ (‘git-commit-test’)
-
- Insert a header acknowledging that you have tested the commit.
-
-‘C-c C-o’ (‘git-commit-cc’)
-
- Insert a header mentioning someone who might be interested.
-
-‘C-c C-p’ (‘git-commit-reported’)
-
- Insert a header mentioning the person who reported the issue being
- fixed by the commit.
-
-‘C-c C-i’ (‘git-commit-suggested’)
-
- Insert a header mentioning the person who suggested the change.
-
- ‘git-commit-mode’ is a minor mode that is only used to establish the
-above key bindings. This allows using an arbitrary major mode when
-editing the commit message. It’s even possible to use a different major
-mode in different repositories, which is useful when different projects
-impose different commit message conventions.
-
- -- User Option: git-commit-major-mode
-
- The value of this option is the major mode used to edit Git commit
- messages.
-
- Because ‘git-commit-mode’ is a minor mode, we don’t use its mode hook
-to setup the buffer, except for the key bindings. All other setup
-happens in the function ‘git-commit-setup’, which among other things
-runs the hook ‘git-commit-setup-hook’. The following functions are
-suitable for that hook.
-
- -- User Option: git-commit-setup-hook
-
- Hook run at the end of ‘git-commit-setup’.
-
- -- Function: magit-revert-buffers &optional force
-
- Revert unmodified file-visiting buffers of the current repository.
-
- If either ‘magit-revert-buffers’ is non-nil and
- ‘inhibit-magit-revert’ is nil, or if optional FORCE is non-nil,
- then revert all unmodified buffers that visit files being tracked
- in the current repository.
-
- -- Function: git-commit-save-message
-
- Save the current buffer content to the commit message ring.
-
- -- Function: git-commit-setup-changelog-support
-
- After this function is called, ChangeLog entries are treated as
- paragraphs.
-
- -- Function: git-commit-turn-on-auto-fill
-
- Turn on ‘auto-fill-mode’ and set ‘fill-column’ to the value of
- ‘git-commit-fill-column’.
-
- -- Function: git-commit-turn-on-flyspell
-
- Turn on Flyspell mode. Also prevent comments from being checked
- and finally check current non-comment text.
-
- -- Function: git-commit-propertize-diff
-
- Propertize the diff shown inside the commit message buffer. Git
- inserts such diffs into the commit message template when the
- ‘--verbose’ argument is used. Magit’s commit popup by default does
- not offer that argument because the diff that is shown in a
- separate buffer is more useful. But some users disagree, which is
- why this function exists.
-
- -- Function: with-editor-usage-message
-
- Show usage information in the echo area.
-
- Magit also helps with writing *good* commit messages by complaining
-when certain rules are violated.
-
- -- User Option: git-commit-summary-max-length
-
- The intended maximal length of the summary line of commit messages.
- Characters beyond this column are colorized to indicate that this
- preference has been violated.
-
- -- User Option: git-commit-fill-column
-
- Column beyond which automatic line-wrapping should happen in commit
- message buffers.
-
- -- User Option: git-commit-finish-query-functions
-
- List of functions called to query before performing commit.
-
- The commit message buffer is current while the functions are
- called. If any of them returns nil, then the commit is not
- performed and the buffer is not killed. The user should then fix
- the issue and try again.
-
- The functions are called with one argument. If it is non-nil then
- that indicates that the user used a prefix argument to force
- finishing the session despite issues. Functions should usually
- honor this wish and return non-nil.
-
- -- Function: git-commit-check-style-conventions
-
- Check for violations of certain basic style conventions. For each
- violation ask the user if she wants to proceed anyway. This makes
- sure the summary line isn’t too long and that the second line is
- empty.
-
- To show no diff while committing remove ‘magit-commit-diff’ from
-‘server-switch-hook’.
-
-
-File: magit.info, Node: Branching, Next: Merging, Prev: Committing, Up: Manipulating
-
-6.5 Branching
-=============
-
-* Menu:
-
-* The Two Remotes::
-* The Branch Popup::
-* The Branch Config Popup::
-* Auxiliary Branch Commands::
-
-
-File: magit.info, Node: The Two Remotes, Next: The Branch Popup, Up: Branching
-
-6.5.1 The Two Remotes
----------------------
-
-The upstream branch of some local branch is the branch into which the
-commits on that local branch should eventually be merged, usually
-something like ‘origin/master’. For the ‘master’ branch itself the
-upstream branch and the branch it is being pushed to, are usually the
-same remote branch. But for a feature branch the upstream branch and
-the branch it is being pushed to should differ.
-
- The commits on feature branches too should _eventually_ end up in a
-remote branch such as ‘origin/master’ or ‘origin/maint’. Such a branch
-should therefore be used as the upstream. But feature branches
-shouldn’t be pushed directly to such branches. Instead a feature branch
-‘my-feature’ is usually pushed to ‘my-fork/my-feature’ or if you are a
-contributor ‘origin/my-feature’. After the new feature has been
-reviewed, the maintainer merges the feature into ‘master’. And finally
-‘master’ (not ‘my-feature’ itself) is pushed to ‘origin/master’.
-
- But new features seldom are perfect on the first try, and so feature
-branches usually have to be reviewed, improved, and re-pushed several
-times. Pushing should therefore be easy to do, and for that reason many
-Git users have concluded that it is best to use the remote branch to
-which the local feature branch is being pushed as its upstream.
-
- But luckily Git has long ago gained support for a push-remote which
-can be configured separately from the upstream branch, using the
-variables ‘branch.<name>.pushRemote’ and ‘remote.pushDefault’. So we no
-longer have to choose which of the two remotes should be used as "the
-remote".
-
- Each of the fetching, pulling, and pushing popups features three
-commands that act on the current branch and some other branch. Of
-these, ‘p’ is bound to a command which acts on the push-remote, ‘u’ is
-bound to a command which acts on the upstream, and ‘e’ is bound to a
-command which acts on any other branch. The status buffer shows
-unpushed and unpulled commits for both the push-remote and the upstream.
-
- It’s fairly simple to configure these two remotes. The values of all
-the variables that are related to fetching, pulling, and pushing (as
-well as some other branch-related variables) can be inspected and
-changed using the popup ‘magit-branch-config-popup’, which is a
-sub-popup of many popups that deal with branches. It is also possible
-to set the push-remote or upstream while pushing (see *note Pushing::).
-
-
-File: magit.info, Node: The Branch Popup, Next: The Branch Config Popup, Prev: The Two Remotes, Up: Branching
-
-6.5.2 The Branch Popup
-----------------------
-
-The popup ‘magit-branch-popup’ is used to create and checkout branches,
-and to make changes to existing branches. It is not used to fetch,
-pull, merge, rebase, or push branches, i.e. this popup deals with
-branches themselves, not with the commits reachable from them. Those
-features are available from separate popups.
-
-‘b’ (‘magit-branch-popup’)
-
- This prefix command shows the following suffix commands in a popup
- buffer.
-
- By default it also displays the values of some branch-related Git
- variables and allows changing their values, just like the
- specialized ‘magit-branch-config-popup’ does.
-
- -- User Option: magit-branch-popup-show-variables
-
- Whether the ‘magit-branch-popup’ shows Git variables. This
- defaults to t to avoid changing key bindings. When set to nil, no
- variables are displayed directly in this popup, and the sub-popup
- ‘magit-branch-config-popup’ has to be used instead to view and
- change branch related variables.
-
-‘b C’ (‘magit-branch-config-popup’)
-
- This command shows branch related variables in a separate popup.
- By default this asks the user for which branch the variables should
- be shown. When ‘magit-branch-popup-show-variables’ is ‘nil’, then
- it shows the variables for the current branch, unless a prefix
- argument is used.
-
-‘b b’ (‘magit-checkout’)
-
- Checkout a revision read in the minibuffer and defaulting to the
- branch or arbitrary revision at point. If the revision is a local
- branch then that becomes the current branch. If it is something
- else then ‘HEAD’ becomes detached. Checkout fails if the working
- tree or the staging area contain changes.
-
-‘b n’ (‘magit-branch-create’)
-
- Create a new branch. The user is asked for a branch or arbitrary
- revision to use as the starting point of the new branch. When a
- branch name is provided, then that becomes the upstream branch of
- the new branch. The name of the new branch is also read in the
- minibuffer.
-
- Also see option ‘magit-branch-prefer-remote-upstream’.
-
-‘b c’ (‘magit-branch-and-checkout’)
-
- This command creates a new branch like ‘magit-branch’, but then
- also checks it out.
-
- Also see option ‘magit-branch-prefer-remote-upstream’.
-
-‘b l’ (‘magit-branch-checkout’)
-
- This command checks out an existing or new local branch. It reads
- a branch name from the user offering all local branches and a
- subset of remote branches as candidates. Remote branches for which
- a local branch by the same name exists are omitted from the list of
- candidates. The user can also enter a completely new branch name.
-
- • If the user selects an existing local branch, then that is
- checked out.
-
- • If the user selects a remote branch, then it creates and
- checks out a new local branch with the same name, and
- configures the selected remote branch as the push target.
-
- • If the user enters a new branch name, then it creates and
- checks that out, after also reading the starting-point from
- the user.
-
- In the latter two cases the upstream is also set. Whether it is
- set to the chosen starting point or something else depends on the
- value of ‘magit-branch-adjust-remote-upstream-alist’.
-
-‘b s’ (‘magit-branch-spinoff’)
-
- This command creates and checks out a new branch starting at and
- tracking the current branch. That branch in turn is reset to the
- last commit it shares with its upstream. If the current branch has
- no upstream or no unpushed commits, then the new branch is created
- anyway and the previously current branch is not touched.
-
- This is useful to create a feature branch after work has already
- began on the old branch (likely but not necessarily "master").
-
- If the current branch is a member of the value of option
- ‘magit-branch-prefer-remote-upstream’ (which see), then the current
- branch will be used as the starting point as usual, but the
- upstream of the starting-point may be used as the upstream of the
- new branch, instead of the starting-point itself.
-
- If optional FROM is non-nil, then the source branch is reset to
- ‘FROM~’, instead of to the last commit it shares with its upstream.
- Interactively, FROM is only ever non-nil, if the region selects
- some commits, and among those commits, FROM is the commit that is
- the fewest commits ahead of the source branch.
-
- The commit at the other end of the selection actually does not
- matter, all commits between FROM and ‘HEAD’ are moved to the new
- branch. If FROM is not reachable from ‘HEAD’ or is reachable from
- the source branch’s upstream, then an error is raised.
-
-‘b Y’ (‘magit-branch-pull-request’)
-
- This command creates and configures a new branch from a Github
- pull-request, creating and configuring a new remote if necessary.
-
- The name of the local branch is the same as the name of the remote
- branch that you are being asked to merge, unless the contributor
- could not be bother to properly name the branch before opening the
- pull-request. The most likely such case is when you are being
- asked to merge something like "fork/master" into "origin/master".
- In such cases the local branch will be named "pr-N", where ‘N’ is
- the pull-request number.
-
- These variables are always set by this command:
-
- • ‘branch.<name>.pullRequest’ is set to the pull-request number.
-
- • ‘branch.<name>.pullRequestRemote’ is set to the remote on
- which the pull-request branch is located.
-
- • ‘branch.<name>.pushRemote’ is set to the same remote as
- ‘branch.<name>.pullRequestRemote’ if that is possible,
- otherwise it is set to the upstream remote.
-
- • ‘branch.<name>.description’ is set to the pull-request title.
-
- • ‘branch.<name>.rebase’ is set to ‘true’ because there should
- be no merge commits among the commits in a pull-request.
-
- This command also configures the upstream and the push-remote of
- the local branch that it creates.
-
- The branch against which the pull-request was opened, is always
- used as the upstream. This makes it easy to see what commits you
- are being asked to merge in the section titled something like
- "Unmerged into origin/master".
-
- Like for other commands that create a branch it depends on the
- option ‘magit-branch-prefer-remote-upstream’ whether the remote
- branch itself or the respective local branch is used as the
- upstream, so this section may also be titled e.g. "Unmerged into
- master".
-
- When necessary and possible, then the remote pull-request branch is
- configured to be used as the push-target. This makes it easy to
- see what further changes the contributor has made since you last
- reviewed their changes in the section titled something like
- "Unpulled from origin/new-feature" or "Unpulled from
- fork/new-feature".
-
- • If the pull-request branch is located in the upstream
- repository, then you probably have set ‘remote.pushDefault’ to
- that repository. However some users like to set that variable
- to their personal fork, even if they have push access to the
- upstream, so ‘branch.<name>.pushRemote’ is set anyway.
-
- • If the pull-request branch is located inside a fork, then you
- are usually able to push to that branch, because Github by
- default allows the recipient of a pull-request to push to the
- remote pull-request branch even if it is located in a fork.
- The contributor has to explicitly disable this.
-
- • If you are not allowed to push to the pull-request branch
- on the fork, then a branch by the same name located in
- the upstream repository is configured as the push-target.
-
- • A — sadly rather common — special case is when the
- contributor didn’t bother to use a dedicated branch for
- the pull-request.
-
- The most likely such case is when you are being asked to
- merge something like "fork/master" into "origin/master".
- The special push permission mentioned above is never
- granted for the branch that is the repository’s default
- branch, and that would almost certainly be the case in
- this scenario.
-
- To enable you to easily push somewhere anyway, the local
- branch is named "pr-N" (where ‘N’ is the pull-request
- number) and the upstream repository is used as the
- push-remote.
-
- • Finally, if you are allowed to push to the pull-request
- branch and the contributor had the foresight to use a
- dedicated branch, then the fork is configured as the
- push-remote.
-
- The push-remote is configured using
- ‘branch.<name>.pushRemote’, even if the used value is
- identical to that of ‘remote.pushDefault’, just in case you
- change the value of the latter later on. Additionally the
- variable ‘branch.<name>.pullRequestRemote’ is set to the
- remote on which the pull-request branch is located.
-
- When you later delete the local pull-request branch, then you are
- offered to also delete the corresponding remote, provided it is not
- the upstream remote and that the tracking branch that corresponds
- to the deleted branch is the only remaining tracked branch. If you
- don’t confirm, then only the tracking branch itself is deleted in
- addition to the local branch.
-
- Do not delete the tracking branch instead of the local branch. The
- cleanup mentioned in the previous paragraph is not performed if you
- do that.
-
-‘b y’ (‘magit-checkout-pull-request’)
-
- This command creates and configures a new branch from a pull
- request, the same way ‘magit-branch-pull-request’ does.
- Additionally it checks out the new branch.
-
-‘b x’ (‘magit-branch-reset’)
-
- This command resets a branch, defaulting to the branch at point, to
- the tip of another branch or any other commit.
-
- When the branch being reset is the current branch, then a hard
- reset is performed. If there are any uncommitted changes, then the
- user has to confirm the reset because those changes would be lost.
-
- This is useful when you have started work on a feature branch but
- realize it’s all crap and want to start over.
-
- When resetting to another branch and a prefix argument is used,
- then the target branch is set as the upstream of the branch that is
- being reset.
-
-‘b k’ (‘magit-branch-delete’)
-
- Delete one or multiple branches. If the region marks multiple
- branches, then offer to delete those. Otherwise, prompt for a
- single branch to be deleted, defaulting to the branch at point.
-
-‘b r’ (‘magit-branch-rename’)
-
- Rename a branch. The branch and the new name are read in the
- minibuffer. With prefix argument the branch is renamed even if
- that name conflicts with an existing branch.
-
- -- User Option: magit-branch-read-upstream-first
-
- When creating a branch, whether to read the upstream branch before
- the name of the branch that is to be created. The default is
- ‘nil’, and I recommend you leave it at that.
-
- -- User Option: magit-branch-prefer-remote-upstream
-
- This option specifies whether remote upstreams are favored over
- local upstreams when creating new branches.
-
- When a new branch is created, then the branch, commit, or stash at
- point is suggested as the starting point of the new branch, or if
- there is no such revision at point the current branch. In either
- case the user may choose another starting point.
-
- If the chosen starting point is a branch, then it may also be set
- as the upstream of the new branch, depending on the value of the
- Git variable ‘branch.autoSetupMerge’. By default this is done for
- remote branches, but not for local branches.
-
- You might prefer to always use some remote branch as upstream. If
- the chosen starting point is (1) a local branch, (2) whose name
- matches a member of the value of this option, (3) the upstream of
- that local branch is a remote branch with the same name, and (4)
- that remote branch can be fast-forwarded to the local branch, then
- the chosen branch is used as starting point, but its own upstream
- is used as the upstream of the new branch.
-
- Members of this option’s value are treated as branch names that
- have to match exactly unless they contain a character that makes
- them invalid as a branch name. Recommended characters to use to
- trigger interpretation as a regexp are "*" and "^". Some other
- characters which you might expect to be invalid, actually are not,
- e.g. ".+$" are all perfectly valid. More precisely, if ‘git
- check-ref-format –branch STRING’ exits with a non-zero status, then
- treat STRING as a regexp.
-
- Assuming the chosen branch matches these conditions you would end
- up with with e.g.:
-
- feature --upstream--> origin/master
-
- instead of
-
- feature --upstream--> master --upstream--> origin/master
-
- Which you prefer is a matter of personal preference. If you do
- prefer the former, then you should add branches such as ‘master’,
- ‘next’, and ‘maint’ to the value of this options.
-
- -- User Option: magit-branch-adjust-remote-upstream-alist
-
- The value of this option is an alist of branches to be used as the
- upstream when branching a remote branch.
-
- When creating a local branch from an ephemeral branch located on a
- remote, e.g. a feature or hotfix branch, then that remote branch
- should usually not be used as the upstream branch, since the
- push-remote already allows accessing it and having both the
- upstream and the push-remote reference the same related branch
- would be wasteful. Instead a branch like "maint" or "master"
- should be used as the upstream.
-
- This option allows specifying the branch that should be used as the
- upstream when branching certain remote branches. The value is an
- alist of the form ‘((UPSTREAM . RULE)...)’. The first matching
- element is used, the following elements are ignored.
-
- UPSTREAM is the branch to be used as the upstream for branches
- specified by RULE. It can be a local or a remote branch.
-
- RULE can either be a regular expression, matching branches whose
- upstream should be the one specified by UPSTREAM. Or it can be a
- list of the only branches that should *not* use UPSTREAM; all other
- branches will. Matching is done after stripping the remote part of
- the name of the branch that is being branched from.
-
- If you use a finite set of non-ephemeral branches across all your
- repositories, then you might use something like:
-
- (("origin/master" "master" "next" "maint"))
-
- Or if the names of all your ephemeral branches contain a slash, at
- least in some repositories, then a good value could be:
-
- (("origin/master" . "/"))
-
- Of course you can also fine-tune:
-
- (("origin/maint" . "\\`hotfix/")
- ("origin/master" . "\\`feature/"))
-
- -- Command: magit-branch-orphan
-
- This command creates and checks out a new orphan branch with
- contents from a given revision.
-
- -- Command: magit-branch-or-checkout
-
- This command is a hybrid between ‘magit-checkout’ and
- ‘magit-branch-and-checkout’ and is intended as a replacement for
- the former in ‘magit-branch-popup’.
-
- It first asks the user for an existing branch or revision. If the
- user input actually can be resolved as a branch or revision, then
- it checks that out, just like ‘magit-checkout’ would.
-
- Otherwise it creates and checks out a new branch using the input as
- its name. Before doing so it reads the starting-point for the new
- branch. This is similar to what ‘magit-branch-and-checkout’ does.
-
- To use this command instead of ‘magit-checkout’ add this to your
- init file:
-
- (magit-remove-popup-key 'magit-branch-popup :action ?b)
- (magit-define-popup-action 'magit-branch-popup
- ?b "Checkout" 'magit-branch-or-checkout
- 'magit-branch t)
-
-
-File: magit.info, Node: The Branch Config Popup, Next: Auxiliary Branch Commands, Prev: The Branch Popup, Up: Branching
-
-6.5.3 The Branch Config Popup
------------------------------
-
- -- Command: magit-branch-config-popup
-
- This prefix command shows the following branch-related Git
- variables in a popup buffer. The values can be changed from that
- buffer.
-
- This popup is a sub-popup of several popups that deal with
- branches, including ‘magit-branch-popup’, ‘magit-pull-popup’,
- ‘magit-fetch-popup’, ‘magit-pull-and-fetch-popup’, and
- ‘magit-push-popup’. In all of these popups "C" is bound to this
- popup.
-
- The following variables are used to configure a specific branch. The
-values are being displayed for the current branch (if any). To change
-the value for another branch invoke ‘magit-branch-config-popup’ with a
-prefix argument.
-
- -- Variable: branch.NAME.merge
-
- Together with ‘branch.NAME.remote’ this variable defines the
- upstream branch of the local branch named NAME. The value of this
- variable is the full reference of the upstream _branch_.
-
- -- Variable: branch.NAME.remote
-
- Together with ‘branch.NAME.merge’ this variable defines the
- upstream branch of the local branch named NAME. The value of this
- variable is the name of the upstream _remote_.
-
- -- Variable: branch.NAME.rebase
-
- This variable controls whether pulling into the branch named NAME
- is done by rebasing or by merging the fetched branch.
-
- • When ‘true’ then pulling is done by rebasing.
-
- • When ‘false’ then pulling is done by merging.
-
- • When undefined then the value of ‘pull.rebase’ is used. The
- default of that variable is ‘false’.
-
- -- Variable: branch.NAME.pushRemote
-
- This variable specifies the remote that the branch named NAME is
- usually pushed to. The value has to be the name of an existing
- remote.
-
- It is not possible to specify the name of _branch_ to push the
- local branch to. The name of the remote branch is always the same
- as the name of the local branch.
-
- If this variable is undefined but ‘remote.pushDefault’ is defined,
- then the value of the latter is used. By default
- ‘remote.pushDefault’ is undefined.
-
- -- Variable: branch.NAME.description
-
- This variable can be used to describe the branch named NAME. That
- description is used e.g. when turning the branch into a series of
- patches.
-
- The following variables specify defaults which are used if the above
-branch-specific variables are not set.
-
- -- Variable: pull.rebase
-
- This variable specifies whether pulling is done by rebasing or by
- merging. It can be overwritten using ‘branch.NAME.rebase’.
-
- • When ‘true’ then pulling is done by rebasing.
-
- • When ‘false’ (the default) then pulling is done by merging.
-
- Since it is never a good idea to merge the upstream branch into a
- feature or hotfix branch and most branches are such branches, you
- should consider setting this to ‘true’, and ‘branch.master.rebase’
- to ‘false’.
-
- -- Variable: remote.pushDefault
-
- This variable specifies what remote the local branches are usually
- pushed to. This can be overwritten per branch using
- ‘branch.NAME.pushRemote’.
-
- The following variables are used during the creation of a branch and
-control whether the various branch-specific variables are automatically
-set at this time.
-
- -- Variable: branch.autoSetupMerge
-
- This variable specifies under what circumstances creating a branch
- NAME should result in the variables ‘branch.NAME.merge’ and
- ‘branch.NAME.remote’ being set according to the starting point used
- to create the branch. If the starting point isn’t a branch, then
- these variables are never set.
-
- • When ‘always’ then the variables are set regardless of whether
- the starting point is a local or a remote branch.
-
- • When ‘true’ (the default) then the variables are set when the
- starting point is a remote branch, but not when it is a local
- branch.
-
- • When ‘false’ then the variables are never set.
-
- -- Variable: branch.autoSetupRebase
-
- This variable specifies whether creating a branch NAME should
- result in the variable ‘branch.NAME.rebase’ being set to ‘true’.
-
- • When ‘always’ then the variable is set regardless of whether
- the starting point is a local or a remote branch.
-
- • When ‘local’ then the variable are set when the starting point
- is a local branch, but not when it is a remote branch.
-
- • When ‘remote’ then the variable are set when the starting
- point is a remote branch, but not when it is a local branch.
-
- • When ‘never’ (the default) then the variable is never set.
-
- Note that the respective commands always change the repository-local
-values. If you want to change the global value, which is used when the
-local value is undefined, then you have to do so on the command line,
-e.g.:
-
- git config --global remote.autoSetupMerge always
-
- For more information about these variables you should also see
-
- *note (gitman)git-config::. Also see *note (gitman)git-branch::. ,
-*note (gitman)git-checkout::. and *note Pushing::.
-
- -- User Option: magit-prefer-remote-upstream
-
- This option controls whether commands that read a branch from the
- user and then set it as the upstream branch, offer a local or a
- remote branch as default completion candidate, when they have the
- choice.
-
- This affects all commands that use ‘magit-read-upstream-branch’ or
- ‘magit-read-starting-point’, which includes all commands that
- change the upstream and many which create new branches.
-
-
-File: magit.info, Node: Auxiliary Branch Commands, Prev: The Branch Config Popup, Up: Branching
-
-6.5.4 Auxiliary Branch Commands
--------------------------------
-
-These commands are not available from the branch popup by default.
-
- -- Command: magit-branch-shelve
-
- This command shelves a branch. This is done by deleting the
- branch, and creating a new reference "refs/shelved/BRANCH-NAME"
- pointing at the same commit as the branch pointed at. If the
- deleted branch had a reflog, then that is preserved as the reflog
- of the new reference.
-
- This is useful if you want to move a branch out of sight, but are
- not ready to completely discard it yet.
-
- -- Command: magit-branch-unshelve
-
- This command unshelves a branch that was previously shelved using
- ‘magit-branch-shelve’. This is done by deleting the reference
- "refs/shelved/BRANCH-NAME" and creating a branch "BRANCH-NAME"
- pointing at the same commit as the deleted reference pointed at.
- If the deleted reference had a reflog, then that is restored as the
- reflog of the branch.
-
-
-File: magit.info, Node: Merging, Next: Resolving Conflicts, Prev: Branching, Up: Manipulating
-
-6.6 Merging
-===========
-
-Also see *note (gitman)git-merge::. For information on how to resolve
-merge conflicts see the next section.
-
-‘m’ (‘magit-merge-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
- When no merge is in progress, then the popup buffer features the
-following commands.
-
-‘m m’ (‘magit-merge-plain’)
-
- This command merges another branch or an arbitrary revision into
- the current branch. The branch or revision to be merged is read in
- the minibuffer and defaults to the branch at point.
-
- Unless there are conflicts or a prefix argument is used, then the
- resulting merge commit uses a generic commit message, and the user
- does not get a chance to inspect or change it before the commit is
- created. With a prefix argument this does not actually create the
- merge commit, which makes it possible to inspect how conflicts were
- resolved and to adjust the commit message.
-
-‘m e’ (‘magit-merge-editmsg’)
-
- This command merges another branch or an arbitrary revision into
- the current branch and opens a commit message buffer, so that the
- user can make adjustments. The commit is not actually created
- until the user finishes with ‘C-c C-c’.
-
-‘m n’ (‘magit-merge-nocommit’)
-
- This command merges another branch or an arbitrary revision into
- the current branch, but does not actually create the merge commit.
- The user can then further adjust the merge, even when automatic
- conflict resolution succeeded and/or adjust the commit message.
-
-‘m a’ (‘magit-merge-absorb’)
-
- This command merges another local branch into the current branch
- and then removes the former.
-
- Before the source branch is merged, it is first force pushed to its
- push-remote, provided the respective remote branch already exists.
- This ensures that the respective pull-request (if any) won’t get
- stuck on some obsolete version of the commits that are being
- merged. Finally, if ‘magit-branch-pull-request’ was used to create
- the merged branch, then the respective remote branch is also
- removed.
-
-‘m i’ (‘magit-merge-into’)
-
- This command merges the current branch into another local branch
- and then removes the former. The latter becomes the new current
- branch.
-
- Before the source branch is merged, it is first force pushed to its
- push-remote, provided the respective remote branch already exists.
- This ensures that the respective pull-request (if any) won’t get
- stuck on some obsolete version of the commits that are being
- merged. Finally, if ‘magit-branch-pull-request’ was used to create
- the merged branch, then the respective remote branch is also
- removed.
-
-‘m s’ (‘magit-merge-squash’)
-
- This command squashes the changes introduced by another branch or
- an arbitrary revision into the current branch. This only applies
- the changes made by the squashed commits. No information is
- preserved that would allow creating an actual merge commit.
- Instead of this command you should probably use a command from the
- apply popup.
-
-‘m p’ (‘magit-merge-preview’)
-
- This command shows a preview of merging another branch or an
- arbitrary revision into the current branch.
-
- When a merge is in progress, then the popup buffer features these
-commands instead.
-
-‘m m’ (‘magit-merge’)
-
- After the user resolved conflicts, this command proceeds with the
- merge. If some conflicts weren’t resolved, then this command
- fails.
-
-‘m a’ (‘magit-merge-abort’)
-
- This command aborts the current merge operation.
-
-
-File: magit.info, Node: Resolving Conflicts, Next: Rebasing, Prev: Merging, Up: Manipulating
-
-6.7 Resolving Conflicts
-=======================
-
-When merging branches (or otherwise combining or changing history)
-conflicts can occur. If you edited two completely different parts of
-the same file in two branches and then merge one of these branches into
-the other, then Git can resolve that on its own, but if you edit the
-same area of a file, then a human is required to decide how the two
-versions, or "sides of the conflict", are to be combined into one.
-
- Here we can only provide a brief introduction to the subject and
-point you toward some tools that can help. If you are new to this, then
-please also consult Git’s own documentation as well as other resources.
-
- If a file has conflicts and Git cannot resolve them by itself, then
-it puts both versions into the affected file along with special markers
-whose purpose is to denote the boundaries of the unresolved part of the
-file and between the different versions. These boundary lines begin
-with the strings consisting of six times the same character, one of ‘<’,
-‘|’, ‘=’ and ‘>’ and are followed by information about the source of the
-respective versions, e.g.:
-
- <<<<<<< HEAD
- Take the blue pill.
- =======
- Take the red pill.
- >>>>>>> feature
-
- In this case you have chosen to take the red pill on one branch and
-on another you picked the blue pill. Now that you are merging these two
-diverging branches, Git cannot possibly know which pill you want to
-take.
-
- To resolve that conflict you have to create a version of the affected
-area of the file by keeping only one of the sides, possibly by editing
-it in order to bring in the changes from the other side, remove the
-other versions as well as the markers, and then stage the result. A
-possible resolution might be:
-
- Take both pills.
-
- Often it is useful to see not only the two sides of the conflict but
-also the "original" version from before the same area of the file was
-modified twice on different branches. Instruct Git to insert that
-version as well by running this command once:
-
- git config --global merge.conflictStyle diff3
-
- The above conflict might then have looked like this:
-
- <<<<<<< HEAD
- Take the blue pill.
- ||||||| merged common ancestors
- Take either the blue or the red pill, but not both.
- =======
- Take the red pill.
- >>>>>>> feature
-
- If that were the case, then the above conflict resolution would not
-have been correct, which demonstrates why seeing the original version
-alongside the conflicting versions can be useful.
-
- You can perform the conflict resolution completely by hand, but Emacs
-also provides some packages that help in the process: Smerge, Ediff
-(*note (ediff)Top::), and Emerge (*note (emacs)Emerge::). Magit does
-not provide its own tools for conflict resolution, but it does make
-using Smerge and Ediff more convenient. (Ediff supersedes Emerge, so
-you probably don’t want to use the latter anyway.)
-
- In the Magit status buffer, files with unresolved conflicts are
-listed in the "Unstaged changes" and/or "Staged changes" sections. They
-are prefixed with the word "unmerged", which in this context essentially
-is a synonym for "unresolved".
-
- Pressing ‘RET’ while point is on such a file section shows a buffer
-visiting that file, turns on ‘smerge-mode’ in that buffer, and places
-point inside the first area with conflicts. You should then resolve
-that conflict using regular edit commands and/or Smerge commands.
-
- Unfortunately Smerge does not have a manual, but you can get a list
-of commands and binding ‘C-c ^ C-h’ and press ‘RET’ while point is on a
-command name to read its documentation.
-
- Normally you would edit one version and then tell Smerge to keep only
-that version. Use ‘C-c ^ m’ (‘smerge-keep-mine’) to keep the ‘HEAD’
-version or ‘C-c ^ o’ (‘smerge-keep-other’) to keep the version that
-follows "|||||||". Then use ‘C-c ^ n’ to move to the next conflicting
-area in the same file. Once you are done resolving conflicts, return to
-the Magit status buffer. The file should now be shown as "modified", no
-longer as "unmerged", because Smerge automatically stages the file when
-you save the buffer after resolving the last conflict.
-
- Alternatively you could use Ediff, which uses separate buffers for
-the different versions of the file. To resolve conflicts in a file
-using Ediff press ‘e’ while point is on such a file in the status
-buffer.
-
- Ediff can be used for other purposes as well. For more information
-on how to enter Ediff from Magit, see *note Ediffing::. Explaining how
-to use Ediff is beyond the scope of this manual, instead see *note
-(ediff)Top::.
-
- If you are unsure whether you should Smerge or Ediff, then use the
-former. It is much easier to understand and use, and except for truly
-complex conflicts, the latter is usually overkill.
-
-
-File: magit.info, Node: Rebasing, Next: Cherry Picking, Prev: Resolving Conflicts, Up: Manipulating
-
-6.8 Rebasing
-============
-
-Also see *note (gitman)git-rebase::. For information on how to resolve
-conflicts that occur during rebases see the preceding section.
-
-‘r’ (‘magit-rebase-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
- When no rebase is in progress, then the popup buffer features the
-following commands.
-
- Using one of these commands _starts_ a rebase sequence. Git might
-then stop somewhere along the way, either because you told it to do so,
-or because applying a commit failed due to a conflict. When that
-happens, then the status buffer shows information about the rebase
-sequence which is in progress in a section similar to a log section.
-See *note Information About In-Progress Rebase::.
-
-‘r p’ (‘magit-rebase-onto-pushremote’)
-
- Rebase the current branch onto ‘branch.<name>.pushRemote’. If that
- variable is unset, then rebase onto ‘remote.pushDefault’.
-
-‘r u’ (‘magit-rebase-onto-upstream’)
-
- Rebase the current branch onto its upstream branch.
-
-‘r e’ (‘magit-rebase-branch’)
-
- Rebase the current branch onto a branch read in the minibuffer.
- All commits that are reachable from head but not from the selected
- branch TARGET are being rebased."
-
-‘r s’ (‘magit-rebase-subset’)
-
- Start a non-interactive rebase sequence with commits from START to
- ‘HEAD’ onto NEWBASE. START has to be selected from a list of
- recent commits.
-
- By default Magit uses the ‘--autostash’ argument, which causes
-uncommitted changes to be stored in a stash before the rebase begins.
-These changes are restored after the rebase completes and if possible
-the stash is removed. If the stash does not apply cleanly, then the
-stash is not removed. In case something goes wrong when resolving the
-conflicts, this allows you to start over.
-
- Even though one of the actions is dedicated to interactive rebases,
-the popup also features the infix argument ‘--interactive’. This can be
-used to turn one of the other, non-interactive rebase variants into an
-interactive rebase.
-
- For example if you want to clean up a feature branch and at the same
-time rebase it onto ‘master’, then you could use ‘r-iu’. But we
-recommend that you instead do that in two steps. First use ‘ri’ to
-cleanup the feature branch, and then in a second step ‘ru’ to rebase it
-onto ‘master’. That way if things turn out to be more complicated than
-you thought and/or you make a mistake and have to start over, then you
-only have to redo half the work.
-
- Explicitly enabling ‘--interactive’ won’t have an effect on the
-following commands as they always use that argument anyway, even if it
-is not enabled in the popup.
-
-‘r i’ (‘magit-rebase-interactive’)
-
- Start an interactive rebase sequence.
-
-‘r f’ (‘magit-rebase-autosquash’)
-
- Combine squash and fixup commits with their intended targets.
-
-‘r m’ (‘magit-rebase-edit-commit’)
-
- Edit a single older commit using rebase.
-
-‘r w’ (‘magit-rebase-reword-commit’)
-
- Reword a single older commit using rebase.
-
-‘r k’ (‘magit-rebase-remove-commit’)
-
- Remove a single older commit using rebase.
-
- When a rebase is in progress, then the popup buffer features these
-commands instead.
-
-‘r r’ (‘magit-rebase-continue’)
-
- Restart the current rebasing operation.
-
- In some cases this pops up a commit message buffer for you do edit.
- With a prefix argument the old message is reused as-is.
-
-‘r s’ (‘magit-rebase-skip’)
-
- Skip the current commit and restart the current rebase operation.
-
-‘r e’ (‘magit-rebase-edit’)
-
- Edit the todo list of the current rebase operation.
-
-‘r a’ (‘magit-rebase-abort’)
-
- Abort the current rebase operation, restoring the original branch.
-
-* Menu:
-
-* Editing Rebase Sequences::
-* Information About In-Progress Rebase::
-
-
-File: magit.info, Node: Editing Rebase Sequences, Next: Information About In-Progress Rebase, Up: Rebasing
-
-6.8.1 Editing Rebase Sequences
-------------------------------
-
-‘C-c C-c’ (‘with-editor-finish’)
-
- Finish the current editing session by returning with exit code 0.
- Git then uses the rebase instructions it finds in the file.
-
-‘C-c C-k’ (‘with-editor-cancel’)
-
- Cancel the current editing session by returning with exit code 1.
- Git then forgoes starting the rebase sequence.
-
-‘RET’ (‘git-rebase-show-commit’)
-
- Show the commit on the current line in another buffer and select
- that buffer.
-
-‘SPC’ (‘git-rebase-show-or-scroll-up’)
-
- Show the commit on the current line in another buffer without
- selecting that buffer. If the revision buffer is already visible
- in another window of the current frame, then instead scroll that
- window up.
-
-‘DEL’ (‘git-rebase-show-or-scroll-down’)
-
- Show the commit on the current line in another buffer without
- selecting that buffer. If the revision buffer is already visible
- in another window of the current frame, then instead scroll that
- window down.
-
-‘p’ (‘git-rebase-backward-line’)
-
- Move to previous line.
-
-‘n’ (‘forward-line’)
-
- Move to next line.
-
-‘M-p’ (‘git-rebase-move-line-up’)
-
- Move the current commit (or command) up.
-
-‘M-n’ (‘git-rebase-move-line-down’)
-
- Move the current commit (or command) down.
-
-‘r’ (‘git-rebase-reword’)
-
- Edit message of commit on current line.
-
-‘e’ (‘git-rebase-edit’)
-
- Stop at the commit on the current line.
-
-‘s’ (‘git-rebase-squash’)
-
- Meld commit on current line into previous commit, and edit message.
-
-‘f’ (‘git-rebase-fixup’)
-
- Meld commit on current line into previous commit, discarding the
- current commit’s message.
-
-‘k’ (‘git-rebase-kill-line’)
-
- Kill the current action line.
-
-‘c’ (‘git-rebase-pick’)
-
- Use commit on current line.
-
-‘x’ (‘git-rebase-exec’)
-
- Insert a shell command to be run after the proceeding commit.
-
- If there already is such a command on the current line, then edit
- that instead. With a prefix argument insert a new command even
- when there already is one on the current line. With empty input
- remove the command on the current line, if any.
-
-‘y’ (‘git-rebase-insert’)
-
- Read an arbitrary commit and insert it below current line.
-
-‘C-x u’ (‘git-rebase-undo’)
-
- Undo some previous changes. Like ‘undo’ but works in read-only
- buffers.
-
- -- User Option: git-rebase-auto-advance
-
- Whether to move to next line after changing a line.
-
- -- User Option: git-rebase-show-instructions
-
- Whether to show usage instructions inside the rebase buffer.
-
- -- User Option: git-rebase-confirm-cancel
-
- Whether confirmation is required to cancel.
-
-
-File: magit.info, Node: Information About In-Progress Rebase, Prev: Editing Rebase Sequences, Up: Rebasing
-
-6.8.2 Information About In-Progress Rebase
-------------------------------------------
-
-While a rebase sequence is in progress, the status buffer features a
-section that lists the commits that have already been applied as well as
-the commits that still have to be applied.
-
- The commits are split in two halves. When rebase stops at a commit,
-either because the user has to deal with a conflict or because s/he
-explicitly requested that rebase stops at that commit, then point is
-placed on the commit that separates the two groups, i.e. on ‘HEAD’.
-The commits above it have not been applied yet, while the ‘HEAD’ and the
-commits below it have already been applied. In between these two groups
-of applied and yet-to-be applied commits, there sometimes is a commit
-which has been dropped.
-
- Each commit is prefixed with a word and these words are additionally
-shown in different colors to indicate the status of the commits.
-
- The following colors are used:
-
- • Yellow commits have not been applied yet.
-
- • Gray commits have already been applied.
-
- • The blue commit is the ‘HEAD’ commit.
-
- • The green commit is the commit the rebase sequence stopped at. If
- this is the same commit as ‘HEAD’ (e.g. because you haven’t done
- anything yet after rebase stopped at the commit, then this commit
- is shown in blue, not green). There can only be a green *and* a
- blue commit at the same time, if you create one or more new commits
- after rebase stops at a commit.
-
- • Red commits have been dropped. They are shown for reference only,
- e.g. to make it easier to diff.
-
- Of course these colors are subject to the color-theme in use.
-
- The following words are used:
-
- • Commits prefixed with ‘pick’, ‘reword’, ‘edit’, ‘squash’, and
- ‘fixup’ have not been applied yet. These words have the same
- meaning here as they do in the buffer used to edit the rebase
- sequence. See *note Editing Rebase Sequences::.
-
- • Commits prefixed with ‘done’ and ‘onto’ have already been applied.
- It is possible for such a commit to be the ‘HEAD’, in which case it
- is blue. Otherwise it is grey.
-
- • The commit prefixed with ‘onto’ is the commit on top of which
- all the other commits are being re-applied. This commit
- itself did not have to be re-applied, it is the commit rebase
- did rewind to before starting to re-apply other commits.
-
- • Commits prefixed with ‘done’ have already been re-applied.
- This includes commits that have been re-applied but also new
- commits that you have created during the rebase.
-
- • All other commits, those not prefixed with any of the above words,
- are in some way related to the commit at which rebase stopped.
-
- To determine whether a commit is related to the stopped-at commit
- their hashes, trees and patch-ids (1) are being compared. The
- commit message is not used for this purpose.
-
- Generally speaking commits that are related to the stopped-at
- commit can have any of the used colors, though not all color/word
- combinations are possible.
-
- Words used for stopped-at commits are:
-
- • When a commit is prefixed with ‘void’, then that indicates
- that Magit knows for sure that all the changes in that commit
- have been applied using several new commits. This commit is
- no longer reachable from ‘HEAD’, and it also isn’t one of the
- commits that will be applied when resuming the session.
-
- • When a commit is prefixed with ‘join’, then that indicates
- that the rebase sequence stopped at that commit due to a
- conflict - you now have to join (merge) the changes with what
- has already been applied. In a sense this is the commit
- rebase stopped at, but while its effect is already in the
- index and in the worktree (with conflict markers), the commit
- itself has not actually been applied yet (it isn’t the
- ‘HEAD’). So it is shown in yellow, like the other commits
- that still have to be applied.
-
- • When a commit is prefixed with ‘stop’ or a _blue_ or _green_
- ‘same’, then that indicates that rebase stopped at this
- commit, that it is still applied or has been applied again,
- and that at least its patch-id is unchanged.
-
- • When a commit is prefixed with ‘stop’, then that
- indicates that rebase stopped at that commit because you
- requested that earlier, and its patch-id is unchanged.
- It might even still be the exact same commit.
-
- • When a commit is prefixed with a _blue_ or _green_
- ‘same’, then that indicates that while its tree or hash
- changed, its patch-id did not. If it is blue, then it is
- the ‘HEAD’ commit (as always for blue). When it is
- green, then it no longer is ‘HEAD’ because other commit
- have been created since (but before continuing the
- rebase).
-
- • When a commit is prefixed with ‘goal’, a _yellow_ ‘same,’ or
- ‘work’, then that indicates that rebase applied that commit
- but that you then reset ‘HEAD’ to an earlier commit (likely to
- split it up into multiple commits), and that there are some
- uncommitted changes remaining which likely (but not
- necessarily) originate from that commit.
-
- • When a commit is prefixed with ‘goal’, then that
- indicates that it is still possible to create a new
- commit with the exact same tree (the "goal") without
- manually editing any files, by committing the index, or
- by staging all changes and then committing that. This is
- the case when the original tree still exists in the index
- or worktree in untainted form.
-
- • When a commit is prefixed with a yellow ‘same’, then that
- indicates that it is no longer possible to create a
- commit with the exact same tree, but that it is still
- possible to create a commit with the same patch-id. This
- would be the case if you created a new commit with other
- changes, but the changes from the original commit still
- exist in the index or working tree in untainted form.
-
- • When a commit is prefixed with ‘work’, then that
- indicates that you reset ‘HEAD’ to an earlier commit, and
- that there are some staged and/or unstaged changes
- (likely, but not necessarily) originating from that
- commit. However it is no longer possible to create a new
- commit with the same tree or at least the same patch-id
- because you have already made other changes.
-
- • When a commit is prefixed with ‘poof’ or ‘gone’, then that
- indicates that rebase applied that commit but that you then
- reset ‘HEAD’ to an earlier commit (likely to split it up into
- multiple commits), and that there are no uncommitted changes.
-
- • When a commit is prefixed with ‘poof’, then that
- indicates that it is no longer reachable from ‘HEAD’, but
- that it has been replaced with one or more commits, which
- together have the exact same effect.
-
- • When a commit is prefixed with ‘gone’, then that
- indicates that it is no longer reachable from ‘HEAD’ and
- that we also cannot determine whether its changes are
- still in effect in one or more new commits. They might
- be, but if so, then there must also be other changes
- which makes it impossible to know for sure.
-
- Do not worry if you do not fully understand the above. That’s okay,
-you will acquire a good enough understanding through practice.
-
- For other sequence operations such as cherry-picking, a similar
-section is displayed, but they lack some of the features described
-above, due to limitations in the git commands used to implement them.
-Most importantly these sequences only support "picking" a commit but not
-other actions such as "rewording", and they do not keep track of the
-commits which have already been applied.
-
- ---------- Footnotes ----------
-
- (1) The patch-id is a hash of the _changes_ introduced by a commit.
-It differs from the hash of the commit itself, which is a hash of the
-result of applying that change (i.e. the resulting trees and blobs) as
-well as author and committer information, the commit message, and the
-hashes of the parents of the commit. The patch-id hash on the other
-hand is created only from the added and removed lines, even line numbers
-and whitespace changes are ignored when calculating this hash. The
-patch-ids of two commits can be used to answer the question "Do these
-commits make the same change?".
-
-
-File: magit.info, Node: Cherry Picking, Next: Resetting, Prev: Rebasing, Up: Manipulating
-
-6.9 Cherry Picking
-==================
-
-Also see *note (gitman)git-cherry-pick::.
-
-‘A’ (‘magit-cherry-pick-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
- When no cherry-pick or revert is in progress, then the popup buffer
-features the following commands.
-
-‘A A’ (‘magit-cherry-copy’)
-
- This command copies COMMITS from another branch onto the current
- branch. If the region selects multiple commits, then those are
- copied, without prompting. Otherwise the user is prompted for a
- commit or range, defaulting to the commit at point.
-
-‘A a’ (‘magit-cherry-apply’)
-
- This command applies the changes in COMMITS from another branch
- onto the current branch. If the region selects multiple commits,
- then those are used, without prompting. Otherwise the user is
- prompted for a commit or range, defaulting to the commit at point.
-
- This command also has a top-level binding, which can be invoked
- without using the popup by typing ‘a’ at the top-level.
-
- The following commands not only apply some commits to some branch,
-but also remove them from some other branch. The removal is performed
-using either ‘git-update-ref’ or if necessary ‘git-rebase’. Both
-applying commits as well as removing them using ‘git-rebase’ can lead to
-conflicts. If that happens, then these commands abort and you not only
-have to resolve the conflicts but also finish the process the same way
-you would have to if these commands didn’t exist at all.
-
-‘A h’ (‘magit-cherry-harvest’)
-
- This command moves the selected COMMITS that must be located on
- another BRANCH onto the current branch instead, removing them from
- the former. When this command succeeds, then the same branch is
- current as before.
-
- Applying the commits on the current branch or removing them from
- the other branch can lead to conflicts. When that happens, then
- this command stops and you have to resolve the conflicts and then
- finish the process manually.
-
-‘A d’ (‘magit-cherry-donate’)
-
- This command moves the selected COMMITS from the current branch
- onto another existing BRANCH, removing them from the former. When
- this command succeeds, then the same branch is current as before.
-
- Applying the commits on the other branch or removing them from the
- current branch can lead to conflicts. When that happens, then this
- command stops and you have to resolve the conflicts and then finish
- the process manually.
-
-‘A n’ (‘magit-cherry-spinout’)
-
- This command moves the selected COMMITS from the current branch
- onto a new branch BRANCH, removing them from the former. When this
- command succeeds, then the same branch is current as before.
-
- Applying the commits on the other branch or removing them from the
- current branch can lead to conflicts. When that happens, then this
- command stops and you have to resolve the conflicts and then finish
- the process manually.
-
-‘A s’ (‘magit-cherry-spinoff’)
-
- This command moves the selected COMMITS from the current branch
- onto a new branch BRANCH, removing them from the former. When this
- command succeeds, then the new branch is checked out.
-
- Applying the commits on the other branch or removing them from the
- current branch can lead to conflicts. When that happens, then this
- command stops and you have to resolve the conflicts and then finish
- the process manually.
-
- When a cherry-pick or revert is in progress, then the popup buffer
-features these commands instead.
-
-‘A A’ (‘magit-sequence-continue’)
-
- Resume the current cherry-pick or revert sequence.
-
-‘A s’ (‘magit-sequence-skip’)
-
- Skip the stopped at commit during a cherry-pick or revert sequence.
-
-‘A a’ (‘magit-sequence-abort’)
-
- Abort the current cherry-pick or revert sequence. This discards
- all changes made since the sequence started.
-
-* Menu:
-
-* Reverting::
-
-
-File: magit.info, Node: Reverting, Up: Cherry Picking
-
-6.9.1 Reverting
----------------
-
-‘V’ (‘magit-revert-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
- When no cherry-pick or revert is in progress, then the popup buffer
-features the following commands.
-
-‘V V’ (‘magit-revert-and-commit’)
-
- Revert a commit by creating a new commit. Prompt for a commit,
- defaulting to the commit at point. If the region selects multiple
- commits, then revert all of them, without prompting.
-
-‘V v’ (‘magit-revert-no-commit’)
-
- Revert a commit by applying it in reverse to the working tree.
- Prompt for a commit, defaulting to the commit at point. If the
- region selects multiple commits, then revert all of them, without
- prompting.
-
- When a cherry-pick or revert is in progress, then the popup buffer
-features these commands instead.
-
-‘V A’ (‘magit-sequence-continue’)
-
- Resume the current cherry-pick or revert sequence.
-
-‘V s’ (‘magit-sequence-skip’)
-
- Skip the stopped at commit during a cherry-pick or revert sequence.
-
-‘V a’ (‘magit-sequence-abort’)
-
- Abort the current cherry-pick or revert sequence. This discards
- all changes made since the sequence started.
-
-
-File: magit.info, Node: Resetting, Next: Stashing, Prev: Cherry Picking, Up: Manipulating
-
-6.10 Resetting
-==============
-
-Also see *note (gitman)git-reset::.
-
-‘x’ (‘magit-reset-quickly’)
-
- Reset the ‘HEAD’ and index to some commit read from the user and
- defaulting to the commit at point, and possibly also reset the
- working tree. With a prefix argument reset the working tree
- otherwise don’t.
-
-‘X m’ (‘magit-reset-mixed’)
-
- Reset the ‘HEAD’ and index to some commit read from the user and
- defaulting to the commit at point. The working tree is kept as-is.
-
-‘X s’ (‘magit-reset-soft’)
-
- Reset the ‘HEAD’ to some commit read from the user and defaulting
- to the commit at point. The index and the working tree are kept
- as-is.
-
-‘X h’ (‘magit-reset-hard’)
-
- Reset the ‘HEAD’, index, and working tree to some commit read from
- the user and defaulting to the commit at point.
-
-‘X i’ (‘magit-reset-index’)
-
- Reset the index to some commit read from the user and defaulting to
- the commit at point. Keep the ‘HEAD’ and working tree as-is, so if
- the commit refers to the ‘HEAD’, then this effectively unstages all
- changes.
-
-‘X w’ (‘magit-reset-worktree’)
-
- Reset the working tree to some commit read from the user and
- defaulting to the commit at point. Keep the ‘HEAD’ and index
- as-is.
-
-‘X f’ (‘magit-file-checkout’)
-
- Update file in the working tree and index to the contents from a
- revision. Both the revision and file are read from the user.
-
-
-File: magit.info, Node: Stashing, Prev: Resetting, Up: Manipulating
-
-6.11 Stashing
-=============
-
-Also see *note (gitman)git-stash::.
-
-‘z’ (‘magit-stash-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘z z’ (‘magit-stash-both’)
-
- Create a stash of the index and working tree. Untracked files are
- included according to popup arguments. One prefix argument is
- equivalent to ‘--include-untracked’ while two prefix arguments are
- equivalent to ‘--all’.
-
-‘z i’ (‘magit-stash-index’)
-
- Create a stash of the index only. Unstaged and untracked changes
- are not stashed.
-
-‘z w’ (‘magit-stash-worktree’)
-
- Create a stash of unstaged changes in the working tree. Untracked
- files are included according to popup arguments. One prefix
- argument is equivalent to ‘--include-untracked’ while two prefix
- arguments are equivalent to ‘--all’.
-
-‘z x’ (‘magit-stash-keep-index’)
-
- Create a stash of the index and working tree, keeping index intact.
- Untracked files are included according to popup arguments. One
- prefix argument is equivalent to ‘--include-untracked’ while two
- prefix arguments are equivalent to ‘--all’.
-
-‘z Z’ (‘magit-snapshot-both’)
-
- Create a snapshot of the index and working tree. Untracked files
- are included according to popup arguments. One prefix argument is
- equivalent to ‘--include-untracked’ while two prefix arguments are
- equivalent to ‘--all’.
-
-‘z I’ (‘magit-snapshot-index’)
-
- Create a snapshot of the index only. Unstaged and untracked
- changes are not stashed.
-
-‘z W’ (‘magit-snapshot-worktree’)
-
- Create a snapshot of unstaged changes in the working tree.
- Untracked files are included according to popup arguments. One
- prefix argument is equivalent to ‘--include-untracked’ while two
- prefix arguments are equivalent to ‘--all’-.
-
-‘z a’ (‘magit-stash-apply’)
-
- Apply a stash to the working tree. Try to preserve the stash
- index. If that fails because there are staged changes, apply
- without preserving the stash index.
-
-‘z p’ (‘magit-stash-pop’)
-
- Apply a stash to the working tree and remove it from stash list.
- Try to preserve the stash index. If that fails because there are
- staged changes, apply without preserving the stash index and forgo
- removing the stash.
-
-‘z k’ (‘magit-stash-drop’)
-
- Remove a stash from the stash list. When the region is active,
- offer to drop all contained stashes.
-
-‘z v’ (‘magit-stash-show’)
-
- Show all diffs of a stash in a buffer.
-
-‘z b’ (‘magit-stash-branch’)
-
- Create and checkout a new BRANCH from STASH. The branch starts at
- the commit that was current when the stash was created.
-
-‘z B’ (‘magit-stash-branch-here’)
-
- Create and checkout a new BRANCH using ‘magit-branch’ with the
- current branch or ‘HEAD’ as the starting-point. Then apply STASH,
- dropping it if it applies cleanly.
-
-‘z f’ (‘magit-stash-format-patch’)
-
- Create a patch from STASH.
-
-‘k’ (‘magit-stash-clear’)
-
- Remove all stashes saved in REF’s reflog by deleting REF.
-
-‘z l’ (‘magit-stash-list’)
-
- List all stashes in a buffer.
-
- -- User Option: magit-stashes-margin
-
- This option specifies whether the margin is initially shown in
- stashes buffers and how it is formatted.
-
- The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
- • If INIT is non-nil, then the margin is shown initially.
-
- • STYLE controls how to format the committer date. It can be
- one of ‘age’ (to show the age of the commit),
- ‘age-abbreviated’ (to abbreviate the time unit to a
- character), or a string (suitable for ‘format-time-string’) to
- show the actual date.
-
- • WIDTH controls the width of the margin. This exists for
- forward compatibility and currently the value should not be
- changed.
-
- • AUTHOR controls whether the name of the author is also shown
- by default.
-
- • AUTHOR-WIDTH has to be an integer. When the name of the
- author is shown, then this specifies how much space is used to
- do so.
-
-
-File: magit.info, Node: Transferring, Next: Miscellaneous, Prev: Manipulating, Up: Top
-
-7 Transferring
-**************
-
-* Menu:
-
-* Remotes::
-* Fetching::
-* Pulling::
-* Pushing::
-* Creating and Sending Patches::
-* Applying Patches::
-
-
-File: magit.info, Node: Remotes, Next: Fetching, Up: Transferring
-
-7.1 Remotes
-===========
-
-* Menu:
-
-* The Remote Popup::
-* The Remote Config Popup::
-
-
-File: magit.info, Node: The Remote Popup, Next: The Remote Config Popup, Up: Remotes
-
-7.1.1 The Remote Popup
-----------------------
-
-The popup ‘magit-remote-popup’ is used to add remotes and to make
-changes to existing remotes. This popup only deals with remotes
-themselves, not with branches or the transfer of commits. Those
-features are available from separate popups.
-
- Also see *note (gitman)git-remote::.
-
-‘M’ (‘magit-remote-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
- -- User Option: magit-remote-popup-show-variables
-
- This option controls whether the ‘magit-remote-popup’ shows remote
- related Git variables. When set to nil, no variables are displayed
- directly in this popup, and the sub-popup
- ‘magit-remote-config-popup’ has to be used instead to view and
- change remote related variables.
-
-‘M C’ (‘magit-remote-config-popup’)
-
- This command shows remote related variables in a separate popup.
- By default this asks the user for which remote the variables should
- be shown. When ‘magit-remote-popup-show-variables’ is ‘nil’, then
- it shows the variables for the upstream of the current branch or
- "origin" it that branch has no remote upstream. To select another
- remote use a prefix argument.
-
-‘M a’ (‘magit-remote-add’)
-
- This command add a remote and fetches it. The remote name and url
- are read in the minibuffer.
-
-‘M r’ (‘magit-remote-rename’)
-
- This command renames a remote. Both the old and the new names are
- read in the minibuffer.
-
-‘M u’ (‘magit-remote-set-url’)
-
- This command changes the url of a remote. Both the remote and the
- new url are read in the minibuffer.
-
-‘M k’ (‘magit-remote-remove’)
-
- This command deletes a remote, read in the minibuffer.
-
-‘M p’ (‘magit-remote-prune’)
-
- This command removes stale remote-tracking branches for a remote
- read in the minibuffer.
-
-‘M P’ (‘magit-remote-prune-refspecs’)
-
- This command removes stale refspecs for a remote read in the
- minibuffer.
-
- A refspec is stale if there no longer exists at least one branch on
- the remote that would be fetched due to that refspec. A stale
- refspec is problematic because its existence causes Git to refuse
- to fetch according to the remaining non-stale refspecs.
-
- If only stale refspecs remain, then this command offers to either
- delete the remote or to replace the stale refspecs with the default
- refspec ("+refs/heads/*:refs/remotes/REMOTE/*").
-
- This command also removes the remote-tracking branches that were
- created due to the now stale refspecs. Other stale branches are
- not removed.
-
- -- User Option: magit-remote-add-set-remote.pushDefault
-
- This option controls whether the user is asked whether they want to
- set ‘remote.pushDefault’ after adding a remote.
-
- If ‘ask’, then users is always ask. If ‘ask-if-unset’, then the
- user is only if the variable isn’t set already. If ‘nil’, then the
- user isn’t asked and the variable isn’t set. If the value is a
- string, then the variable is set without the user being asked,
- provided that the name of the added remote is equal to that string
- and the variable isn’t already set.
-
-
-File: magit.info, Node: The Remote Config Popup, Prev: The Remote Popup, Up: Remotes
-
-7.1.2 The Remote Config Popup
------------------------------
-
- -- Command: magit-remote-config-popup
-
- This prefix command shows the following remote-related Git
- variables in a popup buffer. The values can be changed from that
- buffer.
-
- This popup is a sub-popup of the ‘magit-remote-popup’ in which "C"
- is bound to this popup.
-
- The following variables are used to configure a specific remote. The
-values are being displayed for the upstream remote of the current
-branch. To change the value for another remote invoke
-‘magit-remote-config-popup’ with a prefix argument.
-
- -- Variable: remote.NAME.url
-
- This variable specifies the url of the remote named NAME. It can
- have multiple values.
-
- -- Variable: remote.NAME.fetch
-
- The refspec used when fetching from the remote named NAME. It can
- have multiple values.
-
- -- Variable: remote.NAME.pushurl
-
- This variable specifies the url used for fetching from the remote
- named NAME. If it is not specified, then ‘remote.NAME.url’ is used
- instead. It can have multiple values.
-
- -- Variable: remote.NAME.push
-
- The refspec used when pushing to the remote named NAME. It can
- have multiple values.
-
- -- Variable: remote.NAME.tagOpts
-
- This variable specifies what tags are fetched by default. If the
- value is ‘--no-tags’ then no tags are fetched. If the value is
- ‘--tags’, then all tags are fetched. If this variable has not
- value, then only tags are fetched that are reachable from fetched
- branches.
-
-
-File: magit.info, Node: Fetching, Next: Pulling, Prev: Remotes, Up: Transferring
-
-7.2 Fetching
-============
-
-For information about the differences between the _upstream_ and the
-_push-remote_, see *note Branching::.
-
- Also see *note (gitman)git-fetch::.
-
-‘f’ (‘magit-fetch-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘f p’ (‘magit-fetch-from-pushremote’)
-
- Fetch from the push-remote of the current branch.
-
-‘f u’ (‘magit-fetch-from-upstream’)
-
- Fetch from the upstream of the current branch.
-
-‘f e’ (‘magit-fetch-other’)
-
- Fetch from another repository.
-
-‘f o’ (‘magit-fetch-branch’)
-
- Fetch a branch from a remote, both of which are read from the
- minibuffer.
-
-‘f r’ (‘magit-fetch-refspec’)
-
- Fetch from a remote using an explicit refspec, both of which are
- read from the minibuffer.
-
-‘f a’ (‘magit-fetch-all’)
-
- Fetch from all remotes.
-
-‘f m’ (‘magit-submodule-fetch’)
-
- Fetch all submodules. With a prefix argument fetch all remotes of
- all submodules.
-
- Instead of using one popup for fetching and another for pulling, you
-could also use ‘magit-pull-and-fetch-popup’. See its doc-string for
-more information.
-
-
-File: magit.info, Node: Pulling, Next: Pushing, Prev: Fetching, Up: Transferring
-
-7.3 Pulling
-===========
-
-For information about the differences between the _upstream_ and the
-_push-remote_, see *note Branching::.
-
- Also see *note (gitman)git-pull::.
-
-‘F’ (‘magit-pull-popup’)
-
- This prefix command shows the following suffix commands in a popup
- buffer.
-
-‘F p’ (‘magit-pull-from-pushremote’)
-
- Pull from the push-remote of the current branch.
-
-‘F u’ (‘magit-pull-from-upstream’)
-
- Pull from the upstream of the current branch.
-
-‘F e’ (‘magit-pull-branch’)
-
- Pull from a branch read in the minibuffer.
-
- Instead of using one popup for fetching and another for pulling, you
-could also use ‘magit-pull-and-fetch-popup’. See its doc-string for
-more information.
-
-
-File: magit.info, Node: Pushing, Next: Creating and Sending Patches, Prev: Pulling, Up: Transferring
-
-7.4 Pushing
-===========
-
-For information about the differences between the _upstream_ and the
-_push-remote_, see *note Branching::.
-
- Also see *note (gitman)git-push::.
-
-‘P’ (‘magit-push-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘P p’ (‘magit-push-current-to-pushremote’)
-
- Push the current branch to ‘branch.<name>.pushRemote’ or if that is
- unset to ‘remote.pushDefault’.
-
- When ‘magit-push-current-set-remote-if-missing’ is non-nil and the
- push-remote is not configured, then read the push-remote from the
- user, set it, and then push to it. With a prefix argument the
- push-remote can be changed before pushed to it.
-
-‘P u’ (‘magit-push-current-to-upstream’)
-
- Push the current branch to its upstream branch.
-
- When ‘magit-push-current-set-remote-if-missing’ is non-nil and the
- push-remote is not configured, then read the upstream from the
- user, set it, and then push to it. With a prefix argument the
- push-remote can be changed before pushed to it.
-
-‘P e’ (‘magit-push-current’)
-
- Push the current branch to a branch read in the minibuffer.
-
-‘P o’ (‘magit-push-other’)
-
- Push an arbitrary branch or commit somewhere. Both the source and
- the target are read in the minibuffer.
-
-‘P r’ (‘magit-push-refspecs’)
-
- Push one or multiple refspecs to a remote, both of which are read
- in the minibuffer.
-
- To use multiple refspecs, separate them with commas. Completion is
- only available for the part before the colon, or when no colon is
- used.
-
-‘P m’ (‘magit-push-matching’)
-
- Push all matching branches to another repository. If multiple
- remotes exit, then read one from the user. If just one exists, use
- that without requiring confirmation.
-
-‘P t’ (‘magit-push-tags’)
-
- Push all tags to another repository. If only one remote exists,
- then push to that. Otherwise prompt for a remote, offering the
- remote configured for the current branch as default.
-
-‘P T’ (‘magit-push-tag’)
-
- Push a tag to another repository.
-
- Two more push commands exist, which by default are not available from
-the push popup. See their doc-strings for instructions on how to add
-them to the popup.
-
- -- Command: magit-push-implicitly args
-
- Push somewhere without using an explicit refspec.
-
- This command simply runs ‘git push -v [ARGS]’. ARGS are the
- arguments specified in the popup buffer. No explicit refspec
- arguments are used. Instead the behavior depends on at least these
- Git variables: ‘push.default’, ‘remote.pushDefault’,
- ‘branch.<branch>.pushRemote’, ‘branch.<branch>.remote’,
- ‘branch.<branch>.merge’, and ‘remote.<remote>.push’.
-
- -- Command: magit-push-to-remote remote args
-
- Push to the remote REMOTE without using an explicit refspec. The
- remote is read in the minibuffer.
-
- This command simply runs ‘git push -v [ARGS] REMOTE’. ARGS are the
- arguments specified in the popup buffer. No refspec arguments are
- used. Instead the behavior depends on at least these Git
- variables: ‘push.default’, ‘remote.pushDefault’,
- ‘branch.<branch>.pushRemote’, ‘branch.<branch>.remote’,
- ‘branch.<branch>.merge’, and ‘remote.<remote>.push’.
-
- -- User Option: magit-push-current-set-remote-if-missing
-
- This option controls whether missing remotes are configured before
- pushing.
-
- When ‘nil’, then the command ‘magit-push-current-to-pushremote’ and
- ‘magit-push-current-to-upstream’ do not appear in the push popup if
- the push-remote resp. upstream is not configured. If the user
- invokes one of these commands anyway, then it raises an error.
-
- When ‘non-nil’, then these commands always appear in the push
- popup. But if the required configuration is missing, then they do
- appear in a way that indicates that this is the case. If the user
- invokes one of them, then it asks for the necessary configuration,
- stores the configuration, and then uses it to push a first time.
-
- This option also affects whether the argument ‘--set-upstream’ is
- available in the popup. If the value is ‘non-nil’, then that
- argument is redundant. But note that changing the value of this
- option does not take affect immediately, the argument will only be
- added or removed after restarting Emacs.
-
-
-File: magit.info, Node: Creating and Sending Patches, Next: Applying Patches, Prev: Pushing, Up: Transferring
-
-7.5 Creating and Sending Patches
-================================
-
-‘W’ (‘magit-patch-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘W p’ (‘magit-format-patch’)
-
- Create patches for a set commits. If the region marks commits,
- then create patches for those. Otherwise prompt for a range or a
- single commit, defaulting to the commit at point.
-
-‘W r’ (‘magit-request-pull’)
-
- Request that upstream pulls from your public repository.
-
- It is also possible to save a plain patch file by using ‘C-x C-w’
-inside a ‘magit-diff-mode’ or ‘magit-revision-mode’ buffer.
-
-
-File: magit.info, Node: Applying Patches, Prev: Creating and Sending Patches, Up: Transferring
-
-7.6 Applying Patches
-====================
-
-Also see *note (gitman)git-am::. and *note (gitman)git-apply::.
-
-‘w’ (‘magit-am-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘w w’ (‘magit-am-apply-patches’)
-
- Apply one or more patches. If the region marks files, then apply
- those patches. Otherwise read a file name in the minibuffer
- defaulting to the file at point.
-
-‘w m’ (‘magit-am-apply-maildir’)
-
- Apply the patches from a maildir.
-
- When an "am" operation is in progress, then the popup buffer features
-these commands instead.
-
-‘w w’ (‘magit-am-continue’)
-
- Resume the current patch applying sequence.
-
-‘w s’ (‘magit-am-skip’)
-
- Skip the stopped at patch during a patch applying sequence.
-
-‘w a’ (‘magit-am-abort’)
-
- Abort the current patch applying sequence. This discards all
- changes made since the sequence started.
-
- In addition to the commands listed at the top, the "am" popup also
-has a binding for the related "patch" popup.
-
-‘w a’ (‘magit-patch-apply-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘w a a’ (‘magit-patch-apply’)
-
- This command applies a simple patch file, which may not contain any
- Git metadata in addition to the actual diff.
-
-
-File: magit.info, Node: Miscellaneous, Next: Customizing, Prev: Transferring, Up: Top
-
-8 Miscellaneous
-***************
-
-* Menu:
-
-* Tagging::
-* Notes::
-* Submodules::
-* Subtree::
-* Worktree::
-* Common Commands::
-* Wip Modes::
-* Minor Mode for Buffers Visiting Files::
-* Minor Mode for Buffers Visiting Blobs::
-
-
-File: magit.info, Node: Tagging, Next: Notes, Up: Miscellaneous
-
-8.1 Tagging
-===========
-
-Also see *note (gitman)git-tag::.
-
-‘t’ (‘magit-tag-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘t t’ (‘magit-tag-create’)
-
- Create a new tag with the given NAME at REV. With a prefix
- argument annotate the tag.
-
-‘t k’ (‘magit-tag-delete’)
-
- Delete one or more tags. If the region marks multiple tags (and
- nothing else), then offer to delete those. Otherwise, prompt for a
- single tag to be deleted, defaulting to the tag at point.
-
-‘t p’ (‘magit-tag-prune’)
-
- Offer to delete tags missing locally from REMOTE, and vice versa.
-
- -- Command: magit-tag-release
-
- Create an opinionated release tag.
-
- Assume version tags that match "\\‘v?[0-9]\*\\’". Prompt for the
- name of the new tag using the highest existing tag as initial input
- and call "git tag –annotate –sign -m MSG" TAG, regardless of
- whether these arguments are enabled in the popup. Given a TAG
- "v1.2.3" and a repository "/path/to/foo-bar", the MESSAGE would be
- "Foo-Bar 1.2.3".
-
- Because it is so opinionated, this command is not available from
- the tag popup by default.
-
-
-File: magit.info, Node: Notes, Next: Submodules, Prev: Tagging, Up: Miscellaneous
-
-8.2 Notes
-=========
-
-Also see *note (gitman)git-notes::.
-
-‘T’ (‘magit-notes-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
-‘T T’ (‘magit-notes-edit’)
-
- Edit the note attached to a commit, defaulting to the commit at
- point.
-
- By default use the value of Git variable ‘core.notesRef’ or
- "refs/notes/commits" if that is undefined.
-
-‘T r’ (‘magit-notes-remove’)
-
- Remove the note attached to a commit, defaulting to the commit at
- point.
-
- By default use the value of Git variable ‘core.notesRef’ or
- "refs/notes/commits" if that is undefined.
-
-‘T p’ (‘magit-notes-prune’)
-
- Remove notes about unreachable commits.
-
- It is possible to merge one note ref into another. That may result
-in conflicts which have to resolved in the temporary worktree
-".git/NOTES_MERGE_WORKTREE".
-
-‘T m’ (‘magit-notes-merge’)
-
- Merge the notes of a ref read from the user into the current notes
- ref. The current notes ref is the value of Git variable
- ‘core.notesRef’ or "refs/notes/commits" if that is undefined.
-
- When a notes merge is in progress then the popup features the
-following suffix commands, instead of those listed above.
-
-‘T c’ (‘magit-notes-merge-commit’)
-
- Commit the current notes ref merge, after manually resolving
- conflicts.
-
-‘T a’ (‘magit-notes-merge-abort’)
-
- Abort the current notes ref merge.
-
- The following variables control what notes reference ‘magit-notes-*’,
-‘git notes’ and ‘git show’ act on and display. Both the local and
-global values are displayed and can be modified.
-
- -- Variable: core.notesRef
-
- This variable specifies the notes ref that is displayed by default
- and which commands act on by default.
-
- -- Variable: notes.displayRef
-
- This variable specifies additional notes ref to be displayed in
- addition to the ref specified by ‘core.notesRef’. It can have
- multiple values and may end with ‘*’ to display all refs in the
- ‘refs/notes/’ namespace (or ‘**’ if some names contain slashes).
-
-
-File: magit.info, Node: Submodules, Next: Subtree, Prev: Notes, Up: Miscellaneous
-
-8.3 Submodules
-==============
-
-Also see *note (gitman)git-submodule::.
-
-* Menu:
-
-* Listing Submodules::
-* Submodule Popup::
-
-
-File: magit.info, Node: Listing Submodules, Next: Submodule Popup, Up: Submodules
-
-8.3.1 Listing Submodules
-------------------------
-
-The command ‘magit-list-submodules’ displays a list of the current
-repository’s submodules in a separate buffer. It’s also possible to
-display information about submodules directly in the status buffer of
-the super-repository by adding ‘magit-insert-submodules’ to the hook
-‘magit-status-sections-hook’ as described in *note Status Module
-Sections::.
-
- -- Command: magit-list-submodules
-
- This command displays a list of the current repository’s submodules
- in a separate buffer.
-
- It can be invoked by pressing ‘RET’ on the section titled
- "Modules".
-
- -- User Option: magit-submodule-list-columns
-
- This option controls what columns are displayed by the command
- ‘magit-list-submodules’ and how they are displayed.
-
- Each element has the form ‘(HEADER WIDTH FORMAT PROPS)’.
-
- HEADER is the string displayed in the header. WIDTH is the width
- of the column. FORMAT is a function that is called with one
- argument, the repository identification (usually its basename), and
- with ‘default-directory’ bound to the toplevel of its working tree.
- It has to return a string to be inserted or nil. PROPS is an alist
- that supports the keys ‘:right-align’ and ‘:pad-right’.
-
- -- Function: magit-insert-submodules
-
- Insert sections for all submodules. For each section insert the
- path, the branch, and the output of ‘git describe --tags’, or,
- failing that, the abbreviated HEAD commit hash.
-
- Press ‘RET’ on such a submodule section to show its own status
- buffer. Press ‘RET’ on the "Modules" section to display a list of
- submodules in a separate buffer. This shows additional information
- not displayed in the super-repository’s status buffer.
-
-
-File: magit.info, Node: Submodule Popup, Prev: Listing Submodules, Up: Submodules
-
-8.3.2 Submodule Popup
----------------------
-
-‘o’ (‘magit-submodule-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
- Some of the below commands default to act on the modules that are
-selected using the region. For brevity their description talk about
-"the selected modules", but if no modules are selected, then they act on
-the current module instead, or if point isn’t on a module, then the read
-a single module to act on. With a prefix argument these commands ignore
-the selection and the current module and instead act on all suitable
-modules.
-
-‘o a’ (‘magit-submodule-add’)
-
- This commands adds the repository at URL as a module. Optional
- PATH is the path to the module relative to the root of the
- super-project. If it is nil then the path is determined based on
- URL.
-
-‘o r’ (‘magit-submodule-register’)
-
- This command registers the selected modules by copying their urls
- from ".gitmodules" to "$GIT_DIR/config". These values can then be
- edited before running ‘magit-submodule-populate’. If you don’t
- need to edit any urls, then use the latter directly.
-
-‘o p’ (‘magit-submodule-populate’)
-
- This command creates the working directory or directories of the
- selected modules, checking out the recorded commits.
-
-‘o u’ (‘magit-submodule-update’)
-
- This command updates the selected modules checking out the recorded
- commits.
-
-‘o s’ (‘magit-submodule-synchronize’)
-
- This command synchronizes the urls of the selected modules, copying
- the values from ".gitmodules" to the ".git/config" of the
- super-project as well those of the modules.
-
-‘o d’ (‘magit-submodule-unpopulate’)
-
- This command removes the working directory of the selected modules.
-
-‘o l’ (‘magit-list-submodules’)
-
- This command displays a list of the current repository’s modules.
-
-‘o f’ (‘magit-fetch-modules’)
-
- This command fetches all modules.
-
- Option ‘magit-fetch-modules-jobs’ controls how many submodules are
- being fetched in parallel. Also fetch the super-repository,
- because ‘git fetch’ does not support not doing that. With a prefix
- argument fetch all remotes.
-
-
-File: magit.info, Node: Subtree, Next: Worktree, Prev: Submodules, Up: Miscellaneous
-
-8.4 Subtree
-===========
-
-Also see *note (gitman)git-subtree::.
-
-‘O’ (‘magit-tree-popup’)
-
- This prefix command shows the following suffix commands along with
- the appropriate infix arguments in a popup buffer.
-
- Most infix arguments only apply to some of the ‘git subtree’
-subcommands. When an argument that does not apply to the invoked
-command is set, then it is silently ignored.
-
- When the ‘--prefix’ argument is set in the popup buffer, then that is
-used. Otherwise the prefix is read in the minibuffer.
-
-‘O a’ (‘magit-subtree-add’)
-
- Add COMMIT from REPOSITORY as a new subtree at PREFIX.
-
-‘O c’ (‘magit-subtree-add-commit’)
-
- Add COMMIT as a new subtree at PREFIX.
-
-‘O m’ (‘magit-subtree-merge’)
-
- Merge COMMIT into the PREFIX subtree.
-
-‘O f’ (‘magit-subtree-pull’)
-
- Pull COMMIT from REPOSITORY into the PREFIX subtree.
-
-‘O p’ (‘magit-subtree-push’)
-
- Extract the history of the subtree PREFIX and push it to REF on
- REPOSITORY.
-
-‘O s’ (‘magit-subtree-split’)
-
- Extract the history of the subtree PREFIX.
-
-
-File: magit.info, Node: Worktree, Next: Common Commands, Prev: Subtree, Up: Miscellaneous
-
-8.5 Worktree
-============
-
-Also see *note (gitman)git-worktree::.
-
-‘%’ (‘magit-worktree-popup’)
-
- This prefix command shows the following suffix commands in a popup
- buffer.
-
-‘% b’ (‘magit-worktree-checkout’)
-
- Checkout BRANCH in a new worktree at PATH.
-
-‘% c’ (‘magit-worktree-branch’)
-
- Create a new BRANCH and check it out in a new worktree at PATH.
-
-‘% p’ (‘magit-worktree-checkout-pull-request’)
-
- Create, configure and checkout a new worktree from a pull-request.
-
- This is like ‘magit-checkout-pull-request’ (which see) except that
- it also creates a new worktree.
-
-‘% k’ (‘magit-worktree-delete’)
-
- Delete a worktree, defaulting to the worktree at point. The
- primary worktree cannot be deleted.
-
-‘% g’ (‘magit-worktree-status’)
-
- Show the status for the worktree at point.
-
- If there is no worktree at point, then read one in the minibuffer.
- If the worktree at point is the one whose status is already being
- displayed in the current buffer, then show it in Dired instead.
-
-
-File: magit.info, Node: Common Commands, Next: Wip Modes, Prev: Worktree, Up: Miscellaneous
-
-8.6 Common Commands
-===================
-
-These are some of the commands that can be used in all buffers whose
-major-modes derive from ‘magit-mode’. There are other common commands
-beside the ones below, but these didn’t fit well anywhere else.
-
-‘M-w’ (‘magit-copy-section-value’)
-
- This command saves the value of the current section to the
- ‘kill-ring’, and, provided that the current section is a commit,
- branch, or tag section, it also pushes the (referenced) revision to
- the ‘magit-revision-stack’.
-
- When the current section is a branch or a tag, and a prefix
- argument is used, then it saves the revision at its tip to the
- ‘kill-ring’ instead of the reference name.
-
-‘C-w’ (‘magit-copy-buffer-revision’)
-
- This command saves the revision being displayed in the current
- buffer to the ‘kill-ring’ and also pushes it to the
- ‘magit-revision-stack’. It is mainly intended for use in
- ‘magit-revision-mode’ buffers, the only buffers where it is always
- unambiguous exactly which revision should be saved.
-
- Most other Magit buffers usually show more than one revision, in
- some way or another, so this command has to select one of them, and
- that choice might not always be the one you think would have been
- the best pick.
-
- Outside of Magit ‘M-w’ and ‘C-w’ are usually bound to
-‘kill-ring-save’ and ‘kill-region’, and these commands would also be
-useful in Magit buffers. Therefore when the region is active, then both
-of these commands behave like ‘kill-ring-save’ instead of as described
-above.
-
-
-File: magit.info, Node: Wip Modes, Next: Minor Mode for Buffers Visiting Files, Prev: Common Commands, Up: Miscellaneous
-
-8.7 Wip Modes
-=============
-
-Git keeps *committed* changes around long enough for users to recover
-changes they have accidentally deleted. It does so by not garbage
-collecting any committed but no longer referenced objects for a certain
-period of time, by default 30 days.
-
- But Git does *not* keep track of *uncommitted* changes in the working
-tree and not even the index (the staging area). Because Magit makes it
-so convenient to modify uncommitted changes, it also makes it easy to
-shoot yourself in the foot in the process.
-
- For that reason Magit provides a global mode that saves *tracked*
-files to work-in-progress references after or before certain actions.
-(At present untracked files are never saved and for technical reasons
-nothing is saved before the first commit has been created).
-
- Two separate work-in-progress references are used to track the state
-of the index and of the working tree: ‘refs/wip/index/<branchref>’ and
-‘refs/wip/wtree/<branchref>’, where ‘<branchref>’ is the full ref of the
-current branch, e.g. ‘refs/heads/master’. When the ‘HEAD’ is detached
-then ‘HEAD’ is used in place of ‘<branchref>’.
-
- Checking out another branch (or detaching ‘HEAD’) causes the use of
-different wip refs for subsequent changes.
-
- -- User Option: magit-wip-mode
-
- When this mode is enabled, then uncommitted changes are committed
- to dedicated work-in-progress refs whenever appropriate (i.e. when
- dataloss would be a possibility otherwise).
-
- Setting this variable directly does not take effect; either use the
- Custom interface to do so or call the respective mode function.
-
- For historic reasons this mode is implemented on top of four other
- ‘magit-wip-*’ modes, which can also be used individually, if you
- want finer control over when the wip refs are updated; but that is
- discouraged. See *note Legacy Wip Modes::.
-
- To view the log for a branch and its wip refs use the commands
-‘magit-wip-log’ and ‘magit-wip-log-current’. You should use ‘--graph’
-when using these commands.
-
- -- Command: magit-wip-log
-
- This command shows the log for a branch and its wip refs. With a
- negative prefix argument only the worktree wip ref is shown.
-
- The absolute numeric value of the prefix argument controls how many
- "branches" of each wip ref are shown. This is only relevant if the
- value of ‘magit-wip-merge-branch’ is ‘nil’.
-
- -- Command: magit-wip-log-current
-
- This command shows the log for the current branch and its wip refs.
- With a negative prefix argument only the worktree wip ref is shown.
-
- The absolute numeric value of the prefix argument controls how many
- "branches" of each wip ref are shown. This is only relevant if the
- value of ‘magit-wip-merge-branch’ is ‘nil’.
-
-‘X w’ (‘magit-reset-worktree’)
-
- This command resets the working tree to some commit read from the
- user and defaulting to the commit at point, while keeping the
- ‘HEAD’ and index as-is.
-
- This can be used to restore files to the state committed to a wip
- ref. Note that this will discard any unstaged changes that might
- have existed before invoking this command (but of course only after
- committing that to the working tree wip ref).
-
- Note that even if you enable ‘magit-wip-mode’ this won’t give you
-perfect protection. The most likely scenario for losing changes despite
-the use of ‘magit-wip-mode’ is making a change outside Emacs and then
-destroying it also outside Emacs. In some such a scenario, Magit, being
-an Emacs package, didn’t get the opportunity to keep you from shooting
-yourself in the foot.
-
- When you are unsure whether Magit did commit a change to the wip
-refs, then you can explicitly request that all changes to all tracked
-files are being committed.
-
-‘M-x magit-wip-commit’ (‘magit-wip-commit’)
-
- This command commits all changes to all tracked files to the index
- and working tree work-in-progress refs. Like the modes described
- above, it does not commit untracked files, but it does check all
- tracked files for changes. Use this command when you suspect that
- the modes might have overlooked a change made outside Emacs/Magit.
-
- -- User Option: magit-wip-namespace
-
- The namespace used for work-in-progress refs. It has to end with a
- slash. The wip refs are named ‘<namespace>index/<branchref>’ and
- ‘<namespace>wtree/<branchref>’. When snapshots are created while
- the ‘HEAD’ is detached then ‘HEAD’ is used in place of
- ‘<branchref>’.
-
- -- User Option: magit-wip-mode-lighter
-
- Mode-line lighter for ‘magit-wip--mode’.
-
-* Menu:
-
-* Wip Graph::
-* Legacy Wip Modes::
-
-
-File: magit.info, Node: Wip Graph, Next: Legacy Wip Modes, Up: Wip Modes
-
-8.7.1 Wip Graph
----------------
-
- -- User Option: magit-wip-merge-branch
-
- This option controls whether the current branch is merged into the
- wip refs after a new commit was created on the branch.
-
- If non-nil and the current branch has new commits, then it is
- merged into the wip ref before creating a new wip commit. This
- makes it easier to inspect wip history and the wip commits are
- never garbage collected.
-
- If nil and the current branch has new commits, then the wip ref is
- reset to the tip of the branch before creating a new wip commit.
- With this setting wip commits are eventually garbage collected.
-
- When ‘magit-wip-merge-branch’ is ‘t’, then the history looks like
-this:
-
- *--*--*--*--*--* refs/wip/index/refs/heads/master
- / / /
- A-----B-----C refs/heads/master
-
- When ‘magit-wip-merge-branch’ is ‘nil’, then creating a commit on the
-real branch and then making a change causes the wip refs to be recreated
-to fork from the new commit. But the old commits on the wip refs are
-not lost. They are still available from the reflog. To make it easier
-to see when the fork point of a wip ref was changed, an additional
-commit with the message "restart autosaving" is created on it (‘xxO’
-commits below are such boundary commits).
-
- Starting with
-
- BI0---BI1 refs/wip/index/refs/heads/master
- /
- A---B refs/heads/master
- \
- BW0---BW1 refs/wip/wtree/refs/heads/master
-
- and committing the staged changes and editing and saving a file would
-result in
-
- BI0---BI1 refs/wip/index/refs/heads/master
- /
- A---B---C refs/heads/master
- \ \
- \ CW0---CW1 refs/wip/wtree/refs/heads/master
- \
- BW0---BW1 refs/wip/wtree/refs/heads/master@{2}
-
- The fork-point of the index wip ref is not changed until some change
-is being staged. Likewise just checking out a branch or creating a
-commit does not change the fork-point of the working tree wip ref. The
-fork-points are not adjusted until there actually is a change that
-should be committed to the respective wip ref.
-
-
-File: magit.info, Node: Legacy Wip Modes, Prev: Wip Graph, Up: Wip Modes
-
-8.7.2 Legacy Wip Modes
-----------------------
-
-It is recommended that you use the mode ‘magit-wip-mode’ (which see) and
-ignore the existence of the following modes, which are preserved for
-historic reasons.
-
- Setting the following variables directly does not take effect; either
-use the Custom interface to do so or call the respective mode functions.
-
- -- User Option: magit-wip-after-save-mode
-
- When this mode is enabled, then saving a buffer that visits a file
- tracked in a Git repository causes its current state to be
- committed to the working tree wip ref for the current branch.
-
- -- User Option: magit-wip-after-apply-mode
-
- When this mode is enabled, then applying (i.e. staging, unstaging,
- discarding, reversing, and regularly applying) a change to a file
- tracked in a Git repository causes its current state to be
- committed to the index and/or working tree wip refs for the current
- branch.
-
- If you only ever edit files using Emacs and only ever interact with
-Git using Magit, then the above two modes should be enough to protect
-each and every change from accidental loss. In practice nobody does
-that. Two additional modes exists that do commit to the wip refs before
-making changes that could cause the loss of earlier changes.
-
- -- User Option: magit-wip-before-change-mode
-
- When this mode is enabled, then certain commands commit the
- existing changes to the files they are about to make changes to.
-
- -- User Option: magit-wip-initial-backup-mode
-
- When this mode is enabled, then the current version of a file is
- committed to the worktree wip ref before the buffer visiting that
- file is saved for the first time since the buffer was created.
-
- This backs up the same version of the file that ‘backup-buffer’
- would save. While ‘backup-buffer’ uses a backup file, this mode
- uses the same worktree wip ref as used by the other Magit Wip
- modes. Like ‘backup-buffer’, it only does this once; unless you
- kill the buffer and visit the file again only one backup will be
- created per Emacs session.
-
- This mode ignores the variables that affect ‘backup-buffer’ and can
- be used along-side that function, which is recommended because it
- only backs up files that are tracked in a Git repository.
-
- -- User Option: magit-wip-after-save-local-mode-lighter
-
- Mode-line lighter for ‘magit-wip-after-save-local-mode’.
-
- -- User Option: magit-wip-after-apply-mode-lighter
-
- Mode-line lighter for ‘magit-wip-after-apply-mode’.
-
- -- User Option: magit-wip-before-change-mode-lighter
-
- Mode-line lighter for ‘magit-wip-before-change-mode’.
-
- -- User Option: magit-wip-initial-backup-mode-lighter
-
- Mode-line lighter for ‘magit-wip-initial-backup-mode’.
-
-
-File: magit.info, Node: Minor Mode for Buffers Visiting Files, Next: Minor Mode for Buffers Visiting Blobs, Prev: Wip Modes, Up: Miscellaneous
-
-8.8 Minor Mode for Buffers Visiting Files
-=========================================
-
-The ‘magit-file-mode’ enables certain Magit features in file-visiting
-buffers belonging to a Git repository. It should be enabled globally
-using ‘global-magit-file-mode’. Currently this mode only establishes a
-few key bindings, but this might be extended in the future.
-
- -- User Option: magit-file-mode
-
- Whether to establish certain Magit key bindings in all
- file-visiting buffers belonging to a Git repository. This
- establishes the bindings suggested in *note Getting Started:: (but
- only for file-visiting buffers), and additionally binds ‘C-c M-g’
- to ‘magit-file-popup’.
-
-‘C-c M-g’ (‘magit-file-popup’)
-
- This prefix command shows a popup buffer featuring suffix commands
- that operate on the file being visited in the current buffer.
-
-‘C-c M-g s’ (‘magit-stage-file’)
-
- Stage all changes to the file being visited in the current buffer.
-
-‘C-c M-g u’ (‘magit-unstage-file’)
-
- Unstage all changes to the file being visited in the current
- buffer.
-
-‘C-c M-g c’ (‘magit-commit-popup’)
-
- This prefix command shows suffix commands along with the
- appropriate infix arguments in a popup buffer. See *note
- Initiating a Commit::.
-
-‘C-c M-g D’ (‘magit-diff-buffer-file-popup’)
-
- This prefix command shows the same suffix commands and infix
- arguments in a popup buffer as ‘magit-diff-popup’. But this
- variant has to be called from a file-visiting buffer and the
- visited file is automatically used in the popup to limit the diff
- to that file.
-
-‘C-c M-g d’ (‘magit-diff-buffer-file’)
-
- This command shows the diff for the file of blob that the current
- buffer visits.
-
- -- User Option: magit-diff-buffer-file-locked
-
- This option controls whether ‘magit-diff-buffer-file’ uses a
- dedicated buffer. See *note Modes and Buffers::.
-
-‘C-c M-g L’ (‘magit-log-buffer-file-popup’)
-
- This prefix command shows the same suffix commands and infix
- arguments in a popup buffer as ‘magit-log-popup’. But this variant
- has to be called from a file-visiting buffer and the visited file
- is automatically used in the popup to limit the log to that file.
-
-‘C-c M-g l’ (‘magit-log-buffer-file’)
-
- This command shows the log for the file of blob that the current
- buffer visits. Renames are followed when a prefix argument is used
- or when ‘--follow’ is part of ‘magit-log-arguments’. When the
- region is active, the log is restricted to the selected line range.
-
-‘C-c M-g t’ (‘magit-log-trace-definition’)
-
- This command shows the log for the definition at point.
-
- -- User Option: magit-log-buffer-file-locked
-
- This option controls whether ‘magit-log-buffer-file’ uses a
- dedicated buffer. See *note Modes and Buffers::.
-
-‘C-c M-g B’ (‘magit-blame-popup’)
-
- This prefix command shows all blaming suffix command along with the
- appropriate infix arguments in a popup buffer. See *note
- Blaming::.
-
-‘C-c M-g b’ (‘magit-blame-addition’)
-
- This command shows for each line the revision in which it was
- added.
-
-‘C-c M-g r’ (‘magit-blame-removal’)
-
- This command shows for each line the revision in which it was
- removed. This command is only available in blob-visiting buffers.
-
-‘C-c M-g f’ (‘magit-blame-reverse’)
-
- This command shows for each line the last revision in which it
- still exists. This command is only available in blob-visiting
- buffers.
-
-‘C-c M-g e’ (‘magit-edit-line-commit’)
-
- This command makes the commit editable that added the current line.
-
- With a prefix argument it makes the commit editable that removes
- the line, if any. The commit is determined using ‘git blame’ and
- made editable using ‘git rebase --interactive’ if it is reachable
- from ‘HEAD’, or by checking out the commit (or a branch that points
- at it) otherwise.
-
-‘C-c M-g p’ (‘magit-blob-previous’)
-
- Visit the previous blob which modified the current file.
-
- There are a few additional commands that operate on a single file but
-are not available from the file popup by default:
-
- -- Command: magit-file-rename
-
- This command renames a file read from the user.
-
- -- Command: magit-file-delete
-
- This command deletes a file read from the user.
-
- -- Command: magit-file-untrack
-
- This command untracks a file read from the user.
-
- -- Command: magit-file-checkout
-
- This command updates a file in the working tree and index to the
- contents from a revision. Both the revision and file are read from
- the user.
-
- You could add them to the popup like so:
-
- (magit-define-popup-action 'magit-file-popup
- ?R "Rename file" 'magit-file-rename)
- (magit-define-popup-action 'magit-file-popup
- ?K "Delete file" 'magit-file-delete)
- (magit-define-popup-action 'magit-file-popup
- ?U "Untrack file" 'magit-file-untrack)
- (magit-define-popup-action 'magit-file-popup
- ?C "Checkout file" 'magit-file-checkout)
-
-
-File: magit.info, Node: Minor Mode for Buffers Visiting Blobs, Prev: Minor Mode for Buffers Visiting Files, Up: Miscellaneous
-
-8.9 Minor Mode for Buffers Visiting Blobs
-=========================================
-
-The ‘magit-blob-mode’ enables certain Magit features in blob-visiting
-buffers. Such buffers can be created using ‘magit-find-file’ and some
-of the commands mentioned below, which also take care of turning on this
-minor mode. Currently this mode only establishes a few key bindings,
-but this might be extended.
-
-‘p’ (‘magit-blob-previous’)
-
- Visit the previous blob which modified the current file.
-
-‘n’ (‘magit-blob-next’)
-
- Visit the next blob which modified the current file.
-
-‘q’ (‘magit-kill-this-buffer’)
-
- Kill the current buffer.
-
-
-File: magit.info, Node: Customizing, Next: Plumbing, Prev: Miscellaneous, Up: Top
-
-9 Customizing
-*************
-
-Both Git and Emacs are highly customizable. Magit is both a Git
-porcelain as well as an Emacs package, so it makes sense to customize it
-using both Git variables as well as Emacs options. However this
-flexibility doesn’t come without problems, including but not limited to
-the following.
-
- • Some Git variables automatically have an effect in Magit without
- requiring any explicit support. Sometimes that is desirable - in
- other cases, it breaks Magit.
-
- When a certain Git setting breaks Magit but you want to keep using
- that setting on the command line, then that can be accomplished by
- overriding the value for Magit only by appending something like
- ‘("-c" "some.variable=compatible-value")’ to
- ‘magit-git-global-arguments’.
-
- • Certain settings like ‘fetch.prune=true’ are respected by Magit
- commands (because they simply call the respective Git command) but
- their value is not reflected in the respective popup buffers. In
- this case the ‘--prune’ argument in ‘magit-fetch-popup’ might be
- active or inactive depending on the value of
- ‘magit-fetch-arguments’ only, but that doesn’t keep the Git
- variable from being honored by the suffix commands anyway. So
- pruning might happen despite the ‘--prune’ arguments being
- displayed in a way that seems to indicate that no pruning will
- happen.
-
- I intend to address these and similar issues in a future release.
-
-* Menu:
-
-* Per-Repository Configuration::
-* Essential Settings::
-
-
-File: magit.info, Node: Per-Repository Configuration, Next: Essential Settings, Up: Customizing
-
-9.1 Per-Repository Configuration
-================================
-
-Magit can be configured on a per-repository level using both Git
-variables as well as Emacs options.
-
- To set a Git variable for one repository only, simply set it in
-‘/path/to/repo/.git/config’ instead of ‘$HOME/.gitconfig’ or
-‘/etc/gitconfig’. See *note (gitman)git-config::.
-
- Similarly, Emacs options can be set for one repository only by
-editing ‘/path/to/repo/.dir-locals.el’. See *note (emacs)Directory
-Variables::. For example to disable automatic refreshes of
-file-visiting buffers in just one huge repository use this:
-
- • ‘/path/to/huge/repo/.dir-locals.el’
-
- ((nil . ((magit-refresh-buffers . nil))))
-
- If you want to apply the same settings to several, but not all,
-repositories then keeping the repository-local config files in sync
-would quickly become annoying. To avoid that you can create config
-files for certain classes of repositories (e.g. "huge repositories")
-and then include those files in the per-repository config files. For
-example:
-
- • ‘/path/to/huge/repo/.git/config’
-
- [include]
- path = /path/to/huge-gitconfig
-
- • ‘/path/to/huge-gitconfig’
-
- [status]
- showUntrackedFiles = no
-
- • ‘$HOME/.emacs.d/init.el’
-
- (dir-locals-set-class-variables 'huge-git-repository
- '((nil . ((magit-refresh-buffers . nil)))))
-
- (dir-locals-set-directory-class
- "/path/to/huge/repo/" 'huge-git-repository)
-
-
-File: magit.info, Node: Essential Settings, Prev: Per-Repository Configuration, Up: Customizing
-
-9.2 Essential Settings
-======================
-
-The next two sections list and discuss several variables that many users
-might want to customize, for safety and/or performance reasons.
-
-* Menu:
-
-* Safety::
-* Performance::
-
-
-File: magit.info, Node: Safety, Next: Performance, Up: Essential Settings
-
-9.2.1 Safety
-------------
-
-This section discusses various variables that you might want to change
-(or *not* change) for safety reasons.
-
- Git keeps *committed* changes around long enough for users to recover
-changes they have accidentally been deleted. It does not do the same
-for *uncommitted* changes in the working tree and not even the index
-(the staging area). Because Magit makes it so easy to modify
-uncommitted changes, it also makes it easy to shoot yourself in the foot
-in the process. For that reason Magit provides three global modes that
-save *tracked* files to work-in-progress references after or before
-certain actions. See *note Wip Modes::.
-
- These modes are not enabled by default because of performance
-concerns. Instead a lot of potentially destructive commands require
-confirmation every time they are used. In many cases this can be
-disabled by adding a symbol to ‘magit-no-confirm’ (see *note Completion
-and Confirmation::). If you enable the various wip modes then you
-should add ‘safe-with-wip’ to this list.
-
- Similarly it isn’t necessary to require confirmation before moving a
-file to the system trash - if you trashed a file by mistake then you can
-recover it from the there. Option ‘magit-delete-by-moving-to-trash’
-controls whether the system trash is used, which is the case by default.
-Nevertheless, ‘trash’ isn’t a member of ‘magit-no-confirm’ - you might
-want to change that.
-
- By default buffers visiting files are automatically reverted when the
-visited file changes on disk. This isn’t as risky as it might seem, but
-to make an informed decision you should see *note Risk of Reverting
-Automatically::.
-
-
-File: magit.info, Node: Performance, Prev: Safety, Up: Essential Settings
-
-9.2.2 Performance
------------------
-
-After Magit has run ‘git’ for side-effects, it also refreshes the
-current Magit buffer and the respective status buffer. This is
-necessary because otherwise outdated information might be displayed
-without the user noticing. Magit buffers are updated by recreating
-their content from scratch, which makes updating simpler and less
-error-prone, but also more costly. Keeping it simple and just
-re-creating everything from scratch is an old design decision and
-departing from that will require major refactoring.
-
- I plan to do that in time for the next major release. I also intend
-to create logs and diffs asynchronously, which should also help a lot
-but also requires major refactoring.
-
- Meanwhile you can tell Magit to only automatically refresh the
-current Magit buffer, but not the status buffer. If you do that, then
-the status buffer is only refreshed automatically if it is the current
-buffer.
-
- (setq magit-refresh-status-buffer nil)
-
- You should also check whether any third-party packages have added
-anything to ‘magit-refresh-buffer-hook’, ‘magit-status-refresh-hook’,
-‘magit-pre-refresh-hook’, and ‘magit-post-refresh-hook’. If so, then
-check whether those additions impact performance significantly. Setting
-‘magit-refresh-verbose’ and then inspecting the output in the
-‘*Messages*’ buffer, should help doing so.
-
- Magit also reverts buffers for visited files located inside the
-current repository when the visited file changes on disk. That is
-implemented on top of ‘auto-revert-mode’ from the built-in library
-‘autorevert’. To figure out whether that impacts performance, check
-whether performance is significantly worse, when many buffers exist
-and/or when some buffers visit files using TRAMP. If so, then this
-should help.
-
- (setq auto-revert-buffer-list-filter
- 'magit-auto-revert-repository-buffers-p)
-
- For alternative approaches see *note Automatic Reverting of
-File-Visiting Buffers::.
-
- If you have enabled any features that are disabled by default, then
-you should check whether they impact performance significantly. It’s
-likely that they were not enabled by default because it is known that
-they reduce performance at least in large repositories.
-
- If performance is only slow inside certain unusually large
-repositories, then you might want to disable certain features on a
-per-repository or per-repository-class basis only. See *note
-Per-Repository Configuration::.
-
-* Menu:
-
-* Microsoft Windows Performance::
-* MacOS Performance::
-
-Log Performance
-...............
-
-When showing logs, Magit limits the number of commits initially shown in
-the hope that this avoids unnecessary work. When using ‘--graph’ is
-used, then this unfortunately does not have the desired effect for large
-histories. Junio, Git’s maintainer, said on the git mailing list
-(<http://www.spinics.net/lists/git/msg232230.html>): "‘--graph’ wants to
-compute the whole history and the max-count only affects the output
-phase after ‘--graph’ does its computation".
-
- In other words, it’s not that Git is slow at outputting the
-differences, or that Magit is slow at parsing the output - the problem
-is that Git first goes outside and has a smoke.
-
- We actually work around this issue by limiting the number of commits
-not only by using ‘-<N>’ but by also using a range. But unfortunately
-that’s not always possible.
-
- In repositories with more than a few thousand commits ‘--graph’
-should never be a member of ‘magit-log-section-arguments’. That
-variable is used in the status buffer which is refreshed every time you
-run any Magit command.
-
- Using ‘--color --graph’ is even slower. Magit uses code that is part
-of Emacs to turn control characters into faces. That code is pretty
-slow and this is quite noticeable when showing a log with many branches
-and merges. For that reason ‘--color’ is not enabled by default
-anymore. Consider leaving it at that.
-
-Diff Performance
-................
-
-If diffs are slow, then consider turning off some optional diff features
-by setting all or some of the following variables to ‘nil’:
-‘magit-diff-highlight-indentation’, ‘magit-diff-highlight-trailing’,
-‘magit-diff-paint-whitespace’, ‘magit-diff-highlight-hunk-body’, and
-‘magit-diff-refine-hunk’.
-
- When showing a commit instead of some arbitrary diff, then some
-additional information is displayed. Calculating this information can
-be quite expensive given certain circumstances. If looking at a commit
-using ‘magit-revision-mode’ takes considerably more time than looking at
-the same commit in ‘magit-diff-mode’, then consider setting
-‘magit-revision-insert-related-refs’ to ‘nil’.
-
-Refs Buffer Performance
-.......................
-
-When refreshing the "references buffer" is slow, then that’s usually
-because several hundred refs are being displayed. The best way to
-address that is to display fewer refs, obviously.
-
- If you are not, or only mildly, interested in seeing the list of
-tags, then start by not displaying them:
-
- (remove-hook 'magit-refs-sections-hook 'magit-insert-tags)
-
- Then you should also make sure that the listed remote branches
-actually all exist. You can do so by pruning branches which no longer
-exist using ‘f-pa’.
-
-Committing Performance
-......................
-
-When you initiate a commit, then Magit by default automatically shows a
-diff of the changes you are about to commit. For large commits this can
-take a long time, which is especially distracting when you are
-committing large amounts of generated data which you don’t actually
-intend to inspect before committing. This behavior can be turned off
-using:
-
- (remove-hook 'server-switch-hook 'magit-commit-diff)
-
- Then you can type ‘C-c C-d’ to show the diff when you actually want
-to see it, but only then. Alternatively you can leave the hook alone
-and just type ‘C-g’ in those cases when it takes too long to generate
-the diff. If you do that, then you will end up with a broken diff
-buffer, but doing it this way has the advantage that you usually get to
-see the diff, which is useful because it increases the odds that you
-spot potential issues.
-
-The Built-In VC Package
-.......................
-
-Emacs comes with a version control interface called "VC", see *note
-(emacs)Version Control::. It is enabled be default, and if you don’t
-use it in addition to Magit, then you should disable it to keep it from
-performing unnecessary work:
-
- (setq vc-handled-backends nil)
-
- You can also disable its use for Git but keep using it when using
-another version control system:
-
- (setq vc-handled-backends (delq 'Git vc-handled-backends))
-
diff --git a/elpa/magit-20181116.1412/magit.info-2 b/elpa/magit-20181116.1412/magit.info-2
deleted file mode 100644
index 18585bb..0000000
--- a/elpa/magit-20181116.1412/magit.info-2
+++ /dev/null
@@ -1,2692 +0,0 @@
-This is magit.info, produced by makeinfo version 6.5 from magit.texi.
-
- Copyright (C) 2015-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-
-INFO-DIR-SECTION Emacs
-START-INFO-DIR-ENTRY
-* Magit: (magit). Using Git from Emacs with Magit.
-END-INFO-DIR-ENTRY
-
-
-File: magit.info, Node: Microsoft Windows Performance, Next: MacOS Performance, Up: Performance
-
-Microsoft Windows Performance
-.............................
-
-In order to update the status buffer, ‘git’ has to be run a few dozen
-times. That is problematic on Microsoft Windows, because that operating
-system is exceptionally slow at starting processes. Sadly this is an
-issue that can only be fixed by Microsoft itself, and they don’t appear
-to be particularly interested in doing so.
-
- Beside the subprocess issue, there are also other Windows-specific
-performance issues. Some of these have workarounds. The maintainers of
-"Git for Windows" try to improve performance on Windows. Always use the
-latest release in order to benefit from the latest performance tweaks.
-Magit too tries to work around some Windows-specific issues.
-
- According to some sources, setting the following Git variables can
-also help.
-
- git config --global core.preloadindex true # default since v2.1
- git config --global core.fscache true # default since v2.8
- git config --global gc.auto 256
-
- You should also check whether an anti-virus program is affecting
-performance.
-
-
-File: magit.info, Node: MacOS Performance, Prev: Microsoft Windows Performance, Up: Performance
-
-MacOS Performance
-.................
-
-On macOS Emacs currently creates child processes using ‘fork’. It
-appears that this also copies GUI resources. The result is that forking
-takes about 30 times as long on Darwin than on Linux. And because Magit
-starts many ‘git’ processes even when doing simple things, that makes
-quite a difference.
-
- On the ‘master’ branch Emacs now uses ‘vfork’ when possible, like
-this was already done on Linux, and now child creation only takes about
-twice as long on Darwin. See (1) for more information.
-
- Nobody knows when the changes on the ‘master’ branch will be released
-as ‘26.1’, but it is still a long way off. You might want to get your
-hands on this change before then. The easiest way to get a patched
-Emacs is to install the ‘emacs-plus’ formula (2) using ‘homebrew’. The
-change has been backported, so you get it not only when using ‘--HEAD’,
-but also when using ‘--devel’ or when installing the latest release (by
-not using a version argument).
-
- Alternatively you can apply the backport (3) manually.
-
- ---------- Footnotes ----------
-
- (1)
-<https://lists.gnu.org/archive/html/bug-gnu-emacs/2017-04/msg00201.html>
-
- (2) <https://github.com/d12frosted/homebrew-emacs-plus>
-
- (3)
-<https://gist.githubusercontent.com/aaronjensen/f45894ddf431ecbff78b1bcf533d3e6b/raw/6a5cd7f57341aba673234348d8b0d2e776f86719/Emacs-25-OS-X-use-vfork.patch>
-
-
-File: magit.info, Node: Plumbing, Next: FAQ, Prev: Customizing, Up: Top
-
-10 Plumbing
-***********
-
-The following sections describe how to use several of Magit’s core
-abstractions to extend Magit itself or implement a separate extension.
-
- A few of the low-level features used by Magit have been factored out
-into separate libraries/packages, so that they can be used by other
-packages, without having to depend on Magit. These libraries are
-described in separate manuals, see *note (with-editor)Top:: and *note
-(magit-popup)Top::.
-
- If you are trying to find an unused key that you can bind to a
-command provided by your own Magit extension, then checkout
-<https://github.com/magit/magit/wiki/Plugin-Dispatch-Key-Registry>.
-
-* Menu:
-
-* Calling Git::
-* Section Plumbing::
-* Refreshing Buffers::
-* Conventions::
-
-
-File: magit.info, Node: Calling Git, Next: Section Plumbing, Up: Plumbing
-
-10.1 Calling Git
-================
-
-Magit provides many specialized functions for calling Git. All of these
-functions are defined in either ‘magit-git.el’ or ‘magit-process.el’ and
-have one of the prefixes ‘magit-run-’, ‘magit-call-’, ‘magit-start-’, or
-‘magit-git-’ (which is also used for other things).
-
- All of these functions accept an indefinite number of arguments,
-which are strings that specify command line arguments for Git (or in
-some cases an arbitrary executable). These arguments are flattened
-before being passed on to the executable; so instead of strings they can
-also be lists of strings and arguments that are ‘nil’ are silently
-dropped. Some of these functions also require a single mandatory
-argument before these command line arguments.
-
- Roughly speaking, these functions run Git either to get some value or
-for side-effects. The functions that return a value are useful to
-collect the information necessary to populate a Magit buffer, while the
-others are used to implement Magit commands.
-
- The functions in the value-only group always run synchronously, and
-they never trigger a refresh. The function in the side-effect group can
-be further divided into subgroups depending on whether they run Git
-synchronously or asynchronously, and depending on whether they trigger a
-refresh when the executable has finished.
-
-* Menu:
-
-* Getting a Value from Git::
-* Calling Git for Effect::
-
-
-File: magit.info, Node: Getting a Value from Git, Next: Calling Git for Effect, Up: Calling Git
-
-10.1.1 Getting a Value from Git
--------------------------------
-
-These functions run Git in order to get a value, an exit status, or
-output. Of course you could also use them to run Git commands that have
-side-effects, but that should be avoided.
-
- -- Function: magit-git-exit-code &rest args
-
- Executes git with ARGS and returns its exit code.
-
- -- Function: magit-git-success &rest args
-
- Executes git with ARGS and returns ‘t’ if the exit code is ‘0’,
- ‘nil’ otherwise.
-
- -- Function: magit-git-failure &rest args
-
- Executes git with ARGS and returns ‘t’ if the exit code is ‘1’,
- ‘nil’ otherwise.
-
- -- Function: magit-git-true &rest args
-
- Executes git with ARGS and returns ‘t’ if the first line printed by
- git is the string "true", ‘nil’ otherwise.
-
- -- Function: magit-git-false &rest args
-
- Executes git with ARGS and returns ‘t’ if the first line printed by
- git is the string "false", ‘nil’ otherwise.
-
- -- Function: magit-git-insert &rest args
-
- Executes git with ARGS and inserts its output at point.
-
- -- Function: magit-git-string &rest args
-
- Executes git with ARGS and returns the first line of its output.
- If there is no output or if it begins with a newline character,
- then this returns ‘nil’.
-
- -- Function: magit-git-lines &rest args
-
- Executes git with ARGS and returns its output as a list of lines.
- Empty lines anywhere in the output are omitted.
-
- -- Function: magit-git-items &rest args
-
- Executes git with ARGS and returns its null-separated output as a
- list. Empty items anywhere in the output are omitted.
-
- If the value of option ‘magit-git-debug’ is non-nil and git exits
- with a non-zero exit status, then warn about that in the echo area
- and add a section containing git’s standard error in the current
- repository’s process buffer.
-
- If an error occurs when using one of the above functions, then that
-is usually due to a bug, i.e. using an argument which is not actually
-supported. Such errors are usually not reported, but when they occur we
-need to be able to debug them.
-
- -- User Option: magit-git-debug
-
- Whether to report errors that occur when using ‘magit-git-insert’,
- ‘magit-git-string’, ‘magit-git-lines’, or ‘magit-git-items’. This
- does not actually raise an error. Instead a message is shown in
- the echo area, and git’s standard error is insert into a new
- section in the current repository’s process buffer.
-
- -- Function: magit-git-str &rest args
-
- This is a variant of ‘magit-git-string’ that ignores the option
- ‘magit-git-debug’. It is mainly intended to be used while handling
- errors in functions that do respect that option. Using such a
- function while handing an error could cause yet another error and
- therefore lead to an infinite recursion. You probably won’t ever
- need to use this function.
-
-
-File: magit.info, Node: Calling Git for Effect, Prev: Getting a Value from Git, Up: Calling Git
-
-10.1.2 Calling Git for Effect
------------------------------
-
-These functions are used to run git to produce some effect. Most Magit
-commands that actually run git do so by using such a function.
-
- Because we do not need to consume git’s output when using these
-functions, their output is instead logged into a per-repository buffer,
-which can be shown using ‘$’ from a Magit buffer or ‘M-x magit-process’
-elsewhere.
-
- These functions can have an effect in two distinct ways. Firstly,
-running git may change something, i.e. create or push a new commit.
-Secondly, that change may require that Magit buffers are refreshed to
-reflect the changed state of the repository. But refreshing isn’t
-always desirable, so only some of these functions do perform such a
-refresh after git has returned.
-
- Sometimes it is useful to run git asynchronously. For example, when
-the user has just initiated a push, then there is no reason to make her
-wait until that has completed. In other cases it makes sense to wait
-for git to complete before letting the user do something else. For
-example after staging a change it is useful to wait until after the
-refresh because that also automatically moves to the next change.
-
- -- Function: magit-call-git &rest args
-
- Calls git synchronously with ARGS.
-
- -- Function: magit-call-process program &rest args
-
- Calls PROGRAM synchronously with ARGS.
-
- -- Function: magit-run-git &rest args
-
- Calls git synchronously with ARGS and then refreshes.
-
- -- Function: magit-run-git-with-input input &rest args
-
- Calls git synchronously with ARGS and sends it INPUT on standard
- input.
-
- INPUT should be a buffer or the name of an existing buffer. The
- content of that buffer is used as the process’ standard input.
- After the process returns a refresh is performed.
-
- As a special case, INPUT may also be nil. In that case the content
- of the current buffer is used as standard input and *no* refresh is
- performed.
-
- This function actually runs git asynchronously. But then it waits
- for the process to return, so the function itself is synchronous.
-
- -- Function: magit-run-git-with-logfile file &rest args
-
- Calls git synchronously with ARGS. The process’ output is saved in
- FILE. This is rarely useful and so this function might be removed
- in the future.
-
- This function actually runs git asynchronously. But then it waits
- for the process to return, so the function itself is synchronous.
-
- -- Function: magit-git &rest args
-
- Calls git synchronously with ARGS for side-effects only. This
- function does not refresh the buffer.
-
- -- Function: magit-git-wash washer &rest args
-
- Execute Git with ARGS, inserting washed output at point. Actually
- first insert the raw output at point. If there is no output call
- ‘magit-cancel-section’. Otherwise temporarily narrow the buffer to
- the inserted text, move to its beginning, and then call function
- WASHER with ARGS as its sole argument.
-
- And now for the asynchronous variants.
-
- -- Function: magit-run-git-async &rest args
-
- Start Git, prepare for refresh, and return the process object.
- ARGS is flattened and then used as arguments to Git.
-
- Display the command line arguments in the echo area.
-
- After Git returns some buffers are refreshed: the buffer that was
- current when this function was called (if it is a Magit buffer and
- still alive), as well as the respective Magit status buffer.
- Unmodified buffers visiting files that are tracked in the current
- repository are reverted if ‘magit-revert-buffers’ is non-nil.
-
- -- Function: magit-run-git-with-editor &rest args
-
- Export GIT_EDITOR and start Git. Also prepare for refresh and
- return the process object. ARGS is flattened and then used as
- arguments to Git.
-
- Display the command line arguments in the echo area.
-
- After Git returns some buffers are refreshed: the buffer that was
- current when this function was called (if it is a Magit buffer and
- still alive), as well as the respective Magit status buffer.
-
- -- Function: magit-start-git &rest args
-
- Start Git, prepare for refresh, and return the process object.
-
- If INPUT is non-nil, it has to be a buffer or the name of an
- existing buffer. The buffer content becomes the processes standard
- input.
-
- Option ‘magit-git-executable’ specifies the Git executable and
- option ‘magit-git-global-arguments’ specifies constant arguments.
- The remaining arguments ARGS specify arguments to Git. They are
- flattened before use.
-
- After Git returns, some buffers are refreshed: the buffer that was
- current when this function was called (if it is a Magit buffer and
- still alive), as well as the respective Magit status buffer.
- Unmodified buffers visiting files that are tracked in the current
- repository are reverted if ‘magit-revert-buffers’ is non-nil.
-
- -- Function: magit-start-process &rest args
-
- Start PROGRAM, prepare for refresh, and return the process object.
-
- If optional argument INPUT is non-nil, it has to be a buffer or the
- name of an existing buffer. The buffer content becomes the
- processes standard input.
-
- The process is started using ‘start-file-process’ and then setup to
- use the sentinel ‘magit-process-sentinel’ and the filter
- ‘magit-process-filter’. Information required by these functions is
- stored in the process object. When this function returns the
- process has not started to run yet so it is possible to override
- the sentinel and filter.
-
- After the process returns, ‘magit-process-sentinel’ refreshes the
- buffer that was current when ‘magit-start-process’ was called (if
- it is a Magit buffer and still alive), as well as the respective
- Magit status buffer. Unmodified buffers visiting files that are
- tracked in the current repository are reverted if
- ‘magit-revert-buffers’ is non-nil.
-
- -- Variable: magit-this-process
-
- The child process which is about to start. This can be used to
- change the filter and sentinel.
-
- -- Variable: magit-process-raise-error
-
- When this is non-nil, then ‘magit-process-sentinel’ raises an error
- if git exits with a non-zero exit status. For debugging purposes.
-
-
-File: magit.info, Node: Section Plumbing, Next: Refreshing Buffers, Prev: Calling Git, Up: Plumbing
-
-10.2 Section Plumbing
-=====================
-
-* Menu:
-
-* Creating Sections::
-* Section Selection::
-* Matching Sections::
-
-
-File: magit.info, Node: Creating Sections, Next: Section Selection, Up: Section Plumbing
-
-10.2.1 Creating Sections
-------------------------
-
- -- Macro: magit-insert-section &rest args
-
- Insert a section at point.
-
- TYPE is the section type, a symbol. Many commands that act on the
- current section behave differently depending on that type. Also if
- a variable ‘magit-TYPE-section-map’ exists, then use that as the
- text-property ‘keymap’ of all text belonging to the section (but
- this may be overwritten in subsections). TYPE can also have the
- form ‘(eval FORM)’ in which case FORM is evaluated at runtime.
-
- Optional VALUE is the value of the section, usually a string that
- is required when acting on the section.
-
- When optional HIDE is non-nil collapse the section body by default,
- i.e. when first creating the section, but not when refreshing the
- buffer. Otherwise, expand it by default. This can be overwritten
- using ‘magit-section-set-visibility-hook’. When a section is
- recreated during a refresh, then the visibility of predecessor is
- inherited and HIDE is ignored (but the hook is still honored).
-
- BODY is any number of forms that actually insert the section’s
- heading and body. Optional NAME, if specified, has to be a symbol,
- which is then bound to the struct of the section being inserted.
-
- Before BODY is evaluated the ‘start’ of the section object is set
- to the value of ‘point’ and after BODY was evaluated its ‘end’ is
- set to the new value of ‘point’; BODY is responsible for moving
- ‘point’ forward.
-
- If it turns out inside BODY that the section is empty, then
- ‘magit-cancel-section’ can be used to abort and remove all traces
- of the partially inserted section. This can happen when creating a
- section by washing Git’s output and Git didn’t actually output
- anything this time around.
-
- -- Function: magit-insert-heading &rest args
-
- Insert the heading for the section currently being inserted.
-
- This function should only be used inside ‘magit-insert-section’.
-
- When called without any arguments, then just set the ‘content’ slot
- of the object representing the section being inserted to a marker
- at ‘point’. The section should only contain a single line when
- this function is used like this.
-
- When called with arguments ARGS, which have to be strings, then
- insert those strings at point. The section should not contain any
- text before this happens and afterwards it should again only
- contain a single line. If the ‘face’ property is set anywhere
- inside any of these strings, then insert all of them unchanged.
- Otherwise use the ‘magit-section-heading’ face for all inserted
- text.
-
- The ‘content’ property of the section struct is the end of the
- heading (which lasts from ‘start’ to ‘content’) and the beginning
- of the body (which lasts from ‘content’ to ‘end’). If the value of
- ‘content’ is nil, then the section has no heading and its body
- cannot be collapsed. If a section does have a heading then its
- height must be exactly one line, including a trailing newline
- character. This isn’t enforced; you are responsible for getting it
- right. The only exception is that this function does insert a
- newline character if necessary.
-
- -- Function: magit-cancel-section
-
- Cancel the section currently being inserted. This exits the
- innermost call to ‘magit-insert-section’ and removes all traces of
- what has already happened inside that call.
-
- -- Function: magit-define-section-jumper sym title &optional value
-
- Define an interactive function to go to section SYM. TITLE is the
- displayed title of the section.
-
-
-File: magit.info, Node: Section Selection, Next: Matching Sections, Prev: Creating Sections, Up: Section Plumbing
-
-10.2.2 Section Selection
-------------------------
-
- -- Function: magit-current-section
-
- Return the section at point.
-
- -- Function: magit-region-sections &optional condition multiple
-
- Return a list of the selected sections.
-
- When the region is active and constitutes a valid section
- selection, then return a list of all selected sections. This is
- the case when the region begins in the heading of a section and
- ends in the heading of the same section or in that of a sibling
- section. If optional MULTIPLE is non-nil, then the region cannot
- begin and end in the same section.
-
- When the selection is not valid, then return nil. In this case,
- most commands that can act on the selected sections will instead
- act on the section at point.
-
- When the region looks like it would in any other buffer then the
- selection is invalid. When the selection is valid then the region
- uses the ‘magit-section-highlight’ face. This does not apply to
- diffs where things get a bit more complicated, but even here if the
- region looks like it usually does, then that’s not a valid
- selection as far as this function is concerned.
-
- If optional CONDITION is non-nil, then the selection not only has
- to be valid; all selected sections additionally have to match
- CONDITION, or nil is returned. See ‘magit-section-match’ for the
- forms CONDITION can take.
-
- -- Function: magit-region-values &optional condition multiple
-
- Return a list of the values of the selected sections.
-
- Return the values that themselves would be returned by
- ‘magit-region-sections’ (which see).
-
-
-File: magit.info, Node: Matching Sections, Prev: Section Selection, Up: Section Plumbing
-
-10.2.3 Matching Sections
-------------------------
-
-‘M-x magit-describe-section-briefly’ (‘magit-describe-section-briefly’)
-
- Show information about the section at point. This command is
- intended for debugging purposes.
-
- -- Function: magit-section-ident section
-
- Return an unique identifier for SECTION. The return value has the
- form ‘((TYPE . VALUE)...)’.
-
- -- Function: magit-get-section ident &optional root
-
- Return the section identified by IDENT. IDENT has to be a list as
- returned by ‘magit-section-ident’.
-
- -- Function: magit-section-match condition &optional section
-
- Return ‘t’ if SECTION matches CONDITION. SECTION defaults to the
- section at point. If SECTION is not specified and there also is no
- section at point, then return ‘nil’.
-
- CONDITION can take the following forms:
- • ‘(CONDITION...)’
-
- matches if any of the CONDITIONs matches.
-
- • ‘[CLASS...]’
-
- matches if the section’s class is the same as the first CLASS
- or a subclass of that; the section’s parent class matches the
- second CLASS; and so on.
-
- • ‘[* CLASS...]’
-
- matches sections that match ‘[CLASS...]’ and also recursively
- all their child sections.
-
- • ‘CLASS’
-
- matches if the section’s class is the same as CLASS or a
- subclass of that; regardless of the classes of the parent
- sections.
-
- Each CLASS should be a class symbol, identifying a class that
- derives from ‘magit-section’. For backward compatibility CLASS can
- also be a "type symbol". A section matches such a symbol if the
- value of its ‘type’ slot is ‘eq’. If a type symbol has an entry in
- ‘magit--section-type-alist’, then a section also matches that type
- if its class is a subclass of the class that corresponds to the
- type as per that alist.
-
- Note that it is not necessary to specify the complete section
- lineage as printed by ‘magit-describe-section-briefly’, unless of
- course you want to be that precise.
-
- -- Function: magit-section-value-if condition &optional section
-
- If the section at point matches CONDITION, then return its value.
-
- If optional SECTION is non-nil then test whether that matches
- instead. If there is no section at point and SECTION is nil, then
- return nil. If the section does not match, then return nil.
-
- See ‘magit-section-match’ for the forms CONDITION can take.
-
- -- Function: magit-section-case &rest clauses
-
- Choose among clauses on the type of the section at point.
-
- Each clause looks like (CONDITION BODY...). The type of the
- section is compared against each CONDITION; the BODY forms of the
- first match are evaluated sequentially and the value of the last
- form is returned. Inside BODY the symbol ‘it’ is bound to the
- section at point. If no clause succeeds or if there is no section
- at point return nil.
-
- See ‘magit-section-match’ for the forms CONDITION can take.
- Additionally a CONDITION of t is allowed in the final clause and
- matches if no other CONDITION match, even if there is no section at
- point.
-
- -- Variable: magit-root-section
-
- The root section in the current buffer. All other sections are
- descendants of this section. The value of this variable is set by
- ‘magit-insert-section’ and you should never modify it.
-
- For diff related sections a few additional tools exist.
-
- -- Function: magit-diff-type &optional section
-
- Return the diff type of SECTION.
-
- The returned type is one of the symbols ‘staged’, ‘unstaged’,
- ‘committed’, or ‘undefined’. This type serves a similar purpose as
- the general type common to all sections (which is stored in the
- ‘type’ slot of the corresponding ‘magit-section’ struct) but takes
- additional information into account. When the SECTION isn’t
- related to diffs and the buffer containing it also isn’t a
- diff-only buffer, then return nil.
-
- Currently the type can also be one of ‘tracked’ and ‘untracked’,
- but these values are not handled explicitly in every place they
- should be. A possible fix could be to just return nil here.
-
- The section has to be a ‘diff’ or ‘hunk’ section, or a section
- whose children are of type ‘diff’. If optional SECTION is nil,
- return the diff type for the current section. In buffers whose
- major mode is ‘magit-diff-mode’ SECTION is ignored and the type is
- determined using other means. In ‘magit-revision-mode’ buffers the
- type is always ‘committed’.
-
- -- Function: magit-diff-scope &optional section strict
-
- Return the diff scope of SECTION or the selected section(s).
-
- A diff’s "scope" describes what part of a diff is selected, it is a
- symbol, one of ‘region’, ‘hunk’, ‘hunks’, ‘file’, ‘files’, or
- ‘list’. Do not confuse this with the diff "type", as returned by
- ‘magit-diff-type’.
-
- If optional SECTION is non-nil, then return the scope of that,
- ignoring the sections selected by the region. Otherwise return the
- scope of the current section, or if the region is active and
- selects a valid group of diff related sections, the type of these
- sections, i.e. ‘hunks’ or ‘files’. If SECTION (or if the current
- section that is nil) is a ‘hunk’ section and the region starts and
- ends inside the body of a that section, then the type is ‘region’.
-
- If optional STRICT is non-nil then return nil if the diff type of
- the section at point is ‘untracked’ or the section at point is not
- actually a ‘diff’ but a ‘diffstat’ section.
-
-
-File: magit.info, Node: Refreshing Buffers, Next: Conventions, Prev: Section Plumbing, Up: Plumbing
-
-10.3 Refreshing Buffers
-=======================
-
-All commands that create a new Magit buffer or change what is being
-displayed in an existing buffer do so by calling ‘magit-mode-setup’.
-Among other things, that function sets the buffer local values of
-‘default-directory’ (to the top-level of the repository),
-‘magit-refresh-function’, and ‘magit-refresh-args’.
-
- Buffers are refreshed by calling the function that is the local value
-of ‘magit-refresh-function’ (a function named ‘magit-*-refresh-buffer’,
-where ‘*’ may be something like ‘diff’) with the value of
-‘magit-refresh-args’ as arguments.
-
- -- Macro: magit-mode-setup buffer switch-func mode refresh-func
- &optional refresh-args
-
- This function displays and selects BUFFER, turns on MODE, and
- refreshes a first time.
-
- This function displays and optionally selects BUFFER by calling
- ‘magit-mode-display-buffer’ with BUFFER, MODE and SWITCH-FUNC as
- arguments. Then it sets the local value of
- ‘magit-refresh-function’ to REFRESH-FUNC and that of
- ‘magit-refresh-args’ to REFRESH-ARGS. Finally it creates the
- buffer content by calling REFRESH-FUNC with REFRESH-ARGS as
- arguments.
-
- All arguments are evaluated before switching to BUFFER.
-
- -- Function: magit-mode-display-buffer buffer mode &optional
- switch-function
-
- This function display BUFFER in some window and select it. BUFFER
- may be a buffer or a string, the name of a buffer. The buffer is
- returned.
-
- Unless BUFFER is already displayed in the selected frame, store the
- previous window configuration as a buffer local value, so that it
- can later be restored by ‘magit-mode-bury-buffer’.
-
- The buffer is displayed and selected using SWITCH-FUNCTION. If
- that is ‘nil’ then ‘pop-to-buffer’ is used if the current buffer’s
- major mode derives from ‘magit-mode’. Otherwise ‘switch-to-buffer’
- is used.
-
- -- Variable: magit-refresh-function
-
- The value of this buffer-local variable is the function used to
- refresh the current buffer. It is called with ‘magit-refresh-args’
- as arguments.
-
- -- Variable: magit-refresh-args
-
- The list of arguments used by ‘magit-refresh-function’ to refresh
- the current buffer. ‘magit-refresh-function’ is called with these
- arguments.
-
- The value is usually set using ‘magit-mode-setup’, but in some
- cases it’s also useful to provide commands which can change the
- value. For example, the ‘magit-diff-refresh-popup’ can be used to
- change any of the arguments used to display the diff, without
- having to specify again which differences should be shown.
- ‘magit-diff-more-context’, ‘magit-diff-less-context’, and
- ‘magit-diff-default-context’ change just the ‘-U<N>’ argument. In
- both case this is done by changing the value of this variable and
- then calling this ‘magit-refresh-function’.
-
-
-File: magit.info, Node: Conventions, Prev: Refreshing Buffers, Up: Plumbing
-
-10.4 Conventions
-================
-
-Also see *note Completion and Confirmation::.
-
-* Menu:
-
-* Theming Faces::
-
-
-File: magit.info, Node: Theming Faces, Up: Conventions
-
-10.4.1 Theming Faces
---------------------
-
-The default theme uses blue for local branches, green for remote
-branches, and goldenrod (brownish yellow) for tags. When creating a new
-theme, you should probably follow that example. If your theme already
-uses other colors, then stick to that.
-
- In older releases these reference faces used to have a background
-color and a box around them. The basic default faces no longer do so,
-to make Magit buffers much less noisy, and you should follow that
-example at least with regards to boxes. (Boxes were used in the past to
-work around a conflict between the highlighting overlay and text
-property backgrounds. That’s no longer necessary because highlighting
-no longer causes other background colors to disappear.) Alternatively
-you can keep the background color and/or box, but then have to take
-special care to adjust ‘magit-branch-current’ accordingly. By default
-it looks mostly like ‘magit-branch-local’, but with a box (by default
-the former is the only face that uses a box, exactly so that it sticks
-out). If the former also uses a box, then you have to make sure that it
-differs in some other way from the latter.
-
- The most difficult faces to theme are those related to diffs,
-headings, highlighting, and the region. There are faces that fall into
-all four groups - expect to spend some time getting this right.
-
- The ‘region’ face in the default theme, in both the light and dark
-variants, as well as in many other themes, distributed with Emacs or by
-third-parties, is very ugly. It is common to use a background color
-that really sticks out, which is ugly but if that were the only problem
-then it would be acceptable. Unfortunately many themes also set the
-foreground color, which ensures that all text within the region is
-readable. Without doing that there might be cases where some foreground
-color is too close to the region background color to still be readable.
-But it also means that text within the region loses all syntax
-highlighting.
-
- I consider the work that went into getting the ‘region’ face right to
-be a good indicator for the general quality of a theme. My
-recommendation for the ‘region’ face is this: use a background color
-slightly different from the background color of the ‘default’ face, and
-do not set the foreground color at all. So for a light theme you might
-use a light (possibly tinted) gray as the background color of ‘default’
-and a somewhat darker gray for the background of ‘region’. That should
-usually be enough to not collide with the foreground color of any other
-face. But if some other faces also set a light gray as background
-color, then you should also make sure it doesn’t collide with those (in
-some cases it might be acceptable though).
-
- Magit only uses the ‘region’ face when the region is "invalid" by its
-own definition. In a Magit buffer the region is used to either select
-multiple sibling sections, so that commands which support it act on all
-of these sections instead of just the current section, or to select
-lines within a single hunk section. In all other cases, the section is
-considered invalid and Magit won’t act on it. But such invalid sections
-happen, either because the user has not moved point enough yet to make
-it valid or because she wants to use a non-magit command to act on the
-region, e.g. ‘kill-region’.
-
- So using the regular ‘region’ face for invalid sections is a feature.
-It tells the user that Magit won’t be able to act on it. It’s
-acceptable if that face looks a bit odd and even (but less so) if it
-collides with the background colors of section headings and other things
-that have a background color.
-
- Magit highlights the current section. If a section has subsections,
-then all of them are highlighted. This is done using faces that have
-"highlight" in their names. For most sections,
-‘magit-section-highlight’ is used for both the body and the heading.
-Like the ‘region’ face, it should only set the background color to
-something similar to that of ‘default’. The highlight background color
-must be different from both the ‘region’ background color and the
-‘default’ background color.
-
- For diff related sections Magit uses various faces to highlight
-different parts of the selected section(s). Note that hunk headings,
-unlike all other section headings, by default have a background color,
-because it is useful to have very visible separators between hunks.
-That face ‘magit-diff-hunk-heading’, should be different from both
-‘magit-diff-hunk-heading-highlight’ and ‘magit-section-highlight’, as
-well as from ‘magit-diff-context’ and ‘magit-diff-context-highlight’.
-By default we do that by changing the foreground color. Changing the
-background color would lead to complications, and there are already
-enough we cannot get around. (Also note that it is generally a good
-idea for section headings to always be bold, but only for sections that
-have subsections).
-
- When there is a valid region selecting diff-related sibling sections,
-i.e. multiple files or hunks, then the bodies of all these sections use
-the respective highlight faces, but additionally the headings instead
-use one of the faces ‘magit-diff-file-heading-selection’ or
-‘magit-diff-hunk-heading-selection’. These faces have to be different
-from the regular highlight variants to provide explicit visual
-indication that the region is active.
-
- When theming diff related faces, start by setting the option
-‘magit-diff-refine-hunk’ to ‘all’. You might personally prefer to only
-refine the current hunk or not use hunk refinement at all, but some of
-the users of your theme want all hunks to be refined, so you have to
-cater to that.
-
- (Also turn on ‘magit-diff-highlight-indentation’,
-‘magit-diff-highlight-trailing’, and ‘magit-diff-paint-whitespace’; and
-insert some whitespace errors into the code you use for testing.)
-
- For e.g. "added lines" you have to adjust three faces:
-‘magit-diff-added’, ‘magit-diff-added-highlight’, and
-‘smerge-refined-added’. Make sure that the latter works well with both
-of the former, as well as ‘smerge-other’ and ‘diff-added’. Then do the
-same for the removed lines, context lines, lines added by us, and lines
-added by them. Also make sure the respective added, removed, and
-context faces use approximately the same saturation for both the
-highlighted and unhighlighted variants. Also make sure the file and
-diff headings work nicely with context lines (e.g. make them look
-different). Line faces should set both the foreground and the
-background color. For example, for added lines use two different
-greens.
-
- It’s best if the foreground color of both the highlighted and the
-unhighlighted variants are the same, so you will need to have to find a
-color that works well on the highlight and unhighlighted background, the
-refine background, and the highlight context background. When there is
-an hunk internal region, then the added- and removed-lines background
-color is used only within that region. Outside the region the
-highlighted context background color is used. This makes it easier to
-see what is being staged. With an hunk internal region the hunk heading
-is shown using ‘magit-diff-hunk-heading-selection’, and so are the thin
-lines that are added around the lines that fall within the region. The
-background color of that has to be distinct enough from the various
-other involved background colors.
-
- Nobody said this would be easy. If your theme restricts itself to a
-certain set of colors, then you should make an exception here.
-Otherwise it would be impossible to make the diffs look good in each and
-every variation. Actually you might want to just stick to the default
-definitions for these faces. You have been warned. Also please note
-that if you do not get this right, this will in some cases look to users
-like bugs in Magit - so please do it right or not at all.
-
-
-File: magit.info, Node: FAQ, Next: Debugging Tools, Prev: Plumbing, Up: Top
-
-Appendix A FAQ
-**************
-
-The next two nodes lists frequently asked questions. For a list of
-frequently *and recently* asked questions, i.e. questions that haven’t
-made it into the manual yet, see
-<https://github.com/magit/magit/wiki/FAQ>.
-
- Please also use the *note Debugging Tools::.
-
-* Menu:
-
-* FAQ - How to ...?::
-* FAQ - Issues and Errors::
-
-
-File: magit.info, Node: FAQ - How to ...?, Next: FAQ - Issues and Errors, Up: FAQ
-
-A.1 FAQ - How to ...?
-=====================
-
-* Menu:
-
-* How to show git's output?::
-* How to install the gitman info manual?::
-* How to show diffs for gpg-encrypted files?::
-* How does branching and pushing work?::
-* Can Magit be used as ediff-version-control-package?::
-
-
-File: magit.info, Node: How to show git's output?, Next: How to install the gitman info manual?, Up: FAQ - How to ...?
-
-A.1.1 How to show git’s output?
--------------------------------
-
-To show the output of recently run git commands, press ‘$’ (or, if that
-isn’t available, ‘M-x magit-process-buffer’). This will show a buffer
-containing a section per git invocation; as always press ‘TAB’ to expand
-or collapse them.
-
- By default, git’s output is only inserted into the process buffer if
-it is run for side-effects. When the output is consumed in some way,
-also inserting it into the process buffer would be too expensive. For
-debugging purposes, it’s possible to do so anyway by setting
-‘magit-git-debug’ to ‘t’.
-
-
-File: magit.info, Node: How to install the gitman info manual?, Next: How to show diffs for gpg-encrypted files?, Prev: How to show git's output?, Up: FAQ - How to ...?
-
-A.1.2 How to install the gitman info manual?
---------------------------------------------
-
-Git’s manpages can be exported as an info manual called ‘gitman’.
-Magit’s own info manual links to nodes in that manual instead of the
-actual manpages because Info doesn’t support linking to manpages.
-
- Unfortunately some distributions do not install the ‘gitman’ manual
-by default and you will have to install a separate documentation package
-to get it.
-
- Magit patches Info adding the ability to visit links to the ‘gitman’
-Info manual by instead viewing the respective manpage. If you prefer
-that approach, then set the value of ‘magit-view-git-manual-method’ to
-one of the supported packages ‘man’ or ‘woman’, e.g.:
-
- (setq magit-view-git-manual-method 'man)
-
-
-File: magit.info, Node: How to show diffs for gpg-encrypted files?, Next: How does branching and pushing work?, Prev: How to install the gitman info manual?, Up: FAQ - How to ...?
-
-A.1.3 How to show diffs for gpg-encrypted files?
-------------------------------------------------
-
-Git supports showing diffs for encrypted files, but has to be told to do
-so. Since Magit just uses Git to get the diffs, configuring Git also
-affects the diffs displayed inside Magit.
-
- git config --global diff.gpg.textconv "gpg --no-tty --decrypt"
- echo "*.gpg filter=gpg diff=gpg" > .gitattributes
-
-
-File: magit.info, Node: How does branching and pushing work?, Next: Can Magit be used as ediff-version-control-package?, Prev: How to show diffs for gpg-encrypted files?, Up: FAQ - How to ...?
-
-A.1.4 How does branching and pushing work?
-------------------------------------------
-
-Please see *note Branching:: and
-<http://emacsair.me/2016/01/17/magit-2.4>
-
-
-File: magit.info, Node: Can Magit be used as ediff-version-control-package?, Prev: How does branching and pushing work?, Up: FAQ - How to ...?
-
-A.1.5 Can Magit be used as ‘ediff-version-control-package’?
------------------------------------------------------------
-
-No, it cannot. For that to work the functions ‘ediff-magit-internal’
-and ‘ediff-magit-merge-internal’ would have to be implemented, and they
-are not. These two functions are only used by the three commands
-‘ediff-revision’, ‘ediff-merge-revisions-with-ancestor’, and
-‘ediff-merge-revisions’.
-
- These commands only delegate the task of populating buffers with
-certain revisions to the "internal" functions. The equally important
-task of determining which revisions are to be compared/merged is not
-delegated. Instead this is done without any support whatsoever from the
-version control package/system - meaning that the user has to enter the
-revisions explicitly. Instead of implementing ‘ediff-magit-internal’ we
-provide ‘magit-ediff-compare’, which handles both tasks like it is 2005.
-
- The other commands ‘ediff-merge-revisions’ and
-‘ediff-merge-revisions-with-ancestor’ are normally not what you want
-when using a modern version control system like Git. Instead of letting
-the user resolve only those conflicts which Git could not resolve on its
-own, they throw away all work done by Git and then expect the user to
-manually merge all conflicts, including those that had already been
-resolved. That made sense back in the days when version control systems
-couldn’t merge (or so I have been told), but not anymore. Once in a
-blue moon you might actually want to see all conflicts, in which case
-you *can* use these commands, which then use ‘ediff-vc-merge-internal’.
-So we don’t actually have to implement ‘ediff-magit-merge-internal’.
-Instead we provide the more useful command ‘magit-ediff-resolve’ which
-only shows yet-to-be resolved conflicts.
-
-
-File: magit.info, Node: FAQ - Issues and Errors, Prev: FAQ - How to ...?, Up: FAQ
-
-A.2 FAQ - Issues and Errors
-===========================
-
-* Menu:
-
-* Magit is slow::
-* I changed several thousand files at once and now Magit is unusable::
-* I am having problems committing::
-* I am using MS Windows and cannot push with Magit::
-* I am using OS X and SOMETHING works in shell, but not in Magit: I am using OS X and SOMETHING works in shell but not in Magit.
-* Diffs contain control sequences::
-* Expanding a file to show the diff causes it to disappear::
-* Point is wrong in the COMMIT_EDITMSG buffer::
-* The mode-line information isn't always up-to-date::
-* A branch and tag sharing the same name breaks SOMETHING::
-* My Git hooks work on the command-line but not inside Magit::
-* git-commit-mode isn't used when committing from the command-line::
-* Point ends up inside invisible text when jumping to a file-visiting buffer::
-
-
-File: magit.info, Node: Magit is slow, Next: I changed several thousand files at once and now Magit is unusable, Up: FAQ - Issues and Errors
-
-A.2.1 Magit is slow
--------------------
-
-See *note Performance::.
-
-
-File: magit.info, Node: I changed several thousand files at once and now Magit is unusable, Next: I am having problems committing, Prev: Magit is slow, Up: FAQ - Issues and Errors
-
-A.2.2 I changed several thousand files at once and now Magit is unusable
-------------------------------------------------------------------------
-
-Magit is *currently* not expected to work under such conditions. It
-sure would be nice if it did, and v2.5 will hopefully be a big step into
-that direction. But it might take until v3.1 to accomplish fully
-satisfactory performance, because that requires some heavy refactoring.
-
- But for now we recommend you use the command line to complete this
-one commit. Also see *note Performance::.
-
-
-File: magit.info, Node: I am having problems committing, Next: I am using MS Windows and cannot push with Magit, Prev: I changed several thousand files at once and now Magit is unusable, Up: FAQ - Issues and Errors
-
-A.2.3 I am having problems committing
--------------------------------------
-
-That likely means that Magit is having problems finding an appropriate
-emacsclient executable. See *note (with-editor)Configuring
-With-Editor:: and *note (with-editor)Debugging::.
-
-
-File: magit.info, Node: I am using MS Windows and cannot push with Magit, Next: I am using OS X and SOMETHING works in shell but not in Magit, Prev: I am having problems committing, Up: FAQ - Issues and Errors
-
-A.2.4 I am using MS Windows and cannot push with Magit
-------------------------------------------------------
-
-It’s almost certain that Magit is only incidental to this issue. It is
-much more likely that this is a configuration issue, even if you can
-push on the command line.
-
- Detailed setup instructions can be found at
-<https://github.com/magit/magit/wiki/Pushing-with-Magit-from-Windows>.
-
-
-File: magit.info, Node: I am using OS X and SOMETHING works in shell but not in Magit, Next: Diffs contain control sequences, Prev: I am using MS Windows and cannot push with Magit, Up: FAQ - Issues and Errors
-
-A.2.5 I am using OS X and SOMETHING works in shell, but not in Magit
---------------------------------------------------------------------
-
-This usually occurs because Emacs doesn’t have the same environment
-variables as your shell. Try installing and configuring
-<https://github.com/purcell/exec-path-from-shell>. By default it
-synchronizes ‘$PATH’, which helps Magit find the same ‘git’ as the one
-you are using on the shell.
-
- If SOMETHING is "passphrase caching with gpg-agent for commit and/or
-tag signing", then you’ll also need to synchronize ‘$GPG_AGENT_INFO’.
-
-
-File: magit.info, Node: Diffs contain control sequences, Next: Expanding a file to show the diff causes it to disappear, Prev: I am using OS X and SOMETHING works in shell but not in Magit, Up: FAQ - Issues and Errors
-
-A.2.6 Diffs contain control sequences
--------------------------------------
-
-This happens when you configure Git to always color diffs and/or all of
-its output. The valid values for relevant Git variables ‘color.ui’ and
-‘color.diff’ are ‘false’, ‘true’ and ‘always’, and the default is
-‘true’. You should leave it that way because then you get colorful
-output in terminals by default but when git’s output is consumed by
-something else, then no color control sequences are used.
-
- If you actually use some other tool that requires setting ‘color.ui’
-and/or ‘color.diff’ to ‘always’ (which is highly unlikely), then you can
-override these settings just for Magit by using:
-
- (setq magit-git-global-arguments
- (nconc magit-git-global-arguments
- '("-c" "color.ui=false"
- "-c" "color.diff=false")))
-
-
-File: magit.info, Node: Expanding a file to show the diff causes it to disappear, Next: Point is wrong in the COMMIT_EDITMSG buffer, Prev: Diffs contain control sequences, Up: FAQ - Issues and Errors
-
-A.2.7 Expanding a file to show the diff causes it to disappear
---------------------------------------------------------------
-
-This is probably caused by a change of a ‘diff.*’ Git variable. You
-probably set that variable for a reason, and should therefore only undo
-that setting in Magit by customizing ‘magit-git-global-arguments’.
-
-
-File: magit.info, Node: Point is wrong in the COMMIT_EDITMSG buffer, Next: The mode-line information isn't always up-to-date, Prev: Expanding a file to show the diff causes it to disappear, Up: FAQ - Issues and Errors
-
-A.2.8 Point is wrong in the ‘COMMIT_EDITMSG’ buffer
----------------------------------------------------
-
-Neither Magit nor ‘git-commit‘ fiddle with point in the buffer used to
-write commit messages, so something else must be doing it.
-
- You have probably globally enabled a mode which does restore point in
-file-visiting buffers. It might be a bit surprising, but when you write
-a commit message, then you are actually editing a file.
-
- So you have to figure out which package is doing. ‘saveplace’,
-‘pointback’, and ‘session’ are likely candidates. These snippets might
-help:
-
- (setq session-name-disable-regexp "\\(?:\\`'\\.git/[A-Z_]+\\'\\)")
-
- (with-eval-after-load 'pointback
- (lambda ()
- (when (or git-commit-mode git-rebase-mode)
- (pointback-mode -1))))
-
-
-File: magit.info, Node: The mode-line information isn't always up-to-date, Next: A branch and tag sharing the same name breaks SOMETHING, Prev: Point is wrong in the COMMIT_EDITMSG buffer, Up: FAQ - Issues and Errors
-
-A.2.9 The mode-line information isn’t always up-to-date
--------------------------------------------------------
-
-Magit is not responsible for the version control information that is
-being displayed in the mode-line and looks something like ‘Git-master’.
-The built-in "Version Control" package, also known as "VC", updates that
-information, and can be told to do so more often:
-
- (setq auto-revert-check-vc-info t)
-
- But doing so isn’t good for performance. For more (overly
-optimistic) information see *note (emacs)VC Mode Line::.
-
- If you don’t really care about seeing that information in the
-mode-line, but just don’t want to see _incorrect_ information, then
-consider disabling VC when using Git:
-
- (setq vc-handled-backends (delq 'Git vc-handled-backends))
-
- Or to disable it completely:
-
- (setq vc-handled-backends nil)
-
-
-File: magit.info, Node: A branch and tag sharing the same name breaks SOMETHING, Next: My Git hooks work on the command-line but not inside Magit, Prev: The mode-line information isn't always up-to-date, Up: FAQ - Issues and Errors
-
-A.2.10 A branch and tag sharing the same name breaks SOMETHING
---------------------------------------------------------------
-
-Or more generally, ambiguous refnames break SOMETHING.
-
- Magit assumes that refs are named non-ambiguously across the
-"refs/heads/", "refs/tags/", and "refs/remotes/" namespaces (i.e., all
-the names remain unique when those prefixes are stripped). We consider
-ambiguous refnames unsupported and recommend that you use a
-non-ambiguous naming scheme. However, if you do work with a repository
-that has ambiguous refnames, please report any issues you encounter so
-that we can investigate whether there is a simple fix.
-
-
-File: magit.info, Node: My Git hooks work on the command-line but not inside Magit, Next: git-commit-mode isn't used when committing from the command-line, Prev: A branch and tag sharing the same name breaks SOMETHING, Up: FAQ - Issues and Errors
-
-A.2.11 My Git hooks work on the command-line but not inside Magit
------------------------------------------------------------------
-
-When Magit calls ‘git’ it adds a few global arguments including
-‘--literal-pathspecs’ and the ‘git’ process started by Magit then passes
-that setting on to other ‘git’ process it starts itself. It does so by
-setting the environment variable ‘GIT_LITERAL_PATHSPECS’, not by calling
-subprocesses with the ‘--literal-pathspecs’. You can therefore override
-this setting in hook scripts using ‘unset GIT_LITERAL_PATHSPECS’.
-
-
-File: magit.info, Node: git-commit-mode isn't used when committing from the command-line, Next: Point ends up inside invisible text when jumping to a file-visiting buffer, Prev: My Git hooks work on the command-line but not inside Magit, Up: FAQ - Issues and Errors
-
-A.2.12 ‘git-commit-mode’ isn’t used when committing from the command-line
--------------------------------------------------------------------------
-
-The reason for this is that ‘git-commit.el’ has not been loaded yet
-and/or that the server has not been started yet. These things have
-always already been taken care of when you commit from Magit because in
-order to do so, Magit has to be loaded and doing that involves loading
-‘git-commit’ and starting the server.
-
- If you want to commit from the command-line, then you have to take
-care of these things yourself. Your ‘init.el’ file should contain:
-
- (require 'git-commit)
- (server-mode)
-
- Instead of ‘(require ’git-commit)‘ you may also use:
-
- (load "/path/to/magit-autoloads.el")
-
- You might want to do that because loading ‘git-commit’ causes large
-parts of Magit to be loaded.
-
- There are also some variations of ‘(server-mode)’ that you might want
-to try. Personally I use:
-
- (use-package server
- :config (or (server-running-p) (server-mode)))
-
- Now you can use:
-
- $ emacs&
- $ EDITOR=emacsclient git commit
-
- However you cannot use:
-
- $ killall emacs
- $ EDITOR="emacsclient --alternate-editor emacs" git commit
-
- This will actually end up using ‘emacs’, not ‘emacsclient’. If you
-do this, then can still edit the commit message but ‘git-commit-mode’
-won’t be used and you have to exit ‘emacs’ to finish the process.
-
- Tautology ahead. If you want to be able to use ‘emacsclient’ to
-connect to a running ‘emacs’ instance, even though no ‘emacs’ instance
-is running, then you cannot use ‘emacsclient’ directly.
-
- Instead you have to create a script that does something like this:
-
- Try to use ‘emacsclient’ (without using ‘--alternate-editor’). If
-that succeeds, do nothing else. Otherwise start ‘emacs &’ (and
-‘init.el’ must call ‘server-start’) and try to use ‘emacsclient’ again.
-
-
-File: magit.info, Node: Point ends up inside invisible text when jumping to a file-visiting buffer, Prev: git-commit-mode isn't used when committing from the command-line, Up: FAQ - Issues and Errors
-
-A.2.13 Point ends up inside invisible text when jumping to a file-visiting buffer
----------------------------------------------------------------------------------
-
-This can happen when you type ‘RET’ on a hunk to visit the respective
-file at the respective position. One solution to this problem is to use
-‘global-reveal-mode’. It makes sure that text around point is always
-visible. If that is too drastic for your taste, then you may instead
-use ‘magit-diff-visit-file-hook’ to reveal the text, possibly using
-‘reveal-post-command’ or for Org buffers ‘org-reveal’.
-
-
-File: magit.info, Node: Debugging Tools, Next: Keystroke Index, Prev: FAQ, Up: Top
-
-B Debugging Tools
-*****************
-
-Magit and its dependencies provide a few debugging tools, and we
-appreciate it very much if you use those tools before reporting an
-issue. Please include all relevant output when reporting an issue.
-
-‘M-x magit-version’ (‘magit-version’)
-
- This command shows the currently used versions of Magit, Git, and
- Emacs in the echo area. Non-interactively this just returns the
- Magit version.
-
-‘M-x magit-emacs-Q-command’ (‘magit-emacs-Q-command’)
-
- This command shows a debugging shell command in the echo area and
- adds it to the kill ring. Paste that command into a shell and run
- it.
-
- This shell command starts ‘emacs’ with only ‘magit’ and its
- dependencies loaded. Neither your configuration nor other
- installed packages are loaded. This makes it easier to determine
- whether some issue lays with Magit or something else.
-
- If you run Magit from its Git repository, then you should be able
- to use ‘make emacs-Q’ instead of the output of this command.
-
-‘M-x magit-debug-git-executable’ (‘magit-debug-git-executable’)
-
- This command displays a buffer containing information about the
- available and used ‘git’ executable(s), and can be useful when
- investigating ‘exec-path’ issues.
-
- Also see *note Git Executable::.
-
-‘M-x with-editor-debug’ (‘with-editor-debug’)
-
- This command displays a buffer containing information about the
- available and used ‘~emacsclient’ executable(s), and can be useful
- when investigating why Magit (or rather ‘with-editor’) cannot find
- an appropriate ‘emacsclient’ executable.
-
- Also see *note (with-editor)Debugging::.
-
- Please also see the *note FAQ::.
-
-
-File: magit.info, Node: Keystroke Index, Next: Command Index, Prev: Debugging Tools, Up: Top
-
-Appendix C Keystroke Index
-**************************
-
-�[index�]
-* Menu:
-
-* !: Running Git Manually.
- (line 12)
-* ! !: Running Git Manually.
- (line 16)
-* ! a: Running Git Manually.
- (line 57)
-* ! b: Running Git Manually.
- (line 61)
-* ! g: Running Git Manually.
- (line 65)
-* ! k: Running Git Manually.
- (line 53)
-* ! p: Running Git Manually.
- (line 24)
-* ! s: Running Git Manually.
- (line 34)
-* ! S: Running Git Manually.
- (line 39)
-* $: Viewing Git Output. (line 16)
-* %: Worktree. (line 8)
-* % b: Worktree. (line 13)
-* % c: Worktree. (line 17)
-* % g: Worktree. (line 33)
-* % k: Worktree. (line 28)
-* % p: Worktree. (line 21)
-* +: Log Buffer. (line 59)
-* + <1>: Refreshing Diffs. (line 68)
-* -: Log Buffer. (line 63)
-* - <1>: Refreshing Diffs. (line 64)
-* 0: Refreshing Diffs. (line 72)
-* 1: Section Visibility. (line 26)
-* 2: Section Visibility. (line 27)
-* 3: Section Visibility. (line 28)
-* 4: Section Visibility. (line 29)
-* =: Log Buffer. (line 53)
-* ^: Section Movement. (line 31)
-* a: Applying. (line 33)
-* A: Cherry Picking. (line 8)
-* A A: Cherry Picking. (line 16)
-* A a: Cherry Picking. (line 23)
-* A A <1>: Cherry Picking. (line 89)
-* A a <1>: Cherry Picking. (line 97)
-* A d: Cherry Picking. (line 53)
-* A h: Cherry Picking. (line 41)
-* A n: Cherry Picking. (line 64)
-* A s: Cherry Picking. (line 75)
-* A s <1>: Cherry Picking. (line 93)
-* B: Bisecting. (line 8)
-* b: Blaming. (line 86)
-* b <1>: The Branch Popup. (line 12)
-* B B: Bisecting. (line 16)
-* B b: Bisecting. (line 31)
-* b b: The Branch Popup. (line 37)
-* b C: The Branch Popup. (line 29)
-* b c: The Branch Popup. (line 55)
-* B g: Bisecting. (line 36)
-* B k: Bisecting. (line 41)
-* b k: The Branch Popup. (line 240)
-* b l: The Branch Popup. (line 62)
-* b n: The Branch Popup. (line 45)
-* B r: Bisecting. (line 47)
-* b r: The Branch Popup. (line 246)
-* B s: Bisecting. (line 24)
-* b s: The Branch Popup. (line 85)
-* b x: The Branch Popup. (line 224)
-* b Y: The Branch Popup. (line 113)
-* b y: The Branch Popup. (line 218)
-* c: Blaming. (line 120)
-* c <1>: Initiating a Commit. (line 8)
-* c <2>: Editing Rebase Sequences.
- (line 72)
-* c a: Initiating a Commit. (line 18)
-* c A: Initiating a Commit. (line 66)
-* c c: Initiating a Commit. (line 13)
-* c e: Initiating a Commit. (line 22)
-* c f: Initiating a Commit. (line 42)
-* c F: Initiating a Commit. (line 50)
-* c s: Initiating a Commit. (line 54)
-* c S: Initiating a Commit. (line 62)
-* c w: Initiating a Commit. (line 32)
-* C-<return>: Diff Buffer. (line 48)
-* C-<tab>: Section Visibility. (line 13)
-* C-c C-a: Editing Commit Messages.
- (line 128)
-* C-c C-b: Log Buffer. (line 19)
-* C-c C-b <1>: Refreshing Diffs. (line 90)
-* C-c C-c: Popup Buffers and Prefix Commands.
- (line 20)
-* C-c C-c <1>: Select from Log. (line 20)
-* C-c C-c <2>: Editing Commit Messages.
- (line 19)
-* C-c C-c <3>: Editing Rebase Sequences.
- (line 6)
-* C-c C-d: Refreshing Diffs. (line 80)
-* C-c C-d <1>: Editing Commit Messages.
- (line 57)
-* C-c C-e: Diff Buffer. (line 80)
-* C-c C-f: Log Buffer. (line 23)
-* C-c C-f <1>: Refreshing Diffs. (line 94)
-* C-c C-i: Editing Commit Messages.
- (line 153)
-* C-c C-k: Select from Log. (line 26)
-* C-c C-k <1>: Editing Commit Messages.
- (line 24)
-* C-c C-k <2>: Editing Rebase Sequences.
- (line 11)
-* C-c C-n: Log Buffer. (line 27)
-* C-c C-o: Editing Commit Messages.
- (line 144)
-* C-c C-p: Editing Commit Messages.
- (line 148)
-* C-c C-r: Editing Commit Messages.
- (line 132)
-* C-c C-s: Editing Commit Messages.
- (line 136)
-* C-c C-t: Diff Buffer. (line 70)
-* C-c C-t <1>: Editing Commit Messages.
- (line 140)
-* C-c C-w: Editing Commit Messages.
- (line 63)
-* C-c M-g: Minor Mode for Buffers Visiting Files.
- (line 19)
-* C-c M-g B: Minor Mode for Buffers Visiting Files.
- (line 80)
-* C-c M-g b: Minor Mode for Buffers Visiting Files.
- (line 86)
-* C-c M-g c: Minor Mode for Buffers Visiting Files.
- (line 33)
-* C-c M-g D: Minor Mode for Buffers Visiting Files.
- (line 39)
-* C-c M-g d: Minor Mode for Buffers Visiting Files.
- (line 47)
-* C-c M-g e: Minor Mode for Buffers Visiting Files.
- (line 102)
-* C-c M-g f: Minor Mode for Buffers Visiting Files.
- (line 96)
-* C-c M-g L: Minor Mode for Buffers Visiting Files.
- (line 57)
-* C-c M-g l: Minor Mode for Buffers Visiting Files.
- (line 64)
-* C-c M-g p: Minor Mode for Buffers Visiting Files.
- (line 112)
-* C-c M-g r: Minor Mode for Buffers Visiting Files.
- (line 91)
-* C-c M-g s: Minor Mode for Buffers Visiting Files.
- (line 24)
-* C-c M-g t: Minor Mode for Buffers Visiting Files.
- (line 71)
-* C-c M-g u: Minor Mode for Buffers Visiting Files.
- (line 28)
-* C-c M-s: Editing Commit Messages.
- (line 35)
-* C-w: Common Commands. (line 21)
-* C-x g: Status Buffer. (line 22)
-* C-x u: Editing Rebase Sequences.
- (line 89)
-* d: Diffing. (line 20)
-* D: Refreshing Diffs. (line 11)
-* d c: Diffing. (line 67)
-* d d: Diffing. (line 25)
-* D f: Refreshing Diffs. (line 45)
-* D F: Refreshing Diffs. (line 50)
-* D g: Refreshing Diffs. (line 16)
-* d p: Diffing. (line 59)
-* d r: Diffing. (line 29)
-* D r: Refreshing Diffs. (line 40)
-* d s: Diffing. (line 49)
-* D s: Refreshing Diffs. (line 21)
-* d t: Diffing. (line 72)
-* D t: Refreshing Diffs. (line 36)
-* d u: Diffing. (line 55)
-* d w: Diffing. (line 43)
-* D w: Refreshing Diffs. (line 28)
-* DEL: Log Buffer. (line 43)
-* DEL <1>: Diff Buffer. (line 109)
-* DEL <2>: Blaming. (line 73)
-* DEL <3>: Editing Rebase Sequences.
- (line 28)
-* e: Ediffing. (line 9)
-* E: Ediffing. (line 21)
-* e <1>: Editing Rebase Sequences.
- (line 55)
-* E c: Ediffing. (line 65)
-* E i: Ediffing. (line 57)
-* E m: Ediffing. (line 35)
-* E r: Ediffing. (line 26)
-* E s: Ediffing. (line 48)
-* E u: Ediffing. (line 53)
-* E w: Ediffing. (line 61)
-* E z: Ediffing. (line 69)
-* f: Editing Rebase Sequences.
- (line 63)
-* f <1>: Fetching. (line 11)
-* F: Pulling. (line 11)
-* f a: Fetching. (line 38)
-* f e: Fetching. (line 24)
-* F e: Pulling. (line 24)
-* f m: Fetching. (line 42)
-* f o: Fetching. (line 28)
-* f p: Fetching. (line 16)
-* F p: Pulling. (line 16)
-* f r: Fetching. (line 33)
-* f u: Fetching. (line 20)
-* F u: Pulling. (line 20)
-* g: Automatic Refreshing of Magit Buffers.
- (line 22)
-* G: Automatic Refreshing of Magit Buffers.
- (line 31)
-* j: Diff Buffer. (line 99)
-* k: Viewing Git Output. (line 24)
-* k <1>: Applying. (line 40)
-* k <2>: Editing Rebase Sequences.
- (line 68)
-* k <3>: Stashing. (line 95)
-* l: Logging. (line 28)
-* L: Refreshing Logs. (line 11)
-* L <1>: Log Buffer. (line 6)
-* L <2>: Log Margin. (line 47)
-* l a: Logging. (line 58)
-* l b: Logging. (line 54)
-* L d: Log Margin. (line 64)
-* L g: Refreshing Logs. (line 16)
-* l h: Logging. (line 46)
-* l H: Reflog. (line 19)
-* l l: Logging. (line 33)
-* l L: Logging. (line 50)
-* L L: Log Margin. (line 56)
-* L l: Log Margin. (line 60)
-* l o: Logging. (line 39)
-* l O: Reflog. (line 15)
-* l r: Reflog. (line 11)
-* L s: Refreshing Logs. (line 21)
-* L t: Refreshing Logs. (line 36)
-* L w: Refreshing Logs. (line 28)
-* m: Merging. (line 9)
-* M: The Remote Popup. (line 13)
-* m a: Merging. (line 44)
-* m a <1>: Merging. (line 94)
-* M a: The Remote Popup. (line 35)
-* M C: The Remote Popup. (line 26)
-* m e: Merging. (line 30)
-* m i: Merging. (line 57)
-* M k: The Remote Popup. (line 50)
-* m m: Merging. (line 17)
-* m m <1>: Merging. (line 88)
-* m n: Merging. (line 37)
-* m p: Merging. (line 80)
-* M p: The Remote Popup. (line 54)
-* M P: The Remote Popup. (line 59)
-* M r: The Remote Popup. (line 40)
-* m s: Merging. (line 71)
-* M u: The Remote Popup. (line 45)
-* M-1: Section Visibility. (line 33)
-* M-2: Section Visibility. (line 34)
-* M-3: Section Visibility. (line 35)
-* M-4: Section Visibility. (line 36)
-* M-<tab>: Section Visibility. (line 17)
-* M-n: Section Movement. (line 26)
-* M-n <1>: Editing Commit Messages.
- (line 45)
-* M-n <2>: Editing Rebase Sequences.
- (line 47)
-* M-p: Section Movement. (line 20)
-* M-p <1>: Editing Commit Messages.
- (line 39)
-* M-p <2>: Editing Rebase Sequences.
- (line 43)
-* M-w: Blaming. (line 112)
-* M-w <1>: Common Commands. (line 10)
-* M-x magit-clone: Repository Setup. (line 16)
-* M-x magit-debug-git-executable: Git Executable. (line 45)
-* M-x magit-debug-git-executable <1>: Debugging Tools. (line 30)
-* M-x magit-describe-section-briefly: Section Types and Values.
- (line 13)
-* M-x magit-describe-section-briefly <1>: Matching Sections. (line 6)
-* M-x magit-emacs-Q-command: Debugging Tools. (line 16)
-* M-x magit-find-file: Visiting Blobs. (line 6)
-* M-x magit-find-file-other-window: Visiting Blobs. (line 11)
-* M-x magit-init: Repository Setup. (line 6)
-* M-x magit-reset-index: Staging and Unstaging.
- (line 87)
-* M-x magit-reverse-in-index: Staging and Unstaging.
- (line 62)
-* M-x magit-stage-file: Staging from File-Visiting Buffers.
- (line 10)
-* M-x magit-toggle-buffer-lock: Modes and Buffers. (line 17)
-* M-x magit-unstage-file: Staging from File-Visiting Buffers.
- (line 18)
-* M-x magit-version: Git Executable. (line 17)
-* M-x magit-version <1>: Debugging Tools. (line 10)
-* M-x magit-wip-commit: Wip Modes. (line 88)
-* M-x with-editor-debug: Debugging Tools. (line 38)
-* n: Section Movement. (line 16)
-* n <1>: Blaming. (line 91)
-* N: Blaming. (line 95)
-* n <2>: Editing Rebase Sequences.
- (line 39)
-* n <3>: Minor Mode for Buffers Visiting Blobs.
- (line 16)
-* o: Submodule Popup. (line 6)
-* O: Subtree. (line 8)
-* o a: Submodule Popup. (line 19)
-* O a: Subtree. (line 20)
-* O c: Subtree. (line 24)
-* o d: Submodule Popup. (line 49)
-* o f: Submodule Popup. (line 57)
-* O f: Subtree. (line 32)
-* o l: Submodule Popup. (line 53)
-* O m: Subtree. (line 28)
-* o p: Submodule Popup. (line 33)
-* O p: Subtree. (line 36)
-* o r: Submodule Popup. (line 26)
-* o s: Submodule Popup. (line 43)
-* O s: Subtree. (line 41)
-* o u: Submodule Popup. (line 38)
-* p: Section Movement. (line 10)
-* p <1>: Blaming. (line 99)
-* P: Blaming. (line 103)
-* p <2>: Editing Rebase Sequences.
- (line 35)
-* P <1>: Pushing. (line 11)
-* p <3>: Minor Mode for Buffers Visiting Blobs.
- (line 12)
-* P e: Pushing. (line 35)
-* P m: Pushing. (line 53)
-* P o: Pushing. (line 39)
-* P p: Pushing. (line 16)
-* P r: Pushing. (line 44)
-* P t: Pushing. (line 59)
-* P T: Pushing. (line 65)
-* P u: Pushing. (line 26)
-* q: Quitting Windows. (line 6)
-* q <1>: Log Buffer. (line 12)
-* q <2>: Blaming. (line 107)
-* q <3>: Minor Mode for Buffers Visiting Blobs.
- (line 20)
-* r: Rebasing. (line 9)
-* r <1>: Editing Rebase Sequences.
- (line 51)
-* r a: Rebasing. (line 107)
-* r e: Rebasing. (line 33)
-* r e <1>: Rebasing. (line 103)
-* r f: Rebasing. (line 73)
-* r i: Rebasing. (line 69)
-* r k: Rebasing. (line 85)
-* r m: Rebasing. (line 77)
-* r p: Rebasing. (line 24)
-* r r: Rebasing. (line 92)
-* r s: Rebasing. (line 39)
-* r s <1>: Rebasing. (line 99)
-* r u: Rebasing. (line 29)
-* r w: Rebasing. (line 81)
-* RET: Diff Buffer. (line 8)
-* RET <1>: References Buffer. (line 166)
-* RET <2>: Blaming. (line 59)
-* RET <3>: Editing Rebase Sequences.
- (line 16)
-* s: Staging and Unstaging.
- (line 28)
-* S: Staging and Unstaging.
- (line 36)
-* s <1>: Editing Rebase Sequences.
- (line 59)
-* S-<tab>: Section Visibility. (line 22)
-* SPC: Log Buffer. (line 33)
-* SPC <1>: Diff Buffer. (line 105)
-* SPC <2>: Blaming. (line 63)
-* SPC <3>: Editing Rebase Sequences.
- (line 21)
-* t: Tagging. (line 8)
-* T: Notes. (line 8)
-* T a: Notes. (line 51)
-* T c: Notes. (line 46)
-* t k: Tagging. (line 18)
-* T m: Notes. (line 37)
-* t p: Tagging. (line 24)
-* T p: Notes. (line 29)
-* T r: Notes. (line 21)
-* t t: Tagging. (line 13)
-* T T: Notes. (line 13)
-* TAB: Section Visibility. (line 9)
-* u: Staging and Unstaging.
- (line 43)
-* U: Staging and Unstaging.
- (line 52)
-* v: Applying. (line 44)
-* V: Reverting. (line 6)
-* V A: Reverting. (line 30)
-* V a: Reverting. (line 38)
-* V s: Reverting. (line 34)
-* V V: Reverting. (line 14)
-* V v: Reverting. (line 20)
-* W: Creating and Sending Patches.
- (line 6)
-* w: Applying Patches. (line 8)
-* w a: Applying Patches. (line 34)
-* w a <1>: Applying Patches. (line 42)
-* w a a: Applying Patches. (line 47)
-* w m: Applying Patches. (line 19)
-* W p: Creating and Sending Patches.
- (line 11)
-* W r: Creating and Sending Patches.
- (line 17)
-* w s: Applying Patches. (line 30)
-* w w: Applying Patches. (line 13)
-* w w <1>: Applying Patches. (line 26)
-* x: Editing Rebase Sequences.
- (line 76)
-* x <1>: Resetting. (line 8)
-* X f: Resetting. (line 44)
-* X h: Resetting. (line 26)
-* X i: Resetting. (line 31)
-* X m: Resetting. (line 15)
-* X s: Resetting. (line 20)
-* X w: Resetting. (line 38)
-* X w <1>: Wip Modes. (line 66)
-* Y: Cherries. (line 17)
-* y: References Buffer. (line 6)
-* y <1>: Editing Rebase Sequences.
- (line 85)
-* y c: References Buffer. (line 19)
-* y o: References Buffer. (line 24)
-* y y: References Buffer. (line 14)
-* z: Stashing. (line 8)
-* z a: Stashing. (line 58)
-* z b: Stashing. (line 80)
-* z B: Stashing. (line 85)
-* z f: Stashing. (line 91)
-* z i: Stashing. (line 20)
-* z I: Stashing. (line 46)
-* z k: Stashing. (line 71)
-* z l: Stashing. (line 99)
-* z p: Stashing. (line 64)
-* z v: Stashing. (line 76)
-* z w: Stashing. (line 25)
-* z W: Stashing. (line 51)
-* z x: Stashing. (line 32)
-* z z: Stashing. (line 13)
-* z Z: Stashing. (line 39)
-
-
-File: magit.info, Node: Command Index, Next: Function Index, Prev: Keystroke Index, Up: Top
-
-Appendix D Command Index
-************************
-
-�[index�]
-* Menu:
-
-* auto-revert-mode: Automatic Reverting of File-Visiting Buffers.
- (line 62)
-* forward-line: Editing Rebase Sequences.
- (line 39)
-* git-commit-ack: Editing Commit Messages.
- (line 128)
-* git-commit-cc: Editing Commit Messages.
- (line 144)
-* git-commit-next-message: Editing Commit Messages.
- (line 45)
-* git-commit-prev-message: Editing Commit Messages.
- (line 39)
-* git-commit-reported: Editing Commit Messages.
- (line 148)
-* git-commit-review: Editing Commit Messages.
- (line 132)
-* git-commit-save-message: Editing Commit Messages.
- (line 35)
-* git-commit-signoff: Editing Commit Messages.
- (line 136)
-* git-commit-suggested: Editing Commit Messages.
- (line 153)
-* git-commit-test: Editing Commit Messages.
- (line 140)
-* git-rebase-backward-line: Editing Rebase Sequences.
- (line 35)
-* git-rebase-edit: Editing Rebase Sequences.
- (line 55)
-* git-rebase-exec: Editing Rebase Sequences.
- (line 76)
-* git-rebase-fixup: Editing Rebase Sequences.
- (line 63)
-* git-rebase-insert: Editing Rebase Sequences.
- (line 85)
-* git-rebase-kill-line: Editing Rebase Sequences.
- (line 68)
-* git-rebase-move-line-down: Editing Rebase Sequences.
- (line 47)
-* git-rebase-move-line-up: Editing Rebase Sequences.
- (line 43)
-* git-rebase-pick: Editing Rebase Sequences.
- (line 72)
-* git-rebase-reword: Editing Rebase Sequences.
- (line 51)
-* git-rebase-show-commit: Editing Rebase Sequences.
- (line 16)
-* git-rebase-show-or-scroll-down: Editing Rebase Sequences.
- (line 28)
-* git-rebase-show-or-scroll-up: Editing Rebase Sequences.
- (line 21)
-* git-rebase-squash: Editing Rebase Sequences.
- (line 59)
-* git-rebase-undo: Editing Rebase Sequences.
- (line 89)
-* ido-enter-magit-status: Status Buffer. (line 47)
-* magit-am-abort: Applying Patches. (line 34)
-* magit-am-apply-maildir: Applying Patches. (line 19)
-* magit-am-apply-patches: Applying Patches. (line 13)
-* magit-am-continue: Applying Patches. (line 26)
-* magit-am-popup: Applying Patches. (line 8)
-* magit-am-skip: Applying Patches. (line 30)
-* magit-apply: Applying. (line 33)
-* magit-bisect-bad: Bisecting. (line 31)
-* magit-bisect-good: Bisecting. (line 36)
-* magit-bisect-popup: Bisecting. (line 8)
-* magit-bisect-reset: Bisecting. (line 47)
-* magit-bisect-run: Bisecting. (line 24)
-* magit-bisect-skip: Bisecting. (line 41)
-* magit-bisect-start: Bisecting. (line 16)
-* magit-blame-addition: Blaming. (line 17)
-* magit-blame-addition <1>: Minor Mode for Buffers Visiting Files.
- (line 86)
-* magit-blame-copy-hash: Blaming. (line 112)
-* magit-blame-cycle-style: Blaming. (line 120)
-* magit-blame-echo: Blaming. (line 32)
-* magit-blame-next-chunk: Blaming. (line 91)
-* magit-blame-next-chunk-same-commit: Blaming. (line 95)
-* magit-blame-popup: Blaming. (line 86)
-* magit-blame-popup <1>: Minor Mode for Buffers Visiting Files.
- (line 80)
-* magit-blame-previous-chunk: Blaming. (line 99)
-* magit-blame-previous-chunk-same-commit: Blaming. (line 103)
-* magit-blame-quit: Blaming. (line 107)
-* magit-blame-removal: Blaming. (line 38)
-* magit-blame-removal <1>: Minor Mode for Buffers Visiting Files.
- (line 91)
-* magit-blame-reverse: Blaming. (line 46)
-* magit-blame-reverse <1>: Minor Mode for Buffers Visiting Files.
- (line 96)
-* magit-blob-next: Minor Mode for Buffers Visiting Blobs.
- (line 16)
-* magit-blob-previous: Minor Mode for Buffers Visiting Files.
- (line 112)
-* magit-blob-previous <1>: Minor Mode for Buffers Visiting Blobs.
- (line 12)
-* magit-branch-and-checkout: The Branch Popup. (line 55)
-* magit-branch-checkout: The Branch Popup. (line 62)
-* magit-branch-config-popup: The Branch Popup. (line 29)
-* magit-branch-config-popup <1>: The Branch Config Popup.
- (line 6)
-* magit-branch-create: The Branch Popup. (line 45)
-* magit-branch-delete: The Branch Popup. (line 240)
-* magit-branch-or-checkout: The Branch Popup. (line 350)
-* magit-branch-orphan: The Branch Popup. (line 345)
-* magit-branch-popup: The Branch Popup. (line 12)
-* magit-branch-pull-request: The Branch Popup. (line 113)
-* magit-branch-rename: The Branch Popup. (line 246)
-* magit-branch-reset: The Branch Popup. (line 224)
-* magit-branch-shelve: Auxiliary Branch Commands.
- (line 8)
-* magit-branch-spinoff: The Branch Popup. (line 85)
-* magit-branch-unshelve: Auxiliary Branch Commands.
- (line 19)
-* magit-checkout: The Branch Popup. (line 37)
-* magit-checkout-pull-request: The Branch Popup. (line 218)
-* magit-cherry: Cherries. (line 17)
-* magit-cherry-apply: Cherry Picking. (line 23)
-* magit-cherry-copy: Cherry Picking. (line 16)
-* magit-cherry-donate: Cherry Picking. (line 53)
-* magit-cherry-harvest: Cherry Picking. (line 41)
-* magit-cherry-pick-popup: Cherry Picking. (line 8)
-* magit-cherry-spinoff: Cherry Picking. (line 75)
-* magit-cherry-spinout: Cherry Picking. (line 64)
-* magit-clone: Repository Setup. (line 16)
-* magit-commit-amend: Initiating a Commit. (line 18)
-* magit-commit-augment: Initiating a Commit. (line 66)
-* magit-commit-create: Initiating a Commit. (line 13)
-* magit-commit-extend: Initiating a Commit. (line 22)
-* magit-commit-fixup: Initiating a Commit. (line 42)
-* magit-commit-instant-fixup: Initiating a Commit. (line 50)
-* magit-commit-instant-squash: Initiating a Commit. (line 62)
-* magit-commit-popup: Initiating a Commit. (line 8)
-* magit-commit-popup <1>: Minor Mode for Buffers Visiting Files.
- (line 33)
-* magit-commit-reword: Initiating a Commit. (line 32)
-* magit-commit-squash: Initiating a Commit. (line 54)
-* magit-copy-buffer-revision: Common Commands. (line 21)
-* magit-copy-section-value: Common Commands. (line 10)
-* magit-cycle-margin-style: Log Margin. (line 60)
-* magit-debug-git-executable: Git Executable. (line 45)
-* magit-debug-git-executable <1>: Debugging Tools. (line 30)
-* magit-describe-section-briefly: Section Types and Values.
- (line 13)
-* magit-describe-section-briefly <1>: Matching Sections. (line 6)
-* magit-diff-buffer-file: Minor Mode for Buffers Visiting Files.
- (line 47)
-* magit-diff-buffer-file-popup: Minor Mode for Buffers Visiting Files.
- (line 39)
-* magit-diff-default-context: Refreshing Diffs. (line 72)
-* magit-diff-dwim: Diffing. (line 25)
-* magit-diff-edit-hunk-commit: Diff Buffer. (line 80)
-* magit-diff-flip-revs: Refreshing Diffs. (line 45)
-* magit-diff-less-context: Refreshing Diffs. (line 64)
-* magit-diff-more-context: Refreshing Diffs. (line 68)
-* magit-diff-paths: Diffing. (line 59)
-* magit-diff-popup: Diffing. (line 20)
-* magit-diff-range: Diffing. (line 29)
-* magit-diff-refresh: Refreshing Diffs. (line 16)
-* magit-diff-refresh-popup: Refreshing Diffs. (line 11)
-* magit-diff-save-default-arguments: Refreshing Diffs. (line 28)
-* magit-diff-set-default-arguments: Refreshing Diffs. (line 21)
-* magit-diff-show-or-scroll-down: Log Buffer. (line 43)
-* magit-diff-show-or-scroll-down <1>: Blaming. (line 73)
-* magit-diff-show-or-scroll-up: Log Buffer. (line 33)
-* magit-diff-show-or-scroll-up <1>: Blaming. (line 63)
-* magit-diff-staged: Diffing. (line 49)
-* magit-diff-switch-range-type: Refreshing Diffs. (line 40)
-* magit-diff-toggle-file-filter: Refreshing Diffs. (line 50)
-* magit-diff-toggle-refine-hunk: Refreshing Diffs. (line 36)
-* magit-diff-trace-definition: Diff Buffer. (line 70)
-* magit-diff-unstaged: Diffing. (line 55)
-* magit-diff-visit-file: Diff Buffer. (line 8)
-* magit-diff-visit-file-other-window: Diff Buffer. (line 65)
-* magit-diff-visit-file-worktree: Diff Buffer. (line 48)
-* magit-diff-while-committing: Refreshing Diffs. (line 80)
-* magit-diff-while-committing <1>: Editing Commit Messages.
- (line 57)
-* magit-diff-working-tree: Diffing. (line 43)
-* magit-discard: Applying. (line 40)
-* magit-dispatch-popup: Popup Buffers and Prefix Commands.
- (line 20)
-* magit-ediff-compare: Ediffing. (line 26)
-* magit-ediff-dwim: Ediffing. (line 9)
-* magit-ediff-popup: Ediffing. (line 21)
-* magit-ediff-resolve: Ediffing. (line 35)
-* magit-ediff-show-commit: Ediffing. (line 65)
-* magit-ediff-show-staged: Ediffing. (line 57)
-* magit-ediff-show-stash: Ediffing. (line 69)
-* magit-ediff-show-unstaged: Ediffing. (line 53)
-* magit-ediff-show-working-tree: Ediffing. (line 61)
-* magit-ediff-stage: Ediffing. (line 48)
-* magit-edit-line-commit: Minor Mode for Buffers Visiting Files.
- (line 102)
-* magit-emacs-Q-command: Debugging Tools. (line 16)
-* magit-fetch-all: Fetching. (line 38)
-* magit-fetch-branch: Fetching. (line 28)
-* magit-fetch-from-pushremote: Fetching. (line 16)
-* magit-fetch-from-upstream: Fetching. (line 20)
-* magit-fetch-modules: Submodule Popup. (line 57)
-* magit-fetch-other: Fetching. (line 24)
-* magit-fetch-popup: Fetching. (line 11)
-* magit-fetch-refspec: Fetching. (line 33)
-* magit-file-checkout: Resetting. (line 44)
-* magit-file-checkout <1>: Minor Mode for Buffers Visiting Files.
- (line 131)
-* magit-file-delete: Minor Mode for Buffers Visiting Files.
- (line 123)
-* magit-file-popup: Minor Mode for Buffers Visiting Files.
- (line 19)
-* magit-file-rename: Minor Mode for Buffers Visiting Files.
- (line 119)
-* magit-file-untrack: Minor Mode for Buffers Visiting Files.
- (line 127)
-* magit-find-file: Visiting Blobs. (line 6)
-* magit-find-file-other-window: Visiting Blobs. (line 11)
-* magit-format-patch: Creating and Sending Patches.
- (line 11)
-* magit-git-command: Running Git Manually.
- (line 24)
-* magit-git-command-topdir: Running Git Manually.
- (line 16)
-* magit-go-backward: Log Buffer. (line 19)
-* magit-go-backward <1>: Refreshing Diffs. (line 90)
-* magit-go-forward: Log Buffer. (line 23)
-* magit-go-forward <1>: Refreshing Diffs. (line 94)
-* magit-init: Repository Setup. (line 6)
-* magit-jump-to-diffstat-or-diff: Diff Buffer. (line 99)
-* magit-kill-this-buffer: Minor Mode for Buffers Visiting Blobs.
- (line 20)
-* magit-list-repositories: Repository List. (line 6)
-* magit-list-submodules: Listing Submodules. (line 13)
-* magit-list-submodules <1>: Submodule Popup. (line 53)
-* magit-log-all: Logging. (line 58)
-* magit-log-all-branches: Logging. (line 54)
-* magit-log-branches: Logging. (line 50)
-* magit-log-buffer-file: Minor Mode for Buffers Visiting Files.
- (line 64)
-* magit-log-buffer-file-popup: Minor Mode for Buffers Visiting Files.
- (line 57)
-* magit-log-bury-buffer: Log Buffer. (line 12)
-* magit-log-current: Logging. (line 33)
-* magit-log-double-commit-limit: Log Buffer. (line 59)
-* magit-log-half-commit-limit: Log Buffer. (line 63)
-* magit-log-head: Logging. (line 46)
-* magit-log-move-to-parent: Log Buffer. (line 27)
-* magit-log-other: Logging. (line 39)
-* magit-log-popup: Logging. (line 28)
-* magit-log-refresh: Refreshing Logs. (line 16)
-* magit-log-refresh-popup: Refreshing Logs. (line 11)
-* magit-log-refresh-popup <1>: Log Buffer. (line 6)
-* magit-log-save-default-arguments: Refreshing Logs. (line 28)
-* magit-log-select-pick: Select from Log. (line 20)
-* magit-log-select-quit: Select from Log. (line 26)
-* magit-log-set-default-arguments: Refreshing Logs. (line 21)
-* magit-log-toggle-commit-limit: Log Buffer. (line 53)
-* magit-log-trace-definition: Minor Mode for Buffers Visiting Files.
- (line 71)
-* magit-margin-popup: Log Margin. (line 47)
-* magit-merge: Merging. (line 88)
-* magit-merge-abort: Merging. (line 94)
-* magit-merge-absorb: Merging. (line 44)
-* magit-merge-editmsg: Merging. (line 30)
-* magit-merge-into: Merging. (line 57)
-* magit-merge-nocommit: Merging. (line 37)
-* magit-merge-plain: Merging. (line 17)
-* magit-merge-popup: Merging. (line 9)
-* magit-merge-preview: Merging. (line 80)
-* magit-merge-squash: Merging. (line 71)
-* magit-mode-bury-buffer: Quitting Windows. (line 6)
-* magit-notes-edit: Notes. (line 13)
-* magit-notes-merge: Notes. (line 37)
-* magit-notes-merge-abort: Notes. (line 51)
-* magit-notes-merge-commit: Notes. (line 46)
-* magit-notes-popup: Notes. (line 8)
-* magit-notes-prune: Notes. (line 29)
-* magit-notes-remove: Notes. (line 21)
-* magit-patch-apply: Applying Patches. (line 47)
-* magit-patch-apply-popup: Applying Patches. (line 42)
-* magit-patch-popup: Creating and Sending Patches.
- (line 6)
-* magit-pop-revision-stack: Editing Commit Messages.
- (line 63)
-* magit-process: Viewing Git Output. (line 16)
-* magit-process-kill: Viewing Git Output. (line 24)
-* magit-pull-branch: Pulling. (line 24)
-* magit-pull-from-pushremote: Pulling. (line 16)
-* magit-pull-from-upstream: Pulling. (line 20)
-* magit-pull-popup: Pulling. (line 11)
-* magit-push-current: Pushing. (line 35)
-* magit-push-current-to-pushremote: Pushing. (line 16)
-* magit-push-current-to-upstream: Pushing. (line 26)
-* magit-push-implicitly args: Pushing. (line 73)
-* magit-push-matching: Pushing. (line 53)
-* magit-push-other: Pushing. (line 39)
-* magit-push-popup: Pushing. (line 11)
-* magit-push-refspecs: Pushing. (line 44)
-* magit-push-tag: Pushing. (line 65)
-* magit-push-tags: Pushing. (line 59)
-* magit-push-to-remote remote args: Pushing. (line 84)
-* magit-rebase-abort: Rebasing. (line 107)
-* magit-rebase-autosquash: Rebasing. (line 73)
-* magit-rebase-branch: Rebasing. (line 33)
-* magit-rebase-continue: Rebasing. (line 92)
-* magit-rebase-edit: Rebasing. (line 103)
-* magit-rebase-edit-commit: Rebasing. (line 77)
-* magit-rebase-interactive: Rebasing. (line 69)
-* magit-rebase-onto-pushremote: Rebasing. (line 24)
-* magit-rebase-onto-upstream: Rebasing. (line 29)
-* magit-rebase-popup: Rebasing. (line 9)
-* magit-rebase-remove-commit: Rebasing. (line 85)
-* magit-rebase-reword-commit: Rebasing. (line 81)
-* magit-rebase-skip: Rebasing. (line 99)
-* magit-rebase-subset: Rebasing. (line 39)
-* magit-reflog-current: Reflog. (line 11)
-* magit-reflog-head: Reflog. (line 19)
-* magit-reflog-other: Reflog. (line 15)
-* magit-refresh: Automatic Refreshing of Magit Buffers.
- (line 22)
-* magit-refresh-all: Automatic Refreshing of Magit Buffers.
- (line 31)
-* magit-remote-add: The Remote Popup. (line 35)
-* magit-remote-config-popup: The Remote Popup. (line 26)
-* magit-remote-config-popup <1>: The Remote Config Popup.
- (line 6)
-* magit-remote-popup: The Remote Popup. (line 13)
-* magit-remote-prune: The Remote Popup. (line 54)
-* magit-remote-prune-refspecs: The Remote Popup. (line 59)
-* magit-remote-remove: The Remote Popup. (line 50)
-* magit-remote-rename: The Remote Popup. (line 40)
-* magit-remote-set-url: The Remote Popup. (line 45)
-* magit-request-pull: Creating and Sending Patches.
- (line 17)
-* magit-reset-hard: Resetting. (line 26)
-* magit-reset-index: Staging and Unstaging.
- (line 87)
-* magit-reset-index <1>: Resetting. (line 31)
-* magit-reset-mixed: Resetting. (line 15)
-* magit-reset-quickly: Resetting. (line 8)
-* magit-reset-soft: Resetting. (line 20)
-* magit-reset-worktree: Resetting. (line 38)
-* magit-reset-worktree <1>: Wip Modes. (line 66)
-* magit-reverse: Applying. (line 44)
-* magit-reverse-in-index: Staging and Unstaging.
- (line 62)
-* magit-revert-and-commit: Reverting. (line 14)
-* magit-revert-no-commit: Reverting. (line 20)
-* magit-revert-popup: Reverting. (line 6)
-* magit-run-git-gui: Running Git Manually.
- (line 65)
-* magit-run-gitk: Running Git Manually.
- (line 53)
-* magit-run-gitk-all: Running Git Manually.
- (line 57)
-* magit-run-gitk-branches: Running Git Manually.
- (line 61)
-* magit-run-popup: Running Git Manually.
- (line 12)
-* magit-section-backward: Section Movement. (line 10)
-* magit-section-backward-siblings: Section Movement. (line 20)
-* magit-section-cycle: Section Visibility. (line 13)
-* magit-section-cycle-diffs: Section Visibility. (line 17)
-* magit-section-cycle-global: Section Visibility. (line 22)
-* magit-section-forward: Section Movement. (line 16)
-* magit-section-forward-siblings: Section Movement. (line 26)
-* magit-section-hide: Section Visibility. (line 49)
-* magit-section-hide-children: Section Visibility. (line 64)
-* magit-section-show: Section Visibility. (line 45)
-* magit-section-show-children: Section Visibility. (line 58)
-* magit-section-show-headings: Section Visibility. (line 53)
-* magit-section-show-level-1: Section Visibility. (line 26)
-* magit-section-show-level-1-all: Section Visibility. (line 33)
-* magit-section-show-level-2: Section Visibility. (line 27)
-* magit-section-show-level-2-all: Section Visibility. (line 34)
-* magit-section-show-level-3: Section Visibility. (line 28)
-* magit-section-show-level-3-all: Section Visibility. (line 35)
-* magit-section-show-level-4: Section Visibility. (line 29)
-* magit-section-show-level-4-all: Section Visibility. (line 36)
-* magit-section-toggle: Section Visibility. (line 9)
-* magit-section-toggle-children: Section Visibility. (line 68)
-* magit-section-up: Section Movement. (line 31)
-* magit-sequence-abort: Cherry Picking. (line 97)
-* magit-sequence-abort <1>: Reverting. (line 38)
-* magit-sequence-continue: Cherry Picking. (line 89)
-* magit-sequence-continue <1>: Reverting. (line 30)
-* magit-sequence-skip: Cherry Picking. (line 93)
-* magit-sequence-skip <1>: Reverting. (line 34)
-* magit-shell-command: Running Git Manually.
- (line 39)
-* magit-shell-command-topdir: Running Git Manually.
- (line 34)
-* magit-show-commit: Diffing. (line 67)
-* magit-show-commit <1>: Blaming. (line 59)
-* magit-show-refs: References Buffer. (line 24)
-* magit-show-refs-current: References Buffer. (line 19)
-* magit-show-refs-head: References Buffer. (line 14)
-* magit-show-refs-popup: References Buffer. (line 6)
-* magit-snapshot-both: Stashing. (line 39)
-* magit-snapshot-index: Stashing. (line 46)
-* magit-snapshot-worktree: Stashing. (line 51)
-* magit-stage: Staging and Unstaging.
- (line 28)
-* magit-stage-file: Staging from File-Visiting Buffers.
- (line 10)
-* magit-stage-file <1>: Minor Mode for Buffers Visiting Files.
- (line 24)
-* magit-stage-modified: Staging and Unstaging.
- (line 36)
-* magit-stash-apply: Stashing. (line 58)
-* magit-stash-both: Stashing. (line 13)
-* magit-stash-branch: Stashing. (line 80)
-* magit-stash-branch-here: Stashing. (line 85)
-* magit-stash-clear: Stashing. (line 95)
-* magit-stash-drop: Stashing. (line 71)
-* magit-stash-format-patch: Stashing. (line 91)
-* magit-stash-index: Stashing. (line 20)
-* magit-stash-keep-index: Stashing. (line 32)
-* magit-stash-list: Stashing. (line 99)
-* magit-stash-pop: Stashing. (line 64)
-* magit-stash-popup: Stashing. (line 8)
-* magit-stash-show: Diffing. (line 72)
-* magit-stash-show <1>: Stashing. (line 76)
-* magit-stash-worktree: Stashing. (line 25)
-* magit-status: Status Buffer. (line 22)
-* magit-submodule-add: Submodule Popup. (line 19)
-* magit-submodule-fetch: Fetching. (line 42)
-* magit-submodule-populate: Submodule Popup. (line 33)
-* magit-submodule-popup: Submodule Popup. (line 6)
-* magit-submodule-register: Submodule Popup. (line 26)
-* magit-submodule-synchronize: Submodule Popup. (line 43)
-* magit-submodule-unpopulate: Submodule Popup. (line 49)
-* magit-submodule-update: Submodule Popup. (line 38)
-* magit-subtree-add: Subtree. (line 20)
-* magit-subtree-add-commit: Subtree. (line 24)
-* magit-subtree-merge: Subtree. (line 28)
-* magit-subtree-pull: Subtree. (line 32)
-* magit-subtree-push: Subtree. (line 36)
-* magit-subtree-split: Subtree. (line 41)
-* magit-tag-create: Tagging. (line 13)
-* magit-tag-delete: Tagging. (line 18)
-* magit-tag-popup: Tagging. (line 8)
-* magit-tag-prune: Tagging. (line 24)
-* magit-tag-release: Tagging. (line 28)
-* magit-toggle-buffer-lock: Modes and Buffers. (line 17)
-* magit-toggle-margin: Refreshing Logs. (line 36)
-* magit-toggle-margin <1>: Log Margin. (line 56)
-* magit-toggle-margin-details: Log Margin. (line 64)
-* magit-tree-popup: Subtree. (line 8)
-* magit-unstage: Staging and Unstaging.
- (line 43)
-* magit-unstage-all: Staging and Unstaging.
- (line 52)
-* magit-unstage-file: Staging from File-Visiting Buffers.
- (line 18)
-* magit-unstage-file <1>: Minor Mode for Buffers Visiting Files.
- (line 28)
-* magit-version: Git Executable. (line 17)
-* magit-version <1>: Debugging Tools. (line 10)
-* magit-visit-ref: References Buffer. (line 166)
-* magit-wip-commit: Wip Modes. (line 88)
-* magit-wip-log: Wip Modes. (line 48)
-* magit-wip-log-current: Wip Modes. (line 57)
-* magit-worktree-branch: Worktree. (line 17)
-* magit-worktree-checkout: Worktree. (line 13)
-* magit-worktree-checkout-pull-request: Worktree. (line 21)
-* magit-worktree-delete: Worktree. (line 28)
-* magit-worktree-popup: Worktree. (line 8)
-* magit-worktree-status: Worktree. (line 33)
-* scroll-down: Diff Buffer. (line 109)
-* scroll-up: Diff Buffer. (line 105)
-* with-editor-cancel: Editing Commit Messages.
- (line 24)
-* with-editor-cancel <1>: Editing Rebase Sequences.
- (line 11)
-* with-editor-debug: Debugging Tools. (line 38)
-* with-editor-finish: Editing Commit Messages.
- (line 19)
-* with-editor-finish <1>: Editing Rebase Sequences.
- (line 6)
-
-
-File: magit.info, Node: Function Index, Next: Variable Index, Prev: Command Index, Up: Top
-
-Appendix E Function Index
-*************************
-
-�[index�]
-* Menu:
-
-* auto-revert-mode: Automatic Reverting of File-Visiting Buffers.
- (line 62)
-* git-commit-check-style-conventions: Editing Commit Messages.
- (line 247)
-* git-commit-propertize-diff: Editing Commit Messages.
- (line 206)
-* git-commit-save-message: Editing Commit Messages.
- (line 187)
-* git-commit-setup-changelog-support: Editing Commit Messages.
- (line 191)
-* git-commit-turn-on-auto-fill: Editing Commit Messages.
- (line 196)
-* git-commit-turn-on-flyspell: Editing Commit Messages.
- (line 201)
-* ido-enter-magit-status: Status Buffer. (line 47)
-* magit-add-section-hook: Section Hooks. (line 20)
-* magit-after-save-refresh-status: Automatic Refreshing of Magit Buffers.
- (line 56)
-* magit-blame-addition: Blaming. (line 17)
-* magit-blame-echo: Blaming. (line 32)
-* magit-blame-removal: Blaming. (line 38)
-* magit-blame-reverse: Blaming. (line 46)
-* magit-branch-config-popup: The Branch Config Popup.
- (line 6)
-* magit-branch-or-checkout: The Branch Popup. (line 350)
-* magit-branch-orphan: The Branch Popup. (line 345)
-* magit-branch-shelve: Auxiliary Branch Commands.
- (line 8)
-* magit-branch-unshelve: Auxiliary Branch Commands.
- (line 19)
-* magit-builtin-completing-read: Support for Completion Frameworks.
- (line 42)
-* magit-call-git: Calling Git for Effect.
- (line 28)
-* magit-call-process: Calling Git for Effect.
- (line 32)
-* magit-cancel-section: Creating Sections. (line 71)
-* magit-completing-read: Support for Completion Frameworks.
- (line 60)
-* magit-current-section: Section Selection. (line 6)
-* magit-define-section-jumper: Creating Sections. (line 77)
-* magit-diff-scope: Matching Sections. (line 118)
-* magit-diff-type: Matching Sections. (line 95)
-* magit-diff-visit-file-other-window: Diff Buffer. (line 65)
-* magit-display-buffer: Switching Buffers. (line 6)
-* magit-display-buffer-fullcolumn-most-v1: Switching Buffers. (line 72)
-* magit-display-buffer-fullframe-status-topleft-v1: Switching Buffers.
- (line 62)
-* magit-display-buffer-fullframe-status-v1: Switching Buffers.
- (line 56)
-* magit-display-buffer-same-window-except-diff-v1: Switching Buffers.
- (line 50)
-* magit-display-buffer-traditional: Switching Buffers. (line 42)
-* magit-file-checkout: Minor Mode for Buffers Visiting Files.
- (line 131)
-* magit-file-delete: Minor Mode for Buffers Visiting Files.
- (line 123)
-* magit-file-rename: Minor Mode for Buffers Visiting Files.
- (line 119)
-* magit-file-untrack: Minor Mode for Buffers Visiting Files.
- (line 127)
-* magit-generate-buffer-name-default-function: Naming Buffers.
- (line 17)
-* magit-get-section: Matching Sections. (line 16)
-* magit-git: Calling Git for Effect.
- (line 65)
-* magit-git-exit-code: Getting a Value from Git.
- (line 10)
-* magit-git-failure: Getting a Value from Git.
- (line 19)
-* magit-git-false: Getting a Value from Git.
- (line 29)
-* magit-git-insert: Getting a Value from Git.
- (line 34)
-* magit-git-items: Getting a Value from Git.
- (line 49)
-* magit-git-lines: Getting a Value from Git.
- (line 44)
-* magit-git-str: Getting a Value from Git.
- (line 72)
-* magit-git-string: Getting a Value from Git.
- (line 38)
-* magit-git-success: Getting a Value from Git.
- (line 14)
-* magit-git-true: Getting a Value from Git.
- (line 24)
-* magit-git-wash: Calling Git for Effect.
- (line 70)
-* magit-hunk-set-window-start: Section Movement. (line 43)
-* magit-ido-completing-read: Support for Completion Frameworks.
- (line 48)
-* magit-insert-am-sequence: Status Sections. (line 28)
-* magit-insert-bisect-log: Status Sections. (line 46)
-* magit-insert-bisect-output: Status Sections. (line 38)
-* magit-insert-bisect-rest: Status Sections. (line 42)
-* magit-insert-diff-filter-header: Status Header Sections.
- (line 38)
-* magit-insert-error-header: Status Header Sections.
- (line 28)
-* magit-insert-head-branch-header: Status Header Sections.
- (line 42)
-* magit-insert-heading: Creating Sections. (line 42)
-* magit-insert-ignored-files: Status Sections. (line 100)
-* magit-insert-local-branches: References Sections. (line 17)
-* magit-insert-merge-log: Status Sections. (line 18)
-* magit-insert-modules: Status Module Sections.
- (line 12)
-* magit-insert-modules-overview: Status Module Sections.
- (line 33)
-* magit-insert-modules-unpulled-from-pushremote: Status Module Sections.
- (line 50)
-* magit-insert-modules-unpulled-from-upstream: Status Module Sections.
- (line 44)
-* magit-insert-modules-unpushed-to-pushremote: Status Module Sections.
- (line 62)
-* magit-insert-modules-unpushed-to-upstream: Status Module Sections.
- (line 56)
-* magit-insert-push-branch-header: Status Header Sections.
- (line 51)
-* magit-insert-rebase-sequence: Status Sections. (line 23)
-* magit-insert-recent-commits: Status Sections. (line 115)
-* magit-insert-remote-branches: References Sections. (line 21)
-* magit-insert-remote-header: Status Header Sections.
- (line 67)
-* magit-insert-repo-header: Status Header Sections.
- (line 63)
-* magit-insert-section: Creating Sections. (line 6)
-* magit-insert-sequencer-sequence: Status Sections. (line 33)
-* magit-insert-staged-changes: Status Sections. (line 63)
-* magit-insert-stashes: Status Sections. (line 67)
-* magit-insert-status-headers: Status Header Sections.
- (line 12)
-* magit-insert-submodules: Listing Submodules. (line 35)
-* magit-insert-tags: References Sections. (line 25)
-* magit-insert-tags-header: Status Header Sections.
- (line 56)
-* magit-insert-tracked-files: Status Sections. (line 96)
-* magit-insert-unpulled-cherries: Status Sections. (line 126)
-* magit-insert-unpulled-from-pushremote: Status Sections. (line 79)
-* magit-insert-unpulled-from-upstream: Status Sections. (line 74)
-* magit-insert-unpulled-or-recent-commits: Status Sections. (line 108)
-* magit-insert-unpushed-cherries: Status Sections. (line 133)
-* magit-insert-unpushed-to-pushremote: Status Sections. (line 89)
-* magit-insert-unpushed-to-upstream: Status Sections. (line 84)
-* magit-insert-unstaged-changes: Status Sections. (line 59)
-* magit-insert-untracked-files: Status Sections. (line 50)
-* magit-insert-upstream-branch-header: Status Header Sections.
- (line 46)
-* magit-insert-user-header: Status Header Sections.
- (line 75)
-* magit-list-repositories: Repository List. (line 6)
-* magit-list-submodules: Listing Submodules. (line 13)
-* magit-log-maybe-show-more-commits: Section Movement. (line 57)
-* magit-log-maybe-update-blob-buffer: Section Movement. (line 71)
-* magit-log-maybe-update-revision-buffer: Section Movement. (line 64)
-* magit-maybe-set-dedicated: Switching Buffers. (line 97)
-* magit-mode-display-buffer: Refreshing Buffers. (line 33)
-* magit-mode-quit-window: Quitting Windows. (line 31)
-* magit-mode-setup: Refreshing Buffers. (line 17)
-* magit-push-implicitly: Pushing. (line 73)
-* magit-push-to-remote: Pushing. (line 84)
-* magit-region-sections: Section Selection. (line 10)
-* magit-region-values: Section Selection. (line 37)
-* magit-remote-config-popup: The Remote Config Popup.
- (line 6)
-* magit-repolist-column-ident: Repository List. (line 30)
-* magit-repolist-column-path: Repository List. (line 35)
-* magit-repolist-column-unpulled-from-pushremote: Repository List.
- (line 49)
-* magit-repolist-column-unpulled-from-upstream: Repository List.
- (line 44)
-* magit-repolist-column-unpushed-to-pushremote: Repository List.
- (line 59)
-* magit-repolist-column-unpushed-to-upstream: Repository List.
- (line 54)
-* magit-repolist-column-version: Repository List. (line 39)
-* magit-restore-window-configuration: Quitting Windows. (line 20)
-* magit-revert-buffers: Editing Commit Messages.
- (line 178)
-* magit-run-git: Calling Git for Effect.
- (line 36)
-* magit-run-git-async: Calling Git for Effect.
- (line 80)
-* magit-run-git-with-editor: Calling Git for Effect.
- (line 93)
-* magit-run-git-with-input: Calling Git for Effect.
- (line 40)
-* magit-run-git-with-logfile: Calling Git for Effect.
- (line 56)
-* magit-save-window-configuration: Switching Buffers. (line 86)
-* magit-section-case: Matching Sections. (line 71)
-* magit-section-hide: Section Visibility. (line 49)
-* magit-section-hide-children: Section Visibility. (line 64)
-* magit-section-ident: Matching Sections. (line 11)
-* magit-section-match: Matching Sections. (line 21)
-* magit-section-set-window-start: Section Movement. (line 50)
-* magit-section-show: Section Visibility. (line 45)
-* magit-section-show-children: Section Visibility. (line 58)
-* magit-section-show-headings: Section Visibility. (line 53)
-* magit-section-toggle-children: Section Visibility. (line 68)
-* magit-section-value-if: Matching Sections. (line 61)
-* magit-start-git: Calling Git for Effect.
- (line 105)
-* magit-start-process: Calling Git for Effect.
- (line 124)
-* magit-status-maybe-update-blob-buffer: Section Movement. (line 83)
-* magit-status-maybe-update-revision-buffer: Section Movement.
- (line 77)
-* magit-tag-release: Tagging. (line 28)
-* magit-wip-log: Wip Modes. (line 48)
-* magit-wip-log-current: Wip Modes. (line 57)
-* with-editor-usage-message: Editing Commit Messages.
- (line 215)
-
-
-File: magit.info, Node: Variable Index, Prev: Function Index, Up: Top
-
-Appendix F Variable Index
-*************************
-
-�[index�]
-* Menu:
-
-* auto-revert-buffer-list-filter: Automatic Reverting of File-Visiting Buffers.
- (line 81)
-* auto-revert-interval: Automatic Reverting of File-Visiting Buffers.
- (line 76)
-* auto-revert-stop-on-user-input: Automatic Reverting of File-Visiting Buffers.
- (line 71)
-* auto-revert-use-notify: Automatic Reverting of File-Visiting Buffers.
- (line 49)
-* auto-revert-verbose: Automatic Reverting of File-Visiting Buffers.
- (line 103)
-* branch.autoSetupMerge: The Branch Config Popup.
- (line 94)
-* branch.autoSetupRebase: The Branch Config Popup.
- (line 111)
-* branch.NAME.description: The Branch Config Popup.
- (line 61)
-* branch.NAME.merge: The Branch Config Popup.
- (line 23)
-* branch.NAME.pushRemote: The Branch Config Popup.
- (line 47)
-* branch.NAME.rebase: The Branch Config Popup.
- (line 35)
-* branch.NAME.remote: The Branch Config Popup.
- (line 29)
-* core.notesRef: Notes. (line 59)
-* git-commit-fill-column: Editing Commit Messages.
- (line 228)
-* git-commit-finish-query-functions: Editing Commit Messages.
- (line 233)
-* git-commit-known-pseudo-headers: Editing Commit Messages.
- (line 124)
-* git-commit-major-mode: Editing Commit Messages.
- (line 163)
-* git-commit-setup-hook: Editing Commit Messages.
- (line 174)
-* git-commit-summary-max-length: Editing Commit Messages.
- (line 222)
-* git-rebase-auto-advance: Editing Rebase Sequences.
- (line 94)
-* git-rebase-confirm-cancel: Editing Rebase Sequences.
- (line 102)
-* git-rebase-show-instructions: Editing Rebase Sequences.
- (line 98)
-* global-auto-revert-mode: Automatic Reverting of File-Visiting Buffers.
- (line 22)
-* magit-auto-revert-immediately: Automatic Reverting of File-Visiting Buffers.
- (line 32)
-* magit-auto-revert-mode: Automatic Reverting of File-Visiting Buffers.
- (line 17)
-* magit-auto-revert-tracked-only: Automatic Reverting of File-Visiting Buffers.
- (line 55)
-* magit-bisect-show-graph: Bisecting. (line 55)
-* magit-blame-disable-modes: Blaming. (line 150)
-* magit-blame-echo-style: Blaming. (line 133)
-* magit-blame-goto-chunk-hook: Blaming. (line 156)
-* magit-blame-read-only: Blaming. (line 145)
-* magit-blame-styles: Blaming. (line 128)
-* magit-blame-time-format: Blaming. (line 140)
-* magit-branch-adjust-remote-upstream-alist: The Branch Popup.
- (line 303)
-* magit-branch-popup-show-variables: The Branch Popup. (line 21)
-* magit-branch-prefer-remote-upstream: The Branch Popup. (line 258)
-* magit-branch-read-upstream-first: The Branch Popup. (line 252)
-* magit-buffer-name-format: Naming Buffers. (line 27)
-* magit-bury-buffer-function: Quitting Windows. (line 11)
-* magit-cherry-margin: Cherries. (line 22)
-* magit-clone-set-remote.pushDefault: Repository Setup. (line 23)
-* magit-commit-ask-to-stage: Initiating a Commit. (line 74)
-* magit-commit-extend-override-date: Initiating a Commit. (line 79)
-* magit-commit-reword-override-date: Initiating a Commit. (line 83)
-* magit-commit-squash-confirm: Initiating a Commit. (line 87)
-* magit-completing-read-function: Support for Completion Frameworks.
- (line 27)
-* magit-diff-adjust-tab-width: Diff Options. (line 16)
-* magit-diff-buffer-file-locked: Minor Mode for Buffers Visiting Files.
- (line 52)
-* magit-diff-hide-trailing-cr-characters: Diff Options. (line 67)
-* magit-diff-highlight-hunk-region-functions: Diff Options. (line 71)
-* magit-diff-highlight-indentation: Diff Options. (line 52)
-* magit-diff-highlight-trailing: Diff Options. (line 47)
-* magit-diff-paint-whitespace: Diff Options. (line 38)
-* magit-diff-refine-hunk: Diff Options. (line 6)
-* magit-diff-unmarked-lines-keep-foreground: Diff Options. (line 97)
-* magit-diff-visit-previous-blob: Diff Buffer. (line 37)
-* magit-display-buffer-function: Switching Buffers. (line 23)
-* magit-display-buffer-noselect: Switching Buffers. (line 14)
-* magit-dwim-selection: Completion and Confirmation.
- (line 42)
-* magit-ediff-dwim-show-on-hunks: Ediffing. (line 73)
-* magit-ediff-quit-hook: Ediffing. (line 88)
-* magit-ediff-show-stash-with-index: Ediffing. (line 81)
-* magit-file-mode: Minor Mode for Buffers Visiting Files.
- (line 11)
-* magit-generate-buffer-name-function: Naming Buffers. (line 6)
-* magit-git-debug: Viewing Git Output. (line 28)
-* magit-git-debug <1>: Getting a Value from Git.
- (line 64)
-* magit-git-executable: Git Executable. (line 39)
-* magit-git-global-arguments: Global Git Arguments.
- (line 6)
-* magit-keep-region-overlay: The Selection. (line 52)
-* magit-list-refs-sortby: Additional Completion Options.
- (line 6)
-* magit-log-auto-more: Log Buffer. (line 67)
-* magit-log-buffer-file-locked: Minor Mode for Buffers Visiting Files.
- (line 75)
-* magit-log-margin: Log Margin. (line 12)
-* magit-log-section-args: Status Options. (line 36)
-* magit-log-section-commit-count: Status Sections. (line 120)
-* magit-log-select-margin: Select from Log. (line 30)
-* magit-log-show-refname-after-summary: Log Buffer. (line 73)
-* magit-log-trace-definition-function: Diff Buffer. (line 74)
-* magit-module-sections-hook: Status Module Sections.
- (line 20)
-* magit-module-sections-nested: Status Module Sections.
- (line 24)
-* magit-no-confirm: Action Confirmation. (line 18)
-* magit-pop-revision-stack-format: Editing Commit Messages.
- (line 92)
-* magit-post-display-buffer-hook: Switching Buffers. (line 92)
-* magit-pre-display-buffer-hook: Switching Buffers. (line 81)
-* magit-prefer-remote-upstream: The Branch Config Popup.
- (line 139)
-* magit-process-raise-error: Calling Git for Effect.
- (line 151)
-* magit-push-current-set-remote-if-missing: Pushing. (line 96)
-* magit-reflog-margin: Reflog. (line 23)
-* magit-refresh-args: Refreshing Buffers. (line 55)
-* magit-refresh-buffer-hook: Automatic Refreshing of Magit Buffers.
- (line 40)
-* magit-refresh-function: Refreshing Buffers. (line 49)
-* magit-refresh-status-buffer: Automatic Refreshing of Magit Buffers.
- (line 46)
-* magit-refs-filter-alist: References Buffer. (line 149)
-* magit-refs-focus-column-width: References Buffer. (line 74)
-* magit-refs-margin: References Buffer. (line 89)
-* magit-refs-margin-for-tags: References Buffer. (line 115)
-* magit-refs-pad-commit-counts: References Buffer. (line 41)
-* magit-refs-primary-column-width: References Buffer. (line 61)
-* magit-refs-sections-hook: References Sections. (line 13)
-* magit-refs-show-commit-count: References Buffer. (line 29)
-* magit-refs-show-remote-prefix: References Buffer. (line 54)
-* magit-remote-add-set-remote.pushDefault: The Remote Popup. (line 77)
-* magit-remote-popup-show-variables: The Remote Popup. (line 18)
-* magit-repolist-columns: Repository List. (line 14)
-* magit-repository-directories: Status Buffer. (line 30)
-* magit-repository-directories-depth: Status Buffer. (line 40)
-* magit-revision-insert-related-refs: Revision Buffer. (line 6)
-* magit-revision-show-gravatars: Revision Buffer. (line 19)
-* magit-revision-use-hash-sections: Revision Buffer. (line 36)
-* magit-root-section: Matching Sections. (line 87)
-* magit-save-repository-buffers: Automatic Saving of File-Visiting Buffers.
- (line 13)
-* magit-section-cache-visibility: Section Visibility. (line 95)
-* magit-section-initial-visibility-alist: Section Visibility. (line 78)
-* magit-section-movement-hook: Section Movement. (line 38)
-* magit-section-set-visibility-hook: Section Visibility. (line 106)
-* magit-section-show-child-count: Section Options. (line 9)
-* magit-shell-command-verbose-prompt: Running Git Manually.
- (line 46)
-* magit-stashes-margin: Stashing. (line 103)
-* magit-status-headers-hook: Status Header Sections.
- (line 18)
-* magit-status-margin: Status Options. (line 10)
-* magit-status-refresh-hook: Status Options. (line 6)
-* magit-status-sections-hook: Status Sections. (line 10)
-* magit-submodule-list-columns: Listing Submodules. (line 21)
-* magit-this-process: Calling Git for Effect.
- (line 146)
-* magit-uniquify-buffer-names: Naming Buffers. (line 74)
-* magit-unstage-committed: Staging and Unstaging.
- (line 56)
-* magit-update-other-window-delay: Section Movement. (line 89)
-* magit-use-sticky-arguments: Popup Buffers and Prefix Commands.
- (line 36)
-* magit-visit-ref-behavior: References Buffer. (line 177)
-* magit-wip-after-apply-mode: Legacy Wip Modes. (line 19)
-* magit-wip-after-apply-mode-lighter: Legacy Wip Modes. (line 59)
-* magit-wip-after-save-local-mode-lighter: Legacy Wip Modes. (line 55)
-* magit-wip-after-save-mode: Legacy Wip Modes. (line 13)
-* magit-wip-before-change-mode: Legacy Wip Modes. (line 33)
-* magit-wip-before-change-mode-lighter: Legacy Wip Modes. (line 63)
-* magit-wip-initial-backup-mode: Legacy Wip Modes. (line 38)
-* magit-wip-initial-backup-mode-lighter: Legacy Wip Modes. (line 67)
-* magit-wip-merge-branch: Wip Graph. (line 6)
-* magit-wip-mode: Wip Modes. (line 30)
-* magit-wip-mode-lighter: Wip Modes. (line 104)
-* magit-wip-namespace: Wip Modes. (line 96)
-* notes.displayRef: Notes. (line 64)
-* pull.rebase: The Branch Config Popup.
- (line 70)
-* remote.NAME.fetch: The Remote Config Popup.
- (line 25)
-* remote.NAME.push: The Remote Config Popup.
- (line 36)
-* remote.NAME.pushurl: The Remote Config Popup.
- (line 30)
-* remote.NAME.tagOpts: The Remote Config Popup.
- (line 41)
-* remote.NAME.url: The Remote Config Popup.
- (line 20)
-* remote.pushDefault: The Branch Config Popup.
- (line 84)
-
diff --git a/elpa/magit-popup-20181003.921/dir b/elpa/magit-popup-20181003.921/dir
deleted file mode 100644
index ecec7cb..0000000
--- a/elpa/magit-popup-20181003.921/dir
+++ /dev/null
@@ -1,18 +0,0 @@
-This is the file .../info/dir, which contains the
-topmost node of the Info hierarchy, called (dir)Top.
-The first time you invoke Info you start off looking at this node.
-
-File: dir, Node: Top This is the top of the INFO tree
-
- This (the Directory node) gives a menu of major topics.
- Typing "q" exits, "H" lists all Info commands, "d" returns here,
- "h" gives a primer for first-timers,
- "mEmacs<Return>" visits the Emacs manual, etc.
-
- In Emacs, you can click mouse button 2 on a menu item or cross reference
- to select it.
-
-* Menu:
-
-Emacs
-* Magit-Popup: (magit-popup). Infix arguments with feedback.
diff --git a/elpa/magit-popup-20181003.921/magit-popup-autoloads.el b/elpa/magit-popup-20181003.921/magit-popup-autoloads.el
deleted file mode 100644
index e6e027b..0000000
--- a/elpa/magit-popup-20181003.921/magit-popup-autoloads.el
+++ /dev/null
@@ -1,26 +0,0 @@
-;;; magit-popup-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "magit-popup" "magit-popup.el" (0 0 0 0))
-;;; Generated autoloads from magit-popup.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "magit-popup" '("magit-")))
-
-;;;***
-
-;;;### (autoloads nil nil ("magit-popup-pkg.el") (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; magit-popup-autoloads.el ends here
diff --git a/elpa/magit-popup-20181003.921/magit-popup-pkg.el b/elpa/magit-popup-20181003.921/magit-popup-pkg.el
deleted file mode 100644
index dc89d65..0000000
--- a/elpa/magit-popup-20181003.921/magit-popup-pkg.el
+++ /dev/null
@@ -1,14 +0,0 @@
-(define-package "magit-popup" "20181003.921" "Define prefix-infix-suffix command combos"
- '((emacs "24.4")
- (async "1.9.2")
- (dash "2.13.0"))
- :keywords
- '("bindings")
- :authors
- '(("Jonas Bernoulli" . "jonas@bernoul.li"))
- :maintainer
- '("Jonas Bernoulli" . "jonas@bernoul.li")
- :url "https://github.com/magit/magit-popup")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/elpa/magit-popup-20181003.921/magit-popup.el b/elpa/magit-popup-20181003.921/magit-popup.el
deleted file mode 100644
index c5bed88..0000000
--- a/elpa/magit-popup-20181003.921/magit-popup.el
+++ /dev/null
@@ -1,1372 +0,0 @@
-;;; magit-popup.el --- Define prefix-infix-suffix command combos -*- lexical-binding: t -*-
-
-;; Copyright (C) 2010-2018 The Magit Project Contributors
-;;
-;; You should have received a copy of the AUTHORS.md file which
-;; lists all contributors. If not, see http://magit.vc/authors.
-
-;; This library was inspired by and replaces library `magit-key-mode',
-;; which was written by Phil Jackson <phil@shellarchive.co.uk> and is
-;; distributed under the GNU General Public License version 3 or later.
-
-;; Author: Jonas Bernoulli <jonas@bernoul.li>
-;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
-
-;; Package-Requires: ((emacs "24.4") (async "1.9.2") (dash "2.13.0"))
-;; Keywords: bindings
-;; Homepage: https://github.com/magit/magit-popup
-
-;; Magit-Popup is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit-Popup 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 Magit-Popup. If not, see http://www.gnu.org/licenses.
-
-;;; Commentary:
-
-;; This package implements a generic interface for toggling switches
-;; and setting options and then invoking an Emacs command which does
-;; something with these arguments. The prototypical use is for the
-;; command to call an external process, passing on the arguments as
-;; command line arguments. But this is only one of many possible
-;; uses (though the one this library is optimized for).
-
-;; With the Emacs concept of "prefix arguments" in mind this could be
-;; described as "infix arguments with feedback in a buffer".
-
-;; Commands that set the prefix argument for the subsequent command do
-;; not limit what that next command could be. But entering a command
-;; console popup does limit the selection to the commands defined for
-;; that popup, and so we use the term "infix" instead of "prefix".
-
-;;; Code:
-
-(require 'button)
-(require 'cl-lib)
-(require 'dash)
-(require 'format-spec)
-(eval-when-compile (require 'subr-x))
-
-(and (require 'async-bytecomp nil t)
- (cl-intersection '(all magit)
- (bound-and-true-p async-bytecomp-allowed-packages))
- (fboundp 'async-bytecomp-package-mode)
- (async-bytecomp-package-mode 1))
-
-(declare-function info 'info)
-(declare-function Man-find-section 'man)
-(declare-function Man-next-section 'man)
-
-;; For branch actions.
-(declare-function magit-branch-set-face 'magit-git)
-
-;;; Settings
-;;;; Custom Groups
-
-(defgroup magit-popup nil
- "Infix arguments with a popup as feedback."
- :link '(info-link "(magit-popup)")
- :group 'bindings)
-
-(defgroup magit-popup-faces nil
- "Faces used by Magit-Popup."
- :group 'magit-popup)
-
-;;;; Custom Options
-
-(defcustom magit-popup-display-buffer-action '((display-buffer-below-selected))
- "The action used to display a popup buffer.
-
-Popup buffers are displayed using `display-buffer' with the value
-of this option as ACTION argument. You can also set this to nil
-and instead add an entry to `display-buffer-alist'."
- :package-version '(magit-popup . "2.4.0")
- :group 'magit-popup
- :type 'sexp)
-
-(defcustom magit-popup-manpage-package
- (if (memq system-type '(windows-nt ms-dos)) 'woman 'man)
- "The package used to display manpages.
-One of `man' or `woman'."
- :group 'magit-popup
- :type '(choice (const man) (const woman)))
-
-(defcustom magit-popup-show-help-echo t
- "Show usage information in the echo area."
- :group 'magit-popup
- :type 'boolean)
-
-(defcustom magit-popup-show-common-commands nil
- "Whether to initially show section with commands common to all popups.
-This section can also be toggled temporarily using \
-\\<magit-popup-mode-map>\\[magit-popup-toggle-show-common-commands]."
- :package-version '(magit-popup . "2.9.0")
- :group 'magit-popup
- :type 'boolean)
-
-(defcustom magit-popup-use-prefix-argument 'default
- "Control how prefix arguments affect infix argument popups.
-
-This option controls the effect that the use of a prefix argument
-before entering a popup has.
-
-`default' With a prefix argument directly invoke the popup's
- default action (an Emacs command), instead of bringing
- up the popup.
-
-`popup' With a prefix argument bring up the popup, otherwise
- directly invoke the popup's default action.
-
-`nil' Ignore prefix arguments."
- :group 'magit-popup
- :type '(choice
- (const :tag "Call default action instead of showing popup" default)
- (const :tag "Show popup instead of calling default action" popup)
- (const :tag "Ignore prefix argument" nil)))
-
-;;;; Custom Faces
-
-(defface magit-popup-heading
- '((t :inherit font-lock-keyword-face))
- "Face for key mode header lines."
- :group 'magit-popup-faces)
-
-(defface magit-popup-key
- '((t :inherit font-lock-builtin-face))
- "Face for key mode buttons."
- :group 'magit-popup-faces)
-
-(defface magit-popup-argument
- '((t :inherit font-lock-warning-face))
- "Face used to display enabled arguments in popups."
- :group 'magit-popup-faces)
-
-(defface magit-popup-disabled-argument
- '((t :inherit shadow))
- "Face used to display disabled arguments in popups."
- :group 'magit-popup-faces)
-
-(defface magit-popup-option-value
- '((t :inherit font-lock-string-face))
- "Face used to display option values in popups."
- :group 'magit-popup-faces)
-
-;;;; Keymap
-
-(defvar magit-popup-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map [remap self-insert-command] 'magit-invoke-popup-action)
- (define-key map (kbd "- <t>") 'magit-invoke-popup-switch)
- (define-key map (kbd "= <t>") 'magit-invoke-popup-option)
- (define-key map (kbd "C-g") 'magit-popup-quit)
- (define-key map (kbd "?") 'magit-popup-help)
- (define-key map (kbd "C-h k") 'magit-popup-help)
- (define-key map (kbd "C-h i") 'magit-popup-info)
- (define-key map (kbd "C-t") 'magit-popup-toggle-show-common-commands)
- (define-key map (kbd "C-c C-c") 'magit-popup-set-default-arguments)
- (define-key map (kbd "C-x C-s") 'magit-popup-save-default-arguments)
- (cond ((featurep 'jkl)
- (define-key map (kbd "C-p") 'universal-argument)
- (define-key map [return] 'push-button)
- (define-key map (kbd "C-i") 'backward-button)
- (define-key map (kbd "C-k") 'forward-button))
- (t
- (define-key map (kbd "C-m") 'push-button)
- (define-key map (kbd "DEL") 'backward-button)
- (define-key map (kbd "C-p") 'backward-button)
- (define-key map (kbd "C-i") 'forward-button)
- (define-key map (kbd "C-n") 'forward-button)))
- map)
- "Keymap for `magit-popup-mode'.
-
-\\<magit-popup-mode-map>\
-This keymap contains bindings common to all popups. A section
-listing these commands can be shown or hidden using \
-\\[magit-popup-toggle-show-common-commands].
-
-The prefix used to toggle any switch can be changed by binding
-another key to `magit-invoke-popup-switch'. Likewise binding
-another key to `magit-invoke-popup-option' changes the prefixed
-used to set any option. The two prefixes have to be different.
-If you change these bindings, you should also change the `prefix'
-property of the button types `magit-popup-switch-button' and
-`magit-popup-option-button'.
-
-If you change any other binding, then you might have to also edit
-`magit-popup-common-commands' for things to align correctly in
-the section listing these commands.
-
-Never bind an alphabetic character in this keymap or you might
-make it impossible to invoke certain actions.")
-
-(defvar magit-popup-common-commands
- '(("Set defaults" magit-popup-set-default-arguments)
- ("View popup manual" magit-popup-info)
- ("Toggle this section" magit-popup-toggle-show-common-commands)
- ("Save defaults" magit-popup-save-default-arguments)
- (" Popup help prefix" magit-popup-help)
- ("Abort" magit-popup-quit)))
-
-;;;; Buttons
-
-(define-button-type 'magit-popup-button
- 'face nil
- 'action (lambda (button)
- (funcall (button-get button 'function)
- (button-get button 'event))))
-
-(define-button-type 'magit-popup-switch-button
- 'supertype 'magit-popup-button
- 'function 'magit-invoke-popup-switch
- 'property :switches
- 'heading "Switches\n"
- 'formatter 'magit-popup-format-argument-button
- 'format " %k %d (%a)"
- 'prefix ?-
- 'maxcols 1)
-
-(define-button-type 'magit-popup-option-button
- 'supertype 'magit-popup-button
- 'function 'magit-invoke-popup-option
- 'property :options
- 'heading "Options\n"
- 'formatter 'magit-popup-format-argument-button
- 'format " %k %d (%a%v)"
- 'prefix ?=
- 'maxcols 1)
-
-(define-button-type 'magit-popup-variable-button
- 'supertype 'magit-popup-button
- 'function 'magit-invoke-popup-action
- 'property :variables
- 'heading "Variables\n"
- 'formatter 'magit-popup-format-variable-button
- 'format " %k %d"
- 'prefix nil
- 'maxcols 1)
-
-(define-button-type 'magit-popup-action-button
- 'supertype 'magit-popup-button
- 'function 'magit-invoke-popup-action
- 'property :actions
- 'heading "Actions\n"
- 'formatter 'magit-popup-format-action-button
- 'format " %k %d"
- 'prefix nil
- 'maxcols :max-action-columns)
-
-(define-button-type 'magit-popup-command-button
- 'supertype 'magit-popup-action-button
- 'formatter 'magit-popup-format-command-button
- 'action (lambda (button)
- (let ((command (button-get button 'function)))
- (unless (eq command 'push-button)
- (call-interactively command)))))
-
-(define-button-type 'magit-popup-internal-command-button
- 'supertype 'magit-popup-command-button
- 'heading "Common Commands\n"
- 'maxcols 3)
-
-;;; Events
-
-(defvar-local magit-this-popup nil
- "The popup which is currently active.
-This is intended for internal use only.
-Don't confuse this with `magit-current-popup'.")
-
-(defvar-local magit-this-popup-events nil
- "The events known to the active popup.
-This is intended for internal use only.
-Don't confuse this with `magit-current-popup-args'.")
-
-(defvar-local magit-previous-popup nil)
-
-(defvar-local magit-pre-popup-buffer nil
- "The buffer that was current before invoking the active popup.")
-
-(defun magit-popup-get (prop)
- "While a popup is active, get the value of PROP."
- (if (memq prop '(:switches :options :variables :actions))
- (plist-get magit-this-popup-events prop)
- (plist-get (symbol-value magit-this-popup) prop)))
-
-(defun magit-popup-put (prop val)
- "While a popup is active, set the value of PROP to VAL."
- (if (memq prop '(:switches :options :variables :actions))
- (setq magit-this-popup-events
- (plist-put magit-this-popup-events prop val))
- (error "Property %s isn't supported" prop)))
-
-(defvar magit-current-popup nil
- "The popup from which this editing command was invoked.
-
-Use this inside the `interactive' form of a popup aware command
-to determine whether it was invoked from a popup and if so from
-which popup. If the current command was invoked without the use
-of a popup, then this is nil.")
-
-(defvar magit-current-popup-action nil
- "The popup action now being executed.")
-
-(defvar magit-current-popup-args nil
- "The value of the popup arguments for this editing command.
-
-If the current command was invoked from a popup, then this is
-a list of strings of all the set switches and options. This
-includes arguments which are set by default not only those
-explicitly set during this invocation.
-
-When the value is nil, then that can be because no argument is
-set, or because the current command wasn't invoked from a popup;
-consult `magit-current-popup' to tell the difference.
-
-Generally it is better to use `NAME-arguments', which is created
-by `magit-define-popup', instead of this variable or the function
-by the same name, because `NAME-argument' uses the default value
-for the arguments when the editing command is invoked directly
-instead of from a popup. When the command is bound in several
-popups that might not be feasible though.")
-
-(defun magit-current-popup-args (&rest filter)
- "Return the value of the popup arguments for this editing command.
-
-The value is the same as that of the variable by the same name
-\(which see), except that FILTER is applied. FILTER is a list
-of regexps; only arguments that match one of them are returned.
-The first element of FILTER may also be `:not' in which case
-only arguments that don't match any of the regexps are returned,
-or `:only' which doesn't change the behaviour."
- (let ((-compare-fn (lambda (a b) (magit-popup-arg-match b a))))
- (-filter (if (eq (car filter) :not)
- (lambda (arg) (not (-contains-p (cdr filter) arg)))
- (when (eq (car filter) :only)
- (pop filter))
- (lambda (arg) (-contains-p filter arg)))
- magit-current-popup-args)))
-
-(defvar magit-current-pre-popup-buffer nil
- "The buffer that was current before invoking the active popup.
-This is bound when invoking an action or variable.")
-
-(defmacro magit-with-pre-popup-buffer (&rest body)
- "Execute the forms in BODY in the buffer that current before the popup.
-If `magit-current-pre-popup-buffer' is non-nil use that, else if
-`magit-pre-popup-buffer' is non-nil use that, otherwise (when no
-popup is involved) execute the forms in the current buffer."
- (declare (indent 0))
- `(--if-let (or magit-current-pre-popup-buffer magit-pre-popup-buffer)
- (with-current-buffer it ,@body)
- ,@body))
-
-(defun magit-popup-arg-match (pattern string)
- (if (or (string-match-p "=$" pattern)
- (string-match-p "^-[A-Z]$" pattern))
- (string-match (format "^%s\\(.*\\)$" pattern) string)
- (string-equal string pattern)))
-
-(cl-defstruct magit-popup-event key dsc arg fun use val)
-
-(defun magit-popup-event-keydsc (ev)
- (let ((key (magit-popup-event-key ev)))
- (key-description (if (vectorp key) key (vector key)))))
-
-(defun magit-popup-lookup (event type)
- (--first (equal (magit-popup-event-key it) event)
- (-filter 'magit-popup-event-p (magit-popup-get type))))
-
-(defun magit-popup-get-args ()
- (--mapcat (when (and (magit-popup-event-p it)
- (magit-popup-event-use it))
- (list (format "%s%s"
- (magit-popup-event-arg it)
- (or (magit-popup-event-val it) ""))))
- (append (magit-popup-get :switches)
- (magit-popup-get :options))))
-
-(defmacro magit-popup-convert-events (def form)
- (declare (indent 1) (debug (form form)))
- `(--map (if (or (null it) (stringp it) (functionp it)) it ,form) ,def))
-
-(defun magit-popup-convert-switches (val def)
- (magit-popup-convert-events def
- (let ((a (nth 2 it)))
- (make-magit-popup-event
- :key (car it) :dsc (cadr it) :arg a
- :use (and (member a val) t)
- ;; For arguments implemented in lisp, this function's
- ;; doc-string is used by `magit-popup-help'. That is
- ;; the only thing it is used for.
- :fun (and (string-prefix-p "\+\+" a) (nth 3 it))))))
-
-(defun magit-popup-convert-options (val def)
- (magit-popup-convert-events def
- (let* ((a (nth 2 it))
- (r (format "^%s\\(.*\\)" a))
- (v (--first (string-match r it) val)))
- (make-magit-popup-event
- :key (car it) :dsc (cadr it) :arg a
- :use (and v t) :val (and v (match-string 1 v))
- :fun (or (nth 3 it) 'read-from-minibuffer)))))
-
-(defun magit-popup-convert-variables (_val def)
- (magit-popup-convert-events def
- (make-magit-popup-event
- :key (car it) :dsc (cadr it) :fun (nth 2 it) :arg (nth 3 it))))
-
-(defun magit-popup-convert-actions (_val def)
- (magit-popup-convert-events def
- (make-magit-popup-event
- :key (car it) :dsc (cadr it) :fun (nth 2 it))))
-
-;;; Define
-
-(defmacro magit-define-popup (name doc &rest args)
- "Define a popup command named NAME.
-
-NAME should begin with the package prefix and by convention end
-with `-popup'. That name is used for the actual command as well
-as for a variable used internally. DOC is used as the doc-string
-of that command.
-
-Also define an option and a function named `SHORTNAME-arguments',
-where SHORTNAME is NAME with the trailing `-popup' removed. The
-name of this option and this function can be overwritten using
-the optional argument OPTION, but that is rarely advisable. As a
-special case if OPTION is specified but nil, do not define this
-option and this function at all.
-
-The option `SHORTNAME-arguments' holds the default value for the
-popup arguments. It can be customized from within the popup or
-using the Custom interface.
-
-The function `SHORTNAME-arguments' is a wrapper around the
-variable `magit-current-popup-args', both of which are intended
-to be used inside the `interactive' form of commands commonly
-invoked from the popup `NAME'. When such a command is invoked
-from that popup, then the function `SHORTNAME-arguments' returns
-the value of the variable `magit-current-popup-args'; however
-when the command is invoked directly, then it returns the default
-value of the variable `SHORTNAME-arguments'.
-
-Optional argument GROUP specifies the Custom group into which the
-option is placed. If omitted, then the option is placed into some
-group the same way it is done when directly using `defcustom' and
-omitting the group, except when NAME begins with \"magit-\", in
-which case the group `magit-git-arguments' is used.
-
-Optional argument MODE is deprecated, instead use the keyword
-arguments `:setup-function' and/or `:refresh-function'. If MODE
-is non-nil, then it specifies the mode used by the popup buffer,
-instead of the default, which is `magit-popup-mode'.
-
-The remaining arguments should have the form
-
- [KEYWORD VALUE]...
-
-The following keywords are meaningful (and by convention are
-usually specified in that order):
-
-`:actions'
- The actions which can be invoked from the popup. VALUE is a
- list whose members have the form (KEY DESC COMMAND), see
- `magit-define-popup-action' for details.
-
- Actions are regular Emacs commands, which usually have an
- `interactive' form setup to consume the values of the popup
- `:switches' and `:options' when invoked from the corresponding
- popup, else when invoked as the default action or directly
- without using the popup, the default value of the variable
- `SHORTNAME-arguments'. This is usually done by calling the
- function `SHORTNAME-arguments'.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string, which
- is used as the heading, or nil, in which case the section is
- not inserted.
-
- Members of VALUE may also be nil. This should only be used
- together with `:max-action-columns' and allows having gaps in
- the action grid, which can help arranging actions sensibly.
-
-`:default-action'
- The default action of the popup which is used directly instead
- of displaying the popup buffer, when the popup is invoked with
- a prefix argument. Also see `magit-popup-use-prefix-argument'
- and `:use-prefix', which can be used to inverse the meaning of
- the prefix argument.
-
-`:use-prefix'
- Controls when to display the popup buffer and when to invoke
- the default action (if any) directly. This overrides the
- global default set using `magit-popup-use-prefix-argument'.
- The value, if specified, should be one of `default' or `popup',
- or a function that is called with no arguments and returns one
- of these symbols.
-
-`:max-action-columns'
- The maximum number of actions to display on a single line, a
- number or a function that returns a number and takes the name
- of the section currently being inserted as argument. If there
- isn't enough room to display as many columns as specified here,
- then fewer are used.
-
-`:switches'
- The popup arguments which can be toggled on and off. VALUE
- is a list whose members have the form (KEY DESC SWITCH), see
- `magit-define-popup-switch' for details.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string, which
- is used as the heading, or nil, in which case the section is
- not inserted.
-
-`:options'
- The popup arguments which take a value, as in \"--opt=OPTVAL\".
- VALUE is a list whose members have the form (KEY DESC OPTION
- READER), see `magit-define-popup-option' for details.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string, which
- is used as the heading, or nil, in which case the section is
- not inserted.
-
-`:default-arguments'
- The default arguments, a list of switches (which are then
- enabled by default) and options with there default values, as
- in \"--OPT=OPTVAL\".
-
-`:variables'
-
- Variables which can be set from the popup. VALUE is a list
- whose members have the form (KEY DESC COMMAND FORMATTER), see
- `magit-define-popup-variable' for details.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string, which
- is used as the heading, or nil, in which case the section is
- not inserted.
-
- Members of VALUE may also be actions as described above for
- `:actions'.
-
- VALUE may also be a function that returns a list as describe
- above.
-
-`:sequence-predicate'
- When this function returns non-nil, then the popup uses
- `:sequence-actions' instead of `:actions', and does not show
- the `:switches' and `:options'.
-
-`:sequence-actions'
- The actions which can be invoked from the popup, when
- `:sequence-predicate' returns non-nil.
-
-`:setup-function'
- When this function is specified, then it is used instead of
- `magit-popup-default-setup'.
-
-`:refresh-function'
- When this function is specified, then it is used instead of
- calling `magit-popup-insert-section' three times with symbols
- `magit-popup-switch-button', `magit-popup-option-button', and
- finally `magit-popup-action-button' as argument.
-
-`:man-page'
- The name of the manpage to be displayed when the user requests
- help for a switch or argument.
-
-\(fn NAME DOC [GROUP [MODE [OPTION]]] :KEYWORD VALUE...)"
- (declare (indent defun) (doc-string 2))
- (let* ((str (symbol-name name))
- (grp (if (keywordp (car args))
- (and (string-prefix-p "magit-" str) ''magit-git-arguments)
- (pop args)))
- (mode (and (not (keywordp (car args))) (pop args)))
- (opt (if (keywordp (car args))
- (intern (concat (if (string-suffix-p "-popup" str)
- (substring str 0 -6)
- str)
- "-arguments"))
- (eval (pop args)))))
- `(progn
- (defun ,name (&optional arg) ,doc
- (interactive "P")
- (magit-invoke-popup ',name ,mode arg))
- (defvar ,name
- (list :variable ',opt ,@args))
- (magit-define-popup-keys-deferred ',name)
- ,@(when opt
- `((defcustom ,opt (plist-get ,name :default-arguments)
- ""
- ,@(and grp (list :group grp))
- :type '(repeat (string :tag "Argument")))
- (defun ,opt ()
- (if (eq magit-current-popup ',name)
- magit-current-popup-args
- ,opt))
- (put ',opt 'definition-name ',name))))))
-
-(defun magit-define-popup-switch (popup key desc switch
- &optional enable at prepend)
- "In POPUP, define KEY as SWITCH.
-
-POPUP is a popup command defined using `magit-define-popup'.
-SWITCH is a string representing an argument that takes no value.
-KEY is a character representing the second event in the sequence
-of keystrokes used to toggle the argument. (The first event, the
-prefix, is shared among all switches, defaults to -, and can be
-changed in `magit-popup-mode-keymap').
-
-DESC is a string describing the purpose of the argument, it is
-displayed in the popup.
-
-If optional ENABLE is non-nil, then the switch is on by default.
-
-SWITCH is inserted after all other switches already defined for
-POPUP, unless optional PREPEND is non-nil, in which case it is
-placed first. If optional AT is non-nil, then it should be the
-KEY of another switch already defined for POPUP, the argument
-is then placed before or after AT, depending on PREPEND."
- (declare (indent defun))
- (magit-define-popup-key popup :switches key
- (list desc switch enable) at prepend))
-
-(defun magit-define-popup-option (popup key desc option
- &optional reader value at prepend)
- "In POPUP, define KEY as OPTION.
-
-POPUP is a popup command defined using `magit-define-popup'.
-OPTION is a string representing an argument that takes a value.
-KEY is a character representing the second event in the sequence
-of keystrokes used to set the argument's value. (The first
-event, the prefix, is shared among all options, defaults to =,
-and can be changed in `magit-popup-mode-keymap').
-
-DESC is a string describing the purpose of the argument, it is
-displayed in the popup.
-
-If optional VALUE is non-nil then the option is on by default,
-and VALUE is its default value.
-
-READER is used to read a value from the user when the option is
-invoked and does not currently have a value. (When the option
-has a value, then invoking the option causes it to be unset.)
-This function must take two arguments but may choose to ignore
-them. The first argument is the name of the option (with \": \"
-appended, unless it ends with \"=\") and can be used as the
-prompt. The second argument is nil or the value that was in
-effect before the option was unset, which may be suitable as
-initial completion input. If no reader is specified, then
-`read-from-minibuffer' is used.
-
-OPTION is inserted after all other options already defined for
-POPUP, unless optional PREPEND is non-nil, in which case it is
-placed first. If optional AT is non-nil, then it should be the
-KEY of another option already defined for POPUP, the argument
-is then placed before or after AT, depending on PREPEND."
- (declare (indent defun))
- (magit-define-popup-key popup :options key
- (list desc option reader value) at prepend))
-
-(defun magit-define-popup-variable (popup key desc command formatter
- &optional at prepend)
- "In POPUP, define KEY as COMMAND.
-
-POPUP is a popup command defined using `magit-define-popup'.
-COMMAND is a command which calls `magit-popup-set-variable'.
-FORMATTER is a function which calls `magit-popup-format-variable'.
-These two functions have to be called with the same arguments.
-
-KEY is a character representing the event used interactively call
-the COMMAND.
-
-DESC is the variable or a representation thereof. It's not
-actually used for anything.
-
-COMMAND is inserted after all other commands already defined for
-POPUP, unless optional PREPEND is non-nil, in which case it is
-placed first. If optional AT is non-nil, then it should be the
-KEY of another command already defined for POPUP, the command
-is then placed before or after AT, depending on PREPEND."
- (declare (indent defun))
- (magit-define-popup-key popup :variables key
- (list desc command formatter) at prepend))
-
-(defun magit-define-popup-action (popup key desc command
- &optional at prepend)
- "In POPUP, define KEY as COMMAND.
-
-POPUP is a popup command defined using `magit-define-popup'.
-COMMAND can be any command but should usually consume the popup
-arguments in its `interactive' form.
-KEY is a character representing the event used invoke the action,
-i.e. to interactively call the COMMAND.
-
-DESC is a string describing the purpose of the action, it is
-displayed in the popup.
-
-COMMAND is inserted after all other commands already defined for
-POPUP, unless optional PREPEND is non-nil, in which case it is
-placed first. If optional AT is non-nil, then it should be the
-KEY of another command already defined for POPUP, the command
-is then placed before or after AT, depending on PREPEND."
- (declare (indent defun))
- (magit-define-popup-key popup :actions key
- (list desc command) at prepend))
-
-(defun magit-define-popup-sequence-action
- (popup key desc command &optional at prepend)
- "Like `magit-define-popup-action' but for `:sequence-action'."
- (declare (indent defun))
- (magit-define-popup-key popup :sequence-actions key
- (list desc command) at prepend))
-
-(defconst magit-popup-type-plural-alist
- '((:switch . :switches)
- (:option . :options)
- (:variable . :variables)
- (:action . :actions)
- (:sequence-action . :sequence-actions)))
-
-(defun magit-popup-pluralize-type (type)
- (or (cdr (assq type magit-popup-type-plural-alist))
- type))
-
-(defun magit-define-popup-key
- (popup type key def &optional at prepend)
- "In POPUP, define KEY as an action, switch, or option.
-It's better to use one of the specialized functions
- `magit-define-popup-action',
- `magit-define-popup-sequence-action',
- `magit-define-popup-switch',
- `magit-define-popup-option', or
- `magit-define-popup-variable'."
- (declare (indent defun))
- (setq type (magit-popup-pluralize-type type))
- (if (memq type '(:switches :options :variables :actions :sequence-actions))
- (if (boundp popup)
- (let* ((plist (symbol-value popup))
- (value (plist-get plist type))
- (elt (assoc key value)))
- (if elt
- (setcdr elt def)
- (setq elt (cons key def)))
- (if at
- (when (setq at (cl-member at value :key 'car-safe :test 'equal))
- (setq value (cl-delete key value :key 'car-safe :test 'equal))
- (if prepend
- (progn (push (car at) (cdr at))
- (setcar at elt))
- (push elt (cdr at))))
- (setq value (cl-delete key value :key 'car-safe :test 'equal)))
- (unless (assoc key value)
- (setq value (if prepend
- (cons elt value)
- (append value (list elt)))))
- (set popup (plist-put plist type value)))
- (push (list type key def at prepend)
- (get popup 'magit-popup-deferred)))
- (error "Unknown popup event type: %s" type)))
-
-(defun magit-define-popup-keys-deferred (popup)
- (dolist (args (get popup 'magit-popup-deferred))
- (condition-case err
- (apply #'magit-define-popup-key popup args)
- ((debug error)
- (display-warning 'magit (error-message-string err) :error))))
- (put popup 'magit-popup-deferred nil))
-
-(defun magit-change-popup-key (popup type from to)
- "In POPUP, bind TO to what FROM was bound to.
-TYPE is one of `:action', `:sequence-action', `:switch', or
-`:option'. Bind TO and unbind FROM, both are characters."
- (--if-let (assoc from (plist-get (symbol-value popup)
- (magit-popup-pluralize-type type)))
- (setcar it to)
- (message "magit-change-popup-key: FROM key %c is unbound" from)))
-
-(defun magit-remove-popup-key (popup type key)
- "In POPUP, remove KEY's binding of TYPE.
-POPUP is a popup command defined using `magit-define-popup'.
-TYPE is one of `:action', `:sequence-action', `:switch', or
-`:option'. KEY is the character which is to be unbound."
- (setq type (magit-popup-pluralize-type type))
- (let* ((plist (symbol-value popup))
- (alist (plist-get plist type))
- (value (assoc key alist)))
- (set popup (plist-put plist type (delete value alist)))))
-
-;;; Invoke
-
-(defvar-local magit-popup-previous-winconf nil)
-
-(defun magit-invoke-popup (popup mode arg)
- (let* ((def (symbol-value popup))
- (val (symbol-value (plist-get def :variable)))
- (default (plist-get def :default-action))
- (local (plist-get def :use-prefix))
- (local (if (functionp local)
- (funcall local)
- local))
- (use-prefix (or local magit-popup-use-prefix-argument)))
- (cond
- ((or (and (eq use-prefix 'default) arg)
- (and (eq use-prefix 'popup) (not arg)))
- (if default
- (let ((magit-current-popup (list popup 'default))
- (magit-current-popup-args
- (let ((magit-this-popup popup)
- (magit-this-popup-events nil))
- (magit-popup-default-setup val def)
- (magit-popup-get-args))))
- (when (and arg (listp arg))
- (setq current-prefix-arg (and (not (= (car arg) 4))
- (list (/ (car arg) 4)))))
- (call-interactively default))
- (message "%s has no default action; showing popup instead." popup)
- (magit-popup-mode-setup popup mode)))
- ((memq use-prefix '(default popup nil))
- (magit-popup-mode-setup popup mode)
- (when magit-popup-show-help-echo
- (message
- (format
- "[%s] show common commands, [%s] describe events, [%s] show manual"
- (propertize "C-t" 'face 'magit-popup-key)
- (propertize "?" 'face 'magit-popup-key)
- (propertize "C-h i" 'face 'magit-popup-key)))))
- (local
- (error "Invalid :use-prefix popup property value: %s" use-prefix))
- (t
- (error "Invalid magit-popup-use-prefix-argument value: %s" use-prefix)))))
-
-(defun magit-invoke-popup-switch (event)
- (interactive (list last-command-event))
- (--if-let (magit-popup-lookup event :switches)
- (progn
- (setf (magit-popup-event-use it)
- (not (magit-popup-event-use it)))
- (magit-refresh-popup-buffer))
- (user-error "%c isn't bound to any switch" event)))
-
-(defun magit-invoke-popup-option (event)
- (interactive (list last-command-event))
- (--if-let (magit-popup-lookup event :options)
- (progn
- (if (magit-popup-event-use it)
- (setf (magit-popup-event-use it) nil)
- (let* ((arg (magit-popup-event-arg it))
- (val (funcall
- (magit-popup-event-fun it)
- (concat arg (unless (string-match-p "=$" arg) ": "))
- (magit-popup-event-val it))))
- (setf (magit-popup-event-use it) t)
- (setf (magit-popup-event-val it) val)))
- (magit-refresh-popup-buffer))
- (user-error "%c isn't bound to any option" event)))
-
-(defun magit-invoke-popup-action (event)
- (interactive (list last-command-event))
- (let ((action (magit-popup-lookup event :actions))
- (variable (magit-popup-lookup event :variables)))
- (when (and variable (not (magit-popup-event-arg variable)))
- (setq action variable)
- (setq variable nil))
- (cond ((or action variable)
- (let* ((magit-current-popup magit-this-popup)
- (magit-current-popup-args (magit-popup-get-args))
- (magit-current-pre-popup-buffer magit-pre-popup-buffer)
- (command (magit-popup-event-fun (or action variable)))
- (magit-current-popup-action command))
- (when action
- (magit-popup-quit))
- (setq this-command command)
- (call-interactively command)
- (unless action
- (magit-refresh-popup-buffer))))
- ((eq event ?q)
- (magit-popup-quit)
- (when magit-previous-popup
- (magit-popup-mode-setup magit-previous-popup nil)))
- (t
- (user-error "%c isn't bound to any action" event)))))
-
-(defun magit-popup-quit ()
- "Quit the current popup command without invoking an action."
- (interactive)
- (let ((winconf magit-popup-previous-winconf))
- (if (derived-mode-p 'magit-popup-mode)
- (kill-buffer)
- (magit-popup-help-mode -1)
- (kill-local-variable 'magit-popup-previous-winconf))
- (when winconf
- (set-window-configuration winconf))))
-
-(defun magit-popup-read-number (prompt &optional default)
- "Like `read-number' but DEFAULT may be a numeric string."
- (read-number prompt (if (stringp default)
- (string-to-number default)
- default)))
-
-;;; Save
-
-(defun magit-popup-set-default-arguments (arg)
- "Set default value for the arguments for the current popup.
-Then close the popup without invoking an action; unless a prefix
-argument is used in which case the popup remains open.
-
-For a popup named `NAME-popup' that usually means setting the
-value of the custom option `NAME-arguments'."
- (interactive "P")
- (-if-let (var (magit-popup-get :variable))
- (progn (customize-set-variable var (magit-popup-get-args))
- (unless arg (magit-popup-quit)))
- (user-error "Nothing to set")))
-
-(defun magit-popup-save-default-arguments (arg)
- "Save default value for the arguments for the current popup.
-Then close the popup without invoking an action; unless a prefix
-argument is used in which case the popup remains open.
-
-For a popup named `NAME-popup' that usually means saving the
-value of the custom option `NAME-arguments'."
- (interactive "P")
- (-if-let (var (magit-popup-get :variable))
- (progn (customize-save-variable var (magit-popup-get-args))
- (unless arg (magit-popup-quit)))
- (user-error "Nothing to save")))
-
-;;; Help
-
-(defun magit-popup-toggle-show-common-commands ()
- "Show or hide an additional section with common commands.
-The commands listed in this section are common to all popups
-and are defined in `magit-popup-mode-map' (which see)."
- (interactive)
- (setq magit-popup-show-common-commands
- (not magit-popup-show-common-commands))
- (magit-refresh-popup-buffer)
- (fit-window-to-buffer))
-
-(defun magit-popup-help ()
- "Show help for the argument or action at point."
- (interactive)
- (let* ((man (magit-popup-get :man-page))
- (key (read-key-sequence
- (concat "Describe key" (and man " (? for manpage)") ": ")))
- (int (aref key (1- (length key))))
- (def (or (lookup-key (current-local-map) key t)
- (lookup-key (current-global-map) key))))
- (pcase def
- (`magit-invoke-popup-switch
- (--if-let (magit-popup-lookup int :switches)
- (if (and (string-prefix-p "++" (magit-popup-event-arg it))
- (magit-popup-event-fun it))
- (magit-popup-describe-function (magit-popup-event-fun it))
- (magit-popup-manpage man it))
- (user-error "%c isn't bound to any switch" int)))
- (`magit-invoke-popup-option
- (--if-let (magit-popup-lookup int :options)
- (if (and (string-prefix-p "++" (magit-popup-event-arg it))
- (magit-popup-event-fun it))
- (magit-popup-describe-function (magit-popup-event-fun it))
- (magit-popup-manpage man it))
- (user-error "%c isn't bound to any option" int)))
- (`magit-popup-help
- (magit-popup-manpage man nil))
- ((or `self-insert-command
- `magit-invoke-popup-action)
- (setq def (or (magit-popup-lookup int :actions)
- (magit-popup-lookup int :variables)))
- (if def
- (magit-popup-describe-function (magit-popup-event-fun def))
- (ding)
- (message nil)))
- (`nil (ding)
- (message nil))
- (_ (magit-popup-describe-function def)))))
-
-(defun magit-popup-manpage (topic arg)
- (unless topic
- (user-error "No man page associated with %s"
- (magit-popup-get :man-page)))
- (when arg
- (setq arg (magit-popup-event-arg arg))
- (when (string-prefix-p "--" arg)
- ;; handle '--' option and the '--[no-]' shorthand
- (setq arg (cond ((string= "-- " arg)
- "\\(?:\\[--\\] \\)?<[^[:space:]]+>\\.\\.\\.")
- ((string-prefix-p "--no-" arg)
- (concat "--"
- "\\[?no-\\]?"
- (substring arg 5)))
- (t
- (concat "--"
- "\\(?:\\[no-\\]\\)?"
- (substring arg 2)))))))
- (let ((winconf (current-window-configuration)) buffer)
- (pcase magit-popup-manpage-package
- (`woman (delete-other-windows)
- (split-window-below)
- (with-no-warnings ; display-buffer-function is obsolete
- (let ((display-buffer-alist nil)
- (display-buffer-function nil)
- (display-buffer-overriding-action nil))
- (woman topic)))
- (setq buffer (current-buffer)))
- (`man (cl-letf (((symbol-function #'fboundp) (lambda (_) nil)))
- (setq buffer (man topic)))
- (delete-other-windows)
- (split-window-below)
- (set-window-buffer (selected-window) buffer)))
- (with-current-buffer buffer
- (setq magit-popup-previous-winconf winconf)
- (magit-popup-help-mode)
- (fit-window-to-buffer (next-window))
- (if (and arg
- (Man-find-section "OPTIONS")
- (let ((case-fold-search nil)
- ;; This matches preceding/proceeding options.
- ;; Options such as '-a', '-S[<keyid>]', and
- ;; '--grep=<pattern>' are matched by this regex
- ;; without the shy group. The '. ' in the shy
- ;; group is for options such as '-m
- ;; parent-number', and the '-[^[:space:]]+ ' is
- ;; for options such as '--mainline parent-number'
- (others "-\\(?:. \\|-[^[:space:]]+ \\)?[^[:space:]]+"))
- (re-search-forward
- ;; should start with whitespace, and may have any
- ;; number of options before/after
- (format "^[\t\s]+\\(?:%s, \\)*?\\(?1:%s\\)%s\\(?:, %s\\)*$"
- others
- ;; options don't necessarily end in an '='
- ;; (e.g., '--gpg-sign[=<keyid>]')
- (string-remove-suffix "=" arg)
- ;; Simple options don't end in an '='.
- ;; Splitting this into 2 cases should make
- ;; getting false positives less likely.
- (if (string-suffix-p "=" arg)
- ;; [^[:space:]]*[^.[:space:]] matches
- ;; the option value, which is usually
- ;; after the option name and either '='
- ;; or '[='. The value can't end in a
- ;; period, as that means it's being used
- ;; at the end of a sentence. The space
- ;; is for options such as '--mainline
- ;; parent-number'.
- "\\(?: \\|\\[?=\\)[^[:space:]]*[^.[:space:]]"
- ;; Either this doesn't match anything
- ;; (e.g., '-a'), or the option is followed
- ;; by a value delimited by a '[', '<', or
- ;; ':'. A space might appear before this
- ;; value, as in '-f <file>'. The space
- ;; alternative is for options such as '-m
- ;; parent-number'.
- "\\(?:\\(?: \\| ?[\\[<:]\\)[^[:space:]]*[^.[:space:]]\\)?")
- others)
- nil
- t)))
- (goto-char (match-beginning 1))
- (goto-char (point-min))))))
-
-(defun magit-popup-describe-function (function)
- (let ((winconf (current-window-configuration)))
- (delete-other-windows)
- (split-window-below)
- (other-window 1)
- (with-no-warnings ; display-buffer-function is obsolete
- (let ((display-buffer-alist '(("" display-buffer-use-some-window)))
- (display-buffer-function nil)
- (display-buffer-overriding-action nil)
- (help-window-select nil))
- (describe-function function)))
- (fit-window-to-buffer)
- (other-window 1)
- (setq magit-popup-previous-winconf winconf)
- (magit-popup-help-mode)))
-
-(defun magit-popup-info ()
- "Show the popup manual."
- (interactive)
- (let ((winconf (current-window-configuration)))
- (delete-other-windows)
- (split-window-below)
- (info "(magit-popup.info)Usage")
- (magit-popup-help-mode)
- (setq magit-popup-previous-winconf winconf))
- (magit-popup-help-mode)
- (fit-window-to-buffer (next-window)))
-
-(define-minor-mode magit-popup-help-mode
- "Auxiliary minor mode used to restore previous window configuration.
-When some sort of help buffer is created from within a popup,
-then this minor mode is turned on in that buffer, so that when
-the user quits it, the previous window configuration is also
-restored."
- :keymap '(([remap Man-quit] . magit-popup-quit)
- ([remap Info-exit] . magit-popup-quit)
- ([remap quit-window] . magit-popup-quit)))
-
-;;; Modes
-
-(define-derived-mode magit-popup-mode fundamental-mode "MagitPopup"
- "Major mode for infix argument popups."
- :mode 'magit-popup
- (setq truncate-lines t)
- (setq buffer-read-only t)
- (setq-local scroll-margin 0)
- (setq-local magit-popup-show-common-commands magit-popup-show-common-commands)
- (hack-dir-local-variables-non-file-buffer))
-
-(put 'magit-popup-mode 'mode-class 'special)
-
-(defun magit-popup-default-setup (val def)
- (if (--when-let (magit-popup-get :sequence-predicate)
- (funcall it))
- (magit-popup-put :actions (magit-popup-convert-actions
- val (magit-popup-get :sequence-actions)))
- (let ((vars (plist-get def :variables)))
- (when (functionp vars)
- (setq vars (funcall vars)))
- (when vars
- (magit-popup-put :variables (magit-popup-convert-variables val vars))))
- (magit-popup-put :switches (magit-popup-convert-switches
- val (plist-get def :switches)))
- (magit-popup-put :options (magit-popup-convert-options
- val (plist-get def :options)))
- (magit-popup-put :actions (magit-popup-convert-actions
- val (plist-get def :actions)))))
-
-(defun magit-popup-mode-setup (popup mode)
- (setq magit-previous-popup magit-current-popup)
- (let ((val (symbol-value (plist-get (symbol-value popup) :variable)))
- (def (symbol-value popup))
- (buf (current-buffer)))
- (magit-popup-mode-display-buffer (get-buffer-create
- (format "*%s*" popup))
- (or mode 'magit-popup-mode))
- (setq magit-this-popup popup)
- (setq magit-pre-popup-buffer buf)
- (if (bound-and-true-p magit-popup-setup-hook) ; obsolete
- (run-hook-with-args 'magit-popup-setup-hook val def)
- (funcall (or (magit-popup-get :setup-function)
- 'magit-popup-default-setup)
- val def)))
- (magit-refresh-popup-buffer)
- (fit-window-to-buffer nil nil (line-number-at-pos (point-max))))
-
-(defun magit-popup-mode-display-buffer (buffer mode)
- (let ((winconf (current-window-configuration)))
- (select-window (display-buffer buffer magit-popup-display-buffer-action))
- (funcall mode)
- (setq magit-popup-previous-winconf winconf)))
-
-(defvar magit-refresh-popup-buffer-hook nil
- "Hook run by `magit-refresh-popup-buffer'.
-
-The hook is run right after inserting the representation of the
-popup events but before optionally inserting the representation
-of events shared by all popups and before point is adjusted.")
-
-(defun magit-refresh-popup-buffer ()
- (let* ((inhibit-read-only t)
- (button (button-at (point)))
- (prefix (and button (button-get button 'prefix)))
- (event (and button (button-get button 'event))))
- (erase-buffer)
- (save-excursion
- (--if-let (magit-popup-get :refresh-function)
- (funcall it)
- (magit-popup-insert-section 'magit-popup-variable-button)
- (magit-popup-insert-section 'magit-popup-switch-button)
- (magit-popup-insert-section 'magit-popup-option-button)
- (magit-popup-insert-section 'magit-popup-action-button))
- (run-hooks 'magit-refresh-popup-buffer-hook)
- (when magit-popup-show-common-commands
- (magit-popup-insert-command-section
- 'magit-popup-internal-command-button
- magit-popup-common-commands)))
- (set-buffer-modified-p nil)
- (when event
- (while (and (ignore-errors (forward-button 1))
- (let ((b (button-at (point))))
- (or (not (equal (button-get b 'prefix) prefix))
- (not (equal (button-get b 'event) event)))))))))
-
-;;; Draw
-
-(defvar magit-popup-min-padding 3
- "Minimal amount of whitespace between columns in popup buffers.")
-
-(defun magit-popup-insert-section (type &optional spec heading)
- (if (not spec)
- (progn (setq spec (magit-popup-get (button-type-get type 'property)))
- (when spec
- (if (or (stringp (car spec))
- (functionp (car spec)))
- (--each (--partition-by-header
- (or (stringp it) (functionp it))
- spec)
- (magit-popup-insert-section type (cdr it) (car it)))
- (magit-popup-insert-section type spec))))
- (let* ((formatter (button-type-get type 'formatter))
- (items (mapcar (lambda (ev)
- (and ev (or (funcall formatter type ev) '(""))))
- (or spec (magit-popup-get
- (button-type-get type 'property)))))
- (maxcols (button-type-get type 'maxcols))
- (pred (magit-popup-get :sequence-predicate)))
- (when items
- (if (functionp heading)
- (when (setq heading (funcall heading))
- (insert heading ?\n))
- (unless heading
- (setq heading (button-type-get type 'heading)))
- (insert (propertize heading 'face 'magit-popup-heading))
- (unless (string-match "\n$" heading)
- (insert "\n")))
- (if (and pred (funcall pred))
- (setq maxcols nil)
- (cl-typecase maxcols
- (keyword (setq maxcols (magit-popup-get maxcols)))
- (symbol (setq maxcols (symbol-value maxcols)))))
- (when (functionp maxcols)
- (setq maxcols (funcall maxcols heading)))
- (when heading
- (let ((colwidth
- (+ (apply 'max (mapcar (lambda (e) (length (car e))) items))
- magit-popup-min-padding)))
- (dolist (item items)
- (unless (bolp)
- (let ((padding (- colwidth (% (current-column) colwidth))))
- (if (and (< (+ (current-column) padding colwidth)
- (window-width))
- (< (ceiling (/ (current-column) (* colwidth 1.0)))
- (or maxcols 1000)))
- (insert (make-string padding ?\s))
- (insert "\n"))))
- (unless (equal item '(""))
- (if item
- (apply 'insert-button item)
- (insert ?\s)))))
- (insert (if (= (char-before) ?\n) "\n" "\n\n")))))))
-
-(defun magit-popup-format-argument-button (type ev)
- (list (format-spec
- (button-type-get type 'format)
- `((?k . ,(propertize (concat
- (--when-let (button-type-get type 'prefix)
- (char-to-string it))
- (magit-popup-event-keydsc ev))
- 'face 'magit-popup-key))
- (?d . ,(magit-popup-event-dsc ev))
- (?a . ,(propertize (magit-popup-event-arg ev)
- 'face (if (magit-popup-event-use ev)
- 'magit-popup-argument
- 'magit-popup-disabled-argument)))
- (?v . ,(let ((val (magit-popup-event-val ev)))
- (if (and (magit-popup-event-use ev)
- (not (equal val "")))
- (propertize (format "\"%s\"" val)
- 'face 'magit-popup-option-value)
- "")))))
- 'type type 'event (magit-popup-event-key ev)))
-
-(defun magit-popup-format-variable-button (type ev)
- (if (not (magit-popup-event-arg ev))
- (magit-popup-format-action-button 'magit-popup-action-button ev)
- (list (format-spec
- (button-type-get type 'format)
- `((?k . ,(propertize (magit-popup-event-keydsc ev)
- 'face 'magit-popup-key))
- (?d . ,(funcall (magit-popup-event-arg ev)))))
- 'type type 'event (magit-popup-event-key ev))))
-
-(defun magit-popup-format-action-button (type ev)
- (let* ((cmd (magit-popup-event-fun ev))
- (dsc (magit-popup-event-dsc ev))
- (fun (and (functionp dsc) dsc)))
- (unless (and disabled-command-function
- (symbolp cmd)
- (get cmd 'disabled))
- (when fun
- (setq dsc
- (-when-let (branch (funcall fun))
- (if (text-property-not-all 0 (length branch) 'face nil branch)
- branch
- (magit-branch-set-face branch)))))
- (when dsc
- (list (format-spec
- (button-type-get type 'format)
- `((?k . ,(propertize (magit-popup-event-keydsc ev)
- 'face 'magit-popup-key))
- (?d . ,dsc)
- (?D . ,(if (and (not fun)
- (eq cmd (magit-popup-get :default-action)))
- (propertize dsc 'face 'bold)
- dsc))))
- 'type type 'event (magit-popup-event-key ev))))))
-
-(defun magit-popup-insert-command-section (type spec)
- (magit-popup-insert-section
- type (mapcar (lambda (elt)
- (list (car (where-is-internal (cadr elt)
- (current-local-map)))
- (car elt)))
- spec)))
-
-(defun magit-popup-format-command-button (type elt)
- (nconc (magit-popup-format-action-button
- type (make-magit-popup-event :key (car elt)
- :dsc (cadr elt)))
- (list 'function (lookup-key (current-local-map) (car elt)))))
-
-;;; Utilities
-
-(defun magit-popup-import-file-args (args files)
- (if files
- (cons (concat "-- " (mapconcat #'identity files ",")) args)
- args))
-
-(defun magit-popup-export-file-args (args)
- (let ((files (--first (string-prefix-p "-- " it) args)))
- (when files
- (setq args (remove files args))
- (setq files (split-string (substring files 3) ",")))
- (list args files)))
-
-(defconst magit-popup-font-lock-keywords
- (eval-when-compile
- `((,(concat "(\\(magit-define-popup\\)\\_>"
- "[ \t'\(]*"
- "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
- (1 'font-lock-keyword-face)
- (2 'font-lock-function-name-face nil t)))))
-
-(font-lock-add-keywords 'emacs-lisp-mode magit-popup-font-lock-keywords)
-
-;;; _
-(provide 'magit-popup)
-;; Local Variables:
-;; indent-tabs-mode: nil
-;; End:
-;;; magit-popup.el ends here
diff --git a/elpa/magit-popup-20181003.921/magit-popup.elc b/elpa/magit-popup-20181003.921/magit-popup.elc
deleted file mode 100644
index 31a0f7e..0000000
--- a/elpa/magit-popup-20181003.921/magit-popup.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/magit-popup-20181003.921/magit-popup.info b/elpa/magit-popup-20181003.921/magit-popup.info
deleted file mode 100644
index 2c1e18f..0000000
--- a/elpa/magit-popup-20181003.921/magit-popup.info
+++ /dev/null
@@ -1,745 +0,0 @@
-This is magit-popup.info, produced by makeinfo version 6.5 from
-magit-popup.texi.
-
- Copyright (C) 2015-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-INFO-DIR-SECTION Emacs
-START-INFO-DIR-ENTRY
-* Magit-Popup: (magit-popup). Infix arguments with feedback.
-END-INFO-DIR-ENTRY
-
-
-File: magit-popup.info, Node: Top, Next: Introduction, Up: (dir)
-
-Magit-Popup User Manual
-***********************
-
-Taking inspiration from regular prefix commands and prefix arguments,
-this library implements a similar abstraction; a new kind of prefix
-command that is associated with a specific set of infix arguments and
-suffix commands.
-
-This manual is for Magit-Popup version 2.12.4 (v2.12.4+1).
-
- Copyright (C) 2015-2018 Jonas Bernoulli <jonas@bernoul.li>
-
- You can redistribute this document 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 document 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.
-
-* Menu:
-
-* Introduction::
-* Usage::
-* Defining Prefix and Suffix Commands::
-
-— The Detailed Node Listing —
-
-Usage
-
-* Customizing Existing Popups::
-* Other Options::
-
-Defining Prefix and Suffix Commands
-
-* Defining Prefix Commands::
-* Defining Suffix Commands::
-
-
-
-File: magit-popup.info, Node: Introduction, Next: Usage, Prev: Top, Up: Top
-
-1 Introduction
-**************
-
-Taking inspiration from regular prefix commands and prefix arguments,
-this library implements a similar abstraction; a new kind of prefix
-command that is associated with a specific set of infix arguments and
-suffix commands.
-
- Invoking such a prefix command displays a popup buffer which lists
-the associated infix arguments and suffix commands. In that buffer each
-argument is prefixed with the key sequence that can be used to toggle it
-or change its value. Likewise each suffix command is prefixed with the
-key used to invoke it. Such a popup buffer might look like this:
-
- ,-----------------------------------------
- |Switches
- | -l Show graph (--graph)
- | -d Show refnames (--decorate)
- |
- |Options
- | =m Search messages (--grep="popup")
- | =p Search patches (-G)
- |
- |Action
- | l Show log for current branch
- | o Show log for another branch
- '-----------------------------------------
-
- The user could then for example type ‘-l’ to toggle the ‘--graph’
-*switch* (when it is on then it is shown in green, otherwise in gray),
-or ‘=m’ to change the value of the *option* ‘--grep’.
-
- Once all arguments are as desired one invokes a suffix command, which
-causes the popup buffer to disappear. The suffix command should then
-retrieve the infix arguments in its ‘interactive’ form like this is done
-for prefix arguments.
-
- While such "prefix-infix-suffix" combos were inspired by regular
-prefix commands and prefix arguments, they are also quite different.
-This should illustrate the most basic differences:
-
- • A regular prefix command
-
- /- command1
- prefix --- command2
- \- command3
-
- • Prefix arguments
-
- /- command1
- C-u ... --- command2
- \- well any command
-
- • A Prefix-Infix-Suffix combo
-
- /- argument1 -\ /- suffix1
- prefix----- argument2 --+-- suffix2
- ^ \- argument3 -/
- | |
- '--------'
- (refresh buffer)
-
- This library was written as a replacement for ‘magit-key-mode’, which
-was used in Magit releases before 2.1.0. It is used to implement all
-"popups" in the current Magit release but a future release will switch
-to yet another implementation.
-
- This library does not depend on any other Magit libraries and it is
-distributed as a separate package, which makes it possible to use it in
-packages that are not related to Magit. But keep in mind that it will
-be deprecated eventually.
-
-
-File: magit-popup.info, Node: Usage, Next: Defining Prefix and Suffix Commands, Prev: Introduction, Up: Top
-
-2 Usage
-*******
-
-Every popup buffers created with a prefix command contains a section
-named "Actions" listing the available suffix commands. Most buffers
-also contain a "Switches" and/or an "Options" section which list the two
-types of infix arguments separately.
-
- Switches are arguments that can be toggled on or off. When a switch
-is active then it is shown in color, when it is off then it is shown in
-gray (of course the details depend on the color theme in use).
-
- Options are arguments that have a value. When an option has a value
-then that is shown after the option itself. Because for some options
-the empty string is a valid value, options are additionally colorized
-like switches to indicate whether they are active or not.
-
- The events bound to suffix commands are always single alphabetic
-characters. The bindings for arguments are always two events long. For
-switches the first key is always ‘-’, for options it is always ‘=’. The
-second key is always an alphabetic character.
-
- By default popup buffers also feature a section listing commands
-common to all popups. To avoid conflicts with suffix commands, the
-bindings of these common commands are not alphabetic characters. This
-section is shown by default so that documentation-resistant users get a
-chance to notice them.
-
- -- User Option: magit-popup-show-common-commands
-
- This option controls whether the section that lists the commands
- that are common to all popups is initially shown.
-
- By default this is not the case, but note that you can temporarily
- show this section using ‘C-t’, which therefore is the only common
- command you actually have to memorize.
-
-‘C-t’ (‘magit-popup-toggle-show-common-commands’)
-
- Show or hide the section listing the commands shared by all popups.
-
-‘C-g’ (‘magit-popup-quit’)
-
- Quit popup buffer without invoking a suffix command.
-
- Without further action, setting arguments only affects the next
-suffix command. Invoking the same prefix command again resets the
-arguments to their default value, but the defaults can be changed
-directly from the popup buffer itself. For a prefix command named
-‘NAME-popup’ the default values are stored as the value of the custom
-option named ‘NAME-arguments’. While this option can be customized
-using the Custom interface, it is better to do so directly from the
-popup buffer.
-
-‘C-c C-c’ (‘magit-popup-set-default-arguments’)
-
- This sets the default value for the arguments for the current
- popup.
-
- Then the popup buffer is closed without invoking a suffix command;
- unless a prefix argument is used in which case the popup remains
- open.
-
-‘C-x C-s’ (‘magit-popup-save-default-arguments’)
-
- This sets the default value for the arguments for the current popup
- and saves it for future Emacs sessions.
-
- Then the popup buffer is closed without invoking an action; unless
- a prefix argument is used in which case the popup remains open.
-
- It is also possible to add additional arguments and commands to an
-existing popup, but that cannot be done directly from the popup (or the
-Custom interface). See *note Customizing Existing Popups::.
-
- Documentation about a popup’s arguments and commands can be shown
-directly from the popup.
-
-‘C-h i’ (‘magit-popup-info’)
-
- Show this manual.
-
-‘?’ (‘magit-popup-help’)
-
- This command reads a key sequence and then shows the documentation
- of the argument or command that sequence is bound to. In other
- words type the same keys that you would use to invoke the argument
- or command, but prefix the sequence with ‘?’.
-
- For suffix commands this shows the doc-string. For arguments this
- command can only show something for popups that have an associated
- man-page. If the man-page is set, then this command displays it in
- a separate buffer and puts point on the entry about the argument in
- question.
-
- The buffer which is used to display the documentation is selected.
- Simply press ‘q’ to leave that buffer and restore the old window
- configuration.
-
- While it isn’t very useful, it is possible to move around in a popup
-buffer using ‘C-p’ and ‘C-n’, and to invoke the argument or command at
-point using ‘RET’. But it is much more efficient to use the dedicated
-key bindings instead, so these commands are not listed in popup buffers
-along with the other common commands.
-
-* Menu:
-
-* Customizing Existing Popups::
-* Other Options::
-
-
-File: magit-popup.info, Node: Customizing Existing Popups, Next: Other Options, Up: Usage
-
-2.1 Customizing Existing Popups
-===============================
-
-It is possible to define additional infix arguments and suffix commands
-to an existing popup using the following functions.
-
- You can find some examples which use the below commands at
-<https://github.com/magit/magit/wiki/Additional-proposed-infix-arguments-and-suffix-commands>.
-
- -- Function: magit-define-popup-switch popup key desc switch &optional
- enable at prepend
-
- In POPUP, define KEY as SWITCH.
-
- POPUP is a popup command defined using ‘magit-define-popup’.
- SWITCH is a string representing an argument that takes no value.
- KEY is a character representing the second event in the sequence of
- keystrokes used to toggle the argument. (The first event, the
- prefix, is shared among all switches, defaults to ‘-’, and can be
- changed in ‘magit-popup-mode-keymap’).
-
- DESC is a string describing the purpose of the argument, it is
- displayed in the popup.
-
- If optional ENABLE is non-nil then the switch is on by default.
-
- SWITCH is inserted after all other switches already defined for
- POPUP, unless optional PREPEND is non-nil, in which case it is
- placed first. If optional AT is non-nil then it should be the KEY
- of another switch already defined for POPUP, the argument is then
- placed before or after AT, depending on PREPEND.
-
- -- Function: magit-define-popup-option popup key desc option &optional
- reader value at prepend
-
- In POPUP, define KEY as OPTION.
-
- POPUP is a popup command defined using ‘magit-define-popup’.
- OPTION is a string representing an argument that takes a value.
- KEY is a character representing the second event in the sequence of
- keystrokes used to set the argument’s value. (The first event, the
- prefix, is shared among all options, defaults to ‘=’, and can be
- changed in ‘magit-popup-mode-keymap’).
-
- DESC is a string describing the purpose of the argument, it is
- displayed in the popup.
-
- If optional VALUE is non-nil then the option is on by default, and
- VALUE is its default value.
-
- READER is used to read a value from the user when the option is
- invoked and does not currently have a value. (When the option has
- a value, then invoking the option causes it to be unset.) This
- function must take two arguments but may choose to ignore them.
- The first argument is the name of the option (with ": \" appended,
- unless it ends with "=") and can be used as the prompt. The second
- argument is nil or the value that was in effect before the option
- was unset, which may be suitable as initial completion input. If
- no reader is specified, then ‘read-from-minibuffer’ is used.
-
- OPTION is inserted after all other options already defined for
- POPUP, unless optional PREPEND is non-nil, in which case it is
- placed first. If optional AT is non-nil then it should be the KEY
- of another option already defined for POPUP, the argument is then
- placed before or after AT, depending on PREPEND.
-
- -- Function: magit-define-popup-action popup key desc command &optional
- at prepend
-
- In POPUP, define KEY as COMMAND.
-
- POPUP is a popup command defined using ‘magit-define-popup’.
- COMMAND can be any command but should usually consume the popup
- arguments in its ‘interactive’ form. KEY is a character
- representing the event used invoke the action, i.e. to
- interactively call the COMMAND.
-
- DESC is a string describing the purpose of the action, it is
- displayed in the popup.
-
- COMMAND is inserted after all other commands already defined for
- POPUP, unless optional PREPEND is non-nil, in which case it is
- placed first. If optional AT is non-nil then it should be the KEY
- of another command already defined for POPUP, the command is then
- placed before or after AT, depending on PREPEND.
-
- -- Function: magit-define-popup-sequence-action popup key desc command
- &optional at prepend
-
- Like ‘magit-define-popup-action’, but modifies the value of the
- ‘:sequence-actions’ property instead of ‘:actions’.
-
- -- Function: magit-define-popup-variable popup key desc command
- formatter &optional at prepend
-
- In POPUP, define KEY as COMMAND.
-
- POPUP is a popup command defined using ‘magit-define-popup’.
- COMMAND is a command which calls ‘magit-popup-set-variable’.
- FORMATTER is a function which calls ‘magit-popup-format-variable’.
- These two functions have to be called with the same arguments.
-
- KEY is a character representing the event used interactively call
- the COMMAND.
-
- DESC is the variable or a representation thereof. It’s not
- actually used for anything.
-
- COMMAND is inserted after all other commands already defined for
- POPUP, unless optional PREPEND is non-nil, in which case it is
- placed first. If optional AT is non-nil then it should be the KEY
- of another command already defined for POPUP, the command is then
- placed before or after AT, depending on PREPEND."
-
- -- Function: magit-change-popup-key popup type from to
-
- In POPUP, bind TO to what FROM was bound to. TYPE is one of
- ‘:action’, ‘:sequence-action’, ‘:switch’, or ‘:option’. Bind TO
- and unbind FROM, both are characters.
-
- -- Function: magit-remove-popup-key popup type key
-
- In POPUP, remove KEY’s binding of TYPE. POPUP is a popup command
- defined using ‘magit-define-popup’. TYPE is one of ‘:action’,
- ‘:sequence-action’, ‘:switch’, or ‘:option’. KEY is the character
- which is to be unbound.
-
- It is also possible to change other aspects of a popup by setting a
-property using ‘plist-put’. See *note Defining Prefix Commands:: for
-valid properties. The most likely change Magit users might want to make
-is:
-
- (plist-put magit-show-refs-popup :use-prefix nil)
-
-
-File: magit-popup.info, Node: Other Options, Prev: Customizing Existing Popups, Up: Usage
-
-2.2 Other Options
-=================
-
- -- User Option: magit-popup-use-prefix-argument
-
- This option controls the effect that the use of a prefix argument
- before entering a popup has.
-
- • ‘default’
-
- With a prefix argument directly invoke the popup’s default
- action (an Emacs command), instead of bringing up the popup.
-
- • ‘popup’
-
- With a prefix argument bring up the popup, otherwise directly
- invoke the popup’s default action.
-
- • ‘nil’
-
- Ignore prefix arguments.
-
- This option can be overridden for individual popups.
- ‘magit-show-refs-popup’ for example defaults to invoking the
- default action directly. It only shows the popup buffer when a
- prefix argument is used. See *note Customizing Existing Popups::.
-
- -- User Option: magit-popup-manpage-package
-
- The Emacs package used to display man-pages, one of ‘man’ or
- ‘woman’.
-
- -- User Option: magit-popup-display-buffer-action
-
- The option controls how the window used to display a popup buffer
- is created. Popup buffers are displayed using ‘display-buffer’
- with the value of this option as ACTION argument. You can also set
- this to nil and instead add an entry to ‘display-buffer-alist’.
-
- To emphasize the default action by making it bold use this:
-
- (button-type-put 'magit-popup-action-button 'format " %k %D")
-
-
-File: magit-popup.info, Node: Defining Prefix and Suffix Commands, Prev: Usage, Up: Top
-
-3 Defining Prefix and Suffix Commands
-*************************************
-
-If you write an extension for Magit then you should use this library now
-and later when ‘transient’ is released port to that.
-
- If you are considering using this library to define popups for
-packages not related to Magit, then keep in mind that it will be
-superseded eventually. Once ‘transient’ has been released I will only
-fix bugs in ‘magit-popup’ but not implement any new features.
-
- Also consider using ‘hydra’ instead. To some extend ‘magit-popup’
-and ‘hydra’ are similar but have a different focus. The main purpose of
-‘magit-popup’ is to pass infix arguments to suffix commands. If all you
-need is a command dispatcher then you are better of using ‘hydra’. Of
-course ‘hydra’ may also be a better fit not only because of the features
-it lacks, but also because of the features it provides, which are in
-turn missing from ‘magit-popup’.
-
- Here is an example of how one defines a prefix command along with its
-infix arguments, and then also one of its suffix commands.
-
- ;;;###autoload (autoload 'magit-tag-popup "magit" nil t)
- (magit-define-popup magit-tag-popup
- "Show popup buffer featuring tagging commands."
- 'magit-commands
- :man-page "git-tag"
- :switches '((?a "Annotate" "--annotate")
- (?s "Sign" "--sign")
- (?f "Force" "--force"))
- :actions '((?t "Create" magit-tag)
- (?k "Delete" magit-tag-delete)
- (?p "Prune" magit-tag-prune))
- :default-action 'magit-tag)
-
- ;;;###autoload
- (defun magit-tag (name rev &optional args)
- "Create a new tag with the given NAME at REV."
- (interactive (list (magit-read-tag "Tag name")
- (magit-read-branch-or-commit "Place tag on")
- (magit-tag-arguments)))
- (magit-run-git-with-editor "tag" args name rev))
-
-* Menu:
-
-* Defining Prefix Commands::
-* Defining Suffix Commands::
-
-
-File: magit-popup.info, Node: Defining Prefix Commands, Next: Defining Suffix Commands, Up: Defining Prefix and Suffix Commands
-
-3.1 Defining Prefix Commands
-============================
-
-Prefix commands and their infix arguments are defined using the macro
-‘magit-define-popup’. The key bindings and descriptions of suffix
-commands are also defined using that macro, but the actual interactive
-commands have to be defined separately using plain ‘defun’.
-
- -- Macro: magit-define-popup name doc [group [mode [option]]] :keyword
- value...
-
- This macro defines a popup named NAME. The NAME should begin with
- the package prefix and by convention end with ‘-popup’, it is used
- as the name of the command which shows the popup and for an
- internal variable (whose value is used to store information about
- the popup and should not be accessed directly). DOC is the
- doc-string of the popup command.
-
- This macro also defines an option and a function both named
- ‘SHORTNAME-arguments’, where SHORTNAME is NAME with the trailing
- ‘-popup’ removed. The name of this option and this function can be
- overwritten using the optional argument OPTION, but that is rarely
- advisable. As a special case if OPTION is specified but ‘nil’,
- then this option and this function are not defined at all, which is
- useful for popups that are used as simple dispatchers that offer no
- arguments.
-
- The option ‘SHORTNAME-arguments’ holds the value for the popup
- arguments. It can be customized from within the popup or using the
- Custom interface. It can also have a buffer local value in any
- non-popup buffer. The local value for the buffer from which the
- popup command was invoked, can be set from within the popup buffer.
-
- The function ‘SHORTNAME-arguments’ returns the currently effective
- value of the variable by the same name. See below for more
- information.
-
- Optional argument GROUP specifies the Custom group into which the
- option is placed. If omitted then the option is placed into some
- group the same way it is done when directly using ‘defcustom’ and
- omitting the group, except when NAME begins with "magit-", in which
- case the group ‘magit-git-arguments’ is used.
-
- The optional argument MODE specifies the mode used by the popup
- buffer. If it is omitted or ‘nil’ then ‘magit-popup-mode’ is used.
-
- The remaining arguments should have the form ‘[KEYWORD VALUE]...’.
-
- The following keywords are meaningful (and by convention are
- usually specified in that order):
-
- • ‘:actions’
-
- The actions which can be invoked from the popup. VALUE is a
- list whose members have the form (KEY DESC COMMAND), see
- ‘magit-define-popup-action’ for details.
-
- Actions are regular Emacs commands, which usually have an
- ‘interactive’ form setup to consume the values of the popup
- ‘:switches’ and ‘:options’ when invoked from the corresponding
- popup, else when invoked as the default action or directly
- without using the popup, the default value of the variable
- ‘SHORTNAME-arguments’. This is usually done by calling the
- function ‘SHORTNAME-arguments’.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string,
- which is used as the heading, or nil, in which case the
- section is not inserted.
-
- Members of VALUE may also be nil. This should only be used
- together with ‘:max-action-columns’ and allows having gaps in
- the action grit, which can help arranging actions sensibly.
-
- • ‘:default-action’
-
- The default action of the popup which is used directly instead
- of displaying the popup buffer, when the popup is invoked with
- a prefix argument. Also see ‘magit-popup-use-prefix-argument’
- and ‘:use-prefix’, which can be used to inverse the meaning of
- the prefix argument.
-
- • ‘:use-prefix’
-
- Controls when to display the popup buffer and when to invoke
- the default action (if any) directly. This overrides the
- global default set using ‘magit-popup-use-prefix-argument’.
- The value, if specified, should be one of ‘default’ or
- ‘prefix’, or a function that is called with no arguments and
- returns one of these symbols.
-
- • ‘:max-action-columns’
-
- The maximum number of actions to display on a single line, a
- number or a function that return a number and takes the name
- of the section currently being inserted as argument. If there
- isn’t enough room to display as many columns as specified
- here, then fewer are used.
-
- • ‘:switches’
-
- The popup arguments which can be toggled on and off. VALUE is
- a list whose members have the form ‘(KEY DESC SWITCH)’, see
- ‘magit-define-popup-switch’ for details.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string,
- which is used as the heading, or nil, in which case the
- section is not inserted.
-
- • ‘:options’
-
- The popup arguments which take a value, as in "–opt~OPTVAL".
- VALUE is a list whose members have the form ‘(KEY DESC OPTION
- READER)’, see ‘magit-define-popup-option’ for details.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string,
- which is used as the heading, or nil, in which case the
- section is not inserted.
-
- • ‘:default-arguments’
-
- The default arguments, a list of switches (which are then
- enabled by default) and options with there default values, as
- in ‘"--OPT=OPTVAL"’.
-
- • ‘:variables’
-
- Variables which can be set from the popup. VALUE is a list
- whose members have the form ‘(KEY DESC COMMAND FORMATTER)’,
- see ‘magit-define-popup-variable’ for details.
-
- Members of VALUE may also be strings and functions, assuming
- the first member is a string or function. In that case the
- members are split into sections and these special elements are
- used as headings. If such an element is a function then it is
- called with no arguments and must return either a string,
- which is used as the heading, or nil, in which case the
- section is not inserted.
-
- Members of VALUE may also be actions as described above for
- ‘:actions’.
-
- VALUE may also be a function that returns a list as describe
- above.
-
- • ‘:sequence-predicate’
-
- When this function returns non-nil, then the popup uses
- ‘:sequence-actions’ instead of ‘:actions’, and does not show
- the ‘:switches’ and ‘:options’.
-
- • ‘:sequence-actions’
-
- The actions which can be invoked from the popup, when
- ‘:sequence-predicate’ returns non-nil.
-
- • ‘:setup-function’
-
- When this function is specified, then it is used instead of
- ‘magit-popup-default-setup’.
-
- • ‘:refresh-function’
-
- When this function is specified, then it is used instead of
- calling ‘magit-popup-insert-section’ three times with symbols
- ‘magit-popup-switch-button’, ‘magit-popup-option-button’, and
- finally ‘magit-popup-action-button’ as argument.
-
- • ‘:man-page’
-
- The name of the manpage to be displayed when the user requests
- help for an argument.
-
-
-File: magit-popup.info, Node: Defining Suffix Commands, Prev: Defining Prefix Commands, Up: Defining Prefix and Suffix Commands
-
-3.2 Defining Suffix Commands
-============================
-
-Commands intended to be invoked from a particular popup should determine
-the currently effective arguments by calling the function
-‘SHORTNAME-arguments’ inside their ‘interactive’ form. This function is
-created by the ‘magit-define-popup’ macro. For a popup named
-‘prefix-foo-popup’ the name of this function is ‘prefix-foo-arguments’.
-
- When the command was invoked as an action in the respective popup,
-then this function returns the arguments that were set in the popup.
-Otherwise when the command was invoked as the default of the popup (by
-calling the popup command with a prefix argument), or without using the
-popup command at all, then this function returns the buffer-local or
-global value of the variable ‘SHORTNAME-arguments’.
-
- Internally arguments are handled as a list of strings. This might
-not be appropriate for the intended use inside commands, or it might be
-necessary to manipulate that list somehow, i.e. to split "–ARG=VAL"
-into "–ARG""VAL". This should be done by advising or redefining the
-function ‘SHORTNAME-arguments’.
-
- Internally ‘SHORNAME-arguments’ used following variables and
-function. Except when redefining the former, you should not use these
-directly.
-
- -- Variable: magit-current-popup
-
- The popup from which this editing command was invoked.
-
- -- Variable: magit-current-popup-args
-
- The value of the popup arguments for this editing command.
-
- If the current command was invoked from a popup, then this is a
- list of strings of all the set switches and options. This includes
- arguments which are set by default not only those explicitly set
- during this invocation.
-
- When the value is nil, then that can be because no argument is set,
- or because the current command wasn’t invoked from a popup at all.
-
- -- Function: magit-current-popup-args &rest args
-
- This function returns the value of the popup arguments for this
- editing command. The value is the same as that of the variable by
- the same name, except that FILTER is applied. FILTER is a list of
- regexps; only arguments that match one of them are returned. The
- first element of FILTER may also be ‘:not’ in which case only
- arguments that don’t match any of the regexps are returned, or
- ‘:only’ which doesn’t change the behavior.
-
-
-
-Tag Table:
-Node: Top769
-Node: Introduction2004
-Node: Usage4703
-Node: Customizing Existing Popups9400
-Node: Other Options15541
-Node: Defining Prefix and Suffix Commands17084
-Node: Defining Prefix Commands19236
-Node: Defining Suffix Commands27931
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:
diff --git a/elpa/nyan-mode-20170423.740/img/nyan-frame-1.xpm b/elpa/nyan-mode-20170423.740/img/nyan-frame-1.xpm
deleted file mode 100644
index 00196af..0000000
--- a/elpa/nyan-mode-20170423.740/img/nyan-frame-1.xpm
+++ /dev/null
@@ -1,170 +0,0 @@
-/* XPM */
-static char *nyan_frame_1[] = {
-/* columns rows colors chars-per-pixel */
-"25 15 149 2 ",
-" c black",
-". c #070B0F",
-"X c #0C0C0C",
-"o c #041C0C",
-"O c #000810",
-"+ c #070917",
-"@ c #0F1011",
-"# c #02191F",
-"$ c #111111",
-"% c #161616",
-"& c #082903",
-"* c #142700",
-"= c #083919",
-"- c #292B00",
-"; c #3C3400",
-": c #120B2D",
-"> c #001020",
-", c #3F1E31",
-"< c #172635",
-"1 c #222222",
-"2 c gray15",
-"3 c #2B2525",
-"4 c #2A2A2A",
-"5 c gray18",
-"6 c #3E2525",
-"7 c #2C2F32",
-"8 c gray22",
-"9 c #3A3C3E",
-"0 c gray24",
-"q c #490C00",
-"w c #7C0B10",
-"e c #4C2400",
-"r c #4C3100",
-"t c #483F00",
-"y c #403326",
-"u c #4B3C2D",
-"i c #423B34",
-"p c #3D4100",
-"a c #615600",
-"s c #09264A",
-"d c #1D2877",
-"f c #322E75",
-"g c #522244",
-"h c #434343",
-"j c #464646",
-"k c #4C4646",
-"l c gray29",
-"z c gray30",
-"x c #514C51",
-"c c gray34",
-"v c #54575A",
-"b c #5D5D5D",
-"n c #745D46",
-"m c #775E5E",
-"M c #614C61",
-"N c #6D4C6D",
-"B c #625962",
-"V c gray38",
-"C c #646464",
-"Z c #686868",
-"A c #7B6C6C",
-"S c gray45",
-"D c #767676",
-"F c #7B7B7B",
-"G c gray50",
-"H c #BF1119",
-"J c #F52A02",
-"K c #FC7800",
-"L c #947256",
-"P c #26B210",
-"I c #438500",
-"U c #2CCB13",
-"Y c #20D15C",
-"T c #889000",
-"R c #C4AC00",
-"E c #FBA500",
-"W c #F0D300",
-"Q c #BF9973",
-"! c #202C81",
-"~ c #263498",
-"^ c #432AAB",
-"/ c #5536D9",
-"( c #1E7FF7",
-") c #4D43E9",
-"_ c #5247F7",
-"` c #885788",
-"' c #A261A2",
-"] c #AA66AA",
-"[ c #AE68AE",
-"{ c #FF5FC5",
-"} c #C576C5",
-"| c #D17DD1",
-" . c #FF66CC",
-".. c #F069C9",
-"X. c #FF68CE",
-"o. c #E073CD",
-"O. c #FF6BD1",
-"+. c #FF72D8",
-"@. c #FF77DD",
-"#. c #FF7CE2",
-"$. c #0A819C",
-"%. c #0EA7CB",
-"&. c #1E80F7",
-"*. c #868686",
-"=. c #888888",
-"-. c gray56",
-";. c gray59",
-":. c gray60",
-">. c #A68F8F",
-",. c #A09999",
-"<. c #A89999",
-"1. c #B09999",
-"2. c #B59999",
-"3. c #A0A0A0",
-"4. c gray65",
-"5. c #D79999",
-"6. c #F69999",
-"7. c #FF9999",
-"8. c #D8AD82",
-"9. c #F0BB99",
-"0. c #F0B6A2",
-"q. c #FFBBBB",
-"w. c #FFBCB9",
-"e. c #F0C090",
-"r. c #FFCC99",
-"t. c #FFC7A2",
-"y. c #FFC7A4",
-"u. c #D882D8",
-"i. c #FF95D5",
-"p. c #FFB3CC",
-"a. c #E086E0",
-"s. c #FF80E6",
-"d. c #FF85EB",
-"f. c #FF86EC",
-"g. c #FF8AF0",
-"h. c #FF8DF3",
-"j. c #FF8FF5",
-"k. c #F794F7",
-"l. c #FF90F6",
-"z. c #FF9DF7",
-"x. c #FF92F8",
-"c. c #FF94FA",
-"v. c #FF97FD",
-"b. c #FF99FF",
-"n. c #FFA6E6",
-"m. c #FFA8E0",
-"M. c #FFA8E2",
-"N. c gray81",
-"B. c None",
-/* pixels */
-"g g g g g g , y y y y y y y y y y y y 7 B.B.B.B.B.",
-"H H H H H w L r.w.p.p.p.p.p.p.p.p.p.y.8.8 B.B.B.B.",
-"J J J J J q e.w.b.b.b.b.{ b. .x.b.b.m.r.n B.B.B.B.",
-"K K K K K e 0.b. .x.b.b.b.b.u.} x.h.x.m.n B.B.B.B.",
-"E E E E E r 0.b.b.b.b.b.b.| M z ] #.x.m.n B.l B.B.",
-"R ; ; a W t 0.b.b.b.b. .x.' b ;.B [ b.m.n V :.l B.",
-"T 8 -.1 p - 0.b.b.f.b.b.b.' b :.:.b 1 4 V :.:.l B.",
-"I * 8 *.4 0.b.b.+.b.b...N F :.:.:.:.:.:.:.:.S B.",
-"U P & 8 =.1 0.#.s.b.b.b.o.8 :.3.4.Z :.:.:.N.j :.4 ",
-"Y Y Y = o 0.b.b.b.h.x.a.8 <.>.2 V :.D Z 8 k 2.3 ",
-"%.%.%.%.$.# 9.m.@.x.f.f.a.8 5.6.*.F :.V :.b 2.7.6 ",
-"&.&.&.&.&.s 9.y.i.b.b.b.k.` A 1.V % 1 X 4 X ,.m B.",
-"_ _ _ ) f 1 i Q Q Q Q Q Q Q u V S S S S S S v B.B.",
-"/ / / ^ l :.j : O l 4 > B.B.B.. l 1 B.% l % B.B.B.",
-"~ ~ ~ d % 1 O ! > 1 < B.B.B.B.B.2 % B.B.1 B.B.B.B."
-};
diff --git a/elpa/nyan-mode-20170423.740/img/nyan-frame-2.xpm b/elpa/nyan-mode-20170423.740/img/nyan-frame-2.xpm
deleted file mode 100644
index f768df7..0000000
--- a/elpa/nyan-mode-20170423.740/img/nyan-frame-2.xpm
+++ /dev/null
@@ -1,157 +0,0 @@
-/* XPM */
-static char *nyan_frame_2[] = {
-/* columns rows colors chars-per-pixel */
-"25 15 136 2 ",
-" c #00070E",
-". c #07090A",
-"X c #070B0F",
-"o c #0C0C0C",
-"O c #000A14",
-"+ c #100D1C",
-"@ c #0F1011",
-"# c #111111",
-"$ c gray9",
-"% c #152900",
-"& c #083417",
-"* c #180F3E",
-"= c #032D37",
-"- c #202020",
-"; c #252525",
-": c #2B2525",
-"> c #2A2A2A",
-", c #3E2525",
-"< c #3F3127",
-"1 c #3C3229",
-"2 c gray20",
-"3 c gray22",
-"4 c #3F3F3F",
-"5 c #431C38",
-"6 c #403326",
-"7 c #4B3C2D",
-"8 c #254900",
-"9 c #227C13",
-"0 c #626800",
-"q c #6C720A",
-"w c #6F7509",
-"e c #764939",
-"r c #1E2974",
-"t c #322E75",
-"y c #522244",
-"u c #075568",
-"i c #414141",
-"p c #464646",
-"a c #4C4646",
-"s c gray29",
-"d c gray30",
-"f c #584E44",
-"g c #514C51",
-"h c gray34",
-"j c #54575A",
-"k c #5D5D5D",
-"l c #775E5E",
-"z c #5B5E61",
-"x c #614C61",
-"c c #6D4C6D",
-"v c #625962",
-"b c gray38",
-"n c #646464",
-"m c #686868",
-"M c #7B6C6C",
-"N c #6F706F",
-"B c gray45",
-"V c #767676",
-"C c #7B7B7B",
-"Z c gray49",
-"A c #851601",
-"S c #930D13",
-"D c #BF1119",
-"F c #F52A02",
-"G c #894100",
-"H c #885900",
-"J c #827300",
-"K c #FC7800",
-"L c #14843A",
-"P c #20D15C",
-"I c #B2BD00",
-"U c #FBA500",
-"Y c #F0D300",
-"T c #B28E6B",
-"R c #B6926E",
-"E c #BF9973",
-"W c #212E87",
-"Q c #263498",
-"! c #432AAB",
-"~ c #104586",
-"^ c #5536D9",
-"/ c #1E7FF7",
-"( c #4D43E9",
-") c #5247F7",
-"_ c #885788",
-"` c #AA5599",
-"' c #A261A2",
-"] c #AE68AE",
-"[ c #C576C5",
-"{ c #D17DD1",
-"} c #FF68CE",
-"| c #FF6DD3",
-" . c #FF77DD",
-".. c #FF79DF",
-"X. c #FF7BE1",
-"o. c #FF7DE3",
-"O. c #0EA7CB",
-"+. c #1E80F7",
-"@. c gray59",
-"#. c gray60",
-"$. c #A68F8F",
-"%. c #A09999",
-"&. c #A89999",
-"*. c #B09999",
-"=. c #B59999",
-"-. c #A0A0A0",
-";. c gray65",
-":. c #D79999",
-">. c #F69999",
-",. c #FF9999",
-"<. c #F7C694",
-"1. c #FFCA9E",
-"2. c #FFC5A7",
-"3. c #FFC1AF",
-"4. c #D882D8",
-"5. c #E083DD",
-"6. c #FFA4C8",
-"7. c #FFB3CC",
-"8. c #FFAFD2",
-"9. c #E086E0",
-"0. c #FF80E6",
-"q. c #FF83E9",
-"w. c #F08AE9",
-"e. c #FF8EEB",
-"r. c #FF88EE",
-"t. c #FF8AF0",
-"y. c #FF8EF4",
-"u. c #F794F7",
-"i. c #FF90F6",
-"p. c #FF94FA",
-"a. c #FF97FD",
-"s. c #FF9CF9",
-"d. c #FF99FF",
-"f. c #FFA0F0",
-"g. c gray81",
-"h. c None",
-/* pixels */
-"y y y y y 5 < < < < 6 6 6 6 6 6 < < < h.h.h.h.h.h.",
-"D D D D S e <.3.7.7.7.7.7.7.7.7.7.3.<.f h.h.h.h.h.",
-"F F F F A T 2.f.s.d.d.} y.X.X.d.s.f.2.T h.h.h.h.h.",
-"K K K K G T s...0.s.d.d.s.d.4.[ i.y.s.T h.h.h.h.h.",
-"U U U U H T s.d.d.d.d.d.s.{ x g ` 0.s.T h.h.d h.h.",
-"Y Y Y Y J T s.d.d.d.X.X.d.' k @.v ] s.T z #.d h.",
-"w ; w I 0 T s.d.0.s.d.d.d.' k #.#.k ; ; b #.#.d h.",
-"; #.> 8 % T s.d...d.d...w.c C #.#.#.#.#.#.#.#.B h.",
-"9 k C B 4 T y.| d.d.d.0.9.3 #.-.;.m #.#.#.g.a #.; ",
-"P L & N 4 T s.s.d.d.r.d.9.3 &.$.; m #.C m 3 a *.: ",
-"O.O.O.u = T 8.0.0.y.X.d.9.3 :.>.Z Z #.b #.z *.,., ",
-"+.+./ / ~ T 1.6.i.d.s.d.u._ M *.b $ ; o ; o %.l h.",
-") ) ) ( t ; R E E E E E E E 7 b B B B B B B j h.h.",
-"^ ^ ^ ! s #.+ * 2 i X h.h.h.h.X d ; h.# d @ h.h.h.",
-"Q Q Q r @ ; r W h.- h.h.h.h.h.h.; # h.h.; . h.h.h."
-};
diff --git a/elpa/nyan-mode-20170423.740/img/nyan-frame-3.xpm b/elpa/nyan-mode-20170423.740/img/nyan-frame-3.xpm
deleted file mode 100644
index 288cf89..0000000
--- a/elpa/nyan-mode-20170423.740/img/nyan-frame-3.xpm
+++ /dev/null
@@ -1,159 +0,0 @@
-/* XPM */
-static char *nyan_frame_3[] = {
-/* columns rows colors chars-per-pixel */
-"25 15 138 2 ",
-" c black",
-". c #00070F",
-"X c #0E0E0E",
-"o c #0B1700",
-"O c #061B02",
-"+ c #030C16",
-"@ c #02191F",
-"# c #151515",
-"$ c #1B1B1B",
-"% c gray11",
-"& c #0B3204",
-"* c #363900",
-"= c #27221C",
-"- c #0B0F2D",
-"; c #001122",
-": c #3F1E31",
-"> c #03252E",
-", c #1E262E",
-"< c gray15",
-"1 c #2A2A2A",
-"2 c #2C2C2C",
-"3 c #2C2F32",
-"4 c gray22",
-"5 c #3A3C3E",
-"6 c #3C3C3C",
-"7 c #490C00",
-"8 c #7C0B10",
-"9 c #4C2400",
-"0 c #4C3100",
-"q c #483F00",
-"w c #403326",
-"e c #145C08",
-"r c #3C7501",
-"t c #191041",
-"y c #18154A",
-"u c #052749",
-"i c #002E5D",
-"p c #212646",
-"a c #373E44",
-"s c #522244",
-"d c #643C64",
-"f c #285059",
-"g c #414141",
-"h c #484848",
-"j c gray30",
-"k c #5C4242",
-"l c #554755",
-"z c #544C54",
-"x c #5E4D5E",
-"c c #5A5A5A",
-"v c #5D5D5D",
-"b c #745D46",
-"n c #634463",
-"m c #614C61",
-"M c gray38",
-"N c #6F6161",
-"B c #6D6D6D",
-"V c gray45",
-"C c #777777",
-"Z c gray48",
-"A c gray49",
-"S c #BF1119",
-"D c #F52A02",
-"F c #FC7800",
-"G c #947256",
-"H c #847373",
-"J c #4D9801",
-"K c #2CCB13",
-"L c #189E45",
-"P c #B4BF00",
-"I c #FBA500",
-"U c #F0D300",
-"Y c #BF9973",
-"T c #263498",
-"R c #165FB9",
-"E c #5536D9",
-"W c #196ED5",
-"Q c #1A70D8",
-"! c #1E7FF7",
-"~ c #5247F7",
-"^ c #A261A2",
-"/ c #B26BB2",
-"( c #C95BAC",
-") c #FF5FC5",
-"_ c #C979C9",
-"` c #D17DD1",
-"' c #FF66CC",
-"] c #FF68CE",
-"[ c #FF6BD1",
-"{ c #FF72D8",
-"} c #FF77DD",
-"| c #0C92B2",
-" . c gray51",
-".. c #848484",
-"X. c #8B8B8B",
-"o. c #8D8D8D",
-"O. c #9D8888",
-"+. c gray57",
-"@. c #979797",
-"#. c gray60",
-"$. c #A69999",
-"%. c #AA9999",
-"&. c #AF9999",
-"*. c #B39999",
-"=. c gray70",
-"-. c #CE9999",
-";. c #DD9999",
-":. c #F09999",
-">. c #FF9999",
-",. c #D8AD82",
-"<. c #F0BB99",
-"1. c #F0B6A2",
-"2. c #FFBBBB",
-"3. c #FFBCB9",
-"4. c #F0C090",
-"5. c #FFCC99",
-"6. c #FFC7A2",
-"7. c #FFC7A4",
-"8. c #D580D5",
-"9. c #DC84DC",
-"0. c #FF95D5",
-"q. c #FFB3CC",
-"w. c #E88BE8",
-"e. c #FF80E6",
-"r. c #FF85EB",
-"t. c #FF86EC",
-"y. c #FF8AF0",
-"u. c #FF8DF3",
-"i. c #FF8FF5",
-"p. c #FF90F6",
-"a. c #FF9DF7",
-"s. c #FF92F8",
-"d. c #FF94FA",
-"f. c #FF97FD",
-"g. c #FF99FF",
-"h. c #FFA6E6",
-"j. c #FFA8E0",
-"k. c None",
-/* pixels */
-"s s s s s s : w w w w w w w w w w w w 3 k.k.k.k.k.",
-"S S S S S 8 G 5.3.q.q.q.q.q.q.q.q.q.7.,.4 k.k.k.k.",
-"D D D D D 7 4.3.g.g.g.g.) g.' s.g.g.h.5.b k.k.k.k.",
-"F F F F F 9 1.g.' s.g.g.g.g.g._ ` u.s.j.b k.k.k.k.",
-"I I I I I 0 1.g.g.g.g.g.g.g./ z x ( s.j.b k.k.j k.",
-"U U U U U q 1.g.g.g.g.' s.g.d .o.z 9.j.b + A #.< ",
-"P P P P P * 1.g.g.t.g.g.g.g.d .#.#.4 < < .#.#.< ",
-"J J J J r o 1.g.g.{ g.g.{ ` m X.#.#.#.#.#.#.#.#.M ",
-"K K e & O 1.} e.g.g.g.e.^ v #.=.C .#.#.#.=.c @.",
-"L # Z +.B , 1.g.g.g.s.s.g.^ v &.H < .#.c A < N *.",
-"| f j 4 > @ <.j.} s.t.t.g.^ v :.;.B X. .C #.M -.>.",
-"! Q R R W u <.7.0.g.g.g.g.w.n O.&.g % % # < 1 $.k ",
-"~ ~ ~ ~ ~ y 4 Y Y Y Y Y Y Y Y = V V V V V V V a k.",
-"E E E E E t Y , ; X j % k.k.k.k.; 1 j . k.4 4 k.k.",
-"T T T T T - < p i k.< X k.k.k.k.k.k.1 k.k., % k.k."
-};
diff --git a/elpa/nyan-mode-20170423.740/img/nyan-frame-4.xpm b/elpa/nyan-mode-20170423.740/img/nyan-frame-4.xpm
deleted file mode 100644
index 4c26764..0000000
--- a/elpa/nyan-mode-20170423.740/img/nyan-frame-4.xpm
+++ /dev/null
@@ -1,157 +0,0 @@
-/* XPM */
-static char *nyan_frame_4[] = {
-/* columns rows colors chars-per-pixel */
-"25 15 136 2 ",
-" c #00070E",
-". c #07090A",
-"X c #070B0F",
-"o c #0C0C0C",
-"O c #000A14",
-"+ c #100D1C",
-"@ c #0F1011",
-"# c #111111",
-"$ c gray9",
-"% c #152900",
-"& c #0B3204",
-"* c #180F3E",
-"= c #032D37",
-"- c #192633",
-"; c #202020",
-": c gray15",
-"> c #2B2525",
-", c #2A2A2A",
-"< c #3E2525",
-"1 c #3F3127",
-"2 c #3C3229",
-"3 c gray20",
-"4 c gray22",
-"5 c #3F3F3F",
-"6 c #431C38",
-"7 c #403326",
-"8 c #4B3C2D",
-"9 c #284E00",
-"0 c #1B7F3D",
-"q c #626800",
-"w c #764939",
-"e c #1E2974",
-"r c #322E75",
-"t c #522244",
-"y c #065062",
-"u c #414141",
-"i c #464646",
-"p c #4C4646",
-"a c gray29",
-"s c gray30",
-"d c #584E44",
-"f c #514C51",
-"g c gray34",
-"h c #54575A",
-"j c #5D5D5D",
-"k c #775E5E",
-"l c #5B5E61",
-"z c #614C61",
-"x c #6D4C6D",
-"c c #625962",
-"v c gray38",
-"b c #646464",
-"n c #686868",
-"m c #7B6C6C",
-"M c #6F706F",
-"N c gray45",
-"B c #767676",
-"V c #7B7B7B",
-"C c gray49",
-"Z c #851601",
-"A c #930D13",
-"S c #BF1119",
-"D c #F52A02",
-"F c #894100",
-"G c #885900",
-"H c #827300",
-"J c #FC7800",
-"K c #1B800C",
-"L c #4D9801",
-"P c #2CCB13",
-"I c #B4BF00",
-"U c #FBA500",
-"Y c #F0D300",
-"T c #B28E6B",
-"R c #B6926E",
-"E c #BF9973",
-"W c #212E87",
-"Q c #263498",
-"! c #432AAB",
-"~ c #104586",
-"^ c #1A5091",
-"/ c #1A5195",
-"( c #5536D9",
-") c #1D7EF5",
-"_ c #4D43E9",
-"` c #5247F7",
-"' c #885788",
-"] c #AA5599",
-"[ c #A261A2",
-"{ c #AE68AE",
-"} c #C576C5",
-"| c #D17DD1",
-" . c #FF68CE",
-".. c #FF6DD3",
-"X. c #FF77DD",
-"o. c #FF79DF",
-"O. c #FF7BE1",
-"+. c #FF7DE3",
-"@. c gray59",
-"#. c gray60",
-"$. c #A68F8F",
-"%. c #A09999",
-"&. c #A89999",
-"*. c #B09999",
-"=. c #B59999",
-"-. c #A0A0A0",
-";. c gray65",
-":. c #D79999",
-">. c #F69999",
-",. c #FF9999",
-"<. c #F7C694",
-"1. c #FFCA9E",
-"2. c #FFC5A7",
-"3. c #FFC1AF",
-"4. c #D882D8",
-"5. c #E083DD",
-"6. c #FFA4C8",
-"7. c #FFB3CC",
-"8. c #FFAFD2",
-"9. c #E086E0",
-"0. c #FF80E6",
-"q. c #FF83E9",
-"w. c #F08AE9",
-"e. c #FF8EEB",
-"r. c #FF88EE",
-"t. c #FF8AF0",
-"y. c #FF8EF4",
-"u. c #F794F7",
-"i. c #FF90F6",
-"p. c #FF94FA",
-"a. c #FF97FD",
-"s. c #FF9CF9",
-"d. c #FF99FF",
-"f. c #FFA0F0",
-"g. c gray81",
-"h. c None",
-/* pixels */
-"t t t t t 6 1 7 7 7 7 7 7 7 7 7 1 1 1 h.h.h.h.h.h.",
-"S S S S A w <.3.7.7.7.7.7.7.7.7.7.3.<.d h.h.h.h.h.",
-"D D D D Z T 2.f.d.d.d. .i.+.+.d.s.f.2.T h.h.h.h.h.",
-"J J J J F T s.o.+.s.d.d.d.s.| } i.y.s.T h.h.h.h.h.",
-"U U U U G T s.d.d.d.d.d.d.| z f ] 0.s.T h.h.s h.h.",
-"Y Y Y Y H T s.d.d.d.+.+.d.[ j @.c { s.T l #.a h.",
-"I I I I q T s.d.r.d.d.d.d.[ j #.#.j : : v #.#.s h.",
-"L L L 9 % T s.s.o.d.d.o.w.x V #.#.#.#.#.#.#.#.N h.",
-"P K & M 5 T e...d.d.d.r.5.4 #.-.-.v #.#.#.g.p #.: ",
-"0 l C N 5 T s.d.d.y.r.d.5.4 &.$.: j #.V v 5 p *.> ",
-": #.: y = T 8.r.r.y.+.d.9.4 :.>.V @.#.v #.j *.,.< ",
-"/ : ^ ) ~ T 1.6.y.d.d.d.u.' m *.v $ : o : o %.k h.",
-"` ` ` _ r : R E E E E E E E 8 v N N N N N N h h.h.",
-"( ( ( ! i #.+ * 3 u X h.h.h.h.X s : h.# s # h.h.h.",
-"Q Q Q e @ : e W - ; h.h.h.h.h.h.: # h.h.: . h.h.h."
-};
diff --git a/elpa/nyan-mode-20170423.740/img/nyan-frame-5.xpm b/elpa/nyan-mode-20170423.740/img/nyan-frame-5.xpm
deleted file mode 100644
index 3841bd7..0000000
--- a/elpa/nyan-mode-20170423.740/img/nyan-frame-5.xpm
+++ /dev/null
@@ -1,157 +0,0 @@
-/* XPM */
-static char *nyan_frame_5[] = {
-/* columns rows colors chars-per-pixel */
-"25 15 136 2 ",
-" c black",
-". c #020F06",
-"X c #070B0F",
-"o c #08090C",
-"O c #0C0C0C",
-"+ c #1D1F00",
-"@ c #020912",
-"# c #000A14",
-"$ c #131313",
-"% c #161616",
-"& c #191919",
-"* c #251E17",
-"= c #083417",
-"- c #292B00",
-"; c #3F1E31",
-": c #04323D",
-"> c #232323",
-", c #222126",
-"< c gray14",
-"1 c gray15",
-"2 c #2B2525",
-"3 c #20262C",
-"4 c #2A2A2A",
-"5 c #3E2525",
-"6 c #2C2F32",
-"7 c gray20",
-"8 c gray22",
-"9 c #3A3C3E",
-"0 c #490C00",
-"q c #7C0B10",
-"w c #4C2400",
-"e c #4C3100",
-"r c #483F00",
-"t c #403326",
-"y c #4B3C2D",
-"u c #236119",
-"i c #6F7509",
-"p c #241856",
-"a c #1F265A",
-"s c #522244",
-"d c #414141",
-"f c #464646",
-"g c #4C4646",
-"h c #494949",
-"j c gray31",
-"k c #514C51",
-"l c gray34",
-"z c #54575A",
-"x c #5D5D5D",
-"c c #5F5F5F",
-"v c #745D46",
-"b c #614C61",
-"n c #6D4C6D",
-"m c gray38",
-"M c #646464",
-"N c gray40",
-"B c #686868",
-"V c #7B6C6C",
-"C c #727272",
-"Z c gray45",
-"A c #7B7B7B",
-"S c gray50",
-"D c #BF1119",
-"F c #F52A02",
-"G c #FC7800",
-"H c #947256",
-"J c #20980E",
-"K c #1AAF4D",
-"L c #20D15C",
-"P c #868F00",
-"I c #FBA500",
-"U c #F0D300",
-"Y c #BF9973",
-"T c #23308F",
-"R c #263498",
-"E c #39329C",
-"W c #1354A2",
-"Q c #5536D9",
-"! c #5247F7",
-"~ c #885788",
-"^ c #A261A2",
-"/ c #AA66AA",
-"( c #AE68AE",
-") c #FF5FC5",
-"_ c #C576C5",
-"` c #D17DD1",
-"' c #FF66CC",
-"] c #F069C9",
-"[ c #FF68CE",
-"{ c #E073CD",
-"} c #FF6BD1",
-"| c #FF72D8",
-" . c #FF77DD",
-".. c #FF79DF",
-"X. c #0EA7CB",
-"o. c #1E80F7",
-"O. c gray59",
-"+. c gray60",
-"@. c #A68F8F",
-"#. c #A89999",
-"$. c #B09999",
-"%. c #B59999",
-"&. c #A0A0A0",
-"*. c gray65",
-"=. c #D79999",
-"-. c #F69999",
-";. c #FF9999",
-":. c #D8AD82",
-">. c #F0BB99",
-",. c #F0B6A2",
-"<. c #FFBBBB",
-"1. c #FFBCB9",
-"2. c #F0C090",
-"3. c #FFCC99",
-"4. c #FFC7A2",
-"5. c #D882D8",
-"6. c #FF95D5",
-"7. c #FFB3CC",
-"8. c #E086E0",
-"9. c #FF80E6",
-"0. c #FF85EB",
-"q. c #FF86EC",
-"w. c #FF8AF0",
-"e. c #FF8DF3",
-"r. c #FF8FF5",
-"t. c #F794F7",
-"y. c #FF90F6",
-"u. c #FF9DF7",
-"i. c #FF92F8",
-"p. c #FF94FA",
-"a. c #FF97FD",
-"s. c #FF99FF",
-"d. c #FFA6E6",
-"f. c #FFA8E0",
-"g. c gray81",
-"h. c None",
-/* pixels */
-"s s s s s s ; t t t t t t t t t t t t 6 h.h.h.h.h.",
-"D D D D D q H 3.1.7.7.7.7.7.7.7.7.7.4.:.9 h.h.h.h.",
-"F F F F F 0 2.1.s.s.s.s.) s.' i.s.s.d.3.v h.h.h.h.",
-"G G G G G w ,.s.' i.s.s.s.s.5._ u.e.p.f.v h.h.h.h.",
-"I I I I I e ,.s.s.s.s.s.s.` b j / .i.f.v h.j h.h.",
-"U U U U U r ,.s.s.s.s.' i.^ x O.x ( u.f.v x O.h h.",
-"i 1 1 + P - ,.s.s.0.s.s.s.^ x +.+.l 2 2 m +.+.j h.",
-"$ C +.j 4 ,.s.s.| s.s.] n A +.+.+.+.+.+.+.+.C h.",
-"J u 1 1 h 1 ,. .9.s.s.s.{ 8 +.&.*.m +.+.+.g.d +.1 ",
-"L L L K = . ,.s.s.s.e.i.8.8 #.@., x +.A N 9 g %.2 ",
-"X.X.X.X.X.: >.f. .i.0.0.8.8 =.-.H O.+.m +.m %.;.5 ",
-"o.o.o.o.W # 2.4.6.s.s.s.t.~ V $.m % 1 O 3 # +.V h.",
-"! ! ! E 4 1 * Y Y Y Y Y Y Y y m C C C C C C z h.h.",
-"Q Q Q 1 +.m p & j X h.h.h.h.# d 7 h.# j 1 h.h.h.h.",
-"R R R o 1 a T a 1 h.h.h.h.h.h.3 & h.h.1 $ h.h.h.h."
-};
diff --git a/elpa/nyan-mode-20170423.740/img/nyan-frame-6.xpm b/elpa/nyan-mode-20170423.740/img/nyan-frame-6.xpm
deleted file mode 100644
index 7a61f05..0000000
--- a/elpa/nyan-mode-20170423.740/img/nyan-frame-6.xpm
+++ /dev/null
@@ -1,165 +0,0 @@
-/* XPM */
-static char *nyan_frame_6[] = {
-/* columns rows colors chars-per-pixel */
-"25 15 144 2 ",
-" c black",
-". c #020F06",
-"X c #070B0F",
-"o c #08090C",
-"O c #0C0C0C",
-"+ c #020912",
-"@ c #000A14",
-"# c #111111",
-"$ c #151515",
-"% c #1D1711",
-"& c #251E17",
-"* c #083417",
-"= c #212305",
-"- c #292B00",
-"; c #3C3400",
-": c #3F1E31",
-"> c #04323D",
-", c #202020",
-"< c #222126",
-"1 c #252525",
-"2 c #2A2A2A",
-"3 c gray18",
-"4 c #3E2525",
-"5 c #2C2F32",
-"6 c #342D34",
-"7 c gray20",
-"8 c gray22",
-"9 c #3A3C3E",
-"0 c #3F3F3F",
-"q c #490C00",
-"w c #7C0B10",
-"e c #4C2400",
-"r c #4C3100",
-"t c #483F00",
-"y c #403326",
-"u c #402A38",
-"i c #24451F",
-"p c #394C25",
-"a c #241856",
-"s c #1F265A",
-"d c #1E297A",
-"f c #522244",
-"g c #414141",
-"h c #464646",
-"j c gray29",
-"k c gray31",
-"l c #554755",
-"z c #5E4D5E",
-"x c #515151",
-"c c #5C5650",
-"v c #5A5A5A",
-"b c #5D5D5D",
-"n c #745D46",
-"m c #634463",
-"M c #6D4C6D",
-"N c #656565",
-"B c #6C6C6C",
-"V c gray45",
-"C c #767676",
-"Z c #797979",
-"A c #7C7C7C",
-"S c #BF1119",
-"D c #F52A02",
-"F c #FC7800",
-"G c #947256",
-"H c #9A7B7B",
-"J c #A57272",
-"K c #26B210",
-"L c #438500",
-"P c #2CCB13",
-"I c #1AAF4D",
-"U c #20D15C",
-"Y c #868F00",
-"T c #988600",
-"R c #889000",
-"E c #FBA500",
-"W c #EACE00",
-"Q c #F0D300",
-"! c #BF9973",
-"~ c #263498",
-"^ c #39329C",
-"/ c #1354A2",
-"( c #5536D9",
-") c #1E7FF7",
-"_ c #5247F7",
-"` c #885788",
-"' c #A261A2",
-"] c #C95BAC",
-"[ c #E060B9",
-"{ c #FF5FC5",
-"} c #FF66CC",
-"| c #FF68CE",
-" . c #E073CD",
-".. c #FF6BD1",
-"X. c #FF72D8",
-"o. c #FF77DD",
-"O. c #FF79DF",
-"+. c #0EA7CB",
-"@. c #1E80F7",
-"#. c #848484",
-"$. c #888888",
-"%. c gray55",
-"&. c #929292",
-"*. c #979797",
-"=. c gray60",
-"-. c gray62",
-";. c #A79999",
-":. c #B59999",
-">. c gray63",
-",. c gray74",
-"<. c #C79999",
-"1. c #D79999",
-"2. c #F69999",
-"3. c #FF9999",
-"4. c #D8AD82",
-"5. c #F0BB99",
-"6. c #F0B6A2",
-"7. c #FFBBBB",
-"8. c #FFBCB9",
-"9. c #F0C090",
-"0. c #FFCC99",
-"q. c #FFC7A2",
-"w. c #FFC7A4",
-"e. c #D580D5",
-"r. c #FF95D5",
-"t. c #FFB3CC",
-"y. c #E086E0",
-"u. c #E88BE8",
-"i. c #FF80E6",
-"p. c #FF85EB",
-"a. c #FF86EC",
-"s. c #FF8DF3",
-"d. c #FF8FF5",
-"f. c #F090F0",
-"g. c #F794F7",
-"h. c #FF90F6",
-"j. c #FF9DF7",
-"k. c #FF92F8",
-"l. c #FF94FA",
-"z. c #FF97FD",
-"x. c #FF99FF",
-"c. c #FFA6E6",
-"v. c #FFA8E2",
-"b. c None",
-/* pixels */
-"f f f f f f : y y y y y y y y y y y y 5 b.b.b.b.b.",
-"S S S S S w G 0.8.t.t.t.t.t.t.t.t.t.q.4.9 b.b.b.b.",
-"D D D D D q 9.8.x.x.x.x.{ x.} k.l.x.c.0.n b.b.b.b.",
-"F F F F F e 6.x.} k.x.x.x.u.m 6 e.s.l.v.n b., b.b.",
-"E E E E E r 6.x.x.x.x.x.x.' b &.z ] k.c.n 6 =.j b.",
-"Q T ; W Q t 6.x.x.x.x.} k.' b =.$.l 6 6 c &.=.j b.",
-"R j =.= R - 6.x.x.a.x.x.g.` B =.=.=.=.=.;.>.*.b b.",
-"L p #.j x $ 6.x.x.X.x.x.[ 8 =.-.-.A =.=.=.,.N =.3 ",
-"P K i 0 =.3 6.o.i.x.x.x. .8 =.&.3 v *.C N k 3 *., ",
-"U U U I * . 6.x.x.x.k.k.y.8 1.2.%.$.*.A =.A :.3.4 ",
-"+.+.+.+.+.> 5.v.o.k.a.a.f.M H <.N 3 j $ k $ ;.J b.",
-") @.) ) / @ 9.q.r.x.x.x.x.u.m #.#.C C C C V C b.b.",
-"_ _ _ ^ b j & ! ! ! ! ! ! ! ! % O $ @ b.b.b.",
-"( ( ( , =.B a , k X b.b.b.b.@ g 6 b.@ N h b.b.b.b.",
-"~ ~ ~ X , s d # , b.b.b.b.b.b., b.b.b., $ b.b.b.b."
-};
diff --git a/elpa/nyan-mode-20170423.740/img/nyan.xpm b/elpa/nyan-mode-20170423.740/img/nyan.xpm
deleted file mode 100644
index 45123da..0000000
--- a/elpa/nyan-mode-20170423.740/img/nyan.xpm
+++ /dev/null
@@ -1,157 +0,0 @@
-/* XPM */
-static char *nyan[] = {
-/* columns rows colors chars-per-pixel */
-"25 15 136 2 ",
-" c black",
-". c #020F06",
-"X c #070B0F",
-"o c #08090C",
-"O c #0C0C0C",
-"+ c #1D1F00",
-"@ c #020912",
-"# c #000A14",
-"$ c #131313",
-"% c #161616",
-"& c #191919",
-"* c #251E17",
-"= c #083417",
-"- c #292B00",
-"; c #3F1E31",
-": c #04323D",
-"> c #232323",
-", c #222126",
-"< c gray14",
-"1 c gray15",
-"2 c #2B2525",
-"3 c #20262C",
-"4 c #2A2A2A",
-"5 c #3E2525",
-"6 c #2C2F32",
-"7 c gray20",
-"8 c gray22",
-"9 c #3A3C3E",
-"0 c #490C00",
-"q c #7C0B10",
-"w c #4C2400",
-"e c #4C3100",
-"r c #483F00",
-"t c #403326",
-"y c #4B3C2D",
-"u c #236119",
-"i c #6F7509",
-"p c #241856",
-"a c #1F265A",
-"s c #522244",
-"d c #414141",
-"f c #464646",
-"g c #4C4646",
-"h c #494949",
-"j c gray31",
-"k c #514C51",
-"l c gray34",
-"z c #54575A",
-"x c #5D5D5D",
-"c c #5F5F5F",
-"v c #745D46",
-"b c #614C61",
-"n c #6D4C6D",
-"m c gray38",
-"M c #646464",
-"N c gray40",
-"B c #686868",
-"V c #7B6C6C",
-"C c #727272",
-"Z c gray45",
-"A c #7B7B7B",
-"S c gray50",
-"D c #BF1119",
-"F c #F52A02",
-"G c #FC7800",
-"H c #947256",
-"J c #20980E",
-"K c #1AAF4D",
-"L c #20D15C",
-"P c #868F00",
-"I c #FBA500",
-"U c #F0D300",
-"Y c #BF9973",
-"T c #23308F",
-"R c #263498",
-"E c #39329C",
-"W c #1354A2",
-"Q c #5536D9",
-"! c #5247F7",
-"~ c #885788",
-"^ c #A261A2",
-"/ c #AA66AA",
-"( c #AE68AE",
-") c #FF5FC5",
-"_ c #C576C5",
-"` c #D17DD1",
-"' c #FF66CC",
-"] c #F069C9",
-"[ c #FF68CE",
-"{ c #E073CD",
-"} c #FF6BD1",
-"| c #FF72D8",
-" . c #FF77DD",
-".. c #FF79DF",
-"X. c #0EA7CB",
-"o. c #1E80F7",
-"O. c gray59",
-"+. c gray60",
-"@. c #A68F8F",
-"#. c #A89999",
-"$. c #B09999",
-"%. c #B59999",
-"&. c #A0A0A0",
-"*. c gray65",
-"=. c #D79999",
-"-. c #F69999",
-";. c #FF9999",
-":. c #D8AD82",
-">. c #F0BB99",
-",. c #F0B6A2",
-"<. c #FFBBBB",
-"1. c #FFBCB9",
-"2. c #F0C090",
-"3. c #FFCC99",
-"4. c #FFC7A2",
-"5. c #D882D8",
-"6. c #FF95D5",
-"7. c #FFB3CC",
-"8. c #E086E0",
-"9. c #FF80E6",
-"0. c #FF85EB",
-"q. c #FF86EC",
-"w. c #FF8AF0",
-"e. c #FF8DF3",
-"r. c #FF8FF5",
-"t. c #F794F7",
-"y. c #FF90F6",
-"u. c #FF9DF7",
-"i. c #FF92F8",
-"p. c #FF94FA",
-"a. c #FF97FD",
-"s. c #FF99FF",
-"d. c #FFA6E6",
-"f. c #FFA8E0",
-"g. c gray81",
-"h. c None",
-/* pixels */
-"s s s s s s ; t t t t t t t t t t t t 6 h.h.h.h.h.",
-"D D D D D q H 3.1.7.7.7.7.7.7.7.7.7.4.:.9 h.h.h.h.",
-"F F F F F 0 2.1.s.s.s.s.) s.' i.s.s.d.3.v h.h.h.h.",
-"G G G G G w ,.s.' i.s.s.s.s.5._ u.e.p.f.v h.h.h.h.",
-"I I I I I e ,.s.s.s.s.s.s.` b j / .i.f.v h.j h.h.",
-"U U U U U r ,.s.s.s.s.' i.^ x O.x / u.f.v x O.d h.",
-"i 1 1 + P - ,.s.s.0.s.s.s.^ x +.+.x 2 2 m +.+.j h.",
-"$ C +.j 4 ,.s.s.| s.s.] n A +.+.+.+.+.+.+.+.C h.",
-"J u 1 1 h 1 ,. .9.s.s.s.{ 8 +.&.&.B +.+.+.g.g +.1 ",
-"L L L K = . ,.s.s.s.e.i.8.8 #.@., m +.A N 9 g $.2 ",
-"X.X.X.X.X.: >.f. .i.0.0.8.8 =.-.H O.+.m +.c $.;.5 ",
-"o.o.o.o.W # 2.4.6.s.s.s.t.~ V $.m $ 1 O 3 # +.V h.",
-"! ! ! E 4 1 * Y Y Y Y Y Y Y y m C C C C C C z h.h.",
-"Q Q Q 1 +.m p & j X h.h.h.h.# d 7 h.h.j 1 h.h.h.h.",
-"R R R o 1 a T a 1 h.h.h.h.h.h.3 & h.h.1 $ h.h.h.h."
-};
diff --git a/elpa/nyan-mode-20170423.740/img/outerspace.xpm b/elpa/nyan-mode-20170423.740/img/outerspace.xpm
deleted file mode 100644
index a487c08..0000000
--- a/elpa/nyan-mode-20170423.740/img/outerspace.xpm
+++ /dev/null
@@ -1,142 +0,0 @@
-/* XPM */
-static char *outerspace[] = {
-/* columns rows colors chars-per-pixel */
-"8 15 120 2 ",
-" c None",
-". c black",
-"X c black",
-"o c black",
-"O c black",
-"+ c black",
-"@ c black",
-"# c black",
-"$ c black",
-"% c black",
-"& c black",
-"* c black",
-"= c black",
-"- c black",
-"; c black",
-": c black",
-"> c black",
-", c black",
-"< c black",
-"1 c black",
-"2 c black",
-"3 c black",
-"4 c black",
-"5 c black",
-"6 c black",
-"7 c black",
-"8 c black",
-"9 c black",
-"0 c black",
-"q c black",
-"w c black",
-"e c black",
-"r c black",
-"t c black",
-"y c black",
-"u c black",
-"i c black",
-"p c black",
-"a c black",
-"s c black",
-"d c black",
-"f c black",
-"g c black",
-"h c black",
-"j c black",
-"k c black",
-"l c black",
-"z c black",
-"x c black",
-"c c black",
-"v c black",
-"b c black",
-"n c black",
-"m c black",
-"M c black",
-"N c black",
-"B c black",
-"V c black",
-"C c black",
-"Z c black",
-"A c black",
-"S c black",
-"D c black",
-"F c black",
-"G c black",
-"H c black",
-"J c black",
-"K c black",
-"L c black",
-"P c black",
-"I c black",
-"U c black",
-"Y c black",
-"T c black",
-"R c black",
-"E c black",
-"W c black",
-"Q c black",
-"! c black",
-"~ c black",
-"^ c black",
-"/ c black",
-"( c black",
-") c black",
-"_ c black",
-"` c black",
-"' c black",
-"] c black",
-"[ c black",
-"{ c black",
-"} c black",
-"| c black",
-" . c black",
-".. c black",
-"X. c black",
-"o. c black",
-"O. c black",
-"+. c black",
-"@. c black",
-"#. c black",
-"$. c black",
-"%. c black",
-"&. c black",
-"*. c black",
-"=. c black",
-"-. c black",
-";. c black",
-":. c black",
-">. c black",
-",. c black",
-"<. c black",
-"1. c black",
-"2. c black",
-"3. c black",
-"4. c black",
-"5. c black",
-"6. c black",
-"7. c black",
-"8. c black",
-"9. c black",
-/* pixels */
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" "
-};
diff --git a/elpa/nyan-mode-20170423.740/img/rainbow.xpm b/elpa/nyan-mode-20170423.740/img/rainbow.xpm
deleted file mode 100644
index 1ed1bc2..0000000
--- a/elpa/nyan-mode-20170423.740/img/rainbow.xpm
+++ /dev/null
@@ -1,42 +0,0 @@
-/* XPM */
-static char *rainbow[] = {
-/* columns rows colors chars-per-pixel */
-"8 15 21 1 ",
-" c #522244",
-". c #BF1119",
-"X c #F52A02",
-"o c #FC7800",
-"O c #FBA500",
-"+ c #FCA500",
-"@ c #F0D300",
-"# c #B4BF00",
-"$ c #B5BF00",
-"% c #4D9801",
-"& c #4E9802",
-"* c #4E9801",
-"= c #2CCB13",
-"- c #20D15C",
-"; c #0EA7CB",
-": c #0EA6CB",
-"> c #1E7FF7",
-", c #1E80F7",
-"< c #5247F7",
-"1 c #5536D9",
-"2 c #263498",
-/* pixels */
-" ",
-"........",
-"XXXXXXXX",
-"oooooooo",
-"OOOOO+O+",
-"@@@@@@@@",
-"#####$##",
-"%&&*&&&&",
-"========",
-"--------",
-";;;:;;:;",
-">,,>,,,,",
-"<<<<<<<<",
-"11111111",
-"22222222"
-};
diff --git a/elpa/nyan-mode-20170423.740/mus/nyanlooped.mp3 b/elpa/nyan-mode-20170423.740/mus/nyanlooped.mp3
deleted file mode 100644
index fe406b8..0000000
--- a/elpa/nyan-mode-20170423.740/mus/nyanlooped.mp3
+++ /dev/null
Binary files differ
diff --git a/elpa/nyan-mode-20170423.740/nyan-mode-autoloads.el b/elpa/nyan-mode-20170423.740/nyan-mode-autoloads.el
deleted file mode 100644
index 4960da1..0000000
--- a/elpa/nyan-mode-20170423.740/nyan-mode-autoloads.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;;; nyan-mode-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "nyan-mode" "nyan-mode.el" (0 0 0 0))
-;;; Generated autoloads from nyan-mode.el
-
-(defvar nyan-mode nil "\
-Non-nil if Nyan mode is enabled.
-See the `nyan-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `nyan-mode'.")
-
-(custom-autoload 'nyan-mode "nyan-mode" nil)
-
-(autoload 'nyan-mode "nyan-mode" "\
-Use NyanCat to show buffer size and position in mode-line.
-You can customize this minor mode, see option `nyan-mode'.
-
-Note: If you turn this mode on then you probably want to turn off
-option `scroll-bar-mode'.
-
-\(fn &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "nyan-mode" '("nyan-" "+nyan-")))
-
-;;;***
-
-;;;### (autoloads nil nil ("nyan-mode-pkg.el") (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; nyan-mode-autoloads.el ends here
diff --git a/elpa/nyan-mode-20170423.740/nyan-mode-pkg.el b/elpa/nyan-mode-20170423.740/nyan-mode-pkg.el
deleted file mode 100644
index ee40bad..0000000
--- a/elpa/nyan-mode-20170423.740/nyan-mode-pkg.el
+++ /dev/null
@@ -1,10 +0,0 @@
-(define-package "nyan-mode" "20170423.740" "Nyan Cat shows position in current buffer in mode-line." 'nil :keywords
- '("nyan" "cat" "lulz" "scrolling" "pop tart cat" "build something amazing")
- :authors
- '(("Jacek \"TeMPOraL\" Zlydach" . "temporal.pl@gmail.com"))
- :maintainer
- '("Jacek \"TeMPOraL\" Zlydach" . "temporal.pl@gmail.com")
- :url "https://github.com/TeMPOraL/nyan-mode/")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/elpa/nyan-mode-20170423.740/nyan-mode.el b/elpa/nyan-mode-20170423.740/nyan-mode.el
deleted file mode 100644
index 1f4289f..0000000
--- a/elpa/nyan-mode-20170423.740/nyan-mode.el
+++ /dev/null
@@ -1,300 +0,0 @@
-;;; nyan-mode.el --- Nyan Cat shows position in current buffer in mode-line.
-
-;; Nyanyanyanyanyanyanya!
-
-;; Author: Jacek "TeMPOraL" Zlydach <temporal.pl@gmail.com>
-;; URL: https://github.com/TeMPOraL/nyan-mode/
-;; Version: 1.1.1
-;; Keywords: nyan, cat, lulz, scrolling, pop tart cat, build something amazing
-
-;; This file is not part of GNU Emacs.
-
-;; ...yet. ;).
-
-;; 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, 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 this program; see the file COPYING. If not, write to
-;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
-;; Floor, Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; NEW! You can now click on the rainbow (or the empty space)
-;; to scroll your buffer!
-
-;; NEW! You can now customize the minimum window width
-;; below which the nyan-mode will be disabled, so that more important
-;; information can be shown in the modeline.
-
-;; To activate, just load and put `(nyan-mode 1)' in your init file.
-
-;; Contributions and feature requests welcome!
-
-;; Inspired by (and in few places copied from) sml-modeline.el written by Lennart Borgman.
-;; See: http://bazaar.launchpad.net/~nxhtml/nxhtml/main/annotate/head%3A/util/sml-modeline.el
-
-;;; History:
-
-;; 2016-04-26 - introduced click-to-scroll feature.
-
-;; Started as a totally random idea back in August 2011.
-
-;; The homepage at http://nyan-mode.buildsomethingamazing.com died somewhen in 2014/2015 because reasons.
-;; I might get the domain back one day.
-
-;;; Code:
-
-(eval-when-compile (require 'cl))
-
-(defconst +nyan-directory+ (file-name-directory (or load-file-name buffer-file-name)))
-
-(defconst +nyan-cat-size+ 3)
-
-(defconst +nyan-cat-image+ (concat +nyan-directory+ "img/nyan.xpm"))
-(defconst +nyan-rainbow-image+ (concat +nyan-directory+ "img/rainbow.xpm"))
-(defconst +nyan-outerspace-image+ (concat +nyan-directory+ "img/outerspace.xpm"))
-
-(defconst +nyan-music+ (concat +nyan-directory+ "mus/nyanlooped.mp3"))
-
-(defconst +nyan-modeline-help-string+ "Nyanyanya!\nmouse-1: Scroll buffer position")
-
-(defvar nyan-old-car-mode-line-position nil)
-
-(defgroup nyan nil
- "Customization group for `nyan-mode'."
- :group 'frames)
-
-(defun nyan-refresh ()
- "Refresh after option changes if loaded."
- (when (featurep 'nyan-mode)
- (when (and (boundp 'nyan-mode)
- nyan-mode)
- (nyan-mode -1)
- (nyan-mode 1))))
-
-(defcustom nyan-animation-frame-interval 0.2
- "Number of seconds between animation frames."
- :type 'float
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-(defvar nyan-animation-timer nil)
-
-(defun nyan-start-animation ()
- (interactive)
- (when (not (and nyan-animate-nyancat
- nyan-animation-timer))
- (setq nyan-animation-timer (run-at-time "1 sec"
- nyan-animation-frame-interval
- 'nyan-swich-anim-frame))
- (setq nyan-animate-nyancat t)))
-
-(defun nyan-stop-animation ()
- (interactive)
- (when (and nyan-animate-nyancat
- nyan-animation-timer)
- (cancel-timer nyan-animation-timer)
- (setq nyan-animation-timer nil)
- (setq nyan-animate-nyancat nil)))
-
-;; mplayer needs to be installed for that
-(defvar nyan-music-process nil)
-
-(defun nyan-start-music ()
- (interactive)
- (unless nyan-music-process
- (setq nyan-music-process (start-process-shell-command "nyan-music" "nyan-music" (concat "mplayer " +nyan-music+ " -loop 0")))))
-
-(defun nyan-stop-music ()
- (interactive)
- (when nyan-music-process
- (delete-process nyan-music-process)
- (setq nyan-music-process nil)))
-
-(defcustom nyan-minimum-window-width 64
- "Determines the minimum width of the window, below which nyan-mode will not be displayed.
-This is important because nyan-mode will push out all informations from small windows."
- :type 'integer
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-;;; FIXME bug, doesn't work for antoszka.
-(defcustom nyan-wavy-trail nil
- "If enabled, Nyan Cat's rainbow trail will be wavy."
- :type '(choice (const :tag "Enabled" t)
- (const :tag "Disabled" nil))
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-(defcustom nyan-bar-length 32
- "Length of Nyan Cat bar in units; each unit is equal to an 8px
- image. Minimum of 3 units are required for Nyan Cat."
- :type 'integer
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-(defcustom nyan-animate-nyancat nil
- "Enable animation for Nyan Cat.
-This can be t or nil."
- :type '(choice (const :tag "Enabled" t)
- (const :tag "Disabled" nil))
- :set (lambda (sym val)
- (set-default sym val)
- (if val
- (nyan-start-animation)
- (nyan-stop-animation))
- (nyan-refresh))
- :group 'nyan)
-
-(defcustom nyan-cat-face-number 1
- "Select cat face number for console."
- :type 'integer
- :group 'nyan
- )
-
-;;; Load images of Nyan Cat an it's rainbow.
-(defvar nyan-cat-image (if (image-type-available-p 'xpm)
- (create-image +nyan-cat-image+ 'xpm nil :ascent 'center)))
-
-(defvar nyan-animation-frames (if (image-type-available-p 'xpm)
- (mapcar (lambda (id)
- (create-image (concat +nyan-directory+ (format "img/nyan-frame-%d.xpm" id))
- 'xpm nil :ascent 95))
- '(1 2 3 4 5 6))))
-(defvar nyan-current-frame 0)
-
-(defconst +nyan-catface+ [
- ["[]*" "[]#"]
- ["(*^ｰﾟ)" "( ^ｰ^)" "(^ｰ^ )" "(ﾟｰ^*)"]
- ["(´ω｀三 )" "( ´ω三｀ )" "( ´三ω｀ )" "( 三´ω｀)"
- "( 三´ω｀)" "( ´三ω｀ )" "( ´ω三｀ )" "(´ω｀三 )"]
- ["(´д｀;)" "( ´д`;)" "( ;´д`)" "(;´д` )"]
- ["(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "(／・ω・)／"
- "(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "＼(・ω・)／"]
- ["(＞ワ＜三 )" "( ＞ワ三＜ )"
- "( ＞三ワ＜ )" "( 三＞ワ＜)"
- "( ＞三ワ＜ )" "( ＞ワ三＜ )"]])
-
-(defun nyan-toggle-wavy-trail ()
- "Toggle the trail to look more like the original Nyan Cat animation."
- (interactive)
- (setq nyan-wavy-trail (not nyan-wavy-trail)))
-
-(defun nyan-swich-anim-frame ()
- (setq nyan-current-frame (% (+ 1 nyan-current-frame) 6))
- (redraw-modeline))
-
-(defun nyan-get-anim-frame ()
- (if nyan-animate-nyancat
- (nth nyan-current-frame nyan-animation-frames)
- nyan-cat-image))
-
-(defun nyan-wavy-rainbow-ascent (number)
- (if nyan-animate-nyancat
- (min 100 (+ 90
- (* 3 (abs (- (/ 6 2)
- (% (+ number nyan-current-frame)
- 6))))))
- (if (zerop (% number 2)) 80 'center)))
-
-(defun nyan-number-of-rainbows ()
- (round (/ (* (round (* 100
- (/ (- (float (point))
- (float (point-min)))
- (float (point-max)))))
- (- nyan-bar-length +nyan-cat-size+))
- 100)))
-
-(defun nyan-catface () (aref +nyan-catface+ nyan-cat-face-number))
-
-(defun nyan-catface-index ()
- (min (round (/ (* (round (* 100
- (/ (- (float (point))
- (float (point-min)))
- (float (point-max)))))
- (length (nyan-catface)))
- 100)) (- (length (nyan-catface)) 1)))
-
-(defun nyan-scroll-buffer (percentage buffer)
- (interactive)
- (with-current-buffer buffer
- (goto-char (floor (* percentage (point-max))))))
-
-(defun nyan-add-scroll-handler (string percentage buffer)
- (lexical-let ((percentage percentage)
- (buffer buffer))
- (propertize string 'keymap `(keymap (mode-line keymap (down-mouse-1 . ,(lambda () (interactive) (nyan-scroll-buffer percentage buffer))))))))
-
-(defun nyan-create ()
- (if (< (window-width) nyan-minimum-window-width)
- "" ; disabled for too small windows
- (let* ((rainbows (nyan-number-of-rainbows))
- (outerspaces (- nyan-bar-length rainbows +nyan-cat-size+))
- (rainbow-string "")
- (xpm-support (image-type-available-p 'xpm))
- (nyancat-string (propertize
- (aref (nyan-catface) (nyan-catface-index))
- 'display (nyan-get-anim-frame)))
- (outerspace-string "")
- (buffer (current-buffer)))
- (dotimes (number rainbows)
- (setq rainbow-string (concat rainbow-string
- (nyan-add-scroll-handler
- (if xpm-support
- (propertize "|"
- 'display (create-image +nyan-rainbow-image+ 'xpm nil :ascent (or (and nyan-wavy-trail
- (nyan-wavy-rainbow-ascent number))
- (if nyan-animate-nyancat 95 'center))))
- "|")
- (/ (float number) nyan-bar-length) buffer))))
- (dotimes (number outerspaces)
- (setq outerspace-string (concat outerspace-string
- (nyan-add-scroll-handler
- (if xpm-support
- (propertize "-"
- 'display (create-image +nyan-outerspace-image+ 'xpm nil :ascent (if nyan-animate-nyancat 95 'center)))
- "-")
- (/ (float (+ rainbows +nyan-cat-size+ number)) nyan-bar-length) buffer))))
- ;; Compute Nyan Cat string.
- (propertize (concat rainbow-string
- nyancat-string
- outerspace-string)
- 'help-echo +nyan-modeline-help-string+))))
-
-;;;###autoload
-(define-minor-mode nyan-mode
- "Use NyanCat to show buffer size and position in mode-line.
-You can customize this minor mode, see option `nyan-mode'.
-
-Note: If you turn this mode on then you probably want to turn off
-option `scroll-bar-mode'."
- :global t
- :group 'nyan
- (if nyan-mode
- (progn
- (unless nyan-old-car-mode-line-position
- (setq nyan-old-car-mode-line-position (car mode-line-position)))
- (setcar mode-line-position '(:eval (list (nyan-create)))))
- (setcar mode-line-position nyan-old-car-mode-line-position)))
-
-
-(provide 'nyan-mode)
-
-;;; nyan-mode.el ends here
diff --git a/elpa/nyan-mode-20170423.740/nyan-mode.elc b/elpa/nyan-mode-20170423.740/nyan-mode.elc
deleted file mode 100644
index 9c7c71a..0000000
--- a/elpa/nyan-mode-20170423.740/nyan-mode.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/COPYING b/elpa/org-9.1.14/COPYING
deleted file mode 100644
index 94a9ed0..0000000
--- a/elpa/org-9.1.14/COPYING
+++ /dev/null
@@ -1,674 +0,0 @@
- GNU GENERAL PUBLIC LICENSE
- Version 3, 29 June 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The GNU General Public License is a free, copyleft license for
-software and other kinds of works.
-
- The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works. By contrast,
-the GNU General Public License is intended to guarantee your freedom to
-share and change all versions of a program--to make sure it remains free
-software for all its users. We, the Free Software Foundation, use the
-GNU General Public License for most of our software; it applies also to
-any other work released this way by its authors. You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
- To protect your rights, we need to prevent others from denying you
-these rights or asking you to surrender the rights. Therefore, you have
-certain responsibilities if you distribute copies of the software, or if
-you modify it: responsibilities to respect the freedom of others.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must pass on to the recipients the same
-freedoms that you received. You must make sure that they, too, receive
-or can get the source code. And you must show them these terms so they
-know their rights.
-
- Developers that use the GNU GPL protect your rights with two steps:
-(1) assert copyright on the software, and (2) offer you this License
-giving you legal permission to copy, distribute and/or modify it.
-
- For the developers' and authors' protection, the GPL clearly explains
-that there is no warranty for this free software. For both users' and
-authors' sake, the GPL requires that modified versions be marked as
-changed, so that their problems will not be attributed erroneously to
-authors of previous versions.
-
- Some devices are designed to deny users access to install or run
-modified versions of the software inside them, although the manufacturer
-can do so. This is fundamentally incompatible with the aim of
-protecting users' freedom to change the software. The systematic
-pattern of such abuse occurs in the area of products for individuals to
-use, which is precisely where it is most unacceptable. Therefore, we
-have designed this version of the GPL to prohibit the practice for those
-products. If such problems arise substantially in other domains, we
-stand ready to extend this provision to those domains in future versions
-of the GPL, as needed to protect the freedom of users.
-
- Finally, every program is threatened constantly by software patents.
-States should not allow patents to restrict development and use of
-software on general-purpose computers, but in those that do, we wish to
-avoid the special danger that patents applied to a free program could
-make it effectively proprietary. To prevent this, the GPL assures that
-patents cannot be used to render the program non-free.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- TERMS AND CONDITIONS
-
- 0. Definitions.
-
- "This License" refers to version 3 of the GNU General Public License.
-
- "Copyright" also means copyright-like laws that apply to other kinds of
-works, such as semiconductor masks.
-
- "The Program" refers to any copyrightable work licensed under this
-License. Each licensee is addressed as "you". "Licensees" and
-"recipients" may be individuals or organizations.
-
- To "modify" a work means to copy from or adapt all or part of the work
-in a fashion requiring copyright permission, other than the making of an
-exact copy. The resulting work is called a "modified version" of the
-earlier work or a work "based on" the earlier work.
-
- A "covered work" means either the unmodified Program or a work based
-on the Program.
-
- To "propagate" a work means to do anything with it that, without
-permission, would make you directly or secondarily liable for
-infringement under applicable copyright law, except executing it on a
-computer or modifying a private copy. Propagation includes copying,
-distribution (with or without modification), making available to the
-public, and in some countries other activities as well.
-
- To "convey" a work means any kind of propagation that enables other
-parties to make or receive copies. Mere interaction with a user through
-a computer network, with no transfer of a copy, is not conveying.
-
- An interactive user interface displays "Appropriate Legal Notices"
-to the extent that it includes a convenient and prominently visible
-feature that (1) displays an appropriate copyright notice, and (2)
-tells the user that there is no warranty for the work (except to the
-extent that warranties are provided), that licensees may convey the
-work under this License, and how to view a copy of this License. If
-the interface presents a list of user commands or options, such as a
-menu, a prominent item in the list meets this criterion.
-
- 1. Source Code.
-
- The "source code" for a work means the preferred form of the work
-for making modifications to it. "Object code" means any non-source
-form of a work.
-
- A "Standard Interface" means an interface that either is an official
-standard defined by a recognized standards body, or, in the case of
-interfaces specified for a particular programming language, one that
-is widely used among developers working in that language.
-
- The "System Libraries" of an executable work include anything, other
-than the work as a whole, that (a) is included in the normal form of
-packaging a Major Component, but which is not part of that Major
-Component, and (b) serves only to enable use of the work with that
-Major Component, or to implement a Standard Interface for which an
-implementation is available to the public in source code form. A
-"Major Component", in this context, means a major essential component
-(kernel, window system, and so on) of the specific operating system
-(if any) on which the executable work runs, or a compiler used to
-produce the work, or an object code interpreter used to run it.
-
- The "Corresponding Source" for a work in object code form means all
-the source code needed to generate, install, and (for an executable
-work) run the object code and to modify the work, including scripts to
-control those activities. However, it does not include the work's
-System Libraries, or general-purpose tools or generally available free
-programs which are used unmodified in performing those activities but
-which are not part of the work. For example, Corresponding Source
-includes interface definition files associated with source files for
-the work, and the source code for shared libraries and dynamically
-linked subprograms that the work is specifically designed to require,
-such as by intimate data communication or control flow between those
-subprograms and other parts of the work.
-
- The Corresponding Source need not include anything that users
-can regenerate automatically from other parts of the Corresponding
-Source.
-
- The Corresponding Source for a work in source code form is that
-same work.
-
- 2. Basic Permissions.
-
- All rights granted under this License are granted for the term of
-copyright on the Program, and are irrevocable provided the stated
-conditions are met. This License explicitly affirms your unlimited
-permission to run the unmodified Program. The output from running a
-covered work is covered by this License only if the output, given its
-content, constitutes a covered work. This License acknowledges your
-rights of fair use or other equivalent, as provided by copyright law.
-
- You may make, run and propagate covered works that you do not
-convey, without conditions so long as your license otherwise remains
-in force. You may convey covered works to others for the sole purpose
-of having them make modifications exclusively for you, or provide you
-with facilities for running those works, provided that you comply with
-the terms of this License in conveying all material for which you do
-not control copyright. Those thus making or running the covered works
-for you must do so exclusively on your behalf, under your direction
-and control, on terms that prohibit them from making any copies of
-your copyrighted material outside their relationship with you.
-
- Conveying under any other circumstances is permitted solely under
-the conditions stated below. Sublicensing is not allowed; section 10
-makes it unnecessary.
-
- 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
-
- No covered work shall be deemed part of an effective technological
-measure under any applicable law fulfilling obligations under article
-11 of the WIPO copyright treaty adopted on 20 December 1996, or
-similar laws prohibiting or restricting circumvention of such
-measures.
-
- When you convey a covered work, you waive any legal power to forbid
-circumvention of technological measures to the extent such circumvention
-is effected by exercising rights under this License with respect to
-the covered work, and you disclaim any intention to limit operation or
-modification of the work as a means of enforcing, against the work's
-users, your or third parties' legal rights to forbid circumvention of
-technological measures.
-
- 4. Conveying Verbatim Copies.
-
- You may convey verbatim copies of the Program's source code as you
-receive it, in any medium, provided that you conspicuously and
-appropriately publish on each copy an appropriate copyright notice;
-keep intact all notices stating that this License and any
-non-permissive terms added in accord with section 7 apply to the code;
-keep intact all notices of the absence of any warranty; and give all
-recipients a copy of this License along with the Program.
-
- You may charge any price or no price for each copy that you convey,
-and you may offer support or warranty protection for a fee.
-
- 5. Conveying Modified Source Versions.
-
- You may convey a work based on the Program, or the modifications to
-produce it from the Program, in the form of source code under the
-terms of section 4, provided that you also meet all of these conditions:
-
- a) The work must carry prominent notices stating that you modified
- it, and giving a relevant date.
-
- b) The work must carry prominent notices stating that it is
- released under this License and any conditions added under section
- 7. This requirement modifies the requirement in section 4 to
- "keep intact all notices".
-
- c) You must license the entire work, as a whole, under this
- License to anyone who comes into possession of a copy. This
- License will therefore apply, along with any applicable section 7
- additional terms, to the whole of the work, and all its parts,
- regardless of how they are packaged. This License gives no
- permission to license the work in any other way, but it does not
- invalidate such permission if you have separately received it.
-
- d) If the work has interactive user interfaces, each must display
- Appropriate Legal Notices; however, if the Program has interactive
- interfaces that do not display Appropriate Legal Notices, your
- work need not make them do so.
-
- A compilation of a covered work with other separate and independent
-works, which are not by their nature extensions of the covered work,
-and which are not combined with it such as to form a larger program,
-in or on a volume of a storage or distribution medium, is called an
-"aggregate" if the compilation and its resulting copyright are not
-used to limit the access or legal rights of the compilation's users
-beyond what the individual works permit. Inclusion of a covered work
-in an aggregate does not cause this License to apply to the other
-parts of the aggregate.
-
- 6. Conveying Non-Source Forms.
-
- You may convey a covered work in object code form under the terms
-of sections 4 and 5, provided that you also convey the
-machine-readable Corresponding Source under the terms of this License,
-in one of these ways:
-
- a) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by the
- Corresponding Source fixed on a durable physical medium
- customarily used for software interchange.
-
- b) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by a
- written offer, valid for at least three years and valid for as
- long as you offer spare parts or customer support for that product
- model, to give anyone who possesses the object code either (1) a
- copy of the Corresponding Source for all the software in the
- product that is covered by this License, on a durable physical
- medium customarily used for software interchange, for a price no
- more than your reasonable cost of physically performing this
- conveying of source, or (2) access to copy the
- Corresponding Source from a network server at no charge.
-
- c) Convey individual copies of the object code with a copy of the
- written offer to provide the Corresponding Source. This
- alternative is allowed only occasionally and noncommercially, and
- only if you received the object code with such an offer, in accord
- with subsection 6b.
-
- d) Convey the object code by offering access from a designated
- place (gratis or for a charge), and offer equivalent access to the
- Corresponding Source in the same way through the same place at no
- further charge. You need not require recipients to copy the
- Corresponding Source along with the object code. If the place to
- copy the object code is a network server, the Corresponding Source
- may be on a different server (operated by you or a third party)
- that supports equivalent copying facilities, provided you maintain
- clear directions next to the object code saying where to find the
- Corresponding Source. Regardless of what server hosts the
- Corresponding Source, you remain obligated to ensure that it is
- available for as long as needed to satisfy these requirements.
-
- e) Convey the object code using peer-to-peer transmission, provided
- you inform other peers where the object code and Corresponding
- Source of the work are being offered to the general public at no
- charge under subsection 6d.
-
- A separable portion of the object code, whose source code is excluded
-from the Corresponding Source as a System Library, need not be
-included in conveying the object code work.
-
- A "User Product" is either (1) a "consumer product", which means any
-tangible personal property which is normally used for personal, family,
-or household purposes, or (2) anything designed or sold for incorporation
-into a dwelling. In determining whether a product is a consumer product,
-doubtful cases shall be resolved in favor of coverage. For a particular
-product received by a particular user, "normally used" refers to a
-typical or common use of that class of product, regardless of the status
-of the particular user or of the way in which the particular user
-actually uses, or expects or is expected to use, the product. A product
-is a consumer product regardless of whether the product has substantial
-commercial, industrial or non-consumer uses, unless such uses represent
-the only significant mode of use of the product.
-
- "Installation Information" for a User Product means any methods,
-procedures, authorization keys, or other information required to install
-and execute modified versions of a covered work in that User Product from
-a modified version of its Corresponding Source. The information must
-suffice to ensure that the continued functioning of the modified object
-code is in no case prevented or interfered with solely because
-modification has been made.
-
- If you convey an object code work under this section in, or with, or
-specifically for use in, a User Product, and the conveying occurs as
-part of a transaction in which the right of possession and use of the
-User Product is transferred to the recipient in perpetuity or for a
-fixed term (regardless of how the transaction is characterized), the
-Corresponding Source conveyed under this section must be accompanied
-by the Installation Information. But this requirement does not apply
-if neither you nor any third party retains the ability to install
-modified object code on the User Product (for example, the work has
-been installed in ROM).
-
- The requirement to provide Installation Information does not include a
-requirement to continue to provide support service, warranty, or updates
-for a work that has been modified or installed by the recipient, or for
-the User Product in which it has been modified or installed. Access to a
-network may be denied when the modification itself materially and
-adversely affects the operation of the network or violates the rules and
-protocols for communication across the network.
-
- Corresponding Source conveyed, and Installation Information provided,
-in accord with this section must be in a format that is publicly
-documented (and with an implementation available to the public in
-source code form), and must require no special password or key for
-unpacking, reading or copying.
-
- 7. Additional Terms.
-
- "Additional permissions" are terms that supplement the terms of this
-License by making exceptions from one or more of its conditions.
-Additional permissions that are applicable to the entire Program shall
-be treated as though they were included in this License, to the extent
-that they are valid under applicable law. If additional permissions
-apply only to part of the Program, that part may be used separately
-under those permissions, but the entire Program remains governed by
-this License without regard to the additional permissions.
-
- When you convey a copy of a covered work, you may at your option
-remove any additional permissions from that copy, or from any part of
-it. (Additional permissions may be written to require their own
-removal in certain cases when you modify the work.) You may place
-additional permissions on material, added by you to a covered work,
-for which you have or can give appropriate copyright permission.
-
- Notwithstanding any other provision of this License, for material you
-add to a covered work, you may (if authorized by the copyright holders of
-that material) supplement the terms of this License with terms:
-
- a) Disclaiming warranty or limiting liability differently from the
- terms of sections 15 and 16 of this License; or
-
- b) Requiring preservation of specified reasonable legal notices or
- author attributions in that material or in the Appropriate Legal
- Notices displayed by works containing it; or
-
- c) Prohibiting misrepresentation of the origin of that material, or
- requiring that modified versions of such material be marked in
- reasonable ways as different from the original version; or
-
- d) Limiting the use for publicity purposes of names of licensors or
- authors of the material; or
-
- e) Declining to grant rights under trademark law for use of some
- trade names, trademarks, or service marks; or
-
- f) Requiring indemnification of licensors and authors of that
- material by anyone who conveys the material (or modified versions of
- it) with contractual assumptions of liability to the recipient, for
- any liability that these contractual assumptions directly impose on
- those licensors and authors.
-
- All other non-permissive additional terms are considered "further
-restrictions" within the meaning of section 10. If the Program as you
-received it, or any part of it, contains a notice stating that it is
-governed by this License along with a term that is a further
-restriction, you may remove that term. If a license document contains
-a further restriction but permits relicensing or conveying under this
-License, you may add to a covered work material governed by the terms
-of that license document, provided that the further restriction does
-not survive such relicensing or conveying.
-
- If you add terms to a covered work in accord with this section, you
-must place, in the relevant source files, a statement of the
-additional terms that apply to those files, or a notice indicating
-where to find the applicable terms.
-
- Additional terms, permissive or non-permissive, may be stated in the
-form of a separately written license, or stated as exceptions;
-the above requirements apply either way.
-
- 8. Termination.
-
- You may not propagate or modify a covered work except as expressly
-provided under this License. Any attempt otherwise to propagate or
-modify it is void, and will automatically terminate your rights under
-this License (including any patent licenses granted under the third
-paragraph of section 11).
-
- However, if you cease all violation of this License, then your
-license from a particular copyright holder is reinstated (a)
-provisionally, unless and until the copyright holder explicitly and
-finally terminates your license, and (b) permanently, if the copyright
-holder fails to notify you of the violation by some reasonable means
-prior to 60 days after the cessation.
-
- Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
- Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License. If your rights have been terminated and not permanently
-reinstated, you do not qualify to receive new licenses for the same
-material under section 10.
-
- 9. Acceptance Not Required for Having Copies.
-
- You are not required to accept this License in order to receive or
-run a copy of the Program. Ancillary propagation of a covered work
-occurring solely as a consequence of using peer-to-peer transmission
-to receive a copy likewise does not require acceptance. However,
-nothing other than this License grants you permission to propagate or
-modify any covered work. These actions infringe copyright if you do
-not accept this License. Therefore, by modifying or propagating a
-covered work, you indicate your acceptance of this License to do so.
-
- 10. Automatic Licensing of Downstream Recipients.
-
- Each time you convey a covered work, the recipient automatically
-receives a license from the original licensors, to run, modify and
-propagate that work, subject to this License. You are not responsible
-for enforcing compliance by third parties with this License.
-
- An "entity transaction" is a transaction transferring control of an
-organization, or substantially all assets of one, or subdividing an
-organization, or merging organizations. If propagation of a covered
-work results from an entity transaction, each party to that
-transaction who receives a copy of the work also receives whatever
-licenses to the work the party's predecessor in interest had or could
-give under the previous paragraph, plus a right to possession of the
-Corresponding Source of the work from the predecessor in interest, if
-the predecessor has it or can get it with reasonable efforts.
-
- You may not impose any further restrictions on the exercise of the
-rights granted or affirmed under this License. For example, you may
-not impose a license fee, royalty, or other charge for exercise of
-rights granted under this License, and you may not initiate litigation
-(including a cross-claim or counterclaim in a lawsuit) alleging that
-any patent claim is infringed by making, using, selling, offering for
-sale, or importing the Program or any portion of it.
-
- 11. Patents.
-
- A "contributor" is a copyright holder who authorizes use under this
-License of the Program or a work on which the Program is based. The
-work thus licensed is called the contributor's "contributor version".
-
- A contributor's "essential patent claims" are all patent claims
-owned or controlled by the contributor, whether already acquired or
-hereafter acquired, that would be infringed by some manner, permitted
-by this License, of making, using, or selling its contributor version,
-but do not include claims that would be infringed only as a
-consequence of further modification of the contributor version. For
-purposes of this definition, "control" includes the right to grant
-patent sublicenses in a manner consistent with the requirements of
-this License.
-
- Each contributor grants you a non-exclusive, worldwide, royalty-free
-patent license under the contributor's essential patent claims, to
-make, use, sell, offer for sale, import and otherwise run, modify and
-propagate the contents of its contributor version.
-
- In the following three paragraphs, a "patent license" is any express
-agreement or commitment, however denominated, not to enforce a patent
-(such as an express permission to practice a patent or covenant not to
-sue for patent infringement). To "grant" such a patent license to a
-party means to make such an agreement or commitment not to enforce a
-patent against the party.
-
- If you convey a covered work, knowingly relying on a patent license,
-and the Corresponding Source of the work is not available for anyone
-to copy, free of charge and under the terms of this License, through a
-publicly available network server or other readily accessible means,
-then you must either (1) cause the Corresponding Source to be so
-available, or (2) arrange to deprive yourself of the benefit of the
-patent license for this particular work, or (3) arrange, in a manner
-consistent with the requirements of this License, to extend the patent
-license to downstream recipients. "Knowingly relying" means you have
-actual knowledge that, but for the patent license, your conveying the
-covered work in a country, or your recipient's use of the covered work
-in a country, would infringe one or more identifiable patents in that
-country that you have reason to believe are valid.
-
- If, pursuant to or in connection with a single transaction or
-arrangement, you convey, or propagate by procuring conveyance of, a
-covered work, and grant a patent license to some of the parties
-receiving the covered work authorizing them to use, propagate, modify
-or convey a specific copy of the covered work, then the patent license
-you grant is automatically extended to all recipients of the covered
-work and works based on it.
-
- A patent license is "discriminatory" if it does not include within
-the scope of its coverage, prohibits the exercise of, or is
-conditioned on the non-exercise of one or more of the rights that are
-specifically granted under this License. You may not convey a covered
-work if you are a party to an arrangement with a third party that is
-in the business of distributing software, under which you make payment
-to the third party based on the extent of your activity of conveying
-the work, and under which the third party grants, to any of the
-parties who would receive the covered work from you, a discriminatory
-patent license (a) in connection with copies of the covered work
-conveyed by you (or copies made from those copies), or (b) primarily
-for and in connection with specific products or compilations that
-contain the covered work, unless you entered into that arrangement,
-or that patent license was granted, prior to 28 March 2007.
-
- Nothing in this License shall be construed as excluding or limiting
-any implied license or other defenses to infringement that may
-otherwise be available to you under applicable patent law.
-
- 12. No Surrender of Others' Freedom.
-
- If conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot convey a
-covered work so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you may
-not convey it at all. For example, if you agree to terms that obligate you
-to collect a royalty for further conveying from those to whom you convey
-the Program, the only way you could satisfy both those terms and this
-License would be to refrain entirely from conveying the Program.
-
- 13. Use with the GNU Affero General Public License.
-
- Notwithstanding any other provision of this License, you have
-permission to link or combine any covered work with a work licensed
-under version 3 of the GNU Affero General Public License into a single
-combined work, and to convey the resulting work. The terms of this
-License will continue to apply to the part which is the covered work,
-but the special requirements of the GNU Affero General Public License,
-section 13, concerning interaction through a network will apply to the
-combination as such.
-
- 14. Revised Versions of this License.
-
- The Free Software Foundation may publish revised and/or new versions of
-the GNU General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
- Each version is given a distinguishing version number. If the
-Program specifies that a certain numbered version of the GNU General
-Public License "or any later version" applies to it, you have the
-option of following the terms and conditions either of that numbered
-version or of any later version published by the Free Software
-Foundation. If the Program does not specify a version number of the
-GNU General Public License, you may choose any version ever published
-by the Free Software Foundation.
-
- If the Program specifies that a proxy can decide which future
-versions of the GNU General Public License can be used, that proxy's
-public statement of acceptance of a version permanently authorizes you
-to choose that version for the Program.
-
- Later license versions may give you additional or different
-permissions. However, no additional obligations are imposed on any
-author or copyright holder as a result of your choosing to follow a
-later version.
-
- 15. Disclaimer of Warranty.
-
- THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
-HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
-OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
-THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
-IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
-ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
- 16. Limitation of Liability.
-
- IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
-THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
-GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
-USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
-DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
-EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
-
- 17. Interpretation of Sections 15 and 16.
-
- If the disclaimer of warranty and limitation of liability provided
-above cannot be given local legal effect according to their terms,
-reviewing courts shall apply local law that most closely approximates
-an absolute waiver of all civil liability in connection with the
-Program, unless a warranty or assumption of liability accompanies a
-copy of the Program in return for a fee.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) <year> <name of author>
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation, either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-Also add information on how to contact you by electronic and paper mail.
-
- If the program does terminal interaction, make it output a short
-notice like this when it starts in an interactive mode:
-
- <program> Copyright (C) <year> <name of author>
- This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, your program's commands
-might be different; for a GUI interface, you would use an "about box".
-
- You should also get your employer (if you work as a programmer) or school,
-if any, to sign a "copyright disclaimer" for the program, if necessary.
-For more information on this, and how to apply and follow the GNU GPL, see
-<http://www.gnu.org/licenses/>.
-
- The GNU General Public License does not permit incorporating your program
-into proprietary programs. If your program is a subroutine library, you
-may consider it more useful to permit linking proprietary applications with
-the library. If this is what you want to do, use the GNU Lesser General
-Public License instead of this License. But first, please read
-<http://www.gnu.org/philosophy/why-not-lgpl.html>.
diff --git a/elpa/org-9.1.14/README_ELPA b/elpa/org-9.1.14/README_ELPA
deleted file mode 100644
index 7640a44..0000000
--- a/elpa/org-9.1.14/README_ELPA
+++ /dev/null
@@ -1,41 +0,0 @@
-This is the Emacs Org project, an Emacs library for organizing your life.
-
-The homepage of Org is at:
- https://orgmode.org
-
-Installations instructions are at:
- https://orgmode.org/org.html#Installation
-
-This distribution contains an ELPA packaged version of Org.
-"ELPA" stands for the "Emacs Lisp Package Archive".
-
-The GNU ELPA is at:
- http://elpa.gnu.org
-
-It contains the org-*.tar package, containing only the org files
-that are also part of GNU Emacs.
-
-There are other ELPA online, offering more packages.
-
-Some contain the org-plus-contrib-*.tar ELPA package, which bundles
-the core Org files plus many additional contributed libraries.
-
-All ELPA packages of Org contain:
-
-README_ELPA
- This file.
-
-*.el
- Elisp files.
-
-org
- The Org info manual.
-
-orgcard.pdf
- The Org reference card.
-
-etc/
- Libraries for the ODT exporter.
-
-org-*-pkg.el
- The name of the package, requested GNU Emacs packaging system.
diff --git a/elpa/org-9.1.14/dir b/elpa/org-9.1.14/dir
deleted file mode 100644
index 9610c40..0000000
--- a/elpa/org-9.1.14/dir
+++ /dev/null
@@ -1,18 +0,0 @@
-This is the file .../info/dir, which contains the
-topmost node of the Info hierarchy, called (dir)Top.
-The first time you invoke Info you start off looking at this node.
-
-File: dir, Node: Top This is the top of the INFO tree
-
- This (the Directory node) gives a menu of major topics.
- Typing "q" exits, "?" lists all Info commands, "d" returns here,
- "h" gives a primer for first-timers,
- "mEmacs<Return>" visits the Emacs manual, etc.
-
- In Emacs, you can click mouse button 2 on a menu item or cross reference
- to select it.
-
-* Menu:
-
-Emacs
-* Org Mode: (org). Outline-based notes management and organizer
diff --git a/elpa/org-9.1.14/etc/ORG-NEWS b/elpa/org-9.1.14/etc/ORG-NEWS
deleted file mode 100644
index 013c7b1..0000000
--- a/elpa/org-9.1.14/etc/ORG-NEWS
+++ /dev/null
@@ -1,4314 +0,0 @@
-ORG NEWS -- history of user-visible changes. -*- mode: org; coding: utf-8 -*-
-
-#+LINK: doc https://orgmode.org/worg/doc.html#%s
-#+LINK: git https://code.orgmode.org/bzg/org-mode/commit/%s
-
-Copyright (C) 2012-2018 Free Software Foundation, Inc.
-See the end of the file for license conditions.
-
-Please send Org bug reports to mailto:emacs-orgmode@gnu.org.
-
-* Version 9.1
-
-** Incompatible changes
-
-*** Variables relative to clocksum duration are obsolete
-
-~org-time-clocksum-format~, ~org-time-clocksum-use-fractional~ and
-~org-time-clocksum-fractional-format~ are obsolete. If you changed
-them, consider modifying ~org-duration-format~ instead.
-
-Variable ~org-time-clocksum-use-effort-durations~ is also obsolete.
-Consider setting ~org-duration-units~ instead.
-
-*** ~org-at-timestamp-p~ optional argument accepts different values
-
-See docstrings for the allowed values. For backward compatibility,
-~(org-at-timestamp-p t)~ is still supported, but should be updated
-accordingly.
-
-*** ~org-capture-templates~ no longer accepts S-expressions as file names
-
-Since functions are allowed there, a straightforward way to migrate
-is to turn, e.g.,
-
-: (file (sexp))
-
-into
-
-: (file (lambda () (sexp)))
-
-*** Deleted contributed packages
-
-=org-ebib.el, =org-bullets.el= and =org-mime.el= have been deleted
-from the contrib/ directory.
-
-You can now find them here :
-
-- https://github.com/joostkremers/ebib
-- https://github.com/sabof/org-bullets
-- https://github.com/org-mime/org-mime
-
-*** Change ~org-texinfo-classes~ value
-The value cannot support functions to create sectioning commands
-anymore. Also, the sectioning commands should include commands for
-appendices. See the docstring for more information.
-*** Removal of ~:sitemap-sans-extension~
-
-The publishing property is no longer recognized, as a consequence of
-changes to site-map generation.
-
-You can get the same functionality by setting ~:sitemap-format-entry~
-to the following
-
-#+BEGIN_SRC elisp
-(lambda (entry style project)
- (cond ((not (directory-name-p entry))
- (format "[[file:%s][%s]]"
- (file-name-sans-extension entry)
- (org-publish-find-title entry project)))
- ((eq style 'tree) (file-name-nondirectory (directory-file-name entry)))
- (t entry)))
-#+END_SRC
-
-*** Change signature for ~:sitemap-function~
-
-~:sitemap-function~ now expects to be called with two arguments. See
-~org-publish-project-alist~ for details.
-
-*** Change signature for some properties in ~org-list-to-generic~
-
-~:istart~, ~:icount~, ~:iend~ and ~:isep~ now expect the type of the
-list as their first argument.
-
-*** Change signature for ~org-get-repeater~
-The optional argument is now a string to extract the repeater from.
-See docstring for details.
-
-*** Change signature for ~org-time-string-to-time~
-See docstring for changes.
-
-*** Change order of items in ~org-agenda-time-grid~
-~org-agenda-time-grid~ gained an extra item to allow users to customize
-the string displayed after times in the agenda. See docstring for
-details.
-
-*** ~tags-todo~ custom searches now include DONE keywords
-
-Use "/!" markup when filtering TODO keywords to get only not-done TODO
-keywords.
-
-*** ~org-split-string~ returns ~("")~ when called on an empty string
-It used to return nil.
-*** Removal of =ob-scala.el=
-
-See [[https://github.com/ensime/emacs-scala-mode/issues/114][this github issue]].
-
-You can use =ob-scala.el= as packaged in scala-mode, available from the
-MELPA repository.
-
-** New features
-*** iCalendar export uses inheritance for TIMEZONE and LOCATION properties
-Both these properties can be inherited during iCalendar export,
-depending on the value of ~org-use-property-inheritance~.
-*** iCalendar export respects a TIMEZONE property
-Set the TIMEZONE property on an entry to specify a time zone for that
-entry only during iCalendar export. The property value should be
-specified as in "Europe/London".
-*** ~org-attach~ can move directory contents
-When setting a new directory for an entry, org-attach offers to move
-files over from the old directory. Using a prefix arg will reset the
-directory to old, ID based one.
-*** New Org duration library
-This new library implements tools to read and print time durations in
-various formats (e.g., "H:MM", or "1d 2h 3min"...).
-
-See ~org-duration-to-minutes~ and ~org-duration-from-minutes~
-docstrings.
-
-*** Agenda
-**** New variable : ~org-agenda-show-future-repeats~
-**** New variable : ~org-agenda-prefer-last-repeat~
-**** New variable : ~org-deadline-past-days~
-See docstring for details.
-**** Binding C-c C-x < for ~org-agenda-set-restriction-lock-from-agenda~
-**** New auto-align default setting for =org-agenda-tags-column=
-
-=org-agenda-tags-column= can now be set to =auto=, which will
-automatically align tags to the right edge of the window. This is now
-the default setting.
-
-*** New value for ~org-publish-sitemap-sort-folders~
-
-The new ~ignore~ value effectively allows toggling inclusion of
-directories in published site-maps.
-
-*** Babel
-
-**** Scheme: support for tables
-**** Scheme: new variable: ~org-babel-scheme-null-to~
-
-This new custom option allows you to use an empty list or null symbol to
-format the table output, initially assigned to ~hlines~.
-
-**** Scheme: new header ~:prologue~
-
-A new block code header has been created for Org Babel that enables
-developers to prepend code to the scheme block being processed.
-
-Multiple ~:prologue~ headers can be added each of them using a string
-with the content to be added.
-
-The scheme blocks are prepared by surrounding the code in the block
-with a let form. The content of the ~:prologue~ headers are prepended
-before this let form.
-
-**** Support for hledger accounting reports added
-**** Clojure: new setting ~org-babel-clojure-sync-nrepl-timeout~
-
-Creation of a new setting to specify the Cider timeout. By setting
-the =org-babel-clojure-sync-nrepl-timeout= setting option. The value
-is in seconds and if set to =nil= then no timeout will occur.
-**** Clojure: new header ~:show-process~
-
-A new block code header has been created for Org Babel that enables
-developers to output the process of an ongoing process into a new
-window/buffer.
-
-You can tell Org Babel to output the process of a running code block.
-
-To show that output you only have to specify the =:show-process=
-option in the code block's header like this:
-
-#+begin_example
-,#+BEGIN_SRC clojure :results output :show-process t
- (dotimes [n 10]
- (println n ".")
- (Thread/sleep 500))
-,#+END_SRC
-#+end_example
-
-If =:show-process= is specified that way, then when you will run the
-code using =C-c C-c= a new window will open in Emacs. Everything that
-is output by the REPL will immediately be added to that new window.
-
-When the processing of the code is finished, then the window and its
-buffer will be closed and the results will be reported in the
-=#+RESULTS= section.
-
-Note that the =:results= parameter's behavior is *not* changed. If
-=silent= is specified, then no result will be displayed. If =output=
-is specified then all the output from the window will appears in the
-results section. If =value= is specified, then only the last returned
-value of the code will be displayed in the results section.
-
-**** Maxima: new headers ~:prologue~ and ~:epilogue~
-Babel options ~:prologue~ and ~:epilogue~ have been implemented for
-Maxima src blocks which prepend and append, respectively, the given
-code strings. This can be useful for specifying formatting settings
-which would add clutter to exported code. For instance, you can use
-this ~:prologue "fpprintprec: 2; linel: 50;"~ for presenting Maxima
-results in a beamer presentation.
-**** PlantUML: add support for header arguments
-
-[[http://plantuml.com/][Plantuml]] source blocks now support the [[https://orgmode.org/manual/prologue.html#prologue][~:prologue~]], [[https://orgmode.org/manual/epilogue.html#epilogue][~:epilogue~]] and
-[[https://orgmode.org/manual/var.html#var][~:var~]] header arguments.
-
-**** SQL: new engine added ~sqsh~
-
-A new engine was added to support ~sqsh~ command line utility for use
-against Microsoft SQL Server or Sybase SQL server.
-
-More information on ~sqsh~ can be found here: [[https://sourceforge.net/projects/sqsh/][sourceforge/sqsh]]
-
-To use ~sqsh~ in an *sql* =SRC_BLK= set the =:engine= like this:
-
-#+begin_example
-,#+BEGIN_SRC sql :engine sqsh :dbhost my_host :dbuser master :dbpassword pass :database support
-Select * From Users
-Where clue > 0
-,#+END_SRC
-#+end_example
-
-**** SQL: new engine added =vertica=
-
-A new engine was added to support vsql command line utility for use
-against HP Vertica.
-
-More information on =vsql= can be found here: [[https://my.vertica.com/docs/7.2.x/HTML/index.htm#Authoring/ConnectingToHPVertica/vsql/UsingVsql.htm][my.vertica.com]]
-
-To use =vertica= in an sql =SRC_BLK= set the =:engine= like this:
-
-#+BEGIN_EXAMPLE
- ,#+BEGIN_SRC sql :engine vertica :dbhost my_host :dbuser dbadmin :dbpassword pw :database vmart
- SELECT * FROM nodes;
- ,#+END_SRC
-#+END_EXAMPLE
-**** C++: New header ~:namespaces~
-
-The new ~:namespaces~ export option can be used to specify namespaces
-to be used within a C++ org source block. Its usage is similar to
-~:includes~, in that it can accept multiple, space-separated
-namespaces to use. This header is equivalent to adding ~using
-namespace <name>;~ in the source block. Here is a "Hello World" in C++
-using ~:namespaces~:
-
-#+begin_example
- ,#+BEGIN_SRC C++ :results output :namespaces std :includes <iostream>
- cout << "Hello World" << endl;
- ,#+END_SRC
-#+end_example
-
-**** Support for Vala language
-
-[[https://wiki.gnome.org/Projects/Vala][Vala]] language blocks support two special header arguments:
-
-- ~:flags~ passes arguments to the compiler
-- ~:cmdline~ passes commandline arguments to the generated executable
-
-Support for [[https://orgmode.org/manual/var.html#var][~:var~]] does not exist yet, also there is no [[https://orgmode.org/manual/session.html#session][~:session~]]
-support because Vala is a compiled language.
-
-The Vala compiler binary can be changed via the ~defcustom~
-~org-babel-vala-compiler~.
-
-*** New ~function~ scope argument for the Clock Table
-Added a nullary function that returns a list of files as a possible
-argument for the scope of the clock table.
-*** Export
-**** Implement vernacular table of contents in Markdown exporter
-Global table of contents are generated using vanilla Markdown syntax
-instead of HTML. Also #+TOC keyword, including local table of
-contents, are now supported.
-**** Add Slovenian translations
-**** Implement ~org-export-insert-image-links~
-This new function is meant to be used in back-ends supporting images
-as descriptions of links, a.k.a. image links. See its docstring for
-details.
-**** New macro : ~{{{n}}}~
-This macro creates and increment multiple counters in a document. See
-manual for details.
-**** Add global macros through ~org-export-global-macros~
-With this variable, one can define macros available for all documents.
-**** New keyword ~#+EXPORT_FILE_NAME~
-Similarly to ~:EXPORT_FILE_NAME:~ property, this keyword allows the
-user to specify the name of the output file upon exporting the
-document. This also has an effect on publishing.
-**** Horizontal rules are no longer ignored in LaTeX table math mode
-**** Use ~compilation-mode~ for compilation output
-**** Plain lists accept a new ~:separator~ attribute in Texinfo
-
-The new ~:separator~ attribute splits a tag from a description list
-item into multiple parts. This allows to have two-column tables with
-multiple entries in the first column. See manual for more details.
-
-**** ~latex-environment~ elements support ~caption~ keywords for LaTeX export
-*** ~org-edit-special~ can edit LaTeX environments
-
-Using ~C-c '~ on a LaTeX environment opens a sub-editing buffer. By
-default, major mode in that buffer is ~latex-mode~, but it can be
-changed by configuring ~org-src-lang-modes~.
-
-*** ~org-list-to-generic~ includes a new property: ~:ifmt~
-
-~:ifmt~ is a function to be called on the body of each item. See
-~org-list-to-generic~ documentation for details.
-
-*** New variable : ~org-bibtex-headline-format-function~
-This allow to use a different title than entry title.
-
-*** ~org-attach~ supports attaching files from URLs
-
-Using ~C-c C-a u~ prompts for a URL pointing to a file to be attached
-to the document.
-
-*** New option for ~org-refile-use-outline-path~
-~org-refile-use-outline-path~ now supports the setting ~buffer-name~,
-which causes refile targets to be prefixed with the buffer’s
-name. This is particularly useful when used in conjunction with
-~uniquify.el~.
-
-*** ~org-file-contents~ now allows the FILE argument to be a URL.
-This allows ~#+SETUPFILE:~ to accept a URL instead of a local file
-path. The URL contents are auto-downloaded and saved to a temporary
-cache ~org--file-cache~. A new optional argument ~NOCACHE~ is added
-to ~org-file-contents~.
-
-*** ~org-mode-restart~ now resets the newly added ~org--file-cache~.
-Using ~C-c C-c~ on any keyword (like ~#+SETUPFILE~) will reset the
-that file cache.
-
-*** New option : ~org-table-duration-hour-zero-padding~
-This variable allow computed durations in tables to be zero-padded.
-
-*** New mode switch for table formulas : =U=
-This mode omits seconds in durations.
-
-** Removed functions
-
-*** Org Timeline
-
-This feature has been removed. Use a custom agenda view, possibly
-narrowed to current buffer to achieve a similar functionality.
-
-*** ~org-agenda-skip-entry-when-regexp-matches~ is obsolete
-
-Use ~org-agenda-skip-if~ instead.
-
-*** ~org-agenda-skip-subtree-when-regexp-matches~ is obsolete
-
-Use ~org-agenda-skip-if~ instead.
-
-*** ~org-agenda-skip-entry-when-regexp-matches-in-subtree~ is obsolete
-
-Use ~org-agenda-skip-if~ instead.
-
-*** ~org-minutes-to-clocksum-string~ is obsolete
-
-Use ~org-duration-from-minutes~ instead.
-
-*** ~org-hh:mm-string-to-minutes~ is obsolete
-
-Use ~org-duration-to-minutes~ instead.
-
-*** ~org-duration-string-to-minutes~ is obsolete
-
-Use ~org-duration-to-minutes~ instead.
-
-*** ~org-gnus-nnimap-cached-article-number~ is removed.
-
-This function relied on ~nnimap-group-overview-filename~, which was
-removed from Gnus circa September 2010.
-
-** Removed options
-
-*** ~org-agenda-repeating-timestamp-show-all~ is removed.
-
-For an equivalent to a ~nil~ value, set
-~org-agenda-show-future-repeats~ to nil and
-~org-agenda-prefer-last-repeat~ to ~t~.
-
-*** ~org-gnus-nnimap-query-article-no-from-file~ is removed.
-
-This variable has no effect, as it was relying on a function that was
-removed from Gnus circa September 2010.
-
-*** ~org-usenet-links-prefer-google~ is obsolete.
-
-Use ~org-gnus-prefer-web-links~ instead.
-
-*** ~org-publish-sitemap-file-entry-format~ is deprecated
-
-One can provide new ~:sitemap-format-entry~ property for a function
-equivalent to the removed format string.
-
-*** ~org-enable-table-editor~ is removed.
-
-Setting it to a ~nil~ value broke some other features (e.g., speed
-keys).
-
-*** ~org-export-use-babel~ cannot be set to ~inline-only~
-
-The variable is now a boolean.
-
-*** ~org-texinfo-def-table-markup~ is obsolete
-
-Use ~org-texinfo-table-default-markup~ instead.
-
-** New functions
-
-*** ~org-publish-find-property~
-
-This function can be used as a tool to format entries in a site-map,
-in addition to ~org-publish-find-title~ and ~org-publish-find-date~.
-
-*** ~org-list-to-org~
-
-It is the reciprocal of ~org-list-to-lisp~, which see.
-
-*** ~org-agenda-set-restriction-lock-from-agenda~
-
-Call ~org-agenda-set-restriction-lock~ from the agenda.
-
-** Miscellaneous
-
-*** The Library of Babel now on Worg
-
-The library-of-babel.org used to be accessible from the =doc/=
-directory, distributed with Org’s core. It is now accessible
-from the Worg community-driven documentation [[https://orgmode.org/worg/library-of-babel.html][here]].
-
-If you want to contribute to it, please see [[https://orgmode.org/worg/org-contribute.html][how to contribute]].
-
-*** Allow multiple columns view
-
-Columns view is not limited to a single buffer anymore.
-*** Org Attach obeys ~dired-dwim-target~
-
-When a Dired buffer is opened next to the Org document being edited,
-the prompt for file to attach can start in the Dired buffer's
-directory if `dired-dwim-target' in non-nil.
-
-*** ~org-fill-paragraph~ can now fill a whole region
-*** More specific anniversary descriptions
-
-Anniversary descriptions (used in the agenda view, for instance)
-include the point in time, when the anniversary appears. This is,
-in its most general form, just the date of the anniversary. Or
-more specific terms, like "today", "tomorrow" or "in n days" are
-used to describe the time span.
-
-This feature allows to automatically change the description of an
-anniversary, depending on if it occurs in the next few days or
-far away in the future.
-
-*** Computed dates in tables appear as inactive time stamps
-
-*** Save point before opening a file with an unknown search option
-
-When following a file link with a search option (e.g., =::#custom-id=)
-that doesn't exist in the target file, save position before raising an
-error. As a consequence, it is possible to jump back to the original
-document with ~org-mark-ring-goto~ (default binding =C-c &=).
-
-*** ~org-get-heading~ accepts two more optional arguments
-
-See docstring for details.
-
-*** New option ~org-babel-uppercase-example-markers~
-
-This variable is a ~defcustom~ and replaces the variable
-~org-babel-capitalize-example-region-markers~, which is a ~defvar~ and
-is now obsolete.
-*** =INCLUDE= keywords in commented trees are now ignored.
-*** Default value for ~org-texinfo-text-markup-alist~ changed.
-
-Now ~=...=~ markup uses ~@samp{}~ instead of ~@verb{}~. You can use
-~@verb{}~ again by customizing the variable.
-*** Texinfo exports example blocks as ~@example~
-*** Texinfo exports inline src blocks as ~@code{}~
-*** Texinfo default table markup is ~@asis~
-It used to be ~@samp~ but ~@asis~ is neutral and, therefore, more
-suitable as a default value.
-*** Texinfo default process includes ~--no-split~ option
-*** New entities : ~\dollar~ and ~\USD~
-*** Support for date style URLs in =org-protocol://open-source=
- URLs like =https://cool-blog.com/2017/05/20/cool-post/= are
- covered by rewrite rules.
-
-*** Add (C) =COMMENT= support to ~org-structure-template-alist~
-
-* Version 9.0
-
-** Incompatible changes
-
-*** Emacs 23 support has been dropped
-
-From now on, Org expects at least Emacs 24.3, although Emacs 24.4 or
-above is suggested.
-
-*** XEmacs support has been dropped
-
-Incomplete compatibility layer with XEmacs has been removed. If you
-want to take over maintenance of this compatibility, please contact
-our mailing list.
-
-*** New syntax for export blocks
-
-Export blocks are explicitly marked as such at the syntax level to
-disambiguate their parsing from special blocks. The new syntax is
-
-#+BEGIN_SRC org
-,#+BEGIN_EXPORT backend
-...
-,#+END_EXPORT
-#+END_SRC
-
-instead of
-
-#+BEGIN_SRC org
-,#+BEGIN_backend
-...
-,#+END_backend
-#+END_SRC
-
-As a consequence, =INCLUDE= keywords syntax is modified, e.g.,
-
-#+BEGIN_SRC org
-,#+INCLUDE: "file.org" HTML
-#+END_SRC
-
-becomes
-
-#+BEGIN_SRC org
-,#+INCLUDE: "file.org" export html
-#+END_SRC
-
-The following function repairs export blocks and =INCLUDE= keywords
-using previous syntax:
-
-#+BEGIN_SRC emacs-lisp
-(defun org-repair-export-blocks ()
- "Repair export blocks and INCLUDE keywords in current buffer."
- (interactive)
- (when (eq major-mode 'org-mode)
- (let ((case-fold-search t)
- (back-end-re (regexp-opt
- '("HTML" "ASCII" "LATEX" "ODT" "MARKDOWN" "MD" "ORG"
- "MAN" "BEAMER" "TEXINFO" "GROFF" "KOMA-LETTER")
- t)))
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((block-re (concat "^[ \t]*#\\+BEGIN_" back-end-re)))
- (save-excursion
- (while (re-search-forward block-re nil t)
- (let ((element (save-match-data (org-element-at-point))))
- (when (eq (org-element-type element) 'special-block)
- (save-excursion
- (goto-char (org-element-property :end element))
- (save-match-data (search-backward "_"))
- (forward-char)
- (insert "EXPORT")
- (delete-region (point) (line-end-position)))
- (replace-match "EXPORT \\1" nil nil nil 1))))))
- (let ((include-re
- (format "^[ \t]*#\\+INCLUDE: .*?%s[ \t]*$" back-end-re)))
- (while (re-search-forward include-re nil t)
- (let ((element (save-match-data (org-element-at-point))))
- (when (and (eq (org-element-type element) 'keyword)
- (string= (org-element-property :key element) "INCLUDE"))
- (replace-match "EXPORT \\1" nil nil nil 1)))))))))
-#+END_SRC
-
-Moreover, ~:export-block~ keyword used in ~org-export-define-backend~ and
-~org-export-define-derived-backend~ is no longer used and needs to be
-removed.
-
-*** Footnotes
-
-**** [1]-like constructs are not valid footnotes
-
-Using =[1]= as a footnote was already discouraged in the manual, since
-it introduced too many false-positives in many Org documents. These
-constructs are now unsupported.
-
-If you used =[N]= in some of your documents, consider turning them into
-=[fn:N]=.
-
-**** /Org Footnote/ library doesn't handle non-Org buffers
-
-Commands for footnotes in an Org document no longer try to do
-something in non-Org ones. If you need to have footnotes there,
-consider using the =footnote.el= library, shipped with Emacs.
-
-In particular, ~org-footnote-tag-for-non-org-mode-files~ no longer
-exists.
-
-*** ~org-file-apps~ no longer accepts S-expressions as commands
-
-The variable now accepts functions of two arguments instead of plain
-S-expressions. Replacing an S-expression with an appropriate function
-is straightforward. For example
-
-: ("pdf" . (foo))
-
-becomes
-
-: ("pdf" . (lambda (file link) (foo)))
-
-*** The ~{{{modification-time}}}~ macro can get time via =vc=
-
-The modification time will be determined via =vc.el= if the second
-argument is non-nil. See the manual for details.
-
-*** Preparation and completion functions in publishing projects change signature
-
-Preparation and completion functions are now called with an argument,
-which is the project property list. It used to be dynamically scoped
-through the ~project-plist~ variable.
-
-*** Old Babel header properties are no longer supported
-
-Using header arguments as property names is no longer possible. As
-such, the following
-
-#+BEGIN_EXAMPLE
-,* Headline
-:PROPERTIES:
-:exports: code
-:var: a=1 b=2
-:var+: c=3
-:END:
-#+END_EXAMPLE
-
-should be written instead
-
-#+BEGIN_EXAMPLE
-,* Headline
-:PROPERTIES:
-:header-args: :exports code
-:header-args+: :var a=1 b=2
-:header-args+: :var c=3
-:END:
-#+END_EXAMPLE
-
-Please note that, however, old properties were defined at the source
-block definition. Current ones are defined where the block is called.
-
-** New features
-
-*** ~org-eww~ has been moved into core
-*** New org-protocol key=value syntax
-
-Org-protocol can now handle query-style parameters such as:
-
-#+begin_example
-org-protocol://store-link?url=http:%2F%2Flocalhost%2Findex.html&title=The%20title
-org-protocol://capture?template=x&title=Hello&body=World&url=http:%2F%2Fexample.com
-#+end_example
-
-Old-style links such as
-: org-protocol://store-link:/http:%2F%2Flocalhost%2Findex.html/The%20title
-continue to be supported.
-
-If you have defined your own handler functions for
-~org-protocol-protocol-alist~, change them to accept either a property
-list (for new-style links) or a string (for old-style links). Use
-~org-protocol-parse-parameters~ to convert old-style links into property
-lists.
-
-*** New Org linter library
-
-~org-lint~ can check syntax and report common issues in Org documents.
-
-*** New option ~date-tree-last~ for ~org-agenda-insert-diary-strategy~
-
-When ~org-agenda-insert-diary-strategy~ is set to ~date-tree-last~, diary
-entries are added to last in the date tree.
-
-*** New ~vbar~ entity
-
-~\vbar~ or ~\vbar{}~ will be exported unconditionally as a =|=,
-unlike to existing ~\vert~, which is expanded as ~|~ when using
-a HTML derived export back-end.
-
-*** Export
-
-**** New =#+latex_compiler= keyword to set LaTeX compiler.
-
-PDFLaTeX, XeLaTeX, and LuaLaTeX are supported. See the manual for
-details.
-
-**** New option ~org-export-with-broken-links~
-
-This option tells the export process how to behave when encountering
-a broken internal link. See its docstring for more information.
-
-**** Attributes support in custom language environments for LaTeX export
-
-Custom language environments for LaTeX export can now define the
-string to be inserted during export, using attributes to indicate the
-position of the elements. See variable ~org-latex-custom-lang-environments~
-for more details.
-
-**** New Texinfo ~options~ attribute on special blocks
-
-Using ~:options~ as a Texinfo attribute, it is possible to add
-information to custom environments. See manual for details.
-
-**** New HTML ~id~ attributes on special, example and quote blocks
-
-If the block has a =#+NAME:= attribute assigned, then the HTML element
-will have an ~id~ attribute with that name in the HTML export. This
-enables one to create links to these elements in other places, e.g.,
-~<a href="#name">text</a>~.
-
-**** Listings with captions are now numbered in HTML export
-
-The class associated to the numbering is "listing-number". If you
-don't want these blocks to be numbered, as it was the case until now,
-You may want to add ~.listing-number { display: none; }~ to the CSS
-used.
-
-**** Line Numbering in SRC/EXAMPLE blocks support arbitrary start number
-
-The ~-n~ option to ~SRC~ and ~EXAMPLE~ blocks can now take a numeric
-argument to specify the staring line number for the source or example
-block. The ~+n~ option can now take a numeric argument that will be
-added to the last line number from the previous block as the starting
-point for the SRC/EXAMPLE block.
-
-#+BEGIN_SRC org
-,#+BEGIN_SRC emacs-lisp -n 20
-;; this will export with line number 20
-(message "This is line 21")
-,#+END_SRC
-,#+BEGIN_SRC emacs-lisp +n 10
-;; This will be listed as line 31
-(message "This is line 32")
-,#+END_SRC
-#+END_SRC
-
-**** Allow toggling center for images in LaTeX export
-
-With the global variable ~org-latex-images-centered~ or the local
-attribute ~:center~ it is now possible to center an image in LaTeX
-export.
-
-**** Default CSS class ~org-svg~ for SVG images in HTML export
-
-SVG images exported in HTML are now by default assigned a CSS class
-~org-svg~ if no CSS class is specified with the ~:class~ attribute. By
-default, the CSS styling of class ~org-svg~ specifies an image width of
-90\thinsp{}% of the container the image.
-
-**** Markdown footnote export customization
-
-Variables ~org-md-footnotes-section~ and ~org-md-footnote-format~
-introduced for =ox-md.el=. Both new variables define template strings
-which can be used to customize the format of the exported footnotes
-section and individual footnotes, respectively.
-
-*** Babel
-
-**** Blocks with coderefs labels can now be evaluated
-
-The labels are removed prior to evaluating the block.
-
-**** Support for Lua language
-**** Support for SLY in Lisp blocks
-
-See ~org-babel-lisp-eval-fn~ to activate it.
-
-**** Support for Stan language
-
-New ob-stan.el library.
-
-Evaluating a Stan block can produce two different results.
-
-1. Dump the source code contents to a file.
-
- This file can then be used as a variable in other blocks, which
- allows interfaces like RStan to use the model.
-
-2. Compile the contents to a model file.
-
- This provides access to the CmdStan interface. To use this, set
- ~org-babel-stan-cmdstan-directory~ and provide a ~:file~ argument
- that does not end in ".stan".
-
-For more information and usage examples, visit
-https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-stan.html
-
-**** Support for Oracle databases via ~sqlplus~
-
-=ob-sql= library supports running SQL blocks against an Oracle
-database using ~sqlplus~. Use with properties like this (all
-mandatory):
-
-#+BEGIN_EXAMPLE
-:engine oracle
-:dbhost <host.com>
-:dbport <1521>
-:dbuser <username>
-:database <database>
-:dbpassword <secret>
-#+END_EXAMPLE
-
-**** Improved support to Microsoft SQL Server via ~sqlcmd~
-
-=ob-sql= library removes support to the ~msosql~ engine which uses the
-deprecated ~osql~ command line tool, and replaces it with ~mssql~
-engine which uses the ~sqlcmd~ command line tool. Use with properties
-like this:
-
-#+BEGIN_EXAMPLE
-:engine mssql
-:dbhost <host.com>
-:dbuser <username>
-:dbpassword <secret>
-:database <database>
-#+END_EXAMPLE
-
-If you want to use the *trusted connection* feature, omit *both* the
-=dbuser= and =dbpassword= properties and add =cmdline -E= to the properties.
-
-If your Emacs is running in a Cygwin environment, the =ob-sql= library
-can pass the converted path to the =sqlcmd= tool.
-
-**** Improved support of header arguments for postgresql
-
-The postgresql engine in a sql code block supports now ~:dbport~ nd
-~:dbpassword~ as header arguments.
-
-**** Support for additional plantuml output formats
-
-The support for output formats of [[http://plantuml.com/][plantuml]] has been extended to now
-include:
-
-All Diagrams:
-- png ::
-- svg ::
-- eps ::
-- pdf ::
-- vdx ::
-- txt :: ASCII art
-- utxt :: ASCII art using unicode characters
-
-Class Diagrams:
-- xmi ::
-- html ::
-
-State Diagrams:
-- scxml ::
-
-The output formats are determined by the file extension specified
-using the :file property, e.g.:
-
-#+begin_src plantuml :file diagram.png
-@startuml
-Alice -> Bob: Authentication Request
-Bob --> Alice: Authentication Response
-
-Alice -> Bob: Another authentication Request
-Alice <-- Bob: another authentication Response
-@enduml
-#+end_src
-
-Please note that *pdf* *does not work out of the box* and needs additional
-setup in addition to plantuml. See [[http://plantuml.com/pdf.html]] for
-details and setup information.
-
-*** Rewrite of radio lists
-
-Radio lists, i.e, Org plain lists in foreign buffers, have been
-rewritten to be on par with Radio tables. You can use a large set of
-parameters to control how a given list should be rendered. See manual
-for details.
-
-*** org-bbdb-anniversaries-future
-
-Used like ~org-bbdb-anniversaries~, it provides a few days warning for
-upcoming anniversaries (default: 7 days).
-
-*** Clear non-repeated SCHEDULED upon repeating a task
-
-If the task is repeated, and therefore done at least one, scheduling
-information is no longer relevant. It is therefore removed.
-
-See [[git:481719fbd5751aaa9c672b762cb43aea8ee986b0][commit message]] for more information.
-
-*** Support for ISO week trees
-
-ISO week trees are an alternative date tree format that orders entries
-by ISO week and not by month.
-
-For example:
-
-: * 2015
-: ** 2015-W35
-: ** 2015-W36
-: *** 2015-08-31 Monday
-
-They are supported in org-capture via ~file+weektree~ and
-~file+weektree+prompt~ target specifications.
-
-*** Accept ~:indent~ parameter when capturing column view
-
-When defining a "columnview" dynamic block, it is now possible to add
-an :indent parameter, much like the one in the clock table.
-
-On the other hand, stars no longer appear in an ITEM field.
-
-*** Columns view
-
-**** ~org-columns~ accepts a prefix argument
-
-When called with a prefix argument, ~org-columns~ apply to the whole
-buffer unconditionally.
-
-**** New variable : ~org-agenda-view-columns-initially~
-
-The variable used to be a ~defvar~, it is now a ~defcustom~.
-
-**** Allow custom summaries
-
-It is now possible to add new summary types, or override those
-provided by Org by customizing ~org-columns-summary-types~, which see.
-
-**** Allow multiple summaries for any property
-
-Columns can now summarize the same property using different summary
-types.
-
-*** Preview LaTeX snippets in buffers not visiting files
-*** New option ~org-attach-commit~
-
-When non-nil, commit attachments with git, assuming the document is in
-a git repository.
-
-*** Allow conditional case-fold searches in ~org-occur~
-
-When set to ~smart~, the new variable ~org-occur-case-fold-search~ allows
-to mimic =isearch.el=: if the regexp searched contains any upper case
-character (or character class), the search is case sensitive.
-Otherwise, it is case insensitive.
-
-*** More robust repeated =ox-latex= footnote handling
-
-Repeated footnotes are now numbered by referring to a label in the
-first footnote.
-
-*** The ~org-block~ face is inherited by ~src-blocks~
-
-This works also when =org-src-fontify-natively= is non-nil. It is also
-possible to specify per-languages faces. See =org-src-block-faces= and
-the manual for details.
-
-*** Links are now customizable
-
-Links can now have custom colors, tooltips, keymaps, display behavior,
-etc. Links are now centralized in ~org-link-parameters~.
-
-** New functions
-
-*** ~org-next-line-empty-p~
-
-It replaces the deprecated ~next~ argument to ~org-previous-line-empty-p~.
-
-*** ~org-show-children~
-
-It is a faster implementation of ~outline-show-children~.
-
-** Removed functions
-
-*** ~org-agenda-filter-by-tag-refine~ has been removed.
-
-Use ~org-agenda-filter-by-tag~ instead.
-
-*** ~org-agenda-todayp~ is deprecated.
-
-Use ~org-agenda-today-p~ instead.
-
-*** ~org-babel-get-header~ is removed.
-
-Use ~org-babel--get-vars~ or ~assq~ instead, as applicable.
-
-*** ~org-babel-trim~ is deprecated.
-
-Use ~org-trim~ instead.
-
-*** ~org-element-remove-indentation~ is deprecated.
-
-Use ~org-remove-indentation~ instead.
-
-*** ~org-image-file-name-regexp~ is deprecated
-
-Use ~image-file-name-regexp~ instead.
-The never-used-in-core ~extensions~ argument has been dropped.
-
-*** ~org-list-parse-list~ is deprecated
-
-Use ~org-list-to-lisp~ instead.
-
-*** ~org-on-heading-p~ is deprecated
-
-A comment to this effect was in the source code since 7.8.03, but
-now a byte-compiler warning will be generated as well.
-
-*** ~org-table-p~ is deprecated
-
-Use ~org-at-table-p~ instead.
-
-*** ~org-table-recognize-table.el~ is deprecated
-
-It was not called by any org code since 2010.
-
-*** Various reimplementations of cl-lib functions are deprecated
-
-The affected functions are:
-- ~org-count~
-- ~org-remove-if~
-- ~org-remove-if-not~
-- ~org-reduce~
-- ~org-every~
-- ~org-some~
-
-Additionally, ~org-sublist~ is deprecated in favor of ~cl-subseq~. Note
-the differences in indexing conventions: ~org-sublist~ is 1-based and
-end-inclusive; ~cl-subseq~ is 0-based and end-exclusive.
-
-** Removed options
-
-*** Remove all options related to ~ido~ or ~iswitchb~
-
-This includes ~org-completion-use-iswitchb~ and ~org-completion-use-ido~.
-Instead Org uses regular functions, e.g., ~completion-read~ so as to
-let those libraries operate.
-
-*** Remove ~org-list-empty-line-terminates-plain-lists~
-
-Two consecutive blank lines always terminate all levels of current
-plain list.
-
-*** ~fixltx2e~ is removed from ~org-latex-default-packages-alist~
-
-fixltx2e is obsolete, see LaTeX News 22.
-
-** Miscellaneous
-*** Add Icelandic smart quotes
-*** Allow multiple receiver locations in radio tables and lists
-*** Allow angular links within link descriptions
-
-It is now allowed to write, e.g.,
-~[[http:orgmode.org][<file:unicorn.png>]]~ as an equivalent to
-~[[http:orgmode.org][file:unicorn.png]]~. The advantage of the former
-is that spaces are allowed within the path.
-
-*** Beamer export back-ends uses ~org-latex-prefer-user-labels~
-*** ~:preparation-function~ called earlier during publishing
-
-Functions in this list are called before any file is associated to the
-current project. Thus, they can be used to generate to be published
-Org files.
-
-*** Function ~org-remove-indentation~ changes.
-
-The new algorithm doesn't remove TAB characters not used for
-indentation.
-
-*** Secure placeholders in capture templates
-
-Placeholders in capture templates are no longer expanded recursively.
-However, ~%(...)~ constructs are expanded very late, so you can fill
-the contents of the S-exp with the replacement text of non-interactive
-placeholders. As before, interactive ones are still expanded as the
-very last step, so the previous statement doesn't apply to them.
-
-Note that only ~%(...)~ placeholders initially present in the
-template, or introduced using a file placeholder, i.e., ~%[...]~ are
-expanded. This prevents evaluating potentially malicious code when
-another placeholder, e.g., ~%i~ expands to a S-exp.
-
-*** Links stored by ~org-gnus-store-link~ in nnir groups
-
-Since gnus nnir groups are temporary, ~org-gnus-store-link~ now refers
-to the article's original group.
-
-*** ~org-babel-check-confirm-evaluate~ is now a function instead of a macro
-
-The calling convention has changed.
-
-*** HTML export table row customization changes
-
-Variable ~org-html-table-row-tags~ has been split into
-~org-html-table-row-open-tag~ and ~org-html-table-row-close-tag~.
-Both new variables can be either a string or a function which will be
-called with 6 parameters.
-
-*** =ITEM= special property returns headline without stars
-*** Rename ~org-insert-columns-dblock~ into ~org-columns-insert-dblock~
-
-The previous name is, for the time being, kept as an obsolete alias.
-
-*** ~org-trim~ can preserve leading indentation.
-
-When setting a new optional argument to a non-nil value, ~org-trim~
-preserves leading indentation while removing blank lines at the
-beginning of the string. The behavior is identical for white space at
-the end of the string.
-
-*** Function ~org-info-export~ changes.
-
-HTML links created from certain info links now point to =gnu.org= URL's rather
-than just to local files. For example info links such as =info:emacs#List
-Buffers= used to be converted to HTML links like this:
-
-: <a href="emacs.html#List-Buffers">emacs#List Buffers</a>
-
-where local file =emacs.html= is referenced.
-For most folks this file does not exist.
-Thus the new behavior is to generate this HTML link instead:
-
-: <a href="https://www.gnu.org/software/emacs/manual/html_mono/emacs.html#List-Buffers">emacs#List Buffers</a>
-
-All emacs related info links are similarly translated plus few other
-=gnu.org= manuals.
-
-*** Repeaters with a ~++~ interval and a time can be shifted to later today
-
-Previously, if a recurring task had a timestamp of
-~<2016-01-01 Fri 20:00 ++1d>~ and was completed on =2016-01-02= at
-=08:00=, the task would skip =2016-01-02= and would be rescheduled for
-=2016-01-03=. Timestamps with ~++~ cookies and a specific time will
-now shift to the first possible future occurrence, even if the
-occurrence is later the same day the task is completed. (Timestamps
-already in the future are still shifted one time further into the
-future.)
-
-*** ~org-mobile-action-alist~ is now a defconst
-
-It used to be a defcustom, with a warning that it shouldn't be
-modified anyway.
-
-*** ~file+emacs~ and ~file+sys~ link types are deprecated
-
-They are still supported in Org 9.0 but will eventually be removed in
-a later release. Use ~file~ link type along with universal arguments
-to force opening it in either Emacs or with system application.
-
-*** New defcustom ~org-babel-J-command~ stores the j command
-*** New defalias ~org-babel-execute:j~
-
-Allows J source blocks be indicated by letter j. Previously the
-indication letter was solely J.
-
-*** ~org-open-line~ ignores tables at the very beginning of the buffer
-
-When ~org-special-ctrl-o~ is non-nil, it is impractical to create
-a blank line above a table at the beginning of the document. Now, as
-a special case, ~org-open-line~ behaves normally in this situation.
-
-*** ~org-babel-hash-show-time~ is now customizable
-
-The experimental variable used to be more or less confidential, as
-a ~defvar~.
-
-*** New ~:format~ property to parsed links
-
-It defines the format of the original link. Possible values are:
-~plain~, ~bracket~ and ~angle~.
-
-* Version 8.3
-
-** Incompatible changes
-
-*** Properties drawers syntax changes
-
-Properties drawers are now required to be located right after a
-headline and its planning line, when applicable.
-
-It will break some documents as TODO states changes were sometimes
-logged before the property drawer.
-
-The following function will repair them:
-
-#+BEGIN_SRC emacs-lisp
-(defun org-repair-property-drawers ()
- "Fix properties drawers in current buffer.
-Ignore non Org buffers."
- (when (eq major-mode 'org-mode)
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((case-fold-search t)
- (inline-re (and (featurep 'org-inlinetask)
- (concat (org-inlinetask-outline-regexp)
- "END[ \t]*$"))))
- (org-map-entries
- (lambda ()
- (unless (and inline-re (org-looking-at-p inline-re))
- (save-excursion
- (let ((end (save-excursion (outline-next-heading) (point))))
- (forward-line)
- (when (org-looking-at-p org-planning-line-re) (forward-line))
- (when (and (< (point) end)
- (not (org-looking-at-p org-property-drawer-re))
- (save-excursion
- (and (re-search-forward org-property-drawer-re end t)
- (eq (org-element-type
- (save-match-data (org-element-at-point)))
- 'drawer))))
- (insert (delete-and-extract-region
- (match-beginning 0)
- (min (1+ (match-end 0)) end)))
- (unless (bolp) (insert "\n"))))))))))))
-#+END_SRC
-
-*** Using "COMMENT" is now equivalent to commenting with "#"
-
-If you used "COMMENT" in headlines to prevent a subtree from being
-exported, you can still do it but all information within the subtree
-is now commented out, i.e. no #+OPTIONS line will be parsed or taken
-into account when exporting.
-
-If you want to exclude a headline from export while using its contents
-for setting options, use =:noexport:= (see =org-export-exclude-tags=.)
-
-*** =#+CATEGORY= keywords no longer apply partially to document
-
-It was possible to use several such keywords and have them apply to
-the text below until the next one, but strongly deprecated since Org
-5.14 (2008).
-
-=#+CATEGORY= keywords are now global to the document. You can use node
-properties to set category for a subtree, e.g.,
-
-#+BEGIN_SRC org
-,* Headline
- :PROPERTIES:
- :CATEGORY: some category
- :END:
-#+END_SRC
-
-*** New variable to control visibility when revealing a location
-
-~org-show-following-heading~, ~org-show-siblings~, ~org-show-entry-below~
-and ~org-show-hierarchy-above~ no longer exist. Instead, visibility is
-controlled through a single variable: ~org-show-context-detail~, which
-see.
-
-*** Replace disputed keys again when reading a date
-
-~org-replace-disputed-keys~ has been ignored when reading date since
-version 8.1, but the former behavior is restored again.
-
-Keybinding for reading date can be customized with a new variable
-~org-read-date-minibuffer-local-map~.
-
-*** No default title is provided when =TITLE= keyword is missing
-
-Skipping =TITLE= keyword no longer provides the current file name, or
-buffer name, as the title. Instead, simply ignore the title.
-
-*** Default bindings of =C-c C-n= and =C-c C-p= changed
-
-The key sequences =C-c C-n= and =C-c C-p= are now bound to
-~org-next-visible-heading~ and ~org-previous-visible-heading~
-respectively, rather than the =outline-mode= versions of these
-functions. The Org version of these functions skips over inline tasks
-(and even-level headlines when ~org-odd-levels-only~ is set).
-
-*** ~org-element-context~ no longer return objects in keywords
-
-~org-element-context~ used to return objects on some keywords, i.e.,
-=TITLE=, =DATE= and =AUTHOR=. It now returns only the keyword.
-
-*** ~org-timer-default-timer~ type changed from number to string
-
-If you have, in your configuration, something like =(setq
-org-timer-default-timer 10)= replace it with =(setq
-org-timer-default-timer "10")=.
-
-*** Functions signature changes
-
-The following functions require an additional argument. See their
-docstring for more information.
-
-- ~org-export-collect-footnote-definitions~
-- ~org-html-format-headline-function~
-- ~org-html-format-inlinetask-function~
-- ~org-latex-format-headline-function~
-- ~org-latex-format-inlinetask-function~
-- ~org-link-search~
-
-** New features
-
-*** Default lexical evaluation of emacs-lisp src blocks
-
-Emacs-lisp src blocks in babel are now evaluated using lexical
-scoping. There is a new header to control this behavior.
-
-The default results in an eval with lexical scoping.
-:lexical yes
-
-This turns lexical scoping off in the eval (the former behavior).
-:lexical no
-
-This uses the lexical environment with x=42 in the eval.
-:lexical '((x . 42))
-
-*** Behavior of ~org-return~ changed
-
-If point is before or after the headline title, insert a new line
-without changing the headline.
-
-*** Hierarchies of tags
-
-The functionality of nesting tags in hierarchies is added to org-mode.
-This is the generalization of what was previously called "Tag groups"
-in the manual. That term is now changed to "Tag hierarchy".
-
-The following in-buffer definition:
-
-#+BEGIN_SRC org
- ,#+TAGS: [ Group : SubOne SubTwo ]
- ,#+TAGS: [ SubOne : SubOne1 SubOne2 ]
- ,#+TAGS: [ SubTwo : SubTwo1 SubTwo2 ]
-#+END_SRC
-
-Should be seen as the following tree of tags:
-
-- Group
- - SubOne
- - SubOne1
- - SubOne2
- - SubTwo
- - SubTwo1
- - SubTwo2
-
-Searching for "Group" should return all tags defined above. Filtering
-on SubOne filters also it's sub-tags. Etc.
-
-There is no limit on the depth for the tag hierarchy.
-
-*** Additional syntax for non-unique grouptags
-
-Additional syntax is defined for grouptags if the tags in the group
-don't have to be distinct on a heading.
-
-Grouptags had to previously be defined with { }. This syntax is
-already used for exclusive tags and Grouptags need their own,
-non-exclusive syntax. This behavior is achieved with [ ]. Note: { }
-can still be used also for Grouptags but then only one of the given
-tags can be used on the headline at the same time. Example:
-
-[ group : sub1 sub2 ]
-
-#+BEGIN_SRC org
-,* Test :sub1:sub2:
-#+END_SRC
-
-This is a more general case than the already existing syntax for
-grouptags; { }.
-
-*** Define regular expression patterns as tags
-
-Tags can be defined as grouptags with regular expressions as
-"sub-tags".
-
-The regular expressions in the group must be marked up within { }.
-Example use:
-
-: #+TAGS: [ Project : {P@.+} ]
-
-Searching for the tag Project will now list all tags also including
-regular expression matches for P@.+. This is good for example for
-projects tagged with a common identifier, i.e. P@2014_OrgTags.
-
-*** Filtering in the agenda on grouptags (Tag hierarchies)
-
-Filtering in the agenda on grouptags filters all of the related tags.
-Except if a filter is applied with a (double) prefix-argument.
-
-Filtering in the agenda on subcategories does not filter the "above"
-levels anymore.
-
-If a grouptag contains a regular expression the regular expression
-is also used as a filter.
-
-*** Minor refactoring of ~org-agenda-filter-by-tag~
-
-Now uses the argument ARG and optional argument exclude instead of
-strip and narrow. ARG because the argument has multiple purposes and
-makes more sense than strip now. The term "narrowing" is changed to
-exclude.
-
-The main purpose is for the function to make more logical sense when
-filtering on tags now when tags can be structured in hierarchies.
-
-*** Babel: support for sed scripts
-
-Thanks to Bjarte Johansen for this feature.
-
-*** Babel: support for Processing language
-
-New ob-processing.el library.
-
-This library implements necessary functions for implementing editing
-of Processing code blocks, viewing the resulting sketches in an
-external viewer, and HTML export of the sketches.
-
-Check the documentation for more details.
-
-Thanks to Jarmo Hurri for this feature.
-
-*** New behavior for ~org-toggle-latex-fragment~
-
-The new behavior is the following:
-
-- With a double prefix argument or with a single prefix argument when
- point is before the first headline, toggle overlays in the whole
- buffer;
-
-- With a single prefix argument, toggle overlays in the current
- subtree;
-
-- On latex code, toggle overlay at point;
-
-- Otherwise, toggle overlays in the current section.
-
-*** Additional markup with =#+INCLUDE= keyword
-
-The content of the included file can now be optionally marked up, for
-instance as HTML. See the documentation for details.
-
-*** File links with =#+INCLUDE= keyword
-
-Objects can be extracted via =#+INCLUDE= using file links. It is
-possible to include only the contents of the object. See manual for
-more information.
-
-*** Drawers do not need anymore to be referenced in =#+DRAWERS=
-
-One can use a drawer without listing it in the =#+DRAWERS= keyword,
-which is now obsolete. As a consequence, this change also deprecates
-~org-drawers~ variable.
-
-*** ~org-edit-special~ can edit export blocks
-
-Using C-c ' on an export block now opens a sub-editing buffer. Major
-mode in that buffer is determined by export backend name (e.g.,
-"latex" \to "latex-mode"). You can define exceptions to this rule by
-configuring ~org-src-lang-modes~, which see.
-
-*** Additional =:hline= processing to ob-shell
-
-If the argument =:hlines yes= is present in a babel call, an optional
-argument =:hlines-string= can be used to define a string to use as a
-representation for the lisp symbol ='hline= in the shell program. The
-default is =hline=.
-
-*** Markdown export supports switches in source blocks
-
-For example, it is now possible to number lines using the =-n= switch in
-a source block.
-
-*** New option in ASCII export
-
-Plain lists can have an extra margin by setting ~org-ascii-list-margin~
-variable to an appropriate integer.
-
-*** New blocks in ASCII export
-
-ASCII export now supports =#+BEGIN_JUSTIFYRIGHT= and =#+BEGIN_JUSTIFYLEFT=
-blocks. See documentation for details.
-
-*** More back-end specific publishing options
-
-The number of publishing options specific to each back-end has been
-increased. See manual for details.
-
-*** Export inline source blocks
-
-Inline source code was used to be removed upon exporting. They are
-now handled as standard code blocks, i.e., the source code can appear
-in the output, depending on the parameters.
-
-*** Extend ~org-export-first-sibling-p~ and ~org-export-last-sibling-p~
-
-These functions now support any element or object, not only headlines.
-
-*** New function: ~org-export-table-row-in-header-p~
-
-*** New function: ~org-export-get-reference~
-
-*** New function: ~org-element-lineage~
-
-This function deprecates ~org-export-get-genealogy~. It also provides
-more features. See docstring for details.
-
-*** New function: ~org-element-copy~
-
-*** New filter: ~org-export-filter-body-functions~
-
-Functions in this filter are applied on the body of the exported
-document, before wrapping it within the template.
-
-*** New :environment parameter when exporting example blocks to LaTeX
-
-: #+ATTR_LATEX: :environment myverbatim
-: #+BEGIN_EXAMPLE
-: This sentence is false.
-: #+END_EXAMPLE
-
-will be exported using =@samp(myverbatim)= instead of =@samp(verbatim)=.
-
-*** Various improvements on radio tables
-
-Radio tables feature now relies on Org's export framework ("ox.el").
-~:no-escape~ parameter no longer exists, but additional global
-parameters are now supported: ~:raw~, ~:backend~. Moreover, there are new
-parameters specific to some pre-defined translators, e.g.,
-~:environment~ and ~:booktabs~ for ~orgtbl-to-latex~. See translators
-docstrings (including ~orgtbl-to-generic~) for details.
-
-*** Non-floating minted listings in Latex export
-
-It is not possible to specify =#+attr_latex: :float nil= in conjunction
-with source blocks exported by the minted package.
-
-*** Field formulas can now create columns as needed
-
-Previously, evaluating formulas that referenced out-of-bounds columns
-would throw an error. A new variable ~org-table-formula-create-columns~
-was added to adjust this behavior. It is now possible to silently add
-new columns, to do so with a warning or to explicitly ask the user
-each time.
-
-*** ASCII plot
-
-Ability to plot values in a column through ASCII-art bars. See manual
-for details.
-
-*** New hook: ~org-archive-hook~
-
-This hook is called after successfully archiving a subtree, with point
-on the original subtree, not yet deleted.
-
-*** New option: ~org-attach-archive-delete~
-
-When non-nil, attachments from archived subtrees are removed.
-
-*** New option: ~org-latex-caption-above~
-
-This variable generalizes ~org-latex-table-caption-above~, which is now
-deprecated. In addition to tables, it applies to source blocks,
-special blocks and images. See docstring for more information.
-
-*** New option: ~org-latex-prefer-user-labels~
-
-See the docstring for more information.
-
-*** Export unnumbered headlines
-
-Headlines, for which the property ~UNNUMBERED~ is non-nil, are now
-exported without section numbers irrespective of their levels. The
-property is inherited by children.
-
-*** Tables can be sorted with an arbitrary function
-
-It is now possible to specify a function, both programmatically,
-through a new optional argument, and interactively with ~f~ or ~F~ keys,
-to sort a table.
-
-*** Table of contents can be local to a section
-
-The ~TOC~ keywords now accepts an optional ~local~ parameter. See manual
-for details.
-
-*** Countdown timers can now be paused
-
-~org-timer-pause-time~ now pauses and restarts both relative and
-countdown timers.
-
-*** New option ~only-window~ for ~org-agenda-window-setup~
-
-When ~org-agenda-window-setup~ is set to ~only-window~, the agenda is
-displayed as the sole window of the current frame.
-
-*** ~{{{date}}}~ macro supports optional formatting argument
-
-It is now possible to supply and optional formatting argument to
-~{{{date}}}~. See manual for details.
-
-*** ~{{{property}}}~ macro supports optional search argument
-
-It is now possible to supply an optional search option to
-~{{{property}}}~ in order to retrieve remote properties optional. See
-manual for details.
-
-*** New option ~org-export-with-title~
-
-It is possible to suppress the title insertion with ~#+OPTIONS:
-title:nil~ or globally using the variable ~org-export-with-title~.
-
-*** New entities family: "\_ "
-
-"\_ " are used to insert up to 20 contiguous spaces in various
-back-ends. In particular, this family can be used to introduce
-leading spaces within table cells.
-
-*** New MathJax configuration options
-
-Org uses the MathJax CDN by default. See the manual and the docstring
-of ~org-html-mathjax-options~ for details.
-
-*** New behavior in `org-export-options-alist'
-
-When defining a back-end, it is now possible to specify to give
-`parse' behavior on a keyword. It is equivalent to call
-`org-element-parse-secondary-string' on the value.
-
-However, parsed =KEYWORD= is automatically associated to an
-=:EXPORT_KEYWORD:= property, which can be used to override the keyword
-value during a subtree export. Moreover, macros are expanded in such
-keywords and properties.
-
-*** Viewport support in html export
-
-Viewport for mobile-optimized website is now automatically inserted
-when exporting to html. See ~org-html-viewport~ for details.
-
-*** New ~#+SUBTITLE~ export keyword
-
-Org can typeset a subtitle in some export backends. See the manual
-for details.
-
-*** Remotely edit a footnote definition
-
-Calling ~org-edit-footnote-reference~ (C-c ') on a footnote reference
-allows to edit its definition, as long as it is not anonymous, in a
-dedicated buffer. It works even if buffer is currently narrowed.
-
-*** New function ~org-delete-indentation~ bound to ~M-^~
-
-Work as ~delete-indentation~ unless at heading, in which case text is
-added to headline text.
-
-*** Support for images in Texinfo export
-
-~Texinfo~ back-end now handles images. See the manual for details.
-
-*** Support for captions in Texinfo export
-
-Tables and source blocks can now have captions. Additionally, lists
-of tables and lists of listings can be inserted in the document with
-=#+TOC= keyword.
-
-*** Countdown timer support hh:mm:ss format
-
-In addition to setting countdown timers in minutes, they can also be
-set using the hh:mm:ss format.
-
-*** Extend ~org-clone-subtree-with-time-shift~
-
-~org-clone-subtree-with-time-shift~ now accepts 0 as an argument for the
-number of clones, which removes the repeater from the original subtree
-and creates one shifted, repeating clone.
-
-*** New time block for clock tables: ~untilnow~
-
-It encompasses all past closed clocks.
-
-*** Support for the ~polyglossia~ LaTeX package
-
-See the docstring of ~org-latex-classes~ and
-~org-latex-guess-polyglossia-language~ for details.
-
-*** None-floating tables, graphics and blocks can have captions
-
-*** `org-insert-heading' can be forced to insert top-level headline
-
-** Removed functions
-
-*** Removed function ~org-translate-time~
-
-Use ~org-timestamp-translate~ instead.
-
-*** Removed function ~org-beamer-insert-options-template~
-
-This function inserted a Beamer specific template at point or in
-current subtree. Use ~org-export-insert-default-template~ instead, as
-it provides more features and covers all export back-ends. It is also
-accessible from the export dispatcher.
-
-*** Removed function ~org-timer-cancel-timer~
-
-~org-timer-stop~ now stops both relative and countdown timers.
-
-*** Removed function ~org-export-solidify-link-text~
-
-This function, being non-bijective, introduced bug in internal
-references. Use ~org-export-get-reference~ instead.
-
-*** Removed function ~org-end-of-meta-data-and-drawers~
-
-The function is superseded by ~org-end-of-meta-data~, called with an
-optional argument.
-
-*** Removed functions ~org-table-colgroup-line-p~, ~org-table-cookie-line-p~
-
-These functions were left-over from pre 8.0 era. They are not correct
-anymore. Since they are not needed, they have no replacement.
-
-** Removed options
-
-*** ~org-list-empty-line-terminates-plain-lists~ is deprecated
-
-It will be kept in code base until next release, for backward
-compatibility.
-
-If you need to separate consecutive lists with blank lines, always use
-two of them, as if this option was nil (default value).
-
-*** ~org-export-with-creator~ is a boolean
-
-Special ~comment~ value is no longer allowed. It is possible to use a
-body filter to add comments about the creator at the end of the
-document instead.
-
-*** Removed option =org-html-use-unicode-chars=
-
-Setting this to non-nil was problematic as it converted characters
-everywhere in the buffer, possibly corrupting URLs.
-
-*** Removed option =org-babel-sh-command=
-
-This undocumented option defaulted to the value of =shell-file-name= at
-the time of loading =ob-shell=. The new behavior is to use the value
-of =shell-file-name= directly when the shell langage is =shell=. To chose
-a different shell, either customize =shell-file-name= or bind this
-variable locally.
-
-*** Removed option =org-babel-sh-var-quote-fmt=
-
-This undocumented option was supposed to provide different quoting
-styles when changing the shell type. Changing the shell type can now
-be done directly from the source block and the quoting style has to be
-compatible across all shells, so a customization doesn't make sense
-anymore. The chosen hard coded quoting style conforms to POSIX.
-
-*** Removed option ~org-insert-labeled-timestamps-at-point~
-
-Setting this option to anything else that the default value (nil)
-would create invalid planning info. This dangerous option is now
-removed.
-
-*** Removed option ~org-koma-letter-use-title~
-
-Use org-export-with-title instead. See also below.
-
-*** Removed option ~org-entities-ascii-explanatory~
-
-This variable has no effect since Org 8.0.
-
-*** Removed option ~org-table-error-on-row-ref-crossing-hline~
-
-This variable has no effect since August 2009.
-
-*** Removed MathML-related options from ~org-html-mathjax-options~
-
-MathJax automatically chooses the best display technology based on the
-end-users browser. You may force initial usage of MathML via
-~org-html-mathjax-template~ or by setting the ~path~ property of
-~org-html-mathjax-options~.
-
-*** Removed comment-related filters
-
-~org-export-filter-comment-functions~ and
-~org-export-filter-comment-block-functions~ variables do not exist
-anymore.
-
-** Miscellaneous
-
-*** Strip all meta data from ITEM special property
-
-ITEM special property does not contain TODO, priority or tags anymore.
-
-*** File names in links accept are now compatible with URI syntax
-
-Absolute file names can now start with =///= in addition to =/=. E.g.,
-=[[file:///home/me/unicorn.jpg]]=.
-
-*** Footnotes in included files are now local to the file
-
-As a consequence, it is possible to include multiple Org files with
-footnotes in a master document without being concerned about footnote
-labels colliding.
-
-*** Mailto links now use regular URI syntax
-
-This change deprecates old Org syntax for mailto links:
-=mailto:user@domain::Subject=.
-
-*** =QUOTE= keywords do not exist anymore
-
-=QUOTE= keywords have been deprecated since Org 8.2.
-
-*** Select tests to perform with the build system
-
-The build system has been enhanced to allow test selection with a
-regular expression by defining =BTEST_RE= during the test invocation.
-This is especially useful during bisection to find just when a
-particular test failure was introduced.
-
-*** Exact heading search for external links ignore spaces and cookies
-
-Exact heading search for links now ignore spaces and cookies. This is
-the case for links of the form ~file:projects.org::*task title~, as well
-as links of the form ~file:projects.org::some words~ when
-~org-link-search-must-match-exact-headline~ is not nil.
-
-*** ~org-latex-hyperref-template~, ~org-latex-title-command~ formatting
-
-New formatting keys are supported. See the respective docstrings.
-Note, ~org-latex-hyperref-template~ has a new default value.
-
-*** ~float, wasysym, marvosym~ are removed from ~org-latex-default-packages-alist~
-
-If you require any of these package add them to your preamble via
-~org-latex-packages-alist~. Org also uses default LaTeX ~\tolerance~ now.
-
-*** When exporting, throw an error on unresolved id/fuzzy links and code refs
-
-This helps spotting wrong links.
-
-* Version 8.2
-
-** Incompatible changes
-*** =ob-sh.el= renamed to =ob-shell=
-This may require two changes in user config.
-
-1. In =org-babel-do-load-languages=, change =(sh . t)= to =(shell . t)=.
-2. Edit =local.mk= files to change the value of =BTEST_OB_LANGUAGES=
- to remove "sh" and include "shell".
-
-*** Combine org-mac-message.el and org-mac-link-grabber into org-mac-link.el
-
-Please remove calls to =(require 'org-mac-message)= and =(require
-'org-mac-link-grabber)= in your =.emacs= initialization file. All you
-need now is =(require 'org-mac-link)=.
-
-Additionally, replace any calls to =ogml-grab-link= to
-=org-mac-grab-link=. For example, replace this line:
-
-: (define-key org-mode-map (kbd "C-c g") 'omgl-grab-link)
-
-with this:
-
-: (define-key org-mode-map (kbd "C-c g") 'org-mac-grab-link)
-
-*** HTML export: Replace =HTML_HTML5_FANCY= by =:html-html5-fancy= (...)
-
-Some of the HTML specific export options in Org <8.1 are either nil or
-t, like =#+HTML_INCLUDE_STYLE=. We replaced these binary options with
-option keywords like :html-include-style.
-
-So you need to replace
-
-: #+HTML_INCLUDE_STYLE: t
-
-by
-
-: #+OPTIONS: :html-include-style t
-
-Options affected by this change: =HTML5_FANCY=, =HTML_INCLUDE_SCRIPTS=
-and =HTML_INCLUDE_STYLE=.
-
-*** Add an argument to ~org-export-to-file~ and ~org-export-to-buffer~
-
-~org-export-to-file~ and ~org-export-to-file~ can run in a different
-process when provided a non-nil =ASYNC= optional argument, without
-relying on ~org-export-async-start~ macro.
-
-Since =ASYNC= is the first of optional arguments, you have to shift
-the other optional arguments accordingly.
-
-*** Export back-ends are now structures
-
-Export back-ends are now structures, and stored as such in the
-communication channel during an export process. In other words, from
-now on, ~(plist-get info :back-end)~ will return a structure instead
-of a symbol.
-
-Arguments in hooks and in filters are still symbols, though.
-
-** Important bugfixes
-
-*** [[doc:org-insert-heading][org-insert-heading]] has been rewritten and bugs are now fixed
-*** The replacement of disputed keys is now turned of when reading a date
-
-*** Match string for sparse trees can now contain a slash in a property value
-
- You can now have searches like SOMEPROP="aaa/bbb". Until now,
- this would break because the slash would be interpreted as the
- separator starting a TOTO match string.
-** New features
-
-*** =C-c ^ x= will now sort checklist items by their checked status
-
-See [[doc:org-sort-list][org-sort-list]]: hitting =C-c ^ x= will put checked items at the end
-of the list.
-*** Various LaTeX export enhancements
-
-- Support SVG images
-- Support for .pgf files
-- LaTeX Babel blocks can now be exported as =.tikz= files
-- Allow =latexmk= as an option for [[doc:org-latex-pdf-process][org-latex-pdf-process]]
-- When using =\usepackage[AUTO]{babel}=, AUTO will automatically be
- replaced with a value compatible with ~org-export-default-language~
- or ~LANGUAGE~ keyword.
-- The dependency on the =latexsym= LaTeX package has been removed, we
- now use =amssymb= symbols by default instead.
-
-*** New functions for paragraph motion
-
- The commands =C-down= and =C-up= now invoke special commands
- that use knowledge from the org-elements parser to move the cursor
- in a paragraph-like way.
-
-*** New entities in =org-entities.el=
-
-Add support for ell, imath, jmath, varphi, varpi, aleph, gimel, beth,
-dalet, cdots, S (§), dag, ddag, colon, therefore, because, triangleq,
-leq, geq, lessgtr, lesseqgtr, ll, lll, gg, ggg, prec, preceq,
-preccurlyeq, succ, succeq, succurlyeq, setminus, nexist(s), mho,
-check, frown, diamond. Changes loz, vert, checkmark, smile and tilde.
-
-*** Anonymous export back-ends
-
-~org-export-create-backend~ can create anonymous export back-ends,
-which can then be passed to export functions like
-~org-export-to-file~, ~org-export-to-buffer~ or ~org-export-as~.
-
-It allows for quick translation of Org syntax without the overhead of
-registering a new back-end.
-
-*** New agenda fortnight view
-
- The agenda has not, in addition to day, week, month, and year
- views, also a fortnight view covering 14 days.
-** New options
-
-*** New option [[doc:org-bookmark-names-plist][org-bookmark-names-plist]]
-
-This allows to specify the names of automatic bookmarks.
-*** New option [[doc:org-agenda-ignore-drawer-properties][org-agenda-ignore-drawer-properties]]
-
-This allows more flexibility when optimizing the agenda generation.
-See https://orgmode.org/worg/agenda-optimization.html for details.
-*** New option: [[doc:org-html-link-use-abs-url][org-html-link-use-abs-url]] to force using absolute URLs
-
-This is an export/publishing option, and should be used either within
-the =#+OPTIONS= line(s) or within a [[doc:org-publish-project-alist][org-publish-project-alist]].
-
-Setting this option to =t= is needed when the HTML output does not
-allow relative URLs. For example, the =contrib/lisp/ox-rss.el=
-library produces a RSS feed, and RSS feeds need to use absolute URLs,
-so a combination of =:html-link-home "..." and :html-link-use-abs-url
-t= is required---see the configuration example in the comment section
-of =ox-rss.el=.
-
-*** New option [[doc:org-babel-ditaa-java-cmd][org-babel-ditaa-java-cmd]]
-
-This makes java executable configurable for ditaa blocks.
-
-*** New options [[doc:org-babel-latex-htlatex][org-babel-latex-htlatex]] and [[doc:org-babel-latex-htlatex-packages][org-babel-latex-htlatex-packages]]
-
-This enables SVG generation from latex code blocks.
-
-*** New option: [[doc:org-habit-show-done-always-green][org-habit-show-done-always-green]]
-
-See [[https://lists.gnu.org/r/emacs-orgmode/2013-05/msg00214.html][this message]] from Max Mikhanosha.
-
-*** New option: [[doc:org-babel-inline-result-wrap][org-babel-inline-result-wrap]]
-
-If you set this to the following
-
-: (setq org-babel-inline-result-wrap "$%s$")
-
-then inline code snippets will be wrapped into the formatting string.
-
-*** New option: [[doc:org-special-ctrl-o][org-special-ctrl-o]]
-
- This variable can be used to turn off the special behavior of
- =C-o= in tables.
-** New contributed packages
-
-- =ox-bibtex.el= by Nicolas Goaziou :: an utility to handle BibTeX
- export to both LaTeX and HTML exports. It uses the [[http://www.lri.fr/~filliatr/bibtex2html/][bibtex2html]]
- software.
-
-- =org-screenshot.el= by Max Mikhanosha :: an utility to handle
- screenshots easily from Org, using the external tool [[http://freecode.com/projects/scrot][scrot]].
-
-** Miscellaneous
-
-*** "QUOTE" keywords in headlines are deprecated
-
-"QUOTE" keywords are an undocumented feature in Org. When a headline
-starts with the keyword "QUOTE", its contents are parsed as
-a ~quote-section~ and treated as an example block. You can achieve
-the same with example blocks.
-
-This feature is deprecated and will be removed in the next Org
-release.
-
-* Version 8.0.1
-
-** Installation
-
-Installation instructions have been updated and simplified.
-
-If you have troubles installing or updating Org, focus on these
-instructions:
-
-- when updating via a =.zip/.tar.gz= file, you only need to set the
- =load-path= in your =.emacs=. Set it before any other Org
- customization that would call autoloaded Org functions.
-
-- when updating by pulling Org's Git repository, make sure to create the
- correct autoloads. You can do this by running =~$ make autoloads= (to
- only create the autoloads) or by running =~$ make= (to also compile
- the Emacs lisp files.) =~$ make help= and =~$ make helpall= gives you
- detailed explanations.
-
-- when updating through ELPA (either from GNU ELPA or from Org ELPA),
- you have to install Org's ELPA package in a session where no Org
- function has been called already.
-
-When in doubt, run =M-x org-version RET= and see if you have a mixed-up
-installation.
-
-See https://orgmode.org/org.html#Installation for details.
-
-** Incompatible changes
-
-Org 8.0 is the most disruptive major version of Org.
-
-If you configured export options, you will have to update some of them.
-
-If you used =#+ATTR_*= keywords, the syntax of the attributes changed and
-you will have to update them.
-
-Below is a list of changes for which you need to take action.
-
-See https://orgmode.org/worg/org-8.0.html for the most recent version of
-this list and for detailed instructions on how to migrate.
-
-**** New export engine
-
-Org 8.0 comes with a new export engine written by Nicolas Goaziou. This
-export engine relies on ~org-element.el~ (Org's syntax parser), which was
-already in Org's core. This new export engine triggered the rewriting of
-/all/ export back-ends.
-
-The most visible change is the export dispatcher, accessible through the
-keybinding =C-c C-e=. By default, this menu only shows some of the
-built-in export formats, but you can add more formats by loading them
-directly (e.g., =(require 'ox-texinfo)= or by configuring the option
-[[doc:org-export-backends][org-export-backends]].
-
-More contributed back-ends are available from the =contrib/= directory, the
-corresponding files start with the =ox-= prefix.
-
-If you customized an export back-end (like HTML or LaTeX), you will need to
-rename some options so that your customization is not lost. Typically, an
-option starting with =org-export-html-= is now named =org-html-=. See the
-manual for details and check [[https://orgmode.org/worg/org-8.0.html][this Worg page]] for directions.
-
-**** New syntax for #+ATTR_HTML/LaTeX/... options
-
- : #+ATTR_HTML width="200px"
-
- should now be written
-
- : #+ATTR_HTML :width 200px
-
- Keywords like =#+ATTR_HTML= and =#+ATTR_LaTeX= are defined in their
- respective back-ends, and the list of supported parameters depends on
- each backend. See Org's manual for details.
-
-**** ~org-remember.el~ has been removed
-
- You cannot use =remember.el= anymore to capture notes.
-
- Support for remember templates has been obsoleted since long, it is
- now fully removed.
-
- Use =M-x org-capture-import-remember-templates RET= to import your
- remember templates into capture templates.
-
-**** ~org-jsinfo.el~ has been merged into ~ox-html.el~
-
- If you were requiring ~ox-jsinfo.el~ in your ~.emacs.el~ file, you
- will have to remove this requirement from your initialization file.
-
-**** Note for third-party developers
-
- The name of the files for export back-end have changed: we now use the
- prefix =ox-= for those files (like we use the =ob-= prefix for Babel
- files.) For example ~org-html.el~ is now ~ox-html.el~.
-
- If your code relies on these files, please update the names in your
- code.
-
-**** Packages moved from core to contrib
-
- Since packages in Org's core are meant to be part of GNU Emacs, we try
- to be minimalist when it comes to adding files into core. For 8.0, we
- moved some contributions into the =contrib/= directory.
-
- The rationale for deciding that these files should live in =contrib/=
- is either because they rely on third-party software that is not
- included in Emacs, or because they are not targeting a significant
- user-base.
-
- - org-colview-xemacs.el
- - org-mac-message.el
- - org-mew.el
- - org-wl.el
- - ox-freedmind.el
- - ox-taskjuggler.el
-
- Note that ~ox-freedmind.el~ has been rewritten by Jambunathan,
- ~org-mew.el~ has been enhanced by Tokuya Kameshima and
- ~ox-taskjuggler.el~ by Nicolas Goaziou and others.
-
- Also, the Taskjuggler exporter now uses TJ3 by default. John Hendy
- wrote [[https://orgmode.org/worg/org-tutorials/org-taskjuggler3.html][a tutorial on Worg]] for the TJ3 export.
-
-** New packages in core
-
-*** ~ob-makefile.el~ by Eric Schulte and Thomas S. Dye
-
- =ob-makefile.el= implements Org Babel support for Makefile tangling.
-
-*** ~ox-man.el~ by Luis Anaya
-
- =ox-man.el= allows you to export Org files to =man= pages.
-
-*** ~ox-md.el~ by Nicolas Goaziou
-
- =ox-md.el= allows you to export Org files to Markdown files, using the
- vanilla [[http://daringfireball.net/projects/markdown/][Markdown syntax]].
-
-*** ~ox-texinfo.el~ by Jonathan Leech-Pepin
-
- =ox-texinfo.el= allows you to export Org files to [[https://www.gnu.org/software/texinfo/][Texinfo]] files.
-
-** New packages in contrib
-
-*** ~ob-julia.el~ by G. Jay Kerns
-
- [[http://julialang.org/][Julia]] is a new programming language.
-
- =ob-julia.el= provides Org Babel support for evaluating Julia source
- code.
-
-*** ~ob-mathomatic.el~ by Luis Anaya
-
- [[http://www.mathomatic.org/][mathomatic]] a portable, command-line, educational CAS and calculator
- software, written entirely in the C programming language.
-
- ~ob-mathomatic.el~ provides Org Babel support for evaluating mathomatic
- entries.
-
-*** ~ob-tcl.el~ by Luis Anaya
-
- ~ob-tcl.el~ provides Org Babel support for evaluating [[http://www.tcl.tk/][Tcl]] source code.
-
-*** ~org-bullets.el~ by Evgeni Sabof
-
- Display bullets instead of stars for headlines.
-
- Also see [[https://orgmode.org/worg/org-faq.html#sec-8-12][this updated FAQ]] on how to display another character than "*"
- for starting headlines.
-
-*** ~org-favtable.el~ by Marc-Oliver Ihm
-
- ~org-favtable.el~ helps you to create and update a table of favorite
- locations in org, keeping the most frequently visited lines right at
- the top. This table is called "favtable". See the documentation on
- [[https://orgmode.org/worg/org-contrib/org-favtable.html][Worg]].
-
-*** ~ox-confluence.el~ by Sébastien Delafond
-
- ~ox-confluence.el~ lets you convert Org files to [[https://confluence.atlassian.com/display/DOC/Confluence%2BWiki%2BMarkup][Confluence Wiki]] files.
-
-*** ~ox-deck.el~ and ~ox-s5.el~ by Rick Frankel
-
- [[http://imakewebthings.com/deck.js/][deck.js]] is a javascript library for displaying HTML ages as
- presentations. ~ox-deck.el~ exports Org files to HTML presentations
- using =deck.js=.
-
- [[http://meyerweb.com/eric/tools/s5/][s5]] is a set of scripts which also allows to display HTML pages as
- presentations. ~ox-s5.el~ exports Org files to HTML presentations
- using =s5=.
-
-*** ~ox-groff.el~ by Luis Anaya and Nicolas Goaziou
-
- The [[https://www.gnu.org/software/groff/][groff]] (GNU troff) software is a typesetting package which reads
- plain text mixed with formatting commands and produces formatted
- output.
-
- Luis Anaya and Nicolas Goaziou implemented ~ox-groff.el~ to allow
- conversion from Org files to groff.
-
-*** ~ox-koma-letter.el~ by Nicolas Goaziou and Alan Schmitt
-
- This back-end allow to export Org pages to the =KOMA Scrlttr2= format.
-
-*** ~ox-rss.el~ by Bastien
-
- This back-end lets you export Org pages to RSS 2.0 feeds. Combined
- with the HTML publishing feature, this allows you to build a blog
- entirely with Org.
-
-** New features
-
-*** Export
-
-**** New export generic options
-
-If you use Org exporter, we advise you to re-read [[https://orgmode.org/org.html#Exporting][the manual section about
-it]]. It has been updated and includes new options.
-
-Among the new/updated export options, three are of particular importance:
-
-- [[doc:org-export-allow-bind-keywords][org-export-allow-bind-keywords]] :: This option replaces the old option
- =org-export-allow-BIND= and the default value is =nil=, not =confirm=.
- You will need to explicitly set this to =t= in your initialization
- file if you want to allow =#+BIND= keywords.
-
-- [[doc:org-export-with-planning][org-export-with-planning]] :: This new option controls the export of
- =SCHEDULED:, DEADLINE:, CLOSED:= lines, and planning information is
- now skipped by default during export. This use to be the job of
- [[doc:org-export-with-timestamps][org-export-with-timestamps]], but this latter option has been given a
- new role: it controls the export of /standalone time-stamps/. When
- set to =nil=, Org will not export active and inactive time-stamps
- standing on a line by themselves or within a paragraph that only
- contains time-stamps.
-
-To check if an option has been introduced or its default value changed in
-Org 8.0, do =C-h v [option] RET= and check if the documentation says that
-the variable has been introduced (or changed) in version 24.4 of Emacs.
-
-**** Enhanced default stylesheet for the HTML exporter
-
-See the new default value of [[doc:org-html-style-default][org-html-style-default]].
-
-**** New tags, classes and ids for the HTML exporter
-
-See the new default value of [[doc:org-html-divs][org-html-divs]].
-
-**** Support for tikz pictures in LaTeX export
-**** ~org-man.el~: New export function for "man" links
-**** ~org-docview.el~: New export function for docview links
-*** Structure editing
-
-**** =C-u C-u M-RET= inserts a heading at the end of the parent subtree
-**** Cycling to the =CONTENTS= view keeps inline tasks folded
-
-[[doc:org-cycle-hook][org-cycle-hook]] as a new function [[doc:org-cycle-hide-inline-tasks][org-cycle-hide-inline-tasks]] which
-prevents the display of inline tasks when showing the content of a subtree.
-
-**** =C-c -= in a region makes a list item for each line
-
-This is the opposite of the previous behavior, where =C-c -= on a region
-would create one item for the whole region, and where =C-u C-c -= would
-create an item for each line. Now =C-c -= on the selected region creates
-an item per line, and =C-u C-c -= creates a single item for the whole
-region.
-
-**** When transposing words, markup characters are now part of the words
-
-In Emacs, you can transpose words with =M-t=. Transposing =*these*
-_words__= will preserve markup.
-
-**** New command [[doc:org-set-property-and-value][org-set-property-and-value]] bound to =C-c C-x P=
-
-This command allows you to quickly add both the property and its value. It
-is useful in buffers where there are many properties and where =C-c C-x p=
-can slow down the flow of editing too much.
-
-**** New commands [[doc:org-next-block][org-next-block]] and [[doc:org-previous-block][org-previous-block]]
-
-These commands allow you to go to the previous block (=C-c M-b= or the
-speedy key =B=) or to the next block (=C-c M-f= or the speedy key =F=.)
-
-**** New commands [[doc:org-drag-line-forward][org-drag-line-forward]] and [[doc:org-drag-line-backward][org-drag-line-backward]]
-
-These commands emulate the old behavior of =M-<down>= and =M-<up>= but are
-now bound to =S-M-<down>= and =S-M-<up>= respectively, since =M-<down>= and
-=M-<up>= now drag the whole element at point (a paragraph, a table, etc.)
-forward and backward.
-
-**** When a list item has a checkbox, inserting a new item uses a checkbox too
-**** When sorting entries/items, only the description of links is considered
-
-Now Org will sort this list
-
-: - [[http://abc.org][B]]
-: - [[http://def.org][A]]
-
-like this:
-
-: - [[http://def.org][A]]
-: - [[http://abc.org][B]]
-
-by comparing the descriptions, not the links.
-Same when sorting headlines instead of list items.
-**** New option =orgstruct-heading-prefix-regexp=
-
-For example, setting this option to "^;;; " in Emacs lisp files and using
-=orgstruct-mode= in those files will allow you to cycle through visibility
-states as if lines starting with ";;; *..." where headlines.
-
-In general, you want to set =orgstruct-heading-prefix-regexp= as a file
-local variable.
-
-**** New behavior of [[doc:org-clone-subtree-with-time-shift][org-clone-subtree-with-time-shift]]
-
-The default is now to ask for a time-shift only when there is a time-stamp.
-When called with a universal prefix argument =C-u=, it will not ask for a
-time-shift even if there is a time-stamp.
-
-**** New option [[doc:org-agenda-restriction-lock-highlight-subtree][org-agenda-restriction-lock-highlight-subtree]]
-
-This defaults to =t= so that the whole subtree is highlighted when you
-restrict the agenda view to it with =C-c C-x <= (or the speed command =<=).
-The default setting helps ensuring that you are not adding tasks after the
-restricted region. If you find this highlighting too intrusive, set this
-option to =nil=.
-**** New option [[doc:org-closed-keep-when-no-todo][org-closed-keep-when-no-todo]]
-
-When switching back from a =DONE= keyword to a =TODO= keyword, Org now
-removes the =CLOSED= planning information, if any. It also removes this
-information when going back to a non-TODO state (e.g., with =C-c C-t SPC=).
-If you want to keep the =CLOSED= planning information when removing the
-TODO keyword, set [[doc:org-closed-keep-when-no-todo][org-closed-keep-when-no-todo]] to =t=.
-
-**** New option [[doc:org-image-actual-width][org-image-actual-width]]
-
-This option allows you to change the width of in-buffer displayed images.
-The default is to use the actual width of the image, but you can use a
-fixed value for all images, or fall back on an attribute like
-
-: #+attr_html: :width 300px
-*** Scheduled/deadline
-
-**** Implement "delay" cookies for scheduled items
-
-If you want to delay the display of a scheduled task in the agenda, you can
-now use a delay cookie like this: =SCHEDULED: <2004-12-25 Sat -2d>=. The
-task is still scheduled on the 25th but will appear in your agenda starting
-from two days later (i.e. from March 27th.)
-
-Imagine for example that your co-workers are not done in due time and tell
-you "we need two more days". In that case, you may want to delay the
-display of the task in your agenda by two days, but you still want the task
-to appear as scheduled on March 25th.
-
-In case the task contains a repeater, the delay is considered to affect all
-occurrences; if you want the delay to only affect the first scheduled
-occurrence of the task, use =--2d= instead. See [[doc:org-scheduled-delay-days][org-scheduled-delay-days]]
-and [[doc:org-agenda-skip-scheduled-delay-if-deadline][org-agenda-skip-scheduled-delay-if-deadline]] for details on how to
-control this globally or per agenda.
-
-**** Use =C-u C-u C-c C-s= will insert a delay cookie for scheduled tasks
-
-See the previous section for why delay cookies may be useful.
-
-**** Use =C-u C-u C-c C-d= will insert a warning delay for deadline tasks
-
-=C-u C-u C-c C-d= now inserts a warning delay to deadlines.
-*** Calendar, diary and appts
-
-**** New variable [[doc:org-read-date-minibuffer-local-map][org-read-date-minibuffer-local-map]]
-
-By default, this new local map uses "." to go to today's date, like in the
-normal =M-x calendar RET=. If you want to deactivate this and to reassign
-the "@" key to =calendar-goto-today=, use this:
-
-#+BEGIN_SRC emacs-lisp
- ;; Unbind "." in Org's calendar:
- (define-key org-read-date-minibuffer-local-map (kbd ".") nil)
-
- ;; Bind "@" to `calendar-goto-today':
- (define-key org-read-date-minibuffer-local-map
- (kbd "@")
- (lambda () (interactive) (org-eval-in-calendar '(calendar-goto-today))))
-#+END_SRC
-
-**** In Org's calendar, =!= displays diary entries of the date at point
-
-This is useful when you want to check if you don't already have an
-appointment when setting new ones with =C-c .= or =C-c s=. =!= will
-call =diary-view-entries= and display the diary in a separate buffer.
-
-**** [[doc:org-diary][org-diary]]: only keep the descriptions of links
-
-[[doc:org-diary][org-diary]] returns diary information from Org files, but it returns it
-in a diary buffer, not in an Org mode buffer. When links are displayed,
-only show their description, not the full links.
-*** Agenda
-
-**** New agenda type =agenda*= and entry types =:scheduled* :deadline*=
-
-When defining agenda custom commands, you can now use =agenda*=: this will
-list entries that have both a date and a time. This is useful when you
-want to build a list of appointments.
-
-You can also set [[doc:org-agenda-entry-types][org-agenda-entry-types]] either globally or locally in
-each agenda custom command and use =:timestamp*= and/or =:deadline*= there.
-
-Another place where this is useful is your =.diary= file:
-
-: %%(org-diary :scheduled*) ~/org/rdv.org
-
-This will list only entries from =~/org/rdv.org= that are scheduled with a
-time value (i.e. appointments).
-
-**** New agenda sorting strategies
-
-[[doc:org-agenda-sorting-strategy][org-agenda-sorting-strategy]] allows these new sorting strategies:
-
-| Strategy | Explanations |
-|----------------+------------------------------------------|
-| timestamp-up | Sort by any timestamp, early first |
-| timestamp-down | Sort by any timestamp, late first |
-| scheduled-up | Sort by scheduled timestamp, early first |
-| scheduled-down | Sort by scheduled timestamp, late first |
-| deadline-up | Sort by deadline timestamp, early first |
-| deadline-down | Sort by deadline timestamp, late first |
-| ts-up | Sort by active timestamp, early first |
-| ts-down | Sort by active timestamp, late first |
-| tsia-up | Sort by inactive timestamp, early first |
-| tsia-down | Sort by inactive timestamp, late first |
-
-**** New options to limit the number of agenda entries
-
-You can now limit the number of entries in an agenda view. This is
-different from filters: filters only /hide/ the entries in the agenda,
-while limits are set while generating the list of agenda entries.
-
-These new options are available:
-
-- [[doc:org-agenda-max-entries][org-agenda-max-entries]] :: limit by number of entries.
-- [[doc:org-agenda-max-todos][org-agenda-max-todos]] :: limit by number of TODOs.
-- [[doc:org-agenda-max-tags][org-agenda-max-tags]] :: limit by number of tagged entries.
-- [[doc:org-agenda-max-effort][org-agenda-max-effort]] :: limit by effort (minutes).
-
-For example, if you locally set [[doc:org-agenda-max-todos][org-agenda-max-todos]] to 3 in an agenda
-view, the agenda will be limited to the first three todos. Other entries
-without a TODO keyword or beyond the third TODO headline will be ignored.
-
-When setting a limit (e.g. about an effort's sum), the default behavior is
-to exclude entries that cannot be checked against (e.g. entries that have
-no effort property.) To include other entries too, you can set the limit
-to a negative number. For example =(setq org-agenda-max-tags -3)= will not
-show the fourth tagged headline (and beyond), but it will also show
-non-tagged headlines.
-
-**** =~= in agenda view sets temporary limits
-
-You can hit =~= in the agenda to temporarily set limits: this will
-regenerate the agenda as if the limits were set. This is useful for
-example when you want to only see a list of =N= tasks, or a list of tasks
-that take only =N= minutes.
-
-**** "=" in agenda view filters by regular expressions
-
-You can now filter agenda entries by regular expressions using ~=~. =C-u
-== will filter entries out. Regexp filters are cumulative. You can set
-[[doc:org-agenda-regexp-filter-preset][org-agenda-regexp-filter-preset]] to suit your needs in each agenda view.
-
-**** =|= in agenda view resets all filters
-
-Since it's common to combine tag filters, category filters, and now regexp
-filters, there is a new command =|= to reset all filters at once.
-
-**** Allow writing an agenda to an =.org= file
-
-You can now write an agenda view to an =.org= file. It copies the
-headlines and their content (but not subheadings) into the new file.
-
-This is useful when you want to quickly share an agenda containing the full
-list of notes.
-
-**** New commands to drag an agenda line forward (=M-<down>=) or backward (=M-<up>=)
-
-It sometimes handy to move agenda lines around, just to quickly reorganize
-your tasks, or maybe before saving the agenda to a file. Now you can use
-=M-<down>= and =M-<up>= to move the line forward or backward.
-
-This does not persist after a refresh of the agenda, and this does not
-change the =.org= files who contribute to the agenda.
-
-**** Use =%b= for displaying "breadcrumbs" in the agenda view
-
-[[doc:org-agenda-prefix-format][org-agenda-prefix-format]] now allows to use a =%b= formatter to tell Org
-to display "breadcrumbs" in the agenda view.
-
-This is useful when you want to display the task hierarchy in your agenda.
-
-**** Use =%l= for displaying the headline's level in the agenda view
-
-[[doc:org-agenda-prefix-format][org-agenda-prefix-format]] allows to use a =%l= formatter to tell Org to
-display entries with additional spaces corresponding to their level in the
-outline tree.
-
-**** [[doc:org-agenda-write][org-agenda-write]] will ask before overwriting an existing file
-
-=M-x org-agenda-write RET= (or =C-c C-w= from an agenda buffer) used to
-overwrite preexisting file with the same name without confirmation. It now
-asks for a confirmation.
-
-**** New commands =M-m= and =M-*= to toggle (all) mark(s) for bulk action
-
-- [[doc:org-agenda-bulk-toggle][org-agenda-bulk-toggle]] :: this command is bound to =M-m= and toggles
- the mark of the entry at point.
-
-- [[doc:org-agenda-bulk-toggle-all][org-agenda-bulk-toggle-all]] :: this command is bound to =M-*= and
- toggles all the marks in the current agenda.
-
-**** New option [[doc:org-agenda-search-view-max-outline-level][org-agenda-search-view-max-outline-level]]
-
-This option sets the maximum outline level to display in search view.
-E.g. when this is set to 1, the search view will only show headlines of
-level 1.
-
-**** New option [[doc:org-agenda-todo-ignore-time-comparison-use-seconds][org-agenda-todo-ignore-time-comparison-use-seconds]]
-
-This allows to compare times using seconds instead of days when honoring
-options like =org-agenda-todo-ignore-*= in the agenda display.
-
-**** New option [[doc:org-agenda-entry-text-leaders][org-agenda-entry-text-leaders]]
-
-This allows you to get rid of the ">" character that gets added in front of
-entries excerpts when hitting =E= in the agenda view.
-
-**** New formatting string for past deadlines in [[doc:org-agenda-deadline-leaders][org-agenda-deadline-leaders]]
-
-The default formatting for past deadlines is ="%2d d. ago: "=, which makes
-it explicit that the deadline is in the past. You can configure this via
-[[doc:org-agenda-deadline-leaders][org-agenda-deadline-leaders]]. Note that the width of the formatting
-string is important to keep the agenda alignment clean.
-
-**** New allowed value =repeated-after-deadline= for [[doc:org-agenda-skip-scheduled-if-deadline-is-shown][org-agenda-skip-scheduled-if-deadline-is-shown]]
-
-When [[doc:org-agenda-skip-scheduled-if-deadline-is-shown][org-agenda-skip-scheduled-if-deadline-is-shown]] is set to
-=repeated-after-deadline=, the agenda will skip scheduled items if they are
-repeated beyond the current deadline.
-
-**** New option for [[doc:org-agenda-skip-deadline-prewarning-if-scheduled][org-agenda-skip-deadline-prewarning-if-scheduled]]
-
-This variable may be set to nil, t, the symbol `pre-scheduled', or a number
-which will then give the number of days before the actual deadline when the
-prewarnings should resume. The symbol `pre-scheduled' eliminates the
-deadline prewarning only prior to the scheduled date.
-
-Read the full docstring for details.
-
-**** [[doc:org-class][org-class]] now supports holiday strings in the skip-weeks parameter
-
-For example, this task will now be skipped only on new year's day:
-
- : * Task
- : <%%(org-class 2012 1 1 2013 12 12 2 "New Year's Day")>
-*** Capture
-
-**** Allow =C-1= as a prefix for [[doc:org-agenda-capture][org-agenda-capture]] and [[doc:org-capture][org-capture]]
-
-With a =C-1= prefix, the capture mechanism will use the =HH:MM= value at
-point (if any) or the current =HH:MM= time as the default time for the
-capture template.
-
-**** Expand keywords within %(sexp) placeholder in capture templates
-
-If you use a =%:keyword= construct within a =%(sexp)= construct, Org will
-expand the keywords before expanding the =%(sexp)=.
-
-**** Allow to contextualize capture (and agenda) commands by checking the name of the buffer
-
-[[doc:org-capture-templates-contexts][org-capture-templates-contexts]] and [[doc:org-agenda-custom-commands-contexts][org-agenda-custom-commands-contexts]]
-allow you to define what capture templates and what agenda commands should
-be available in various contexts. It is now possible for the context to
-check against the name of the buffer.
-*** Tag groups
-
-Using =#+TAGS: { Tag1 : Tag2 Tag3 }= will define =Tag1= as a /group tag/
-(note the colon after =Tag1=). If you search for =Tag1=, it will return
-headlines containing either =Tag1=, =Tag2= or =Tag3= (or any combination
-of those tags.)
-
-You can use group tags for sparse tree in an Org buffer, for creating
-agenda views, and for filtering.
-
-See https://orgmode.org/org.html#Tag-groups for details.
-
-*** Links
-
-**** =C-u C-u M-x org-store-link RET= will ignore non-core link functions
-
-Org knows how to store links from Org buffers, from info files and from
-other Emacs buffers. Org can be taught how to store links from any buffer
-through new link protocols (see [[https://orgmode.org/org.html#Adding-hyperlink-types]["Adding hyperlink types"]] in the manual.)
-
-Sometimes you want Org to ignore added link protocols and store the link
-as if the protocol was not known.
-
-You can now do this with =C-u C-u M-x org-store-link RET=.
-
-**** =C-u C-u C-u M-x org-store-link RET= on an active region will store links for each lines
-
-Imagine for example that you want to store a link for every message in a
-Gnus summary buffer. In that case =C-x h C-u C-u C-u M-x org-store-link
-RET= will store a link for every line (i.e. message) if the region is
-active.
-
-**** =C-c C-M-l= will add a default description for links which don't have one
-
-=C-c C-M-l= inserts all stored links. If a link does not have a
-description, this command now adds a default one, so that we are not mixing
-with-description and without-description links when inserting them.
-
-**** No curly braces to bracket links within internal links
-
-When storing a link to a headline like
-
-: * See [[https://orgmode.org][Org website]]
-
-[[doc:org-store-link][org-store-link]] used to convert the square brackets into curly brackets.
-It does not anymore, taking the link description or the link path, when
-there is no description.
-*** Table
-
-**** Switching between #+TBLFM lines
-
-If you have several =#+TBLFM= lines below a table, =C-c C-c= on a line will
-apply the formulas from this line, and =C-c C-c= on another line will apply
-those other formulas.
-
-**** You now use "nan" for empty fields in Calc formulas
-
-If empty fields are of interest, it is recommended to reread the section
-[[https://orgmode.org/org.html#Formula-syntax-for-Calc][3.5.2 Formula syntax for Calc]] of the manual because the description for the
-mode strings has been clarified and new examples have been added towards
-the end.
-
-**** Handle localized time-stamps in formulas evaluation
-
-If your =LOCALE= is set so that Org time-stamps use another language than
-english, and if you make time computations in Org's table, it now works by
-internally converting the time-stamps with a temporary =LOCALE=C= before
-doing computation.
-
-**** New lookup functions
-
-There are now three lookup functions:
-
-- [[doc:org-loopup-first][org-loopup-first]]
-- [[doc:org-loopup-last][org-loopup-last]]
-- [[doc:org-loopup-all][org-loopup-all]]
-
-See [[https://orgmode.org/org.html#Lookup-functions][the manual]] for details.
-*** Startup keywords
-
-These new startup keywords are now available:
-
-| Startup keyword | Option |
-|----------------------------------+---------------------------------------------|
-| =#+STARTUP: logdrawer= | =(setq org-log-into-drawer t)= |
-| =#+STARTUP: nologdrawer= | =(setq org-log-into-drawer nil)= |
-|----------------------------------+---------------------------------------------|
-| =#+STARTUP: logstatesreversed= | =(setq org-log-states-order-reversed t)= |
-| =#+STARTUP: nologstatesreversed= | =(setq org-log-states-order-reversed nil)= |
-|----------------------------------+---------------------------------------------|
-| =#+STARTUP: latexpreview= | =(setq org-startup-with-latex-preview t)= |
-| =#+STARTUP: nolatexpreview= | =(setq org-startup-with-latex-preview nil)= |
-
-*** Clocking
-
-**** New option [[doc:org-clock-rounding-minutes][org-clock-rounding-minutes]]
-
-E.g. if [[doc:org-clock-rounding-minutes][org-clock-rounding-minutes]] is set to 5, time is 14:47 and you
-clock in: then the clock starts at 14:45. If you clock out within the next
-5 minutes, the clock line will be removed; if you clock out 8 minutes after
-your clocked in, the clock out time will be 14:50.
-
-**** New option [[doc:org-time-clocksum-use-effort-durations][org-time-clocksum-use-effort-durations]]
-
-When non-nil, =C-c C-x C-d= uses effort durations. E.g., by default, one
-day is considered to be a 8 hours effort, so a task that has been clocked
-for 16 hours will be displayed as during 2 days in the clock display or in
-the clocktable.
-
-See [[doc:org-effort-durations][org-effort-durations]] on how to set effort durations and
-[[doc:org-time-clocksum-format][org-time-clocksum-format]] for more on time clock formats.
-
-**** New option [[doc:org-clock-x11idle-program-name][org-clock-x11idle-program-name]]
-
-This allows to set the name of the program which prints X11 idle time in
-milliseconds. The default is to use =x11idle=.
-
-**** New option [[doc:org-use-last-clock-out-time-as-effective-time][org-use-last-clock-out-time-as-effective-time]]
-
-When non-nil, use the last clock out time for [[doc:org-todo][org-todo]]. Note that this
-option has precedence over the combined use of [[doc:org-use-effective-time][org-use-effective-time]] and
-[[doc:org-extend-today-until][org-extend-today-until]].
-
-**** =S-<left/right>= on a clocksum column will update the sum by updating the last clock
-**** =C-u 3 C-S-<up/down>= will update clock timestamps synchronously by 3 units
-**** New parameter =:wstart= for clocktables to define the week start day
-**** New parameter =:mstart= to state the starting day of the month
-**** Allow relative times in clocktable tstart and tend options
-**** The clocktable summary is now a caption
-**** =:tstart= and =:tend= and friends allow relative times like "<-1w>" or "<now>"
-*** Babel
-
-**** You can now use =C-c C-k= for [[doc:org-edit-src-abort][org-edit-src-abort]]
-
-This allows you to quickly cancel editing a source block.
-
-**** =C-u C-u M-x org-babel-tangle RET= tangles by the target file of the block at point
-
-This is handy if you want to tangle all source code blocks that have the
-same target than the block at point.
-
-**** New options for auto-saving the base buffer or the source block editing buffer
-
-When [[doc:org-edit-src-turn-on-auto-save][org-edit-src-turn-on-auto-save]] is set to =t=, editing a source block
-in a new window will turn on =auto-save-mode= and save the code in a new
-file under the same directory than the base Org file.
-
-When [[doc:org-edit-src-auto-save-idle-delay][org-edit-src-auto-save-idle-delay]] is set to a number of minutes =N=,
-the base Org buffer will be saved after this number of minutes of idle
-time.
-
-**** New =:post= header argument post-processes results
-
- This header argument may be used to pass the results of the current
- code block through another code block for post-processing. See the
- manual for a usage example.
-
-**** Commented out heading are ignored when collecting blocks for tangling
-
-If you comment out a heading (with =C-c ;= anywhere on the heading or in
-the subtree), code blocks from within this heading are now ignored when
-collecting blocks for tangling.
-
-**** New option [[doc:org-babel-hash-show-time][org-babel-hash-show-time]] to show a time-stamp in the result hash
-**** Do not ask for confirmation if cached value is current
-
-Do not run [[doc:org-babel-confirm-evaluate][org-babel-confirm-evaluate]] if source block has a cache and the
-cache value is current as there is no evaluation involved in this case.
-**** =ob-sql.el= and =ob-python.el= have been improved.
-**** New Babel files only need to =(require 'ob)=
-
-When writing a new Babel file, you now only need to use =(require 'ob)=
-instead of requiring each Babel library one by one.
-*** Faces
-
-- Org now fontifies radio link targets by default
-- In the agenda, use [[doc:org-todo-keyword-faces][org-todo-keyword-faces]] to highlight selected TODO keywords
-- New face [[doc:org-priority][org-priority]], enhanced fontification of priority cookies in agenda
-- New face [[doc:org-tag-group][org-tag-group]] for group tags
-
-** Miscellaneous
-
-- New speedy key =s= pour [[doc:org-narrow-to-subtree][org-narrow-to-subtree]]
-- Handling of [[doc:org-html-table-row][org-html-table-row]] has been updated (incompatible change)
-- [[doc:org-export-html-table-tag][org-export-html-table-tag]] is replaced by [[doc:org-html-table-default-attributes][org-html-table-default-attributes]]
-- Support using =git-annex= with Org attachments
-- org-protocol: Pass optional value using query in url to capture from protocol
-- When the refile history is empty, use the current filename as default
-- When you cannot change the TODO state of a task, Org displays the blocking task
-- New option [[doc:org-mobile-allpriorities][org-mobile-allpriorities]]
-- org-bibtex.el now use =visual-line-mode= instead of the deprecated =longlines-mode=
-- [[doc:org-format-latex-options][org-format-latex-options]] allows to set the foreground/background colors automatically
-- New option [[doc:org-archive-file-header-format][org-archive-file-header-format]]
-- New "neg" entity in [[doc:org-entities][org-entities]]
-- New function [[doc:org-docview-export][org-docview-export]] to export docview links
-- New =:eps= header argument for ditaa code blocks
-- New option [[doc:org-gnus-no-server][org-gnus-no-server]] to start Gnus with =gnus-no-server=
-- Org is now distributed with =htmlize.el= version 1.43
-- ~org-drill.el~ has been updated to version 2.3.7
-- ~org-mac-iCal.el~ now supports OS X versions up to 10.8
-- Various improvements to ~org-contacts.el~ and =orgpan.el=
-
-** Outside Org
-
-*** Spanish translation of the Org guide by David Arroyo Menéndez
-
-David (and others) translated the Org compact guide in spanish:
-
-You can read the [[https://orgmode.org/worg/orgguide/orgguide.es.pdf][PDF guide]].
-
-*** ~poporg.el~ and ~outorg.el~
-
-Two new libraries (~poporg.el~ by François Pinard and ~outorg.el~ by
-Thorsten Jolitz) now enable editing of comment-sections from source-code
-buffers in temporary Org-mode buffers, making the full editing power of
-Org-mode available. ~outorg.el~ comes together with ~outshine.el~ and
-~navi-mode.el~, two more libraries by Thorsten Jolitz with the goal to give
-source-code buffers the /look & feel/ of Org-mode buffers while greatly
-improving navigation and structure editing. A detailed description can be
-found here: https://orgmode.org/worg/org-tutorials/org-outside-org.html
-
-Here are two screencasts demonstrating Thorsten's tools:
-
-- [[http://youtu.be/nqE6YxlY0rw]["Modern conventions for Emacs Lisp files"]]
-- [[http://www.youtube.com/watch?v%3DII-xYw5VGFM][Exploring Bernt Hansen's Org-mode tutorial with 'navi-mode']]
-
-*** MobileOrg for iOS
-
-MobileOrg for iOS back in the App Store The 1.6.0 release was focused on
-the new Dropbox API and minor bug fixes but also includes a new ability to
-launch in Capture mode. Track development and contribute [[https://github.com/MobileOrg/mobileorg/issues][on github]].
-
-* Version 7.9.3
-
-** New option [[doc::org-agenda-use-tag-inheritance][org-agenda-use-tag-inheritance]]
-
-[[doc::org-use-tag-inheritance][org-use-tag-inheritance]] controls whether tags are inherited when
-org-tags-view is called (either in =tags=, =tags-tree= or =tags-todo=
-agenda views.)
-
-When generating other agenda types such as =agenda=, =todo= and
-=todo-tree=, tags inheritance is not used when selecting the entries
-to display. Still, you might want to have all tag information correct
-in the agenda buffer, e.g. for tag filtering. In that case, add the
-agenda type to this variable.
-
-Setting this variable to nil should considerably speeds up the agenda
-generation.
-
-Note that the default was to display inherited tags in the agenda
-lines even if `org-use-tag-inheritance' was nil. The default is now
-to *never* display inherited tags in agenda lines, but to /know/ about
-them when the agenda type is listed in [[doc::org-agenda-use-tag-inheritance][org-agenda-use-tag-inheritance]].
-
-** New default value nil for [[doc::org-agenda-dim-blocked-tasks][org-agenda-dim-blocked-tasks]]
-
-Using `nil' as the default value speeds up the agenda generation. You
-can hit `#' (or `C-u #') in agenda buffers to temporarily dim (or turn
-invisible) blocked tasks.
-
-** New speedy keys for [[doc::org-speed-commands-default][org-speed-commands-default]]
-
-You can now use `:' (instead of `;') for setting tags---this is
-consistent with using the `:' key in agenda view.
-
-You can now use `=' for [[doc::org-columns][org-columns]].
-
-** =org-float= is now obsolete, use =diary-float= instead
-** No GPL manual anymore
-
-There used to be a GPL version of the Org manual, but this is not the
-case anymore, the Free Software Foundation does not permit this.
-
-The GNU FDL license is now included in the manual directly.
-
-** Enhanced compatibility with Emacs 22 and XEmacs
-
-Thanks to Achim for his work on enhancing Org's compatibility with
-various Emacsen. Things may not be perfect, but Org should work okay
-in most environments.
-
-* Version 7.9.2
-
-** New ELPA repository for Org packages
-
-You can now add the Org ELPA repository like this:
-
-#+BEGIN_SRC emacs-lisp
-(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
-#+END_SRC
-
-It contains both the =org-*.tar= package (the core Org distribution, also
-available through https://elpa.gnu.org) and the =org-plus*.tar= package (the
-extended Org distribution, with non-GNU packages from the =contrib/=
-directory.)
-
-See https://orgmode.org/elpa/
-
-** Overview of the new keybindings
-
- | Keybinding | Speedy | Command |
- |-----------------+--------+-----------------------------|
- | =C-c C-x C-z= | | [[doc::org-clock-resolve][org-clock-resolve]] |
- | =C-c C-x C-q= | | [[doc::org-clock-cancel][org-clock-cancel]] |
- | =C-c C-x C-x= | | [[doc::org-clock-in-last][org-clock-in-last]] |
- | =M-h= | | [[doc::org-mark-element][org-mark-element]] |
- | =*= | | [[doc::org-agenda-bulk-mark-all][org-agenda-bulk-mark-all]] |
- | =C-c C-M-l= | | [[doc::org-insert-all-links][org-insert-all-links]] |
- | =C-c C-x C-M-v= | | [[doc::org-redisplay-inline-images][org-redisplay-inline-images]] |
- | =C-c C-x E= | =E= | [[doc::org-inc-effort][org-inc-effort]] |
- | | =#= | [[doc::org-toggle-comment][org-toggle-comment]] |
- | | =:= | [[doc::org-columns][org-columns]] |
- | | =W= | Set =APPT_WARNTIME= |
- | =k= | | [[doc::org-agenda-capture][org-agenda-capture]] |
- | C-c , | , | [[doc::org-priority][org-priority]] |
-
-** New package and Babel language
-
-*** =org-eshell.el= by Konrad Hinsen is now in Org
-
- =org-eshell.el= allows you to create links from [[https://www.gnu.org/software/emacs/manual/html_node/eshell/index.html][Eshell]].
-
-*** Support for execution of Scala code blocks (see ob-scala.el)
-*** Support for execution of IO code blocks (see ob-io.el)
-
-** Incompatible changes
-
- - If your code relies on =org-write-agenda=, please use
- [[doc::org-agenda-write][org-agenda-write]] from now on.
-
- - If your code relies on =org-make-link=, please use =concat=
- instead.
-
- - =org-link-to-org-use-id= has been renamed to
- =org-id-link-to-org-use-id= and its default value is nil. The
- previous default was =create-if-interactive-and-no-custom-id=.
-
-** New features and user-visible changes
-
-*** Org Element
-
- =org-element.el= is a toolbox for parsing and analyzing "elements"
- in an Org-mode buffer. This has been written by Nicolas Goaziou
- and has been tested for quite some time. It is now part of Org's
- core and many core functions rely on this package.
-
- Two functions might be particularly handy for users:
- =org-element-at-point= and =org-element-context=.
-
- See the docstrings for more details.
-
- Below is a list of editing and navigating commands that now rely
- on =org-element.el=.
-
-**** [[doc::org-fill-paragraph][org-fill-paragraph]] has been completely rewritten
-
- The filling mechanisms now rely on org-element, trying to do the
- right thing on each element in various contexts. E.g. filling in
- a list item will preserve indentation; filling in message-mode
- will fall back on the relevant filling functions; etc.
-
-**** [[doc::org-metaup][org-metaup]] and [[doc::org-metadown][org-metadown]] will drag the element backward/forward
-
- If you want to get the old behavior (i.e. moving a line up and
- down), you can first select the line as an active region, then
- =org-metaup= or =org-metadown= to move the region backward or
- forward. This also works with regions bigger than just one line.
-
-**** [[doc::org-up-element][org-up-element]] and [[doc::org-down-element][org-down-element]] (respectively =C-c C-^= and =C-c C-_=)
-
- This will move the point up/down in the hierarchy of elements.
-
-**** [[doc::org-backward-element][org-backward-element]] and [[doc::org-forward-element][org-forward-element]] (respectively =M-{= and =M-}=)
-
- This will move the point backward/forward in the hierarchy of
- elements.
-
-**** [[doc::org-narrow-to-element][org-narrow-to-element]] will narrow to the element at point
-**** [[doc::org-mark-element][org-mark-element]] will mark the element at point
-
- This command is bound to =M-h= and will mark the element at
- point. If the point is at a paragraph, it will mark the
- paragraph. If the point is at a list item, it will mark the list
- item. Etc.
-
- Note that if point is at the beginning of a list, it will mark
- the whole list.
-
- To mark a subtree, you can either use =M-h= on the headline
- (since there is no ambiguity about the element you're at) or
- [[doc::org-mark-subtree][org-mark-subtree]] (=C-c @=) anywhere in the subtree.
-
- Invoking [[doc::org-mark-element][org-mark-element]] repeatedly will try to mark the next
- element on top of the previous one(s). E.g. hitting =M-h= twice
- on a headline will mark the current subtree and the next one on
- the same level.
-
-*** Org Agenda
-
-**** New option [[doc::org-agenda-sticky][org-agenda-sticky]]
-
- There is a new option =org-agenda-sticky= which enables "sticky"
- agendas. Sticky agendas remain opened in the background so that
- you don't need to regenerate them each time you hit the
- corresponding keystroke. This is a big time saver.
-
- When [[doc::org-agenda-sticky][org-agenda-sticky]] is =non-nil=, the agenda buffer will be
- named using the agenda key and its description. In sticky
- agendas, the =q= key will just bury the agenda buffers and
- further agenda commands will show existing buffer instead of
- generating new ones.
-
- If [[doc::org-agenda-sticky][org-agenda-sticky]] is set to =nil=, =q= will kill the single
- agenda buffer.
-
-**** New option [[doc::org-agenda-custom-commands-contexts][org-agenda-custom-commands-contexts]]
-
- Setting this option allows you to define specific context where
- agenda commands should be available from. For example, when set
- to this value
-
- #+BEGIN_SRC emacs-lisp
- (setq org-agenda-custom-commands-contexts
- '(("p" (in-file . "\\.txt"))))
-#+END_SRC
-
- then the =p= agenda command will only be available from buffers
- visiting *.txt files. See the docstring and the manual for more
- details on how to use this.
-
-**** Changes in bulk actions
-
- The set of commands starting with =k ...= as been deleted and the
- features have been merged into the "bulk action" feature.
-
- After you marked some entries in the agenda, if you call =B s=,
- the agenda entries will be rescheduled using the date at point if
- on a date header. If you are on an entry with a timestamp, you
- will be prompted for a date to reschedule your marked entries to,
- using the timestamp at point as the default prompt.
-
- You can now use =k= to capture the marked entry and use the date
- at point as an overriding date for the capture template.
-
- To bind this behavior to =M-x org-capture RET= (or its
- keybinding), set the new option [[doc::org-capture-use-agenda-date][org-capture-use-agenda-date]] to
- =t=.
-
-**** =N= and =P= in the agenda will move to the next/previous item
-
-**** New command [[doc::org-agenda-bulk-mark-all][org-agenda-bulk-mark-all]] to mark all items
-
- This new command is bound to =*= in agenda mode.
-
- There is also a new option [[doc::org-agenda-bulk-mark-char][org-agenda-bulk-mark-char]] to set the
- character to use as a mark for bulk actions.
-
-**** New option [[doc::org-agenda-persistent-marks][org-agenda-persistent-marks]]
-
- When set to =non-nil=, marks will remain visible after a bulk
- action. You can temporarily toggle this by pressing =p= when
- invoking [[doc::org-agenda-bulk-action][org-agenda-bulk-action]]. Marks are deleted if your
- rebuild the agenda buffer or move to another date/span (e.g. with
- =f= or =w=).
-
-**** New option [[doc::org-agenda-skip-timestamp-if-deadline-is-shown][org-agenda-skip-timestamp-if-deadline-is-shown]]
-
- =Non-nil= means skip timestamp line if same entry shows because
- of deadline.
-
- In the agenda of today, an entry can show up multiple times
- because it has both a plain timestamp and has a nearby deadline.
- When this variable is t, then only the deadline is shown and the
- fact that the entry has a timestamp for or including today is not
- shown. When this variable is =nil=, the entry will be shown
- several times.
-
-**** New =todo-unblocked= and =nottodo-unblocked= skip conditions
-
- See the [[https://orgmode.org/cgit.cgi/org-mode.git/commit/?id=f426da][git commit]] for more explanations.
-
-**** Allow category filtering in the agenda
-
- You can now filter the agenda by category. Pressing "<" will
- filter by the category of the item on the current line, and
- pressing "<" again will remove the filter. You can combine tag
- filters and category filters.
-
- You can use =org-agenda-category-filter= in your custom agenda
- views and =org-agenda-category-filter-preset= in your main
- configuration.
-
- See also the new command [[doc::org-agenda-filter-by-top-category][org-agenda-filter-by-top-category]]:
- hitting =^= will filter by "Top" category: only show entries that
- are of the same category than the Top category of the entry at
- point.
-
-*** Org Links
-
-**** Inserting links
-
- When inserting links through [[doc::org-insert-link][org-insert-link]], the description is
- now displayed first, followed by the literal link, as the
- description is often more useful when you look for the link you
- want to insert.
-
- Completion now complete both literal links and description. If
- you complete a description, the literal link and its description
- will be inserted directly, whereas when you complete the literal
- link, you will be prompted for a description (as with Org 7.8.)
-
- In the completion buffer, links to the current buffer are now
- highlighted.
-
-**** New templates =%h= and =%(sexp)= for abbreviated links
-
- On top of =%s= template, which is replaced by the link tag in
- abbreviated links, you can now use =%h= (which does the same than =%s=
- but does not hexify the tag) and =%(sexp)= (which can run a function
- that takes the tag as its own argument.)
-
-**** New link type =help=
-
- You can now create links from =help= buffers.
-
- For example, if you request help for the command [[doc::org-agenda][org-agenda]] with
- =C-h f org-agenda RET=, creating a link from this buffer will let
- you go back to the same buffer.
-
-**** New command [[doc::org-insert-all-links][org-insert-all-links]]
-
- This will insert all links as list items. With a universal
- prefix argument, links will not be deleted from the variable
- =org-stored-links=.
-
- This new command is bound to =C-c C-M-l=.
-
-**** New option [[doc::org-url-hexify-p][org-url-hexify-p]]
-
- When set to =nil=, the =URL= part of a link will not be hexified.
-
-**** Org can now open multiple shell links
-
-**** New option [[doc::org-doi-server-url][org-doi-server-url]] to specify an alternate DOI server
-
-**** RET now follows time stamps links
-
-*** Org Editing
-
-**** [[doc::org-todo][org-todo]] and =org-archive-*= can now loop in the active region
-
- When [[doc::org-loop-over-headlines-in-active-region][org-loop-over-headlines-in-active-region]] is =non-nil=, using
- [[doc::org-todo][org-todo]] or =org-archive-*= commands in the active region will
- loop over headlines. This is handy if you want to set the TODO
- keyword for several items, or archive them quickly.
-
-**** You can now set tags for headlines in a region
-
- If [[doc::org-loop-over-headlines-in-active-region][org-loop-over-headlines-in-active-region]] is =non-nil=, then
- selecting the region and hitting =C-c C-q= will set the tags for
- all headlines in the region.
-
-**** New command [[doc::org-insert-drawer][org-insert-drawer]] to insert a drawer interactively
-
-**** Comments start with "^[ \t]*# " anywhere on a line
-
- Note that the space after the hashtag is mandatory. Comments
- with "^#+" are not supported anymore.
-
-**** New speed key =#= to toggle the COMMENT cookie on a headline
-
-**** =indent-region-function= is now set to [[doc::org-indent-region][org-indent-region]]
-
- =C-M-\= should now produce useful results.
-
- You can unindent the buffer with [[doc::org-unindent-buffer][org-unindent-buffer]].
-
-**** New option [[doc::org-allow-promoting-top-level-subtree][org-allow-promoting-top-level-subtree]]
-
- When =non-nil=, =S-M-<left>= will promote level-1 subtrees
- containing other subtrees. The level-1 headline will be
- commented out. You can revert to the previous state with =M-x
- undo RET=.
-
-*** Org Clock
-
-**** New keybinding =C-c C-x C-z= for [[doc::org-clock-resolve][org-clock-resolve]]
-
-**** New keybinding =C-c C-x C-q= for [[doc::org-clock-cancel][org-clock-cancel]]
-
-**** New command [[doc::org-clock-in-last][org-clock-in-last]] to clock in the last clocked item
-
- This command is bound to =C-c C-x C-x= and will clock in the last
- clocked entry, if any.
-
-**** =C-u M-x= [[doc::org-clock-out][org-clock-out]] =RET= now prompts for a state to switch to
-
-**** =S-M-<up/down>= on a clock timestamps adjusts the previous/next clock
-
-**** New option [[doc::org-clock-continuously][org-clock-continuously]]
-
- When set to =nil=, clocking in a task will first try to find the
- last clocked out task and restart from when that task was clocked
- out.
-
- You can temporarily activate continuous clocking with =C-u C-u
- C-u M-x= [[doc::org-clock-in][org-clock-in]] =RET= (three universal prefix arguments)
- and =C-u C-u M-x= [[org-clock-in-last][org-clock-in-last]] =RET= (two universal prefix
- arguments).
-
-
-**** New option [[doc::org-clock-frame-title-format][org-clock-frame-title-format]]
-
- This option sets the value of =frame-title-format= when clocking
- in.
-
-**** New options for controlling the clockreport display
-
- [[doc::org-clock-file-time-cell-format][org-clock-file-time-cell-format]]: Format string for the file time
- cells in clockreport.
-
- [[doc::org-clock-total-time-cell-format][org-clock-total-time-cell-format]]: Format string for the total
- time cells in clockreport.
-
-
-**** New options for controlling the clock/timer display
-
- [[doc::org-clock-clocked-in-display][org-clock-clocked-in-display]]: control whether the current clock
- is displayed in the mode line and/or frame title.
-
- [[doc::org-timer-display][org-timer-display]]: control whether the current timer is displayed
- in the mode line and/or frame title.
-
- This allows the clock and timer to be displayed in the frame
- title instead of, or as well as, the mode line. This is useful
- for people with limited space in the mode line but with ample
- space in the frame title.
-
-*** Org Appearance
-
-**** New option [[doc::org-custom-properties][org-custom-properties]]
-
- The visibility of properties listed in this options can be turn
- on/off with [[doc::org-toggle-custom-properties-visibility][org-toggle-custom-properties-visibility]]. This might
- be useful for properties used by third-part tools or that you
- don't want to see temporarily.
-
-**** New command [[doc::org-redisplay-inline-images][org-redisplay-inline-images]]
-
- This will redisplay all images. It is bound to =C-c C-x C-M-v=.
-
-**** New entities in =org-entities.el=
-
- There are these new entities:
-
- : ("tilde" "\\~{}" nil "˜" "~" "~" "~")
- : ("slash" "/" nil "/" "/" "/" "/")
- : ("plus" "+" nil "+" "+" "+" "+")
- : ("under" "\\_" nil "_" "_" "_" "_")
- : ("equal" "=" nil "=" "=" "=" "=")
- : ("asciicirc" "\\textasciicircum{}" nil "^" "^" "^" "^")
-
-**** New face =org-list-dt= for definition terms
-**** New face =org-date-selected= for the selected calendar day
-**** New face value for =org-document-title=
-
- The face is back to a normal height.
-
-*** Org Columns
-
-**** New speed command =:= to activate the column view
-**** New special property =CLOCKSUM_T= to display today's clocked time
-
- You can use =CLOCKSUM_T= the same way you use =CLOCKSUM=. It
- will display the time spent on tasks for today only.
-
-**** Use the =:COLUMNS:= property in columnview dynamic blocks
-
- If the =:COLUMNS:= is set in a subtree, the columnview dynamic
- block will use its value as the column format.
-
-**** Consider inline tasks when computing a sum
-
-*** Org Dates and Time Stamps
-
-**** Enhanced [[doc::org-sparse-tree][org-sparse-tree]]
-
- =C-c /= can now check for time ranges.
-
- When checking for dates with =C-c /= it is useful to change the
- type of dates that you are interested in. You can now do this
- interactively with =c= after =C-c /= and/or by setting
- [[doc::org-sparse-tree-default-date-type][org-sparse-tree-default-date-type]] to the default value you want.
-
-**** Support for hourly repeat cookies
-
- You can now use
-
- : SCHEDULED: <2012-08-20 lun. 08:00 +1h>
-
- if you want to add an hourly repeater to an entry.
-
-**** =C-u C-u C-c .= inserts a time-stamp with no prompt
-
-**** When (setq [[doc::org-read-date-prefer-future][org-read-date-prefer-future]] 'time), accept days in the prompt
-
- "8am Wed" and "Wed 8am" are now acceptable values when entering a
- date from the prompt. If [[doc::org-read-date-prefer-future][org-read-date-prefer-future]] is set to
- =time=, this will produce the expected prompt indication.
-
-**** New option [[doc::org-datetree-add-timestamp][org-datetree-add-timestamp]]
-
- When set to =non-nil=, datetree entries will also have a
- timestamp. This is useful if you want to see these entries in a
- sparse tree with =C-c /=.
-
-*** Org Capture
-
-**** New command [[doc::org-capture-string][org-capture-string]]
-
- M-x [[doc::org-capture-string][org-capture-string]] RET will prompt for a string and a capture
- template. The string will be used as an annotation for the
- template. This is useful when capturing in batch mode as it lets
- you define the content of the template without being in Emacs.
-
-**** New option [[doc::org-capture-templates-contexts][org-capture-templates-contexts]]
-
- Setting this option allows you to define specific context where
- capture templates should be available from. For example, when
- set to this value
-
- #+BEGIN_SRC emacs-lisp
- (setq org-capture-templates-contexts
- '(("c" (in-mode . "message-mode"))))
-#+END_SRC
-
- then the =c= capture template will only be available from
- =message-mode= buffers. See the docstring and the manual for
- more details on how to use this.
-
-**** New =%l= template to insert the literal link
-**** New option [[doc::org-capture-bookmark][org-capture-bookmark]]
-
- Org used to automatically add a bookmark with capture a note.
- You can now turn this on by setting [[doc::org-capture-bookmark][org-capture-bookmark]] to
- =nil=.
-
-**** Expand =%<num>= escape sequences into text entered for <num>'th =%^{PROMPT}= escape
-
- See the manual for more explanations.
-
-**** More control over empty lines
-
- You can use =:empty-lines-before= and =:empty-lines-after= to
- control the insertion of empty lines. Check the manual for more
- explanations.
-
-**** New hook [[doc::org-capture-prepare-finalize-hook][org-capture-prepare-finalize-hook]]
-
- This new hook runs before the finalization process starts.
-
-*** Org Export
-
-**** New functions =orgtbl-to-table.el= and =orgtbl-to-unicode=
-
- =orgtbl-to-table.el= convert the table to a =table.el= table, and
- =orgtbl-to-unicode= will use =ascii-art-to-unicode.el= (when
- available) to print beautiful tables.
-
-**** [[doc::org-table-export][org-table-export]] now a bit clever about the target format
-
- When you specify a file name like =table.csv=, [[doc::org-table-export][org-table-export]]
- will now suggest =orgtbl-to-csv= the default method for exporting
- the table.
-
-**** New option [[doc::org-export-date-timestamp-format][org-export-date-timestamp-format]]
-
- The option allows to set a time string format for Org timestamps
- in the #+DATE option.
-
-**** LaTeX: New options for exporting table rules :tstart, :hline and :tend
-
- See [[doc::org-export-latex-tables-hline][org-export-latex-tables-hline]] and [[doc::org-export-latex-tables-tend][org-export-latex-tables-tend]].
-
-**** LaTeX: You can now set =:hfmt= from =#+ATTR_LaTeX=
-**** Beamer: Add support and keybinding for the =exampleblock= environment
-
- Add support for these languages in [[doc::org-export-language-setup][org-export-language-setup]].
- More languages are always welcome.
-
-**** Beamer: New option [[doc::org-beamer-inherited-properties][org-beamer-inherited-properties]]
-
- This option allows Beamer export to inherit some properties.
- Thanks to Carsten for implementing this.
-
-**** ODT: Add support for ODT export in org-bbdb.el
-**** ODT: Add support for indented tables (see [[https://orgmode.org/cgit.cgi/org-mode.git/commit/?id=e9fd33][this commit]] for details)
-**** ODT: Improve the conversion from ODT to other formats
-**** ASCII: Swap the level-1/level-2 characters to underline the headlines
-**** Support for Chinese, simplified Chinese, Russian, Ukrainian and Japanese
-**** HTML: New option [[doc::org-export-html-date-format-string][org-export-html-date-format-string]]
-
- Format string to format the date and time in HTML export. Thanks
- to Sébastien Vauban for this patch.
-
-*** Org Babel
-
-**** New =:results drawer= parameter
-
-=:results drawer= replaces =:results wrap=, which is deprecated but still
-supported.
-
-**** =:results org= now put results in a =#+BEGIN_SRC org= block
-
-=:results org= used to put results in a =#+BEGIN_ORG= block but it now puts
-results in a =#+BEGIN_SRC org= block, with comma-escaped lines.
-
-=#+BEGIN_ORG= blocks are obsolete.
-
-**** Exporting =#+BEGIN_SRC org= blocks exports the code
-
-It used to exports the results of the code.
-
-*** Miscellaneous
-
-**** New menu entry for [[doc::org-refile][org-refile]]
-**** Allow capturing to encrypted entries
-
-If you capture to an encrypted entry, it will be decrypted before
-inserting the template then re-encrypted after finalizing the capture.
-
-**** Inactive timestamps are now handled in tables
-
-Calc can do computation on active time-stamps like <2012-09-29 sat.>.
-Inactive time-stamps in a table's cell are now internally deactivated so
-that Calc formulas can operate on them.
-
-**** [[doc::org-table-number-regexp][org-table-number-regexp]] can now accept comma as decimal mark
-**** Org allows a new property =APPT_WARNTIME=
-
- You can set it with the =W= speedy key or set it manually. When
- set, exporting to iCalendar and [[doc::org-agenda-to-appt][org-agenda-to-appt]] will use the
- value of this property as the number of minutes for the warning
- alarm.
-
-**** New command [[doc::org-inc-effort][org-inc-effort]]
-
- This will increment the effort value.
-
- It is bound to =C-c C-x E= and to =E= as a speedy command.
-
-**** Attach: Add support for creating symbolic links
-
- =org-attach-method= now supports a new method =lns=, allowing to
- attach symbolic links.
-
-**** Archive: you can now archive to a datetree
-
-**** New option [[doc::org-inlinetask-show-first-star][org-inlinetask-show-first-star]]
-
- =Non-nil= means display the first star of an inline task as
- additional marker. When =nil=, the first star is not shown.
-
-**** New option [[doc::org-latex-preview-ltxpng-directory][org-latex-preview-ltxpng-directory]]
-
- This lets you define the path for the =ltxpng/= directory.
-
-**** You can now use imagemagick instead of dvipng to preview LaTeX fragments
-**** You can now turn off [[doc::orgstruct++-mode][orgstruct++-mode]] safely
-**** =C-u C-c C-c= on list items to add check boxes
-
- =C-u C-c C-c= will add an empty check box on a list item.
-
- When hit from the top of the list, it will add check boxes for
- all top level list items.
-
-**** =org-list-ending-method= and =org-list-end-regexp= are now obsolete
-
- Fall back on using =org-list-end-re= only, which see.
-
-**** org-feed.el now expands =%(sexp)= templates
-**** New option [[doc::org-protocol-data-separator][org-protocol-data-separator]]
-
-**** New option [[doc::org-ditaa-jar-option][org-ditaa-jar-option]] to specify the ditaa jar file
-
-**** New possible value for [[doc::org-loop-over-headlines-in-active-region][org-loop-over-headlines-in-active-region]]
-
- When [[doc::org-loop-over-headlines-in-active-region][org-loop-over-headlines-in-active-region]] is set to
- =start-level=, the command will loop over the active region but
- will only act upon entries that are of the same level than the
- first headline in the region.
-
-**** New option [[doc::org-habit-show-all-today][org-habit-show-all-today]]
-
- When set to =t=, show all (even unscheduled) habits on today's
- agenda.
-
-** Important bug fixes
-
-*** M-TAB on options keywords perform completion correctly again
-
- If you hit =M-TAB= on keywords like =#+TITLE=, Org will try to
- perform completion with meaningful values.
-
-*** Add licenses to javascript embedded and external code snippets
-
- Embedded javascript code produced when exporting an Org file to
- HTML is now licensed under GPLv3 (or later), and the copyright is
- owned by the Free Software Foundation, Inc.
-
- The javascript code for embedding MathJax in the browser mentions
- the MathJax copyright and the Apache 2.0 license.
-
- The javascript code for embedding =org-injo.js= in the browser
- mentions the copyright of Sebastian Rose and the GPLv3 (or later)
- license.
-
- =org-export-html-scripts= is now a variable, so that you can adapt
- the code and the license to your needs.
-
- See https://www.gnu.org/philosophy/javascript-trap.html for
- explanations on why these changes were necessary.
-
-* Version 7.8.11
-
-** Incompatible changes
-
-*** Emacs 21 support has been dropped
-
- Do not use Org mode 7.xx with Emacs 21, use [[https://orgmode.org/org-6.36c.zip][version 6.36c]] instead.
-
-*** XEmacs support requires the XEmacs development version
-
- To use Org mode 7.xx with XEmacs, you need to run the developer
- version of XEmacs. We were about to drop XEmacs support entirely,
- but Michael Sperber stepped in and made changes to XEmacs that
- made it easier to keep the support. Thanks to Michael for this
- last-minute save.
-
-*** New keys for TODO sparse trees
-
- The key =C-c C-v= is now reserved for Org Babel action. TODO
- sparse trees can still be made with =C-c / t= (all not-done
- states) and =C-c / T= (specific states).
-
-*** The Agenda =org-agenda-ndays= is now obsolete
-
- The variable =org-agenda-ndays= is obsolete - please use
- =org-agenda-span= instead.
-
- Thanks to Julien Danjou for this.
-
-*** Changes to the intended use of =org-export-latex-classes=
-
- So far this variable has been used to specify the complete header
- of the LaTeX document, including all the =\usepackage= calls
- necessary for the document. This setup makes it difficult to
- maintain the list of packages that Org itself would like to call,
- for example for the special symbol support it needs.
-
- First of all, you can *opt out of this change* in the following
- way: You can say: /I want to have full control over headers, and I
- will take responsibility to include the packages Org needs/. If
- that is what you want, add this to your configuration and skip the
- rest of this section (except maybe for the description of the
- =[EXTRA]= place holder):
-
- #+begin_src emacs-lisp
- (setq org-export-latex-default-packages-alist nil
- org-export-latex-packages-alist nil)
- #+end_src
-
- /Continue to read here if you want to go along with the modified
- setup./
-
- There are now two variables that should be used to list the LaTeX
- packages that need to be included in all classes. The header
- definition in =org-export-latex-classes= should then not contain
- the corresponding =\usepackage= calls (see below).
-
- The two new variables are:
-
- 1. =org-export-latex-default-packages-alist= :: This is the
- variable where Org-mode itself puts the packages it needs.
- Normally you should not change this variable. The only
- reason to change it anyway is when one of these packages
- causes a conflict with another package you want to use. Then
- you can remove that packages and hope that you are not using
- Org-mode functionality that needs it.
-
- 2. =org-export-latex-packages-alist= :: This is the variable where
- you can put the packages that you'd like to use across all
- classes.
-
- The sequence how these customizations will show up in the LaTeX
- document are:
-
- 1. Header from =org-export-latex-classes=
- 2. =org-export-latex-default-packages-alist=
- 3. =org-export-latex-packages-alist=
- 4. Buffer-specific things set with =#+LaTeX_HEADER:=
-
- If you want more control about which segment is placed where, or
- if you want, for a specific class, have full control over the
- header and exclude some of the automatic building blocks, you can
- put the following macro-like place holders into the header:
-
- #+begin_example
- [DEFAULT-PACKAGES] \usepackage statements for default packages
- [NO-DEFAULT-PACKAGES] do not include any of the default packages
- [PACKAGES] \usepackage statements for packages
- [NO-PACKAGES] do not include the packages
- [EXTRA] the stuff from #+LaTeX_HEADER
- [NO-EXTRA] do not include #+LaTeX_HEADER stuff
- #+end_example
-
- If you have currently customized =org-export-latex-classes=, you
- should revise that customization and remove any package calls that
- are covered by =org-export-latex-default-packages-alist=. This
- applies to the following packages:
-
- - inputenc
- - fontenc
- - fixltx2e
- - graphicx
- - longtable
- - float
- - wrapfig
- - soul
- - t1enc
- - textcomp
- - marvosym
- - wasysym
- - latexsym
- - amssymb
- - hyperref
-
- If one of these packages creates a conflict with another package
- you are using, you can remove it from
- =org-export-latex-default-packages-alist=. But then you risk that
- some of the advertised export features of Org will not work
- properly.
-
- You can also consider moving packages that you use in all classes
- to =org-export-latex-packages-alist=. If necessary, put the place
- holders so that the packages get loaded in the right sequence. As
- said above, for backward compatibility, if you omit the place
- holders, all the variables will dump their content at the end of
- the header.
-
-*** The constant =org-html-entities= is obsolete
-
- Its content is now part of the new constant =org-entities=, which
- is defined in the file org-entities.el. =org-html-entities= was
- an internal variable, but it is possible that some users did write
- code using it.
-
-*** =org-bbdb-anniversary-format-alist= has changed
-
- Please check the docstring and update your settings accordingly.
-
-*** Deleted =org-mode-p=
-
- This function has been deleted: please update your code.
-
-** Important new features
-
-*** New Org to ODT exporter
-
- Jambunathan's Org to ODT exporter is now part of Org.
-
- To use it, it `C-c C-e o' in an Org file. See the documentation
- for more information on how to customize it.
-
-*** org-capture.el is now the default capture system
-
- This replaces the earlier system org-remember. The manual only
- describes org-capture, but for people who prefer to continue to
- use org-remember, we keep a static copy of the former manual
- section [[https://orgmode.org/org-remember.pdf][chapter about remember]].
-
- The new system has a technically cleaner implementation and more
- possibilities for capturing different types of data. See
- [[http://thread.gmane.org/gmane.emacs.orgmode/26441/focus%3D26441][Carsten's announcement]] for more details.
-
- To switch over to the new system:
-
- 1. Run
-
- : M-x org-capture-import-remember-templates RET
-
- to get a translated version of your remember templates into the
- new variable =org-capture-templates=. This will "mostly" work,
- but maybe not for all cases. At least it will give you a good
- place to modify your templates. After running this command,
- enter the customize buffer for this variable with
-
- : M-x customize-variable RET org-capture-templates RET
-
- and convince yourself that everything is OK. Then save the
- customization.
-
- 2. Bind the command =org-capture= to a key, similar to what you did
- with org-remember:
-
- : (define-key global-map "\C-cc" 'org-capture)
-
- If your fingers prefer =C-c r=, you can also use this key once
- you have decided to move over completely to the new
- implementation. During a test time, there is nothing wrong
- with using both system in parallel.
-
-** New libraries
-
-*** New Org libraries
-**** org-eshell.el (Konrad Hinsen)
-
- Implement links to eshell buffers.
-
-**** org-special-blocks (Carsten Dominik)
-
- This package generalizes the #+begin_foo and #+end_foo tokens.
-
- To use, put the following in your init file:
-
- #+BEGIN_EXAMPLE
-(require 'org-special-blocks)
-#+END_EXAMPLE
-
- The tokens #+begin_center, #+begin_verse, etc. existed
- previously. This package generalizes them (at least for the
- LaTeX and html exporters). When a #+begin_foo token is
- encountered by the LaTeX exporter, it is expanded
- into \begin{foo}. The text inside the environment is not
- protected, as text inside environments generally is.
- When #+begin_foo is encountered by the html exporter, a div with
- class foo is inserted into the HTML file. It is up to the user
- to add this class to his or her stylesheet if this div is to mean
- anything.
-
-**** org-taskjuggler.el (Christian Egli)
-
- Christian Egli's /org-taskjuggler.el/ module is now part of Org.
- He also wrote a [[https://orgmode.org/worg/org-tutorials/org-taskjuggler.php][tutorial]] for it.
-
-**** org-ctags.el (Paul Sexton)
-
- Targets like =<<my target>>= can now be found by Emacs' etag
- functionality, and Org-mode links can be used to to link to
- etags, also in non-Org-mode files. For details, see the file
- /org-ctags.el/.
-
- This feature uses a new hook =org-open-link-functions= which will
- call function to do something special with text links.
-
- Thanks to Paul Sexton for this contribution.
-
-**** org-docview.el (Jan Böcker)
-
- This new module allows links to various file types using docview, where
- Emacs displays images of document pages. Docview link types can point
- to a specific page in a document, for example to page 131 of the
- Org-mode manual:
-
- : [[docview:~/.elisp/org/doc/org.pdf::131][Org-Mode Manual]]
-
- Thanks to Jan Böcker for this contribution.
-
-*** New Babel libraries
-
-- ob-picolisp.el (Thorsten Jolitz)
-- ob-fortran.el (Sergey Litvinov)
-- ob-shen.el (Eric Schulte)
-- ob-maxima.el (Eric S Fraga)
-- ob-java.el (Eric Schulte)
-- ob-lilypond.el (Martyn Jago)
-- ob-awk.el (Eric Schulte)
-
-** Other new features and various enhancements
-
-*** Hyperlinks
-
-**** Org-Bibtex -- major improvements
-
- Provides support for managing bibtex bibliographical references
- data in headline properties. Each headline corresponds to a
- single reference and the relevant bibliographic meta-data is
- stored in headline properties, leaving the body of the headline
- free to hold notes and comments. Org-bibtex is aware of all
- standard bibtex reference types and fields.
-
- The key new functions are
-
- - org-bibtex-check :: queries the user to flesh out all required
- (and with prefix argument optional) bibtex fields available
- for the specific reference =type= of the current headline.
-
- - org-bibtex-create :: Create a new entry at the given level,
- using org-bibtex-check to flesh out the relevant fields.
-
- - org-bibtex-yank :: Yank a bibtex entry on the kill ring as a
- formatted Org-mode headline into the current buffer
-
- - org-bibtex-export-to-kill-ring :: Export the current headline
- to the kill ring as a formatted bibtex entry.
-
-**** org-gnus.el now allows link creation from messages
-
- You can now create links from messages. This is particularly
- useful when the user wants to stored messages that he sends, for
- later check. Thanks to Ulf Stegemann for the patch.
-
-**** Modified link escaping
-
- David Maus worked on `org-link-escape'. See [[http://article.gmane.org/gmane.emacs.orgmode/37888][his message]]:
-
- : Percent escaping is used in Org mode to escape certain characters
- : in links that would either break the parser (e.g. square brackets
- : in link target oder description) or are not allowed to appear in
- : a particular link type (e.g. non-ascii characters in a http:
- : link).
- :
- : With this change in place Org will apply percent escaping and
- : unescaping more consistently especially for non-ascii characters.
- : Additionally some of the outstanding bugs or glitches concerning
- : percent escaped links are solved.
-
- Thanks a lot to David for this work.
-
-**** Make =org-store-link= point to directory in a dired buffer
-
- When, in a dired buffer, the cursor is not in a line listing a
- file, `org-store-link' will store a link to the directory.
-
- Patch by Stephen Eglen.
-
-**** Allow regexps in =org-file-apps= to capture link parameters
-
- The way extension regexps in =org-file-apps= are handled has
- changed. Instead of matching against the file name, the regexps
- are now matched against the whole link, and you can use grouping
- to extract link parameters which you can then use in a command
- string to be executed.
-
- For example, to allow linking to PDF files using the syntax
- =file:/doc.pdf::<page number>=, you can add the following entry
- to org-file-apps:
-
- #+begin_example
- Extension: \.pdf::\([0-9]+\)\'
- Command: evince "%s" -p %1
- #+end_example
-
- Thanks to Jan Böcker for a patch to this effect.
-
-*** Dates and time
-
-**** Allow relative time when scheduling/adding a deadline
-
- You can now use relative duration strings like "-2d" or "++3w"
- when calling =org-schedule= or =org-deadline=: it will schedule
- (or set the deadline for) the item respectively two days before
- today and three weeks after the current timestamp, if any.
-
- You can use this programmatically: =(org-schedule nil "+2d")=
- will work on the current entry.
-
- You can also use this while (bulk-)rescheduling and
- (bulk-)resetting the deadline of (several) items from the agenda.
-
- Thanks to Memnon Anon for a heads up about this!
-
-**** American-style dates are now understood by =org-read-date=
-
- So when you are prompted for a date, you can now answer like this
-
- #+begin_example
- 2/5/3 --> 2003-02-05
- 2/5 --> <CURRENT-YEAR>-02-05
- #+end_example
-
-*** Agenda
-
-**** =org-agenda-custom-commands= has a default value
-
- This option used to be `nil' by default. This now has a default
- value, displaying an agenda and all TODOs. See the docstring for
- details. Thanks to Carsten for this.
-
-**** Improved filtering through =org-agenda-to-appt=
-
- The new function allows the user to refine the scope of entries
- to pass to =org-agenda-get-day-entries= and allows to filter out
- entries using a function.
-
- Thanks to Peter Münster for raising a related issue and to
- Tassilo Horn for this idea. Also thanks to Peter Münster for
- [[git:68ffb7a7][fixing a small bug]] in the final implementation.
-
-**** Allow ap/pm times in agenda time grid
-
- Times in the agenda can now be displayed in am/pm format. See
- the new variable =org-agenda-timegrid-use-ampm=. Thanks to
- C. A. Webber for a patch to this effect.
-
-**** Agenda: Added a bulk "scattering" command
-
- =B S= in the agenda buffer will cause tasks to be rescheduled a
- random number of days into the future, with 7 as the default.
- This is useful if you've got a ton of tasks scheduled for today,
- you realize you'll never deal with them all, and you just want
- them to be distributed across the next N days. When called with
- a prefix arg, rescheduling will avoid weekend days.
-
- Thanks to John Wiegley for this.
-
-*** Exporting
-
-**** Simplification of org-export-html-preamble/postamble
-
- When set to `t', export the preamble/postamble as usual, honoring
- the =org-export-email/author/creator-info= variables.
-
- When set to a formatting string, insert this string. See the
- docstring of these variable for details about available
- %-sequences.
-
- You can set =:html-preamble= in publishing project in the same
- way: `t' means to honor =:email/creator/author-info=, and a
- formatting string will insert a string.
-
-**** New exporters to Latin-1 and UTF-8
-
- While Ulf Stegemann was going through the entities list to
- improve the LaTeX export, he had the great idea to provide
- representations for many of the entities in Latin-1, and for all
- of them in UTF-8. This means that we can now export files rich
- in special symbols to Latin-1 and to UTF-8 files. These new
- exporters can be reached with the commands =C-c C-e n= and =C-c
- C-e u=, respectively.
-
- When there is no representation for a given symbol in the
- targeted coding system, you can choose to keep the TeX-macro-like
- representation, or to get an "explanatory" representation. For
- example, =\simeq= could be represented as "[approx. equal to]".
- Please use the variable =org-entities-ascii-explanatory= to state
- your preference.
-
-**** HTML export: Add class to outline containers using property
-
- The =HTML_CONTAINER_CLASS= property can now be used to add a
- class name to the outline container of a node in HTML export.
-
-**** Throw an error when creating an image from a LaTeX snippet fails
-
- This behavior can be configured with the new option variable
- =org-format-latex-signal-error=.
-
-**** Support for creating BEAMER presentations from Org-mode documents
-
- Org-mode documents or subtrees can now be converted directly in
- to BEAMER presentation. Turning a tree into a simple
- presentations is straight forward, and there is also quite some
- support to make richer presentations as well. See the [[https://orgmode.org/manual/Beamer-class-export.html#Beamer-class-export][BEAMER
- section]] in the manual for more details.
-
- Thanks to everyone who has contributed to the discussion about
- BEAMER support and how it should work. This was a great example
- for how this community can achieve a much better result than any
- individual could.
-
-*** Refiling
-
-**** Refile targets can now be cached
-
- You can turn on caching of refile targets by setting the variable
- =org-refile-use-cache=. This should speed up refiling if you
- have many eligible targets in many files. If you need to update
- the cache because Org misses a newly created entry or still
- offers a deleted one, press =C-0 C-c C-w=.
-
-**** New logging support for refiling
-
- Whenever you refile an item, a time stamp and even a note can be
- added to this entry. For details, see the new option
- =org-log-refile=.
-
- Thanks to Charles Cave for this idea.
-
-*** Completion
-
-**** In-buffer completion is now done using John Wiegley's pcomplete.el
-
- Thanks to John Wiegley for much of this code.
-
-*** Tables
-
-**** New command =org-table-transpose-table-at-point=
-
- See the docstring. This hack from Juan Pechiar is now part of
- Org's core. Thanks to Juan!
-
-**** Display field's coordinates when editing it with =C-c `=
-
- When editing a field with =C-c `=, the field's coordinate will
- the displayed in the buffer.
-
- Thanks to Michael Brand for a patch to this effect.
-
-**** Spreadsheet computation of durations and time values
-
- If you want to compute time values use the =T= flag, either in
- Calc formulas or Elisp formulas:
-
- | Task 1 | Task 2 | Total |
- |--------+--------+---------|
- | 35:00 | 35:00 | 1:10:00 |
- #+TBLFM: @2$3=$1+$2;T
-
- Values must be of the form =[HH:]MM:SS=, where hours are
- optional.
-
- Thanks to Martin Halder, Eric Schulte and Carsten for code and
- feedback on this.
-
-**** Implement formulas applying to field ranges
-
- Carsten implemented this field-ranges formulas.
-
- : A frequently requested feature for tables has been to be able to define
- : row formulas in a way similar to column formulas. The patch below allows
- : things like
- :
- : @3=
- : @2$2..@5$7=
- : @I$2..@II$4=
- :
- : as the left hand side for table formulas in order to write a formula that
- : is valid for an entire column or for a rectangular section in a
- : table.
-
- Thanks a lot to Carsten for this.
-
-**** Sending radio tables from org buffers is now allowed
-
- Org radio tables can no also be sent inside Org buffers. Also,
- there is a new hook which get called after a table has been sent.
-
- Thanks to Seweryn Kokot.
-
-*** Lists
-
-**** Improved handling of lists
-
- Nicolas Goaziou extended and improved the way Org handles lists.
-
- 1. Indentation of text determines again end of items in
- lists. So, some text less indented than the previous item
- doesn't close the whole list anymore, only all items more
- indented than it.
-
- 2. Alphabetical bullets are implemented, through the use of the
- variable `org-alphabetical-lists'. This also adds alphabetical
- counters like [@c] or [@W].
-
- 3. Lists can now safely contain drawers, inline tasks, or various
- blocks, themselves containing lists. Two variables are
- controlling this: `org-list-forbidden-blocks', and
- `org-list-export-context'.
-
- 4. Improve `newline-and-indent' (C-j): used in an item, it will
- keep text from moving at column 0. This allows to split text
- and make paragraphs and still not break the list.
-
- 5. Improve `org-toggle-item' (C-c -): used on a region with
- standard text, it will change the region into one item. With a
- prefix argument, it will fallback to the previous behavior and
- make every line in region an item. It permits to easily
- integrate paragraphs inside a list.
-
- 6. `fill-paragraph' (M-q) now understands lists. It can freely be
- used inside items, or on text just after a list, even with no
- blank line around, without breaking list structure.
-
- Thanks a lot to Nicolas for all this!
-
-*** Inline display of linked images
-
- Images can now be displayed inline. The key C-c C-x C-v does
- toggle the display of such images. Note that only image links
- that have no description part will be inlined.
-
-*** Implement offsets for ordered lists
-
- If you want to start an ordered plain list with a number different
- from 1, you can now do it like this:
-
- : 1. [@start:12] will star a lit a number 12
-
-*** Babel: code block body expansion for table and preview
-
- In org-babel, code is "expanded" prior to evaluation. I.e. the
- code that is actually evaluated comprises the code block contents,
- augmented with the extra code which assigns the referenced data to
- variables. It is now possible to preview expanded contents, and
- also to expand code during during tangling. This expansion takes
- into account all header arguments, and variables.
-
- A new keybinding `C-c M-b p' bound to `org-babel-expand-src-block'
- can be used from inside of a source code block to preview its
- expanded contents (which can be very useful for debugging).
- tangling
-
- The expanded body can now be tangled, this includes variable
- values which may be the results of other source-code blocks, or
- stored in headline properties or tables. One possible use for this
- is to allow those using org-babel for their emacs initialization
- to store values (e.g. usernames, passwords, etc...) in headline
- properties or in tables.
-
- Org-babel now supports three new header arguments, and new default
- behavior for handling horizontal lines in tables (hlines), column
- names, and rownames across all languages.
-
-*** Editing Convenience and Appearance
-
-**** New command =org-copy-visible= (=C-c C-x v=)
-
- This command will copy the visible text in the region into the
- kill ring. Thanks to Florian Beck for this function and to
- Carsten for adding it to org.el and documenting it!
-
-**** Make it possible to protect hidden subtrees from being killed by =C-k=
-
- See the new variable =org-ctrl-k-protect-subtree=. This was a
- request by Scott Otterson.
-
-**** Implement pretty display of entities, sub-, and superscripts.
-
- The command =C-c C-x \= toggles the display of Org's special
- entities like =\alpha= as pretty unicode characters. Also, sub
- and superscripts are displayed in a pretty way (raised/lower
- display, in a smaller font). If you want to exclude sub- and
- superscripts, see the variable
- =org-pretty-entities-include-sub-superscripts=.
-
- Thanks to Eric Schulte and Ulf Stegeman for making this possible.
-
-**** New faces for title, date, author and email address lines
-
- The keywords in these lines are now dimmed out, and the title is
- displayed in a larger font, and a special font is also used for
- author, date, and email information. This is implemented by the
- following new faces:
-
- =org-document-title=
- =org-document-info=
- =org-document-info-keyword=
-
- In addition, the variable =org-hidden-keywords= can be used to
- make the corresponding keywords disappear.
-
- Thanks to Dan Davison for this feature.
-
-**** Simpler way to specify faces for tags and todo keywords
-
- The variables =org-todo-keyword-faces=, =org-tag-faces=, and
- =org-priority-faces= now accept simple color names as
- specifications. The colors will be used as either foreground or
- background color for the corresponding keyword. See also the
- variable =org-faces-easy-properties=, which governs which face
- property is affected by this setting.
-
- This is really a great simplification for setting keyword faces.
- The change is based on an idea and patch by Ryan Thompson.
-
-**** <N> in tables now means fixed width, not maximum width
-
- Requested by Michael Brand.
-
-**** Better level cycling function
-
- =TAB= in an empty headline cycles the level of that headline
- through likely states. Ryan Thompson implemented an improved
- version of this function, which does not depend upon when exactly
- this command is used. Thanks to Ryan for this improvement.
-
-**** Adaptive filling
-
- For paragraph text, =org-adaptive-fill-function= did not handle
- the base case of regular text which needed to be filled. This is
- now fixed. Among other things, it allows email-style ">"
- comments to be filled correctly.
-
- Thanks to Dan Hackney for this patch.
-
-**** `org-reveal' (=C-c C-r=) also decrypts encrypted entries (org-crypt.el)
-
- Thanks to Richard Riley for triggering this change.
-
-**** Better automatic letter selection for TODO keywords
-
- When all first letters of keywords have been used, Org now
- assigns more meaningful characters based on the keywords.
-
- Thanks to Mikael Fornius for this patch.
-
-*** Clocking
-
-**** Clock: Allow synchronous update of timestamps in CLOCK log
-
- Using =S-M-<up/down>= on CLOCK log timestamps will
- increase/decrease the two timestamps on this line so that
- duration will keep the same. Note that duration can still be
- slightly modified in case a timestamp needs some rounding.
-
- Thanks to Rainer Stengele for this idea.
-
-**** Localized clock tables
-
- Clock tables now support a new new =:lang= parameter, allowing
- the user to customize the localization of the table headers. See
- the variable =org-clock-clocktable-language-setup= which controls
- available translated strings.
-
-**** Show clock overruns in mode line
-
- When clocking an item with a planned effort, overrunning the
- planned time is now made visible in the mode line, for example
- using the new face =org-mode-line-clock-overrun=, or by adding an
- extra string given by =org-task-overrun-text=.
-
- Thanks to Richard Riley for a patch to this effect.
-
-**** Clock reports can now include the running, incomplete clock
-
- If you have a clock running, and the entry being clocked falls
- into the scope when creating a clock table, the time so far spent
- can be added to the total. This behavior depends on the setting
- of =org-clock-report-include-clocking-task=. The default is
- =nil=.
-
- Thanks to Bernt Hansen for this useful addition.
-
-*** Misc
-
-**** Improvements with inline tasks and indentation
-
- There is now a configurable way on how to export inline tasks.
- See the new variable =org-inlinetask-export-templates=.
-
- Thanks to Nicolas Goaziou for coding these changes.
-
-**** A property value of "nil" now means to unset a property
-
- This can be useful in particular with property inheritance, if
- some upper level has the property, and some grandchild of it
- would like to have the default settings (i.e. not overruled by a
- property) back.
-
- Thanks to Robert Goldman and Bernt Hansen for suggesting this
- change.
-
-**** New helper functions in org-table.el
-
- There are new functions to access and write to a specific table field.
- This is for hackers, and maybe for the org-babel people.
-
- #+begin_example
- org-table-get
- org-table-put
- org-table-current-line
- org-table-goto-line
- #+end_example
-
-**** Archiving: Allow to reverse order in target node
-
- The new option =org-archive-reversed-order= allows to have
- archived entries inserted in a last-on-top fashion in the target
- node.
-
- This was requested by Tom.
-
-**** Org-reveal: Double prefix arg shows the entire subtree of the parent
-
- This can help to get out of an inconsistent state produced for
- example by viewing from the agenda.
-
- This was a request by Matt Lundin.
-
-* License
-
- This file is part of GNU Emacs.
-
- GNU Emacs 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.
-
- GNU Emacs 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 <https://www.gnu.org/licenses/>.
diff --git a/elpa/org-9.1.14/etc/styles/OrgOdtContentTemplate.xml b/elpa/org-9.1.14/etc/styles/OrgOdtContentTemplate.xml
deleted file mode 100644
index d0c98a3..0000000
--- a/elpa/org-9.1.14/etc/styles/OrgOdtContentTemplate.xml
+++ /dev/null
@@ -1,275 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!-- See etc/org/README for copyright information -->
-<office:document-content
- xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"
- xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0"
- xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0"
- xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0"
- xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0"
- xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0"
- xmlns:xlink="http://www.w3.org/1999/xlink"
- xmlns:dc="http://purl.org/dc/elements/1.1/"
- xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0"
- xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0"
- xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"
- xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0"
- xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0"
- xmlns:math="http://www.w3.org/1998/Math/MathML"
- xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0"
- xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0"
- xmlns:ooo="http://openoffice.org/2004/office"
- xmlns:ooow="http://openoffice.org/2004/writer"
- xmlns:oooc="http://openoffice.org/2004/calc"
- xmlns:dom="http://www.w3.org/2001/xml-events"
- xmlns:xforms="http://www.w3.org/2002/xforms"
- xmlns:xsd="http://www.w3.org/2001/XMLSchema"
- xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
- xmlns:rpt="http://openoffice.org/2005/report"
- xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2"
- xmlns:xodt="http://www.w3.org/1999/xodt"
- xmlns:field="urn:openoffice:names:experimental:ooo-ms-interop:xmlns:field:1.0" office:version="1.2">
- <!-- scripts -->
- <office:scripts/>
-
- <!-- font face declarations -->
- <office:font-face-decls>
- <style:font-face style:name="Tahoma1" svg:font-family="Tahoma"/>
- <style:font-face style:name="courier" svg:font-family="courier, monospace"/>
- <style:font-face style:name="Arial Unicode MS" svg:font-family="'Arial Unicode MS'" style:font-pitch="variable"/>
- <style:font-face style:name="HG Mincho Light J" svg:font-family="'HG Mincho Light J'" style:font-pitch="variable"/>
- <style:font-face style:name="Thorndale" svg:font-family="Thorndale" style:font-family-generic="roman" style:font-pitch="variable"/>
- <style:font-face style:name="Times New Roman" svg:font-family="'Times New Roman'" style:font-family-generic="roman" style:font-pitch="variable"/>
- <style:font-face style:name="Albany" svg:font-family="Albany" style:font-family-generic="swiss" style:font-pitch="variable"/>
- <style:font-face style:name="SimSun" svg:font-family="SimSun" style:font-family-generic="system" style:font-pitch="variable"/>
- <style:font-face style:name="Tahoma" svg:font-family="Tahoma" style:font-family-generic="system" style:font-pitch="variable"/>
- </office:font-face-decls>
-
- <!-- automatic styles -->
- <office:automatic-styles>
-
- <!-- Section styles -->
-
- <!-- Section styles for Table Of Contents and Other Indices -->
- <style:style style:name="OrgIndexSection" style:family="section">
- <style:section-properties fo:background-color="#c0c0c0" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- <style:background-image/>
- </style:section-properties>
- </style:style>
-
- <!-- Indented sections, used as container for tables that occur
- within list items -->
- <style:style style:name="OrgIndentedSection-Level-1" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="1.281cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-2" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="1.905cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-3" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="2.54cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-4" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="3.175cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-5" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="3.81cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-6" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="4.445cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-7" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="5.08cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-8" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="5.715cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-9" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="6.35cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
- <style:style style:name="OrgIndentedSection-Level-10" style:family="section">
- <style:section-properties text:dont-balance-text-columns="false" fo:margin-left="6.985cm" fo:margin-right="0cm" style:editable="false">
- <style:columns fo:column-count="1" fo:column-gap="0cm"/>
- </style:section-properties>
- </style:style>
-
- <!-- Table styles -->
- <style:style style:name="OrgTable" style:family="table">
- <style:table-properties style:rel-width="96%" fo:margin-top="0cm" fo:margin-bottom="0.20cm" table:align="center"/>
- </style:style>
-
- <style:style style:name="OrgTableColumn" style:family="table-column">
- <style:table-column-properties style:rel-column-width="1*"/>
- </style:style>
-
- <style:style style:name="OrgTblCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="top" fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="none" fo:border-left="none" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellL" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="none" fo:border-left="0.002cm solid #000000" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="none" fo:border-left="none" fo:border-right="0.002cm solid #000000"/>
- </style:style>
- <style:style style:name="OrgTblCellLR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="none" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000"/>
- </style:style>
- <style:style style:name="OrgTblCellT" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="none" fo:border-left="none" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellTL" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="none" fo:border-left="0.002cm solid #000000" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellTR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="none" fo:border-left="none" fo:border-right="0.002cm solid #000000"/>
- </style:style>
- <style:style style:name="OrgTblCellTLR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="none" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000"/>
- </style:style>
- <style:style style:name="OrgTblCellB" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="0.002cm solid #000000" fo:border-left="none" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellBL" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="0.002cm solid #000000" fo:border-left="0.002cm solid #000000" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellBR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="0.002cm solid #000000" fo:border-left="none" fo:border-right="0.002cm solid #000000"/>
- </style:style>
- <style:style style:name="OrgTblCellBLR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="0.002cm solid #000000" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000"/>
- </style:style>
- <style:style style:name="OrgTblCellTB" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000" fo:border-left="none" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellTBL" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000" fo:border-left="0.002cm solid #000000" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgTblCellTBR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000" fo:border-left="none" fo:border-right="0.002cm solid #000000"/>
- </style:style>
- <style:style style:name="OrgTblCellTBLR" style:family="table-cell" style:parent-style-name="OrgTblCell">
- <style:table-cell-properties fo:padding="0.159cm" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000"/>
- </style:style>
-
- <!-- BEGIN: Table styles for numbered equations -->
- <style:style style:name="OrgEquation" style:family="table">
- <style:table-properties style:rel-width="100%" fo:margin-top="0cm" fo:margin-bottom="0.20cm" table:align="center"/>
- </style:style>
- <style:style style:name="OrgEquationTableColumn" style:family="table-column">
- <style:table-column-properties style:rel-column-width="1*"/>
- </style:style>
- <style:style style:name="OrgFirstEquationFirstColumnTableCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="middle" fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="none" fo:border-left="none" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgEquationLastColumnTableCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="middle" fo:padding="0.159cm" fo:border-top="none" fo:border-bottom="none" fo:border-left="none" fo:border-right="none"/>
- </style:style>
- <style:style style:name="OrgEquationFirstColumnTableParagraph" style:family="paragraph" style:parent-style-name="Table_20_Contents">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="OrgEquationLastColumnTableParagraph" style:family="paragraph" style:parent-style-name="Table_20_Contents">
- <style:paragraph-properties fo:text-align="end" style:justify-single-word="false"/>
- </style:style>
- <!-- END: Table styles for numbered equations -->
-
- <!-- BEGIN: Custom Table Template -->
- <style:style style:name="Custom" style:family="table">
- <style:table-properties style:rel-width="80%" table:align="center"/>
- </style:style>
-
- <style:style style:name="CustomColumn" style:family="table-column">
- <style:table-column-properties style:rel-column-width="1*"/>
- </style:style>
-
- <!-- Table Paragraph Styles -->
- <style:style style:name="CustomTableParagraph" style:family="paragraph" style:parent-style-name="Table_20_Contents">
- <style:paragraph-properties fo:text-align="start" style:justify-single-word="false"/>
- <style:text-properties fo:color="#000000" style:text-outline="false" style:text-line-through-style="none" style:font-name="Times New Roman" fo:font-size="12pt" fo:font-style="normal" fo:text-shadow="none" style:text-underline-style="none" fo:font-weight="normal" style:font-size-asian="12pt" style:font-style-asian="normal" style:font-weight-asian="normal" style:font-size-complex="12pt" style:font-style-complex="normal" style:font-weight-complex="normal" style:text-overline-style="none" style:text-overline-color="font-color"/>
- </style:style>
-
- <style:style style:name="CustomLastRowTableParagraph" style:family="paragraph" style:parent-style-name="Table_20_Contents">
- <style:paragraph-properties fo:text-align="start" style:justify-single-word="false"/>
- <style:text-properties fo:color="#000000" style:text-outline="false" style:text-line-through-style="none" style:font-name="Times New Roman" fo:font-size="12pt" fo:font-style="normal" fo:text-shadow="none" style:text-underline-style="none" fo:font-weight="normal" style:font-size-asian="12pt" style:font-style-asian="normal" style:font-weight-asian="normal" style:font-size-complex="12pt" style:font-style-complex="normal" style:font-weight-complex="normal" style:text-overline-style="none" style:text-overline-color="font-color"/>
- </style:style>
-
- <style:style style:name="CustomLastColumnTableParagraph" style:family="paragraph" style:parent-style-name="Table_20_Contents">
- <style:paragraph-properties fo:text-align="start" style:justify-single-word="false"/>
- <style:text-properties fo:color="#000000" style:text-outline="false" style:text-line-through-style="none" style:font-name="Times New Roman" fo:font-size="12pt" fo:font-style="normal" fo:text-shadow="none" style:text-underline-style="none" fo:font-weight="normal" style:font-size-asian="12pt" style:font-style-asian="normal" style:font-weight-asian="normal" style:font-size-complex="12pt" style:font-style-complex="normal" style:font-weight-complex="normal" style:text-overline-style="none" style:text-overline-color="font-color"/>
- </style:style>
-
- <style:style style:name="CustomFirstRowTableParagraph" style:family="paragraph" style:parent-style-name="Table_20_Contents">
- <style:paragraph-properties fo:text-align="start" style:justify-single-word="false"/>
- <style:text-properties fo:color="#ffffff" style:text-outline="false" style:text-line-through-style="none" style:font-name="Times New Roman" fo:font-size="12pt" fo:font-style="normal" fo:text-shadow="none" style:text-underline-style="none" fo:font-weight="normal" style:font-size-asian="12pt" style:font-style-asian="normal" style:font-weight-asian="normal" style:font-size-complex="12pt" style:font-style-complex="normal" style:font-weight-complex="normal" style:text-overline-style="none" style:text-overline-color="font-color"/>
- </style:style>
-
- <style:style style:name="CustomFirstColumnTableParagraph" style:family="paragraph" style:parent-style-name="Table_20_Contents">
- <style:paragraph-properties fo:text-align="start" style:justify-single-word="false"/>
- <style:text-properties fo:color="#ffffff" style:text-outline="false" style:text-line-through-style="none" style:font-name="Times New Roman" fo:font-size="12pt" fo:font-style="normal" fo:text-shadow="none" style:text-underline-style="none" fo:font-weight="normal" style:font-size-asian="12pt" style:font-style-asian="normal" style:font-weight-asian="normal" style:font-size-complex="12pt" style:font-style-complex="normal" style:font-weight-complex="normal" style:text-overline-style="none" style:text-overline-color="font-color"/>
- </style:style>
-
- <!-- Table Cell Styles -->
- <style:style style:name="CustomTableCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="top" fo:background-color="#ffffff" fo:padding="0.097cm" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000">
- <style:background-image/>
- </style:table-cell-properties>
- </style:style>
-
- <style:style style:name="CustomFirstRowTableCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="top" fo:background-color="#000080" fo:padding="0.097cm" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000">
- <style:background-image/>
- </style:table-cell-properties>
- </style:style>
-
- <style:style style:name="CustomLastRowTableCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="top" fo:background-color="#cccccc" fo:padding="0.097cm" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000">
- <style:background-image/>
- </style:table-cell-properties>
- </style:style>
-
- <style:style style:name="CustomFirstColumnTableCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="top" fo:background-color="#4d4d4d" fo:padding="0.097cm" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000">
- <style:background-image/>
- </style:table-cell-properties>
- </style:style>
-
- <style:style style:name="CustomLastColumnTableCell" style:family="table-cell">
- <style:table-cell-properties style:vertical-align="top" fo:background-color="#cccccc" fo:padding="0.097cm" fo:border-left="0.002cm solid #000000" fo:border-right="0.002cm solid #000000" fo:border-top="0.002cm solid #000000" fo:border-bottom="0.002cm solid #000000">
- <style:background-image/>
- </style:table-cell-properties>
- </style:style>
-
- <!-- END: Custom Table Template -->
-
- </office:automatic-styles>
-
- <office:body>
- <office:text>
- <text:sequence-decls>
- <text:sequence-decl text:display-outline-level="0" text:name="Illustration"/>
- <text:sequence-decl text:display-outline-level="0" text:name="Table"/>
- <text:sequence-decl text:display-outline-level="0" text:name="Text"/>
- <text:sequence-decl text:display-outline-level="0" text:name="Drawing"/>
- <text:sequence-decl text:display-outline-level="0" text:name="Equation"/>
- <text:sequence-decl text:display-outline-level="0" text:name="Figure"/>
- <text:sequence-decl text:display-outline-level="0" text:name="Listing"/>
- </text:sequence-decls>
- </office:text>
- </office:body>
-</office:document-content>
diff --git a/elpa/org-9.1.14/etc/styles/OrgOdtStyles.xml b/elpa/org-9.1.14/etc/styles/OrgOdtStyles.xml
deleted file mode 100644
index 1a8edee..0000000
--- a/elpa/org-9.1.14/etc/styles/OrgOdtStyles.xml
+++ /dev/null
@@ -1,861 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!-- See etc/org/README for copyright information -->
-<office:document-styles xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0" xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0" xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0" xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0" xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0" xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0" xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0" xmlns:math="http://www.w3.org/1998/Math/MathML" xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0" xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer" xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events" xmlns:rpt="http://openoffice.org/2005/report" xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:grddl="http://www.w3.org/2003/g/data-view#" office:version="1.2">
- <office:font-face-decls>
- <style:font-face style:name="OpenSymbol" svg:font-family="OpenSymbol"/>
- <style:font-face style:name="Tahoma1" svg:font-family="Tahoma"/>
- <style:font-face style:name="Courier New" svg:font-family="'Courier New'" style:font-family-generic="modern" style:font-pitch="fixed"/>
- <style:font-face style:name="NSimSun" svg:font-family="NSimSun" style:font-family-generic="modern" style:font-pitch="fixed"/>
- <style:font-face style:name="Times New Roman" svg:font-family="'Times New Roman'" style:font-family-generic="roman" style:font-pitch="variable"/>
- <style:font-face style:name="Arial" svg:font-family="Arial" style:font-family-generic="swiss" style:font-pitch="variable"/>
- <style:font-face style:name="SimSun" svg:font-family="SimSun" style:font-family-generic="system" style:font-pitch="variable"/>
- <style:font-face style:name="Tahoma" svg:font-family="Tahoma" style:font-family-generic="system" style:font-pitch="variable"/>
- </office:font-face-decls>
- <office:styles>
- <style:default-style style:family="graphic">
- <style:graphic-properties draw:shadow-offset-x="0.3cm" draw:shadow-offset-y="0.3cm" draw:start-line-spacing-horizontal="0.283cm" draw:start-line-spacing-vertical="0.283cm" draw:end-line-spacing-horizontal="0.283cm" draw:end-line-spacing-vertical="0.283cm" style:flow-with-text="false"/>
- <style:paragraph-properties style:text-autospace="ideograph-alpha" style:line-break="strict" style:writing-mode="lr-tb" style:font-independent-line-spacing="false">
- <style:tab-stops/>
- </style:paragraph-properties>
- <style:text-properties style:use-window-font-color="true" fo:font-size="12pt" fo:language="en" fo:country="GB" style:letter-kerning="true" style:font-size-asian="12pt" style:language-asian="zh" style:country-asian="CN" style:font-size-complex="12pt" style:language-complex="hi" style:country-complex="IN"/>
- </style:default-style>
- <style:default-style style:family="paragraph">
- <style:paragraph-properties fo:hyphenation-ladder-count="no-limit" style:text-autospace="ideograph-alpha" style:punctuation-wrap="hanging" style:line-break="strict" style:tab-stop-distance="1.251cm" style:writing-mode="page"/>
- <style:text-properties style:use-window-font-color="true" style:font-name="Times New Roman" fo:font-size="12pt" fo:language="en" fo:country="GB" style:letter-kerning="true" style:font-name-asian="SimSun" style:font-size-asian="12pt" style:language-asian="zh" style:country-asian="CN" style:font-name-complex="Tahoma" style:font-size-complex="12pt" style:language-complex="hi" style:country-complex="IN" fo:hyphenate="false" fo:hyphenation-remain-char-count="2" fo:hyphenation-push-char-count="2"/>
- </style:default-style>
- <style:default-style style:family="table">
- <style:table-properties table:border-model="collapsing"/>
- </style:default-style>
- <style:default-style style:family="table-row">
- <style:table-row-properties fo:keep-together="auto"/>
- </style:default-style>
-
- <!-- Outline numbering -->
- <text:outline-style style:name="OrgOutline">
- <text:outline-level-style text:level="1" style:num-suffix=". " style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-0.762cm" fo:margin-left="0.762cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="2" style:num-suffix=". " style:num-format="1" text:display-levels="2">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-1.016cm" fo:margin-left="1.016cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="3" style:num-suffix=". " style:num-format="1" text:display-levels="3">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-1.27cm" fo:margin-left="1.27cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="4" style:num-suffix=". " style:num-format="1" text:display-levels="4">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-1.524cm" fo:margin-left="1.524cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="5" style:num-suffix=". " style:num-format="1" text:display-levels="5">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-1.778cm" fo:margin-left="1.778cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="6" style:num-suffix=". " style:num-format="1" text:display-levels="6">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-2.032cm" fo:margin-left="2.032cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="7" style:num-suffix=". " style:num-format="1" text:display-levels="7">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-2.286cm" fo:margin-left="2.286cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="8" style:num-suffix=". " style:num-format="1" text:display-levels="8">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-2.54cm" fo:margin-left="2.54cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="9" style:num-suffix=". " style:num-format="1" text:display-levels="9">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-2.794cm" fo:margin-left="2.794cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- <text:outline-level-style text:level="10" style:num-suffix=". " style:num-format="1" text:display-levels="10">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="nothing" fo:text-indent="-3.048cm" fo:margin-left="3.048cm"/>
- </style:list-level-properties>
- </text:outline-level-style>
- </text:outline-style>
-
- <style:style style:name="Standard" style:family="paragraph" style:class="text"/>
- <style:style style:name="Heading" style:family="paragraph" style:parent-style-name="Standard" style:next-style-name="Text_20_body" style:class="text">
- <style:paragraph-properties fo:margin-top="0.423cm" fo:margin-bottom="0.212cm" fo:keep-with-next="always">
- <style:tab-stops>
- <style:tab-stop style:position="17cm" style:type="right"/>
- </style:tab-stops>
- </style:paragraph-properties>
- <style:text-properties style:font-name="Arial" fo:font-size="14pt" style:font-name-asian="SimSun" style:font-size-asian="14pt" style:font-name-complex="Tahoma" style:font-size-complex="14pt"/>
- </style:style>
- <style:style style:name="Text_20_body" style:display-name="Text body" style:family="paragraph" style:parent-style-name="Standard" style:class="text">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0.212cm"/>
- </style:style>
- <style:style style:name="List" style:family="paragraph" style:parent-style-name="Text_20_body" style:class="list">
- <style:text-properties style:font-name-complex="Tahoma1"/>
- </style:style>
- <style:style style:name="Caption" style:family="paragraph" style:parent-style-name="Standard" style:class="extra">
- <style:paragraph-properties fo:margin-top="0.212cm" fo:margin-bottom="0.212cm" text:number-lines="false" text:line-number="0"/>
- <style:text-properties fo:font-size="12pt" fo:font-style="italic" style:font-size-asian="12pt" style:font-style-asian="italic" style:font-name-complex="Tahoma1" style:font-size-complex="12pt" style:font-style-complex="italic"/>
- </style:style>
- <style:style style:name="Index" style:family="paragraph" style:parent-style-name="Standard" style:class="index">
- <style:paragraph-properties text:number-lines="false" text:line-number="0"/>
- <style:text-properties style:font-name-complex="Tahoma1"/>
- </style:style>
- <style:style style:name="Heading_20_1" style:display-name="Heading 1" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="1" style:class="text">
- <style:text-properties fo:font-size="115%" fo:font-weight="bold" style:font-size-asian="115%" style:font-weight-asian="bold" style:font-size-complex="115%" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_1_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_1" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_2" style:display-name="Heading 2" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="2" style:class="text">
- <style:text-properties fo:font-size="14pt" fo:font-style="italic" fo:font-weight="bold" style:font-size-asian="14pt" style:font-style-asian="italic" style:font-weight-asian="bold" style:font-size-complex="14pt" style:font-style-complex="italic" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_2_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_2" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_3" style:display-name="Heading 3" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="3" style:class="text">
- <style:text-properties fo:font-size="14pt" fo:font-weight="bold" style:font-size-asian="14pt" style:font-weight-asian="bold" style:font-size-complex="14pt" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_3_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_3" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_4" style:display-name="Heading 4" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="4" style:class="text">
- <style:text-properties fo:font-size="85%" fo:font-style="italic" fo:font-weight="bold" style:font-size-asian="85%" style:font-style-asian="italic" style:font-weight-asian="bold" style:font-size-complex="85%" style:font-style-complex="italic" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_4_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_4" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_5" style:display-name="Heading 5" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="5" style:class="text">
- <style:text-properties fo:font-size="85%" fo:font-weight="bold" style:font-size-asian="85%" style:font-weight-asian="bold" style:font-size-complex="85%" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_5_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_5" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_6" style:display-name="Heading 6" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="6" style:class="text">
- <style:text-properties fo:font-size="75%" fo:font-weight="bold" style:font-size-asian="75%" style:font-weight-asian="bold" style:font-size-complex="75%" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_6_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_6" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_7" style:display-name="Heading 7" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="7" style:class="text">
- <style:text-properties fo:font-size="75%" fo:font-weight="bold" style:font-size-asian="75%" style:font-weight-asian="bold" style:font-size-complex="75%" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_7_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_7" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_8" style:display-name="Heading 8" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="8" style:class="text">
- <style:text-properties fo:font-size="75%" fo:font-weight="bold" style:font-size-asian="75%" style:font-weight-asian="bold" style:font-size-complex="75%" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_8_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_8" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_9" style:display-name="Heading 9" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="9" style:class="text">
- <style:text-properties fo:font-size="75%" fo:font-weight="bold" style:font-size-asian="75%" style:font-weight-asian="bold" style:font-size-complex="75%" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_9_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_9" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_10" style:display-name="Heading 10" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:default-outline-level="10" style:class="text">
- <style:text-properties fo:font-size="75%" fo:font-weight="bold" style:font-size-asian="75%" style:font-weight-asian="bold" style:font-size-complex="75%" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Heading_20_10_unnumbered" style:family="paragraph" style:parent-style-name="Heading_20_10" style:list-style-name="">
- </style:style>
- <style:style style:name="Heading_20_1.title" style:display-name="Heading 1.title" style:family="paragraph" style:parent-style-name="Heading_20_1">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="Title" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Subtitle" style:class="chapter">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- <style:text-properties fo:font-size="18pt" fo:font-weight="bold" style:font-size-asian="18pt" style:font-weight-asian="bold" style:font-size-complex="18pt" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="OrgTitle" style:family="paragraph" style:parent-style-name="Title">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0cm"/>
- <style:text-properties fo:font-size="24pt"/>
- </style:style>
- <style:style style:name="Subtitle" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:class="chapter">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- <style:text-properties fo:font-size="14pt" fo:font-style="italic" style:font-size-asian="14pt" style:font-style-asian="italic" style:font-size-complex="14pt" style:font-style-complex="italic"/>
- </style:style>
- <style:style style:name="OrgSubtitle" style:family="paragraph" style:parent-style-name="Subtitle">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0cm"/>
- <style:text-properties fo:font-size="20pt"/>
- </style:style>
- <style:style style:name="Text_20_body_20_indent" style:display-name="Text body indent" style:family="paragraph" style:parent-style-name="Text_20_body" style:class="text">
- <style:paragraph-properties fo:margin-left="0.499cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false"/>
- </style:style>
- <style:style style:name="List_20_Indent" style:display-name="List Indent" style:family="paragraph" style:parent-style-name="Text_20_body" style:class="text">
- <style:paragraph-properties fo:margin-left="5.001cm" fo:margin-right="0cm" fo:text-indent="-4.5cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="0cm"/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="First_20_line_20_indent" style:display-name="First line indent" style:family="paragraph" style:parent-style-name="Text_20_body" style:class="text">
- <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0.499cm" style:auto-text-indent="false"/>
- </style:style>
- <style:style style:name="Hanging_20_indent" style:display-name="Hanging indent" style:family="paragraph" style:parent-style-name="Text_20_body" style:class="text">
- <style:paragraph-properties fo:margin-left="1cm" fo:margin-right="0cm" fo:text-indent="-0.499cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="0cm"/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Salutation" style:family="paragraph" style:parent-style-name="Standard" style:class="text">
- <style:paragraph-properties text:number-lines="false" text:line-number="0"/>
- </style:style>
- <style:style style:name="Contents_20_Heading" style:display-name="Contents Heading" style:family="paragraph" style:parent-style-name="Heading" style:class="index">
- <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false" text:number-lines="false" text:line-number="0"/>
- <style:text-properties fo:font-size="16pt" fo:font-weight="bold" style:font-size-asian="16pt" style:font-weight-asian="bold" style:font-size-complex="16pt" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Contents_20_1" style:display-name="Contents 1" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="17cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_2" style:display-name="Contents 2" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="0.499cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="16.501cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_3" style:display-name="Contents 3" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="0.998cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="16.002cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_4" style:display-name="Contents 4" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="1.498cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="15.503cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_5" style:display-name="Contents 5" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="1.997cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="15.004cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_6" style:display-name="Contents 6" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="2.496cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="14.504cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_7" style:display-name="Contents 7" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="2.995cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="14.005cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_8" style:display-name="Contents 8" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="3.494cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="13.506cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_9" style:display-name="Contents 9" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="3.993cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="13.007cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Contents_20_10" style:display-name="Contents 10" style:family="paragraph" style:parent-style-name="Index" style:class="index">
- <style:paragraph-properties fo:margin-left="4.493cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false">
- <style:tab-stops>
- <style:tab-stop style:position="12.508cm" style:type="right" style:leader-style="dotted" style:leader-text="."/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Quotations" style:family="paragraph" style:parent-style-name="Standard" style:class="html">
- <style:paragraph-properties fo:margin-left="1cm" fo:margin-right="1cm" fo:margin-top="0cm" fo:margin-bottom="0.499cm" fo:text-indent="0cm" style:auto-text-indent="false"/>
- </style:style>
- <style:style style:name="OrgFootnoteQuotations" style:family="paragraph" style:parent-style-name="Footnote" style:class="html">
- <style:paragraph-properties fo:margin-left="1cm" fo:margin-right="1cm" fo:margin-top="0cm" fo:margin-bottom="0.499cm" fo:text-indent="0cm" style:auto-text-indent="false"/>
- </style:style>
- <style:style style:name="Preformatted_20_Text" style:display-name="Preformatted Text" style:family="paragraph" style:parent-style-name="Standard" style:class="html">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0cm"/>
- <style:text-properties style:font-name="Courier New" fo:font-size="10pt" style:font-name-asian="NSimSun" style:font-size-asian="10pt" style:font-name-complex="Courier New" style:font-size-complex="10pt"/>
- </style:style>
-
- <style:style style:name="OrgVerse" style:family="paragraph" style:parent-style-name="Preformatted_20_Text">
- <style:paragraph-properties fo:background-color="transparent" fo:padding="0cm" fo:border="none" style:shadow="none">
- <style:background-image/>
- </style:paragraph-properties>
- </style:style>
-
- <style:style style:name="OrgClock" style:family="paragraph" style:parent-style-name="Text_20_body">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0cm"/>
- </style:style>
- <style:style style:name="OrgClockLastLine" style:family="paragraph" style:parent-style-name="OrgClock"/>
- <style:style style:name="OrgPlanning" style:family="paragraph" style:parent-style-name="Text_20_body"/>
-
- <!-- Fixed width block -->
- <style:style style:name="OrgFixedWidthBlock" style:family="paragraph" style:parent-style-name="Preformatted_20_Text">
- <style:paragraph-properties fo:background-color="#c0c0c0" fo:padding="0.049cm" fo:border="0.06pt solid #000000" style:shadow="none">
- <style:background-image/>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="OrgFixedWidthBlockLastLine" style:family="paragraph" style:parent-style-name="OrgFixedWidthBlock">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0.21cm"/>
- </style:style>
-
- <style:style style:name="OrgFormula" style:family="paragraph" style:parent-style-name="Text_20_body">
- <style:paragraph-properties>
- <style:tab-stops>
- <style:tab-stop style:position="17cm" style:type="right"/>
- </style:tab-stops>
- </style:paragraph-properties>
- </style:style>
-
- <style:style style:name="OrgSrcBlockLastLine" style:family="paragraph" style:parent-style-name="OrgSrcBlock">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0.21cm"/>
- </style:style>
-
- <style:style style:name="OrgCenter" style:family="paragraph" style:parent-style-name="Text_20_body">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="OrgFootnoteCenter" style:family="paragraph" style:parent-style-name="Footnote">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="OrgTableContents" style:family="paragraph" style:parent-style-name="Text_20_body"/>
- <style:style style:name="OrgTableHeading" style:family="paragraph" style:parent-style-name="OrgTableContents" style:class="extra">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false" text:number-lines="false" text:line-number="0"/>
- <style:text-properties fo:font-weight="bold" style:font-weight-asian="bold" style:font-weight-complex="bold"/>
- </style:style>
-
- <style:style style:name="OrgTableHeadingLeft" style:family="paragraph" style:parent-style-name="OrgTableHeading">
- <style:paragraph-properties fo:text-align="left" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="OrgTableHeadingRight" style:family="paragraph" style:parent-style-name="OrgTableHeading">
- <style:paragraph-properties fo:text-align="right" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="OrgTableHeadingCenter" style:family="paragraph" style:parent-style-name="OrgTableHeading">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
-
- <style:style style:name="OrgTableContentsLeft" style:family="paragraph" style:parent-style-name="OrgTableContents">
- <style:paragraph-properties fo:text-align="left" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="OrgTableContentsRight" style:family="paragraph" style:parent-style-name="OrgTableContents">
- <style:paragraph-properties fo:text-align="right" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="OrgTableContentsCenter" style:family="paragraph" style:parent-style-name="OrgTableContents">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="Text_20_body_20_bold" style:display-name="Text body bold" style:family="paragraph" style:parent-style-name="Text_20_body" style:next-style-name="Text_20_body">
- <style:text-properties fo:font-weight="bold"/>
- </style:style>
- <style:style style:name="Footnote" style:family="paragraph" style:parent-style-name="Standard" style:class="extra">
- <style:paragraph-properties fo:margin-left="0.499cm" fo:margin-right="0cm" fo:text-indent="-0.499cm" style:auto-text-indent="false" text:number-lines="false" text:line-number="0"/>
- <style:text-properties fo:font-size="10pt" style:font-size-asian="10pt" style:font-size-complex="10pt"/>
- </style:style>
- <style:style style:name="Figure" style:family="paragraph" style:parent-style-name="Caption"/>
- <style:style style:name="Illustration_20_Index_20_Heading" style:display-name="Illustration Index Heading" style:family="paragraph" style:parent-style-name="Heading" style:class="index">
- <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false" text:number-lines="false" text:line-number="0"/>
- <style:text-properties fo:font-size="16pt" fo:font-weight="bold" style:font-size-asian="16pt" style:font-weight-asian="bold" style:font-size-complex="16pt" style:font-weight-complex="bold"/>
- </style:style>
- <style:style style:name="Table" style:family="paragraph" style:parent-style-name="Caption" style:class="extra">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
- <style:style style:name="Listing" style:family="paragraph" style:parent-style-name="Caption" style:class="extra">
- <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false" fo:keep-with-next="always">
- <style:tab-stops/>
- </style:paragraph-properties>
- </style:style>
- <style:style style:name="Horizontal_20_Line" style:display-name="Horizontal Line" style:family="paragraph" style:parent-style-name="Standard" style:next-style-name="Text_20_body" style:class="html">
- <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0.21cm" style:page-number="auto" fo:padding="0cm" fo:border-left="none" fo:border-right="none" fo:border-top="none" fo:border-bottom="0.06pt solid #000000" style:shadow="none" text:number-lines="false" text:line-number="0" style:join-border="false"/>
- <style:text-properties fo:font-size="6pt" style:font-size-asian="6pt" style:font-size-complex="6pt"/>
- </style:style>
-
- <style:style style:name="Emphasis" style:family="text">
- <style:text-properties fo:font-style="italic" style:font-style-asian="italic" style:font-style-complex="italic"/>
- </style:style>
- <style:style style:name="Underline" style:family="text">
- <style:text-properties style:text-underline-style="solid" style:text-underline-width="auto" style:text-underline-color="font-color" fo:background-color="transparent"/>
- </style:style>
- <style:style style:name="Strikethrough" style:family="text">
- <style:text-properties style:text-line-through-style="solid"/>
- </style:style>
- <style:style style:name="Source_20_Text" style:display-name="Source Text" style:family="text">
- <style:text-properties style:font-name="Courier New" fo:background-color="transparent" style:font-name-asian="NSimSun" style:font-name-complex="Courier New"/>
- </style:style>
- <style:style style:name="Citation" style:family="text">
- <style:text-properties fo:font-style="italic" style:font-style-asian="italic" style:font-style-complex="italic"/>
- </style:style>
- <style:style style:name="Example" style:family="text">
- <style:text-properties style:font-name="Courier New" fo:background-color="transparent" style:font-name-asian="NSimSun" style:font-name-complex="Courier New"/>
- </style:style>
- <style:style style:name="OrgCode" style:family="text" style:parent-style-name="Source_20_Text"/>
-
- <!-- BEGIN: Org Agenda Styles -->
- <style:style style:name="OrgTodo" style:family="text"/>
- <style:style style:name="OrgDone" style:family="text"/>
-
- <style:style style:name="OrgTag" style:family="text">
- <style:text-properties fo:font-variant="small-caps" fo:background-color="transparent"/>
- </style:style>
- <style:style style:name="OrgTags" style:family="text"/>
-
- <style:style style:name="OrgPriority" style:family="text"/>
- <style:style style:name="OrgPriority-A" style:family="text" style:parent-style-name="OrgPriority"/>
- <style:style style:name="OrgPriority-B" style:family="text" style:parent-style-name="OrgPriority"/>
- <style:style style:name="OrgPriority-C" style:family="text" style:parent-style-name="OrgPriority"/>
-
- <style:style style:name="OrgTimestamp" style:display-name="OrgTimestamp" style:family="text">
- <style:text-properties style:font-name="Courier New" fo:background-color="transparent" style:font-name-asian="NSimSun" style:font-name-complex="Courier New"/>
- </style:style>
- <style:style style:name="OrgActiveTimestamp" style:family="text" style:parent-style-name="OrgTimestamp"/>
- <style:style style:name="OrgInactiveTimestamp" style:family="text" style:parent-style-name="OrgTimestamp"/>
- <style:style style:name="OrgTimestampKeyword" style:family="text">
- <style:text-properties style:use-window-font-color="true" fo:font-weight="bold"/>
- </style:style>
- <style:style style:name="OrgScheduledKeyword" style:family="text" style:parent-style-name="OrgTimestampKeyword"/>
- <style:style style:name="OrgDeadlineKeyword" style:family="text" style:parent-style-name="OrgTimestampKeyword"/>
- <style:style style:name="OrgClockKeyword" style:family="text" style:parent-style-name="OrgTimestampKeyword"/>
- <style:style style:name="OrgClosedKeyword" style:family="text" style:parent-style-name="OrgTimestampKeyword"/>
- <style:style style:name="OrgTimestampWrapper" style:family="text"/>
- <style:style style:name="OrgTarget" style:family="text"/>
-
- <number:date-style style:name="OrgDate" number:automatic-order="true">
- <number:day number:style="long"/>
- <number:text>/</number:text>
- <number:month number:style="long"/>
- <number:text>/</number:text>
- <number:year number:style="long"/>
- </number:date-style>
- <!-- END: Org Agenda Styles -->
-
- <style:style style:name="Bold" style:family="text">
- <style:text-properties fo:font-weight="bold"/>
- </style:style>
- <style:style style:name="Numbering_20_Symbols" style:display-name="Numbering Symbols" style:family="text"/>
- <style:style style:name="Footnote_20_Symbol" style:display-name="Footnote Symbol" style:family="text"/>
- <style:style style:name="Footnote_20_anchor" style:display-name="Footnote anchor" style:family="text">
- <style:text-properties style:text-position="super 58%"/>
- </style:style>
- <style:style style:name="OrgSuperscript" style:family="text">
- <style:text-properties style:text-position="super 58%"/>
- </style:style>
- <style:style style:name="OrgSubscript" style:family="text">
- <style:text-properties style:text-position="sub 58%"/>
- </style:style>
- <style:style style:name="Internet_20_link" style:display-name="Internet link" style:family="text">
- <style:text-properties fo:color="#000080" fo:language="zxx" fo:country="none" style:text-underline-style="solid" style:text-underline-width="auto" style:text-underline-color="font-color" style:language-asian="zxx" style:country-asian="none" style:language-complex="zxx" style:country-complex="none"/>
- </style:style>
- <style:style style:name="Graphics" style:family="graphic">
- <style:graphic-properties text:anchor-type="paragraph" svg:x="0cm" svg:y="0cm" style:wrap="none" style:vertical-pos="top" style:vertical-rel="paragraph" style:horizontal-pos="center" style:horizontal-rel="paragraph"/>
- </style:style>
- <style:style style:name="Frame" style:family="graphic">
- <style:graphic-properties text:anchor-type="paragraph" svg:x="0cm" svg:y="0cm" fo:margin-left="0.201cm" fo:margin-right="0.201cm" fo:margin-top="0.201cm" fo:margin-bottom="0.201cm" style:wrap="parallel" style:number-wrapped-paragraphs="no-limit" style:wrap-contour="false" style:vertical-pos="top" style:vertical-rel="paragraph-content" style:horizontal-pos="center" style:horizontal-rel="paragraph-content" fo:padding="0.15cm" fo:border="0.002cm solid #000000"/>
- </style:style>
-
- <!-- Simple Images -->
- <style:style style:name="OrgDisplayImage" style:family="graphic" style:parent-style-name="Graphics">
- <style:graphic-properties text:anchor-type="paragraph" style:wrap="none" style:vertical-pos="top" style:vertical-rel="paragraph" style:horizontal-pos="center" style:horizontal-rel="paragraph"/>
- </style:style>
-
- <style:style style:name="OrgPageImage" style:family="graphic" style:parent-style-name="Graphics">
- <style:graphic-properties text:anchor-type="page" fo:margin-top="0.21cm" fo:margin-bottom="0.21cm" style:vertical-pos="middle" style:vertical-rel="page" style:horizontal-pos="center" style:horizontal-rel="page" fo:background-color="transparent" style:background-transparency="100%" style:shadow="none" style:mirror="none" fo:clip="rect(0cm, 0cm, 0cm, 0cm)" draw:luminance="0%" draw:contrast="0%" draw:red="0%" draw:green="0%" draw:blue="0%" draw:gamma="100%" draw:color-inversion="false" draw:image-opacity="100%" draw:color-mode="standard">
- <style:background-image/>
- </style:graphic-properties>
- </style:style>
-
- <!-- Captioned Images -->
- <style:style style:name="OrgCaptionedImage" style:family="graphic" style:parent-style-name="Graphics">
- <style:graphic-properties style:rel-width="100%" text:anchor-type="paragraph" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0cm" fo:margin-bottom="0cm" style:run-through="foreground" style:wrap="none" style:vertical-pos="from-top" style:vertical-rel="paragraph-content" style:horizontal-pos="from-left" style:horizontal-rel="paragraph-content" fo:padding="0cm" fo:border="none" style:shadow="none"/>
- </style:style>
-
- <style:style style:name="OrgImageCaptionFrame" style:family="graphic" style:parent-style-name="Frame">
- <style:graphic-properties text:anchor-type="paragraph" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0cm" fo:margin-bottom="0cm" style:wrap="none" style:vertical-pos="top" style:vertical-rel="paragraph" style:horizontal-pos="center" style:horizontal-rel="paragraph" fo:padding="0cm" fo:border="none"/>
- </style:style>
-
- <style:style style:name="OrgPageImageCaptionFrame" style:family="graphic" style:parent-style-name="Frame">
- <style:graphic-properties text:anchor-type="paragraph" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0.21cm" fo:margin-bottom="0.21cm" style:wrap="none" style:vertical-pos="middle" style:vertical-rel="page" style:horizontal-pos="center" style:horizontal-rel="page" fo:background-color="transparent" style:background-transparency="100%" fo:padding="0cm" fo:border="none" style:shadow="none">
- <style:background-image/>
- </style:graphic-properties>
- </style:style>
-
- <!-- Inlined Images -->
- <style:style style:name="OrgInlineImage" style:family="graphic" style:parent-style-name="Graphics">
- <style:graphic-properties text:anchor-type="as-char" style:vertical-pos="top" style:vertical-rel="baseline" style:horizontal-pos="center" style:horizontal-rel="paragraph"/>
- </style:style>
-
- <!-- Inline Formula -->
- <style:style style:name="OrgFormula" style:family="graphic">
- <style:graphic-properties text:anchor-type="as-char" svg:y="0cm" fo:margin-left="0.201cm" fo:margin-right="0.201cm" style:vertical-pos="middle" style:vertical-rel="text" style:shadow="none"/>
- </style:style>
-
- <style:style style:name="OrgInlineFormula" style:family="graphic" style:parent-style-name="Formula">
- <style:graphic-properties text:anchor-type="as-char" fo:margin-left="0.201cm" fo:margin-right="0.201cm" style:vertical-pos="middle" style:vertical-rel="text"/>
- </style:style>
-
- <style:style style:name="OrgInlineFormula" style:family="graphic" style:parent-style-name="Formula">
- <style:graphic-properties style:vertical-pos="middle" style:vertical-rel="text" draw:ole-draw-aspect="1"/>
- </style:style>
-
- <style:style style:name="OrgDisplayFormula" style:family="graphic" style:parent-style-name="OrgFormula">
- <style:graphic-properties style:vertical-pos="middle" style:vertical-rel="text" style:horizontal-pos="from-left" style:horizontal-rel="paragraph-content" draw:ole-draw-aspect="1"/>
- </style:style>
-
- <style:style style:name="OrgFormulaCaptionFrame" style:family="graphic" style:parent-style-name="Frame">
- <style:graphic-properties text:anchor-type="paragraph" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0cm" fo:margin-bottom="0cm" style:wrap="right" style:number-wrapped-paragraphs="1" style:wrap-contour="false" style:vertical-pos="top" style:vertical-rel="paragraph" style:horizontal-pos="center" style:horizontal-rel="paragraph" fo:padding="0cm" fo:border="none"/>
- </style:style>
-
- <style:style style:name="OrgCaptionedFormula" style:family="graphic" style:parent-style-name="OrgFormula">
- <style:graphic-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0cm" fo:margin-bottom="0cm" style:run-through="foreground" style:wrap="none" style:vertical-pos="from-top" style:vertical-rel="paragraph-content" style:horizontal-pos="center" style:horizontal-rel="paragraph-content" fo:padding="0cm" fo:border="none" style:shadow="none" draw:ole-draw-aspect="1"/>
- </style:style>
-
- <!-- Inline Tasks -->
- <style:style style:name="OrgInlineTaskHeading" style:family="paragraph" style:parent-style-name="Caption" style:next-style-name="Text_20_body">
- <style:text-properties style:font-name="Arial1" fo:font-style="normal" fo:font-weight="bold"/>
- </style:style>
- <style:style style:name="OrgInlineTaskFrame" style:family="graphic" style:parent-style-name="Frame">
- <style:graphic-properties svg:x="0cm" svg:y="0cm" style:wrap="none" style:vertical-pos="top" style:vertical-rel="paragraph-content" style:horizontal-pos="center" style:horizontal-rel="paragraph-content" fo:background-color="#ffffcc" style:background-transparency="0%" fo:padding="0.15cm" fo:border="0.26pt solid #000000" style:shadow="none">
- <style:background-image/>
- </style:graphic-properties>
- </style:style>
-
- <text:list-style style:name="Numbering_20_1" style:display-name="Numbering 1">
- <text:list-level-style-number text:level="1" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="0.499cm" fo:text-indent="-0.499cm" fo:margin-left="0.499cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="2" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="1cm" fo:text-indent="-0.499cm" fo:margin-left="1cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="3" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="1.499cm" fo:text-indent="-0.499cm" fo:margin-left="1.499cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="4" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="2cm" fo:text-indent="-0.499cm" fo:margin-left="2cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="5" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="2.499cm" fo:text-indent="-0.499cm" fo:margin-left="2.499cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="6" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="3cm" fo:text-indent="-0.499cm" fo:margin-left="3cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="7" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="3.5cm" fo:text-indent="-0.499cm" fo:margin-left="3.5cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="8" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="4.001cm" fo:text-indent="-0.499cm" fo:margin-left="4.001cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="9" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="4.5cm" fo:text-indent="-0.499cm" fo:margin-left="4.5cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="10" text:style-name="Numbering_20_Symbols" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="5.001cm" fo:text-indent="-0.499cm" fo:margin-left="5.001cm"/>
- </style:list-level-properties>
- </text:list-level-style-number>
- </text:list-style>
- <text:list-style style:name="List_20_1" style:display-name="List 1">
- <text:list-level-style-bullet text:level="1" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="0.4cm" fo:text-indent="-0.4cm" fo:margin-left="0.4cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="2" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="0.801cm" fo:text-indent="-0.4cm" fo:margin-left="0.801cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="3" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="1.199cm" fo:text-indent="-0.4cm" fo:margin-left="1.199cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="4" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="1.6cm" fo:text-indent="-0.4cm" fo:margin-left="1.6cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="5" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="2cm" fo:text-indent="-0.4cm" fo:margin-left="2cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="6" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="2.401cm" fo:text-indent="-0.4cm" fo:margin-left="2.401cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="7" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="2.799cm" fo:text-indent="-0.4cm" fo:margin-left="2.799cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="8" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="3.2cm" fo:text-indent="-0.4cm" fo:margin-left="3.2cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="9" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="3.6cm" fo:text-indent="-0.4cm" fo:margin-left="3.6cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="10" text:style-name="Numbering_20_Symbols" text:bullet-char="•">
- <style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
- <style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="4.001cm" fo:text-indent="-0.4cm" fo:margin-left="4.001cm"/>
- </style:list-level-properties>
- <style:text-properties style:font-name="OpenSymbol"/>
- </text:list-level-style-bullet>
- </text:list-style>
-
- <!-- Numbered List -->
- <text:list-style style:name="OrgNumberedList">
- <text:list-level-style-number text:level="1" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="0.635cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="2" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="1.27cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="3" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="1.905cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="4" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="2.54cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="5" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="3.175cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="6" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="3.81cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="7" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="4.445cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="8" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="5.08cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="9" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="5.715cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="10" style:num-suffix="." style:num-format="1">
- <style:list-level-properties text:space-before="6.35cm" text:min-label-width="0.635cm"/>
- </text:list-level-style-number>
- </text:list-style>
-
- <!-- Bulleted List -->
- <text:list-style style:name="OrgBulletedList">
- <text:list-level-style-bullet text:level="1" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="0.635cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="2" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="1.27cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="3" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="1.905cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="4" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="2.54cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="5" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="3.175cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="6" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="3.81cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="7" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="4.445cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="8" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="5.08cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="9" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="5.715cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- <text:list-level-style-bullet text:level="10" text:style-name="Bullet_20_Symbols" style:num-suffix="." text:bullet-char="•">
- <style:list-level-properties text:space-before="6.35cm" text:min-label-width="0.635cm"/>
- <style:text-properties fo:font-family="StarSymbol" style:font-charset="x-symbol"/>
- </text:list-level-style-bullet>
- </text:list-style>
-
- <!-- Description List -->
- <text:list-style style:name="OrgDescriptionList">
- <text:list-level-style-number text:level="1" style:num-format="">
- <style:list-level-properties text:space-before="0.635cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="2" style:num-format="">
- <style:list-level-properties text:space-before="1.27cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="3" style:num-format="">
- <style:list-level-properties text:space-before="1.905cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="4" style:num-format="">
- <style:list-level-properties text:space-before="2.54cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="5" style:num-format="">
- <style:list-level-properties text:space-before="3.175cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="6" style:num-format="">
- <style:list-level-properties text:space-before="3.81cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="7" style:num-format="">
- <style:list-level-properties text:space-before="4.445cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="8" style:num-format="">
- <style:list-level-properties text:space-before="5.08cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="9" style:num-format="">
- <style:list-level-properties text:space-before="5.715cm"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="10" style:num-format="">
- <style:list-level-properties text:space-before="6.35cm"/>
- </text:list-level-style-number>
- </text:list-style>
-
- <text:list-style style:name="OrgSrcBlockNumberedLine">
- <text:list-level-style-number text:level="1" style:num-format="1">
- <style:list-level-properties text:space-before="0.635cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="2" style:num-format="1">
- <style:list-level-properties text:space-before="1.27cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="3" style:num-format="1">
- <style:list-level-properties text:space-before="1.905cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="4" style:num-format="1">
- <style:list-level-properties text:space-before="2.54cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="5" style:num-format="1">
- <style:list-level-properties text:space-before="3.175cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="6" style:num-format="1">
- <style:list-level-properties text:space-before="3.81cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="7" style:num-format="1">
- <style:list-level-properties text:space-before="4.445cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="8" style:num-format="1">
- <style:list-level-properties text:space-before="5.08cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="9" style:num-format="1">
- <style:list-level-properties text:space-before="5.715cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- <text:list-level-style-number text:level="10" style:num-format="1">
- <style:list-level-properties text:space-before="6.35cm" text:min-label-width="0.635cm" text:min-label-distance="0.101cm" fo:text-align="end"/>
- </text:list-level-style-number>
- </text:list-style>
-
- <text:notes-configuration text:note-class="footnote" text:citation-style-name="Footnote_20_Symbol" text:citation-body-style-name="Footnote_20_anchor" style:num-format="1" text:start-value="0" text:footnotes-position="page" text:start-numbering-at="document"/>
- <text:notes-configuration text:note-class="endnote" style:num-format="i" text:start-value="0"/>
- <text:linenumbering-configuration text:number-lines="false" text:offset="0.499cm" style:num-format="1" text:number-position="left" text:increment="5"/>
- </office:styles>
- <office:automatic-styles>
- <style:style style:name="MP1" style:family="paragraph" style:parent-style-name="Footer">
- <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
- </style:style>
- <style:page-layout style:name="Mpm1" style:page-usage="mirrored">
- <style:page-layout-properties fo:page-width="21.001cm" fo:page-height="29.7cm" style:num-format="1" style:print-orientation="portrait" fo:margin-top="2cm" fo:margin-bottom="2cm" fo:margin-left="2cm" fo:margin-right="2cm" style:writing-mode="lr-tb" style:footnote-max-height="0cm">
- <style:footnote-sep style:width="0.018cm" style:distance-before-sep="0.101cm" style:distance-after-sep="0.101cm" style:line-style="none" style:adjustment="left" style:rel-width="25%" style:color="#000000"/>
- </style:page-layout-properties>
- <style:header-style/>
- <style:footer-style>
- <style:header-footer-properties fo:min-height="0.6cm" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0.499cm" style:dynamic-spacing="false"/>
- </style:footer-style>
- </style:page-layout>
- <style:page-layout style:name="Mpm2">
- <style:page-layout-properties fo:page-width="21.001cm" fo:page-height="29.7cm" style:num-format="1" style:print-orientation="portrait" fo:margin-top="2cm" fo:margin-bottom="2cm" fo:margin-left="2cm" fo:margin-right="2cm" style:writing-mode="lr-tb" style:footnote-max-height="0cm">
- <style:footnote-sep style:width="0.018cm" style:distance-before-sep="0.101cm" style:distance-after-sep="0.101cm" style:line-style="solid" style:adjustment="left" style:rel-width="25%" style:color="#000000"/>
- </style:page-layout-properties>
- <style:header-style/>
- <style:footer-style/>
- </style:page-layout>
- <style:page-layout style:name="Mpm3" style:page-usage="mirrored">
- <style:page-layout-properties fo:page-width="21.001cm" fo:page-height="29.7cm" style:num-format="i" style:print-orientation="portrait" fo:margin-top="2cm" fo:margin-bottom="2cm" fo:margin-left="2cm" fo:margin-right="2cm" style:writing-mode="lr-tb" style:footnote-max-height="0cm">
- <style:footnote-sep style:width="0.018cm" style:distance-before-sep="0.101cm" style:distance-after-sep="0.101cm" style:line-style="solid" style:adjustment="left" style:rel-width="25%" style:color="#000000"/>
- </style:page-layout-properties>
- <style:header-style/>
- <style:footer-style>
- <style:header-footer-properties fo:min-height="0cm" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0.499cm"/>
- </style:footer-style>
- </style:page-layout>
- <style:page-layout style:name="Mpm4" style:page-usage="right">
- <style:page-layout-properties fo:page-width="21.001cm" fo:page-height="29.7cm" style:num-format="1" style:print-orientation="portrait" fo:margin-top="2cm" fo:margin-bottom="2cm" fo:margin-left="2cm" fo:margin-right="2cm" fo:background-color="transparent" style:writing-mode="lr-tb" style:footnote-max-height="0cm">
- <style:background-image/>
- <style:footnote-sep style:width="0.018cm" style:distance-before-sep="0.101cm" style:distance-after-sep="0.101cm" style:line-style="solid" style:adjustment="left" style:rel-width="25%" style:color="#000000"/>
- </style:page-layout-properties>
- <style:header-style/>
- <style:footer-style>
- <style:header-footer-properties fo:min-height="0.6cm" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0.499cm" style:dynamic-spacing="false"/>
- </style:footer-style>
- </style:page-layout>
- <style:page-layout style:name="Mpm5" style:page-usage="mirrored">
- <style:page-layout-properties fo:page-width="21.001cm" fo:page-height="29.7cm" style:num-format="1" style:print-orientation="portrait" fo:margin-top="2cm" fo:margin-bottom="2cm" fo:margin-left="2cm" fo:margin-right="2cm" style:writing-mode="lr-tb" style:footnote-max-height="0cm">
- <style:footnote-sep style:width="0.018cm" style:distance-before-sep="0.101cm" style:distance-after-sep="0.101cm" style:line-style="solid" style:adjustment="left" style:rel-width="25%" style:color="#000000"/>
- </style:page-layout-properties>
- <style:header-style/>
- <style:footer-style>
- <style:header-footer-properties fo:min-height="0.6cm" fo:margin-left="0cm" fo:margin-right="0cm" fo:margin-top="0.499cm" style:dynamic-spacing="false"/>
- </style:footer-style>
- </style:page-layout>
- </office:automatic-styles>
- <office:master-styles>
- <style:master-page style:name="Standard" style:page-layout-name="Mpm1">
- <style:footer>
- <text:p text:style-name="MP1"><text:page-number text:select-page="current"></text:page-number></text:p>
- </style:footer>
- </style:master-page>
- <style:master-page style:name="OrgTitlePage" style:page-layout-name="Mpm2" style:next-style-name="OrgFrontMatterPage"/>
- <style:master-page style:name="OrgFrontMatterPage" style:page-layout-name="Mpm3">
- <style:footer>
- <text:p text:style-name="MP1"><text:page-number text:select-page="current"/></text:p>
- </style:footer>
- </style:master-page>
- <style:master-page style:name="OrgFirstPage" style:page-layout-name="Mpm4" style:next-style-name="OrgPage">
- <style:footer>
- <text:p text:style-name="MP1"><text:page-number text:select-page="current"/></text:p>
- </style:footer>
- </style:master-page>
- <style:master-page style:name="OrgPage" style:page-layout-name="Mpm5">
- <style:footer>
- <text:p text:style-name="MP1"><text:page-number text:select-page="current"/></text:p>
- </style:footer>
- </style:master-page>
- </office:master-styles>
-</office:document-styles>
diff --git a/elpa/org-9.1.14/etc/styles/README b/elpa/org-9.1.14/etc/styles/README
deleted file mode 100644
index 7c175e3..0000000
--- a/elpa/org-9.1.14/etc/styles/README
+++ /dev/null
@@ -1,36 +0,0 @@
-The files OrgOdtContentTemplate.xml and OrgOdtStyles.xml have the
-following copyright information:
-
-Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-These files are part of GNU Emacs.
-
-GNU Emacs 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.
-
-GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-
-Author: Jambunathan K <kjambunathan at gmail dot com>
-Keywords: outlines, hypermedia, calendar, wp
-Homepage: https://orgmode.org
-
-Commentary:
-
-These files are part of Org-mode's OpenDocument export module.
-
-OrgOdtContentTemplate.xml provides a template within which the content
-of an exported document is enclosed. This file contributes to
-"content.xml" file within an exported document and acts as a
-repository of automatic styles.
-
-OrgOdtStyles.xml contributes to "styles.xml" file within an exported
-document and acts as a repository of custom styles.
diff --git a/elpa/org-9.1.14/ob-C.el b/elpa/org-9.1.14/ob-C.el
deleted file mode 100644
index ff5be34..0000000
--- a/elpa/org-9.1.14/ob-C.el
+++ /dev/null
@@ -1,469 +0,0 @@
-;;; ob-C.el --- Babel Functions for C and Similar Languages -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Thierry Banel
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating C, C++, D code.
-;;
-;; very limited implementation:
-;; - currently only support :results output
-;; - not much in the way of error feedback
-
-;;; Code:
-
-(require 'cc-mode)
-(require 'ob)
-
-
-(declare-function org-entry-get "org" (pom property &optional inherit literal-nil))
-(declare-function org-remove-indentation "org" (code &optional n))
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("C++" . "cpp"))
-(add-to-list 'org-babel-tangle-lang-exts '("D" . "d"))
-
-(defvar org-babel-default-header-args:C '())
-
-(defconst org-babel-header-args:C '((includes . :any)
- (defines . :any)
- (main . :any)
- (flags . :any)
- (cmdline . :any)
- (libs . :any))
- "C/C++-specific header arguments.")
-
-(defconst org-babel-header-args:C++
- (append '((namespaces . :any))
- org-babel-header-args:C)
- "C++-specific header arguments.")
-
-(defcustom org-babel-C-compiler "gcc"
- "Command used to compile a C source code file into an executable.
-May be either a command in the path, like gcc
-or an absolute path name, like /usr/local/bin/gcc
-parameter may be used, like gcc -v"
- :group 'org-babel
- :version "24.3"
- :type 'string)
-
-(defcustom org-babel-C++-compiler "g++"
- "Command used to compile a C++ source code file into an executable.
-May be either a command in the path, like g++
-or an absolute path name, like /usr/local/bin/g++
-parameter may be used, like g++ -v"
- :group 'org-babel
- :version "24.3"
- :type 'string)
-
-(defcustom org-babel-D-compiler "rdmd"
- "Command used to compile and execute a D source code file.
-May be either a command in the path, like rdmd
-or an absolute path name, like /usr/local/bin/rdmd
-parameter may be used, like rdmd --chatty"
- :group 'org-babel
- :version "24.3"
- :type 'string)
-
-(defvar org-babel-c-variant nil
- "Internal variable used to hold which type of C (e.g. C or C++ or D)
-is currently being evaluated.")
-
-(defun org-babel-execute:cpp (body params)
- "Execute BODY according to PARAMS.
-This function calls `org-babel-execute:C++'."
- (org-babel-execute:C++ body params))
-
-(defun org-babel-expand-body:cpp (body params)
- "Expand a block of C++ code with org-babel according to its
-header arguments."
- (org-babel-expand-body:C++ body params))
-
-(defun org-babel-execute:C++ (body params)
- "Execute a block of C++ code with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (let ((org-babel-c-variant 'cpp)) (org-babel-C-execute body params)))
-
-(defun org-babel-expand-body:C++ (body params)
- "Expand a block of C++ code with org-babel according to its
-header arguments."
- (let ((org-babel-c-variant 'cpp)) (org-babel-C-expand-C++ body params)))
-
-(defun org-babel-execute:D (body params)
- "Execute a block of D code with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (let ((org-babel-c-variant 'd)) (org-babel-C-execute body params)))
-
-(defun org-babel-expand-body:D (body params)
- "Expand a block of D code with org-babel according to its
-header arguments."
- (let ((org-babel-c-variant 'd)) (org-babel-C-expand-D body params)))
-
-(defun org-babel-execute:C (body params)
- "Execute a block of C code with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (let ((org-babel-c-variant 'c)) (org-babel-C-execute body params)))
-
-(defun org-babel-expand-body:C (body params)
- "Expand a block of C code with org-babel according to its
-header arguments."
- (let ((org-babel-c-variant 'c)) (org-babel-C-expand-C body params)))
-
-(defun org-babel-C-execute (body params)
- "This function should only be called by `org-babel-execute:C'
-or `org-babel-execute:C++' or `org-babel-execute:D'."
- (let* ((tmp-src-file (org-babel-temp-file
- "C-src-"
- (pcase org-babel-c-variant
- (`c ".c") (`cpp ".cpp") (`d ".d"))))
- (tmp-bin-file ;not used for D
- (org-babel-process-file-name
- (org-babel-temp-file "C-bin-" org-babel-exeext)))
- (cmdline (cdr (assq :cmdline params)))
- (cmdline (if cmdline (concat " " cmdline) ""))
- (flags (cdr (assq :flags params)))
- (flags (mapconcat 'identity
- (if (listp flags) flags (list flags)) " "))
- (libs (org-babel-read
- (or (cdr (assq :libs params))
- (org-entry-get nil "libs" t))
- nil))
- (libs (mapconcat #'identity
- (if (listp libs) libs (list libs))
- " "))
- (full-body
- (pcase org-babel-c-variant
- (`c (org-babel-C-expand-C body params))
- (`cpp (org-babel-C-expand-C++ body params))
- (`d (org-babel-C-expand-D body params)))))
- (with-temp-file tmp-src-file (insert full-body))
- (pcase org-babel-c-variant
- ((or `c `cpp)
- (org-babel-eval
- (format "%s -o %s %s %s %s"
- (pcase org-babel-c-variant
- (`c org-babel-C-compiler)
- (`cpp org-babel-C++-compiler))
- tmp-bin-file
- flags
- (org-babel-process-file-name tmp-src-file)
- libs)
- ""))
- (`d nil)) ;; no separate compilation for D
- (let ((results
- (org-babel-eval
- (pcase org-babel-c-variant
- ((or `c `cpp)
- (concat tmp-bin-file cmdline))
- (`d
- (format "%s %s %s %s"
- org-babel-D-compiler
- flags
- (org-babel-process-file-name tmp-src-file)
- cmdline)))
- "")))
- (when results
- (setq results (org-trim (org-remove-indentation results)))
- (org-babel-reassemble-table
- (org-babel-result-cond (cdr (assq :result-params params))
- (org-babel-read results t)
- (let ((tmp-file (org-babel-temp-file "c-")))
- (with-temp-file tmp-file (insert results))
- (org-babel-import-elisp-from-file tmp-file)))
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params)))))
- )))
-
-(defun org-babel-C-expand-C++ (body params)
- "Expand a block of C or C++ code with org-babel according to
-its header arguments."
- (org-babel-C-expand-C body params))
-
-(defun org-babel-C-expand-C (body params)
- "Expand a block of C or C++ code with org-babel according to
-its header arguments."
- (let ((vars (org-babel--get-vars params))
- (colnames (cdr (assq :colname-names params)))
- (main-p (not (string= (cdr (assq :main params)) "no")))
- (includes (org-babel-read
- (cdr (assq :includes params))
- nil))
- (defines (org-babel-read
- (cdr (assq :defines params))
- nil))
- (namespaces (org-babel-read
- (cdr (assq :namespaces params))
- nil)))
- (when (stringp includes)
- (setq includes (split-string includes)))
- (when (stringp namespaces)
- (setq namespaces (split-string namespaces)))
- (when (stringp defines)
- (let ((y nil)
- (result (list t)))
- (dolist (x (split-string defines))
- (if (null y)
- (setq y x)
- (nconc result (list (concat y " " x)))
- (setq y nil)))
- (setq defines (cdr result))))
- (mapconcat 'identity
- (list
- ;; includes
- (mapconcat
- (lambda (inc) (format "#include %s" inc))
- includes "\n")
- ;; defines
- (mapconcat
- (lambda (inc) (format "#define %s" inc))
- (if (listp defines) defines (list defines)) "\n")
- ;; namespaces
- (mapconcat
- (lambda (inc) (format "using namespace %s;" inc))
- namespaces
- "\n")
- ;; variables
- (mapconcat 'org-babel-C-var-to-C vars "\n")
- ;; table sizes
- (mapconcat 'org-babel-C-table-sizes-to-C vars "\n")
- ;; tables headers utility
- (when colnames
- (org-babel-C-utility-header-to-C))
- ;; tables headers
- (mapconcat 'org-babel-C-header-to-C colnames "\n")
- ;; body
- (if main-p
- (org-babel-C-ensure-main-wrap body)
- body) "\n") "\n")))
-
-(defun org-babel-C-expand-D (body params)
- "Expand a block of D code with org-babel according to
-its header arguments."
- (let ((vars (org-babel--get-vars params))
- (colnames (cdr (assq :colname-names params)))
- (main-p (not (string= (cdr (assq :main params)) "no")))
- (imports (or (cdr (assq :imports params))
- (org-babel-read (org-entry-get nil "imports" t)))))
- (when (stringp imports)
- (setq imports (split-string imports)))
- (setq imports (append imports '("std.stdio" "std.conv")))
- (mapconcat 'identity
- (list
- "module mmm;"
- ;; imports
- (mapconcat
- (lambda (inc) (format "import %s;" inc))
- imports "\n")
- ;; variables
- (mapconcat 'org-babel-C-var-to-C vars "\n")
- ;; table sizes
- (mapconcat 'org-babel-C-table-sizes-to-C vars "\n")
- ;; tables headers utility
- (when colnames
- (org-babel-C-utility-header-to-C))
- ;; tables headers
- (mapconcat 'org-babel-C-header-to-C colnames "\n")
- ;; body
- (if main-p
- (org-babel-C-ensure-main-wrap body)
- body) "\n") "\n")))
-
-(defun org-babel-C-ensure-main-wrap (body)
- "Wrap BODY in a \"main\" function call if none exists."
- (if (string-match "^[ \t]*[intvod]+[ \t\n\r]*main[ \t]*(.*)" body)
- body
- (format "int main() {\n%s\nreturn 0;\n}\n" body)))
-
-(defun org-babel-prep-session:C (_session _params)
- "This function does nothing as C is a compiled language with no
-support for sessions"
- (error "C is a compiled language -- no support for sessions"))
-
-(defun org-babel-load-session:C (_session _body _params)
- "This function does nothing as C is a compiled language with no
-support for sessions"
- (error "C is a compiled language -- no support for sessions"))
-
-;; helper functions
-
-(defun org-babel-C-format-val (type val)
- "Handle the FORMAT part of TYPE with the data from VAL."
- (let ((format-data (cadr type)))
- (if (stringp format-data)
- (cons "" (format format-data val))
- (funcall format-data val))))
-
-(defun org-babel-C-val-to-C-type (val)
- "Determine the type of VAL.
-Return a list (TYPE-NAME FORMAT). TYPE-NAME should be the name of the type.
-FORMAT can be either a format string or a function which is called with VAL."
- (let* ((basetype (org-babel-C-val-to-base-type val))
- (type
- (pcase basetype
- (`integerp '("int" "%d"))
- (`floatp '("double" "%f"))
- (`stringp
- (list
- (if (eq org-babel-c-variant 'd) "string" "const char*")
- "\"%s\""))
- (_ (error "unknown type %S" basetype)))))
- (cond
- ((integerp val) type) ;; an integer declared in the #+begin_src line
- ((floatp val) type) ;; a numeric declared in the #+begin_src line
- ((and (listp val) (listp (car val))) ;; a table
- `(,(car type)
- (lambda (val)
- (cons
- (format "[%d][%d]" (length val) (length (car val)))
- (concat
- (if (eq org-babel-c-variant 'd) "[\n" "{\n")
- (mapconcat
- (lambda (v)
- (concat
- (if (eq org-babel-c-variant 'd) " [" " {")
- (mapconcat (lambda (w) (format ,(cadr type) w)) v ",")
- (if (eq org-babel-c-variant 'd) "]" "}")))
- val
- ",\n")
- (if (eq org-babel-c-variant 'd) "\n]" "\n}"))))))
- ((or (listp val) (vectorp val)) ;; a list declared in the #+begin_src line
- `(,(car type)
- (lambda (val)
- (cons
- (format "[%d]" (length val))
- (concat
- (if (eq org-babel-c-variant 'd) "[" "{")
- (mapconcat (lambda (v) (format ,(cadr type) v)) val ",")
- (if (eq org-babel-c-variant 'd) "]" "}"))))))
- (t ;; treat unknown types as string
- type))))
-
-(defun org-babel-C-val-to-base-type (val)
- "Determine the base type of VAL which may be
-`integerp' if all base values are integers
-`floatp' if all base values are either floating points or integers
-`stringp' otherwise."
- (cond
- ((integerp val) 'integerp)
- ((floatp val) 'floatp)
- ((or (listp val) (vectorp val))
- (let ((type nil))
- (mapc (lambda (v)
- (pcase (org-babel-C-val-to-base-type v)
- (`stringp (setq type 'stringp))
- (`floatp
- (if (or (not type) (eq type 'integerp))
- (setq type 'floatp)))
- (`integerp
- (unless type (setq type 'integerp)))))
- val)
- type))
- (t 'stringp)))
-
-(defun org-babel-C-var-to-C (pair)
- "Convert an elisp val into a string of C code specifying a var
-of the same value."
- ;; TODO list support
- (let ((var (car pair))
- (val (cdr pair)))
- (when (symbolp val)
- (setq val (symbol-name val))
- (when (= (length val) 1)
- (setq val (string-to-char val))))
- (let* ((type-data (org-babel-C-val-to-C-type val))
- (type (car type-data))
- (formated (org-babel-C-format-val type-data val))
- (suffix (car formated))
- (data (cdr formated)))
- (format "%s %s%s = %s;"
- type
- var
- suffix
- data))))
-
-(defun org-babel-C-table-sizes-to-C (pair)
- "Create constants of table dimensions, if PAIR is a table."
- (when (listp (cdr pair))
- (cond
- ((listp (cadr pair)) ;; a table
- (concat
- (format "const int %s_rows = %d;" (car pair) (length (cdr pair)))
- "\n"
- (format "const int %s_cols = %d;" (car pair) (length (cadr pair)))))
- (t ;; a list declared in the #+begin_src line
- (format "const int %s_cols = %d;" (car pair) (length (cdr pair)))))))
-
-(defun org-babel-C-utility-header-to-C ()
- "Generate a utility function to convert a column name
-into a column number."
- (pcase org-babel-c-variant
- ((or `c `cpp)
- "int get_column_num (int nbcols, const char** header, const char* column)
-{
- int c;
- for (c=0; c<nbcols; c++)
- if (strcmp(header[c],column)==0)
- return c;
- return -1;
-}
-")
- (`d
- "int get_column_num (string[] header, string column)
-{
- foreach (c, h; header)
- if (h==column)
- return to!int(c);
- return -1;
-}
-")))
-
-(defun org-babel-C-header-to-C (head)
- "Convert an elisp list of header table into a C or D vector
-specifying a variable with the name of the table."
- (let ((table (car head))
- (headers (cdr head)))
- (concat
- (format
- (pcase org-babel-c-variant
- ((or `c `cpp) "const char* %s_header[%d] = {%s};")
- (`d "string %s_header[%d] = [%s];"))
- table
- (length headers)
- (mapconcat (lambda (h) (format "%S" h)) headers ","))
- "\n"
- (pcase org-babel-c-variant
- ((or `c `cpp)
- (format
- "const char* %s_h (int row, const char* col) { return %s[row][get_column_num(%d,%s_header,col)]; }"
- table table (length headers) table))
- (`d
- (format
- "string %s_h (size_t row, string col) { return %s[row][get_column_num(%s_header,col)]; }"
- table table table))))))
-
-(provide 'ob-C)
-
-;;; ob-C.el ends here
diff --git a/elpa/org-9.1.14/ob-C.elc b/elpa/org-9.1.14/ob-C.elc
deleted file mode 100644
index c190b92..0000000
--- a/elpa/org-9.1.14/ob-C.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-J.el b/elpa/org-9.1.14/ob-J.el
deleted file mode 100644
index 8781221..0000000
--- a/elpa/org-9.1.14/ob-J.el
+++ /dev/null
@@ -1,186 +0,0 @@
-;;; ob-J.el --- Babel Functions for J -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2018 Free Software Foundation, Inc.
-
-;; Author: Oleh Krehel
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating J code.
-;;
-;; Session interaction depends on `j-console' from package `j-mode'
-;; (available in MELPA).
-
-;;; Code:
-
-(require 'ob)
-
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function j-console-ensure-session "ext:j-console" ())
-
-(defcustom org-babel-J-command "jconsole"
- "Command to call J."
- :group 'org-babel
- :version "26.1"
- :package-version '(Org . "9.0")
- :type 'string)
-
-(defun org-babel-expand-body:J (body _params &optional _processed-params)
- "Expand BODY according to PARAMS, return the expanded body.
-PROCESSED-PARAMS isn't used yet."
- (org-babel-J-interleave-echos-except-functions body))
-
-(defun org-babel-J-interleave-echos (body)
- "Interleave echo',' between each source line of BODY."
- (mapconcat #'identity (split-string body "\n") "\necho','\n"))
-
-(defun org-babel-J-interleave-echos-except-functions (body)
- "Interleave echo',' between source lines of BODY that aren't functions."
- (if (obj-string-match-m "\\(?:^\\|\n\\)[^\n]*\\(?:0\\|1\\|2\\|3\\|4\\|dyad\\) : 0\n.*\n)\\(?:\n\\|$\\)" body)
- (let ((s1 (substring body 0 (match-beginning 0)))
- (s2 (match-string 0 body))
- (s3 (substring body (match-end 0))))
- (concat
- (if (string= s1 "")
- ""
- (concat (org-babel-J-interleave-echos s1)
- "\necho','\n"))
- s2
- "\necho','\n"
- (org-babel-J-interleave-echos-except-functions s3)))
- (org-babel-J-interleave-echos body)))
-
-(defalias 'org-babel-execute:j 'org-babel-execute:J)
-
-(defun org-babel-execute:J (body params)
- "Execute a block of J code BODY.
-PARAMS are given by org-babel.
-This function is called by `org-babel-execute-src-block'"
- (message "executing J source code block")
- (let* ((processed-params (org-babel-process-params params))
- (sessionp (cdr (assq :session params)))
- (full-body (org-babel-expand-body:J
- body params processed-params))
- (tmp-script-file (org-babel-temp-file "J-src")))
- (org-babel-j-initiate-session sessionp)
- (org-babel-J-strip-whitespace
- (if (string= sessionp "none")
- (progn
- (with-temp-file tmp-script-file
- (insert full-body))
- (org-babel-eval (format "%s < %s" org-babel-J-command tmp-script-file) ""))
- (org-babel-J-eval-string full-body)))))
-
-(defun org-babel-J-eval-string (str)
- "Sends STR to the `j-console-cmd' session and executes it."
- (let ((session (j-console-ensure-session)))
- (with-current-buffer (process-buffer session)
- (goto-char (point-max))
- (insert (format "\n%s\n" str))
- (let ((beg (point)))
- (comint-send-input)
- (sit-for .1)
- (buffer-substring-no-properties
- beg (point-max))))))
-
-(defun org-babel-J-strip-whitespace (str)
- "Remove whitespace from jconsole output STR."
- (mapconcat
- #'identity
- (delete "" (mapcar
- #'org-babel-J-print-block
- (split-string str "^ *,\n" t)))
- "\n\n"))
-
-(defun obj-get-string-alignment (str)
- "Return a number to describe STR alignment.
-STR represents a table.
-Positive/negative/zero result means right/left/undetermined.
-Don't trust first line."
- (let* ((str (org-trim str))
- (lines (split-string str "\n" t))
- n1 n2)
- (cond ((<= (length lines) 1)
- 0)
- ((= (length lines) 2)
- ;; numbers are right-aligned
- (if (and
- (numberp (read (car lines)))
- (numberp (read (cadr lines)))
- (setq n1 (obj-match-second-space-right (nth 0 lines)))
- (setq n2 (obj-match-second-space-right (nth 1 lines))))
- n2
- 0))
- ((not (obj-match-second-space-left (nth 0 lines)))
- 0)
- ((and
- (setq n1 (obj-match-second-space-left (nth 1 lines)))
- (setq n2 (obj-match-second-space-left (nth 2 lines)))
- (= n1 n2))
- n1)
- ((and
- (setq n1 (obj-match-second-space-right (nth 1 lines)))
- (setq n2 (obj-match-second-space-right (nth 2 lines)))
- (= n1 n2))
- (- n1))
- (t 0))))
-
-(defun org-babel-J-print-block (x)
- "Prettify jconsole output X."
- (let* ((x (org-trim x))
- (a (obj-get-string-alignment x))
- (lines (split-string x "\n" t))
- b)
- (cond ((< a 0)
- (setq b (obj-match-second-space-right (nth 0 lines)))
- (concat (make-string (+ a b) ? ) x))
- ((> a 0)
- (setq b (obj-match-second-space-left (nth 0 lines)))
- (concat (make-string (- a b) ? ) x))
- (t x))))
-
-(defun obj-match-second-space-left (s)
- "Return position of leftmost space in second space block of S or nil."
- (and (string-match "^ *[^ ]+\\( \\)" s)
- (match-beginning 1)))
-
-(defun obj-match-second-space-right (s)
- "Return position of rightmost space in second space block of S or nil."
- (and (string-match "^ *[^ ]+ *\\( \\)[^ ]" s)
- (match-beginning 1)))
-
-(defun obj-string-match-m (regexp string &optional start)
- "Call (string-match REGEXP STRING START).
-REGEXP is modified so that .* matches newlines as well."
- (string-match
- (replace-regexp-in-string "\\.\\*" "[\0-\377[:nonascii:]]*" regexp)
- string
- start))
-
-(defun org-babel-j-initiate-session (&optional session)
- "Initiate a J session.
-SESSION is a parameter given by org-babel."
- (unless (string= session "none")
- (require 'j-console)
- (j-console-ensure-session)))
-
-(provide 'ob-J)
-
-;;; ob-J.el ends here
diff --git a/elpa/org-9.1.14/ob-J.elc b/elpa/org-9.1.14/ob-J.elc
deleted file mode 100644
index 83a5964..0000000
--- a/elpa/org-9.1.14/ob-J.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-R.el b/elpa/org-9.1.14/ob-R.el
deleted file mode 100644
index d7e936e..0000000
--- a/elpa/org-9.1.14/ob-R.el
+++ /dev/null
@@ -1,469 +0,0 @@
-;;; ob-R.el --- Babel Functions for R -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Dan Davison
-;; Keywords: literate programming, reproducible research, R, statistics
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating R code
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'ob)
-
-(declare-function orgtbl-to-tsv "org-table" (table params))
-(declare-function R "ext:essd-r" (&optional start-args))
-(declare-function inferior-ess-send-input "ext:ess-inf" ())
-(declare-function ess-make-buffer-current "ext:ess-inf" ())
-(declare-function ess-eval-buffer "ext:ess-inf" (vis))
-(declare-function ess-wait-for-process "ext:ess-inf"
- (&optional proc sec-prompt wait force-redisplay))
-
-(defconst org-babel-header-args:R
- '((width . :any)
- (height . :any)
- (bg . :any)
- (units . :any)
- (pointsize . :any)
- (antialias . :any)
- (quality . :any)
- (compression . :any)
- (res . :any)
- (type . :any)
- (family . :any)
- (title . :any)
- (fonts . :any)
- (version . :any)
- (paper . :any)
- (encoding . :any)
- (pagecentre . :any)
- (colormodel . :any)
- (useDingbats . :any)
- (horizontal . :any)
- (results . ((file list vector table scalar verbatim)
- (raw html latex org code pp drawer)
- (replace silent none append prepend)
- (output value graphics))))
- "R-specific header arguments.")
-
-(defconst ob-R-safe-header-args
- (append org-babel-safe-header-args
- '(:width :height :bg :units :pointsize :antialias :quality
- :compression :res :type :family :title :fonts
- :version :paper :encoding :pagecentre :colormodel
- :useDingbats :horizontal))
- "Header args which are safe for R babel blocks.
-
-See `org-babel-safe-header-args' for documentation of the format of
-this variable.")
-
-(defvar org-babel-default-header-args:R '())
-(put 'org-babel-default-header-args:R 'safe-local-variable
- (org-babel-header-args-safe-fn ob-R-safe-header-args))
-
-(defcustom org-babel-R-command "R --slave --no-save"
- "Name of command to use for executing R code."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defvar ess-current-process-name) ; dynamically scoped
-(defvar ess-local-process-name) ; dynamically scoped
-(defun org-babel-edit-prep:R (info)
- (let ((session (cdr (assq :session (nth 2 info)))))
- (when (and session
- (string-prefix-p "*" session)
- (string-suffix-p "*" session))
- (org-babel-R-initiate-session session nil))))
-
-;; The usage of utils::read.table() ensures that the command
-;; read.table() can be found even in circumstances when the utils
-;; package is not in the search path from R.
-(defconst ob-R-transfer-variable-table-with-header
- "%s <- local({
- con <- textConnection(
- %S
- )
- res <- utils::read.table(
- con,
- header = %s,
- row.names = %s,
- sep = \"\\t\",
- as.is = TRUE
- )
- close(con)
- res
- })"
- "R code used to transfer a table defined as a variable from org to R.
-
-This function is used when the table contains a header.")
-
-(defconst ob-R-transfer-variable-table-without-header
- "%s <- local({
- con <- textConnection(
- %S
- )
- res <- utils::read.table(
- con,
- header = %s,
- row.names = %s,
- sep = \"\\t\",
- as.is = TRUE,
- fill = TRUE,
- col.names = paste(\"V\", seq_len(%d), sep =\"\")
- )
- close(con)
- res
- })"
- "R code used to transfer a table defined as a variable from org to R.
-
-This function is used when the table does not contain a header.")
-
-(defun org-babel-expand-body:R (body params &optional _graphics-file)
- "Expand BODY according to PARAMS, return the expanded body."
- (mapconcat 'identity
- (append
- (when (cdr (assq :prologue params))
- (list (cdr (assq :prologue params))))
- (org-babel-variable-assignments:R params)
- (list body)
- (when (cdr (assq :epilogue params))
- (list (cdr (assq :epilogue params)))))
- "\n"))
-
-(defun org-babel-execute:R (body params)
- "Execute a block of R code.
-This function is called by `org-babel-execute-src-block'."
- (save-excursion
- (let* ((result-params (cdr (assq :result-params params)))
- (result-type (cdr (assq :result-type params)))
- (session (org-babel-R-initiate-session
- (cdr (assq :session params)) params))
- (graphics-file (and (member "graphics" (assq :result-params params))
- (org-babel-graphical-output-file params)))
- (colnames-p (unless graphics-file (cdr (assq :colnames params))))
- (rownames-p (unless graphics-file (cdr (assq :rownames params))))
- (full-body
- (let ((inside
- (list (org-babel-expand-body:R body params graphics-file))))
- (mapconcat 'identity
- (if graphics-file
- (append
- (list (org-babel-R-construct-graphics-device-call
- graphics-file params))
- inside
- (list "},error=function(e){plot(x=-1:1, y=-1:1, type='n', xlab='', ylab='', axes=FALSE); text(x=0, y=0, labels=e$message, col='red'); paste('ERROR', e$message, sep=' : ')}); dev.off()"))
- inside)
- "\n")))
- (result
- (org-babel-R-evaluate
- session full-body result-type result-params
- (or (equal "yes" colnames-p)
- (org-babel-pick-name
- (cdr (assq :colname-names params)) colnames-p))
- (or (equal "yes" rownames-p)
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) rownames-p)))))
- (if graphics-file nil result))))
-
-(defun org-babel-prep-session:R (session params)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- (let* ((session (org-babel-R-initiate-session session params))
- (var-lines (org-babel-variable-assignments:R params)))
- (org-babel-comint-in-buffer session
- (mapc (lambda (var)
- (end-of-line 1) (insert var) (comint-send-input nil t)
- (org-babel-comint-wait-for-output session)) var-lines))
- session))
-
-(defun org-babel-load-session:R (session body params)
- "Load BODY into SESSION."
- (save-window-excursion
- (let ((buffer (org-babel-prep-session:R session params)))
- (with-current-buffer buffer
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (insert (org-babel-chomp body)))
- buffer)))
-
-;; helper functions
-
-(defun org-babel-variable-assignments:R (params)
- "Return list of R statements assigning the block's variables."
- (let ((vars (org-babel--get-vars params)))
- (mapcar
- (lambda (pair)
- (org-babel-R-assign-elisp
- (car pair) (cdr pair)
- (equal "yes" (cdr (assq :colnames params)))
- (equal "yes" (cdr (assq :rownames params)))))
- (mapcar
- (lambda (i)
- (cons (car (nth i vars))
- (org-babel-reassemble-table
- (cdr (nth i vars))
- (cdr (nth i (cdr (assq :colname-names params))))
- (cdr (nth i (cdr (assq :rowname-names params)))))))
- (number-sequence 0 (1- (length vars)))))))
-
-(defun org-babel-R-quote-tsv-field (s)
- "Quote field S for export to R."
- (if (stringp s)
- (concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\"")
- (format "%S" s)))
-
-(defun org-babel-R-assign-elisp (name value colnames-p rownames-p)
- "Construct R code assigning the elisp VALUE to a variable named NAME."
- (if (listp value)
- (let* ((lengths (mapcar 'length (cl-remove-if-not 'sequencep value)))
- (max (if lengths (apply 'max lengths) 0))
- (min (if lengths (apply 'min lengths) 0)))
- ;; Ensure VALUE has an orgtbl structure (depth of at least 2).
- (unless (listp (car value)) (setq value (list value)))
- (let ((file (orgtbl-to-tsv value '(:fmt org-babel-R-quote-tsv-field)))
- (header (if (or (eq (nth 1 value) 'hline) colnames-p)
- "TRUE" "FALSE"))
- (row-names (if rownames-p "1" "NULL")))
- (if (= max min)
- (format ob-R-transfer-variable-table-with-header
- name file header row-names)
- (format ob-R-transfer-variable-table-without-header
- name file header row-names max))))
- (cond ((integerp value) (format "%s <- %s" name (concat (number-to-string value) "L")))
- ((floatp value) (format "%s <- %s" name value))
- ((stringp value) (format "%s <- %S" name (org-no-properties value)))
- (t (format "%s <- %S" name (prin1-to-string value))))))
-
-
-(defvar ess-ask-for-ess-directory) ; dynamically scoped
-(defun org-babel-R-initiate-session (session params)
- "If there is not a current R process then create one."
- (unless (string= session "none")
- (let ((session (or session "*R*"))
- (ess-ask-for-ess-directory
- (and (boundp 'ess-ask-for-ess-directory)
- ess-ask-for-ess-directory
- (not (cdr (assq :dir params))))))
- (if (org-babel-comint-buffer-livep session)
- session
- (save-window-excursion
- (when (get-buffer session)
- ;; Session buffer exists, but with dead process
- (set-buffer session))
- (require 'ess) (R)
- (let ((R-proc (get-process (or ess-local-process-name
- ess-current-process-name))))
- (while (process-get R-proc 'callbacks)
- (ess-wait-for-process R-proc)))
- (rename-buffer
- (if (bufferp session)
- (buffer-name session)
- (if (stringp session)
- session
- (buffer-name))))
- (current-buffer))))))
-
-(defun org-babel-R-associate-session (session)
- "Associate R code buffer with an R session.
-Make SESSION be the inferior ESS process associated with the
-current code buffer."
- (setq ess-local-process-name
- (process-name (get-buffer-process session)))
- (ess-make-buffer-current))
-
-(defvar org-babel-R-graphics-devices
- '((:bmp "bmp" "filename")
- (:jpg "jpeg" "filename")
- (:jpeg "jpeg" "filename")
- (:tikz "tikz" "file")
- (:tiff "tiff" "filename")
- (:png "png" "filename")
- (:svg "svg" "file")
- (:pdf "pdf" "file")
- (:ps "postscript" "file")
- (:postscript "postscript" "file"))
- "An alist mapping graphics file types to R functions.
-
-Each member of this list is a list with three members:
-1. the file extension of the graphics file, as an elisp :keyword
-2. the R graphics device function to call to generate such a file
-3. the name of the argument to this function which specifies the
- file to write to (typically \"file\" or \"filename\")")
-
-(defun org-babel-R-construct-graphics-device-call (out-file params)
- "Construct the call to the graphics device."
- (let* ((allowed-args '(:width :height :bg :units :pointsize
- :antialias :quality :compression :res
- :type :family :title :fonts :version
- :paper :encoding :pagecentre :colormodel
- :useDingbats :horizontal))
- (device (file-name-extension out-file))
- (device-info (or (assq (intern (concat ":" device))
- org-babel-R-graphics-devices)
- (assq :png org-babel-R-graphics-devices)))
- (extra-args (cdr (assq :R-dev-args params))) filearg args)
- (setq device (nth 1 device-info))
- (setq filearg (nth 2 device-info))
- (setq args (mapconcat
- (lambda (pair)
- (if (member (car pair) allowed-args)
- (format ",%s=%S"
- (substring (symbol-name (car pair)) 1)
- (cdr pair)) ""))
- params ""))
- (format "%s(%s=\"%s\"%s%s%s); tryCatch({"
- device filearg out-file args
- (if extra-args "," "") (or extra-args ""))))
-
-(defconst org-babel-R-eoe-indicator "'org_babel_R_eoe'")
-(defconst org-babel-R-eoe-output "[1] \"org_babel_R_eoe\"")
-
-(defconst org-babel-R-write-object-command "{
- function(object,transfer.file) {
- object
- invisible(
- if (
- inherits(
- try(
- {
- tfile<-tempfile()
- write.table(object, file=tfile, sep=\"\\t\",
- na=\"nil\",row.names=%s,col.names=%s,
- quote=FALSE)
- file.rename(tfile,transfer.file)
- },
- silent=TRUE),
- \"try-error\"))
- {
- if(!file.exists(transfer.file))
- file.create(transfer.file)
- }
- )
- }
-}(object=%s,transfer.file=\"%s\")"
- "A template for an R command to evaluate a block of code and write the result to a file.
-
-Has four %s escapes to be filled in:
-1. Row names, \"TRUE\" or \"FALSE\"
-2. Column names, \"TRUE\" or \"FALSE\"
-3. The code to be run (must be an expression, not a statement)
-4. The name of the file to write to")
-
-(defun org-babel-R-evaluate
- (session body result-type result-params column-names-p row-names-p)
- "Evaluate R code in BODY."
- (if session
- (org-babel-R-evaluate-session
- session body result-type result-params column-names-p row-names-p)
- (org-babel-R-evaluate-external-process
- body result-type result-params column-names-p row-names-p)))
-
-(defun org-babel-R-evaluate-external-process
- (body result-type result-params column-names-p row-names-p)
- "Evaluate BODY in external R process.
-If RESULT-TYPE equals `output' then return standard output as a
-string. If RESULT-TYPE equals `value' then return the value of the
-last statement in BODY, as elisp."
- (cl-case result-type
- (value
- (let ((tmp-file (org-babel-temp-file "R-")))
- (org-babel-eval org-babel-R-command
- (format org-babel-R-write-object-command
- (if row-names-p "TRUE" "FALSE")
- (if column-names-p
- (if row-names-p "NA" "TRUE")
- "FALSE")
- (format "{function ()\n{\n%s\n}}()" body)
- (org-babel-process-file-name tmp-file 'noquote)))
- (org-babel-R-process-value-result
- (org-babel-result-cond result-params
- (with-temp-buffer
- (insert-file-contents tmp-file)
- (org-babel-chomp (buffer-string) "\n"))
- (org-babel-import-elisp-from-file tmp-file '(16)))
- column-names-p)))
- (output (org-babel-eval org-babel-R-command body))))
-
-(defvar ess-eval-visibly-p)
-
-(defun org-babel-R-evaluate-session
- (session body result-type result-params column-names-p row-names-p)
- "Evaluate BODY in SESSION.
-If RESULT-TYPE equals `output' then return standard output as a
-string. If RESULT-TYPE equals `value' then return the value of the
-last statement in BODY, as elisp."
- (cl-case result-type
- (value
- (with-temp-buffer
- (insert (org-babel-chomp body))
- (let ((ess-local-process-name
- (process-name (get-buffer-process session)))
- (ess-eval-visibly-p nil))
- (ess-eval-buffer nil)))
- (let ((tmp-file (org-babel-temp-file "R-")))
- (org-babel-comint-eval-invisibly-and-wait-for-file
- session tmp-file
- (format org-babel-R-write-object-command
- (if row-names-p "TRUE" "FALSE")
- (if column-names-p
- (if row-names-p "NA" "TRUE")
- "FALSE")
- ".Last.value" (org-babel-process-file-name tmp-file 'noquote)))
- (org-babel-R-process-value-result
- (org-babel-result-cond result-params
- (with-temp-buffer
- (insert-file-contents tmp-file)
- (org-babel-chomp (buffer-string) "\n"))
- (org-babel-import-elisp-from-file tmp-file '(16)))
- column-names-p)))
- (output
- (mapconcat
- 'org-babel-chomp
- (butlast
- (delq nil
- (mapcar
- (lambda (line) (when (> (length line) 0) line))
- (mapcar
- (lambda (line) ;; cleanup extra prompts left in output
- (if (string-match
- "^\\([>+.]\\([ ][>.+]\\)*[ ]\\)"
- (car (split-string line "\n")))
- (substring line (match-end 1))
- line))
- (org-babel-comint-with-output (session org-babel-R-eoe-output)
- (insert (mapconcat 'org-babel-chomp
- (list body org-babel-R-eoe-indicator)
- "\n"))
- (inferior-ess-send-input)))))) "\n"))))
-
-(defun org-babel-R-process-value-result (result column-names-p)
- "R-specific processing of return value.
-Insert hline if column names in output have been requested."
- (if column-names-p
- (cons (car result) (cons 'hline (cdr result)))
- result))
-
-(provide 'ob-R)
-
-
-
-;;; ob-R.el ends here
diff --git a/elpa/org-9.1.14/ob-R.elc b/elpa/org-9.1.14/ob-R.elc
deleted file mode 100644
index 4ee0219..0000000
--- a/elpa/org-9.1.14/ob-R.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-abc.el b/elpa/org-9.1.14/ob-abc.el
deleted file mode 100644
index 75881cc..0000000
--- a/elpa/org-9.1.14/ob-abc.el
+++ /dev/null
@@ -1,90 +0,0 @@
-;;; ob-abc.el --- Org Babel Functions for ABC -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013-2018 Free Software Foundation, Inc.
-
-;; Author: William Waites
-;; Keywords: literate programming, music
-;; Homepage: http://www.tardis.ed.ac.uk/wwaites
-;; Version: 0.01
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; This file adds support to Org Babel for music in ABC notation.
-;;; It requires that the abcm2ps program is installed.
-;;; See http://moinejf.free.fr/
-
-(require 'ob)
-
-;; optionally define a file extension for this language
-(add-to-list 'org-babel-tangle-lang-exts '("abc" . "abc"))
-
-;; optionally declare default header arguments for this language
-(defvar org-babel-default-header-args:abc
- '((:results . "file") (:exports . "results"))
- "Default arguments to use when evaluating an ABC source block.")
-
-(defun org-babel-expand-body:abc (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let ((vars (org-babel--get-vars params)))
- (mapc
- (lambda (pair)
- (let ((name (symbol-name (car pair)))
- (value (cdr pair)))
- (setq body
- (replace-regexp-in-string
- (concat "\$" (regexp-quote name))
- (if (stringp value) value (format "%S" value))
- body))))
- vars)
- body))
-
-(defun org-babel-execute:abc (body params)
- "Execute a block of ABC code with org-babel. This function is
- called by `org-babel-execute-src-block'"
- (message "executing Abc source code block")
- (let* ((cmdline (cdr (assq :cmdline params)))
- (out-file (let ((file (cdr (assq :file params))))
- (if file (replace-regexp-in-string "\.pdf$" ".ps" file)
- (error "abc code block requires :file header argument"))))
- (in-file (org-babel-temp-file "abc-"))
- (render (concat "abcm2ps" " " cmdline
- " -O " (org-babel-process-file-name out-file)
- " " (org-babel-process-file-name in-file))))
- (with-temp-file in-file (insert (org-babel-expand-body:abc body params)))
- (org-babel-eval render "")
- ;;; handle where abcm2ps changes the file name (to support multiple files
- (when (or (string= (file-name-extension out-file) "eps")
- (string= (file-name-extension out-file) "svg"))
- (rename-file (concat
- (file-name-sans-extension out-file) "001."
- (file-name-extension out-file))
- out-file t))
- ;;; if we were asked for a pdf...
- (when (string= (file-name-extension (cdr (assq :file params))) "pdf")
- (org-babel-eval (concat "ps2pdf" " " out-file " " (cdr (assq :file params))) ""))
- ;;; indicate that the file has been written
- nil))
-
-;; This function should be used to assign any variables in params in
-;; the context of the session environment.
-(defun org-babel-prep-session:abc (_session _params)
- "Return an error because abc does not support sessions."
- (error "ABC does not support sessions"))
-
-(provide 'ob-abc)
-;;; ob-abc.el ends here
diff --git a/elpa/org-9.1.14/ob-abc.elc b/elpa/org-9.1.14/ob-abc.elc
deleted file mode 100644
index 7ac84d5..0000000
--- a/elpa/org-9.1.14/ob-abc.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-asymptote.el b/elpa/org-9.1.14/ob-asymptote.el
deleted file mode 100644
index 84e2364..0000000
--- a/elpa/org-9.1.14/ob-asymptote.el
+++ /dev/null
@@ -1,139 +0,0 @@
-;;; ob-asymptote.el --- Babel Functions for Asymptote -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating asymptote source code.
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in asymptote
-;;
-;; 2) we are generally only going to return results of type "file"
-;;
-;; 3) we are adding the "file" and "cmdline" header arguments, if file
-;; is omitted then the -V option is passed to the asy command for
-;; interactive viewing
-
-;;; Requirements:
-
-;; - The asymptote program :: http://asymptote.sourceforge.net/
-;;
-;; - asy-mode :: Major mode for editing asymptote files
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("asymptote" . "asy"))
-
-(defvar org-babel-default-header-args:asymptote
- '((:results . "file") (:exports . "results"))
- "Default arguments when evaluating an Asymptote source block.")
-
-(defun org-babel-execute:asymptote (body params)
- "Execute a block of Asymptote code.
-This function is called by `org-babel-execute-src-block'."
- (let* ((out-file (cdr (assq :file params)))
- (format (or (file-name-extension out-file)
- "pdf"))
- (cmdline (cdr (assq :cmdline params)))
- (in-file (org-babel-temp-file "asymptote-"))
- (cmd
- (concat "asy "
- (if out-file
- (concat
- "-globalwrite -f " format
- " -o " (org-babel-process-file-name out-file))
- "-V")
- " " cmdline
- " " (org-babel-process-file-name in-file))))
- (with-temp-file in-file
- (insert (org-babel-expand-body:generic
- body params
- (org-babel-variable-assignments:asymptote params))))
- (message cmd) (shell-command cmd)
- nil)) ;; signal that output has already been written to file
-
-(defun org-babel-prep-session:asymptote (_session _params)
- "Return an error if the :session header argument is set.
-Asymptote does not support sessions"
- (error "Asymptote does not support sessions"))
-
-(defun org-babel-variable-assignments:asymptote (params)
- "Return list of asymptote statements assigning the block's variables."
- (mapcar #'org-babel-asymptote-var-to-asymptote
- (org-babel--get-vars params)))
-
-(defun org-babel-asymptote-var-to-asymptote (pair)
- "Convert an elisp value into an Asymptote variable.
-The elisp value PAIR is converted into Asymptote code specifying
-a variable of the same value."
- (let ((var (car pair))
- (val (let ((v (cdr pair)))
- (if (symbolp v) (symbol-name v) v))))
- (cond
- ((integerp val)
- (format "int %S=%S;" var val))
- ((floatp val)
- (format "real %S=%S;" var val))
- ((stringp val)
- (format "string %S=\"%s\";" var val))
- ((and (listp val) (not (listp (car val))))
- (let* ((type (org-babel-asymptote-define-type val))
- (fmt (if (eq 'string type) "\"%s\"" "%s"))
- (vect (mapconcat (lambda (e) (format fmt e)) val ", ")))
- (format "%s[] %S={%s};" type var vect)))
- ((listp val)
- (let* ((type (org-babel-asymptote-define-type val))
- (fmt (if (eq 'string type) "\"%s\"" "%s"))
- (array (mapconcat (lambda (row)
- (concat "{"
- (mapconcat (lambda (e) (format fmt e))
- row ", ")
- "}"))
- val ",")))
- (format "%S[][] %S={%s};" type var array))))))
-
-(defun org-babel-asymptote-define-type (data)
- "Determine type of DATA.
-
-DATA is a list. Return type as a symbol.
-
-The type is `string' if any element in DATA is a string.
-Otherwise, it is either `real', if some elements are floats, or
-`int'."
- (letrec ((type 'int)
- (find-type
- (lambda (row)
- (dolist (e row type)
- (cond ((listp e) (setq type (funcall find-type e)))
- ((stringp e) (throw 'exit 'string))
- ((floatp e) (setq type 'real)))))))
- (catch 'exit (funcall find-type data)) type))
-
-(provide 'ob-asymptote)
-
-
-
-;;; ob-asymptote.el ends here
diff --git a/elpa/org-9.1.14/ob-asymptote.elc b/elpa/org-9.1.14/ob-asymptote.elc
deleted file mode 100644
index 2b24caf..0000000
--- a/elpa/org-9.1.14/ob-asymptote.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-awk.el b/elpa/org-9.1.14/ob-awk.el
deleted file mode 100644
index 1ee4552..0000000
--- a/elpa/org-9.1.14/ob-awk.el
+++ /dev/null
@@ -1,111 +0,0 @@
-;;; ob-awk.el --- Babel Functions for Awk -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Babel's awk can use special header argument:
-;;
-;; - :in-file takes a path to a file of data to be processed by awk
-;;
-;; - :stdin takes an Org data or code block reference, the value of
-;; which will be passed to the awk process through STDIN
-
-;;; Code:
-(require 'ob)
-(require 'org-compat)
-
-(declare-function org-babel-ref-resolve "ob-ref" (ref))
-(declare-function orgtbl-to-generic "org-table" (table params))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("awk" . "awk"))
-
-(defvar org-babel-awk-command "awk"
- "Name of the awk executable command.")
-
-(defun org-babel-expand-body:awk (body _params)
- "Expand BODY according to PARAMS, return the expanded body."
- body)
-
-(defun org-babel-execute:awk (body params)
- "Execute a block of Awk code with org-babel. This function is
-called by `org-babel-execute-src-block'"
- (message "executing Awk source code block")
- (let* ((result-params (cdr (assq :result-params params)))
- (cmd-line (cdr (assq :cmd-line params)))
- (in-file (cdr (assq :in-file params)))
- (full-body (org-babel-expand-body:awk body params))
- (code-file (let ((file (org-babel-temp-file "awk-")))
- (with-temp-file file (insert full-body)) file))
- (stdin (let ((stdin (cdr (assq :stdin params))))
- (when stdin
- (let ((tmp (org-babel-temp-file "awk-stdin-"))
- (res (org-babel-ref-resolve stdin)))
- (with-temp-file tmp
- (insert (org-babel-awk-var-to-awk res)))
- tmp))))
- (cmd (mapconcat #'identity
- (append
- (list org-babel-awk-command
- "-f" code-file cmd-line)
- (mapcar (lambda (pair)
- (format "-v %s='%s'"
- (car pair)
- (org-babel-awk-var-to-awk
- (cdr pair))))
- (org-babel--get-vars params))
- (list in-file))
- " ")))
- (org-babel-reassemble-table
- (let ((results
- (cond
- (stdin (with-temp-buffer
- (call-process-shell-command cmd stdin (current-buffer))
- (buffer-string)))
- (t (org-babel-eval cmd "")))))
- (when results
- (org-babel-result-cond result-params
- results
- (let ((tmp (org-babel-temp-file "awk-results-")))
- (with-temp-file tmp (insert results))
- (org-babel-import-elisp-from-file tmp)))))
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))
-
-(defun org-babel-awk-var-to-awk (var &optional sep)
- "Return a printed value of VAR suitable for parsing with awk."
- (let ((echo-var (lambda (v) (if (stringp v) v (format "%S" v)))))
- (cond
- ((and (listp var) (listp (car var)))
- (orgtbl-to-generic var (list :sep (or sep "\t") :fmt echo-var)))
- ((listp var)
- (mapconcat echo-var var "\n"))
- (t (funcall echo-var var)))))
-
-(provide 'ob-awk)
-
-
-
-;;; ob-awk.el ends here
diff --git a/elpa/org-9.1.14/ob-awk.elc b/elpa/org-9.1.14/ob-awk.elc
deleted file mode 100644
index fff3471..0000000
--- a/elpa/org-9.1.14/ob-awk.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-calc.el b/elpa/org-9.1.14/ob-calc.el
deleted file mode 100644
index 387cba2..0000000
--- a/elpa/org-9.1.14/ob-calc.el
+++ /dev/null
@@ -1,110 +0,0 @@
-;;; ob-calc.el --- Babel Functions for Calc -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating calc code
-
-;;; Code:
-(require 'ob)
-(require 'calc)
-(require 'calc-trail)
-(require 'calc-store)
-
-(declare-function calc-store-into "calc-store" (&optional var))
-(declare-function calc-recall "calc-store" (&optional var))
-(declare-function math-evaluate-expr "calc-ext" (x))
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-default-header-args:calc nil
- "Default arguments for evaluating a calc source block.")
-
-(defun org-babel-expand-body:calc (body _params)
- "Expand BODY according to PARAMS, return the expanded body." body)
-
-(defvar org--var-syms) ; Dynamically scoped from org-babel-execute:calc
-
-(defun org-babel-execute:calc (body params)
- "Execute a block of calc code with Babel."
- (unless (get-buffer "*Calculator*")
- (save-window-excursion (calc) (calc-quit)))
- (let* ((vars (org-babel--get-vars params))
- (org--var-syms (mapcar #'car vars))
- (var-names (mapcar #'symbol-name org--var-syms)))
- (mapc
- (lambda (pair)
- (calc-push-list (list (cdr pair)))
- (calc-store-into (car pair)))
- vars)
- (mapc
- (lambda (line)
- (when (> (length line) 0)
- (cond
- ;; simple variable name
- ((member line var-names) (calc-recall (intern line)))
- ;; stack operation
- ((string= "'" (substring line 0 1))
- (funcall (lookup-key calc-mode-map (substring line 1)) nil))
- ;; complex expression
- (t
- (calc-push-list
- (list (let ((res (calc-eval line)))
- (cond
- ((numberp res) res)
- ((math-read-number res) (math-read-number res))
- ((listp res) (error "Calc error \"%s\" on input \"%s\""
- (cadr res) line))
- (t (replace-regexp-in-string
- "'" ""
- (calc-eval
- (math-evaluate-expr
- ;; resolve user variables, calc built in
- ;; variables are handled automatically
- ;; upstream by calc
- (mapcar #'org-babel-calc-maybe-resolve-var
- ;; parse line into calc objects
- (car (math-read-exprs line)))))))))
- ))))))
- (mapcar #'org-trim
- (split-string (org-babel-expand-body:calc body params) "[\n\r]"))))
- (save-excursion
- (with-current-buffer (get-buffer "*Calculator*")
- (prog1
- (calc-eval (calc-top 1))
- (calc-pop 1)))))
-
-(defun org-babel-calc-maybe-resolve-var (el)
- (if (consp el)
- (if (and (eq 'var (car el)) (member (cadr el) org--var-syms))
- (progn
- (calc-recall (cadr el))
- (prog1 (calc-top 1)
- (calc-pop 1)))
- (mapcar #'org-babel-calc-maybe-resolve-var el))
- el))
-
-(provide 'ob-calc)
-
-
-
-;;; ob-calc.el ends here
diff --git a/elpa/org-9.1.14/ob-calc.elc b/elpa/org-9.1.14/ob-calc.elc
deleted file mode 100644
index 7f842c7..0000000
--- a/elpa/org-9.1.14/ob-calc.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-clojure.el b/elpa/org-9.1.14/ob-clojure.el
deleted file mode 100644
index 890f60a..0000000
--- a/elpa/org-9.1.14/ob-clojure.el
+++ /dev/null
@@ -1,198 +0,0 @@
-;;; ob-clojure.el --- Babel Functions for Clojure -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Joel Boehland, Eric Schulte, Oleh Krehel, Frederick Giasson
-;;
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Support for evaluating clojure code
-
-;; Requirements:
-
-;; - clojure (at least 1.2.0)
-;; - clojure-mode
-;; - either cider or SLIME
-
-;; For Cider, see https://github.com/clojure-emacs/cider
-
-;; For SLIME, the best way to install these components is by following
-;; the directions as set out by Phil Hagelberg (Technomancy) on the
-;; web page: http://technomancy.us/126
-
-;;; Code:
-(require 'cl-lib)
-(require 'ob)
-
-(declare-function cider-current-connection "ext:cider-client" (&optional type))
-(declare-function cider-current-ns "ext:cider-client" ())
-(declare-function nrepl--merge "ext:nrepl-client" (dict1 dict2))
-(declare-function nrepl-dict-get "ext:nrepl-client" (dict key))
-(declare-function nrepl-dict-put "ext:nrepl-client" (dict key value))
-(declare-function nrepl-request:eval "ext:nrepl-client"
- (input callback connection &optional session ns line column additional-params))
-(declare-function nrepl-sync-request:eval "ext:nrepl-client"
- (input connection session &optional ns))
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function slime-eval "ext:slime" (sexp &optional package))
-
-(defvar nrepl-sync-request-timeout)
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("clojure" . "clj"))
-
-(defvar org-babel-default-header-args:clojure '())
-(defvar org-babel-header-args:clojure '((package . :any)))
-
-(defcustom org-babel-clojure-sync-nrepl-timeout 10
- "Timeout value, in seconds, of a Clojure sync call.
-If the value is nil, timeout is disabled."
- :group 'org-babel
- :type 'integer
- :version "26.1"
- :package-version '(Org . "9.1")
- :safe #'wholenump)
-
-(defcustom org-babel-clojure-backend
- (cond ((featurep 'cider) 'cider)
- (t 'slime))
- "Backend used to evaluate Clojure code blocks."
- :group 'org-babel
- :type '(choice
- (const :tag "cider" cider)
- (const :tag "SLIME" slime)))
-
-(defun org-babel-expand-body:clojure (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let* ((vars (org-babel--get-vars params))
- (result-params (cdr (assq :result-params params)))
- (print-level nil) (print-length nil)
- (body (org-trim
- (if (null vars) (org-trim body)
- (concat "(let ["
- (mapconcat
- (lambda (var)
- (format "%S (quote %S)" (car var) (cdr var)))
- vars "\n ")
- "]\n" body ")")))))
- (if (or (member "code" result-params)
- (member "pp" result-params))
- (format "(clojure.pprint/pprint (do %s))" body)
- body)))
-
-(defun org-babel-execute:clojure (body params)
- "Execute a block of Clojure code with Babel.
-The underlying process performed by the code block can be output
-using the :show-process parameter."
- (let ((expanded (org-babel-expand-body:clojure body params))
- (response (list 'dict))
- result)
- (cl-case org-babel-clojure-backend
- (cider
- (require 'cider)
- (let ((result-params (cdr (assq :result-params params)))
- (show (cdr (assq :show-process params))))
- (if (member show '(nil "no"))
- ;; Run code without showing the process.
- (progn
- (setq response
- (let ((nrepl-sync-request-timeout
- org-babel-clojure-sync-nrepl-timeout))
- (nrepl-sync-request:eval expanded
- (cider-current-connection)
- (cider-current-ns))))
- (setq result
- (concat
- (nrepl-dict-get response
- (if (or (member "output" result-params)
- (member "pp" result-params))
- "out"
- "value"))
- (nrepl-dict-get response "ex")
- (nrepl-dict-get response "root-ex")
- (nrepl-dict-get response "err"))))
- ;; Show the process in an output buffer/window.
- (let ((process-buffer (switch-to-buffer-other-window
- "*Clojure Show Process Sub Buffer*"))
- status)
- ;; Run the Clojure code in nREPL.
- (nrepl-request:eval
- expanded
- (lambda (resp)
- (when (member "out" resp)
- ;; Print the output of the nREPL in the output buffer.
- (princ (nrepl-dict-get resp "out") process-buffer))
- (when (member "ex" resp)
- ;; In case there is an exception, then add it to the
- ;; output buffer as well.
- (princ (nrepl-dict-get resp "ex") process-buffer)
- (princ (nrepl-dict-get resp "root-ex") process-buffer))
- (when (member "err" resp)
- ;; In case there is an error, then add it to the
- ;; output buffer as well.
- (princ (nrepl-dict-get resp "err") process-buffer))
- (nrepl--merge response resp)
- ;; Update the status of the nREPL output session.
- (setq status (nrepl-dict-get response "status")))
- (cider-current-connection)
- (cider-current-ns))
-
- ;; Wait until the nREPL code finished to be processed.
- (while (not (member "done" status))
- (nrepl-dict-put response "status" (remove "need-input" status))
- (accept-process-output nil 0.01)
- (redisplay))
-
- ;; Delete the show buffer & window when the processing is
- ;; finalized.
- (mapc #'delete-window
- (get-buffer-window-list process-buffer nil t))
- (kill-buffer process-buffer)
-
- ;; Put the output or the value in the result section of
- ;; the code block.
- (setq result
- (concat
- (nrepl-dict-get response
- (if (or (member "output" result-params)
- (member "pp" result-params))
- "out"
- "value"))
- (nrepl-dict-get response "ex")
- (nrepl-dict-get response "root-ex")
- (nrepl-dict-get response "err")))))))
- (slime
- (require 'slime)
- (with-temp-buffer
- (insert expanded)
- (setq result
- (slime-eval
- `(swank:eval-and-grab-output
- ,(buffer-substring-no-properties (point-min) (point-max)))
- (cdr (assq :package params)))))))
- (org-babel-result-cond (cdr (assq :result-params params))
- result
- (condition-case nil (org-babel-script-escape result)
- (error result)))))
-
-(provide 'ob-clojure)
-
-;;; ob-clojure.el ends here
diff --git a/elpa/org-9.1.14/ob-clojure.elc b/elpa/org-9.1.14/ob-clojure.elc
deleted file mode 100644
index 837368a..0000000
--- a/elpa/org-9.1.14/ob-clojure.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-comint.el b/elpa/org-9.1.14/ob-comint.el
deleted file mode 100644
index e9c6f93..0000000
--- a/elpa/org-9.1.14/ob-comint.el
+++ /dev/null
@@ -1,156 +0,0 @@
-;;; ob-comint.el --- Babel Functions for Interaction with Comint Buffers -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research, comint
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; These functions build on comint to ease the sending and receiving
-;; of commands and results from comint buffers.
-
-;; Note that the buffers in this file are analogous to sessions in
-;; org-babel at large.
-
-;;; Code:
-(require 'ob-core)
-(require 'org-compat)
-(require 'comint)
-
-(defun org-babel-comint-buffer-livep (buffer)
- "Check if BUFFER is a comint buffer with a live process."
- (let ((buffer (if buffer (get-buffer buffer))))
- (and buffer (buffer-live-p buffer) (get-buffer-process buffer) buffer)))
-
-(defmacro org-babel-comint-in-buffer (buffer &rest body)
- "Check BUFFER and execute BODY.
-BUFFER is checked with `org-babel-comint-buffer-livep'. BODY is
-executed inside the protection of `save-excursion' and
-`save-match-data'."
- (declare (indent 1))
- `(progn
- (unless (org-babel-comint-buffer-livep ,buffer)
- (error "Buffer %s does not exist or has no process" ,buffer))
- (save-match-data
- (with-current-buffer ,buffer
- (save-excursion
- (let ((comint-input-filter (lambda (_input) nil)))
- ,@body))))))
-(def-edebug-spec org-babel-comint-in-buffer (form body))
-
-(defmacro org-babel-comint-with-output (meta &rest body)
- "Evaluate BODY in BUFFER and return process output.
-Will wait until EOE-INDICATOR appears in the output, then return
-all process output. If REMOVE-ECHO and FULL-BODY are present and
-non-nil, then strip echo'd body from the returned output. META
-should be a list containing the following where the last two
-elements are optional.
-
- (BUFFER EOE-INDICATOR REMOVE-ECHO FULL-BODY)
-
-This macro ensures that the filter is removed in case of an error
-or user `keyboard-quit' during execution of body."
- (declare (indent 1))
- (let ((buffer (nth 0 meta))
- (eoe-indicator (nth 1 meta))
- (remove-echo (nth 2 meta))
- (full-body (nth 3 meta)))
- `(org-babel-comint-in-buffer ,buffer
- (let* ((string-buffer "")
- (comint-output-filter-functions
- (cons (lambda (text) (setq string-buffer (concat string-buffer text)))
- comint-output-filter-functions))
- dangling-text)
- ;; got located, and save dangling text
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (let ((start (point))
- (end (point-max)))
- (setq dangling-text (buffer-substring start end))
- (delete-region start end))
- ;; pass FULL-BODY to process
- ,@body
- ;; wait for end-of-evaluation indicator
- (while (progn
- (goto-char comint-last-input-end)
- (not (save-excursion
- (and (re-search-forward
- (regexp-quote ,eoe-indicator) nil t)
- (re-search-forward
- comint-prompt-regexp nil t)))))
- (accept-process-output (get-buffer-process (current-buffer)))
- ;; thought the following this would allow async
- ;; background running, but I was wrong...
- ;; (run-with-timer .5 .5 'accept-process-output
- ;; (get-buffer-process (current-buffer)))
- )
- ;; replace cut dangling text
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (insert dangling-text)
-
- ;; remove echo'd FULL-BODY from input
- (when (and ,remove-echo ,full-body
- (string-match
- (replace-regexp-in-string
- "\n" "[\r\n]+" (regexp-quote (or ,full-body "")))
- string-buffer))
- (setq string-buffer (substring string-buffer (match-end 0))))
- (split-string string-buffer comint-prompt-regexp)))))
-(def-edebug-spec org-babel-comint-with-output (sexp body))
-
-(defun org-babel-comint-input-command (buffer cmd)
- "Pass CMD to BUFFER.
-The input will not be echoed."
- (org-babel-comint-in-buffer buffer
- (goto-char (process-mark (get-buffer-process buffer)))
- (insert cmd)
- (comint-send-input)
- (org-babel-comint-wait-for-output buffer)))
-
-(defun org-babel-comint-wait-for-output (buffer)
- "Wait until output arrives from BUFFER.
-Note: this is only safe when waiting for the result of a single
-statement (not large blocks of code)."
- (org-babel-comint-in-buffer buffer
- (while (progn
- (goto-char comint-last-input-end)
- (not (and (re-search-forward comint-prompt-regexp nil t)
- (goto-char (match-beginning 0))
- (string= (face-name (face-at-point))
- "comint-highlight-prompt"))))
- (accept-process-output (get-buffer-process buffer)))))
-
-(defun org-babel-comint-eval-invisibly-and-wait-for-file
- (buffer file string &optional period)
- "Evaluate STRING in BUFFER invisibly.
-Don't return until FILE exists. Code in STRING must ensure that
-FILE exists at end of evaluation."
- (unless (org-babel-comint-buffer-livep buffer)
- (error "Buffer %s does not exist or has no process" buffer))
- (when (file-exists-p file) (delete-file file))
- (process-send-string
- (get-buffer-process buffer)
- (if (= (aref string (1- (length string))) ?\n) string (concat string "\n")))
- (while (not (file-exists-p file)) (sit-for (or period 0.25))))
-
-(provide 'ob-comint)
-
-
-
-;;; ob-comint.el ends here
diff --git a/elpa/org-9.1.14/ob-comint.elc b/elpa/org-9.1.14/ob-comint.elc
deleted file mode 100644
index 5f59dff..0000000
--- a/elpa/org-9.1.14/ob-comint.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-coq.el b/elpa/org-9.1.14/ob-coq.el
deleted file mode 100644
index 875c794..0000000
--- a/elpa/org-9.1.14/ob-coq.el
+++ /dev/null
@@ -1,78 +0,0 @@
-;;; ob-coq.el --- Babel Functions for Coq -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Rudimentary support for evaluating Coq code blocks. Currently only
-;; session evaluation is supported. Requires both coq.el and
-;; coq-inferior.el, both of which are distributed with Coq.
-;;
-;; http://coq.inria.fr/
-
-;;; Code:
-(require 'ob)
-
-(declare-function run-coq "ext:coq-inferior.el" (cmd))
-(declare-function coq-proc "ext:coq-inferior.el" ())
-
-(defvar coq-program-name "coqtop"
- "Name of the coq toplevel to run.")
-
-(defvar org-babel-coq-buffer "*coq*"
- "Buffer in which to evaluate coq code blocks.")
-
-(defun org-babel-coq-clean-prompt (string)
- (if (string-match "^[^[:space:]]+ < " string)
- (substring string 0 (match-beginning 0))
- string))
-
-(defun org-babel-execute:coq (body params)
- (let ((full-body (org-babel-expand-body:generic body params))
- (session (org-babel-coq-initiate-session))
- (pt (lambda ()
- (marker-position
- (process-mark (get-buffer-process (current-buffer)))))))
- (org-babel-coq-clean-prompt
- (org-babel-comint-in-buffer session
- (let ((start (funcall pt)))
- (with-temp-buffer
- (insert full-body)
- (comint-send-region (coq-proc) (point-min) (point-max))
- (comint-send-string (coq-proc)
- (if (string= (buffer-substring (- (point-max) 1) (point-max)) ".")
- "\n"
- ".\n")))
- (while (equal start (funcall pt)) (sleep-for 0.1))
- (buffer-substring start (funcall pt)))))))
-
-(defun org-babel-coq-initiate-session ()
- "Initiate a coq session.
-If there is not a current inferior-process-buffer in SESSION then
-create one. Return the initialized session."
- (unless (fboundp 'run-coq)
- (error "`run-coq' not defined, load coq-inferior.el"))
- (save-window-excursion (run-coq coq-program-name))
- (sit-for 0.1)
- (get-buffer org-babel-coq-buffer))
-
-(provide 'ob-coq)
diff --git a/elpa/org-9.1.14/ob-coq.elc b/elpa/org-9.1.14/ob-coq.elc
deleted file mode 100644
index 5ecf303..0000000
--- a/elpa/org-9.1.14/ob-coq.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-core.el b/elpa/org-9.1.14/ob-core.el
deleted file mode 100644
index 5d5faaa..0000000
--- a/elpa/org-9.1.14/ob-core.el
+++ /dev/null
@@ -1,3161 +0,0 @@
-;;; ob-core.el --- Working with Code Blocks -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Eric Schulte
-;; Dan Davison
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Code:
-(require 'cl-lib)
-(require 'ob-eval)
-(require 'org-macs)
-(require 'org-compat)
-
-(defconst org-babel-exeext
- (if (memq system-type '(windows-nt cygwin))
- ".exe"
- nil))
-
-(defvar org-babel-library-of-babel)
-(defvar org-edit-src-content-indentation)
-(defvar org-src-lang-modes)
-(defvar org-src-preserve-indentation)
-
-(declare-function org-at-item-p "org-list" ())
-(declare-function org-at-table-p "org" (&optional table-type))
-(declare-function org-babel-lob-execute-maybe "ob-lob" ())
-(declare-function org-babel-ref-goto-headline-id "ob-ref" (id))
-(declare-function org-babel-ref-headline-body "ob-ref" ())
-(declare-function org-babel-ref-parse "ob-ref" (assignment))
-(declare-function org-babel-ref-resolve "ob-ref" (ref))
-(declare-function org-babel-ref-split-args "ob-ref" (arg-string))
-(declare-function org-babel-tangle-comment-links "ob-tangle" (&optional info))
-(declare-function org-completing-read "org" (&rest args))
-(declare-function org-current-level "org" ())
-(declare-function org-cycle "org" (&optional arg))
-(declare-function org-do-remove-indentation "org" (&optional n))
-(declare-function org-edit-src-code "org-src" (&optional code edit-buffer-name))
-(declare-function org-edit-src-exit "org-src" ())
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-normalize-string "org-element" (s))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-entry-get "org" (pom property &optional inherit literal-nil))
-(declare-function org-escape-code-in-region "org-src" (beg end))
-(declare-function org-get-indentation "org" (&optional line))
-(declare-function org-get-indentation "org" (&optional line))
-(declare-function org-in-regexp "org" (regexp &optional nlines visually))
-(declare-function org-indent-line "org" ())
-(declare-function org-list-get-list-end "org-list" (item struct prevs))
-(declare-function org-list-prevs-alist "org-list" (struct))
-(declare-function org-list-struct "org-list" ())
-(declare-function org-list-to-generic "org-list" (LIST PARAMS))
-(declare-function org-list-to-lisp "org-list" (&optional delete))
-(declare-function org-macro-escape-arguments "org-macro" (&rest args))
-(declare-function org-make-options-regexp "org" (kwds &optional extra))
-(declare-function org-mark-ring-push "org" (&optional pos buffer))
-(declare-function org-narrow-to-subtree "org" ())
-(declare-function org-next-block "org" (arg &optional backward block-regexp))
-(declare-function org-open-at-point "org" (&optional in-emacs reference-buffer))
-(declare-function org-outline-overlay-data "org" (&optional use-markers))
-(declare-function org-previous-block "org" (arg &optional block-regexp))
-(declare-function org-remove-indentation "org" (code &optional n))
-(declare-function org-reverse-string "org" (string))
-(declare-function org-set-outline-overlay-data "org" (data))
-(declare-function org-show-context "org" (&optional key))
-(declare-function org-src-coderef-format "org-src" (&optional element))
-(declare-function org-src-coderef-regexp "org-src" (fmt &optional label))
-(declare-function org-table-align "org-table" ())
-(declare-function org-table-end "org-table" (&optional table-type))
-(declare-function org-table-import "org-table" (file arg))
-(declare-function org-table-to-lisp "org-table" (&optional txt))
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function org-unescape-code-in-string "org-src" (s))
-(declare-function org-uniquify "org" (list))
-(declare-function orgtbl-to-generic "org-table" (table params))
-(declare-function orgtbl-to-orgtbl "org-table" (table params))
-(declare-function outline-show-all "outline" ())
-(declare-function tramp-compat-make-temp-file "tramp-compat" (filename &optional dir-flag))
-
-(defgroup org-babel nil
- "Code block evaluation and management in `org-mode' documents."
- :tag "Babel"
- :group 'org)
-
-(defcustom org-confirm-babel-evaluate t
- "Confirm before evaluation.
-\\<org-mode-map>\
-Require confirmation before interactively evaluating code
-blocks in Org buffers. The default value of this variable is t,
-meaning confirmation is required for any code block evaluation.
-This variable can be set to nil to inhibit any future
-confirmation requests. This variable can also be set to a
-function which takes two arguments the language of the code block
-and the body of the code block. Such a function should then
-return a non-nil value if the user should be prompted for
-execution or nil if no prompt is required.
-
-Warning: Disabling confirmation may result in accidental
-evaluation of potentially harmful code. It may be advisable
-remove code block execution from `\\[org-ctrl-c-ctrl-c]' \
-as further protection
-against accidental code block evaluation. The
-`org-babel-no-eval-on-ctrl-c-ctrl-c' variable can be used to
-remove code block execution from the `\\[org-ctrl-c-ctrl-c]' keybinding."
- :group 'org-babel
- :version "24.1"
- :type '(choice boolean function))
-;; don't allow this variable to be changed through file settings
-(put 'org-confirm-babel-evaluate 'safe-local-variable (lambda (x) (eq x t)))
-
-(defcustom org-babel-no-eval-on-ctrl-c-ctrl-c nil
- "\\<org-mode-map>\
-Remove code block evaluation from the `\\[org-ctrl-c-ctrl-c]' key binding."
- :group 'org-babel
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-babel-results-keyword "RESULTS"
- "Keyword used to name results generated by code blocks.
-It should be \"RESULTS\". However any capitalization may be
-used."
- :group 'org-babel
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string
- :safe (lambda (v)
- (and (stringp v)
- (eq (compare-strings "RESULTS" nil nil v nil nil t)
- t))))
-
-(defcustom org-babel-noweb-wrap-start "<<"
- "String used to begin a noweb reference in a code block.
-See also `org-babel-noweb-wrap-end'."
- :group 'org-babel
- :type 'string)
-
-(defcustom org-babel-noweb-wrap-end ">>"
- "String used to end a noweb reference in a code block.
-See also `org-babel-noweb-wrap-start'."
- :group 'org-babel
- :type 'string)
-
-(defcustom org-babel-inline-result-wrap "=%s="
- "Format string used to wrap inline results.
-This string must include a \"%s\" which will be replaced by the results."
- :group 'org-babel
- :type 'string)
-(put 'org-babel-inline-result-wrap
- 'safe-local-variable
- (lambda (value)
- (and (stringp value)
- (string-match-p "%s" value))))
-
-(defcustom org-babel-hash-show-time nil
- "Non-nil means show the time the code block was evaluated in the result hash."
- :group 'org-babel
- :type 'boolean
- :version "26.1"
- :package-version '(Org . "9.0")
- :safe #'booleanp)
-
-(defcustom org-babel-uppercase-example-markers nil
- "When non-nil, begin/end example markers will be inserted in upper case."
- :group 'org-babel
- :type 'boolean
- :version "26.1"
- :package-version '(Org . "9.1")
- :safe #'booleanp)
-
-(defun org-babel-noweb-wrap (&optional regexp)
- (concat org-babel-noweb-wrap-start
- (or regexp "\\([^ \t\n].+?[^ \t]\\|[^ \t\n]\\)")
- org-babel-noweb-wrap-end))
-
-(defvar org-babel-src-name-regexp
- "^[ \t]*#\\+name:[ \t]*"
- "Regular expression used to match a source name line.")
-
-(defvar org-babel-multi-line-header-regexp
- "^[ \t]*#\\+headers?:[ \t]*\\([^\n]*\\)$"
- "Regular expression used to match multi-line header arguments.")
-
-(defvar org-babel-src-block-regexp
- (concat
- ;; (1) indentation (2) lang
- "^\\([ \t]*\\)#\\+begin_src[ \t]+\\([^ \f\t\n\r\v]+\\)[ \t]*"
- ;; (3) switches
- "\\([^\":\n]*\"[^\"\n*]*\"[^\":\n]*\\|[^\":\n]*\\)"
- ;; (4) header arguments
- "\\([^\n]*\\)\n"
- ;; (5) body
- "\\([^\000]*?\n\\)??[ \t]*#\\+end_src")
- "Regexp used to identify code blocks.")
-
-(defun org-babel--get-vars (params)
- "Return the babel variable assignments in PARAMS.
-
-PARAMS is a quasi-alist of header args, which may contain
-multiple entries for the key `:var'. This function returns a
-list of the cdr of all the `:var' entries."
- (mapcar #'cdr
- (cl-remove-if-not (lambda (x) (eq (car x) :var)) params)))
-
-(defvar org-babel-exp-reference-buffer nil
- "Buffer containing original contents of the exported buffer.
-This is used by Babel to resolve references in source blocks.
-Its value is dynamically bound during export.")
-
-(defun org-babel-check-confirm-evaluate (info)
- "Check whether INFO allows code block evaluation.
-
-Returns nil if evaluation is disallowed, t if it is
-unconditionally allowed, and the symbol `query' if the user
-should be asked whether to allow evaluation."
- (let* ((headers (nth 2 info))
- (eval (or (cdr (assq :eval headers))
- (when (assq :noeval headers) "no")))
- (eval-no (member eval '("no" "never")))
- (export org-babel-exp-reference-buffer)
- (eval-no-export (and export (member eval '("no-export" "never-export"))))
- (noeval (or eval-no eval-no-export))
- (query (or (equal eval "query")
- (and export (equal eval "query-export"))
- (if (functionp org-confirm-babel-evaluate)
- (funcall org-confirm-babel-evaluate
- ;; Language, code block body.
- (nth 0 info) (nth 1 info))
- org-confirm-babel-evaluate))))
- (cond
- (noeval nil)
- (query 'query)
- (t t))))
-
-(defun org-babel-check-evaluate (info)
- "Check if code block INFO should be evaluated.
-Do not query the user, but do display an informative message if
-evaluation is blocked. Returns non-nil if evaluation is not blocked."
- (let ((confirmed (org-babel-check-confirm-evaluate info)))
- (unless confirmed
- (message "Evaluation of this %s code block%sis disabled."
- (nth 0 info)
- (let ((name (nth 4 info)))
- (if name (format " (%s) " name) " "))))
- confirmed))
-
-;; Dynamically scoped for asynchronous export.
-(defvar org-babel-confirm-evaluate-answer-no)
-
-(defun org-babel-confirm-evaluate (info)
- "Confirm evaluation of the code block INFO.
-
-This query can also be suppressed by setting the value of
-`org-confirm-babel-evaluate' to nil, in which case all future
-interactive code block evaluations will proceed without any
-confirmation from the user.
-
-Note disabling confirmation may result in accidental evaluation
-of potentially harmful code.
-
-The variable `org-babel-confirm-evaluate-answer-no' is used by
-the async export process, which requires a non-interactive
-environment, to override this check."
- (let* ((evalp (org-babel-check-confirm-evaluate info))
- (lang (nth 0 info))
- (name (nth 4 info))
- (name-string (if name (format " (%s) " name) " ")))
- (pcase evalp
- (`nil nil)
- (`t t)
- (`query (or
- (and (not (bound-and-true-p
- org-babel-confirm-evaluate-answer-no))
- (yes-or-no-p
- (format "Evaluate this %s code block%son your system? "
- lang name-string)))
- (progn
- (message "Evaluation of this %s code block%sis aborted."
- lang name-string)
- nil)))
- (x (error "Unexpected value `%s' from `org-babel-check-confirm-evaluate'" x)))))
-
-;;;###autoload
-(defun org-babel-execute-safely-maybe ()
- (unless org-babel-no-eval-on-ctrl-c-ctrl-c
- (org-babel-execute-maybe)))
-
-;;;###autoload
-(defun org-babel-execute-maybe ()
- (interactive)
- (or (org-babel-execute-src-block-maybe)
- (org-babel-lob-execute-maybe)))
-
-(defmacro org-babel-when-in-src-block (&rest body)
- "Execute BODY if point is in a source block and return t.
-
-Otherwise do nothing and return nil."
- `(if (memq (org-element-type (org-element-context))
- '(inline-src-block src-block))
- (progn
- ,@body
- t)
- nil))
-
-(defun org-babel-execute-src-block-maybe ()
- "Conditionally execute a source block.
-Detect if this is context for a Babel src-block and if so
-then run `org-babel-execute-src-block'."
- (interactive)
- (org-babel-when-in-src-block
- (org-babel-eval-wipe-error-buffer)
- (org-babel-execute-src-block current-prefix-arg)))
-
-;;;###autoload
-(defun org-babel-view-src-block-info ()
- "Display information on the current source block.
-This includes header arguments, language and name, and is largely
-a window into the `org-babel-get-src-block-info' function."
- (interactive)
- (let ((info (org-babel-get-src-block-info 'light))
- (full (lambda (it) (> (length it) 0)))
- (printf (lambda (fmt &rest args) (princ (apply #'format fmt args)))))
- (when info
- (with-help-window (help-buffer)
- (let ((name (nth 4 info))
- (lang (nth 0 info))
- (switches (nth 3 info))
- (header-args (nth 2 info)))
- (when name (funcall printf "Name: %s\n" name))
- (when lang (funcall printf "Lang: %s\n" lang))
- (funcall printf "Properties:\n")
- (funcall printf "\t:header-args \t%s\n" (org-entry-get (point) "header-args" t))
- (funcall printf "\t:header-args:%s \t%s\n" lang (org-entry-get (point) (concat "header-args:" lang) t))
-
- (when (funcall full switches) (funcall printf "Switches: %s\n" switches))
- (funcall printf "Header Arguments:\n")
- (dolist (pair (sort header-args
- (lambda (a b) (string< (symbol-name (car a))
- (symbol-name (car b))))))
- (when (funcall full (format "%s" (cdr pair)))
- (funcall printf "\t%S%s\t%s\n"
- (car pair)
- (if (> (length (format "%S" (car pair))) 7) "" "\t")
- (cdr pair)))))))))
-
-;;;###autoload
-(defun org-babel-expand-src-block-maybe ()
- "Conditionally expand a source block.
-Detect if this is context for an org-babel src-block and if so
-then run `org-babel-expand-src-block'."
- (interactive)
- (org-babel-when-in-src-block
- (org-babel-expand-src-block current-prefix-arg)))
-
-;;;###autoload
-(defun org-babel-load-in-session-maybe ()
- "Conditionally load a source block in a session.
-Detect if this is context for an org-babel src-block and if so
-then run `org-babel-load-in-session'."
- (interactive)
- (org-babel-when-in-src-block
- (org-babel-load-in-session current-prefix-arg)))
-
-(add-hook 'org-metaup-hook 'org-babel-load-in-session-maybe)
-
-;;;###autoload
-(defun org-babel-pop-to-session-maybe ()
- "Conditionally pop to a session.
-Detect if this is context for an org-babel src-block and if so
-then run `org-babel-switch-to-session'."
- (interactive)
- (org-babel-when-in-src-block
- (org-babel-switch-to-session current-prefix-arg)))
-
-(add-hook 'org-metadown-hook 'org-babel-pop-to-session-maybe)
-
-(defconst org-babel-common-header-args-w-values
- '((cache . ((no yes)))
- (cmdline . :any)
- (colnames . ((nil no yes)))
- (comments . ((no link yes org both noweb)))
- (dir . :any)
- (eval . ((yes no no-export strip-export never-export eval never
- query)))
- (exports . ((code results both none)))
- (epilogue . :any)
- (file . :any)
- (file-desc . :any)
- (file-ext . :any)
- (hlines . ((no yes)))
- (mkdirp . ((yes no)))
- (no-expand)
- (noeval)
- (noweb . ((yes no tangle no-export strip-export)))
- (noweb-ref . :any)
- (noweb-sep . :any)
- (output-dir . :any)
- (padline . ((yes no)))
- (post . :any)
- (prologue . :any)
- (results . ((file list vector table scalar verbatim)
- (raw html latex org code pp drawer)
- (replace silent none append prepend)
- (output value)))
- (rownames . ((no yes)))
- (sep . :any)
- (session . :any)
- (shebang . :any)
- (tangle . ((tangle yes no :any)))
- (tangle-mode . ((#o755 #o555 #o444 :any)))
- (var . :any)
- (wrap . :any)))
-
-(defconst org-babel-header-arg-names
- (mapcar #'car org-babel-common-header-args-w-values)
- "Common header arguments used by org-babel.
-Note that individual languages may define their own language
-specific header arguments as well.")
-
-(defconst org-babel-safe-header-args
- '(:cache :colnames :comments :exports :epilogue :hlines :noeval
- :noweb :noweb-ref :noweb-sep :padline :prologue :rownames
- :sep :session :tangle :wrap
- (:eval . ("never" "query"))
- (:results . (lambda (str) (not (string-match "file" str)))))
- "A list of safe header arguments for babel source blocks.
-
-The list can have entries of the following forms:
-- :ARG -> :ARG is always a safe header arg
-- (:ARG . (VAL1 VAL2 ...)) -> :ARG is safe as a header arg if it is
- `equal' to one of the VALs.
-- (:ARG . FN) -> :ARG is safe as a header arg if the function FN
- returns non-nil. FN is passed one
- argument, the value of the header arg
- (as a string).")
-
-(defmacro org-babel-header-args-safe-fn (safe-list)
- "Return a function that determines whether a list of header args are safe.
-
-Intended usage is:
-\(put \\='org-babel-default-header-args \\='safe-local-variable
- (org-babel-header-args-safe-p org-babel-safe-header-args)
-
-This allows org-babel languages to extend the list of safe values for
-their `org-babel-default-header-args:foo' variable.
-
-For the format of SAFE-LIST, see `org-babel-safe-header-args'."
- `(lambda (value)
- (and (listp value)
- (cl-every
- (lambda (pair)
- (and (consp pair)
- (org-babel-one-header-arg-safe-p pair ,safe-list)))
- value))))
-
-(defvar org-babel-default-header-args
- '((:session . "none") (:results . "replace") (:exports . "code")
- (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no"))
- "Default arguments to use when evaluating a source block.")
-(put 'org-babel-default-header-args 'safe-local-variable
- (org-babel-header-args-safe-fn org-babel-safe-header-args))
-
-(defvar org-babel-default-inline-header-args
- '((:session . "none") (:results . "replace")
- (:exports . "results") (:hlines . "yes"))
- "Default arguments to use when evaluating an inline source block.")
-(put 'org-babel-default-inline-header-args 'safe-local-variable
- (org-babel-header-args-safe-fn org-babel-safe-header-args))
-
-(defconst org-babel-name-regexp
- (format "^[ \t]*#\\+%s:[ \t]*"
- ;; FIXME: TBLNAME is for backward compatibility.
- (regexp-opt '("NAME" "TBLNAME")))
- "Regexp matching a NAME keyword.")
-
-(defconst org-babel-result-regexp
- (format "^[ \t]*#\\+%s\\(?:\\[\\(?:%s \\)?\\([[:alnum:]]+\\)\\]\\)?:[ \t]*"
- org-babel-results-keyword
- ;; <%Y-%m-%d %H:%M:%S>
- "<\\(?:[0-9]\\{4\\}-[0-1][0-9]-[0-3][0-9] \
-[0-2][0-9]\\(?::[0-5][0-9]\\)\\{2\\}\\)>")
- "Regular expression used to match result lines.
-If the results are associated with a hash key then the hash will
-be saved in match group 1.")
-
-(defconst org-babel-result-w-name-regexp
- (concat org-babel-result-regexp "\\(?9:[^ \t\n\r\v\f]+\\)")
- "Regexp matching a RESULTS keyword with a name.
-Name is saved in match group 9.")
-
-(defvar org-babel-min-lines-for-block-output 10
- "The minimum number of lines for block output.
-If number of lines of output is equal to or exceeds this
-value, the output is placed in a #+begin_example...#+end_example
-block. Otherwise the output is marked as literal by inserting
-colons at the starts of the lines. This variable only takes
-effect if the :results output option is in effect.")
-
-(defvar org-babel-noweb-error-all-langs nil
- "Raise errors when noweb references don't resolve.
-Also see `org-babel-noweb-error-langs' to control noweb errors on
-a language by language bases.")
-
-(defvar org-babel-noweb-error-langs nil
- "Languages for which Babel will raise literate programming errors.
-List of languages for which errors should be raised when the
-source code block satisfying a noweb reference in this language
-can not be resolved. Also see `org-babel-noweb-error-all-langs'
-to raise errors for all languages.")
-
-(defvar org-babel-hash-show 4
- "Number of initial characters to show of a hidden results hash.")
-
-(defvar org-babel-after-execute-hook nil
- "Hook for functions to be called after `org-babel-execute-src-block'")
-
-(defun org-babel-named-src-block-regexp-for-name (&optional name)
- "This generates a regexp used to match a src block named NAME.
-If NAME is nil, match any name. Matched name is then put in
-match group 9. Other match groups are defined in
-`org-babel-src-block-regexp'."
- (concat org-babel-src-name-regexp
- (concat (if name (regexp-quote name) "\\(?9:.*?\\)") "[ \t]*" )
- "\\(?:\n[ \t]*#\\+\\S-+:.*\\)*?"
- "\n"
- (substring org-babel-src-block-regexp 1)))
-
-(defun org-babel-named-data-regexp-for-name (name)
- "This generates a regexp used to match data named NAME."
- (concat org-babel-name-regexp (regexp-quote name) "[ \t]*$"))
-
-(defun org-babel--normalize-body (datum)
- "Normalize body for element or object DATUM.
-DATUM is a source block element or an inline source block object.
-Remove final newline character and spurious indentation."
- (let* ((value (org-element-property :value datum))
- (body (if (string-suffix-p "\n" value)
- (substring value 0 -1)
- value)))
- (cond ((eq (org-element-type datum) 'inline-src-block)
- ;; Newline characters and indentation in an inline
- ;; src-block are not meaningful, since they could come from
- ;; some paragraph filling. Treat them as a white space.
- (replace-regexp-in-string "\n[ \t]*" " " body))
- ((or org-src-preserve-indentation
- (org-element-property :preserve-indent datum))
- body)
- (t (org-remove-indentation body)))))
-
-;;; functions
-(defvar org-babel-current-src-block-location nil
- "Marker pointing to the src block currently being executed.
-This may also point to a call line or an inline code block. If
-multiple blocks are being executed (e.g., in chained execution
-through use of the :var header argument) this marker points to
-the outer-most code block.")
-
-(defvar *this*)
-
-(defun org-babel-get-src-block-info (&optional light datum)
- "Extract information from a source block or inline source block.
-
-Optional argument LIGHT does not resolve remote variable
-references; a process which could likely result in the execution
-of other code blocks.
-
-By default, consider the block at point. However, when optional
-argument DATUM is provided, extract information from that parsed
-object instead.
-
-Return nil if point is not on a source block. Otherwise, return
-a list with the following pattern:
-
- (language body arguments switches name start coderef)"
- (let* ((datum (or datum (org-element-context)))
- (type (org-element-type datum))
- (inline (eq type 'inline-src-block)))
- (when (memq type '(inline-src-block src-block))
- (let* ((lang (org-element-property :language datum))
- (lang-headers (intern
- (concat "org-babel-default-header-args:" lang)))
- (name (org-element-property :name datum))
- (info
- (list
- lang
- (org-babel--normalize-body datum)
- (apply #'org-babel-merge-params
- (if inline org-babel-default-inline-header-args
- org-babel-default-header-args)
- (and (boundp lang-headers) (eval lang-headers t))
- (append
- ;; If DATUM is provided, make sure we get node
- ;; properties applicable to its location within
- ;; the document.
- (org-with-point-at (org-element-property :begin datum)
- (org-babel-params-from-properties lang))
- (mapcar #'org-babel-parse-header-arguments
- (cons (org-element-property :parameters datum)
- (org-element-property :header datum)))))
- (or (org-element-property :switches datum) "")
- name
- (org-element-property (if inline :begin :post-affiliated)
- datum)
- (and (not inline) (org-src-coderef-format datum)))))
- (unless light
- (setf (nth 2 info) (org-babel-process-params (nth 2 info))))
- (setf (nth 2 info) (org-babel-generate-file-param name (nth 2 info)))
- info))))
-
-;;;###autoload
-(defun org-babel-execute-src-block (&optional arg info params)
- "Execute the current source code block.
-Insert the results of execution into the buffer. Source code
-execution and the collection and formatting of results can be
-controlled through a variety of header arguments.
-
-With prefix argument ARG, force re-execution even if an existing
-result cached in the buffer would otherwise have been returned.
-
-Optionally supply a value for INFO in the form returned by
-`org-babel-get-src-block-info'.
-
-Optionally supply a value for PARAMS which will be merged with
-the header arguments specified at the front of the source code
-block."
- (interactive)
- (let* ((org-babel-current-src-block-location
- (or org-babel-current-src-block-location
- (nth 5 info)
- (org-babel-where-is-src-block-head)))
- (info (if info (copy-tree info) (org-babel-get-src-block-info))))
- ;; Merge PARAMS with INFO before considering source block
- ;; evaluation since both could disagree.
- (cl-callf org-babel-merge-params (nth 2 info) params)
- (when (org-babel-check-evaluate info)
- (cl-callf org-babel-process-params (nth 2 info))
- (let* ((params (nth 2 info))
- (cache (let ((c (cdr (assq :cache params))))
- (and (not arg) c (string= "yes" c))))
- (new-hash (and cache (org-babel-sha1-hash info)))
- (old-hash (and cache (org-babel-current-result-hash)))
- (current-cache (and new-hash (equal new-hash old-hash))))
- (cond
- (current-cache
- (save-excursion ;Return cached result.
- (goto-char (org-babel-where-is-src-block-result nil info))
- (forward-line)
- (skip-chars-forward " \t")
- (let ((result (org-babel-read-result)))
- (message (replace-regexp-in-string "%" "%%" (format "%S" result)))
- result)))
- ((org-babel-confirm-evaluate info)
- (let* ((lang (nth 0 info))
- (result-params (cdr (assq :result-params params)))
- ;; Expand noweb references in BODY and remove any
- ;; coderef.
- (body
- (let ((coderef (nth 6 info))
- (expand
- (if (org-babel-noweb-p params :eval)
- (org-babel-expand-noweb-references info)
- (nth 1 info))))
- (if (not coderef) expand
- (replace-regexp-in-string
- (org-src-coderef-regexp coderef) "" expand nil nil 1))))
- (dir (cdr (assq :dir params)))
- (default-directory
- (or (and dir (file-name-as-directory (expand-file-name dir)))
- default-directory))
- (cmd (intern (concat "org-babel-execute:" lang)))
- result)
- (unless (fboundp cmd)
- (error "No org-babel-execute function for %s!" lang))
- (message "executing %s code block%s..."
- (capitalize lang)
- (let ((name (nth 4 info)))
- (if name (format " (%s)" name) "")))
- (if (member "none" result-params)
- (progn (funcall cmd body params)
- (message "result silenced"))
- (setq result
- (let ((r (funcall cmd body params)))
- (if (and (eq (cdr (assq :result-type params)) 'value)
- (or (member "vector" result-params)
- (member "table" result-params))
- (not (listp r)))
- (list (list r))
- r)))
- (let ((file (cdr (assq :file params))))
- ;; If non-empty result and :file then write to :file.
- (when file
- (when result
- (with-temp-file file
- (insert (org-babel-format-result
- result (cdr (assq :sep params))))))
- (setq result file))
- ;; Possibly perform post process provided its
- ;; appropriate. Dynamically bind "*this*" to the
- ;; actual results of the block.
- (let ((post (cdr (assq :post params))))
- (when post
- (let ((*this* (if (not file) result
- (org-babel-result-to-file
- file
- (let ((desc (assq :file-desc params)))
- (and desc (or (cdr desc) result)))))))
- (setq result (org-babel-ref-resolve post))
- (when file
- (setq result-params (remove "file" result-params))))))
- (org-babel-insert-result
- result result-params info new-hash lang)))
- (run-hooks 'org-babel-after-execute-hook)
- result)))))))
-
-(defun org-babel-expand-body:generic (body params &optional var-lines)
- "Expand BODY with PARAMS.
-Expand a block of code with org-babel according to its header
-arguments. This generic implementation of body expansion is
-called for languages which have not defined their own specific
-org-babel-expand-body:lang function."
- (let ((pro (cdr (assq :prologue params)))
- (epi (cdr (assq :epilogue params))))
- (mapconcat #'identity
- (append (when pro (list pro))
- var-lines
- (list body)
- (when epi (list epi)))
- "\n")))
-
-;;;###autoload
-(defun org-babel-expand-src-block (&optional _arg info params)
- "Expand the current source code block.
-Expand according to the source code block's header
-arguments and pop open the results in a preview buffer."
- (interactive)
- (let* ((info (or info (org-babel-get-src-block-info)))
- (lang (nth 0 info))
- (params (setf (nth 2 info)
- (sort (org-babel-merge-params (nth 2 info) params)
- (lambda (el1 el2) (string< (symbol-name (car el1))
- (symbol-name (car el2)))))))
- (body (setf (nth 1 info)
- (if (org-babel-noweb-p params :eval)
- (org-babel-expand-noweb-references info) (nth 1 info))))
- (expand-cmd (intern (concat "org-babel-expand-body:" lang)))
- (assignments-cmd (intern (concat "org-babel-variable-assignments:"
- lang)))
- (expanded
- (if (fboundp expand-cmd) (funcall expand-cmd body params)
- (org-babel-expand-body:generic
- body params (and (fboundp assignments-cmd)
- (funcall assignments-cmd params))))))
- (if (called-interactively-p 'any)
- (org-edit-src-code
- expanded (concat "*Org-Babel Preview " (buffer-name) "[ " lang " ]*"))
- expanded)))
-
-(defun org-babel-edit-distance (s1 s2)
- "Return the edit (levenshtein) distance between strings S1 S2."
- (let* ((l1 (length s1))
- (l2 (length s2))
- (dist (vconcat (mapcar (lambda (_) (make-vector (1+ l2) nil))
- (number-sequence 1 (1+ l1)))))
- (in (lambda (i j) (aref (aref dist i) j))))
- (setf (aref (aref dist 0) 0) 0)
- (dolist (j (number-sequence 1 l2))
- (setf (aref (aref dist 0) j) j))
- (dolist (i (number-sequence 1 l1))
- (setf (aref (aref dist i) 0) i)
- (dolist (j (number-sequence 1 l2))
- (setf (aref (aref dist i) j)
- (min
- (1+ (funcall in (1- i) j))
- (1+ (funcall in i (1- j)))
- (+ (if (equal (aref s1 (1- i)) (aref s2 (1- j))) 0 1)
- (funcall in (1- i) (1- j)))))))
- (funcall in l1 l2)))
-
-(defun org-babel-combine-header-arg-lists (original &rest others)
- "Combine a number of lists of header argument names and arguments."
- (let ((results (copy-sequence original)))
- (dolist (new-list others)
- (dolist (arg-pair new-list)
- (let ((header (car arg-pair)))
- (setq results
- (cons arg-pair (cl-remove-if
- (lambda (pair) (equal header (car pair)))
- results))))))
- results))
-
-;;;###autoload
-(defun org-babel-check-src-block ()
- "Check for misspelled header arguments in the current code block."
- (interactive)
- ;; TODO: report malformed code block
- ;; TODO: report incompatible combinations of header arguments
- ;; TODO: report uninitialized variables
- (let ((too-close 2) ;; <- control closeness to report potential match
- (names (mapcar #'symbol-name org-babel-header-arg-names)))
- (dolist (header (mapcar (lambda (arg) (substring (symbol-name (car arg)) 1))
- (and (org-babel-where-is-src-block-head)
- (org-babel-parse-header-arguments
- (org-no-properties
- (match-string 4))))))
- (dolist (name names)
- (when (and (not (string= header name))
- (<= (org-babel-edit-distance header name) too-close)
- (not (member header names)))
- (error "Supplied header \"%S\" is suspiciously close to \"%S\""
- header name))))
- (message "No suspicious header arguments found.")))
-
-;;;###autoload
-(defun org-babel-insert-header-arg (&optional header-arg value)
- "Insert a header argument selecting from lists of common args and values."
- (interactive)
- (let* ((info (org-babel-get-src-block-info 'light))
- (lang (car info))
- (begin (nth 5 info))
- (lang-headers (intern (concat "org-babel-header-args:" lang)))
- (headers (org-babel-combine-header-arg-lists
- org-babel-common-header-args-w-values
- (when (boundp lang-headers) (eval lang-headers t))))
- (header-arg (or header-arg
- (completing-read
- "Header Arg: "
- (mapcar
- (lambda (header-spec) (symbol-name (car header-spec)))
- headers))))
- (vals (cdr (assoc (intern header-arg) headers)))
- (value (or value
- (cond
- ((eq vals :any)
- (read-from-minibuffer "value: "))
- ((listp vals)
- (mapconcat
- (lambda (group)
- (let ((arg (completing-read
- "Value: "
- (cons "default"
- (mapcar #'symbol-name group)))))
- (if (and arg (not (string= "default" arg)))
- (concat arg " ")
- "")))
- vals ""))))))
- (save-excursion
- (goto-char begin)
- (goto-char (point-at-eol))
- (unless (= (char-before (point)) ?\ ) (insert " "))
- (insert ":" header-arg) (when value (insert " " value)))))
-
-;; Add support for completing-read insertion of header arguments after ":"
-(defun org-babel-header-arg-expand ()
- "Call `org-babel-enter-header-arg-w-completion' in appropriate contexts."
- (when (and (equal (char-before) ?\:) (org-babel-where-is-src-block-head))
- (org-babel-enter-header-arg-w-completion (match-string 2))))
-
-(defun org-babel-enter-header-arg-w-completion (&optional lang)
- "Insert header argument appropriate for LANG with completion."
- (let* ((lang-headers-var (intern (concat "org-babel-header-args:" lang)))
- (lang-headers (when (boundp lang-headers-var) (eval lang-headers-var t)))
- (headers-w-values (org-babel-combine-header-arg-lists
- org-babel-common-header-args-w-values lang-headers))
- (headers (mapcar #'symbol-name (mapcar #'car headers-w-values)))
- (header (org-completing-read "Header Arg: " headers))
- (args (cdr (assoc (intern header) headers-w-values)))
- (arg (when (and args (listp args))
- (org-completing-read
- (format "%s: " header)
- (mapcar #'symbol-name (apply #'append args))))))
- (insert (concat header " " (or arg "")))
- (cons header arg)))
-
-(add-hook 'org-tab-first-hook 'org-babel-header-arg-expand)
-
-;;;###autoload
-(defun org-babel-load-in-session (&optional _arg info)
- "Load the body of the current source-code block.
-Evaluate the header arguments for the source block before
-entering the session. After loading the body this pops open the
-session."
- (interactive)
- (let* ((info (or info (org-babel-get-src-block-info)))
- (lang (nth 0 info))
- (params (nth 2 info))
- (body (if (not info)
- (user-error "No src code block at point")
- (setf (nth 1 info)
- (if (org-babel-noweb-p params :eval)
- (org-babel-expand-noweb-references info)
- (nth 1 info)))))
- (session (cdr (assq :session params)))
- (dir (cdr (assq :dir params)))
- (default-directory
- (or (and dir (file-name-as-directory dir)) default-directory))
- (cmd (intern (concat "org-babel-load-session:" lang))))
- (unless (fboundp cmd)
- (error "No org-babel-load-session function for %s!" lang))
- (pop-to-buffer (funcall cmd session body params))
- (end-of-line 1)))
-
-;;;###autoload
-(defun org-babel-initiate-session (&optional arg info)
- "Initiate session for current code block.
-If called with a prefix argument then resolve any variable
-references in the header arguments and assign these variables in
-the session. Copy the body of the code block to the kill ring."
- (interactive "P")
- (let* ((info (or info (org-babel-get-src-block-info (not arg))))
- (lang (nth 0 info))
- (body (nth 1 info))
- (params (nth 2 info))
- (session (cdr (assq :session params)))
- (dir (cdr (assq :dir params)))
- (default-directory
- (or (and dir (file-name-as-directory dir)) default-directory))
- (init-cmd (intern (format "org-babel-%s-initiate-session" lang)))
- (prep-cmd (intern (concat "org-babel-prep-session:" lang))))
- (when (and (stringp session) (string= session "none"))
- (error "This block is not using a session!"))
- (unless (fboundp init-cmd)
- (error "No org-babel-initiate-session function for %s!" lang))
- (with-temp-buffer (insert (org-trim body))
- (copy-region-as-kill (point-min) (point-max)))
- (when arg
- (unless (fboundp prep-cmd)
- (error "No org-babel-prep-session function for %s!" lang))
- (funcall prep-cmd session params))
- (funcall init-cmd session params)))
-
-;;;###autoload
-(defun org-babel-switch-to-session (&optional arg info)
- "Switch to the session of the current code block.
-Uses `org-babel-initiate-session' to start the session. If called
-with a prefix argument then this is passed on to
-`org-babel-initiate-session'."
- (interactive "P")
- (pop-to-buffer (org-babel-initiate-session arg info))
- (end-of-line 1))
-
-(defalias 'org-babel-pop-to-session 'org-babel-switch-to-session)
-
-(defvar org-src-window-setup)
-
-;;;###autoload
-(defun org-babel-switch-to-session-with-code (&optional arg _info)
- "Switch to code buffer and display session."
- (interactive "P")
- (let ((swap-windows
- (lambda ()
- (let ((other-window-buffer (window-buffer (next-window))))
- (set-window-buffer (next-window) (current-buffer))
- (set-window-buffer (selected-window) other-window-buffer))
- (other-window 1)))
- (info (org-babel-get-src-block-info))
- (org-src-window-setup 'reorganize-frame))
- (save-excursion
- (org-babel-switch-to-session arg info))
- (org-edit-src-code)
- (funcall swap-windows)))
-
-;;;###autoload
-(defmacro org-babel-do-in-edit-buffer (&rest body)
- "Evaluate BODY in edit buffer if there is a code block at point.
-Return t if a code block was found at point, nil otherwise."
- (declare (debug (body)))
- `(let* ((element (org-element-at-point))
- ;; This function is not supposed to move point. However,
- ;; `org-edit-src-code' always moves point back into the
- ;; source block. It is problematic if the point was before
- ;; the code, e.g., on block's opening line. In this case,
- ;; we want to restore this location after executing BODY.
- (outside-position
- (and (<= (line-beginning-position)
- (org-element-property :post-affiliated element))
- (point-marker)))
- (org-src-window-setup 'switch-invisibly))
- (when (and (org-babel-where-is-src-block-head element)
- (org-edit-src-code))
- (unwind-protect (progn ,@body)
- (org-edit-src-exit)
- (when outside-position (goto-char outside-position)))
- t)))
-
-(defun org-babel-do-key-sequence-in-edit-buffer (key)
- "Read key sequence and execute the command in edit buffer.
-Enter a key sequence to be executed in the language major-mode
-edit buffer. For example, TAB will alter the contents of the
-Org code block according to the effect of TAB in the language
-major mode buffer. For languages that support interactive
-sessions, this can be used to send code from the Org buffer
-to the session for evaluation using the native major mode
-evaluation mechanisms."
- (interactive "kEnter key-sequence to execute in edit buffer: ")
- (org-babel-do-in-edit-buffer
- (call-interactively
- (key-binding (or key (read-key-sequence nil))))))
-
-(defvar org-bracket-link-regexp)
-
-(defun org-babel-active-location-p ()
- (memq (org-element-type (save-match-data (org-element-context)))
- '(babel-call inline-babel-call inline-src-block src-block)))
-
-;;;###autoload
-(defun org-babel-open-src-block-result (&optional re-run)
- "If `point' is on a src block then open the results of the
-source code block, otherwise return nil. With optional prefix
-argument RE-RUN the source-code block is evaluated even if
-results already exist."
- (interactive "P")
- (let ((info (org-babel-get-src-block-info 'light)))
- (when info
- (save-excursion
- ;; go to the results, if there aren't any then run the block
- (goto-char (or (and (not re-run) (org-babel-where-is-src-block-result))
- (progn (org-babel-execute-src-block)
- (org-babel-where-is-src-block-result))))
- (end-of-line 1)
- (while (looking-at "[\n\r\t\f ]") (forward-char 1))
- ;; open the results
- (if (looking-at org-bracket-link-regexp)
- ;; file results
- (org-open-at-point)
- (let ((r (org-babel-format-result
- (org-babel-read-result) (cdr (assq :sep (nth 2 info))))))
- (pop-to-buffer (get-buffer-create "*Org-Babel Results*"))
- (delete-region (point-min) (point-max))
- (insert r)))
- t))))
-
-;;;###autoload
-(defmacro org-babel-map-src-blocks (file &rest body)
- "Evaluate BODY forms on each source-block in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer. During evaluation of BODY the following local variables
-are set relative to the currently matched code block.
-
-full-block ------- string holding the entirety of the code block
-beg-block -------- point at the beginning of the code block
-end-block -------- point at the end of the matched code block
-lang ------------- string holding the language of the code block
-beg-lang --------- point at the beginning of the lang
-end-lang --------- point at the end of the lang
-switches --------- string holding the switches
-beg-switches ----- point at the beginning of the switches
-end-switches ----- point at the end of the switches
-header-args ------ string holding the header-args
-beg-header-args -- point at the beginning of the header-args
-end-header-args -- point at the end of the header-args
-body ------------- string holding the body of the code block
-beg-body --------- point at the beginning of the body
-end-body --------- point at the end of the body"
- (declare (indent 1))
- (let ((tempvar (make-symbol "file")))
- `(let* ((case-fold-search t)
- (,tempvar ,file)
- (visited-p (or (null ,tempvar)
- (get-file-buffer (expand-file-name ,tempvar))))
- (point (point)) to-be-removed)
- (save-window-excursion
- (when ,tempvar (find-file ,tempvar))
- (setq to-be-removed (current-buffer))
- (goto-char (point-min))
- (while (re-search-forward org-babel-src-block-regexp nil t)
- (when (org-babel-active-location-p)
- (goto-char (match-beginning 0))
- (let ((full-block (match-string 0))
- (beg-block (match-beginning 0))
- (end-block (match-end 0))
- (lang (match-string 2))
- (beg-lang (match-beginning 2))
- (end-lang (match-end 2))
- (switches (match-string 3))
- (beg-switches (match-beginning 3))
- (end-switches (match-end 3))
- (header-args (match-string 4))
- (beg-header-args (match-beginning 4))
- (end-header-args (match-end 4))
- (body (match-string 5))
- (beg-body (match-beginning 5))
- (end-body (match-end 5)))
- ;; Silence byte-compiler in case `body' doesn't use all
- ;; those variables.
- (ignore full-block beg-block end-block lang
- beg-lang end-lang switches beg-switches
- end-switches header-args beg-header-args
- end-header-args body beg-body end-body)
- ,@body
- (goto-char end-block)))))
- (unless visited-p (kill-buffer to-be-removed))
- (goto-char point))))
-(def-edebug-spec org-babel-map-src-blocks (form body))
-
-;;;###autoload
-(defmacro org-babel-map-inline-src-blocks (file &rest body)
- "Evaluate BODY forms on each inline source block in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer."
- (declare (indent 1) (debug (form body)))
- (org-with-gensyms (datum end point tempvar to-be-removed visitedp)
- `(let* ((case-fold-search t)
- (,tempvar ,file)
- (,visitedp (or (null ,tempvar)
- (get-file-buffer (expand-file-name ,tempvar))))
- (,point (point))
- ,to-be-removed)
- (save-window-excursion
- (when ,tempvar (find-file ,tempvar))
- (setq ,to-be-removed (current-buffer))
- (goto-char (point-min))
- (while (re-search-forward "src_\\S-" nil t)
- (let ((,datum (save-match-data (org-element-context))))
- (when (eq (org-element-type ,datum) 'inline-src-block)
- (goto-char (match-beginning 0))
- (let ((,end (copy-marker (org-element-property :end ,datum))))
- ,@body
- (goto-char ,end)
- (set-marker ,end nil))))))
- (unless ,visitedp (kill-buffer ,to-be-removed))
- (goto-char ,point))))
-
-;;;###autoload
-(defmacro org-babel-map-call-lines (file &rest body)
- "Evaluate BODY forms on each call line in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer."
- (declare (indent 1) (debug (form body)))
- (org-with-gensyms (datum end point tempvar to-be-removed visitedp)
- `(let* ((case-fold-search t)
- (,tempvar ,file)
- (,visitedp (or (null ,tempvar)
- (get-file-buffer (expand-file-name ,tempvar))))
- (,point (point))
- ,to-be-removed)
- (save-window-excursion
- (when ,tempvar (find-file ,tempvar))
- (setq ,to-be-removed (current-buffer))
- (goto-char (point-min))
- (while (re-search-forward "call_\\S-\\|^[ \t]*#\\+CALL:" nil t)
- (let ((,datum (save-match-data (org-element-context))))
- (when (memq (org-element-type ,datum)
- '(babel-call inline-babel-call))
- (goto-char (match-beginning 0))
- (let ((,end (copy-marker (org-element-property :end ,datum))))
- ,@body
- (goto-char ,end)
- (set-marker ,end nil))))))
- (unless ,visitedp (kill-buffer ,to-be-removed))
- (goto-char ,point))))
-
-;;;###autoload
-(defmacro org-babel-map-executables (file &rest body)
- "Evaluate BODY forms on each active Babel code in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer."
- (declare (indent 1) (debug (form body)))
- (org-with-gensyms (datum end point tempvar to-be-removed visitedp)
- `(let* ((case-fold-search t)
- (,tempvar ,file)
- (,visitedp (or (null ,tempvar)
- (get-file-buffer (expand-file-name ,tempvar))))
- (,point (point))
- ,to-be-removed)
- (save-window-excursion
- (when ,tempvar (find-file ,tempvar))
- (setq ,to-be-removed (current-buffer))
- (goto-char (point-min))
- (while (re-search-forward
- "\\(call\\|src\\)_\\|^[ \t]*#\\+\\(BEGIN_SRC\\|CALL:\\)" nil t)
- (let ((,datum (save-match-data (org-element-context))))
- (when (memq (org-element-type ,datum)
- '(babel-call inline-babel-call inline-src-block
- src-block))
- (goto-char (match-beginning 0))
- (let ((,end (copy-marker (org-element-property :end ,datum))))
- ,@body
- (goto-char ,end)
- (set-marker ,end nil))))))
- (unless ,visitedp (kill-buffer ,to-be-removed))
- (goto-char ,point))))
-
-;;;###autoload
-(defun org-babel-execute-buffer (&optional arg)
- "Execute source code blocks in a buffer.
-Call `org-babel-execute-src-block' on every source block in
-the current buffer."
- (interactive "P")
- (org-babel-eval-wipe-error-buffer)
- (org-save-outline-visibility t
- (org-babel-map-executables nil
- (if (memq (org-element-type (org-element-context))
- '(babel-call inline-babel-call))
- (org-babel-lob-execute-maybe)
- (org-babel-execute-src-block arg)))))
-
-;;;###autoload
-(defun org-babel-execute-subtree (&optional arg)
- "Execute source code blocks in a subtree.
-Call `org-babel-execute-src-block' on every source block in
-the current subtree."
- (interactive "P")
- (save-restriction
- (save-excursion
- (org-narrow-to-subtree)
- (org-babel-execute-buffer arg)
- (widen))))
-
-;;;###autoload
-(defun org-babel-sha1-hash (&optional info)
- "Generate an sha1 hash based on the value of info."
- (interactive)
- (let ((print-level nil)
- (info (or info (org-babel-get-src-block-info))))
- (setf (nth 2 info)
- (sort (copy-sequence (nth 2 info))
- (lambda (a b) (string< (car a) (car b)))))
- (let* ((rm (lambda (lst)
- (dolist (p '("replace" "silent" "none"
- "append" "prepend"))
- (setq lst (remove p lst)))
- lst))
- (norm (lambda (arg)
- (let ((v (if (and (listp (cdr arg)) (null (cddr arg)))
- (copy-sequence (cdr arg))
- (cdr arg))))
- (when (and v (not (and (sequencep v)
- (not (consp v))
- (= (length v) 0))))
- (cond
- ((and (listp v) ; lists are sorted
- (member (car arg) '(:result-params)))
- (sort (funcall rm v) #'string<))
- ((and (stringp v) ; strings are sorted
- (member (car arg) '(:results :exports)))
- (mapconcat #'identity (sort (funcall rm (split-string v))
- #'string<) " "))
- (t v))))))
- ;; expanded body
- (lang (nth 0 info))
- (params (nth 2 info))
- (body (if (org-babel-noweb-p params :eval)
- (org-babel-expand-noweb-references info) (nth 1 info)))
- (expand-cmd (intern (concat "org-babel-expand-body:" lang)))
- (assignments-cmd (intern (concat "org-babel-variable-assignments:"
- lang)))
- (expanded
- (if (fboundp expand-cmd) (funcall expand-cmd body params)
- (org-babel-expand-body:generic
- body params (and (fboundp assignments-cmd)
- (funcall assignments-cmd params))))))
- (let* ((it (format "%s-%s"
- (mapconcat
- #'identity
- (delq nil (mapcar (lambda (arg)
- (let ((normalized (funcall norm arg)))
- (when normalized
- (format "%S" normalized))))
- (nth 2 info))) ":")
- expanded))
- (hash (sha1 it)))
- (when (called-interactively-p 'interactive) (message hash))
- hash))))
-
-(defun org-babel-current-result-hash (&optional info)
- "Return the current in-buffer hash."
- (let ((result (org-babel-where-is-src-block-result nil info)))
- (when result
- (org-with-wide-buffer
- (goto-char result)
- (looking-at org-babel-result-regexp)
- (match-string-no-properties 1)))))
-
-(defun org-babel-set-current-result-hash (hash info)
- "Set the current in-buffer hash to HASH."
- (org-with-wide-buffer
- (goto-char (org-babel-where-is-src-block-result nil info))
- (looking-at org-babel-result-regexp)
- (goto-char (match-beginning 1))
- (mapc #'delete-overlay (overlays-at (point)))
- (forward-char org-babel-hash-show)
- (mapc #'delete-overlay (overlays-at (point)))
- (replace-match hash nil nil nil 1)
- (beginning-of-line)
- (org-babel-hide-hash)))
-
-(defun org-babel-hide-hash ()
- "Hide the hash in the current results line.
-Only the initial `org-babel-hash-show' characters of the hash
-will remain visible."
- (add-to-invisibility-spec '(org-babel-hide-hash . t))
- (save-excursion
- (when (and (re-search-forward org-babel-result-regexp nil t)
- (match-string 1))
- (let* ((start (match-beginning 1))
- (hide-start (+ org-babel-hash-show start))
- (end (match-end 1))
- (hash (match-string 1))
- ov1 ov2)
- (setq ov1 (make-overlay start hide-start))
- (setq ov2 (make-overlay hide-start end))
- (overlay-put ov2 'invisible 'org-babel-hide-hash)
- (overlay-put ov1 'babel-hash hash)))))
-
-(defun org-babel-hide-all-hashes ()
- "Hide the hash in the current buffer.
-Only the initial `org-babel-hash-show' characters of each hash
-will remain visible. This function should be called as part of
-the `org-mode-hook'."
- (save-excursion
- (while (and (not org-babel-hash-show-time)
- (re-search-forward org-babel-result-regexp nil t))
- (goto-char (match-beginning 0))
- (org-babel-hide-hash)
- (goto-char (match-end 0)))))
-(add-hook 'org-mode-hook 'org-babel-hide-all-hashes)
-
-(defun org-babel-hash-at-point (&optional point)
- "Return the value of the hash at POINT.
-\\<org-mode-map>\
-The hash is also added as the last element of the kill ring.
-This can be called with `\\[org-ctrl-c-ctrl-c]'."
- (interactive)
- (let ((hash (car (delq nil (mapcar
- (lambda (ol) (overlay-get ol 'babel-hash))
- (overlays-at (or point (point))))))))
- (when hash (kill-new hash) (message hash))))
-
-(defun org-babel-result-hide-spec ()
- "Hide portions of results lines.
-Add `org-babel-hide-result' as an invisibility spec for hiding
-portions of results lines."
- (add-to-invisibility-spec '(org-babel-hide-result . t)))
-(add-hook 'org-mode-hook 'org-babel-result-hide-spec)
-
-(defvar org-babel-hide-result-overlays nil
- "Overlays hiding results.")
-
-(defun org-babel-result-hide-all ()
- "Fold all results in the current buffer."
- (interactive)
- (org-babel-show-result-all)
- (save-excursion
- (while (re-search-forward org-babel-result-regexp nil t)
- (save-excursion (goto-char (match-beginning 0))
- (org-babel-hide-result-toggle-maybe)))))
-
-(defun org-babel-show-result-all ()
- "Unfold all results in the current buffer."
- (mapc 'delete-overlay org-babel-hide-result-overlays)
- (setq org-babel-hide-result-overlays nil))
-
-;;;###autoload
-(defun org-babel-hide-result-toggle-maybe ()
- "Toggle visibility of result at point."
- (interactive)
- (let ((case-fold-search t))
- (if (save-excursion
- (beginning-of-line 1)
- (looking-at org-babel-result-regexp))
- (progn (org-babel-hide-result-toggle)
- t) ;; to signal that we took action
- nil))) ;; to signal that we did not
-
-(defun org-babel-hide-result-toggle (&optional force)
- "Toggle the visibility of the current result."
- (interactive)
- (save-excursion
- (beginning-of-line)
- (if (re-search-forward org-babel-result-regexp nil t)
- (let ((start (progn (beginning-of-line 2) (- (point) 1)))
- (end (progn
- (while (looking-at org-babel-multi-line-header-regexp)
- (forward-line 1))
- (goto-char (- (org-babel-result-end) 1)) (point)))
- ov)
- (if (memq t (mapcar (lambda (overlay)
- (eq (overlay-get overlay 'invisible)
- 'org-babel-hide-result))
- (overlays-at start)))
- (when (or (not force) (eq force 'off))
- (mapc (lambda (ov)
- (when (member ov org-babel-hide-result-overlays)
- (setq org-babel-hide-result-overlays
- (delq ov org-babel-hide-result-overlays)))
- (when (eq (overlay-get ov 'invisible)
- 'org-babel-hide-result)
- (delete-overlay ov)))
- (overlays-at start)))
- (setq ov (make-overlay start end))
- (overlay-put ov 'invisible 'org-babel-hide-result)
- ;; make the block accessible to isearch
- (overlay-put
- ov 'isearch-open-invisible
- (lambda (ov)
- (when (member ov org-babel-hide-result-overlays)
- (setq org-babel-hide-result-overlays
- (delq ov org-babel-hide-result-overlays)))
- (when (eq (overlay-get ov 'invisible)
- 'org-babel-hide-result)
- (delete-overlay ov))))
- (push ov org-babel-hide-result-overlays)))
- (error "Not looking at a result line"))))
-
-;; org-tab-after-check-for-cycling-hook
-(add-hook 'org-tab-first-hook 'org-babel-hide-result-toggle-maybe)
-;; Remove overlays when changing major mode
-(add-hook 'org-mode-hook
- (lambda () (add-hook 'change-major-mode-hook
- 'org-babel-show-result-all 'append 'local)))
-
-(defvar org-file-properties)
-(defun org-babel-params-from-properties (&optional lang)
- "Retrieve parameters specified as properties.
-Return a list of association lists of source block params
-specified in the properties of the current outline entry."
- (save-match-data
- (list
- ;; header arguments specified with the header-args property at
- ;; point of call.
- (org-babel-parse-header-arguments
- (org-entry-get org-babel-current-src-block-location
- "header-args"
- 'inherit))
- (and lang ; language-specific header arguments at point of call
- (org-babel-parse-header-arguments
- (org-entry-get org-babel-current-src-block-location
- (concat "header-args:" lang)
- 'inherit))))))
-
-(defun org-babel-balanced-split (string alts)
- "Split STRING on instances of ALTS.
-ALTS is a character, or cons of two character options where each
-option may be either the numeric code of a single character or
-a list of character alternatives. For example, to split on
-balanced instances of \"[ \t]:\", set ALTS to ((32 9) . 58)."
- (with-temp-buffer
- (insert string)
- (goto-char (point-min))
- (let ((splitp (lambda (past next)
- ;; Non-nil when there should be a split after NEXT
- ;; character. PAST is the character before NEXT.
- (pcase alts
- (`(,(and first (pred consp)) . ,(and second (pred consp)))
- (and (memq past first) (memq next second)))
- (`(,first . ,(and second (pred consp)))
- (and (eq past first) (memq next second)))
- (`(,(and first (pred consp)) . ,second)
- (and (memq past first) (eq next second)))
- (`(,first . ,second)
- (and (eq past first) (eq next second)))
- ((pred (eq next)) t)
- (_ nil))))
- (partial nil)
- (result nil))
- (while (not (eobp))
- (cond
- ((funcall splitp (char-before) (char-after))
- ;; There is a split after point. If ALTS is two-folds,
- ;; remove last parsed character as it belongs to ALTS.
- (when (consp alts) (pop partial))
- ;; Include elements parsed so far in RESULTS and flush
- ;; partial parsing.
- (when partial
- (push (apply #'string (nreverse partial)) result)
- (setq partial nil))
- (forward-char))
- ((memq (char-after) '(?\( ?\[))
- ;; Include everything between balanced brackets.
- (let* ((origin (point))
- (after (char-after))
- (openings (list after)))
- (forward-char)
- (while (and openings (re-search-forward "[]()]" nil t))
- (pcase (char-before)
- ((and match (or ?\[ ?\()) (push match openings))
- (?\] (when (eq ?\[ (car openings)) (pop openings)))
- (_ (when (eq ?\( (car openings)) (pop openings)))))
- (if (null openings)
- (setq partial
- (nconc (nreverse (string-to-list
- (buffer-substring origin (point))))
- partial))
- ;; Un-balanced bracket. Backtrack.
- (push after partial)
- (goto-char (1+ origin)))))
- ((and (eq ?\" (char-after)) (not (eq ?\\ (char-before))))
- ;; Include everything from current double quote to next
- ;; non-escaped double quote.
- (let ((origin (point)))
- (if (re-search-forward "[^\\]\"" nil t)
- (setq partial
- (nconc (nreverse (string-to-list
- (buffer-substring origin (point))))
- partial))
- ;; No closing double quote. Backtrack.
- (push ?\" partial)
- (forward-char))))
- (t (push (char-after) partial)
- (forward-char))))
- ;; Add pending parsing and return result.
- (when partial (push (apply #'string (nreverse partial)) result))
- (nreverse result))))
-
-(defun org-babel-join-splits-near-ch (ch list)
- "Join splits where \"=\" is on either end of the split."
- (let ((last= (lambda (str) (= ch (aref str (1- (length str))))))
- (first= (lambda (str) (= ch (aref str 0)))))
- (reverse
- (cl-reduce (lambda (acc el)
- (let ((head (car acc)))
- (if (and head (or (funcall last= head) (funcall first= el)))
- (cons (concat head el) (cdr acc))
- (cons el acc))))
- list :initial-value nil))))
-
-(defun org-babel-parse-header-arguments (arg-string)
- "Parse a string of header arguments returning an alist."
- (when (> (length arg-string) 0)
- (org-babel-parse-multiple-vars
- (delq nil
- (mapcar
- (lambda (arg)
- (if (string-match
- "\\([^ \f\t\n\r\v]+\\)[ \f\t\n\r\v]+\\([^ \f\t\n\r\v]+.*\\)"
- arg)
- (cons (intern (match-string 1 arg))
- (org-babel-read (org-babel-chomp (match-string 2 arg))))
- (cons (intern (org-babel-chomp arg)) nil)))
- (let ((raw (org-babel-balanced-split arg-string '((32 9) . 58))))
- (cons (car raw) (mapcar (lambda (r) (concat ":" r)) (cdr raw)))))))))
-
-(defun org-babel-parse-multiple-vars (header-arguments)
- "Expand multiple variable assignments behind a single :var keyword.
-
-This allows expression of multiple variables with one :var as
-shown below.
-
-#+PROPERTY: var foo=1, bar=2"
- (let (results)
- (mapc (lambda (pair)
- (if (eq (car pair) :var)
- (mapcar (lambda (v) (push (cons :var (org-trim v)) results))
- (org-babel-join-splits-near-ch
- 61 (org-babel-balanced-split (cdr pair) 32)))
- (push pair results)))
- header-arguments)
- (nreverse results)))
-
-(defun org-babel-process-params (params)
- "Expand variables in PARAMS and add summary parameters."
- (let* ((processed-vars (mapcar (lambda (el)
- (if (consp el)
- el
- (org-babel-ref-parse el)))
- (org-babel--get-vars params)))
- (vars-and-names (if (and (assq :colname-names params)
- (assq :rowname-names params))
- (list processed-vars)
- (org-babel-disassemble-tables
- processed-vars
- (cdr (assq :hlines params))
- (cdr (assq :colnames params))
- (cdr (assq :rownames params)))))
- (raw-result (or (cdr (assq :results params)) ""))
- (result-params (delete-dups
- (append
- (split-string (if (stringp raw-result)
- raw-result
- (eval raw-result t)))
- (cdr (assq :result-params params))))))
- (append
- (mapcar (lambda (var) (cons :var var)) (car vars-and-names))
- (list
- (cons :colname-names (or (cdr (assq :colname-names params))
- (cadr vars-and-names)))
- (cons :rowname-names (or (cdr (assq :rowname-names params))
- (cl-caddr vars-and-names)))
- (cons :result-params result-params)
- (cons :result-type (cond ((member "output" result-params) 'output)
- ((member "value" result-params) 'value)
- (t 'value))))
- (cl-remove-if
- (lambda (x) (memq (car x) '(:colname-names :rowname-names :result-params
- :result-type :var)))
- params))))
-
-;; row and column names
-(defun org-babel-del-hlines (table)
- "Remove all `hline's from TABLE."
- (remq 'hline table))
-
-(defun org-babel-get-colnames (table)
- "Return the column names of TABLE.
-Return a cons cell, the `car' of which contains the TABLE less
-colnames, and the `cdr' of which contains a list of the column
-names."
- (if (eq 'hline (nth 1 table))
- (cons (cddr table) (car table))
- (cons (cdr table) (car table))))
-
-(defun org-babel-get-rownames (table)
- "Return the row names of TABLE.
-Return a cons cell, the `car' of which contains the TABLE less
-rownames, and the `cdr' of which contains a list of the rownames.
-Note: this function removes any hlines in TABLE."
- (let* ((table (org-babel-del-hlines table))
- (rownames (funcall (lambda ()
- (let ((tp table))
- (mapcar
- (lambda (_row)
- (prog1
- (pop (car tp))
- (setq tp (cdr tp))))
- table))))))
- (cons table rownames)))
-
-(defun org-babel-put-colnames (table colnames)
- "Add COLNAMES to TABLE if they exist."
- (if colnames (apply 'list colnames 'hline table) table))
-
-(defun org-babel-put-rownames (table rownames)
- "Add ROWNAMES to TABLE if they exist."
- (if rownames
- (mapcar (lambda (row)
- (if (listp row)
- (cons (or (pop rownames) "") row)
- row)) table)
- table))
-
-(defun org-babel-pick-name (names selector)
- "Select one out of an alist of row or column names.
-SELECTOR can be either a list of names in which case those names
-will be returned directly, or an index into the list NAMES in
-which case the indexed names will be return."
- (if (listp selector)
- selector
- (when names
- (if (and selector (symbolp selector) (not (equal t selector)))
- (cdr (assoc selector names))
- (if (integerp selector)
- (nth (- selector 1) names)
- (cdr (car (last names))))))))
-
-(defun org-babel-disassemble-tables (vars hlines colnames rownames)
- "Parse tables for further processing.
-Process the variables in VARS according to the HLINES,
-ROWNAMES and COLNAMES header arguments. Return a list consisting
-of the vars, cnames and rnames."
- (let (cnames rnames)
- (list
- (mapcar
- (lambda (var)
- (when (listp (cdr var))
- (when (and (not (equal colnames "no"))
- (or colnames (and (eq (nth 1 (cdr var)) 'hline)
- (not (member 'hline (cddr (cdr var)))))))
- (let ((both (org-babel-get-colnames (cdr var))))
- (setq cnames (cons (cons (car var) (cdr both))
- cnames))
- (setq var (cons (car var) (car both)))))
- (when (and rownames (not (equal rownames "no")))
- (let ((both (org-babel-get-rownames (cdr var))))
- (setq rnames (cons (cons (car var) (cdr both))
- rnames))
- (setq var (cons (car var) (car both)))))
- (when (and hlines (not (equal hlines "yes")))
- (setq var (cons (car var) (org-babel-del-hlines (cdr var))))))
- var)
- vars)
- (reverse cnames) (reverse rnames))))
-
-(defun org-babel-reassemble-table (table colnames rownames)
- "Add column and row names to a table.
-Given a TABLE and set of COLNAMES and ROWNAMES add the names
-to the table for reinsertion to org-mode."
- (if (listp table)
- (let ((table (if (and rownames (= (length table) (length rownames)))
- (org-babel-put-rownames table rownames) table)))
- (if (and colnames (listp (car table)) (= (length (car table))
- (length colnames)))
- (org-babel-put-colnames table colnames) table))
- table))
-
-(defun org-babel-where-is-src-block-head (&optional src-block)
- "Find where the current source block begins.
-
-If optional argument SRC-BLOCK is `src-block' type element, find
-its current beginning instead.
-
-Return the point at the beginning of the current source block.
-Specifically at the beginning of the #+BEGIN_SRC line. Also set
-match-data relatively to `org-babel-src-block-regexp', which see.
-If the point is not on a source block then return nil."
- (let ((element (or src-block (org-element-at-point))))
- (when (eq (org-element-type element) 'src-block)
- (let ((end (org-element-property :end element)))
- (org-with-wide-buffer
- ;; Ensure point is not on a blank line after the block.
- (beginning-of-line)
- (skip-chars-forward " \r\t\n" end)
- (when (< (point) end)
- (prog1 (goto-char (org-element-property :post-affiliated element))
- (looking-at org-babel-src-block-regexp))))))))
-
-;;;###autoload
-(defun org-babel-goto-src-block-head ()
- "Go to the beginning of the current code block."
- (interactive)
- (let ((head (org-babel-where-is-src-block-head)))
- (if head (goto-char head) (error "Not currently in a code block"))))
-
-;;;###autoload
-(defun org-babel-goto-named-src-block (name)
- "Go to a named source-code block."
- (interactive
- (let ((completion-ignore-case t)
- (case-fold-search t)
- (all-block-names (org-babel-src-block-names)))
- (list (completing-read
- "source-block name: " all-block-names nil t
- (let* ((context (org-element-context))
- (type (org-element-type context))
- (noweb-ref
- (and (memq type '(inline-src-block src-block))
- (org-in-regexp (org-babel-noweb-wrap)))))
- (cond
- (noweb-ref
- (buffer-substring
- (+ (car noweb-ref) (length org-babel-noweb-wrap-start))
- (- (cdr noweb-ref) (length org-babel-noweb-wrap-end))))
- ((memq type '(babel-call inline-babel-call)) ;#+CALL:
- (org-element-property :call context))
- ((car (org-element-property :results context))) ;#+RESULTS:
- ((let ((symbol (thing-at-point 'symbol))) ;Symbol.
- (and symbol
- (member-ignore-case symbol all-block-names)
- symbol)))
- (t "")))))))
- (let ((point (org-babel-find-named-block name)))
- (if point
- ;; Taken from `org-open-at-point'.
- (progn (org-mark-ring-push) (goto-char point) (org-show-context))
- (message "source-code block `%s' not found in this buffer" name))))
-
-(defun org-babel-find-named-block (name)
- "Find a named source-code block.
-Return the location of the source block identified by source
-NAME, or nil if no such block exists. Set match data according
-to `org-babel-named-src-block-regexp'."
- (save-excursion
- (goto-char (point-min))
- (let ((regexp (org-babel-named-src-block-regexp-for-name name)))
- (or (and (looking-at regexp)
- (progn (goto-char (match-beginning 1))
- (line-beginning-position)))
- (ignore-errors (org-next-block 1 nil regexp))))))
-
-(defun org-babel-src-block-names (&optional file)
- "Returns the names of source blocks in FILE or the current buffer."
- (with-current-buffer (if file (find-file-noselect file) (current-buffer))
- (org-with-point-at 1
- (let ((regexp "^[ \t]*#\\+begin_src ")
- (case-fold-search t)
- (names nil))
- (while (re-search-forward regexp nil t)
- (let ((element (org-element-at-point)))
- (when (eq 'src-block (org-element-type element))
- (let ((name (org-element-property :name element)))
- (when name (push name names))))))
- names))))
-
-;;;###autoload
-(defun org-babel-goto-named-result (name)
- "Go to a named result."
- (interactive
- (let ((completion-ignore-case t))
- (list (completing-read "Source-block name: "
- (org-babel-result-names) nil t))))
- (let ((point (org-babel-find-named-result name)))
- (if point
- ;; taken from `org-open-at-point'
- (progn (goto-char point) (org-show-context))
- (message "result `%s' not found in this buffer" name))))
-
-(defun org-babel-find-named-result (name)
- "Find a named result.
-Return the location of the result named NAME in the current
-buffer or nil if no such result exists."
- (save-excursion
- (goto-char (point-min))
- (let ((case-fold-search t)
- (re (format "^[ \t]*#\\+%s.*?:[ \t]*%s[ \t]*$"
- org-babel-results-keyword
- (regexp-quote name))))
- (catch :found
- (while (re-search-forward re nil t)
- (let ((element (org-element-at-point)))
- (when (or (eq (org-element-type element) 'keyword)
- (< (point)
- (org-element-property :post-affiliated element)))
- (throw :found (line-beginning-position)))))))))
-
-(defun org-babel-result-names (&optional file)
- "Returns the names of results in FILE or the current buffer."
- (save-excursion
- (when file (find-file file)) (goto-char (point-min))
- (let ((case-fold-search t) names)
- (while (re-search-forward org-babel-result-w-name-regexp nil t)
- (setq names (cons (match-string-no-properties 9) names)))
- names)))
-
-;;;###autoload
-(defun org-babel-next-src-block (&optional arg)
- "Jump to the next source block.
-With optional prefix argument ARG, jump forward ARG many source blocks."
- (interactive "p")
- (org-next-block arg nil org-babel-src-block-regexp))
-
-;;;###autoload
-(defun org-babel-previous-src-block (&optional arg)
- "Jump to the previous source block.
-With optional prefix argument ARG, jump backward ARG many source blocks."
- (interactive "p")
- (org-previous-block arg org-babel-src-block-regexp))
-
-(defvar org-babel-load-languages)
-
-;;;###autoload
-(defun org-babel-mark-block ()
- "Mark current src block."
- (interactive)
- (let ((head (org-babel-where-is-src-block-head)))
- (when head
- (save-excursion
- (goto-char head)
- (looking-at org-babel-src-block-regexp))
- (push-mark (match-end 5) nil t)
- (goto-char (match-beginning 5)))))
-
-(defun org-babel-demarcate-block (&optional arg)
- "Wrap or split the code in the region or on the point.
-When called from inside of a code block the current block is
-split. When called from outside of a code block a new code block
-is created. In both cases if the region is demarcated and if the
-region is not active then the point is demarcated."
- (interactive "P")
- (let* ((info (org-babel-get-src-block-info 'light))
- (start (org-babel-where-is-src-block-head))
- (block (and start (match-string 0)))
- (headers (and start (match-string 4)))
- (stars (concat (make-string (or (org-current-level) 1) ?*) " "))
- (lower-case-p (and block
- (let (case-fold-search)
- (string-match-p "#\\+begin_src" block)))))
- (if info
- (mapc
- (lambda (place)
- (save-excursion
- (goto-char place)
- (let ((lang (nth 0 info))
- (indent (make-string (org-get-indentation) ?\s)))
- (when (string-match "^[[:space:]]*$"
- (buffer-substring (point-at-bol)
- (point-at-eol)))
- (delete-region (point-at-bol) (point-at-eol)))
- (insert (concat
- (if (looking-at "^") "" "\n")
- indent (funcall (if lower-case-p 'downcase 'upcase) "#+end_src\n")
- (if arg stars indent) "\n"
- indent (funcall (if lower-case-p 'downcase 'upcase) "#+begin_src ")
- lang
- (if (> (length headers) 1)
- (concat " " headers) headers)
- (if (looking-at "[\n\r]")
- ""
- (concat "\n" (make-string (current-column) ? )))))))
- (move-end-of-line 2))
- (sort (if (org-region-active-p) (list (mark) (point)) (list (point))) #'>))
- (let ((start (point))
- (lang (completing-read
- "Lang: "
- (mapcar #'symbol-name
- (delete-dups
- (append (mapcar #'car org-babel-load-languages)
- (mapcar (lambda (el) (intern (car el)))
- org-src-lang-modes))))))
- (body (delete-and-extract-region
- (if (org-region-active-p) (mark) (point)) (point))))
- (insert (concat (if (looking-at "^") "" "\n")
- (if arg (concat stars "\n") "")
- (funcall (if lower-case-p 'downcase 'upcase) "#+begin_src ")
- lang "\n"
- body
- (if (or (= (length body) 0)
- (string-suffix-p "\r" body)
- (string-suffix-p "\n" body)) "" "\n")
- (funcall (if lower-case-p 'downcase 'upcase) "#+end_src\n")))
- (goto-char start) (move-end-of-line 1)))))
-
-(defun org-babel--insert-results-keyword (name hash)
- "Insert RESULTS keyword with NAME value at point.
-If NAME is nil, results are anonymous. HASH is a string used as
-the results hash, or nil. Leave point before the keyword."
- (save-excursion (insert "\n")) ;open line to indent.
- (org-indent-line)
- (delete-char 1)
- (insert (concat "#+" org-babel-results-keyword
- (cond ((not hash) nil)
- (org-babel-hash-show-time
- (format "[%s %s]"
- (format-time-string "<%F %T>")
- hash))
- (t (format "[%s]" hash)))
- ":"
- (when name (concat " " name))
- "\n"))
- ;; Make sure results are going to be followed by at least one blank
- ;; line so they do not get merged with the next element, e.g.,
- ;;
- ;; #+results:
- ;; : 1
- ;;
- ;; : fixed-width area, unrelated to the above.
- (unless (looking-at "^[ \t]*$") (save-excursion (insert "\n")))
- (beginning-of-line 0)
- (when hash (org-babel-hide-hash)))
-
-(defun org-babel--clear-results-maybe (hash)
- "Clear results when hash doesn't match HASH.
-
-When results hash does not match HASH, remove RESULTS keyword at
-point, along with related contents. Do nothing if HASH is nil.
-
-Return a non-nil value if results were cleared. In this case,
-leave point where new results should be inserted."
- (when hash
- (looking-at org-babel-result-regexp)
- (unless (string= (match-string 1) hash)
- (let* ((e (org-element-at-point))
- (post (copy-marker (org-element-property :post-affiliated e))))
- ;; Delete contents.
- (delete-region post
- (save-excursion
- (goto-char (org-element-property :end e))
- (skip-chars-backward " \t\n")
- (line-beginning-position 2)))
- ;; Delete RESULT keyword. However, if RESULTS keyword is
- ;; orphaned, ignore this part. The deletion above already
- ;; took care of it.
- (unless (= (point) post)
- (delete-region (line-beginning-position)
- (line-beginning-position 2)))
- (goto-char post)
- (set-marker post nil)
- t))))
-
-(defun org-babel-where-is-src-block-result (&optional insert _info hash)
- "Find where the current source block results begin.
-
-Return the point at the beginning of the result of the current
-source block, specifically at the beginning of the results line.
-
-If no result exists for this block return nil, unless optional
-argument INSERT is non-nil. In this case, create a results line
-following the source block and return the position at its
-beginning. In the case of inline code, remove the results part
-instead.
-
-If optional argument HASH is a string, remove contents related to
-RESULTS keyword if its hash is different. Then update the latter
-to HASH."
- (let ((context (org-element-context)))
- (catch :found
- (org-with-wide-buffer
- (pcase (org-element-type context)
- ((or `inline-babel-call `inline-src-block)
- ;; Results for inline objects are located right after them.
- ;; There is no RESULTS line to insert either.
- (let ((limit (org-element-property
- :contents-end (org-element-property :parent context))))
- (goto-char (org-element-property :end context))
- (skip-chars-forward " \t\n" limit)
- (throw :found
- (and
- (< (point) limit)
- (let ((result (org-element-context)))
- (and (eq (org-element-type result) 'macro)
- (string= (org-element-property :key result)
- "results")
- (if (not insert) (point)
- (delete-region
- (point)
- (progn
- (goto-char (org-element-property :end result))
- (skip-chars-backward " \t")
- (point)))
- (point))))))))
- ((or `babel-call `src-block)
- (let* ((name (org-element-property :name context))
- (named-results (and name (org-babel-find-named-result name))))
- (goto-char (or named-results (org-element-property :end context)))
- (cond
- ;; Existing results named after the current source.
- (named-results
- (when (org-babel--clear-results-maybe hash)
- (org-babel--insert-results-keyword name hash))
- (throw :found (point)))
- ;; Named results expect but none to be found.
- (name)
- ;; No possible anonymous results at the very end of
- ;; buffer or outside CONTEXT parent.
- ((eq (point)
- (or (org-element-property
- :contents-end (org-element-property :parent context))
- (point-max))))
- ;; Check if next element is an anonymous result below
- ;; the current block.
- ((let* ((next (org-element-at-point))
- (end (save-excursion
- (goto-char
- (org-element-property :post-affiliated next))
- (line-end-position)))
- (empty-result-re (concat org-babel-result-regexp "$"))
- (case-fold-search t))
- (re-search-forward empty-result-re end t))
- (beginning-of-line)
- (when (org-babel--clear-results-maybe hash)
- (org-babel--insert-results-keyword nil hash))
- (throw :found (point))))))
- ;; Ignore other elements.
- (_ (throw :found nil))))
- ;; No result found. Insert a RESULTS keyword below element, if
- ;; appropriate. In this case, ensure there is an empty line
- ;; after the previous element.
- (when insert
- (save-excursion
- (goto-char (min (org-element-property :end context) (point-max)))
- (skip-chars-backward " \t\n")
- (forward-line)
- (unless (bolp) (insert "\n"))
- (insert "\n")
- (org-babel--insert-results-keyword
- (org-element-property :name context) hash)
- (point))))))
-
-(defun org-babel-read-element (element)
- "Read ELEMENT into emacs-lisp.
-Return nil if ELEMENT cannot be read."
- (org-with-wide-buffer
- (goto-char (org-element-property :post-affiliated element))
- (pcase (org-element-type element)
- (`fixed-width
- (let ((v (org-trim (org-element-property :value element))))
- (or (org-babel--string-to-number v) v)))
- (`table (org-babel-read-table))
- (`plain-list (org-babel-read-list))
- (`example-block
- (let ((v (org-element-property :value element)))
- (if (or org-src-preserve-indentation
- (org-element-property :preserve-indent element))
- v
- (org-remove-indentation v))))
- (`export-block
- (org-remove-indentation (org-element-property :value element)))
- (`paragraph
- ;; Treat paragraphs containing a single link specially.
- (skip-chars-forward " \t")
- (if (and (looking-at org-bracket-link-regexp)
- (save-excursion
- (goto-char (match-end 0))
- (skip-chars-forward " \r\t\n")
- (<= (org-element-property :end element)
- (point))))
- (org-babel-read-link)
- (buffer-substring-no-properties
- (org-element-property :contents-begin element)
- (org-element-property :contents-end element))))
- ((or `center-block `quote-block `verse-block `special-block)
- (org-remove-indentation
- (buffer-substring-no-properties
- (org-element-property :contents-begin element)
- (org-element-property :contents-end element))))
- (_ nil))))
-
-(defun org-babel-read-result ()
- "Read the result at point into emacs-lisp."
- (and (not (save-excursion
- (beginning-of-line)
- (looking-at-p "[ \t]*$")))
- (org-babel-read-element (org-element-at-point))))
-
-(defun org-babel-read-table ()
- "Read the table at point into emacs-lisp."
- (mapcar (lambda (row)
- (if (and (symbolp row) (equal row 'hline)) row
- (mapcar (lambda (el) (org-babel-read el 'inhibit-lisp-eval)) row)))
- (org-table-to-lisp)))
-
-(defun org-babel-read-list ()
- "Read the list at point into emacs-lisp."
- (mapcar (lambda (el) (org-babel-read el 'inhibit-lisp-eval))
- (cdr (org-list-to-lisp))))
-
-(defvar org-link-types-re)
-(defun org-babel-read-link ()
- "Read the link at point into emacs-lisp.
-If the path of the link is a file path it is expanded using
-`expand-file-name'."
- (let* ((case-fold-search t)
- (raw (and (looking-at org-bracket-link-regexp)
- (org-no-properties (match-string 1))))
- (type (and (string-match org-link-types-re raw)
- (match-string 1 raw))))
- (cond
- ((not type) (expand-file-name raw))
- ((string= type "file")
- (and (string-match "file\\(.*\\):\\(.+\\)" raw)
- (expand-file-name (match-string 2 raw))))
- (t raw))))
-
-(defun org-babel-format-result (result &optional sep)
- "Format RESULT for writing to file."
- (let ((echo-res (lambda (r) (if (stringp r) r (format "%S" r)))))
- (if (listp result)
- ;; table result
- (orgtbl-to-generic
- result (list :sep (or sep "\t") :fmt echo-res))
- ;; scalar result
- (funcall echo-res result))))
-
-(defun org-babel-insert-result (result &optional result-params info hash lang)
- "Insert RESULT into the current buffer.
-
-By default RESULT is inserted after the end of the current source
-block. The RESULT of an inline source block usually will be
-wrapped inside a `results' macro and placed on the same line as
-the inline source block. The macro is stripped upon export.
-Multiline and non-scalar RESULTS from inline source blocks are
-not allowed. With optional argument RESULT-PARAMS controls
-insertion of results in the Org mode file. RESULT-PARAMS can
-take the following values:
-
-replace - (default option) insert results after the source block
- or inline source block replacing any previously
- inserted results.
-
-silent -- no results are inserted into the Org buffer but
- the results are echoed to the minibuffer and are
- ingested by Emacs (a potentially time consuming
- process).
-
-file ---- the results are interpreted as a file path, and are
- inserted into the buffer using the Org file syntax.
-
-list ---- the results are interpreted as an Org list.
-
-raw ----- results are added directly to the Org file. This is
- a good option if you code block will output Org
- formatted text.
-
-drawer -- results are added directly to the Org file as with
- \"raw\", but are wrapped in a RESULTS drawer or results
- macro, allowing them to later be replaced or removed
- automatically.
-
-org ----- results are added inside of a \"src_org{}\" or \"#+BEGIN_SRC
- org\" block depending on whether the current source block is
- inline or not. They are not comma-escaped when inserted,
- but Org syntax here will be discarded when exporting the
- file.
-
-html ---- results are added inside of a #+BEGIN_EXPORT HTML block
- or html export snippet depending on whether the current
- source block is inline or not. This is a good option
- if your code block will output html formatted text.
-
-latex --- results are added inside of a #+BEGIN_EXPORT LATEX
- block or latex export snippet depending on whether the
- current source block is inline or not. This is a good
- option if your code block will output latex formatted
- text.
-
-code ---- the results are extracted in the syntax of the source
- code of the language being evaluated and are added
- inside of a source block with the source-code language
- set appropriately. Also, source block inlining is
- preserved in this case. Note this relies on the
- optional LANG argument.
-
-list ---- the results are rendered as a list. This option not
- allowed for inline src blocks.
-
-table --- the results are rendered as a table. This option not
- allowed for inline src blocks.
-
-INFO may provide the values of these header arguments (in the
-`header-arguments-alist' see the docstring for
-`org-babel-get-src-block-info'):
-
-:file --- the name of the file to which output should be written.
-
-:wrap --- the effect is similar to `latex' in RESULT-PARAMS but
- using the argument supplied to specify the export block
- or snippet type."
- (cond ((stringp result)
- (setq result (org-no-properties result))
- (when (member "file" result-params)
- (setq result (org-babel-result-to-file
- result (when (assq :file-desc (nth 2 info))
- (or (cdr (assq :file-desc (nth 2 info)))
- result))))))
- ((listp result))
- (t (setq result (format "%S" result))))
- (if (and result-params (member "silent" result-params))
- (progn (message (replace-regexp-in-string "%" "%%" (format "%S" result)))
- result)
- (let ((inline (let ((context (org-element-context)))
- (and (memq (org-element-type context)
- '(inline-babel-call inline-src-block))
- context))))
- (when inline
- (let ((warning
- (or (and (member "table" result-params) "`:results table'")
- (and (listp result) "list result")
- (and (string-match-p "\n." result) "multiline result")
- (and (member "list" result-params) "`:results list'"))))
- (when warning
- (user-error "Inline error: %s cannot be used" warning))))
- (save-excursion
- (let* ((visible-beg (point-min-marker))
- (visible-end (copy-marker (point-max) t))
- (inline (let ((context (org-element-context)))
- (and (memq (org-element-type context)
- '(inline-babel-call inline-src-block))
- context)))
- (existing-result (org-babel-where-is-src-block-result t nil hash))
- (results-switches (cdr (assq :results_switches (nth 2 info))))
- ;; When results exist outside of the current visible
- ;; region of the buffer, be sure to widen buffer to
- ;; update them.
- (outside-scope (and existing-result
- (buffer-narrowed-p)
- (or (> visible-beg existing-result)
- (<= visible-end existing-result))))
- beg end indent)
- ;; Ensure non-inline results end in a newline.
- (when (and (org-string-nw-p result)
- (not inline)
- (not (string-equal (substring result -1) "\n")))
- (setq result (concat result "\n")))
- (unwind-protect
- (progn
- (when outside-scope (widen))
- (if existing-result (goto-char existing-result)
- (goto-char (org-element-property :end inline))
- (skip-chars-backward " \t"))
- (unless inline
- (setq indent (org-get-indentation))
- (forward-line 1))
- (setq beg (point))
- (cond
- (inline
- ;; Make sure new results are separated from the
- ;; source code by one space.
- (unless existing-result
- (insert " ")
- (setq beg (point))))
- ((member "replace" result-params)
- (delete-region (point) (org-babel-result-end)))
- ((member "append" result-params)
- (goto-char (org-babel-result-end)) (setq beg (point-marker)))
- ((member "prepend" result-params))) ; already there
- (setq results-switches
- (if results-switches (concat " " results-switches) ""))
- (let ((wrap
- (lambda (start finish &optional no-escape no-newlines
- inline-start inline-finish)
- (when inline
- (setq start inline-start)
- (setq finish inline-finish)
- (setq no-newlines t))
- (let ((before-finish (marker-position end)))
- (goto-char end)
- (insert (concat finish (unless no-newlines "\n")))
- (goto-char beg)
- (insert (concat start (unless no-newlines "\n")))
- (unless no-escape
- (org-escape-code-in-region
- (min (point) before-finish) before-finish))
- (goto-char end))))
- (tabulablep
- (lambda (r)
- ;; Non-nil when result R can be turned into
- ;; a table.
- (and (listp r)
- (null (cdr (last r)))
- (cl-every
- (lambda (e) (or (atom e) (null (cdr (last e)))))
- result)))))
- ;; insert results based on type
- (cond
- ;; Do nothing for an empty result.
- ((null result))
- ;; Insert a list if preferred.
- ((member "list" result-params)
- (insert
- (org-trim
- (org-list-to-generic
- (cons 'unordered
- (mapcar
- (lambda (e)
- (list (if (stringp e) e (format "%S" e))))
- (if (listp result) result
- (split-string result "\n" t))))
- '(:splicep nil :istart "- " :iend "\n")))
- "\n"))
- ;; Try hard to print RESULT as a table. Give up if
- ;; it contains an improper list.
- ((funcall tabulablep result)
- (goto-char beg)
- (insert (concat (orgtbl-to-orgtbl
- (if (cl-every
- (lambda (e)
- (or (eq e 'hline) (listp e)))
- result)
- result
- (list result))
- nil)
- "\n"))
- (goto-char beg)
- (when (org-at-table-p) (org-table-align))
- (goto-char (org-table-end)))
- ;; Print verbatim a list that cannot be turned into
- ;; a table.
- ((listp result) (insert (format "%s\n" result)))
- ((member "file" result-params)
- (when inline
- (setq result (org-macro-escape-arguments result)))
- (insert result))
- ((and inline (not (member "raw" result-params)))
- (insert (org-macro-escape-arguments
- (org-babel-chomp result "\n"))))
- (t (goto-char beg) (insert result)))
- (setq end (copy-marker (point) t))
- ;; possibly wrap result
- (cond
- ((assq :wrap (nth 2 info))
- (let ((name (or (cdr (assq :wrap (nth 2 info))) "RESULTS")))
- (funcall wrap (concat "#+BEGIN_" name)
- (concat "#+END_" (car (split-string name)))
- nil nil (concat "{{{results(@@" name ":") "@@)}}}")))
- ((member "html" result-params)
- (funcall wrap "#+BEGIN_EXPORT html" "#+END_EXPORT" nil nil
- "{{{results(@@html:" "@@)}}}"))
- ((member "latex" result-params)
- (funcall wrap "#+BEGIN_EXPORT latex" "#+END_EXPORT" nil nil
- "{{{results(@@latex:" "@@)}}}"))
- ((member "org" result-params)
- (goto-char beg) (when (org-at-table-p) (org-cycle))
- (funcall wrap "#+BEGIN_SRC org" "#+END_SRC" nil nil
- "{{{results(src_org{" "})}}}"))
- ((member "code" result-params)
- (let ((lang (or lang "none")))
- (funcall wrap (format "#+BEGIN_SRC %s%s" lang results-switches)
- "#+END_SRC" nil nil
- (format "{{{results(src_%s[%s]{" lang results-switches)
- "})}}}")))
- ((member "raw" result-params)
- (goto-char beg) (when (org-at-table-p) (org-cycle)))
- ((or (member "drawer" result-params)
- ;; Stay backward compatible with <7.9.2
- (member "wrap" result-params))
- (goto-char beg) (when (org-at-table-p) (org-cycle))
- (funcall wrap ":RESULTS:" ":END:" 'no-escape nil
- "{{{results(" ")}}}"))
- ((and inline (member "file" result-params))
- (funcall wrap nil nil nil nil "{{{results(" ")}}}"))
- ((and (not (funcall tabulablep result))
- (not (member "file" result-params)))
- (let ((org-babel-inline-result-wrap
- ;; Hard code {{{results(...)}}} on top of
- ;; customization.
- (format "{{{results(%s)}}}"
- org-babel-inline-result-wrap)))
- (org-babel-examplify-region
- beg end results-switches inline)))))
- ;; Possibly indent results in par with #+results line.
- (when (and (not inline) (numberp indent) (> indent 0)
- ;; In this case `table-align' does the work
- ;; for us.
- (not (and (listp result)
- (member "append" result-params))))
- (indent-rigidly beg end indent))
- (if (null result)
- (if (member "value" result-params)
- (message "Code block returned no value.")
- (message "Code block produced no output."))
- (message "Code block evaluation complete.")))
- (set-marker end nil)
- (when outside-scope (narrow-to-region visible-beg visible-end))
- (set-marker visible-beg nil)
- (set-marker visible-end nil)))))))
-
-(defun org-babel-remove-result (&optional info keep-keyword)
- "Remove the result of the current source block."
- (interactive)
- (let ((location (org-babel-where-is-src-block-result nil info)))
- (when location
- (save-excursion
- (goto-char location)
- (when (looking-at (concat org-babel-result-regexp ".*$"))
- (delete-region
- (if keep-keyword (line-beginning-position 2)
- (save-excursion
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2)))
- (progn (forward-line) (org-babel-result-end))))))))
-
-(defun org-babel-remove-inline-result (&optional datum)
- "Remove the result of the current inline-src-block or babel call.
-The result must be wrapped in a `results' macro to be removed.
-Leading white space is trimmed."
- (interactive)
- (let* ((el (or datum (org-element-context))))
- (when (memq (org-element-type el) '(inline-src-block inline-babel-call))
- (org-with-wide-buffer
- (goto-char (org-element-property :end el))
- (skip-chars-backward " \t")
- (let ((result (save-excursion
- (skip-chars-forward
- " \t\n"
- (org-element-property
- :contents-end (org-element-property :parent el)))
- (org-element-context))))
- (when (and (eq (org-element-type result) 'macro)
- (string= (org-element-property :key result) "results"))
- (delete-region ; And leading whitespace.
- (point)
- (progn (goto-char (org-element-property :end result))
- (skip-chars-backward " \t\n")
- (point)))))))))
-
-(defun org-babel-remove-result-one-or-many (x)
- "Remove the result of the current source block.
-If called with a prefix argument, remove all result blocks
-in the buffer."
- (interactive "P")
- (if x
- (org-babel-map-src-blocks nil (org-babel-remove-result))
- (org-babel-remove-result)))
-
-(defun org-babel-result-end ()
- "Return the point at the end of the current set of results."
- (cond ((looking-at-p "^[ \t]*$") (point)) ;no result
- ((looking-at-p (format "^[ \t]*%s[ \t]*$" org-bracket-link-regexp))
- (line-beginning-position 2))
- (t
- (let ((element (org-element-at-point)))
- (if (memq (org-element-type element)
- ;; Possible results types.
- '(drawer example-block export-block fixed-width item
- plain-list src-block table))
- (save-excursion
- (goto-char (min (point-max) ;for narrowed buffers
- (org-element-property :end element)))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))
- (point))))))
-
-(defun org-babel-result-to-file (result &optional description)
- "Convert RESULT into an Org link with optional DESCRIPTION.
-If the `default-directory' is different from the containing
-file's directory then expand relative links."
- (when (stringp result)
- (format "[[file:%s]%s]"
- (if (and default-directory
- buffer-file-name
- (not (string= (expand-file-name default-directory)
- (expand-file-name
- (file-name-directory buffer-file-name)))))
- (expand-file-name result default-directory)
- result)
- (if description (concat "[" description "]") ""))))
-
-(defun org-babel-examplify-region (beg end &optional results-switches inline)
- "Comment out region using the inline `==' or `: ' org example quote."
- (interactive "*r")
- (let ((maybe-cap
- (lambda (str)
- (if org-babel-uppercase-example-markers (upcase str) str))))
- (if inline
- (save-excursion
- (goto-char beg)
- (insert (format org-babel-inline-result-wrap
- (delete-and-extract-region beg end))))
- (let ((size (count-lines beg end)))
- (save-excursion
- (cond ((= size 0)) ; do nothing for an empty result
- ((< size org-babel-min-lines-for-block-output)
- (goto-char beg)
- (dotimes (_ size)
- (beginning-of-line 1) (insert ": ") (forward-line 1)))
- (t
- (goto-char beg)
- (insert (if results-switches
- (format "%s%s\n"
- (funcall maybe-cap "#+begin_example")
- results-switches)
- (funcall maybe-cap "#+begin_example\n")))
- (let ((p (point)))
- (if (markerp end) (goto-char end) (forward-char (- end beg)))
- (org-escape-code-in-region p (point)))
- (insert (funcall maybe-cap "#+end_example\n")))))))))
-
-(defun org-babel-update-block-body (new-body)
- "Update the body of the current code block to NEW-BODY."
- (let ((element (org-element-at-point)))
- (unless (eq (org-element-type element) 'src-block)
- (error "Not in a source block"))
- (goto-char (org-babel-where-is-src-block-head element))
- (let* ((ind (org-get-indentation))
- (body-start (line-beginning-position 2))
- (body (org-element-normalize-string
- (if (or org-src-preserve-indentation
- (org-element-property :preserve-indent element))
- new-body
- (with-temp-buffer
- (insert (org-remove-indentation new-body))
- (indent-rigidly
- (point-min)
- (point-max)
- (+ ind org-edit-src-content-indentation))
- (buffer-string))))))
- (delete-region body-start
- (org-with-wide-buffer
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \t\n")
- (line-beginning-position)))
- (goto-char body-start)
- (insert body))))
-
-(defun org-babel-merge-params (&rest plists)
- "Combine all parameter association lists in PLISTS.
-Later elements of PLISTS override the values of previous elements.
-This takes into account some special considerations for certain
-parameters when merging lists."
- (let* ((results-exclusive-groups
- (mapcar (lambda (group) (mapcar #'symbol-name group))
- (cdr (assq 'results org-babel-common-header-args-w-values))))
- (exports-exclusive-groups
- (mapcar (lambda (group) (mapcar #'symbol-name group))
- (cdr (assq 'exports org-babel-common-header-args-w-values))))
- (merge
- (lambda (exclusive-groups &rest result-params)
- ;; Maintain exclusivity of mutually exclusive parameters,
- ;; as defined in EXCLUSIVE-GROUPS while merging lists in
- ;; RESULT-PARAMS.
- (let (output)
- (dolist (new-params result-params (delete-dups output))
- (dolist (new-param new-params)
- (dolist (exclusive-group exclusive-groups)
- (when (member new-param exclusive-group)
- (setq output (cl-remove-if
- (lambda (o) (member o exclusive-group))
- output))))
- (push new-param output))))))
- (variable-index 0) ;Handle positional arguments.
- clearnames
- params ;Final parameters list.
- ;; Some keywords accept multiple values. We need to treat
- ;; them specially.
- vars results exports)
- (dolist (plist plists)
- (dolist (pair plist)
- (pcase pair
- (`(:var . ,value)
- (let ((name (cond
- ((listp value) (car value))
- ((string-match "^\\([^= \f\t\n\r\v]+\\)[ \t]*=" value)
- (intern (match-string 1 value)))
- (t nil))))
- (cond
- (name
- (setq vars
- (append (if (not (assoc name vars)) vars
- (push name clearnames)
- (cl-remove-if (lambda (p) (equal name (car p)))
- vars))
- (list (cons name pair)))))
- ((and vars (nth variable-index vars))
- ;; If no name is given and we already have named
- ;; variables then assign to named variables in order.
- (let ((name (car (nth variable-index vars))))
- ;; Clear out colnames and rownames for replace vars.
- (push name clearnames)
- (setf (cddr (nth variable-index vars))
- (concat (symbol-name name) "=" value))
- (cl-incf variable-index)))
- (t (error "Variable \"%s\" must be assigned a default value"
- (cdr pair))))))
- (`(:results . ,value)
- (setq results (funcall merge
- results-exclusive-groups
- results
- (split-string
- (if (stringp value) value (eval value t))))))
- (`(,(or :file :file-ext) . ,value)
- ;; `:file' and `:file-ext' are regular keywords but they
- ;; imply a "file" `:results' and a "results" `:exports'.
- (when value
- (setq results
- (funcall merge results-exclusive-groups results '("file")))
- (unless (or (member "both" exports)
- (member "none" exports)
- (member "code" exports))
- (setq exports
- (funcall merge
- exports-exclusive-groups exports '("results"))))
- (push pair params)))
- (`(:exports . ,value)
- (setq exports (funcall merge
- exports-exclusive-groups
- exports
- (split-string (or value "")))))
- ;; Regular keywords: any value overwrites the previous one.
- (_ (setq params (cons pair (assq-delete-all (car pair) params)))))))
- ;; Handle `:var' and clear out colnames and rownames for replaced
- ;; variables.
- (setq params (nconc (mapcar (lambda (v) (cons :var (cddr v))) vars)
- params))
- (dolist (name clearnames)
- (dolist (param '(:colname-names :rowname-names))
- (when (assq param params)
- (setf (cdr (assq param params))
- (cl-remove-if (lambda (pair) (equal name (car pair)))
- (cdr (assq param params))))
- (setq params
- (cl-remove-if (lambda (pair) (and (equal (car pair) param)
- (null (cdr pair))))
- params)))))
- ;; Handle other special keywords, which accept multiple values.
- (setq params (nconc (list (cons :results (mapconcat #'identity results " "))
- (cons :exports (mapconcat #'identity exports " ")))
- params))
- ;; Return merged params.
- params))
-
-(defvar org-babel-use-quick-and-dirty-noweb-expansion nil
- "Set to true to use regular expressions to expand noweb references.
-This results in much faster noweb reference expansion but does
-not properly allow code blocks to inherit the \":noweb-ref\"
-header argument from buffer or subtree wide properties.")
-
-(defun org-babel-noweb-p (params context)
- "Check if PARAMS require expansion in CONTEXT.
-CONTEXT may be one of :tangle, :export or :eval."
- (let ((allowed-values (cl-case context
- (:tangle '("yes" "tangle" "no-export" "strip-export"))
- (:eval '("yes" "no-export" "strip-export" "eval"))
- (:export '("yes")))))
- (cl-some (lambda (v) (member v allowed-values))
- (split-string (or (cdr (assq :noweb params)) "")))))
-
-(defun org-babel-expand-noweb-references (&optional info parent-buffer)
- "Expand Noweb references in the body of the current source code block.
-
-For example the following reference would be replaced with the
-body of the source-code block named `example-block'.
-
-<<example-block>>
-
-Note that any text preceding the <<foo>> construct on a line will
-be interposed between the lines of the replacement text. So for
-example if <<foo>> is placed behind a comment, then the entire
-replacement text will also be commented.
-
-This function must be called from inside of the buffer containing
-the source-code block which holds BODY.
-
-In addition the following syntax can be used to insert the
-results of evaluating the source-code block named `example-block'.
-
-<<example-block()>>
-
-Any optional arguments can be passed to example-block by placing
-the arguments inside the parenthesis following the convention
-defined by `org-babel-lob'. For example
-
-<<example-block(a=9)>>
-
-would set the value of argument \"a\" equal to \"9\". Note that
-these arguments are not evaluated in the current source-code
-block but are passed literally to the \"example-block\"."
- (let* ((parent-buffer (or parent-buffer (current-buffer)))
- (info (or info (org-babel-get-src-block-info 'light)))
- (lang (nth 0 info))
- (body (nth 1 info))
- (ob-nww-start org-babel-noweb-wrap-start)
- (ob-nww-end org-babel-noweb-wrap-end)
- (comment (string= "noweb" (cdr (assq :comments (nth 2 info)))))
- (rx-prefix (concat "\\(" org-babel-src-name-regexp "\\|"
- ":noweb-ref[ \t]+" "\\)"))
- (new-body "")
- (nb-add (lambda (text) (setq new-body (concat new-body text))))
- (c-wrap (lambda (text)
- (with-temp-buffer
- (funcall (intern (concat lang "-mode")))
- (comment-region (point) (progn (insert text) (point)))
- (org-trim (buffer-string)))))
- index source-name evaluate prefix)
- (with-temp-buffer
- (setq-local org-babel-noweb-wrap-start ob-nww-start)
- (setq-local org-babel-noweb-wrap-end ob-nww-end)
- (insert body) (goto-char (point-min))
- (setq index (point))
- (while (and (re-search-forward (org-babel-noweb-wrap) nil t))
- (save-match-data (setf source-name (match-string 1)))
- (save-match-data (setq evaluate (string-match "(.*)" source-name)))
- (save-match-data
- (setq prefix
- (buffer-substring (match-beginning 0)
- (save-excursion
- (beginning-of-line 1) (point)))))
- ;; add interval to new-body (removing noweb reference)
- (goto-char (match-beginning 0))
- (funcall nb-add (buffer-substring index (point)))
- (goto-char (match-end 0))
- (setq index (point))
- (funcall
- nb-add
- (with-current-buffer parent-buffer
- (save-restriction
- (widen)
- (mapconcat ;; Interpose PREFIX between every line.
- #'identity
- (split-string
- (if evaluate
- (let ((raw (org-babel-ref-resolve source-name)))
- (if (stringp raw) raw (format "%S" raw)))
- (or
- ;; Retrieve from the library of babel.
- (nth 2 (assoc (intern source-name)
- org-babel-library-of-babel))
- ;; Return the contents of headlines literally.
- (save-excursion
- (when (org-babel-ref-goto-headline-id source-name)
- (org-babel-ref-headline-body)))
- ;; Find the expansion of reference in this buffer.
- (let ((rx (concat rx-prefix source-name "[ \t\n]"))
- expansion)
- (save-excursion
- (goto-char (point-min))
- (if org-babel-use-quick-and-dirty-noweb-expansion
- (while (re-search-forward rx nil t)
- (let* ((i (org-babel-get-src-block-info 'light))
- (body (if (org-babel-noweb-p (nth 2 i) :eval)
- (org-babel-expand-noweb-references i)
- (nth 1 i)))
- (sep (or (cdr (assq :noweb-sep (nth 2 i)))
- "\n"))
- (full (if comment
- (let ((cs (org-babel-tangle-comment-links i)))
- (concat (funcall c-wrap (car cs)) "\n"
- body "\n"
- (funcall c-wrap (cadr cs))))
- body)))
- (setq expansion (cons sep (cons full expansion)))))
- (org-babel-map-src-blocks nil
- (let ((i (let ((org-babel-current-src-block-location (point)))
- (org-babel-get-src-block-info 'light))))
- (when (equal (or (cdr (assq :noweb-ref (nth 2 i)))
- (nth 4 i))
- source-name)
- (let* ((body (if (org-babel-noweb-p (nth 2 i) :eval)
- (org-babel-expand-noweb-references i)
- (nth 1 i)))
- (sep (or (cdr (assq :noweb-sep (nth 2 i)))
- "\n"))
- (full (if comment
- (let ((cs (org-babel-tangle-comment-links i)))
- (concat (funcall c-wrap (car cs)) "\n"
- body "\n"
- (funcall c-wrap (cadr cs))))
- body)))
- (setq expansion
- (cons sep (cons full expansion)))))))))
- (and expansion
- (mapconcat #'identity (nreverse (cdr expansion)) "")))
- ;; Possibly raise an error if named block doesn't exist.
- (if (or org-babel-noweb-error-all-langs
- (member lang org-babel-noweb-error-langs))
- (error "%s" (concat
- (org-babel-noweb-wrap source-name)
- "could not be resolved (see "
- "`org-babel-noweb-error-langs')"))
- "")))
- "[\n\r]") (concat "\n" prefix))))))
- (funcall nb-add (buffer-substring index (point-max))))
- new-body))
-
-(defun org-babel--script-escape-inner (str)
- (let (in-single in-double backslash out)
- (mapc
- (lambda (ch)
- (setq
- out
- (if backslash
- (progn
- (setq backslash nil)
- (cond
- ((and in-single (eq ch ?'))
- ;; Escaped single quote inside single quoted string:
- ;; emit just a single quote, since we've changed the
- ;; outer quotes to double.
- (cons ch out))
- ((eq ch ?\")
- ;; Escaped double quote
- (if in-single
- ;; This should be interpreted as backslash+quote,
- ;; not an escape. Emit a three backslashes
- ;; followed by a quote (because one layer of
- ;; quoting will be stripped by `org-babel-read').
- (append (list ch ?\\ ?\\ ?\\) out)
- ;; Otherwise we are in a double-quoted string. Emit
- ;; a single escaped quote
- (append (list ch ?\\) out)))
- ((eq ch ?\\)
- ;; Escaped backslash: emit a single escaped backslash
- (append (list ?\\ ?\\) out))
- ;; Other: emit a quoted backslash followed by whatever
- ;; the character was (because one layer of quoting will
- ;; be stripped by `org-babel-read').
- (t (append (list ch ?\\ ?\\) out))))
- (cl-case ch
- (?\[ (if (or in-double in-single)
- (cons ?\[ out)
- (cons ?\( out)))
- (?\] (if (or in-double in-single)
- (cons ?\] out)
- (cons ?\) out)))
- (?\{ (if (or in-double in-single)
- (cons ?\{ out)
- (cons ?\( out)))
- (?\} (if (or in-double in-single)
- (cons ?\} out)
- (cons ?\) out)))
- (?, (if (or in-double in-single)
- (cons ?, out) (cons ?\s out)))
- (?\' (if in-double
- (cons ?\' out)
- (setq in-single (not in-single)) (cons ?\" out)))
- (?\" (if in-single
- (append (list ?\" ?\\) out)
- (setq in-double (not in-double)) (cons ?\" out)))
- (?\\ (unless (or in-single in-double)
- (error "Can't handle backslash outside string in `org-babel-script-escape'"))
- (setq backslash t)
- out)
- (t (cons ch out))))))
- (string-to-list str))
- (when (or in-single in-double)
- (error "Unterminated string in `org-babel-script-escape'"))
- (apply #'string (reverse out))))
-
-(defun org-babel-script-escape (str &optional force)
- "Safely convert tables into elisp lists."
- (unless (stringp str)
- (error "`org-babel-script-escape' expects a string"))
- (let ((escaped
- (cond
- ((and (> (length str) 2)
- (or (and (string-equal "[" (substring str 0 1))
- (string-equal "]" (substring str -1)))
- (and (string-equal "{" (substring str 0 1))
- (string-equal "}" (substring str -1)))
- (and (string-equal "(" (substring str 0 1))
- (string-equal ")" (substring str -1)))))
-
- (concat "'" (org-babel--script-escape-inner str)))
- ((or force
- (and (> (length str) 2)
- (or (and (string-equal "'" (substring str 0 1))
- (string-equal "'" (substring str -1)))
- ;; We need to pass double-quoted strings
- ;; through the backslash-twiddling bits, even
- ;; though we don't need to change their
- ;; delimiters.
- (and (string-equal "\"" (substring str 0 1))
- (string-equal "\"" (substring str -1))))))
- (org-babel--script-escape-inner str))
- (t str))))
- (condition-case nil (org-babel-read escaped) (error escaped))))
-
-(defun org-babel-read (cell &optional inhibit-lisp-eval)
- "Convert the string value of CELL to a number if appropriate.
-Otherwise if CELL looks like lisp (meaning it starts with a
-\"(\", \"\\='\", \"\\=`\" or a \"[\") then read and evaluate it as
-lisp, otherwise return it unmodified as a string. Optional
-argument INHIBIT-LISP-EVAL inhibits lisp evaluation for
-situations in which is it not appropriate."
- (cond ((not (org-string-nw-p cell)) cell)
- ((org-babel--string-to-number cell))
- ((and (not inhibit-lisp-eval)
- (or (memq (string-to-char cell) '(?\( ?' ?` ?\[))
- (string= cell "*this*")))
- (eval (read cell) t))
- ((eq (string-to-char cell) ?\") (read cell))
- (t (org-no-properties cell))))
-
-(defun org-babel--string-to-number (string)
- "If STRING represents a number return its value.
-Otherwise return nil."
- (and (string-match-p "\\`-?[0-9]*\\.?[0-9]*\\'" string)
- (string-to-number string)))
-
-(defun org-babel-import-elisp-from-file (file-name &optional separator)
- "Read the results located at FILE-NAME into an elisp table.
-If the table is trivial, then return it as a scalar."
- (let (result)
- (save-window-excursion
- (with-temp-buffer
- (condition-case err
- (progn
- (org-table-import file-name separator)
- (delete-file file-name)
- (setq result (mapcar (lambda (row)
- (mapcar #'org-babel-string-read row))
- (org-table-to-lisp))))
- (error (message "Error reading results: %s" err) nil)))
- (if (null (cdr result)) ;; if result is trivial vector, then scalarize it
- (if (consp (car result))
- (if (null (cdr (car result)))
- (caar result)
- result)
- (car result))
- result))))
-
-(defun org-babel-string-read (cell)
- "Strip nested \"s from around strings."
- (org-babel-read (or (and (stringp cell)
- (string-match "\\\"\\(.+\\)\\\"" cell)
- (match-string 1 cell))
- cell) t))
-
-(defun org-babel-chomp (string &optional regexp)
- "Strip a trailing space or carriage return from STRING.
-The default regexp used is \"[ \\f\\t\\n\\r\\v]\" but another one
-can be specified as the REGEXP argument."
- (let ((regexp (or regexp "[ \f\t\n\r\v]")))
- (while (and (> (length string) 0)
- (string-match regexp (substring string -1)))
- (setq string (substring string 0 -1)))
- string))
-
-(defun org-babel-process-file-name (name &optional no-quote-p)
- "Prepare NAME to be used in an external process.
-If NAME specifies a remote location, the remote portion of the
-name is removed, since in that case the process will be executing
-remotely. The file name is then processed by `expand-file-name'.
-Unless second argument NO-QUOTE-P is non-nil, the file name is
-additionally processed by `shell-quote-argument'"
- (let ((f (org-babel-local-file-name (expand-file-name name))))
- (if no-quote-p f (shell-quote-argument f))))
-
-(defvar org-babel-temporary-directory)
-(unless (or noninteractive (boundp 'org-babel-temporary-directory))
- (defvar org-babel-temporary-directory
- (or (and (boundp 'org-babel-temporary-directory)
- (file-exists-p org-babel-temporary-directory)
- org-babel-temporary-directory)
- (make-temp-file "babel-" t))
- "Directory to hold temporary files created to execute code blocks.
-Used by `org-babel-temp-file'. This directory will be removed on
-Emacs shutdown."))
-
-(defcustom org-babel-remote-temporary-directory "/tmp/"
- "Directory to hold temporary files on remote hosts."
- :group 'org-babel
- :type 'string)
-
-(defmacro org-babel-result-cond (result-params scalar-form &rest table-forms)
- "Call the code to parse raw string results according to RESULT-PARAMS."
- (declare (indent 1)
- (debug (form form &rest form)))
- (org-with-gensyms (params)
- `(let ((,params ,result-params))
- (unless (member "none" ,params)
- (if (or (member "scalar" ,params)
- (member "verbatim" ,params)
- (member "html" ,params)
- (member "code" ,params)
- (member "pp" ,params)
- (member "file" ,params)
- (and (or (member "output" ,params)
- (member "raw" ,params)
- (member "org" ,params)
- (member "drawer" ,params))
- (not (member "table" ,params))))
- ,scalar-form
- ,@table-forms)))))
-(def-edebug-spec org-babel-result-cond (form form body))
-
-(defun org-babel-temp-file (prefix &optional suffix)
- "Create a temporary file in the `org-babel-temporary-directory'.
-Passes PREFIX and SUFFIX directly to `make-temp-file' with the
-value of `temporary-file-directory' temporarily set to the value
-of `org-babel-temporary-directory'."
- (if (file-remote-p default-directory)
- (let ((prefix
- (concat (file-remote-p default-directory)
- (expand-file-name
- prefix org-babel-remote-temporary-directory))))
- (make-temp-file prefix nil suffix))
- (let ((temporary-file-directory
- (or (and (boundp 'org-babel-temporary-directory)
- (file-exists-p org-babel-temporary-directory)
- org-babel-temporary-directory)
- temporary-file-directory)))
- (make-temp-file prefix nil suffix))))
-
-(defun org-babel-remove-temporary-directory ()
- "Remove `org-babel-temporary-directory' on Emacs shutdown."
- (when (and (boundp 'org-babel-temporary-directory)
- (file-exists-p org-babel-temporary-directory))
- ;; taken from `delete-directory' in files.el
- (condition-case nil
- (progn
- (mapc (lambda (file)
- ;; This test is equivalent to
- ;; (and (file-directory-p fn) (not (file-symlink-p fn)))
- ;; but more efficient
- (if (eq t (car (file-attributes file)))
- (delete-directory file)
- (delete-file file)))
- ;; We do not want to delete "." and "..".
- (directory-files org-babel-temporary-directory 'full
- "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"))
- (delete-directory org-babel-temporary-directory))
- (error
- (message "Failed to remove temporary Org-babel directory %s"
- (if (boundp 'org-babel-temporary-directory)
- org-babel-temporary-directory
- "[directory not defined]"))))))
-
-(add-hook 'kill-emacs-hook 'org-babel-remove-temporary-directory)
-
-(defun org-babel-one-header-arg-safe-p (pair safe-list)
- "Determine if the PAIR is a safe babel header arg according to SAFE-LIST.
-
-For the format of SAFE-LIST, see `org-babel-safe-header-args'."
- (and (consp pair)
- (keywordp (car pair))
- (stringp (cdr pair))
- (or
- (memq (car pair) safe-list)
- (let ((entry (assq (car pair) safe-list)))
- (and entry
- (consp entry)
- (cond ((functionp (cdr entry))
- (funcall (cdr entry) (cdr pair)))
- ((listp (cdr entry))
- (member (cdr pair) (cdr entry)))
- (t nil)))))))
-
-(defun org-babel-generate-file-param (src-name params)
- "Calculate the filename for source block results.
-
-The directory is calculated from the :output-dir property of the
-source block; if not specified, use the current directory.
-
-If the source block has a #+NAME and the :file parameter does not
-contain any period characters, then the :file parameter is
-treated as an extension, and the output file name is the
-concatenation of the directory (as calculated above), the block
-name, a period, and the parameter value as a file extension.
-Otherwise, the :file parameter is treated as a full file name,
-and the output file name is the directory (as calculated above)
-plus the parameter value."
- (let* ((file-cons (assq :file params))
- (file-ext-cons (assq :file-ext params))
- (file-ext (cdr-safe file-ext-cons))
- (dir (cdr-safe (assq :output-dir params)))
- fname)
- ;; create the output-dir if it does not exist
- (when dir
- (make-directory dir t))
- (if file-cons
- ;; :file given; add :output-dir if given
- (when dir
- (setcdr file-cons (concat (file-name-as-directory dir) (cdr file-cons))))
- ;; :file not given; compute from name and :file-ext if possible
- (when (and src-name file-ext)
- (if dir
- (setq fname (concat (file-name-as-directory (or dir ""))
- src-name "." file-ext))
- (setq fname (concat src-name "." file-ext)))
- (setq params (cons (cons :file fname) params))))
- params))
-
-(defun org-babel-graphical-output-file (params)
- "File where a babel block should send graphical output, per PARAMS.
-Return nil if no graphical output is expected. Raise an error if
-the output file is ill-defined."
- (let ((file (cdr (assq :file params))))
- (cond (file (and (member "graphics" (cdr (assq :result-params params)))
- file))
- ((assq :file-ext params)
- (user-error ":file-ext given but no :file generated; did you forget \
-to name a block?"))
- (t (user-error "No :file header argument given; cannot create \
-graphical result")))))
-
-(defun org-babel-make-language-alias (new old)
- "Make source blocks of type NEW aliases for those of type OLD.
-
-NEW and OLD should be strings. This function should be called
-after the babel API for OLD-type source blocks is fully defined.
-
-Callers of this function will probably want to add an entry to
-`org-src-lang-modes' as well."
- (dolist (fn '("execute" "expand-body" "prep-session"
- "variable-assignments" "load-session"))
- (let ((sym (intern-soft (concat "org-babel-" fn ":" old))))
- (when (and sym (fboundp sym))
- (defalias (intern (concat "org-babel-" fn ":" new)) sym))))
- ;; Technically we don't need a `dolist' for just one variable, but
- ;; we keep it for symmetry/ease of future expansion.
- (dolist (var '("default-header-args"))
- (let ((sym (intern-soft (concat "org-babel-" var ":" old))))
- (when (and sym (boundp sym))
- (defvaralias (intern (concat "org-babel-" var ":" new)) sym)))))
-
-(defun org-babel-strip-quotes (string)
- "Strip \\\"s from around a string, if applicable."
- (org-unbracket-string "\"" "\"" string))
-
-(provide 'ob-core)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; ob-core.el ends here
diff --git a/elpa/org-9.1.14/ob-core.elc b/elpa/org-9.1.14/ob-core.elc
deleted file mode 100644
index 934d547..0000000
--- a/elpa/org-9.1.14/ob-core.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-css.el b/elpa/org-9.1.14/ob-css.el
deleted file mode 100644
index 8cabf2b..0000000
--- a/elpa/org-9.1.14/ob-css.el
+++ /dev/null
@@ -1,48 +0,0 @@
-;;; ob-css.el --- Babel Functions for CSS -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Since CSS can't be executed, this file exists solely for tangling
-;; CSS from Org files.
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:css '())
-
-(defun org-babel-execute:css (body _params)
- "Execute a block of CSS code.
-This function is called by `org-babel-execute-src-block'."
- body)
-
-(defun org-babel-prep-session:css (_session _params)
- "Return an error if the :session header argument is set.
-CSS does not support sessions."
- (error "CSS sessions are nonsensical"))
-
-(provide 'ob-css)
-
-
-
-;;; ob-css.el ends here
diff --git a/elpa/org-9.1.14/ob-css.elc b/elpa/org-9.1.14/ob-css.elc
deleted file mode 100644
index c1ddf1d..0000000
--- a/elpa/org-9.1.14/ob-css.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-ditaa.el b/elpa/org-9.1.14/ob-ditaa.el
deleted file mode 100644
index 9507630..0000000
--- a/elpa/org-9.1.14/ob-ditaa.el
+++ /dev/null
@@ -1,124 +0,0 @@
-;;; ob-ditaa.el --- Babel Functions for ditaa -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating ditaa source code.
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in ditaa
-;;
-;; 2) we are generally only going to return results of type "file"
-;;
-;; 3) we are adding the "file" and "cmdline" header arguments
-;;
-;; 4) there are no variables (at least for now)
-
-;;; Code:
-(require 'ob)
-(require 'org-compat)
-
-(defvar org-babel-default-header-args:ditaa
- '((:results . "file")
- (:exports . "results")
- (:java . "-Dfile.encoding=UTF-8"))
- "Default arguments for evaluating a ditaa source block.")
-
-(defcustom org-ditaa-jar-path (expand-file-name
- "ditaa.jar"
- (file-name-as-directory
- (expand-file-name
- "scripts"
- (file-name-as-directory
- (expand-file-name
- "../contrib"
- (file-name-directory (org-find-library-dir "org")))))))
- "Path to the ditaa jar executable."
- :group 'org-babel
- :type 'string)
-
-(defcustom org-babel-ditaa-java-cmd "java"
- "Java executable to use when evaluating ditaa blocks."
- :group 'org-babel
- :type 'string)
-
-(defcustom org-ditaa-eps-jar-path
- (expand-file-name "DitaaEps.jar" (file-name-directory org-ditaa-jar-path))
- "Path to the DitaaEps.jar executable."
- :group 'org-babel
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defcustom org-ditaa-jar-option "-jar"
- "Option for the ditaa jar file.
-Do not leave leading or trailing spaces in this string."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defun org-babel-execute:ditaa (body params)
- "Execute a block of Ditaa code with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((out-file (or (cdr (assq :file params))
- (error
- "ditaa code block requires :file header argument")))
- (cmdline (cdr (assq :cmdline params)))
- (java (cdr (assq :java params)))
- (in-file (org-babel-temp-file "ditaa-"))
- (eps (cdr (assq :eps params)))
- (eps-file (when eps
- (org-babel-process-file-name (concat in-file ".eps"))))
- (pdf-cmd (when (and (or (string= (file-name-extension out-file) "pdf")
- (cdr (assq :pdf params))))
- (concat
- "epstopdf"
- " " eps-file
- " -o=" (org-babel-process-file-name out-file))))
- (cmd (concat org-babel-ditaa-java-cmd
- " " java " " org-ditaa-jar-option " "
- (shell-quote-argument
- (expand-file-name
- (if eps org-ditaa-eps-jar-path org-ditaa-jar-path)))
- " " cmdline
- " " (org-babel-process-file-name in-file)
- " " (if pdf-cmd
- eps-file
- (org-babel-process-file-name out-file)))))
- (unless (file-exists-p org-ditaa-jar-path)
- (error "Could not find ditaa.jar at %s" org-ditaa-jar-path))
- (with-temp-file in-file (insert body))
- (message cmd) (shell-command cmd)
- (when pdf-cmd (message pdf-cmd) (shell-command pdf-cmd))
- nil)) ;; signal that output has already been written to file
-
-(defun org-babel-prep-session:ditaa (_session _params)
- "Return an error because ditaa does not support sessions."
- (error "Ditaa does not support sessions"))
-
-(provide 'ob-ditaa)
-
-
-
-;;; ob-ditaa.el ends here
diff --git a/elpa/org-9.1.14/ob-ditaa.elc b/elpa/org-9.1.14/ob-ditaa.elc
deleted file mode 100644
index dfa9fbc..0000000
--- a/elpa/org-9.1.14/ob-ditaa.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-dot.el b/elpa/org-9.1.14/ob-dot.el
deleted file mode 100644
index 31e0a4f..0000000
--- a/elpa/org-9.1.14/ob-dot.el
+++ /dev/null
@@ -1,90 +0,0 @@
-;;; ob-dot.el --- Babel Functions for dot -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating dot source code.
-;;
-;; For information on dot see http://www.graphviz.org/
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in dot
-;;
-;; 2) we are generally only going to return results of type "file"
-;;
-;; 3) we are adding the "file" and "cmdline" header arguments
-;;
-;; 4) there are no variables (at least for now)
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:dot
- '((:results . "file") (:exports . "results"))
- "Default arguments to use when evaluating a dot source block.")
-
-(defun org-babel-expand-body:dot (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let ((vars (org-babel--get-vars params)))
- (mapc
- (lambda (pair)
- (let ((name (symbol-name (car pair)))
- (value (cdr pair)))
- (setq body
- (replace-regexp-in-string
- (concat "$" (regexp-quote name))
- (if (stringp value) value (format "%S" value))
- body
- t
- t))))
- vars)
- body))
-
-(defun org-babel-execute:dot (body params)
- "Execute a block of Dot code with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((out-file (cdr (or (assq :file params)
- (error "You need to specify a :file parameter"))))
- (cmdline (or (cdr (assq :cmdline params))
- (format "-T%s" (file-name-extension out-file))))
- (cmd (or (cdr (assq :cmd params)) "dot"))
- (in-file (org-babel-temp-file "dot-")))
- (with-temp-file in-file
- (insert (org-babel-expand-body:dot body params)))
- (org-babel-eval
- (concat cmd
- " " (org-babel-process-file-name in-file)
- " " cmdline
- " -o " (org-babel-process-file-name out-file)) "")
- nil)) ;; signal that output has already been written to file
-
-(defun org-babel-prep-session:dot (_session _params)
- "Return an error because Dot does not support sessions."
- (error "Dot does not support sessions"))
-
-(provide 'ob-dot)
-
-
-
-;;; ob-dot.el ends here
diff --git a/elpa/org-9.1.14/ob-dot.elc b/elpa/org-9.1.14/ob-dot.elc
deleted file mode 100644
index e3918db..0000000
--- a/elpa/org-9.1.14/ob-dot.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-ebnf.el b/elpa/org-9.1.14/ob-ebnf.el
deleted file mode 100644
index 8c7c541..0000000
--- a/elpa/org-9.1.14/ob-ebnf.el
+++ /dev/null
@@ -1,81 +0,0 @@
-;;; ob-ebnf.el --- Babel Functions for EBNF -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013-2018 Free Software Foundation, Inc.
-
-;; Author: Michael Gauland
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-;; Version: 1.00
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Org-Babel support for using ebnf2ps to generate encapsulated postscript
-;;; railroad diagrams. It recognizes these arguments:
-;;;
-;;; :file is required; it must include the extension '.eps.' All the rules
-;;; in the block will be drawn in the same file. This is done by
-;;; inserting a '[<file>' comment at the start of the block (see the
-;;; documentation for ebnf-eps-buffer for more information).
-;;;
-;;; :style specifies a value in ebnf-style-database. This provides the
-;;; ability to customize the output. The style can also specify the
-;;; grammar syntax (by setting ebnf-syntax); note that only ebnf,
-;;; iso-ebnf, and yacc are supported by this file.
-
-;;; Requirements:
-
-;;; Code:
-(require 'ob)
-(require 'ebnf2ps)
-
-;; optionally declare default header arguments for this language
-(defvar org-babel-default-header-args:ebnf '((:style . nil)))
-
-;; Use ebnf-eps-buffer to produce an encapsulated postscript file.
-;;
-(defun org-babel-execute:ebnf (body params)
- "Execute a block of Ebnf code with org-babel. This function is
-called by `org-babel-execute-src-block'"
- (save-excursion
- (let* ((dest-file (cdr (assq :file params)))
- (dest-dir (file-name-directory dest-file))
- (dest-root (file-name-sans-extension
- (file-name-nondirectory dest-file)))
- (style (cdr (assq :style params)))
- (result nil))
- (with-temp-buffer
- (when style (ebnf-push-style style))
- (let ((comment-format
- (cond ((string= ebnf-syntax 'yacc) "/*%s*/")
- ((string= ebnf-syntax 'ebnf) ";%s")
- ((string= ebnf-syntax 'iso-ebnf) "(*%s*)")
- (t (setq result
- (format "EBNF error: format %s not supported."
- ebnf-syntax))))))
- (setq ebnf-eps-prefix dest-dir)
- (insert (format comment-format (format "[%s" dest-root)))
- (newline)
- (insert body)
- (newline)
- (insert (format comment-format (format "]%s" dest-root)))
- (ebnf-eps-buffer)
- (when style (ebnf-pop-style))))
- result)))
-
-(provide 'ob-ebnf)
-;;; ob-ebnf.el ends here
diff --git a/elpa/org-9.1.14/ob-ebnf.elc b/elpa/org-9.1.14/ob-ebnf.elc
deleted file mode 100644
index da458d4..0000000
--- a/elpa/org-9.1.14/ob-ebnf.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-emacs-lisp.el b/elpa/org-9.1.14/ob-emacs-lisp.el
deleted file mode 100644
index 8ea2ec1..0000000
--- a/elpa/org-9.1.14/ob-emacs-lisp.el
+++ /dev/null
@@ -1,91 +0,0 @@
-;;; ob-emacs-lisp.el --- Babel Functions for Emacs-lisp Code -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating emacs-lisp code
-
-;;; Code:
-(require 'ob)
-
-(defconst org-babel-header-args:emacs-lisp '((lexical . :any))
- "Emacs-lisp specific header arguments.")
-
-(defvar org-babel-default-header-args:emacs-lisp '((:lexical . "no"))
- "Default arguments for evaluating an emacs-lisp source block.
-
-A value of \"yes\" or t causes src blocks to be eval'd using
-lexical scoping. It can also be an alist mapping symbols to
-their value. It is used as the optional LEXICAL argument to
-`eval', which see.")
-
-(defun org-babel-expand-body:emacs-lisp (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let ((vars (org-babel--get-vars params))
- (print-level nil)
- (print-length nil))
- (if (null vars) (concat body "\n")
- (format "(let (%s)\n%s\n)"
- (mapconcat
- (lambda (var)
- (format "%S" (print `(,(car var) ',(cdr var)))))
- vars "\n ")
- body))))
-
-(defun org-babel-execute:emacs-lisp (body params)
- "Execute a block of emacs-lisp code with Babel."
- (save-window-excursion
- (let* ((lexical (cdr (assq :lexical params)))
- (result-params (cdr (assq :result-params params)))
- (body (format (if (member "output" result-params)
- "(with-output-to-string %s\n)"
- "(progn %s\n)")
- (org-babel-expand-body:emacs-lisp body params)))
- (result (eval (read (if (or (member "code" result-params)
- (member "pp" result-params))
- (concat "(pp " body ")")
- body))
- (if (listp lexical)
- lexical
- (member lexical '("yes" "t"))))))
- (org-babel-result-cond result-params
- (let ((print-level nil)
- (print-length nil))
- (if (or (member "scalar" result-params)
- (member "verbatim" result-params))
- (format "%S" result)
- (format "%s" result)))
- (org-babel-reassemble-table
- result
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colnames params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rownames params))))))))
-
-(org-babel-make-language-alias "elisp" "emacs-lisp")
-
-(provide 'ob-emacs-lisp)
-
-
-
-;;; ob-emacs-lisp.el ends here
diff --git a/elpa/org-9.1.14/ob-emacs-lisp.elc b/elpa/org-9.1.14/ob-emacs-lisp.elc
deleted file mode 100644
index 599626f..0000000
--- a/elpa/org-9.1.14/ob-emacs-lisp.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-eval.el b/elpa/org-9.1.14/ob-eval.el
deleted file mode 100644
index 2bfaa08..0000000
--- a/elpa/org-9.1.14/ob-eval.el
+++ /dev/null
@@ -1,149 +0,0 @@
-;;; ob-eval.el --- Babel Functions for External Code Evaluation -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research, comint
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; These functions build existing Emacs support for executing external
-;; shell commands.
-
-;;; Code:
-(require 'org-macs)
-
-(defvar org-babel-error-buffer-name "*Org-Babel Error Output*")
-(declare-function org-babel-temp-file "ob-core" (prefix &optional suffix))
-
-(defun org-babel-eval-error-notify (exit-code stderr)
- "Open a buffer to display STDERR and a message with the value of EXIT-CODE."
- (let ((buf (get-buffer-create org-babel-error-buffer-name)))
- (with-current-buffer buf
- (goto-char (point-max))
- (save-excursion (insert stderr)))
- (display-buffer buf))
- (message "Babel evaluation exited with code %S" exit-code))
-
-(defun org-babel-eval (cmd body)
- "Run CMD on BODY.
-If CMD succeeds then return its results, otherwise display
-STDERR with `org-babel-eval-error-notify'."
- (let ((err-buff (get-buffer-create " *Org-Babel Error*")) exit-code)
- (with-current-buffer err-buff (erase-buffer))
- (with-temp-buffer
- (insert body)
- (setq exit-code
- (org-babel--shell-command-on-region
- (point-min) (point-max) cmd err-buff))
- (if (or (not (numberp exit-code)) (> exit-code 0))
- (progn
- (with-current-buffer err-buff
- (org-babel-eval-error-notify exit-code (buffer-string)))
- (save-excursion
- (when (get-buffer org-babel-error-buffer-name)
- (with-current-buffer org-babel-error-buffer-name
- (unless (derived-mode-p 'compilation-mode)
- (compilation-mode))
- ;; Compilation-mode enforces read-only, but Babel expects the buffer modifiable.
- (setq buffer-read-only nil))))
- nil)
- (buffer-string)))))
-
-(defun org-babel-eval-read-file (file)
- "Return the contents of FILE as a string."
- (with-temp-buffer (insert-file-contents file)
- (buffer-string)))
-
-(defun org-babel--shell-command-on-region (start end command error-buffer)
- "Execute COMMAND in an inferior shell with region as input.
-
-Stripped down version of shell-command-on-region for internal use
-in Babel only. This lets us work around errors in the original
-function in various versions of Emacs.
-"
- (let ((input-file (org-babel-temp-file "ob-input-"))
- (error-file (if error-buffer (org-babel-temp-file "ob-error-") nil))
- ;; Unfortunately, `executable-find' does not support file name
- ;; handlers. Therefore, we could use it in the local case
- ;; only.
- (shell-file-name
- (cond ((and (not (file-remote-p default-directory))
- (executable-find shell-file-name))
- shell-file-name)
- ((file-executable-p
- (concat (file-remote-p default-directory) shell-file-name))
- shell-file-name)
- ("/bin/sh")))
- exit-status)
- ;; There is an error in `process-file' when `error-file' exists.
- ;; This is fixed in Emacs trunk as of 2012-12-21; let's use this
- ;; workaround for now.
- (unless (file-remote-p default-directory)
- (delete-file error-file))
- ;; we always call this with 'replace, remove conditional
- ;; Replace specified region with output from command.
- (let ((swap (< start end)))
- (goto-char start)
- (push-mark (point) 'nomsg)
- (write-region start end input-file)
- (delete-region start end)
- (setq exit-status
- (process-file shell-file-name input-file
- (if error-file
- (list t error-file)
- t)
- nil shell-command-switch command))
- (when swap (exchange-point-and-mark)))
-
- (when (and input-file (file-exists-p input-file)
- ;; bind org-babel--debug-input around the call to keep
- ;; the temporary input files available for inspection
- (not (when (boundp 'org-babel--debug-input)
- org-babel--debug-input)))
- (delete-file input-file))
-
- (when (and error-file (file-exists-p error-file))
- (when (< 0 (nth 7 (file-attributes error-file)))
- (with-current-buffer (get-buffer-create error-buffer)
- (let ((pos-from-end (- (point-max) (point))))
- (or (bobp)
- (insert "\f\n"))
- ;; Do no formatting while reading error file,
- ;; because that can run a shell command, and we
- ;; don't want that to cause an infinite recursion.
- (format-insert-file error-file nil)
- ;; Put point after the inserted errors.
- (goto-char (- (point-max) pos-from-end)))
- (current-buffer)))
- (delete-file error-file))
- exit-status))
-
-(defun org-babel-eval-wipe-error-buffer ()
- "Delete the contents of the Org code block error buffer.
-This buffer is named by `org-babel-error-buffer-name'."
- (when (get-buffer org-babel-error-buffer-name)
- (with-current-buffer org-babel-error-buffer-name
- (delete-region (point-min) (point-max)))))
-
-(provide 'ob-eval)
-
-
-
-;;; ob-eval.el ends here
diff --git a/elpa/org-9.1.14/ob-eval.elc b/elpa/org-9.1.14/ob-eval.elc
deleted file mode 100644
index 3e49bc1..0000000
--- a/elpa/org-9.1.14/ob-eval.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-exp.el b/elpa/org-9.1.14/ob-exp.el
deleted file mode 100644
index 264dc0e..0000000
--- a/elpa/org-9.1.14/ob-exp.el
+++ /dev/null
@@ -1,413 +0,0 @@
-;;; ob-exp.el --- Exportation of Babel Source Blocks -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Eric Schulte
-;; Dan Davison
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Code:
-(require 'ob-core)
-
-(declare-function org-babel-lob-get-info "ob-lob" (&optional datum))
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-escape-code-in-string "org-src" (s))
-(declare-function org-export-copy-buffer "ox" ())
-(declare-function org-fill-template "org" (template alist))
-(declare-function org-get-indentation "org" (&optional line))
-(declare-function org-in-commented-heading-p "org" (&optional no-inheritance))
-
-(defvar org-src-preserve-indentation)
-
-(defcustom org-export-use-babel t
- "Switch controlling code evaluation and header processing during export.
-When set to nil no code will be evaluated as part of the export
-process and no header arguments will be obeyed. Users who wish
-to avoid evaluating code on export should use the header argument
-`:eval never-export'."
- :group 'org-babel
- :version "24.1"
- :type '(choice (const :tag "Never" nil)
- (const :tag "Always" t))
- :safe #'null)
-
-
-(defmacro org-babel-exp--at-source (&rest body)
- "Evaluate BODY at the source of the Babel block at point.
-Source is located in `org-babel-exp-reference-buffer'. The value
-returned is the value of the last form in BODY. Assume that
-point is at the beginning of the Babel block."
- (declare (indent 1) (debug body))
- `(let ((source (get-text-property (point) 'org-reference)))
- ;; Source blocks created during export process (e.g., by other
- ;; source blocks) are not referenced. In this case, do not move
- ;; point at all.
- (with-current-buffer (if source org-babel-exp-reference-buffer
- (current-buffer))
- (org-with-wide-buffer
- (when source (goto-char source))
- ,@body))))
-
-(defun org-babel-exp-src-block ()
- "Process source block for export.
-Depending on the \":export\" header argument, replace the source
-code block like this:
-
-both ---- display the code and the results
-
-code ---- the default, display the code inside the block but do
- not process
-
-results - just like none only the block is run on export ensuring
- that its results are present in the Org mode buffer
-
-none ---- do not display either code or results upon export
-
-Assume point is at block opening line."
- (interactive)
- (save-excursion
- (let* ((info (org-babel-get-src-block-info 'light))
- (lang (nth 0 info))
- (raw-params (nth 2 info))
- hash)
- ;; bail if we couldn't get any info from the block
- (unless noninteractive
- (message "org-babel-exp process %s at position %d..."
- lang
- (line-beginning-position)))
- (when info
- ;; if we're actually going to need the parameters
- (when (member (cdr (assq :exports (nth 2 info))) '("both" "results"))
- (let ((lang-headers (intern (concat "org-babel-default-header-args:"
- lang))))
- (org-babel-exp--at-source
- (setf (nth 2 info)
- (org-babel-process-params
- (apply #'org-babel-merge-params
- org-babel-default-header-args
- (and (boundp lang-headers)
- (symbol-value lang-headers))
- (append (org-babel-params-from-properties lang)
- (list raw-params)))))))
- (setf hash (org-babel-sha1-hash info)))
- (org-babel-exp-do-export info 'block hash)))))
-
-(defcustom org-babel-exp-call-line-template
- ""
- "Template used to export call lines.
-This template may be customized to include the call line name
-with any export markup. The template is filled out using
-`org-fill-template', and the following %keys may be used.
-
- line --- call line
-
-An example value would be \"\\n: call: %line\" to export the call line
-wrapped in a verbatim environment.
-
-Note: the results are inserted separately after the contents of
-this template."
- :group 'org-babel
- :type 'string)
-
-(defun org-babel-exp-process-buffer ()
- "Execute all Babel blocks in current buffer."
- (interactive)
- (when org-export-use-babel
- (save-window-excursion
- (let ((case-fold-search t)
- (regexp "\\(call\\|src\\)_\\|^[ \t]*#\\+\\(BEGIN_SRC\\|CALL:\\)")
- ;; Get a pristine copy of current buffer so Babel
- ;; references are properly resolved and source block
- ;; context is preserved.
- (org-babel-exp-reference-buffer (org-export-copy-buffer)))
- (unwind-protect
- (save-excursion
- ;; First attach to every source block their original
- ;; position, so that they can be retrieved within
- ;; `org-babel-exp-reference-buffer', even after heavy
- ;; modifications on current buffer.
- ;;
- ;; False positives are harmless, so we don't check if
- ;; we're really at some Babel object. Moreover,
- ;; `line-end-position' ensures that we propertize
- ;; a noticeable part of the object, without affecting
- ;; multiple objects on the same line.
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (let ((s (match-beginning 0)))
- (put-text-property s (line-end-position) 'org-reference s)))
- ;; Evaluate from top to bottom every Babel block
- ;; encountered.
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (unless (save-match-data (org-in-commented-heading-p))
- (let* ((object? (match-end 1))
- (element (save-match-data
- (if object? (org-element-context)
- ;; No deep inspection if we're
- ;; just looking for an element.
- (org-element-at-point))))
- (type
- (pcase (org-element-type element)
- ;; Discard block elements if we're looking
- ;; for inline objects. False results
- ;; happen when, e.g., "call_" syntax is
- ;; located within affiliated keywords:
- ;;
- ;; #+name: call_src
- ;; #+begin_src ...
- ((and (or `babel-call `src-block) (guard object?))
- nil)
- (type type)))
- (begin
- (copy-marker (org-element-property :begin element)))
- (end
- (copy-marker
- (save-excursion
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (point)))))
- (pcase type
- (`inline-src-block
- (let* ((info
- (org-babel-get-src-block-info nil element))
- (params (nth 2 info)))
- (setf (nth 1 info)
- (if (and (cdr (assq :noweb params))
- (string= "yes"
- (cdr (assq :noweb params))))
- (org-babel-expand-noweb-references
- info org-babel-exp-reference-buffer)
- (nth 1 info)))
- (goto-char begin)
- (let ((replacement
- (org-babel-exp-do-export info 'inline)))
- (if (equal replacement "")
- ;; Replacement code is empty: remove
- ;; inline source block, including extra
- ;; white space that might have been
- ;; created when inserting results.
- (delete-region begin
- (progn (goto-char end)
- (skip-chars-forward " \t")
- (point)))
- ;; Otherwise: remove inline src block but
- ;; preserve following white spaces. Then
- ;; insert value.
- (delete-region begin end)
- (insert replacement)))))
- ((or `babel-call `inline-babel-call)
- (org-babel-exp-do-export (org-babel-lob-get-info element)
- 'lob)
- (let ((rep
- (org-fill-template
- org-babel-exp-call-line-template
- `(("line" .
- ,(org-element-property :value element))))))
- ;; If replacement is empty, completely remove
- ;; the object/element, including any extra
- ;; white space that might have been created
- ;; when including results.
- (if (equal rep "")
- (delete-region
- begin
- (progn (goto-char end)
- (if (not (eq type 'babel-call))
- (progn (skip-chars-forward " \t")
- (point))
- (skip-chars-forward " \r\t\n")
- (line-beginning-position))))
- ;; Otherwise, preserve trailing
- ;; spaces/newlines and then, insert
- ;; replacement string.
- (goto-char begin)
- (delete-region begin end)
- (insert rep))))
- (`src-block
- (let ((match-start (copy-marker (match-beginning 0)))
- (ind (org-get-indentation)))
- ;; Take care of matched block: compute
- ;; replacement string. In particular, a nil
- ;; REPLACEMENT means the block is left as-is
- ;; while an empty string removes the block.
- (let ((replacement
- (progn (goto-char match-start)
- (org-babel-exp-src-block))))
- (cond ((not replacement) (goto-char end))
- ((equal replacement "")
- (goto-char end)
- (skip-chars-forward " \r\t\n")
- (beginning-of-line)
- (delete-region begin (point)))
- (t
- (goto-char match-start)
- (delete-region (point)
- (save-excursion
- (goto-char end)
- (line-end-position)))
- (insert replacement)
- (if (or org-src-preserve-indentation
- (org-element-property
- :preserve-indent element))
- ;; Indent only code block
- ;; markers.
- (save-excursion
- (skip-chars-backward " \r\t\n")
- (indent-line-to ind)
- (goto-char match-start)
- (indent-line-to ind))
- ;; Indent everything.
- (indent-rigidly
- match-start (point) ind)))))
- (set-marker match-start nil))))
- (set-marker begin nil)
- (set-marker end nil)))))
- (kill-buffer org-babel-exp-reference-buffer)
- (remove-text-properties (point-min) (point-max) '(org-reference)))))))
-
-(defun org-babel-exp-do-export (info type &optional hash)
- "Return a string with the exported content of a code block.
-The function respects the value of the :exports header argument."
- (let ((silently (lambda () (let ((session (cdr (assq :session (nth 2 info)))))
- (unless (equal "none" session)
- (org-babel-exp-results info type 'silent)))))
- (clean (lambda () (if (eq type 'inline)
- (org-babel-remove-inline-result)
- (org-babel-remove-result info)))))
- (pcase (or (cdr (assq :exports (nth 2 info))) "code")
- ("none" (funcall silently) (funcall clean) "")
- ("code" (funcall silently) (funcall clean) (org-babel-exp-code info type))
- ("results" (org-babel-exp-results info type nil hash) "")
- ("both"
- (org-babel-exp-results info type nil hash)
- (org-babel-exp-code info type)))))
-
-(defcustom org-babel-exp-code-template
- "#+BEGIN_SRC %lang%switches%flags\n%body\n#+END_SRC"
- "Template used to export the body of code blocks.
-This template may be customized to include additional information
-such as the code block name, or the values of particular header
-arguments. The template is filled out using `org-fill-template',
-and the following %keys may be used.
-
- lang ------ the language of the code block
- name ------ the name of the code block
- body ------ the body of the code block
- switches -- the switches associated to the code block
- flags ----- the flags passed to the code block
-
-In addition to the keys mentioned above, every header argument
-defined for the code block may be used as a key and will be
-replaced with its value."
- :group 'org-babel
- :type 'string)
-
-(defcustom org-babel-exp-inline-code-template
- "src_%lang[%switches%flags]{%body}"
- "Template used to export the body of inline code blocks.
-This template may be customized to include additional information
-such as the code block name, or the values of particular header
-arguments. The template is filled out using `org-fill-template',
-and the following %keys may be used.
-
- lang ------ the language of the code block
- name ------ the name of the code block
- body ------ the body of the code block
- switches -- the switches associated to the code block
- flags ----- the flags passed to the code block
-
-In addition to the keys mentioned above, every header argument
-defined for the code block may be used as a key and will be
-replaced with its value."
- :group 'org-babel
- :type 'string
- :version "26.1"
- :package-version '(Org . "8.3"))
-
-(defun org-babel-exp-code (info type)
- "Return the original code block formatted for export."
- (setf (nth 1 info)
- (if (string= "strip-export" (cdr (assq :noweb (nth 2 info))))
- (replace-regexp-in-string
- (org-babel-noweb-wrap) "" (nth 1 info))
- (if (org-babel-noweb-p (nth 2 info) :export)
- (org-babel-expand-noweb-references
- info org-babel-exp-reference-buffer)
- (nth 1 info))))
- (org-fill-template
- (if (eq type 'inline)
- org-babel-exp-inline-code-template
- org-babel-exp-code-template)
- `(("lang" . ,(nth 0 info))
- ("body" . ,(org-escape-code-in-string (nth 1 info)))
- ("switches" . ,(let ((f (nth 3 info)))
- (and (org-string-nw-p f) (concat " " f))))
- ("flags" . ,(let ((f (assq :flags (nth 2 info))))
- (and f (concat " " (cdr f)))))
- ,@(mapcar (lambda (pair)
- (cons (substring (symbol-name (car pair)) 1)
- (format "%S" (cdr pair))))
- (nth 2 info))
- ("name" . ,(or (nth 4 info) "")))))
-
-(defun org-babel-exp-results (info type &optional silent hash)
- "Evaluate and return the results of the current code block for export.
-Results are prepared in a manner suitable for export by Org mode.
-This function is called by `org-babel-exp-do-export'. The code
-block will be evaluated. Optional argument SILENT can be used to
-inhibit insertion of results into the buffer."
- (unless (and hash (equal hash (org-babel-current-result-hash)))
- (let ((lang (nth 0 info))
- (body (if (org-babel-noweb-p (nth 2 info) :eval)
- (org-babel-expand-noweb-references
- info org-babel-exp-reference-buffer)
- (nth 1 info)))
- (info (copy-sequence info))
- (org-babel-current-src-block-location (point-marker)))
- ;; Skip code blocks which we can't evaluate.
- (when (fboundp (intern (concat "org-babel-execute:" lang)))
- (org-babel-eval-wipe-error-buffer)
- (setf (nth 1 info) body)
- (setf (nth 2 info)
- (org-babel-exp--at-source
- (org-babel-process-params
- (org-babel-merge-params
- (nth 2 info)
- `((:results . ,(if silent "silent" "replace")))))))
- (pcase type
- (`block (org-babel-execute-src-block nil info))
- (`inline
- ;; Position the point on the inline source block
- ;; allowing `org-babel-insert-result' to check that the
- ;; block is inline.
- (goto-char (nth 5 info))
- (org-babel-execute-src-block nil info))
- (`lob
- (save-excursion
- (goto-char (nth 5 info))
- (let (org-confirm-babel-evaluate)
- (org-babel-execute-src-block nil info)))))))))
-
-
-(provide 'ob-exp)
-
-;;; ob-exp.el ends here
diff --git a/elpa/org-9.1.14/ob-exp.elc b/elpa/org-9.1.14/ob-exp.elc
deleted file mode 100644
index e5d72ef..0000000
--- a/elpa/org-9.1.14/ob-exp.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-forth.el b/elpa/org-9.1.14/ob-forth.el
deleted file mode 100644
index efd5759..0000000
--- a/elpa/org-9.1.14/ob-forth.el
+++ /dev/null
@@ -1,87 +0,0 @@
-;;; ob-forth.el --- Babel Functions for Forth -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2014-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research, forth
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Requires the gforth forth compiler and `forth-mode' (see below).
-;; https://www.gnu.org/software/gforth/
-
-;;; Requirements:
-
-;; Session evaluation requires the gforth forth compiler as well as
-;; `forth-mode' which is distributed with gforth (in gforth.el).
-
-;;; Code:
-(require 'ob)
-
-(declare-function forth-proc "ext:gforth" ())
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-default-header-args:forth '((:session . "yes"))
- "Default header arguments for forth code blocks.")
-
-(defun org-babel-execute:forth (body params)
- "Execute a block of Forth code with org-babel.
-This function is called by `org-babel-execute-src-block'"
- (if (string= "none" (cdr (assq :session params)))
- (error "Non-session evaluation not supported for Forth code blocks")
- (let ((all-results (org-babel-forth-session-execute body params)))
- (if (member "output" (cdr (assq :result-params params)))
- (mapconcat #'identity all-results "\n")
- (car (last all-results))))))
-
-(defun org-babel-forth-session-execute (body params)
- (require 'forth-mode)
- (let ((proc (forth-proc))
- (rx " \\(\n:\\|compiled\n\\\|ok\n\\)")
- (result-start))
- (with-current-buffer (process-buffer (forth-proc))
- (mapcar (lambda (line)
- (setq result-start (progn (goto-char (process-mark proc))
- (point)))
- (comint-send-string proc (concat line "\n"))
- ;; wait for forth to say "ok"
- (while (not (progn (goto-char result-start)
- (re-search-forward rx nil t)))
- (accept-process-output proc 0.01))
- (let ((case (match-string 1)))
- (cond
- ((string= "ok\n" case)
- ;; Collect intermediate output.
- (buffer-substring (+ result-start 1 (length line))
- (match-beginning 0)))
- ((string= "compiled\n" case))
- ;; Ignore partial compilation.
- ((string= "\n:" case)
- ;; Report errors.
- (org-babel-eval-error-notify 1
- (buffer-substring
- (+ (match-beginning 0) 1) (point-max))) nil))))
- (split-string (org-trim
- (org-babel-expand-body:generic body params))
- "\n"
- 'omit-nulls)))))
-
-(provide 'ob-forth)
-
-;;; ob-forth.el ends here
diff --git a/elpa/org-9.1.14/ob-forth.elc b/elpa/org-9.1.14/ob-forth.elc
deleted file mode 100644
index 2f4d588..0000000
--- a/elpa/org-9.1.14/ob-forth.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-fortran.el b/elpa/org-9.1.14/ob-fortran.el
deleted file mode 100644
index 49e960f..0000000
--- a/elpa/org-9.1.14/ob-fortran.el
+++ /dev/null
@@ -1,168 +0,0 @@
-;;; ob-fortran.el --- Babel Functions for Fortran -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2018 Free Software Foundation, Inc.
-
-;; Authors: Sergey Litvinov
-;; Eric Schulte
-;; Keywords: literate programming, reproducible research, fortran
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating fortran code.
-
-;;; Code:
-(require 'ob)
-(require 'cc-mode)
-(require 'cl-lib)
-
-(declare-function org-entry-get "org"
- (pom property &optional inherit literal-nil))
-(declare-function org-remove-indentation "org" (code &optional n))
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("fortran" . "F90"))
-
-(defvar org-babel-default-header-args:fortran '())
-
-(defvar org-babel-fortran-compiler "gfortran"
- "fortran command used to compile a fortran source code file into an
- executable.")
-
-(defun org-babel-execute:fortran (body params)
- "This function should only be called by `org-babel-execute:fortran'"
- (let* ((tmp-src-file (org-babel-temp-file "fortran-src-" ".F90"))
- (tmp-bin-file (org-babel-temp-file "fortran-bin-" org-babel-exeext))
- (cmdline (cdr (assq :cmdline params)))
- (flags (cdr (assq :flags params)))
- (full-body (org-babel-expand-body:fortran body params)))
- (with-temp-file tmp-src-file (insert full-body))
- (org-babel-eval
- (format "%s -o %s %s %s"
- org-babel-fortran-compiler
- (org-babel-process-file-name tmp-bin-file)
- (mapconcat 'identity
- (if (listp flags) flags (list flags)) " ")
- (org-babel-process-file-name tmp-src-file)) "")
- (let ((results
- (org-trim
- (org-remove-indentation
- (org-babel-eval
- (concat tmp-bin-file (if cmdline (concat " " cmdline) "")) "")))))
- (org-babel-reassemble-table
- (org-babel-result-cond (cdr (assq :result-params params))
- (org-babel-read results)
- (let ((tmp-file (org-babel-temp-file "f-")))
- (with-temp-file tmp-file (insert results))
- (org-babel-import-elisp-from-file tmp-file)))
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params)))))))
-
-(defun org-babel-expand-body:fortran (body params)
- "Expand a block of fortran or fortran code with org-babel according to
-its header arguments."
- (let ((vars (org-babel--get-vars params))
- (main-p (not (string= (cdr (assq :main params)) "no")))
- (includes (or (cdr (assq :includes params))
- (org-babel-read (org-entry-get nil "includes" t))))
- (defines (org-babel-read
- (or (cdr (assq :defines params))
- (org-babel-read (org-entry-get nil "defines" t))))))
- (mapconcat 'identity
- (list
- ;; includes
- (mapconcat
- (lambda (inc) (format "#include %s" inc))
- (if (listp includes) includes (list includes)) "\n")
- ;; defines
- (mapconcat
- (lambda (inc) (format "#define %s" inc))
- (if (listp defines) defines (list defines)) "\n")
- ;; body
- (if main-p
- (org-babel-fortran-ensure-main-wrap
- (concat
- ;; variables
- (mapconcat 'org-babel-fortran-var-to-fortran vars "\n")
- body) params)
- body) "\n") "\n")))
-
-(defun org-babel-fortran-ensure-main-wrap (body params)
- "Wrap body in a \"program ... end program\" block if none exists."
- (if (string-match "^[ \t]*program[ \t]*.*" (capitalize body))
- (let ((vars (org-babel--get-vars params)))
- (if vars (error "Cannot use :vars if `program' statement is present"))
- body)
- (format "program main\n%s\nend program main\n" body)))
-
-(defun org-babel-prep-session:fortran (_session _params)
- "This function does nothing as fortran is a compiled language with no
-support for sessions"
- (error "Fortran is a compiled languages -- no support for sessions"))
-
-(defun org-babel-load-session:fortran (_session _body _params)
- "This function does nothing as fortran is a compiled language with no
-support for sessions"
- (error "Fortran is a compiled languages -- no support for sessions"))
-
-;; helper functions
-
-(defun org-babel-fortran-var-to-fortran (pair)
- "Convert an elisp val into a string of fortran code specifying a var
-of the same value."
- ;; TODO list support
- (let ((var (car pair))
- (val (cdr pair)))
- (when (symbolp val)
- (setq val (symbol-name val))
- (when (= (length val) 1)
- (setq val (string-to-char val))))
- (cond
- ((integerp val)
- (format "integer, parameter :: %S = %S\n" var val))
- ((floatp val)
- (format "real, parameter :: %S = %S\n" var val))
- ((or (integerp val))
- (format "character, parameter :: %S = '%S'\n" var val))
- ((stringp val)
- (format "character(len=%d), parameter :: %S = '%s'\n"
- (length val) var val))
- ;; val is a matrix
- ((and (listp val) (cl-every #'listp val))
- (format "real, parameter :: %S(%d,%d) = transpose( reshape( %s , (/ %d, %d /) ) )\n"
- var (length val) (length (car val))
- (org-babel-fortran-transform-list val)
- (length (car val)) (length val)))
- ((listp val)
- (format "real, parameter :: %S(%d) = %s\n"
- var (length val) (org-babel-fortran-transform-list val)))
- (t
- (error "the type of parameter %s is not supported by ob-fortran" var)))))
-
-(defun org-babel-fortran-transform-list (val)
- "Return a fortran representation of enclose syntactic lists."
- (if (listp val)
- (concat "(/" (mapconcat #'org-babel-fortran-transform-list val ", ") "/)")
- (format "%S" val)))
-
-(provide 'ob-fortran)
-
-;;; ob-fortran.el ends here
diff --git a/elpa/org-9.1.14/ob-fortran.elc b/elpa/org-9.1.14/ob-fortran.elc
deleted file mode 100644
index 4a60e24..0000000
--- a/elpa/org-9.1.14/ob-fortran.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-gnuplot.el b/elpa/org-9.1.14/ob-gnuplot.el
deleted file mode 100644
index b2f4913..0000000
--- a/elpa/org-9.1.14/ob-gnuplot.el
+++ /dev/null
@@ -1,283 +0,0 @@
-;;; ob-gnuplot.el --- Babel Functions for Gnuplot -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating gnuplot source code.
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) we are generally only going to return results of type "file"
-;;
-;; 2) we are adding the "file" and "cmdline" header arguments
-
-;;; Requirements:
-
-;; - gnuplot :: http://www.gnuplot.info/
-;;
-;; - gnuplot-mode :: http://cars9.uchicago.edu/~ravel/software/gnuplot-mode.html
-
-;;; Code:
-(require 'ob)
-
-(declare-function org-time-string-to-time "org" (s))
-(declare-function org-combine-plists "org" (&rest plists))
-(declare-function orgtbl-to-generic "org-table" (table params))
-(declare-function gnuplot-mode "ext:gnuplot-mode" ())
-(declare-function gnuplot-send-string-to-gnuplot "ext:gnuplot-mode" (str txt))
-(declare-function gnuplot-send-buffer-to-gnuplot "ext:gnuplot-mode" ())
-
-(defvar org-babel-default-header-args:gnuplot
- '((:results . "file") (:exports . "results") (:session . nil))
- "Default arguments to use when evaluating a gnuplot source block.")
-
-(defvar org-babel-header-args:gnuplot
- '((title . :any)
- (lines . :any)
- (sets . :any)
- (x-labels . :any)
- (y-labels . :any)
- (timefmt . :any)
- (time-ind . :any)
- (missing . :any)
- (term . :any))
- "Gnuplot specific header args.")
-
-(defvar org-babel-gnuplot-timestamp-fmt nil) ; Dynamically scoped.
-
-(defvar *org-babel-gnuplot-missing* nil)
-
-(defcustom *org-babel-gnuplot-terms*
- '((eps . "postscript eps"))
- "List of file extensions and the associated gnuplot terminal."
- :group 'org-babel
- :type '(repeat (cons (symbol :tag "File extension")
- (string :tag "Gnuplot terminal"))))
-
-(defun org-babel-gnuplot-process-vars (params)
- "Extract variables from PARAMS and process the variables.
-Dumps all vectors into files and returns an association list
-of variable names and the related value to be used in the gnuplot
-code."
- (let ((*org-babel-gnuplot-missing* (cdr (assq :missing params))))
- (mapcar
- (lambda (pair)
- (cons
- (car pair) ;; variable name
- (let* ((val (cdr pair)) ;; variable value
- (lp (listp val)))
- (if lp
- (org-babel-gnuplot-table-to-data
- (let* ((first (car val))
- (tablep (or (listp first) (symbolp first))))
- (if tablep val (mapcar 'list val)))
- (org-babel-temp-file "gnuplot-") params)
- val))))
- (org-babel--get-vars params))))
-
-(defun org-babel-expand-body:gnuplot (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (save-window-excursion
- (let* ((vars (org-babel-gnuplot-process-vars params))
- (out-file (cdr (assq :file params)))
- (prologue (cdr (assq :prologue params)))
- (epilogue (cdr (assq :epilogue params)))
- (term (or (cdr (assq :term params))
- (when out-file
- (let ((ext (file-name-extension out-file)))
- (or (cdr (assoc (intern (downcase ext))
- *org-babel-gnuplot-terms*))
- ext)))))
- (title (cdr (assq :title params)))
- (lines (cdr (assq :line params)))
- (sets (cdr (assq :set params)))
- (x-labels (cdr (assq :xlabels params)))
- (y-labels (cdr (assq :ylabels params)))
- (timefmt (cdr (assq :timefmt params)))
- (time-ind (or (cdr (assq :timeind params))
- (when timefmt 1)))
- (directory (and (buffer-file-name)
- (file-name-directory (buffer-file-name))))
- (add-to-body (lambda (text) (setq body (concat text "\n" body)))))
- ;; append header argument settings to body
- (when title (funcall add-to-body (format "set title '%s'" title)))
- (when lines (mapc (lambda (el) (funcall add-to-body el)) lines))
- (when sets
- (mapc (lambda (el) (funcall add-to-body (format "set %s" el))) sets))
- (when x-labels
- (funcall add-to-body
- (format "set xtics (%s)"
- (mapconcat (lambda (pair)
- (format "\"%s\" %d"
- (cdr pair) (car pair)))
- x-labels ", "))))
- (when y-labels
- (funcall add-to-body
- (format "set ytics (%s)"
- (mapconcat (lambda (pair)
- (format "\"%s\" %d"
- (cdr pair) (car pair)))
- y-labels ", "))))
- (when time-ind
- (funcall add-to-body "set xdata time")
- (funcall add-to-body (concat "set timefmt \""
- (or timefmt
- "%Y-%m-%d-%H:%M:%S") "\"")))
- (when out-file
- ;; set the terminal at the top of the block
- (funcall add-to-body (format "set output \"%s\"" out-file))
- ;; and close the terminal at the bottom of the block
- (setq body (concat body "\nset output\n")))
- (when term (funcall add-to-body (format "set term %s" term)))
- ;; insert variables into code body: this should happen last
- ;; placing the variables at the *top* of the code in case their
- ;; values are used later
- (funcall add-to-body
- (mapconcat #'identity
- (org-babel-variable-assignments:gnuplot params)
- "\n"))
- ;; replace any variable names preceded by '$' with the actual
- ;; value of the variable
- (mapc (lambda (pair)
- (setq body (replace-regexp-in-string
- (format "\\$%s" (car pair)) (cdr pair) body)))
- vars)
- (when prologue (funcall add-to-body prologue))
- (when epilogue (setq body (concat body "\n" epilogue)))
- ;; Setting the directory needs to be done first so that
- ;; subsequent 'output' directive goes to the right place.
- (when directory (funcall add-to-body (format "cd '%s'" directory))))
- body))
-
-(defun org-babel-execute:gnuplot (body params)
- "Execute a block of Gnuplot code.
-This function is called by `org-babel-execute-src-block'."
- (require 'gnuplot)
- (let ((session (cdr (assq :session params)))
- (result-type (cdr (assq :results params)))
- (body (org-babel-expand-body:gnuplot body params))
- output)
- (save-window-excursion
- ;; evaluate the code body with gnuplot
- (if (string= session "none")
- (let ((script-file (org-babel-temp-file "gnuplot-script-")))
- (with-temp-file script-file
- (insert (concat body "\n")))
- (message "gnuplot \"%s\"" script-file)
- (setq output
- (shell-command-to-string
- (format
- "gnuplot \"%s\""
- (org-babel-process-file-name
- script-file
- (if (member system-type '(cygwin windows-nt ms-dos))
- t nil)))))
- (message "%s" output))
- (with-temp-buffer
- (insert (concat body "\n"))
- (gnuplot-mode)
- (gnuplot-send-buffer-to-gnuplot)))
- (if (member "output" (split-string result-type))
- output
- nil)))) ;; signal that output has already been written to file
-
-(defun org-babel-prep-session:gnuplot (session params)
- "Prepare SESSION according to the header arguments in PARAMS."
- (let* ((session (org-babel-gnuplot-initiate-session session))
- (var-lines (org-babel-variable-assignments:gnuplot params)))
- (message "%S" session)
- (org-babel-comint-in-buffer session
- (dolist (var-line var-lines)
- (insert var-line)
- (comint-send-input nil t)
- (org-babel-comint-wait-for-output session)
- (sit-for .1)
- (goto-char (point-max))))
- session))
-
-(defun org-babel-load-session:gnuplot (session body params)
- "Load BODY into SESSION."
- (save-window-excursion
- (let ((buffer (org-babel-prep-session:gnuplot session params)))
- (with-current-buffer buffer
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (insert (org-babel-chomp body)))
- buffer)))
-
-(defun org-babel-variable-assignments:gnuplot (params)
- "Return list of gnuplot statements assigning the block's variables."
- (mapcar
- (lambda (pair) (format "%s = \"%s\"" (car pair) (cdr pair)))
- (org-babel-gnuplot-process-vars params)))
-
-(defvar gnuplot-buffer)
-(defun org-babel-gnuplot-initiate-session (&optional session _params)
- "Initiate a gnuplot session.
-If there is not a current inferior-process-buffer in SESSION
-then create one. Return the initialized session. The current
-`gnuplot-mode' doesn't provide support for multiple sessions."
- (require 'gnuplot)
- (unless (string= session "none")
- (save-window-excursion
- (gnuplot-send-string-to-gnuplot "" "line")
- gnuplot-buffer)))
-
-(defun org-babel-gnuplot-quote-timestamp-field (s)
- "Convert S from timestamp to Unix time and export to gnuplot."
- (format-time-string org-babel-gnuplot-timestamp-fmt
- (org-time-string-to-time s)))
-
-(defvar org-table-number-regexp)
-(defvar org-ts-regexp3)
-(defun org-babel-gnuplot-quote-tsv-field (s)
- "Quote S for export to gnuplot."
- (unless (stringp s)
- (setq s (format "%s" s)))
- (if (string-match org-table-number-regexp s) s
- (if (string-match org-ts-regexp3 s)
- (org-babel-gnuplot-quote-timestamp-field s)
- (if (zerop (length s))
- (or *org-babel-gnuplot-missing* s)
- (if (string-match "[ \"]" s)
- (concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"")
- "\"")
- s)))))
-
-(defun org-babel-gnuplot-table-to-data (table data-file params)
- "Export TABLE to DATA-FILE in a format readable by gnuplot.
-Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE."
- (with-temp-file data-file
- (insert (let ((org-babel-gnuplot-timestamp-fmt
- (or (plist-get params :timefmt) "%Y-%m-%d-%H:%M:%S")))
- (orgtbl-to-generic
- table
- (org-combine-plists
- '(:sep "\t" :fmt org-babel-gnuplot-quote-tsv-field)
- params)))))
- data-file)
-
-(provide 'ob-gnuplot)
-
-
-
-;;; ob-gnuplot.el ends here
diff --git a/elpa/org-9.1.14/ob-gnuplot.elc b/elpa/org-9.1.14/ob-gnuplot.elc
deleted file mode 100644
index 3ab6461..0000000
--- a/elpa/org-9.1.14/ob-gnuplot.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-groovy.el b/elpa/org-9.1.14/ob-groovy.el
deleted file mode 100644
index 565b097..0000000
--- a/elpa/org-9.1.14/ob-groovy.el
+++ /dev/null
@@ -1,116 +0,0 @@
-;;; ob-groovy.el --- Babel Functions for Groovy -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013-2018 Free Software Foundation, Inc.
-
-;; Author: Miro Bezjak
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;; Currently only supports the external execution. No session support yet.
-
-;;; Requirements:
-;; - Groovy language :: http://groovy.codehaus.org
-;; - Groovy major mode :: Can be installed from MELPA or
-;; https://github.com/russel/Emacs-Groovy-Mode
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-tangle-lang-exts) ;; Autoloaded
-(add-to-list 'org-babel-tangle-lang-exts '("groovy" . "groovy"))
-(defvar org-babel-default-header-args:groovy '())
-(defcustom org-babel-groovy-command "groovy"
- "Name of the command to use for executing Groovy code.
-May be either a command in the path, like groovy
-or an absolute path name, like /usr/local/bin/groovy
-parameters may be used, like groovy -v"
- :group 'org-babel
- :version "24.3"
- :type 'string)
-
-(defun org-babel-execute:groovy (body params)
- "Execute a block of Groovy code with org-babel. This function is
-called by `org-babel-execute-src-block'"
- (message "executing Groovy source code block")
- (let* ((processed-params (org-babel-process-params params))
- (session (org-babel-groovy-initiate-session (nth 0 processed-params)))
- (result-params (nth 2 processed-params))
- (result-type (cdr (assq :result-type params)))
- (full-body (org-babel-expand-body:generic
- body params))
- (result (org-babel-groovy-evaluate
- session full-body result-type result-params)))
-
- (org-babel-reassemble-table
- result
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))
-
-(defvar org-babel-groovy-wrapper-method
-
- "class Runner extends Script {
- def out = new PrintWriter(new ByteArrayOutputStream())
- def run() { %s }
-}
-
-println(new Runner().run())
-")
-
-
-(defun org-babel-groovy-evaluate
- (session body &optional result-type result-params)
- "Evaluate BODY in external Groovy process.
-If RESULT-TYPE equals `output' then return standard output as a string.
-If RESULT-TYPE equals `value' then return the value of the last statement
-in BODY as elisp."
- (when session (error "Sessions are not (yet) supported for Groovy"))
- (pcase result-type
- (`output
- (let ((src-file (org-babel-temp-file "groovy_")))
- (progn (with-temp-file src-file (insert body))
- (org-babel-eval
- (concat org-babel-groovy-command " " src-file) ""))))
- (`value
- (let* ((src-file (org-babel-temp-file "groovy_"))
- (wrapper (format org-babel-groovy-wrapper-method body)))
- (with-temp-file src-file (insert wrapper))
- (let ((raw (org-babel-eval
- (concat org-babel-groovy-command " " src-file) "")))
- (org-babel-result-cond result-params
- raw
- (org-babel-script-escape raw)))))))
-
-
-(defun org-babel-prep-session:groovy (_session _params)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- (error "Sessions are not (yet) supported for Groovy"))
-
-(defun org-babel-groovy-initiate-session (&optional _session)
- "If there is not a current inferior-process-buffer in SESSION
-then create. Return the initialized session. Sessions are not
-supported in Groovy."
- nil)
-
-(provide 'ob-groovy)
-
-
-
-;;; ob-groovy.el ends here
diff --git a/elpa/org-9.1.14/ob-groovy.elc b/elpa/org-9.1.14/ob-groovy.elc
deleted file mode 100644
index 562624e..0000000
--- a/elpa/org-9.1.14/ob-groovy.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-haskell.el b/elpa/org-9.1.14/ob-haskell.el
deleted file mode 100644
index e607ee0..0000000
--- a/elpa/org-9.1.14/ob-haskell.el
+++ /dev/null
@@ -1,222 +0,0 @@
-;;; ob-haskell.el --- Babel Functions for Haskell -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating haskell source code. This one will
-;; be sort of tricky because haskell programs must be compiled before
-;; they can be run, but haskell code can also be run through an
-;; interactive interpreter.
-;;
-;; For now lets only allow evaluation using the haskell interpreter.
-
-;;; Requirements:
-
-;; - haskell-mode :: http://www.iro.umontreal.ca/~monnier/elisp/#haskell-mode
-;;
-;; - inf-haskell :: http://www.iro.umontreal.ca/~monnier/elisp/#haskell-mode
-;;
-;; - (optionally) lhs2tex :: http://people.cs.uu.nl/andres/lhs2tex/
-
-;;; Code:
-(require 'ob)
-(require 'comint)
-
-(declare-function org-remove-indentation "org" (code &optional n))
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function haskell-mode "ext:haskell-mode" ())
-(declare-function run-haskell "ext:inf-haskell" (&optional arg))
-(declare-function inferior-haskell-load-file
- "ext:inf-haskell" (&optional reload))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("haskell" . "hs"))
-
-(defvar org-babel-default-header-args:haskell
- '((:padlines . "no")))
-
-(defvar org-babel-haskell-lhs2tex-command "lhs2tex")
-
-(defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"")
-
-(defvar haskell-prompt-regexp)
-
-(defun org-babel-execute:haskell (body params)
- "Execute a block of Haskell code."
- (require 'inf-haskell)
- (add-hook 'inferior-haskell-hook
- (lambda ()
- (setq-local comint-prompt-regexp
- (concat haskell-prompt-regexp "\\|^λ?> "))))
- (let* ((session (cdr (assq :session params)))
- (result-type (cdr (assq :result-type params)))
- (full-body (org-babel-expand-body:generic
- body params
- (org-babel-variable-assignments:haskell params)))
- (session (org-babel-haskell-initiate-session session params))
- (comint-preoutput-filter-functions
- (cons 'ansi-color-filter-apply comint-preoutput-filter-functions))
- (raw (org-babel-comint-with-output
- (session org-babel-haskell-eoe t full-body)
- (insert (org-trim full-body))
- (comint-send-input nil t)
- (insert org-babel-haskell-eoe)
- (comint-send-input nil t)))
- (results (mapcar
- #'org-babel-strip-quotes
- (cdr (member org-babel-haskell-eoe
- (reverse (mapcar #'org-trim raw)))))))
- (org-babel-reassemble-table
- (let ((result
- (pcase result-type
- (`output (mapconcat #'identity (reverse (cdr results)) "\n"))
- (`value (car results)))))
- (org-babel-result-cond (cdr (assq :result-params params))
- result (org-babel-script-escape result)))
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colname-names params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rowname-names params))))))
-
-(defun org-babel-haskell-initiate-session (&optional _session _params)
- "Initiate a haskell session.
-If there is not a current inferior-process-buffer in SESSION
-then create one. Return the initialized session."
- (require 'inf-haskell)
- (or (get-buffer "*haskell*")
- (save-window-excursion (run-haskell) (sleep-for 0.25) (current-buffer))))
-
-(defun org-babel-load-session:haskell (session body params)
- "Load BODY into SESSION."
- (save-window-excursion
- (let* ((buffer (org-babel-prep-session:haskell session params))
- (load-file (concat (org-babel-temp-file "haskell-load-") ".hs")))
- (with-temp-buffer
- (insert body) (write-file load-file)
- (haskell-mode) (inferior-haskell-load-file))
- buffer)))
-
-(defun org-babel-prep-session:haskell (session params)
- "Prepare SESSION according to the header arguments in PARAMS."
- (save-window-excursion
- (let ((buffer (org-babel-haskell-initiate-session session)))
- (org-babel-comint-in-buffer buffer
- (mapc (lambda (line)
- (insert line)
- (comint-send-input nil t))
- (org-babel-variable-assignments:haskell params)))
- (current-buffer))))
-
-(defun org-babel-variable-assignments:haskell (params)
- "Return list of haskell statements assigning the block's variables."
- (mapcar (lambda (pair)
- (format "let %s = %s"
- (car pair)
- (org-babel-haskell-var-to-haskell (cdr pair))))
- (org-babel--get-vars params)))
-
-(defun org-babel-haskell-var-to-haskell (var)
- "Convert an elisp value VAR into a haskell variable.
-The elisp VAR is converted to a string of haskell source code
-specifying a variable of the same value."
- (if (listp var)
- (concat "[" (mapconcat #'org-babel-haskell-var-to-haskell var ", ") "]")
- (format "%S" var)))
-
-(defvar org-export-copy-to-kill-ring)
-(declare-function org-export-to-file "ox"
- (backend file
- &optional async subtreep visible-only body-only
- ext-plist post-process))
-(defun org-babel-haskell-export-to-lhs (&optional arg)
- "Export to a .lhs file with all haskell code blocks escaped.
-When called with a prefix argument the resulting
-.lhs file will be exported to a .tex file. This function will
-create two new files, base-name.lhs and base-name.tex where
-base-name is the name of the current Org file.
-
-Note that all standard Babel literate programming
-constructs (header arguments, no-web syntax etc...) are ignored."
- (interactive "P")
- (let* ((contents (buffer-string))
- (haskell-regexp
- (concat "^\\([ \t]*\\)#\\+begin_src[ \t]haskell*\\(.*\\)?[\r\n]"
- "\\([^\000]*?\\)[\r\n][ \t]*#\\+end_src.*"))
- (base-name (file-name-sans-extension (buffer-file-name)))
- (tmp-file (org-babel-temp-file "haskell-"))
- (tmp-org-file (concat tmp-file ".org"))
- (tmp-tex-file (concat tmp-file ".tex"))
- (lhs-file (concat base-name ".lhs"))
- (tex-file (concat base-name ".tex"))
- (command (concat org-babel-haskell-lhs2tex-command
- " " (org-babel-process-file-name lhs-file)
- " > " (org-babel-process-file-name tex-file)))
- (preserve-indentp org-src-preserve-indentation)
- indentation)
- ;; escape haskell source-code blocks
- (with-temp-file tmp-org-file
- (insert contents)
- (goto-char (point-min))
- (while (re-search-forward haskell-regexp nil t)
- (save-match-data (setq indentation (length (match-string 1))))
- (replace-match (save-match-data
- (concat
- "#+begin_export latex\n\\begin{code}\n"
- (if (or preserve-indentp
- (string-match "-i" (match-string 2)))
- (match-string 3)
- (org-remove-indentation (match-string 3)))
- "\n\\end{code}\n#+end_export\n"))
- t t)
- (indent-code-rigidly (match-beginning 0) (match-end 0) indentation)))
- (save-excursion
- ;; export to latex w/org and save as .lhs
- (require 'ox-latex)
- (find-file tmp-org-file)
- ;; Ensure we do not clutter kill ring with incomplete results.
- (let (org-export-copy-to-kill-ring)
- (org-export-to-file 'latex tmp-tex-file))
- (kill-buffer nil)
- (delete-file tmp-org-file)
- (find-file tmp-tex-file)
- (goto-char (point-min)) (forward-line 2)
- (insert "%include polycode.fmt\n")
- ;; ensure all \begin/end{code} statements start at the first column
- (while (re-search-forward "^[ \t]+\\\\begin{code}[^\000]+\\\\end{code}" nil t)
- (replace-match (save-match-data (org-remove-indentation (match-string 0)))
- t t))
- (setq contents (buffer-string))
- (save-buffer) (kill-buffer nil))
- (delete-file tmp-tex-file)
- ;; save org exported latex to a .lhs file
- (with-temp-file lhs-file (insert contents))
- (if (not arg)
- (find-file lhs-file)
- ;; process .lhs file with lhs2tex
- (message "running %s" command) (shell-command command) (find-file tex-file))))
-
-(provide 'ob-haskell)
-
-
-
-;;; ob-haskell.el ends here
diff --git a/elpa/org-9.1.14/ob-haskell.elc b/elpa/org-9.1.14/ob-haskell.elc
deleted file mode 100644
index d19153e..0000000
--- a/elpa/org-9.1.14/ob-haskell.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-hledger.el b/elpa/org-9.1.14/ob-hledger.el
deleted file mode 100644
index 727fb1f..0000000
--- a/elpa/org-9.1.14/ob-hledger.el
+++ /dev/null
@@ -1,70 +0,0 @@
-;; ob-hledger.el --- Babel Functions for hledger -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Simon Michael
-;; Keywords: literate programming, reproducible research, plain text accounting
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Babel support for evaluating hledger entries.
-;;
-;; Based on ob-ledger.el.
-;; If the source block is empty, hledger will use a default journal file,
-;; probably ~/.hledger.journal (it may not notice your $LEDGER_FILE env var).
-;; So make ~/.hledger.journal a symbolic link to the real file if necessary.
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:hledger
- '((:results . "output") (:exports . "results") (:cmdline . "bal"))
- "Default arguments to use when evaluating a hledger source block.")
-
-(defun org-babel-execute:hledger (body params)
- "Execute a block of hledger entries with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (message "executing hledger source code block")
- (letrec ( ;(result-params (split-string (or (cdr (assq :results params)) "")))
- (cmdline (cdr (assq :cmdline params)))
- (in-file (org-babel-temp-file "hledger-"))
- (out-file (org-babel-temp-file "hledger-output-"))
- (hledgercmd (concat "hledger"
- (if (> (length body) 0)
- (concat " -f " (org-babel-process-file-name in-file))
- "")
- " " cmdline)))
- (with-temp-file in-file (insert body))
-;; TODO This is calling for some refactoring:
-;; (concat "hledger" (if ...) " " cmdline)
-;; could be built only once and bound to a symbol.
- (message "%s" hledgercmd)
- (with-output-to-string
- (shell-command (concat hledgercmd " > " (org-babel-process-file-name out-file))))
- (with-temp-buffer (insert-file-contents out-file) (buffer-string))))
-
-(defun org-babel-prep-session:hledger (_session _params)
- (error "hledger does not support sessions"))
-
-(provide 'ob-hledger)
-
-
-
-;;; ob-hledger.el ends here
-;; TODO Unit tests are more than welcome, too.
diff --git a/elpa/org-9.1.14/ob-hledger.elc b/elpa/org-9.1.14/ob-hledger.elc
deleted file mode 100644
index d61d2fa..0000000
--- a/elpa/org-9.1.14/ob-hledger.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-io.el b/elpa/org-9.1.14/ob-io.el
deleted file mode 100644
index 4f407cc..0000000
--- a/elpa/org-9.1.14/ob-io.el
+++ /dev/null
@@ -1,108 +0,0 @@
-;;; ob-io.el --- Babel Functions for Io -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2012-2018 Free Software Foundation, Inc.
-
-;; Author: Andrzej Lichnerowicz
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;; Currently only supports the external execution. No session support yet.
-;; :results output -- runs in scripting mode
-;; :results output repl -- runs in repl mode
-
-;;; Requirements:
-;; - Io language :: http://iolanguage.org/
-;; - Io major mode :: Can be installed from Io sources
-;; https://github.com/stevedekorte/io/blob/master/extras/SyntaxHighlighters/Emacs/io-mode.el
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-tangle-lang-exts) ;; Autoloaded
-(add-to-list 'org-babel-tangle-lang-exts '("io" . "io"))
-(defvar org-babel-default-header-args:io '())
-(defvar org-babel-io-command "io"
- "Name of the command to use for executing Io code.")
-
-(defun org-babel-execute:io (body params)
- "Execute a block of Io code with org-babel. This function is
-called by `org-babel-execute-src-block'"
- (message "executing Io source code block")
- (let* ((processed-params (org-babel-process-params params))
- (session (org-babel-io-initiate-session (nth 0 processed-params)))
- (result-params (nth 2 processed-params))
- (result-type (cdr (assq :result-type params)))
- (full-body (org-babel-expand-body:generic
- body params))
- (result (org-babel-io-evaluate
- session full-body result-type result-params)))
-
- (org-babel-reassemble-table
- result
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))
-
-(defvar org-babel-io-wrapper-method
- "(
-%s
-) asString print
-")
-
-
-(defun org-babel-io-evaluate (session body &optional result-type result-params)
- "Evaluate BODY in external Io process.
-If RESULT-TYPE equals `output' then return standard output as a string.
-If RESULT-TYPE equals `value' then return the value of the last statement
-in BODY as elisp."
- (when session (error "Sessions are not (yet) supported for Io"))
- (pcase result-type
- (`output
- (if (member "repl" result-params)
- (org-babel-eval org-babel-io-command body)
- (let ((src-file (org-babel-temp-file "io-")))
- (progn (with-temp-file src-file (insert body))
- (org-babel-eval
- (concat org-babel-io-command " " src-file) "")))))
- (`value (let* ((src-file (org-babel-temp-file "io-"))
- (wrapper (format org-babel-io-wrapper-method body)))
- (with-temp-file src-file (insert wrapper))
- (let ((raw (org-babel-eval
- (concat org-babel-io-command " " src-file) "")))
- (org-babel-result-cond result-params
- raw
- (org-babel-script-escape raw)))))))
-
-
-(defun org-babel-prep-session:io (_session _params)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- (error "Sessions are not (yet) supported for Io"))
-
-(defun org-babel-io-initiate-session (&optional _session)
- "If there is not a current inferior-process-buffer in SESSION
-then create. Return the initialized session. Sessions are not
-supported in Io."
- nil)
-
-(provide 'ob-io)
-
-
-
-;;; ob-io.el ends here
diff --git a/elpa/org-9.1.14/ob-io.elc b/elpa/org-9.1.14/ob-io.elc
deleted file mode 100644
index 2ae3299..0000000
--- a/elpa/org-9.1.14/ob-io.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-java.el b/elpa/org-9.1.14/ob-java.el
deleted file mode 100644
index d6301bf..0000000
--- a/elpa/org-9.1.14/ob-java.el
+++ /dev/null
@@ -1,85 +0,0 @@
-;;; ob-java.el --- Babel Functions for Java -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Currently this only supports the external compilation and execution
-;; of java code blocks (i.e., no session support).
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("java" . "java"))
-
-(defcustom org-babel-java-command "java"
- "Name of the java command.
-May be either a command in the path, like java
-or an absolute path name, like /usr/local/bin/java
-parameters may be used, like java -verbose"
- :group 'org-babel
- :version "24.3"
- :type 'string)
-
-(defcustom org-babel-java-compiler "javac"
- "Name of the java compiler.
-May be either a command in the path, like javac
-or an absolute path name, like /usr/local/bin/javac
-parameters may be used, like javac -verbose"
- :group 'org-babel
- :version "24.3"
- :type 'string)
-
-(defun org-babel-execute:java (body params)
- (let* ((classname (or (cdr (assq :classname params))
- (error
- "Can't compile a java block without a classname")))
- (packagename (file-name-directory classname))
- (src-file (concat classname ".java"))
- (cmpflag (or (cdr (assq :cmpflag params)) ""))
- (cmdline (or (cdr (assq :cmdline params)) ""))
- (full-body (org-babel-expand-body:generic body params)))
- (with-temp-file src-file (insert full-body))
- (org-babel-eval
- (concat org-babel-java-compiler " " cmpflag " " src-file) "")
- ;; created package-name directories if missing
- (unless (or (not packagename) (file-exists-p packagename))
- (make-directory packagename 'parents))
- (let ((results (org-babel-eval (concat org-babel-java-command
- " " cmdline " " classname) "")))
- (org-babel-reassemble-table
- (org-babel-result-cond (cdr (assq :result-params params))
- (org-babel-read results)
- (let ((tmp-file (org-babel-temp-file "c-")))
- (with-temp-file tmp-file (insert results))
- (org-babel-import-elisp-from-file tmp-file)))
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params)))))))
-
-(provide 'ob-java)
-
-
-
-;;; ob-java.el ends here
diff --git a/elpa/org-9.1.14/ob-java.elc b/elpa/org-9.1.14/ob-java.elc
deleted file mode 100644
index 67f9e10..0000000
--- a/elpa/org-9.1.14/ob-java.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-js.el b/elpa/org-9.1.14/ob-js.el
deleted file mode 100644
index 38c8c39..0000000
--- a/elpa/org-9.1.14/ob-js.el
+++ /dev/null
@@ -1,164 +0,0 @@
-;;; ob-js.el --- Babel Functions for Javascript -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research, js
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Now working with SBCL for both session and external evaluation.
-;;
-;; This certainly isn't optimally robust, but it seems to be working
-;; for the basic use cases.
-
-;;; Requirements:
-
-;; - a non-browser javascript engine such as node.js http://nodejs.org/
-;; or mozrepl http://wiki.github.com/bard/mozrepl/
-;;
-;; - for session based evaluation mozrepl and moz.el are required see
-;; http://wiki.github.com/bard/mozrepl/emacs-integration for
-;; configuration instructions
-
-;;; Code:
-(require 'ob)
-
-(declare-function run-mozilla "ext:moz" (arg))
-
-(defvar org-babel-default-header-args:js '()
- "Default header arguments for js code blocks.")
-
-(defvar org-babel-js-eoe "org-babel-js-eoe"
- "String to indicate that evaluation has completed.")
-
-(defcustom org-babel-js-cmd "node"
- "Name of command used to evaluate js blocks."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defvar org-babel-js-function-wrapper
- "require('sys').print(require('sys').inspect(function(){\n%s\n}()));"
- "Javascript code to print value of body.")
-
-(defun org-babel-execute:js (body params)
- "Execute a block of Javascript code with org-babel.
-This function is called by `org-babel-execute-src-block'"
- (let* ((org-babel-js-cmd (or (cdr (assq :cmd params)) org-babel-js-cmd))
- (result-type (cdr (assq :result-type params)))
- (full-body (org-babel-expand-body:generic
- body params (org-babel-variable-assignments:js params)))
- (result (if (not (string= (cdr (assq :session params)) "none"))
- ;; session evaluation
- (let ((session (org-babel-prep-session:js
- (cdr (assq :session params)) params)))
- (nth 1
- (org-babel-comint-with-output
- (session (format "%S" org-babel-js-eoe) t body)
- (mapc
- (lambda (line)
- (insert (org-babel-chomp line))
- (comint-send-input nil t))
- (list body (format "%S" org-babel-js-eoe))))))
- ;; external evaluation
- (let ((script-file (org-babel-temp-file "js-script-")))
- (with-temp-file script-file
- (insert
- ;; return the value or the output
- (if (string= result-type "value")
- (format org-babel-js-function-wrapper full-body)
- full-body)))
- (org-babel-eval
- (format "%s %s" org-babel-js-cmd
- (org-babel-process-file-name script-file)) "")))))
- (org-babel-result-cond (cdr (assq :result-params params))
- result (org-babel-js-read result))))
-
-(defun org-babel-js-read (results)
- "Convert RESULTS into an appropriate elisp value.
-If RESULTS look like a table, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
- (org-babel-read
- (if (and (stringp results)
- (string-prefix-p "[" results)
- (string-suffix-p "]" results))
- (org-babel-read
- (concat "'"
- (replace-regexp-in-string
- "\\[" "(" (replace-regexp-in-string
- "\\]" ")" (replace-regexp-in-string
- ",[[:space:]]" " "
- (replace-regexp-in-string
- "'" "\"" results))))))
- results)))
-
-(defun org-babel-js-var-to-js (var)
- "Convert VAR into a js variable.
-Convert an elisp value into a string of js source code
-specifying a variable of the same value."
- (if (listp var)
- (concat "[" (mapconcat #'org-babel-js-var-to-js var ", ") "]")
- (replace-regexp-in-string "\n" "\\\\n" (format "%S" var))))
-
-(defun org-babel-prep-session:js (session params)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- (let* ((session (org-babel-js-initiate-session session))
- (var-lines (org-babel-variable-assignments:js params)))
- (when session
- (org-babel-comint-in-buffer session
- (sit-for .5) (goto-char (point-max))
- (mapc (lambda (var)
- (insert var) (comint-send-input nil t)
- (org-babel-comint-wait-for-output session)
- (sit-for .1) (goto-char (point-max))) var-lines)))
- session))
-
-(defun org-babel-variable-assignments:js (params)
- "Return list of Javascript statements assigning the block's variables."
- (mapcar
- (lambda (pair) (format "var %s=%s;"
- (car pair) (org-babel-js-var-to-js (cdr pair))))
- (org-babel--get-vars params)))
-
-(defun org-babel-js-initiate-session (&optional session)
- "If there is not a current inferior-process-buffer in SESSION
-then create. Return the initialized session."
- (unless (string= session "none")
- (cond
- ((string= "mozrepl" org-babel-js-cmd)
- (require 'moz)
- (let ((session-buffer (save-window-excursion
- (run-mozilla nil)
- (rename-buffer session)
- (current-buffer))))
- (if (org-babel-comint-buffer-livep session-buffer)
- (progn (sit-for .25) session-buffer)
- (sit-for .5)
- (org-babel-js-initiate-session session))))
- ((string= "node" org-babel-js-cmd )
- (error "Session evaluation with node.js is not supported"))
- (t
- (error "Sessions are only supported with mozrepl add \":cmd mozrepl\"")))))
-
-(provide 'ob-js)
-
-
-
-;;; ob-js.el ends here
diff --git a/elpa/org-9.1.14/ob-js.elc b/elpa/org-9.1.14/ob-js.elc
deleted file mode 100644
index 8c57acd..0000000
--- a/elpa/org-9.1.14/ob-js.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-keys.el b/elpa/org-9.1.14/ob-keys.el
deleted file mode 100644
index fc96df4..0000000
--- a/elpa/org-9.1.14/ob-keys.el
+++ /dev/null
@@ -1,106 +0,0 @@
-;;; ob-keys.el --- Key Bindings for Babel -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Add Org Babel keybindings to the Org mode keymap for exposing
-;; Org Babel functions. These will all share a common prefix. See
-;; the value of `org-babel-key-bindings' for a list of interactive
-;; functions and their associated keys.
-
-;;; Code:
-(require 'ob-core)
-
-(defvar org-babel-key-prefix "\C-c\C-v"
- "The key prefix for Babel interactive key-bindings.
-See `org-babel-key-bindings' for the list of interactive babel
-functions which are assigned key bindings, and see
-`org-babel-map' for the actual babel keymap.")
-
-(defvar org-babel-map (make-sparse-keymap)
- "The keymap for interactive Babel functions.")
-
-;;;###autoload
-(defun org-babel-describe-bindings ()
- "Describe all keybindings behind `org-babel-key-prefix'."
- (interactive)
- (describe-bindings org-babel-key-prefix))
-
-(defvar org-babel-key-bindings
- '(("p" . org-babel-previous-src-block)
- ("\C-p" . org-babel-previous-src-block)
- ("n" . org-babel-next-src-block)
- ("\C-n" . org-babel-next-src-block)
- ("e" . org-babel-execute-maybe)
- ("\C-e" . org-babel-execute-maybe)
- ("o" . org-babel-open-src-block-result)
- ("\C-o" . org-babel-open-src-block-result)
- ("\C-v" . org-babel-expand-src-block)
- ("v" . org-babel-expand-src-block)
- ("u" . org-babel-goto-src-block-head)
- ("\C-u" . org-babel-goto-src-block-head)
- ("g" . org-babel-goto-named-src-block)
- ("r" . org-babel-goto-named-result)
- ("\C-r" . org-babel-goto-named-result)
- ("\C-b" . org-babel-execute-buffer)
- ("b" . org-babel-execute-buffer)
- ("\C-s" . org-babel-execute-subtree)
- ("s" . org-babel-execute-subtree)
- ("\C-d" . org-babel-demarcate-block)
- ("d" . org-babel-demarcate-block)
- ("\C-t" . org-babel-tangle)
- ("t" . org-babel-tangle)
- ("\C-f" . org-babel-tangle-file)
- ("f" . org-babel-tangle-file)
- ("\C-c" . org-babel-check-src-block)
- ("c" . org-babel-check-src-block)
- ("\C-j" . org-babel-insert-header-arg)
- ("j" . org-babel-insert-header-arg)
- ("\C-l" . org-babel-load-in-session)
- ("l" . org-babel-load-in-session)
- ("\C-i" . org-babel-lob-ingest)
- ("i" . org-babel-lob-ingest)
- ("\C-I" . org-babel-view-src-block-info)
- ("I" . org-babel-view-src-block-info)
- ("\C-z" . org-babel-switch-to-session)
- ("z" . org-babel-switch-to-session-with-code)
- ("\C-a" . org-babel-sha1-hash)
- ("a" . org-babel-sha1-hash)
- ("h" . org-babel-describe-bindings)
- ("\C-x" . org-babel-do-key-sequence-in-edit-buffer)
- ("x" . org-babel-do-key-sequence-in-edit-buffer)
- ("k" . org-babel-remove-result-one-or-many)
- ("\C-\M-h" . org-babel-mark-block))
- "Alist of key bindings and interactive Babel functions.
-This list associates interactive Babel functions
-with keys. Each element of this list will add an entry to the
-`org-babel-map' using the letter key which is the `car' of the
-a-list placed behind the generic `org-babel-key-prefix'.")
-
-(provide 'ob-keys)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; ob-keys.el ends here
diff --git a/elpa/org-9.1.14/ob-keys.elc b/elpa/org-9.1.14/ob-keys.elc
deleted file mode 100644
index 2d59447..0000000
--- a/elpa/org-9.1.14/ob-keys.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-latex.el b/elpa/org-9.1.14/ob-latex.el
deleted file mode 100644
index 6a963e5..0000000
--- a/elpa/org-9.1.14/ob-latex.el
+++ /dev/null
@@ -1,226 +0,0 @@
-;;; ob-latex.el --- Babel Functions for LaTeX -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating LaTeX source code.
-;;
-;; Currently on evaluation this returns raw LaTeX code, unless a :file
-;; header argument is given in which case small png or pdf files will
-;; be created directly form the latex source code.
-
-;;; Code:
-(require 'ob)
-
-(declare-function org-create-formula-image "org" (string tofile options buffer &optional type))
-(declare-function org-latex-compile "ox-latex" (texfile &optional snippet))
-(declare-function org-latex-guess-inputenc "ox-latex" (header))
-(declare-function org-splice-latex-header "org" (tpl def-pkg pkg snippets-p &optional extra))
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("latex" . "tex"))
-
-(defvar org-format-latex-header) ; From org.el
-(defvar org-format-latex-options) ; From org.el
-(defvar org-latex-default-packages-alist) ; From org.el
-(defvar org-latex-packages-alist) ; From org.el
-
-(defvar org-babel-default-header-args:latex
- '((:results . "latex") (:exports . "results"))
- "Default arguments to use when evaluating a LaTeX source block.")
-
-(defconst org-babel-header-args:latex
- '((border . :any)
- (fit . :any)
- (imagemagick . ((nil t)))
- (iminoptions . :any)
- (imoutoptions . :any)
- (packages . :any)
- (pdfheight . :any)
- (pdfpng . :any)
- (pdfwidth . :any)
- (headers . :any)
- (packages . :any)
- (buffer . ((yes no))))
- "LaTeX-specific header arguments.")
-
-(defcustom org-babel-latex-htlatex "htlatex"
- "The htlatex command to enable conversion of latex to SVG or HTML."
- :group 'org-babel
- :type 'string)
-
-(defcustom org-babel-latex-htlatex-packages
- '("[usenames]{color}" "{tikz}" "{color}" "{listings}" "{amsmath}")
- "Packages to use for htlatex export."
- :group 'org-babel
- :type '(repeat (string)))
-
-(defun org-babel-expand-body:latex (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (mapc (lambda (pair) ;; replace variables
- (setq body
- (replace-regexp-in-string
- (regexp-quote (format "%S" (car pair)))
- (if (stringp (cdr pair))
- (cdr pair) (format "%S" (cdr pair)))
- body))) (org-babel--get-vars params))
- (org-trim body))
-
-(defun org-babel-execute:latex (body params)
- "Execute a block of Latex code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (setq body (org-babel-expand-body:latex body params))
- (if (cdr (assq :file params))
- (let* ((out-file (cdr (assq :file params)))
- (extension (file-name-extension out-file))
- (tex-file (org-babel-temp-file "latex-" ".tex"))
- (border (cdr (assq :border params)))
- (imagemagick (cdr (assq :imagemagick params)))
- (im-in-options (cdr (assq :iminoptions params)))
- (im-out-options (cdr (assq :imoutoptions params)))
- (fit (or (cdr (assq :fit params)) border))
- (height (and fit (cdr (assq :pdfheight params))))
- (width (and fit (cdr (assq :pdfwidth params))))
- (headers (cdr (assq :headers params)))
- (in-buffer (not (string= "no" (cdr (assq :buffer params)))))
- (org-latex-packages-alist
- (append (cdr (assq :packages params)) org-latex-packages-alist)))
- (cond
- ((and (string-suffix-p ".png" out-file) (not imagemagick))
- (org-create-formula-image
- body out-file org-format-latex-options in-buffer))
- ((string-suffix-p ".tikz" out-file)
- (when (file-exists-p out-file) (delete-file out-file))
- (with-temp-file out-file
- (insert body)))
- ((and (or (string= "svg" extension)
- (string= "html" extension))
- (executable-find org-babel-latex-htlatex))
- ;; TODO: this is a very different way of generating the
- ;; frame latex document than in the pdf case. Ideally, both
- ;; would be unified. This would prevent bugs creeping in
- ;; such as the one fixed on Aug 16 2014 whereby :headers was
- ;; not included in the SVG/HTML case.
- (with-temp-file tex-file
- (insert (concat
- "\\documentclass[preview]{standalone}
-\\def\\pgfsysdriver{pgfsys-tex4ht.def}
-"
- (mapconcat (lambda (pkg)
- (concat "\\usepackage" pkg))
- org-babel-latex-htlatex-packages
- "\n")
- (if headers
- (concat "\n"
- (if (listp headers)
- (mapconcat #'identity headers "\n")
- headers) "\n")
- "")
- "\\begin{document}"
- body
- "\\end{document}")))
- (when (file-exists-p out-file) (delete-file out-file))
- (let ((default-directory (file-name-directory tex-file)))
- (shell-command (format "%s %s" org-babel-latex-htlatex tex-file)))
- (cond
- ((file-exists-p (concat (file-name-sans-extension tex-file) "-1.svg"))
- (if (string-suffix-p ".svg" out-file)
- (progn
- (shell-command "pwd")
- (shell-command (format "mv %s %s"
- (concat (file-name-sans-extension tex-file) "-1.svg")
- out-file)))
- (error "SVG file produced but HTML file requested")))
- ((file-exists-p (concat (file-name-sans-extension tex-file) ".html"))
- (if (string-suffix-p ".html" out-file)
- (shell-command "mv %s %s"
- (concat (file-name-sans-extension tex-file)
- ".html")
- out-file)
- (error "HTML file produced but SVG file requested")))))
- ((or (string= "pdf" extension) imagemagick)
- (with-temp-file tex-file
- (require 'ox-latex)
- (insert
- (org-latex-guess-inputenc
- (org-splice-latex-header
- org-format-latex-header
- (delq
- nil
- (mapcar
- (lambda (el)
- (unless (and (listp el) (string= "hyperref" (cadr el)))
- el))
- org-latex-default-packages-alist))
- org-latex-packages-alist
- nil))
- (if fit "\n\\usepackage[active, tightpage]{preview}\n" "")
- (if border (format "\\setlength{\\PreviewBorder}{%s}" border) "")
- (if height (concat "\n" (format "\\pdfpageheight %s" height)) "")
- (if width (concat "\n" (format "\\pdfpagewidth %s" width)) "")
- (if headers
- (concat "\n"
- (if (listp headers)
- (mapconcat #'identity headers "\n")
- headers) "\n")
- "")
- (if fit
- (concat "\n\\begin{document}\n\\begin{preview}\n" body
- "\n\\end{preview}\n\\end{document}\n")
- (concat "\n\\begin{document}\n" body "\n\\end{document}\n"))))
- (when (file-exists-p out-file) (delete-file out-file))
- (let ((transient-pdf-file (org-babel-latex-tex-to-pdf tex-file)))
- (cond
- ((string= "pdf" extension)
- (rename-file transient-pdf-file out-file))
- (imagemagick
- (org-babel-latex-convert-pdf
- transient-pdf-file out-file im-in-options im-out-options)
- (when (file-exists-p transient-pdf-file)
- (delete-file transient-pdf-file)))
- (t
- (error "Can not create %s files, please specify a .png or .pdf file or try the :imagemagick header argument"
- extension))))))
- nil) ;; signal that output has already been written to file
- body))
-
-(defun org-babel-latex-convert-pdf (pdffile out-file im-in-options im-out-options)
- "Generate a file from a pdf file using imagemagick."
- (let ((cmd (concat "convert " im-in-options " " pdffile " "
- im-out-options " " out-file)))
- (message "Converting pdffile file %s..." cmd)
- (shell-command cmd)))
-
-(defun org-babel-latex-tex-to-pdf (file)
- "Generate a pdf file according to the contents FILE."
- (require 'ox-latex)
- (org-latex-compile file))
-
-(defun org-babel-prep-session:latex (_session _params)
- "Return an error because LaTeX doesn't support sessions."
- (error "LaTeX does not support sessions"))
-
-
-(provide 'ob-latex)
-;;; ob-latex.el ends here
diff --git a/elpa/org-9.1.14/ob-latex.elc b/elpa/org-9.1.14/ob-latex.elc
deleted file mode 100644
index 41a884c..0000000
--- a/elpa/org-9.1.14/ob-latex.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-ledger.el b/elpa/org-9.1.14/ob-ledger.el
deleted file mode 100644
index 2a13314..0000000
--- a/elpa/org-9.1.14/ob-ledger.el
+++ /dev/null
@@ -1,70 +0,0 @@
-;;; ob-ledger.el --- Babel Functions for Ledger -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric S Fraga
-;; Keywords: literate programming, reproducible research, accounting
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating ledger entries.
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in ledger
-;;
-;; 2) we are generally only going to return output from the ledger program
-;;
-;; 3) we are adding the "cmdline" header argument
-;;
-;; 4) there are no variables
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:ledger
- '((:results . "output") (:cmdline . "bal"))
- "Default arguments to use when evaluating a ledger source block.")
-
-(defun org-babel-execute:ledger (body params)
- "Execute a block of Ledger entries with org-babel. This function is
-called by `org-babel-execute-src-block'."
- (message "executing Ledger source code block")
- (let ((cmdline (cdr (assq :cmdline params)))
- (in-file (org-babel-temp-file "ledger-"))
- (out-file (org-babel-temp-file "ledger-output-")))
- (with-temp-file in-file (insert body))
- (message "%s" (concat "ledger"
- " -f " (org-babel-process-file-name in-file)
- " " cmdline))
- (with-output-to-string
- (shell-command (concat "ledger"
- " -f " (org-babel-process-file-name in-file)
- " " cmdline
- " > " (org-babel-process-file-name out-file))))
- (with-temp-buffer (insert-file-contents out-file) (buffer-string))))
-
-(defun org-babel-prep-session:ledger (_session _params)
- (error "Ledger does not support sessions"))
-
-(provide 'ob-ledger)
-
-
-
-;;; ob-ledger.el ends here
diff --git a/elpa/org-9.1.14/ob-ledger.elc b/elpa/org-9.1.14/ob-ledger.elc
deleted file mode 100644
index 47b0ae0..0000000
--- a/elpa/org-9.1.14/ob-ledger.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-lilypond.el b/elpa/org-9.1.14/ob-lilypond.el
deleted file mode 100644
index 3d3cc07..0000000
--- a/elpa/org-9.1.14/ob-lilypond.el
+++ /dev/null
@@ -1,412 +0,0 @@
-;;; ob-lilypond.el --- Babel Functions for Lilypond -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Martyn Jago
-;; Keywords: babel language, literate programming
-;; Homepage: https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-lilypond.html
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Installation, ob-lilypond documentation, and examples are available at
-;; https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-lilypond.html
-;;
-;; Lilypond documentation can be found at
-;; http://lilypond.org/manuals.html
-;;
-;; This depends on epstopdf --- See http://www.ctan.org/pkg/epstopdf.
-
-;;; Code:
-(require 'ob)
-(require 'outline)
-(defalias 'lilypond-mode 'LilyPond-mode)
-
-(add-to-list 'org-babel-tangle-lang-exts '("LilyPond" . "ly"))
-
-(defvar org-babel-default-header-args:lilypond '()
- "Default header arguments for lilypond code blocks.
-NOTE: The arguments are determined at lilypond compile time.
-See (org-babel-lilypond-set-header-args)")
-
-(defvar org-babel-lilypond-compile-post-tangle t
- "Following the org-babel-tangle (C-c C-v t) command,
-org-babel-lilypond-compile-post-tangle determines whether ob-lilypond should
-automatically attempt to compile the resultant tangled file.
-If the value is nil, no automated compilation takes place.
-Default value is t")
-
-(defvar org-babel-lilypond-display-pdf-post-tangle t
- "Following a successful LilyPond compilation
-org-babel-lilypond-display-pdf-post-tangle determines whether to automate the
-drawing / redrawing of the resultant pdf. If the value is nil,
-the pdf is not automatically redrawn. Default value is t")
-
-(defvar org-babel-lilypond-play-midi-post-tangle t
- "Following a successful LilyPond compilation
-org-babel-lilypond-play-midi-post-tangle determines whether to automate the
-playing of the resultant midi file. If the value is nil,
-the midi file is not automatically played. Default value is t")
-
-(defvar org-babel-lilypond-ly-command ""
- "Command to execute lilypond on your system.
-Do not set it directly. Customize `org-babel-lilypond-commands' instead.")
-(defvar org-babel-lilypond-pdf-command ""
- "Command to show a PDF file on your system.
-Do not set it directly. Customize `org-babel-lilypond-commands' instead.")
-(defvar org-babel-lilypond-midi-command ""
- "Command to play a MIDI file on your system.
-Do not set it directly. Customize `org-babel-lilypond-commands' instead.")
-(defcustom org-babel-lilypond-commands
- (cond
- ((eq system-type 'darwin)
- '("/Applications/lilypond.app/Contents/Resources/bin/lilypond" "open" "open"))
- ((eq system-type 'windows-nt)
- '("lilypond" "" ""))
- (t
- '("lilypond" "xdg-open" "xdg-open")))
- "Commands to run lilypond and view or play the results.
-These should be executables that take a filename as an argument.
-On some system it is possible to specify the filename directly
-and the viewer or player will be determined from the file type;
-you can leave the string empty on this case."
- :group 'org-babel
- :type '(list
- (string :tag "Lilypond ")
- (string :tag "PDF Viewer ")
- (string :tag "MIDI Player"))
- :version "24.4"
- :package-version '(Org . "8.2.7")
- :set
- (lambda (_symbol value)
- (setq
- org-babel-lilypond-ly-command (nth 0 value)
- org-babel-lilypond-pdf-command (nth 1 value)
- org-babel-lilypond-midi-command (nth 2 value))))
-
-(defvar org-babel-lilypond-gen-png nil
- "Non-nil means image generation (PNG) is turned on by default.")
-
-(defvar org-babel-lilypond-gen-svg nil
- "Non-nil means image generation (SVG) is be turned on by default.")
-
-(defvar org-babel-lilypond-gen-html nil
- "Non-nil means HTML generation is turned on by default.")
-
-(defvar org-babel-lilypond-gen-pdf nil
- "Non-nil means PDF generation is be turned on by default.")
-
-(defvar org-babel-lilypond-use-eps nil
- "Non-nil forces the compiler to use the EPS backend.")
-
-(defvar org-babel-lilypond-arrange-mode nil
- "Non-nil turns Arrange mode on.
-In Arrange mode the following settings are altered from default:
-:tangle yes, :noweb yes
-:results silent :comments yes.
-In addition lilypond block execution causes tangling of all lilypond
-blocks.")
-
-(defun org-babel-expand-body:lilypond (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let ((vars (org-babel--get-vars params)))
- (mapc
- (lambda (pair)
- (let ((name (symbol-name (car pair)))
- (value (cdr pair)))
- (setq body
- (replace-regexp-in-string
- (concat "$" (regexp-quote name))
- (if (stringp value) value (format "%S" value))
- body))))
- vars)
- body))
-
-(defun org-babel-execute:lilypond (body params)
- "This function is called by `org-babel-execute-src-block'.
-Depending on whether we are in arrange mode either:
-1. Attempt to execute lilypond block according to header settings
- (This is the default basic mode)
-2. Tangle all lilypond blocks and process the result (arrange mode)"
- (org-babel-lilypond-set-header-args org-babel-lilypond-arrange-mode)
- (if org-babel-lilypond-arrange-mode
- (org-babel-lilypond-tangle)
- (org-babel-lilypond-process-basic body params)))
-
-(defun org-babel-lilypond-tangle ()
- "ob-lilypond specific tangle, attempts to invoke
-=ly-execute-tangled-ly= if tangle is successful. Also passes
-specific arguments to =org-babel-tangle="
- (interactive)
- (if (org-babel-tangle nil "yes" "lilypond")
- (org-babel-lilypond-execute-tangled-ly) nil))
-
-(defun org-babel-lilypond-process-basic (body params)
- "Execute a lilypond block in basic mode."
- (let* ((out-file (cdr (assq :file params)))
- (cmdline (or (cdr (assq :cmdline params))
- ""))
- (in-file (org-babel-temp-file "lilypond-")))
-
- (with-temp-file in-file
- (insert (org-babel-expand-body:generic body params)))
- (org-babel-eval
- (concat
- org-babel-lilypond-ly-command
- " -dbackend=eps "
- "-dno-gs-load-fonts "
- "-dinclude-eps-fonts "
- (or (cdr (assoc (file-name-extension out-file)
- '(("pdf" . "--pdf ")
- ("ps" . "--ps ")
- ("png" . "--png "))))
- "--png ")
- "--output="
- (file-name-sans-extension out-file)
- " "
- cmdline
- in-file) "")) nil)
-
-(defun org-babel-prep-session:lilypond (_session _params)
- "Return an error because LilyPond exporter does not support sessions."
- (error "Sorry, LilyPond does not currently support sessions!"))
-
-(defun org-babel-lilypond-execute-tangled-ly ()
- "Compile result of block tangle with lilypond.
-If error in compilation, attempt to mark the error in lilypond org file"
- (when org-babel-lilypond-compile-post-tangle
- (let ((org-babel-lilypond-tangled-file (org-babel-lilypond-switch-extension
- (buffer-file-name) ".lilypond"))
- (org-babel-lilypond-temp-file (org-babel-lilypond-switch-extension
- (buffer-file-name) ".ly")))
- (if (not (file-exists-p org-babel-lilypond-tangled-file))
- (error "Error: Tangle Failed!")
- (when (file-exists-p org-babel-lilypond-temp-file)
- (delete-file org-babel-lilypond-temp-file))
- (rename-file org-babel-lilypond-tangled-file
- org-babel-lilypond-temp-file))
- (switch-to-buffer-other-window "*lilypond*")
- (erase-buffer)
- (org-babel-lilypond-compile-lilyfile org-babel-lilypond-temp-file)
- (goto-char (point-min))
- (if (org-babel-lilypond-check-for-compile-error org-babel-lilypond-temp-file)
- (error "Error in Compilation!")
- (other-window -1)
- (org-babel-lilypond-attempt-to-open-pdf org-babel-lilypond-temp-file)
- (org-babel-lilypond-attempt-to-play-midi org-babel-lilypond-temp-file)))))
-
-(defun org-babel-lilypond-compile-lilyfile (file-name &optional test)
- "Compile lilypond file and check for compile errors
-FILE-NAME is full path to lilypond (.ly) file"
- (message "Compiling LilyPond...")
- (let ((arg-1 org-babel-lilypond-ly-command) ;program
- (arg-2 nil) ;infile
- (arg-3 "*lilypond*") ;buffer
- (arg-4 t) ;display
- (arg-5 (if org-babel-lilypond-gen-png "--png" "")) ;&rest...
- (arg-6 (if org-babel-lilypond-gen-html "--html" ""))
- (arg-7 (if org-babel-lilypond-gen-pdf "--pdf" ""))
- (arg-8 (if org-babel-lilypond-use-eps "-dbackend=eps" ""))
- (arg-9 (if org-babel-lilypond-gen-svg "-dbackend=svg" ""))
- (arg-10 (concat "--output=" (file-name-sans-extension file-name)))
- (arg-11 file-name))
- (if test
- `(,arg-1 ,arg-2 ,arg-3 ,arg-4 ,arg-5 ,arg-6
- ,arg-7 ,arg-8 ,arg-9 ,arg-10 ,arg-11)
- (call-process
- arg-1 arg-2 arg-3 arg-4 arg-5 arg-6
- arg-7 arg-8 arg-9 arg-10 arg-11))))
-
-(defun org-babel-lilypond-check-for-compile-error (file-name &optional test)
- "Check for compile error.
-This is performed by parsing the *lilypond* buffer
-containing the output message from the compilation.
-FILE-NAME is full path to lilypond file.
-If TEST is t just return nil if no error found, and pass
-nil as file-name since it is unused in this context"
- (let ((is-error (search-forward "error:" nil t)))
- (if test
- is-error
- (when is-error
- (org-babel-lilypond-process-compile-error file-name)))))
-
-(defun org-babel-lilypond-process-compile-error (file-name)
- "Process the compilation error that has occurred.
-FILE-NAME is full path to lilypond file"
- (let ((line-num (org-babel-lilypond-parse-line-num)))
- (let ((error-lines (org-babel-lilypond-parse-error-line file-name line-num)))
- (org-babel-lilypond-mark-error-line file-name error-lines)
- (error "Error: Compilation Failed!"))))
-
-(defun org-babel-lilypond-mark-error-line (file-name line)
- "Mark the erroneous lines in the lilypond org buffer.
-FILE-NAME is full path to lilypond file.
-LINE is the erroneous line"
- (switch-to-buffer-other-window
- (concat (file-name-nondirectory
- (org-babel-lilypond-switch-extension file-name ".org"))))
- (let ((temp (point)))
- (goto-char (point-min))
- (setq case-fold-search nil)
- (if (search-forward line nil t)
- (progn
- (outline-show-all)
- (set-mark (point))
- (goto-char (- (point) (length line))))
- (goto-char temp))))
-
-(defun org-babel-lilypond-parse-line-num (&optional buffer)
- "Extract error line number."
- (when buffer (set-buffer buffer))
- (let ((start
- (and (search-backward ":" nil t)
- (search-backward ":" nil t)
- (search-backward ":" nil t)
- (search-backward ":" nil t))))
- (when start
- (forward-char)
- (let ((num (string-to-number
- (buffer-substring
- (+ 1 start)
- (- (search-forward ":" nil t) 1)))))
- (and (numberp num) num)))))
-
-(defun org-babel-lilypond-parse-error-line (file-name lineNo)
- "Extract the erroneous line from the tangled .ly file
-FILE-NAME is full path to lilypond file.
-LINENO is the number of the erroneous line"
- (with-temp-buffer
- (insert-file-contents (org-babel-lilypond-switch-extension file-name ".ly")
- nil nil nil t)
- (if (> lineNo 0)
- (progn
- (goto-char (point-min))
- (forward-line (- lineNo 1))
- (buffer-substring (point) (point-at-eol)))
- nil)))
-
-(defun org-babel-lilypond-attempt-to-open-pdf (file-name &optional test)
- "Attempt to display the generated pdf file
-FILE-NAME is full path to lilypond file
-If TEST is non-nil, the shell command is returned and is not run"
- (when org-babel-lilypond-display-pdf-post-tangle
- (let ((pdf-file (org-babel-lilypond-switch-extension file-name ".pdf")))
- (if (file-exists-p pdf-file)
- (let ((cmd-string
- (concat org-babel-lilypond-pdf-command " " pdf-file)))
- (if test
- cmd-string
- (start-process
- "\"Audition pdf\""
- "*lilypond*"
- org-babel-lilypond-pdf-command
- pdf-file)))
- (message "No pdf file generated so can't display!")))))
-
-(defun org-babel-lilypond-attempt-to-play-midi (file-name &optional test)
- "Attempt to play the generated MIDI file
-FILE-NAME is full path to lilypond file
-If TEST is non-nil, the shell command is returned and is not run"
- (when org-babel-lilypond-play-midi-post-tangle
- (let ((midi-file (org-babel-lilypond-switch-extension file-name ".midi")))
- (if (file-exists-p midi-file)
- (let ((cmd-string
- (concat org-babel-lilypond-midi-command " " midi-file)))
- (if test
- cmd-string
- (start-process
- "\"Audition midi\""
- "*lilypond*"
- org-babel-lilypond-midi-command
- midi-file)))
- (message "No midi file generated so can't play!")))))
-
-(defun org-babel-lilypond-toggle-midi-play ()
- "Toggle whether midi will be played following a successful compilation."
- (interactive)
- (setq org-babel-lilypond-play-midi-post-tangle
- (not org-babel-lilypond-play-midi-post-tangle))
- (message (concat "Post-Tangle MIDI play has been "
- (if org-babel-lilypond-play-midi-post-tangle
- "ENABLED." "DISABLED."))))
-
-(defun org-babel-lilypond-toggle-pdf-display ()
- "Toggle whether pdf will be displayed following a successful compilation."
- (interactive)
- (setq org-babel-lilypond-display-pdf-post-tangle
- (not org-babel-lilypond-display-pdf-post-tangle))
- (message (concat "Post-Tangle PDF display has been "
- (if org-babel-lilypond-display-pdf-post-tangle
- "ENABLED." "DISABLED."))))
-
-(defun org-babel-lilypond-toggle-png-generation ()
- "Toggle whether png image will be generated by compilation."
- (interactive)
- (setq org-babel-lilypond-gen-png (not org-babel-lilypond-gen-png))
- (message (concat "PNG image generation has been "
- (if org-babel-lilypond-gen-png "ENABLED." "DISABLED."))))
-
-(defun org-babel-lilypond-toggle-html-generation ()
- "Toggle whether html will be generated by compilation."
- (interactive)
- (setq org-babel-lilypond-gen-html (not org-babel-lilypond-gen-html))
- (message (concat "HTML generation has been "
- (if org-babel-lilypond-gen-html "ENABLED." "DISABLED."))))
-
-(defun org-babel-lilypond-toggle-pdf-generation ()
- "Toggle whether pdf will be generated by compilation."
- (interactive)
- (setq org-babel-lilypond-gen-pdf (not org-babel-lilypond-gen-pdf))
- (message (concat "PDF generation has been "
- (if org-babel-lilypond-gen-pdf "ENABLED." "DISABLED."))))
-
-(defun org-babel-lilypond-toggle-arrange-mode ()
- "Toggle whether in Arrange mode or Basic mode."
- (interactive)
- (setq org-babel-lilypond-arrange-mode
- (not org-babel-lilypond-arrange-mode))
- (message (concat "Arrange mode has been "
- (if org-babel-lilypond-arrange-mode "ENABLED." "DISABLED."))))
-
-(defun org-babel-lilypond-switch-extension (file-name ext)
- "Utility command to swap current FILE-NAME extension with EXT"
- (concat (file-name-sans-extension
- file-name) ext))
-
-(defun org-babel-lilypond-get-header-args (mode)
- "Default arguments to use when evaluating a lilypond
-source block. These depend upon whether we are in arrange
-mode i.e. ARRANGE-MODE is t"
- (cond (mode
- '((:tangle . "yes")
- (:noweb . "yes")
- (:results . "silent")
- (:cache . "yes")
- (:comments . "yes")))
- (t
- '((:results . "file")
- (:exports . "results")))))
-
-(defun org-babel-lilypond-set-header-args (mode)
- "Set org-babel-default-header-args:lilypond
-dependent on ORG-BABEL-LILYPOND-ARRANGE-MODE"
- (setq org-babel-default-header-args:lilypond
- (org-babel-lilypond-get-header-args mode)))
-
-(provide 'ob-lilypond)
-
-;;; ob-lilypond.el ends here
diff --git a/elpa/org-9.1.14/ob-lilypond.elc b/elpa/org-9.1.14/ob-lilypond.elc
deleted file mode 100644
index 6788965..0000000
--- a/elpa/org-9.1.14/ob-lilypond.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-lisp.el b/elpa/org-9.1.14/ob-lisp.el
deleted file mode 100644
index b846138..0000000
--- a/elpa/org-9.1.14/ob-lisp.el
+++ /dev/null
@@ -1,127 +0,0 @@
-;;; ob-lisp.el --- Babel Functions for Common Lisp -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Joel Boehland
-;; Eric Schulte
-;; David T. O'Toole <dto@gnu.org>
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Support for evaluating Common Lisp code, relies on SLY or SLIME
-;;; for all eval.
-
-;;; Requirements:
-
-;; Requires SLY (Sylvester the Cat's Common Lisp IDE) or SLIME
-;; (Superior Lisp Interaction Mode for Emacs). See:
-;; - https://github.com/capitaomorte/sly
-;; - http://common-lisp.net/project/slime/
-
-;;; Code:
-(require 'ob)
-
-(declare-function sly-eval "ext:sly" (sexp &optional package))
-(declare-function slime-eval "ext:slime" (sexp &optional package))
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("lisp" . "lisp"))
-
-(defvar org-babel-default-header-args:lisp '())
-(defvar org-babel-header-args:lisp '((package . :any)))
-
-(defcustom org-babel-lisp-eval-fn #'slime-eval
- "The function to be called to evaluate code on the Lisp side.
-Valid values include `slime-eval' and `sly-eval'."
- :group 'org-babel
- :version "26.1"
- :package-version '(Org . "9.0")
- :type 'symbol)
-
-(defcustom org-babel-lisp-dir-fmt
- "(let ((*default-pathname-defaults* #P%S\n)) %%s\n)"
- "Format string used to wrap code bodies to set the current directory.
-For example a value of \"(progn ;; %s\\n %%s)\" would ignore the
-current directory string."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defun org-babel-expand-body:lisp (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let* ((vars (org-babel--get-vars params))
- (result-params (cdr (assq :result-params params)))
- (print-level nil) (print-length nil)
- (body (if (null vars) (org-trim body)
- (concat "(let ("
- (mapconcat
- (lambda (var)
- (format "(%S (quote %S))" (car var) (cdr var)))
- vars "\n ")
- ")\n" body ")"))))
- (if (or (member "code" result-params)
- (member "pp" result-params))
- (format "(pprint %s)" body)
- body)))
-
-(defun org-babel-execute:lisp (body params)
- "Execute a block of Common Lisp code with Babel.
-BODY is the contents of the block, as a string. PARAMS is
-a property list containing the parameters of the block."
- (require (pcase org-babel-lisp-eval-fn
- (`slime-eval 'slime)
- (`sly-eval 'sly)))
- (org-babel-reassemble-table
- (let ((result
- (funcall (if (member "output" (cdr (assq :result-params params)))
- #'car #'cadr)
- (with-temp-buffer
- (insert (org-babel-expand-body:lisp body params))
- (funcall org-babel-lisp-eval-fn
- `(swank:eval-and-grab-output
- ,(let ((dir (if (assq :dir params)
- (cdr (assq :dir params))
- default-directory)))
- (format
- (if dir (format org-babel-lisp-dir-fmt dir)
- "(progn %s\n)")
- (buffer-substring-no-properties
- (point-min) (point-max)))))
- (cdr (assq :package params)))))))
- (org-babel-result-cond (cdr (assq :result-params params))
- result
- (condition-case nil
- (read (org-babel-lisp-vector-to-list result))
- (error result))))
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colnames params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rownames params)))))
-
-(defun org-babel-lisp-vector-to-list (results)
- ;; TODO: better would be to replace #(...) with [...]
- (replace-regexp-in-string "#(" "(" results))
-
-(provide 'ob-lisp)
-
-
-
-;;; ob-lisp.el ends here
diff --git a/elpa/org-9.1.14/ob-lisp.elc b/elpa/org-9.1.14/ob-lisp.elc
deleted file mode 100644
index 61ee9e5..0000000
--- a/elpa/org-9.1.14/ob-lisp.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-lob.el b/elpa/org-9.1.14/ob-lob.el
deleted file mode 100644
index 6af6bf0..0000000
--- a/elpa/org-9.1.14/ob-lob.el
+++ /dev/null
@@ -1,165 +0,0 @@
-;;; ob-lob.el --- Functions Supporting the Library of Babel -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Eric Schulte
-;; Dan Davison
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Code:
-(require 'cl-lib)
-(require 'ob-core)
-(require 'ob-table)
-
-(declare-function org-babel-ref-split-args "ob-ref" (arg-string))
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-
-(defvar org-babel-library-of-babel nil
- "Library of source-code blocks.
-This is an association list. Populate the library by calling
-`org-babel-lob-ingest' on files containing source blocks.")
-
-(defvar org-babel-default-lob-header-args '((:exports . "results"))
- "Default header arguments to use when exporting Babel calls.
-By default, a Babel call inherits its arguments from the source
-block being called. Header arguments defined in this variable
-take precedence over these. It is useful for properties that
-should not be inherited from a source block.")
-
-(defun org-babel-lob-ingest (&optional file)
- "Add all named source blocks defined in FILE to `org-babel-library-of-babel'."
- (interactive "fFile: ")
- (let ((lob-ingest-count 0))
- (org-babel-map-src-blocks file
- (let* ((info (org-babel-get-src-block-info 'light))
- (source-name (nth 4 info)))
- (when source-name
- (setf (nth 1 info)
- (if (org-babel-noweb-p (nth 2 info) :eval)
- (org-babel-expand-noweb-references info)
- (nth 1 info)))
- (let ((source (intern source-name)))
- (setq org-babel-library-of-babel
- (cons (cons source info)
- (assq-delete-all source org-babel-library-of-babel))))
- (cl-incf lob-ingest-count))))
- (message "%d src block%s added to Library of Babel"
- lob-ingest-count (if (> lob-ingest-count 1) "s" ""))
- lob-ingest-count))
-
-;; Functions for executing lob one-liners.
-
-;;;###autoload
-(defun org-babel-lob-execute-maybe ()
- "Execute a Library of Babel source block, if appropriate.
-Detect if this is context for a Library Of Babel source block and
-if so then run the appropriate source block from the Library."
- (interactive)
- (let ((info (org-babel-lob-get-info)))
- (when info
- (org-babel-execute-src-block nil info)
- t)))
-
-(defun org-babel-lob--src-info (ref)
- "Return internal representation for Babel data referenced as REF.
-REF is a string. This function looks into the current document
-for a Babel call or source block. If none is found, it looks
-after REF in the Library of Babel."
- (let ((name ref)
- (file nil))
- ;; Extract the remote file, if specified in the reference.
- (when (string-match "\\`\\(.+\\):\\(.+\\)\\'" ref)
- (setq file (match-string 1 ref))
- (setq name (match-string 2 ref)))
- ;; During export, look into the pristine copy of the document
- ;; being exported instead of the current one, which could miss
- ;; some data.
- (with-current-buffer (cond (file (find-file-noselect file t))
- (org-babel-exp-reference-buffer)
- (t (current-buffer)))
- (org-with-point-at 1
- (catch :found
- (let ((case-fold-search t)
- (regexp (org-babel-named-data-regexp-for-name name)))
- (while (re-search-forward regexp nil t)
- (let ((element (org-element-at-point)))
- (when (equal name (org-element-property :name element))
- (throw :found
- (pcase (org-element-type element)
- (`src-block (org-babel-get-src-block-info t element))
- (`babel-call (org-babel-lob-get-info element))
- ;; Non-executable data found. Since names
- ;; are supposed to be unique throughout
- ;; a document, bail out.
- (_ nil))))))
- (cdr (assoc-string ref org-babel-library-of-babel))))))))
-
-;;;###autoload
-(defun org-babel-lob-get-info (&optional datum)
- "Return internal representation for Library of Babel function call.
-
-Consider DATUM, when provided, or element at point otherwise.
-
-Return nil when not on an appropriate location. Otherwise return
-a list compatible with `org-babel-get-src-block-info', which
-see."
- (let* ((context (or datum (org-element-context)))
- (type (org-element-type context))
- (reference (org-element-property :call context)))
- (when (memq type '(babel-call inline-babel-call))
- (pcase (org-babel-lob--src-info reference)
- (`(,language ,body ,header ,_ ,_ ,_ ,coderef)
- (let ((begin (org-element-property (if (eq type 'inline-babel-call)
- :begin
- :post-affiliated)
- context)))
- (list language
- body
- (apply #'org-babel-merge-params
- header
- org-babel-default-lob-header-args
- (append
- (org-with-wide-buffer
- (goto-char begin)
- (org-babel-params-from-properties language))
- (list
- (org-babel-parse-header-arguments
- (org-element-property :inside-header context))
- (let ((args (org-element-property :arguments context)))
- (and args
- (mapcar (lambda (ref) (cons :var ref))
- (org-babel-ref-split-args args))))
- (org-babel-parse-header-arguments
- (org-element-property :end-header context)))))
- nil
- (org-element-property :name context)
- begin
- coderef)))
- (_ nil)))))
-
-(provide 'ob-lob)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; ob-lob.el ends here
diff --git a/elpa/org-9.1.14/ob-lob.elc b/elpa/org-9.1.14/ob-lob.elc
deleted file mode 100644
index f411a47..0000000
--- a/elpa/org-9.1.14/ob-lob.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-lua.el b/elpa/org-9.1.14/ob-lua.el
deleted file mode 100644
index 6ae72c7..0000000
--- a/elpa/org-9.1.14/ob-lua.el
+++ /dev/null
@@ -1,403 +0,0 @@
-;;; ob-lua.el --- Org Babel functions for Lua evaluation -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2014, 2016-2018 Free Software Foundation, Inc.
-
-;; Authors: Dieter Schoen
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;; Requirements:
-;; for session support, lua-mode is needed.
-;; lua-mode is not part of GNU Emacs/orgmode, but can be obtained
-;; from marmalade or melpa.
-;; The source repository is here:
-;; https://github.com/immerrr/lua-mode
-
-;; However, sessions are not yet working.
-
-;; Org-Babel support for evaluating lua source code.
-
-;;; Code:
-(require 'ob)
-(require 'cl-lib)
-
-(declare-function org-remove-indentation "org" (code &optional n))
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function lua-shell "ext:lua-mode" (&optional argprompt))
-(declare-function lua-toggle-shells "ext:lua-mode" (arg))
-(declare-function run-lua "ext:lua" (cmd &optional dedicated show))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("lua" . "lua"))
-
-(defvar org-babel-default-header-args:lua '())
-
-(defcustom org-babel-lua-command "lua"
- "Name of the command for executing Lua code."
- :version "26.1"
- :package-version '(Org . "8.3")
- :group 'org-babel
- :type 'string)
-
-(defcustom org-babel-lua-mode 'lua-mode
- "Preferred lua mode for use in running lua interactively.
-This will typically be 'lua-mode."
- :group 'org-babel
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'symbol)
-
-(defcustom org-babel-lua-hline-to "None"
- "Replace hlines in incoming tables with this when translating to lua."
- :group 'org-babel
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'string)
-
-(defcustom org-babel-lua-None-to 'hline
- "Replace 'None' in lua tables with this before returning."
- :group 'org-babel
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'symbol)
-
-(defun org-babel-execute:lua (body params)
- "Execute a block of Lua code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((session (org-babel-lua-initiate-session
- (cdr (assq :session params))))
- (result-params (cdr (assq :result-params params)))
- (result-type (cdr (assq :result-type params)))
- (return-val (when (and (eq result-type 'value) (not session))
- (cdr (assq :return params))))
- (preamble (cdr (assq :preamble params)))
- (full-body
- (org-babel-expand-body:generic
- (concat body (if return-val (format "\nreturn %s" return-val) ""))
- params (org-babel-variable-assignments:lua params)))
- (result (org-babel-lua-evaluate
- session full-body result-type result-params preamble)))
- (org-babel-reassemble-table
- result
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colnames params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rownames params))))))
-
-(defun org-babel-prep-session:lua (session params)
- "Prepare SESSION according to the header arguments in PARAMS.
-VARS contains resolved variable references"
- (let* ((session (org-babel-lua-initiate-session session))
- (var-lines
- (org-babel-variable-assignments:lua params)))
- (org-babel-comint-in-buffer session
- (mapc (lambda (var)
- (end-of-line 1) (insert var) (comint-send-input)
- (org-babel-comint-wait-for-output session)) var-lines))
- session))
-
-(defun org-babel-load-session:lua (session body params)
- "Load BODY into SESSION."
- (save-window-excursion
- (let ((buffer (org-babel-prep-session:lua session params)))
- (with-current-buffer buffer
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (insert (org-babel-chomp body)))
- buffer)))
-
-;; helper functions
-
-(defun org-babel-variable-assignments:lua (params)
- "Return a list of Lua statements assigning the block's variables."
- (mapcar
- (lambda (pair)
- (format "%s=%s"
- (car pair)
- (org-babel-lua-var-to-lua (cdr pair))))
- (org-babel--get-vars params)))
-
-(defun org-babel-lua-var-to-lua (var)
- "Convert an elisp value to a lua variable.
-Convert an elisp value, VAR, into a string of lua source code
-specifying a variable of the same value."
- (if (listp var)
- (if (and (= 1 (length var)) (not (listp (car var))))
- (org-babel-lua-var-to-lua (car var))
- (if (and
- (= 2 (length var))
- (not (listp (car var))))
- (concat
- (substring-no-properties (car var))
- "="
- (org-babel-lua-var-to-lua (cdr var)))
- (concat "{" (mapconcat #'org-babel-lua-var-to-lua var ", ") "}")))
- (if (eq var 'hline)
- org-babel-lua-hline-to
- (format
- (if (and (stringp var) (string-match "[\n\r]" var)) "\"\"%S\"\"" "%S")
- (if (stringp var) (substring-no-properties var) var)))))
-
-(defun org-babel-lua-table-or-string (results)
- "Convert RESULTS into an appropriate elisp value.
-If the results look like a list or tuple, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
- (let ((res (org-babel-script-escape results)))
- (if (listp res)
- (mapcar (lambda (el) (if (eq el 'None)
- org-babel-lua-None-to el))
- res)
- res)))
-
-(defvar org-babel-lua-buffers '((:default . "*Lua*")))
-
-(defun org-babel-lua-session-buffer (session)
- "Return the buffer associated with SESSION."
- (cdr (assoc session org-babel-lua-buffers)))
-
-(defun org-babel-lua-with-earmuffs (session)
- (let ((name (if (stringp session) session (format "%s" session))))
- (if (and (string= "*" (substring name 0 1))
- (string= "*" (substring name (- (length name) 1))))
- name
- (format "*%s*" name))))
-
-(defun org-babel-lua-without-earmuffs (session)
- (let ((name (if (stringp session) session (format "%s" session))))
- (if (and (string= "*" (substring name 0 1))
- (string= "*" (substring name (- (length name) 1))))
- (substring name 1 (- (length name) 1))
- name)))
-
-(defvar lua-default-interpreter)
-(defvar lua-which-bufname)
-(defvar lua-shell-buffer-name)
-(defun org-babel-lua-initiate-session-by-key (&optional session)
- "Initiate a lua session.
-If there is not a current inferior-process-buffer in SESSION
-then create. Return the initialized session."
- ;; (require org-babel-lua-mode)
- (save-window-excursion
- (let* ((session (if session (intern session) :default))
- (lua-buffer (org-babel-lua-session-buffer session))
- ;; (cmd (if (member system-type '(cygwin windows-nt ms-dos))
- ;; (concat org-babel-lua-command " -i")
- ;; org-babel-lua-command))
- )
- (cond
- ((and (eq 'lua-mode org-babel-lua-mode)
- (fboundp 'lua-start-process)) ; lua-mode.el
- ;; Make sure that lua-which-bufname is initialized, as otherwise
- ;; it will be overwritten the first time a Lua buffer is
- ;; created.
- ;;(lua-toggle-shells lua-default-interpreter)
- ;; `lua-shell' creates a buffer whose name is the value of
- ;; `lua-which-bufname' with '*'s at the beginning and end
- (let* ((bufname (if (and lua-buffer (buffer-live-p lua-buffer))
- (replace-regexp-in-string ;; zap surrounding *
- "^\\*\\([^*]+\\)\\*$" "\\1" (buffer-name lua-buffer))
- (concat "Lua-" (symbol-name session))))
- (lua-which-bufname bufname))
- (lua-start-process)
- (setq lua-buffer (org-babel-lua-with-earmuffs bufname))))
- (t
- (error "No function available for running an inferior Lua")))
- (setq org-babel-lua-buffers
- (cons (cons session lua-buffer)
- (assq-delete-all session org-babel-lua-buffers)))
- session)))
-
-(defun org-babel-lua-initiate-session (&optional session _params)
- "Create a session named SESSION according to PARAMS."
- (unless (string= session "none")
- (error "Sessions currently not supported, work in progress")
- (org-babel-lua-session-buffer
- (org-babel-lua-initiate-session-by-key session))))
-
-(defvar org-babel-lua-eoe-indicator "--eoe"
- "A string to indicate that evaluation has completed.")
-
-(defvar org-babel-lua-wrapper-method
- "
-function main()
-%s
-end
-
-fd=io.open(\"%s\", \"w\")
-fd:write( main() )
-fd:close()")
-(defvar org-babel-lua-pp-wrapper-method
- "
--- table to string
-function t2s(t, indent)
- if indent == nil then
- indent = \"\"
- end
- if type(t) == \"table\" then
- ts = \"\"
- for k,v in pairs(t) do
- if type(v) == \"table\" then
- ts = ts .. indent .. t2s(k,indent .. \" \") .. \" = \\n\" ..
- t2s(v, indent .. \" \")
- else
- ts = ts .. indent .. t2s(k,indent .. \" \") .. \" = \" ..
- t2s(v, indent .. \" \") .. \"\\n\"
- end
- end
- return ts
- else
- return tostring(t)
- end
-end
-
-
-function main()
-%s
-end
-
-fd=io.open(\"%s\", \"w\")
-fd:write(t2s(main()))
-fd:close()")
-
-(defun org-babel-lua-evaluate
- (session body &optional result-type result-params preamble)
- "Evaluate BODY as Lua code."
- (if session
- (org-babel-lua-evaluate-session
- session body result-type result-params)
- (org-babel-lua-evaluate-external-process
- body result-type result-params preamble)))
-
-(defun org-babel-lua-evaluate-external-process
- (body &optional result-type result-params preamble)
- "Evaluate BODY in external lua process.
-If RESULT-TYPE equals 'output then return standard output as a
-string. If RESULT-TYPE equals 'value then return the value of the
-last statement in BODY, as elisp."
- (let ((raw
- (pcase result-type
- (`output (org-babel-eval org-babel-lua-command
- (concat (if preamble (concat preamble "\n"))
- body)))
- (`value (let ((tmp-file (org-babel-temp-file "lua-")))
- (org-babel-eval
- org-babel-lua-command
- (concat
- (if preamble (concat preamble "\n") "")
- (format
- (if (member "pp" result-params)
- org-babel-lua-pp-wrapper-method
- org-babel-lua-wrapper-method)
- (mapconcat
- (lambda (line) (format "\t%s" line))
- (split-string
- (org-remove-indentation
- (org-trim body))
- "[\r\n]") "\n")
- (org-babel-process-file-name tmp-file 'noquote))))
- (org-babel-eval-read-file tmp-file))))))
- (org-babel-result-cond result-params
- raw
- (org-babel-lua-table-or-string (org-trim raw)))))
-
-(defun org-babel-lua-evaluate-session
- (session body &optional result-type result-params)
- "Pass BODY to the Lua process in SESSION.
-If RESULT-TYPE equals 'output then return standard output as a
-string. If RESULT-TYPE equals 'value then return the value of the
-last statement in BODY, as elisp."
- (let* ((send-wait (lambda () (comint-send-input nil t) (sleep-for 0 5)))
- (dump-last-value
- (lambda
- (tmp-file pp)
- (mapc
- (lambda (statement) (insert statement) (funcall send-wait))
- (if pp
- (list
- "-- table to string
-function t2s(t, indent)
- if indent == nil then
- indent = \"\"
- end
- if type(t) == \"table\" then
- ts = \"\"
- for k,v in pairs(t) do
- if type(v) == \"table\" then
- ts = ts .. indent .. t2s(k,indent .. \" \") .. \" = \\n\" ..
- t2s(v, indent .. \" \")
- else
- ts = ts .. indent .. t2s(k,indent .. \" \") .. \" = \" ..
- t2s(v, indent .. \" \") .. \"\\n\"
- end
- end
- return ts
- else
- return tostring(t)
- end
-end
-"
- (concat "fd:write(_))
-fd:close()"
- (org-babel-process-file-name tmp-file 'noquote)))
- (list (format "fd=io.open(\"%s\", \"w\")
-fd:write( _ )
-fd:close()"
- (org-babel-process-file-name tmp-file
- 'noquote)))))))
- (input-body (lambda (body)
- (mapc (lambda (line) (insert line) (funcall send-wait))
- (split-string body "[\r\n]"))
- (funcall send-wait)))
- (results
- (pcase result-type
- (`output
- (mapconcat
- #'org-trim
- (butlast
- (org-babel-comint-with-output
- (session org-babel-lua-eoe-indicator t body)
- (funcall input-body body)
- (funcall send-wait) (funcall send-wait)
- (insert org-babel-lua-eoe-indicator)
- (funcall send-wait))
- 2) "\n"))
- (`value
- (let ((tmp-file (org-babel-temp-file "lua-")))
- (org-babel-comint-with-output
- (session org-babel-lua-eoe-indicator nil body)
- (let ((comint-process-echoes nil))
- (funcall input-body body)
- (funcall dump-last-value tmp-file
- (member "pp" result-params))
- (funcall send-wait) (funcall send-wait)
- (insert org-babel-lua-eoe-indicator)
- (funcall send-wait)))
- (org-babel-eval-read-file tmp-file))))))
- (unless (string= (substring org-babel-lua-eoe-indicator 1 -1) results)
- (org-babel-result-cond result-params
- results
- (org-babel-lua-table-or-string results)))))
-
-(defun org-babel-lua-read-string (string)
- "Strip 's from around Lua string."
- (org-unbracket-string "'" "'" string))
-
-(provide 'ob-lua)
-
-
-
-;;; ob-lua.el ends here
diff --git a/elpa/org-9.1.14/ob-lua.elc b/elpa/org-9.1.14/ob-lua.elc
deleted file mode 100644
index f40f2d4..0000000
--- a/elpa/org-9.1.14/ob-lua.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-makefile.el b/elpa/org-9.1.14/ob-makefile.el
deleted file mode 100644
index 4687037..0000000
--- a/elpa/org-9.1.14/ob-makefile.el
+++ /dev/null
@@ -1,48 +0,0 @@
-;;; ob-makefile.el --- Babel Functions for Makefile -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Thomas S. Dye
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This file exists solely for tangling a Makefile from Org files.
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:makefile '())
-
-(defun org-babel-execute:makefile (body _params)
- "Execute a block of makefile code.
-This function is called by `org-babel-execute-src-block'."
- body)
-
-(defun org-babel-prep-session:makefile (_session _params)
- "Return an error if the :session header argument is set. Make
-does not support sessions."
- (error "Makefile sessions are nonsensical"))
-
-(provide 'ob-makefile)
-
-
-
-;;; ob-makefile.el ends here
diff --git a/elpa/org-9.1.14/ob-makefile.elc b/elpa/org-9.1.14/ob-makefile.elc
deleted file mode 100644
index 6782274..0000000
--- a/elpa/org-9.1.14/ob-makefile.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-matlab.el b/elpa/org-9.1.14/ob-matlab.el
deleted file mode 100644
index 5baac77..0000000
--- a/elpa/org-9.1.14/ob-matlab.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; ob-matlab.el --- Babel support for Matlab -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Dan Davison
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Functions that are common to org-babel support for matlab and
-;; octave are in org-babel-octave.el
-
-;;; Requirements:
-
-;; Matlab
-
-;; matlab.el required for interactive emacs sessions and matlab-mode
-;; major mode for source code editing buffer
-;; http://matlab-emacs.sourceforge.net/
-
-;;; Code:
-(require 'ob)
-(require 'ob-octave)
-
-;; see ob-octave for matlab implementation
-
-(provide 'ob-matlab)
-
-
-
-;;; ob-matlab.el ends here
diff --git a/elpa/org-9.1.14/ob-matlab.elc b/elpa/org-9.1.14/ob-matlab.elc
deleted file mode 100644
index 9c817d4..0000000
--- a/elpa/org-9.1.14/ob-matlab.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-maxima.el b/elpa/org-9.1.14/ob-maxima.el
deleted file mode 100644
index b42a4b8..0000000
--- a/elpa/org-9.1.14/ob-maxima.el
+++ /dev/null
@@ -1,133 +0,0 @@
-;;; ob-maxima.el --- Babel Functions for Maxima -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric S Fraga
-;; Eric Schulte
-;; Keywords: literate programming, reproducible research, maxima
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating maxima entries.
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in maxima
-;;
-;; 2) we are adding the "cmdline" header argument
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("maxima" . "max"))
-
-(defvar org-babel-default-header-args:maxima '())
-
-(defcustom org-babel-maxima-command
- (if (boundp 'maxima-command) maxima-command "maxima")
- "Command used to call maxima on the shell."
- :group 'org-babel
- :type 'string)
-
-(defun org-babel-maxima-expand (body params)
- "Expand a block of Maxima code according to its header arguments."
- (let ((vars (org-babel--get-vars params))
- (epilogue (cdr (assq :epilogue params)))
- (prologue (cdr (assq :prologue params))))
- (mapconcat 'identity
- (list
- ;; Any code from the specified prologue at the start.
- prologue
- ;; graphic output
- (let ((graphic-file (ignore-errors (org-babel-graphical-output-file params))))
- (if graphic-file
- (format
- "set_plot_option ([gnuplot_term, png]); set_plot_option ([gnuplot_out_file, %S]);"
- graphic-file)
- ""))
- ;; variables
- (mapconcat 'org-babel-maxima-var-to-maxima vars "\n")
- ;; body
- body
- ;; Any code from the specified epilogue at the end.
- epilogue
- "gnuplot_close ()$")
- "\n")))
-
-(defun org-babel-execute:maxima (body params)
- "Execute a block of Maxima entries with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (message "executing Maxima source code block")
- (let ((result-params (split-string (or (cdr (assq :results params)) "")))
- (result
- (let* ((cmdline (or (cdr (assq :cmdline params)) ""))
- (in-file (org-babel-temp-file "maxima-" ".max"))
- (cmd (format "%s --very-quiet -r 'batchload(%S)$' %s"
- org-babel-maxima-command in-file cmdline)))
- (with-temp-file in-file (insert (org-babel-maxima-expand body params)))
- (message cmd)
- ;; " | grep -v batch | grep -v 'replaced' | sed '/^$/d' "
- (let ((raw (org-babel-eval cmd "")))
- (mapconcat
- #'identity
- (delq nil
- (mapcar (lambda (line)
- (unless (or (string-match "batch" line)
- (string-match "^rat: replaced .*$" line)
- (string-match "^;;; Loading #P" line)
- (= 0 (length line)))
- line))
- (split-string raw "[\r\n]"))) "\n")))))
- (if (ignore-errors (org-babel-graphical-output-file params))
- nil
- (org-babel-result-cond result-params
- result
- (let ((tmp-file (org-babel-temp-file "maxima-res-")))
- (with-temp-file tmp-file (insert result))
- (org-babel-import-elisp-from-file tmp-file))))))
-
-
-(defun org-babel-prep-session:maxima (_session _params)
- (error "Maxima does not support sessions"))
-
-(defun org-babel-maxima-var-to-maxima (pair)
- "Convert an elisp val into a string of maxima code specifying a var
-of the same value."
- (let ((var (car pair))
- (val (cdr pair)))
- (when (symbolp val)
- (setq val (symbol-name val))
- (when (= (length val) 1)
- (setq val (string-to-char val))))
- (format "%S: %s$" var
- (org-babel-maxima-elisp-to-maxima val))))
-
-(defun org-babel-maxima-elisp-to-maxima (val)
- "Return a string of maxima code which evaluates to VAL."
- (if (listp val)
- (concat "[" (mapconcat #'org-babel-maxima-elisp-to-maxima val ", ") "]")
- (format "%s" val)))
-
-
-(provide 'ob-maxima)
-
-
-
-;;; ob-maxima.el ends here
diff --git a/elpa/org-9.1.14/ob-maxima.elc b/elpa/org-9.1.14/ob-maxima.elc
deleted file mode 100644
index fe85d78..0000000
--- a/elpa/org-9.1.14/ob-maxima.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-mscgen.el b/elpa/org-9.1.14/ob-mscgen.el
deleted file mode 100644
index b2c2443..0000000
--- a/elpa/org-9.1.14/ob-mscgen.el
+++ /dev/null
@@ -1,84 +0,0 @@
-;;; ob-msc.el --- Babel Functions for Mscgen -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Juan Pechiar
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; This software provides EMACS org-babel export support for message
-;; sequence charts. The mscgen utility is used for processing the
-;; sequence definition, and must therefore be installed in the system.
-;;
-;; Mscgen is available and documented at
-;; http://www.mcternan.me.uk/mscgen/index.html
-;;
-;; This code is directly inspired by Eric Schulte's ob-dot.el
-;;
-;; Example:
-;;
-;; #+begin_src mscgen :file example.png
-;; msc {
-;; A,B;
-;; A -> B [ label = "send message" ];
-;; A <- B [ label = "get answer" ];
-;; }
-;; #+end_src
-;;
-;; Header for alternative file type:
-;;
-;; #+begin_src mscgen :file ex2.svg :filetype svg
-
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in mscgen
-;; 2) we are generally only going to return results of type "file"
-;; 3) we are adding the "file" and "filetype" header arguments
-;; 4) there are no variables
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:mscgen
- '((:results . "file") (:exports . "results"))
- "Default arguments to use when evaluating a mscgen source block.")
-
-(defun org-babel-execute:mscgen (body params)
- "Execute a block of Mscgen code with Babel.
-This function is called by `org-babel-execute-src-block'.
-Default filetype is png. Modify by setting :filetype parameter to
-mscgen supported formats."
- (let* ((out-file (or (cdr (assq :file params)) "output.png" ))
- (filetype (or (cdr (assq :filetype params)) "png" )))
- (unless (cdr (assq :file params))
- (error "
-ERROR: no output file specified. Add \":file name.png\" to the src header"))
- (org-babel-eval (concat "mscgen -T " filetype " -o " out-file) body)
- nil)) ;; signal that output has already been written to file
-
-(defun org-babel-prep-session:mscgen (_session _params)
- "Raise an error because Mscgen doesn't support sessions."
- (error "Mscgen does not support sessions"))
-
-(provide 'ob-mscgen)
-
-
-
-;;; ob-msc.el ends here
diff --git a/elpa/org-9.1.14/ob-mscgen.elc b/elpa/org-9.1.14/ob-mscgen.elc
deleted file mode 100644
index 91e1ce7..0000000
--- a/elpa/org-9.1.14/ob-mscgen.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-ocaml.el b/elpa/org-9.1.14/ob-ocaml.el
deleted file mode 100644
index 90926b5..0000000
--- a/elpa/org-9.1.14/ob-ocaml.el
+++ /dev/null
@@ -1,171 +0,0 @@
-;;; ob-ocaml.el --- Babel Functions for Ocaml -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating ocaml source code. This one will
-;; be sort of tricky because ocaml programs must be compiled before
-;; they can be run, but ocaml code can also be run through an
-;; interactive interpreter.
-;;
-;; For now lets only allow evaluation using the ocaml interpreter.
-
-;;; Requirements:
-
-;; - tuareg-mode :: http://www-rocq.inria.fr/~acohen/tuareg/
-
-;;; Code:
-(require 'ob)
-(require 'comint)
-
-(declare-function tuareg-run-caml "ext:tuareg" ())
-(declare-function tuareg-run-ocaml "ext:tuareg" ())
-(declare-function tuareg-interactive-send-input "ext:tuareg" ())
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("ocaml" . "ml"))
-
-(defvar org-babel-default-header-args:ocaml '())
-
-(defvar org-babel-ocaml-eoe-indicator "\"org-babel-ocaml-eoe\";;")
-(defvar org-babel-ocaml-eoe-output "org-babel-ocaml-eoe")
-
-(defcustom org-babel-ocaml-command "ocaml"
- "Name of the command for executing Ocaml code."
- :version "24.4"
- :package-version '(Org . "8.0")
- :group 'org-babel
- :type 'string)
-
-(defun org-babel-execute:ocaml (body params)
- "Execute a block of Ocaml code with Babel."
- (let* ((full-body (org-babel-expand-body:generic
- body params
- (org-babel-variable-assignments:ocaml params)))
- (session (org-babel-prep-session:ocaml
- (cdr (assq :session params)) params))
- (raw (org-babel-comint-with-output
- (session org-babel-ocaml-eoe-output nil full-body)
- (insert
- (concat
- (org-babel-chomp full-body) ";;\n"
- org-babel-ocaml-eoe-indicator))
- (tuareg-interactive-send-input)))
- (clean
- (car (let ((re (regexp-quote org-babel-ocaml-eoe-output)) out)
- (delq nil (mapcar (lambda (line)
- (if out
- (progn (setq out nil) line)
- (when (string-match re line)
- (progn (setq out t) nil))))
- (mapcar #'org-trim (reverse raw)))))))
- (raw (org-trim clean))
- (result-params (cdr (assq :result-params params))))
- (string-match
- "\\(\\(.*\n\\)*\\)[^:\n]+ : \\([^=\n]+\\) =\\(\n\\| \\)\\(.+\\)$"
- raw)
- (let ((output (match-string 1 raw))
- (type (match-string 3 raw))
- (value (match-string 5 raw)))
- (org-babel-reassemble-table
- (org-babel-result-cond result-params
- (cond
- ((member "verbatim" result-params) raw)
- ((member "output" result-params) output)
- (t raw))
- (if (and value type)
- (org-babel-ocaml-parse-output value type)
- raw))
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params)))))))
-
-(defvar tuareg-interactive-buffer-name)
-(defun org-babel-prep-session:ocaml (session _params)
- "Prepare SESSION according to the header arguments in PARAMS."
- (require 'tuareg)
- (let ((tuareg-interactive-buffer-name (if (and (not (string= session "none"))
- (not (string= session "default"))
- (stringp session))
- session
- tuareg-interactive-buffer-name)))
- (save-window-excursion (if (fboundp 'tuareg-run-process-if-needed)
- (tuareg-run-process-if-needed org-babel-ocaml-command)
- (tuareg-run-caml)))
- (get-buffer tuareg-interactive-buffer-name)))
-
-(defun org-babel-variable-assignments:ocaml (params)
- "Return list of ocaml statements assigning the block's variables."
- (mapcar
- (lambda (pair) (format "let %s = %s;;" (car pair)
- (org-babel-ocaml-elisp-to-ocaml (cdr pair))))
- (org-babel--get-vars params)))
-
-(defun org-babel-ocaml-elisp-to-ocaml (val)
- "Return a string of ocaml code which evaluates to VAL."
- (if (listp val)
- (concat "[|" (mapconcat #'org-babel-ocaml-elisp-to-ocaml val "; ") "|]")
- (format "%S" val)))
-
-(defun org-babel-ocaml-parse-output (value type)
- "Parse VALUE of type TYPE.
-VALUE and TYPE are string output from an ocaml process."
- (cond
- ((string= "string" type)
- (org-babel-read value))
- ((or (string= "int" type)
- (string= "float" type))
- (string-to-number value))
- ((string-match "list" type)
- (org-babel-ocaml-read-list value))
- ((string-match "array" type)
- (org-babel-ocaml-read-array value))
- (t (message "don't recognize type %s" type) value)))
-
-(defun org-babel-ocaml-read-list (results)
- "Convert RESULTS into an elisp table or string.
-If the results look like a table, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
- ;; XXX: This probably does not behave as expected when a semicolon
- ;; is in a string in a list. The same comment applies to
- ;; `org-babel-ocaml-read-array' below (with even more failure
- ;; modes).
- (org-babel-script-escape (replace-regexp-in-string ";" "," results)))
-
-(defun org-babel-ocaml-read-array (results)
- "Convert RESULTS into an elisp table or string.
-If the results look like a table, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
- (org-babel-script-escape
- (replace-regexp-in-string
- "\\[|" "[" (replace-regexp-in-string
- "|\\]" "]" (replace-regexp-in-string
- "; " "," results)))))
-
-(provide 'ob-ocaml)
-
-
-
-;;; ob-ocaml.el ends here
diff --git a/elpa/org-9.1.14/ob-ocaml.elc b/elpa/org-9.1.14/ob-ocaml.elc
deleted file mode 100644
index 4090dc0..0000000
--- a/elpa/org-9.1.14/ob-ocaml.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-octave.el b/elpa/org-9.1.14/ob-octave.el
deleted file mode 100644
index c7339cf..0000000
--- a/elpa/org-9.1.14/ob-octave.el
+++ /dev/null
@@ -1,266 +0,0 @@
-;;; ob-octave.el --- Babel Functions for Octave and Matlab -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Dan Davison
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Requirements:
-
-;; octave
-;; octave-mode.el and octave-inf.el come with GNU emacs
-
-;;; Code:
-(require 'ob)
-
-(declare-function matlab-shell "ext:matlab-mode")
-(declare-function matlab-shell-run-region "ext:matlab-mode")
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-default-header-args:matlab '())
-(defvar org-babel-default-header-args:octave '())
-
-(defvar org-babel-matlab-shell-command "matlab -nosplash"
- "Shell command to run matlab as an external process.")
-(defvar org-babel-octave-shell-command "octave -q"
- "Shell command to run octave as an external process.")
-
-(defvar org-babel-matlab-with-emacs-link nil
- "If non-nil use matlab-shell-run-region for session evaluation.
- This will use EmacsLink if (matlab-with-emacs-link) evaluates
- to a non-nil value.")
-
-(defvar org-babel-matlab-emacs-link-wrapper-method
- "%s
-if ischar(ans), fid = fopen('%s', 'w'); fprintf(fid, '%%s\\n', ans); fclose(fid);
-else, save -ascii %s ans
-end
-delete('%s')
-")
-(defvar org-babel-octave-wrapper-method
- "%s
-if ischar(ans), fid = fopen('%s', 'w'); fprintf(fid, '%%s\\n', ans); fclose(fid);
-else, dlmwrite('%s', ans, '\\t')
-end")
-
-(defvar org-babel-octave-eoe-indicator "'org_babel_eoe'")
-
-(defvar org-babel-octave-eoe-output "ans = org_babel_eoe")
-
-(defun org-babel-execute:matlab (body params)
- "Execute a block of matlab code with Babel."
- (org-babel-execute:octave body params 'matlab))
-
-(defun org-babel-execute:octave (body params &optional matlabp)
- "Execute a block of octave code with Babel."
- (let* ((session
- (funcall (intern (format "org-babel-%s-initiate-session"
- (if matlabp "matlab" "octave")))
- (cdr (assq :session params)) params))
- (result-type (cdr (assq :result-type params)))
- (full-body
- (org-babel-expand-body:generic
- body params (org-babel-variable-assignments:octave params)))
- (gfx-file (ignore-errors (org-babel-graphical-output-file params)))
- (result (org-babel-octave-evaluate
- session
- (if gfx-file
- (mapconcat 'identity
- (list
- "set (0, \"defaultfigurevisible\", \"off\");"
- full-body
- (format "print -dpng %s" gfx-file))
- "\n")
- full-body)
- result-type matlabp)))
- (if gfx-file
- nil
- (org-babel-reassemble-table
- result
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params)))))))
-
-(defun org-babel-prep-session:matlab (session params)
- "Prepare SESSION according to PARAMS."
- (org-babel-prep-session:octave session params 'matlab))
-
-(defun org-babel-variable-assignments:octave (params)
- "Return list of octave statements assigning the block's variables."
- (mapcar
- (lambda (pair)
- (format "%s=%s;"
- (car pair)
- (org-babel-octave-var-to-octave (cdr pair))))
- (org-babel--get-vars params)))
-
-(defalias 'org-babel-variable-assignments:matlab
- 'org-babel-variable-assignments:octave)
-
-(defun org-babel-octave-var-to-octave (var)
- "Convert an emacs-lisp value into an octave variable.
-Converts an emacs-lisp variable into a string of octave code
-specifying a variable of the same value."
- (if (listp var)
- (concat "[" (mapconcat #'org-babel-octave-var-to-octave var
- (if (listp (car var)) "; " ",")) "]")
- (cond
- ((stringp var)
- (format "'%s'" var))
- (t
- (format "%s" var)))))
-
-(defun org-babel-prep-session:octave (session params &optional matlabp)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- (let* ((session (org-babel-octave-initiate-session session params matlabp))
- (var-lines (org-babel-variable-assignments:octave params)))
- (org-babel-comint-in-buffer session
- (mapc (lambda (var)
- (end-of-line 1) (insert var) (comint-send-input nil t)
- (org-babel-comint-wait-for-output session)) var-lines))
- session))
-
-(defun org-babel-matlab-initiate-session (&optional session params)
- "Create a matlab inferior process buffer.
-If there is not a current inferior-process-buffer in SESSION then
-create. Return the initialized session."
- (org-babel-octave-initiate-session session params 'matlab))
-
-(defun org-babel-octave-initiate-session (&optional session _params matlabp)
- "Create an octave inferior process buffer.
-If there is not a current inferior-process-buffer in SESSION then
-create. Return the initialized session."
- (if matlabp (require 'matlab) (or (require 'octave-inf nil 'noerror)
- (require 'octave)))
- (unless (string= session "none")
- (let ((session (or session
- (if matlabp "*Inferior Matlab*" "*Inferior Octave*"))))
- (if (org-babel-comint-buffer-livep session) session
- (save-window-excursion
- (if matlabp (unless org-babel-matlab-with-emacs-link (matlab-shell))
- (run-octave))
- (rename-buffer (if (bufferp session) (buffer-name session)
- (if (stringp session) session (buffer-name))))
- (current-buffer))))))
-
-(defun org-babel-octave-evaluate
- (session body result-type &optional matlabp)
- "Pass BODY to the octave process in SESSION.
-If RESULT-TYPE equals `output' then return the outputs of the
-statements in BODY, if RESULT-TYPE equals `value' then return the
-value of the last statement in BODY, as elisp."
- (if session
- (org-babel-octave-evaluate-session session body result-type matlabp)
- (org-babel-octave-evaluate-external-process body result-type matlabp)))
-
-(defun org-babel-octave-evaluate-external-process (body result-type matlabp)
- "Evaluate BODY in an external octave process."
- (let ((cmd (if matlabp
- org-babel-matlab-shell-command
- org-babel-octave-shell-command)))
- (pcase result-type
- (`output (org-babel-eval cmd body))
- (`value (let ((tmp-file (org-babel-temp-file "octave-")))
- (org-babel-eval
- cmd
- (format org-babel-octave-wrapper-method body
- (org-babel-process-file-name tmp-file 'noquote)
- (org-babel-process-file-name tmp-file 'noquote)))
- (org-babel-octave-import-elisp-from-file tmp-file))))))
-
-(defun org-babel-octave-evaluate-session
- (session body result-type &optional matlabp)
- "Evaluate BODY in SESSION."
- (let* ((tmp-file (org-babel-temp-file (if matlabp "matlab-" "octave-")))
- (wait-file (org-babel-temp-file "matlab-emacs-link-wait-signal-"))
- (full-body
- (pcase result-type
- (`output
- (mapconcat
- #'org-babel-chomp
- (list body org-babel-octave-eoe-indicator) "\n"))
- (`value
- (if (and matlabp org-babel-matlab-with-emacs-link)
- (concat
- (format org-babel-matlab-emacs-link-wrapper-method
- body
- (org-babel-process-file-name tmp-file 'noquote)
- (org-babel-process-file-name tmp-file 'noquote) wait-file) "\n")
- (mapconcat
- #'org-babel-chomp
- (list (format org-babel-octave-wrapper-method
- body
- (org-babel-process-file-name tmp-file 'noquote)
- (org-babel-process-file-name tmp-file 'noquote))
- org-babel-octave-eoe-indicator) "\n")))))
- (raw (if (and matlabp org-babel-matlab-with-emacs-link)
- (save-window-excursion
- (with-temp-buffer
- (insert full-body)
- (write-region "" 'ignored wait-file nil nil nil 'excl)
- (matlab-shell-run-region (point-min) (point-max))
- (message "Waiting for Matlab Emacs Link")
- (while (file-exists-p wait-file) (sit-for 0.01))
- "")) ;; matlab-shell-run-region doesn't seem to
- ;; make *matlab* buffer contents easily
- ;; available, so :results output currently
- ;; won't work
- (org-babel-comint-with-output
- (session
- (if matlabp
- org-babel-octave-eoe-indicator
- org-babel-octave-eoe-output)
- t full-body)
- (insert full-body) (comint-send-input nil t)))) results)
- (pcase result-type
- (`value
- (org-babel-octave-import-elisp-from-file tmp-file))
- (`output
- (setq results
- (if matlabp
- (cdr (reverse (delq "" (mapcar
- #'org-babel-strip-quotes
- (mapcar #'org-trim raw)))))
- (cdr (member org-babel-octave-eoe-output
- (reverse (mapcar
- #'org-babel-strip-quotes
- (mapcar #'org-trim raw)))))))
- (mapconcat #'identity (reverse results) "\n")))))
-
-(defun org-babel-octave-import-elisp-from-file (file-name)
- "Import data from FILE-NAME.
-This removes initial blank and comment lines and then calls
-`org-babel-import-elisp-from-file'."
- (let ((temp-file (org-babel-temp-file "octave-matlab-")) beg end)
- (with-temp-file temp-file
- (insert-file-contents file-name)
- (re-search-forward "^[ \t]*[^# \t]" nil t)
- (if (< (setq beg (point-min))
- (setq end (point-at-bol)))
- (delete-region beg end)))
- (org-babel-import-elisp-from-file temp-file '(16))))
-
-(provide 'ob-octave)
-
-
-
-;;; ob-octave.el ends here
diff --git a/elpa/org-9.1.14/ob-octave.elc b/elpa/org-9.1.14/ob-octave.elc
deleted file mode 100644
index 08695ff..0000000
--- a/elpa/org-9.1.14/ob-octave.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-org.el b/elpa/org-9.1.14/ob-org.el
deleted file mode 100644
index 7a495fa..0000000
--- a/elpa/org-9.1.14/ob-org.el
+++ /dev/null
@@ -1,72 +0,0 @@
-;;; ob-org.el --- Babel Functions for Org Code Blocks -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This is the simplest of code blocks, where upon evaluation the
-;; contents of the code block are returned in a raw result.
-
-;;; Code:
-(require 'ob)
-
-(declare-function org-export-string-as "ox"
- (string backend &optional body-only ext-plist))
-
-(defvar org-babel-default-header-args:org
- '((:results . "raw silent") (:exports . "code"))
- "Default arguments for evaluating an org source block.")
-
-(defvar org-babel-org-default-header
- "#+TITLE: default empty header\n"
- "Default header inserted during export of org blocks.")
-
-(defun org-babel-expand-body:org (body params)
- (dolist (var (org-babel--get-vars params))
- (setq body (replace-regexp-in-string
- (regexp-quote (format "$%s" (car var)))
- (format "%s" (cdr var))
- body nil 'literal)))
- body)
-
-(defun org-babel-execute:org (body params)
- "Execute a block of Org code with.
-This function is called by `org-babel-execute-src-block'."
- (let ((result-params (split-string (or (cdr (assq :results params)) "")))
- (body (org-babel-expand-body:org
- (replace-regexp-in-string "^," "" body) params)))
- (cond
- ((member "latex" result-params)
- (org-export-string-as (concat "#+Title: \n" body) 'latex t))
- ((member "html" result-params) (org-export-string-as body 'html t))
- ((member "ascii" result-params) (org-export-string-as body 'ascii t))
- (t body))))
-
-(defun org-babel-prep-session:org (_session _params)
- "Return an error because org does not support sessions."
- (error "Org does not support sessions"))
-
-(provide 'ob-org)
-
-
-
-;;; ob-org.el ends here
diff --git a/elpa/org-9.1.14/ob-org.elc b/elpa/org-9.1.14/ob-org.elc
deleted file mode 100644
index 4668e20..0000000
--- a/elpa/org-9.1.14/ob-org.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-perl.el b/elpa/org-9.1.14/ob-perl.el
deleted file mode 100644
index 85806fd..0000000
--- a/elpa/org-9.1.14/ob-perl.el
+++ /dev/null
@@ -1,157 +0,0 @@
-;;; ob-perl.el --- Babel Functions for Perl -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Dan Davison
-;; Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating perl source code.
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("perl" . "pl"))
-
-(defvar org-babel-default-header-args:perl '())
-
-(defvar org-babel-perl-command "perl"
- "Name of command to use for executing perl code.")
-
-(defun org-babel-execute:perl (body params)
- "Execute a block of Perl code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((session (cdr (assq :session params)))
- (result-params (cdr (assq :result-params params)))
- (result-type (cdr (assq :result-type params)))
- (full-body (org-babel-expand-body:generic
- body params (org-babel-variable-assignments:perl params)))
- (session (org-babel-perl-initiate-session session)))
- (org-babel-reassemble-table
- (org-babel-perl-evaluate session full-body result-type result-params)
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))
-
-(defun org-babel-prep-session:perl (_session _params)
- "Prepare SESSION according to the header arguments in PARAMS."
- (error "Sessions are not supported for Perl"))
-
-(defun org-babel-variable-assignments:perl (params)
- "Return list of perl statements assigning the block's variables."
- (mapcar
- (lambda (pair)
- (org-babel-perl--var-to-perl (cdr pair) (car pair)))
- (org-babel--get-vars params)))
-
-;; helper functions
-
-(defvar org-babel-perl-var-wrap "q(%s)"
- "Wrapper for variables inserted into Perl code.")
-
-(defvar org-babel-perl--lvl)
-(defun org-babel-perl--var-to-perl (var &optional varn)
- "Convert an elisp value to a perl variable.
-The elisp value, VAR, is converted to a string of perl source code
-specifying a var of the same value."
- (if varn
- (let ((org-babel-perl--lvl 0) (lvar (listp var)))
- (concat "my $" (symbol-name varn) "=" (when lvar "\n")
- (org-babel-perl--var-to-perl var)
- ";\n"))
- (let ((prefix (make-string (* 2 org-babel-perl--lvl) ?\ )))
- (concat prefix
- (if (listp var)
- (let ((org-babel-perl--lvl (1+ org-babel-perl--lvl)))
- (concat "[\n"
- (mapconcat #'org-babel-perl--var-to-perl var "")
- prefix "]"))
- (format "q(%s)" var))
- (unless (zerop org-babel-perl--lvl) ",\n")))))
-
-(defvar org-babel-perl-buffers '(:default . nil))
-
-(defun org-babel-perl-initiate-session (&optional _session _params)
- "Return nil because sessions are not supported by perl."
- nil)
-
-(defvar org-babel-perl-wrapper-method "{
- my $babel_sub = sub {
- %s
- };
- open my $BOH, qq(>%s) or die qq(Perl: Could not open output file.$/);
- my $rv = &$babel_sub();
- my $rt = ref $rv;
- select $BOH;
- if (qq(ARRAY) eq $rt) {
- local $\\=$/;
- local $,=qq(\t);
- foreach my $rv ( @$rv ) {
- my $rt = ref $rv;
- if (qq(ARRAY) eq $rt) {
- print @$rv;
- } else {
- print $rv;
- }
- }
- } else {
- print $rv;
- }
-}")
-
-(defvar org-babel-perl-preface nil)
-
-(defvar org-babel-perl-pp-wrapper-method
- nil)
-
-(defun org-babel-perl-evaluate (session ibody &optional result-type result-params)
- "Pass BODY to the Perl process in SESSION.
-If RESULT-TYPE equals `output' then return a list of the outputs
-of the statements in BODY, if RESULT-TYPE equals `value' then
-return the value of the last statement in BODY, as elisp."
- (when session (error "Sessions are not supported for Perl"))
- (let* ((body (concat org-babel-perl-preface ibody))
- (tmp-file (org-babel-temp-file "perl-"))
- (tmp-babel-file (org-babel-process-file-name
- tmp-file 'noquote)))
- (let ((results
- (pcase result-type
- (`output
- (with-temp-file tmp-file
- (insert
- (org-babel-eval org-babel-perl-command body))
- (buffer-string)))
- (`value
- (org-babel-eval org-babel-perl-command
- (format org-babel-perl-wrapper-method
- body tmp-babel-file))))))
- (when results
- (org-babel-result-cond result-params
- (org-babel-eval-read-file tmp-file)
- (org-babel-import-elisp-from-file tmp-file '(16)))))))
-
-(provide 'ob-perl)
-
-
-
-;;; ob-perl.el ends here
diff --git a/elpa/org-9.1.14/ob-perl.elc b/elpa/org-9.1.14/ob-perl.elc
deleted file mode 100644
index f492b5a..0000000
--- a/elpa/org-9.1.14/ob-perl.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-picolisp.el b/elpa/org-9.1.14/ob-picolisp.el
deleted file mode 100644
index cc2c8a8..0000000
--- a/elpa/org-9.1.14/ob-picolisp.el
+++ /dev/null
@@ -1,187 +0,0 @@
-;;; ob-picolisp.el --- Babel Functions for Picolisp -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Authors: Thorsten Jolitz
-;; Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library enables the use of PicoLisp in the multi-language
-;; programming framework Org-Babel. PicoLisp is a minimal yet
-;; fascinating lisp dialect and a highly productive application
-;; framework for web-based client-server applications on top of
-;; object-oriented databases. A good way to learn PicoLisp is to first
-;; read Paul Grahams essay "The hundred year language"
-;; (http://www.paulgraham.com/hundred.html) and then study the various
-;; documents and essays published in the PicoLisp wiki
-;; (http://picolisp.com/5000/-2.html). PicoLisp is included in some
-;; GNU/Linux Distributions, and can be downloaded here:
-;; http://software-lab.de/down.html. It ships with a picolisp-mode and
-;; an inferior-picolisp-mode for Emacs (to be found in the /lib/el/
-;; directory).
-
-;; Although it might seem more natural to use Emacs Lisp for most
-;; Lisp-based programming tasks inside Org, an Emacs library written
-;; in Emacs Lisp, PicoLisp has at least two outstanding features that
-;; make it a valuable addition to Org Babel:
-
-;; PicoLisp _is_ an object-oriented database with a Prolog-based query
-;; language implemented in PicoLisp (Pilog). Database objects are
-;; first-class members of the language.
-
-;; PicoLisp is an extremely productive framework for the development
-;; of interactive web-applications (on top of a database).
-
-;;; Requirements:
-
-;;; Code:
-(require 'ob)
-(require 'comint)
-
-(declare-function run-picolisp "ext:inferior-picolisp" (cmd))
-(defvar org-babel-tangle-lang-exts) ;; Autoloaded
-
-;; optionally define a file extension for this language
-(add-to-list 'org-babel-tangle-lang-exts '("picolisp" . "l"))
-
-;;; interferes with settings in org-babel buffer?
-;; optionally declare default header arguments for this language
-;; (defvar org-babel-default-header-args:picolisp
-;; '((:colnames . "no"))
-;; "Default arguments for evaluating a picolisp source block.")
-
-(defvar org-babel-picolisp-eoe "org-babel-picolisp-eoe"
- "String to indicate that evaluation has completed.")
-
-(defcustom org-babel-picolisp-cmd "pil"
- "Name of command used to evaluate picolisp blocks."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defun org-babel-expand-body:picolisp (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let ((vars (org-babel--get-vars params))
- (print-level nil)
- (print-length nil))
- (if (> (length vars) 0)
- (concat "(prog (let ("
- (mapconcat
- (lambda (var)
- (format "%S '%S)"
- (print (car var))
- (print (cdr var))))
- vars "\n ")
- " \n" body ") )")
- body)))
-
-(defun org-babel-execute:picolisp (body params)
- "Execute a block of Picolisp code with org-babel. This function is
- called by `org-babel-execute-src-block'"
- (message "executing Picolisp source code block")
- (let* (
- ;; Name of the session or "none".
- (session-name (cdr (assq :session params)))
- ;; Set the session if the session variable is non-nil.
- (session (org-babel-picolisp-initiate-session session-name))
- ;; Either OUTPUT or VALUE which should behave as described above.
- (result-params (cdr (assq :result-params params)))
- ;; Expand the body with `org-babel-expand-body:picolisp'.
- (full-body (org-babel-expand-body:picolisp body params))
- ;; Wrap body appropriately for the type of evaluation and results.
- (wrapped-body
- (cond
- ((or (member "code" result-params)
- (member "pp" result-params))
- (format "(pretty (out \"/dev/null\" %s))" full-body))
- ((and (member "value" result-params) (not session))
- (format "(print (out \"/dev/null\" %s))" full-body))
- ((member "value" result-params)
- (format "(out \"/dev/null\" %s)" full-body))
- (t full-body)))
- (result
- (if (not (string= session-name "none"))
- ;; Session based evaluation.
- (mapconcat ;; <- joins the list back into a single string
- #'identity
- (butlast ;; <- remove the org-babel-picolisp-eoe line
- (delq nil
- (mapcar
- (lambda (line)
- (org-babel-chomp ;; Remove trailing newlines.
- (when (> (length line) 0) ;; Remove empty lines.
- (cond
- ;; Remove leading "-> " from return values.
- ((and (>= (length line) 3)
- (string= "-> " (substring line 0 3)))
- (substring line 3))
- ;; Remove trailing "-> <<return-value>>" on the
- ;; last line of output.
- ((and (member "output" result-params)
- (string-match-p "->" line))
- (substring line 0 (string-match "->" line)))
- (t line)
- )
- ;;(if (and (>= (length line) 3);Remove leading "<-"
- ;; (string= "-> " (substring line 0 3)))
- ;; (substring line 3)
- ;; line)
- )))
- ;; Returns a list of the output of each evaluated exp.
- (org-babel-comint-with-output
- (session org-babel-picolisp-eoe)
- (insert wrapped-body) (comint-send-input)
- (insert "'" org-babel-picolisp-eoe)
- (comint-send-input)))))
- "\n")
- ;; external evaluation
- (let ((script-file (org-babel-temp-file "picolisp-script-")))
- (with-temp-file script-file
- (insert (concat wrapped-body "(bye)")))
- (org-babel-eval
- (format "%s %s"
- org-babel-picolisp-cmd
- (org-babel-process-file-name script-file))
- "")))))
- (org-babel-result-cond result-params
- result
- (read result))))
-
-(defun org-babel-picolisp-initiate-session (&optional session-name)
- "If there is not a current inferior-process-buffer in SESSION
-then create. Return the initialized session."
- (unless (string= session-name "none")
- (require 'inferior-picolisp)
- ;; provide a reasonable default session name
- (let ((session (or session-name "*inferior-picolisp*")))
- ;; check if we already have a live session by this name
- (if (org-babel-comint-buffer-livep session)
- (get-buffer session)
- (save-window-excursion
- (run-picolisp org-babel-picolisp-cmd)
- (rename-buffer session-name)
- (current-buffer))))))
-
-(provide 'ob-picolisp)
-
-
-
-;;; ob-picolisp.el ends here
diff --git a/elpa/org-9.1.14/ob-picolisp.elc b/elpa/org-9.1.14/ob-picolisp.elc
deleted file mode 100644
index 6030007..0000000
--- a/elpa/org-9.1.14/ob-picolisp.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-plantuml.el b/elpa/org-9.1.14/ob-plantuml.el
deleted file mode 100644
index 9a9313e..0000000
--- a/elpa/org-9.1.14/ob-plantuml.el
+++ /dev/null
@@ -1,126 +0,0 @@
-;;; ob-plantuml.el --- Babel Functions for Plantuml -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Zhang Weize
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating plantuml script.
-;;
-;; Inspired by Ian Yang's org-export-blocks-format-plantuml
-;; http://www.emacswiki.org/emacs/org-export-blocks-format-plantuml.el
-
-;;; Requirements:
-
-;; plantuml | http://plantuml.sourceforge.net/
-;; plantuml.jar | `org-plantuml-jar-path' should point to the jar file
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:plantuml
- '((:results . "file") (:exports . "results"))
- "Default arguments for evaluating a plantuml source block.")
-
-(defcustom org-plantuml-jar-path ""
- "Path to the plantuml.jar file."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defun org-babel-variable-assignments:plantuml (params)
- "Return a list of PlantUML statements assigning the block's variables.
-PARAMS is a property list of source block parameters, which may
-contain multiple entries for the key `:var'. `:var' entries in PARAMS
-are expected to be scalar variables."
- (mapcar
- (lambda (pair)
- (format "!define %s %s"
- (car pair)
- (replace-regexp-in-string "\"" "" (cdr pair))))
- (org-babel--get-vars params)))
-
-(defun org-babel-plantuml-make-body (body params)
- "Return PlantUML input string.
-BODY is the content of the source block and PARAMS is a property list
-of source block parameters. This function relies on the
-`org-babel-expand-body:generic' function to extract `:var' entries
-from PARAMS and on the `org-babel-variable-assignments:plantuml'
-function to convert variables to PlantUML assignments."
- (concat
- "@startuml\n"
- (org-babel-expand-body:generic
- body params (org-babel-variable-assignments:plantuml params))
- "\n@enduml"))
-
-(defun org-babel-execute:plantuml (body params)
- "Execute a block of plantuml code with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((out-file (or (cdr (assq :file params))
- (error "PlantUML requires a \":file\" header argument")))
- (cmdline (cdr (assq :cmdline params)))
- (in-file (org-babel-temp-file "plantuml-"))
- (java (or (cdr (assq :java params)) ""))
- (full-body (org-babel-plantuml-make-body body params))
- (cmd (if (string= "" org-plantuml-jar-path)
- (error "`org-plantuml-jar-path' is not set")
- (concat "java " java " -jar "
- (shell-quote-argument
- (expand-file-name org-plantuml-jar-path))
- (if (string= (file-name-extension out-file) "png")
- " -tpng" "")
- (if (string= (file-name-extension out-file) "svg")
- " -tsvg" "")
- (if (string= (file-name-extension out-file) "eps")
- " -teps" "")
- (if (string= (file-name-extension out-file) "pdf")
- " -tpdf" "")
- (if (string= (file-name-extension out-file) "vdx")
- " -tvdx" "")
- (if (string= (file-name-extension out-file) "xmi")
- " -txmi" "")
- (if (string= (file-name-extension out-file) "scxml")
- " -tscxml" "")
- (if (string= (file-name-extension out-file) "html")
- " -thtml" "")
- (if (string= (file-name-extension out-file) "txt")
- " -ttxt" "")
- (if (string= (file-name-extension out-file) "utxt")
- " -utxt" "")
- " -p " cmdline " < "
- (org-babel-process-file-name in-file)
- " > "
- (org-babel-process-file-name out-file)))))
- (unless (file-exists-p org-plantuml-jar-path)
- (error "Could not find plantuml.jar at %s" org-plantuml-jar-path))
- (with-temp-file in-file (insert full-body))
- (message "%s" cmd) (org-babel-eval cmd "")
- nil)) ;; signal that output has already been written to file
-
-(defun org-babel-prep-session:plantuml (_session _params)
- "Return an error because plantuml does not support sessions."
- (error "Plantuml does not support sessions"))
-
-(provide 'ob-plantuml)
-
-
-
-;;; ob-plantuml.el ends here
diff --git a/elpa/org-9.1.14/ob-plantuml.elc b/elpa/org-9.1.14/ob-plantuml.elc
deleted file mode 100644
index 8a67474..0000000
--- a/elpa/org-9.1.14/ob-plantuml.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-processing.el b/elpa/org-9.1.14/ob-processing.el
deleted file mode 100644
index 1a88930..0000000
--- a/elpa/org-9.1.14/ob-processing.el
+++ /dev/null
@@ -1,195 +0,0 @@
-;;; ob-processing.el --- Babel functions for processing -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015-2018 Free Software Foundation, Inc.
-
-;; Author: Jarmo Hurri (adapted from ob-asymptote.el written by Eric Schulte)
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Babel support for evaluating processing source code.
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in processing
-;;
-;; 2) results can only be exported as html; in this case, the
-;; processing code is embedded via a file into a javascript block
-;; using the processing.js module; the script then draws the
-;; resulting output when the web page is viewed in a browser; note
-;; that the user is responsible for making sure that processing.js
-;; is available on the website
-;;
-;; 3) it is possible to interactively view the sketch of the
-;; Processing code block via Processing 2.0 Emacs mode, using
-;; `org-babel-processing-view-sketch'. You can bind this command
-;; to, e.g., C-c C-v C-k with
-;;
-;; (define-key org-babel-map (kbd "C-k") 'org-babel-processing-view-sketch)
-
-
-;;; Requirements:
-
-;; - processing2-emacs mode :: https://github.com/ptrv/processing2-emacs
-;; - Processing.js module :: http://processingjs.org/
-
-;;; Code:
-(require 'ob)
-(require 'sha1)
-
-(declare-function processing-sketch-run "ext:processing-mode" ())
-
-(defvar org-babel-temporary-directory)
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("processing" . "pde"))
-
-;; Default header tags depend on whether exporting html or not; if not
-;; exporting html, then no results are produced; otherwise results are
-;; HTML.
-(defvar org-babel-default-header-args:processing
- '((:results . "html") (:exports . "results"))
- "Default arguments when evaluating a Processing source block.")
-
-(defvar org-babel-processing-processing-js-filename "processing.js"
- "Filename of the processing.js file.")
-
-(defun org-babel-processing-view-sketch ()
- "Show the sketch of the Processing block under point in an external viewer."
- (interactive)
- (require 'processing-mode)
- (let ((info (org-babel-get-src-block-info)))
- (if (string= (nth 0 info) "processing")
- (let* ((body (nth 1 info))
- (params (org-babel-process-params (nth 2 info)))
- (sketch-code
- (org-babel-expand-body:generic
- body
- params
- (org-babel-variable-assignments:processing params))))
- ;; Note: sketch filename can not contain a hyphen, since it
- ;; has to be a valid java class name; for this reason
- ;; make-temp-file is repeated until no hyphen is in the
- ;; name; also sketch dir name must be the same as the
- ;; basename of the sketch file.
- (let* ((temporary-file-directory org-babel-temporary-directory)
- (sketch-dir
- (let (sketch-dir-candidate)
- (while
- (progn
- (setq sketch-dir-candidate
- (make-temp-file "processing" t))
- (when (string-match-p
- "-"
- (file-name-nondirectory sketch-dir-candidate))
- (delete-directory sketch-dir-candidate)
- t)))
- sketch-dir-candidate))
- (sketch-filename
- (concat sketch-dir
- "/"
- (file-name-nondirectory sketch-dir)
- ".pde")))
- (with-temp-file sketch-filename (insert sketch-code))
- (find-file sketch-filename)
- (processing-sketch-run)
- (kill-buffer)))
- (message "Not inside a Processing source block."))))
-
-(defun org-babel-execute:processing (body params)
- "Execute a block of Processing code.
-This function is called by `org-babel-execute-src-block'."
- (let ((sketch-code
- (org-babel-expand-body:generic
- body
- params
- (org-babel-variable-assignments:processing params))))
- ;; Results are HTML.
- (let ((sketch-canvas-id (concat "ob-" (sha1 sketch-code))))
- (concat "<script src=\""
- org-babel-processing-processing-js-filename
- "\"></script>\n <script type=\"text/processing\""
- " data-processing-target=\""
- sketch-canvas-id
- "\">\n"
- sketch-code
- "\n</script> <canvas id=\""
- sketch-canvas-id
- "\"></canvas>"))))
-
-(defun org-babel-prep-session:processing (_session _params)
- "Return an error if the :session header argument is set.
-Processing does not support sessions"
- (error "Processing does not support sessions"))
-
-(defun org-babel-variable-assignments:processing (params)
- "Return list of processing statements assigning the block's variables."
- (mapcar #'org-babel-processing-var-to-processing
- (org-babel--get-vars params)))
-
-(defun org-babel-processing-var-to-processing (pair)
- "Convert an elisp value into a Processing variable.
-The elisp value PAIR is converted into Processing code specifying
-a variable of the same value."
- (let ((var (car pair))
- (val (let ((v (cdr pair)))
- (if (symbolp v) (symbol-name v) v))))
- (cond
- ((integerp val)
- (format "int %S=%S;" var val))
- ((floatp val)
- (format "float %S=%S;" var val))
- ((stringp val)
- (format "String %S=\"%s\";" var val))
- ((and (listp val) (not (listp (car val))))
- (let* ((type (org-babel-processing-define-type val))
- (fmt (if (eq 'String type) "\"%s\"" "%s"))
- (vect (mapconcat (lambda (e) (format fmt e)) val ", ")))
- (format "%s[] %S={%s};" type var vect)))
- ((listp val)
- (let* ((type (org-babel-processing-define-type val))
- (fmt (if (eq 'String type) "\"%s\"" "%s"))
- (array (mapconcat (lambda (row)
- (concat "{"
- (mapconcat (lambda (e) (format fmt e))
- row ", ")
- "}"))
- val ",")))
- (format "%S[][] %S={%s};" type var array))))))
-
-(defun org-babel-processing-define-type (data)
- "Determine type of DATA.
-
-DATA is a list. Return type as a symbol.
-
-The type is `String' if any element in DATA is a string.
-Otherwise, it is either `float', if some elements are floats, or
-`int'."
- (letrec ((type 'int)
- (find-type
- (lambda (row)
- (dolist (e row type)
- (cond ((listp e) (setq type (funcall find-type e)))
- ((stringp e) (throw 'exit 'String))
- ((floatp e) (setq type 'float)))))))
- (catch 'exit (funcall find-type data))))
-
-(provide 'ob-processing)
-
-;;; ob-processing.el ends here
diff --git a/elpa/org-9.1.14/ob-processing.elc b/elpa/org-9.1.14/ob-processing.elc
deleted file mode 100644
index 6ee9f86..0000000
--- a/elpa/org-9.1.14/ob-processing.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-python.el b/elpa/org-9.1.14/ob-python.el
deleted file mode 100644
index a44e5a5..0000000
--- a/elpa/org-9.1.14/ob-python.el
+++ /dev/null
@@ -1,375 +0,0 @@
-;;; ob-python.el --- Babel Functions for Python -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Eric Schulte
-;; Dan Davison
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating python source code.
-
-;;; Code:
-(require 'ob)
-
-(declare-function org-remove-indentation "org" )
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function py-shell "ext:python-mode" (&optional argprompt))
-(declare-function py-toggle-shells "ext:python-mode" (arg))
-(declare-function run-python "ext:python" (&optional cmd dedicated show))
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("python" . "py"))
-
-(defvar org-babel-default-header-args:python '())
-
-(defcustom org-babel-python-command "python"
- "Name of the command for executing Python code."
- :version "24.4"
- :package-version '(Org . "8.0")
- :group 'org-babel
- :type 'string)
-
-(defcustom org-babel-python-mode
- (if (featurep 'python-mode) 'python-mode 'python)
- "Preferred python mode for use in running python interactively.
-This will typically be either `python' or `python-mode'."
- :group 'org-babel
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'symbol)
-
-(defcustom org-babel-python-hline-to "None"
- "Replace hlines in incoming tables with this when translating to python."
- :group 'org-babel
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defcustom org-babel-python-None-to 'hline
- "Replace `None' in python tables with this before returning."
- :group 'org-babel
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'symbol)
-
-(defun org-babel-execute:python (body params)
- "Execute a block of Python code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((org-babel-python-command
- (or (cdr (assq :python params))
- org-babel-python-command))
- (session (org-babel-python-initiate-session
- (cdr (assq :session params))))
- (result-params (cdr (assq :result-params params)))
- (result-type (cdr (assq :result-type params)))
- (return-val (when (and (eq result-type 'value) (not session))
- (cdr (assq :return params))))
- (preamble (cdr (assq :preamble params)))
- (full-body
- (org-babel-expand-body:generic
- (concat body (if return-val (format "\nreturn %s" return-val) ""))
- params (org-babel-variable-assignments:python params)))
- (result (org-babel-python-evaluate
- session full-body result-type result-params preamble)))
- (org-babel-reassemble-table
- result
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colnames params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rownames params))))))
-
-(defun org-babel-prep-session:python (session params)
- "Prepare SESSION according to the header arguments in PARAMS.
-VARS contains resolved variable references"
- (let* ((session (org-babel-python-initiate-session session))
- (var-lines
- (org-babel-variable-assignments:python params)))
- (org-babel-comint-in-buffer session
- (mapc (lambda (var)
- (end-of-line 1) (insert var) (comint-send-input)
- (org-babel-comint-wait-for-output session)) var-lines))
- session))
-
-(defun org-babel-load-session:python (session body params)
- "Load BODY into SESSION."
- (save-window-excursion
- (let ((buffer (org-babel-prep-session:python session params)))
- (with-current-buffer buffer
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (insert (org-babel-chomp body)))
- buffer)))
-
-;; helper functions
-
-(defun org-babel-variable-assignments:python (params)
- "Return a list of Python statements assigning the block's variables."
- (mapcar
- (lambda (pair)
- (format "%s=%s"
- (car pair)
- (org-babel-python-var-to-python (cdr pair))))
- (org-babel--get-vars params)))
-
-(defun org-babel-python-var-to-python (var)
- "Convert an elisp value to a python variable.
-Convert an elisp value, VAR, into a string of python source code
-specifying a variable of the same value."
- (if (listp var)
- (concat "[" (mapconcat #'org-babel-python-var-to-python var ", ") "]")
- (if (eq var 'hline)
- org-babel-python-hline-to
- (format
- (if (and (stringp var) (string-match "[\n\r]" var)) "\"\"%S\"\"" "%S")
- (if (stringp var) (substring-no-properties var) var)))))
-
-(defun org-babel-python-table-or-string (results)
- "Convert RESULTS into an appropriate elisp value.
-If the results look like a list or tuple, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
- (let ((res (org-babel-script-escape results)))
- (if (listp res)
- (mapcar (lambda (el) (if (eq el 'None)
- org-babel-python-None-to el))
- res)
- res)))
-
-(defvar org-babel-python-buffers '((:default . "*Python*")))
-
-(defun org-babel-python-session-buffer (session)
- "Return the buffer associated with SESSION."
- (cdr (assoc session org-babel-python-buffers)))
-
-(defun org-babel-python-with-earmuffs (session)
- (let ((name (if (stringp session) session (format "%s" session))))
- (if (and (string= "*" (substring name 0 1))
- (string= "*" (substring name (- (length name) 1))))
- name
- (format "*%s*" name))))
-
-(defun org-babel-python-without-earmuffs (session)
- (let ((name (if (stringp session) session (format "%s" session))))
- (if (and (string= "*" (substring name 0 1))
- (string= "*" (substring name (- (length name) 1))))
- (substring name 1 (- (length name) 1))
- name)))
-
-(defvar py-default-interpreter)
-(defvar py-which-bufname)
-(defvar python-shell-buffer-name)
-(defun org-babel-python-initiate-session-by-key (&optional session)
- "Initiate a python session.
-If there is not a current inferior-process-buffer in SESSION
-then create. Return the initialized session."
- (require org-babel-python-mode)
- (save-window-excursion
- (let* ((session (if session (intern session) :default))
- (python-buffer (org-babel-python-session-buffer session))
- (cmd (if (member system-type '(cygwin windows-nt ms-dos))
- (concat org-babel-python-command " -i")
- org-babel-python-command)))
- (cond
- ((and (eq 'python org-babel-python-mode)
- (fboundp 'run-python)) ; python.el
- (if (not (version< "24.1" emacs-version))
- (run-python cmd)
- (unless python-buffer
- (setq python-buffer (org-babel-python-with-earmuffs session)))
- (let ((python-shell-buffer-name
- (org-babel-python-without-earmuffs python-buffer)))
- (run-python cmd))))
- ((and (eq 'python-mode org-babel-python-mode)
- (fboundp 'py-shell)) ; python-mode.el
- ;; Make sure that py-which-bufname is initialized, as otherwise
- ;; it will be overwritten the first time a Python buffer is
- ;; created.
- (py-toggle-shells py-default-interpreter)
- ;; `py-shell' creates a buffer whose name is the value of
- ;; `py-which-bufname' with '*'s at the beginning and end
- (let* ((bufname (if (and python-buffer (buffer-live-p python-buffer))
- (replace-regexp-in-string ;; zap surrounding *
- "^\\*\\([^*]+\\)\\*$" "\\1" python-buffer)
- (concat "Python-" (symbol-name session))))
- (py-which-bufname bufname))
- (py-shell)
- (setq python-buffer (org-babel-python-with-earmuffs bufname))))
- (t
- (error "No function available for running an inferior Python")))
- (setq org-babel-python-buffers
- (cons (cons session python-buffer)
- (assq-delete-all session org-babel-python-buffers)))
- session)))
-
-(defun org-babel-python-initiate-session (&optional session _params)
- "Create a session named SESSION according to PARAMS."
- (unless (string= session "none")
- (org-babel-python-session-buffer
- (org-babel-python-initiate-session-by-key session))))
-
-(defvar org-babel-python-eoe-indicator "'org_babel_python_eoe'"
- "A string to indicate that evaluation has completed.")
-(defconst org-babel-python-wrapper-method
- "
-def main():
-%s
-
-open('%s', 'w').write( str(main()) )")
-(defconst org-babel-python-pp-wrapper-method
- "
-import pprint
-def main():
-%s
-
-open('%s', 'w').write( pprint.pformat(main()) )")
-
-(defconst org-babel-python--exec-tmpfile
- (concat
- "__org_babel_python_fname = '%s'; "
- "__org_babel_python_fh = open(__org_babel_python_fname); "
- "exec(compile("
- "__org_babel_python_fh.read(), __org_babel_python_fname, 'exec'"
- ")); "
- "__org_babel_python_fh.close()"))
-
-(defun org-babel-python-evaluate
- (session body &optional result-type result-params preamble)
- "Evaluate BODY as Python code."
- (if session
- (org-babel-python-evaluate-session
- session body result-type result-params)
- (org-babel-python-evaluate-external-process
- body result-type result-params preamble)))
-
-(defun org-babel-python-evaluate-external-process
- (body &optional result-type result-params preamble)
- "Evaluate BODY in external python process.
-If RESULT-TYPE equals `output' then return standard output as a
-string. If RESULT-TYPE equals `value' then return the value of the
-last statement in BODY, as elisp."
- (let ((raw
- (pcase result-type
- (`output (org-babel-eval org-babel-python-command
- (concat (if preamble (concat preamble "\n"))
- body)))
- (`value (let ((tmp-file (org-babel-temp-file "python-")))
- (org-babel-eval
- org-babel-python-command
- (concat
- (if preamble (concat preamble "\n") "")
- (format
- (if (member "pp" result-params)
- org-babel-python-pp-wrapper-method
- org-babel-python-wrapper-method)
- (mapconcat
- (lambda (line) (format "\t%s" line))
- (split-string (org-remove-indentation (org-trim body))
- "[\r\n]")
- "\n")
- (org-babel-process-file-name tmp-file 'noquote))))
- (org-babel-eval-read-file tmp-file))))))
- (org-babel-result-cond result-params
- raw
- (org-babel-python-table-or-string (org-trim raw)))))
-
-(defun org-babel-python-evaluate-session
- (session body &optional result-type result-params)
- "Pass BODY to the Python process in SESSION.
-If RESULT-TYPE equals `output' then return standard output as a
-string. If RESULT-TYPE equals `value' then return the value of the
-last statement in BODY, as elisp."
- (let* ((send-wait (lambda () (comint-send-input nil t) (sleep-for 0 5)))
- (dump-last-value
- (lambda
- (tmp-file pp)
- (mapc
- (lambda (statement) (insert statement) (funcall send-wait))
- (if pp
- (list
- "import pprint"
- (format "open('%s', 'w').write(pprint.pformat(_))"
- (org-babel-process-file-name tmp-file 'noquote)))
- (list (format "open('%s', 'w').write(str(_))"
- (org-babel-process-file-name tmp-file
- 'noquote)))))))
- (last-indent 0)
- (input-body (lambda (body)
- (dolist (line (split-string body "[\r\n]"))
- ;; Insert a blank line to end an indent
- ;; block.
- (let ((curr-indent (string-match "\\S-" line)))
- (if curr-indent
- (progn
- (when (< curr-indent last-indent)
- (insert "")
- (funcall send-wait))
- (setq last-indent curr-indent))
- (setq last-indent 0)))
- (insert line)
- (funcall send-wait))
- (funcall send-wait)))
- (results
- (pcase result-type
- (`output
- (let ((body (if (string-match-p ".\n+." body) ; Multiline
- (let ((tmp-src-file (org-babel-temp-file
- "python-")))
- (with-temp-file tmp-src-file (insert body))
- (format org-babel-python--exec-tmpfile
- tmp-src-file))
- body)))
- (mapconcat
- #'org-trim
- (butlast
- (org-babel-comint-with-output
- (session org-babel-python-eoe-indicator t body)
- (funcall input-body body)
- (funcall send-wait) (funcall send-wait)
- (insert org-babel-python-eoe-indicator)
- (funcall send-wait))
- 2) "\n")))
- (`value
- (let ((tmp-file (org-babel-temp-file "python-")))
- (org-babel-comint-with-output
- (session org-babel-python-eoe-indicator nil body)
- (let ((comint-process-echoes nil))
- (funcall input-body body)
- (funcall dump-last-value tmp-file
- (member "pp" result-params))
- (funcall send-wait) (funcall send-wait)
- (insert org-babel-python-eoe-indicator)
- (funcall send-wait)))
- (org-babel-eval-read-file tmp-file))))))
- (unless (string= (substring org-babel-python-eoe-indicator 1 -1) results)
- (org-babel-result-cond result-params
- results
- (org-babel-python-table-or-string results)))))
-
-(defun org-babel-python-read-string (string)
- "Strip \\='s from around Python string."
- (if (and (string-prefix-p "'" string)
- (string-suffix-p "'" string))
- (substring string 1 -1)
- string))
-
-(provide 'ob-python)
-
-
-
-;;; ob-python.el ends here
diff --git a/elpa/org-9.1.14/ob-python.elc b/elpa/org-9.1.14/ob-python.elc
deleted file mode 100644
index 7a67ad6..0000000
--- a/elpa/org-9.1.14/ob-python.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-ref.el b/elpa/org-9.1.14/ob-ref.el
deleted file mode 100644
index 3efa17f..0000000
--- a/elpa/org-9.1.14/ob-ref.el
+++ /dev/null
@@ -1,246 +0,0 @@
-;;; ob-ref.el --- Babel Functions for Referencing External Data -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Eric Schulte
-;; Dan Davison
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Functions for referencing data from the header arguments of a
-;; org-babel block. The syntax of such a reference should be
-
-;; #+VAR: variable-name=file:resource-id
-
-;; - variable-name :: the name of the variable to which the value
-;; will be assigned
-
-;; - file :: path to the file containing the resource, or omitted if
-;; resource is in the current file
-
-;; - resource-id :: the id or name of the resource
-
-;; So an example of a simple src block referencing table data in the
-;; same file would be
-
-;; #+NAME: sandbox
-;; | 1 | 2 | 3 |
-;; | 4 | org-babel | 6 |
-;;
-;; #+begin_src emacs-lisp :var table=sandbox
-;; (message table)
-;; #+end_src
-
-;;; Code:
-(require 'ob-core)
-(require 'cl-lib)
-
-(declare-function org-babel-lob-get-info "ob-lob" (&optional datum))
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-end-of-meta-data "org" (&optional full))
-(declare-function org-find-property "org" (property &optional value))
-(declare-function org-id-find-id-file "org-id" (id))
-(declare-function org-id-find-id-in-file "org-id" (id file &optional markerp))
-(declare-function org-in-commented-heading-p "org" (&optional no-inheritance))
-(declare-function org-narrow-to-subtree "org" ())
-(declare-function org-show-context "org" (&optional key))
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-babel-update-intermediate nil
- "Update the in-buffer results of code blocks executed to resolve references.")
-
-(defun org-babel-ref-parse (assignment)
- "Parse a variable ASSIGNMENT in a header argument.
-
-If the right hand side of the assignment has a literal value
-return that value, otherwise interpret it as a reference to an
-external resource and find its value using `org-babel-ref-resolve'.
-
-Return a list with two elements: the name of the variable, and an
-Emacs Lisp representation of the value of the variable."
- (when (string-match "\\(.+?\\)=" assignment)
- (let ((var (org-trim (match-string 1 assignment)))
- (ref (org-trim (substring assignment (match-end 0)))))
- (cons (intern var)
- (let ((out (save-excursion
- (when org-babel-current-src-block-location
- (goto-char (if (markerp org-babel-current-src-block-location)
- (marker-position org-babel-current-src-block-location)
- org-babel-current-src-block-location)))
- (org-babel-read ref))))
- (if (equal out ref)
- (if (and (string-prefix-p "\"" ref)
- (string-suffix-p "\"" ref))
- (read ref)
- (org-babel-ref-resolve ref))
- out))))))
-
-(defun org-babel-ref-goto-headline-id (id)
- (or (let ((h (org-find-property "CUSTOM_ID" id)))
- (when h (goto-char h)))
- (let* ((file (org-id-find-id-file id))
- (m (when file (org-id-find-id-in-file id file 'marker))))
- (when (and file m)
- (message "file:%S" file)
- (pop-to-buffer-same-window (marker-buffer m))
- (goto-char m)
- (move-marker m nil)
- (org-show-context)
- t))))
-
-(defun org-babel-ref-headline-body ()
- (save-restriction
- (org-narrow-to-subtree)
- (buffer-substring
- (save-excursion (goto-char (point-min))
- (org-end-of-meta-data)
- (point))
- (point-max))))
-
-(defvar org-babel-library-of-babel)
-(defun org-babel-ref-resolve (ref)
- "Resolve the reference REF and return its value."
- (save-window-excursion
- (with-current-buffer (or org-babel-exp-reference-buffer (current-buffer))
- (save-excursion
- (let ((case-fold-search t)
- args new-refere new-header-args new-referent split-file split-ref
- index)
- ;; if ref is indexed grab the indices -- beware nested indices
- (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref)
- (let ((str (substring ref 0 (match-beginning 0))))
- (= (cl-count ?\( str) (cl-count ?\) str))))
- (setq index (match-string 1 ref))
- (setq ref (substring ref 0 (match-beginning 0))))
- ;; assign any arguments to pass to source block
- (when (string-match
- "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref)
- (setq new-refere (match-string 1 ref))
- (setq new-header-args (match-string 3 ref))
- (setq new-referent (match-string 5 ref))
- (when (> (length new-refere) 0)
- (when (> (length new-referent) 0)
- (setq args (mapcar (lambda (ref) (cons :var ref))
- (org-babel-ref-split-args new-referent))))
- (when (> (length new-header-args) 0)
- (setq args (append (org-babel-parse-header-arguments
- new-header-args) args)))
- (setq ref new-refere)))
- (when (string-match "^\\(.+\\):\\(.+\\)$" ref)
- (setq split-file (match-string 1 ref))
- (setq split-ref (match-string 2 ref))
- (find-file split-file)
- (setq ref split-ref))
- (org-with-wide-buffer
- (goto-char (point-min))
- (let* ((params (append args '((:results . "silent"))))
- (regexp (org-babel-named-data-regexp-for-name ref))
- (result
- (catch :found
- ;; Check for code blocks or named data.
- (while (re-search-forward regexp nil t)
- ;; Ignore COMMENTed headings and orphaned
- ;; affiliated keywords.
- (unless (org-in-commented-heading-p)
- (let ((e (org-element-at-point)))
- (when (equal (org-element-property :name e) ref)
- (goto-char
- (org-element-property :post-affiliated e))
- (pcase (org-element-type e)
- (`babel-call
- (throw :found
- (org-babel-execute-src-block
- nil (org-babel-lob-get-info e) params)))
- (`src-block
- (throw :found
- (org-babel-execute-src-block
- nil nil
- (and
- (not org-babel-update-intermediate)
- params))))
- ((and (let v (org-babel-read-element e))
- (guard v))
- (throw :found v))
- (_ (error "Reference not found")))))))
- ;; Check for local or global headlines by ID.
- (when (org-babel-ref-goto-headline-id ref)
- (throw :found (org-babel-ref-headline-body)))
- ;; Check the Library of Babel.
- (let ((info (cdr (assq (intern ref)
- org-babel-library-of-babel))))
- (when info
- (throw :found
- (org-babel-execute-src-block nil info params))))
- (error "Reference `%s' not found in this buffer" ref))))
- (cond
- ((symbolp result) (format "%S" result))
- ((and index (listp result))
- (org-babel-ref-index-list index result))
- (t result)))))))))
-
-(defun org-babel-ref-index-list (index lis)
- "Return the subset of LIS indexed by INDEX.
-
-Indices are 0 based and negative indices count from the end of
-LIS, so 0 references the first element of LIS and -1 references
-the last. If INDEX is separated by \",\"s then each \"portion\"
-is assumed to index into the next deepest nesting or dimension.
-
-A valid \"portion\" can consist of either an integer index, two
-integers separated by a \":\" in which case the entire range is
-returned, or an empty string or \"*\" both of which are
-interpreted to mean the entire range and as such are equivalent
-to \"0:-1\"."
- (if (and (> (length index) 0) (string-match "^\\([^,]*\\),?" index))
- (let* ((ind-re "\\(\\([-[:digit:]]+\\):\\([-[:digit:]]+\\)\\|\\*\\)")
- (lgth (length lis))
- (portion (match-string 1 index))
- (remainder (substring index (match-end 0)))
- (wrap (lambda (num) (if (< num 0) (+ lgth num) num)))
- (open (lambda (ls) (if (and (listp ls) (= (length ls) 1)) (car ls) ls))))
- (funcall
- open
- (mapcar
- (lambda (sub-lis)
- (if (listp sub-lis)
- (org-babel-ref-index-list remainder sub-lis)
- sub-lis))
- (if (or (= 0 (length portion)) (string-match ind-re portion))
- (mapcar
- (lambda (n) (nth n lis))
- (apply 'org-number-sequence
- (if (and (> (length portion) 0) (match-string 2 portion))
- (list
- (funcall wrap (string-to-number (match-string 2 portion)))
- (funcall wrap (string-to-number (match-string 3 portion))))
- (list (funcall wrap 0) (funcall wrap -1)))))
- (list (nth (funcall wrap (string-to-number portion)) lis))))))
- lis))
-
-(defun org-babel-ref-split-args (arg-string)
- "Split ARG-STRING into top-level arguments of balanced parenthesis."
- (mapcar #'org-trim (org-babel-balanced-split arg-string 44)))
-
-
-(provide 'ob-ref)
-
-;;; ob-ref.el ends here
diff --git a/elpa/org-9.1.14/ob-ref.elc b/elpa/org-9.1.14/ob-ref.elc
deleted file mode 100644
index 39de80e..0000000
--- a/elpa/org-9.1.14/ob-ref.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-ruby.el b/elpa/org-9.1.14/ob-ruby.el
deleted file mode 100644
index 7686ac4..0000000
--- a/elpa/org-9.1.14/ob-ruby.el
+++ /dev/null
@@ -1,268 +0,0 @@
-;;; ob-ruby.el --- Babel Functions for Ruby -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating ruby source code.
-
-;;; Requirements:
-
-;; - ruby and irb executables :: http://www.ruby-lang.org/
-;;
-;; - ruby-mode :: Can be installed through ELPA, or from
-;; http://github.com/eschulte/rinari/raw/master/util/ruby-mode.el
-;;
-;; - inf-ruby mode :: Can be installed through ELPA, or from
-;; http://github.com/eschulte/rinari/raw/master/util/inf-ruby.el
-
-;;; Code:
-(require 'ob)
-
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function run-ruby "ext:inf-ruby" (&optional command name))
-(declare-function xmp "ext:rcodetools" (&optional option))
-
-(defvar inf-ruby-default-implementation)
-(defvar inf-ruby-implementations)
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("ruby" . "rb"))
-
-(defvar org-babel-default-header-args:ruby '())
-
-(defvar org-babel-ruby-command "ruby"
- "Name of command to use for executing ruby code.")
-
-(defcustom org-babel-ruby-hline-to "nil"
- "Replace hlines in incoming tables with this when translating to ruby."
- :group 'org-babel
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defcustom org-babel-ruby-nil-to 'hline
- "Replace nil in ruby tables with this before returning."
- :group 'org-babel
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'symbol)
-
-(defun org-babel-execute:ruby (body params)
- "Execute a block of Ruby code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((session (org-babel-ruby-initiate-session
- (cdr (assq :session params))))
- (result-params (cdr (assq :result-params params)))
- (result-type (cdr (assq :result-type params)))
- (full-body (org-babel-expand-body:generic
- body params (org-babel-variable-assignments:ruby params)))
- (result (if (member "xmp" result-params)
- (with-temp-buffer
- (require 'rcodetools)
- (insert full-body)
- (xmp (cdr (assq :xmp-option params)))
- (buffer-string))
- (org-babel-ruby-evaluate
- session full-body result-type result-params))))
- (org-babel-reassemble-table
- (org-babel-result-cond result-params
- result
- (org-babel-ruby-table-or-string result))
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colnames params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rownames params))))))
-
-(defun org-babel-prep-session:ruby (session params)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- ;; (message "params=%S" params) ;; debugging
- (let* ((session (org-babel-ruby-initiate-session session))
- (var-lines (org-babel-variable-assignments:ruby params)))
- (org-babel-comint-in-buffer session
- (sit-for .5) (goto-char (point-max))
- (mapc (lambda (var)
- (insert var) (comint-send-input nil t)
- (org-babel-comint-wait-for-output session)
- (sit-for .1) (goto-char (point-max))) var-lines))
- session))
-
-(defun org-babel-load-session:ruby (session body params)
- "Load BODY into SESSION."
- (save-window-excursion
- (let ((buffer (org-babel-prep-session:ruby session params)))
- (with-current-buffer buffer
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (insert (org-babel-chomp body)))
- buffer)))
-
-;; helper functions
-
-(defun org-babel-variable-assignments:ruby (params)
- "Return list of ruby statements assigning the block's variables."
- (mapcar
- (lambda (pair)
- (format "%s=%s"
- (car pair)
- (org-babel-ruby-var-to-ruby (cdr pair))))
- (org-babel--get-vars params)))
-
-(defun org-babel-ruby-var-to-ruby (var)
- "Convert VAR into a ruby variable.
-Convert an elisp value into a string of ruby source code
-specifying a variable of the same value."
- (if (listp var)
- (concat "[" (mapconcat #'org-babel-ruby-var-to-ruby var ", ") "]")
- (if (eq var 'hline)
- org-babel-ruby-hline-to
- (format "%S" var))))
-
-(defun org-babel-ruby-table-or-string (results)
- "Convert RESULTS into an appropriate elisp value.
-If RESULTS look like a table, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
- (let ((res (org-babel-script-escape results)))
- (if (listp res)
- (mapcar (lambda (el) (if (not el)
- org-babel-ruby-nil-to el))
- res)
- res)))
-
-(defun org-babel-ruby-initiate-session (&optional session _params)
- "Initiate a ruby session.
-If there is not a current inferior-process-buffer in SESSION
-then create one. Return the initialized session."
- (unless (string= session "none")
- (require 'inf-ruby)
- (let* ((cmd (cdr (assoc inf-ruby-default-implementation
- inf-ruby-implementations)))
- (buffer (get-buffer (format "*%s*" session)))
- (session-buffer (or buffer (save-window-excursion
- (run-ruby cmd session)
- (current-buffer)))))
- (if (org-babel-comint-buffer-livep session-buffer)
- (progn (sit-for .25) session-buffer)
- (sit-for .5)
- (org-babel-ruby-initiate-session session)))))
-
-(defvar org-babel-ruby-eoe-indicator ":org_babel_ruby_eoe"
- "String to indicate that evaluation has completed.")
-(defvar org-babel-ruby-f-write
- "File.open('%s','w'){|f| f.write((_.class == String) ? _ : _.inspect)}")
-(defvar org-babel-ruby-pp-f-write
- "File.open('%s','w'){|f| $stdout = f; pp(results); $stdout = orig_out}")
-(defvar org-babel-ruby-wrapper-method
- "
-def main()
-%s
-end
-results = main()
-File.open('%s', 'w'){ |f| f.write((results.class == String) ? results : results.inspect) }
-")
-(defvar org-babel-ruby-pp-wrapper-method
- "
-require 'pp'
-def main()
-%s
-end
-results = main()
-File.open('%s', 'w') do |f|
- $stdout = f
- pp results
-end
-")
-
-(defun org-babel-ruby-evaluate
- (buffer body &optional result-type result-params)
- "Pass BODY to the Ruby process in BUFFER.
-If RESULT-TYPE equals `output' then return a list of the outputs
-of the statements in BODY, if RESULT-TYPE equals `value' then
-return the value of the last statement in BODY, as elisp."
- (if (not buffer)
- ;; external process evaluation
- (pcase result-type
- (`output (org-babel-eval org-babel-ruby-command body))
- (`value (let ((tmp-file (org-babel-temp-file "ruby-")))
- (org-babel-eval
- org-babel-ruby-command
- (format (if (member "pp" result-params)
- org-babel-ruby-pp-wrapper-method
- org-babel-ruby-wrapper-method)
- body (org-babel-process-file-name tmp-file 'noquote)))
- (org-babel-eval-read-file tmp-file))))
- ;; comint session evaluation
- (pcase result-type
- (`output
- (let ((eoe-string (format "puts \"%s\"" org-babel-ruby-eoe-indicator)))
- ;; Force the session to be ready before the actual session
- ;; code is run. There is some problem in comint that will
- ;; sometimes show the prompt after the the input has already
- ;; been inserted and that throws off the extraction of the
- ;; result for Babel.
- (org-babel-comint-with-output
- (buffer org-babel-ruby-eoe-indicator t eoe-string)
- (insert eoe-string) (comint-send-input nil t))
- ;; Now we can start the evaluation.
- (mapconcat
- #'identity
- (butlast
- (split-string
- (mapconcat
- #'org-trim
- (org-babel-comint-with-output
- (buffer org-babel-ruby-eoe-indicator t body)
- (mapc
- (lambda (line)
- (insert (org-babel-chomp line)) (comint-send-input nil t))
- (list "conf.echo=false;_org_prompt_mode=conf.prompt_mode;conf.prompt_mode=:NULL"
- body
- "conf.prompt_mode=_org_prompt_mode;conf.echo=true"
- eoe-string)))
- "\n") "[\r\n]") 4) "\n")))
- (`value
- (let* ((tmp-file (org-babel-temp-file "ruby-"))
- (ppp (or (member "code" result-params)
- (member "pp" result-params))))
- (org-babel-comint-with-output
- (buffer org-babel-ruby-eoe-indicator t body)
- (when ppp (insert "require 'pp';") (comint-send-input nil t))
- (mapc
- (lambda (line)
- (insert (org-babel-chomp line)) (comint-send-input nil t))
- (append
- (list body)
- (if (not ppp)
- (list (format org-babel-ruby-f-write
- (org-babel-process-file-name tmp-file 'noquote)))
- (list
- "results=_" "require 'pp'" "orig_out = $stdout"
- (format org-babel-ruby-pp-f-write
- (org-babel-process-file-name tmp-file 'noquote))))
- (list org-babel-ruby-eoe-indicator)))
- (comint-send-input nil t))
- (org-babel-eval-read-file tmp-file))))))
-
-(provide 'ob-ruby)
-
-
-
-;;; ob-ruby.el ends here
diff --git a/elpa/org-9.1.14/ob-ruby.elc b/elpa/org-9.1.14/ob-ruby.elc
deleted file mode 100644
index 3b3c3bf..0000000
--- a/elpa/org-9.1.14/ob-ruby.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-sass.el b/elpa/org-9.1.14/ob-sass.el
deleted file mode 100644
index af55d76..0000000
--- a/elpa/org-9.1.14/ob-sass.el
+++ /dev/null
@@ -1,70 +0,0 @@
-;;; ob-sass.el --- Babel Functions for the Sass CSS generation language -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; For more information on sass see http://sass-lang.com/
-;;
-;; This accepts a 'file' header argument which is the target of the
-;; compiled sass. The default output type for sass evaluation is
-;; either file (if a 'file' header argument was given) or scalar if no
-;; such header argument was supplied.
-;;
-;; A 'cmdline' header argument can be supplied to pass arguments to
-;; the sass command line.
-
-;;; Requirements:
-
-;; - sass-mode :: http://github.com/nex3/haml/blob/master/extra/sass-mode.el
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:sass '())
-
-(defun org-babel-execute:sass (body params)
- "Execute a block of Sass code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((file (cdr (assq :file params)))
- (out-file (or file (org-babel-temp-file "sass-out-")))
- (cmdline (cdr (assq :cmdline params)))
- (in-file (org-babel-temp-file "sass-in-"))
- (cmd (concat "sass " (or cmdline "")
- " " (org-babel-process-file-name in-file)
- " " (org-babel-process-file-name out-file))))
- (with-temp-file in-file
- (insert (org-babel-expand-body:generic body params)))
- (org-babel-eval cmd "")
- (if file
- nil ;; signal that output has already been written to file
- (with-temp-buffer (insert-file-contents out-file) (buffer-string)))))
-
-(defun org-babel-prep-session:sass (_session _params)
- "Raise an error because sass does not support sessions."
- (error "Sass does not support sessions"))
-
-(provide 'ob-sass)
-
-
-
-;;; ob-sass.el ends here
diff --git a/elpa/org-9.1.14/ob-sass.elc b/elpa/org-9.1.14/ob-sass.elc
deleted file mode 100644
index c3638d1..0000000
--- a/elpa/org-9.1.14/ob-sass.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-scheme.el b/elpa/org-9.1.14/ob-scheme.el
deleted file mode 100644
index 0efe5f3..0000000
--- a/elpa/org-9.1.14/ob-scheme.el
+++ /dev/null
@@ -1,233 +0,0 @@
-;;; ob-scheme.el --- Babel Functions for Scheme -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Authors: Eric Schulte
-;; Michael Gauland
-;; Keywords: literate programming, reproducible research, scheme
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Now working with SBCL for both session and external evaluation.
-;;
-;; This certainly isn't optimally robust, but it seems to be working
-;; for the basic use cases.
-
-;;; Requirements:
-
-;; - a working scheme implementation
-;; (e.g. guile https://www.gnu.org/software/guile/guile.html)
-;;
-;; - for session based evaluation geiser is required, which is available from
-;; ELPA.
-
-;;; Code:
-(require 'ob)
-(require 'geiser nil t)
-(require 'geiser-impl nil t)
-(defvar geiser-repl--repl) ; Defined in geiser-repl.el
-(defvar geiser-impl--implementation) ; Defined in geiser-impl.el
-(defvar geiser-default-implementation) ; Defined in geiser-impl.el
-(defvar geiser-active-implementations) ; Defined in geiser-impl.el
-(defvar geiser-debug-show-debug-p) ; Defined in geiser-debug.el
-(defvar geiser-debug-jump-to-debug-p) ; Defined in geiser-debug.el
-(defvar geiser-repl-use-other-window) ; Defined in geiser-repl.el
-(defvar geiser-repl-window-allow-split) ; Defined in geiser-repl.el
-
-(declare-function run-geiser "ext:geiser-repl" (impl))
-(declare-function geiser-mode "ext:geiser-mode" ())
-(declare-function geiser-eval-region "ext:geiser-mode"
- (start end &optional and-go raw nomsg))
-(declare-function geiser-repl-exit "ext:geiser-repl" (&optional arg))
-(declare-function geiser-eval--retort-output "ext:geiser-eval" (ret))
-(declare-function geiser-eval--retort-result-str "ext:geiser-eval" (ret prefix))
-
-(defcustom org-babel-scheme-null-to 'hline
- "Replace `null' and empty lists in scheme tables with this before returning."
- :group 'org-babel
- :version "26.1"
- :package-version '(Org . "9.1")
- :type 'symbol)
-
-(defvar org-babel-default-header-args:scheme '()
- "Default header arguments for scheme code blocks.")
-
-(defun org-babel-expand-body:scheme (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let ((vars (org-babel--get-vars params))
- (prepends (cdr (assq :prologue params))))
- (concat (and prepends (concat prepends "\n"))
- (if (null vars) body
- (format "(let (%s)\n%s\n)"
- (mapconcat
- (lambda (var)
- (format "%S" (print `(,(car var) ',(cdr var)))))
- vars
- "\n ")
- body)))))
-
-
-(defvar org-babel-scheme-repl-map (make-hash-table :test #'equal)
- "Map of scheme sessions to session names.")
-
-(defun org-babel-scheme-cleanse-repl-map ()
- "Remove dead buffers from the REPL map."
- (maphash
- (lambda (x y) (unless (buffer-name y) (remhash x org-babel-scheme-repl-map)))
- org-babel-scheme-repl-map))
-
-(defun org-babel-scheme-get-session-buffer (session-name)
- "Look up the scheme buffer for a session; return nil if it doesn't exist."
- (org-babel-scheme-cleanse-repl-map) ; Prune dead sessions
- (gethash session-name org-babel-scheme-repl-map))
-
-(defun org-babel-scheme-set-session-buffer (session-name buffer)
- "Record the scheme buffer used for a given session."
- (puthash session-name buffer org-babel-scheme-repl-map))
-
-(defun org-babel-scheme-get-buffer-impl (buffer)
- "Returns the scheme implementation geiser associates with the buffer."
- (with-current-buffer (set-buffer buffer)
- geiser-impl--implementation))
-
-(defun org-babel-scheme-get-repl (impl name)
- "Switch to a scheme REPL, creating it if it doesn't exist:"
- (let ((buffer (org-babel-scheme-get-session-buffer name)))
- (or buffer
- (progn
- (run-geiser impl)
- (if name
- (progn
- (rename-buffer name t)
- (org-babel-scheme-set-session-buffer name (current-buffer))))
- (current-buffer)))))
-
-(defun org-babel-scheme-make-session-name (buffer name impl)
- "Generate a name for the session buffer.
-
-For a named session, the buffer name will be the session name.
-
-If the session is unnamed (nil), generate a name.
-
-If the session is `none', use nil for the session name, and
-org-babel-scheme-execute-with-geiser will use a temporary session."
- (cond ((not name) (concat buffer " " (symbol-name impl) " REPL"))
- ((string= name "none") nil)
- (name)))
-
-(defmacro org-babel-scheme-capture-current-message (&rest body)
- "Capture current message in both interactive and noninteractive mode"
- `(if noninteractive
- (let ((original-message (symbol-function 'message))
- (current-message nil))
- (unwind-protect
- (progn
- (defun message (&rest args)
- (setq current-message (apply original-message args)))
- ,@body
- current-message)
- (fset 'message original-message)))
- (progn
- ,@body
- (current-message))))
-
-(defun org-babel-scheme-execute-with-geiser (code output impl repl)
- "Execute code in specified REPL. If the REPL doesn't exist, create it
-using the given scheme implementation.
-
-Returns the output of executing the code if the output parameter
-is true; otherwise returns the last value."
- (let ((result nil))
- (with-temp-buffer
- (insert (format ";; -*- geiser-scheme-implementation: %s -*-" impl))
- (newline)
- (insert code)
- (geiser-mode)
- (let ((geiser-repl-window-allow-split nil)
- (geiser-repl-use-other-window nil))
- (let ((repl-buffer (save-current-buffer
- (org-babel-scheme-get-repl impl repl))))
- (when (not (eq impl (org-babel-scheme-get-buffer-impl
- (current-buffer))))
- (message "Implementation mismatch: %s (%s) %s (%s)" impl (symbolp impl)
- (org-babel-scheme-get-buffer-impl (current-buffer))
- (symbolp (org-babel-scheme-get-buffer-impl
- (current-buffer)))))
- (setq geiser-repl--repl repl-buffer)
- (setq geiser-impl--implementation nil)
- (let ((geiser-debug-jump-to-debug-p nil)
- (geiser-debug-show-debug-p nil))
- (let ((ret (geiser-eval-region (point-min) (point-max))))
- (setq result (if output
- (geiser-eval--retort-output ret)
- (geiser-eval--retort-result-str ret "")))))
- (when (not repl)
- (save-current-buffer (set-buffer repl-buffer)
- (geiser-repl-exit))
- (set-process-query-on-exit-flag (get-buffer-process repl-buffer) nil)
- (kill-buffer repl-buffer)))))
- result))
-
-(defun org-babel-scheme--table-or-string (results)
- "Convert RESULTS into an appropriate elisp value.
-If the results look like a list or tuple, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
- (let ((res (org-babel-script-escape results)))
- (cond ((listp res)
- (mapcar (lambda (el)
- (if (or (null el) (eq el 'null))
- org-babel-scheme-null-to
- el))
- res))
- (t res))))
-
-(defun org-babel-execute:scheme (body params)
- "Execute a block of Scheme code with org-babel.
-This function is called by `org-babel-execute-src-block'"
- (let* ((source-buffer (current-buffer))
- (source-buffer-name (replace-regexp-in-string ;; zap surrounding *
- "^ ?\\*\\([^*]+\\)\\*" "\\1"
- (buffer-name source-buffer))))
- (save-excursion
- (let* ((result-type (cdr (assq :result-type params)))
- (impl (or (when (cdr (assq :scheme params))
- (intern (cdr (assq :scheme params))))
- geiser-default-implementation
- (car geiser-active-implementations)))
- (session (org-babel-scheme-make-session-name
- source-buffer-name (cdr (assq :session params)) impl))
- (full-body (org-babel-expand-body:scheme body params))
- (result
- (org-babel-scheme-execute-with-geiser
- full-body ; code
- (string= result-type "output") ; output?
- impl ; implementation
- (and (not (string= session "none")) session)))) ; session
- (let ((table
- (org-babel-reassemble-table
- result
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colnames params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rownames params))))))
- (org-babel-scheme--table-or-string table))))))
-
-(provide 'ob-scheme)
-
-;;; ob-scheme.el ends here
diff --git a/elpa/org-9.1.14/ob-scheme.elc b/elpa/org-9.1.14/ob-scheme.elc
deleted file mode 100644
index e9671eb..0000000
--- a/elpa/org-9.1.14/ob-scheme.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-screen.el b/elpa/org-9.1.14/ob-screen.el
deleted file mode 100644
index fb7c8e2..0000000
--- a/elpa/org-9.1.14/ob-screen.el
+++ /dev/null
@@ -1,143 +0,0 @@
-;;; ob-screen.el --- Babel Support for Interactive Terminal -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Benjamin Andresen
-;; Keywords: literate programming, interactive shell
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for interactive terminals. Mostly shell scripts.
-;; Heavily inspired by 'eev' from Eduardo Ochs
-;;
-;; Adding :cmd and :terminal as header arguments
-;; :terminal must support the -T (title) and -e (command) parameter
-;;
-;; You can test the default setup. (xterm + sh) with
-;; M-x org-babel-screen-test RET
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-screen-location "screen"
- "The command location for screen.
-In case you want to use a different screen than one selected by your $PATH")
-
-(defvar org-babel-default-header-args:screen
- '((:results . "silent") (:session . "default") (:cmd . "sh") (:terminal . "xterm"))
- "Default arguments to use when running screen source blocks.")
-
-(defun org-babel-execute:screen (body params)
- "Send a block of code via screen to a terminal using Babel.
-\"default\" session is used when none is specified."
- (message "Sending source code block to interactive terminal session...")
- (save-window-excursion
- (let* ((session (cdr (assq :session params)))
- (socket (org-babel-screen-session-socketname session)))
- (unless socket (org-babel-prep-session:screen session params))
- (org-babel-screen-session-execute-string
- session (org-babel-expand-body:generic body params)))))
-
-(defun org-babel-prep-session:screen (_session params)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- (let* ((session (cdr (assq :session params)))
- (cmd (cdr (assq :cmd params)))
- (terminal (cdr (assq :terminal params)))
- (process-name (concat "org-babel: terminal (" session ")")))
- (apply 'start-process process-name "*Messages*"
- terminal `("-T" ,(concat "org-babel: " session) "-e" ,org-babel-screen-location
- "-c" "/dev/null" "-mS" ,(concat "org-babel-session-" session)
- ,cmd))
- ;; XXX: Is there a better way than the following?
- (while (not (org-babel-screen-session-socketname session))
- ;; wait until screen session is available before returning
- )))
-
-;; helper functions
-
-(defun org-babel-screen-session-execute-string (session body)
- "If SESSION exists, send BODY to it."
- (let ((socket (org-babel-screen-session-socketname session)))
- (when socket
- (let ((tmpfile (org-babel-screen-session-write-temp-file session body)))
- (apply 'start-process (concat "org-babel: screen (" session ")") "*Messages*"
- org-babel-screen-location
- `("-S" ,socket "-X" "eval" "msgwait 0"
- ,(concat "readreg z " tmpfile)
- "paste z"))))))
-
-(defun org-babel-screen-session-socketname (session)
- "Check if SESSION exists by parsing output of \"screen -ls\"."
- (let* ((screen-ls (shell-command-to-string "screen -ls"))
- (sockets (delq
- nil
- (mapcar
- (lambda (x)
- (when (string-match (rx (or "(Attached)" "(Detached)")) x)
- x))
- (split-string screen-ls "\n"))))
- (match-socket (car
- (delq
- nil
- (mapcar
- (lambda (x)
- (when (string-match
- (concat "org-babel-session-" session) x)
- x))
- sockets)))))
- (when match-socket (car (split-string match-socket)))))
-
-(defun org-babel-screen-session-write-temp-file (_session body)
- "Save BODY in a temp file that is named after SESSION."
- (let ((tmpfile (org-babel-temp-file "screen-")))
- (with-temp-file tmpfile
- (insert body)
-
- ;; org-babel has superfluous spaces
- (goto-char (point-min))
- (delete-matching-lines "^ +$"))
- tmpfile))
-
-(defun org-babel-screen-test ()
- "Test if the default setup works.
-The terminal should shortly flicker."
- (interactive)
- (let* ((random-string (format "%s" (random 99999)))
- (tmpfile (org-babel-temp-file "ob-screen-test-"))
- (body (concat "echo '" random-string "' > " tmpfile "\nexit\n"))
- tmp-string)
- (org-babel-execute:screen body org-babel-default-header-args:screen)
- ;; XXX: need to find a better way to do the following
- (while (not (file-readable-p tmpfile))
- ;; do something, otherwise this will be optimized away
- (format "org-babel-screen: File not readable yet."))
- (setq tmp-string (with-temp-buffer
- (insert-file-contents-literally tmpfile)
- (buffer-substring (point-min) (point-max))))
- (delete-file tmpfile)
- (message (concat "org-babel-screen: Setup "
- (if (string-match random-string tmp-string)
- "WORKS."
- "DOESN'T work.")))))
-
-(provide 'ob-screen)
-
-
-
-;;; ob-screen.el ends here
diff --git a/elpa/org-9.1.14/ob-screen.elc b/elpa/org-9.1.14/ob-screen.elc
deleted file mode 100644
index e6a8793..0000000
--- a/elpa/org-9.1.14/ob-screen.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-sed.el b/elpa/org-9.1.14/ob-sed.el
deleted file mode 100644
index ca8b754..0000000
--- a/elpa/org-9.1.14/ob-sed.el
+++ /dev/null
@@ -1,105 +0,0 @@
-;;; ob-sed.el --- Babel Functions for Sed Scripts -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015-2018 Free Software Foundation, Inc.
-
-;; Author: Bjarte Johansen
-;; Keywords: literate programming, reproducible research
-;; Version: 0.1.1
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Provides a way to evaluate sed scripts in Org mode.
-
-;;; Usage:
-
-;; Add to your Emacs config:
-
-;; (org-babel-do-load-languages
-;; 'org-babel-load-languages
-;; '((sed . t)))
-
-;; In addition to the normal header arguments, ob-sed also provides
-;; :cmd-line and :in-file. :cmd-line allows one to pass other flags to
-;; the sed command like the "--in-place" flag which makes sed edit the
-;; file pass to it instead of outputting to standard out or to a
-;; different file. :in-file is a header arguments that allows one to
-;; tell Org Babel which file the sed script to act on.
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-sed-command "sed"
- "Name of the sed executable command.")
-
-(defvar org-babel-tangle-lang-exts)
-(add-to-list 'org-babel-tangle-lang-exts '("sed" . "sed"))
-
-(defconst org-babel-header-args:sed
- '((:cmd-line . :any)
- (:in-file . :any))
- "Sed specific header arguments.")
-
-(defvar org-babel-default-header-args:sed '()
- "Default arguments for evaluating a sed source block.")
-
-(defun org-babel-execute:sed (body params)
- "Execute a block of sed code with Org Babel.
-BODY is the source inside a sed source block and PARAMS is an
-association list over the source block configurations. This
-function is called by `org-babel-execute-src-block'."
- (message "executing sed source code block")
- (let* ((result-params (cdr (assq :result-params params)))
- (cmd-line (cdr (assq :cmd-line params)))
- (in-file (cdr (assq :in-file params)))
- (code-file (let ((file (org-babel-temp-file "sed-")))
- (with-temp-file file
- (insert body)) file))
- (stdin (let ((stdin (cdr (assq :stdin params))))
- (when stdin
- (let ((tmp (org-babel-temp-file "sed-stdin-"))
- (res (org-babel-ref-resolve stdin)))
- (with-temp-file tmp
- (insert res))
- tmp))))
- (cmd (mapconcat #'identity
- (remq nil
- (list org-babel-sed-command
- (format "-f \"%s\"" code-file)
- cmd-line
- in-file))
- " ")))
- (org-babel-reassemble-table
- (let ((results
- (cond
- (stdin (with-temp-buffer
- (call-process-shell-command cmd stdin (current-buffer))
- (buffer-string)))
- (t (org-babel-eval cmd "")))))
- (when results
- (org-babel-result-cond result-params
- results
- (let ((tmp (org-babel-temp-file "sed-results-")))
- (with-temp-file tmp (insert results))
- (org-babel-import-elisp-from-file tmp)))))
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))
-
-(provide 'ob-sed)
-;;; ob-sed.el ends here
diff --git a/elpa/org-9.1.14/ob-sed.elc b/elpa/org-9.1.14/ob-sed.elc
deleted file mode 100644
index f2685c7..0000000
--- a/elpa/org-9.1.14/ob-sed.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-shell.el b/elpa/org-9.1.14/ob-shell.el
deleted file mode 100644
index 362dfd5..0000000
--- a/elpa/org-9.1.14/ob-shell.el
+++ /dev/null
@@ -1,283 +0,0 @@
-;;; ob-shell.el --- Babel Functions for Shell Evaluation -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating shell source code.
-
-;;; Code:
-(require 'ob)
-(require 'shell)
-(require 'cl-lib)
-
-(declare-function org-babel-comint-in-buffer "ob-comint" (buffer &rest body)
- t)
-(declare-function org-babel-comint-wait-for-output "ob-comint" (buffer))
-(declare-function org-babel-comint-buffer-livep "ob-comint" (buffer))
-(declare-function org-babel-comint-with-output "ob-comint" (meta &rest body)
- t)
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function orgtbl-to-generic "org-table" (table params))
-
-(defvar org-babel-default-header-args:shell '())
-(defvar org-babel-shell-names)
-
-(defun org-babel-shell-initialize ()
- "Define execution functions associated to shell names.
-This function has to be called whenever `org-babel-shell-names'
-is modified outside the Customize interface."
- (interactive)
- (dolist (name org-babel-shell-names)
- (eval `(defun ,(intern (concat "org-babel-execute:" name))
- (body params)
- ,(format "Execute a block of %s commands with Babel." name)
- (let ((shell-file-name ,name))
- (org-babel-execute:shell body params))))
- (eval `(defalias ',(intern (concat "org-babel-variable-assignments:" name))
- 'org-babel-variable-assignments:shell
- ,(format "Return list of %s statements assigning to the block's \
-variables."
- name)))))
-
-(defcustom org-babel-shell-names
- '("sh" "bash" "csh" "ash" "dash" "ksh" "mksh" "posh")
- "List of names of shell supported by babel shell code blocks.
-Call `org-babel-shell-initialize' when modifying this variable
-outside the Customize interface."
- :group 'org-babel
- :type '(repeat (string :tag "Shell name: "))
- :set (lambda (symbol value)
- (set-default symbol value)
- (org-babel-shell-initialize)))
-
-(defun org-babel-execute:shell (body params)
- "Execute a block of Shell commands with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((session (org-babel-sh-initiate-session
- (cdr (assq :session params))))
- (stdin (let ((stdin (cdr (assq :stdin params))))
- (when stdin (org-babel-sh-var-to-string
- (org-babel-ref-resolve stdin)))))
- (cmdline (cdr (assq :cmdline params)))
- (full-body (org-babel-expand-body:generic
- body params (org-babel-variable-assignments:shell params))))
- (org-babel-reassemble-table
- (org-babel-sh-evaluate session full-body params stdin cmdline)
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))
-
-(defun org-babel-prep-session:shell (session params)
- "Prepare SESSION according to the header arguments specified in PARAMS."
- (let* ((session (org-babel-sh-initiate-session session))
- (var-lines (org-babel-variable-assignments:shell params)))
- (org-babel-comint-in-buffer session
- (mapc (lambda (var)
- (insert var) (comint-send-input nil t)
- (org-babel-comint-wait-for-output session)) var-lines))
- session))
-
-(defun org-babel-load-session:shell (session body params)
- "Load BODY into SESSION."
- (save-window-excursion
- (let ((buffer (org-babel-prep-session:shell session params)))
- (with-current-buffer buffer
- (goto-char (process-mark (get-buffer-process (current-buffer))))
- (insert (org-babel-chomp body)))
- buffer)))
-
-
-;;; Helper functions
-(defun org-babel--variable-assignments:sh-generic
- (varname values &optional sep hline)
- "Returns a list of statements declaring the values as a generic variable."
- (format "%s=%s" varname (org-babel-sh-var-to-sh values sep hline)))
-
-(defun org-babel--variable-assignments:bash_array
- (varname values &optional sep hline)
- "Returns a list of statements declaring the values as a bash array."
- (format "unset %s\ndeclare -a %s=( %s )"
- varname varname
- (mapconcat
- (lambda (value) (org-babel-sh-var-to-sh value sep hline))
- values
- " ")))
-
-(defun org-babel--variable-assignments:bash_assoc
- (varname values &optional sep hline)
- "Returns a list of statements declaring the values as bash associative array."
- (format "unset %s\ndeclare -A %s\n%s"
- varname varname
- (mapconcat
- (lambda (items)
- (format "%s[%s]=%s"
- varname
- (org-babel-sh-var-to-sh (car items) sep hline)
- (org-babel-sh-var-to-sh (cdr items) sep hline)))
- values
- "\n")))
-
-(defun org-babel--variable-assignments:bash (varname values &optional sep hline)
- "Represents the parameters as useful Bash shell variables."
- (pcase values
- (`((,_ ,_ . ,_) . ,_) ;two-dimensional array
- (org-babel--variable-assignments:bash_assoc varname values sep hline))
- (`(,_ . ,_) ;simple list
- (org-babel--variable-assignments:bash_array varname values sep hline))
- (_ ;scalar value
- (org-babel--variable-assignments:sh-generic varname values sep hline))))
-
-(defun org-babel-variable-assignments:shell (params)
- "Return list of shell statements assigning the block's variables."
- (let ((sep (cdr (assq :separator params)))
- (hline (when (string= "yes" (cdr (assq :hlines params)))
- (or (cdr (assq :hline-string params))
- "hline"))))
- (mapcar
- (lambda (pair)
- (if (string-suffix-p "bash" shell-file-name)
- (org-babel--variable-assignments:bash
- (car pair) (cdr pair) sep hline)
- (org-babel--variable-assignments:sh-generic
- (car pair) (cdr pair) sep hline)))
- (org-babel--get-vars params))))
-
-(defun org-babel-sh-var-to-sh (var &optional sep hline)
- "Convert an elisp value to a shell variable.
-Convert an elisp var into a string of shell commands specifying a
-var of the same value."
- (concat "'" (replace-regexp-in-string
- "'" "'\"'\"'"
- (org-babel-sh-var-to-string var sep hline))
- "'"))
-
-(defun org-babel-sh-var-to-string (var &optional sep hline)
- "Convert an elisp value to a string."
- (let ((echo-var (lambda (v) (if (stringp v) v (format "%S" v)))))
- (cond
- ((and (listp var) (or (listp (car var)) (eq (car var) 'hline)))
- (orgtbl-to-generic var (list :sep (or sep "\t") :fmt echo-var
- :hline hline)))
- ((listp var)
- (mapconcat echo-var var "\n"))
- (t (funcall echo-var var)))))
-
-(defun org-babel-sh-initiate-session (&optional session _params)
- "Initiate a session named SESSION according to PARAMS."
- (when (and session (not (string= session "none")))
- (save-window-excursion
- (or (org-babel-comint-buffer-livep session)
- (progn
- (shell session)
- ;; Needed for Emacs 23 since the marker is initially
- ;; undefined and the filter functions try to use it without
- ;; checking.
- (set-marker comint-last-output-start (point))
- (get-buffer (current-buffer)))))))
-
-(defvar org-babel-sh-eoe-indicator "echo 'org_babel_sh_eoe'"
- "String to indicate that evaluation has completed.")
-(defvar org-babel-sh-eoe-output "org_babel_sh_eoe"
- "String to indicate that evaluation has completed.")
-
-(defun org-babel-sh-evaluate (session body &optional params stdin cmdline)
- "Pass BODY to the Shell process in BUFFER.
-If RESULT-TYPE equals `output' then return a list of the outputs
-of the statements in BODY, if RESULT-TYPE equals `value' then
-return the value of the last statement in BODY."
- (let ((results
- (cond
- ((or stdin cmdline) ; external shell script w/STDIN
- (let ((script-file (org-babel-temp-file "sh-script-"))
- (stdin-file (org-babel-temp-file "sh-stdin-"))
- (shebang (cdr (assq :shebang params)))
- (padline (not (string= "no" (cdr (assq :padline params))))))
- (with-temp-file script-file
- (when shebang (insert (concat shebang "\n")))
- (when padline (insert "\n"))
- (insert body))
- (set-file-modes script-file #o755)
- (with-temp-file stdin-file (insert (or stdin "")))
- (with-temp-buffer
- (call-process-shell-command
- (concat (if shebang script-file
- (format "%s %s" shell-file-name script-file))
- (and cmdline (concat " " cmdline)))
- stdin-file
- (current-buffer))
- (buffer-string))))
- (session ; session evaluation
- (mapconcat
- #'org-babel-sh-strip-weird-long-prompt
- (mapcar
- #'org-trim
- (butlast
- (org-babel-comint-with-output
- (session org-babel-sh-eoe-output t body)
- (mapc
- (lambda (line)
- (insert line)
- (comint-send-input nil t)
- (while (save-excursion
- (goto-char comint-last-input-end)
- (not (re-search-forward
- comint-prompt-regexp nil t)))
- (accept-process-output
- (get-buffer-process (current-buffer)))))
- (append
- (split-string (org-trim body) "\n")
- (list org-babel-sh-eoe-indicator))))
- 2)) "\n"))
- ('otherwise ; external shell script
- (if (and (cdr (assq :shebang params))
- (> (length (cdr (assq :shebang params))) 0))
- (let ((script-file (org-babel-temp-file "sh-script-"))
- (shebang (cdr (assq :shebang params)))
- (padline (not (equal "no" (cdr (assq :padline params))))))
- (with-temp-file script-file
- (when shebang (insert (concat shebang "\n")))
- (when padline (insert "\n"))
- (insert body))
- (set-file-modes script-file #o755)
- (org-babel-eval script-file ""))
- (org-babel-eval shell-file-name (org-trim body)))))))
- (when results
- (let ((result-params (cdr (assq :result-params params))))
- (org-babel-result-cond result-params
- results
- (let ((tmp-file (org-babel-temp-file "sh-")))
- (with-temp-file tmp-file (insert results))
- (org-babel-import-elisp-from-file tmp-file)))))))
-
-(defun org-babel-sh-strip-weird-long-prompt (string)
- "Remove prompt cruft from a string of shell output."
- (while (string-match "^% +[\r\n$]+ *" string)
- (setq string (substring string (match-end 0))))
- string)
-
-(provide 'ob-shell)
-
-
-
-;;; ob-shell.el ends here
diff --git a/elpa/org-9.1.14/ob-shell.elc b/elpa/org-9.1.14/ob-shell.elc
deleted file mode 100644
index bb3b18b..0000000
--- a/elpa/org-9.1.14/ob-shell.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-shen.el b/elpa/org-9.1.14/ob-shen.el
deleted file mode 100644
index d81e7d6..0000000
--- a/elpa/org-9.1.14/ob-shen.el
+++ /dev/null
@@ -1,78 +0,0 @@
-;;; ob-shen.el --- Babel Functions for Shen -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research, shen
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Currently this only works using session evaluation as there is no
-;; defined method for executing shen code outside of a session.
-
-;;; Requirements:
-
-;; - shen-mode and inf-shen will soon be available through the GNU
-;; elpa, however in the interim they are available at
-;; https://github.com/eschulte/shen-mode
-
-;;; Code:
-(require 'ob)
-
-(declare-function shen-eval-defun "ext:inf-shen" (&optional and-go))
-(declare-function org-babel-ruby-var-to-ruby "ob-ruby" (var))
-
-(defvar org-babel-default-header-args:shen '()
- "Default header arguments for shen code blocks.")
-
-(defun org-babel-expand-body:shen (body params)
- "Expand BODY according to PARAMS, return the expanded body."
- (let ((vars (org-babel--get-vars params)))
- (if (> (length vars) 0)
- (concat "(let "
- (mapconcat (lambda (var)
- (format "%s %s" (car var)
- (org-babel-shen-var-to-shen (cdr var))))
- vars " ")
- body ")")
- body)))
-
-(defun org-babel-shen-var-to-shen (var)
- "Convert VAR into a shen variable."
- (if (listp var)
- (concat "[" (mapconcat #'org-babel-ruby-var-to-ruby var " ") "]")
- (format "%S" var)))
-
-(defun org-babel-execute:shen (body params)
- "Execute a block of Shen code with org-babel.
-This function is called by `org-babel-execute-src-block'"
- (require 'inf-shen)
- (let* ((result-params (cdr (assq :result-params params)))
- (full-body (org-babel-expand-body:shen body params)))
- (let ((results
- (with-temp-buffer
- (insert full-body)
- (call-interactively #'shen-eval-defun))))
- (org-babel-result-cond result-params
- results
- (condition-case nil (org-babel-script-escape results)
- (error results))))))
-
-(provide 'ob-shen)
-;;; ob-shen.el ends here
diff --git a/elpa/org-9.1.14/ob-shen.elc b/elpa/org-9.1.14/ob-shen.elc
deleted file mode 100644
index 6a38f39..0000000
--- a/elpa/org-9.1.14/ob-shen.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-sql.el b/elpa/org-9.1.14/ob-sql.el
deleted file mode 100644
index 959ede3..0000000
--- a/elpa/org-9.1.14/ob-sql.el
+++ /dev/null
@@ -1,332 +0,0 @@
-;;; ob-sql.el --- Babel Functions for SQL -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating sql source code.
-;; (see also ob-sqlite.el)
-;;
-;; SQL is somewhat unique in that there are many different engines for
-;; the evaluation of sql (Mysql, PostgreSQL, etc...), so much of this
-;; file will have to be implemented engine by engine.
-;;
-;; Also SQL evaluation generally takes place inside of a database.
-;;
-;; Header args used:
-;; - engine
-;; - cmdline
-;; - dbhost
-;; - dbport
-;; - dbuser
-;; - dbpassword
-;; - database
-;; - colnames (default, nil, means "yes")
-;; - result-params
-;; - out-file
-;;
-;; The following are used but not really implemented for SQL:
-;; - colname-names
-;; - rownames
-;; - rowname-names
-;;
-;; Engines supported:
-;; - mysql
-;; - dbi
-;; - mssql
-;; - sqsh
-;; - postgresql
-;; - oracle
-;; - vertica
-;;
-;; TODO:
-;;
-;; - support for sessions
-;; - support for more engines
-;; - what's a reasonable way to drop table data into SQL?
-;;
-
-;;; Code:
-(require 'ob)
-
-(declare-function org-table-import "org-table" (file arg))
-(declare-function orgtbl-to-csv "org-table" (table params))
-(declare-function org-table-to-lisp "org-table" (&optional txt))
-(declare-function cygwin-convert-file-name-to-windows "cygw32.c" (file &optional absolute-p))
-
-(defvar org-babel-default-header-args:sql '())
-
-(defconst org-babel-header-args:sql
- '((engine . :any)
- (out-file . :any)
- (dbhost . :any)
- (dbport . :any)
- (dbuser . :any)
- (dbpassword . :any)
- (database . :any))
- "SQL-specific header arguments.")
-
-(defun org-babel-expand-body:sql (body params)
- "Expand BODY according to the values of PARAMS."
- (org-babel-sql-expand-vars
- body (org-babel--get-vars params)))
-
-(defun org-babel-sql-dbstring-mysql (host port user password database)
- "Make MySQL cmd line args for database connection. Pass nil to omit that arg."
- (combine-and-quote-strings
- (delq nil
- (list (when host (concat "-h" host))
- (when port (format "-P%d" port))
- (when user (concat "-u" user))
- (when password (concat "-p" password))
- (when database (concat "-D" database))))))
-
-(defun org-babel-sql-dbstring-postgresql (host port user database)
- "Make PostgreSQL command line args for database connection.
-Pass nil to omit that arg."
- (combine-and-quote-strings
- (delq nil
- (list (when host (concat "-h" host))
- (when port (format "-p%d" port))
- (when user (concat "-U" user))
- (when database (concat "-d" database))))))
-
-(defun org-babel-sql-dbstring-oracle (host port user password database)
- "Make Oracle command line args for database connection."
- (format "%s/%s@%s:%s/%s" user password host port database))
-
-(defun org-babel-sql-dbstring-mssql (host user password database)
- "Make sqlcmd command line args for database connection.
-`sqlcmd' is the preferred command line tool to access Microsoft
-SQL Server on Windows and Linux platform."
- (mapconcat #'identity
- (delq nil
- (list (when host (format "-S \"%s\"" host))
- (when user (format "-U \"%s\"" user))
- (when password (format "-P \"%s\"" password))
- (when database (format "-d \"%s\"" database))))
- " "))
-
-(defun org-babel-sql-dbstring-sqsh (host user password database)
- "Make sqsh command line args for database connection.
-\"sqsh\" is one method to access Sybase or MS SQL via Linux platform"
- (mapconcat #'identity
- (delq nil
- (list (when host (format "-S \"%s\"" host))
- (when user (format "-U \"%s\"" user))
- (when password (format "-P \"%s\"" password))
- (when database (format "-D \"%s\"" database))))
- " "))
-
-(defun org-babel-sql-dbstring-vertica (host port user password database)
- "Make Vertica command line args for database connection. Pass nil to omit that arg."
- (mapconcat #'identity
- (delq nil
- (list (when host (format "-h %s" host))
- (when port (format "-p %d" port))
- (when user (format "-U %s" user))
- (when password (format "-w %s" (shell-quote-argument password) ))
- (when database (format "-d %s" database))))
- " "))
-
-(defun org-babel-sql-convert-standard-filename (file)
- "Convert FILE to OS standard file name.
-If in Cygwin environment, uses Cygwin specific function to
-convert the file name. In a Windows-NT environment, do nothing.
-Otherwise, use Emacs' standard conversion function."
- (cond ((fboundp 'cygwin-convert-file-name-to-windows)
- (format "%S" (cygwin-convert-file-name-to-windows file)))
- ((string= "windows-nt" system-type) file)
- (t (format "%S" (convert-standard-filename file)))))
-
-(defun org-babel-execute:sql (body params)
- "Execute a block of Sql code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((result-params (cdr (assq :result-params params)))
- (cmdline (cdr (assq :cmdline params)))
- (dbhost (cdr (assq :dbhost params)))
- (dbport (cdr (assq :dbport params)))
- (dbuser (cdr (assq :dbuser params)))
- (dbpassword (cdr (assq :dbpassword params)))
- (database (cdr (assq :database params)))
- (engine (cdr (assq :engine params)))
- (colnames-p (not (equal "no" (cdr (assq :colnames params)))))
- (in-file (org-babel-temp-file "sql-in-"))
- (out-file (or (cdr (assq :out-file params))
- (org-babel-temp-file "sql-out-")))
- (header-delim "")
- (command (pcase (intern engine)
- (`dbi (format "dbish --batch %s < %s | sed '%s' > %s"
- (or cmdline "")
- (org-babel-process-file-name in-file)
- "/^+/d;s/^|//;s/(NULL)/ /g;$d"
- (org-babel-process-file-name out-file)))
- (`monetdb (format "mclient -f tab %s < %s > %s"
- (or cmdline "")
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)))
- (`mssql (format "sqlcmd %s -s \"\t\" %s -i %s -o %s"
- (or cmdline "")
- (org-babel-sql-dbstring-mssql
- dbhost dbuser dbpassword database)
- (org-babel-sql-convert-standard-filename
- (org-babel-process-file-name in-file))
- (org-babel-sql-convert-standard-filename
- (org-babel-process-file-name out-file))))
- (`mysql (format "mysql %s %s %s < %s > %s"
- (org-babel-sql-dbstring-mysql
- dbhost dbport dbuser dbpassword database)
- (if colnames-p "" "-N")
- (or cmdline "")
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)))
- (`postgresql (format
- "%spsql --set=\"ON_ERROR_STOP=1\" %s -A -P \
-footer=off -F \"\t\" %s -f %s -o %s %s"
- (if dbpassword
- (format "PGPASSWORD=%s " dbpassword)
- "")
- (if colnames-p "" "-t")
- (org-babel-sql-dbstring-postgresql
- dbhost dbport dbuser database)
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)
- (or cmdline "")))
- (`sqsh (format "sqsh %s %s -i %s -o %s -m csv"
- (or cmdline "")
- (org-babel-sql-dbstring-sqsh
- dbhost dbuser dbpassword database)
- (org-babel-sql-convert-standard-filename
- (org-babel-process-file-name in-file))
- (org-babel-sql-convert-standard-filename
- (org-babel-process-file-name out-file))))
- (`vertica (format "vsql %s -f %s -o %s %s"
- (org-babel-sql-dbstring-vertica
- dbhost dbport dbuser dbpassword database)
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)
- (or cmdline "")))
- (`oracle (format
- "sqlplus -s %s < %s > %s"
- (org-babel-sql-dbstring-oracle
- dbhost dbport dbuser dbpassword database)
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)))
- (_ (error "No support for the %s SQL engine" engine)))))
- (with-temp-file in-file
- (insert
- (pcase (intern engine)
- (`dbi "/format partbox\n")
- (`oracle "SET PAGESIZE 50000
-SET NEWPAGE 0
-SET TAB OFF
-SET SPACE 0
-SET LINESIZE 9999
-SET ECHO OFF
-SET FEEDBACK OFF
-SET VERIFY OFF
-SET HEADING ON
-SET MARKUP HTML OFF SPOOL OFF
-SET COLSEP '|'
-
-")
- ((or `mssql `sqsh) "SET NOCOUNT ON
-
-")
- (`vertica "\\a\n")
- (_ ""))
- (org-babel-expand-body:sql body params)
- ;; "sqsh" requires "go" inserted at EOF.
- (if (string= engine "sqsh") "\ngo" "")))
- (org-babel-eval command "")
- (org-babel-result-cond result-params
- (with-temp-buffer
- (progn (insert-file-contents-literally out-file) (buffer-string)))
- (with-temp-buffer
- (cond
- ((memq (intern engine) '(dbi mysql postgresql sqsh vertica))
- ;; Add header row delimiter after column-names header in first line
- (cond
- (colnames-p
- (with-temp-buffer
- (insert-file-contents out-file)
- (goto-char (point-min))
- (forward-line 1)
- (insert "-\n")
- (setq header-delim "-")
- (write-file out-file)))))
- (t
- ;; Need to figure out the delimiter for the header row
- (with-temp-buffer
- (insert-file-contents out-file)
- (goto-char (point-min))
- (when (re-search-forward "^\\(-+\\)[^-]" nil t)
- (setq header-delim (match-string-no-properties 1)))
- (goto-char (point-max))
- (forward-char -1)
- (while (looking-at "\n")
- (delete-char 1)
- (goto-char (point-max))
- (forward-char -1))
- (write-file out-file))))
- (org-table-import out-file (if (string= engine "sqsh") '(4) '(16)))
- (org-babel-reassemble-table
- (mapcar (lambda (x)
- (if (string= (car x) header-delim)
- 'hline
- x))
- (org-table-to-lisp))
- (org-babel-pick-name (cdr (assq :colname-names params))
- (cdr (assq :colnames params)))
- (org-babel-pick-name (cdr (assq :rowname-names params))
- (cdr (assq :rownames params))))))))
-
-(defun org-babel-sql-expand-vars (body vars)
- "Expand the variables held in VARS in BODY."
- (mapc
- (lambda (pair)
- (setq body
- (replace-regexp-in-string
- (format "$%s" (car pair))
- (let ((val (cdr pair)))
- (if (listp val)
- (let ((data-file (org-babel-temp-file "sql-data-")))
- (with-temp-file data-file
- (insert (orgtbl-to-csv
- val '(:fmt (lambda (el) (if (stringp el)
- el
- (format "%S" el)))))))
- data-file)
- (if (stringp val) val (format "%S" val))))
- body)))
- vars)
- body)
-
-(defun org-babel-prep-session:sql (_session _params)
- "Raise an error because Sql sessions aren't implemented."
- (error "SQL sessions not yet implemented"))
-
-(provide 'ob-sql)
-
-
-
-;;; ob-sql.el ends here
diff --git a/elpa/org-9.1.14/ob-sql.elc b/elpa/org-9.1.14/ob-sql.elc
deleted file mode 100644
index 8f6a54b..0000000
--- a/elpa/org-9.1.14/ob-sql.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-sqlite.el b/elpa/org-9.1.14/ob-sqlite.el
deleted file mode 100644
index 42528a3..0000000
--- a/elpa/org-9.1.14/ob-sqlite.el
+++ /dev/null
@@ -1,158 +0,0 @@
-;;; ob-sqlite.el --- Babel Functions for SQLite Databases -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating sqlite source code.
-
-;;; Code:
-(require 'ob)
-
-(declare-function org-fill-template "org" (template alist))
-(declare-function org-table-convert-region "org-table"
- (beg0 end0 &optional separator))
-(declare-function orgtbl-to-csv "org-table" (table params))
-(declare-function org-table-to-lisp "org-table" (&optional txt))
-
-(defvar org-babel-default-header-args:sqlite '())
-
-(defvar org-babel-header-args:sqlite
- '((db . :any)
- (header . :any)
- (echo . :any)
- (bail . :any)
- (csv . :any)
- (column . :any)
- (html . :any)
- (line . :any)
- (list . :any)
- (separator . :any)
- (nullvalue . :any))
- "Sqlite specific header args.")
-
-(defun org-babel-expand-body:sqlite (body params)
- "Expand BODY according to the values of PARAMS."
- (org-babel-sqlite-expand-vars
- body (org-babel--get-vars params)))
-
-(defvar org-babel-sqlite3-command "sqlite3")
-
-(defun org-babel-execute:sqlite (body params)
- "Execute a block of Sqlite code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (let ((result-params (split-string (or (cdr (assq :results params)) "")))
- (db (cdr (assq :db params)))
- (separator (cdr (assq :separator params)))
- (nullvalue (cdr (assq :nullvalue params)))
- (headers-p (equal "yes" (cdr (assq :colnames params))))
- (others (delq nil (mapcar
- (lambda (arg) (car (assq arg params)))
- (list :header :echo :bail :column
- :csv :html :line :list)))))
- (unless db (error "ob-sqlite: can't evaluate without a database"))
- (with-temp-buffer
- (insert
- (org-babel-eval
- (org-fill-template
- "%cmd %header %separator %nullvalue %others %csv %db "
- (list
- (cons "cmd" org-babel-sqlite3-command)
- (cons "header" (if headers-p "-header" "-noheader"))
- (cons "separator"
- (if separator (format "-separator %s" separator) ""))
- (cons "nullvalue"
- (if nullvalue (format "-nullvalue %s" nullvalue) ""))
- (cons "others"
- (mapconcat
- (lambda (arg) (format "-%s" (substring (symbol-name arg) 1)))
- others " "))
- ;; for easy table parsing, default header type should be -csv
- (cons "csv" (if (or (member :csv others) (member :column others)
- (member :line others) (member :list others)
- (member :html others) separator)
- ""
- "-csv"))
- (cons "db " db)))
- ;; body of the code block
- (org-babel-expand-body:sqlite body params)))
- (org-babel-result-cond result-params
- (buffer-string)
- (if (equal (point-min) (point-max))
- ""
- (org-table-convert-region (point-min) (point-max)
- (if (or (member :csv others)
- (member :column others)
- (member :line others)
- (member :list others)
- (member :html others) separator)
- nil
- '(4)))
- (org-babel-sqlite-table-or-scalar
- (org-babel-sqlite-offset-colnames
- (org-table-to-lisp) headers-p)))))))
-
-(defun org-babel-sqlite-expand-vars (body vars)
- "Expand the variables held in VARS in BODY."
- ;; FIXME: Redundancy with org-babel-sql-expand-vars!
- (mapc
- (lambda (pair)
- (setq body
- (replace-regexp-in-string
- (format "$%s" (car pair))
- (let ((val (cdr pair)))
- (if (listp val)
- (let ((data-file (org-babel-temp-file "sqlite-data-")))
- (with-temp-file data-file
- (insert (orgtbl-to-csv val nil)))
- data-file)
- (if (stringp val) val (format "%S" val))))
- body)))
- vars)
- body)
-
-(defun org-babel-sqlite-table-or-scalar (result)
- "If RESULT looks like a trivial table, then unwrap it."
- (if (and (equal 1 (length result))
- (equal 1 (length (car result))))
- (org-babel-read (caar result))
- (mapcar (lambda (row)
- (if (eq 'hline row)
- 'hline
- (mapcar #'org-babel-string-read row))) result)))
-
-(defun org-babel-sqlite-offset-colnames (table headers-p)
- "If HEADERS-P is non-nil then offset the first row as column names."
- (if headers-p
- (cons (car table) (cons 'hline (cdr table)))
- table))
-
-(defun org-babel-prep-session:sqlite (_session _params)
- "Raise an error because support for SQLite sessions isn't implemented.
-Prepare SESSION according to the header arguments specified in PARAMS."
- (error "SQLite sessions not yet implemented"))
-
-(provide 'ob-sqlite)
-
-
-
-;;; ob-sqlite.el ends here
diff --git a/elpa/org-9.1.14/ob-sqlite.elc b/elpa/org-9.1.14/ob-sqlite.elc
deleted file mode 100644
index 5744e15..0000000
--- a/elpa/org-9.1.14/ob-sqlite.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-stan.el b/elpa/org-9.1.14/ob-stan.el
deleted file mode 100644
index ffc2681..0000000
--- a/elpa/org-9.1.14/ob-stan.el
+++ /dev/null
@@ -1,85 +0,0 @@
-;;; ob-stan.el --- Babel Functions for Stan -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015-2018 Free Software Foundation, Inc.
-
-;; Author: Kyle Meyer
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating Stan [1] source code.
-;;
-;; Evaluating a Stan block can produce two different results.
-;;
-;; 1) Dump the source code contents to a file.
-;;
-;; This file can then be used as a variable in other blocks, which
-;; allows interfaces like RStan to use the model.
-;;
-;; 2) Compile the contents to a model file.
-;;
-;; This provides access to the CmdStan interface. To use this, set
-;; `org-babel-stan-cmdstan-directory' and provide a :file argument
-;; that does not end in ".stan".
-;;
-;; For more information and usage examples, visit
-;; https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-stan.html
-;;
-;; [1] http://mc-stan.org/
-
-;;; Code:
-(require 'ob)
-(require 'org-compat)
-
-(defcustom org-babel-stan-cmdstan-directory nil
- "CmdStan source directory.
-Call \"make\" from this directory to compile the Stan block.
-When nil, executing Stan blocks dumps the content to a file."
- :group 'org-babel
- :type '(choice
- (directory :tag "Compilation directory")
- (const :tag "Dump to a file" nil)))
-
-(defvar org-babel-default-header-args:stan
- '((:results . "file")))
-
-(defun org-babel-execute:stan (body params)
- "Generate Stan file from BODY according to PARAMS.
-A :file header argument must be given. If
-`org-babel-stan-cmdstan-directory' is non-nil and the file name
-does not have a \".stan\" extension, save an intermediate
-\".stan\" file and compile the block to the named file.
-Otherwise, write the Stan code directly to the named file."
- (let ((file (expand-file-name
- (or (cdr (assq :file params))
- (user-error "Set :file argument to execute Stan blocks")))))
- (if (or (not org-babel-stan-cmdstan-directory)
- (string-match-p "\\.stan\\'" file))
- (with-temp-file file (insert body))
- (with-temp-file (concat file ".stan") (insert body))
- (let ((default-directory org-babel-stan-cmdstan-directory))
- (call-process-shell-command (concat "make " file))))
- nil)) ; Signal that output has been written to file.
-
-(defun org-babel-prep-session:stan (_session _params)
- "Return an error because Stan does not support sessions."
- (user-error "Stan does not support sessions"))
-
-(provide 'ob-stan)
-;;; ob-stan.el ends here
diff --git a/elpa/org-9.1.14/ob-stan.elc b/elpa/org-9.1.14/ob-stan.elc
deleted file mode 100644
index ae97e3f..0000000
--- a/elpa/org-9.1.14/ob-stan.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-table.el b/elpa/org-9.1.14/ob-table.el
deleted file mode 100644
index f6a5c88..0000000
--- a/elpa/org-9.1.14/ob-table.el
+++ /dev/null
@@ -1,153 +0,0 @@
-;;; ob-table.el --- Support for Calling Babel Functions from Tables -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Should allow calling functions from Org tables using the function
-;; `org-sbe' as so...
-
-;; #+begin_src emacs-lisp :results silent
-;; (defun fibbd (n) (if (< n 2) 1 (+ (fibbd (- n 1)) (fibbd (- n 2)))))
-;; #+end_src
-
-;; #+name: fibbd
-;; #+begin_src emacs-lisp :var n=2 :results silent
-;; (fibbd n)
-;; #+end_src
-
-;; | original | fibbd |
-;; |----------+--------|
-;; | 0 | |
-;; | 1 | |
-;; | 2 | |
-;; | 3 | |
-;; | 4 | |
-;; | 5 | |
-;; | 6 | |
-;; | 7 | |
-;; | 8 | |
-;; | 9 | |
-;; #+TBLFM: $2='(org-sbe "fibbd" (n $1))
-
-;; NOTE: The quotation marks around the function name, 'fibbd' here,
-;; are optional.
-
-;;; Code:
-(require 'ob-core)
-
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defun org-babel-table-truncate-at-newline (string)
- "Replace newline character with ellipses.
-If STRING ends in a newline character, then remove the newline
-character and replace it with ellipses."
- (if (and (stringp string) (string-match "[\n\r]\\(.\\)?" string))
- (concat (substring string 0 (match-beginning 0))
- (when (match-string 1 string) "...")) string))
-
-(defmacro org-sbe (source-block &rest variables)
- "Return the results of calling SOURCE-BLOCK with VARIABLES.
-
-Each element of VARIABLES should be a list of two elements: the
-first element is the name of the variable and second element is a
-string of its value.
-
-So this `org-sbe' construct
-
- (org-sbe \"source-block\" (n $2) (m 3))
-
-is the equivalent of the following source code block:
-
- #+begin_src emacs-lisp :var results=source-block(n=val_at_col_2, m=3) :results silent
- results
- #+end_src
-
-NOTE: The quotation marks around the function name,
-'source-block', are optional.
-
-NOTE: By default, string variable names are interpreted as
-references to source-code blocks, to force interpretation of a
-cell's value as a string, prefix the identifier a \"$\" (e.g.,
-\"$$2\" instead of \"$2\" or \"$@2$2\" instead of \"@2$2\").
-
-NOTE: It is also possible to pass header arguments to the code
-block. In this case a table cell should hold the string value of
-the header argument which can then be passed before all variables
-as shown in the example below.
-
-| 1 | 2 | :file nothing.png | nothing.png |
-#+TBLFM: @1$4=\\='(org-sbe test-sbe $3 (x $1) (y $2))"
- (declare (debug (form form)))
- (let* ((header-args (if (stringp (car variables)) (car variables) ""))
- (variables (if (stringp (car variables)) (cdr variables) variables)))
- (let* (quote
- (variables
- (mapcar
- (lambda (var)
- ;; ensure that all cells prefixed with $'s are strings
- (cons (car var)
- (delq nil (mapcar
- (lambda (el)
- (if (eq '$ el)
- (prog1 nil (setq quote t))
- (prog1
- (cond
- (quote (format "\"%s\"" el))
- ((stringp el) (org-no-properties el))
- (t el))
- (setq quote nil))))
- (cdr var)))))
- variables)))
- (unless (stringp source-block)
- (setq source-block (symbol-name source-block)))
- (let ((result
- (if (and source-block (> (length source-block) 0))
- (let ((params
- ;; FIXME: Why `eval'?!?!?
- (eval `(org-babel-parse-header-arguments
- (concat
- ":var results="
- ,source-block
- "[" ,header-args "]"
- "("
- (mapconcat
- (lambda (var-spec)
- (if (> (length (cdr var-spec)) 1)
- (format "%S='%S"
- (car var-spec)
- (mapcar #'read (cdr var-spec)))
- (format "%S=%s"
- (car var-spec) (cadr var-spec))))
- ',variables ", ")
- ")")))))
- (org-babel-execute-src-block
- nil (list "emacs-lisp" "results" params)
- '((:results . "silent"))))
- "")))
- (org-trim (if (stringp result) result (format "%S" result)))))))
-
-(provide 'ob-table)
-
-
-
-;;; ob-table.el ends here
diff --git a/elpa/org-9.1.14/ob-table.elc b/elpa/org-9.1.14/ob-table.elc
deleted file mode 100644
index d9c940c..0000000
--- a/elpa/org-9.1.14/ob-table.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-tangle.el b/elpa/org-9.1.14/ob-tangle.el
deleted file mode 100644
index 48eddb7..0000000
--- a/elpa/org-9.1.14/ob-tangle.el
+++ /dev/null
@@ -1,601 +0,0 @@
-;;; ob-tangle.el --- Extract Source Code From Org Files -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Extract the code from source blocks out into raw source-code files.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org-src)
-(require 'org-macs)
-
-(declare-function make-directory "files" (dir &optional parents))
-(declare-function org-at-heading-p "org" (&optional ignored))
-(declare-function org-babel-update-block-body "ob-core" (new-body))
-(declare-function org-back-to-heading "org" (&optional invisible-ok))
-(declare-function org-before-first-heading-p "org" ())
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-type "org-element" (element))
-(declare-function org-fill-template "org" (template alist))
-(declare-function org-heading-components "org" ())
-(declare-function org-in-commented-heading-p "org" (&optional no-inheritance))
-(declare-function org-link-escape "org" (text &optional table merge))
-(declare-function org-open-link-from-string "org" (s &optional arg reference-buffer))
-(declare-function org-remove-indentation "org" (code &optional n))
-(declare-function org-store-link "org" (arg))
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function outline-previous-heading "outline" ())
-(declare-function org-id-find "org-id" (id &optional markerp))
-
-(defvar org-link-types-re)
-
-(defcustom org-babel-tangle-lang-exts
- '(("emacs-lisp" . "el")
- ("elisp" . "el"))
- "Alist mapping languages to their file extensions.
-The key is the language name, the value is the string that should
-be inserted as the extension commonly used to identify files
-written in this language. If no entry is found in this list,
-then the name of the language is used."
- :group 'org-babel-tangle
- :version "24.1"
- :type '(repeat
- (cons
- (string "Language name")
- (string "File Extension"))))
-
-(defcustom org-babel-tangle-use-relative-file-links t
- "Use relative path names in links from tangled source back the Org file."
- :group 'org-babel-tangle
- :type 'boolean)
-
-(defcustom org-babel-post-tangle-hook nil
- "Hook run in code files tangled by `org-babel-tangle'."
- :group 'org-babel
- :version "24.1"
- :type 'hook)
-
-(defcustom org-babel-pre-tangle-hook '(save-buffer)
- "Hook run at the beginning of `org-babel-tangle'."
- :group 'org-babel
- :version "24.1"
- :type 'hook)
-
-(defcustom org-babel-tangle-body-hook nil
- "Hook run over the contents of each code block body."
- :group 'org-babel
- :version "24.1"
- :type 'hook)
-
-(defcustom org-babel-tangle-comment-format-beg "[[%link][%source-name]]"
- "Format of inserted comments in tangled code files.
-The following format strings can be used to insert special
-information into the output using `org-fill-template'.
-%start-line --- the line number at the start of the code block
-%file --------- the file from which the code block was tangled
-%link --------- Org style link to the code block
-%source-name -- name of the code block
-
-Upon insertion the formatted comment will be commented out, and
-followed by a newline. To inhibit this post-insertion processing
-set the `org-babel-tangle-uncomment-comments' variable to a
-non-nil value.
-
-Whether or not comments are inserted during tangling is
-controlled by the :comments header argument."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defcustom org-babel-tangle-comment-format-end "%source-name ends here"
- "Format of inserted comments in tangled code files.
-The following format strings can be used to insert special
-information into the output using `org-fill-template'.
-%start-line --- the line number at the start of the code block
-%file --------- the file from which the code block was tangled
-%link --------- Org style link to the code block
-%source-name -- name of the code block
-
-Upon insertion the formatted comment will be commented out, and
-followed by a newline. To inhibit this post-insertion processing
-set the `org-babel-tangle-uncomment-comments' variable to a
-non-nil value.
-
-Whether or not comments are inserted during tangling is
-controlled by the :comments header argument."
- :group 'org-babel
- :version "24.1"
- :type 'string)
-
-(defcustom org-babel-tangle-uncomment-comments nil
- "Inhibits automatic commenting and addition of trailing newline
-of tangle comments. Use `org-babel-tangle-comment-format-beg'
-and `org-babel-tangle-comment-format-end' to customize the format
-of tangled comments."
- :group 'org-babel
- :type 'boolean)
-
-(defcustom org-babel-process-comment-text 'org-remove-indentation
- "Function called to process raw Org text collected to be
-inserted as comments in tangled source-code files. The function
-should take a single string argument and return a string
-result. The default value is `org-remove-indentation'."
- :group 'org-babel
- :version "24.1"
- :type 'function)
-
-(defun org-babel-find-file-noselect-refresh (file)
- "Find file ensuring that the latest changes on disk are
-represented in the file."
- (find-file-noselect file 'nowarn)
- (with-current-buffer (get-file-buffer file)
- (revert-buffer t t t)))
-
-(defmacro org-babel-with-temp-filebuffer (file &rest body)
- "Open FILE into a temporary buffer execute BODY there like
-`progn', then kill the FILE buffer returning the result of
-evaluating BODY."
- (declare (indent 1))
- (let ((temp-path (make-symbol "temp-path"))
- (temp-result (make-symbol "temp-result"))
- (temp-file (make-symbol "temp-file"))
- (visited-p (make-symbol "visited-p")))
- `(let* ((,temp-path ,file)
- (,visited-p (get-file-buffer ,temp-path))
- ,temp-result ,temp-file)
- (org-babel-find-file-noselect-refresh ,temp-path)
- (setf ,temp-file (get-file-buffer ,temp-path))
- (with-current-buffer ,temp-file
- (setf ,temp-result (progn ,@body)))
- (unless ,visited-p (kill-buffer ,temp-file))
- ,temp-result)))
-(def-edebug-spec org-babel-with-temp-filebuffer (form body))
-
-;;;###autoload
-(defun org-babel-tangle-file (file &optional target-file lang)
- "Extract the bodies of source code blocks in FILE.
-Source code blocks are extracted with `org-babel-tangle'.
-Optional argument TARGET-FILE can be used to specify a default
-export file for all source blocks. Optional argument LANG can be
-used to limit the exported source code blocks by language.
-Return a list whose CAR is the tangled file name."
- (interactive "fFile to tangle: \nP")
- (let ((visited-p (get-file-buffer (expand-file-name file)))
- to-be-removed)
- (prog1
- (save-window-excursion
- (find-file file)
- (setq to-be-removed (current-buffer))
- (mapcar #'expand-file-name (org-babel-tangle nil target-file lang)))
- (unless visited-p
- (kill-buffer to-be-removed)))))
-
-(defun org-babel-tangle-publish (_ filename pub-dir)
- "Tangle FILENAME and place the results in PUB-DIR."
- (unless (file-exists-p pub-dir)
- (make-directory pub-dir t))
- (setq pub-dir (file-name-as-directory pub-dir))
- (mapc (lambda (el) (copy-file el pub-dir t)) (org-babel-tangle-file filename)))
-
-;;;###autoload
-(defun org-babel-tangle (&optional arg target-file lang)
- "Write code blocks to source-specific files.
-Extract the bodies of all source code blocks from the current
-file into their own source-specific files.
-With one universal prefix argument, only tangle the block at point.
-When two universal prefix arguments, only tangle blocks for the
-tangle file of the block at point.
-Optional argument TARGET-FILE can be used to specify a default
-export file for all source blocks. Optional argument LANG can be
-used to limit the exported source code blocks by language."
- (interactive "P")
- (run-hooks 'org-babel-pre-tangle-hook)
- ;; Possibly Restrict the buffer to the current code block
- (save-restriction
- (save-excursion
- (when (equal arg '(4))
- (let ((head (org-babel-where-is-src-block-head)))
- (if head
- (goto-char head)
- (user-error "Point is not in a source code block"))))
- (let ((block-counter 0)
- (org-babel-default-header-args
- (if target-file
- (org-babel-merge-params org-babel-default-header-args
- (list (cons :tangle target-file)))
- org-babel-default-header-args))
- (tangle-file
- (when (equal arg '(16))
- (or (cdr (assq :tangle (nth 2 (org-babel-get-src-block-info 'light))))
- (user-error "Point is not in a source code block"))))
- path-collector)
- (mapc ;; map over all languages
- (lambda (by-lang)
- (let* ((lang (car by-lang))
- (specs (cdr by-lang))
- (ext (or (cdr (assoc lang org-babel-tangle-lang-exts)) lang))
- (lang-f (intern
- (concat
- (or (and (cdr (assoc lang org-src-lang-modes))
- (symbol-name
- (cdr (assoc lang org-src-lang-modes))))
- lang)
- "-mode")))
- she-banged)
- (mapc
- (lambda (spec)
- (let ((get-spec (lambda (name) (cdr (assoc name (nth 4 spec))))))
- (let* ((tangle (funcall get-spec :tangle))
- (she-bang (let ((sheb (funcall get-spec :shebang)))
- (when (> (length sheb) 0) sheb)))
- (tangle-mode (funcall get-spec :tangle-mode))
- (base-name (cond
- ((string= "yes" tangle)
- (file-name-sans-extension
- (nth 1 spec)))
- ((string= "no" tangle) nil)
- ((> (length tangle) 0) tangle)))
- (file-name (when base-name
- ;; decide if we want to add ext to base-name
- (if (and ext (string= "yes" tangle))
- (concat base-name "." ext) base-name))))
- (when file-name
- ;; Possibly create the parent directories for file.
- (let ((m (funcall get-spec :mkdirp))
- (fnd (file-name-directory file-name)))
- (and m fnd (not (string= m "no"))
- (make-directory fnd 'parents)))
- ;; delete any old versions of file
- (and (file-exists-p file-name)
- (not (member file-name (mapcar #'car path-collector)))
- (delete-file file-name))
- ;; drop source-block to file
- (with-temp-buffer
- (when (fboundp lang-f) (ignore-errors (funcall lang-f)))
- (when (and she-bang (not (member file-name she-banged)))
- (insert (concat she-bang "\n"))
- (setq she-banged (cons file-name she-banged)))
- (org-babel-spec-to-string spec)
- ;; We avoid append-to-file as it does not work with tramp.
- (let ((content (buffer-string)))
- (with-temp-buffer
- (when (file-exists-p file-name)
- (insert-file-contents file-name))
- (goto-char (point-max))
- ;; Handle :padlines unless first line in file
- (unless (or (string= "no" (cdr (assq :padline (nth 4 spec))))
- (= (point) (point-min)))
- (insert "\n"))
- (insert content)
- (write-region nil nil file-name))))
- ;; if files contain she-bangs, then make the executable
- (when she-bang
- (unless tangle-mode (setq tangle-mode #o755)))
- ;; update counter
- (setq block-counter (+ 1 block-counter))
- (unless (assoc file-name path-collector)
- (push (cons file-name tangle-mode) path-collector))))))
- specs)))
- (if (equal arg '(4))
- (org-babel-tangle-single-block 1 t)
- (org-babel-tangle-collect-blocks lang tangle-file)))
- (message "Tangled %d code block%s from %s" block-counter
- (if (= block-counter 1) "" "s")
- (file-name-nondirectory
- (buffer-file-name
- (or (buffer-base-buffer) (current-buffer)))))
- ;; run `org-babel-post-tangle-hook' in all tangled files
- (when org-babel-post-tangle-hook
- (mapc
- (lambda (file)
- (org-babel-with-temp-filebuffer file
- (run-hooks 'org-babel-post-tangle-hook)))
- (mapcar #'car path-collector)))
- ;; set permissions on tangled files
- (mapc (lambda (pair)
- (when (cdr pair) (set-file-modes (car pair) (cdr pair))))
- path-collector)
- (mapcar #'car path-collector)))))
-
-(defun org-babel-tangle-clean ()
- "Remove comments inserted by `org-babel-tangle'.
-Call this function inside of a source-code file generated by
-`org-babel-tangle' to remove all comments inserted automatically
-by `org-babel-tangle'. Warning, this comment removes any lines
-containing constructs which resemble Org file links or noweb
-references."
- (interactive)
- (goto-char (point-min))
- (while (or (re-search-forward "\\[\\[file:.*\\]\\[.*\\]\\]" nil t)
- (re-search-forward (org-babel-noweb-wrap) nil t))
- (delete-region (save-excursion (beginning-of-line 1) (point))
- (save-excursion (end-of-line 1) (forward-char 1) (point)))))
-
-(defvar org-stored-links)
-(defvar org-bracket-link-regexp)
-(defun org-babel-spec-to-string (spec)
- "Insert SPEC into the current file.
-
-Insert the source-code specified by SPEC into the current source
-code file. This function uses `comment-region' which assumes
-that the appropriate major-mode is set. SPEC has the form:
-
- (start-line file link source-name params body comment)"
- (pcase-let*
- ((`(,start ,file ,link ,source ,info ,body ,comment) spec)
- (comments (cdr (assq :comments info)))
- (link? (or (string= comments "both") (string= comments "link")
- (string= comments "yes") (string= comments "noweb")))
- (link-data `(("start-line" . ,(number-to-string start))
- ("file" . ,file)
- ("link" . ,link)
- ("source-name" . ,source)))
- (insert-comment (lambda (text)
- (when (and comments
- (not (string= comments "no"))
- (org-string-nw-p text))
- (if org-babel-tangle-uncomment-comments
- ;; Plain comments: no processing.
- (insert text)
- ;; Ensure comments are made to be
- ;; comments, and add a trailing newline.
- ;; Also ignore invisible characters when
- ;; commenting.
- (comment-region
- (point)
- (progn (insert (org-no-properties text))
- (point)))
- (end-of-line)
- (insert "\n"))))))
- (when comment (funcall insert-comment comment))
- (when link?
- (funcall insert-comment
- (org-fill-template
- org-babel-tangle-comment-format-beg link-data)))
- (insert body "\n")
- (when link?
- (funcall insert-comment
- (org-fill-template
- org-babel-tangle-comment-format-end link-data)))))
-
-(defun org-babel-tangle-collect-blocks (&optional language tangle-file)
- "Collect source blocks in the current Org file.
-Return an association list of source-code block specifications of
-the form used by `org-babel-spec-to-string' grouped by language.
-Optional argument LANGUAGE can be used to limit the collected
-source code blocks by language. Optional argument TANGLE-FILE
-can be used to limit the collected code blocks by target file."
- (let ((counter 0) last-heading-pos blocks)
- (org-babel-map-src-blocks (buffer-file-name)
- (let ((current-heading-pos
- (org-with-wide-buffer
- (org-with-limited-levels (outline-previous-heading)))))
- (if (eq last-heading-pos current-heading-pos) (cl-incf counter)
- (setq counter 1)
- (setq last-heading-pos current-heading-pos)))
- (unless (org-in-commented-heading-p)
- (let* ((info (org-babel-get-src-block-info 'light))
- (src-lang (nth 0 info))
- (src-tfile (cdr (assq :tangle (nth 2 info)))))
- (unless (or (string= src-tfile "no")
- (and tangle-file (not (equal tangle-file src-tfile)))
- (and language (not (string= language src-lang))))
- ;; Add the spec for this block to blocks under its
- ;; language.
- (let ((by-lang (assoc src-lang blocks))
- (block (org-babel-tangle-single-block counter)))
- (if by-lang (setcdr by-lang (cons block (cdr by-lang)))
- (push (cons src-lang (list block)) blocks)))))))
- ;; Ensure blocks are in the correct order.
- (mapcar (lambda (b) (cons (car b) (nreverse (cdr b)))) blocks)))
-
-(defun org-babel-tangle-single-block (block-counter &optional only-this-block)
- "Collect the tangled source for current block.
-Return the list of block attributes needed by
-`org-babel-tangle-collect-blocks'. When ONLY-THIS-BLOCK is
-non-nil, return the full association list to be used by
-`org-babel-tangle' directly."
- (let* ((info (org-babel-get-src-block-info))
- (start-line
- (save-restriction (widen)
- (+ 1 (line-number-at-pos (point)))))
- (file (buffer-file-name (buffer-base-buffer)))
- (src-lang (nth 0 info))
- (params (nth 2 info))
- (extra (nth 3 info))
- (cref-fmt (or (and (string-match "-l \"\\(.+\\)\"" extra)
- (match-string 1 extra))
- org-coderef-label-format))
- (link (let ((l (org-no-properties (org-store-link nil))))
- (and (string-match org-bracket-link-regexp l)
- (match-string 1 l))))
- (source-name
- (or (nth 4 info)
- (format "%s:%d"
- (or (ignore-errors (nth 4 (org-heading-components)))
- "No heading")
- block-counter)))
- (expand-cmd (intern (concat "org-babel-expand-body:" src-lang)))
- (assignments-cmd
- (intern (concat "org-babel-variable-assignments:" src-lang)))
- (body
- ;; Run the tangle-body-hook.
- (let ((body (if (org-babel-noweb-p params :tangle)
- (org-babel-expand-noweb-references info)
- (nth 1 info))))
- (with-temp-buffer
- (insert
- ;; Expand body in language specific manner.
- (cond ((assq :no-expand params) body)
- ((fboundp expand-cmd) (funcall expand-cmd body params))
- (t
- (org-babel-expand-body:generic
- body params (and (fboundp assignments-cmd)
- (funcall assignments-cmd params))))))
- (when (string-match "-r" extra)
- (goto-char (point-min))
- (while (re-search-forward
- (replace-regexp-in-string "%s" ".+" cref-fmt) nil t)
- (replace-match "")))
- (run-hooks 'org-babel-tangle-body-hook)
- (buffer-string))))
- (comment
- (when (or (string= "both" (cdr (assq :comments params)))
- (string= "org" (cdr (assq :comments params))))
- ;; From the previous heading or code-block end
- (funcall
- org-babel-process-comment-text
- (buffer-substring
- (max (condition-case nil
- (save-excursion
- (org-back-to-heading t) ; Sets match data
- (match-end 0))
- (error (point-min)))
- (save-excursion
- (if (re-search-backward
- org-babel-src-block-regexp nil t)
- (match-end 0)
- (point-min))))
- (point)))))
- (result
- (list start-line
- (if org-babel-tangle-use-relative-file-links
- (file-relative-name file)
- file)
- (if (and org-babel-tangle-use-relative-file-links
- (string-match org-link-types-re link)
- (string= (match-string 0 link) "file"))
- (concat "file:"
- (file-relative-name (match-string 1 link)
- (file-name-directory
- (cdr (assq :tangle params)))))
- link)
- source-name
- params
- (if org-src-preserve-indentation
- (org-trim body t)
- (org-trim (org-remove-indentation body)))
- comment)))
- (if only-this-block
- (list (cons src-lang (list result)))
- result)))
-
-(defun org-babel-tangle-comment-links (&optional info)
- "Return a list of begin and end link comments for the code block at point."
- (let ((link-data
- `(("start-line" . ,(number-to-string
- (org-babel-where-is-src-block-head)))
- ("file" . ,(buffer-file-name))
- ("link" . ,(org-link-escape
- (progn
- (call-interactively #'org-store-link)
- (org-no-properties (car (pop org-stored-links))))))
- ("source-name" .
- ,(nth 4 (or info (org-babel-get-src-block-info 'light)))))))
- (list (org-fill-template org-babel-tangle-comment-format-beg link-data)
- (org-fill-template org-babel-tangle-comment-format-end link-data))))
-
-;; de-tangling functions
-(defvar org-bracket-link-analytic-regexp)
-(defun org-babel-detangle (&optional source-code-file)
- "Propagate changes in source file back original to Org file.
-This requires that code blocks were tangled with link comments
-which enable the original code blocks to be found."
- (interactive)
- (save-excursion
- (when source-code-file (find-file source-code-file))
- (goto-char (point-min))
- (let ((counter 0) new-body end)
- (while (re-search-forward org-bracket-link-analytic-regexp nil t)
- (when (re-search-forward
- (concat " " (regexp-quote (match-string 5)) " ends here"))
- (setq end (match-end 0))
- (forward-line -1)
- (save-excursion
- (when (setq new-body (org-babel-tangle-jump-to-org))
- (org-babel-update-block-body new-body)))
- (setq counter (+ 1 counter)))
- (goto-char end))
- (prog1 counter (message "Detangled %d code blocks" counter)))))
-
-(defun org-babel-tangle-jump-to-org ()
- "Jump from a tangled code file to the related Org mode file."
- (interactive)
- (let ((mid (point))
- start body-start end
- target-buffer target-char link path block-name body)
- (save-window-excursion
- (save-excursion
- (while (and (re-search-backward org-bracket-link-analytic-regexp nil t)
- (not ; ever wider searches until matching block comments
- (and (setq start (line-beginning-position))
- (setq body-start (line-beginning-position 2))
- (setq link (match-string 0))
- (setq path (match-string 3))
- (setq block-name (match-string 5))
- (save-excursion
- (save-match-data
- (re-search-forward
- (concat " " (regexp-quote block-name)
- " ends here") nil t)
- (setq end (line-beginning-position))))))))
- (unless (and start (< start mid) (< mid end))
- (error "Not in tangled code"))
- (setq body (buffer-substring body-start end)))
- (when (string-match "::" path)
- (setq path (substring path 0 (match-beginning 0))))
- (find-file (or (car (org-id-find path)) path))
- (setq target-buffer (current-buffer))
- ;; Go to the beginning of the relative block in Org file.
- (org-open-link-from-string link)
- (if (string-match "[^ \t\n\r]:\\([[:digit:]]+\\)" block-name)
- (let ((n (string-to-number (match-string 1 block-name))))
- (if (org-before-first-heading-p) (goto-char (point-min))
- (org-back-to-heading t))
- ;; Do not skip the first block if it begins at point min.
- (cond ((or (org-at-heading-p)
- (not (eq (org-element-type (org-element-at-point))
- 'src-block)))
- (org-babel-next-src-block n))
- ((= n 1))
- (t (org-babel-next-src-block (1- n)))))
- (org-babel-goto-named-src-block block-name))
- (goto-char (org-babel-where-is-src-block-head))
- ;; Preserve location of point within the source code in tangled
- ;; code file.
- (forward-line 1)
- (forward-char (- mid body-start))
- (setq target-char (point)))
- (org-src-switch-to-buffer target-buffer t)
- (goto-char target-char)
- body))
-
-(provide 'ob-tangle)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; ob-tangle.el ends here
diff --git a/elpa/org-9.1.14/ob-tangle.elc b/elpa/org-9.1.14/ob-tangle.elc
deleted file mode 100644
index b0b35e5..0000000
--- a/elpa/org-9.1.14/ob-tangle.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob-vala.el b/elpa/org-9.1.14/ob-vala.el
deleted file mode 100644
index 96c37e3..0000000
--- a/elpa/org-9.1.14/ob-vala.el
+++ /dev/null
@@ -1,117 +0,0 @@
-;;; ob-vala.el --- Babel functions for Vala evaluation -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017-2018 Free Software Foundation, Inc.
-
-;; Author: Christian Garbs <mitch@cgarbs.de>
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;;; License:
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; ob-vala.el provides Babel support for the Vala language
-;; (see http://live.gnome.org/Vala for details)
-
-;;; Requirements:
-
-;; - Vala compiler binary (valac)
-;; - Vala development environment (Vala libraries etc.)
-;;
-;; vala-mode.el is nice to have for code formatting, but is not needed
-;; for ob-vala.el
-
-;;; Code:
-
-(require 'ob)
-
-(declare-function org-trim "org" (s &optional keep-lead))
-
-;; File extension.
-(add-to-list 'org-babel-tangle-lang-exts '("vala" . "vala"))
-
-;; Header arguments empty by default.
-(defvar org-babel-default-header-args:vala '())
-
-(defcustom org-babel-vala-compiler "valac"
- "Command used to compile a C source code file into an executable.
-May be either a command in the path, like \"valac\"
-or an absolute path name, like \"/usr/local/bin/valac\".
-Parameters may be used like this: \"valac -v\""
- :group 'org-babel
- :version "26.1"
- :package-version '(Org . "9.1")
- :type 'string)
-
-;; This is the main function which is called to evaluate a code
-;; block.
-;;
-;; - run Vala compiler and create a binary in a temporary file
-;; - compiler/linker flags can be set via :flags header argument
-;; - if compilation succeeded, run the binary
-;; - commandline parameters to the binary can be set via :cmdline
-;; header argument
-;; - stdout will be parsed as RESULT (control via :result-params
-;; header argument)
-;;
-;; There is no session support because Vala is a compiled language.
-;;
-;; This function is heavily based on ob-C.el
-(defun org-babel-execute:vala (body params)
- "Execute a block of Vala code with Babel.
-This function is called by `org-babel-execute-src-block'."
- (message "executing Vala source code block")
- (let* ((tmp-src-file (org-babel-temp-file
- "vala-src-"
- ".vala"))
- (tmp-bin-file (org-babel-temp-file "vala-bin-" org-babel-exeext))
- (cmdline (cdr (assq :cmdline params)))
- (flags (cdr (assq :flags params))))
- (with-temp-file tmp-src-file (insert body))
- (org-babel-eval
- (format "%s %s -o %s %s"
- org-babel-vala-compiler
- (mapconcat #'identity
- (if (listp flags) flags (list flags)) " ")
- (org-babel-process-file-name tmp-bin-file)
- (org-babel-process-file-name tmp-src-file)) "")
- (when (file-executable-p tmp-bin-file)
- (let ((results
- (org-trim
- (org-babel-eval
- (concat tmp-bin-file (if cmdline (concat " " cmdline) "")) ""))))
- (org-babel-reassemble-table
- (org-babel-result-cond (cdr (assq :result-params params))
- (org-babel-read results)
- (let ((tmp-file (org-babel-temp-file "vala-")))
- (with-temp-file tmp-file (insert results))
- (org-babel-import-elisp-from-file tmp-file)))
- (org-babel-pick-name
- (cdr (assq :colname-names params)) (cdr (assq :colnames params)))
- (org-babel-pick-name
- (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))))
-
-(defun org-babel-prep-session:vala (_session _params)
- "Prepare a session.
-This function does nothing as Vala is a compiled language with no
-support for sessions."
- (error "Vala is a compiled language -- no support for sessions"))
-
-(provide 'ob-vala)
-
-;;; ob-vala.el ends here
diff --git a/elpa/org-9.1.14/ob-vala.elc b/elpa/org-9.1.14/ob-vala.elc
deleted file mode 100644
index 8c37106..0000000
--- a/elpa/org-9.1.14/ob-vala.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ob.el b/elpa/org-9.1.14/ob.el
deleted file mode 100644
index 35f65ff..0000000
--- a/elpa/org-9.1.14/ob.el
+++ /dev/null
@@ -1,43 +0,0 @@
-;;; ob.el --- Working with Code Blocks in Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Authors: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Code:
-(require 'org-macs)
-(require 'org-compat)
-(require 'ob-eval)
-(require 'ob-core)
-(require 'ob-comint)
-(require 'ob-exp)
-(require 'ob-keys)
-(require 'ob-table)
-(require 'ob-lob)
-(require 'ob-ref)
-(require 'ob-tangle)
-
-(provide 'ob)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; ob.el ends here
diff --git a/elpa/org-9.1.14/ob.elc b/elpa/org-9.1.14/ob.elc
deleted file mode 100644
index d26971c..0000000
--- a/elpa/org-9.1.14/ob.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org b/elpa/org-9.1.14/org
deleted file mode 100644
index 636827d..0000000
--- a/elpa/org-9.1.14/org
+++ /dev/null
@@ -1,21818 +0,0 @@
-This is org, produced by makeinfo version 6.3 from org.texi.
-
-This manual is for Org version 9.1.14 (release_9.1.14-1-g4931fc).
-
- Copyright © 2004–2018 Free Software Foundation, Inc.
-
- Permission is granted to copy, distribute and/or modify this
- document under the terms of the GNU Free Documentation License,
- Version 1.3 or any later version published by the Free Software
- Foundation; with no Invariant Sections, with the Front-Cover Texts
- being “A GNU Manual,” and with the Back-Cover Texts as in (a)
- below. A copy of the license is included in the section entitled
- “GNU Free Documentation License.”
-
- (a) The FSF’s Back-Cover Text is: “You have the freedom to copy and
- modify this GNU manual.”
-INFO-DIR-SECTION Emacs editing modes
-START-INFO-DIR-ENTRY
-* Org Mode: (org). Outline-based notes management and organizer
-END-INFO-DIR-ENTRY
-
-
-File: org, Node: Top, Next: Introduction, Prev: (dir), Up: (dir)
-
-Org Mode Manual
-***************
-
-This manual is for Org version 9.1.14 (release_9.1.14-1-g4931fc).
-
- Copyright © 2004–2018 Free Software Foundation, Inc.
-
- Permission is granted to copy, distribute and/or modify this
- document under the terms of the GNU Free Documentation License,
- Version 1.3 or any later version published by the Free Software
- Foundation; with no Invariant Sections, with the Front-Cover Texts
- being “A GNU Manual,” and with the Back-Cover Texts as in (a)
- below. A copy of the license is included in the section entitled
- “GNU Free Documentation License.”
-
- (a) The FSF’s Back-Cover Text is: “You have the freedom to copy and
- modify this GNU manual.”
-
-* Menu:
-
-* Introduction:: Getting started
-* Document structure:: A tree works like your brain
-* Tables:: Pure magic for quick formatting
-* Hyperlinks:: Notes in context
-* TODO items:: Every tree branch can be a TODO item
-* Tags:: Tagging headlines and matching sets of tags
-* Properties and columns:: Storing information about an entry
-* Dates and times:: Making items useful for planning
-* Capture - Refile - Archive:: The ins and outs for projects
-* Agenda views:: Collecting information into views
-* Markup:: Prepare text for rich export
-* Exporting:: Sharing and publishing notes
-* Publishing:: Create a web site of linked Org files
-* Working with source code:: Export, evaluate, and tangle code blocks
-* Miscellaneous:: All the rest which did not fit elsewhere
-* Hacking:: How to hack your way around
-* MobileOrg:: Viewing and capture on a mobile device
-* History and acknowledgments:: How Org came into being
-* GNU Free Documentation License:: The license for this documentation.
-* Main Index:: An index of Org’s concepts and features
-* Key Index:: Key bindings and where they are described
-* Command and Function Index:: Command names and some internal functions
-* Variable Index:: Variables mentioned in the manual
-
- — The Detailed Node Listing —
-
-Introduction
-
-* Summary:: Brief summary of what Org does
-* Installation:: Installing Org
-* Activation:: How to activate Org for certain buffers
-* Feedback:: Bug reports, ideas, patches etc.
-* Conventions:: Typesetting conventions in the manual
-
-Document structure
-
-* Outlines:: Org is based on Outline mode
-* Headlines:: How to typeset Org tree headlines
-* Visibility cycling:: Show and hide, much simplified
-* Motion:: Jumping to other headlines
-* Structure editing:: Changing sequence and level of headlines
-* Sparse trees:: Matches embedded in context
-* Plain lists:: Additional structure within an entry
-* Drawers:: Tucking stuff away
-* Blocks:: Folding blocks
-* Footnotes:: How footnotes are defined in Org’s syntax
-* Orgstruct mode:: Structure editing outside Org
-* Org syntax:: Formal description of Org’s syntax
-
-Visibility cycling
-
-* Global and local cycling:: Cycling through various visibility states
-* Initial visibility:: Setting the initial visibility state
-* Catching invisible edits:: Preventing mistakes when editing invisible parts
-
-Tables
-
-* Built-in table editor:: Simple tables
-* Column width and alignment:: Overrule the automatic settings
-* Column groups:: Grouping to trigger vertical lines
-* Orgtbl mode:: The table editor as minor mode
-* The spreadsheet:: The table editor has spreadsheet capabilities
-* Org-Plot:: Plotting from org tables
-
-The spreadsheet
-
-* References:: How to refer to another field or range
-* Formula syntax for Calc:: Using Calc to compute stuff
-* Formula syntax for Lisp:: Writing formulas in Emacs Lisp
-* Durations and time values:: How to compute durations and time values
-* Field and range formulas:: Formula for specific (ranges of) fields
-* Column formulas:: Formulas valid for an entire column
-* Lookup functions:: Lookup functions for searching tables
-* Editing and debugging formulas:: Fixing formulas
-* Updating the table:: Recomputing all dependent fields
-* Advanced features:: Field and column names, parameters and automatic recalc
-
-Hyperlinks
-
-* Link format:: How links in Org are formatted
-* Internal links:: Links to other places in the current file
-* External links:: URL-like links to the world
-* Handling links:: Creating, inserting and following
-* Using links outside Org:: Linking from my C source code?
-* Link abbreviations:: Shortcuts for writing complex links
-* Search options:: Linking to a specific location
-* Custom searches:: When the default search is not enough
-
-Internal links
-
-* Radio targets:: Make targets trigger links in plain text
-
-TODO items
-
-* TODO basics:: Marking and displaying TODO entries
-* TODO extensions:: Workflow and assignments
-* Progress logging:: Dates and notes for progress
-* Priorities:: Some things are more important than others
-* Breaking down tasks:: Splitting a task into manageable pieces
-* Checkboxes:: Tick-off lists
-
-Extended use of TODO keywords
-
-* Workflow states:: From TODO to DONE in steps
-* TODO types:: I do this, Fred does the rest
-* Multiple sets in one file:: Mixing it all, and still finding your way
-* Fast access to TODO states:: Single letter selection of a state
-* Per-file keywords:: Different files, different requirements
-* Faces for TODO keywords:: Highlighting states
-* TODO dependencies:: When one task needs to wait for others
-
-Progress logging
-
-* Closing items:: When was this entry marked DONE?
-* Tracking TODO state changes:: When did the status change?
-* Tracking your habits:: How consistent have you been?
-
-Tags
-
-* Tag inheritance:: Tags use the tree structure of the outline
-* Setting tags:: How to assign tags to a headline
-* Tag hierarchy:: Create a hierarchy of tags
-* Tag searches:: Searching for combinations of tags
-
-Properties and columns
-
-* Property syntax:: How properties are spelled out
-* Special properties:: Access to other Org mode features
-* Property searches:: Matching property values
-* Property inheritance:: Passing values down the tree
-* Column view:: Tabular viewing and editing
-* Property API:: Properties for Lisp programmers
-
-Column view
-
-* Defining columns:: The COLUMNS format property
-* Using column view:: How to create and use column view
-* Capturing column view:: A dynamic block for column view
-
-Defining columns
-
-* Scope of column definitions:: Where defined, where valid?
-* Column attributes:: Appearance and content of a column
-
-Dates and times
-
-* Timestamps:: Assigning a time to a tree entry
-* Creating timestamps:: Commands which insert timestamps
-* Deadlines and scheduling:: Planning your work
-* Clocking work time:: Tracking how long you spend on a task
-* Effort estimates:: Planning work effort in advance
-* Timers:: Notes with a running timer
-
-Creating timestamps
-
-* The date/time prompt:: How Org mode helps you entering date and time
-* Custom time format:: Making dates look different
-
-Deadlines and scheduling
-
-* Inserting deadline/schedule:: Planning items
-* Repeated tasks:: Items that show up again and again
-
-Clocking work time
-
-* Clocking commands:: Starting and stopping a clock
-* The clock table:: Detailed reports
-* Resolving idle time:: Resolving time when you’ve been idle
-
-Capture - Refile - Archive
-
-* Capture:: Capturing new stuff
-* Attachments:: Add files to tasks
-* RSS feeds:: Getting input from RSS feeds
-* Protocols:: External (e.g., Browser) access to Emacs and Org
-* Refile and copy:: Moving/copying a tree from one place to another
-* Archiving:: What to do with finished projects
-
-Capture
-
-* Setting up capture:: Where notes will be stored
-* Using capture:: Commands to invoke and terminate capture
-* Capture templates:: Define the outline of different note types
-
-Capture templates
-
-* Template elements:: What is needed for a complete template entry
-* Template expansion:: Filling in information about time and context
-* Templates in contexts:: Only show a template in a specific context
-
-Protocols for external access
-
-* store-link protocol:: Store a link, push URL to kill-ring.
-* capture protocol:: Fill a buffer with external information.
-* open-source protocol:: Edit published contents.
-
-Archiving
-
-* Moving subtrees:: Moving a tree to an archive file
-* Internal archiving:: Switch off a tree but keep it in the file
-
-Agenda views
-
-* Agenda files:: Files being searched for agenda information
-* Agenda dispatcher:: Keyboard access to agenda views
-* Built-in agenda views:: What is available out of the box?
-* Presentation and sorting:: How agenda items are prepared for display
-* Agenda commands:: Remote editing of Org trees
-* Custom agenda views:: Defining special searches and views
-* Exporting agenda views:: Writing a view to a file
-* Agenda column view:: Using column view for collected entries
-
-The built-in agenda views
-
-* Weekly/daily agenda:: The calendar page with current tasks
-* Global TODO list:: All unfinished action items
-* Matching tags and properties:: Structured information with fine-tuned search
-* Search view:: Find entries by searching for text
-* Stuck projects:: Find projects you need to review
-
-Presentation and sorting
-
-* Categories:: Not all tasks are equal
-* Time-of-day specifications:: How the agenda knows the time
-* Sorting agenda items:: The order of things
-* Filtering/limiting agenda items:: Dynamically narrow the agenda
-
-Custom agenda views
-
-* Storing searches:: Type once, use often
-* Block agenda:: All the stuff you need in a single buffer
-* Setting options:: Changing the rules
-
-Markup for rich export
-
-* Paragraphs:: The basic unit of text
-* Emphasis and monospace:: Bold, italic, etc.
-* Horizontal rules:: Make a line
-* Images and tables:: Images, tables and caption mechanism
-* Literal examples:: Source code examples with special formatting
-* Special symbols:: Greek letters and other symbols
-* Subscripts and superscripts:: Simple syntax for raising/lowering text
-* Embedded LaTeX:: LaTeX can be freely used inside Org documents
-
-Embedded LaTeX
-
-* LaTeX fragments:: Complex formulas made easy
-* Previewing LaTeX fragments:: What will this snippet look like?
-* CDLaTeX mode:: Speed up entering of formulas
-
-Exporting
-
-* The export dispatcher:: The main interface
-* Export settings:: Common export settings
-* Table of contents:: The if and where of the table of contents
-* Include files:: Include additional files into a document
-* Macro replacement:: Use macros to create templates
-* Comment lines:: What will not be exported
-* ASCII/Latin-1/UTF-8 export:: Exporting to flat files with encoding
-* Beamer export:: Exporting as a Beamer presentation
-* HTML export:: Exporting to HTML
-* LaTeX export:: Exporting to LaTeX, and processing to PDF
-* Markdown export:: Exporting to Markdown
-* OpenDocument Text export:: Exporting to OpenDocument Text
-* Org export:: Exporting to Org
-* Texinfo export:: Exporting to Texinfo
-* iCalendar export:: Exporting to iCalendar
-* Other built-in back-ends:: Exporting to a man page
-* Advanced configuration:: Fine-tuning the export output
-* Export in foreign buffers:: Author tables and lists in Org syntax
-
-Beamer export
-
-* Beamer export commands:: For creating Beamer documents.
-* Beamer specific export settings:: For customizing Beamer export.
-* Sectioning Frames and Blocks in Beamer:: For composing Beamer slides.
-* Beamer specific syntax:: For using in Org documents.
-* Editing support:: For using helper functions.
-* A Beamer example:: A complete presentation.
-
-HTML export
-
-* HTML Export commands:: Invoking HTML export
-* HTML Specific export settings:: Settings for HTML export
-* HTML doctypes:: Exporting various (X)HTML flavors
-* HTML preamble and postamble:: Inserting preamble and postamble
-* Quoting HTML tags:: Using direct HTML in Org files
-* Links in HTML export:: Interpreting and formatting links
-* Tables in HTML export:: Formatting and modifying tables
-* Images in HTML export:: Inserting figures with HTML output
-* Math formatting in HTML export:: Handling math equations
-* Text areas in HTML export:: Showing an alternate approach, an example
-* CSS support:: Styling HTML output
-* JavaScript support:: Folding scripting in the web browser
-
-LaTeX export
-
-* LaTeX export commands:: For producing LaTeX and PDF documents.
-* LaTeX specific export settings:: Unique to this LaTeX back-end.
-* LaTeX header and sectioning:: For file structure.
-* Quoting LaTeX code:: Directly in the Org document.
-* Tables in LaTeX export:: Attributes specific to tables.
-* Images in LaTeX export:: Attributes specific to images.
-* Plain lists in LaTeX export:: Attributes specific to lists.
-* Source blocks in LaTeX export:: Attributes specific to source code blocks.
-* Example blocks in LaTeX export:: Attributes specific to example blocks.
-* Special blocks in LaTeX export:: Attributes specific to special blocks.
-* Horizontal rules in LaTeX export:: Attributes specific to horizontal rules.
-
-OpenDocument Text export
-
-* Pre-requisites for ODT export:: Required packages.
-* ODT export commands:: Invoking export.
-* ODT specific export settings:: Configuration options.
-* Extending ODT export:: Producing ‘.doc’, ‘.pdf’ files.
-* Applying custom styles:: Styling the output.
-* Links in ODT export:: Handling and formatting links.
-* Tables in ODT export:: Org table conversions.
-* Images in ODT export:: Inserting images.
-* Math formatting in ODT export:: Formatting LaTeX fragments.
-* Labels and captions in ODT export:: Rendering objects.
-* Literal examples in ODT export:: For source code and example blocks.
-* Advanced topics in ODT export:: For power users.
-
-Math formatting in ODT export
-
-* Working with LaTeX math snippets:: Embedding in LaTeX format.
-* Working with MathML or OpenDocument formula files:: Embedding in native format.
-
-Advanced topics in ODT export
-
-* Configuring a document converter:: Registering a document converter.
-* Working with OpenDocument style files:: Exploring internals.
-* Creating one-off styles:: Customizing styles, highlighting.
-* Customizing tables in ODT export:: Defining table templates.
-* Validating OpenDocument XML:: Debugging corrupted OpenDocument files.
-
-Texinfo export
-
-* Texinfo export commands:: Invoking commands.
-* Texinfo specific export settings:: Setting the environment.
-* Texinfo file header:: Generating the header.
-* Texinfo title and copyright page:: Creating preamble pages.
-* Info directory file:: Installing a manual in Info file hierarchy.
-* Headings and sectioning structure:: Building document structure.
-* Indices:: Creating indices.
-* Quoting Texinfo code:: Incorporating literal Texinfo code.
-* Plain lists in Texinfo export:: List attributes.
-* Tables in Texinfo export:: Table attributes.
-* Images in Texinfo export:: Image attributes.
-* Special blocks in Texinfo export:: Special block attributes.
-* A Texinfo example:: Processing Org to Texinfo.
-
-Publishing
-
-* Configuration:: Defining projects
-* Uploading files:: How to get files up on the server
-* Sample configuration:: Example projects
-* Triggering publication:: Publication commands
-
-Configuration
-
-* Project alist:: The central configuration variable
-* Sources and destinations:: From here to there
-* Selecting files:: What files are part of the project?
-* Publishing action:: Setting the function doing the publishing
-* Publishing options:: Tweaking HTML/LaTeX export
-* Publishing links:: Which links keep working after publishing?
-* Sitemap:: Generating a list of all pages
-* Generating an index:: An index that reaches across pages
-
-Sample configuration
-
-* Simple example:: One-component publishing
-* Complex example:: A multi-component publishing example
-
-Working with source code
-
-* Structure of code blocks:: Code block syntax described
-* Editing source code:: Language major-mode editing
-* Exporting code blocks:: Export contents and/or results
-* Extracting source code:: Create pure source code files
-* Evaluating code blocks:: Place results of evaluation in the Org mode buffer
-* Library of Babel:: Use and contribute to a library of useful code blocks
-* Languages:: List of supported code block languages
-* Header arguments:: Configure code block functionality
-* Results of evaluation:: How evaluation results are handled
-* Noweb reference syntax:: Literate programming in Org mode
-* Key bindings and useful functions:: Work quickly with code blocks
-* Batch execution:: Call functions from the command line
-
-Header arguments
-
-* Using header arguments:: Different ways to set header arguments
-* Specific header arguments:: List of header arguments
-
-Using header arguments
-
-* System-wide header arguments:: Set globally, language-specific
-* Language-specific header arguments:: Set in the Org file’s headers
-* Header arguments in Org mode properties:: Set in the Org file
-* Language-specific mode properties::
-* Code block specific header arguments:: The most commonly used method
-* Arguments in function calls:: The most specific level, takes highest priority
-
-Specific header arguments
-
-* var:: Pass arguments to ‘src’ code blocks
-* results:: Specify results type; how to collect
-* file:: Specify a path for output file
-* file-desc:: Specify a description for file results
-* file-ext:: Specify an extension for file output
-* output-dir:: Specify a directory for output file
-* dir:: Specify the default directory for code block execution
-* exports:: Specify exporting code, results, both, none
-* tangle:: Toggle tangling; or specify file name
-* mkdirp:: Toggle for parent directory creation for target files during tangling
-* comments:: Toggle insertion of comments in tangled code files
-* padline:: Control insertion of padding lines in tangled code files
-* no-expand:: Turn off variable assignment and noweb expansion during tangling
-* session:: Preserve the state of code evaluation
-* noweb:: Toggle expansion of noweb references
-* noweb-ref:: Specify block’s noweb reference resolution target
-* noweb-sep:: String to separate noweb references
-* cache:: Avoid re-evaluating unchanged code blocks
-* sep:: Delimiter for writing tabular results outside Org
-* hlines:: Handle horizontal lines in tables
-* colnames:: Handle column names in tables
-* rownames:: Handle row names in tables
-* shebang:: Make tangled files executable
-* tangle-mode:: Set permission of tangled files
-* eval:: Limit evaluation of specific code blocks
-* wrap:: Mark source block evaluation results
-* post:: Post processing of results of code block evaluation
-* prologue:: Text to prepend to body of code block
-* epilogue:: Text to append to body of code block
-
-Miscellaneous
-
-* Completion:: M-<TAB> guesses completions
-* Easy templates:: Quick insertion of structural elements
-* Speed keys:: Electric commands at the beginning of a headline
-* Code evaluation security:: Org mode files evaluate inline code
-* Customization:: Adapting Org to changing tastes
-* In-buffer settings:: Overview of the #+KEYWORDS
-* The very busy C-c C-c key:: When in doubt, press C-c C-c
-* Clean view:: Getting rid of leading stars in the outline
-* TTY keys:: Using Org on a tty
-* Interaction:: With other Emacs packages
-* org-crypt:: Encrypting Org files
-
-Interaction with other packages
-
-* Cooperation:: Packages Org cooperates with
-* Conflicts:: Packages that lead to conflicts
-
-Hacking
-
-* Hooks:: How to reach into Org’s internals
-* Add-on packages:: Available extensions
-* Adding hyperlink types:: New custom link types
-* Adding export back-ends:: How to write new export back-ends
-* Context-sensitive commands:: How to add functionality to such commands
-* Tables in arbitrary syntax:: Orgtbl for LaTeX and other programs
-* Dynamic blocks:: Automatically filled blocks
-* Special agenda views:: Customized views
-* Speeding up your agendas:: Tips on how to speed up your agendas
-* Extracting agenda information:: Post-processing of agenda information
-* Using the property API:: Writing programs that use entry properties
-* Using the mapping API:: Mapping over all or selected entries
-
-Tables and lists in arbitrary syntax
-
-* Radio tables:: Sending and receiving radio tables
-* A LaTeX example:: Step by step, almost a tutorial
-* Translator functions:: Copy and modify
-* Radio lists:: Sending and receiving lists
-
-MobileOrg
-
-* Setting up the staging area:: For the mobile device
-* Pushing to MobileOrg:: Uploading Org files and agendas
-* Pulling from MobileOrg:: Integrating captured and flagged items
-
-
-
-File: org, Node: Introduction, Next: Document structure, Up: Top
-
-1 Introduction
-**************
-
-* Menu:
-
-* Summary:: Brief summary of what Org does
-* Installation:: Installing Org
-* Activation:: How to activate Org for certain buffers
-* Feedback:: Bug reports, ideas, patches etc.
-* Conventions:: Typesetting conventions in the manual
-
-
-File: org, Node: Summary, Next: Installation, Up: Introduction
-
-1.1 Summary
-===========
-
-Org is a mode for keeping notes, maintaining TODO lists, and project
-planning with a fast and effective plain-text system. It also is an
-authoring system with unique support for literate programming and
-reproducible research.
-
- Org is implemented on top of Outline mode, which makes it possible to
-keep the content of large files well structured. Visibility cycling and
-structure editing help to work with the tree. Tables are easily created
-with a built-in table editor. Plain text URL-like links connect to
-websites, emails, Usenet messages, BBDB entries, and any files related
-to the projects.
-
- Org develops organizational tasks around notes files that contain
-lists or information about projects as plain text. Project planning and
-task management makes use of metadata which is part of an outline node.
-Based on this data, specific entries can be extracted in queries and
-create dynamic agenda views that also integrate the Emacs calendar and
-diary. Org can be used to implement many different project planning
-schemes, such as David Allen’s GTD system.
-
- Org files can serve as a single source authoring system with export
-to many different formats such as HTML, LaTeX, Open Document, and
-Markdown. New export backends can be derived from existing ones, or
-defined from scratch.
-
- Org files can include source code blocks, which makes Org uniquely
-suited for authoring technical documents with code examples. Org source
-code blocks are fully functional; they can be evaluated in place and
-their results can be captured in the file. This makes it possible to
-create a single file reproducible research compendium.
-
- Org keeps simple things simple. When first fired up, it should feel
-like a straightforward, easy to use outliner. Complexity is not
-imposed, but a large amount of functionality is available when needed.
-Org is a toolbox. Many users actually run only a (very personal)
-fraction of Org’s capabilities, and know that there is more whenever
-they need it.
-
- All of this is achieved with strictly plain text files, the most
-portable and future-proof file format. Org runs in Emacs. Emacs is one
-of the most widely ported programs, so that Org mode is available on
-every major platform.
-
- There is a website for Org which provides links to the newest version
-of Org, as well as additional information, frequently asked questions
-(FAQ), links to tutorials, etc. This page is located at
-<https://orgmode.org>.
-
- An earlier version (7.3) of this manual is available as a paperback
-book from Network Theory Ltd.
-(http://www.network-theory.co.uk/org/manual/)
-
-
-File: org, Node: Installation, Next: Activation, Prev: Summary, Up: Introduction
-
-1.2 Installation
-================
-
-Org is part of recent distributions of GNU Emacs, so you normally don’t
-need to install it. If, for one reason or another, you want to install
-Org on top of this pre-packaged version, there are three ways to do it:
-
- • By using Emacs package system.
- • By downloading Org as an archive.
- • By using Org’s git repository.
-
- We strongly recommend to stick to a single installation method.
-
-Using Emacs packaging system
-............................
-
-Recent Emacs distributions include a packaging system which lets you
-install Elisp libraries. You can install Org with ‘M-x package-install
-<RET> org’.
-
-Important: you need to do this in a session where no ‘.org’ file has
-been visited, i.e., where no Org built-in function have been loaded.
-Otherwise autoload Org functions will mess up the installation.
-
- Then, to make sure your Org configuration is taken into account,
-initialize the package system with ‘(package-initialize)’ in your Emacs
-init file before setting any Org option. If you want to use Org’s
-package repository, check out the Org ELPA page
-(https://orgmode.org/elpa.html).
-
-Downloading Org as an archive
-.............................
-
-You can download Org latest release from Org’s website
-(https://orgmode.org/). In this case, make sure you set the load-path
-correctly in your Emacs init file:
-
- (add-to-list 'load-path "~/path/to/orgdir/lisp")
-
- The downloaded archive contains contributed libraries that are not
-included in Emacs. If you want to use them, add the ‘contrib’ directory
-to your load-path:
-
- (add-to-list 'load-path "~/path/to/orgdir/contrib/lisp" t)
-
- Optionally, you can compile the files and/or install them in your
-system. Run ‘make help’ to list compilation and installation options.
-
-Using Org’s git repository
-..........................
-
-You can clone Org’s repository and install Org like this:
-
- $ cd ~/src/
- $ git clone https://code.orgmode.org/bzg/org-mode.git
- $ cd org-mode/
- $ make autoloads
-
- Note that in this case, ‘make autoloads’ is mandatory: it defines
-Org’s version in ‘org-version.el’ and Org’s autoloads in
-‘org-loaddefs.el’.
-
- Remember to add the correct load-path as described in the method
-above.
-
- You can also compile with ‘make’, generate the documentation with
-‘make doc’, create a local configuration with ‘make config’ and install
-Org with ‘make install’. Please run ‘make help’ to get the list of
-compilation/installation options.
-
- For more detailed explanations on Org’s build system, please check
-the Org Build System page on Worg
-(https://orgmode.org/worg/dev/org-build-system.html).
-
-
-File: org, Node: Activation, Next: Feedback, Prev: Installation, Up: Introduction
-
-1.3 Activation
-==============
-
-Org mode buffers need font-lock to be turned on: this is the default in
-Emacs(1).
-
- There are compatibility issues between Org mode and some other Elisp
-packages, please take the time to check the list (*note Conflicts::).
-
- The four Org commands ‘org-store-link’, ‘org-capture’, ‘org-agenda’,
-and ‘org-switchb’ should be accessible through global keys (i.e.,
-anywhere in Emacs, not just in Org buffers). Here are suggested
-bindings for these keys, please modify the keys to your own liking.
- (global-set-key "\C-cl" 'org-store-link)
- (global-set-key "\C-ca" 'org-agenda)
- (global-set-key "\C-cc" 'org-capture)
- (global-set-key "\C-cb" 'org-switchb)
-
- Files with the ‘.org’ extension use Org mode by default. To turn on
-Org mode in a file that does not have the extension ‘.org’, make the
-first line of a file look like this:
-
- MY PROJECTS -*- mode: org; -*-
-
-which will select Org mode for this buffer no matter what the file’s
-name is. See also the variable ‘org-insert-mode-line-in-empty-file’.
-
- Many commands in Org work on the region if the region is active. To
-make use of this, you need to have ‘transient-mark-mode’ turned on,
-which is the default. If you do not like ‘transient-mark-mode’, you can
-create an active region by using the mouse to select a region, or
-pressing ‘C-<SPC>’ twice before moving the cursor.
-
- ---------- Footnotes ----------
-
- (1) If you don’t use font-lock globally, turn it on in Org buffer
-with ‘(add-hook 'org-mode-hook 'turn-on-font-lock)’
-
-
-File: org, Node: Feedback, Next: Conventions, Prev: Activation, Up: Introduction
-
-1.4 Feedback
-============
-
-If you find problems with Org, or if you have questions, remarks, or
-ideas about it, please mail to the Org mailing list
-<emacs-orgmode@gnu.org>. You can subscribe to the list on this web page
-(https://lists.gnu.org/mailman/listinfo/emacs-orgmode). If you are not
-a member of the mailing list, your mail will be passed to the list after
-a moderator has approved it(1).
-
- For bug reports, please first try to reproduce the bug with the
-latest version of Org available—if you are running an outdated version,
-it is quite possible that the bug has been fixed already. If the bug
-persists, prepare a report and provide as much information as possible,
-including the version information of Emacs (‘M-x emacs-version <RET>’)
-and Org (‘M-x org-version <RET>’), as well as the Org related setup in
-the Emacs init file. The easiest way to do this is to use the command
- M-x org-submit-bug-report <RET>
-which will put all this information into an Emacs mail buffer so that
-you only need to add your description. If you are not sending the Email
-from within Emacs, please copy and paste the content into your Email
-program.
-
- Sometimes you might face a problem due to an error in your Emacs or
-Org mode setup. Before reporting a bug, it is very helpful to start
-Emacs with minimal customizations and reproduce the problem. Doing so
-often helps you determine if the problem is with your customization or
-with Org mode itself. You can start a typical minimal session with a
-command like the example below.
-
- $ emacs -Q -l /path/to/minimal-org.el
-
- However if you are using Org mode as distributed with Emacs, a
-minimal setup is not necessary. In that case it is sufficient to start
-Emacs as ‘emacs -Q’. The ‘minimal-org.el’ setup file can have contents
-as shown below.
-
- ;;; Minimal setup to load latest 'org-mode'
-
- ;; activate debugging
- (setq debug-on-error t
- debug-on-signal nil
- debug-on-quit nil)
-
- ;; add latest org-mode to load path
- (add-to-list 'load-path "/path/to/org-mode/lisp")
- (add-to-list 'load-path "/path/to/org-mode/contrib/lisp" t)
-
- If an error occurs, a backtrace can be very useful (see below on how
-to create one). Often a small example file helps, along with clear
-information about:
-
- 1. What exactly did you do?
- 2. What did you expect to happen?
- 3. What happened instead?
-Thank you for helping to improve this program.
-
-How to create a useful backtrace
-................................
-
-If working with Org produces an error with a message you don’t
-understand, you may have hit a bug. The best way to report this is by
-providing, in addition to what was mentioned above, a _backtrace_. This
-is information from the built-in debugger about where and how the error
-occurred. Here is how to produce a useful backtrace:
-
- 1. Reload uncompiled versions of all Org mode Lisp files. The
- backtrace contains much more information if it is produced with
- uncompiled code. To do this, use
- C-u M-x org-reload <RET>
- or select ‘Org -> Refresh/Reload -> Reload Org uncompiled’ from the
- menu.
- 2. Go to the ‘Options’ menu and select ‘Enter Debugger on Error’.
- 3. Do whatever you have to do to hit the error. Don’t forget to
- document the steps you take.
- 4. When you hit the error, a ‘*Backtrace*’ buffer will appear on the
- screen. Save this buffer to a file (for example using ‘C-x C-w’)
- and attach it to your bug report.
-
- ---------- Footnotes ----------
-
- (1) Please consider subscribing to the mailing list, in order to
-minimize the work the mailing list moderators have to do.
-
-
-File: org, Node: Conventions, Prev: Feedback, Up: Introduction
-
-1.5 Typesetting conventions used in this manual
-===============================================
-
-TODO keywords, tags, properties, etc.
-.....................................
-
-Org mainly uses three types of keywords: TODO keywords, tags and
-property names. In this manual we use the following conventions:
-
-‘TODO’
-‘WAITING’
- TODO keywords are written with all capitals, even if they are
- user-defined.
-‘boss’
-‘ARCHIVE’
- User-defined tags are written in lowercase; built-in tags with
- special meaning are written with all capitals.
-‘Release’
-‘PRIORITY’
- User-defined properties are capitalized; built-in properties with
- special meaning are written with all capitals.
-
- Moreover, Org uses option keywords (like ‘#+TITLE’ to set the title)
-and environment keywords (like ‘#+BEGIN_EXPORT html’ to start a ‘HTML’
-environment). They are written in uppercase in the manual to enhance
-its readability, but you can use lowercase in your Org file.
-
-Key bindings and commands
-.........................
-
-The manual suggests a few global key bindings, in particular ‘C-c a’ for
-‘org-agenda’ and ‘C-c c’ for ‘org-capture’. These are only suggestions,
-but the rest of the manual assumes that these key bindings are in place
-in order to list commands by key access.
-
- Also, the manual lists both the keys and the corresponding commands
-for accessing a functionality. Org mode often uses the same key for
-different functions, depending on context. The command that is bound to
-such keys has a generic name, like ‘org-metaright’. In the manual we
-will, wherever possible, give the function that is internally called by
-the generic command. For example, in the chapter on document structure,
-‘M-<RIGHT>’ will be listed to call ‘org-do-demote’, while in the chapter
-on tables, it will be listed to call ‘org-table-move-column-right’. If
-you prefer, you can compile the manual without the command names by
-unsetting the flag ‘cmdnames’ in ‘org.texi’.
-
-
-File: org, Node: Document structure, Next: Tables, Prev: Introduction, Up: Top
-
-2 Document structure
-********************
-
-Org is based on Outline mode and provides flexible commands to edit the
-structure of the document.
-
-* Menu:
-
-* Outlines:: Org is based on Outline mode
-* Headlines:: How to typeset Org tree headlines
-* Visibility cycling:: Show and hide, much simplified
-* Motion:: Jumping to other headlines
-* Structure editing:: Changing sequence and level of headlines
-* Sparse trees:: Matches embedded in context
-* Plain lists:: Additional structure within an entry
-* Drawers:: Tucking stuff away
-* Blocks:: Folding blocks
-* Footnotes:: How footnotes are defined in Org’s syntax
-* Orgstruct mode:: Structure editing outside Org
-* Org syntax:: Formal description of Org’s syntax
-
-
-File: org, Node: Outlines, Next: Headlines, Up: Document structure
-
-2.1 Outlines
-============
-
-Org is implemented on top of Outline mode. Outlines allow a document to
-be organized in a hierarchical structure, which (at least for me) is the
-best representation of notes and thoughts. An overview of this
-structure is achieved by folding (hiding) large parts of the document to
-show only the general document structure and the parts currently being
-worked on. Org greatly simplifies the use of outlines by compressing
-the entire show/hide functionality into a single command, ‘org-cycle’,
-which is bound to the <TAB> key.
-
-
-File: org, Node: Headlines, Next: Visibility cycling, Prev: Outlines, Up: Document structure
-
-2.2 Headlines
-=============
-
-Headlines define the structure of an outline tree. The headlines in Org
-start with one or more stars, on the left margin(1) (2). For example:
-
- * Top level headline
- ** Second level
- *** 3rd level
- some text
- *** 3rd level
- more text
-
- * Another top level headline
-
-Note that a headline named after ‘org-footnote-section’, which defaults
-to ‘Footnotes’, is considered as special. A subtree with this headline
-will be silently ignored by exporting functions.
-
- Some people find the many stars too noisy and would prefer an outline
-that has whitespace followed by a single star as headline starters.
-*note Clean view::, describes a setup to realize this.
-
- An empty line after the end of a subtree is considered part of it and
-will be hidden when the subtree is folded. However, if you leave at
-least two empty lines, one empty line will remain visible after folding
-the subtree, in order to structure the collapsed view. See the variable
-‘org-cycle-separator-lines’ to modify this behavior.
-
- ---------- Footnotes ----------
-
- (1) See the variables ‘org-special-ctrl-a/e’, ‘org-special-ctrl-k’,
-and ‘org-ctrl-k-protect-subtree’ to configure special behavior of ‘C-a’,
-‘C-e’, and ‘C-k’ in headlines.
-
- (2) Clocking only works with headings indented less than 30 stars.
-
-
-File: org, Node: Visibility cycling, Next: Motion, Prev: Headlines, Up: Document structure
-
-2.3 Visibility cycling
-======================
-
-* Menu:
-
-* Global and local cycling:: Cycling through various visibility states
-* Initial visibility:: Setting the initial visibility state
-* Catching invisible edits:: Preventing mistakes when editing invisible parts
-
-
-File: org, Node: Global and local cycling, Next: Initial visibility, Up: Visibility cycling
-
-2.3.1 Global and local cycling
-------------------------------
-
-Outlines make it possible to hide parts of the text in the buffer. Org
-uses just two commands, bound to <TAB> and ‘S-<TAB>’ to change the
-visibility in the buffer.
-
-‘<TAB>’ (‘org-cycle’)
- _Subtree cycling_: Rotate current subtree among the states
-
- ,-> FOLDED -> CHILDREN -> SUBTREE --.
- '-----------------------------------'
-
- The cursor must be on a headline for this to work(1).
-
-‘S-<TAB>’ (‘org-global-cycle’)
-C-u <TAB>
- _Global cycling_: Rotate the entire buffer among the states
-
- ,-> OVERVIEW -> CONTENTS -> SHOW ALL --.
- '--------------------------------------'
-
- When ‘S-<TAB>’ is called with a numeric prefix argument N, the
- CONTENTS view up to headlines of level N will be shown. Note that
- inside tables, ‘S-<TAB>’ jumps to the previous field.
-
- You can run global cycling using <TAB> only if point is at the very
- beginning of the buffer, but not on a headline, and
- ‘org-cycle-global-at-bob’ is set to a non-‘nil’ value.
-
-‘C-u C-u <TAB>’ (‘org-set-startup-visibility’)
- Switch back to the startup visibility of the buffer (*note Initial
- visibility::).
-‘C-u C-u C-u <TAB>’ (‘outline-show-all’)
- Show all, including drawers.
-‘C-c C-r’ (‘org-reveal’)
- Reveal context around point, showing the current entry, the
- following heading and the hierarchy above. Useful for working near
- a location that has been exposed by a sparse tree command (*note
- Sparse trees::) or an agenda command (*note Agenda commands::).
- With a prefix argument show, on each level, all sibling headings.
- With a double prefix argument, also show the entire subtree of the
- parent.
-‘C-c C-k’ (‘outline-show-branches’)
- Expose all the headings of the subtree, CONTENTS view for just one
- subtree.
-‘C-c <TAB>’ (‘outline-show-children’)
- Expose all direct children of the subtree. With a numeric prefix
- argument N, expose all children down to level N.
-‘C-c C-x b’ (‘org-tree-to-indirect-buffer’)
- Show the current subtree in an indirect buffer(2). With a numeric
- prefix argument N, go up to level N and then take that tree. If N
- is negative then go up that many levels. With a ‘C-u’ prefix, do
- not remove the previously used indirect buffer.
-‘C-c C-x v’ (‘org-copy-visible’)
- Copy the visible text in the region into the kill ring.
-
- ---------- Footnotes ----------
-
- (1) see, however, the option ‘org-cycle-emulate-tab’.
-
- (2) The indirect buffer (*note (emacs)Indirect Buffers::) will
-contain the entire buffer, but will be narrowed to the current tree.
-Editing the indirect buffer will also change the original buffer, but
-without affecting visibility in that buffer.
-
-
-File: org, Node: Initial visibility, Next: Catching invisible edits, Prev: Global and local cycling, Up: Visibility cycling
-
-2.3.2 Initial visibility
-------------------------
-
-When Emacs first visits an Org file, the global state is set to
-OVERVIEW, i.e., only the top level headlines are visible(1). This can
-be configured through the variable ‘org-startup-folded’, or on a
-per-file basis by adding one of the following lines anywhere in the
-buffer:
-
- #+STARTUP: overview
- #+STARTUP: content
- #+STARTUP: showall
- #+STARTUP: showeverything
-
-Furthermore, any entries with a ‘VISIBILITY’ property (*note Properties
-and columns::) will get their visibility adapted accordingly. Allowed
-values for this property are ‘folded’, ‘children’, ‘content’, and ‘all’.
-
-‘C-u C-u <TAB>’ (‘org-set-startup-visibility’)
- Switch back to the startup visibility of the buffer, i.e., whatever
- is requested by startup options and ‘VISIBILITY’ properties in
- individual entries.
-
- ---------- Footnotes ----------
-
- (1) When ‘org-agenda-inhibit-startup’ is non-‘nil’, Org will not
-honor the default visibility state when first opening a file for the
-agenda (*note Speeding up your agendas::).
-
-
-File: org, Node: Catching invisible edits, Prev: Initial visibility, Up: Visibility cycling
-
-2.3.3 Catching invisible edits
-------------------------------
-
-Sometimes you may inadvertently edit an invisible part of the buffer and
-be confused on what has been edited and how to undo the mistake.
-Setting ‘org-catch-invisible-edits’ to non-‘nil’ will help prevent this.
-See the docstring of this option on how Org should catch invisible edits
-and process them.
-
-
-File: org, Node: Motion, Next: Structure editing, Prev: Visibility cycling, Up: Document structure
-
-2.4 Motion
-==========
-
-The following commands jump to other headlines in the buffer.
-
-‘C-c C-n’ (‘org-next-visible-heading’)
- Next heading.
-‘C-c C-p’ (‘org-previous-visible-heading’)
- Previous heading.
-‘C-c C-f’ (‘org-forward-same-level’)
- Next heading same level.
-‘C-c C-b’ (‘org-backward-same-level’)
- Previous heading same level.
-‘C-c C-u’ (‘outline-up-heading’)
- Backward to higher level heading.
-‘C-c C-j’ (‘org-goto’)
- Jump to a different place without changing the current outline
- visibility. Shows the document structure in a temporary buffer,
- where you can use the following keys to find your destination:
- <TAB> Cycle visibility.
- <DOWN> / <UP> Next/previous visible headline.
- <RET> Select this location.
- / Do a Sparse-tree search
- The following keys work if you turn off ‘org-goto-auto-isearch’
- n / p Next/previous visible headline.
- f / b Next/previous headline same level.
- u One level up.
- 0-9 Digit argument.
- q Quit
- See also the option ‘org-goto-interface’.
-
-
-File: org, Node: Structure editing, Next: Sparse trees, Prev: Motion, Up: Document structure
-
-2.5 Structure editing
-=====================
-
-‘M-<RET>’ (‘org-meta-return’)
- Insert a new heading, item or row.
-
- If the command is used at the _beginning_ of a line, and if there
- is a heading or a plain list item (*note Plain lists::) at point,
- the new heading/item is created _before_ the current line. When
- used at the beginning of a regular line of text, turn that line
- into a heading.
-
- When this command is used in the middle of a line, the line is
- split and the rest of the line becomes the new item or headline.
- If you do not want the line to be split, customize
- ‘org-M-RET-may-split-line’.
-
- Calling the command with a ‘C-u’ prefix unconditionally inserts a
- new heading at the end of the current subtree, thus preserving its
- contents. With a double ‘C-u C-u’ prefix, the new heading is
- created at the end of the parent subtree instead.
-‘C-<RET>’ (‘org-insert-heading-respect-content’)
- Insert a new heading at the end of the current subtree.
-‘M-S-<RET>’ (‘org-insert-todo-heading’)
- Insert new TODO entry with same level as current heading. See also
- the variable ‘org-treat-insert-todo-heading-as-state-change’.
-‘C-S-<RET>’ (‘org-insert-todo-heading-respect-content’)
- Insert new TODO entry with same level as current heading. Like
- ‘C-<RET>’, the new headline will be inserted after the current
- subtree.
-‘<TAB>’ (‘org-cycle’)
- In a new entry with no text yet, the first <TAB> demotes the entry
- to become a child of the previous one. The next <TAB> makes it a
- parent, and so on, all the way to top level. Yet another <TAB>,
- and you are back to the initial level.
-‘M-<LEFT>’ (‘org-do-promote’)
- Promote current heading by one level.
-‘M-<RIGHT>’ (‘org-do-demote’)
- Demote current heading by one level.
-‘M-S-<LEFT>’ (‘org-promote-subtree’)
- Promote the current subtree by one level.
-‘M-S-<RIGHT>’ (‘org-demote-subtree’)
- Demote the current subtree by one level.
-‘M-<UP>’ (‘org-move-subtree-up’)
- Move subtree up (swap with previous subtree of same level).
-‘M-<DOWN>’ (‘org-move-subtree-down’)
- Move subtree down (swap with next subtree of same level).
-‘M-h’ (‘org-mark-element’)
- Mark the element at point. Hitting repeatedly will mark subsequent
- elements of the one just marked. E.g., hitting ‘M-h’ on a
- paragraph will mark it, hitting ‘M-h’ immediately again will mark
- the next one.
-‘C-c @’ (‘org-mark-subtree’)
- Mark the subtree at point. Hitting repeatedly will mark subsequent
- subtrees of the same level than the marked subtree.
-‘C-c C-x C-w’ (‘org-cut-subtree’)
- Kill subtree, i.e., remove it from buffer but save in kill ring.
- With a numeric prefix argument N, kill N sequential subtrees.
-‘C-c C-x M-w’ (‘org-copy-subtree’)
- Copy subtree to kill ring. With a numeric prefix argument N, copy
- the N sequential subtrees.
-‘C-c C-x C-y’ (‘org-paste-subtree’)
- Yank subtree from kill ring. This does modify the level of the
- subtree to make sure the tree fits in nicely at the yank position.
- The yank level can also be specified with a numeric prefix
- argument, or by yanking after a headline marker like ‘****’.
-‘C-y’ (‘org-yank’)
- Depending on the options ‘org-yank-adjusted-subtrees’ and
- ‘org-yank-folded-subtrees’, Org’s internal ‘yank’ command will
- paste subtrees folded and in a clever way, using the same command
- as ‘C-c C-x C-y’. With the default settings, no level adjustment
- will take place, but the yanked tree will be folded unless doing so
- would swallow text previously visible. Any prefix argument to this
- command will force a normal ‘yank’ to be executed, with the prefix
- passed along. A good way to force a normal yank is ‘C-u C-y’. If
- you use ‘yank-pop’ after a yank, it will yank previous kill items
- plainly, without adjustment and folding.
-‘C-c C-x c’ (‘org-clone-subtree-with-time-shift’)
- Clone a subtree by making a number of sibling copies of it. You
- will be prompted for the number of copies to make, and you can also
- specify if any timestamps in the entry should be shifted. This can
- be useful, for example, to create a number of tasks related to a
- series of lectures to prepare. For more details, see the docstring
- of the command ‘org-clone-subtree-with-time-shift’.
-‘C-c C-w’ (‘org-refile’)
- Refile entry or region to a different location. *Note Refile and
- copy::.
-‘C-c ^’ (‘org-sort’)
- Sort same-level entries. When there is an active region, all
- entries in the region will be sorted. Otherwise the children of
- the current headline are sorted. The command prompts for the
- sorting method, which can be alphabetically, numerically, by time
- (first timestamp with active preferred, creation time, scheduled
- time, deadline time), by priority, by TODO keyword (in the sequence
- the keywords have been defined in the setup) or by the value of a
- property. Reverse sorting is possible as well. You can also
- supply your own function to extract the sorting key. With a ‘C-u’
- prefix, sorting will be case-sensitive.
-‘C-x n s’ (‘org-narrow-to-subtree’)
- Narrow buffer to current subtree.
-‘C-x n b’ (‘org-narrow-to-block’)
- Narrow buffer to current block.
-‘C-x n w’ (‘widen’)
- Widen buffer to remove narrowing.
-‘C-c *’ (‘org-toggle-heading’)
- Turn a normal line or plain list item into a headline (so that it
- becomes a subheading at its location). Also turn a headline into a
- normal line by removing the stars. If there is an active region,
- turn all lines in the region into headlines. If the first line in
- the region was an item, turn only the item lines into headlines.
- Finally, if the first line is a headline, remove the stars from all
- headlines in the region.
-
- When there is an active region (Transient Mark mode), promotion and
-demotion work on all headlines in the region. To select a region of
-headlines, it is best to place both point and mark at the beginning of a
-line, mark at the beginning of the first headline, and point at the line
-just after the last headline to change. Note that when the cursor is
-inside a table (*note Tables::), the Meta-Cursor keys have different
-functionality.
-
-
-File: org, Node: Sparse trees, Next: Plain lists, Prev: Structure editing, Up: Document structure
-
-2.6 Sparse trees
-================
-
-An important feature of Org mode is the ability to construct _sparse
-trees_ for selected information in an outline tree, so that the entire
-document is folded as much as possible, but the selected information is
-made visible along with the headline structure above it(1). Just try it
-out and you will see immediately how it works.
-
- Org mode contains several commands for creating such trees, all these
-commands can be accessed through a dispatcher:
-
-‘C-c /’ (‘org-sparse-tree’)
- This prompts for an extra key to select a sparse-tree creating
- command.
-‘C-c / r’ or ‘C-c / /’ (‘org-occur’)
- Prompts for a regexp and shows a sparse tree with all matches. If
- the match is in a headline, the headline is made visible. If the
- match is in the body of an entry, headline and body are made
- visible. In order to provide minimal context, also the full
- hierarchy of headlines above the match is shown, as well as the
- headline following the match. Each match is also highlighted; the
- highlights disappear when the buffer is changed by an editing
- command(2), or by pressing ‘C-c C-c’. When called with a ‘C-u’
- prefix argument, previous highlights are kept, so several calls to
- this command can be stacked.
-‘M-g n’ or ‘M-g M-n’ (‘next-error’)
- Jump to the next sparse tree match in this buffer.
-‘M-g p’ or ‘M-g M-p’ (‘previous-error’)
- Jump to the previous sparse tree match in this buffer.
-
-For frequently used sparse trees of specific search strings, you can use
-the option ‘org-agenda-custom-commands’ to define fast keyboard access
-to specific sparse trees. These commands will then be accessible
-through the agenda dispatcher (*note Agenda dispatcher::). For example:
-
- (setq org-agenda-custom-commands
- '(("f" occur-tree "FIXME")))
-
-will define the key ‘C-c a f’ as a shortcut for creating a sparse tree
-matching the string ‘FIXME’.
-
- The other sparse tree commands select headings based on TODO
-keywords, tags, or properties and will be discussed later in this
-manual.
-
- To print a sparse tree, you can use the Emacs command
-‘ps-print-buffer-with-faces’ which does not print invisible parts of the
-document. Or you can use ‘C-c C-e C-v’ to export only the visible part
-of the document and print the resulting file.
-
- ---------- Footnotes ----------
-
- (1) See also the variable ‘org-show-context-detail’ to decide how
-much context is shown around each match.
-
- (2) This depends on the option ‘org-remove-highlights-with-change’
-
-
-File: org, Node: Plain lists, Next: Drawers, Prev: Sparse trees, Up: Document structure
-
-2.7 Plain lists
-===============
-
-Within an entry of the outline tree, hand-formatted lists can provide
-additional structure. They also provide a way to create lists of
-checkboxes (*note Checkboxes::). Org supports editing such lists, and
-every exporter (*note Exporting::) can parse and format them.
-
- Org knows ordered lists, unordered lists, and description lists.
- • _Unordered_ list items start with ‘-’, ‘+’, or ‘*’(1) as bullets.
- • _Ordered_ list items start with a numeral followed by either a
- period or a right parenthesis(2), such as ‘1.’ or ‘1)’(3). If you
- want a list to start with a different value (e.g., 20), start the
- text of the item with ‘[@20]’(4). Those constructs can be used in
- any item of the list in order to enforce a particular numbering.
- • _Description_ list items are unordered list items, and contain the
- separator ‘ :: ’ to distinguish the description _term_ from the
- description.
-
- Items belonging to the same list must have the same indentation on
-the first line. In particular, if an ordered list reaches number ‘10.’,
-then the 2–digit numbers must be written left-aligned with the other
-numbers in the list. An item ends before the next line that is less or
-equally indented than its bullet/number.
-
- A list ends whenever every item has ended, which means before any
-line less or equally indented than items at top level. It also ends
-before two blank lines. In that case, all items are closed. Here is an
-example:
-
- ** Lord of the Rings
- My favorite scenes are (in this order)
- 1. The attack of the Rohirrim
- 2. Eowyn's fight with the witch king
- + this was already my favorite scene in the book
- + I really like Miranda Otto.
- 3. Peter Jackson being shot by Legolas
- - on DVD only
- He makes a really funny face when it happens.
- But in the end, no individual scenes matter but the film as a whole.
- Important actors in this film are:
- - Elijah Wood :: He plays Frodo
- - Sean Astin :: He plays Sam, Frodo's friend. I still remember
- him very well from his role as Mikey Walsh in The Goonies.
-
- Org supports these lists by tuning filling and wrapping commands to
-deal with them correctly, and by exporting them properly (*note
-Exporting::). Since indentation is what governs the structure of these
-lists, many structural constructs like ‘#+BEGIN_...’ blocks can be
-indented to signal that they belong to a particular item.
-
- If you find that using a different bullet for a sub-list (than that
-used for the current list-level) improves readability, customize the
-variable ‘org-list-demote-modify-bullet’. To get a greater difference
-of indentation between items and their sub-items, customize
-‘org-list-indent-offset’.
-
- The following commands act on items when the cursor is in the first
-line of an item (the line with the bullet or number). Some of them
-imply the application of automatic rules to keep list structure intact.
-If some of these actions get in your way, configure
-‘org-list-automatic-rules’ to disable them individually.
-
-‘<TAB>’ (‘org-cycle’)
- Items can be folded just like headline levels. Normally this works
- only if the cursor is on a plain list item. For more details, see
- the variable ‘org-cycle-include-plain-lists’. If this variable is
- set to ‘integrate’, plain list items will be treated like low-level
- headlines. The level of an item is then given by the indentation
- of the bullet/number. Items are always subordinate to real
- headlines, however; the hierarchies remain completely separated.
- In a new item with no text yet, the first <TAB> demotes the item to
- become a child of the previous one. Subsequent <TAB>s move the
- item to meaningful levels in the list and eventually get it back to
- its initial position.
-‘M-<RET>’ (‘org-insert-heading’)
- Insert new item at current level. With a prefix argument, force a
- new heading (*note Structure editing::). If this command is used
- in the middle of an item, that item is _split_ in two, and the
- second part becomes the new item(5). If this command is executed
- _before item’s body_, the new item is created _before_ the current
- one.
-
-‘M-S-<RET>’
- Insert a new item with a checkbox (*note Checkboxes::).
-‘S-up’
-‘S-down’
- Jump to the previous/next item in the current list(6), but only if
- ‘org-support-shift-select’ is off. If not, you can still use
- paragraph jumping commands like ‘C-<UP>’ and ‘C-<DOWN>’ to quite
- similar effect.
-‘M-up’
-‘M-down’
- Move the item including subitems up/down(7) (swap with
- previous/next item of same indentation). If the list is ordered,
- renumbering is automatic.
-‘M-left’
-‘M-right’
- Decrease/increase the indentation of an item, leaving children
- alone.
-‘M-S-<LEFT>’
-‘M-S-<RIGHT>’
- Decrease/increase the indentation of the item, including subitems.
- Initially, the item tree is selected based on current indentation.
- When these commands are executed several times in direct
- succession, the initially selected region is used, even if the new
- indentation would imply a different hierarchy. To use the new
- hierarchy, break the command chain with a cursor motion or so.
-
- As a special case, using this command on the very first item of a
- list will move the whole list. This behavior can be disabled by
- configuring ‘org-list-automatic-rules’. The global indentation of
- a list has no influence on the text _after_ the list.
-‘C-c C-c’
- If there is a checkbox (*note Checkboxes::) in the item line,
- toggle the state of the checkbox. In any case, verify bullets and
- indentation consistency in the whole list.
-‘C-c -’
- Cycle the entire list level through the different itemize/enumerate
- bullets (‘-’, ‘+’, ‘*’, ‘1.’, ‘1)’) or a subset of them, depending
- on ‘org-plain-list-ordered-item-terminator’, the type of list, and
- its indentation. With a numeric prefix argument N, select the Nth
- bullet from this list. If there is an active region when calling
- this, all selected lines are converted to list items. With a
- prefix argument, selected text is changed into a single item. If
- the first line already was a list item, any item marker will be
- removed from the list. Finally, even without an active region, a
- normal line will be converted into a list item.
-‘C-c *’
- Turn a plain list item into a headline (so that it becomes a
- subheading at its location). *Note Structure editing::, for a
- detailed explanation.
-‘C-c C-*’
- Turn the whole plain list into a subtree of the current heading.
- Checkboxes (*note Checkboxes::) will become TODO (resp. DONE)
- keywords when unchecked (resp. checked).
-‘S-<LEFT>/<RIGHT>’
- This command also cycles bullet styles when the cursor in on the
- bullet or anywhere in an item line, details depending on
- ‘org-support-shift-select’.
-‘C-c ^’
- Sort the plain list. You will be prompted for the sorting method:
- numerically, alphabetically, by time, by checked status for check
- lists, or by a custom function.
-
- ---------- Footnotes ----------
-
- (1) When using ‘*’ as a bullet, lines must be indented or they will
-be seen as top-level headlines. Also, when you are hiding leading stars
-to get a clean outline view, plain list items starting with a star may
-be hard to distinguish from true headlines. In short: even though ‘*’
-is supported, it may be better to not use it for plain list items.
-
- (2) You can filter out any of them by configuring
-‘org-plain-list-ordered-item-terminator’.
-
- (3) You can also get ‘a.’, ‘A.’, ‘a)’ and ‘A)’ by configuring
-‘org-list-allow-alphabetical’. To minimize confusion with normal text,
-those are limited to one character only. Beyond that limit, bullets
-will automatically fallback to numbers.
-
- (4) If there’s a checkbox in the item, the cookie must be put
-_before_ the checkbox. If you have activated alphabetical lists, you
-can also use counters like ‘[@b]’.
-
- (5) If you do not want the item to be split, customize the variable
-‘org-M-RET-may-split-line’.
-
- (6) If you want to cycle around items that way, you may customize
-‘org-list-use-circular-motion’.
-
- (7) See ‘org-list-use-circular-motion’ for a cyclic behavior.
-
-
-File: org, Node: Drawers, Next: Blocks, Prev: Plain lists, Up: Document structure
-
-2.8 Drawers
-===========
-
-Sometimes you want to keep information associated with an entry, but you
-normally don’t want to see it. For this, Org mode has _drawers_. They
-can contain anything but a headline and another drawer. Drawers look
-like this:
-
- ** This is a headline
- Still outside the drawer
- :DRAWERNAME:
- This is inside the drawer.
- :END:
- After the drawer.
-
- You can interactively insert drawers at point by calling
-‘org-insert-drawer’, which is bound to ‘C-c C-x d’. With an active
-region, this command will put the region inside the drawer. With a
-prefix argument, this command calls ‘org-insert-property-drawer’ and add
-a property drawer right below the current headline. Completion over
-drawer keywords is also possible using ‘M-<TAB>’(1).
-
- Visibility cycling (*note Visibility cycling::) on the headline will
-hide and show the entry, but keep the drawer collapsed to a single line.
-In order to look inside the drawer, you need to move the cursor to the
-drawer line and press <TAB> there. Org mode uses the ‘PROPERTIES’
-drawer for storing properties (*note Properties and columns::), and you
-can also arrange for state change notes (*note Tracking TODO state
-changes::) and clock times (*note Clocking work time::) to be stored in
-a drawer ‘LOGBOOK’. If you want to store a quick note in the LOGBOOK
-drawer, in a similar way to state changes, use
-
-‘C-c C-z’
- Add a time-stamped note to the LOGBOOK drawer.
-
- You can select the name of the drawers which should be exported with
-‘org-export-with-drawers’. In that case, drawer contents will appear in
-export output. Property drawers are not affected by this variable:
-configure ‘org-export-with-properties’ instead.
-
- ---------- Footnotes ----------
-
- (1) Many desktops intercept ‘M-<TAB>’ to switch windows. Use ‘C-M-i’
-or ‘<ESC> <TAB>’ instead for completion (*note Completion::).
-
-
-File: org, Node: Blocks, Next: Footnotes, Prev: Drawers, Up: Document structure
-
-2.9 Blocks
-==========
-
-Org mode uses begin...end blocks for various purposes from including
-source code examples (*note Literal examples::) to capturing time
-logging information (*note Clocking work time::). These blocks can be
-folded and unfolded by pressing <TAB> in the begin line. You can also
-get all blocks folded at startup by configuring the option
-‘org-hide-block-startup’ or on a per-file basis by using
-
- #+STARTUP: hideblocks
- #+STARTUP: nohideblocks
-
-
-File: org, Node: Footnotes, Next: Orgstruct mode, Prev: Blocks, Up: Document structure
-
-2.10 Footnotes
-==============
-
-Org mode supports the creation of footnotes.
-
- A footnote is started by a footnote marker in square brackets in
-column 0, no indentation allowed. It ends at the next footnote
-definition, headline, or after two consecutive empty lines. The
-footnote reference is simply the marker in square brackets, inside text.
-Markers always start with ‘fn:’. For example:
-
- The Org homepage[fn:1] now looks a lot better than it used to.
- ...
- [fn:1] The link is: https://orgmode.org
-
- Org mode extends the number-based syntax to _named_ footnotes and
-optional inline definition. Here are the valid references:
-
-‘[fn:name]’
- A named footnote reference, where ‘name’ is a unique label word,
- or, for simplicity of automatic creation, a number.
-‘[fn::This is the inline definition of this footnote]’
- A LaTeX-like anonymous footnote where the definition is given
- directly at the reference point.
-‘[fn:name:a definition]’
- An inline definition of a footnote, which also specifies a name for
- the note. Since Org allows multiple references to the same note,
- you can then use ‘[fn:name]’ to create additional references.
-
- Footnote labels can be created automatically, or you can create names
-yourself. This is handled by the variable ‘org-footnote-auto-label’ and
-its corresponding ‘#+STARTUP’ keywords. See the docstring of that
-variable for details.
-
-The following command handles footnotes:
-
-‘C-c C-x f’
- The footnote action command.
-
- When the cursor is on a footnote reference, jump to the definition.
- When it is at a definition, jump to the (first) reference.
-
- Otherwise, create a new footnote. Depending on the option
- ‘org-footnote-define-inline’(1), the definition will be placed
- right into the text as part of the reference, or separately into
- the location determined by the option ‘org-footnote-section’.
-
- When this command is called with a prefix argument, a menu of
- additional options is offered:
- s Sort the footnote definitions by reference sequence. During editing,
- Org makes no effort to sort footnote definitions into a particular
- sequence. If you want them sorted, use this command, which will
- also move entries according to ‘org-footnote-section’. Automatic
- sorting after each insertion/deletion can be configured using the
- option ‘org-footnote-auto-adjust’.
- r Renumber the simple ‘fn:N’ footnotes. Automatic renumbering
- after each insertion/deletion can be configured using the option
- ‘org-footnote-auto-adjust’.
- S Short for first ‘r’, then ‘s’ action.
- n Normalize the footnotes by collecting all definitions (including
- inline definitions) into a special section, and then numbering them
- in sequence. The references will then also be numbers.
- d Delete the footnote at point, and all definitions of and references
- to it.
- Depending on the variable ‘org-footnote-auto-adjust’(2),
- renumbering and sorting footnotes can be automatic after each
- insertion or deletion.
-
-‘C-c C-c’
- If the cursor is on a footnote reference, jump to the definition.
- If it is a the definition, jump back to the reference. When called
- at a footnote location with a prefix argument, offer the same menu
- as ‘C-c C-x f’.
-‘C-c C-o or mouse-1/2’
- Footnote labels are also links to the corresponding
- definition/reference, and you can use the usual commands to follow
- these links.
-
-‘C-c '’
-‘C-c '’
- Edit the footnote definition corresponding to the reference at
- point in a separate window. The window can be closed by pressing
- ‘C-c '’.
-
- ---------- Footnotes ----------
-
- (1) The corresponding in-buffer setting is: ‘#+STARTUP: fninline’ or
-‘#+STARTUP: nofninline’
-
- (2) the corresponding in-buffer options are ‘fnadjust’ and
-‘nofnadjust’.
-
-
-File: org, Node: Orgstruct mode, Next: Org syntax, Prev: Footnotes, Up: Document structure
-
-2.11 The Orgstruct minor mode
-=============================
-
-If you like the intuitive way the Org mode structure editing and list
-formatting works, you might want to use these commands in other modes
-like Text mode or Mail mode as well. The minor mode ‘orgstruct-mode’
-makes this possible. Toggle the mode with ‘M-x orgstruct-mode <RET>’,
-or turn it on by default, for example in Message mode, with one of:
-
- (add-hook 'message-mode-hook 'turn-on-orgstruct)
- (add-hook 'message-mode-hook 'turn-on-orgstruct++)
-
- When this mode is active and the cursor is on a line that looks to
-Org like a headline or the first line of a list item, most structure
-editing commands will work, even if the same keys normally have
-different functionality in the major mode you are using. If the cursor
-is not in one of those special lines, Orgstruct mode lurks silently in
-the shadows.
-
- When you use ‘orgstruct++-mode’, Org will also export indentation and
-autofill settings into that mode, and detect item context after the
-first line of an item.
-
- You can also use Org structure editing to fold and unfold headlines
-in _any_ file, provided you defined ‘orgstruct-heading-prefix-regexp’:
-the regular expression must match the local prefix to use before Org’s
-headlines. For example, if you set this variable to ‘";; "’ in Emacs
-Lisp files, you will be able to fold and unfold headlines in Emacs Lisp
-commented lines. Some commands like ‘org-demote’ are disabled when the
-prefix is set, but folding/unfolding will work correctly.
-
-
-File: org, Node: Org syntax, Prev: Orgstruct mode, Up: Document structure
-
-2.12 Org syntax
-===============
-
-A reference document providing a formal description of Org’s syntax is
-available as a draft on Worg
-(https://orgmode.org/worg/dev/org-syntax.html), written and maintained
-by Nicolas Goaziou. It defines Org’s core internal concepts such as
-‘headlines’, ‘sections’, ‘affiliated keywords’, ‘(greater) elements’ and
-‘objects’. Each part of an Org file falls into one of the categories
-above.
-
- To explore the abstract structure of an Org buffer, run this in a
-buffer:
-
- M-: (org-element-parse-buffer) <RET>
-
- It will output a list containing the buffer’s content represented as
-an abstract structure. The export engine relies on the information
-stored in this list. Most interactive commands (e.g., for structure
-editing) also rely on the syntactic meaning of the surrounding context.
-
- You can check syntax in your documents using ‘org-lint’ command.
-
-
-File: org, Node: Tables, Next: Hyperlinks, Prev: Document structure, Up: Top
-
-3 Tables
-********
-
-Org comes with a fast and intuitive table editor. Spreadsheet-like
-calculations are supported using the Emacs ‘calc’ package (*note Calc:
-(calc)Top.).
-
-* Menu:
-
-* Built-in table editor:: Simple tables
-* Column width and alignment:: Overrule the automatic settings
-* Column groups:: Grouping to trigger vertical lines
-* Orgtbl mode:: The table editor as minor mode
-* The spreadsheet:: The table editor has spreadsheet capabilities
-* Org-Plot:: Plotting from org tables
-
-
-File: org, Node: Built-in table editor, Next: Column width and alignment, Up: Tables
-
-3.1 The built-in table editor
-=============================
-
-Org makes it easy to format tables in plain ASCII. Any line with ‘|’ as
-the first non-whitespace character is considered part of a table. ‘|’
-is also the column separator(1). A table might look like this:
-
- | Name | Phone | Age |
- |-------+-------+-----|
- | Peter | 1234 | 17 |
- | Anna | 4321 | 25 |
-
- A table is re-aligned automatically each time you press <TAB> or
-<RET> or ‘C-c C-c’ inside the table. <TAB> also moves to the next field
-(<RET> to the next row) and creates new table rows at the end of the
-table or before horizontal lines. The indentation of the table is set
-by the first line. Any line starting with ‘|-’ is considered as a
-horizontal separator line and will be expanded on the next re-align to
-span the whole table width. So, to create the above table, you would
-only type
-
- |Name|Phone|Age|
- |-
-
-and then press <TAB> to align the table and start filling in fields.
-Even faster would be to type ‘|Name|Phone|Age’ followed by ‘C-c <RET>’.
-
- When typing text into a field, Org treats <DEL>, <Backspace>, and all
-character keys in a special way, so that inserting and deleting avoids
-shifting other fields. Also, when typing _immediately after the cursor
-was moved into a new field with ‘<TAB>’, ‘S-<TAB>’ or ‘<RET>’_, the
-field is automatically made blank. If this behavior is too
-unpredictable for you, configure the option
-‘org-table-auto-blank-field’.
-
- Creation and conversion
- .......................
-
-‘C-c | (org-table-create-or-convert-from-region)’
- Convert the active region to a table. If every line contains at
- least one TAB character, the function assumes that the material is
- tab separated. If every line contains a comma, comma-separated
- values (CSV) are assumed. If not, lines are split at whitespace
- into fields. You can use a prefix argument to force a specific
- separator: ‘C-u’ forces CSV, ‘C-u C-u’ forces TAB, ‘C-u C-u C-u’
- will prompt for a regular expression to match the separator, and a
- numeric argument N indicates that at least N consecutive spaces, or
- alternatively a TAB will be the separator.
- If there is no active region, this command creates an empty Org
- table. But it is easier just to start typing, like
- ‘|Name|Phone|Age <RET> |- <TAB>’.
-
- Re-aligning and field motion
- ............................
-
-‘C-c C-c (org-table-align)’
- Re-align the table and don’t move to another field.
-‘C-c <SPC> (org-table-blank-field)’
- Blank the field at point.
-‘<TAB> (org-table-next-field)’
- Re-align the table, move to the next field. Creates a new row if
- necessary.
-‘S-<TAB> (org-table-previous-field)’
- Re-align, move to previous field.
-‘<RET> (org-table-next-row)’
- Re-align the table and move down to next row. Creates a new row if
- necessary. At the beginning or end of a line, <RET> still does
- NEWLINE, so it can be used to split a table.
-‘M-a (org-table-beginning-of-field)’
- Move to beginning of the current table field, or on to the previous
- field.
-‘M-e (org-table-end-of-field)’
- Move to end of the current table field, or on to the next field.
-
- Column and row editing
- ......................
-
-‘M-<LEFT> (org-table-move-column-left)’
-‘M-<RIGHT> (org-table-move-column-right)’
- Move the current column left/right.
-‘M-S-<LEFT> (org-table-delete-column)’
- Kill the current column.
-‘M-S-<RIGHT> (org-table-insert-column)’
- Insert a new column to the left of the cursor position.
-‘M-<UP> (org-table-move-row-up)’
-‘M-<DOWN> (org-table-move-row-down)’
- Move the current row up/down.
-‘M-S-<UP> (org-table-kill-row)’
- Kill the current row or horizontal line.
-‘M-S-<DOWN> (org-table-insert-row)’
- Insert a new row above the current row. With a prefix argument,
- the line is created below the current one.
-‘C-c - (org-table-insert-hline)’
- Insert a horizontal line below current row. With a prefix
- argument, the line is created above the current line.
-‘C-c <RET> (org-table-hline-and-move)’
- Insert a horizontal line below current row, and move the cursor
- into the row below that line.
-‘C-c ^ (org-table-sort-lines)’
- Sort the table lines in the region. The position of point
- indicates the column to be used for sorting, and the range of lines
- is the range between the nearest horizontal separator lines, or the
- entire table. If point is before the first column, you will be
- prompted for the sorting column. If there is an active region, the
- mark specifies the first line and the sorting column, while point
- should be in the last line to be included into the sorting. The
- command prompts for the sorting type (alphabetically, numerically,
- or by time). You can sort in normal or reverse order. You can
- also supply your own key extraction and comparison functions. When
- called with a prefix argument, alphabetic sorting will be
- case-sensitive.
-
- Regions
- .......
-
-‘C-c C-x M-w (org-table-copy-region)’
- Copy a rectangular region from a table to a special clipboard.
- Point and mark determine edge fields of the rectangle. If there is
- no active region, copy just the current field. The process ignores
- horizontal separator lines.
-‘C-c C-x C-w (org-table-cut-region)’
- Copy a rectangular region from a table to a special clipboard, and
- blank all fields in the rectangle. So this is the “cut” operation.
-‘C-c C-x C-y (org-table-paste-rectangle)’
- Paste a rectangular region into a table. The upper left corner
- ends up in the current field. All involved fields will be
- overwritten. If the rectangle does not fit into the present table,
- the table is enlarged as needed. The process ignores horizontal
- separator lines.
-‘M-<RET> (org-table-wrap-region)’
- Split the current field at the cursor position and move the rest to
- the line below. If there is an active region, and both point and
- mark are in the same column, the text in the column is wrapped to
- minimum width for the given number of lines. A numeric prefix
- argument may be used to change the number of desired lines. If
- there is no region, but you specify a prefix argument, the current
- field is made blank, and the content is appended to the field
- above.
-
- Calculations
- ............
-
-‘C-c + (org-table-sum)’
- Sum the numbers in the current column, or in the rectangle defined
- by the active region. The result is shown in the echo area and can
- be inserted with ‘C-y’.
-‘S-<RET> (org-table-copy-down)’
- When current field is empty, copy from first non-empty field above.
- When not empty, copy current field down to next row and move cursor
- along with it. Depending on the option ‘org-table-copy-increment’,
- integer field values will be incremented during copy. Integers
- that are too large will not be incremented. Also, a ‘0’ prefix
- argument temporarily disables the increment. This key is also used
- by shift-selection and related modes (*note Conflicts::).
-
- Miscellaneous
- .............
-
-‘C-c ` (org-table-edit-field)’
- Edit the current field in a separate window. This is useful for
- fields that are not fully visible (*note Column width and
- alignment::). When called with a ‘C-u’ prefix, just make the full
- field visible, so that it can be edited in place. When called with
- two ‘C-u’ prefixes, make the editor window follow the cursor
- through the table and always show the current field. The follow
- mode exits automatically when the cursor leaves the table, or when
- you repeat this command with ‘C-u C-u C-c `’.
-‘M-x org-table-import <RET>’
- Import a file as a table. The table should be TAB or whitespace
- separated. Use, for example, to import a spreadsheet table or data
- from a database, because these programs generally can write
- TAB-separated text files. This command works by inserting the file
- into the buffer and then converting the region to a table. Any
- prefix argument is passed on to the converter, which uses it to
- determine the separator.
-‘C-c | (org-table-create-or-convert-from-region)’
- Tables can also be imported by pasting tabular text into the Org
- buffer, selecting the pasted text with ‘C-x C-x’ and then using the
- ‘C-c |’ command (see above under Creation and conversion).
-‘M-x org-table-export <RET>’
- Export the table, by default as a TAB-separated file. Use for data
- exchange with, for example, spreadsheet or database programs. The
- format used to export the file can be configured in the option
- ‘org-table-export-default-format’. You may also use properties
- ‘TABLE_EXPORT_FILE’ and ‘TABLE_EXPORT_FORMAT’ to specify the file
- name and the format for table export in a subtree. Org supports
- quite general formats for exported tables. The exporter format is
- the same as the format used by Orgtbl radio tables, see *note
- Translator functions::, for a detailed description.
-
- ---------- Footnotes ----------
-
- (1) To insert a vertical bar into a table field, use ‘\vert’ or,
-inside a word ‘abc\vert{}def’.
-
-
-File: org, Node: Column width and alignment, Next: Column groups, Prev: Built-in table editor, Up: Tables
-
-3.2 Column width and alignment
-==============================
-
-The width of columns is automatically determined by the table editor.
-And also the alignment of a column is determined automatically from the
-fraction of number-like versus non-number fields in the column.
-
- Sometimes a single field or a few fields need to carry more text,
-leading to inconveniently wide columns. Or maybe you want to make a
-table with several columns having a fixed width, regardless of content.
-To set the width of a column, one field anywhere in the column may
-contain just the string ‘<N>’ where ‘N’ is an integer specifying the
-width of the column in characters. The next re-align will then set the
-width of this column to this value.
-
- |---+------------------------------| |---+--------|
- | | | | | <6> |
- | 1 | one | | 1 | one |
- | 2 | two | ----\ | 2 | two |
- | 3 | This is a long chunk of text | ----/ | 3 | This=> |
- | 4 | four | | 4 | four |
- |---+------------------------------| |---+--------|
-
-Fields that are wider become clipped and end in the string ‘=>’. Note
-that the full text is still in the buffer but is hidden. To see the
-full text, hold the mouse over the field—a tool-tip window will show the
-full content. To edit such a field, use the command ‘C-c `’ (that is
-‘C-c’ followed by the grave accent). This will open a new window with
-the full field. Edit it and finish with ‘C-c C-c’.
-
- When visiting a file containing a table with narrowed columns, the
-necessary character hiding has not yet happened, and the table needs to
-be aligned before it looks nice. Setting the option
-‘org-startup-align-all-tables’ will realign all tables in a file upon
-visiting, but also slow down startup. You can also set this option on a
-per-file basis with:
-
- #+STARTUP: align
- #+STARTUP: noalign
-
- If you would like to overrule the automatic alignment of number-rich
-columns to the right and of string-rich columns to the left, you can use
-‘<r>’, ‘<c>’(1) or ‘<l>’ in a similar fashion. You may also combine
-alignment and field width like this: ‘<r10>’.
-
- Lines which only contain these formatting cookies will be removed
-automatically when exporting the document.
-
- ---------- Footnotes ----------
-
- (1) Centering does not work inside Emacs, but it does have an effect
-when exporting to HTML.
-
-
-File: org, Node: Column groups, Next: Orgtbl mode, Prev: Column width and alignment, Up: Tables
-
-3.3 Column groups
-=================
-
-When Org exports tables, it does so by default without vertical lines
-because that is visually more satisfying in general. Occasionally
-however, vertical lines can be useful to structure a table into groups
-of columns, much like horizontal lines can do for groups of rows. In
-order to specify column groups, you can use a special row where the
-first field contains only ‘/’. The further fields can either contain
-‘<’ to indicate that this column should start a group, ‘>’ to indicate
-the end of a group, or ‘<>’ (no space between ‘<’ and ‘>’) to make a
-column a group of its own. Boundaries between column groups will upon
-export be marked with vertical lines. Here is an example:
-
- | N | N^2 | N^3 | N^4 | ~sqrt(n)~ | ~sqrt[4](N)~ |
- |---+-----+-----+-----+-----------+--------------|
- | / | < | | > | < | > |
- | 1 | 1 | 1 | 1 | 1 | 1 |
- | 2 | 4 | 8 | 16 | 1.4142 | 1.1892 |
- | 3 | 9 | 27 | 81 | 1.7321 | 1.3161 |
- |---+-----+-----+-----+-----------+--------------|
- #+TBLFM: $2=$1^2::$3=$1^3::$4=$1^4::$5=sqrt($1)::$6=sqrt(sqrt(($1)))
-
- It is also sufficient to just insert the column group starters after
-every vertical line you would like to have:
-
- | N | N^2 | N^3 | N^4 | sqrt(n) | sqrt[4](N) |
- |----+-----+-----+-----+---------+------------|
- | / | < | | | < | |
-
-
-File: org, Node: Orgtbl mode, Next: The spreadsheet, Prev: Column groups, Up: Tables
-
-3.4 The Orgtbl minor mode
-=========================
-
-If you like the intuitive way the Org table editor works, you might also
-want to use it in other modes like Text mode or Mail mode. The minor
-mode Orgtbl mode makes this possible. You can always toggle the mode
-with ‘M-x orgtbl-mode <RET>’. To turn it on by default, for example in
-Message mode, use
-
- (add-hook 'message-mode-hook 'turn-on-orgtbl)
-
- Furthermore, with some special setup, it is possible to maintain
-tables in arbitrary syntax with Orgtbl mode. For example, it is
-possible to construct LaTeX tables with the underlying ease and power of
-Orgtbl mode, including spreadsheet capabilities. For details, see *note
-Tables in arbitrary syntax::.
-
-
-File: org, Node: The spreadsheet, Next: Org-Plot, Prev: Orgtbl mode, Up: Tables
-
-3.5 The spreadsheet
-===================
-
-The table editor makes use of the Emacs ‘calc’ package to implement
-spreadsheet-like capabilities. It can also evaluate Emacs Lisp forms to
-derive fields from other fields. While fully featured, Org’s
-implementation is not identical to other spreadsheets. For example, Org
-knows the concept of a _column formula_ that will be applied to all
-non-header fields in a column without having to copy the formula to each
-relevant field. There is also a formula debugger, and a formula editor
-with features for highlighting fields in the table corresponding to the
-references at the point in the formula, moving these references by arrow
-keys
-
-* Menu:
-
-* References:: How to refer to another field or range
-* Formula syntax for Calc:: Using Calc to compute stuff
-* Formula syntax for Lisp:: Writing formulas in Emacs Lisp
-* Durations and time values:: How to compute durations and time values
-* Field and range formulas:: Formula for specific (ranges of) fields
-* Column formulas:: Formulas valid for an entire column
-* Lookup functions:: Lookup functions for searching tables
-* Editing and debugging formulas:: Fixing formulas
-* Updating the table:: Recomputing all dependent fields
-* Advanced features:: Field and column names, parameters and automatic recalc
-
-
-File: org, Node: References, Next: Formula syntax for Calc, Up: The spreadsheet
-
-3.5.1 References
-----------------
-
-To compute fields in the table from other fields, formulas must
-reference other fields or ranges. In Org, fields can be referenced by
-name, by absolute coordinates, and by relative coordinates. To find out
-what the coordinates of a field are, press ‘C-c ?’ in that field, or
-press ‘C-c }’ to toggle the display of a grid.
-
-Field references
-................
-
-Formulas can reference the value of another field in two ways. Like in
-any other spreadsheet, you may reference fields with a letter/number
-combination like ‘B3’, meaning the 2nd field in the 3rd row. However,
-Org prefers(1) to use another, more general representation that looks
-like this:
- @ROW$COLUMN
-
- Column specifications can be absolute like ‘$1’, ‘$2’,...‘$N’, or
-relative to the current column (i.e., the column of the field which is
-being computed) like ‘$+1’ or ‘$-2’. ‘$<’ and ‘$>’ are immutable
-references to the first and last column, respectively, and you can use
-‘$>>>’ to indicate the third column from the right.
-
- The row specification only counts data lines and ignores horizontal
-separator lines (hlines). Like with columns, you can use absolute row
-numbers ‘@1’, ‘@2’,...‘@N’, and row numbers relative to the current row
-like ‘@+3’ or ‘@-1’. ‘@<’ and ‘@>’ are immutable references the first
-and last(2) row in the table, respectively. You may also specify the
-row relative to one of the hlines: ‘@I’ refers to the first hline, ‘@II’
-to the second, etc. ‘@-I’ refers to the first such line above the
-current line, ‘@+I’ to the first such line below the current line. You
-can also write ‘@III+2’ which is the second data line after the third
-hline in the table.
-
- ‘@0’ and ‘$0’ refer to the current row and column, respectively,
-i.e., to the row/column for the field being computed. Also, if you omit
-either the column or the row part of the reference, the current
-row/column is implied.
-
- Org’s references with _unsigned_ numbers are fixed references in the
-sense that if you use the same reference in the formula for two
-different fields, the same field will be referenced each time. Org’s
-references with _signed_ numbers are floating references because the
-same reference operator can reference different fields depending on the
-field being calculated by the formula.
-
- Here are a few examples:
-
- @2$3 2nd row, 3rd column (same as ‘C2’)
- $5 column 5 in the current row (same as ‘E&’)
- @2 current column, row 2
- @-1$-3 the field one row up, three columns to the left
- @-I$2 field just under hline above current row, column 2
- @>$5 field in the last row, in column 5
-
-Range references
-................
-
-You may reference a rectangular range of fields by specifying two field
-references connected by two dots ‘..’. If both fields are in the
-current row, you may simply use ‘$2..$7’, but if at least one field is
-in a different row, you need to use the general ‘@row$column’ format at
-least for the first field (i.e the reference must start with ‘@’ in
-order to be interpreted correctly). Examples:
-
- $1..$3 first three fields in the current row
- $P..$Q range, using column names (see under Advanced)
- $<<<..$>> start in third column, continue to the last but one
- @2$1..@4$3 6 fields between these two fields (same as ‘A2..C4’)
- @-1$-2..@-1 3 fields in the row above, starting from 2 columns on the left
- @I..II between first and second hline, short for ‘@I..@II’
-
-Range references return a vector of values that can be fed into Calc
-vector functions. Empty fields in ranges are normally suppressed, so
-that the vector contains only the non-empty fields. For other options
-with the mode switches ‘E’, ‘N’ and examples *note Formula syntax for
-Calc::.
-
-Field coordinates in formulas
-.............................
-
-One of the very first actions during evaluation of Calc formulas and
-Lisp formulas is to substitute ‘@#’ and ‘$#’ in the formula with the row
-or column number of the field where the current result will go to. The
-traditional Lisp formula equivalents are ‘org-table-current-dline’ and
-‘org-table-current-column’. Examples:
-
-‘if(@# % 2, $#, string(""))’
- Insert column number on odd rows, set field to empty on even rows.
-‘$2 = '(identity remote(FOO, @@#$1))’
- Copy text or values of each row of column 1 of the table named
- ‘FOO’ into column 2 of the current table.
-‘@3 = 2 * remote(FOO, @1$$#)’
- Insert the doubled value of each column of row 1 of the table named
- ‘FOO’ into row 3 of the current table.
-
-For the second/third example, the table named ‘FOO’ must have at least
-as many rows/columns as the current table. Note that this is
-inefficient(3) for large number of rows/columns.
-
-Named references
-................
-
-‘$name’ is interpreted as the name of a column, parameter or constant.
-Constants are defined globally through the option
-‘org-table-formula-constants’, and locally (for the file) through a line
-like
-
- #+CONSTANTS: c=299792458. pi=3.14 eps=2.4e-6
-
-Also properties (*note Properties and columns::) can be used as
-constants in table formulas: for a property ‘:Xyz:’ use the name
-‘$PROP_Xyz’, and the property will be searched in the current outline
-entry and in the hierarchy above it. If you have the ‘constants.el’
-package, it will also be used to resolve constants, including natural
-constants like ‘$h’ for Planck’s constant, and units like ‘$km’ for
-kilometers(4). Column names and parameters can be specified in special
-table lines. These are described below, see *note Advanced features::.
-All names must start with a letter, and further consist of letters and
-numbers.
-
-Remote references
-.................
-
-You may also reference constants, fields and ranges from a different
-table, either in the current file or even in a different file. The
-syntax is
-
- remote(NAME-OR-ID,REF)
-
-where NAME can be the name of a table in the current file as set by a
-‘#+NAME: Name’ line before the table. It can also be the ID of an
-entry, even in a different file, and the reference then refers to the
-first table in that entry. REF is an absolute field or range reference
-as described above for example ‘@3$3’ or ‘$somename’, valid in the
-referenced table.
-
- Indirection of NAME-OR-ID: When NAME-OR-ID has the format
-‘@ROW$COLUMN’ it will be substituted with the name or ID found in this
-field of the current table. For example ‘remote($1, @>$2)’ =>
-‘remote(year_2013, @>$1)’. The format ‘B3’ is not supported because it
-can not be distinguished from a plain table name or ID.
-
- ---------- Footnotes ----------
-
- (1) Org will understand references typed by the user as ‘B4’, but it
-will not use this syntax when offering a formula for editing. You can
-customize this behavior using the option
-‘org-table-use-standard-references’.
-
- (2) For backward compatibility you can also use special names like
-‘$LR5’ and ‘$LR12’ to refer in a stable way to the 5th and 12th field in
-the last row of the table. However, this syntax is deprecated, it
-should not be used for new documents. Use ‘@>$’ instead.
-
- (3) The computation time scales as O(N^2) because the table named
-‘FOO’ is parsed for each field to be read.
-
- (4) ‘constants.el’ can supply the values of constants in two
-different unit systems, ‘SI’ and ‘cgs’. Which one is used depends on
-the value of the variable ‘constants-unit-system’. You can use the
-‘#+STARTUP’ options ‘constSI’ and ‘constcgs’ to set this value for the
-current buffer.
-
-
-File: org, Node: Formula syntax for Calc, Next: Formula syntax for Lisp, Prev: References, Up: The spreadsheet
-
-3.5.2 Formula syntax for Calc
------------------------------
-
-A formula can be any algebraic expression understood by the Emacs ‘Calc’
-package. Note that ‘calc’ has the non-standard convention that ‘/’ has
-lower precedence than ‘*’, so that ‘a/b*c’ is interpreted as ‘a/(b*c)’.
-Before evaluation by ‘calc-eval’ (*note calc-eval: (calc)Calling Calc
-from Your Programs.), variable substitution takes place according to the
-rules described above. The range vectors can be directly fed into the
-Calc vector functions like ‘vmean’ and ‘vsum’.
-
- A formula can contain an optional mode string after a semicolon.
-This string consists of flags to influence Calc and other modes during
-execution. By default, Org uses the standard Calc modes (precision 12,
-angular units degrees, fraction and symbolic modes off). The display
-format, however, has been changed to ‘(float 8)’ to keep tables compact.
-The default settings can be configured using the option
-‘org-calc-default-modes’.
-
-List of modes:
-
-‘p20’
- Set the internal Calc calculation precision to 20 digits.
-‘n3’, ‘s3’, ‘e2’, ‘f4’
- Normal, scientific, engineering or fixed format of the result of
- Calc passed back to Org. Calc formatting is unlimited in precision
- as long as the Calc calculation precision is greater.
-‘D’, ‘R’
- Degree and radian angle modes of Calc.
-‘F’, ‘S’
- Fraction and symbolic modes of Calc.
-‘T’, ‘t’, ‘U’
- Duration computations in Calc or Lisp, *note Durations and time
- values::.
-‘E’
- If and how to consider empty fields. Without ‘E’ empty fields in
- range references are suppressed so that the Calc vector or Lisp
- list contains only the non-empty fields. With ‘E’ the empty fields
- are kept. For empty fields in ranges or empty field references the
- value ‘nan’ (not a number) is used in Calc formulas and the empty
- string is used for Lisp formulas. Add ‘N’ to use 0 instead for
- both formula types. For the value of a field the mode ‘N’ has
- higher precedence than ‘E’.
-‘N’
- Interpret all fields as numbers, use 0 for non-numbers. See the
- next section to see how this is essential for computations with
- Lisp formulas. In Calc formulas it is used only occasionally
- because there number strings are already interpreted as numbers
- without ‘N’.
-‘L’
- Literal, for Lisp formulas only. See the next section.
-
-Unless you use large integer numbers or high-precision-calculation and
--display for floating point numbers you may alternatively provide a
-‘printf’ format specifier to reformat the Calc result after it has been
-passed back to Org instead of letting Calc already do the formatting(1).
-A few examples:
-
- $1+$2 Sum of first and second field
- $1+$2;%.2f Same, format result to two decimals
- exp($2)+exp($1) Math functions can be used
- $0;%.1f Reformat current cell to 1 decimal
- ($3-32)*5/9 Degrees F -> C conversion
- $c/$1/$cm Hz -> cm conversion, using ‘constants.el’
- tan($1);Dp3s1 Compute in degrees, precision 3, display SCI 1
- sin($1);Dp3%.1e Same, but use printf specifier for display
- taylor($3,x=7,2) Taylor series of $3, at x=7, second degree
-
- Calc also contains a complete set of logical operations, (*note
-Logical Operations: (calc)Logical Operations.). For example
-
-‘if($1 < 20, teen, string(""))’
- "teen" if age $1 is less than 20, else the Org table result field
- is set to empty with the empty string.
-‘if("$1" == "nan" || "$2" == "nan", string(""), $1 + $2); E f-1’
- Sum of the first two columns. When at least one of the input
- fields is empty the Org table result field is set to empty. ‘E’ is
- required to not convert empty fields to 0. ‘f-1’ is an optional
- Calc format string similar to ‘%.1f’ but leaves empty results
- empty.
-‘if(typeof(vmean($1..$7)) == 12, string(""), vmean($1..$7); E’
- Mean value of a range unless there is any empty field. Every field
- in the range that is empty is replaced by ‘nan’ which lets ‘vmean’
- result in ‘nan’. Then ‘typeof == 12’ detects the ‘nan’ from
- ‘vmean’ and the Org table result field is set to empty. Use this
- when the sample set is expected to never have missing values.
-‘if("$1..$7" == "[]", string(""), vmean($1..$7))’
- Mean value of a range with empty fields skipped. Every field in
- the range that is empty is skipped. When all fields in the range
- are empty the mean value is not defined and the Org table result
- field is set to empty. Use this when the sample set can have a
- variable size.
-‘vmean($1..$7); EN’
- To complete the example before: Mean value of a range with empty
- fields counting as samples with value 0. Use this only when
- incomplete sample sets should be padded with 0 to the full size.
-
- You can add your own Calc functions defined in Emacs Lisp with
-‘defmath’ and use them in formula syntax for Calc.
-
- ---------- Footnotes ----------
-
- (1) The ‘printf’ reformatting is limited in precision because the
-value passed to it is converted into an ‘integer’ or ‘double’. The
-‘integer’ is limited in size by truncating the signed value to 32 bits.
-The ‘double’ is limited in precision to 64 bits overall which leaves
-approximately 16 significant decimal digits.
-
-
-File: org, Node: Formula syntax for Lisp, Next: Durations and time values, Prev: Formula syntax for Calc, Up: The spreadsheet
-
-3.5.3 Emacs Lisp forms as formulas
-----------------------------------
-
-It is also possible to write a formula in Emacs Lisp. This can be
-useful for string manipulation and control structures, if Calc’s
-functionality is not enough.
-
- If a formula starts with an apostrophe followed by an opening
-parenthesis, then it is evaluated as a Lisp form. The evaluation should
-return either a string or a number. Just as with ‘calc’ formulas, you
-can specify modes and a printf format after a semicolon.
-
- With Emacs Lisp forms, you need to be conscious about the way field
-references are interpolated into the form. By default, a reference will
-be interpolated as a Lisp string (in double-quotes) containing the
-field. If you provide the ‘N’ mode switch, all referenced elements will
-be numbers (non-number fields will be zero) and interpolated as Lisp
-numbers, without quotes. If you provide the ‘L’ flag, all fields will
-be interpolated literally, without quotes. I.e., if you want a
-reference to be interpreted as a string by the Lisp form, enclose the
-reference operator itself in double-quotes, like ‘"$3"’. Ranges are
-inserted as space-separated fields, so you can embed them in list or
-vector syntax.
-
- Here are a few examples—note how the ‘N’ mode is used when we do
-computations in Lisp:
-
-‘'(concat (substring $1 1 2) (substring $1 0 1) (substring $1 2))’
- Swap the first two characters of the content of column 1.
-‘'(+ $1 $2);N’
- Add columns 1 and 2, equivalent to Calc’s ‘$1+$2’.
-‘'(apply '+ '($1..$4));N’
- Compute the sum of columns 1 to 4, like Calc’s ‘vsum($1..$4)’.
-
-
-File: org, Node: Durations and time values, Next: Field and range formulas, Prev: Formula syntax for Lisp, Up: The spreadsheet
-
-3.5.4 Durations and time values
--------------------------------
-
-If you want to compute time values use the ‘T’, ‘t’, or ‘U’ flag, either
-in Calc formulas or Elisp formulas:
-
- | Task 1 | Task 2 | Total |
- |---------+----------+----------|
- | 2:12 | 1:47 | 03:59:00 |
- | 2:12 | 1:47 | 03:59 |
- | 3:02:20 | -2:07:00 | 0.92 |
- #+TBLFM: @2$3=$1+$2;T::@3$3=$1+$2;U::@4$3=$1+$2;t
-
- Input duration values must be of the form ‘HH:MM[:SS]’, where seconds
-are optional. With the ‘T’ flag, computed durations will be displayed
-as ‘HH:MM:SS’ (see the first formula above). With the ‘U’ flag, seconds
-will be omitted so that the result will be only ‘HH:MM’ (see second
-formula above). Zero-padding of the hours field will depend upon the
-value of the variable ‘org-table-duration-hour-zero-padding’.
-
- With the ‘t’ flag, computed durations will be displayed according to
-the value of the option ‘org-table-duration-custom-format’, which
-defaults to ‘'hours’ and will display the result as a fraction of hours
-(see the third formula in the example above).
-
- Negative duration values can be manipulated as well, and integers
-will be considered as seconds in addition and subtraction.
-
-
-File: org, Node: Field and range formulas, Next: Column formulas, Prev: Durations and time values, Up: The spreadsheet
-
-3.5.5 Field and range formulas
-------------------------------
-
-To assign a formula to a particular field, type it directly into the
-field, preceded by ‘:=’, for example ‘:=vsum(@II..III)’. When you press
-<TAB> or <RET> or ‘C-c C-c’ with the cursor still in the field, the
-formula will be stored as the formula for this field, evaluated, and the
-current field will be replaced with the result.
-
- Formulas are stored in a special line starting with ‘#+TBLFM:’
-directly below the table. If you type the equation in the 4th field of
-the 3rd data line in the table, the formula will look like ‘@3$4=$1+$2’.
-When inserting/deleting/swapping columns and rows with the appropriate
-commands, absolute references (but not relative ones) in stored formulas
-are modified in order to still reference the same field. To avoid this,
-in particular in range references, anchor ranges at the table borders
-(using ‘@<’, ‘@>’, ‘$<’, ‘$>’), or at hlines using the ‘@I’ notation.
-Automatic adaptation of field references does of course not happen if
-you edit the table structure with normal editing commands—then you must
-fix the equations yourself.
-
- Instead of typing an equation into the field, you may also use the
-following command
-
-‘C-u C-c = (org-table-eval-formula)’
- Install a new formula for the current field. The command prompts
- for a formula with default taken from the ‘#+TBLFM:’ line, applies
- it to the current field, and stores it.
-
- The left-hand side of a formula can also be a special expression in
-order to assign the formula to a number of different fields. There is
-no keyboard shortcut to enter such range formulas. To add them, use the
-formula editor (*note Editing and debugging formulas::) or edit the
-‘#+TBLFM:’ line directly.
-
-‘$2=’
- Column formula, valid for the entire column. This is so common
- that Org treats these formulas in a special way, see *note Column
- formulas::.
-‘@3=’
- Row formula, applies to all fields in the specified row. ‘@>=’
- means the last row.
-‘@1$2..@4$3=’
- Range formula, applies to all fields in the given rectangular
- range. This can also be used to assign a formula to some but not
- all fields in a row.
-‘$name=’
- Named field, see *note Advanced features::.
-
-
-File: org, Node: Column formulas, Next: Lookup functions, Prev: Field and range formulas, Up: The spreadsheet
-
-3.5.6 Column formulas
----------------------
-
-When you assign a formula to a simple column reference like ‘$3=’, the
-same formula will be used in all fields of that column, with the
-following very convenient exceptions: (i) If the table contains
-horizontal separator hlines with rows above and below, everything before
-the first such hline is considered part of the table _header_ and will
-not be modified by column formulas. Therefore a header is mandatory
-when you use column formulas and want to add hlines to group rows, like
-for example to separate a total row at the bottom from the summand rows
-above. (ii) Fields that already get a value from a field/range formula
-will be left alone by column formulas. These conditions make column
-formulas very easy to use.
-
- To assign a formula to a column, type it directly into any field in
-the column, preceded by an equal sign, like ‘=$1+$2’. When you press
-<TAB> or <RET> or ‘C-c C-c’ with the cursor still in the field, the
-formula will be stored as the formula for the current column, evaluated
-and the current field replaced with the result. If the field contains
-only ‘=’, the previously stored formula for this column is used. For
-each column, Org will only remember the most recently used formula. In
-the ‘#+TBLFM:’ line, column formulas will look like ‘$4=$1+$2’. The
-left-hand side of a column formula cannot be the name of column, it must
-be the numeric column reference or ‘$>’.
-
- Instead of typing an equation into the field, you may also use the
-following command:
-
-‘C-c = (org-table-eval-formula)’
- Install a new formula for the current column and replace current
- field with the result of the formula. The command prompts for a
- formula, with default taken from the ‘#+TBLFM’ line, applies it to
- the current field and stores it. With a numeric prefix
- argument(e.g., ‘C-5 C-c =’) the command will apply it to that many
- consecutive fields in the current column.
-
-
-File: org, Node: Lookup functions, Next: Editing and debugging formulas, Prev: Column formulas, Up: The spreadsheet
-
-3.5.7 Lookup functions
-----------------------
-
-Org has three predefined Emacs Lisp functions for lookups in tables.
-‘(org-lookup-first VAL S-LIST R-LIST &optional PREDICATE)’
- Searches for the first element ‘S’ in list ‘S-LIST’ for which
- (PREDICATE VAL S)
- is ‘t’; returns the value from the corresponding position in list
- ‘R-LIST’. The default ‘PREDICATE’ is ‘equal’. Note that the
- parameters ‘VAL’ and ‘S’ are passed to ‘PREDICATE’ in the same
- order as the corresponding parameters are in the call to
- ‘org-lookup-first’, where ‘VAL’ precedes ‘S-LIST’. If ‘R-LIST’ is
- ‘nil’, the matching element ‘S’ of ‘S-LIST’ is returned.
-‘(org-lookup-last VAL S-LIST R-LIST &optional PREDICATE)’
- Similar to ‘org-lookup-first’ above, but searches for the last
- element for which ‘PREDICATE’ is ‘t’.
-‘(org-lookup-all VAL S-LIST R-LIST &optional PREDICATE)’
- Similar to ‘org-lookup-first’, but searches for all elements for
- which ‘PREDICATE’ is ‘t’, and returns all corresponding values.
- This function can not be used by itself in a formula, because it
- returns a list of values. However, powerful lookups can be built
- when this function is combined with other Emacs Lisp functions.
-
- If the ranges used in these functions contain empty fields, the ‘E’
-mode for the formula should usually be specified: otherwise empty fields
-will not be included in ‘S-LIST’ and/or ‘R-LIST’ which can, for example,
-result in an incorrect mapping from an element of ‘S-LIST’ to the
-corresponding element of ‘R-LIST’.
-
- These three functions can be used to implement associative arrays,
-count matching cells, rank results, group data etc. For practical
-examples see this tutorial on Worg
-(https://orgmode.org/worg/org-tutorials/org-lookups.html).
-
-
-File: org, Node: Editing and debugging formulas, Next: Updating the table, Prev: Lookup functions, Up: The spreadsheet
-
-3.5.8 Editing and debugging formulas
-------------------------------------
-
-You can edit individual formulas in the minibuffer or directly in the
-field. Org can also prepare a special buffer with all active formulas
-of a table. When offering a formula for editing, Org converts
-references to the standard format (like ‘B3’ or ‘D&’) if possible. If
-you prefer to only work with the internal format (like ‘@3$2’ or ‘$4’),
-configure the option ‘org-table-use-standard-references’.
-
-‘C-c = or C-u C-c = (org-table-eval-formula)’
- Edit the formula associated with the current column/field in the
- minibuffer. See *note Column formulas::, and *note Field and range
- formulas::.
-‘C-u C-u C-c = (org-table-eval-formula)’
- Re-insert the active formula (either a field formula, or a column
- formula) into the current field, so that you can edit it directly
- in the field. The advantage over editing in the minibuffer is that
- you can use the command ‘C-c ?’.
-‘C-c ? (org-table-field-info)’
- While editing a formula in a table field, highlight the field(s)
- referenced by the reference at the cursor position in the formula.
-‘C-c }’
- Toggle the display of row and column numbers for a table, using
- overlays (‘org-table-toggle-coordinate-overlays’). These are
- updated each time the table is aligned; you can force it with ‘C-c
- C-c’.
-‘C-c {’
- Toggle the formula debugger on and off
- (‘org-table-toggle-formula-debugger’). See below.
-‘C-c ' (org-table-edit-formulas)’
- Edit all formulas for the current table in a special buffer, where
- the formulas will be displayed one per line. If the current field
- has an active formula, the cursor in the formula editor will mark
- it. While inside the special buffer, Org will automatically
- highlight any field or range reference at the cursor position. You
- may edit, remove and add formulas, and use the following commands:
-
- ‘C-c C-c or C-x C-s (org-table-fedit-finish)’
- Exit the formula editor and store the modified formulas. With
- ‘C-u’ prefix, also apply the new formulas to the entire table.
- ‘C-c C-q (org-table-fedit-abort)’
- Exit the formula editor without installing changes.
- ‘C-c C-r (org-table-fedit-toggle-ref-type)’
- Toggle all references in the formula editor between standard
- (like ‘B3’) and internal (like ‘@3$2’).
- ‘<TAB> (org-table-fedit-lisp-indent)’
- Pretty-print or indent Lisp formula at point. When in a line
- containing a Lisp formula, format the formula according to
- Emacs Lisp rules. Another <TAB> collapses the formula back
- again. In the open formula, <TAB> re-indents just like in
- Emacs Lisp mode.
- ‘M-<TAB> (lisp-complete-symbol)’
- Complete Lisp symbols, just like in Emacs Lisp mode.(1)
- ‘S-<UP>/<DOWN>/<LEFT>/<RIGHT>’
- Shift the reference at point. For example, if the reference
- is ‘B3’ and you press ‘S-<RIGHT>’, it will become ‘C3’. This
- also works for relative references and for hline references.
- ‘M-S-<UP> (org-table-fedit-line-up)’
- ‘M-S-<DOWN> (org-table-fedit-line-down)’
- Move the test line for column formulas in the Org buffer up
- and down.
- ‘M-<UP> (org-table-fedit-scroll-down)’
- ‘M-<DOWN> (org-table-fedit-scroll-up)’
- Scroll the window displaying the table.
- ‘C-c }’
- Turn the coordinate grid in the table on and off.
-
- Making a table field blank does not remove the formula associated
-with the field, because that is stored in a different line (the
-‘#+TBLFM’ line)—during the next recalculation the field will be filled
-again. To remove a formula from a field, you have to give an empty
-reply when prompted for the formula, or to edit the ‘#+TBLFM’ line.
-
- You may edit the ‘#+TBLFM’ directly and re-apply the changed
-equations with ‘C-c C-c’ in that line or with the normal recalculation
-commands in the table.
-
-Using multiple ‘#+TBLFM’ lines
-..............................
-
-You may apply the formula temporarily. This is useful when you switch
-the formula. Place multiple ‘#+TBLFM’ lines right after the table, and
-then press ‘C-c C-c’ on the formula to apply. Here is an example:
-
- | x | y |
- |---+---|
- | 1 | |
- | 2 | |
- #+TBLFM: $2=$1*1
- #+TBLFM: $2=$1*2
-
-Pressing ‘C-c C-c’ in the line of ‘#+TBLFM: $2=$1*2’ yields:
-
- | x | y |
- |---+---|
- | 1 | 2 |
- | 2 | 4 |
- #+TBLFM: $2=$1*1
- #+TBLFM: $2=$1*2
-
-Note: If you recalculate this table (with ‘C-u C-c *’, for example), you
-will get the following result of applying only the first ‘#+TBLFM’ line.
-
- | x | y |
- |---+---|
- | 1 | 1 |
- | 2 | 2 |
- #+TBLFM: $2=$1*1
- #+TBLFM: $2=$1*2
-
-Debugging formulas
-..................
-
-When the evaluation of a formula leads to an error, the field content
-becomes the string ‘#ERROR’. If you would like see what is going on
-during variable substitution and calculation in order to find a bug,
-turn on formula debugging in the ‘Tbl’ menu and repeat the calculation,
-for example by pressing ‘C-u C-u C-c = <RET>’ in a field. Detailed
-information will be displayed.
-
- ---------- Footnotes ----------
-
- (1) Many desktops intercept ‘M-<TAB>’ to switch windows. Use ‘C-M-i’
-or ‘<ESC> <TAB>’ instead for completion (*note Completion::).
-
-
-File: org, Node: Updating the table, Next: Advanced features, Prev: Editing and debugging formulas, Up: The spreadsheet
-
-3.5.9 Updating the table
-------------------------
-
-Recalculation of a table is normally not automatic, but needs to be
-triggered by a command. See *note Advanced features::, for a way to
-make recalculation at least semi-automatic.
-
- In order to recalculate a line of a table or the entire table, use
-the following commands:
-
-‘C-c * (org-table-recalculate)’
- Recalculate the current row by first applying the stored column
- formulas from left to right, and all field/range formulas in the
- current row.
-‘C-u C-c *’
-‘C-u C-c C-c’
- Recompute the entire table, line by line. Any lines before the
- first hline are left alone, assuming that these are part of the
- table header.
-‘C-u C-u C-c * or C-u C-u C-c C-c (org-table-iterate)’
- Iterate the table by recomputing it until no further changes occur.
- This may be necessary if some computed fields use the value of
- other fields that are computed later in the calculation sequence.
-‘M-x org-table-recalculate-buffer-tables <RET>’
- Recompute all tables in the current buffer.
-‘M-x org-table-iterate-buffer-tables <RET>’
- Iterate all tables in the current buffer, in order to converge
- table-to-table dependencies.
-
-
-File: org, Node: Advanced features, Prev: Updating the table, Up: The spreadsheet
-
-3.5.10 Advanced features
-------------------------
-
-If you want the recalculation of fields to happen automatically, or if
-you want to be able to assign names(1) to fields and columns, you need
-to reserve the first column of the table for special marking characters.
-
-‘C-# (org-table-rotate-recalc-marks)’
- Rotate the calculation mark in first column through the states ‘ ’,
- ‘#’, ‘*’, ‘!’, ‘$’. When there is an active region, change all
- marks in the region.
-
- Here is an example of a table that collects exam results of students
-and makes use of these features:
-
- |---+---------+--------+--------+--------+-------+------|
- | | Student | Prob 1 | Prob 2 | Prob 3 | Total | Note |
- |---+---------+--------+--------+--------+-------+------|
- | ! | | P1 | P2 | P3 | Tot | |
- | # | Maximum | 10 | 15 | 25 | 50 | 10.0 |
- | ^ | | m1 | m2 | m3 | mt | |
- |---+---------+--------+--------+--------+-------+------|
- | # | Peter | 10 | 8 | 23 | 41 | 8.2 |
- | # | Sam | 2 | 4 | 3 | 9 | 1.8 |
- |---+---------+--------+--------+--------+-------+------|
- | | Average | | | | 25.0 | |
- | ^ | | | | | at | |
- | $ | max=50 | | | | | |
- |---+---------+--------+--------+--------+-------+------|
- #+TBLFM: $6=vsum($P1..$P3)::$7=10*$Tot/$max;%.1f::$at=vmean(@-II..@-I);%.1f
-
-Important: please note that for these special tables, recalculating the
-table with ‘C-u C-c *’ will only affect rows that are marked ‘#’ or ‘*’,
-and fields that have a formula assigned to the field itself. The column
-formulas are not applied in rows with empty first field.
-
- The marking characters have the following meaning:
-
-‘!’
- The fields in this line define names for the columns, so that you
- may refer to a column as ‘$Tot’ instead of ‘$6’.
-‘^’
- This row defines names for the fields _above_ the row. With such a
- definition, any formula in the table may use ‘$m1’ to refer to the
- value ‘10’. Also, if you assign a formula to a names field, it
- will be stored as ‘$name=...’.
-‘_’
- Similar to ‘^’, but defines names for the fields in the row
- _below_.
-‘$’
- Fields in this row can define _parameters_ for formulas. For
- example, if a field in a ‘$’ row contains ‘max=50’, then formulas
- in this table can refer to the value 50 using ‘$max’. Parameters
- work exactly like constants, only that they can be defined on a
- per-table basis.
-‘#’
- Fields in this row are automatically recalculated when pressing
- <TAB> or <RET> or ‘S-<TAB>’ in this row. Also, this row is
- selected for a global recalculation with ‘C-u C-c *’. Unmarked
- lines will be left alone by this command.
-‘*’
- Selects this line for global recalculation with ‘C-u C-c *’, but
- not for automatic recalculation. Use this when automatic
- recalculation slows down editing too much.
-‘ ’
- Unmarked lines are exempt from recalculation with ‘C-u C-c *’. All
- lines that should be recalculated should be marked with ‘#’ or ‘*’.
-‘/’
- Do not export this line. Useful for lines that contain the
- narrowing ‘<N>’ markers or column group markers.
-
- Finally, just to whet your appetite for what can be done with the
-fantastic ‘calc.el’ package, here is a table that computes the Taylor
-series of degree ‘n’ at location ‘x’ for a couple of functions.
-
- |---+-------------+---+-----+--------------------------------------|
- | | Func | n | x | Result |
- |---+-------------+---+-----+--------------------------------------|
- | # | exp(x) | 1 | x | 1 + x |
- | # | exp(x) | 2 | x | 1 + x + x^2 / 2 |
- | # | exp(x) | 3 | x | 1 + x + x^2 / 2 + x^3 / 6 |
- | # | x^2+sqrt(x) | 2 | x=0 | x*(0.5 / 0) + x^2 (2 - 0.25 / 0) / 2 |
- | # | x^2+sqrt(x) | 2 | x=1 | 2 + 2.5 x - 2.5 + 0.875 (x - 1)^2 |
- | * | tan(x) | 3 | x | 0.0175 x + 1.77e-6 x^3 |
- |---+-------------+---+-----+--------------------------------------|
- #+TBLFM: $5=taylor($2,$4,$3);n3
-
- ---------- Footnotes ----------
-
- (1) Such names must start by an alphabetic character and use only
-alphanumeric/underscore characters.
-
-
-File: org, Node: Org-Plot, Prev: The spreadsheet, Up: Tables
-
-3.6 Org-Plot
-============
-
-Org-Plot can produce graphs of information stored in org tables, either
-graphically or in ASCII-art.
-
-Graphical plots using ‘Gnuplot’
--------------------------------
-
-Org-Plot produces 2D and 3D graphs using ‘Gnuplot’
-<http://www.gnuplot.info/> and ‘gnuplot-mode’
-<http://xafs.org/BruceRavel/GnuplotMode>. To see this in action, ensure
-that you have both Gnuplot and Gnuplot mode installed on your system,
-then call ‘C-c " g’ or ‘M-x org-plot/gnuplot <RET>’ on the following
-table.
-
- #+PLOT: title:"Citas" ind:1 deps:(3) type:2d with:histograms set:"yrange [0:]"
- | Sede | Max cites | H-index |
- |-----------+-----------+---------|
- | Chile | 257.72 | 21.39 |
- | Leeds | 165.77 | 19.68 |
- | Sao Paolo | 71.00 | 11.50 |
- | Stockholm | 134.19 | 14.33 |
- | Morelia | 257.56 | 17.67 |
-
- Notice that Org Plot is smart enough to apply the table’s headers as
-labels. Further control over the labels, type, content, and appearance
-of plots can be exercised through the ‘#+PLOT:’ lines preceding a table.
-See below for a complete list of Org-plot options. The ‘#+PLOT:’ lines
-are optional. For more information and examples see the Org-plot
-tutorial at <https://orgmode.org/worg/org-tutorials/org-plot.html>.
-
-Plot Options
-............
-
-‘set’
- Specify any ‘gnuplot’ option to be set when graphing.
-
-‘title’
- Specify the title of the plot.
-
-‘ind’
- Specify which column of the table to use as the ‘x’ axis.
-
-‘deps’
- Specify the columns to graph as a Lisp style list, surrounded by
- parentheses and separated by spaces for example ‘dep:(3 4)’ to
- graph the third and fourth columns (defaults to graphing all other
- columns aside from the ‘ind’ column).
-
-‘type’
- Specify whether the plot will be ‘2d’, ‘3d’, or ‘grid’.
-
-‘with’
- Specify a ‘with’ option to be inserted for every col being plotted
- (e.g., ‘lines’, ‘points’, ‘boxes’, ‘impulses’, etc...). Defaults
- to ‘lines’.
-
-‘file’
- If you want to plot to a file, specify
- ‘"PATH/TO/DESIRED/OUTPUT-FILE"’.
-
-‘labels’
- List of labels to be used for the ‘deps’ (defaults to the column
- headers if they exist).
-
-‘line’
- Specify an entire line to be inserted in the Gnuplot script.
-
-‘map’
- When plotting ‘3d’ or ‘grid’ types, set this to ‘t’ to graph a flat
- mapping rather than a ‘3d’ slope.
-
-‘timefmt’
- Specify format of Org mode timestamps as they will be parsed by
- Gnuplot. Defaults to ‘%Y-%m-%d-%H:%M:%S’.
-
-‘script’
- If you want total control, you can specify a script file (place the
- file name between double-quotes) which will be used to plot.
- Before plotting, every instance of ‘$datafile’ in the specified
- script will be replaced with the path to the generated data file.
- Note: even if you set this option, you may still want to specify
- the plot type, as that can impact the content of the data file.
-
-ASCII bar plots
----------------
-
-While the cursor is on a column, typing ‘C-c " a’ or ‘M-x
-orgtbl-ascii-plot <RET>’ create a new column containing an ASCII-art
-bars plot. The plot is implemented through a regular column formula.
-When the source column changes, the bar plot may be updated by
-refreshing the table, for example typing ‘C-u C-c *’.
-
- | Sede | Max cites | |
- |---------------+-----------+--------------|
- | Chile | 257.72 | WWWWWWWWWWWW |
- | Leeds | 165.77 | WWWWWWWh |
- | Sao Paolo | 71.00 | WWW; |
- | Stockholm | 134.19 | WWWWWW: |
- | Morelia | 257.56 | WWWWWWWWWWWH |
- | Rochefourchat | 0.00 | |
- #+TBLFM: $3='(orgtbl-ascii-draw $2 0.0 257.72 12)
-
- The formula is an elisp call:
- (orgtbl-ascii-draw COLUMN MIN MAX WIDTH)
-
-‘COLUMN’
- is a reference to the source column.
-
-‘MIN MAX’
- are the minimal and maximal values displayed. Sources values
- outside this range are displayed as ‘too small’ or ‘too large’.
-
-‘WIDTH’
- is the width in characters of the bar-plot. It defaults to ‘12’.
-
-
-File: org, Node: Hyperlinks, Next: TODO items, Prev: Tables, Up: Top
-
-4 Hyperlinks
-************
-
-Like HTML, Org provides links inside a file, external links to other
-files, Usenet articles, emails, and much more.
-
-* Menu:
-
-* Link format:: How links in Org are formatted
-* Internal links:: Links to other places in the current file
-* External links:: URL-like links to the world
-* Handling links:: Creating, inserting and following
-* Using links outside Org:: Linking from my C source code?
-* Link abbreviations:: Shortcuts for writing complex links
-* Search options:: Linking to a specific location
-* Custom searches:: When the default search is not enough
-
-
-File: org, Node: Link format, Next: Internal links, Up: Hyperlinks
-
-4.1 Link format
-===============
-
-Org will recognize plain URL-like links and activate them as clickable
-links. The general link format, however, looks like this:
-
- [[link][description]] or alternatively [[link]]
-
-Once a link in the buffer is complete (all brackets present), Org will
-change the display so that ‘description’ is displayed instead of
-‘[[link][description]]’ and ‘link’ is displayed instead of ‘[[link]]’.
-Links will be highlighted in the face ‘org-link’, which by default is an
-underlined face. You can directly edit the visible part of a link.
-Note that this can be either the ‘link’ part (if there is no
-description) or the ‘description’ part. To edit also the invisible
-‘link’ part, use ‘C-c C-l’ with the cursor on the link.
-
- If you place the cursor at the beginning or just behind the end of
-the displayed text and press <BACKSPACE>, you will remove the
-(invisible) bracket at that location. This makes the link incomplete
-and the internals are again displayed as plain text. Inserting the
-missing bracket hides the link internals again. To show the internal
-structure of all links, use the menu entry ‘Org->Hyperlinks->Literal
-links’.
-
-
-File: org, Node: Internal links, Next: External links, Prev: Link format, Up: Hyperlinks
-
-4.2 Internal links
-==================
-
-If the link does not look like a URL, it is considered to be internal in
-the current file. The most important case is a link like
-‘[[#my-custom-id]]’ which will link to the entry with the ‘CUSTOM_ID’
-property ‘my-custom-id’. You are responsible yourself to make sure
-these custom IDs are unique in a file.
-
- Links such as ‘[[My Target]]’ or ‘[[My Target][Find my target]]’ lead
-to a text search in the current file.
-
- The link can be followed with ‘C-c C-o’ when the cursor is on the
-link, or with a mouse click (*note Handling links::). Links to custom
-IDs will point to the corresponding headline. The preferred match for a
-text link is a dedicated target: the same string in double angular
-brackets, like ‘<<My Target>>’.
-
- If no dedicated target exists, the link will then try to match the
-exact name of an element within the buffer. Naming is done with the
-‘#+NAME’ keyword, which has to be put in the line before the element it
-refers to, as in the following example
-
- #+NAME: My Target
- | a | table |
- |----+------------|
- | of | four cells |
-
- If none of the above succeeds, Org will search for a headline that is
-exactly the link text but may also include a TODO keyword and tags(1).
-
- During export, internal links will be used to mark objects and assign
-them a number. Marked objects will then be referenced by links pointing
-to them. In particular, links without a description will appear as the
-number assigned to the marked object(2). In the following excerpt from
-an Org buffer
-
- - one item
- - <<target>>another item
- Here we refer to item [[target]].
-
-The last sentence will appear as ‘Here we refer to item 2’ when
-exported.
-
- In non-Org files, the search will look for the words in the link
-text. In the above example the search would be for ‘my target’.
-
- Following a link pushes a mark onto Org’s own mark ring. You can
-return to the previous position with ‘C-c &’. Using this command
-several times in direct succession goes back to positions recorded
-earlier.
-
-* Menu:
-
-* Radio targets:: Make targets trigger links in plain text
-
- ---------- Footnotes ----------
-
- (1) To insert a link targeting a headline, in-buffer completion can
-be used. Just type a star followed by a few optional letters into the
-buffer and press ‘M-<TAB>’. All headlines in the current buffer will be
-offered as completions.
-
- (2) When targeting a ‘#+NAME’ keyword, ‘#+CAPTION’ keyword is
-mandatory in order to get proper numbering (*note Images and tables::).
-
-
-File: org, Node: Radio targets, Up: Internal links
-
-4.2.1 Radio targets
--------------------
-
-Org can automatically turn any occurrences of certain target names in
-normal text into a link. So without explicitly creating a link, the
-text connects to the target radioing its position. Radio targets are
-enclosed by triple angular brackets. For example, a target ‘<<<My
-Target>>>’ causes each occurrence of ‘my target’ in normal text to
-become activated as a link. The Org file is scanned automatically for
-radio targets only when the file is first loaded into Emacs. To update
-the target list during editing, press ‘C-c C-c’ with the cursor on or at
-a target.
-
-
-File: org, Node: External links, Next: Handling links, Prev: Internal links, Up: Hyperlinks
-
-4.3 External links
-==================
-
-Org supports links to files, websites, Usenet and email messages, BBDB
-database entries and links to both IRC conversations and their logs.
-External links are URL-like locators. They start with a short
-identifying string followed by a colon. There can be no space after the
-colon. The following list shows examples for each link type.
-
- http://www.astro.uva.nl/~dominik on the web
- doi:10.1000/182 DOI for an electronic resource
- file:/home/dominik/images/jupiter.jpg file, absolute path
- /home/dominik/images/jupiter.jpg same as above
- file:papers/last.pdf file, relative path
- ./papers/last.pdf same as above
- file:/ssh:myself@some.where:papers/last.pdf file, path on remote machine
- /ssh:myself@some.where:papers/last.pdf same as above
- file:sometextfile::NNN file, jump to line number
- file:projects.org another Org file
- file:projects.org::some words text search in Org file(1)
- file:projects.org::*task title heading search in Org file(2)
- docview:papers/last.pdf::NNN open in doc-view mode at page
- id:B7423F4D-2E8A-471B-8810-C40F074717E9 Link to heading by ID
- news:comp.emacs Usenet link
- mailto:adent@galaxy.net Mail link
- mhe:folder MH-E folder link
- mhe:folder#id MH-E message link
- rmail:folder RMAIL folder link
- rmail:folder#id RMAIL message link
- gnus:group Gnus group link
- gnus:group#id Gnus article link
- bbdb:R.*Stallman BBDB link (with regexp)
- irc:/irc.com/#emacs/bob IRC link
- info:org#External links Info node or index link
- shell:ls *.org A shell command
- elisp:org-agenda Interactive Elisp command
- elisp:(find-file-other-frame "Elisp.org") Elisp form to evaluate
-
- On top of these built-in link types, some are available through the
-‘contrib/’ directory (*note Installation::). For example, these links
-to VM or Wanderlust messages are available when you load the
-corresponding libraries from the ‘contrib/’ directory:
-
- vm:folder VM folder link
- vm:folder#id VM message link
- vm://myself@some.where.org/folder#id VM on remote machine
- vm-imap:account:folder VM IMAP folder link
- vm-imap:account:folder#id VM IMAP message link
- wl:folder WANDERLUST folder link
- wl:folder#id WANDERLUST message link
-
- For customizing Org to add new link types *note Adding hyperlink
-types::.
-
- A link should be enclosed in double brackets and may contain a
-descriptive text to be displayed instead of the URL (*note Link
-format::), for example:
-
- [[https://www.gnu.org/software/emacs/][GNU Emacs]]
-
-If the description is a file name or URL that points to an image, HTML
-export (*note HTML export::) will inline the image as a clickable
-button. If there is no description at all and the link points to an
-image, that image will be inlined into the exported HTML file.
-
- Org also finds external links in the normal text and activates them
-as links. If spaces must be part of the link (for example in
-‘bbdb:Richard Stallman’), or if you need to remove ambiguities about the
-end of the link, enclose them in square brackets.
-
- ---------- Footnotes ----------
-
- (1) The actual behavior of the search will depend on the value of the
-option ‘org-link-search-must-match-exact-headline’. If its value is
-‘nil’, then a fuzzy text search will be done. If it is ‘t’, then only
-the exact headline will be matched, ignoring spaces and cookies. If the
-value is ‘query-to-create’, then an exact headline will be searched; if
-it is not found, then the user will be queried to create it.
-
- (2) Headline searches always match the exact headline, ignoring
-spaces and cookies. If the headline is not found and the value of the
-option ‘org-link-search-must-match-exact-headline’ is ‘query-to-create’,
-then the user will be queried to create it.
-
-
-File: org, Node: Handling links, Next: Using links outside Org, Prev: External links, Up: Hyperlinks
-
-4.4 Handling links
-==================
-
-Org provides methods to create a link in the correct syntax, to insert
-it into an Org file, and to follow the link.
-
-‘C-c l (org-store-link)’
- Store a link to the current location. This is a _global_ command
- (you must create the key binding yourself) which can be used in any
- buffer to create a link. The link will be stored for later
- insertion into an Org buffer (see below). What kind of link will
- be created depends on the current buffer:
-
- Org mode buffers
- For Org files, if there is a ‘<<target>>’ at the cursor, the link
- points to the target. Otherwise it points to the current headline,
- which will also be the description(1).
-
- If the headline has a ‘CUSTOM_ID’ property, a link to this custom
- ID will be stored. In addition or alternatively (depending on the
- value of ‘org-id-link-to-org-use-id’), a globally unique ‘ID’
- property will be created and/or used to construct a link(2). So
- using this command in Org buffers will potentially create two
- links: a human-readable from the custom ID, and one that is
- globally unique and works even if the entry is moved from file to
- file. Later, when inserting the link, you need to decide which one
- to use.
-
- Email/News clients: VM, Rmail, Wanderlust, MH-E, Gnus
- Pretty much all Emacs mail clients are supported. The link will
- point to the current article, or, in some GNUS buffers, to the
- group. The description is constructed from the author and the
- subject.
-
- Web browsers: Eww, W3 and W3M
- Here the link will be the current URL, with the page title as
- description.
-
- Contacts: BBDB
- Links created in a BBDB buffer will point to the current entry.
-
- Chat: IRC
- For IRC links, if you set the option ‘org-irc-link-to-logs’ to ‘t’,
- a ‘file:/’ style link to the relevant point in the logs for the
- current conversation is created. Otherwise an ‘irc:/’ style link
- to the user/channel/server under the point will be stored.
-
- Other files
- For any other files, the link will point to the file, with a search
- string (*note Search options::) pointing to the contents of the
- current line. If there is an active region, the selected words
- will form the basis of the search string. If the automatically
- created link is not working correctly or accurately enough, you can
- write custom functions to select the search string and to do the
- search for particular file types—see *note Custom searches::. The
- key binding ‘C-c l’ is only a suggestion—see *note Installation::.
-
- Agenda view
- When the cursor is in an agenda view, the created link points to
- the entry referenced by the current line.
-
-‘C-c C-l (org-insert-link)’
- Insert a link(3). This prompts for a link to be inserted into the
- buffer. You can just type a link, using text for an internal link,
- or one of the link type prefixes mentioned in the examples above.
- The link will be inserted into the buffer(4), along with a
- descriptive text. If some text was selected when this command is
- called, the selected text becomes the default description.
-
- Inserting stored links
- All links stored during the current session are part of the history
- for this prompt, so you can access them with <UP> and <DOWN> (or
- ‘M-p/n’).
-
- Completion support
- Completion with <TAB> will help you to insert valid link prefixes
- like ‘https:’, including the prefixes defined through link
- abbreviations (*note Link abbreviations::). If you press <RET>
- after inserting only the PREFIX, Org will offer specific completion
- support for some link types(5) For example, if you type ‘file
- <RET>’, file name completion (alternative access: ‘C-u C-c C-l’,
- see below) will be offered, and after ‘bbdb <RET>’ you can complete
- contact names.
-‘C-u C-c C-l’
- When ‘C-c C-l’ is called with a ‘C-u’ prefix argument, a link to a
- file will be inserted and you may use file name completion to
- select the name of the file. The path to the file is inserted
- relative to the directory of the current Org file, if the linked
- file is in the current directory or in a sub-directory of it, or if
- the path is written relative to the current directory using ‘../’.
- Otherwise an absolute path is used, if possible with ‘~/’ for your
- home directory. You can force an absolute path with two ‘C-u’
- prefixes.
-‘C-c C-l (with cursor on existing link)’
- When the cursor is on an existing link, ‘C-c C-l’ allows you to
- edit the link and description parts of the link.
-‘C-c C-o (org-open-at-point)’
- Open link at point. This will launch a web browser for URLs (using
- ‘browse-url-at-point’), run VM/MH-E/Wanderlust/Rmail/Gnus/BBDB for
- the corresponding links, and execute the command in a shell link.
- When the cursor is on an internal link, this command runs the
- corresponding search. When the cursor is on a TAG list in a
- headline, it creates the corresponding TAGS view. If the cursor is
- on a timestamp, it compiles the agenda for that date. Furthermore,
- it will visit text and remote files in ‘file:’ links with Emacs and
- select a suitable application for local non-text files.
- Classification of files is based on file extension only. See
- option ‘org-file-apps’. If you want to override the default
- application and visit the file with Emacs, use a ‘C-u’ prefix. If
- you want to avoid opening in Emacs, use a ‘C-u C-u’ prefix.
- If the cursor is on a headline, but not on a link, offer all links
- in the headline and entry text. If you want to setup the frame
- configuration for following links, customize
- ‘org-link-frame-setup’.
-
-‘<RET>’
- When ‘org-return-follows-link’ is set, ‘<RET>’ will also follow the
- link at point.
-‘mouse-2’
-‘mouse-1’
- On links, ‘mouse-1’ and ‘mouse-2’ will open the link just as ‘C-c
- C-o’ would.
-‘mouse-3’
- Like ‘mouse-2’, but force file links to be opened with Emacs, and
- internal links to be displayed in another window(6).
-‘C-c C-x C-v (org-toggle-inline-images)’
- Toggle the inline display of linked images. Normally this will
- only inline images that have no description part in the link, i.e.,
- images that will also be inlined during export. When called with a
- prefix argument, also display images that do have a link
- description. You can ask for inline images to be displayed at
- startup by configuring the variable
- ‘org-startup-with-inline-images’(7).
-‘C-c % (org-mark-ring-push)’
- Push the current position onto the mark ring, to be able to return
- easily. Commands following an internal link do this automatically.
-‘C-c & (org-mark-ring-goto)’
- Jump back to a recorded position. A position is recorded by the
- commands following internal links, and by ‘C-c %’. Using this
- command several times in direct succession moves through a ring of
- previously recorded positions.
-‘C-c C-x C-n (org-next-link)’
-‘C-c C-x C-p (org-previous-link)’
- Move forward/backward to the next link in the buffer. At the limit
- of the buffer, the search fails once, and then wraps around. The
- key bindings for this are really too long; you might want to bind
- this also to ‘C-n’ and ‘C-p’
- (add-hook 'org-load-hook
- (lambda ()
- (define-key org-mode-map "\C-n" 'org-next-link)
- (define-key org-mode-map "\C-p" 'org-previous-link)))
-
- ---------- Footnotes ----------
-
- (1) If the headline contains a timestamp, it will be removed from the
-link and result in a wrong link—you should avoid putting timestamp in
-the headline.
-
- (2) The library ‘org-id.el’ must first be loaded, either through
-‘org-customize’ by enabling ‘org-id’ in ‘org-modules’, or by adding
-‘(require 'org-id)’ in your Emacs init file.
-
- (3) Note that you don’t have to use this command to insert a link.
-Links in Org are plain text, and you can type or paste them straight
-into the buffer. By using this command, the links are automatically
-enclosed in double brackets, and you will be asked for the optional
-descriptive text.
-
- (4) After insertion of a stored link, the link will be removed from
-the list of stored links. To keep it in the list later use, use a
-triple ‘C-u’ prefix argument to ‘C-c C-l’, or configure the option
-‘org-keep-stored-link-after-insertion’.
-
- (5) This works if a completion function is defined in the ‘:complete’
-property of a link in ‘org-link-parameters’.
-
- (6) See the option ‘org-display-internal-link-with-indirect-buffer’
-
- (7) with corresponding ‘#+STARTUP’ keywords ‘inlineimages’ and
-‘noinlineimages’
-
-
-File: org, Node: Using links outside Org, Next: Link abbreviations, Prev: Handling links, Up: Hyperlinks
-
-4.5 Using links outside Org
-===========================
-
-You can insert and follow links that have Org syntax not only in Org,
-but in any Emacs buffer. For this, you should create two global
-commands, like this (please select suitable global keys yourself):
-
- (global-set-key "\C-c L" 'org-insert-link-global)
- (global-set-key "\C-c o" 'org-open-at-point-global)
-
-
-File: org, Node: Link abbreviations, Next: Search options, Prev: Using links outside Org, Up: Hyperlinks
-
-4.6 Link abbreviations
-======================
-
-Long URLs can be cumbersome to type, and often many similar links are
-needed in a document. For this you can use link abbreviations. An
-abbreviated link looks like this
-
- [[linkword:tag][description]]
-
-where the tag is optional. The linkword must be a word, starting with a
-letter, followed by letters, numbers, ‘-’, and ‘_’. Abbreviations are
-resolved according to the information in the variable
-‘org-link-abbrev-alist’ that relates the linkwords to replacement text.
-Here is an example:
-
- (setq org-link-abbrev-alist
- '(("bugzilla" . "http://10.1.2.9/bugzilla/show_bug.cgi?id=")
- ("url-to-ja" . "http://translate.google.fr/translate?sl=en&tl=ja&u=%h")
- ("google" . "http://www.google.com/search?q=")
- ("gmap" . "http://maps.google.com/maps?q=%s")
- ("omap" . "http://nominatim.openstreetmap.org/search?q=%s&polygon=1")
- ("ads" . "http://adsabs.harvard.edu/cgi-bin/nph-abs_connect?author=%s&db_key=AST")))
-
- If the replacement text contains the string ‘%s’, it will be replaced
-with the tag. Using ‘%h’ instead of ‘%s’ will url-encode the tag (see
-the example above, where we need to encode the URL parameter.) Using
-‘%(my-function)’ will pass the tag to a custom function, and replace it
-by the resulting string.
-
- If the replacement text doesn’t contain any specifier, the tag will
-simply be appended in order to create the link.
-
- Instead of a string, you may also specify a function that will be
-called with the tag as the only argument to create the link.
-
- With the above setting, you could link to a specific bug with
-‘[[bugzilla:129]]’, search the web for ‘OrgMode’ with
-‘[[google:OrgMode]]’, show the map location of the Free Software
-Foundation ‘[[gmap:51 Franklin Street, Boston]]’ or of Carsten office
-‘[[omap:Science Park 904, Amsterdam, The Netherlands]]’ and find out
-what the Org author is doing besides Emacs hacking with
-‘[[ads:Dominik,C]]’.
-
- If you need special abbreviations just for a single Org buffer, you
-can define them in the file with
-
- #+LINK: bugzilla http://10.1.2.9/bugzilla/show_bug.cgi?id=
- #+LINK: google http://www.google.com/search?q=%s
-
-In-buffer completion (*note Completion::) can be used after ‘[’ to
-complete link abbreviations. You may also define a function that
-implements special (e.g., completion) support for inserting such a link
-with ‘C-c C-l’. Such a function should not accept any arguments, and
-return the full link with prefix. You can add a completion function to
-a link like this:
-
- (org-link-set-parameters ``type'' :complete #'some-function)
-
-
-File: org, Node: Search options, Next: Custom searches, Prev: Link abbreviations, Up: Hyperlinks
-
-4.7 Search options in file links
-================================
-
-File links can contain additional information to make Emacs jump to a
-particular location in the file when following a link. This can be a
-line number or a search option after a double(1) colon. For example,
-when the command ‘C-c l’ creates a link (*note Handling links::) to a
-file, it encodes the words in the current line as a search string that
-can be used to find this line back later when following the link with
-‘C-c C-o’.
-
- Here is the syntax of the different ways to attach a search to a file
-link, together with an explanation:
-
- [[file:~/code/main.c::255]]
- [[file:~/xx.org::My Target]]
- [[file:~/xx.org::*My Target]]
- [[file:~/xx.org::#my-custom-id]]
- [[file:~/xx.org::/regexp/]]
-
-‘255’
- Jump to line 255.
-‘My Target’
- Search for a link target ‘<<My Target>>’, or do a text search for
- ‘my target’, similar to the search in internal links, see *note
- Internal links::. In HTML export (*note HTML export::), such a
- file link will become an HTML reference to the corresponding named
- anchor in the linked file.
-‘*My Target’
- In an Org file, restrict search to headlines.
-‘#my-custom-id’
- Link to a heading with a ‘CUSTOM_ID’ property
-‘/regexp/’
- Do a regular expression search for ‘regexp’. This uses the Emacs
- command ‘occur’ to list all matches in a separate window. If the
- target file is in Org mode, ‘org-occur’ is used to create a sparse
- tree with the matches.
-
- As a degenerate case, a file link with an empty file name can be used
-to search the current file. For example, ‘[[file:::find me]]’ does a
-search for ‘find me’ in the current file, just as ‘[[find me]]’ would.
-
- ---------- Footnotes ----------
-
- (1) For backward compatibility, line numbers can also follow a single
-colon.
-
-
-File: org, Node: Custom searches, Prev: Search options, Up: Hyperlinks
-
-4.8 Custom Searches
-===================
-
-The default mechanism for creating search strings and for doing the
-actual search related to a file link may not work correctly in all
-cases. For example, BibTeX database files have many entries like
-‘year="1993"’ which would not result in good search strings, because the
-only unique identification for a BibTeX entry is the citation key.
-
- If you come across such a problem, you can write custom functions to
-set the right search string for a particular file type, and to do the
-search for the string in the file. Using ‘add-hook’, these functions
-need to be added to the hook variables
-‘org-create-file-search-functions’ and
-‘org-execute-file-search-functions’. See the docstring for these
-variables for more information. Org actually uses this mechanism for
-BibTeX database files, and you can use the corresponding code as an
-implementation example. See the file ‘org-bibtex.el’.
-
-
-File: org, Node: TODO items, Next: Tags, Prev: Hyperlinks, Up: Top
-
-5 TODO items
-************
-
-Org mode does not maintain TODO lists as separate documents(1).
-Instead, TODO items are an integral part of the notes file, because TODO
-items usually come up while taking notes! With Org mode, simply mark
-any entry in a tree as being a TODO item. In this way, information is
-not duplicated, and the entire context from which the TODO item emerged
-is always present.
-
- Of course, this technique for managing TODO items scatters them
-throughout your notes file. Org mode compensates for this by providing
-methods to give you an overview of all the things that you have to do.
-
-* Menu:
-
-* TODO basics:: Marking and displaying TODO entries
-* TODO extensions:: Workflow and assignments
-* Progress logging:: Dates and notes for progress
-* Priorities:: Some things are more important than others
-* Breaking down tasks:: Splitting a task into manageable pieces
-* Checkboxes:: Tick-off lists
-
- ---------- Footnotes ----------
-
- (1) Of course, you can make a document that contains only long lists
-of TODO items, but this is not required.
-
-
-File: org, Node: TODO basics, Next: TODO extensions, Up: TODO items
-
-5.1 Basic TODO functionality
-============================
-
-Any headline becomes a TODO item when it starts with the word ‘TODO’,
-for example:
-
- *** TODO Write letter to Sam Fortune
-
-The most important commands to work with TODO entries are:
-
-‘C-c C-t (org-todo)’
-
- Rotate the TODO state of the current item among
-
- ,-> (unmarked) -> TODO -> DONE --.
- '--------------------------------'
-
- If TODO keywords have fast access keys (see *note Fast access to
- TODO states::), you will be prompted for a TODO keyword through the
- fast selection interface; this is the default behavior when
- ‘org-use-fast-todo-selection’ is non-‘nil’.
-
- The same rotation can also be done “remotely” from agenda buffers
- with the ‘t’ command key (*note Agenda commands::).
-
-‘C-u C-c C-t’
- When TODO keywords have no selection keys, select a specific
- keyword using completion; otherwise force cycling through TODO
- states with no prompt. When ‘org-use-fast-todo-selection’ is set
- to ‘prefix’, use the fast selection interface.
-
-‘S-<RIGHT> / S-<LEFT>’
- Select the following/preceding TODO state, similar to cycling.
- Useful mostly if more than two TODO states are possible (*note TODO
- extensions::). See also *note Conflicts::, for a discussion of the
- interaction with ‘shift-selection-mode’. See also the variable
- ‘org-treat-S-cursor-todo-selection-as-state-change’.
-‘C-c / t (org-show-todo-tree)’
- View TODO items in a _sparse tree_ (*note Sparse trees::). Folds
- the entire buffer, but shows all TODO items (with not-DONE state)
- and the headings hierarchy above them. With a prefix argument (or
- by using ‘C-c / T’), search for a specific TODO. You will be
- prompted for the keyword, and you can also give a list of keywords
- like ‘KWD1|KWD2|...’ to list entries that match any one of these
- keywords. With a numeric prefix argument N, show the tree for the
- Nth keyword in the option ‘org-todo-keywords’. With two prefix
- arguments, find all TODO states, both un-done and done.
-‘C-c a t (org-todo-list)’
- Show the global TODO list. Collects the TODO items (with not-DONE
- states) from all agenda files (*note Agenda views::) into a single
- buffer. The new buffer will be in ‘agenda-mode’, which provides
- commands to examine and manipulate the TODO entries from the new
- buffer (*note Agenda commands::). *Note Global TODO list::, for
- more information.
-‘S-M-<RET> (org-insert-todo-heading)’
- Insert a new TODO entry below the current one.
-
-Changing a TODO state can also trigger tag changes. See the docstring
-of the option ‘org-todo-state-tags-triggers’ for details.
-
-
-File: org, Node: TODO extensions, Next: Progress logging, Prev: TODO basics, Up: TODO items
-
-5.2 Extended use of TODO keywords
-=================================
-
-By default, marked TODO entries have one of only two states: TODO and
-DONE. Org mode allows you to classify TODO items in more complex ways
-with _TODO keywords_ (stored in ‘org-todo-keywords’). With special
-setup, the TODO keyword system can work differently in different files.
-
- Note that tags are another way to classify headlines in general and
-TODO items in particular (*note Tags::).
-
-* Menu:
-
-* Workflow states:: From TODO to DONE in steps
-* TODO types:: I do this, Fred does the rest
-* Multiple sets in one file:: Mixing it all, and still finding your way
-* Fast access to TODO states:: Single letter selection of a state
-* Per-file keywords:: Different files, different requirements
-* Faces for TODO keywords:: Highlighting states
-* TODO dependencies:: When one task needs to wait for others
-
-
-File: org, Node: Workflow states, Next: TODO types, Up: TODO extensions
-
-5.2.1 TODO keywords as workflow states
---------------------------------------
-
-You can use TODO keywords to indicate different _sequential_ states in
-the process of working on an item, for example(1):
-
- (setq org-todo-keywords
- '((sequence "TODO" "FEEDBACK" "VERIFY" "|" "DONE" "DELEGATED")))
-
- The vertical bar separates the TODO keywords (states that _need
-action_) from the DONE states (which need _no further action_). If you
-don’t provide the separator bar, the last state is used as the DONE
-state. With this setup, the command ‘C-c C-t’ will cycle an entry from
-TODO to FEEDBACK, then to VERIFY, and finally to DONE and DELEGATED.
-You may also use a numeric prefix argument to quickly select a specific
-state. For example ‘C-3 C-c C-t’ will change the state immediately to
-VERIFY. Or you can use ‘S-<LEFT>’ to go backward through the sequence.
-If you define many keywords, you can use in-buffer completion (*note
-Completion::) or even a special one-key selection scheme (*note Fast
-access to TODO states::) to insert these words into the buffer.
-Changing a TODO state can be logged with a timestamp, see *note Tracking
-TODO state changes::, for more information.
-
- ---------- Footnotes ----------
-
- (1) Changing this variable only becomes effective after restarting
-Org mode in a buffer.
-
-
-File: org, Node: TODO types, Next: Multiple sets in one file, Prev: Workflow states, Up: TODO extensions
-
-5.2.2 TODO keywords as types
-----------------------------
-
-The second possibility is to use TODO keywords to indicate different
-_types_ of action items. For example, you might want to indicate that
-items are for “work” or “home”. Or, when you work with several people
-on a single project, you might want to assign action items directly to
-persons, by using their names as TODO keywords. This would be set up
-like this:
-
- (setq org-todo-keywords '((type "Fred" "Sara" "Lucy" "|" "DONE")))
-
- In this case, different keywords do not indicate a sequence, but
-rather different types. So the normal work flow would be to assign a
-task to a person, and later to mark it DONE. Org mode supports this
-style by adapting the workings of the command ‘C-c C-t’(1). When used
-several times in succession, it will still cycle through all names, in
-order to first select the right type for a task. But when you return to
-the item after some time and execute ‘C-c C-t’ again, it will switch
-from any name directly to DONE. Use prefix arguments or completion to
-quickly select a specific name. You can also review the items of a
-specific TODO type in a sparse tree by using a numeric prefix to ‘C-c /
-t’. For example, to see all things Lucy has to do, you would use ‘C-3
-C-c / t’. To collect Lucy’s items from all agenda files into a single
-buffer, you would use the numeric prefix argument as well when creating
-the global TODO list: ‘C-3 C-c a t’.
-
- ---------- Footnotes ----------
-
- (1) This is also true for the ‘t’ command in the agenda buffers.
-
-
-File: org, Node: Multiple sets in one file, Next: Fast access to TODO states, Prev: TODO types, Up: TODO extensions
-
-5.2.3 Multiple keyword sets in one file
----------------------------------------
-
-Sometimes you may want to use different sets of TODO keywords in
-parallel. For example, you may want to have the basic ‘TODO’/‘DONE’,
-but also a workflow for bug fixing, and a separate state indicating that
-an item has been canceled (so it is not DONE, but also does not require
-action). Your setup would then look like this:
-
- (setq org-todo-keywords
- '((sequence "TODO" "|" "DONE")
- (sequence "REPORT" "BUG" "KNOWNCAUSE" "|" "FIXED")
- (sequence "|" "CANCELED")))
-
- The keywords should all be different, this helps Org mode to keep
-track of which subsequence should be used for a given entry. In this
-setup, ‘C-c C-t’ only operates within a subsequence, so it switches from
-‘DONE’ to (nothing) to ‘TODO’, and from ‘FIXED’ to (nothing) to
-‘REPORT’. Therefore you need a mechanism to initially select the
-correct sequence. Besides the obvious ways like typing a keyword or
-using completion, you may also apply the following commands:
-
-‘C-u C-u C-c C-t’
-‘C-S-<RIGHT>’
-‘C-S-<LEFT>’
- These keys jump from one TODO subset to the next. In the above
- example, ‘C-u C-u C-c C-t’ or ‘C-S-<RIGHT>’ would jump from ‘TODO’
- or ‘DONE’ to ‘REPORT’, and any of the words in the second row to
- ‘CANCELED’. Note that the ‘C-S-’ key binding conflict with
- ‘shift-selection-mode’ (*note Conflicts::).
-‘S-<RIGHT>’
-‘S-<LEFT>’
- ‘S-<LEFT>’ and ‘S-<RIGHT>’ and walk through _all_ keywords from all
- sets, so for example ‘S-<RIGHT>’ would switch from ‘DONE’ to
- ‘REPORT’ in the example above. See also *note Conflicts::, for a
- discussion of the interaction with ‘shift-selection-mode’.
-
-
-File: org, Node: Fast access to TODO states, Next: Per-file keywords, Prev: Multiple sets in one file, Up: TODO extensions
-
-5.2.4 Fast access to TODO states
---------------------------------
-
-If you would like to quickly change an entry to an arbitrary TODO state
-instead of cycling through the states, you can set up keys for
-single-letter access to the states. This is done by adding the
-selection character after each keyword, in parentheses(1). For example:
-
- (setq org-todo-keywords
- '((sequence "TODO(t)" "|" "DONE(d)")
- (sequence "REPORT(r)" "BUG(b)" "KNOWNCAUSE(k)" "|" "FIXED(f)")
- (sequence "|" "CANCELED(c)")))
-
- If you then press ‘C-c C-t’ followed by the selection key, the entry
-will be switched to this state. ‘<SPC>’ can be used to remove any TODO
-keyword from an entry.(2)
-
- ---------- Footnotes ----------
-
- (1) All characters are allowed except ‘@^!’, which have a special
-meaning here.
-
- (2) Check also the option ‘org-fast-tag-selection-include-todo’, it
-allows you to change the TODO state through the tags interface (*note
-Setting tags::), in case you like to mingle the two concepts. Note that
-this means you need to come up with unique keys across both sets of
-keywords.
-
-
-File: org, Node: Per-file keywords, Next: Faces for TODO keywords, Prev: Fast access to TODO states, Up: TODO extensions
-
-5.2.5 Setting up keywords for individual files
-----------------------------------------------
-
-It can be very useful to use different aspects of the TODO mechanism in
-different files. For file-local settings, you need to add special lines
-to the file which set the keywords and interpretation for that file
-only. For example, to set one of the two examples discussed above, you
-need one of the following lines anywhere in the file:
-
- #+TODO: TODO FEEDBACK VERIFY | DONE CANCELED
-(you may also write ‘#+SEQ_TODO’ to be explicit about the
-interpretation, but it means the same as ‘#+TODO’), or
- #+TYP_TODO: Fred Sara Lucy Mike | DONE
-
- A setup for using several sets in parallel would be:
-
- #+TODO: TODO | DONE
- #+TODO: REPORT BUG KNOWNCAUSE | FIXED
- #+TODO: | CANCELED
-
-To make sure you are using the correct keyword, type ‘#+’ into the
-buffer and then use ‘M-<TAB>’ completion.
-
- Remember that the keywords after the vertical bar (or the last
-keyword if no bar is there) must always mean that the item is DONE
-(although you may use a different word). After changing one of these
-lines, use ‘C-c C-c’ with the cursor still in the line to make the
-changes known to Org mode(1).
-
- ---------- Footnotes ----------
-
- (1) Org mode parses these lines only when Org mode is activated after
-visiting a file. ‘C-c C-c’ with the cursor in a line starting with ‘#+’
-is simply restarting Org mode for the current buffer.
-
-
-File: org, Node: Faces for TODO keywords, Next: TODO dependencies, Prev: Per-file keywords, Up: TODO extensions
-
-5.2.6 Faces for TODO keywords
------------------------------
-
-Org mode highlights TODO keywords with special faces: ‘org-todo’ for
-keywords indicating that an item still has to be acted upon, and
-‘org-done’ for keywords indicating that an item is finished. If you are
-using more than 2 different states, you might want to use special faces
-for some of them. This can be done using the option
-‘org-todo-keyword-faces’. For example:
-
- (setq org-todo-keyword-faces
- '(("TODO" . org-warning) ("STARTED" . "yellow")
- ("CANCELED" . (:foreground "blue" :weight bold))))
-
- While using a list with face properties as shown for CANCELED
-_should_ work, this does not always seem to be the case. If necessary,
-define a special face and use that. A string is interpreted as a color.
-The option ‘org-faces-easy-properties’ determines if that color is
-interpreted as a foreground or a background color.
-
-
-File: org, Node: TODO dependencies, Prev: Faces for TODO keywords, Up: TODO extensions
-
-5.2.7 TODO dependencies
------------------------
-
-The structure of Org files (hierarchy and lists) makes it easy to define
-TODO dependencies. Usually, a parent TODO task should not be marked
-DONE until all subtasks (defined as children tasks) are marked as DONE.
-And sometimes there is a logical sequence to a number of (sub)tasks, so
-that one task cannot be acted upon before all siblings above it are
-done. If you customize the option ‘org-enforce-todo-dependencies’, Org
-will block entries from changing state to DONE while they have children
-that are not DONE. Furthermore, if an entry has a property ‘ORDERED’,
-each of its children will be blocked until all earlier siblings are
-marked DONE. Here is an example:
-
- * TODO Blocked until (two) is done
- ** DONE one
- ** TODO two
-
- * Parent
- :PROPERTIES:
- :ORDERED: t
- :END:
- ** TODO a
- ** TODO b, needs to wait for (a)
- ** TODO c, needs to wait for (a) and (b)
-
- You can ensure an entry is never blocked by using the ‘NOBLOCKING’
-property:
-
- * This entry is never blocked
- :PROPERTIES:
- :NOBLOCKING: t
- :END:
-
-‘C-c C-x o (org-toggle-ordered-property)’
- Toggle the ‘ORDERED’ property of the current entry. A property is
- used for this behavior because this should be local to the current
- entry, not inherited like a tag. However, if you would like to
- track the value of this property with a tag for better visibility,
- customize the option ‘org-track-ordered-property-with-tag’.
-‘C-u C-u C-u C-c C-t’
- Change TODO state, circumventing any state blocking.
-
- If you set the option ‘org-agenda-dim-blocked-tasks’, TODO entries
-that cannot be closed because of such dependencies will be shown in a
-dimmed font or even made invisible in agenda views (*note Agenda
-views::).
-
- You can also block changes of TODO states by looking at checkboxes
-(*note Checkboxes::). If you set the option
-‘org-enforce-todo-checkbox-dependencies’, an entry that has unchecked
-checkboxes will be blocked from switching to DONE.
-
- If you need more complex dependency structures, for example
-dependencies between entries in different trees or files, check out the
-contributed module ‘org-depend.el’.
-
-
-File: org, Node: Progress logging, Next: Priorities, Prev: TODO extensions, Up: TODO items
-
-5.3 Progress logging
-====================
-
-Org mode can automatically record a timestamp and possibly a note when
-you mark a TODO item as DONE, or even each time you change the state of
-a TODO item. This system is highly configurable; settings can be on a
-per-keyword basis and can be localized to a file or even a subtree. For
-information on how to clock working time for a task, see *note Clocking
-work time::.
-
-* Menu:
-
-* Closing items:: When was this entry marked DONE?
-* Tracking TODO state changes:: When did the status change?
-* Tracking your habits:: How consistent have you been?
-
-
-File: org, Node: Closing items, Next: Tracking TODO state changes, Up: Progress logging
-
-5.3.1 Closing items
--------------------
-
-The most basic logging is to keep track of _when_ a certain TODO item
-was finished. This is achieved with(1)
-
- (setq org-log-done 'time)
-
-Then each time you turn an entry from a TODO (not-done) state into any
-of the DONE states, a line ‘CLOSED: [timestamp]’ will be inserted just
-after the headline. If you turn the entry back into a TODO item through
-further state cycling, that line will be removed again. If you turn the
-entry back to a non-TODO state (by pressing ‘C-c C-t <SPC>’ for
-example), that line will also be removed, unless you set
-‘org-closed-keep-when-no-todo’ to non-‘nil’. If you want to record a
-note along with the timestamp, use(2)
-
- (setq org-log-done 'note)
-
-You will then be prompted for a note, and that note will be stored below
-the entry with a ‘Closing Note’ heading.
-
- ---------- Footnotes ----------
-
- (1) The corresponding in-buffer setting is: ‘#+STARTUP: logdone’
-
- (2) The corresponding in-buffer setting is: ‘#+STARTUP: lognotedone’.
-
-
-File: org, Node: Tracking TODO state changes, Next: Tracking your habits, Prev: Closing items, Up: Progress logging
-
-5.3.2 Tracking TODO state changes
----------------------------------
-
-When TODO keywords are used as workflow states (*note Workflow
-states::), you might want to keep track of when a state change occurred
-and maybe take a note about this change. You can either record just a
-timestamp, or a time-stamped note for a change. These records will be
-inserted after the headline as an itemized list, newest first(1). When
-taking a lot of notes, you might want to get the notes out of the way
-into a drawer (*note Drawers::). Customize ‘org-log-into-drawer’ to get
-this behavior—the recommended drawer for this is called ‘LOGBOOK’(2).
-You can also overrule the setting of this variable for a subtree by
-setting a ‘LOG_INTO_DRAWER’ property.
-
- Since it is normally too much to record a note for every state, Org
-mode expects configuration on a per-keyword basis for this. This is
-achieved by adding special markers ‘!’ (for a timestamp) or ‘@’ (for a
-note with timestamp) in parentheses after each keyword. For example,
-with the setting
-
- (setq org-todo-keywords
- '((sequence "TODO(t)" "WAIT(w@/!)" "|" "DONE(d!)" "CANCELED(c@)")))
-
- To record a timestamp without a note for TODO keywords configured
-with ‘@’, just type ‘C-c C-c’ to enter a blank note when prompted.
-
-You not only define global TODO keywords and fast access keys, but also
-request that a time is recorded when the entry is set to DONE(3), and
-that a note is recorded when switching to WAIT or CANCELED. The setting
-for WAIT is even more special: the ‘!’ after the slash means that in
-addition to the note taken when entering the state, a timestamp should
-be recorded when leaving the WAIT state, if and only if the target state
-does not configure logging for entering it. So it has no effect when
-switching from WAIT to DONE, because DONE is configured to record a
-timestamp only. But when switching from WAIT back to TODO, the ‘/!’ in
-the WAIT setting now triggers a timestamp even though TODO has no
-logging configured.
-
- You can use the exact same syntax for setting logging preferences
-local to a buffer:
- #+TODO: TODO(t) WAIT(w@/!) | DONE(d!) CANCELED(c@)
-
- In order to define logging settings that are local to a subtree or a
-single item, define a ‘LOGGING’ property in this entry. Any non-empty
-‘LOGGING’ property resets all logging settings to ‘nil’. You may then
-turn on logging for this specific tree using ‘#+STARTUP’ keywords like
-‘lognotedone’ or ‘logrepeat’, as well as adding state specific settings
-like ‘TODO(!)’. For example
-
- * TODO Log each state with only a time
- :PROPERTIES:
- :LOGGING: TODO(!) WAIT(!) DONE(!) CANCELED(!)
- :END:
- * TODO Only log when switching to WAIT, and when repeating
- :PROPERTIES:
- :LOGGING: WAIT(@) logrepeat
- :END:
- * TODO No logging at all
- :PROPERTIES:
- :LOGGING: nil
- :END:
-
- ---------- Footnotes ----------
-
- (1) See the option ‘org-log-states-order-reversed’
-
- (2) Note that the ‘LOGBOOK’ drawer is unfolded when pressing ‘<SPC>’
-in the agenda to show an entry—use ‘C-u <SPC>’ to keep it folded here
-
- (3) It is possible that Org mode will record two timestamps when you
-are using both ‘org-log-done’ and state change logging. However, it
-will never prompt for two notes—if you have configured both, the state
-change recording note will take precedence and cancel the ‘Closing
-Note’.
-
-
-File: org, Node: Tracking your habits, Prev: Tracking TODO state changes, Up: Progress logging
-
-5.3.3 Tracking your habits
---------------------------
-
-Org has the ability to track the consistency of a special category of
-TODOs, called “habits”. A habit has the following properties:
-
- 1. You have enabled the ‘habits’ module by customizing ‘org-modules’.
- 2. The habit is a TODO item, with a TODO keyword representing an open
- state.
- 3. The property ‘STYLE’ is set to the value ‘habit’.
- 4. The TODO has a scheduled date, usually with a ‘.+’ style repeat
- interval. A ‘++’ style may be appropriate for habits with time
- constraints, e.g., must be done on weekends, or a ‘+’ style for an
- unusual habit that can have a backlog, e.g., weekly reports.
- 5. The TODO may also have minimum and maximum ranges specified by
- using the syntax ‘.+2d/3d’, which says that you want to do the task
- at least every three days, but at most every two days.
- 6. You must also have state logging for the ‘DONE’ state enabled
- (*note Tracking TODO state changes::), in order for historical data
- to be represented in the consistency graph. If it is not enabled
- it is not an error, but the consistency graphs will be largely
- meaningless.
-
- To give you an idea of what the above rules look like in action,
-here’s an actual habit with some history:
-
- ** TODO Shave
- SCHEDULED: <2009-10-17 Sat .+2d/4d>
- :PROPERTIES:
- :STYLE: habit
- :LAST_REPEAT: [2009-10-19 Mon 00:36]
- :END:
- - State "DONE" from "TODO" [2009-10-15 Thu]
- - State "DONE" from "TODO" [2009-10-12 Mon]
- - State "DONE" from "TODO" [2009-10-10 Sat]
- - State "DONE" from "TODO" [2009-10-04 Sun]
- - State "DONE" from "TODO" [2009-10-02 Fri]
- - State "DONE" from "TODO" [2009-09-29 Tue]
- - State "DONE" from "TODO" [2009-09-25 Fri]
- - State "DONE" from "TODO" [2009-09-19 Sat]
- - State "DONE" from "TODO" [2009-09-16 Wed]
- - State "DONE" from "TODO" [2009-09-12 Sat]
-
- What this habit says is: I want to shave at most every 2 days (given
-by the ‘SCHEDULED’ date and repeat interval) and at least every 4 days.
-If today is the 15th, then the habit first appears in the agenda on Oct
-17, after the minimum of 2 days has elapsed, and will appear overdue on
-Oct 19, after four days have elapsed.
-
- What’s really useful about habits is that they are displayed along
-with a consistency graph, to show how consistent you’ve been at getting
-that task done in the past. This graph shows every day that the task
-was done over the past three weeks, with colors for each day. The
-colors used are:
-
-‘Blue’
- If the task wasn’t to be done yet on that day.
-‘Green’
- If the task could have been done on that day.
-‘Yellow’
- If the task was going to be overdue the next day.
-‘Red’
- If the task was overdue on that day.
-
- In addition to coloring each day, the day is also marked with an
-asterisk if the task was actually done that day, and an exclamation mark
-to show where the current day falls in the graph.
-
- There are several configuration variables that can be used to change
-the way habits are displayed in the agenda.
-
-‘org-habit-graph-column’
- The buffer column at which the consistency graph should be drawn.
- This will overwrite any text in that column, so it is a good idea
- to keep your habits’ titles brief and to the point.
-‘org-habit-preceding-days’
- The amount of history, in days before today, to appear in
- consistency graphs.
-‘org-habit-following-days’
- The number of days after today that will appear in consistency
- graphs.
-‘org-habit-show-habits-only-for-today’
- If non-‘nil’, only show habits in today’s agenda view. This is set
- to true by default.
-
- Lastly, pressing ‘K’ in the agenda buffer will cause habits to
-temporarily be disabled and they won’t appear at all. Press ‘K’ again
-to bring them back. They are also subject to tag filtering, if you have
-habits which should only be done in certain contexts, for example.
-
-
-File: org, Node: Priorities, Next: Breaking down tasks, Prev: Progress logging, Up: TODO items
-
-5.4 Priorities
-==============
-
-If you use Org mode extensively, you may end up with enough TODO items
-that it starts to make sense to prioritize them. Prioritizing can be
-done by placing a _priority cookie_ into the headline of a TODO item,
-like this
-
- *** TODO [#A] Write letter to Sam Fortune
-
-By default, Org mode supports three priorities: ‘A’, ‘B’, and ‘C’. ‘A’
-is the highest priority. An entry without a cookie is treated just like
-priority ‘B’. Priorities make a difference only for sorting in the
-agenda (*note Weekly/daily agenda::); outside the agenda, they have no
-inherent meaning to Org mode. The cookies can be highlighted with
-special faces by customizing ‘org-priority-faces’.
-
- Priorities can be attached to any outline node; they do not need to
-be TODO items.
-
-‘C-c ,’
- Set the priority of the current headline (‘org-priority’). The
- command prompts for a priority character ‘A’, ‘B’ or ‘C’. When you
- press <SPC> instead, the priority cookie is removed from the
- headline. The priorities can also be changed “remotely” from the
- agenda buffer with the ‘,’ command (*note Agenda commands::).
-‘S-<UP> (org-priority-up)’
-‘S-<DOWN> (org-priority-down)’
- Increase/decrease priority of current headline(1). Note that these
- keys are also used to modify timestamps (*note Creating
- timestamps::). See also *note Conflicts::, for a discussion of the
- interaction with ‘shift-selection-mode’.
-
- You can change the range of allowed priorities by setting the options
-‘org-highest-priority’, ‘org-lowest-priority’, and
-‘org-default-priority’. For an individual buffer, you may set these
-values (highest, lowest, default) like this (please make sure that the
-highest priority is earlier in the alphabet than the lowest priority):
-
- #+PRIORITIES: A C B
-
- ---------- Footnotes ----------
-
- (1) See also the option ‘org-priority-start-cycle-with-default’.
-
-
-File: org, Node: Breaking down tasks, Next: Checkboxes, Prev: Priorities, Up: TODO items
-
-5.5 Breaking tasks down into subtasks
-=====================================
-
-It is often advisable to break down large tasks into smaller, manageable
-subtasks. You can do this by creating an outline tree below a TODO
-item, with detailed subtasks on the tree(1). To keep the overview over
-the fraction of subtasks that are already completed, insert either ‘[/]’
-or ‘[%]’ anywhere in the headline. These cookies will be updated each
-time the TODO status of a child changes, or when pressing ‘C-c C-c’ on
-the cookie. For example:
-
- * Organize Party [33%]
- ** TODO Call people [1/2]
- *** TODO Peter
- *** DONE Sarah
- ** TODO Buy food
- ** DONE Talk to neighbor
-
- If a heading has both checkboxes and TODO children below it, the
-meaning of the statistics cookie become ambiguous. Set the property
-‘COOKIE_DATA’ to either ‘checkbox’ or ‘todo’ to resolve this issue.
-
- If you would like to have the statistics cookie count any TODO
-entries in the subtree (not just direct children), configure
-‘org-hierarchical-todo-statistics’. To do this for a single subtree,
-include the word ‘recursive’ into the value of the ‘COOKIE_DATA’
-property.
-
- * Parent capturing statistics [2/20]
- :PROPERTIES:
- :COOKIE_DATA: todo recursive
- :END:
-
- If you would like a TODO entry to automatically change to DONE when
-all children are done, you can use the following setup:
-
- (defun org-summary-todo (n-done n-not-done)
- "Switch entry to DONE when all subentries are done, to TODO otherwise."
- (let (org-log-done org-log-states) ; turn off logging
- (org-todo (if (= n-not-done 0) "DONE" "TODO"))))
-
- (add-hook 'org-after-todo-statistics-hook 'org-summary-todo)
-
- Another possibility is the use of checkboxes to identify (a hierarchy
-of) a large number of subtasks (*note Checkboxes::).
-
- ---------- Footnotes ----------
-
- (1) To keep subtasks out of the global TODO list, see the
-‘org-agenda-todo-list-sublevels’.
-
-
-File: org, Node: Checkboxes, Prev: Breaking down tasks, Up: TODO items
-
-5.6 Checkboxes
-==============
-
-Every item in a plain list(1) (*note Plain lists::) can be made into a
-checkbox by starting it with the string ‘[ ]’. This feature is similar
-to TODO items (*note TODO items::), but is more lightweight. Checkboxes
-are not included in the global TODO list, so they are often great to
-split a task into a number of simple steps. Or you can use them in a
-shopping list. To toggle a checkbox, use ‘C-c C-c’, or use the mouse
-(thanks to Piotr Zielinski’s ‘org-mouse.el’).
-
- Here is an example of a checkbox list.
-
- * TODO Organize party [2/4]
- - [-] call people [1/3]
- - [ ] Peter
- - [X] Sarah
- - [ ] Sam
- - [X] order food
- - [ ] think about what music to play
- - [X] talk to the neighbors
-
- Checkboxes work hierarchically, so if a checkbox item has children
-that are checkboxes, toggling one of the children checkboxes will make
-the parent checkbox reflect if none, some, or all of the children are
-checked.
-
- The ‘[2/4]’ and ‘[1/3]’ in the first and second line are cookies
-indicating how many checkboxes present in this entry have been checked
-off, and the total number of checkboxes present. This can give you an
-idea on how many checkboxes remain, even without opening a folded entry.
-The cookies can be placed into a headline or into (the first line of) a
-plain list item. Each cookie covers checkboxes of direct children
-structurally below the headline/item on which the cookie appears(2).
-You have to insert the cookie yourself by typing either ‘[/]’ or ‘[%]’.
-With ‘[/]’ you get an ‘n out of m’ result, as in the examples above.
-With ‘[%]’ you get information about the percentage of checkboxes
-checked (in the above example, this would be ‘[50%]’ and ‘[33%]’,
-respectively). In a headline, a cookie can count either checkboxes
-below the heading or TODO states of children, and it will display
-whatever was changed last. Set the property ‘COOKIE_DATA’ to either
-‘checkbox’ or ‘todo’ to resolve this issue.
-
- If the current outline node has an ‘ORDERED’ property, checkboxes
-must be checked off in sequence, and an error will be thrown if you try
-to check off a box while there are unchecked boxes above it.
-
-The following commands work with checkboxes:
-
-‘C-c C-c (org-toggle-checkbox)’
- Toggle checkbox status or (with prefix arg) checkbox presence at
- point. With a single prefix argument, add an empty checkbox or
- remove the current one(3). With a double prefix argument, set it
- to ‘[-]’, which is considered to be an intermediate state.
-‘C-c C-x C-b (org-toggle-checkbox)’
- Toggle checkbox status or (with prefix arg) checkbox presence at
- point. With double prefix argument, set it to ‘[-]’, which is
- considered to be an intermediate state.
- − If there is an active region, toggle the first checkbox in the
- region and set all remaining boxes to the same status as the
- first. With a prefix arg, add or remove the checkbox for all
- items in the region.
- − If the cursor is in a headline, toggle the state of the first
- checkbox in the region between this headline and the next—so
- _not_ the entire subtree—and propagate this new state to all
- other checkboxes in the same area.
- − If there is no active region, just toggle the checkbox at
- point.
-‘M-S-<RET> (org-insert-todo-heading)’
- Insert a new item with a checkbox. This works only if the cursor
- is already in a plain list item (*note Plain lists::).
-‘C-c C-x o (org-toggle-ordered-property)’
- Toggle the ‘ORDERED’ property of the entry, to toggle if checkboxes
- must be checked off in sequence. A property is used for this
- behavior because this should be local to the current entry, not
- inherited like a tag. However, if you would like to track the
- value of this property with a tag for better visibility, customize
- ‘org-track-ordered-property-with-tag’.
-‘C-c # (org-update-statistics-cookies)’
- Update the statistics cookie in the current outline entry. When
- called with a ‘C-u’ prefix, update the entire file. Checkbox
- statistic cookies are updated automatically if you toggle
- checkboxes with ‘C-c C-c’ and make new ones with ‘M-S-<RET>’. TODO
- statistics cookies update when changing TODO states. If you delete
- boxes/entries or add/change them by hand, use this command to get
- things back into sync.
-
- ---------- Footnotes ----------
-
- (1) With the exception of description lists. But you can allow it by
-modifying ‘org-list-automatic-rules’ accordingly.
-
- (2) Set the option ‘org-checkbox-hierarchical-statistics’ if you want
-such cookies to count all checkboxes below the cookie, not just those
-belonging to direct children.
-
- (3) ‘C-u C-c C-c’ before the _first_ bullet in a list with no
-checkbox will add checkboxes to the rest of the list.
-
-
-File: org, Node: Tags, Next: Properties and columns, Prev: TODO items, Up: Top
-
-6 Tags
-******
-
-An excellent way to implement labels and contexts for cross-correlating
-information is to assign tags to headlines. Org mode has extensive
-support for tags.
-
- Every headline can contain a list of tags; they occur at the end of
-the headline. Tags are normal words containing letters, numbers, ‘_’,
-and ‘@’. Tags must be preceded and followed by a single colon, e.g.,
-‘:work:’. Several tags can be specified, as in ‘:work:urgent:’. Tags
-will by default be in bold face with the same color as the headline.
-You may specify special faces for specific tags using the option
-‘org-tag-faces’, in much the same way as you can for TODO keywords
-(*note Faces for TODO keywords::).
-
-* Menu:
-
-* Tag inheritance:: Tags use the tree structure of the outline
-* Setting tags:: How to assign tags to a headline
-* Tag hierarchy:: Create a hierarchy of tags
-* Tag searches:: Searching for combinations of tags
-
-
-File: org, Node: Tag inheritance, Next: Setting tags, Up: Tags
-
-6.1 Tag inheritance
-===================
-
-Tags make use of the hierarchical structure of outline trees. If a
-heading has a certain tag, all subheadings will inherit the tag as well.
-For example, in the list
-
- * Meeting with the French group :work:
- ** Summary by Frank :boss:notes:
- *** TODO Prepare slides for him :action:
-
-the final heading will have the tags ‘:work:’, ‘:boss:’, ‘:notes:’, and
-‘:action:’ even though the final heading is not explicitly marked with
-all those tags. You can also set tags that all entries in a file should
-inherit just as if these tags were defined in a hypothetical level zero
-that surrounds the entire file. Use a line like this(1):
-
- #+FILETAGS: :Peter:Boss:Secret:
-
-To limit tag inheritance to specific tags, use
-‘org-tags-exclude-from-inheritance’. To turn it off entirely, use
-‘org-use-tag-inheritance’.
-
- When a headline matches during a tags search while tag inheritance is
-turned on, all the sublevels in the same tree will (for a simple match
-form) match as well(2). The list of matches may then become very long.
-If you only want to see the first tags match in a subtree, configure
-‘org-tags-match-list-sublevels’ (not recommended).
-
- Tag inheritance is relevant when the agenda search tries to match a
-tag, either in the ‘tags’ or ‘tags-todo’ agenda types. In other agenda
-types, ‘org-use-tag-inheritance’ has no effect. Still, you may want to
-have your tags correctly set in the agenda, so that tag filtering works
-fine, with inherited tags. Set ‘org-agenda-use-tag-inheritance’ to
-control this: the default value includes all agenda types, but setting
-this to ‘nil’ can really speed up agenda generation.
-
- ---------- Footnotes ----------
-
- (1) As with all these in-buffer settings, pressing ‘C-c C-c’
-activates any changes in the line.
-
- (2) This is only true if the search does not involve more complex
-tests including properties (*note Property searches::).
-
-
-File: org, Node: Setting tags, Next: Tag hierarchy, Prev: Tag inheritance, Up: Tags
-
-6.2 Setting tags
-================
-
-Tags can simply be typed into the buffer at the end of a headline.
-After a colon, ‘M-<TAB>’ offers completion on tags. There is also a
-special command for inserting tags:
-
-‘C-c C-q (org-set-tags-command)’
- Enter new tags for the current headline. Org mode will either
- offer completion or a special single-key interface for setting
- tags, see below. After pressing <RET>, the tags will be inserted
- and aligned to ‘org-tags-column’. When called with a ‘C-u’ prefix,
- all tags in the current buffer will be aligned to that column, just
- to make things look nice. TAGS are automatically realigned after
- promotion, demotion, and TODO state changes (*note TODO basics::).
-
-‘C-c C-c (org-set-tags-command)’
- When the cursor is in a headline, this does the same as ‘C-c C-q’.
-
- Org supports tag insertion based on a _list of tags_. By default
-this list is constructed dynamically, containing all tags currently used
-in the buffer. You may also globally specify a hard list of tags with
-the variable ‘org-tag-alist’. Finally you can set the default tags for
-a given file with lines like
-
- #+TAGS: @work @home @tennisclub
- #+TAGS: laptop car pc sailboat
-
- If you have globally defined your preferred set of tags using the
-variable ‘org-tag-alist’, but would like to use a dynamic tag list in a
-specific file, add an empty TAGS option line to that file:
-
- #+TAGS:
-
- If you have a preferred set of tags that you would like to use in
-every file, in addition to those defined on a per-file basis by TAGS
-option lines, then you may specify a list of tags with the variable
-‘org-tag-persistent-alist’. You may turn this off on a per-file basis
-by adding a ‘#+STARTUP’ option line to that file:
-
- #+STARTUP: noptag
-
- By default Org mode uses the standard minibuffer completion
-facilities for entering tags. However, it also implements another,
-quicker, tag selection method called _fast tag selection_. This allows
-you to select and deselect tags with just a single key press. For this
-to work well you should assign unique, case-sensitive, letters to most
-of your commonly used tags. You can do this globally by configuring the
-variable ‘org-tag-alist’ in your Emacs init file. For example, you may
-find the need to tag many items in different files with ‘:@home:’. In
-this case you can set something like:
-
- (setq org-tag-alist '(("@work" . ?w) ("@home" . ?h) ("laptop" . ?l)))
-
-If the tag is only relevant to the file you are working on, then you can
-instead set the TAGS option line as:
-
- #+TAGS: @work(w) @home(h) @tennisclub(t) laptop(l) pc(p)
-
-The tags interface will show the available tags in a splash window. If
-you want to start a new line after a specific tag, insert ‘\n’ into the
-tag list
-
- #+TAGS: @work(w) @home(h) @tennisclub(t) \n laptop(l) pc(p)
-
-or write them in two lines:
-
- #+TAGS: @work(w) @home(h) @tennisclub(t)
- #+TAGS: laptop(l) pc(p)
-
-You can also group together tags that are mutually exclusive by using
-braces, as in:
-
- #+TAGS: { @work(w) @home(h) @tennisclub(t) } laptop(l) pc(p)
-
-you indicate that at most one of ‘@work’, ‘@home’, and ‘@tennisclub’
-should be selected. Multiple such groups are allowed.
-
-Don’t forget to press ‘C-c C-c’ with the cursor in one of these lines to
-activate any changes.
-
-To set these mutually exclusive groups in the variable ‘org-tag-alist’,
-you must use the dummy tags ‘:startgroup’ and ‘:endgroup’ instead of the
-braces. Similarly, you can use ‘:newline’ to indicate a line break.
-The previous example would be set globally by the following
-configuration:
-
- (setq org-tag-alist '((:startgroup . nil)
- ("@work" . ?w) ("@home" . ?h)
- ("@tennisclub" . ?t)
- (:endgroup . nil)
- ("laptop" . ?l) ("pc" . ?p)))
-
- If at least one tag has a selection key then pressing ‘C-c C-c’ will
-automatically present you with a special interface, listing inherited
-tags, the tags of the current headline, and a list of all valid tags
-with corresponding keys(1).
-
- Pressing keys assigned to tags will add or remove them from the list
-of tags in the current line. Selecting a tag in a group of mutually
-exclusive tags will turn off any other tags from that group.
-
- In this interface, you can also use the following special keys:
-
-‘<TAB>’
- Enter a tag in the minibuffer, even if the tag is not in the
- predefined list. You will be able to complete on all tags present
- in the buffer. You can also add several tags: just separate them
- with a comma.
-
-‘<SPC>’
- Clear all tags for this line.
-
-‘<RET>’
- Accept the modified set.
-
-‘C-g’
- Abort without installing changes.
-
-‘q’
- If ‘q’ is not assigned to a tag, it aborts like ‘C-g’.
-
-‘!’
- Turn off groups of mutually exclusive tags. Use this to (as an
- exception) assign several tags from such a group.
-
-‘C-c’
- Toggle auto-exit after the next change (see below). If you are
- using expert mode, the first ‘C-c’ will display the selection
- window.
-
-This method lets you assign tags to a headline with very few keys. With
-the above setup, you could clear the current tags and set ‘@home’,
-‘laptop’ and ‘pc’ tags with just the following keys: ‘C-c C-c <SPC> h l
-p <RET>’. Switching from ‘@home’ to ‘@work’ would be done with ‘C-c C-c
-w <RET>’ or alternatively with ‘C-c C-c C-c w’. Adding the
-non-predefined tag ‘Sarah’ could be done with ‘C-c C-c <TAB> S a r a h
-<RET> <RET>’.
-
- If you find that most of the time you need only a single key press to
-modify your list of tags, set ‘org-fast-tag-selection-single-key’. Then
-you no longer have to press <RET> to exit fast tag selection—it will
-immediately exit after the first change. If you then occasionally need
-more keys, press ‘C-c’ to turn off auto-exit for the current tag
-selection process (in effect: start selection with ‘C-c C-c C-c’ instead
-of ‘C-c C-c’). If you set the variable to the value ‘expert’, the
-special window is not even shown for single-key tag selection, it comes
-up only when you press an extra ‘C-c’.
-
- ---------- Footnotes ----------
-
- (1) Keys will automatically be assigned to tags which have no
-configured keys.
-
-
-File: org, Node: Tag hierarchy, Next: Tag searches, Prev: Setting tags, Up: Tags
-
-6.3 Tag hierarchy
-=================
-
-Tags can be defined in hierarchies. A tag can be defined as a _group
-tag_ for a set of other tags. The group tag can be seen as the “broader
-term” for its set of tags. Defining multiple _group tags_ and nesting
-them creates a tag hierarchy.
-
- One use-case is to create a taxonomy of terms (tags) that can be used
-to classify nodes in a document or set of documents.
-
- When you search for a group tag, it will return matches for all
-members in the group and its subgroups. In an agenda view, filtering by
-a group tag will display or hide headlines tagged with at least one of
-the members of the group or any of its subgroups. This makes tag
-searches and filters even more flexible.
-
- You can set group tags by using brackets and inserting a colon
-between the group tag and its related tags—beware that all whitespaces
-are mandatory so that Org can parse this line correctly:
-
- #+TAGS: [ GTD : Control Persp ]
-
- In this example, ‘GTD’ is the _group tag_ and it is related to two
-other tags: ‘Control’, ‘Persp’. Defining ‘Control’ and ‘Persp’ as group
-tags creates a hierarchy of tags:
-
- #+TAGS: [ Control : Context Task ]
- #+TAGS: [ Persp : Vision Goal AOF Project ]
-
- That can conceptually be seen as a hierarchy of tags:
-
- - GTD
- - Persp
- - Vision
- - Goal
- - AOF
- - Project
- - Control
- - Context
- - Task
-
- You can use the ‘:startgrouptag’, ‘:grouptags’ and ‘:endgrouptag’
-keyword directly when setting ‘org-tag-alist’ directly:
-
- (setq org-tag-alist '((:startgrouptag)
- ("GTD")
- (:grouptags)
- ("Control")
- ("Persp")
- (:endgrouptag)
- (:startgrouptag)
- ("Control")
- (:grouptags)
- ("Context")
- ("Task")
- (:endgrouptag)))
-
- The tags in a group can be mutually exclusive if using the same group
-syntax as is used for grouping mutually exclusive tags together; using
-curly brackets.
-
- #+TAGS: { Context : @Home @Work @Call }
-
- When setting ‘org-tag-alist’ you can use ‘:startgroup’ & ‘:endgroup’
-instead of ‘:startgrouptag’ & ‘:endgrouptag’ to make the tags mutually
-exclusive.
-
- Furthermore, the members of a _group tag_ can also be regular
-expressions, creating the possibility of a more dynamic and rule-based
-tag structure. The regular expressions in the group must be specified
-within { }. Here is an expanded example:
-
- #+TAGS: [ Vision : {V@.+} ]
- #+TAGS: [ Goal : {G@.+} ]
- #+TAGS: [ AOF : {AOF@.+} ]
- #+TAGS: [ Project : {P@.+} ]
-
- Searching for the tag ‘Project’ will now list all tags also including
-regular expression matches for ‘P@.+’, and similarly for tag searches on
-‘Vision’, ‘Goal’ and ‘AOF’. For example, this would work well for a
-project tagged with a common project-identifier, e.g. ‘P@2014_OrgTags’.
-
- If you want to ignore group tags temporarily, toggle group tags
-support with ‘org-toggle-tags-groups’, bound to ‘C-c C-x q’. If you
-want to disable tag groups completely, set ‘org-group-tags’ to ‘nil’.
-
-
-File: org, Node: Tag searches, Prev: Tag hierarchy, Up: Tags
-
-6.4 Tag searches
-================
-
-Once a system of tags has been set up, it can be used to collect related
-information into special lists.
-
-‘C-c / m or C-c \ (org-match-sparse-tree)’
- Create a sparse tree with all headlines matching a
- tags/property/TODO search. With a ‘C-u’ prefix argument, ignore
- headlines that are not a TODO line. *Note Matching tags and
- properties::.
-‘C-c a m (org-tags-view)’
- Create a global list of tag matches from all agenda files. *Note
- Matching tags and properties::.
-‘C-c a M (org-tags-view)’
- Create a global list of tag matches from all agenda files, but
- check only TODO items and force checking subitems (see the option
- ‘org-tags-match-list-sublevels’).
-
- These commands all prompt for a match string which allows basic
-Boolean logic like ‘+boss+urgent-project1’, to find entries with tags
-‘boss’ and ‘urgent’, but not ‘project1’, or ‘Kathy|Sally’ to find
-entries tagged as ‘Kathy’ or ‘Sally’. The full syntax of the search
-string is rich and allows also matching against TODO keywords, entry
-levels and properties. For a complete description with many examples,
-see *note Matching tags and properties::.
-
-
-File: org, Node: Properties and columns, Next: Dates and times, Prev: Tags, Up: Top
-
-7 Properties and columns
-************************
-
-A property is a key-value pair associated with an entry. Properties can
-be set so they are associated with a single entry, with every entry in a
-tree, or with every entry in an Org mode file.
-
- There are two main applications for properties in Org mode. First,
-properties are like tags, but with a value. Imagine maintaining a file
-where you document bugs and plan releases for a piece of software.
-Instead of using tags like ‘:release_1:’, ‘:release_2:’, you can use a
-property, say ‘:Release:’, that in different subtrees has different
-values, such as ‘1.0’ or ‘2.0’. Second, you can use properties to
-implement (very basic) database capabilities in an Org buffer. Imagine
-keeping track of your music CDs, where properties could be things such
-as the album, artist, date of release, number of tracks, and so on.
-
- Properties can be conveniently edited and viewed in column view
-(*note Column view::).
-
-* Menu:
-
-* Property syntax:: How properties are spelled out
-* Special properties:: Access to other Org mode features
-* Property searches:: Matching property values
-* Property inheritance:: Passing values down the tree
-* Column view:: Tabular viewing and editing
-* Property API:: Properties for Lisp programmers
-
-
-File: org, Node: Property syntax, Next: Special properties, Up: Properties and columns
-
-7.1 Property syntax
-===================
-
-Properties are key-value pairs. When they are associated with a single
-entry or with a tree they need to be inserted into a special drawer
-(*note Drawers::) with the name ‘PROPERTIES’, which has to be located
-right below a headline, and its planning line (*note Deadlines and
-scheduling::) when applicable. Each property is specified on a single
-line, with the key (surrounded by colons) first, and the value after it.
-Keys are case-insensitive. Here is an example:
-
- * CD collection
- ** Classic
- *** Goldberg Variations
- :PROPERTIES:
- :Title: Goldberg Variations
- :Composer: J.S. Bach
- :Artist: Glen Gould
- :Publisher: Deutsche Grammophon
- :NDisks: 1
- :END:
-
- Depending on the value of ‘org-use-property-inheritance’, a property
-set this way will either be associated with a single entry, or the
-subtree defined by the entry, see *note Property inheritance::.
-
- You may define the allowed values for a particular property ‘:Xyz:’
-by setting a property ‘:Xyz_ALL:’. This special property is
-_inherited_, so if you set it in a level 1 entry, it will apply to the
-entire tree. When allowed values are defined, setting the corresponding
-property becomes easier and is less prone to typing errors. For the
-example with the CD collection, we can predefine publishers and the
-number of disks in a box like this:
-
- * CD collection
- :PROPERTIES:
- :NDisks_ALL: 1 2 3 4
- :Publisher_ALL: "Deutsche Grammophon" Philips EMI
- :END:
-
- If you want to set properties that can be inherited by any entry in a
-file, use a line like
- #+PROPERTY: NDisks_ALL 1 2 3 4
-
- Contrary to properties set from a special drawer, you have to refresh
-the buffer with ‘C-c C-c’ to activate this change.
-
- If you want to add to the value of an existing property, append a ‘+’
-to the property name. The following results in the property ‘var’
-having the value “foo=1 bar=2”.
- #+PROPERTY: var foo=1
- #+PROPERTY: var+ bar=2
-
- It is also possible to add to the values of inherited properties.
-The following results in the ‘genres’ property having the value “Classic
-Baroque” under the ‘Goldberg Variations’ subtree.
- * CD collection
- ** Classic
- :PROPERTIES:
- :GENRES: Classic
- :END:
- *** Goldberg Variations
- :PROPERTIES:
- :Title: Goldberg Variations
- :Composer: J.S. Bach
- :Artist: Glen Gould
- :Publisher: Deutsche Grammophon
- :NDisks: 1
- :GENRES+: Baroque
- :END:
- Note that a property can only have one entry per Drawer.
-
- Property values set with the global variable ‘org-global-properties’
-can be inherited by all entries in all Org files.
-
-The following commands help to work with properties:
-
-‘M-<TAB> (pcomplete)’
- After an initial colon in a line, complete property keys. All keys
- used in the current file will be offered as possible completions.
-‘C-c C-x p (org-set-property)’
- Set a property. This prompts for a property name and a value. If
- necessary, the property drawer is created as well.
-‘C-u M-x org-insert-drawer <RET>’
- Insert a property drawer into the current entry. The drawer will
- be inserted early in the entry, but after the lines with planning
- information like deadlines.
-‘C-c C-c (org-property-action)’
- With the cursor in a property drawer, this executes property
- commands.
-‘C-c C-c s (org-set-property)’
- Set a property in the current entry. Both the property and the
- value can be inserted using completion.
-‘S-<RIGHT> (org-property-next-allowed-value)’
-‘S-<LEFT> (org-property-previous-allowed-value)’
- Switch property at point to the next/previous allowed value.
-‘C-c C-c d (org-delete-property)’
- Remove a property from the current entry.
-‘C-c C-c D (org-delete-property-globally)’
- Globally remove a property, from all entries in the current file.
-‘C-c C-c c (org-compute-property-at-point)’
- Compute the property at point, using the operator and scope from
- the nearest column format definition.
-
-
-File: org, Node: Special properties, Next: Property searches, Prev: Property syntax, Up: Properties and columns
-
-7.2 Special properties
-======================
-
-Special properties provide an alternative access method to Org mode
-features, like the TODO state or the priority of an entry, discussed in
-the previous chapters. This interface exists so that you can include
-these states in a column view (*note Column view::), or to use them in
-queries. The following property names are special and should not be
-used as keys in the properties drawer:
-
- ALLTAGS All tags, including inherited ones.
- BLOCKED "t" if task is currently blocked by children or siblings.
- CLOCKSUM The sum of CLOCK intervals in the subtree. ‘org-clock-sum’
- must be run first to compute the values in the current buffer.
- CLOCKSUM_T The sum of CLOCK intervals in the subtree for today.
- ‘org-clock-sum-today’ must be run first to compute the
- values in the current buffer.
- CLOSED When was this entry closed?
- DEADLINE The deadline time string, without the angular brackets.
- FILE The filename the entry is located in.
- ITEM The headline of the entry.
- PRIORITY The priority of the entry, a string with a single letter.
- SCHEDULED The scheduling timestamp, without the angular brackets.
- TAGS The tags defined directly in the headline.
- TIMESTAMP The first keyword-less timestamp in the entry.
- TIMESTAMP_IA The first inactive timestamp in the entry.
- TODO The TODO keyword of the entry.
-
-
-File: org, Node: Property searches, Next: Property inheritance, Prev: Special properties, Up: Properties and columns
-
-7.3 Property searches
-=====================
-
-To create sparse trees and special lists with selection based on
-properties, the same commands are used as for tag searches (*note Tag
-searches::).
-
-‘C-c / m or C-c \ (org-match-sparse-tree)’
- Create a sparse tree with all matching entries. With a ‘C-u’
- prefix argument, ignore headlines that are not a TODO line.
-‘C-c a m (org-tags-view)’
- Create a global list of tag/property matches from all agenda files.
- *Note Matching tags and properties::.
-‘C-c a M (org-tags-view)’
- Create a global list of tag matches from all agenda files, but
- check only TODO items and force checking of subitems (see the
- option ‘org-tags-match-list-sublevels’).
-
- The syntax for the search string is described in *note Matching tags
-and properties::.
-
- There is also a special command for creating sparse trees based on a
-single property:
-
-‘C-c / p’
- Create a sparse tree based on the value of a property. This first
- prompts for the name of a property, and then for a value. A sparse
- tree is created with all entries that define this property with the
- given value. If you enclose the value in curly braces, it is
- interpreted as a regular expression and matched against the
- property values.
-
-
-File: org, Node: Property inheritance, Next: Column view, Prev: Property searches, Up: Properties and columns
-
-7.4 Property Inheritance
-========================
-
-The outline structure of Org mode documents lends itself to an
-inheritance model of properties: if the parent in a tree has a certain
-property, the children can inherit this property. Org mode does not
-turn this on by default, because it can slow down property searches
-significantly and is often not needed. However, if you find inheritance
-useful, you can turn it on by setting the variable
-‘org-use-property-inheritance’. It may be set to ‘t’ to make all
-properties inherited from the parent, to a list of properties that
-should be inherited, or to a regular expression that matches inherited
-properties. If a property has the value ‘nil’, this is interpreted as
-an explicit undefine of the property, so that inheritance search will
-stop at this value and return ‘nil’.
-
- Org mode has a few properties for which inheritance is hard-coded, at
-least for the special applications for which they are used:
-
-‘COLUMNS’
- The ‘:COLUMNS:’ property defines the format of column view (*note
- Column view::). It is inherited in the sense that the level where
- a ‘:COLUMNS:’ property is defined is used as the starting point for
- a column view table, independently of the location in the subtree
- from where columns view is turned on.
-‘CATEGORY’
- For agenda view, a category set through a ‘:CATEGORY:’ property
- applies to the entire subtree.
-‘ARCHIVE’
- For archiving, the ‘:ARCHIVE:’ property may define the archive
- location for the entire subtree (*note Moving subtrees::).
-‘LOGGING’
- The ‘LOGGING’ property may define logging settings for an entry or
- a subtree (*note Tracking TODO state changes::).
-
-
-File: org, Node: Column view, Next: Property API, Prev: Property inheritance, Up: Properties and columns
-
-7.5 Column view
-===============
-
-A great way to view and edit properties in an outline tree is _column
-view_. In column view, each outline node is turned into a table row.
-Columns in this table provide access to properties of the entries. Org
-mode implements columns by overlaying a tabular structure over the
-headline of each item. While the headlines have been turned into a
-table row, you can still change the visibility of the outline tree. For
-example, you get a compact table by switching to CONTENTS view (‘S-<TAB>
-S-<TAB>’, or simply ‘c’ while column view is active), but you can still
-open, read, and edit the entry below each headline. Or, you can switch
-to column view after executing a sparse tree command and in this way get
-a table only for the selected items. Column view also works in agenda
-buffers (*note Agenda views::) where queries have collected selected
-items, possibly from a number of files.
-
-* Menu:
-
-* Defining columns:: The COLUMNS format property
-* Using column view:: How to create and use column view
-* Capturing column view:: A dynamic block for column view
-
-
-File: org, Node: Defining columns, Next: Using column view, Up: Column view
-
-7.5.1 Defining columns
-----------------------
-
-Setting up a column view first requires defining the columns. This is
-done by defining a column format line.
-
-* Menu:
-
-* Scope of column definitions:: Where defined, where valid?
-* Column attributes:: Appearance and content of a column
-
-
-File: org, Node: Scope of column definitions, Next: Column attributes, Up: Defining columns
-
-7.5.1.1 Scope of column definitions
-...................................
-
-To define a column format for an entire file, use a line like
-
- #+COLUMNS: %25ITEM %TAGS %PRIORITY %TODO
-
- To specify a format that only applies to a specific tree, add a
-‘:COLUMNS:’ property to the top node of that tree, for example:
-
- ** Top node for columns view
- :PROPERTIES:
- :COLUMNS: %25ITEM %TAGS %PRIORITY %TODO
- :END:
-
- If a ‘:COLUMNS:’ property is present in an entry, it defines columns
-for the entry itself, and for the entire subtree below it. Since the
-column definition is part of the hierarchical structure of the document,
-you can define columns on level 1 that are general enough for all
-sublevels, and more specific columns further down, when you edit a
-deeper part of the tree.
-
-
-File: org, Node: Column attributes, Prev: Scope of column definitions, Up: Defining columns
-
-7.5.1.2 Column attributes
-.........................
-
-A column definition sets the attributes of a column. The general
-definition looks like this:
-
- %[WIDTH]PROPERTY[(TITLE)][{SUMMARY-TYPE}]
-
-Except for the percent sign and the property name, all items are
-optional. The individual parts have the following meaning:
-
- WIDTH An integer specifying the width of the column in characters.
- If omitted, the width will be determined automatically.
- PROPERTY The property that should be edited in this column.
- Special properties representing meta data are allowed here
- as well (*note Special properties::)
- TITLE The header text for the column. If omitted, the property
- name is used.
- {SUMMARY-TYPE} The summary type. If specified, the column values for
- parent nodes are computed from the children(1).
- Supported summary types are:
- {+} Sum numbers in this column.
- {+;%.1f} Like ‘+’, but format result with ‘%.1f’.
- {$} Currency, short for ‘+;%.2f’.
- {min} Smallest number in column.
- {max} Largest number.
- {mean} Arithmetic mean of numbers.
- {X} Checkbox status, ‘[X]’ if all children are ‘[X]’.
- {X/} Checkbox status, ‘[n/m]’.
- {X%} Checkbox status, ‘[n%]’.
- {:} Sum times, HH:MM, plain numbers are
- hours(2).
- {:min} Smallest time value in column.
- {:max} Largest time value.
- {:mean} Arithmetic mean of time values.
- {@min} Minimum age(3) (in
- days/hours/mins/seconds).
- {@max} Maximum age (in days/hours/mins/seconds).
- {@mean} Arithmetic mean of ages (in days/hours/mins/seconds).
- {est+} Add ‘low-high’ estimates.
-
- The ‘est+’ summary type requires further explanation. It is used for
-combining estimates, expressed as ‘low-high’ ranges or plain numbers.
-For example, instead of estimating a particular task will take 5 days,
-you might estimate it as 5–6 days if you’re fairly confident you know
-how much work is required, or 1–10 days if you don’t really know what
-needs to be done. Both ranges average at 5.5 days, but the first
-represents a more predictable delivery.
-
- When combining a set of such estimates, simply adding the lows and
-highs produces an unrealistically wide result. Instead, ‘est+’ adds the
-statistical mean and variance of the sub-tasks, generating a final
-estimate from the sum. For example, suppose you had ten tasks, each of
-which was estimated at 0.5 to 2 days of work. Straight addition
-produces an estimate of 5 to 20 days, representing what to expect if
-everything goes either extremely well or extremely poorly. In contrast,
-‘est+’ estimates the full job more realistically, at 10–15 days.
-
- Numbers are right-aligned when a format specifier with an explicit
-width like ‘%5d’ or ‘%5.1f’ is used.
-
- You can also define custom summary types by setting
-‘org-columns-summary-types’, which see.
-
- Here is an example for a complete columns definition, along with
-allowed values.
-
- :COLUMNS: %25ITEM %9Approved(Approved?){X} %Owner %11Status \(4)
- %10Time_Estimate{:} %CLOCKSUM %CLOCKSUM_T
- :Owner_ALL: Tammy Mark Karl Lisa Don
- :Status_ALL: "In progress" "Not started yet" "Finished" ""
- :Approved_ALL: "[ ]" "[X]"
-
-The first column, ‘%25ITEM’, means the first 25 characters of the item
-itself, i.e., of the headline. You probably always should start the
-column definition with the ‘ITEM’ specifier. The other specifiers
-create columns ‘Owner’ with a list of names as allowed values, for
-‘Status’ with four different possible values, and for a checkbox field
-‘Approved’. When no width is given after the ‘%’ character, the column
-will be exactly as wide as it needs to be in order to fully display all
-values. The ‘Approved’ column does have a modified title (‘Approved?’,
-with a question mark). Summaries will be created for the
-‘Time_Estimate’ column by adding time duration expressions like HH:MM,
-and for the ‘Approved’ column, by providing an ‘[X]’ status if all
-children have been checked. The ‘CLOCKSUM’ and ‘CLOCKSUM_T’ columns are
-special, they lists the sums of CLOCK intervals in the subtree, either
-for all clocks or just for today.
-
- ---------- Footnotes ----------
-
- (1) If more than one summary type apply to the property, the parent
-values are computed according to the first of them.
-
- (2) A time can also be a duration, using effort modifiers defined in
-‘org-effort-durations’, e.g., ‘3d 1h’. If any value in the column is as
-such, the summary will also be an effort duration.
-
- (3) An age is defined as a duration since a given time-stamp (*note
-Timestamps::). It can also be expressed as days, hours, minutes and
-seconds, identified by ‘d’, ‘h’, ‘m’ and ‘s’ suffixes, all mandatory,
-e.g., ‘0d 13h 0m 10s’.
-
- (4) Please note that the COLUMNS definition must be on a single
-line—it is wrapped here only because of formatting constraints.
-
-
-File: org, Node: Using column view, Next: Capturing column view, Prev: Defining columns, Up: Column view
-
-7.5.2 Using column view
------------------------
-
- Turning column view on and off
- ..............................
-
-‘C-c C-x C-c (org-columns)’
- Turn on column view. If the cursor is before the first headline in
- the file, or the function called with the universal prefix
- argument, column view is turned on for the entire file, using the
- ‘#+COLUMNS’ definition. If the cursor is somewhere inside the
- outline, this command searches the hierarchy, up from point, for a
- ‘:COLUMNS:’ property that defines a format. When one is found, the
- column view table is established for the tree starting at the entry
- that contains the ‘:COLUMNS:’ property. If no such property is
- found, the format is taken from the ‘#+COLUMNS’ line or from the
- variable ‘org-columns-default-format’, and column view is
- established for the current entry and its subtree.
-‘r (org-columns-redo)’
- Recreate the column view, to include recent changes made in the
- buffer.
-‘g (org-columns-redo)’
- Same as ‘r’.
-‘q (org-columns-quit)’
- Exit column view.
-
- Editing values
- ..............
-
-‘<LEFT> <RIGHT> <UP> <DOWN>’
- Move through the column view from field to field.
-‘S-<LEFT>/<RIGHT>’
- Switch to the next/previous allowed value of the field. For this,
- you have to have specified allowed values for a property.
-‘1..9,0’
- Directly select the Nth allowed value, ‘0’ selects the 10th value.
-‘n (org-columns-next-allowed-value)’
-‘p (org-columns-previous-allowed-value)’
- Same as ‘S-<LEFT>/<RIGHT>’
-‘e (org-columns-edit-value)’
- Edit the property at point. For the special properties, this will
- invoke the same interface that you normally use to change that
- property. For example, when editing a TAGS property, the tag
- completion or fast selection interface will pop up.
-‘C-c C-c (org-columns-set-tags-or-toggle)’
- When there is a checkbox at point, toggle it.
-‘v (org-columns-show-value)’
- View the full value of this property. This is useful if the width
- of the column is smaller than that of the value.
-‘a (org-columns-edit-allowed)’
- Edit the list of allowed values for this property. If the list is
- found in the hierarchy, the modified value is stored there. If no
- list is found, the new value is stored in the first entry that is
- part of the current column view.
-
- Modifying the table structure
- .............................
-
-‘< (org-columns-narrow)’
-‘> (org-columns-widen)’
- Make the column narrower/wider by one character.
-‘S-M-<RIGHT> (org-columns-new)’
- Insert a new column, to the left of the current column.
-‘S-M-<LEFT> (org-columns-delete)’
- Delete the current column.
-
-
-File: org, Node: Capturing column view, Prev: Using column view, Up: Column view
-
-7.5.3 Capturing column view
----------------------------
-
-Since column view is just an overlay over a buffer, it cannot be
-exported or printed directly. If you want to capture a column view, use
-a ‘columnview’ dynamic block (*note Dynamic blocks::). The frame of
-this block looks like this:
-
- * The column view
- #+BEGIN: columnview :hlines 1 :id "label"
-
- #+END:
-
-This dynamic block has the following parameters:
-
-‘:id’
- This is the most important parameter. Column view is a feature
- that is often localized to a certain (sub)tree, and the capture
- block might be at a different location in the file. To identify
- the tree whose view to capture, you can use 4 values:
- local use the tree in which the capture block is located
- global make a global view, including all headings in the file
- "file:PATH-TO-FILE"
- run column view at the top of this file
- "ID" call column view in the tree that has an ‘:ID:’
- property with the value label. You can use
- ‘M-x org-id-copy <RET>’ to create a globally unique ‘ID’ for
- the current entry and copy it to the kill-ring.
-‘:hlines’
- When ‘t’, insert an hline after every line. When a number N,
- insert an hline before each headline with level ‘<= N’.
-‘:vlines’
- When set to ‘t’, force column groups to get vertical lines.
-‘:maxlevel’
- When set to a number, don’t capture entries below this level.
-‘:skip-empty-rows’
- When set to ‘t’, skip rows where the only non-empty specifier of
- the column view is ‘ITEM’.
-‘:indent’
- When non-‘nil’, indent each ‘ITEM’ field according to its level.
-
-The following commands insert or update the dynamic block:
-
-‘C-c C-x i (org-insert-columns-dblock)’
- Insert a dynamic block capturing a column view. You will be
- prompted for the scope or ‘ID’ of the view.
-‘C-c C-c or C-c C-x C-u (org-dblock-update)’
- Update dynamic block at point.
-‘C-u C-c C-x C-u (org-update-all-dblocks)’
- Update all dynamic blocks (*note Dynamic blocks::). This is useful
- if you have several clock table blocks, column-capturing blocks or
- other dynamic blocks in a buffer.
-
- You can add formulas to the column view table and you may add
-plotting instructions in front of the table—these will survive an update
-of the block. If there is a ‘#+TBLFM:’ after the table, the table will
-actually be recalculated automatically after an update.
-
- An alternative way to capture and process property values into a
-table is provided by Eric Schulte’s ‘org-collector.el’ which is a
-contributed package(1). It provides a general API to collect properties
-from entries in a certain scope, and arbitrary Lisp expressions to
-process these values before inserting them into a table or a dynamic
-block.
-
- ---------- Footnotes ----------
-
- (1) Contributed packages are not part of Emacs, but are distributed
-with the main distribution of Org (visit <https://orgmode.org>).
-
-
-File: org, Node: Property API, Prev: Column view, Up: Properties and columns
-
-7.6 The Property API
-====================
-
-There is a full API for accessing and changing properties. This API can
-be used by Emacs Lisp programs to work with properties and to implement
-features based on them. For more information see *note Using the
-property API::.
-
-
-File: org, Node: Dates and times, Next: Capture - Refile - Archive, Prev: Properties and columns, Up: Top
-
-8 Dates and times
-*****************
-
-To assist project planning, TODO items can be labeled with a date and/or
-a time. The specially formatted string carrying the date and time
-information is called a _timestamp_ in Org mode. This may be a little
-confusing because timestamp is often used to indicate when something was
-created or last changed. However, in Org mode this term is used in a
-much wider sense.
-
-* Menu:
-
-* Timestamps:: Assigning a time to a tree entry
-* Creating timestamps:: Commands which insert timestamps
-* Deadlines and scheduling:: Planning your work
-* Clocking work time:: Tracking how long you spend on a task
-* Effort estimates:: Planning work effort in advance
-* Timers:: Notes with a running timer
-
-
-File: org, Node: Timestamps, Next: Creating timestamps, Up: Dates and times
-
-8.1 Timestamps, deadlines, and scheduling
-=========================================
-
-A timestamp is a specification of a date (possibly with a time or a
-range of times) in a special format, either ‘<2003-09-16 Tue>’(1) or
-‘<2003-09-16 Tue 09:39>’ or ‘<2003-09-16 Tue 12:00-12:30>’(2). A
-timestamp can appear anywhere in the headline or body of an Org tree
-entry. Its presence causes entries to be shown on specific dates in the
-agenda (*note Weekly/daily agenda::). We distinguish:
-
-PLAIN TIMESTAMP; EVENT; APPOINTMENT
- A simple timestamp just assigns a date/time to an item. This is
- just like writing down an appointment or event in a paper agenda.
- In the agenda display, the headline of an entry associated with a
- plain timestamp will be shown exactly on that date.
-
- * Meet Peter at the movies
- <2006-11-01 Wed 19:15>
- * Discussion on climate change
- <2006-11-02 Thu 20:00-22:00>
-
-TIMESTAMP WITH REPEATER INTERVAL
- A timestamp may contain a _repeater interval_, indicating that it
- applies not only on the given date, but again and again after a
- certain interval of N days (d), weeks (w), months (m), or years
- (y). The following will show up in the agenda every Wednesday:
-
- * Pick up Sam at school
- <2007-05-16 Wed 12:30 +1w>
-
-DIARY-STYLE SEXP ENTRIES
- For more complex date specifications, Org mode supports using the
- special sexp diary entries implemented in the Emacs calendar/diary
- package(3). For example with optional time
-
- * 22:00-23:00 The nerd meeting on every 2nd Thursday of the month
- <%%(diary-float t 4 2)>
-
-TIME/DATE RANGE
- Two timestamps connected by ‘--’ denote a range. The headline will
- be shown on the first and last day of the range, and on any dates
- that are displayed and fall in the range. Here is an example:
-
- ** Meeting in Amsterdam
- <2004-08-23 Mon>--<2004-08-26 Thu>
-
-INACTIVE TIMESTAMP
- Just like a plain timestamp, but with square brackets instead of
- angular ones. These timestamps are inactive in the sense that they
- do _not_ trigger an entry to show up in the agenda.
-
- * Gillian comes late for the fifth time
- [2006-11-01 Wed]
-
- ---------- Footnotes ----------
-
- (1) In this simplest form, the day name is optional when you type the
-date yourself. However, any dates inserted or modified by Org will add
-that day name, for reading convenience.
-
- (2) This is inspired by the standard ISO 8601 date/time format. To
-use an alternative format, see *note Custom time format::.
-
- (3) When working with the standard diary sexp functions, you need to
-be very careful with the order of the arguments. That order depends
-evilly on the variable ‘calendar-date-style’ (or, for older Emacs
-versions, ‘european-calendar-style’). For example, to specify a date
-December 1, 2005, the call might look like ‘(diary-date 12 1 2005)’ or
-‘(diary-date 1 12 2005)’ or ‘(diary-date 2005 12 1)’, depending on the
-settings. This has been the source of much confusion. Org mode users
-can resort to special versions of these functions like ‘org-date’ or
-‘org-anniversary’. These work just like the corresponding ‘diary-’
-functions, but with stable ISO order of arguments (year, month, day)
-wherever applicable, independent of the value of ‘calendar-date-style’.
-
-
-File: org, Node: Creating timestamps, Next: Deadlines and scheduling, Prev: Timestamps, Up: Dates and times
-
-8.2 Creating timestamps
-=======================
-
-For Org mode to recognize timestamps, they need to be in the specific
-format. All commands listed below produce timestamps in the correct
-format.
-
-‘C-c . (org-time-stamp)’
- Prompt for a date and insert a corresponding timestamp. When the
- cursor is at an existing timestamp in the buffer, the command is
- used to modify this timestamp instead of inserting a new one. When
- this command is used twice in succession, a time range is inserted.
-‘C-c ! (org-time-stamp-inactive)’
- Like ‘C-c .’, but insert an inactive timestamp that will not cause
- an agenda entry.
-‘C-u C-c .’
-‘C-u C-c !’
- Like ‘C-c .’ and ‘C-c !’, but use the alternative format which
- contains date and time. The default time can be rounded to
- multiples of 5 minutes, see the option
- ‘org-time-stamp-rounding-minutes’.
-‘C-c C-c’
- Normalize timestamp, insert/fix day name if missing or wrong.
-‘C-c < (org-date-from-calendar)’
- Insert a timestamp corresponding to the cursor date in the
- Calendar.
-‘C-c > (org-goto-calendar)’
- Access the Emacs calendar for the current date. If there is a
- timestamp in the current line, go to the corresponding date
- instead.
-‘C-c C-o (org-open-at-point)’
- Access the agenda for the date given by the timestamp or -range at
- point (*note Weekly/daily agenda::).
-‘S-<LEFT> (org-timestamp-down-day)’
-‘S-<RIGHT> (org-timestamp-up-day)’
- Change date at cursor by one day. These key bindings conflict with
- shift-selection and related modes (*note Conflicts::).
-‘S-<UP> (org-timestamp-up)’
-‘S-<DOWN> (org-timestamp-down-down)’
- Change the item under the cursor in a timestamp. The cursor can be
- on a year, month, day, hour or minute. When the timestamp contains
- a time range like ‘15:30-16:30’, modifying the first time will also
- shift the second, shifting the time block with constant length. To
- change the length, modify the second time. Note that if the cursor
- is in a headline and not at a timestamp, these same keys modify the
- priority of an item. (*note Priorities::). The key bindings also
- conflict with shift-selection and related modes (*note
- Conflicts::).
-‘C-c C-y (org-evaluate-time-range)’
- Evaluate a time range by computing the difference between start and
- end. With a prefix argument, insert result after the time range
- (in a table: into the following column).
-
-* Menu:
-
-* The date/time prompt:: How Org mode helps you entering date and time
-* Custom time format:: Making dates look different
-
-
-File: org, Node: The date/time prompt, Next: Custom time format, Up: Creating timestamps
-
-8.2.1 The date/time prompt
---------------------------
-
-When Org mode prompts for a date/time, the default is shown in default
-date/time format, and the prompt therefore seems to ask for a specific
-format. But it will in fact accept date/time information in a variety
-of formats. Generally, the information should start at the beginning of
-the string. Org mode will find whatever information is in there and
-derive anything you have not specified from the _default date and time_.
-The default is usually the current date and time, but when modifying an
-existing timestamp, or when entering the second stamp of a range, it is
-taken from the stamp in the buffer. When filling in information, Org
-mode assumes that most of the time you will want to enter a date in the
-future: if you omit the month/year and the given day/month is before
-today, it will assume that you mean a future date(1). If the date has
-been automatically shifted into the future, the time prompt will show
-this with ‘(=>F).’
-
- For example, let’s assume that today is June 13, 2006. Here is how
-various inputs will be interpreted, the items filled in by Org mode are
-in bold.
-
- 3-2-5 ⇒ 2003-02-05
- 2/5/3 ⇒ 2003-02-05
- 14 ⇒ 2006-06-14
- 12 ⇒ 2006-07-12
- 2/5 ⇒ 2007-02-05
- Fri ⇒ nearest Friday after the default date
- sep 15 ⇒ 2006-09-15
- feb 15 ⇒ 2007-02-15
- sep 12 9 ⇒ 2009-09-12
- 12:45 ⇒ 2006-06-13 12:45
- 22 sept 0:34 ⇒ 2006-09-22 00:34
- w4 ⇒ ISO week four of the current year 2006
- 2012 w4 fri ⇒ Friday of ISO week 4 in 2012
- 2012-w04-5 ⇒ Same as above
-
- Furthermore you can specify a relative date by giving, as the _first_
-thing in the input: a plus/minus sign, a number and a letter ([hdwmy])
-to indicate change in hours, days, weeks, months, or years. With a
-single plus or minus, the date is always relative to today. With a
-double plus or minus, it is relative to the default date. If instead of
-a single letter, you use the abbreviation of day name, the date will be
-the Nth such day, e.g.:
-
- +0 ⇒ today
- . ⇒ today
- +4d ⇒ four days from today
- +4 ⇒ same as above
- +2w ⇒ two weeks from today
- ++5 ⇒ five days from default date
- +2tue ⇒ second Tuesday from now
- -wed ⇒ last Wednesday
-
- The function understands English month and weekday abbreviations. If
-you want to use unabbreviated names and/or other languages, configure
-the variables ‘parse-time-months’ and ‘parse-time-weekdays’.
-
- Not all dates can be represented in a given Emacs implementation. By
-default Org mode forces dates into the compatibility range 1970–2037
-which works on all Emacs implementations. If you want to use dates
-outside of this range, read the docstring of the variable
-‘org-read-date-force-compatible-dates’.
-
- You can specify a time range by giving start and end times or by
-giving a start time and a duration (in HH:MM format). Use one or two
-dash(es) as the separator in the former case and use ’+’ as the
-separator in the latter case, e.g.:
-
- 11am-1:15pm ⇒ 11:00-13:15
- 11am--1:15pm ⇒ same as above
- 11am+2:15 ⇒ same as above
-
- Parallel to the minibuffer prompt, a calendar is popped up(2). When
-you exit the date prompt, either by clicking on a date in the calendar,
-or by pressing <RET>, the date selected in the calendar will be combined
-with the information entered at the prompt. You can control the
-calendar fully from the minibuffer:
-
- <RET> Choose date at cursor in calendar.
- mouse-1 Select date by clicking on it.
- S-<RIGHT>/<LEFT> One day forward/backward.
- S-<DOWN>/<UP> One week forward/backward.
- M-S-<RIGHT>/<LEFT> One month forward/backward.
- > / < Scroll calendar forward/backward by one month.
- M-v / C-v Scroll calendar forward/backward by 3 months.
- M-S-<DOWN>/<UP> Scroll calendar forward/backward by one year.
-
- The actions of the date/time prompt may seem complex, but I assure
-you they will grow on you, and you will start getting annoyed by pretty
-much any other way of entering a date/time out there. To help you
-understand what is going on, the current interpretation of your input
-will be displayed live in the minibuffer(3).
-
- ---------- Footnotes ----------
-
- (1) See the variable ‘org-read-date-prefer-future’. You may set that
-variable to the symbol ‘time’ to even make a time before now shift the
-date to tomorrow.
-
- (2) If you don’t need/want the calendar, configure the variable
-‘org-popup-calendar-for-date-prompt’.
-
- (3) If you find this distracting, turn the display off with
-‘org-read-date-display-live’.
-
-
-File: org, Node: Custom time format, Prev: The date/time prompt, Up: Creating timestamps
-
-8.2.2 Custom time format
-------------------------
-
-Org mode uses the standard ISO notation for dates and times as it is
-defined in ISO 8601. If you cannot get used to this and require another
-representation of date and time to keep you happy, you can get it by
-customizing the options ‘org-display-custom-times’ and
-‘org-time-stamp-custom-formats’.
-
-‘C-c C-x C-t (org-toggle-time-stamp-overlays)’
- Toggle the display of custom formats for dates and times.
-
-Org mode needs the default format for scanning, so the custom date/time
-format does not _replace_ the default format—instead it is put _over_
-the default format using text properties. This has the following
-consequences:
- • You cannot place the cursor onto a timestamp anymore, only before
- or after.
- • The ‘S-<UP>/<DOWN>’ keys can no longer be used to adjust each
- component of a timestamp. If the cursor is at the beginning of the
- stamp, ‘S-<UP>/<DOWN>’ will change the stamp by one day, just like
- ‘S-<LEFT>/<RIGHT>’. At the end of the stamp, the time will be
- changed by one minute.
- • If the timestamp contains a range of clock times or a repeater,
- these will not be overlaid, but remain in the buffer as they were.
- • When you delete a timestamp character-by-character, it will only
- disappear from the buffer after _all_ (invisible) characters
- belonging to the ISO timestamp have been removed.
- • If the custom timestamp format is longer than the default and you
- are using dates in tables, table alignment will be messed up. If
- the custom format is shorter, things do work as expected.
-
-
-File: org, Node: Deadlines and scheduling, Next: Clocking work time, Prev: Creating timestamps, Up: Dates and times
-
-8.3 Deadlines and scheduling
-============================
-
-A timestamp may be preceded by special keywords to facilitate planning.
-Both the timestamp and the keyword have to be positioned immediately
-after the task they refer to.
-
-DEADLINE
-
- Meaning: the task (most likely a TODO item, though not necessarily)
- is supposed to be finished on that date.
-
- On the deadline date, the task will be listed in the agenda. In
- addition, the agenda for _today_ will carry a warning about the
- approaching or missed deadline, starting
- ‘org-deadline-warning-days’ before the due date, and continuing
- until the entry is marked DONE. An example:
-
- *** TODO write article about the Earth for the Guide
- DEADLINE: <2004-02-29 Sun>
- The editor in charge is [[bbdb:Ford Prefect]]
-
- You can specify a different lead time for warnings for a specific
- deadline using the following syntax. Here is an example with a
- warning period of 5 days ‘DEADLINE: <2004-02-29 Sun -5d>’. This
- warning is deactivated if the task gets scheduled and you set
- ‘org-agenda-skip-deadline-prewarning-if-scheduled’ to ‘t’.
-
-SCHEDULED
-
- Meaning: you are planning to start working on that task on the
- given date.
-
- The headline will be listed under the given date(1). In addition,
- a reminder that the scheduled date has passed will be present in
- the compilation for _today_, until the entry is marked DONE, i.e.,
- the task will automatically be forwarded until completed.
-
- *** TODO Call Trillian for a date on New Years Eve.
- SCHEDULED: <2004-12-25 Sat>
-
- If you want to _delay_ the display of this task in the agenda, use
- ‘SCHEDULED: <2004-12-25 Sat -2d>’: the task is still scheduled on
- the 25th but will appear two days later. In case the task contains
- a repeater, the delay is considered to affect all occurrences; if
- you want the delay to only affect the first scheduled occurrence of
- the task, use ‘--2d’ instead. See ‘org-scheduled-delay-days’ and
- ‘org-agenda-skip-scheduled-delay-if-deadline’ for details on how to
- control this globally or per agenda.
-
- Important: Scheduling an item in Org mode should not be understood
- in the same way that we understand scheduling a meeting. Setting a
- date for a meeting is just a simple appointment, you should mark
- this entry with a simple plain timestamp, to get this item shown on
- the date where it applies. This is a frequent misunderstanding by
- Org users. In Org mode, scheduling means setting a date when you
- want to start working on an action item.
-
- You may use timestamps with repeaters in scheduling and deadline
-entries. Org mode will issue early and late warnings based on the
-assumption that the timestamp represents the nearest instance of the
-repeater. However, the use of diary sexp entries like ‘<%%(diary-float
-t 42)>’ in scheduling and deadline timestamps is limited. Org mode does
-not know enough about the internals of each sexp function to issue early
-and late warnings. However, it will show the item on each day where the
-sexp entry matches.
-
-* Menu:
-
-* Inserting deadline/schedule:: Planning items
-* Repeated tasks:: Items that show up again and again
-
- ---------- Footnotes ----------
-
- (1) It will still be listed on that date after it has been marked
-DONE. If you don’t like this, set the variable
-‘org-agenda-skip-scheduled-if-done’.
-
-
-File: org, Node: Inserting deadline/schedule, Next: Repeated tasks, Up: Deadlines and scheduling
-
-8.3.1 Inserting deadlines or schedules
---------------------------------------
-
-The following commands allow you to quickly insert a deadline or to
-schedule an item:
-
-‘C-c C-d (org-deadline)’
- Insert ‘DEADLINE’ keyword along with a stamp. Any CLOSED timestamp
- will be removed. When called with a prefix arg, an existing
- deadline will be removed from the entry. Depending on the variable
- ‘org-log-redeadline’(1), a note will be taken when changing an
- existing deadline.
-
-‘C-c C-s (org-schedule)’
- Insert ‘SCHEDULED’ keyword along with a stamp. Any CLOSED
- timestamp will be removed. When called with a prefix argument,
- remove the scheduling date from the entry. Depending on the
- variable ‘org-log-reschedule’(2), a note will be taken when
- changing an existing scheduling time.
-‘C-c / d (org-check-deadlines)’
- Create a sparse tree with all deadlines that are either past-due,
- or which will become due within ‘org-deadline-warning-days’. With
- ‘C-u’ prefix, show all deadlines in the file. With a numeric
- prefix, check that many days. For example, ‘C-1 C-c / d’ shows all
- deadlines due tomorrow.
-‘C-c / b (org-check-before-date)’
- Sparse tree for deadlines and scheduled items before a given date.
-‘C-c / a (org-check-after-date)’
- Sparse tree for deadlines and scheduled items after a given date.
-
- Note that ‘org-schedule’ and ‘org-deadline’ supports setting the date
-by indicating a relative time: e.g., +1d will set the date to the next
-day after today, and –1w will set the date to the previous week before
-any current timestamp.
-
- ---------- Footnotes ----------
-
- (1) with corresponding ‘#+STARTUP’ keywords ‘logredeadline’,
-‘lognoteredeadline’, and ‘nologredeadline’
-
- (2) with corresponding ‘#+STARTUP’ keywords ‘logreschedule’,
-‘lognotereschedule’, and ‘nologreschedule’
-
-
-File: org, Node: Repeated tasks, Prev: Inserting deadline/schedule, Up: Deadlines and scheduling
-
-8.3.2 Repeated tasks
---------------------
-
-Some tasks need to be repeated again and again. Org mode helps to
-organize such tasks using a so-called repeater in a ‘DEADLINE’,
-‘SCHEDULED’, or plain timestamp. In the following example
- ** TODO Pay the rent
- DEADLINE: <2005-10-01 Sat +1m>
-the ‘+1m’ is a repeater; the intended interpretation is that the task
-has a deadline on <2005-10-01> and repeats itself every (one) month
-starting from that time. You can use yearly, monthly, weekly, daily and
-hourly repeat cookies by using the ‘y/w/m/d/h’ letters. If you need
-both a repeater and a special warning period in a deadline entry, the
-repeater should come first and the warning period last: ‘DEADLINE:
-<2005-10-01 Sat +1m -3d>’.
-
- Deadlines and scheduled items produce entries in the agenda when they
-are over-due, so it is important to be able to mark such an entry as
-completed once you have done so. When you mark a ‘DEADLINE’ or a
-‘SCHEDULED’ with the TODO keyword DONE, it will no longer produce
-entries in the agenda. The problem with this is, however, that then
-also the _next_ instance of the repeated entry will not be active. Org
-mode deals with this in the following way: When you try to mark such an
-entry DONE (using ‘C-c C-t’), it will shift the base date of the
-repeating timestamp by the repeater interval, and immediately set the
-entry state back to TODO(1). In the example above, setting the state to
-DONE would actually switch the date like this:
-
- ** TODO Pay the rent
- DEADLINE: <2005-11-01 Tue +1m>
-
- To mark a task with a repeater as ‘DONE’, use ‘C-- 1 C-c C-t’ (i.e.,
-‘org-todo’ with a numeric prefix argument of -1.)
-
- A timestamp(2) will be added under the deadline, to keep a record
-that you actually acted on the previous instance of this deadline.
-
- As a consequence of shifting the base date, this entry will no longer
-be visible in the agenda when checking past dates, but all future
-instances will be visible.
-
- With the ‘+1m’ cookie, the date shift will always be exactly one
-month. So if you have not paid the rent for three months, marking this
-entry DONE will still keep it as an overdue deadline. Depending on the
-task, this may not be the best way to handle it. For example, if you
-forgot to call your father for 3 weeks, it does not make sense to call
-him 3 times in a single day to make up for it. Finally, there are tasks
-like changing batteries which should always repeat a certain time after
-the last time you did it. For these tasks, Org mode has special
-repeaters ‘++’ and ‘.+’. For example:
-
- ** TODO Call Father
- DEADLINE: <2008-02-10 Sun ++1w>
- Marking this DONE will shift the date by at least one week,
- but also by as many weeks as it takes to get this date into
- the future. However, it stays on a Sunday, even if you called
- and marked it done on Saturday.
- ** TODO Empty kitchen trash
- DEADLINE: <2008-02-08 Fri 20:00 ++1d>
- Marking this DONE will shift the date by at least one day, and
- also by as many days as it takes to get the timestamp into the
- future. Since there is a time in the timestamp, the next
- deadline in the future will be on today's date if you
- complete the task before 20:00.
- ** TODO Check the batteries in the smoke detectors
- DEADLINE: <2005-11-01 Tue .+1m>
- Marking this DONE will shift the date to one month after
- today.
-
- You may have both scheduling and deadline information for a specific
-task. If the repeater is set for the scheduling information only, you
-probably want the repeater to be ignored after the deadline. If so, set
-the variable ‘org-agenda-skip-scheduled-if-deadline-is-shown’ to
-‘repeated-after-deadline’. However, any scheduling information without
-a repeater is no longer relevant once the task is done, and thus,
-removed upon repeating the task. If you want both scheduling and
-deadline information to repeat after the same interval, set the same
-repeater for both timestamps.
-
- An alternative to using a repeater is to create a number of copies of
-a task subtree, with dates shifted in each copy. The command ‘C-c C-x
-c’ was created for this purpose, it is described in *note Structure
-editing::.
-
- ---------- Footnotes ----------
-
- (1) In fact, the target state is taken from, in this sequence, the
-‘REPEAT_TO_STATE’ property or the variable ‘org-todo-repeat-to-state’.
-If neither of these is specified, the target state defaults to the first
-state of the TODO state sequence.
-
- (2) You can change this using the option ‘org-log-repeat’, or the
-‘#+STARTUP’ options ‘logrepeat’, ‘lognoterepeat’, and ‘nologrepeat’.
-With ‘lognoterepeat’, you will also be prompted for a note.
-
-
-File: org, Node: Clocking work time, Next: Effort estimates, Prev: Deadlines and scheduling, Up: Dates and times
-
-8.4 Clocking work time
-======================
-
-Org mode allows you to clock the time you spend on specific tasks in a
-project. When you start working on an item, you can start the clock.
-When you stop working on that task, or when you mark the task done, the
-clock is stopped and the corresponding time interval is recorded. It
-also computes the total time spent on each subtree(1) of a project. And
-it remembers a history or tasks recently clocked, so that you can jump
-quickly between a number of tasks absorbing your time.
-
- To save the clock history across Emacs sessions, use
- (setq org-clock-persist 'history)
- (org-clock-persistence-insinuate)
- When you clock into a new task after resuming Emacs, the incomplete
-clock(2) will be found (*note Resolving idle time::) and you will be
-prompted about what to do with it.
-
-* Menu:
-
-* Clocking commands:: Starting and stopping a clock
-* The clock table:: Detailed reports
-* Resolving idle time:: Resolving time when you’ve been idle
-
- ---------- Footnotes ----------
-
- (1) Clocking only works if all headings are indented with less than
-30 stars. This is a hardcoded limitation of ‘lmax’ in ‘org-clock-sum’.
-
- (2) To resume the clock under the assumption that you have worked on
-this task while outside Emacs, use ‘(setq org-clock-persist t)’.
-
-
-File: org, Node: Clocking commands, Next: The clock table, Up: Clocking work time
-
-8.4.1 Clocking commands
------------------------
-
-‘C-c C-x C-i (org-clock-in)’
- !Start the clock on the current item (clock-in). This inserts the
- ‘CLOCK’ keyword together with a timestamp. If this is not the
- first clocking of this item, the multiple ‘CLOCK’ lines will be
- wrapped into a ‘:LOGBOOK:’ drawer (see also the variable
- ‘org-clock-into-drawer’). You can also overrule the setting of
- this variable for a subtree by setting a ‘CLOCK_INTO_DRAWER’ or
- ‘LOG_INTO_DRAWER’ property. When called with a ‘C-u’ prefix
- argument, select the task from a list of recently clocked tasks.
- With two ‘C-u C-u’ prefixes, clock into the task at point and mark
- it as the default task; the default task will then always be
- available with letter ‘d’ when selecting a clocking task. With
- three ‘C-u C-u C-u’ prefixes, force continuous clocking by starting
- the clock when the last clock stopped.
- While the clock is running, the current clocking time is shown in
- the mode line, along with the title of the task. The clock time
- shown will be all time ever clocked for this task and its children.
- If the task has an effort estimate (*note Effort estimates::), the
- mode line displays the current clocking time against it(1) If the
- task is a repeating one (*note Repeated tasks::), only the time
- since the last reset of the task (2) will be shown. More control
- over what time is shown can be exercised with the
- ‘CLOCK_MODELINE_TOTAL’ property. It may have the values ‘current’
- to show only the current clocking instance, ‘today’ to show all
- time clocked on this task today (see also the variable
- ‘org-extend-today-until’), ‘all’ to include all time, or ‘auto’
- which is the default(3).
- Clicking with ‘mouse-1’ onto the mode line entry will pop up a menu
- with clocking options.
-‘C-c C-x C-o (org-clock-out)’
- Stop the clock (clock-out). This inserts another timestamp at the
- same location where the clock was last started. It also directly
- computes the resulting time and inserts it after the time range as
- ‘=> HH:MM’. See the variable ‘org-log-note-clock-out’ for the
- possibility to record an additional note together with the
- clock-out timestamp(4).
-‘C-c C-x C-x (org-clock-in-last)’
- Reclock the last clocked task. With one ‘C-u’ prefix argument,
- select the task from the clock history. With two ‘C-u’ prefixes,
- force continuous clocking by starting the clock when the last clock
- stopped.
-‘C-c C-x C-e (org-clock-modify-effort-estimate)’
- Update the effort estimate for the current clock task.
-‘C-c C-c or C-c C-y (org-evaluate-time-range)’
- Recompute the time interval after changing one of the timestamps.
- This is only necessary if you edit the timestamps directly. If you
- change them with ‘S-<cursor>’ keys, the update is automatic.
-‘C-S-<up/down> (org-clock-timestamps-up/down)’
- On ‘CLOCK’ log lines, increase/decrease both timestamps so that the
- clock duration keeps the same.
-‘S-M-<up/down> (org-timestamp-up/down)’
- On ‘CLOCK’ log lines, increase/decrease the timestamp at point and
- the one of the previous (or the next clock) timestamp by the same
- duration. For example, if you hit ‘S-M-<UP>’ to increase a
- clocked-out timestamp by five minutes, then the clocked-in
- timestamp of the next clock will be increased by five minutes.
-‘C-c C-t (org-todo)’
- Changing the TODO state of an item to DONE automatically stops the
- clock if it is running in this same item.
-‘C-c C-x C-q (org-clock-cancel)’
- Cancel the current clock. This is useful if a clock was started by
- mistake, or if you ended up working on something else.
-‘C-c C-x C-j (org-clock-goto)’
- Jump to the headline of the currently clocked in task. With a
- ‘C-u’ prefix arg, select the target task from a list of recently
- clocked tasks.
-‘C-c C-x C-d (org-clock-display)’
- Display time summaries for each subtree in the current buffer.
- This puts overlays at the end of each headline, showing the total
- time recorded under that heading, including the time of any
- subheadings. You can use visibility cycling to study the tree, but
- the overlays disappear when you change the buffer (see variable
- ‘org-remove-highlights-with-change’) or press ‘C-c C-c’.
-
- The ‘l’ key may be used the agenda (*note Weekly/daily agenda::) to
-show which tasks have been worked on or closed during a day.
-
- *Important:* note that both ‘org-clock-out’ and ‘org-clock-in-last’
-can have a global key binding and will not modify the window
-disposition.
-
- ---------- Footnotes ----------
-
- (1) To add an effort estimate “on the fly”, hook a function doing
-this to ‘org-clock-in-prepare-hook’.
-
- (2) as recorded by the ‘LAST_REPEAT’ property
-
- (3) See also the variable ‘org-clock-modeline-total’.
-
- (4) The corresponding in-buffer setting is: ‘#+STARTUP:
-lognoteclock-out’
-
-
-File: org, Node: The clock table, Next: Resolving idle time, Prev: Clocking commands, Up: Clocking work time
-
-8.4.2 The clock table
----------------------
-
-Org mode can produce quite complex reports based on the time clocking
-information. Such a report is called a _clock table_, because it is
-formatted as one or several Org tables.
-
-‘C-c C-x C-r (org-clock-report)’
- Insert a dynamic block (*note Dynamic blocks::) containing a clock
- report as an Org mode table into the current file. When the cursor
- is at an existing clock table, just update it. When called with a
- prefix argument, jump to the first clock report in the current
- document and update it. The clock table always includes also trees
- with ‘:ARCHIVE:’ tag.
-‘C-c C-c or C-c C-x C-u (org-dblock-update)’
- Update dynamic block at point.
-‘C-u C-c C-x C-u’
- Update all dynamic blocks (*note Dynamic blocks::). This is useful
- if you have several clock table blocks in a buffer.
-‘S-<LEFT>’
-‘S-<RIGHT> (org-clocktable-try-shift)’
- Shift the current ‘:block’ interval and update the table. The
- cursor needs to be in the ‘#+BEGIN: clocktable’ line for this
- command. If ‘:block’ is ‘today’, it will be shifted to ‘today-1’
- etc.
-
- Here is an example of the frame for a clock table as it is inserted
-into the buffer with the ‘C-c C-x C-r’ command:
-
- #+BEGIN: clocktable :maxlevel 2 :emphasize nil :scope file
- #+END: clocktable
-The ‘BEGIN’ line specifies a number of options to define the scope,
-structure, and formatting of the report. Defaults for all these options
-can be configured in the variable ‘org-clocktable-defaults’.
-
-First there are options that determine which clock entries are to be
-selected:
- :maxlevel Maximum level depth to which times are listed in the table.
- Clocks at deeper levels will be summed into the upper level.
- :scope The scope to consider. This can be any of the following:
- nil the current buffer or narrowed region
- file the full current buffer
- subtree the subtree where the clocktable is located
- treeN the surrounding level N tree, for example ‘tree3’
- tree the surrounding level 1 tree
- agenda all agenda files
- ("file"..) scan these files
- function the list of files returned by a function of no argument
- file-with-archives current file and its archives
- agenda-with-archives all agenda files, including archives
- :block The time block to consider. This block is specified either
- absolutely, or relative to the current time and may be any of
- these formats:
- 2007-12-31 New year eve 2007
- 2007-12 December 2007
- 2007-W50 ISO-week 50 in 2007
- 2007-Q2 2nd quarter in 2007
- 2007 the year 2007
- today, yesterday, today-N a relative day
- thisweek, lastweek, thisweek-N a relative week
- thismonth, lastmonth, thismonth-N a relative month
- thisyear, lastyear, thisyear-N a relative year
- untilnow
- Use ‘S-<LEFT>/<RIGHT>’ keys to shift the time interval.
- :tstart A time string specifying when to start considering times.
- Relative times like ‘"<-2w>"’ can also be used. See
- *note Matching tags and properties:: for relative time syntax.
- :tend A time string specifying when to stop considering times.
- Relative times like ‘"<now>"’ can also be used. See
- *note Matching tags and properties:: for relative time syntax.
- :wstart The starting day of the week. The default is 1 for monday.
- :mstart The starting day of the month. The default 1 is for the first
- day of the month.
- :step ‘week’ or ‘day’, to split the table into chunks.
- To use this, ‘:block’ or ‘:tstart’, ‘:tend’ are needed.
- :stepskip0 Do not show steps that have zero time.
- :fileskip0 Do not show table sections from files which did not contribute.
- :tags A tags match to select entries that should contribute. See
- *note Matching tags and properties:: for the match syntax.
-
- Then there are options which determine the formatting of the table.
-These options are interpreted by the function
-‘org-clocktable-write-default’, but you can specify your own function
-using the ‘:formatter’ parameter.
- :emphasize When ‘t’, emphasize level one and level two items.
- :lang Language(1) to use for descriptive cells like "Task".
- :link Link the item headlines in the table to their origins.
- :narrow An integer to limit the width of the headline column in
- the org table. If you write it like ‘50!’, then the
- headline will also be shortened in export.
- :indent Indent each headline field according to its level.
- :tcolumns Number of columns to be used for times. If this is smaller
- than ‘:maxlevel’, lower levels will be lumped into one column.
- :level Should a level number column be included?
- :sort A cons cell like containing the column to sort and a sorting type.
- E.g., ‘:sort (1 . ?a)’ sorts the first column alphabetically.
- :compact Abbreviation for ‘:level nil :indent t :narrow 40! :tcolumns 1’
- All are overwritten except if there is an explicit ‘:narrow’
- :timestamp A timestamp for the entry, when available. Look for ‘SCHEDULED’,
- ‘DEADLINE’, ‘TIMESTAMP’ and ‘TIMESTAMP_IA’, in this order.
- :properties List of properties that should be shown in the table. Each
- property will get its own column.
- :inherit-props When this flag is ‘t’, the values for ‘:properties’ will be inherited.
- :formula Content of a ‘#+TBLFM’ line to be added and evaluated.
- As a special case, ‘:formula %’ adds a column with % time.
- If you do not specify a formula here, any existing formula
- below the clock table will survive updates and be evaluated.
- :formatter A function to format clock data and insert it into the buffer.
- To get a clock summary of the current level 1 tree, for the current
-day, you could write
- #+BEGIN: clocktable :maxlevel 2 :block today :scope tree1 :link t
- #+END: clocktable
-and to use a specific time range you could write(2)
- #+BEGIN: clocktable :tstart "<2006-08-10 Thu 10:00>"
- :tend "<2006-08-10 Thu 12:00>"
- #+END: clocktable
- A range starting a week ago and ending right now could be written as
- #+BEGIN: clocktable :tstart "<-1w>" :tend "<now>"
- #+END: clocktable
- A summary of the current subtree with % times would be
- #+BEGIN: clocktable :scope subtree :link t :formula %
- #+END: clocktable
- A horizontally compact representation of everything clocked during
-last week would be
- #+BEGIN: clocktable :scope agenda :block lastweek :compact t
- #+END: clocktable
-
- ---------- Footnotes ----------
-
- (1) Language terms can be set through the variable
-‘org-clock-clocktable-language-setup’.
-
- (2) Note that all parameters must be specified in a single line—the
-line is broken here only to fit it into the manual.
-
-
-File: org, Node: Resolving idle time, Prev: The clock table, Up: Clocking work time
-
-8.4.3 Resolving idle time and continuous clocking
--------------------------------------------------
-
-Resolving idle time
-...................
-
-If you clock in on a work item, and then walk away from your
-computer—perhaps to take a phone call—you often need to “resolve” the
-time you were away by either subtracting it from the current clock, or
-applying it to another one.
-
- By customizing the variable ‘org-clock-idle-time’ to some integer,
-such as 10 or 15, Emacs can alert you when you get back to your computer
-after being idle for that many minutes(1), and ask what you want to do
-with the idle time. There will be a question waiting for you when you
-get back, indicating how much idle time has passed (constantly updated
-with the current amount), as well as a set of choices to correct the
-discrepancy:
-
-‘k’
- To keep some or all of the minutes and stay clocked in, press ‘k’.
- Org will ask how many of the minutes to keep. Press <RET> to keep
- them all, effectively changing nothing, or enter a number to keep
- that many minutes.
-‘K’
- If you use the shift key and press ‘K’, it will keep however many
- minutes you request and then immediately clock out of that task.
- If you keep all of the minutes, this is the same as just clocking
- out of the current task.
-‘s’
- To keep none of the minutes, use ‘s’ to subtract all the away time
- from the clock, and then check back in from the moment you
- returned.
-‘S’
- To keep none of the minutes and just clock out at the start of the
- away time, use the shift key and press ‘S’. Remember that using
- shift will always leave you clocked out, no matter which option you
- choose.
-‘C’
- To cancel the clock altogether, use ‘C’. Note that if instead of
- canceling you subtract the away time, and the resulting clock
- amount is less than a minute, the clock will still be canceled
- rather than clutter up the log with an empty entry.
-
- What if you subtracted those away minutes from the current clock, and
-now want to apply them to a new clock? Simply clock in to any task
-immediately after the subtraction. Org will notice that you have
-subtracted time “on the books”, so to speak, and will ask if you want to
-apply those minutes to the next task you clock in on.
-
- There is one other instance when this clock resolution magic occurs.
-Say you were clocked in and hacking away, and suddenly your cat chased a
-mouse who scared a hamster that crashed into your UPS’s power button!
-You suddenly lose all your buffers, but thanks to auto-save you still
-have your recent Org mode changes, including your last clock in.
-
- If you restart Emacs and clock into any task, Org will notice that
-you have a dangling clock which was never clocked out from your last
-session. Using that clock’s starting time as the beginning of the
-unaccounted-for period, Org will ask how you want to resolve that time.
-The logic and behavior is identical to dealing with away time due to
-idleness; it is just happening due to a recovery event rather than a set
-amount of idle time.
-
- You can also check all the files visited by your Org agenda for
-dangling clocks at any time using ‘M-x org-resolve-clocks <RET>’ (or
-‘C-c C-x C-z’).
-
-Continuous clocking
-...................
-
-You may want to start clocking from the time when you clocked out the
-previous task. To enable this systematically, set
-‘org-clock-continuously’ to ‘t’. Each time you clock in, Org retrieves
-the clock-out time of the last clocked entry for this session, and start
-the new clock from there.
-
- If you only want this from time to time, use three universal prefix
-arguments with ‘org-clock-in’ and two ‘C-u C-u’ with
-‘org-clock-in-last’.
-
- ---------- Footnotes ----------
-
- (1) On computers using macOS, idleness is based on actual user
-idleness, not just Emacs’ idle time. For X11, you can install a utility
-program ‘x11idle.c’, available in the ‘contrib/scripts’ directory of the
-Org git distribution, or install the ‘xprintidle’ package and set it to
-the variable ‘org-clock-x11idle-program-name’ if you are running Debian,
-to get the same general treatment of idleness. On other systems, idle
-time refers to Emacs idle time only.
-
-
-File: org, Node: Effort estimates, Next: Timers, Prev: Clocking work time, Up: Dates and times
-
-8.5 Effort estimates
-====================
-
-If you want to plan your work in a very detailed way, or if you need to
-produce offers with quotations of the estimated work effort, you may
-want to assign effort estimates to entries. If you are also clocking
-your work, you may later want to compare the planned effort with the
-actual working time, a great way to improve planning estimates. Effort
-estimates are stored in a special property ‘EFFORT’. You can set the
-effort for an entry with the following commands:
-
-‘C-c C-x e (org-set-effort)’
- Set the effort estimate for the current entry. With a numeric
- prefix argument, set it to the Nth allowed value (see below). This
- command is also accessible from the agenda with the ‘e’ key.
-‘C-c C-x C-e (org-clock-modify-effort-estimate)’
- Modify the effort estimate of the item currently being clocked.
-
- Clearly the best way to work with effort estimates is through column
-view (*note Column view::). You should start by setting up discrete
-values for effort estimates, and a ‘COLUMNS’ format that displays these
-values together with clock sums (if you want to clock your time). For a
-specific buffer you can use
-
- #+PROPERTY: Effort_ALL 0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00
- #+COLUMNS: %40ITEM(Task) %17Effort(Estimated Effort){:} %CLOCKSUM
-
-or, even better, you can set up these values globally by customizing the
-variables ‘org-global-properties’ and ‘org-columns-default-format’. In
-particular if you want to use this setup also in the agenda, a global
-setup may be advised.
-
- The way to assign estimates to individual items is then to switch to
-column mode, and to use ‘S-<RIGHT>’ and ‘S-<LEFT>’ to change the value.
-The values you enter will immediately be summed up in the hierarchy. In
-the column next to it, any clocked time will be displayed.
-
- If you switch to column view in the daily/weekly agenda, the effort
-column will summarize the estimated work effort for each day(1), and you
-can use this to find space in your schedule. To get an overview of the
-entire part of the day that is committed, you can set the option
-‘org-agenda-columns-add-appointments-to-effort-sum’. The appointments
-on a day that take place over a specified time interval will then also
-be added to the load estimate of the day.
-
- Effort estimates can be used in secondary agenda filtering that is
-triggered with the ‘/’ key in the agenda (*note Agenda commands::). If
-you have these estimates defined consistently, two or three key presses
-will narrow down the list to stuff that fits into an available time
-slot.
-
- ---------- Footnotes ----------
-
- (1) Please note the pitfalls of summing hierarchical data in a flat
-list (*note Agenda column view::).
-
-
-File: org, Node: Timers, Prev: Effort estimates, Up: Dates and times
-
-8.6 Taking notes with a timer
-=============================
-
-Org provides two types of timers. There is a relative timer that counts
-up, which can be useful when taking notes during, for example, a meeting
-or a video viewing. There is also a countdown timer.
-
- The relative and countdown are started with separate commands.
-
-‘C-c C-x 0 (org-timer-start)’
- Start or reset the relative timer. By default, the timer is set to
- 0. When called with a ‘C-u’ prefix, prompt the user for a starting
- offset. If there is a timer string at point, this is taken as the
- default, providing a convenient way to restart taking notes after a
- break in the process. When called with a double prefix argument
- ‘C-u C-u’, change all timer strings in the active region by a
- certain amount. This can be used to fix timer strings if the timer
- was not started at exactly the right moment.
-‘C-c C-x ; (org-timer-set-timer)’
- Start a countdown timer. The user is prompted for a duration.
- ‘org-timer-default-timer’ sets the default countdown value. Giving
- a numeric prefix argument overrides this default value. This
- command is available as ‘;’ in agenda buffers.
-
- Once started, relative and countdown timers are controlled with the
-same commands.
-
-‘C-c C-x . (org-timer)’
- Insert the value of the current relative or countdown timer into
- the buffer. If no timer is running, the relative timer will be
- started. When called with a prefix argument, the relative timer is
- restarted.
-‘C-c C-x - (org-timer-item)’
- Insert a description list item with the value of the current
- relative or countdown timer. With a prefix argument, first reset
- the relative timer to 0.
-‘M-<RET> (org-insert-heading)’
- Once the timer list is started, you can also use ‘M-<RET>’ to
- insert new timer items.
-‘C-c C-x , (org-timer-pause-or-continue)’
- Pause the timer, or continue it if it is already paused.
-‘C-c C-x _ (org-timer-stop)’
- Stop the timer. After this, you can only start a new timer, not
- continue the old one. This command also removes the timer from the
- mode line.
-
-
-File: org, Node: Capture - Refile - Archive, Next: Agenda views, Prev: Dates and times, Up: Top
-
-9 Capture - Refile - Archive
-****************************
-
-An important part of any organization system is the ability to quickly
-capture new ideas and tasks, and to associate reference material with
-them. Org does this using a process called capture. It also can store
-files related to a task (attachments) in a special directory. Once in
-the system, tasks and projects need to be moved around. Moving
-completed project trees to an archive file keeps the system compact and
-fast.
-
-* Menu:
-
-* Capture:: Capturing new stuff
-* Attachments:: Add files to tasks
-* RSS feeds:: Getting input from RSS feeds
-* Protocols:: External (e.g., Browser) access to Emacs and Org
-* Refile and copy:: Moving/copying a tree from one place to another
-* Archiving:: What to do with finished projects
-
-
-File: org, Node: Capture, Next: Attachments, Up: Capture - Refile - Archive
-
-9.1 Capture
-===========
-
-Capture lets you quickly store notes with little interruption of your
-work flow. Org’s method for capturing new items is heavily inspired by
-John Wiegley excellent ‘remember.el’ package. Up to version 6.36, Org
-used a special setup for ‘remember.el’, then replaced it with
-‘org-remember.el’. As of version 8.0, ‘org-remember.el’ has been
-completely replaced by ‘org-capture.el’.
-
- If your configuration depends on ‘org-remember.el’, you need to
-update it and use the setup described below. To convert your
-‘org-remember-templates’, run the command
- M-x org-capture-import-remember-templates <RET>
-and then customize the new variable with ‘M-x customize-variable
-org-capture-templates’, check the result, and save the customization.
-
-* Menu:
-
-* Setting up capture:: Where notes will be stored
-* Using capture:: Commands to invoke and terminate capture
-* Capture templates:: Define the outline of different note types
-
-
-File: org, Node: Setting up capture, Next: Using capture, Up: Capture
-
-9.1.1 Setting up capture
-------------------------
-
-The following customization sets a default target file for notes, and
-defines a global key(1) for capturing new material.
-
- (setq org-default-notes-file (concat org-directory "/notes.org"))
- (define-key global-map "\C-cc" 'org-capture)
-
- ---------- Footnotes ----------
-
- (1) Please select your own key, ‘C-c c’ is only a suggestion.
-
-
-File: org, Node: Using capture, Next: Capture templates, Prev: Setting up capture, Up: Capture
-
-9.1.2 Using capture
--------------------
-
-‘C-c c (org-capture)’
- Call the command ‘org-capture’. Note that this key binding is
- global and not active by default: you need to install it. If you
- have templates defined *note Capture templates::, it will offer
- these templates for selection or use a new Org outline node as the
- default template. It will insert the template into the target file
- and switch to an indirect buffer narrowed to this new node. You
- may then insert the information you want.
-
-‘C-c C-c (org-capture-finalize)’
- Once you have finished entering information into the capture
- buffer, ‘C-c C-c’ will return you to the window configuration
- before the capture process, so that you can resume your work
- without further distraction. When called with a prefix arg,
- finalize and then jump to the captured item.
-
-‘C-c C-w (org-capture-refile)’
- Finalize the capture process by refiling (*note Refile and copy::)
- the note to a different place. Please realize that this is a
- normal refiling command that will be executed—so the cursor
- position at the moment you run this command is important. If you
- have inserted a tree with a parent and children, first move the
- cursor back to the parent. Any prefix argument given to this
- command will be passed on to the ‘org-refile’ command.
-
-‘C-c C-k (org-capture-kill)’
- Abort the capture process and return to the previous state.
-
- You can also call ‘org-capture’ in a special way from the agenda,
-using the ‘k c’ key combination. With this access, any timestamps
-inserted by the selected capture template will default to the cursor
-date in the agenda, rather than to the current date.
-
- To find the locations of the last stored capture, use ‘org-capture’
-with prefix commands:
-
-‘C-u C-c c’
- Visit the target location of a capture template. You get to select
- the template in the usual way.
-‘C-u C-u C-c c’
- Visit the last stored capture item in its buffer.
-
- You can also jump to the bookmark ‘org-capture-last-stored’, which
-will automatically be created unless you set ‘org-capture-bookmark’ to
-‘nil’.
-
- To insert the capture at point in an Org buffer, call ‘org-capture’
-with a ‘C-0’ prefix argument.
-
-
-File: org, Node: Capture templates, Prev: Using capture, Up: Capture
-
-9.1.3 Capture templates
------------------------
-
-You can use templates for different types of capture items, and for
-different target locations. The easiest way to create such templates is
-through the customize interface.
-
-‘C-c c C’
- Customize the variable ‘org-capture-templates’.
-
- Before we give the formal description of template definitions, let’s
-look at an example. Say you would like to use one template to create
-general TODO entries, and you want to put these entries under the
-heading ‘Tasks’ in your file ‘~/org/gtd.org’. Also, a date tree in the
-file ‘journal.org’ should capture journal entries. A possible
-configuration would look like:
-
- (setq org-capture-templates
- '(("t" "Todo" entry (file+headline "~/org/gtd.org" "Tasks")
- "* TODO %?\n %i\n %a")
- ("j" "Journal" entry (file+olp+datetree "~/org/journal.org")
- "* %?\nEntered on %U\n %i\n %a")))
-
-If you then press ‘C-c c t’, Org will prepare the template for you like
-this:
- * TODO
- [[file:LINK TO WHERE YOU INITIATED CAPTURE]]
-
-During expansion of the template, ‘%a’ has been replaced by a link to
-the location from where you called the capture command. This can be
-extremely useful for deriving tasks from emails, for example. You fill
-in the task definition, press ‘C-c C-c’ and Org returns you to the same
-place where you started the capture process.
-
- To define special keys to capture to a particular template without
-going through the interactive template selection, you can create your
-key binding like this:
-
- (define-key global-map "\C-cx"
- (lambda () (interactive) (org-capture nil "x")))
-
-* Menu:
-
-* Template elements:: What is needed for a complete template entry
-* Template expansion:: Filling in information about time and context
-* Templates in contexts:: Only show a template in a specific context
-
-
-File: org, Node: Template elements, Next: Template expansion, Up: Capture templates
-
-9.1.3.1 Template elements
-.........................
-
-Now lets look at the elements of a template definition. Each entry in
-‘org-capture-templates’ is a list with the following items:
-
-KEYS
- The keys that will select the template, as a string, characters
- only, for example ‘"a"’ for a template to be selected with a single
- key, or ‘"bt"’ for selection with two keys. When using several
- keys, keys using the same prefix key must be sequential in the list
- and preceded by a 2-element entry explaining the prefix key, for
- example
- ("b" "Templates for marking stuff to buy")
- If you do not define a template for the ‘C’ key, this key will be
- used to open the customize buffer for this complex variable.
-
-DESCRIPTION
- A short string describing the template, which will be shown during
- selection.
-
-TYPE
- The type of entry, a symbol. Valid values are:
-
- ‘entry’
- An Org mode node, with a headline. Will be filed as the child
- of the target entry or as a top-level entry. The target file
- should be an Org mode file.
- ‘item’
- A plain list item, placed in the first plain list at the
- target location. Again the target file should be an Org file.
- ‘checkitem’
- A checkbox item. This only differs from the plain list item
- by the default template.
- ‘table-line’
- a new line in the first table at the target location. Where
- exactly the line will be inserted depends on the properties
- ‘:prepend’ and ‘:table-line-pos’ (see below).
- ‘plain’
- Text to be inserted as it is.
-
-TARGET
- Specification of where the captured item should be placed. In Org
- mode files, targets usually define a node. Entries will become
- children of this node. Other types will be added to the table or
- list in the body of this node. Most target specifications contain
- a file name. If that file name is the empty string, it defaults to
- ‘org-default-notes-file’. A file can also be given as a variable
- or as a function called with no argument. When an absolute path is
- not specified for a target, it is taken as relative to
- ‘org-directory’.
-
- Valid values are:
-
- ‘(file "path/to/file")’
- Text will be placed at the beginning or end of that file.
-
- ‘(id "id of existing org entry")’
- Filing as child of this entry, or in the body of the entry.
-
- ‘(file+headline "path/to/file" "node headline")’
- Fast configuration if the target heading is unique in the
- file.
-
- ‘(file+olp "path/to/file" "Level 1 heading" "Level 2" ...)’
- For non-unique headings, the full path is safer.
-
- ‘(file+regexp "path/to/file" "regexp to find location")’
- Use a regular expression to position the cursor.
-
- ‘(file+olp+datetree "path/to/file" [ "Level 1 heading" ....])’
- This target(1) will create a heading in a date tree(2) for
- today’s date. If the optional outline path is given, the tree
- will be built under the node it is pointing to, instead of at
- top level. Check out the ‘:time-prompt’ and ‘:tree-type’
- properties below for additional options.
-
- ‘(file+function "path/to/file" function-finding-location)’
- A function to find the right location in the file.
-
- ‘(clock)’
- File to the entry that is currently being clocked.
-
- ‘(function function-finding-location)’
- Most general way: write your own function which both visits
- the file and moves point to the right location.
-
-TEMPLATE
- The template for creating the capture item. If you leave this
- empty, an appropriate default template will be used. Otherwise
- this is a string with escape codes, which will be replaced
- depending on time and context of the capture call. The string with
- escapes may be loaded from a template file, using the special
- syntax ‘(file "path/to/template")’. See below for more details.
-
-PROPERTIES
- The rest of the entry is a property list of additional options.
- Recognized properties are:
-
- ‘:prepend’
- Normally new captured information will be appended at the
- target location (last child, last table line, last list
- item...). Setting this property will change that.
-
- ‘:immediate-finish’
- When set, do not offer to edit the information, just file it
- away immediately. This makes sense if the template only needs
- information that can be added automatically.
-
- ‘:empty-lines’
- Set this to the number of lines to insert before and after the
- new item. Default 0, only common other value is 1.
-
- ‘:clock-in’
- Start the clock in this item.
-
- ‘:clock-keep’
- Keep the clock running when filing the captured entry.
-
- ‘:clock-resume’
- If starting the capture interrupted a clock, restart that
- clock when finished with the capture. Note that ‘:clock-keep’
- has precedence over ‘:clock-resume’. When setting both to
- ‘t’, the current clock will run and the previous one will not
- be resumed.
-
- ‘:time-prompt’
- Prompt for a date/time to be used for date/week trees and when
- filling the template. Without this property, capture uses the
- current date and time. Even if this property has not been
- set, you can force the same behavior by calling ‘org-capture’
- with a ‘C-1’ prefix argument.
-
- ‘:tree-type’
- When ‘week’, make a week tree instead of the month tree, i.e.
- place the headings for each day under a heading with the
- current iso week.
-
- ‘:unnarrowed’
- Do not narrow the target buffer, simply show the full buffer.
- Default is to narrow it so that you only see the new material.
-
- ‘:table-line-pos’
- Specification of the location in the table where the new line
- should be inserted. It can be a string, a variable holding a
- string or a function returning a string. The string should
- look like ‘"II-3"’ meaning that the new line should become the
- third line before the second horizontal separator line.
-
- ‘:kill-buffer’
- If the target file was not yet visited when capture was
- invoked, kill the buffer again after capture is completed.
-
- ---------- Footnotes ----------
-
- (1) Org used to offer four different targets for date/week tree
-capture. Now, Org automatically translates these to use
-‘file+olp+datetree’, applying the ‘:time-prompt’ and ‘:tree-type’
-properties. Please rewrite your date/week-tree targets using
-‘file+olp+datetree’ since the older targets are now deprecated.
-
- (2) A date tree is an outline structure with years on the highest
-level, months or ISO-weeks as sublevels and then dates on the lowest
-level. Tags are allowed in the tree structure.
-
-
-File: org, Node: Template expansion, Next: Templates in contexts, Prev: Template elements, Up: Capture templates
-
-9.1.3.2 Template expansion
-..........................
-
-In the template itself, special ‘%’-escapes(1) allow dynamic insertion
-of content. The templates are expanded in the order given here:
-
- %[FILE] Insert the contents of the file given by FILE.
- %(SEXP) Evaluate Elisp SEXP and replace with the result.
- For convenience, %:keyword (see below) placeholders
- within the expression will be expanded prior to this.
- The sexp must return a string.
- %<...> The result of format-time-string on the ... format specification.
- %t Timestamp, date only.
- %T Timestamp, with date and time.
- %u, %U Like the above, but inactive timestamps.
- %i Initial content, the region when capture is called while the
- region is active.
- The entire text will be indented like ‘%i’ itself.
- %a Annotation, normally the link created with ‘org-store-link’.
- %A Like ‘%a’, but prompt for the description part.
- %l Like %a, but only insert the literal link.
- %c Current kill ring head.
- %x Content of the X clipboard.
- %k Title of the currently clocked task.
- %K Link to the currently clocked task.
- %n User name (taken from ‘user-full-name’).
- %f File visited by current buffer when org-capture was called.
- %F Full path of the file or directory visited by current buffer.
- %:keyword Specific information for certain link types, see below.
- %^g Prompt for tags, with completion on tags in target file.
- %^G Prompt for tags, with completion all tags in all agenda files.
- %^t Like ‘%t’, but prompt for date. Similarly ‘%^T’, ‘%^u’, ‘%^U’.
- You may define a prompt like ‘%^{Birthday}t’.
- %^C Interactive selection of which kill or clip to use.
- %^L Like ‘%^C’, but insert as link.
- %^{PROP}p Prompt the user for a value for property PROP.
- %^{PROMPT} prompt the user for a string and replace this sequence with it.
- You may specify a default value and a completion table with
- %^{prompt|default|completion2|completion3...}.
- The arrow keys access a prompt-specific history.
- %\1 ... %\N Insert the text entered at the Nth %^{PROMPT}, where ‘N’ is
- a number, starting from 1.(2)
- %? After completing the template, position cursor here.
-
-For specific link types, the following keywords will be defined(3):
-
- Link type | Available keywords
- ---------------------------------+----------------------------------------------
- bbdb | %:name %:company
- irc | %:server %:port %:nick
- vm, vm-imap, wl, mh, mew, rmail, | %:type %:subject %:message-id
- gnus, notmuch | %:from %:fromname %:fromaddress
- | %:to %:toname %:toaddress
- | %:date (message date header field)
- | %:date-timestamp (date as active timestamp)
- | %:date-timestamp-inactive (date as inactive timestamp)
- | %:fromto (either "to NAME" or "from NAME")(4)
- gnus | %:group, for messages also all email fields
- eww, w3, w3m | %:url
- info | %:file %:node
- calendar | %:date
- org-protocol | %:link %:description %:annotation
-
-To place the cursor after template expansion use:
-
- %? After completing the template, position cursor here.
-
- ---------- Footnotes ----------
-
- (1) If you need one of these sequences literally, escape the ‘%’ with
-a backslash.
-
- (2) As required in Emacs Lisp, it is necessary to escape any
-backslash character in a string with another backslash. So, in order to
-use ‘%\1’ placeholder, you need to write ‘%\\1’ in the template.
-
- (3) If you define your own link types (*note Adding hyperlink
-types::), any property you store with ‘org-store-link-props’ can be
-accessed in capture templates in a similar way.
-
- (4) This will always be the other, not the user. See the variable
-‘org-from-is-user-regexp’.
-
-
-File: org, Node: Templates in contexts, Prev: Template expansion, Up: Capture templates
-
-9.1.3.3 Templates in contexts
-.............................
-
-To control whether a capture template should be accessible from a
-specific context, you can customize ‘org-capture-templates-contexts’.
-Let’s say for example that you have a capture template ‘"p"’ for storing
-Gnus emails containing patches. Then you would configure this option
-like this:
-
- (setq org-capture-templates-contexts
- '(("p" (in-mode . "message-mode"))))
-
- You can also tell that the command key ‘"p"’ should refer to another
-template. In that case, add this command key like this:
-
- (setq org-capture-templates-contexts
- '(("p" "q" (in-mode . "message-mode"))))
-
- See the docstring of the variable for more information.
-
-
-File: org, Node: Attachments, Next: RSS feeds, Prev: Capture, Up: Capture - Refile - Archive
-
-9.2 Attachments
-===============
-
-It is often useful to associate reference material with an outline
-node/task. Small chunks of plain text can simply be stored in the
-subtree of a project. Hyperlinks (*note Hyperlinks::) can establish
-associations with files that live elsewhere on your computer or in the
-cloud, like emails or source code files belonging to a project. Another
-method is attachments, which are files located in a directory belonging
-to an outline node. Org uses directories named by the unique ID of each
-entry. These directories are located in the ‘data’ directory which
-lives in the same directory where your Org file lives(1). If you
-initialize this directory with ‘git init’, Org will automatically commit
-changes when it sees them. The attachment system has been contributed
-to Org by John Wiegley.
-
- In cases where it seems better to do so, you can also attach a
-directory of your choice to an entry. You can also make children
-inherit the attachment directory from a parent, so that an entire
-subtree uses the same attached directory.
-
-The following commands deal with attachments:
-
-‘C-c C-a (org-attach)’
- The dispatcher for commands related to the attachment system.
- After these keys, a list of commands is displayed and you must
- press an additional key to select a command:
-
- ‘a (org-attach-attach)’
- Select a file and move it into the task’s attachment
- directory. The file will be copied, moved, or linked,
- depending on ‘org-attach-method’. Note that hard links are
- not supported on all systems.
-
- ‘c/m/l’
- Attach a file using the copy/move/link method. Note that hard
- links are not supported on all systems.
-
- ‘u (org-attach-url)’
- Attach a file from URL
-
- ‘n (org-attach-new)’
- Create a new attachment as an Emacs buffer.
-
- ‘z (org-attach-sync)’
- Synchronize the current task with its attachment directory, in
- case you added attachments yourself.
-
- ‘o (org-attach-open)’
- Open current task’s attachment. If there is more than one,
- prompt for a file name first. Opening will follow the rules
- set by ‘org-file-apps’. For more details, see the information
- on following hyperlinks (*note Handling links::).
-
- ‘O (org-attach-open-in-emacs)’
- Also open the attachment, but force opening the file in Emacs.
-
- ‘f (org-attach-reveal)’
- Open the current task’s attachment directory.
-
- ‘F (org-attach-reveal-in-emacs)’
- Also open the directory, but force using ‘dired’ in Emacs.
-
- ‘d (org-attach-delete-one)’
- Select and delete a single attachment.
-
- ‘D (org-attach-delete-all)’
- Delete all of a task’s attachments. A safer way is to open
- the directory in ‘dired’ and delete from there.
-
- ‘s (org-attach-set-directory)’
- Set a specific directory as the entry’s attachment directory.
- This works by putting the directory path into the ‘ATTACH_DIR’
- property.
-
- ‘i (org-attach-set-inherit)’
- Set the ‘ATTACH_DIR_INHERIT’ property, so that children will
- use the same directory for attachments as the parent does.
-
- ---------- Footnotes ----------
-
- (1) If you move entries or Org files from one directory to another,
-you may want to configure ‘org-attach-directory’ to contain an absolute
-path.
-
-
-File: org, Node: RSS feeds, Next: Protocols, Prev: Attachments, Up: Capture - Refile - Archive
-
-9.3 RSS feeds
-=============
-
-Org can add and change entries based on information found in RSS feeds
-and Atom feeds. You could use this to make a task out of each new
-podcast in a podcast feed. Or you could use a phone-based note-creating
-service on the web to import tasks into Org. To access feeds, configure
-the variable ‘org-feed-alist’. The docstring of this variable has
-detailed information. Here is just an example:
-
- (setq org-feed-alist
- '(("Slashdot"
- "http://rss.slashdot.org/Slashdot/slashdot"
- "~/txt/org/feeds.org" "Slashdot Entries")))
-
-will configure that new items from the feed provided by
-‘rss.slashdot.org’ will result in new entries in the file
-‘~/org/feeds.org’ under the heading ‘Slashdot Entries’, whenever the
-following command is used:
-
-‘C-c C-x g (org-feed-update-all)’
-‘C-c C-x g’
- Collect items from the feeds configured in ‘org-feed-alist’ and act
- upon them.
-‘C-c C-x G (org-feed-goto-inbox)’
- Prompt for a feed name and go to the inbox configured for this
- feed.
-
- Under the same headline, Org will create a drawer ‘FEEDSTATUS’ in
-which it will store information about the status of items in the feed,
-to avoid adding the same item several times.
-
- For more information, including how to read atom feeds, see
-‘org-feed.el’ and the docstring of ‘org-feed-alist’.
-
-
-File: org, Node: Protocols, Next: Refile and copy, Prev: RSS feeds, Up: Capture - Refile - Archive
-
-9.4 Protocols for external access
-=================================
-
-Org protocol is a mean to trigger custom actions in Emacs from external
-applications. Any application that supports calling external programs
-with an URL as argument may be used with this functionality. For
-example, you can configure bookmarks in your web browser to send a link
-to the current page to Org and create a note from it using capture
-(*note Capture::). You can also create a bookmark that tells Emacs to
-open the local source file of a remote website you are browsing.
-
- In order to use Org protocol from an application, you need to
-register ‘org-protocol://’ as a valid scheme-handler. External calls
-are passed to Emacs through the ‘emacsclient’ command, so you also need
-to ensure an Emacs server is running. More precisely, when the
-application calls
-
- emacsclient org-protocol://PROTOCOL?key1=val1&key2=val2
-
-Emacs calls the handler associated to ‘PROTOCOL’ with argument ‘(:key1
-val1 :key2 val2)’.
-
- Org protocol comes with three predefined protocols, detailed in the
-following sections. Configure ‘org-protocol-protocol-alist’ to define
-your own.
-
-* Menu:
-
-* store-link protocol:: Store a link, push URL to kill-ring.
-* capture protocol:: Fill a buffer with external information.
-* open-source protocol:: Edit published contents.
-
-
-File: org, Node: store-link protocol, Next: capture protocol, Up: Protocols
-
-9.4.1 ‘store-link’ protocol
----------------------------
-
-Using ‘store-link’ handler, you can copy links, insertable through ‘M-x
-org-insert-link’ or yanking thereafter. More precisely, the command
-
- emacsclient org-protocol://store-link?url=URL&title=TITLE
-
-stores the following link:
-
- [[URL][TITLE]]
-
- In addition, ‘URL’ is pushed on the kill-ring for yanking. You need
-to encode ‘URL’ and ‘TITLE’ if they contain slashes, and probably quote
-those for the shell.
-
- To use this feature from a browser, add a bookmark with an arbitrary
-name, e.g., ‘Org: store-link’ and enter this as _Location_:
-
- javascript:location.href='org-protocol://store-link?url='+
- encodeURIComponent(location.href);
-
-
-File: org, Node: capture protocol, Next: open-source protocol, Prev: store-link protocol, Up: Protocols
-
-9.4.2 ‘capture’ protocol
-------------------------
-
-Activating ‘capture’ handler pops up a ‘Capture’ buffer and fills the
-capture template associated to the ‘X’ key with them.
-
- emacsclient org-protocol://capture?template=X?url=URL?title=TITLE?body=BODY
-
- To use this feature, add a bookmark with an arbitrary name, e.g.
-‘Org: capture’ and enter this as ‘Location’:
-
- javascript:location.href='org-protocol://capture?template=x'+
- '&url='+encodeURIComponent(window.location.href)+
- '&title='+encodeURIComponent(document.title)+
- '&body='+encodeURIComponent(window.getSelection());
-
- The result depends on the capture template used, which is set in the
-bookmark itself, as in the example above, or in
-‘org-protocol-default-template-key’.
-
- The following template placeholders are available:
-
- %:link The URL
- %:description The webpage title
- %:annotation Equivalent to [[%:link][%:description]]
- %i The selected text
-
-
-File: org, Node: open-source protocol, Prev: capture protocol, Up: Protocols
-
-9.4.3 ‘open-source’ protocol
-----------------------------
-
-The ‘open-source’ handler is designed to help with editing local sources
-when reading a document. To that effect, you can use a bookmark with
-the following location:
-
- javascript:location.href='org-protocol://open-source?&url='+
- encodeURIComponent(location.href)
-
- The variable ‘org-protocol-project-alist’ maps URLs to local file
-names, by stripping URL parameters from the end and replacing the
-‘:base-url’ with ‘:working-directory’ and ‘:online-suffix’ with
-‘:working-suffix’. For example, assuming you own a local copy of
-<https://orgmode.org/worg/> contents at ‘/home/user/worg’, you can set
-‘org-protocol-project-alist’ to the following
-
- (setq org-protocol-project-alist
- '(("Worg"
- :base-url "https://orgmode.org/worg/"
- :working-directory "/home/user/worg/"
- :online-suffix ".html"
- :working-suffix ".org")))
-
-If you are now browsing
-<https://orgmode.org/worg/org-contrib/org-protocol.html> and find a typo
-or have an idea about how to enhance the documentation, simply click the
-bookmark and start editing.
-
- However, such mapping may not yield the desired results. Suppose you
-maintain an online store located at <http://example.com/>. The local
-sources reside in ‘/home/user/example/’. It is common practice to serve
-all products in such a store through one file and rewrite URLs that do
-not match an existing file on the server. That way, a request to
-<http://example.com/print/posters.html> might be rewritten on the server
-to something like
-<http://example.com/shop/products.php/posters.html.php>. The
-‘open-source’ handler probably cannot find a file named
-‘/home/user/example/print/posters.html.php’ and fails.
-
- Such an entry in ‘org-protocol-project-alist’ may hold an additional
-property ‘:rewrites’. This property is a list of cons cells, each of
-which maps a regular expression to a path relative to the
-‘:working-directory’.
-
- Now map the URL to the path ‘/home/user/example/products.php’ by
-adding ‘:rewrites’ rules like this:
-
- (setq org-protocol-project-alist
- '(("example.com"
- :base-url "http://example.com/"
- :working-directory "/home/user/example/"
- :online-suffix ".php"
- :working-suffix ".php"
- :rewrites (("example.com/print/" . "products.php")
- ("example.com/$" . "index.php")))))
-
-Since ‘example.com/$’ is used as a regular expression, it maps
-<http://example.com/>, <https://example.com>, <http://www.example.com/>
-and similar to ‘/home/user/example/index.php’.
-
- The ‘:rewrites’ rules are searched as a last resort if and only if no
-existing file name is matched.
-
- Two functions can help you filling ‘org-protocol-project-alist’ with
-valid contents: ‘org-protocol-create’ and ‘org-protocol-create-for-org’.
-The latter is of use if you’re editing an Org file that is part of a
-publishing project.
-
-
-File: org, Node: Refile and copy, Next: Archiving, Prev: Protocols, Up: Capture - Refile - Archive
-
-9.5 Refile and copy
-===================
-
-When reviewing the captured data, you may want to refile or to copy some
-of the entries into a different list, for example into a project.
-Cutting, finding the right location, and then pasting the note is
-cumbersome. To simplify this process, you can use the following special
-command:
-
-‘C-c M-w (org-copy)’
- Copying works like refiling, except that the original note is not
- deleted.
-‘C-c C-w (org-refile)’
- Refile the entry or region at point. This command offers possible
- locations for refiling the entry and lets you select one with
- completion. The item (or all items in the region) is filed below
- the target heading as a subitem. Depending on
- ‘org-reverse-note-order’, it will be either the first or last
- subitem.
- By default, all level 1 headlines in the current buffer are
- considered to be targets, but you can have more complex definitions
- across a number of files. See the variable ‘org-refile-targets’
- for details. If you would like to select a location via a
- file-path-like completion along the outline path, see the variables
- ‘org-refile-use-outline-path’ and
- ‘org-outline-path-complete-in-steps’. If you would like to be able
- to create new nodes as new parents for refiling on the fly, check
- the variable ‘org-refile-allow-creating-parent-nodes’. When the
- variable ‘org-log-refile’(1) is set, a timestamp or a note will be
- recorded when an entry has been refiled.
-‘C-u C-c C-w’
- Use the refile interface to jump to a heading.
-‘C-u C-u C-c C-w (org-refile-goto-last-stored)’
- Jump to the location where ‘org-refile’ last moved a tree to.
-‘C-2 C-c C-w’
- Refile as the child of the item currently being clocked.
-‘C-3 C-c C-w’
- Refile and keep the entry in place. Also see ‘org-refile-keep’ to
- make this the default behavior, and beware that this may result in
- duplicated ‘ID’ properties.
-‘C-0 C-c C-w or C-u C-u C-u C-c C-w (org-refile-cache-clear)’
- Clear the target cache. Caching of refile targets can be turned on
- by setting ‘org-refile-use-cache’. To make the command see new
- possible targets, you have to clear the cache with this command.
-
- ---------- Footnotes ----------
-
- (1) with corresponding ‘#+STARTUP’ keywords ‘logrefile’,
-‘lognoterefile’, and ‘nologrefile’
-
-
-File: org, Node: Archiving, Prev: Refile and copy, Up: Capture - Refile - Archive
-
-9.6 Archiving
-=============
-
-When a project represented by a (sub)tree is finished, you may want to
-move the tree out of the way and to stop it from contributing to the
-agenda. Archiving is important to keep your working files compact and
-global searches like the construction of agenda views fast.
-
-‘C-c C-x C-a (org-archive-subtree-default)’
- Archive the current entry using the command specified in the
- variable ‘org-archive-default-command’.
-
-* Menu:
-
-* Moving subtrees:: Moving a tree to an archive file
-* Internal archiving:: Switch off a tree but keep it in the file
-
-
-File: org, Node: Moving subtrees, Next: Internal archiving, Up: Archiving
-
-9.6.1 Moving a tree to the archive file
----------------------------------------
-
-The most common archiving action is to move a project tree to another
-file, the archive file.
-
-‘C-c C-x C-s or short C-c $ (org-archive-subtree)’
- Archive the subtree starting at the cursor position to the location
- given by ‘org-archive-location’.
-‘C-u C-c C-x C-s’
- Check if any direct children of the current headline could be moved
- to the archive. To do this, each subtree is checked for open TODO
- entries. If none are found, the command offers to move it to the
- archive location. If the cursor is _not_ on a headline when this
- command is invoked, the level 1 trees will be checked.
-‘C-u C-u C-c C-x C-s’
- As above, but check subtree for timestamps instead of TODO entries.
- The command will offer to archive the subtree if it _does_ contain
- a timestamp, and that timestamp is in the past.
-
- The default archive location is a file in the same directory as the
-current file, with the name derived by appending ‘_archive’ to the
-current file name. You can also choose what heading to file archived
-items under, with the possibility to add them to a datetree in a file.
-For information and examples on how to specify the file and the heading,
-see the documentation string of the variable ‘org-archive-location’.
-
- There is also an in-buffer option for setting this variable, for
-example:
-
- #+ARCHIVE: %s_done::
-
-If you would like to have a special ARCHIVE location for a single entry
-or a (sub)tree, give the entry an ‘:ARCHIVE:’ property with the location
-as the value (*note Properties and columns::).
-
- When a subtree is moved, it receives a number of special properties
-that record context information like the file from where the entry came,
-its outline path the archiving time etc. Configure the variable
-‘org-archive-save-context-info’ to adjust the amount of information
-added.
-
-
-File: org, Node: Internal archiving, Prev: Moving subtrees, Up: Archiving
-
-9.6.2 Internal archiving
-------------------------
-
-If you want to just switch off—for agenda views—certain subtrees without
-moving them to a different file, you can use the archive tag.
-
- A headline that is marked with the ‘:ARCHIVE:’ tag (*note Tags::)
-stays at its location in the outline tree, but behaves in the following
-way:
- − It does not open when you attempt to do so with a visibility
- cycling command (*note Visibility cycling::). You can force
- cycling archived subtrees with ‘C-<TAB>’, or by setting the option
- ‘org-cycle-open-archived-trees’. Also normal outline commands like
- ‘show-all’ will open archived subtrees.
- − During sparse tree construction (*note Sparse trees::), matches in
- archived subtrees are not exposed, unless you configure the option
- ‘org-sparse-tree-open-archived-trees’.
- − During agenda view construction (*note Agenda views::), the content
- of archived trees is ignored unless you configure the option
- ‘org-agenda-skip-archived-trees’, in which case these trees will
- always be included. In the agenda you can press ‘v a’ to get
- archives temporarily included.
- − Archived trees are not exported (*note Exporting::), only the
- headline is. Configure the details using the variable
- ‘org-export-with-archived-trees’.
- − Archived trees are excluded from column view unless the variable
- ‘org-columns-skip-archived-trees’ is configured to ‘nil’.
-
- The following commands help manage the ARCHIVE tag:
-
-‘C-c C-x a (org-toggle-archive-tag)’
- Toggle the ARCHIVE tag for the current headline. When the tag is
- set, the headline changes to a shadowed face, and the subtree below
- it is hidden.
-‘C-u C-c C-x a’
- Check if any direct children of the current headline should be
- archived. To do this, each subtree is checked for open TODO
- entries. If none are found, the command offers to set the ARCHIVE
- tag for the child. If the cursor is _not_ on a headline when this
- command is invoked, the level 1 trees will be checked.
-‘C-<TAB> (org-force-cycle-archived)’
- Cycle a tree even if it is tagged with ARCHIVE.
-‘C-c C-x A (org-archive-to-archive-sibling)’
- Move the current entry to the _Archive Sibling_. This is a sibling
- of the entry with the heading ‘Archive’ and the tag ‘ARCHIVE’. The
- entry becomes a child of that sibling and in this way retains a lot
- of its original context, including inherited tags and approximate
- position in the outline.
-
-
-File: org, Node: Agenda views, Next: Markup, Prev: Capture - Refile - Archive, Up: Top
-
-10 Agenda views
-***************
-
-Due to the way Org works, TODO items, time-stamped items, and tagged
-headlines can be scattered throughout a file or even a number of files.
-To get an overview of open action items, or of events that are important
-for a particular date, this information must be collected, sorted and
-displayed in an organized way.
-
- Org can select items based on various criteria and display them in a
-separate buffer. Six different view types are provided:
-
- • an _agenda_ that is like a calendar and shows information for
- specific dates,
- • a _TODO list_ that covers all unfinished action items,
- • a _match view_, showings headlines based on the tags, properties,
- and TODO state associated with them,
- • a _text search view_ that shows all entries from multiple files
- that contain specified keywords,
- • a _stuck projects view_ showing projects that currently don’t move
- along, and
- • _custom views_ that are special searches and combinations of
- different views.
-
-The extracted information is displayed in a special _agenda buffer_.
-This buffer is read-only, but provides commands to visit the
-corresponding locations in the original Org files, and even to edit
-these files remotely.
-
- By default, the report ignores commented (*note Comment lines::) and
-archived (*note Internal archiving::) entries. You can override this by
-setting ‘org-agenda-skip-comment-trees’ and
-‘org-agenda-skip-archived-trees’ to ‘nil’.
-
- Two variables control how the agenda buffer is displayed and whether
-the window configuration is restored when the agenda exits:
-‘org-agenda-window-setup’ and ‘org-agenda-restore-windows-after-quit’.
-
-* Menu:
-
-* Agenda files:: Files being searched for agenda information
-* Agenda dispatcher:: Keyboard access to agenda views
-* Built-in agenda views:: What is available out of the box?
-* Presentation and sorting:: How agenda items are prepared for display
-* Agenda commands:: Remote editing of Org trees
-* Custom agenda views:: Defining special searches and views
-* Exporting agenda views:: Writing a view to a file
-* Agenda column view:: Using column view for collected entries
-
-
-File: org, Node: Agenda files, Next: Agenda dispatcher, Up: Agenda views
-
-10.1 Agenda files
-=================
-
-The information to be shown is normally collected from all _agenda
-files_, the files listed in the variable ‘org-agenda-files’(1). If a
-directory is part of this list, all files with the extension ‘.org’ in
-this directory will be part of the list.
-
- Thus, even if you only work with a single Org file, that file should
-be put into the list(2). You can customize ‘org-agenda-files’, but the
-easiest way to maintain it is through the following commands
-
-‘C-c [ (org-agenda-file-to-front)’
- Add current file to the list of agenda files. The file is added to
- the front of the list. If it was already in the list, it is moved
- to the front. With a prefix argument, file is added/moved to the
- end.
-‘C-c ] (org-remove-file)’
- Remove current file from the list of agenda files.
-‘C-' (org-cycle-agenda-files)’
-‘C-,’
- Cycle through agenda file list, visiting one file after the other.
-‘M-x org-switchb <RET>’
- Command to use an ‘iswitchb’-like interface to switch to and
- between Org buffers.
-
-The Org menu contains the current list of files and can be used to visit
-any of them.
-
- If you would like to focus the agenda temporarily on a file not in
-this list, or on just one file in the list, or even on only a subtree in
-a file, then this can be done in different ways. For a single agenda
-command, you may press ‘<’ once or several times in the dispatcher
-(*note Agenda dispatcher::). To restrict the agenda scope for an
-extended period, use the following commands:
-
-‘C-c C-x < (org-agenda-set-restriction-lock)’
- Permanently restrict the agenda to the current subtree. When with
- a prefix argument, or with the cursor before the first headline in
- a file, the agenda scope is set to the entire file. This
- restriction remains in effect until removed with ‘C-c C-x >’, or by
- typing either ‘<’ or ‘>’ in the agenda dispatcher. If there is a
- window displaying an agenda view, the new restriction takes effect
- immediately.
-‘C-c C-x > (org-agenda-remove-restriction-lock)’
- Remove the permanent restriction created by ‘C-c C-x <’.
-
-When working with ‘speedbar.el’, you can use the following commands in
-the Speedbar frame:
-
-‘< in the speedbar frame (org-speedbar-set-agenda-restriction)’
- Permanently restrict the agenda to the item—either an Org file or a
- subtree in such a file—at the cursor in the Speedbar frame. If
- there is a window displaying an agenda view, the new restriction
- takes effect immediately.
-‘> in the speedbar frame (org-agenda-remove-restriction-lock)’
- Lift the restriction.
-
- ---------- Footnotes ----------
-
- (1) If the value of that variable is not a list, but a single file
-name, then the list of agenda files will be maintained in that external
-file.
-
- (2) When using the dispatcher, pressing ‘<’ before selecting a
-command will actually limit the command to the current file, and ignore
-‘org-agenda-files’ until the next dispatcher command.
-
-
-File: org, Node: Agenda dispatcher, Next: Built-in agenda views, Prev: Agenda files, Up: Agenda views
-
-10.2 The agenda dispatcher
-==========================
-
-The views are created through a dispatcher, which should be bound to a
-global key—for example ‘C-c a’ (*note Activation::). In the following
-we will assume that ‘C-c a’ is indeed how the dispatcher is accessed and
-list keyboard access to commands accordingly. After pressing ‘C-c a’,
-an additional letter is required to execute a command. The dispatcher
-offers the following default commands:
-
-‘a’
- Create the calendar-like agenda (*note Weekly/daily agenda::).
-‘t / T’
- Create a list of all TODO items (*note Global TODO list::).
-‘m / M’
- Create a list of headlines matching a TAGS expression (*note
- Matching tags and properties::).
-‘s’
- Create a list of entries selected by a boolean expression of
- keywords and/or regular expressions that must or must not occur in
- the entry.
-‘/’
- Search for a regular expression in all agenda files and
- additionally in the files listed in
- ‘org-agenda-text-search-extra-files’. This uses the Emacs command
- ‘multi-occur’. A prefix argument can be used to specify the number
- of context lines for each match, default is 1.
-‘# / !’
- Create a list of stuck projects (*note Stuck projects::).
-‘<’
- Restrict an agenda command to the current buffer(1). After
- pressing ‘<’, you still need to press the character selecting the
- command.
-‘< <’
- If there is an active region, restrict the following agenda command
- to the region. Otherwise, restrict it to the current subtree(2).
- After pressing ‘< <’, you still need to press the character
- selecting the command.
-
-‘*’
- Toggle sticky agenda views. By default, Org maintains only a
- single agenda buffer and rebuilds it each time you change the view,
- to make sure everything is always up to date. If you often switch
- between agenda views and the build time bothers you, you can turn
- on sticky agenda buffers or make this the default by customizing
- the variable ‘org-agenda-sticky’. With sticky agendas, the agenda
- dispatcher will not recreate agenda views from scratch, it will
- only switch to the selected one, and you need to update the agenda
- by hand with ‘r’ or ‘g’ when needed. You can toggle sticky agenda
- view any time with ‘org-toggle-sticky-agenda’.
-
- You can also define custom commands that will be accessible through
-the dispatcher, just like the default commands. This includes the
-possibility to create extended agenda buffers that contain several
-blocks together, for example the weekly agenda, the global TODO list and
-a number of special tags matches. *Note Custom agenda views::.
-
- ---------- Footnotes ----------
-
- (1) For backward compatibility, you can also press ‘1’ to restrict to
-the current buffer.
-
- (2) For backward compatibility, you can also press ‘0’ to restrict to
-the current region/subtree.
-
-
-File: org, Node: Built-in agenda views, Next: Presentation and sorting, Prev: Agenda dispatcher, Up: Agenda views
-
-10.3 The built-in agenda views
-==============================
-
-In this section we describe the built-in views.
-
-* Menu:
-
-* Weekly/daily agenda:: The calendar page with current tasks
-* Global TODO list:: All unfinished action items
-* Matching tags and properties:: Structured information with fine-tuned search
-* Search view:: Find entries by searching for text
-* Stuck projects:: Find projects you need to review
-
-
-File: org, Node: Weekly/daily agenda, Next: Global TODO list, Up: Built-in agenda views
-
-10.3.1 The weekly/daily agenda
-------------------------------
-
-The purpose of the weekly/daily _agenda_ is to act like a page of a
-paper agenda, showing all the tasks for the current week or day.
-
-‘C-c a a (org-agenda-list)’
- Compile an agenda for the current week from a list of Org files.
- The agenda shows the entries for each day. With a numeric
- prefix(1) (like ‘C-u 2 1 C-c a a’) you may set the number of days
- to be displayed.
-
- The default number of days displayed in the agenda is set by the
-variable ‘org-agenda-span’ (or the obsolete ‘org-agenda-ndays’). This
-variable can be set to any number of days you want to see by default in
-the agenda, or to a span name, such as ‘day’, ‘week’, ‘month’ or ‘year’.
-For weekly agendas, the default is to start on the previous monday (see
-‘org-agenda-start-on-weekday’). You can also set the start date using a
-date shift: ‘(setq org-agenda-start-day "+10d")’ will start the agenda
-ten days from today in the future.
-
- Remote editing from the agenda buffer means, for example, that you
-can change the dates of deadlines and appointments from the agenda
-buffer. The commands available in the Agenda buffer are listed in *note
-Agenda commands::.
-
-Calendar/Diary integration
-..........................
-
-Emacs contains the calendar and diary by Edward M. Reingold. The
-calendar displays a three-month calendar with holidays from different
-countries and cultures. The diary allows you to keep track of
-anniversaries, lunar phases, sunrise/set, recurrent appointments
-(weekly, monthly) and more. In this way, it is quite complementary to
-Org. It can be very useful to combine output from Org with the diary.
-
- In order to include entries from the Emacs diary into Org mode’s
-agenda, you only need to customize the variable
-
- (setq org-agenda-include-diary t)
-
-After that, everything will happen automatically. All diary entries
-including holidays, anniversaries, etc., will be included in the agenda
-buffer created by Org mode. <SPC>, <TAB>, and <RET> can be used from
-the agenda buffer to jump to the diary file in order to edit existing
-diary entries. The ‘i’ command to insert new entries for the current
-date works in the agenda buffer, as well as the commands ‘S’, ‘M’, and
-‘C’ to display Sunrise/Sunset times, show lunar phases and to convert to
-other calendars, respectively. ‘c’ can be used to switch back and forth
-between calendar and agenda.
-
- If you are using the diary only for sexp entries and holidays, it is
-faster to not use the above setting, but instead to copy or even move
-the entries into an Org file. Org mode evaluates diary-style sexp
-entries, and does it faster because there is no overhead for first
-creating the diary display. Note that the sexp entries must start at
-the left margin, no whitespace is allowed before them. For example, the
-following segment of an Org file will be processed and entries will be
-made in the agenda:
-
- * Holidays
- :PROPERTIES:
- :CATEGORY: Holiday
- :END:
- %%(org-calendar-holiday) ; special function for holiday names
-
- * Birthdays
- :PROPERTIES:
- :CATEGORY: Ann
- :END:
- %%(org-anniversary 1956 5 14)(2) Arthur Dent is %d years old
- %%(org-anniversary 1869 10 2) Mahatma Gandhi would be %d years old
-
-Anniversaries from BBDB
-.......................
-
-If you are using the Big Brothers Database to store your contacts, you
-will very likely prefer to store anniversaries in BBDB rather than in a
-separate Org or diary file. Org supports this and will show BBDB
-anniversaries as part of the agenda. All you need to do is to add the
-following to one of your agenda files:
-
- * Anniversaries
- :PROPERTIES:
- :CATEGORY: Anniv
- :END:
- %%(org-bbdb-anniversaries)
-
- You can then go ahead and define anniversaries for a BBDB record.
-Basically, you need to press ‘C-o anniversary <RET>’ with the cursor in
-a BBDB record and then add the date in the format ‘YYYY-MM-DD’ or
-‘MM-DD’, followed by a space and the class of the anniversary
-(‘birthday’ or ‘wedding’, or a format string). If you omit the class,
-it will default to ‘birthday’. Here are a few examples, the header for
-the file ‘org-bbdb.el’ contains more detailed information.
-
- 1973-06-22
- 06-22
- 1955-08-02 wedding
- 2008-04-14 %s released version 6.01 of org mode, %d years ago
-
- After a change to BBDB, or for the first agenda display during an
-Emacs session, the agenda display will suffer a short delay as Org
-updates its hash with anniversaries. However, from then on things will
-be very fast—much faster in fact than a long list of
-‘%%(diary-anniversary)’ entries in an Org or Diary file.
-
- If you would like to see upcoming anniversaries with a bit of
-forewarning, you can use the following instead:
-
- * Anniversaries
- :PROPERTIES:
- :CATEGORY: Anniv
- :END:
- %%(org-bbdb-anniversaries-future 3)
-
- That will give you three days’ warning: on the anniversary date
-itself and the two days prior. The argument is optional: if omitted, it
-defaults to 7.
-
-Appointment reminders
-.....................
-
-Org can interact with Emacs appointments notification facility. To add
-the appointments of your agenda files, use the command
-‘org-agenda-to-appt’. This command lets you filter through the list of
-your appointments and add only those belonging to a specific category or
-matching a regular expression. It also reads a ‘APPT_WARNTIME’ property
-which will then override the value of ‘appt-message-warning-time’ for
-this appointment. See the docstring for details.
-
- ---------- Footnotes ----------
-
- (1) For backward compatibility, the universal prefix ‘C-u’ causes all
-TODO entries to be listed before the agenda. This feature is
-deprecated, use the dedicated TODO list, or a block agenda instead
-(*note Block agenda::).
-
- (2) ‘org-anniversary’ is just like ‘diary-anniversary’, but the
-argument order is always according to ISO and therefore independent of
-the value of ‘calendar-date-style’.
-
-
-File: org, Node: Global TODO list, Next: Matching tags and properties, Prev: Weekly/daily agenda, Up: Built-in agenda views
-
-10.3.2 The global TODO list
----------------------------
-
-The global TODO list contains all unfinished TODO items formatted and
-collected into a single place.
-
-‘C-c a t (org-todo-list)’
- Show the global TODO list. This collects the TODO items from all
- agenda files (*note Agenda views::) into a single buffer. By
- default, this lists items with a state the is not a DONE state.
- The buffer is in ‘agenda-mode’, so there are commands to examine
- and manipulate the TODO entries directly from that buffer (*note
- Agenda commands::).
-‘C-c a T (org-todo-list)’
- Like the above, but allows selection of a specific TODO keyword.
- You can also do this by specifying a prefix argument to ‘C-c a t’.
- You are prompted for a keyword, and you may also specify several
- keywords by separating them with ‘|’ as the boolean OR operator.
- With a numeric prefix, the Nth keyword in ‘org-todo-keywords’ is
- selected. The ‘r’ key in the agenda buffer regenerates it, and you
- can give a prefix argument to this command to change the selected
- TODO keyword, for example ‘3 r’. If you often need a search for a
- specific keyword, define a custom command for it (*note Agenda
- dispatcher::).
- Matching specific TODO keywords can also be done as part of a tags
- search (*note Tag searches::).
-
- Remote editing of TODO items means that you can change the state of a
-TODO entry with a single key press. The commands available in the TODO
-list are described in *note Agenda commands::.
-
- Normally the global TODO list simply shows all headlines with TODO
-keywords. This list can become very long. There are two ways to keep
-it more compact:
- − Some people view a TODO item that has been _scheduled_ for
- execution or have a _deadline_ (*note Timestamps::) as no longer
- _open_. Configure the variables
- ‘org-agenda-todo-ignore-scheduled’,
- ‘org-agenda-todo-ignore-deadlines’,
- ‘org-agenda-todo-ignore-timestamp’ and/or
- ‘org-agenda-todo-ignore-with-date’ to exclude such items from the
- global TODO list.
- − TODO items may have sublevels to break up the task into subtasks.
- In such cases it may be enough to list only the highest level TODO
- headline and omit the sublevels from the global list. Configure
- the variable ‘org-agenda-todo-list-sublevels’ to get this behavior.
-
-
-File: org, Node: Matching tags and properties, Next: Search view, Prev: Global TODO list, Up: Built-in agenda views
-
-10.3.3 Matching tags and properties
------------------------------------
-
-If headlines in the agenda files are marked with _tags_ (*note Tags::),
-or have properties (*note Properties and columns::), you can select
-headlines based on this metadata and collect them into an agenda buffer.
-The match syntax described here also applies when creating sparse trees
-with ‘C-c / m’.
-
-‘C-c a m (org-tags-view)’
- Produce a list of all headlines that match a given set of tags.
- The command prompts for a selection criterion, which is a boolean
- logic expression with tags, like ‘+work+urgent-withboss’ or
- ‘work|home’ (*note Tags::). If you often need a specific search,
- define a custom command for it (*note Agenda dispatcher::).
-‘C-c a M (org-tags-view)’
- Like ‘C-c a m’, but only select headlines that are also TODO items
- in a not-DONE state and force checking subitems (see variable
- ‘org-tags-match-list-sublevels’). To exclude scheduled/deadline
- items, see the variable
- ‘org-agenda-tags-todo-honor-ignore-options’. Matching specific
- TODO keywords together with a tags match is also possible, see
- *note Tag searches::.
-
- The commands available in the tags list are described in *note Agenda
-commands::.
-
-Match syntax
-............
-
-A search string can use Boolean operators ‘&’ for ‘AND’ and ‘|’ for
-‘OR’. ‘&’ binds more strongly than ‘|’. Parentheses are not
-implemented. Each element in the search is either a tag, a regular
-expression matching tags, or an expression like ‘PROPERTY OPERATOR
-VALUE’ with a comparison operator, accessing a property value. Each
-element may be preceded by ‘-’, to select against it, and ‘+’ is
-syntactic sugar for positive selection. The ‘AND’ operator ‘&’ is
-optional when ‘+’ or ‘-’ is present. Here are some examples, using only
-tags.
-
-‘work’
- Select headlines tagged ‘:work:’.
-‘work&boss’
- Select headlines tagged ‘:work:’ and ‘:boss:’.
-‘+work-boss’
- Select headlines tagged ‘:work:’, but discard those also tagged
- ‘:boss:’.
-‘work|laptop’
- Selects lines tagged ‘:work:’ or ‘:laptop:’.
-‘work|laptop+night’
- Like before, but require the ‘:laptop:’ lines to be tagged also
- ‘:night:’.
-
- Instead of a tag, you may also specify a regular expression enclosed
-in curly braces. For example, ‘work+{^boss.*}’ matches headlines that
-contain the tag ‘:work:’ and any tag starting with ‘boss’.
-
- Group tags (*note Tag hierarchy::) are expanded as regular
-expressions. E.g., if ‘:work:’ is a group tag for the group
-‘:work:lab:conf:’, then searching for ‘work’ will search for
-‘{\(?:work\|lab\|conf\)}’ and searching for ‘-work’ will search for all
-headlines but those with one of the tags in the group (i.e.,
-‘-{\(?:work\|lab\|conf\)}’).
-
- You may also test for properties (*note Properties and columns::) at
-the same time as matching tags. The properties may be real properties,
-or special properties that represent other metadata (*note Special
-properties::). For example, the “property” ‘TODO’ represents the TODO
-keyword of the entry and the “property” ‘PRIORITY’ represents the
-PRIORITY keyword of the entry.
-
- In addition to the properties mentioned above, ‘LEVEL’ represents the
-level of an entry. So a search ‘+LEVEL=3+boss-TODO="DONE"’ lists all
-level three headlines that have the tag ‘boss’ and are _not_ marked with
-the TODO keyword DONE. In buffers with ‘org-odd-levels-only’ set,
-‘LEVEL’ does not count the number of stars, but ‘LEVEL=2’ will
-correspond to 3 stars etc.
-
- Here are more examples:
-
-‘work+TODO="WAITING"’
- Select ‘:work:’-tagged TODO lines with the specific TODO keyword
- ‘WAITING’.
-‘work+TODO="WAITING"|home+TODO="WAITING"’
- Waiting tasks both at work and at home.
-
- When matching properties, a number of different operators can be used
-to test the value of a property. Here is a complex example:
-
- +work-boss+PRIORITY="A"+Coffee="unlimited"+Effort<2 \
- +With={Sarah\|Denny}+SCHEDULED>="<2008-10-11>"
-
-The type of comparison will depend on how the comparison value is
-written:
- − If the comparison value is a plain number, a numerical comparison
- is done, and the allowed operators are ‘<’, ‘=’, ‘>’, ‘<=’, ‘>=’,
- and ‘<>’.
- − If the comparison value is enclosed in double-quotes, a string
- comparison is done, and the same operators are allowed.
- − If the comparison value is enclosed in double-quotes _and_ angular
- brackets (like ‘DEADLINE<="<2008-12-24 18:30>"’), both values are
- assumed to be date/time specifications in the standard Org way, and
- the comparison will be done accordingly. Special values that will
- be recognized are ‘"<now>"’ for now (including time), and
- ‘"<today>"’, and ‘"<tomorrow>"’ for these days at 00:00 hours,
- i.e., without a time specification. Also strings like ‘"<+5d>"’ or
- ‘"<-2m>"’ with units ‘d’, ‘w’, ‘m’, and ‘y’ for day, week, month,
- and year, respectively, can be used.
- − If the comparison value is enclosed in curly braces, a regexp match
- is performed, with ‘=’ meaning that the regexp matches the property
- value, and ‘<>’ meaning that it does not match.
-
- So the search string in the example finds entries tagged ‘:work:’ but
-not ‘:boss:’, which also have a priority value ‘A’, a ‘:Coffee:’
-property with the value ‘unlimited’, an ‘Effort’ property that is
-numerically smaller than 2, a ‘:With:’ property that is matched by the
-regular expression ‘Sarah\|Denny’, and that are scheduled on or after
-October 11, 2008.
-
- You can configure Org mode to use property inheritance during a
-search, but beware that this can slow down searches considerably. See
-*note Property inheritance::, for details.
-
- For backward compatibility, and also for typing speed, there is also
-a different way to test TODO states in a search. For this, terminate
-the tags/property part of the search string (which may include several
-terms connected with ‘|’) with a ‘/’ and then specify a Boolean
-expression just for TODO keywords. The syntax is then similar to that
-for tags, but should be applied with care: for example, a positive
-selection on several TODO keywords cannot meaningfully be combined with
-boolean AND. However, _negative selection_ combined with AND can be
-meaningful. To make sure that only lines are checked that actually have
-any TODO keyword (resulting in a speed-up), use ‘C-c a M’, or
-equivalently start the TODO part after the slash with ‘!’. Using ‘C-c a
-M’ or ‘/!’ will not match TODO keywords in a DONE state. Examples:
-
-‘work/WAITING’
- Same as ‘work+TODO="WAITING"’
-‘work/!-WAITING-NEXT’
- Select ‘:work:’-tagged TODO lines that are neither ‘WAITING’ nor
- ‘NEXT’
-‘work/!+WAITING|+NEXT’
- Select ‘:work:’-tagged TODO lines that are either ‘WAITING’ or
- ‘NEXT’.
-
-
-File: org, Node: Search view, Next: Stuck projects, Prev: Matching tags and properties, Up: Built-in agenda views
-
-10.3.4 Search view
-------------------
-
-This agenda view is a general text search facility for Org mode entries.
-It is particularly useful to find notes.
-
-‘C-c a s (org-search-view)’
- This is a special search that lets you select entries by matching a
- substring or specific words using a boolean logic.
- For example, the search string ‘computer equipment’ will find entries
-that contain ‘computer equipment’ as a substring. If the two words are
-separated by more space or a line break, the search will still match.
-Search view can also search for specific keywords in the entry, using
-Boolean logic. The search string ‘+computer +wifi -ethernet
--{8\.11[bg]}’ will search for note entries that contain the keywords
-‘computer’ and ‘wifi’, but not the keyword ‘ethernet’, and which are
-also not matched by the regular expression ‘8\.11[bg]’, meaning to
-exclude both 8.11b and 8.11g. The first ‘+’ is necessary to turn on
-word search, other ‘+’ characters are optional. For more details, see
-the docstring of the command ‘org-search-view’.
-
- Note that in addition to the agenda files, this command will also
-search the files listed in ‘org-agenda-text-search-extra-files’.
-
-
-File: org, Node: Stuck projects, Prev: Search view, Up: Built-in agenda views
-
-10.3.5 Stuck projects
----------------------
-
-If you are following a system like David Allen’s GTD to organize your
-work, one of the “duties” you have is a regular review to make sure that
-all projects move along. A _stuck_ project is a project that has no
-defined next actions, so it will never show up in the TODO lists Org
-mode produces. During the review, you need to identify such projects
-and define next actions for them.
-
-‘C-c a # (org-agenda-list-stuck-projects)’
- List projects that are stuck.
-‘C-c a !’
- Customize the variable ‘org-stuck-projects’ to define what a stuck
- project is and how to find it.
-
- You almost certainly will have to configure this view before it will
-work for you. The built-in default assumes that all your projects are
-level-2 headlines, and that a project is not stuck if it has at least
-one entry marked with a TODO keyword TODO or NEXT or NEXTACTION.
-
- Let’s assume that you, in your own way of using Org mode, identify
-projects with a tag PROJECT, and that you use a TODO keyword MAYBE to
-indicate a project that should not be considered yet. Let’s further
-assume that the TODO keyword DONE marks finished projects, and that NEXT
-and TODO indicate next actions. The tag @SHOP indicates shopping and is
-a next action even without the NEXT tag. Finally, if the project
-contains the special word IGNORE anywhere, it should not be listed
-either. In this case you would start by identifying eligible projects
-with a tags/todo match(1) ‘+PROJECT/-MAYBE-DONE’, and then check for
-TODO, NEXT, @SHOP, and IGNORE in the subtree to identify projects that
-are not stuck. The correct customization for this is
-
- (setq org-stuck-projects
- '("+PROJECT/-MAYBE-DONE" ("NEXT" "TODO") ("@SHOP")
- "\\<IGNORE\\>"))
-
- Note that if a project is identified as non-stuck, the subtree of
-this entry will still be searched for stuck projects.
-
- ---------- Footnotes ----------
-
- (1) *Note Tag searches::.
-
-
-File: org, Node: Presentation and sorting, Next: Agenda commands, Prev: Built-in agenda views, Up: Agenda views
-
-10.4 Presentation and sorting
-=============================
-
-Before displaying items in an agenda view, Org mode visually prepares
-the items and sorts them. Each item occupies a single line. The line
-starts with a _prefix_ that contains the _category_ (*note Categories::)
-of the item and other important information. You can customize in which
-column tags will be displayed through ‘org-agenda-tags-column’. You can
-also customize the prefix using the option ‘org-agenda-prefix-format’.
-This prefix is followed by a cleaned-up version of the outline headline
-associated with the item.
-
-* Menu:
-
-* Categories:: Not all tasks are equal
-* Time-of-day specifications:: How the agenda knows the time
-* Sorting agenda items:: The order of things
-* Filtering/limiting agenda items:: Dynamically narrow the agenda
-
-
-File: org, Node: Categories, Next: Time-of-day specifications, Up: Presentation and sorting
-
-10.4.1 Categories
------------------
-
-The category is a broad label assigned to each agenda item. By default,
-the category is simply derived from the file name, but you can also
-specify it with a special line in the buffer, like this:
-
- #+CATEGORY: Thesis
-
-If you would like to have a special ‘CATEGORY’ for a single entry or a
-(sub)tree, give the entry a ‘:CATEGORY:’ property with the special
-category you want to apply as the value.
-
-The display in the agenda buffer looks best if the category is not
-longer than 10 characters.
-
-You can set up icons for category by customizing the
-‘org-agenda-category-icon-alist’ variable.
-
-
-File: org, Node: Time-of-day specifications, Next: Sorting agenda items, Prev: Categories, Up: Presentation and sorting
-
-10.4.2 Time-of-day specifications
----------------------------------
-
-Org mode checks each agenda item for a time-of-day specification. The
-time can be part of the timestamp that triggered inclusion into the
-agenda, for example as in ‘<2005-05-10 Tue 19:00>’. Time ranges can be
-specified with two timestamps, like
-‘<2005-05-10 Tue 20:30>--<2005-05-10 Tue 22:15>’.
-
- In the headline of the entry itself, a time(range) may also appear as
-plain text (like ‘12:45’ or a ‘8:30-1pm’)(1).
-
- If the agenda integrates the Emacs diary (*note Weekly/daily
-agenda::), time specifications in diary entries are recognized as well.
-
- For agenda display, Org mode extracts the time and displays it in a
-standard 24 hour format as part of the prefix. The example times in the
-previous paragraphs would end up in the agenda like this:
-
- 8:30-13:00 Arthur Dent lies in front of the bulldozer
- 12:45...... Ford Prefect arrives and takes Arthur to the pub
- 19:00...... The Vogon reads his poem
- 20:30-22:15 Marvin escorts the Hitchhikers to the bridge
-
- If the agenda is in single-day mode, or for the display of today, the
-timed entries are embedded in a time grid, like
-
- 8:00...... ------------------
- 8:30-13:00 Arthur Dent lies in front of the bulldozer
- 10:00...... ------------------
- 12:00...... ------------------
- 12:45...... Ford Prefect arrives and takes Arthur to the pub
- 14:00...... ------------------
- 16:00...... ------------------
- 18:00...... ------------------
- 19:00...... The Vogon reads his poem
- 20:00...... ------------------
- 20:30-22:15 Marvin escorts the Hitchhikers to the bridge
-
- The time grid can be turned on and off with the variable
-‘org-agenda-use-time-grid’, and can be configured with
-‘org-agenda-time-grid’.
-
- ---------- Footnotes ----------
-
- (1) You can, however, disable this by setting
-‘org-agenda-search-headline-for-time’ variable to a ‘nil’ value.
-
-
-File: org, Node: Sorting agenda items, Next: Filtering/limiting agenda items, Prev: Time-of-day specifications, Up: Presentation and sorting
-
-10.4.3 Sorting agenda items
----------------------------
-
-Before being inserted into a view, the items are sorted. How this is
-done depends on the type of view.
- • For the daily/weekly agenda, the items for each day are sorted.
- The default order is to first collect all items containing an
- explicit time-of-day specification. These entries will be shown at
- the beginning of the list, as a _schedule_ for the day. After
- that, items remain grouped in categories, in the sequence given by
- ‘org-agenda-files’. Within each category, items are sorted by
- priority (*note Priorities::), which is composed of the base
- priority (2000 for priority ‘A’, 1000 for ‘B’, and 0 for ‘C’), plus
- additional increments for overdue scheduled or deadline items.
- • For the TODO list, items remain in the order of categories, but
- within each category, sorting takes place according to priority
- (*note Priorities::). The priority used for sorting derives from
- the priority cookie, with additions depending on how close an item
- is to its due or scheduled date.
- • For tags matches, items are not sorted at all, but just appear in
- the sequence in which they are found in the agenda files.
-
- Sorting can be customized using the variable
-‘org-agenda-sorting-strategy’, and may also include criteria based on
-the estimated effort of an entry (*note Effort estimates::).
-
-
-File: org, Node: Filtering/limiting agenda items, Prev: Sorting agenda items, Up: Presentation and sorting
-
-10.4.4 Filtering/limiting agenda items
---------------------------------------
-
-Agenda built-in or customized commands are statically defined. Agenda
-filters and limits provide two ways of dynamically narrowing down the
-list of agenda entries: _filters_ and _limits_. Filters only act on the
-display of the items, while limits take effect before the list of agenda
-entries is built. Filters are more often used interactively, while
-limits are mostly useful when defined as local variables within custom
-agenda commands.
-
-Filtering in the agenda
-.......................
-
-‘/ (org-agenda-filter-by-tag)’
- Filter the agenda view with respect to a tag and/or effort
- estimates. The difference between this and a custom agenda command
- is that filtering is very fast, so that you can switch quickly
- between different filters without having to recreate the agenda.(1)
-
- You will be prompted for a tag selection letter; <SPC> will mean
- any tag at all. Pressing <TAB> at that prompt will offer use
- completion to select a tag (including any tags that do not have a
- selection character). The command then hides all entries that do
- not contain or inherit this tag. When called with prefix arg,
- remove the entries that _do_ have the tag. A second ‘/’ at the
- prompt will turn off the filter and unhide any hidden entries.
- Pressing ‘+’ or ‘-’ switches between filtering and excluding the
- next tag.
-
- Org also supports automatic, context-aware tag filtering. If the
- variable ‘org-agenda-auto-exclude-function’ is set to a
- user-defined function, that function can decide which tags should
- be excluded from the agenda automatically. Once this is set, the
- ‘/’ command then accepts ‘<RET>’ as a sub-option key and runs the
- auto exclusion logic. For example, let’s say you use a ‘Net’ tag
- to identify tasks which need network access, an ‘Errand’ tag for
- errands in town, and a ‘Call’ tag for making phone calls. You
- could auto-exclude these tags based on the availability of the
- Internet, and outside of business hours, with something like this:
-
- (defun org-my-auto-exclude-function (tag)
- (and (cond
- ((string= tag "Net")
- (/= 0 (call-process "/sbin/ping" nil nil nil
- "-c1" "-q" "-t1" "mail.gnu.org")))
- ((or (string= tag "Errand") (string= tag "Call"))
- (let ((hour (nth 2 (decode-time))))
- (or (< hour 8) (> hour 21)))))
- (concat "-" tag)))
-
- (setq org-agenda-auto-exclude-function 'org-my-auto-exclude-function)
-
-‘[ ] { }’
- in search view
- add new search words (‘[’ and ‘]’) or new regular expressions
- (‘{’ and ‘}’) to the query string. The opening bracket/brace
- will add a positive search term prefixed by ‘+’, indicating
- that this search term must occur/match in the entry. The
- closing bracket/brace will add a negative search term which
- must not occur/match in the entry for it to be selected.
-
-‘< (org-agenda-filter-by-category)’
-
- Filter the current agenda view with respect to the category of the
- item at point. Pressing ‘<’ another time will remove this filter.
- When called with a prefix argument exclude the category of the item
- at point from the agenda.
-
- You can add a filter preset in custom agenda commands through the
- option ‘org-agenda-category-filter-preset’. *Note Setting
- options::.
-
-‘^ (org-agenda-filter-by-top-headline)’
- Filter the current agenda view and only display the siblings and
- the parent headline of the one at point.
-
-‘= (org-agenda-filter-by-regexp)’
-
- Filter the agenda view by a regular expression: only show agenda
- entries matching the regular expression the user entered. When
- called with a prefix argument, it will filter _out_ entries
- matching the regexp. With two universal prefix arguments, it will
- remove all the regexp filters, which can be accumulated.
-
- You can add a filter preset in custom agenda commands through the
- option ‘org-agenda-regexp-filter-preset’. *Note Setting options::.
-
-‘_ (org-agenda-filter-by-effort)’
- Filter the agenda view with respect to effort estimates. You first
- need to set up allowed efforts globally, for example
- (setq org-global-properties
- '(("Effort_ALL". "0 0:10 0:30 1:00 2:00 3:00 4:00")))
- You can then filter for an effort by first typing an operator, one
- of ‘<’, ‘>’, and ‘=’, and then the one-digit index of an effort
- estimate in your array of allowed values, where ‘0’ means the 10th
- value. The filter will then restrict to entries with effort
- smaller-or-equal, equal, or larger-or-equal than the selected
- value. For application of the operator, entries without a defined
- effort will be treated according to the value of
- ‘org-sort-agenda-noeffort-is-high’.
-
- When called with a prefix argument, it will remove entries matching
- the condition. With two universal prefix arguments, it will clear
- effort filters, which can be accumulated.
-
- You can add a filter preset in custom agenda commands through the
- option ‘org-agenda-effort-filter-preset’. *Note Setting options::.
-
-‘| (org-agenda-filter-remove-all)’
- Remove all filters in the current agenda view.
-
-Setting limits for the agenda
-.............................
-
-Here is a list of options that you can set, either globally, or locally
-in your custom agenda views (*note Custom agenda views::).
-
-‘org-agenda-max-entries’
- Limit the number of entries.
-‘org-agenda-max-effort’
- Limit the duration of accumulated efforts (as minutes).
-‘org-agenda-max-todos’
- Limit the number of entries with TODO keywords.
-‘org-agenda-max-tags’
- Limit the number of tagged entries.
-
- When set to a positive integer, each option will exclude entries from
-other categories: for example, ‘(setq org-agenda-max-effort 100)’ will
-limit the agenda to 100 minutes of effort and exclude any entry that has
-no effort property. If you want to include entries with no effort
-property, use a negative value for ‘org-agenda-max-effort’.
-
- One useful setup is to use ‘org-agenda-max-entries’ locally in a
-custom command. For example, this custom command will display the next
-five entries with a ‘NEXT’ TODO keyword.
-
- (setq org-agenda-custom-commands
- '(("n" todo "NEXT"
- ((org-agenda-max-entries 5)))))
-
- Once you mark one of these five entry as ‘DONE’, rebuilding the
-agenda will again the next five entries again, including the first entry
-that was excluded so far.
-
- You can also dynamically set temporary limits, which will be lost
-when rebuilding the agenda:
-
-‘~ (org-agenda-limit-interactively)’
- This prompts for the type of limit to apply and its value.
-
- ---------- Footnotes ----------
-
- (1) Custom commands can preset a filter by binding the variable
-‘org-agenda-tag-filter-preset’ as an option. This filter will then be
-applied to the view and persist as a basic filter through refreshes and
-more secondary filtering. The filter is a global property of the entire
-agenda view—in a block agenda, you should only set this in the global
-options section, not in the section of an individual block.
-
-
-File: org, Node: Agenda commands, Next: Custom agenda views, Prev: Presentation and sorting, Up: Agenda views
-
-10.5 Commands in the agenda buffer
-==================================
-
-Entries in the agenda buffer are linked back to the Org file or diary
-file where they originate. You are not allowed to edit the agenda
-buffer itself, but commands are provided to show and jump to the
-original entry location, and to edit the Org files “remotely” from the
-agenda buffer. In this way, all information is stored only once,
-removing the risk that your agenda and note files may diverge.
-
- Some commands can be executed with mouse clicks on agenda lines. For
-the other commands, the cursor needs to be in the desired line.
-
- Motion
- ......
-
-‘n (org-agenda-next-line)’
- Next line (same as <DOWN> and ‘C-n’).
-‘p (org-agenda-previous-line)’
- Previous line (same as <UP> and ‘C-p’).
-‘N (org-agenda-next-item)’
- Next item: same as next line, but only consider items.
-‘P (org-agenda-previous-item)’
- Previous item: same as previous line, but only consider items.
-
- View/Go to Org file
- ...................
-
-‘<SPC> or mouse-3 (org-agenda-show-and-scroll-up)’
- Display the original location of the item in another window. With
- prefix arg, make sure that drawers stay folded.
-‘L (org-agenda-recenter)’
- Display original location and recenter that window.
-‘<TAB> or mouse-2 (org-agenda-goto)’
- Go to the original location of the item in another window.
-‘<RET> (org-agenda-switch-to)’
- Go to the original location of the item and delete other windows.
-‘F (org-agenda-follow-mode)’
- Toggle Follow mode. In Follow mode, as you move the cursor through
- the agenda buffer, the other window always shows the corresponding
- location in the Org file. The initial setting for this mode in new
- agenda buffers can be set with the variable
- ‘org-agenda-start-with-follow-mode’.
-‘C-c C-x b (org-agenda-tree-to-indirect-buffer)’
- Display the entire subtree of the current item in an indirect
- buffer. With a numeric prefix argument N, go up to level N and
- then take that tree. If N is negative, go up that many levels.
- With a ‘C-u’ prefix, do not remove the previously used indirect
- buffer.
-
-‘C-c C-o (org-agenda-open-link)’
- Follow a link in the entry. This will offer a selection of any
- links in the text belonging to the referenced Org node. If there
- is only one link, it will be followed without a selection prompt.
-
- Change display
- ..............
-
-‘A’
- Interactively select another agenda view and append it to the
- current view.
-‘o’
- Delete other windows.
-‘v d or short d (org-agenda-day-view)’
-‘v w or short w (org-agenda-week-view)’
-‘v t (org-agenda-fortnight-view)’
-‘v m (org-agenda-month-view)’
-‘v y (org-agenda-year-view)’
-‘v <SPC> (org-agenda-reset-view)’
- Switch to day/week/month/year view. When switching to day or week
- view, this setting becomes the default for subsequent agenda
- refreshes. Since month and year views are slow to create, they do
- not become the default. A numeric prefix argument may be used to
- jump directly to a specific day of the year, ISO week, month, or
- year, respectively. For example, ‘32 d’ jumps to February 1st, ‘9
- w’ to ISO week number 9. When setting day, week, or month view, a
- year may be encoded in the prefix argument as well. For example,
- ‘200712 w’ will jump to week 12 in 2007. If such a year
- specification has only one or two digits, it will be mapped to the
- interval 1938–2037. ‘v <SPC>’ will reset to what is set in
- ‘org-agenda-span’.
-‘f (org-agenda-later)’
- Go forward in time to display the following
- ‘org-agenda-current-span’ days. For example, if the display covers
- a week, switch to the following week. With prefix arg, go forward
- that many times ‘org-agenda-current-span’ days.
-‘b (org-agenda-earlier)’
- Go backward in time to display earlier dates.
-‘. (org-agenda-goto-today)’
- Go to today.
-‘j (org-agenda-goto-date)’
- Prompt for a date and go there.
-‘J (org-agenda-clock-goto)’
- Go to the currently clocked-in task in the agenda buffer.
-‘D (org-agenda-toggle-diary)’
- Toggle the inclusion of diary entries. See *note Weekly/daily
- agenda::.
-‘v l or short l (org-agenda-log-mode)’
- Toggle Logbook mode. In Logbook mode, entries that were marked
- DONE while logging was on (variable ‘org-log-done’) are shown in
- the agenda, as are entries that have been clocked on that day. You
- can configure the entry types that should be included in log mode
- using the variable ‘org-agenda-log-mode-items’. When called with a
- ‘C-u’ prefix, show all possible logbook entries, including state
- changes. When called with two prefix arguments ‘C-u C-u’, show
- only logging information, nothing else. ‘v L’ is equivalent to
- ‘C-u v l’.
-‘v [ or short [ (org-agenda-manipulate-query-add)’
- Include inactive timestamps into the current view. Only for
- weekly/daily agenda.
-‘v a (org-agenda-archives-mode)’
-‘v A (org-agenda-archives-mode 'files)’
- Toggle Archives mode. In Archives mode, trees that are marked
- ‘ARCHIVED’ are also scanned when producing the agenda. When you
- use the capital ‘A’, even all archive files are included. To exit
- archives mode, press ‘v a’ again.
-‘v R or short R (org-agenda-clockreport-mode)’
- Toggle Clockreport mode. In Clockreport mode, the daily/weekly
- agenda will always show a table with the clocked times for the time
- span and file scope covered by the current agenda view. The
- initial setting for this mode in new agenda buffers can be set with
- the variable ‘org-agenda-start-with-clockreport-mode’. By using a
- prefix argument when toggling this mode (i.e., ‘C-u R’), the clock
- table will not show contributions from entries that are hidden by
- agenda filtering(1). See also the variable
- ‘org-clock-report-include-clocking-task’.
-‘v c’
- Show overlapping clock entries, clocking gaps, and other clocking
- problems in the current agenda range. You can then visit clocking
- lines and fix them manually. See the variable
- ‘org-agenda-clock-consistency-checks’ for information on how to
- customize the definition of what constituted a clocking problem.
- To return to normal agenda display, press ‘l’ to exit Logbook mode.
-‘v E or short E (org-agenda-entry-text-mode)’
- Toggle entry text mode. In entry text mode, a number of lines from
- the Org outline node referenced by an agenda line will be displayed
- below the line. The maximum number of lines is given by the
- variable ‘org-agenda-entry-text-maxlines’. Calling this command
- with a numeric prefix argument will temporarily modify that number
- to the prefix value.
-‘G (org-agenda-toggle-time-grid)’
- Toggle the time grid on and off. See also the variables
- ‘org-agenda-use-time-grid’ and ‘org-agenda-time-grid’.
-‘r (org-agenda-redo)’
- Recreate the agenda buffer, for example to reflect the changes
- after modification of the timestamps of items with ‘S-<LEFT>’ and
- ‘S-<RIGHT>’. When the buffer is the global TODO list, a prefix
- argument is interpreted to create a selective list for a specific
- TODO keyword.
-‘g (org-agenda-redo)’
- Same as ‘r’.
-‘C-x C-s or short s (org-save-all-org-buffers)’
- Save all Org buffers in the current Emacs session, and also the
- locations of IDs.
-‘C-c C-x C-c (org-agenda-columns)’
- Invoke column view (*note Column view::) in the agenda buffer. The
- column view format is taken from the entry at point, or (if there
- is no entry at point), from the first entry in the agenda view. So
- whatever the format for that entry would be in the original buffer
- (taken from a property, from a ‘#+COLUMNS’ line, or from the
- default variable ‘org-columns-default-format’), will be used in the
- agenda.
-
-‘C-c C-x > (org-agenda-remove-restriction-lock)’
- Remove the restriction lock on the agenda, if it is currently
- restricted to a file or subtree (*note Agenda files::).
-
- Secondary filtering and query editing
- .....................................
-
- For a detailed description of these commands, *note
- Filtering/limiting agenda items::.
-
-‘/ (org-agenda-filter-by-tag)’
- Filter the agenda view with respect to a tag and/or effort
- estimates.
-
-‘< (org-agenda-filter-by-category)’
- Filter the current agenda view with respect to the category of the
- item at point.
-
-‘^ (org-agenda-filter-by-top-headline)’
- Filter the current agenda view and only display the siblings and
- the parent headline of the one at point.
-
-‘= (org-agenda-filter-by-regexp)’
- Filter the agenda view by a regular expression.
-
-‘_ (org-agenda-filter-by-effort)’
- Filter the agenda view with respect to effort estimates.
-
-‘| (org-agenda-filter-remove-all)’
- Remove all filters in the current agenda view.
-
- Remote editing
- ..............
-
-‘0--9’
- Digit argument.
-‘C-_ (org-agenda-undo)’
- Undo a change due to a remote editing command. The change is
- undone both in the agenda buffer and in the remote buffer.
-‘t (org-agenda-todo)’
- Change the TODO state of the item, both in the agenda and in the
- original org file.
-‘C-S-<RIGHT> (org-agenda-todo-nextset)’
-‘C-S-<LEFT> (org-agenda-todo-previousset)’
- Switch to the next/previous set of TODO keywords.
-‘C-k (org-agenda-kill)’
- Delete the current agenda item along with the entire subtree
- belonging to it in the original Org file. If the text to be
- deleted remotely is longer than one line, the kill needs to be
- confirmed by the user. See variable ‘org-agenda-confirm-kill’.
-‘C-c C-w (org-agenda-refile)’
- Refile the entry at point.
-‘C-c C-x C-a or short a (org-agenda-archive-default-with-confirmation)’
- Archive the subtree corresponding to the entry at point using the
- default archiving command set in ‘org-archive-default-command’.
- When using the ‘a’ key, confirmation will be required.
-‘C-c C-x a (org-agenda-toggle-archive-tag)’
- Toggle the ARCHIVE tag for the current headline.
-‘C-c C-x A (org-agenda-archive-to-archive-sibling)’
- Move the subtree corresponding to the current entry to its _archive
- sibling_.
-‘C-c C-x C-s or short $ (org-agenda-archive)’
- Archive the subtree corresponding to the current headline. This
- means the entry will be moved to the configured archive location,
- most likely a different file.
-‘T (org-agenda-show-tags)’
- Show all tags associated with the current item. This is useful if
- you have turned off ‘org-agenda-show-inherited-tags’, but still
- want to see all tags of a headline occasionally.
-‘: (org-agenda-set-tags)’
- Set tags for the current headline. If there is an active region in
- the agenda, change a tag for all headings in the region.
-‘,’
- Set the priority for the current item (‘org-agenda-priority’). Org
- mode prompts for the priority character. If you reply with <SPC>,
- the priority cookie is removed from the entry.
-‘P (org-agenda-show-priority)’
- Display weighted priority of current item.
-‘+ or S-<UP> (org-agenda-priority-up)’
- Increase the priority of the current item. The priority is changed
- in the original buffer, but the agenda is not resorted. Use the
- ‘r’ key for this.
-‘- or S-<DOWN> (org-agenda-priority-down)’
- Decrease the priority of the current item.
-‘z or C-c C-z (org-agenda-add-note)’
- Add a note to the entry. This note will be recorded, and then
- filed to the same location where state change notes are put.
- Depending on ‘org-log-into-drawer’, this may be inside a drawer.
-‘C-c C-a (org-attach)’
- Dispatcher for all command related to attachments.
-‘C-c C-s (org-agenda-schedule)’
- Schedule this item. With prefix arg remove the scheduling
- timestamp
-‘C-c C-d (org-agenda-deadline)’
- Set a deadline for this item. With prefix arg remove the deadline.
-‘S-<RIGHT> (org-agenda-do-date-later)’
- Change the timestamp associated with the current line by one day
- into the future. If the date is in the past, the first call to
- this command will move it to today.
- With a numeric prefix argument, change it by that many days. For
- example, ‘3 6 5 S-<RIGHT>’ will change it by a year. With a ‘C-u’
- prefix, change the time by one hour. If you immediately repeat the
- command, it will continue to change hours even without the prefix
- arg. With a double ‘C-u C-u’ prefix, do the same for changing
- minutes.
- The stamp is changed in the original Org file, but the change is
- not directly reflected in the agenda buffer. Use ‘r’ or ‘g’ to
- update the buffer.
-‘S-<LEFT> (org-agenda-do-date-earlier)’
- Change the timestamp associated with the current line by one day
- into the past.
-‘> (org-agenda-date-prompt)’
- Change the timestamp associated with the current line. The key ‘>’
- has been chosen, because it is the same as ‘S-.’ on my keyboard.
-‘I (org-agenda-clock-in)’
- Start the clock on the current item. If a clock is running
- already, it is stopped first.
-‘O (org-agenda-clock-out)’
- Stop the previously started clock.
-‘X (org-agenda-clock-cancel)’
- Cancel the currently running clock.
-‘J (org-agenda-clock-goto)’
- Jump to the running clock in another window.
-‘k (org-agenda-capture)’
- Like ‘org-capture’, but use the date at point as the default date
- for the capture template. See ‘org-capture-use-agenda-date’ to
- make this the default behavior of ‘org-capture’.
-
- Dragging agenda lines forward/backward
- ......................................
-
-‘M-<up> (org-agenda-drag-line-backward)’
- Drag the line at point backward one line(2). With a numeric prefix
- argument, drag backward by that many lines.
-
-‘M-<down> (org-agenda-drag-line-forward)’
- Drag the line at point forward one line. With a numeric prefix
- argument, drag forward by that many lines.
-
- Bulk remote editing selected entries
- ....................................
-
-‘m (org-agenda-bulk-mark)’
- Mark the entry at point for bulk action. With numeric prefix
- argument, mark that many successive entries.
-‘* (org-agenda-bulk-mark-all)’
- Mark all visible agenda entries for bulk action.
-‘u (org-agenda-bulk-unmark)’
- Unmark entry at point for bulk action.
-‘U (org-agenda-bulk-remove-all-marks)’
- Unmark all marked entries for bulk action.
-‘M-m (org-agenda-bulk-toggle)’
- Toggle mark of the entry at point for bulk action.
-‘M-* (org-agenda-bulk-toggle-all)’
- Toggle marks of all visible entries for bulk action.
-‘% (org-agenda-bulk-mark-regexp)’
- Mark entries matching a regular expression for bulk action.
-‘B (org-agenda-bulk-action)’
- Bulk action: act on all marked entries in the agenda. This will
- prompt for another key to select the action to be applied. The
- prefix arg to ‘B’ will be passed through to the ‘s’ and ‘d’
- commands, to bulk-remove these special timestamps. By default,
- marks are removed after the bulk. If you want them to persist, set
- ‘org-agenda-persistent-marks’ to ‘t’ or hit ‘p’ at the prompt.
-
- ‘*’
- Toggle persistent marks.
- ‘$’
- Archive all selected entries.
- ‘A’
- Archive entries by moving them to their respective archive
- siblings.
- ‘t’
- Change TODO state. This prompts for a single TODO keyword and
- changes the state of all selected entries, bypassing blocking
- and suppressing logging notes (but not timestamps).
- ‘+’
- Add a tag to all selected entries.
- ‘-’
- Remove a tag from all selected entries.
- ‘s’
- Schedule all items to a new date. To shift existing schedule
- dates by a fixed number of days, use something starting with
- double plus at the prompt, for example ‘++8d’ or ‘++2w’.
- ‘d’
- Set deadline to a specific date.
- ‘r’
- Prompt for a single refile target and move all entries. The
- entries will no longer be in the agenda; refresh (‘g’) to
- bring them back.
- ‘S’
- Reschedule randomly into the coming N days. N will be
- prompted for. With prefix arg (‘C-u B S’), scatter only
- across weekdays.
- ‘f’
- Apply a function(3) to marked entries. For example, the
- function below sets the CATEGORY property of the entries to
- web.
-
- (defun set-category ()
- (interactive "P")
- (let* ((marker (or (org-get-at-bol 'org-hd-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker)))
- (with-current-buffer buffer
- (save-excursion
- (save-restriction
- (widen)
- (goto-char marker)
- (org-back-to-heading t)
- (org-set-property "CATEGORY" "web"))))))
-
- Calendar commands
- .................
-
-‘c (org-agenda-goto-calendar)’
- Open the Emacs calendar and move to the date at the agenda cursor.
-‘c (org-calendar-goto-agenda)’
- When in the calendar, compute and show the Org mode agenda for the
- date at the cursor.
-‘i (org-agenda-diary-entry)’
- Insert a new entry into the diary, using the date at the cursor and
- (for block entries) the date at the mark. This will add to the
- Emacs diary file(4), in a way similar to the ‘i’ command in the
- calendar. The diary file will pop up in another window, where you
- can add the entry.
-
- If you configure ‘org-agenda-diary-file’ to point to an Org mode
- file, Org will create entries (in Org mode syntax) in that file
- instead. Most entries will be stored in a date-based outline tree
- that will later make it easy to archive appointments from previous
- months/years. The tree will be built under an entry with a
- ‘DATE_TREE’ property, or else with years as top-level entries.
- Emacs will prompt you for the entry text—if you specify it, the
- entry will be created in ‘org-agenda-diary-file’ without further
- interaction. If you directly press <RET> at the prompt without
- typing text, the target file will be shown in another window for
- you to finish the entry there. See also the ‘k r’ command.
-‘M (org-agenda-phases-of-moon)’
- Show the phases of the moon for the three months around current
- date.
-‘S (org-agenda-sunrise-sunset)’
- Show sunrise and sunset times. The geographical location must be
- set with calendar variables, see the documentation for the Emacs
- calendar.
-‘C (org-agenda-convert-date)’
- Convert the date at cursor into many other cultural and historic
- calendars.
-‘H (org-agenda-holidays)’
- Show holidays for three months around the cursor date.
-
-‘M-x org-icalendar-combine-agenda-files <RET>’
- Export a single iCalendar file containing entries from all agenda
- files. This is a globally available command, and also available in
- the agenda menu.
-
- Exporting to a file
- ...................
-
-‘C-x C-w (org-agenda-write)’
- Write the agenda view to a file. Depending on the extension of the
- selected file name, the view will be exported as HTML (‘.html’ or
- ‘.htm’), Postscript (‘.ps’), PDF (‘.pdf’), Org (‘.org’) and plain
- text (any other extension). When exporting to Org, only the body
- of original headlines are exported, not subtrees or inherited tags.
- When called with a ‘C-u’ prefix argument, immediately open the
- newly created file. Use the variable
- ‘org-agenda-exporter-settings’ to set options for ‘ps-print’ and
- for ‘htmlize’ to be used during export.
-
- Quit and Exit
- .............
-
-‘q (org-agenda-quit)’
- Quit agenda, remove the agenda buffer.
-‘x (org-agenda-exit)’
- Exit agenda, remove the agenda buffer and all buffers loaded by
- Emacs for the compilation of the agenda. Buffers created by the
- user to visit Org files will not be removed.
-
- ---------- Footnotes ----------
-
- (1) Only tags filtering will be respected here, effort filtering is
-ignored.
-
- (2) Moving agenda lines does not persist after an agenda refresh and
-does not modify the contributing ‘.org’ files
-
- (3) You can also create persistent custom functions through
-‘org-agenda-bulk-custom-functions’.
-
- (4) This file is parsed for the agenda when
-‘org-agenda-include-diary’ is set.
-
-
-File: org, Node: Custom agenda views, Next: Exporting agenda views, Prev: Agenda commands, Up: Agenda views
-
-10.6 Custom agenda views
-========================
-
-Custom agenda commands serve two purposes: to store and quickly access
-frequently used TODO and tags searches, and to create special composite
-agenda buffers. Custom agenda commands will be accessible through the
-dispatcher (*note Agenda dispatcher::), just like the default commands.
-
-* Menu:
-
-* Storing searches:: Type once, use often
-* Block agenda:: All the stuff you need in a single buffer
-* Setting options:: Changing the rules
-
-
-File: org, Node: Storing searches, Next: Block agenda, Up: Custom agenda views
-
-10.6.1 Storing searches
------------------------
-
-The first application of custom searches is the definition of keyboard
-shortcuts for frequently used searches, either creating an agenda
-buffer, or a sparse tree (the latter covering of course only the current
-buffer).
-
- Custom commands are configured in the variable
-‘org-agenda-custom-commands’. You can customize this variable, for
-example by pressing ‘C-c a C’. You can also directly set it with Emacs
-Lisp in the Emacs init file. The following example contains all valid
-agenda views:
-
- (setq org-agenda-custom-commands
- '(("x" agenda)
- ("y" agenda*)
- ("w" todo "WAITING")
- ("W" todo-tree "WAITING")
- ("u" tags "+boss-urgent")
- ("v" tags-todo "+boss-urgent")
- ("U" tags-tree "+boss-urgent")
- ("f" occur-tree "\\<FIXME\\>")
- ("h" . "HOME+Name tags searches") ; description for "h" prefix
- ("hl" tags "+home+Lisa")
- ("hp" tags "+home+Peter")
- ("hk" tags "+home+Kim")))
-
-The initial string in each entry defines the keys you have to press
-after the dispatcher command ‘C-c a’ in order to access the command.
-Usually this will be just a single character, but if you have many
-similar commands, you can also define two-letter combinations where the
-first character is the same in several combinations and serves as a
-prefix key(1). The second parameter is the search type, followed by the
-string or regular expression to be used for the matching. The example
-above will therefore define:
-
-‘C-c a x’
- as a global search for agenda entries planned(2) this week/day.
-‘C-c a y’
- as a global search for agenda entries planned this week/day, but
- only those with an hour specification like ‘[h]h:mm’—think of them
- as appointments.
-‘C-c a w’
- as a global search for TODO entries with ‘WAITING’ as the TODO
- keyword
-‘C-c a W’
- as the same search, but only in the current buffer and displaying
- the results as a sparse tree
-‘C-c a u’
- as a global tags search for headlines marked ‘:boss:’ but not
- ‘:urgent:’
-‘C-c a v’
- as the same search as ‘C-c a u’, but limiting the search to
- headlines that are also TODO items
-‘C-c a U’
- as the same search as ‘C-c a u’, but only in the current buffer and
- displaying the result as a sparse tree
-‘C-c a f’
- to create a sparse tree (again: current buffer only) with all
- entries containing the word ‘FIXME’
-‘C-c a h’
- as a prefix command for a HOME tags search where you have to press
- an additional key (‘l’, ‘p’ or ‘k’) to select a name (Lisa, Peter,
- or Kim) as additional tag to match.
-
- Note that the ‘*-tree’ agenda views need to be called from an Org
-buffer as they operate on the current buffer only.
-
- ---------- Footnotes ----------
-
- (1) You can provide a description for a prefix key by inserting a
-cons cell with the prefix and the description.
-
- (2) _Planned_ means here that these entries have some planning
-information attached to them, like a time-stamp, a scheduled or a
-deadline string. See ‘org-agenda-entry-types’ on how to set what
-planning information will be taken into account.
-
-
-File: org, Node: Block agenda, Next: Setting options, Prev: Storing searches, Up: Custom agenda views
-
-10.6.2 Block agenda
--------------------
-
-Another possibility is the construction of agenda views that comprise
-the results of _several_ commands, each of which creates a block in the
-agenda buffer. The available commands include ‘agenda’ for the daily or
-weekly agenda (as created with ‘C-c a a’), ‘alltodo’ for the global TODO
-list (as constructed with ‘C-c a t’), and the matching commands
-discussed above: ‘todo’, ‘tags’, and ‘tags-todo’. Here are two
-examples:
-
- (setq org-agenda-custom-commands
- '(("h" "Agenda and Home-related tasks"
- ((agenda "")
- (tags-todo "home")
- (tags "garden")))
- ("o" "Agenda and Office-related tasks"
- ((agenda "")
- (tags-todo "work")
- (tags "office")))))
-
-This will define ‘C-c a h’ to create a multi-block view for stuff you
-need to attend to at home. The resulting agenda buffer will contain
-your agenda for the current week, all TODO items that carry the tag
-‘home’, and also all lines tagged with ‘garden’. Finally the command
-‘C-c a o’ provides a similar view for office tasks.
-
-
-File: org, Node: Setting options, Prev: Block agenda, Up: Custom agenda views
-
-10.6.3 Setting options for custom commands
-------------------------------------------
-
-Org mode contains a number of variables regulating agenda construction
-and display. The global variables define the behavior for all agenda
-commands, including the custom commands. However, if you want to change
-some settings just for a single custom view, you can do so. Setting
-options requires inserting a list of variable names and values at the
-right spot in ‘org-agenda-custom-commands’. For example:
-
- (setq org-agenda-custom-commands
- '(("w" todo "WAITING"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("U" tags-tree "+boss-urgent"
- ((org-show-context-detail 'minimal)))
- ("N" search ""
- ((org-agenda-files '("~org/notes.org"))
- (org-agenda-text-search-extra-files nil)))))
-
-Now the ‘C-c a w’ command will sort the collected entries only by
-priority, and the prefix format is modified to just say ‘ Mixed: ’
-instead of giving the category of the entry. The sparse tags tree of
-‘C-c a U’ will now turn out ultra-compact, because neither the headline
-hierarchy above the match, nor the headline following the match will be
-shown. The command ‘C-c a N’ will do a text search limited to only a
-single file.
-
- For command sets creating a block agenda,
-‘org-agenda-custom-commands’ has two separate spots for setting options.
-You can add options that should be valid for just a single command in
-the set, and options that should be valid for all commands in the set.
-The former are just added to the command entry; the latter must come
-after the list of command entries. Going back to the block agenda
-example (*note Block agenda::), let’s change the sorting strategy for
-the ‘C-c a h’ commands to ‘priority-down’, but let’s sort the results
-for GARDEN tags query in the opposite order, ‘priority-up’. This would
-look like this:
-
- (setq org-agenda-custom-commands
- '(("h" "Agenda and Home-related tasks"
- ((agenda)
- (tags-todo "home")
- (tags "garden"
- ((org-agenda-sorting-strategy '(priority-up)))))
- ((org-agenda-sorting-strategy '(priority-down))))
- ("o" "Agenda and Office-related tasks"
- ((agenda)
- (tags-todo "work")
- (tags "office")))))
-
- As you see, the values and parentheses setting is a little complex.
-When in doubt, use the customize interface to set this variable—it fully
-supports its structure. Just one caveat: when setting options in this
-interface, the _values_ are just Lisp expressions. So if the value is a
-string, you need to add the double-quotes around the value yourself.
-
- To control whether an agenda command should be accessible from a
-specific context, you can customize
-‘org-agenda-custom-commands-contexts’. Let’s say for example that you
-have an agenda command ‘"o"’ displaying a view that you only need when
-reading emails. Then you would configure this option like this:
-
- (setq org-agenda-custom-commands-contexts
- '(("o" (in-mode . "message-mode"))))
-
- You can also tell that the command key ‘"o"’ should refer to another
-command key ‘"r"’. In that case, add this command key like this:
-
- (setq org-agenda-custom-commands-contexts
- '(("o" "r" (in-mode . "message-mode"))))
-
- See the docstring of the variable for more information.
-
-
-File: org, Node: Exporting agenda views, Next: Agenda column view, Prev: Custom agenda views, Up: Agenda views
-
-10.7 Exporting agenda views
-===========================
-
-If you are away from your computer, it can be very useful to have a
-printed version of some agenda views to carry around. Org mode can
-export custom agenda views as plain text, HTML(1), Postscript, PDF(2),
-and iCalendar files. If you want to do this only occasionally, use the
-command
-
-‘C-x C-w (org-agenda-write)’
- Write the agenda view to a file. Depending on the extension of the
- selected file name, the view will be exported as HTML (extension
- ‘.html’ or ‘.htm’), Postscript (extension ‘.ps’), iCalendar
- (extension ‘.ics’), or plain text (any other extension). Use the
- variable ‘org-agenda-exporter-settings’ to set options for
- ‘ps-print’ and for ‘htmlize’ to be used during export, for example
-
- (setq org-agenda-exporter-settings
- '((ps-number-of-columns 2)
- (ps-landscape-mode t)
- (org-agenda-add-entry-text-maxlines 5)
- (htmlize-output-type 'css)))
-
- If you need to export certain agenda views frequently, you can
-associate any custom agenda command with a list of output file names
-(3). Here is an example that first defines custom commands for the
-agenda and the global TODO list, together with a number of files to
-which to export them. Then we define two block agenda commands and
-specify file names for them as well. File names can be relative to the
-current working directory, or absolute.
-
- (setq org-agenda-custom-commands
- '(("X" agenda "" nil ("agenda.html" "agenda.ps"))
- ("Y" alltodo "" nil ("todo.html" "todo.txt" "todo.ps"))
- ("h" "Agenda and Home-related tasks"
- ((agenda "")
- (tags-todo "home")
- (tags "garden"))
- nil
- ("~/views/home.html"))
- ("o" "Agenda and Office-related tasks"
- ((agenda)
- (tags-todo "work")
- (tags "office"))
- nil
- ("~/views/office.ps" "~/calendars/office.ics"))))
-
- The extension of the file name determines the type of export. If it
-is ‘.html’, Org mode will try to use the ‘htmlize.el’ package to convert
-the buffer to HTML and save it to this file name. If the extension is
-‘.ps’, ‘ps-print-buffer-with-faces’ is used to produce Postscript
-output. If the extension is ‘.ics’, iCalendar export is run export over
-all files that were used to construct the agenda, and limit the export
-to entries listed in the agenda. Any other extension produces a plain
-ASCII file.
-
- The export files are _not_ created when you use one of those commands
-interactively because this might use too much overhead. Instead, there
-is a special command to produce _all_ specified files in one step:
-
-‘C-c a e (org-store-agenda-views)’
- Export all agenda views that have export file names associated with
- them.
-
- You can use the options section of the custom agenda commands to also
-set options for the export commands. For example:
-
- (setq org-agenda-custom-commands
- '(("X" agenda ""
- ((ps-number-of-columns 2)
- (ps-landscape-mode t)
- (org-agenda-prefix-format " [ ] ")
- (org-agenda-with-colors nil)
- (org-agenda-remove-tags t))
- ("theagenda.ps"))))
-
-This command sets two options for the Postscript exporter, to make it
-print in two columns in landscape format—the resulting page can be cut
-in two and then used in a paper agenda. The remaining settings modify
-the agenda prefix to omit category and scheduling information, and
-instead include a checkbox to check off items. We also remove the tags
-to make the lines compact, and we don’t want to use colors for the
-black-and-white printer. Settings specified in
-‘org-agenda-exporter-settings’ will also apply, but the settings in
-‘org-agenda-custom-commands’ take precedence.
-
-From the command line you may also use
- emacs -eval (org-batch-store-agenda-views) -kill
-or, if you need to modify some parameters(4)
- emacs -eval '(org-batch-store-agenda-views \
- org-agenda-span (quote month) \
- org-agenda-start-day "2007-11-01" \
- org-agenda-include-diary nil \
- org-agenda-files (quote ("~/org/project.org")))' \
- -kill
-which will create the agenda views restricted to the file
-‘~/org/project.org’, without diary entries and with a 30-day extent.
-
- You can also extract agenda information in a way that allows further
-processing by other programs. See *note Extracting agenda
-information::, for more information.
-
- ---------- Footnotes ----------
-
- (1) You need to install ‘htmlize.el’ from Hrvoje Niksic’s repository.
-(https://github.com/hniksic/emacs-htmlize)
-
- (2) To create PDF output, the ghostscript ‘ps2pdf’ utility must be
-installed on the system. Selecting a PDF file will also create the
-postscript file.
-
- (3) If you want to store standard views like the weekly agenda or the
-global TODO list as well, you need to define custom commands for them in
-order to be able to specify file names.
-
- (4) Quoting depends on the system you use, please check the FAQ for
-examples.
-
-
-File: org, Node: Agenda column view, Prev: Exporting agenda views, Up: Agenda views
-
-10.8 Using column view in the agenda
-====================================
-
-Column view (*note Column view::) is normally used to view and edit
-properties embedded in the hierarchical structure of an Org file. It
-can be quite useful to use column view also from the agenda, where
-entries are collected by certain criteria.
-
-‘C-c C-x C-c (org-agenda-columns)’
- Turn on column view in the agenda.
-
- To understand how to use this properly, it is important to realize
-that the entries in the agenda are no longer in their proper outline
-environment. This causes the following issues:
-
- 1. Org needs to make a decision which ‘COLUMNS’ format to use. Since
- the entries in the agenda are collected from different files, and
- different files may have different ‘COLUMNS’ formats, this is a
- non-trivial problem. Org first checks if the variable
- ‘org-agenda-overriding-columns-format’ is currently set, and if so,
- takes the format from there. Otherwise it takes the format
- associated with the first item in the agenda, or, if that item does
- not have a specific format—defined in a property, or in its file—it
- uses ‘org-columns-default-format’.
-
- 2. If any of the columns has a summary type defined (*note Column
- attributes::), turning on column view in the agenda will visit all
- relevant agenda files and make sure that the computations of this
- property are up to date. This is also true for the special
- ‘CLOCKSUM’ property. Org will then sum the values displayed in the
- agenda. In the daily/weekly agenda, the sums will cover a single
- day; in all other views they cover the entire block. It is vital
- to realize that the agenda may show the same entry _twice_—for
- example as scheduled and as a deadline—and it may show two entries
- from the same hierarchy—for example a _parent_ and its _child_. In
- these cases, the summation in the agenda will lead to incorrect
- results because some values will count double.
-
- 3. When the column view in the agenda shows the ‘CLOCKSUM’, that is
- always the entire clocked time for this item. So even in the
- daily/weekly agenda, the clocksum listed in column view may
- originate from times outside the current view. This has the
- advantage that you can compare these values with a column listing
- the planned total effort for a task—one of the major applications
- for column view in the agenda. If you want information about
- clocked time in the displayed period use clock table mode (press
- ‘R’ in the agenda).
-
- 4. When the column view in the agenda shows the ‘CLOCKSUM_T’, that is
- always today’s clocked time for this item. So even in the weekly
- agenda, the clocksum listed in column view only originates from
- today. This lets you compare the time you spent on a task for
- today, with the time already spent —via ‘CLOCKSUM’—and with the
- planned total effort for it.
-
-
-File: org, Node: Markup, Next: Exporting, Prev: Agenda views, Up: Top
-
-11 Markup for rich export
-*************************
-
-When exporting Org mode documents, the exporter tries to reflect the
-structure of the document as accurately as possible in the back-end.
-Since export targets like HTML and LaTeX allow much richer formatting,
-Org mode has rules on how to prepare text for rich export. This section
-summarizes the markup rules used in an Org mode buffer.
-
-* Menu:
-
-* Paragraphs:: The basic unit of text
-* Emphasis and monospace:: Bold, italic, etc.
-* Horizontal rules:: Make a line
-* Images and tables:: Images, tables and caption mechanism
-* Literal examples:: Source code examples with special formatting
-* Special symbols:: Greek letters and other symbols
-* Subscripts and superscripts:: Simple syntax for raising/lowering text
-* Embedded LaTeX:: LaTeX can be freely used inside Org documents
-
-
-File: org, Node: Paragraphs, Next: Emphasis and monospace, Up: Markup
-
-11.1 Paragraphs, line breaks, and quoting
-=========================================
-
-Paragraphs are separated by at least one empty line. If you need to
-enforce a line break within a paragraph, use ‘\\’ at the end of a line.
-
- To preserve the line breaks, indentation and blank lines in a region,
-but otherwise use normal formatting, you can use this construct, which
-can also be used to format poetry.
-
- #+BEGIN_VERSE
- Great clouds overhead
- Tiny black birds rise and fall
- Snow covers Emacs
-
- -- AlexSchroeder
- #+END_VERSE
-
- When quoting a passage from another document, it is customary to
-format this as a paragraph that is indented on both the left and the
-right margin. You can include quotations in Org mode documents like
-this:
-
- #+BEGIN_QUOTE
- Everything should be made as simple as possible,
- but not any simpler -- Albert Einstein
- #+END_QUOTE
-
- If you would like to center some text, do it like this:
- #+BEGIN_CENTER
- Everything should be made as simple as possible, \\
- but not any simpler
- #+END_CENTER
-
-
-File: org, Node: Emphasis and monospace, Next: Horizontal rules, Prev: Paragraphs, Up: Markup
-
-11.2 Emphasis and monospace
-===========================
-
-You can make words *bold*, /italic/, _underlined_, ‘=verbatim=’ and
-‘~code~’, and, if you must, ‘+strike-through+’. Text in the code and
-verbatim string is not processed for Org mode specific syntax, it is
-exported verbatim.
-
- To turn off fontification for marked up text, you can set
-‘org-fontify-emphasized-text’ to ‘nil’. To narrow down the list of
-available markup syntax, you can customize ‘org-emphasis-alist’. To
-fine tune what characters are allowed before and after the markup
-characters, you can tweak ‘org-emphasis-regexp-components’. Beware that
-changing one of the above variables will not take effect until you
-reload Org, for which you may need to restart Emacs.
-
-
-File: org, Node: Horizontal rules, Next: Images and tables, Prev: Emphasis and monospace, Up: Markup
-
-11.3 Horizontal rules
-=====================
-
-A line consisting of only dashes, and at least 5 of them, will be
-exported as a horizontal line.
-
-
-File: org, Node: Images and tables, Next: Literal examples, Prev: Horizontal rules, Up: Markup
-
-11.4 Images and Tables
-======================
-
-Both the native Org mode tables (*note Tables::) and tables formatted
-with the ‘table.el’ package will be exported properly. For Org mode
-tables, the lines before the first horizontal separator line will become
-table header lines. You can use the following lines somewhere before
-the table to assign a caption and a label for cross references, and in
-the text you can refer to the object with ‘[[tab:basic-data]]’ (*note
-Internal links::):
-
- #+CAPTION: This is the caption for the next table (or link)
- #+NAME: tab:basic-data
- | ... | ...|
- |-----|----|
-
- Optionally, the caption can take the form:
- #+CAPTION[Caption for list of tables]: Caption for table.
-
- Some back-ends allow you to directly include images into the exported
-document. Org does this, if a link to an image files does not have a
-description part, for example ‘[[./img/a.jpg]]’. If you wish to define
-a caption for the image and maybe a label for internal cross references,
-make sure that the link is on a line by itself and precede it with
-‘#+CAPTION’ and ‘#+NAME’ as follows:
-
- #+CAPTION: This is the caption for the next figure link (or table)
- #+NAME: fig:SED-HR4049
- [[./img/a.jpg]]
-
-Such images can be displayed within the buffer. *Note the discussion of
-image links: Handling links.
-
- Even though images and tables are prominent examples of captioned
-structures, the same caption mechanism can apply to many others (e.g.,
-LaTeX equations, source code blocks). Depending on the export back-end,
-those may or may not be handled.
-
-
-File: org, Node: Literal examples, Next: Special symbols, Prev: Images and tables, Up: Markup
-
-11.5 Literal examples
-=====================
-
-You can include literal examples that should not be subjected to markup.
-Such examples will be typeset in monospace, so this is well suited for
-source code and similar examples.
-
- #+BEGIN_EXAMPLE
- Some example from a text file.
- #+END_EXAMPLE
-
- Note that such blocks may be indented in order to align nicely with
-indented text and in particular with plain list structure (*note Plain
-lists::). For simplicity when using small examples, you can also start
-the example lines with a colon followed by a space. There may also be
-additional whitespace before the colon:
-
- Here is an example
- : Some example from a text file.
-
- If the example is source code from a programming language, or any
-other text that can be marked up by font-lock in Emacs, you can ask for
-the example to look like the fontified Emacs buffer(1). This is done
-with the ‘src’ block, where you also need to specify the name of the
-major mode that should be used to fontify the example(2), see *note Easy
-templates:: for shortcuts to easily insert code blocks.
-
- #+BEGIN_SRC emacs-lisp
- (defun org-xor (a b)
- "Exclusive or."
- (if a (not b) b))
- #+END_SRC
-
- Both in ‘example’ and in ‘src’ snippets, you can add a ‘-n’ switch to
-the end of the ‘BEGIN’ line, to get the lines of the example numbered.
-The ‘-n’ takes an optional numeric argument specifying the starting line
-number of the block. If you use a ‘+n’ switch, the numbering from the
-previous numbered snippet will be continued in the current one. The
-‘+n’ can also take a numeric argument. The value of the argument will
-be added to the last line of the previous block to determine the
-starting line number.
-
- #+BEGIN_SRC emacs-lisp -n 20
- ;; this will export with line number 20
- (message "This is line 21")
- #+END_SRC
- #+BEGIN_SRC emacs-lisp +n 10
- ;; This will be listed as line 31
- (message "This is line 32")
- #+END_SRC
-
- In literal examples, Org will interpret strings like ‘(ref:name)’ as
-labels, and use them as targets for special hyperlinks like ‘[[(name)]]’
-(i.e., the reference name enclosed in single parenthesis). In HTML,
-hovering the mouse over such a link will remote-highlight the
-corresponding code line, which is kind of cool.
-
- You can also add a ‘-r’ switch which removes the labels from the
-source code(3). With the ‘-n’ switch, links to these references will be
-labeled by the line numbers from the code listing, otherwise links will
-use the labels with no parentheses. Here is an example:
-
- #+BEGIN_SRC emacs-lisp -n -r
- (save-excursion (ref:sc)
- (goto-char (point-min))) (ref:jump)
- #+END_SRC
- In line [[(sc)]] we remember the current position. [[(jump)][Line (jump)]]
- jumps to point-min.
-
- Finally, you can use ‘-i’ to preserve the indentation of a specific
-code block (*note Editing source code::).
-
- If the syntax for the label format conflicts with the language
-syntax, use a ‘-l’ switch to change the format, for example ‘#+BEGIN_SRC
-pascal -n -r -l "((%s))"’. See also the variable
-‘org-coderef-label-format’.
-
- HTML export also allows examples to be published as text areas (*note
-Text areas in HTML export::).
-
- Because the ‘#+BEGIN_...’ and ‘#+END_...’ patterns need to be added
-so often, shortcuts are provided using the Easy templates facility
-(*note Easy templates::).
-
-‘C-c '’
- Edit the source code example at point in its native mode. This
- works by switching to a temporary buffer with the source code. You
- need to exit by pressing ‘C-c '’ again(4). The edited version will
- then replace the old version in the Org buffer. Fixed-width
- regions (where each line starts with a colon followed by a space)
- will be edited using ‘artist-mode’(5) to allow creating ASCII
- drawings easily. Using this command in an empty line will create a
- new fixed-width region.
-‘C-c l’
- Calling ‘org-store-link’ while editing a source code example in a
- temporary buffer created with ‘C-c '’ will prompt for a label.
- Make sure that it is unique in the current buffer, and insert it
- with the proper formatting like ‘(ref:label)’ at the end of the
- current line. Then the label is stored as a link ‘(label)’, for
- retrieval with ‘C-c C-l’.
-
- ---------- Footnotes ----------
-
- (1) This works automatically for the HTML back-end (it requires
-version 1.34 of the ‘htmlize.el’ package, which you need to install).
-Fontified code chunks in LaTeX can be achieved using either the
-<https://www.ctan.org/tex-archive/macros/latex/contrib/listings/?lang=en>
-or the <https://github.com/gpoore/minted> package. If you use minted or
-listing, you must load the packages manually, for example by adding the
-desired package to ‘org-latex-packages-alist’. Refer to
-‘org-latex-listings’ for details.
-
- (2) Code in ‘src’ blocks may also be evaluated either interactively
-or on export. *Note Working with source code::, for more information on
-evaluating code blocks.
-
- (3) Adding ‘-k’ to ‘-n -r’ will keep the labels in the source code
-while using line numbers for the links, which might be useful to explain
-those in an Org mode example code.
-
- (4) Upon exit, lines starting with ‘*’, ‘,*’, ‘#+’ and ‘,#+’ will get
-a comma prepended, to keep them from being interpreted by Org as outline
-nodes or special syntax. These commas will be stripped for editing with
-‘C-c '’, and also for export.
-
- (5) You may select a different-mode with the variable
-‘org-edit-fixed-width-region-mode’.
-
-
-File: org, Node: Special symbols, Next: Subscripts and superscripts, Prev: Literal examples, Up: Markup
-
-11.6 Special symbols
-====================
-
-You can use LaTeX-like syntax to insert special symbols—named
-entities—like ‘\alpha’ to indicate the Greek letter, or ‘\to’ to
-indicate an arrow. Completion for these symbols is available, just type
-‘\’ and maybe a few letters, and press ‘M-<TAB>’ to see possible
-completions. If you need such a symbol inside a word, terminate it with
-a pair of curly brackets. For example
-
- Pro tip: Given a circle \Gamma of diameter d, the length of its circumference
- is \pi{}d.
-
- A large number of entities is provided, with names taken from both
-HTML and LaTeX; you can comfortably browse the complete list from a
-dedicated buffer using the command ‘org-entities-help’. It is also
-possible to provide your own special symbols in the variable
-‘org-entities-user’.
-
- During export, these symbols are transformed into the native format
-of the exporter back-end. Strings like ‘\alpha’ are exported as
-‘α’ in the HTML output, and as ‘\(\alpha\)’ in the LaTeX output.
-Similarly, ‘\nbsp’ becomes ‘ ’ in HTML and ‘~’ in LaTeX.
-
- Entities may also be used as a may to escape markup in an Org
-document, e.g., ‘\under{}not underlined\under’ exports as ‘_not
-underlined_’.
-
- If you would like to see entities displayed as UTF-8 characters, use
-the following command(1):
-
-‘C-c C-x \’
- Toggle display of entities as UTF-8 characters. This does not
- change the buffer content which remains plain ASCII, but it
- overlays the UTF-8 character for display purposes only.
-
- In addition to regular entities defined above, Org exports in a
-special way(2) the following commonly used character combinations: ‘\-’
-is treated as a shy hyphen, ‘--’ and ‘---’ are converted into dashes,
-and ‘...’ becomes a compact set of dots.
-
- ---------- Footnotes ----------
-
- (1) You can turn this on by default by setting the variable
-‘org-pretty-entities’, or on a per-file base with the ‘#+STARTUP’ option
-‘entitiespretty’.
-
- (2) This behavior can be disabled with ‘-’ export setting (*note
-Export settings::).
-
-
-File: org, Node: Subscripts and superscripts, Next: Embedded LaTeX, Prev: Special symbols, Up: Markup
-
-11.7 Subscripts and superscripts
-================================
-
-‘^’ and ‘_’ are used to indicate super- and subscripts. To increase the
-readability of ASCII text, it is not necessary—but OK—to surround
-multi-character sub- and superscripts with curly braces. Those are,
-however, mandatory, when more than one word is involved. For example
-
- The radius of the sun is R_sun = 6.96 x 10^8 m. On the other hand, the
- radius of Alpha Centauri is R_{Alpha Centauri} = 1.28 x R_{sun}.
-
- If you write a text where the underscore is often used in a different
-context, Org’s convention to always interpret these as subscripts can
-get in your way. Configure the variable ‘org-use-sub-superscripts’ to
-change this convention. For example, when setting this variable to
-‘{}’, ‘a_b’ will not be interpreted as a subscript, but ‘a_{b}’ will.
-
-‘C-c C-x \’
- In addition to showing entities as UTF-8 characters, this command
- will also format sub- and superscripts in a WYSIWYM way.
-
-
-File: org, Node: Embedded LaTeX, Prev: Subscripts and superscripts, Up: Markup
-
-11.8 Embedded LaTeX
-===================
-
-Plain ASCII is normally sufficient for almost all note taking.
-Exceptions include scientific notes, which often require mathematical
-symbols and the occasional formula. LaTeX(1) is widely used to typeset
-scientific documents. Org mode supports embedding LaTeX code into its
-files, because many academics are used to writing and reading LaTeX
-source code, and because it can be readily processed to produce pretty
-output for a number of export back-ends.
-
-* Menu:
-
-* LaTeX fragments:: Complex formulas made easy
-* Previewing LaTeX fragments:: What will this snippet look like?
-* CDLaTeX mode:: Speed up entering of formulas
-
- ---------- Footnotes ----------
-
- (1) LaTeX is a macro system based on Donald E. Knuth’s TeX system.
-Many of the features described here as “LaTeX” are really from TeX, but
-for simplicity I am blurring this distinction.
-
-
-File: org, Node: LaTeX fragments, Next: Previewing LaTeX fragments, Up: Embedded LaTeX
-
-11.8.1 LaTeX fragments
-----------------------
-
-Org mode can contain LaTeX math fragments, and it supports ways to
-process these for several export back-ends. When exporting to LaTeX,
-the code is left as it is. When exporting to HTML, Org can use either
-MathJax (http://www.mathjax.org) (*note Math formatting in HTML
-export::) or transcode the math into images (see *note Previewing LaTeX
-fragments::).
-
- LaTeX fragments don’t need any special marking at all. The following
-snippets will be identified as LaTeX source code:
- • Environments of any kind(1). The only requirement is that the
- ‘\begin’ statement appears on a new line, at the beginning of the
- line or after whitespaces only.
- • Text within the usual LaTeX math delimiters. To avoid conflicts
- with currency specifications, single ‘$’ characters are only
- recognized as math delimiters if the enclosed text contains at most
- two line breaks, is directly attached to the ‘$’ characters with no
- whitespace in between, and if the closing ‘$’ is followed by
- whitespace or punctuation (parentheses and quotes are considered to
- be punctuation in this context). For the other delimiters, there
- is no such restriction, so when in doubt, use ‘\(...\)’ as inline
- math delimiters.
-
-For example:
-
- \begin{equation}
- x=\sqrt{b}
- \end{equation}
-
- If $a^2=b$ and \( b=2 \), then the solution must be
- either $$ a=+\sqrt{2} $$ or \[ a=-\sqrt{2} \].
-
- LaTeX processing can be configured with the variable
-‘org-export-with-latex’. The default setting is ‘t’ which means MathJax
-for HTML, and no processing for ASCII and LaTeX back-ends. You can also
-set this variable on a per-file basis using one of these lines:
-
- #+OPTIONS: tex:t Do the right thing automatically (MathJax)
- #+OPTIONS: tex:nil Do not process LaTeX fragments at all
- #+OPTIONS: tex:verbatim Verbatim export, for jsMath or so
-
- ---------- Footnotes ----------
-
- (1) When MathJax is used, only the environments recognized by MathJax
-will be processed. When ‘dvipng’ program, ‘dvisvgm’ program or
-‘imagemagick’ suite is used to create images, any LaTeX environment will
-be handled.
-
-
-File: org, Node: Previewing LaTeX fragments, Next: CDLaTeX mode, Prev: LaTeX fragments, Up: Embedded LaTeX
-
-11.8.2 Previewing LaTeX fragments
----------------------------------
-
-If you have a working LaTeX installation and ‘dvipng’, ‘dvisvgm’ or
-‘convert’ installed(1), LaTeX fragments can be processed to produce
-images of the typeset expressions to be used for inclusion while
-exporting to HTML (see *note LaTeX fragments::), or for inline
-previewing within Org mode.
-
- You can customize the variables ‘org-format-latex-options’ and
-‘org-format-latex-header’ to influence some aspects of the preview. In
-particular, the ‘:scale’ (and for HTML export, ‘:html-scale’) property
-of the former can be used to adjust the size of the preview images.
-
-‘C-c C-x C-l’
- Produce a preview image of the LaTeX fragment at point and overlay
- it over the source code. If there is no fragment at point, process
- all fragments in the current entry (between two headlines). When
- called with a prefix argument, process the entire subtree. When
- called with two prefix arguments, or when the cursor is before the
- first headline, process the entire buffer.
-‘C-c C-c’
- Remove the overlay preview images.
-
- You can turn on the previewing of all LaTeX fragments in a file with
-
- #+STARTUP: latexpreview
-
- To disable it, simply use
-
- #+STARTUP: nolatexpreview
-
- ---------- Footnotes ----------
-
- (1) These are respectively available at
-<http://sourceforge.net/projects/dvipng/>, <http://dvisvgm.bplaced.net/>
-and from the ‘imagemagick’ suite. Choose the converter by setting the
-variable ‘org-preview-latex-default-process’ accordingly.
-
-
-File: org, Node: CDLaTeX mode, Prev: Previewing LaTeX fragments, Up: Embedded LaTeX
-
-11.8.3 Using CDLaTeX to enter math
-----------------------------------
-
-CDLaTeX mode is a minor mode that is normally used in combination with a
-major LaTeX mode like AUCTeX in order to speed-up insertion of
-environments and math templates. Inside Org mode, you can make use of
-some of the features of CDLaTeX mode. You need to install ‘cdlatex.el’
-and ‘texmathp.el’ (the latter comes also with AUCTeX) from
-<https://staff.fnwi.uva.nl/c.dominik/Tools/cdlatex>. Don’t use CDLaTeX
-mode itself under Org mode, but use the light version ‘org-cdlatex-mode’
-that comes as part of Org mode. Turn it on for the current buffer with
-‘M-x org-cdlatex-mode <RET>’, or for all Org files with
-
- (add-hook 'org-mode-hook 'turn-on-org-cdlatex)
-
- When this mode is enabled, the following features are present (for
-more details see the documentation of CDLaTeX mode):
- • Environment templates can be inserted with ‘C-c {’.
- • The <TAB> key will do template expansion if the cursor is inside a
- LaTeX fragment(1). For example, <TAB> will expand ‘fr’ to
- ‘\frac{}{}’ and position the cursor correctly inside the first
- brace. Another <TAB> will get you into the second brace. Even
- outside fragments, <TAB> will expand environment abbreviations at
- the beginning of a line. For example, if you write ‘equ’ at the
- beginning of a line and press <TAB>, this abbreviation will be
- expanded to an ‘equation’ environment. To get a list of all
- abbreviations, type ‘M-x cdlatex-command-help <RET>’.
- • Pressing ‘_’ and ‘^’ inside a LaTeX fragment will insert these
- characters together with a pair of braces. If you use <TAB> to
- move out of the braces, and if the braces surround only a single
- character or macro, they are removed again (depending on the
- variable ‘cdlatex-simplify-sub-super-scripts’).
- • Pressing the grave accent ‘`’ followed by a character inserts math
- macros, also outside LaTeX fragments. If you wait more than 1.5
- seconds after the grave accent, a help window will pop up.
- • Pressing the apostrophe ‘'’ followed by another character modifies
- the symbol before point with an accent or a font. If you wait more
- than 1.5 seconds after the apostrophe, a help window will pop up.
- Character modification will work only inside LaTeX fragments;
- outside the quote is normal.
-
- ---------- Footnotes ----------
-
- (1) Org mode has a method to test if the cursor is inside such a
-fragment, see the documentation of the function
-‘org-inside-LaTeX-fragment-p’.
-
-
-File: org, Node: Exporting, Next: Publishing, Prev: Markup, Up: Top
-
-12 Exporting
-************
-
-Sometimes, you may want to pretty print your notes, publish them on the
-web or even share them with people not using Org. In these cases, the
-Org export facilities can be used to convert your documents to a variety
-of other formats, while retaining as much structure (*note Document
-structure::) and markup (*note Markup::) as possible.
-
- Libraries responsible for such translation are called back-ends. Org
-ships with the following ones
-
- • ascii (ASCII format)
- • beamer (LaTeX Beamer format)
- • html (HTML format)
- • icalendar (iCalendar format)
- • latex (LaTeX format)
- • md (Markdown format)
- • odt (OpenDocument Text format)
- • org (Org format)
- • texinfo (Texinfo format)
- • man (Man page format)
-
-Org also uses additional libraries located in ‘contrib/’ directory
-(*note Installation::). Users can install additional export libraries
-for additional formats from the Emacs packaging system. For easy
-discovery, these packages have a common naming scheme: ‘ox-NAME’, where
-NAME is one of the formats. For example, ‘ox-koma-letter’ for
-‘koma-letter’ back-end.
-
- Org loads back-ends for the following formats by default: ‘ascii’,
-‘html’, ‘icalendar’, ‘latex’ and ‘odt’.
-
- Org can load additional back-ends either of two ways: through the
-‘org-export-backends’ variable configuration; or, by requiring the
-library in the Emacs init file like this:
-
- (require 'ox-md)
-
-* Menu:
-
-* The export dispatcher:: The main interface
-* Export settings:: Common export settings
-* Table of contents:: The if and where of the table of contents
-* Include files:: Include additional files into a document
-* Macro replacement:: Use macros to create templates
-* Comment lines:: What will not be exported
-* ASCII/Latin-1/UTF-8 export:: Exporting to flat files with encoding
-* Beamer export:: Exporting as a Beamer presentation
-* HTML export:: Exporting to HTML
-* LaTeX export:: Exporting to LaTeX, and processing to PDF
-* Markdown export:: Exporting to Markdown
-* OpenDocument Text export:: Exporting to OpenDocument Text
-* Org export:: Exporting to Org
-* Texinfo export:: Exporting to Texinfo
-* iCalendar export:: Exporting to iCalendar
-* Other built-in back-ends:: Exporting to a man page
-* Advanced configuration:: Fine-tuning the export output
-* Export in foreign buffers:: Author tables and lists in Org syntax
-
-
-File: org, Node: The export dispatcher, Next: Export settings, Up: Exporting
-
-12.1 The export dispatcher
-==========================
-
-The export dispatcher is the main interface for Org’s exports. A
-hierarchical menu presents the currently configured export formats.
-Options are shown as easy toggle switches on the same screen.
-
- Org also has a minimal prompt interface for the export dispatcher.
-When the variable ‘org-export-dispatch-use-expert-ui’ is set to a
-non-‘nil’ value, Org prompts in the minibuffer. To switch back to the
-hierarchical menu, press <?>.
-
-‘C-c C-e’ (‘org-export-dispatch’)
-
- Invokes the export dispatcher interface. The options show default
- settings. The ‘C-u’ prefix argument preserves options from the
- previous export, including any sub-tree selections.
-
- Org exports the entire buffer by default. If the Org buffer has an
-active region, then Org exports just that region.
-
- These are the export options, the key combinations that toggle them
-(*note Export settings::):
-
-‘C-a’
- Toggles asynchronous export. Asynchronous export uses an external
- Emacs process with a specially configured initialization file to
- complete the exporting process in the background thereby releasing
- the current interface. This is particularly useful when exporting
- long documents.
-
- Output from an asynchronous export is saved on the “the export
- stack”. To view this stack, call the export dispatcher with a
- double ‘C-u’ prefix argument. If already in the export dispatcher
- menu, ‘&’ displays the stack.
-
- To make the background export process the default, customize the
- variable, ‘org-export-in-background’.
-
-‘C-b’
- Toggle body-only export. Useful for excluding headers and footers
- in the export. Affects only those back-end formats that have such
- sections—like ‘<head>...</head>’ in HTML.
-
-‘C-s’
- Toggle sub-tree export. When turned on, Org exports only the
- sub-tree starting from the cursor position at the time the export
- dispatcher was invoked. Org uses the top heading of this sub-tree
- as the document’s title. If the cursor is not on a heading, Org
- uses the nearest enclosing header. If the cursor is in the
- document preamble, Org signals an error and aborts export.
-
- To make the sub-tree export the default, customize the variable,
- ‘org-export-initial-scope’.
-
-‘C-v’
- Toggle visible-only export. Useful for exporting only visible
- parts of an Org document by adjusting outline visibility settings.
-
-
-File: org, Node: Export settings, Next: Table of contents, Prev: The export dispatcher, Up: Exporting
-
-12.2 Export settings
-====================
-
-Export options can be set: globally with variables; for an individual
-file by making variables buffer-local with in-buffer settings (*note
-In-buffer settings::), by setting individual keywords, or by specifying
-them in a compact form with the ‘#+OPTIONS’ keyword; or for a tree by
-setting properties (*note Properties and columns::). Options set at a
-specific level override options set at a more general level.
-
- In-buffer settings may appear anywhere in the file, either directly
-or indirectly through a file included using ‘#+SETUPFILE: filename or
-URL’ syntax. Option keyword sets tailored to a particular back-end can
-be inserted from the export dispatcher (*note The export dispatcher::)
-using the ‘Insert template’ command by pressing ‘#’. To insert keywords
-individually, a good way to make sure the keyword is correct is to type
-‘#+’ and then to use ‘M-<TAB>’(1) for completion.
-
- The export keywords available for every back-end, and their
-equivalent global variables, include:
-
-‘AUTHOR’
- The document author (‘user-full-name’).
-
-‘CREATOR’
- Entity responsible for output generation
- (‘org-export-creator-string’).
-
-‘DATE’
- A date or a time-stamp(2).
-
-‘EMAIL’
- The email address (‘user-mail-address’).
-
-‘LANGUAGE’
- Language to use for translating certain strings
- (‘org-export-default-language’). With ‘#+LANGUAGE: fr’, for
- example, Org translates _Table of contents_ to the French _Table
- des matières_.
-
-‘SELECT_TAGS’
- The default value is ‘:export:’. When a tree is tagged with
- ‘:export:’ (‘org-export-select-tags’), Org selects that tree and
- its sub-trees for export. Org excludes trees with ‘:noexport:’
- tags, see below. When selectively exporting files with ‘:export:’
- tags set, Org does not export any text that appears before the
- first headline.
-
-‘EXCLUDE_TAGS’
- The default value is ‘:noexport:’. When a tree is tagged with
- ‘:noexport:’ (‘org-export-exclude-tags’), Org excludes that tree
- and its sub-trees from export. Entries tagged with ‘:noexport:’
- will be unconditionally excluded from the export, even if they have
- an ‘:export:’ tag. Even if a sub-tree is not exported, Org will
- execute any code blocks contained in them.
-
-‘TITLE’
- Org displays this title. For long titles, use multiple ‘#+TITLE’
- lines.
-
-‘EXPORT_FILE_NAME’
- The name of the output file to be generated. Otherwise, Org
- generates the file name based on the buffer name and the extension
- based on the back-end format.
-
- The ‘#+OPTIONS’ keyword is a compact form. To configure multiple
-options, use several ‘#+OPTIONS’ lines. ‘#+OPTIONS’ recognizes the
-following arguments.
-
-‘':’
- Toggle smart quotes (‘org-export-with-smart-quotes’). Depending on
- the language used, when activated, Org treats pairs of double
- quotes as primary quotes, pairs of single quotes as secondary
- quotes, and single quote marks as apostrophes.
-
-‘*:’
- Toggle emphasized text (‘org-export-with-emphasize’).
-
-‘-:’
- Toggle conversion of special strings
- (‘org-export-with-special-strings’).
-
-‘::’
- Toggle fixed-width sections (‘org-export-with-fixed-width’).
-
-‘<:’
- Toggle inclusion of time/date active/inactive stamps
- (‘org-export-with-timestamps’).
-
-‘\n:’
- Toggles whether to preserve line breaks
- (‘org-export-preserve-breaks’).
-
-‘^:’
- Toggle TeX-like syntax for sub- and superscripts. If you write
- "^:{}", ‘a_{b}’ will be interpreted, but the simple ‘a_b’ will be
- left as it is (‘org-export-with-sub-superscripts’).
-
-‘arch:’
- Configure how archived trees are exported. When set to ‘headline’,
- the export process skips the contents and processes only the
- headlines (‘org-export-with-archived-trees’).
-
-‘author:’
- Toggle inclusion of author name into exported file
- (‘org-export-with-author’).
-
-‘broken-links:’
- Toggles if Org should continue exporting upon finding a broken
- internal link. When set to ‘mark’, Org clearly marks the problem
- link in the output (‘org-export-with-broken-links’).
-
-‘c:’
- Toggle inclusion of CLOCK keywords (‘org-export-with-clocks’).
-
-‘creator:’
- Toggle inclusion of creator information in the exported file
- (‘org-export-with-creator’).
-
-‘d:’
- Toggles inclusion of drawers, or list of drawers to include, or
- list of drawers to exclude (‘org-export-with-drawers’).
-
-‘date:’
- Toggle inclusion of a date into exported file
- (‘org-export-with-date’).
-
-‘e:’
- Toggle inclusion of entities (‘org-export-with-entities’).
-
-‘email:’
- Toggle inclusion of the author’s e-mail into exported file
- (‘org-export-with-email’).
-
-‘f:’
- Toggle the inclusion of footnotes (‘org-export-with-footnotes’).
-
-‘H:’
- Set the number of headline levels for export
- (‘org-export-headline-levels’). Below that level, headlines are
- treated differently. In most back-ends, they become list items.
-
-‘inline:’
- Toggle inclusion of inlinetasks (‘org-export-with-inlinetasks’).
-
-‘num:’
- Toggle section-numbers (‘org-export-with-section-numbers’). When
- set to number ‘n’, Org numbers only those headlines at level ‘n’ or
- above. Setting ‘UNNUMBERED’ property to non-‘nil’ disables
- numbering of a heading. Since subheadings inherit from this
- property, it affects their numbering, too.
-
-‘p:’
- Toggle export of planning information (‘org-export-with-planning’).
- “Planning information” comes from lines located right after the
- headline and contain any combination of these cookies:
- ‘SCHEDULED:’, ‘DEADLINE:’, or ‘CLOSED:’.
-
-‘pri:’
- Toggle inclusion of priority cookies (‘org-export-with-priority’).
-
-‘prop:’
- Toggle inclusion of property drawers, or list the properties to
- include (‘org-export-with-properties’).
-
-‘stat:’
- Toggle inclusion of statistics cookies
- (‘org-export-with-statistics-cookies’).
-
-‘tags:’
- Toggle inclusion of tags, may also be ‘not-in-toc’
- (‘org-export-with-tags’).
-
-‘tasks:’
- Toggle inclusion of tasks (TODO items); or ‘nil’ to remove all
- tasks; or ‘todo’ to remove DONE tasks; or list the keywords to keep
- (‘org-export-with-tasks’).
-
-‘tex:’
- ‘nil’ does not export; ‘t’ exports; ‘verbatim’ keeps everything in
- verbatim (‘org-export-with-latex’).
-
-‘timestamp:’
- Toggle inclusion of the creation time in the exported file
- (‘org-export-time-stamp-file’).
-
-‘title:’
- Toggle inclusion of title (‘org-export-with-title’).
-
-‘toc:’
- Toggle inclusion of the table of contents, or set the level limit
- (‘org-export-with-toc’).
-
-‘todo:’
- Toggle inclusion of TODO keywords into exported text
- (‘org-export-with-todo-keywords’).
-
-‘|:’
- Toggle inclusion of tables (‘org-export-with-tables’).
-
- When exporting sub-trees, special node properties in them can
-override the above keywords. They are special because they have an
-‘EXPORT_’ prefix. For example, ‘DATE’ and ‘EXPORT_FILE_NAME’ keywords
-become, respectively, ‘EXPORT_DATE’ and ‘EXPORT_FILE_NAME’. Except for
-‘SETUPFILE’, all other keywords listed above have an ‘EXPORT_’
-equivalent.
-
- If ‘org-export-allow-bind-keywords’ is non-‘nil’, Emacs variables can
-become buffer-local during export by using the BIND keyword. Its syntax
-is ‘#+BIND: variable value’. This is particularly useful for in-buffer
-settings that cannot be changed using keywords.
-
- ---------- Footnotes ----------
-
- (1) Many desktops intercept ‘M-<TAB>’ to switch windows. Use ‘C-M-i’
-or ‘<ESC> <TAB>’ instead.
-
- (2) The variable ‘org-export-date-timestamp-format’ defines how this
-time-stamp will be exported.
-
-
-File: org, Node: Table of contents, Next: Include files, Prev: Export settings, Up: Exporting
-
-12.3 Table of contents
-======================
-
-Org normally inserts the table of contents directly before the first
-headline of the file. Org sets the TOC depth the same as the headline
-levels in the file. Use a lower number for lower TOC depth. To turn
-off TOC entirely, use ‘nil’. This is configured in the
-‘org-export-with-toc’ variable or as keywords in an Org file as:
-
- #+OPTIONS: toc:2 only include two levels in TOC
- #+OPTIONS: toc:nil no default TOC at all
-
- To move the table of contents to a different location, first turn off
-the default with ‘org-export-with-toc’ variable or with ‘#+OPTIONS:
-toc:nil’. Then insert ‘#+TOC: headlines N’ at the desired location(s).
-
- #+OPTIONS: toc:nil no default TOC
- ...
- #+TOC: headlines 2 insert TOC here, with two headline levels
-
- To adjust the TOC depth for a specific section of the Org document,
-append an additional ‘local’ parameter. This parameter becomes a
-relative depth for the current level.
-
- Note that for this feature to work properly in LaTeX export, the Org
-file requires the inclusion of the ‘titletoc’ package. Because of
-compatibility issues, ‘titletoc’ has to be loaded _before_ ‘hyperref’.
-Customize the ‘org-latex-default-packages-alist’ variable.
-
- * Section #+TOC: headlines 1 local insert local TOC, with direct children
- only
-
- Use the ‘TOC’ keyword to generate list of tables (resp. all listings)
-with captions.
-
- #+TOC: listings build a list of listings
- #+TOC: tables build a list of tables
-
- Normally Org uses the headline for its entry in the table of
-contents. But with ‘ALT_TITLE’ property, a different entry can be
-specified for the table of contents.
-
-
-File: org, Node: Include files, Next: Macro replacement, Prev: Table of contents, Up: Exporting
-
-12.4 Include files
-==================
-
-Include other files during export. For example, to include your
-‘.emacs’ file, you could use:
-
- #+INCLUDE: "~/.emacs" src emacs-lisp
-
-The first parameter is the file name to include. The optional second
-parameter specifies the block type: ‘example’, ‘export’ or ‘src’. The
-optional third parameter specifies the source code language to use for
-formatting the contents. This is relevant to both ‘export’ and ‘src’
-block types.
-
- If an include file is specified as having a markup language, Org
-neither checks for valid syntax nor changes the contents in any way.
-For ‘example’ and ‘src’ blocks, Org code-escapes the contents before
-inclusion.
-
- If an include file is not specified as having any markup language,
-Org assumes it be in Org format and proceeds as usual with a few
-exceptions. Org makes the footnote labels (*note Footnotes::) in the
-included file local to that file. The contents of the included file
-will belong to the same structure—headline, item—containing the
-‘INCLUDE’ keyword. In particular, headlines within the file will become
-children of the current section. That behavior can be changed by
-providing an additional keyword parameter, ‘:minlevel’. It shifts the
-headlines in the included file to become the lowest level. For example,
-this syntax makes the included file a sibling of the current top-level
-headline:
-
- #+INCLUDE: "~/my-book/chapter2.org" :minlevel 1
-
- Inclusion of only portions of files are specified using ranges
-parameter with ‘:lines’ keyword. The line at the upper end of the range
-will not be included. The start and/or the end of the range may be
-omitted to use the obvious defaults.
-
- #+INCLUDE: "~/.emacs" :lines "5-10" Include lines 5 to 10, 10 excluded
- #+INCLUDE: "~/.emacs" :lines "-10" Include lines 1 to 10, 10 excluded
- #+INCLUDE: "~/.emacs" :lines "10-" Include lines from 10 to EOF
-
- Inclusions may specify a file-link to extract an object matched by
-‘org-link-search’(1) (*note Search options::).
-
- To extract only the contents of the matched object, set
-‘:only-contents’ property to non-‘nil’. This will omit any planning
-lines or property drawers. The ranges for ‘:lines’ keyword are relative
-to the requested element. Some examples:
-
- #+INCLUDE: "./paper.org::#theory" :only-contents t
- Include the body of the heading with the custom id ‘theory’
- #+INCLUDE: "./paper.org::mytable" Include named element.
- #+INCLUDE: "./paper.org::*conclusion" :lines 1-20
- Include the first 20 lines of the headline named ‘conclusion’.
-
-‘C-c '’
- Visit the include file at point.
-
- ---------- Footnotes ----------
-
- (1) Note that ‘org-link-search-must-match-exact-headline’ is locally
-bound to non-‘nil’. Therefore, ‘org-link-search’ only matches headlines
-and named elements.
-
-
-File: org, Node: Macro replacement, Next: Comment lines, Prev: Include files, Up: Exporting
-
-12.5 Macro replacement
-======================
-
-Macros replace text snippets during export. Macros are defined globally
-in ‘org-export-global-macros’, or document-wise with the following
-syntax:
-
- #+MACRO: name replacement text $1, $2 are arguments
-
-which can be referenced using ‘{{{name(arg1, arg2)}}}’(1).
-
- Org recognizes macro references in following Org markup areas:
-paragraphs, headlines, verse blocks, tables cells and lists. Org also
-recognizes macro references in keywords, such as ‘#+CAPTION’, ‘#+TITLE’,
-‘#+AUTHOR’, ‘#+DATE’, and for some back-end specific export options.
-
- Org comes with following pre-defined macros:
-
-‘{{{title}}}’
-‘{{{author}}}’
-‘{{{email}}}’
- Org replaces these macro references with available information at
- the time of export.
-
-‘{{{date}}}’
-‘{{{date(FORMAT)}}}’
- This macro refers to the ‘#+DATE’ keyword. FORMAT is an optional
- argument to the ‘{{{date}}}’ macro that will be used only if
- ‘#+DATE’ is a single timestamp. FORMAT should be a format string
- understood by ‘format-time-string’.
-
-‘{{{time(FORMAT)}}}’
-‘{{{modification-time(FORMAT, VC)}}}’
- These macros refer to the document’s date and time of export and
- date and time of modification. FORMAT is a string understood by
- ‘format-time-string’. If the second argument to the
- ‘modification-time’ macro is non-‘nil’, Org uses ‘vc.el’ to
- retrieve the document’s modification time from the version control
- system. Otherwise Org reads the file attributes.
-
-‘{{{input-file}}}’
- This macro refers to the filename of the exported file.
-
-‘{{{property(PROPERTY-NAME)}}}’
-‘{{{property(PROPERTY-NAME,SEARCH-OPTION)}}}’
- This macro returns the value of property PROPERTY-NAME in the
- current entry. If SEARCH-OPTION (*note Search options::) refers to
- a remote entry, that will be used instead.
-
-‘{{{n}}}’
-‘{{{n(NAME)}}}’
-‘{{{n(NAME,ACTION)}}}’
- This macro implements custom counters by returning the number of
- times the macro has been expanded so far while exporting the
- buffer. You can create more than one counter using different NAME
- values. If ACTION is ‘-’, previous value of the counter is held,
- i.e. the specified counter is not incremented. If the value is a
- number, the specified counter is set to that value. If it is any
- other non-empty string, the specified counter is reset to 1. You
- may leave NAME empty to reset the default counter.
-
- The surrounding brackets can be made invisible by setting
-‘org-hide-macro-markers’ non-‘nil’.
-
- Org expands macros at the very beginning of the export process.
-
- ---------- Footnotes ----------
-
- (1) Since commas separate the arguments, commas within arguments have
-to be escaped with the backslash character. So only those backslash
-characters before a comma need escaping with another backslash
-character.
-
-
-File: org, Node: Comment lines, Next: ASCII/Latin-1/UTF-8 export, Prev: Macro replacement, Up: Exporting
-
-12.6 Comment lines
-==================
-
-Lines starting with zero or more whitespace characters followed by one
-‘#’ and a whitespace are treated as comments and, as such, are not
-exported.
-
- Likewise, regions surrounded by ‘#+BEGIN_COMMENT’ ...
-‘#+END_COMMENT’ are not exported.
-
- Finally, a ‘COMMENT’ keyword at the beginning of an entry, but after
-any other keyword or priority cookie, comments out the entire subtree.
-In this case, the subtree is not exported and no code block within it is
-executed either(1). The command below helps changing the comment status
-of a headline.
-
-‘C-c ;’
- Toggle the ‘COMMENT’ keyword at the beginning of an entry.
-
- ---------- Footnotes ----------
-
- (1) For a less drastic behavior, consider using a select tag (*note
-Export settings::) instead.
-
-
-File: org, Node: ASCII/Latin-1/UTF-8 export, Next: Beamer export, Prev: Comment lines, Up: Exporting
-
-12.7 ASCII/Latin-1/UTF-8 export
-===============================
-
-ASCII export produces an output file containing only plain ASCII
-characters. This is the most simplest and direct text output. It does
-not contain any Org markup either. Latin-1 and UTF-8 export use
-additional characters and symbols available in these encoding standards.
-All three of these export formats offer the most basic of text output
-for maximum portability.
-
- On export, Org fills and justifies text according to the text width
-set in ‘org-ascii-text-width’.
-
- Org exports links using a footnote-like style where the descriptive
-part is in the text and the link is in a note before the next heading.
-See the variable ‘org-ascii-links-to-notes’ for details.
-
-ASCII export commands
----------------------
-
-‘C-c C-e t a/l/u (org-ascii-export-to-ascii)’
- Export as an ASCII file with a ‘.txt’ extension. For ‘myfile.org’,
- Org exports to ‘myfile.txt’, overwriting without warning. For
- ‘myfile.txt’, Org exports to ‘myfile.txt.txt’ in order to prevent
- data loss.
-‘C-c C-e t A/L/U (org-ascii-export-as-ascii)’
- Export to a temporary buffer. Does not create a file.
-
-ASCII specific export settings
-------------------------------
-
-The ASCII export back-end has one extra keyword for customizing ASCII
-output. Setting this keyword works similar to the general options
-(*note Export settings::).
-
-‘SUBTITLE’
- The document subtitle. For long subtitles, use multiple
- ‘#+SUBTITLE’ lines in the Org file. Org prints them on one
- continuous line, wrapping into multiple lines if necessary.
-
-Header and sectioning structure
--------------------------------
-
-Org converts the first three outline levels into headlines for ASCII
-export. The remaining levels are turned into lists. To change this
-cut-off point where levels become lists, *note Export settings::.
-
-Quoting ASCII text
-------------------
-
-To insert text within the Org file by the ASCII back-end, use one the
-following constructs, inline, keyword, or export block:
-
- Inline text @@ascii:and additional text@@ within a paragraph.
-
- #+ASCII: Some text
-
- #+BEGIN_EXPORT ascii
- Org exports text in this block only when using ASCII back-end.
- #+END_EXPORT
-
-ASCII specific attributes
--------------------------
-
-ASCII back-end recognizes only one attribute, ‘:width’, which specifies
-the width of a horizontal rule in number of characters. The keyword and
-syntax for specifying widths is:
-
- #+ATTR_ASCII: :width 10
- -----
-
-ASCII special blocks
---------------------
-
-Besides ‘#+BEGIN_CENTER’ blocks (*note Paragraphs::), ASCII back-end has
-these two left and right justification blocks:
-
- #+BEGIN_JUSTIFYLEFT
- It's just a jump to the left...
- #+END_JUSTIFYLEFT
-
- #+BEGIN_JUSTIFYRIGHT
- ...and then a step to the right.
- #+END_JUSTIFYRIGHT
-
-
-File: org, Node: Beamer export, Next: HTML export, Prev: ASCII/Latin-1/UTF-8 export, Up: Exporting
-
-12.8 Beamer export
-==================
-
-Org uses _Beamer_ export to convert an Org file tree structure into a
-high-quality interactive slides for presentations. _Beamer_ is a LaTeX
-document class for creating presentations in PDF, HTML, and other
-popular display formats.
-
-* Menu:
-
-* Beamer export commands:: For creating Beamer documents.
-* Beamer specific export settings:: For customizing Beamer export.
-* Sectioning Frames and Blocks in Beamer:: For composing Beamer slides.
-* Beamer specific syntax:: For using in Org documents.
-* Editing support:: For using helper functions.
-* A Beamer example:: A complete presentation.
-
-
-File: org, Node: Beamer export commands, Next: Beamer specific export settings, Up: Beamer export
-
-12.8.1 Beamer export commands
------------------------------
-
-‘C-c C-e l b (org-beamer-export-to-latex)’
- Export as LaTeX file with a ‘.tex’ extension. For ‘myfile.org’,
- Org exports to ‘myfile.tex’, overwriting without warning.
-‘C-c C-e l B (org-beamer-export-as-latex)’
- Export to a temporary buffer. Does not create a file.
-‘C-c C-e l P (org-beamer-export-to-pdf)’
- Export as LaTeX file and then convert it to PDF format.
-‘C-c C-e l O’
- Export as LaTeX file, convert it to PDF format, and then open the
- PDF file.
-
-
-File: org, Node: Beamer specific export settings, Next: Sectioning Frames and Blocks in Beamer, Prev: Beamer export commands, Up: Beamer export
-
-12.8.2 Beamer specific export settings
---------------------------------------
-
-Beamer export back-end has several additional keywords for customizing
-Beamer output. These keywords work similar to the general options
-settings (*note Export settings::).
-
-‘BEAMER_THEME’
- The Beamer layout theme (‘org-beamer-theme’). Use square brackets
- for options. For example:
- #+BEAMER_THEME: Rochester [height=20pt]
-
-‘BEAMER_FONT_THEME’
- The Beamer font theme.
-
-‘BEAMER_INNER_THEME’
- The Beamer inner theme.
-
-‘BEAMER_OUTER_THEME’
- The Beamer outer theme.
-
-‘BEAMER_HEADER’
- Arbitrary lines inserted in the preamble, just before the
- ‘hyperref’ settings.
-
-‘DESCRIPTION’
- The document description. For long descriptions, use multiple
- ‘#+DESCRIPTION’ keywords. By default, ‘hyperref’ inserts
- ‘#+DESCRIPTION’ as metadata. Use ‘org-latex-hyperref-template’ to
- configure document metadata. Use ‘org-latex-title-command’ to
- configure typesetting of description as part of front matter.
-
-‘KEYWORDS’
- The keywords for defining the contents of the document. Use
- multiple ‘#+KEYWORDS’ lines if necessary. By default, ‘hyperref’
- inserts ‘#+KEYWORDS’ as metadata. Use
- ‘org-latex-hyperref-template’ to configure document metadata. Use
- ‘org-latex-title-command’ to configure typesetting of keywords as
- part of front matter.
-
-‘SUBTITLE’
- Document’s subtitle. For typesetting, use
- ‘org-beamer-subtitle-format’ string. Use
- ‘org-latex-hyperref-template’ to configure document metadata. Use
- ‘org-latex-title-command’ to configure typesetting of subtitle as
- part of front matter.
-
-
-File: org, Node: Sectioning Frames and Blocks in Beamer, Next: Beamer specific syntax, Prev: Beamer specific export settings, Up: Beamer export
-
-12.8.3 Sectioning, Frames and Blocks in Beamer
-----------------------------------------------
-
-Org transforms heading levels into Beamer’s sectioning elements, frames
-and blocks. Any Org tree with a not-too-deep-level nesting should in
-principle be exportable as a Beamer presentation.
-
- − Org headlines become Beamer frames when the heading level in Org is
- equal to ‘org-beamer-frame-level’ or ‘H’ value in an ‘OPTIONS’ line
- (*note Export settings::).
-
- Org overrides headlines to frames conversion for the current tree
- of an Org file if it encounters the ‘BEAMER_ENV’ property set to
- ‘frame’ or ‘fullframe’. Org ignores whatever
- ‘org-beamer-frame-level’ happens to be for that headline level in
- the Org tree. In Beamer terminology, a ‘fullframe’ is a frame
- without its title.
-
- − Org exports a Beamer frame’s objects as ‘block’ environments. Org
- can enforce wrapping in special block types when ‘BEAMER_ENV’
- property is set(1). For valid values see
- ‘org-beamer-environments-default’. To add more values, see
- ‘org-beamer-environments-extra’.
-
- − If ‘BEAMER_ENV’ is set to ‘appendix’, Org exports the entry as an
- appendix. When set to ‘note’, Org exports the entry as a note
- within the frame or between frames, depending on the entry’s
- heading level. When set to ‘noteNH’, Org exports the entry as a
- note without its title. When set to ‘againframe’, Org exports the
- entry with ‘\againframe’ command, which makes setting the
- ‘BEAMER_REF’ property mandatory because ‘\againframe’ needs frame
- to resume.
-
- When ‘ignoreheading’ is set, Org export ignores the entry’s
- headline but not its content. This is useful for inserting content
- between frames. It is also useful for properly closing a ‘column’
- environment.
-
- When ‘BEAMER_ACT’ is set for a headline, Org export translates that
-headline as an overlay or action specification. When enclosed in square
-brackets, Org export makes the overlay specification a default. Use
-‘BEAMER_OPT’ to set any options applicable to the current Beamer frame
-or block. The Beamer export back-end wraps with appropriate angular or
-square brackets. It also adds the ‘fragile’ option for any code that
-may require a verbatim block.
-
- To create a column on the Beamer slide, use the ‘BEAMER_COL’ property
-for its headline in the Org file. Set the value of ‘BEAMER_COL’ to a
-decimal number representing the fraction of the total text width.
-Beamer export uses this value to set the column’s width and fills the
-column with the contents of the Org entry. If the Org entry has no
-specific environment defined, Beamer export ignores the heading. If the
-Org entry has a defined environment, Beamer export uses the heading as
-title. Behind the scenes, Beamer export automatically handles LaTeX
-column separations for contiguous headlines. To manually adjust them
-for any unique configurations needs, use the ‘BEAMER_ENV’ property.
-
- ---------- Footnotes ----------
-
- (1) If ‘BEAMER_ENV’ is set, Org export adds ‘:B_environment:’ tag to
-make it visible. The tag serves as a visual aid and has no semantic
-relevance.
-
-
-File: org, Node: Beamer specific syntax, Next: Editing support, Prev: Sectioning Frames and Blocks in Beamer, Up: Beamer export
-
-12.8.4 Beamer specific syntax
------------------------------
-
-Since Org’s Beamer export back-end is an extension of the LaTeX
-back-end, it recognizes other LaTeX specific syntax—for example,
-‘#+LATEX:’ or ‘#+ATTR_LATEX:’. *Note LaTeX export::, for details.
-
- Beamer export wraps the table of contents generated with ‘toc:t’
-‘OPTION’ keyword in a ‘frame’ environment. Beamer export does not wrap
-the table of contents generated with ‘TOC’ keyword (*note Table of
-contents::). Use square brackets for specifying options.
-
- #+TOC: headlines [currentsection]
-
- Insert Beamer-specific code using the following constructs:
-
- #+BEAMER: \pause
-
- #+BEGIN_EXPORT beamer
- Only Beamer export back-end will export this line.
- #+END_BEAMER
-
- Text @@beamer:some code@@ within a paragraph.
-
- Inline constructs, such as the last one above, are useful for adding
-overlay specifications to objects with ‘bold’, ‘item’, ‘link’,
-‘radio-target’ and ‘target’ types. Enclose the value in angular
-brackets and place the specification at the beginning the object as
-shown in this example:
-
- A *@@beamer:<2->@@useful* feature
-
- Beamer export recognizes the ‘ATTR_BEAMER’ keyword with the following
-attributes from Beamer configurations: ‘:environment’ for changing local
-Beamer environment, ‘:overlay’ for specifying Beamer overlays in angular
-or square brackets, and ‘:options’ for inserting optional arguments.
-
- #+ATTR_BEAMER: :environment nonindentlist
- - item 1, not indented
- - item 2, not indented
- - item 3, not indented
-
- #+ATTR_BEAMER: :overlay <+->
- - item 1
- - item 2
-
- #+ATTR_BEAMER: :options [Lagrange]
- Let $G$ be a finite group, and let $H$ be
- a subgroup of $G$. Then the order of $H$ divides the order of $G$.
-
-
-File: org, Node: Editing support, Next: A Beamer example, Prev: Beamer specific syntax, Up: Beamer export
-
-12.8.5 Editing support
-----------------------
-
-The ‘org-beamer-mode’ is a special minor mode for faster editing of
-Beamer documents.
-
- #+STARTUP: beamer
-
-‘C-c C-b (org-beamer-select-environment)’
- The ‘org-beamer-mode’ provides this key for quicker selections in
- Beamer normal environments, and for selecting the ‘BEAMER_COL’
- property.
-
-
-File: org, Node: A Beamer example, Prev: Editing support, Up: Beamer export
-
-12.8.6 A Beamer example
------------------------
-
-Here is an example of an Org document ready for Beamer export.
-
- #+TITLE: Example Presentation
- #+AUTHOR: Carsten Dominik
- #+OPTIONS: H:2 toc:t num:t
- #+LATEX_CLASS: beamer
- #+LATEX_CLASS_OPTIONS: [presentation]
- #+BEAMER_THEME: Madrid
- #+COLUMNS: %45ITEM %10BEAMER_ENV(Env) %10BEAMER_ACT(Act) %4BEAMER_COL(Col) %8BEAMER_OPT(Opt)
-
- * This is the first structural section
-
- ** Frame 1
- *** Thanks to Eric Fraga :B_block:
- :PROPERTIES:
- :BEAMER_COL: 0.48
- :BEAMER_ENV: block
- :END:
- for the first viable Beamer setup in Org
- *** Thanks to everyone else :B_block:
- :PROPERTIES:
- :BEAMER_COL: 0.48
- :BEAMER_ACT: <2->
- :BEAMER_ENV: block
- :END:
- for contributing to the discussion
- **** This will be formatted as a beamer note :B_note:
- :PROPERTIES:
- :BEAMER_env: note
- :END:
- ** Frame 2 (where we will not use columns)
- *** Request
- Please test this stuff!
-
-
-File: org, Node: HTML export, Next: LaTeX export, Prev: Beamer export, Up: Exporting
-
-12.9 HTML export
-================
-
-Org mode contains an HTML exporter with extensive HTML formatting
-compatible with XHTML 1.0 strict standard.
-
-* Menu:
-
-* HTML Export commands:: Invoking HTML export
-* HTML Specific export settings:: Settings for HTML export
-* HTML doctypes:: Exporting various (X)HTML flavors
-* HTML preamble and postamble:: Inserting preamble and postamble
-* Quoting HTML tags:: Using direct HTML in Org files
-* Links in HTML export:: Interpreting and formatting links
-* Tables in HTML export:: Formatting and modifying tables
-* Images in HTML export:: Inserting figures with HTML output
-* Math formatting in HTML export:: Handling math equations
-* Text areas in HTML export:: Showing an alternate approach, an example
-* CSS support:: Styling HTML output
-* JavaScript support:: Folding scripting in the web browser
-
-
-File: org, Node: HTML Export commands, Next: HTML Specific export settings, Up: HTML export
-
-12.9.1 HTML export commands
----------------------------
-
-‘C-c C-e h h (org-html-export-to-html)’
- Export as HTML file with a ‘.html’ extension. For ‘myfile.org’,
- Org exports to ‘myfile.html’, overwriting without warning. ‘C-c
- C-e h o’ Exports to HTML and opens it in a web browser.
-
-‘C-c C-e h H (org-html-export-as-html)’
- Exports to a temporary buffer. Does not create a file.
-
-
-File: org, Node: HTML Specific export settings, Next: HTML doctypes, Prev: HTML Export commands, Up: HTML export
-
-12.9.2 HTML Specific export settings
-------------------------------------
-
-HTML export has a number of keywords, similar to the general options
-settings described in *note Export settings::.
-
-‘DESCRIPTION’
- This is the document’s description, which the HTML exporter inserts
- it as a HTML meta tag in the HTML file. For long descriptions, use
- multiple ‘#+DESCRIPTION’ lines. The exporter takes care of
- wrapping the lines properly.
-
-‘HTML_DOCTYPE’
- Specify the document type, for example: HTML5 (‘org-html-doctype’).
-
-‘HTML_CONTAINER’
- Specify the HTML container, such as ‘div’, for wrapping sections
- and elements (‘org-html-container-element’).
-
-‘HTML_LINK_HOME’
- The URL for home link (‘org-html-link-home’).
-
-‘HTML_LINK_UP’
- The URL for the up link of exported HTML pages
- (‘org-html-link-up’).
-
-‘HTML_MATHJAX’
- Options for MathJax (‘org-html-mathjax-options’). MathJax is used
- to typeset LaTeX math in HTML documents. *Note Math formatting in
- HTML export::, for an example.
-
-‘HTML_HEAD’
- Arbitrary lines for appending to the HTML document’s head
- (‘org-html-head’).
-
-‘HTML_HEAD_EXTRA’
- More arbitrary lines for appending to the HTML document’s head
- (‘org-html-head-extra’).
-
-‘KEYWORDS’
- Keywords to describe the document’s content. HTML exporter inserts
- these keywords as HTML meta tags. For long keywords, use multiple
- ‘#+KEYWORDS’ lines.
-
-‘LATEX_HEADER’
- Arbitrary lines for appending to the preamble; HTML exporter
- appends when transcoding LaTeX fragments to images (*note Math
- formatting in HTML export::).
-
-‘SUBTITLE’
- The document’s subtitle. HTML exporter formats subtitle if
- document type is ‘HTML5’ and the CSS has a ‘subtitle’ class.
-
- Some of these keywords are explained in more detail in the following
-sections of the manual.
-
-
-File: org, Node: HTML doctypes, Next: HTML preamble and postamble, Prev: HTML Specific export settings, Up: HTML export
-
-12.9.3 HTML doctypes
---------------------
-
-Org can export to various (X)HTML flavors.
-
- Set the ‘org-html-doctype’ variable for different (X)HTML variants.
-Depending on the variant, the HTML exporter adjusts the syntax of HTML
-conversion accordingly. Org includes the following ready-made variants:
-
- • “html4-strict”
- • “html4-transitional”
- • “html4-frameset”
- • “xhtml-strict”
- • “xhtml-transitional”
- • “xhtml-frameset”
- • “xhtml-11”
- • “html5”
- • “xhtml5”
-
-See the variable ‘org-html-doctype-alist’ for details. The default is
-“xhtml-strict”.
-
- Org’s HTML exporter does not by default enable new block elements
-introduced with the HTML5 standard. To enable them, set
-‘org-html-html5-fancy’ to non-‘nil’. Or use an ‘OPTIONS’ line in the
-file to set ‘html5-fancy’. HTML5 documents can now have arbitrary
-‘#+BEGIN’ and ‘#+END’ blocks. For example:
-
- #+BEGIN_aside
- Lorem ipsum
- #+END_aside
-
- Will export to:
-
- <aside>
- <p>Lorem ipsum</p>
- </aside>
-
- While this:
-
- #+ATTR_HTML: :controls controls :width 350
- #+BEGIN_video
- #+HTML: <source src="movie.mp4" type="video/mp4">
- #+HTML: <source src="movie.ogg" type="video/ogg">
- Your browser does not support the video tag.
- #+END_video
-
- Exports to:
-
- <video controls="controls" width="350">
- <source src="movie.mp4" type="video/mp4">
- <source src="movie.ogg" type="video/ogg">
- <p>Your browser does not support the video tag.</p>
- </video>
-
- When special blocks do not have a corresponding HTML5 element, the
-HTML exporter reverts to standard translation (see
-‘org-html-html5-elements’). For example, ‘#+BEGIN_lederhosen’ exports
-to ‘<div class="lederhosen">’.
-
- Special blocks cannot have headlines. For the HTML exporter to wrap
-the headline and its contents in ‘<section>’ or ‘<article>’ tags, set
-the ‘HTML_CONTAINER’ property for the headline.
-
-
-File: org, Node: HTML preamble and postamble, Next: Quoting HTML tags, Prev: HTML doctypes, Up: HTML export
-
-12.9.4 HTML preamble and postamble
-----------------------------------
-
-The HTML exporter has delineations for preamble and postamble. The
-default value for ‘org-html-preamble’ is ‘t’, which makes the HTML
-exporter insert the preamble. See the variable
-‘org-html-preamble-format’ for the format string.
-
- Set ‘org-html-preamble’ to a string to override the default format
-string. If the string is a function, the HTML exporter expects the
-function to return a string upon execution. The HTML exporter inserts
-this string in the preamble. The HTML exporter will not insert a
-preamble if ‘org-html-preamble’ is set ‘nil’.
-
- The default value for ‘org-html-postamble’ is ‘auto’, which makes the
-HTML exporter build a postamble from looking up author’s name, email
-address, creator’s name, and date. Set ‘org-html-postamble’ to ‘t’ to
-insert the postamble in the format specified in the
-‘org-html-postamble-format’ variable. The HTML exporter will not insert
-a postamble if ‘org-html-postamble’ is set to ‘nil’.
-
-
-File: org, Node: Quoting HTML tags, Next: Links in HTML export, Prev: HTML preamble and postamble, Up: HTML export
-
-12.9.5 Quoting HTML tags
-------------------------
-
-The HTML export back-end transforms ‘<’ and ‘>’ to ‘<’ and ‘>’.
-To include raw HTML code in the Org file so the HTML export back-end can
-insert that HTML code in the output, use this inline syntax: ‘@@html:’.
-For example: ‘@@html:<b>@@bold text@@html:</b>@@’. For larger raw HTML
-code blocks, use these HTML export code blocks:
-
- #+HTML: Literal HTML code for export
-
-or
-
- #+BEGIN_EXPORT html
- All lines between these markers are exported literally
- #+END_EXPORT
-
-
-File: org, Node: Links in HTML export, Next: Tables in HTML export, Prev: Quoting HTML tags, Up: HTML export
-
-12.9.6 Links in HTML export
----------------------------
-
-The HTML export back-end transforms Org’s internal links (*note Internal
-links::) to equivalent HTML links in the output. The back-end similarly
-handles Org’s automatic links created by radio targets (*note Radio
-targets::) similarly. For Org links to external files, the back-end
-transforms the links to _relative_ paths.
-
- For Org links to other ‘.org’ files, the back-end automatically
-changes the file extension to ‘.html’ and makes file paths relative. If
-the ‘.org’ files have an equivalent ‘.html’ version at the same
-location, then the converted links should work without any further
-manual intervention. However, to disable this automatic path
-translation, set ‘org-html-link-org-files-as-html’ to ‘nil’. When
-disabled, the HTML export back-end substitutes the ‘id:’-based links in
-the HTML output. For more about linking files when publishing to a
-directory, *note Publishing links::.
-
- Org files can also have special directives to the HTML export
-back-end. For example, by using ‘#+ATTR_HTML’ lines to specify new
-format attributes to ‘<a>’ or ‘<img>’ tags. This example shows changing
-the link’s ‘title’ and ‘style’:
-
- #+ATTR_HTML: :title The Org mode homepage :style color:red;
- [[https://orgmode.org]]
-
-
-File: org, Node: Tables in HTML export, Next: Images in HTML export, Prev: Links in HTML export, Up: HTML export
-
-12.9.7 Tables in HTML export
-----------------------------
-
-The HTML export back-end uses ‘org-html-table-default-attributes’ when
-exporting Org tables to HTML. By default, the exporter does not draw
-frames and cell borders. To change for this for a table, use the
-following lines before the table in the Org file:
-
- #+CAPTION: This is a table with lines around and between cells
- #+ATTR_HTML: :border 2 :rules all :frame border
-
- The HTML export back-end preserves column groupings in Org tables
-(*note Column groups::) when exporting to HTML.
-
- Additional options for customizing tables for HTML export.
-
-‘org-html-table-align-individual-fields’
- Non-‘nil’ attaches style attributes for alignment to each table
- field.
-
-‘org-html-table-caption-above’
- Non-‘nil’ places caption string at the beginning of the table.
-
-‘org-html-table-data-tags’
- Opening and ending tags for table data fields.
-
-‘org-html-table-default-attributes’
- Default attributes and values for table tags.
-
-‘org-html-table-header-tags’
- Opening and ending tags for table’s header fields.
-
-‘org-html-table-row-tags’
- Opening and ending tags for table rows.
-
-‘org-html-table-use-header-tags-for-first-column’
- Non-‘nil’ formats column one in tables with header tags.
-
-
-File: org, Node: Images in HTML export, Next: Math formatting in HTML export, Prev: Tables in HTML export, Up: HTML export
-
-12.9.8 Images in HTML export
-----------------------------
-
-The HTML export back-end has features to convert Org image links to HTML
-inline images and HTML clickable image links.
-
- When the link in the Org file has no description, the HTML export
-back-end by default in-lines that image. For example:
-‘[[file:myimg.jpg]]’ is in-lined, while ‘[[file:myimg.jpg][the image]]’
-links to the text, ‘the image’.
-
- For more details, see the variable ‘org-html-inline-images’.
-
- On the other hand, if the description part of the Org link is itself
-another link, such as ‘file:’ or ‘http:’ URL pointing to an image, the
-HTML export back-end in-lines this image and links to the main image.
-This Org syntax enables the back-end to link low-resolution thumbnail to
-the high-resolution version of the image, as shown in this example:
-
- [[file:highres.jpg][file:thumb.jpg]]
-
- To change attributes of in-lined images, use ‘#+ATTR_HTML’ lines in
-the Org file. This example shows realignment to right, and adds ‘alt’
-and ‘title’ attributes in support of text viewers and modern web
-accessibility standards.
-
- #+CAPTION: A black cat stalking a spider
- #+ATTR_HTML: :alt cat/spider image :title Action! :align right
- [[./img/a.jpg]]
-
-The HTML export back-end copies the ‘http’ links from the Org file as
-is.
-
-
-File: org, Node: Math formatting in HTML export, Next: Text areas in HTML export, Prev: Images in HTML export, Up: HTML export
-
-12.9.9 Math formatting in HTML export
--------------------------------------
-
-LaTeX math snippets (*note LaTeX fragments::) can be displayed in two
-different ways on HTML pages. The default is to use MathJax
-(http://www.mathjax.org) which should work out of the box with Org(1).
-Some MathJax display options can be configured via
-‘org-html-mathjax-options’, or in the buffer. For example, with the
-following settings,
- #+HTML_MATHJAX: align: left indent: 5em tagside: left font: Neo-Euler
- equation labels will be displayed on the left margin and equations
-will be five ems from the left margin.
-
-See the docstring of ‘org-html-mathjax-options’ for all supported
-variables. The MathJax template can be configure via
-‘org-html-mathjax-template’.
-
- If you prefer, you can also request that LaTeX fragments are
-processed into small images that will be inserted into the browser page.
-Before the availability of MathJax, this was the default method for Org
-files. This method requires that the ‘dvipng’ program, ‘dvisvgm’ or
-‘imagemagick’ suite is available on your system. You can still get this
-processing with
-
- #+OPTIONS: tex:dvipng
-
- #+OPTIONS: tex:dvisvgm
-
- or:
-
- #+OPTIONS: tex:imagemagick
-
- ---------- Footnotes ----------
-
- (1) By default Org loads MathJax from cdnjs.com (https://cdnjs.com)
-as recommended by MathJax (http://www.mathjax.org).
-
-
-File: org, Node: Text areas in HTML export, Next: CSS support, Prev: Math formatting in HTML export, Up: HTML export
-
-12.9.10 Text areas in HTML export
----------------------------------
-
-Before Org mode’s Babel, one popular approach to publishing code in HTML
-was by using ‘:textarea’. The advantage of this approach was that
-copying and pasting was built into browsers with simple JavaScript
-commands. Even editing before pasting was made simple.
-
- The HTML export back-end can create such text areas. It requires an
-‘#+ATTR_HTML:’ line as shown in the example below with the ‘:textarea’
-option. This must be followed by either an ‘example’ or a ‘src’ code
-block. Other Org block types will not honor the ‘:textarea’ option.
-
- By default, the HTML export back-end creates a text area 80
-characters wide and height just enough to fit the content. Override
-these defaults with ‘:width’ and ‘:height’ options on the ‘#+ATTR_HTML:’
-line.
-
- #+ATTR_HTML: :textarea t :width 40
- #+BEGIN_EXAMPLE
- (defun org-xor (a b)
- "Exclusive or."
- (if a (not b) b))
- #+END_EXAMPLE
-
-
-File: org, Node: CSS support, Next: JavaScript support, Prev: Text areas in HTML export, Up: HTML export
-
-12.9.11 CSS support
--------------------
-
-You can modify the CSS style definitions for the exported file. The
-HTML exporter assigns the following special CSS classes(1) to
-appropriate parts of the document—your style specifications may change
-these, in addition to any of the standard classes like for headlines,
-tables, etc.
- p.author author information, including email
- p.date publishing date
- p.creator creator info, about org mode version
- .title document title
- .subtitle document subtitle
- .todo TODO keywords, all not-done states
- .done the DONE keywords, all states that count as done
- .WAITING each TODO keyword also uses a class named after itself
- .timestamp timestamp
- .timestamp-kwd keyword associated with a timestamp, like ‘SCHEDULED’
- .timestamp-wrapper span around keyword plus timestamp
- .tag tag in a headline
- ._HOME each tag uses itself as a class, "@" replaced by "_"
- .target target for links
- .linenr the line number in a code example
- .code-highlighted for highlighting referenced code lines
- div.outline-N div for outline level N (headline plus text))
- div.outline-text-N extra div for text at outline level N
- .section-number-N section number in headlines, different for each level
- .figure-number label like "Figure 1:"
- .table-number label like "Table 1:"
- .listing-number label like "Listing 1:"
- div.figure how to format an in-lined image
- pre.src formatted source code
- pre.example normal example
- p.verse verse paragraph
- div.footnotes footnote section headline
- p.footnote footnote definition paragraph, containing a footnote
- .footref a footnote reference number (always a <sup>)
- .footnum footnote number in footnote definition (always <sup>)
- .org-svg default class for a linked ‘.svg’ image
-
- The HTML export back-end includes a compact default style in each
-exported HTML file. To override the default style with another style,
-use these keywords in the Org file. They will replace the global
-defaults the HTML exporter uses.
-
- #+HTML_HEAD: <link rel="stylesheet" type="text/css" href="style1.css" />
- #+HTML_HEAD_EXTRA: <link rel="alternate stylesheet" type="text/css" href="style2.css" />
-
- To just turn off the default style, customize
-‘org-html-head-include-default-style’ variable, or use this option line
-in the Org file.
-
- #+OPTIONS: html-style:nil
-
-For longer style definitions, either use several ‘#+HTML_HEAD’ and
-‘#+HTML_HEAD_EXTRA’ lines, or use ‘<style>’ ‘</style>’ blocks around
-them. Both of these approaches can avoid referring to an external file.
-
- In order to add styles to a sub-tree, use the
-‘:HTML_CONTAINER_CLASS:’ property to assign a class to the tree. In
-order to specify CSS styles for a particular headline, you can use the
-id specified in a ‘:CUSTOM_ID:’ property.
-
- Never change the ‘org-html-style-default’ constant. Instead use
-other simpler ways of customizing as described above.
-
- ---------- Footnotes ----------
-
- (1) If the classes on TODO keywords and tags lead to conflicts, use
-the variables ‘org-html-todo-kwd-class-prefix’ and
-‘org-html-tag-class-prefix’ to make them unique.
-
-
-File: org, Node: JavaScript support, Prev: CSS support, Up: HTML export
-
-12.9.12 JavaScript supported display of web pages
--------------------------------------------------
-
-Sebastian Rose has written a JavaScript program especially designed to
-enhance the web viewing experience of HTML files created with Org. This
-program enhances large files in two different ways of viewing. One is
-an _Info_-like mode where each section is displayed separately and
-navigation can be done with the ‘n’ and ‘p’ keys (and some other keys as
-well, press ‘?’ for an overview of the available keys). The second one
-has a _folding_ view, much like Org provides inside Emacs. The script
-is available at <https://orgmode.org/org-info.js> and the documentation
-at <https://orgmode.org/worg/code/org-info-js/>. The script is hosted
-on <https://orgmode.org>, but for reliability, prefer installing it on
-your own web server.
-
- To use this program, just add this line to the Org file:
-
- #+INFOJS_OPT: view:info toc:nil
-
-The HTML header now has the code needed to automatically invoke the
-script. For setting options, use the syntax from the above line for
-options described below:
-
- path: The path to the script. The default grabs the script from
- <https://orgmode.org/org-info.js>, but you might want to have
- a local copy and use a path like ‘../scripts/org-info.js’.
- view: Initial view when the website is first shown. Possible values are:
- info Info-like interface with one section per page.
- overview Folding interface, initially showing only top-level.
- content Folding interface, starting with all headlines visible.
- showall Folding interface, all headlines and text visible.
- sdepth: Maximum headline level that will still become an independent
- section for info and folding modes. The default is taken from
- ‘org-export-headline-levels’ (= the ‘H’ switch in ‘#+OPTIONS’).
- If this is smaller than in ‘org-export-headline-levels’, each
- info/folding section can still contain child headlines.
- toc: Should the table of contents _initially_ be visible?
- Even when ‘nil’, you can always get to the "toc" with ‘i’.
- tdepth: The depth of the table of contents. The defaults are taken from
- the variables ‘org-export-headline-levels’ and ‘org-export-with-toc’.
- ftoc: Does the CSS of the page specify a fixed position for the "toc"?
- If yes, the toc will never be displayed as a section.
- ltoc: Should there be short contents (children) in each section?
- Make this ‘above’ if the section should be above initial text.
- mouse: Headings are highlighted when the mouse is over them. Should be
- ‘underline’ (default) or a background color like ‘#cccccc’.
- buttons: Should view-toggle buttons be everywhere? When ‘nil’ (the
- default), only one such button will be present.
-You can choose default values for these options by customizing the
-variable ‘org-html-infojs-options’. If you want the script to always
-apply to your pages, configure the variable ‘org-html-use-infojs’.
-
-
-File: org, Node: LaTeX export, Next: Markdown export, Prev: HTML export, Up: Exporting
-
-12.10 LaTeX export
-==================
-
-The LaTeX export back-end can handle complex documents, incorporate
-standard or custom LaTeX document classes, generate documents using
-alternate LaTeX engines, and produce fully linked PDF files with
-indexes, bibliographies, and tables of contents, destined for
-interactive online viewing or high-quality print publication.
-
- While the details are covered in-depth in this section, here are some
-quick references to variables for the impatient: for engines, see
-‘org-latex-compiler’; for build sequences, see ‘org-latex-pdf-process’;
-for packages, see ‘org-latex-default-packages-alist’ and
-‘org-latex-packages-alist’.
-
- An important note about the LaTeX export back-end: it is sensitive to
-blank lines in the Org document. That’s because LaTeX itself depends on
-blank lines to tell apart syntactical elements, such as paragraphs.
-
-* Menu:
-
-* LaTeX export commands:: For producing LaTeX and PDF documents.
-* LaTeX specific export settings:: Unique to this LaTeX back-end.
-* LaTeX header and sectioning:: For file structure.
-* Quoting LaTeX code:: Directly in the Org document.
-* Tables in LaTeX export:: Attributes specific to tables.
-* Images in LaTeX export:: Attributes specific to images.
-* Plain lists in LaTeX export:: Attributes specific to lists.
-* Source blocks in LaTeX export:: Attributes specific to source code blocks.
-* Example blocks in LaTeX export:: Attributes specific to example blocks.
-* Special blocks in LaTeX export:: Attributes specific to special blocks.
-* Horizontal rules in LaTeX export:: Attributes specific to horizontal rules.
-
-
-File: org, Node: LaTeX export commands, Next: LaTeX specific export settings, Up: LaTeX export
-
-12.10.1 LaTeX export commands
------------------------------
-
-‘C-c C-e l l (org-latex-export-to-latex)’
- Export as LaTeX file with a ‘.tex’ extension. For ‘myfile.org’,
- Org exports to ‘myfile.tex’, overwriting without warning. ‘C-c C-e
- l l’ Exports to LaTeX file.
-
-‘C-c C-e l L (org-latex-export-as-latex)’
- Export to a temporary buffer. Do not create a file.
-‘C-c C-e l p (org-latex-export-to-pdf)’
- Export as LaTeX file and convert it to PDF file.
-‘C-c C-e l o’
- Export as LaTeX file and convert it to PDF, then open the PDF using
- the default viewer.
-
- The LaTeX export back-end can use any of these LaTeX engines:
-‘pdflatex’, ‘xelatex’, and ‘lualatex’. These engines compile LaTeX
-files with different compilers, packages, and output options. The LaTeX
-export back-end finds the compiler version to use from
-‘org-latex-compiler’ variable or the ‘#+LATEX_COMPILER’ keyword in the
-Org file. See the docstring for the ‘org-latex-default-packages-alist’
-for loading packages with certain compilers. Also see
-‘org-latex-bibtex-compiler’ to set the bibliography compiler(1).
-
- ---------- Footnotes ----------
-
- (1) This does not allow setting different bibliography compilers for
-different files. However, “smart” LaTeX compilation systems, such as
-‘latexmk’, can select the correct bibliography compiler.
-
-
-File: org, Node: LaTeX specific export settings, Next: LaTeX header and sectioning, Prev: LaTeX export commands, Up: LaTeX export
-
-12.10.2 LaTeX specific export settings
---------------------------------------
-
-The LaTeX export back-end has several additional keywords for
-customizing LaTeX output. Setting these keywords works similar to the
-general options (*note Export settings::).
-
-‘DESCRIPTION’
- The document’s description. The description along with author
- name, keywords, and related file metadata are inserted in the
- output file by the ‘hyperref’ package. See
- ‘org-latex-hyperref-template’ for customizing metadata items. See
- ‘org-latex-title-command’ for typesetting description into the
- document’s front matter. Use multiple ‘#+DESCRIPTION’ lines for
- long descriptions.
-
-‘LATEX_CLASS’
- This is LaTeX document class, such as ‘article’, ‘report’, ‘book’,
- and so on, which contain predefined preamble and headline level
- mapping that the LaTeX export back-end needs. The back-end reads
- the default class name from the ‘org-latex-default-class’ variable.
- Org has ‘article’ as the default class. A valid default class must
- be an element of ‘org-latex-classes’.
-
-‘LATEX_CLASS_OPTIONS’
- Options the LaTeX export back-end uses when calling the LaTeX
- document class.
-
-‘LATEX_COMPILER’
- The compiler, such as ‘pdflatex’, ‘xelatex’, ‘lualatex’, for
- producing the PDF (‘org-latex-compiler’).
-
-‘LATEX_HEADER’
- Arbitrary lines to add to the document’s preamble, before the
- ‘hyperref’ settings. See ‘org-latex-classes’ for adjusting the
- structure and order of the LaTeX headers.
-
-‘LATEX_HEADER_EXTRA’
- Arbitrary lines to add to the document’s preamble, before the
- ‘hyperref’ settings. See ‘org-latex-classes’ for adjusting the
- structure and order of the LaTeX headers.
-
-‘KEYWORDS’
- The keywords for the document. The description along with author
- name, keywords, and related file metadata are inserted in the
- output file by the ‘hyperref’ package. See
- ‘org-latex-hyperref-template’ for customizing metadata items. See
- ‘org-latex-title-command’ for typesetting description into the
- document’s front matter. Use multiple ‘#+KEYWORDS’ lines if
- necessary.
-
-‘SUBTITLE’
- The document’s subtitle. It is typeset as per
- ‘org-latex-subtitle-format’. If ‘org-latex-subtitle-separate’ is
- non-‘nil’, it is typed as part of the ‘\title’-macro. See
- ‘org-latex-hyperref-template’ for customizing metadata items. See
- ‘org-latex-title-command’ for typesetting description into the
- document’s front matter.
-
- The following sections have further details.
-
-
-File: org, Node: LaTeX header and sectioning, Next: Quoting LaTeX code, Prev: LaTeX specific export settings, Up: LaTeX export
-
-12.10.3 LaTeX header and sectioning structure
----------------------------------------------
-
-The LaTeX export back-end converts the first three of Org’s outline
-levels into LaTeX headlines. The remaining Org levels are exported as
-‘itemize’ or ‘enumerate’ lists. To change this globally for the cut-off
-point between levels and lists, (*note Export settings::).
-
- By default, the LaTeX export back-end uses the ‘article’ class.
-
- To change the default class globally, edit ‘org-latex-default-class’.
-To change the default class locally in an Org file, add option lines
-‘#+LATEX_CLASS: myclass’. To change the default class for just a part
-of the Org file, set a sub-tree property, ‘EXPORT_LATEX_CLASS’. The
-class name entered here must be valid member of ‘org-latex-classes’.
-This variable defines a header template for each class into which the
-exporter splices the values of ‘org-latex-default-packages-alist’ and
-‘org-latex-packages-alist’. Use the same three variables to define
-custom sectioning or custom classes.
-
- The LaTeX export back-end sends the ‘LATEX_CLASS_OPTIONS’ keyword and
-‘EXPORT_LATEX_CLASS_OPTIONS’ property as options to the LaTeX
-‘\documentclass’ macro. The options and the syntax for specifying them,
-including enclosing them in square brackets, follow LaTeX conventions.
-
- #+LATEX_CLASS_OPTIONS: [a4paper,11pt,twoside,twocolumn]
-
- The LaTeX export back-end appends values from ‘LATEX_HEADER’ and
-‘LATEX_HEADER_EXTRA’ keywords to the LaTeX header. The docstring for
-‘org-latex-classes’ explains in more detail. Also note that LaTeX
-export back-end does not append ‘LATEX_HEADER_EXTRA’ to the header when
-previewing LaTeX snippets (*note Previewing LaTeX fragments::).
-
- A sample Org file with the above headers:
-
- #+LATEX_CLASS: article
- #+LATEX_CLASS_OPTIONS: [a4paper]
- #+LATEX_HEADER: \usepackage{xyz}
-
- * Headline 1
- some text
- * Headline 2
- some more text
-
-
-File: org, Node: Quoting LaTeX code, Next: Tables in LaTeX export, Prev: LaTeX header and sectioning, Up: LaTeX export
-
-12.10.4 Quoting LaTeX code
---------------------------
-
-The LaTeX export back-end can insert any arbitrary LaTeX code, *note
-Embedded LaTeX::. There are three ways to embed such code in the Org
-file and they all use different quoting syntax.
-
- Inserting in-line quoted with symbols:
- Code embedded in-line @@latex:any arbitrary LaTeX code@@ in a paragraph.
-
- Inserting as one or more keyword lines in the Org file:
- #+LATEX: any arbitrary LaTeX code
-
- Inserting as an export block in the Org file, where the back-end
-exports any code between begin and end markers:
- #+BEGIN_EXPORT latex
- any arbitrary LaTeX code
- #+END_EXPORT
-
-
-File: org, Node: Tables in LaTeX export, Next: Images in LaTeX export, Prev: Quoting LaTeX code, Up: LaTeX export
-
-12.10.5 Tables in LaTeX export
-------------------------------
-
-The LaTeX export back-end can pass several LaTeX attributes for table
-contents and layout. Besides specifying label and caption (*note Images
-and tables::), the other valid LaTeX attributes include:
-
-‘:mode’
- The LaTeX export back-end wraps the table differently depending on
- the mode for accurate rendering of math symbols. Mode is either
- ‘table’, ‘math’, ‘inline-math’ or ‘verbatim’. For ‘math’ or
- ‘inline-math’ mode, LaTeX export back-end wraps the table in a math
- environment, but every cell in it is exported as-is. The LaTeX
- export back-end determines the default mode from
- ‘org-latex-default-table-mode’. For , The LaTeX export back-end
- merges contiguous tables in the same mode into a single
- environment.
-‘:environment’
- Set the default LaTeX table environment for the LaTeX export
- back-end to use when exporting Org tables. Common LaTeX table
- environments are provided by these packages: ‘tabularx’,
- ‘longtable’, ‘array’, ‘tabu’, and ‘bmatrix’. For packages, such as
- ‘tabularx’ and ‘tabu’, or any newer replacements, include them in
- the ‘org-latex-packages-alist’ variable so the LaTeX export
- back-end can insert the appropriate load package headers in the
- converted LaTeX file. Look in the docstring for the
- ‘org-latex-packages-alist’ variable for configuring these packages
- for LaTeX snippet previews, if any.
-‘:caption’
- Use ‘#+CAPTION’ keyword to set a simple caption for a table (*note
- Images and tables::). For custom captions, use ‘:caption’
- attribute, which accepts raw LaTeX code. ‘:caption’ value
- overrides ‘#+CAPTION’ value.
-‘:float’
-‘:placement’
- The table environments by default are not floats in LaTeX. To make
- them floating objects use ‘:float’ with one of the following
- options: ‘sideways’, ‘multicolumn’, ‘t’, and ‘nil’. Note that
- ‘sidewaystable’ has been deprecated since Org 8.3. LaTeX floats
- can also have additional layout ‘:placement’ attributes. These are
- the usual ‘[h t b p ! H]’ permissions specified in square brackets.
- Note that for ‘:float sideways’ tables, the LaTeX export back-end
- ignores ‘:placement’ attributes.
-‘:align’
-‘:font’
-‘:width’
- The LaTeX export back-end uses these attributes for regular tables
- to set their alignments, fonts, and widths.
-‘:spread’
- When ‘:spread’ is non-‘nil’, the LaTeX export back-end spreads or
- shrinks the table by the ‘:width’ for ‘tabu’ and ‘longtabu’
- environments. ‘:spread’ has no effect if ‘:width’ is not set.
-‘:booktabs’
-‘:center’
-‘:rmlines’
- All three commands are toggles. ‘:booktabs’ brings in modern
- typesetting enhancements to regular tables. The ‘booktabs’ package
- has to be loaded through ‘org-latex-packages-alist’. ‘:center’ is
- for centering the table. ‘:rmlines’ removes all but the very first
- horizontal line made of ASCII characters from "table.el" tables
- only.
-‘:math-prefix’
-‘:math-suffix’
-‘:math-arguments’
- The LaTeX export back-end inserts ‘:math-prefix’ string value in a
- math environment before the table. The LaTeX export back-end
- inserts ‘:math-suffix’ string value in a math environment after the
- table. The LaTeX export back-end inserts ‘:math-arguments’ string
- value between the macro name and the table’s contents.
- ‘:math-arguments’ comes in use for matrix macros that require more
- than one argument, such as ‘qbordermatrix’.
-
- LaTeX table attributes help formatting tables for a wide range of
-situations, such as matrix product or spanning multiple pages:
-
- #+ATTR_LATEX: :environment longtable :align l|lp{3cm}r|l
- | ..... | ..... |
- | ..... | ..... |
-
- #+ATTR_LATEX: :mode math :environment bmatrix :math-suffix \times
- | a | b |
- | c | d |
- #+ATTR_LATEX: :mode math :environment bmatrix
- | 1 | 2 |
- | 3 | 4 |
-
- Set the caption with the LaTeX command
-‘\bicaption{HeadingA}{HeadingB}’:
-
- #+ATTR_LATEX: :caption \bicaption{HeadingA}{HeadingB}
- | ..... | ..... |
- | ..... | ..... |
-
-
-File: org, Node: Images in LaTeX export, Next: Plain lists in LaTeX export, Prev: Tables in LaTeX export, Up: LaTeX export
-
-12.10.6 Images in LaTeX export
-------------------------------
-
-The LaTeX export back-end processes image links in Org files that do not
-have descriptions, such as these links ‘[[file:img.jpg]]’ or
-‘[[./img.jpg]]’, as direct image insertions in the final PDF output. In
-the PDF, they are no longer links but actual images embedded on the
-page. The LaTeX export back-end uses ‘\includegraphics’ macro to insert
-the image. But for TikZ(1) images, the back-end uses an ‘\input’ macro
-wrapped within a ‘tikzpicture’ environment.
-
- For specifying image ‘:width’, ‘:height’, and other ‘:options’, use
-this syntax:
-
- #+ATTR_LATEX: :width 5cm :options angle=90
- [[./img/sed-hr4049.pdf]]
-
- For custom commands for captions, use the ‘:caption’ attribute. It
-will override the default ‘#+CAPTION’ value:
-
- #+ATTR_LATEX: :caption \bicaption{HeadingA}{HeadingB}
- [[./img/sed-hr4049.pdf]]
-
- When captions follow the method as described in *note Images and
-tables::, the LaTeX export back-end wraps the picture in a floating
-‘figure’ environment. To float an image without specifying a caption,
-set the ‘:float’ attribute to one of the following:
- − ‘t’: for a standard ‘figure’ environment; used by default whenever
- an image has a caption.
- − ‘multicolumn’: to span the image across multiple columns of a page;
- the back-end wraps the image in a ‘figure*’ environment.
- − ‘wrap’: for text to flow around the image on the right; the figure
- occupies the left half of the page.
- − ‘sideways’: for a new page with the image sideways, rotated ninety
- degrees, in a ‘sidewaysfigure’ environment; overrides ‘:placement’
- setting.
- − ‘nil’: to avoid a ‘:float’ even if using a caption.
-Use the ‘placement’ attribute to modify a floating environment’s
-placement.
-
- #+ATTR_LATEX: :float wrap :width 0.38\textwidth :placement
- {r}{0.4\textwidth} [[./img/hst.png]]
-
- The LaTeX export back-end centers all images by default. Setting
-‘:center’ attribute to ‘nil’ disables centering. To disable centering
-globally, set ‘org-latex-images-centered’ to ‘t’.
-
- Set the ‘:comment-include’ attribute to non-‘nil’ value for the LaTeX
-export back-end to comment out the ‘\includegraphics’ macro.
-
- ---------- Footnotes ----------
-
- (1) <http://sourceforge.net/projects/pgf/>
-
-
-File: org, Node: Plain lists in LaTeX export, Next: Source blocks in LaTeX export, Prev: Images in LaTeX export, Up: LaTeX export
-
-12.10.7 Plain lists in LaTeX export
------------------------------------
-
-The LaTeX export back-end accepts the ‘:environment’ and ‘:options’
-attributes for plain lists. Both attributes work together for
-customizing lists, as shown in the examples:
-
- #+LATEX_HEADER: \usepackage[inline]{enumitem}
- Some ways to say "Hello":
- #+ATTR_LATEX: :environment itemize*
- #+ATTR_LATEX: :options [label={}, itemjoin={,}, itemjoin*={, and}]
- - Hola
- - Bonjour
- - Guten Tag.
-
- Since LaTeX supports only four levels of nesting for lists, use an
-external package, such as ‘enumitem’ in LaTeX, for levels deeper than
-four:
-
- #+LATEX_HEADER: \usepackage{enumitem}
- #+LATEX_HEADER: \renewlist{itemize}{itemize}{9}
- #+LATEX_HEADER: \setlist[itemize]{label=$\circ$}
- - One
- - Two
- - Three
- - Four
- - Five
-
-
-File: org, Node: Source blocks in LaTeX export, Next: Example blocks in LaTeX export, Prev: Plain lists in LaTeX export, Up: LaTeX export
-
-12.10.8 Source blocks in LaTeX export
--------------------------------------
-
-The LaTeX export back-end can make source code blocks into floating
-objects through the attributes ‘:float’ and ‘:options’. For ‘:float’:
-
- − ‘t’: makes a source block float; by default floats any source block
- with a caption.
- − ‘multicolumn’: spans the source block across multiple columns of a
- page.
- − ‘nil’: avoids a ‘:float’ even if using a caption; useful for source
- code blocks that may not fit on a page.
-
- #+ATTR_LATEX: :float nil
- #+BEGIN_SRC emacs-lisp
- Lisp code that may not fit in a single page.
- #+END_SRC
-
- The LaTeX export back-end passes string values in ‘:options’ to LaTeX
-packages for customization of that specific source block. In the
-example below, the ‘:options’ are set for Minted. Minted is a source
-code highlighting LaTeXpackage with many configurable options.
-
- #+ATTR_LATEX: :options commentstyle=\bfseries
- #+BEGIN_SRC emacs-lisp
- (defun Fib (n)
- (if (< n 2) n (+ (Fib (- n 1)) (Fib (- n 2)))))
- #+END_SRC
-
- To apply similar configuration options for all source blocks in a
-file, use the ‘org-latex-listings-options’ and
-‘org-latex-minted-options’ variables.
-
-
-File: org, Node: Example blocks in LaTeX export, Next: Special blocks in LaTeX export, Prev: Source blocks in LaTeX export, Up: LaTeX export
-
-12.10.9 Example blocks in LaTeX export
---------------------------------------
-
-The LaTeX export back-end wraps the contents of example blocks in a
-‘verbatim’ environment. To change this behavior to use another
-environment globally, specify an appropriate export filter (*note
-Advanced configuration::). To change this behavior to use another
-environment for each block, use the ‘:environment’ parameter to specify
-a custom environment.
-
- #+ATTR_LATEX: :environment myverbatim
- #+BEGIN_EXAMPLE
- This sentence is false.
- #+END_EXAMPLE
-
-
-File: org, Node: Special blocks in LaTeX export, Next: Horizontal rules in LaTeX export, Prev: Example blocks in LaTeX export, Up: LaTeX export
-
-12.10.10 Special blocks in LaTeX export
----------------------------------------
-
-For other special blocks in the Org file, the LaTeX export back-end
-makes a special environment of the same name. The back-end also takes
-‘:options’, if any, and appends as-is to that environment’s opening
-string. For example:
-
- #+BEGIN_abstract
- We demonstrate how to solve the Syracuse problem.
- #+END_abstract
-
- #+ATTR_LATEX: :options [Proof of important theorem]
- #+BEGIN_proof
- ...
- Therefore, any even number greater than 2 is the sum of two primes.
- #+END_proof
-
-exports to
-
- \begin{abstract}
- We demonstrate how to solve the Syracuse problem.
- \end{abstract}
-
- \begin{proof}[Proof of important theorem]
- ...
- Therefore, any even number greater than 2 is the sum of two primes.
- \end{proof}
-
- If you need to insert a specific caption command, use ‘:caption’
-attribute. It will override standard ‘#+CAPTION’ value, if any. For
-example:
-
- #+ATTR_LATEX: :caption \MyCaption{HeadingA}
- #+BEGIN_proof
- ...
- #+END_proof
-
-
-File: org, Node: Horizontal rules in LaTeX export, Prev: Special blocks in LaTeX export, Up: LaTeX export
-
-12.10.11 Horizontal rules in LaTeX export
------------------------------------------
-
-The LaTeX export back-end converts horizontal rules by the specified
-‘:width’ and ‘:thickness’ attributes. For example:
-
- #+ATTR_LATEX: :width .6\textwidth :thickness 0.8pt
- -----
-
-
-File: org, Node: Markdown export, Next: OpenDocument Text export, Prev: LaTeX export, Up: Exporting
-
-12.11 Markdown export
-=====================
-
-The Markdown export back-end, ‘md’, converts an Org file to Markdown
-format, as defined at <http://daringfireball.net/projects/markdown/>.
-
- The ‘md’ back-end is built on top of the HTML back-end (*note HTML
-export::). As a consequence, it converts every Org construct not
-supported by Markdown syntax, such as tables, to HTML.
-
-Markdown export commands
-------------------------
-
-‘C-c C-e m m (org-md-export-to-markdown)’
- Export to a text file with Markdown syntax. For ‘myfile.org’, Org
- exports to ‘myfile.md’, overwritten without warning.
-‘C-c C-e m M (org-md-export-as-markdown)’
- Export to a temporary buffer. Does not create a file.
-‘C-c C-e m o’
- Export as a text file with Markdown syntax, then open it.
-
-Header and sectioning structure
--------------------------------
-
-Based on ‘org-md-headline-style’, markdown export can generate headlines
-of both ‘atx’ and ‘setext’ types. ‘atx’ limits headline levels to two.
-‘setext’ limits headline levels to six. Beyond these limits, the export
-back-end converts headlines to lists. To set a limit to a level before
-the absolute limit (*note Export settings::).
-
-
-File: org, Node: OpenDocument Text export, Next: Org export, Prev: Markdown export, Up: Exporting
-
-12.12 OpenDocument Text export
-==============================
-
-The ODT export back-end handles creating of OpenDocument Text (ODT)
-format files. The format complies with ‘OpenDocument-v1.2
-specification’(1) and is compatible with LibreOffice 3.4.
-
-* Menu:
-
-* Pre-requisites for ODT export:: Required packages.
-* ODT export commands:: Invoking export.
-* ODT specific export settings:: Configuration options.
-* Extending ODT export:: Producing ‘.doc’, ‘.pdf’ files.
-* Applying custom styles:: Styling the output.
-* Links in ODT export:: Handling and formatting links.
-* Tables in ODT export:: Org table conversions.
-* Images in ODT export:: Inserting images.
-* Math formatting in ODT export:: Formatting LaTeX fragments.
-* Labels and captions in ODT export:: Rendering objects.
-* Literal examples in ODT export:: For source code and example blocks.
-* Advanced topics in ODT export:: For power users.
-
- ---------- Footnotes ----------
-
- (1) Open Document Format for Office Applications (OpenDocument)
-Version 1.2
-(http://docs.oasis-open.org/office/v1.2/OpenDocument-v1.2.html)
-
-
-File: org, Node: Pre-requisites for ODT export, Next: ODT export commands, Up: OpenDocument Text export
-
-12.12.1 Pre-requisites for ODT export
--------------------------------------
-
-The ODT export back-end relies on the ‘zip’ program to create the final
-compressed ODT output. Check if ‘zip’ is locally available and
-executable. Without ‘zip’, export cannot finish.
-
-
-File: org, Node: ODT export commands, Next: ODT specific export settings, Prev: Pre-requisites for ODT export, Up: OpenDocument Text export
-
-12.12.2 ODT export commands
----------------------------
-
-‘C-c C-e o o (org-odt-export-to-odt)’
-
- Export as OpenDocument Text file.
-
- If ‘org-odt-preferred-output-format’ is specified, the ODT export
- back-end automatically converts the exported file to that format.
- *Note Automatically exporting to other formats:
- x-export-to-other-formats.
-
- For ‘myfile.org’, Org exports to ‘myfile.odt’, overwriting without
- warning. The ODT export back-end exports a region only if a region
- was active. Note for exporting active regions, the
- ‘transient-mark-mode’ has to be turned on.
-
- If the selected region is a single tree, the ODT export back-end
- makes the tree head the document title. Incidentally, ‘C-c @’
- selects the current sub-tree. If the tree head entry has, or
- inherits, an ‘EXPORT_FILE_NAME’ property, the ODT export back-end
- uses that for file name.
-
- ‘C-c C-e o O’ Export to an OpenDocument Text file format and open
- it.
-
- When ‘org-odt-preferred-output-format’ is specified, open the
- converted file instead. *Note Automatically exporting to other
- formats: x-export-to-other-formats.
-
-
-File: org, Node: ODT specific export settings, Next: Extending ODT export, Prev: ODT export commands, Up: OpenDocument Text export
-
-12.12.3 ODT specific export settings
-------------------------------------
-
-The ODT export back-end has several additional keywords for customizing
-ODT output. Setting these keywords works similar to the general options
-(*note Export settings::).
-
-‘DESCRIPTION’
- This is the document’s description, which the ODT export back-end
- inserts as document metadata. For long descriptions, use multiple
- ‘#+DESCRIPTION’ lines.
-
-‘KEYWORDS’
- The keywords for the document. The ODT export back-end inserts the
- description along with author name, keywords, and related file
- metadata as metadata in the output file. Use multiple ‘#+KEYWORDS’
- lines if necessary.
-
-‘ODT_STYLES_FILE’
- The ODT export back-end uses the ‘org-odt-styles-file’ by default.
- See *note Applying custom styles:: for details.
-
-‘SUBTITLE’
- The document subtitle.
-
-
-File: org, Node: Extending ODT export, Next: Applying custom styles, Prev: ODT specific export settings, Up: OpenDocument Text export
-
-12.12.4 Extending ODT export
-----------------------------
-
-The ODT export back-end can produce documents in other formats besides
-ODT using a specialized ODT converter process. Its common interface
-works with popular converters to produce formats such as ‘doc’, or
-convert a document from one format, say ‘csv’, to another format, say
-‘xls’.
-
- Customize ‘org-odt-convert-process’ variable to point to ‘unoconv’,
-which is the ODT’s preferred converter. Working installations of
-LibreOffice would already have ‘unoconv’ installed. Alternatively,
-other converters may be substituted here. *Note Configuring a document
-converter::.
-
-Automatically exporting to other formats
-........................................
-
-If ODT format is just an intermediate step to get to other formats, such
-as ‘doc’, ‘docx’, ‘rtf’, or ‘pdf’, etc., then extend the ODT export
-back-end to directly produce that format. Specify the final format in
-the ‘org-odt-preferred-output-format’ variable. This is one way to
-extend (*note Exporting to ODT: x-export-to-odt.).
-
-Converting between document formats
-...................................
-
-The Org export back-end is made to be inter-operable with a wide range
-of text document format converters. Newer generation converters, such
-as LibreOffice and Pandoc, can handle hundreds of formats at once. Org
-provides a consistent interaction with whatever converter is installed.
-Here are some generic commands:
-
-‘M-x org-odt-convert <RET>’
- Convert an existing document from one format to another. With a
- prefix argument, opens the newly produced file.
-
-
-File: org, Node: Applying custom styles, Next: Links in ODT export, Prev: Extending ODT export, Up: OpenDocument Text export
-
-12.12.5 Applying custom styles
-------------------------------
-
-The ODT export back-end comes with many OpenDocument styles (*note
-Working with OpenDocument style files::). To expand or further
-customize these built-in style sheets, either edit the style sheets
-directly or generate them using an application such as LibreOffice. The
-example here shows creating a style using LibreOffice.
-
-Applying custom styles: the easy way
-....................................
-
- 1. Create a sample ‘example.org’ file with settings as shown below,
- and export it to ODT format.
-
- #+OPTIONS: H:10 num:t
-
- 2. Open the above ‘example.odt’ using LibreOffice. Use the ‘Stylist’
- to locate the target styles, which typically have the ‘Org’ prefix.
- Open one, modify, and save as either OpenDocument Text (‘.odt’) or
- OpenDocument Template (‘.ott’) file.
-
- 3. Customize the variable ‘org-odt-styles-file’ and point it to the
- newly created file. For additional configuration options *note
- Overriding factory styles: x-overriding-factory-styles.
-
- To apply and ODT style to a particular file, use the
- ‘#+ODT_STYLES_FILE’ option as shown in the example below:
-
- #+ODT_STYLES_FILE: "/path/to/example.ott"
-
- or
-
- #+ODT_STYLES_FILE: ("/path/to/file.ott" ("styles.xml" "image/hdr.png"))
-
-Using third-party styles and templates
-......................................
-
-The ODT export back-end relies on many templates and style names. Using
-third-party styles and templates can lead to mismatches. Templates
-derived from built in ODT templates and styles seem to have fewer
-problems.
-
-
-File: org, Node: Links in ODT export, Next: Tables in ODT export, Prev: Applying custom styles, Up: OpenDocument Text export
-
-12.12.6 Links in ODT export
----------------------------
-
-ODT export back-end creates native cross-references for internal links
-and Internet-style links for all other link types.
-
- A link with no description and pointing to a
-regular—un-itemized—outline heading is replaced with a cross-reference
-and section number of the heading.
-
- A ‘\ref{label}’-style reference to an image, table etc. is replaced
-with a cross-reference and sequence number of the labeled entity. *Note
-Labels and captions in ODT export::.
-
-
-File: org, Node: Tables in ODT export, Next: Images in ODT export, Prev: Links in ODT export, Up: OpenDocument Text export
-
-12.12.7 Tables in ODT export
-----------------------------
-
-The ODT export back-end handles native Org mode tables (*note Tables::)
-and simple ‘table.el’ tables. Complex ‘table.el’ tables having column
-or row spans are not supported. Such tables are stripped from the
-exported document.
-
- By default, the ODT export back-end exports a table with top and
-bottom frames and with ruled lines separating row and column groups
-(*note Column groups::). All tables are typeset to occupy the same
-width. The ODT export back-end honors any table alignments and relative
-widths for columns (*note Column width and alignment::).
-
- Note that the ODT export back-end interprets column widths as
-weighted ratios, the default weight being 1.
-
- Specifying ‘:rel-width’ property on an ‘#+ATTR_ODT’ line controls the
-width of the table. For example:
-
- #+ATTR_ODT: :rel-width 50
- | Area/Month | Jan | Feb | Mar | Sum |
- |---------------+-------+-------+-------+-------|
- | / | < | | | < |
- | <l13> | <r5> | <r5> | <r5> | <r6> |
- | North America | 1 | 21 | 926 | 948 |
- | Middle East | 6 | 75 | 844 | 925 |
- | Asia Pacific | 9 | 27 | 790 | 826 |
- |---------------+-------+-------+-------+-------|
- | Sum | 16 | 123 | 2560 | 2699 |
-
- On export, the above table takes 50% of text width area. The
-exporter sizes the columns in the ratio: 13:5:5:5:6. The first column
-is left-aligned and rest of the columns, right-aligned. Vertical rules
-separate the header and the last column. Horizontal rules separate the
-header and the last row.
-
- For even more customization, create custom table styles and associate
-them with a table using the ‘#+ATTR_ODT’ line. *Note Customizing tables
-in ODT export::.
-
-
-File: org, Node: Images in ODT export, Next: Math formatting in ODT export, Prev: Tables in ODT export, Up: OpenDocument Text export
-
-12.12.8 Images in ODT export
-----------------------------
-
-Embedding images
-................
-
-The ODT export back-end processes image links in Org files that do not
-have descriptions, such as these links ‘[[file:img.jpg]]’ or
-‘[[./img.jpg]]’, as direct image insertions in the final output. Either
-of these examples works:
-
- [[file:img.png]]
-
- [[./img.png]]
-
-Embedding clickable images
-..........................
-
-For clickable images, provide a link whose description is another link
-to an image file. For example, to embed an image ‘org-mode-unicorn.png’
-which when clicked jumps to <https://orgmode.org> website, do the
-following
-
- [[https://orgmode.org][./org-mode-unicorn.png]]
-
-Sizing and scaling of embedded images
-.....................................
-
-Control the size and scale of the embedded images with the ‘#+ATTR_ODT’
-attribute.
-
- The ODT export back-end starts with establishing the size of the
-image in the final document. The dimensions of this size is measured in
-centimeters. The back-end then queries the image file for its
-dimensions measured in pixels. For this measurement, the back-end
-relies on ImageMagick’s ‘identify’ program or Emacs ‘create-image’ and
-‘image-size’ API. ImageMagick is the preferred choice for large file
-sizes or frequent batch operations. The back-end then converts the
-pixel dimensions using ‘org-odt-pixels-per-inch’ into the familiar 72
-dpi or 96 dpi. The default value for this is in
-‘display-pixels-per-inch’, which can be tweaked for better results based
-on the capabilities of the output device. Here are some common image
-scaling operations:
-
-Explicitly size the image
- To embed ‘img.png’ as a 10 cm x 10 cm image, do the following:
-
- #+ATTR_ODT: :width 10 :height 10
- [[./img.png]]
-
-Scale the image
- To embed ‘img.png’ at half its size, do the following:
-
- #+ATTR_ODT: :scale 0.5
- [[./img.png]]
-
-Scale the image to a specific width
- To embed ‘img.png’ with a width of 10 cm while retaining the
- original height:width ratio, do the following:
-
- #+ATTR_ODT: :width 10
- [[./img.png]]
-
-Scale the image to a specific height
- To embed ‘img.png’ with a height of 10 cm while retaining the
- original height:width ratio, do the following
-
- #+ATTR_ODT: :height 10
- [[./img.png]]
-
-Anchoring of images
-...................
-
-The ODT export back-end can anchor images to ‘"as-char"’, ‘"paragraph"’,
-or ‘"page"’. Set the preferred anchor using the ‘:anchor’ property of
-the ‘#+ATTR_ODT’ line.
-
- To create an image that is anchored to a page:
- #+ATTR_ODT: :anchor "page"
- [[./img.png]]
-
-
-File: org, Node: Math formatting in ODT export, Next: Labels and captions in ODT export, Prev: Images in ODT export, Up: OpenDocument Text export
-
-12.12.9 Math formatting in ODT export
--------------------------------------
-
-The ODT export back-end has special support built-in for handling math.
-
-* Menu:
-
-* Working with LaTeX math snippets:: Embedding in LaTeX format.
-* Working with MathML or OpenDocument formula files:: Embedding in native format.
-
-
-File: org, Node: Working with LaTeX math snippets, Next: Working with MathML or OpenDocument formula files, Up: Math formatting in ODT export
-
-Working with LaTeX math snippets
-................................
-
-LaTeX math snippets (*note LaTeX fragments::) can be embedded in an ODT
-document in one of the following ways:
-
- 1. MathML
-
- Add this line to the Org file. This option is activated on a
- per-file basis.
-
- #+OPTIONS: LaTeX:t
-
- With this option, LaTeX fragments are first converted into MathML
- fragments using an external LaTeX-to-MathML converter program. The
- resulting MathML fragments are then embedded as an OpenDocument
- Formula in the exported document.
-
- To specify the LaTeX-to-MathML converter, customize the variables
- ‘org-latex-to-mathml-convert-command’ and
- ‘org-latex-to-mathml-jar-file’.
-
- To use MathToWeb(1) as the preferred converter, configure the above
- variables as
-
- (setq org-latex-to-mathml-convert-command
- "java -jar %j -unicode -force -df %o %I"
- org-latex-to-mathml-jar-file
- "/path/to/mathtoweb.jar")
- To use LaTeXML(2) use
- (setq org-latex-to-mathml-convert-command
- "latexmlmath \"%i\" --presentationmathml=%o")
-
- To quickly verify the reliability of the LaTeX-to-MathML converter,
- use the following commands:
-
- ‘M-x org-odt-export-as-odf <RET>’
- Convert a LaTeX math snippet to an OpenDocument formula
- (‘.odf’) file.
-
- ‘M-x org-odt-export-as-odf-and-open <RET>’
- Convert a LaTeX math snippet to an OpenDocument formula
- (‘.odf’) file and open the formula file with the
- system-registered application.
-
- 2. PNG images
-
- Add this line to the Org file. This option is activated on a
- per-file basis.
-
- #+OPTIONS: tex:dvipng
-
- #+OPTIONS: tex:dvisvgm
-
- or:
-
- #+OPTIONS: tex:imagemagick
-
- Under this option, LaTeX fragments are processed into PNG or SVG
- images and the resulting images are embedded in the exported
- document. This method requires ‘dvipng’ program, ‘dvisvgm’ or
- ‘imagemagick’ programs.
-
- ---------- Footnotes ----------
-
- (1) See MathToWeb
-(http://www.mathtoweb.com/cgi-bin/mathtoweb_home.pl).
-
- (2) See <http://dlmf.nist.gov/LaTeXML/>.
-
-
-File: org, Node: Working with MathML or OpenDocument formula files, Prev: Working with LaTeX math snippets, Up: Math formatting in ODT export
-
-Working with MathML or OpenDocument formula files
-.................................................
-
-When embedding LaTeX math snippets in ODT documents is not reliable,
-there is one more option to try. Embed an equation by linking to its
-MathML (‘.mml’) source or its OpenDocument formula (‘.odf’) file as
-shown below:
-
- [[./equation.mml]]
-
- or
-
- [[./equation.odf]]
-
-
-File: org, Node: Labels and captions in ODT export, Next: Literal examples in ODT export, Prev: Math formatting in ODT export, Up: OpenDocument Text export
-
-12.12.10 Labels and captions in ODT export
-------------------------------------------
-
-ODT format handles labeling and captioning of objects based on their
-types. Inline images, tables, LaTeX fragments, and Math formulas are
-numbered and captioned separately. Each object also gets a unique
-sequence number based on its order of first appearance in the Org file.
-Each category has its own sequence. A caption is just a label applied
-to these objects.
-
- #+CAPTION: Bell curve
- #+LABEL: fig:SED-HR4049
- [[./img/a.png]]
-
- When rendered, it may show as follows in the exported document:
-
- Figure 2: Bell curve
-
- To modify the category component of the caption, customize the option
-‘org-odt-category-map-alist’. For example, to tag embedded images with
-the string ‘Illustration’ instead of the default string ‘Figure’, use
-the following setting:
-
- (setq org-odt-category-map-alist
- '(("__Figure__" "Illustration" "value" "Figure" org-odt--enumerable-image-p)))
-
- With the above modification, the previous example changes to:
-
- Illustration 2: Bell curve
-
-
-File: org, Node: Literal examples in ODT export, Next: Advanced topics in ODT export, Prev: Labels and captions in ODT export, Up: OpenDocument Text export
-
-12.12.11 Literal examples in ODT export
----------------------------------------
-
-The ODT export back-end supports literal examples (*note Literal
-examples::) with full fontification. Internally, the ODT export
-back-end relies on ‘htmlfontify.el’ to generate the style definitions
-needed for fancy listings. The auto-generated styles get ‘OrgSrc’
-prefix and inherit colors from the faces used by Emacs ‘font-lock’
-library for that source language.
-
- For custom fontification styles, customize the
-‘org-odt-create-custom-styles-for-srcblocks’ option.
-
- To turn off fontification of literal examples, customize the
-‘org-odt-fontify-srcblocks’ option.
-
-
-File: org, Node: Advanced topics in ODT export, Prev: Literal examples in ODT export, Up: OpenDocument Text export
-
-12.12.12 Advanced topics in ODT export
---------------------------------------
-
-The ODT export back-end has extensive features useful for power users
-and frequent uses of ODT formats.
-
-* Menu:
-
-* Configuring a document converter:: Registering a document converter.
-* Working with OpenDocument style files:: Exploring internals.
-* Creating one-off styles:: Customizing styles, highlighting.
-* Customizing tables in ODT export:: Defining table templates.
-* Validating OpenDocument XML:: Debugging corrupted OpenDocument files.
-
-
-File: org, Node: Configuring a document converter, Next: Working with OpenDocument style files, Up: Advanced topics in ODT export
-
-Configuring a document converter
-................................
-
-The ODT export back-end works with popular converters with little or no
-extra configuration. *Note Extending ODT export::. The following is
-for unsupported converters or tweaking existing defaults.
-
- 1. Register the converter
-
- Add the name of the converter to the ‘org-odt-convert-processes’
- variable. Note that it also requires how the converter is invoked
- on the command line. See the variable’s docstring for details.
-
- 2. Configure its capabilities
-
- Specify which formats the converter can handle by customizing the
- variable ‘org-odt-convert-capabilities’. Use the entry for the
- default values in this variable for configuring the new converter.
- Also see its docstring for details.
-
- 3. Choose the converter
-
- Select the newly added converter as the preferred one by
- customizing the option ‘org-odt-convert-process’.
-
-
-File: org, Node: Working with OpenDocument style files, Next: Creating one-off styles, Prev: Configuring a document converter, Up: Advanced topics in ODT export
-
-Working with OpenDocument style files
-.....................................
-
-This section explores the internals of the ODT exporter; the means by
-which it produces styled documents; the use of automatic and custom
-OpenDocument styles.
-
-a) Factory styles
-.................
-
-The ODT exporter relies on two files for generating its output. These
-files are bundled with the distribution under the directory pointed to
-by the variable ‘org-odt-styles-dir’. The two files are:
-
- • ‘OrgOdtStyles.xml’
-
- This file contributes to the ‘styles.xml’ file of the final ‘ODT’
- document. This file gets modified for the following purposes:
-
- 1. To control outline numbering based on user settings.
-
- 2. To add styles generated by ‘htmlfontify.el’ for fontification
- of code blocks.
-
- • ‘OrgOdtContentTemplate.xml’
-
- This file contributes to the ‘content.xml’ file of the final ‘ODT’
- document. The contents of the Org outline are inserted between the
- ‘<office:text>’...‘</office:text>’ elements of this file.
-
- Apart from serving as a template file for the final ‘content.xml’,
- the file serves the following purposes:
-
- 1. It contains automatic styles for formatting of tables which
- are referenced by the exporter.
-
- 2. It contains ‘<text:sequence-decl>’...‘</text:sequence-decl>’
- elements that control numbering of tables, images, equations,
- and similar entities.
-
-b) Overriding factory styles
-............................
-
-The following two variables control the location from where the ODT
-exporter picks up the custom styles and content template files.
-Customize these variables to override the factory styles used by the
-exporter.
-
- • ‘org-odt-styles-file’
-
- The ODT export back-end uses the file pointed to by this variable,
- such as ‘styles.xml’, for the final output. It can take one of the
- following values:
-
- 1. A ‘styles.xml’ file
-
- Use this file instead of the default ‘styles.xml’
-
- 2. A ‘.odt’ or ‘.ott’ file
-
- Use the ‘styles.xml’ contained in the specified OpenDocument
- Text or Template file
-
- 3. A ‘.odt’ or ‘.ott’ file and a subset of files contained within
- them
-
- Use the ‘styles.xml’ contained in the specified OpenDocument
- Text or Template file. Additionally extract the specified
- member files and embed those within the final ‘ODT’ document.
-
- Use this option if the ‘styles.xml’ file references additional
- files like header and footer images.
-
- 4. ‘nil’
-
- Use the default ‘styles.xml’
-
- • ‘org-odt-content-template-file’
-
- Use this variable to specify the blank ‘content.xml’ that will be
- used in the final output.
-
-
-File: org, Node: Creating one-off styles, Next: Customizing tables in ODT export, Prev: Working with OpenDocument style files, Up: Advanced topics in ODT export
-
-Creating one-off styles
-.......................
-
-The ODT export back-end can read embedded raw OpenDocument XML from the
-Org file. Such direct formatting are useful for one-off instances.
-
- 1. Embedding ODT tags as part of regular text
-
- Enclose OpenDocument syntax in ‘@@odt:...@@’ for inline markup.
- For example, to highlight a region of text do the following:
-
- @@odt:<text:span text:style-name="Highlight">This is highlighted
- text</text:span>@@. But this is regular text.
-
- *Hint:* To see the above example in action, edit the ‘styles.xml’
- (*note Factory styles: x-orgodtstyles-xml.) and add a custom
- ‘Highlight’ style as shown below:
-
- <style:style style:name="Highlight" style:family="text">
- <style:text-properties fo:background-color="#ff0000"/>
- </style:style>
-
- 2. Embedding a one-line OpenDocument XML
-
- The ODT export back-end can read one-liner options with ‘#+ODT:’ in
- the Org file. For example, to force a page break:
-
- #+ODT: <text:p text:style-name="PageBreak"/>
-
- *Hint:* To see the above example in action, edit your ‘styles.xml’
- (*note Factory styles: x-orgodtstyles-xml.) and add a custom
- ‘PageBreak’ style as shown below.
-
- <style:style style:name="PageBreak" style:family="paragraph"
- style:parent-style-name="Text_20_body">
- <style:paragraph-properties fo:break-before="page"/>
- </style:style>
-
- 3. Embedding a block of OpenDocument XML
-
- The ODT export back-end can also read ODT export blocks for
- OpenDocument XML. Such blocks use the ‘#+BEGIN_EXPORT
- odt’...‘#+END_EXPORT’ constructs.
-
- For example, to create a one-off paragraph that uses bold text, do
- the following:
-
- #+BEGIN_EXPORT odt
- <text:p text:style-name="Text_20_body_20_bold">
- This paragraph is specially formatted and uses bold text.
- </text:p>
- #+END_EXPORT
-
-
-File: org, Node: Customizing tables in ODT export, Next: Validating OpenDocument XML, Prev: Creating one-off styles, Up: Advanced topics in ODT export
-
-Customizing tables in ODT export
-................................
-
-Override the default table format by specifying a custom table style
-with the ‘#+ATTR_ODT’ line. For a discussion on default formatting of
-tables *note Tables in ODT export::.
-
- This feature closely mimics the way table templates are defined in
-the OpenDocument-v1.2 specification.(1)
-
- For quick preview of this feature, install the settings below and
-export the table that follows:
-
- (setq org-odt-table-styles
- (append org-odt-table-styles
- '(("TableWithHeaderRowAndColumn" "Custom"
- ((use-first-row-styles . t)
- (use-first-column-styles . t)))
- ("TableWithFirstRowandLastRow" "Custom"
- ((use-first-row-styles . t)
- (use-last-row-styles . t))))))
-
- #+ATTR_ODT: :style TableWithHeaderRowAndColumn
- | Name | Phone | Age |
- | Peter | 1234 | 17 |
- | Anna | 4321 | 25 |
-
- The example above used ‘Custom’ template and installed two table
-styles ‘TableWithHeaderRowAndColumn’ and ‘TableWithFirstRowandLastRow’.
-*Important:* The OpenDocument styles needed for producing the above
-template were pre-defined. They are available in the section marked
-‘Custom Table Template’ in ‘OrgOdtContentTemplate.xml’ (*note Factory
-styles: x-orgodtcontenttemplate-xml. For adding new templates, define
-new styles here.
-
- To use this feature proceed as follows:
-
- 1. Create a table template(2)
-
- A table template is set of ‘table-cell’ and ‘paragraph’ styles for
- each of the following table cell categories:
-
- − Body
- − First column
- − Last column
- − First row
- − Last row
- − Even row
- − Odd row
- − Even column
- − Odd Column
-
- The names for the above styles must be chosen based on the name of
- the table template using a well-defined convention.
-
- The naming convention is better illustrated with an example. For a
- table template with the name ‘Custom’, the needed style names are
- listed in the following table.
-
- Table cell type ‘table-cell’ style ‘paragraph’ style
- -------------------------------------------------------------------------------
- Body ‘CustomTableCell’ ‘CustomTableParagraph’
- First column ‘CustomFirstColumnTableCell’‘CustomFirstColumnTableParagraph’
- Last column ‘CustomLastColumnTableCell’ ‘CustomLastColumnTableParagraph’
- First row ‘CustomFirstRowTableCell’ ‘CustomFirstRowTableParagraph’
- Last row ‘CustomLastRowTableCell’ ‘CustomLastRowTableParagraph’
- Even row ‘CustomEvenRowTableCell’ ‘CustomEvenRowTableParagraph’
- Odd row ‘CustomOddRowTableCell’ ‘CustomOddRowTableParagraph’
- Even column ‘CustomEvenColumnTableCell’ ‘CustomEvenColumnTableParagraph’
- Odd column ‘CustomOddColumnTableCell’ ‘CustomOddColumnTableParagraph’
-
- To create a table template with the name ‘Custom’, define the above
- styles in the
- ‘<office:automatic-styles>’...‘</office:automatic-styles>’ element
- of the content template file (*note Factory styles:
- x-orgodtcontenttemplate-xml.).
-
- 2. Define a table style(3)
-
- To define a table style, create an entry for the style in the
- variable ‘org-odt-table-styles’ and specify the following:
-
- − the name of the table template created in step (1)
- − the set of cell styles in that template that are to be
- activated
-
- For example, the entry below defines two different table styles
- ‘TableWithHeaderRowAndColumn’ and ‘TableWithFirstRowandLastRow’
- based on the same template ‘Custom’. The styles achieve their
- intended effect by selectively activating the individual cell
- styles in that template.
-
- (setq org-odt-table-styles
- (append org-odt-table-styles
- '(("TableWithHeaderRowAndColumn" "Custom"
- ((use-first-row-styles . t)
- (use-first-column-styles . t)))
- ("TableWithFirstRowandLastRow" "Custom"
- ((use-first-row-styles . t)
- (use-last-row-styles . t))))))
-
- 3. Associate a table with the table style
-
- To do this, specify the table style created in step (2) as part of
- the ‘ATTR_ODT’ line as shown below.
-
- #+ATTR_ODT: :style "TableWithHeaderRowAndColumn"
- | Name | Phone | Age |
- | Peter | 1234 | 17 |
- | Anna | 4321 | 25 |
-
- ---------- Footnotes ----------
-
- (1) OpenDocument-v1.2 Specification
-(http://docs.oasis-open.org/office/v1.2/OpenDocument-v1.2.html)
-
- (2) See the ‘<table:table-template>’ element of the OpenDocument-v1.2
-specification
-
- (3) See the attributes ‘table:template-name’,
-‘table:use-first-row-styles’, ‘table:use-last-row-styles’,
-‘table:use-first-column-styles’, ‘table:use-last-column-styles’,
-‘table:use-banding-rows-styles’, and ‘table:use-banding-column-styles’
-of the ‘<table:table>’ element in the OpenDocument-v1.2 specification
-
-
-File: org, Node: Validating OpenDocument XML, Prev: Customizing tables in ODT export, Up: Advanced topics in ODT export
-
-Validating OpenDocument XML
-...........................
-
-Sometimes ODT format files may not open due to ‘.odt’ file corruption.
-To verify if the ‘.odt’ file is corrupt, validate it against the
-OpenDocument RELAX NG Compact Syntax—RNC—schema. But first the ‘.odt’
-files have to be decompressed using ‘zip’. Note that ‘.odt’ files are
-‘zip’ archives: *note (emacs)File Archives::. The contents of ‘.odt’
-files are in ‘.xml’. For general help with validation—and
-schema-sensitive editing—of XML files: *note (nxml-mode)Introduction::.
-
- Customize ‘org-odt-schema-dir’ to point to a directory with
-OpenDocument ‘.rnc’ files and the needed schema-locating rules. The ODT
-export back-end takes care of updating the ‘rng-schema-locating-files’.
-
-
-File: org, Node: Org export, Next: Texinfo export, Prev: OpenDocument Text export, Up: Exporting
-
-12.13 Org export
-================
-
-‘org’ export back-end creates a normalized version of the Org document
-in current buffer. The exporter evaluates Babel code (*note Evaluating
-code blocks::) and removes content specific to other back-ends.
-
-Org export commands
--------------------
-
-‘C-c C-e O o (org-org-export-to-org)’
- Export as an Org file with a ‘.org’ extension. For ‘myfile.org’,
- Org exports to ‘myfile.org.org’, overwriting without warning.
-
-‘C-c C-e O O (org-org-export-as-org)’
- Export to a temporary buffer. Does not create a file.
-‘C-c C-e O v’
- Export to an Org file, then open it.
-
-
-File: org, Node: Texinfo export, Next: iCalendar export, Prev: Org export, Up: Exporting
-
-12.14 Texinfo export
-====================
-
-The ‘texinfo’ export back-end generates documents with Texinfo code that
-can compile to Info format.
-
-* Menu:
-
-* Texinfo export commands:: Invoking commands.
-* Texinfo specific export settings:: Setting the environment.
-* Texinfo file header:: Generating the header.
-* Texinfo title and copyright page:: Creating preamble pages.
-* Info directory file:: Installing a manual in Info file hierarchy.
-* Headings and sectioning structure:: Building document structure.
-* Indices:: Creating indices.
-* Quoting Texinfo code:: Incorporating literal Texinfo code.
-* Plain lists in Texinfo export:: List attributes.
-* Tables in Texinfo export:: Table attributes.
-* Images in Texinfo export:: Image attributes.
-* Special blocks in Texinfo export:: Special block attributes.
-* A Texinfo example:: Processing Org to Texinfo.
-
-
-File: org, Node: Texinfo export commands, Next: Texinfo specific export settings, Up: Texinfo export
-
-12.14.1 Texinfo export commands
--------------------------------
-
-‘C-c C-e i t (org-texinfo-export-to-texinfo)’
- Export as a Texinfo file with ‘.texi’ extension. For ‘myfile.org’,
- Org exports to ‘myfile.texi’, overwriting without warning.
-‘C-c C-e i i (org-texinfo-export-to-info)’
- Export to Texinfo format first and then process it to make an Info
- file. To generate other formats, such as DocBook, customize the
- ‘org-texinfo-info-process’ variable.
-
-
-File: org, Node: Texinfo specific export settings, Next: Texinfo file header, Prev: Texinfo export commands, Up: Texinfo export
-
-12.14.2 Texinfo specific export settings
-----------------------------------------
-
-The Texinfo export back-end has several additional keywords for
-customizing Texinfo output. Setting these keywords works similar to the
-general options (*note Export settings::).
-
-‘SUBTITLE’
- The document subtitle.
-
-‘SUBAUTHOR’
- The document subauthor.
-
-‘TEXINFO_FILENAME’
- The Texinfo filename.
-
-‘TEXINFO_CLASS’
- The default document class (‘org-texinfo-default-class’), which
- must be a member of ‘org-texinfo-classes’.
-
-‘TEXINFO_HEADER’
- Arbitrary lines inserted at the end of the header.
-
-‘TEXINFO_POST_HEADER’
- Arbitrary lines inserted after the end of the header.
-
-‘TEXINFO_DIR_CATEGORY’
- The directory category of the document.
-
-‘TEXINFO_DIR_TITLE’
- The directory title of the document.
-
-‘TEXINFO_DIR_DESC’
- The directory description of the document.
-
-‘TEXINFO_PRINTED_TITLE’
- The printed title of the document.
-
-
-File: org, Node: Texinfo file header, Next: Texinfo title and copyright page, Prev: Texinfo specific export settings, Up: Texinfo export
-
-12.14.3 Texinfo file header
----------------------------
-
-After creating the header for a Texinfo file, the Texinfo back-end
-automatically generates a name and destination path for the Info file.
-To override this default with a more sensible path and name, specify the
-‘#+TEXINFO_FILENAME’ keyword.
-
- Along with the output’s file name, the Texinfo header also contains
-language details (*note Export settings::) and encoding system as set in
-the ‘org-texinfo-coding-system’ variable. Insert ‘#+TEXINFO_HEADER’
-keywords for each additional command in the header, for example:
-@code{@synindex}.
-
- Instead of repeatedly installing the same set of commands, define a
-class in ‘org-texinfo-classes’ once, and then activate it in the
-document by setting the ‘#+TEXINFO_CLASS’ keyword to that class.
-
-
-File: org, Node: Texinfo title and copyright page, Next: Info directory file, Prev: Texinfo file header, Up: Texinfo export
-
-12.14.4 Texinfo title and copyright page
-----------------------------------------
-
-The default template for hard copy output has a title page with
-‘#+TITLE’ and ‘#+AUTHOR’ (*note Export settings::). To replace the
-regular ‘#+TITLE’ with something different for the printed version, use
-the ‘#+TEXINFO_PRINTED_TITLE’ and ‘#+SUBTITLE’ keywords. Both expect
-raw Texinfo code for setting their values.
-
- If one ‘#+AUTHOR’ is not sufficient, add multiple ‘#+SUBAUTHOR’
-keywords. They have to be set in raw Texinfo code.
-
- #+AUTHOR: Jane Smith
- #+SUBAUTHOR: John Doe
- #+TEXINFO_PRINTED_TITLE: This Long Title@inlinefmt{tex,@*} Is Broken in @TeX{}
-
- Copying material is defined in a dedicated headline with a non-‘nil’
-‘:COPYING:’ property. The back-end inserts the contents within a
-‘@copying’ command at the beginning of the document. The heading itself
-does not appear in the structure of the document.
-
- Copyright information is printed on the back of the title page.
-
- * Legalese
- :PROPERTIES:
- :COPYING: t
- :END:
-
- This is a short example of a complete Texinfo file, version 1.0.
-
- Copyright \copy 2018 Free Software Foundation, Inc.
-
-
-File: org, Node: Info directory file, Next: Headings and sectioning structure, Prev: Texinfo title and copyright page, Up: Texinfo export
-
-12.14.5 Info directory file
----------------------------
-
-The end result of the Texinfo export process is the creation of an Info
-file. This Info file’s metadata has variables for category, title, and
-description: ‘#+TEXINFO_DIR_CATEGORY’, ‘#+TEXINFO_DIR_TITLE’, and
-‘#+TEXINFO_DIR_DESC’ that establish where in the Info hierarchy the file
-fits.
-
- Here is an example that writes to the Info directory file:
-
- #+TEXINFO_DIR_CATEGORY: Emacs
- #+TEXINFO_DIR_TITLE: Org Mode: (org)
- #+TEXINFO_DIR_DESC: Outline-based notes management and organizer
-
-
-File: org, Node: Headings and sectioning structure, Next: Indices, Prev: Info directory file, Up: Texinfo export
-
-12.14.6 Headings and sectioning structure
------------------------------------------
-
-The Texinfo export back-end uses a pre-defined scheme to convert Org
-headlines to an equivalent Texinfo structuring commands. A scheme like
-this maps top-level headlines to numbered chapters tagged as ‘@chapter’
-and lower-level headlines to unnumbered chapters tagged as
-‘@unnumbered’. To override such mappings to introduce ‘@part’ or other
-Texinfo structuring commands, define a new class in
-‘org-texinfo-classes’. Activate the new class with the
-‘#+TEXINFO_CLASS’ keyword. When no new class is defined and activated,
-the Texinfo export back-end defaults to the ‘org-texinfo-default-class’.
-
- If an Org headline’s level has no associated Texinfo structuring
-command, or is below a certain threshold (*note Export settings::), then
-the Texinfo export back-end makes it into a list item.
-
- The Texinfo export back-end makes any headline with a non-‘nil’
-‘:APPENDIX:’ property into an appendix. This happens independent of the
-Org headline level or the ‘#+TEXINFO_CLASS’.
-
- The Texinfo export back-end creates a menu entry after the Org
-headline for each regular sectioning structure. To override this with a
-shorter menu entry, use the ‘:ALT_TITLE:’ property (*note Table of
-contents::). Texinfo menu entries also have an option for a longer
-‘:DESCRIPTION:’ property. Here’s an example that uses both to override
-the default menu entry:
-
- * Controlling Screen Display
- :PROPERTIES:
- :ALT_TITLE: Display
- :DESCRIPTION: Controlling Screen Display
- :END:
-
- The text before the first headline belongs to the ‘Top’ node, i.e.,
-the node in which a reader enters an Info manual. As such, it is
-expected not to appear in printed output generated from the ‘.texi’
-file. *note (texinfo)The Top Node::, for more information.
-
-
-File: org, Node: Indices, Next: Quoting Texinfo code, Prev: Headings and sectioning structure, Up: Texinfo export
-
-12.14.7 Indices
----------------
-
-The Texinfo export back-end recognizes these indexing keywords if used
-in the Org file: ‘#+CINDEX’, ‘#+FINDEX’, ‘#+KINDEX’, ‘#+PINDEX’,
-‘#+TINDEX’, and ‘#+VINDEX’. Write their value as verbatim Texinfo code;
-in particular, ‘{’, ‘}’ and ‘@’ characters need to be escaped with ‘@’
-if they not belong to a Texinfo command.
-
- #+CINDEX: Defining indexing entries
-
- For the back-end to generate an index entry for a headline, set the
-‘:INDEX:’ property to ‘cp’ or ‘vr’. These abbreviations come from
-Texinfo that stand for concept index and variable index. The Texinfo
-manual has abbreviations for all other kinds of indexes. The back-end
-exports the headline as an unnumbered chapter or section command, and
-then inserts the index after its contents.
-
- * Concept Index
- :PROPERTIES:
- :INDEX: cp
- :END:
-
-
-File: org, Node: Quoting Texinfo code, Next: Plain lists in Texinfo export, Prev: Indices, Up: Texinfo export
-
-12.14.8 Quoting Texinfo code
-----------------------------
-
-Use any of the following three methods to insert or escape raw Texinfo
-code:
-
- Richard @@texinfo:@sc{@@Stallman@@texinfo:}@@ commence' GNU.
-
- #+TEXINFO: @need800
- This paragraph is preceded by...
-
- #+BEGIN_EXPORT texinfo
- @auindex Johnson, Mark
- @auindex Lakoff, George
- #+END_EXPORT
-
-
-File: org, Node: Plain lists in Texinfo export, Next: Tables in Texinfo export, Prev: Quoting Texinfo code, Up: Texinfo export
-
-12.14.9 Plain lists in Texinfo export
--------------------------------------
-
-The Texinfo export back-end by default converts description lists in the
-Org file using the default command ‘@table’, which results in a table
-with two columns. To change this behavior, specify ‘:table-type’ with
-‘ftable’ or ‘vtable’ attributes. For more information, *note
-(texinfo)Two-column Tables::.
-
- The Texinfo export back-end by default also applies a text highlight
-based on the defaults stored in ‘org-texinfo-table-default-markup’. To
-override the default highlight command, specify another one with the
-‘:indic’ attribute.
-
- Org syntax is limited to one entry per list item. Nevertheless, the
-Texinfo export back-end can split that entry according to any text
-provided through the ‘:sep’ attribute. Each part then becomes a new
-entry in the first column of the table.
-
- The following example illustrates all the attributes above:
-
- #+ATTR_TEXINFO: :table-type vtable :sep , :indic asis
- - foo, bar :: This is the common text for variables foo and bar.
-
-becomes
-
- @vtable @asis
- @item foo
- @itemx bar
- This is the common text for variables foo and bar.
- @end table
-
-
-File: org, Node: Tables in Texinfo export, Next: Images in Texinfo export, Prev: Plain lists in Texinfo export, Up: Texinfo export
-
-12.14.10 Tables in Texinfo export
----------------------------------
-
-When exporting tables, the Texinfo export back-end uses the widest cell
-width in each column. To override this and instead specify as fractions
-of line length, use the ‘:columns’ attribute. See example below.
-
- #+ATTR_TEXINFO: :columns .5 .5
- | a cell | another cell |
-
-
-File: org, Node: Images in Texinfo export, Next: Special blocks in Texinfo export, Prev: Tables in Texinfo export, Up: Texinfo export
-
-12.14.11 Images in Texinfo export
----------------------------------
-
-Insert a file link to the image in the Org file, and the Texinfo export
-back-end inserts the image. These links must have the usual supported
-image extensions and no descriptions. To scale the image, use ‘:width’
-and ‘:height’ attributes. For alternate text, use ‘:alt’ and specify
-the text using Texinfo code, as shown in the example:
-
- #+ATTR_TEXINFO: :width 1in :alt Alternate @i{text}
- [[ridt.pdf]]
-
-
-File: org, Node: Special blocks in Texinfo export, Next: A Texinfo example, Prev: Images in Texinfo export, Up: Texinfo export
-
-12.14.12 Special blocks
------------------------
-
-The Texinfo export back-end converts special blocks to commands with the
-same name. It also adds any ‘:options’ attributes to the end of the
-command, as shown in this example:
-
- #+ATTR_TEXINFO: :options org-org-export-to-org ...
- #+begin_defun
- A somewhat obsessive function.
- #+end_defun
-
-becomes
-
- @defun org-org-export-to-org ...
- A somewhat obsessive function.
- @end defun
-
-
-File: org, Node: A Texinfo example, Prev: Special blocks in Texinfo export, Up: Texinfo export
-
-12.14.13 A Texinfo example
---------------------------
-
-Here is a more detailed example Org file. See *note (texinfo)GNU Sample
-Texts:: for an equivalent example using Texinfo code.
-
- #+TITLE: GNU Sample {{{version}}}
- #+SUBTITLE: for version {{{version}}}, {{{updated}}}
- #+AUTHOR: A.U. Thor
- #+EMAIL: bug-sample@gnu.org
-
- #+OPTIONS: ':t toc:t author:t email:t
- #+LANGUAGE: en
-
- #+MACRO: version 2.0
- #+MACRO: updated last updated 4 March 2014
-
- #+TEXINFO_FILENAME: sample.info
- #+TEXINFO_HEADER: @syncodeindex pg cp
-
- #+TEXINFO_DIR_CATEGORY: Texinfo documentation system
- #+TEXINFO_DIR_TITLE: sample: (sample)
- #+TEXINFO_DIR_DESC: Invoking sample
-
- #+TEXINFO_PRINTED_TITLE: GNU Sample
-
- This manual is for GNU Sample (version {{{version}}},
- {{{updated}}}).
-
- * Copying
- :PROPERTIES:
- :COPYING: t
- :END:
-
- This manual is for GNU Sample (version {{{version}}},
- {{{updated}}}), which is an example in the Texinfo documentation.
-
- Copyright \copy 2018 Free Software Foundation, Inc.
-
- #+BEGIN_QUOTE
- Permission is granted to copy, distribute and/or modify this
- document under the terms of the GNU Free Documentation License,
- Version 1.3 or any later version published by the Free Software
- Foundation; with no Invariant Sections, with no Front-Cover Texts,
- and with no Back-Cover Texts. A copy of the license is included in
- the section entitled "GNU Free Documentation License".
- #+END_QUOTE
-
- * Invoking sample
-
- #+PINDEX: sample
- #+CINDEX: invoking @command{sample}
-
- This is a sample manual. There is no sample program to invoke, but
- if there were, you could see its basic usage and command line
- options here.
-
- * GNU Free Documentation License
- :PROPERTIES:
- :APPENDIX: t
- :END:
-
- #+TEXINFO: @include fdl.texi
-
- * Index
- :PROPERTIES:
- :INDEX: cp
- :END:
-
-
-File: org, Node: iCalendar export, Next: Other built-in back-ends, Prev: Texinfo export, Up: Exporting
-
-12.15 iCalendar export
-======================
-
-A large part of Org mode’s inter-operability success is its ability to
-easily export to or import from external applications. The iCalendar
-export back-end takes calendar data from Org files and exports to the
-standard iCalendar format.
-
- The iCalendar export back-end can also incorporate TODO entries based
-on the configuration of the ‘org-icalendar-include-todo’ variable. The
-back-end exports plain timestamps as VEVENT, TODO items as VTODO, and
-also create events from deadlines that are in non-TODO items. The
-back-end uses the deadlines and scheduling dates in Org TODO items for
-setting the start and due dates for the iCalendar TODO entry. Consult
-the ‘org-icalendar-use-deadline’ and ‘org-icalendar-use-scheduled’
-variables for more details.
-
- For tags on the headline, the iCalendar export back-end makes them
-into iCalendar categories. To tweak the inheritance of tags and TODO
-states, configure the variable ‘org-icalendar-categories’. To assign
-clock alarms based on time, configure the ‘org-icalendar-alarm-time’
-variable.
-
- The iCalendar format standard requires globally unique
-identifier—UID—for each entry. The iCalendar export back-end creates
-UIDs during export. To save a copy of the UID in the Org file set the
-variable ‘org-icalendar-store-UID’. The back-end looks for the ‘:ID:’
-property of the entry for re-using the same UID for subsequent exports.
-
- Since a single Org entry can result in multiple iCalendar entries—as
-timestamp, deadline, scheduled item, or TODO item—Org adds prefixes to
-the UID, depending on which part of the Org entry triggered the creation
-of the iCalendar entry. Prefixing ensures UIDs remains unique, yet
-enable synchronization programs trace the connections.
-
-‘C-c C-e c f (org-icalendar-export-to-ics)’
- Create iCalendar entries from the current Org buffer and store them
- in the same directory, using a file extension ‘.ics’.
-‘C-c C-e c a (org-icalendar-export-agenda-files)’
- Create iCalendar entries from Org files in ‘org-agenda-files’ and
- store in a separate iCalendar file for each Org file.
-‘C-c C-e c c (org-icalendar-combine-agenda-files)’
- Create a combined iCalendar file from Org files in
- ‘org-agenda-files’ and write it to
- ‘org-icalendar-combined-agenda-file’ file name.
-
- The iCalendar export back-end includes ‘SUMMARY’, ‘DESCRIPTION’,
-‘LOCATION’ and ‘TIMEZONE’ properties from the Org entries when
-exporting. To force the back-end to inherit the ‘LOCATION’ and
-‘TIMEZONE’ properties, configure the ‘org-use-property-inheritance’
-variable.
-
- When Org entries do not have ‘SUMMARY’, ‘DESCRIPTION’ and ‘LOCATION’
-properties, the iCalendar export back-end derives the summary from the
-headline, and derives the description from the body of the Org item.
-The ‘org-icalendar-include-body’ variable limits the maximum number of
-characters of the content are turned into its description.
-
- The ‘TIMEZONE’ property can be used to specify a per-entry time zone,
-and will be applied to any entry with timestamp information. Time zones
-should be specified as per the IANA time zone database format, e.g.
-“Asia/Almaty”. Alternately, the property value can be “UTC”, to force
-UTC time for this entry only.
-
- Exporting to iCalendar format depends in large part on the
-capabilities of the destination application. Some are more lenient than
-others. Consult the Org mode FAQ for advice on specific applications.
-
-
-File: org, Node: Other built-in back-ends, Next: Advanced configuration, Prev: iCalendar export, Up: Exporting
-
-12.16 Other built-in back-ends
-==============================
-
-Other export back-ends included with Org are:
-
- • ‘ox-man.el’: export to a man page.
-
- To activate such back-ends, either customize ‘org-export-backends’ or
-load directly with ‘(require 'ox-man)’. On successful load, the
-back-end adds new keys in the export dispatcher (*note The export
-dispatcher::).
-
- Follow the comment section of such files, for example, ‘ox-man.el’,
-for usage and configuration details.
-
-
-File: org, Node: Advanced configuration, Next: Export in foreign buffers, Prev: Other built-in back-ends, Up: Exporting
-
-12.17 Advanced configuration
-============================
-
-Hooks
------
-
-The export process executes two hooks before the actual exporting
-begins. The first hook, ‘org-export-before-processing-hook’, runs
-before any expansions of macros, Babel code, and include keywords in the
-buffer. The second hook, ‘org-export-before-parsing-hook’, runs before
-the buffer is parsed. Both hooks are specified as functions, see
-example below. Their main use is for heavy duty structural
-modifications of the Org content. For example, removing every headline
-in the buffer during export:
-
- (defun my-headline-removal (backend)
- "Remove all headlines in the current buffer.
- BACKEND is the export back-end being used, as a symbol."
- (org-map-entries
- (lambda () (delete-region (point) (progn (forward-line) (point))))))
-
- (add-hook 'org-export-before-parsing-hook 'my-headline-removal)
-
- Note that the hook function must have a mandatory argument that is a
-symbol for the back-end.
-
-Filters
--------
-
-The Org export process relies on filters to process specific parts of
-conversion process. Filters are just lists of functions to be applied
-to certain parts for a given back-end. The output from the first
-function in the filter is passed on to the next function in the filter.
-The final output is the output from the final function in the filter.
-
- The Org export process has many filter sets applicable to different
-types of objects, plain text, parse trees, export options, and final
-output formats. The filters are named after the element type or object
-type: ‘org-export-filter-TYPE-functions’, where ‘TYPE’ is the type
-targeted by the filter. Valid types are:
-
-body bold babel-call
-center-block clock code
-diary-sexp drawer dynamic-block
-entity example-block export-block
-export-snippet final-output fixed-width
-footnote-definition footnote-reference headline
-horizontal-rule inline-babel-call inline-src-block
-inlinetask italic item
-keyword latex-environment latex-fragment
-line-break link node-property
-options paragraph parse-tree
-plain-list plain-text planning
-property-drawer quote-block radio-target
-section special-block src-block
-statistics-cookie strike-through subscript
-superscript table table-cell
-table-row target timestamp
-underline verbatim verse-block
-
- Here is an example filter that replaces non-breaking spaces ‘~’ in
-the Org buffer with ‘_’ for the LaTeX back-end.
-
- (defun my-latex-filter-nobreaks (text backend info)
- "Ensure \"_\" are properly handled in LaTeX export."
- (when (org-export-derived-backend-p backend 'latex)
- (replace-regexp-in-string "_" "~" text)))
-
- (add-to-list 'org-export-filter-plain-text-functions
- 'my-latex-filter-nobreaks)
-
- A filter requires three arguments: the code to be transformed, the
-name of the back-end, and some optional information about the export
-process. The third argument can be safely ignored. Note the use of
-‘org-export-derived-backend-p’ predicate that tests for ‘latex’ back-end
-or any other back-end, such as ‘beamer’, derived from ‘latex’.
-
-Defining filters for individual files
--------------------------------------
-
-The Org export can filter not just for back-ends, but also for specific
-files through the ‘#+BIND’ keyword. Here is an example with two
-filters; one removes brackets from time stamps, and the other removes
-strike-through text. The filter functions are defined in a ‘src’ code
-block in the same Org file, which is a handy location for debugging.
-
- #+BIND: org-export-filter-timestamp-functions (tmp-f-timestamp)
- #+BIND: org-export-filter-strike-through-functions (tmp-f-strike-through)
- #+begin_src emacs-lisp :exports results :results none
- (defun tmp-f-timestamp (s backend info)
- (replace-regexp-in-string "&[lg]t;\\|[][]" "" s))
- (defun tmp-f-strike-through (s backend info) "")
- #+end_src
-
-Extending an existing back-end
-------------------------------
-
-Some parts of the conversion process can be extended for certain
-elements so as to introduce a new or revised translation. That is how
-the HTML export back-end was extended to handle Markdown format. The
-extensions work seamlessly so any aspect of filtering not done by the
-extended back-end is handled by the original back-end. Of all the
-export customization in Org, extending is very powerful as it operates
-at the parser level.
-
- For this example, make the ‘ascii’ back-end display the language used
-in a source code block. Also make it display only when some attribute
-is non-‘nil’, like the following:
-
- #+ATTR_ASCII: :language t
-
- Then extend ‘ascii’ back-end with a custom ‘my-ascii’ back-end.
-
- (defun my-ascii-src-block (src-block contents info)
- "Transcode a SRC-BLOCK element from Org to ASCII.
- CONTENTS is nil. INFO is a plist used as a communication
- channel."
- (if (not (org-export-read-attribute :attr_ascii src-block :language))
- (org-export-with-backend 'ascii src-block contents info)
- (concat
- (format ",--[ %s ]--\n%s`----"
- (org-element-property :language src-block)
- (replace-regexp-in-string
- "^" "| "
- (org-element-normalize-string
- (org-export-format-code-default src-block info)))))))
-
- (org-export-define-derived-backend 'my-ascii 'ascii
- :translate-alist '((src-block . my-ascii-src-block)))
-
- The ‘my-ascii-src-block’ function looks at the attribute above the
-current element. If not true, hands over to ‘ascii’ back-end. If true,
-which it is in this example, it creates a box around the code and leaves
-room for the inserting a string for language. The last form creates the
-new back-end that springs to action only when translating ‘src-block’
-type elements.
-
- To use the newly defined back-end, call the following from an Org
-buffer:
-
- (org-export-to-buffer 'my-ascii "*Org MY-ASCII Export*")
-
- Further steps to consider would be an interactive function,
-self-installing an item in the export dispatcher menu, and other
-user-friendly improvements.
-
-
-File: org, Node: Export in foreign buffers, Prev: Advanced configuration, Up: Exporting
-
-12.18 Export in foreign buffers
-===============================
-
-The export back-ends in Org often include commands to convert selected
-regions. A convenient feature of this in-place conversion is that the
-exported output replaces the original source. Here are such functions:
-
-‘org-html-convert-region-to-html’
- Convert the selected region into HTML.
-‘org-latex-convert-region-to-latex’
- Convert the selected region into LaTeX.
-‘org-texinfo-convert-region-to-texinfo’
- Convert the selected region into ‘Texinfo’.
-‘org-md-convert-region-to-md’
- Convert the selected region into ‘MarkDown’.
-
- In-place conversions are particularly handy for quick conversion of
-tables and lists in foreign buffers. For example, turn on the minor
-mode ‘M-x orgstruct-mode’ in an HTML buffer, then use the convenient Org
-keyboard commands to create a list, select it, and covert it to HTML
-with ‘M-x org-html-convert-region-to-html <RET>’.
-
-
-File: org, Node: Publishing, Next: Working with source code, Prev: Exporting, Up: Top
-
-13 Publishing
-*************
-
-Org includes a publishing management system that allows you to configure
-automatic HTML conversion of _projects_ composed of interlinked org
-files. You can also configure Org to automatically upload your exported
-HTML pages and related attachments, such as images and source code
-files, to a web server.
-
- You can also use Org to convert files into PDF, or even combine HTML
-and PDF conversion so that files are available in both formats on the
-server.
-
- Publishing has been contributed to Org by David O’Toole.
-
-* Menu:
-
-* Configuration:: Defining projects
-* Uploading files:: How to get files up on the server
-* Sample configuration:: Example projects
-* Triggering publication:: Publication commands
-
-
-File: org, Node: Configuration, Next: Uploading files, Up: Publishing
-
-13.1 Configuration
-==================
-
-Publishing needs significant configuration to specify files, destination
-and many other properties of a project.
-
-* Menu:
-
-* Project alist:: The central configuration variable
-* Sources and destinations:: From here to there
-* Selecting files:: What files are part of the project?
-* Publishing action:: Setting the function doing the publishing
-* Publishing options:: Tweaking HTML/LaTeX export
-* Publishing links:: Which links keep working after publishing?
-* Sitemap:: Generating a list of all pages
-* Generating an index:: An index that reaches across pages
-
-
-File: org, Node: Project alist, Next: Sources and destinations, Up: Configuration
-
-13.1.1 The variable ‘org-publish-project-alist’
------------------------------------------------
-
-Publishing is configured almost entirely through setting the value of
-one variable, called ‘org-publish-project-alist’. Each element of the
-list configures one project, and may be in one of the two following
-forms:
-
- ("project-name" :property value :property value ...)
- i.e., a well-formed property list with alternating keys and values
- or
- ("project-name" :components ("project-name" "project-name" ...))
-
-
- In both cases, projects are configured by specifying property values.
-A project defines the set of files that will be published, as well as
-the publishing configuration to use when publishing those files. When a
-project takes the second form listed above, the individual members of
-the ‘:components’ property are taken to be sub-projects, which group
-together files requiring different publishing options. When you publish
-such a “meta-project”, all the components will also be published, in the
-sequence given.
-
-
-File: org, Node: Sources and destinations, Next: Selecting files, Prev: Project alist, Up: Configuration
-
-13.1.2 Sources and destinations for files
------------------------------------------
-
-Most properties are optional, but some should always be set. In
-particular, Org needs to know where to look for source files, and where
-to put published files.
-
-‘:base-directory’ Directory containing publishing source files
-‘:publishing-directory’Directory where output files will be published.
- You can directly publish to a web server using a
- file name syntax appropriate for the Emacs
- ‘tramp’ package. Or you can publish to a local
- directory and use external tools to upload your
- website (*note Uploading files::).
-‘:preparation-function’Function or list of functions to be called
- before starting the publishing process, for
- example, to run ‘make’ for updating files to be
- published. Each preparation function is called
- with a single argument, the project property
- list.
-‘:completion-function’ Function or list of functions called after
- finishing the publishing process, for example,
- to change permissions of the resulting files.
- Each completion function is called with a single
- argument, the project property list.
-
-
-File: org, Node: Selecting files, Next: Publishing action, Prev: Sources and destinations, Up: Configuration
-
-13.1.3 Selecting files
-----------------------
-
-By default, all files with extension ‘.org’ in the base directory are
-considered part of the project. This can be modified by setting the
-properties
-‘:base-extension’ Extension (without the dot!) of source files. This
- actually is a regular expression. Set this to the
- symbol ‘any’ if you want to get all files in
- ‘:base-directory’, even without extension.
-
-‘:exclude’ Regular expression to match file names that should
- not be published, even though they have been
- selected on the basis of their extension.
-
-‘:include’ List of files to be included regardless of
- ‘:base-extension’ and ‘:exclude’.
-
-‘:recursive’ non-‘nil’ means, check base-directory recursively
- for files to publish.
-
-
-File: org, Node: Publishing action, Next: Publishing options, Prev: Selecting files, Up: Configuration
-
-13.1.4 Publishing action
-------------------------
-
-Publishing means that a file is copied to the destination directory and
-possibly transformed in the process. The default transformation is to
-export Org files as HTML files, and this is done by the function
-‘org-html-publish-to-html’, which calls the HTML exporter (*note HTML
-export::). But you also can publish your content as PDF files using
-‘org-latex-publish-to-pdf’ or as ‘ascii’, ‘Texinfo’, etc., using the
-corresponding functions.
-
- If you want to publish the Org file as an ‘.org’ file but with the
-archived, commented and tag-excluded trees removed, use the function
-‘org-org-publish-to-org’. This will produce ‘file.org’ and put it in
-the publishing directory. If you want a htmlized version of this file,
-set the parameter ‘:htmlized-source’ to ‘t’, it will produce
-‘file.org.html’ in the publishing directory(1).
-
- Other files like images only need to be copied to the publishing
-destination. For this you can use ‘org-publish-attachment’. For
-non-org files, you always need to specify the publishing function:
-
-‘:publishing-function’ Function executing the publication of a file.
- This may also be a list of functions, which will
- all be called in turn.
-‘:htmlized-source’ non-‘nil’ means, publish htmlized source.
-
- The function must accept three arguments: a property list containing
-at least a ‘:publishing-directory’ property, the name of the file to be
-published and the path to the publishing directory of the output file.
-It should take the specified file, make the necessary transformation (if
-any) and place the result into the destination folder.
-
- ---------- Footnotes ----------
-
- (1) If the publishing directory is the same than the source
-directory, ‘file.org’ will be exported as ‘file.org.org’, so probably
-don’t want to do this.
-
-
-File: org, Node: Publishing options, Next: Publishing links, Prev: Publishing action, Up: Configuration
-
-13.1.5 Options for the exporters
---------------------------------
-
-The property list can be used to set export options during the
-publishing process. In most cases, these properties correspond to user
-variables in Org. While some properties are available for all export
-back-ends, most of them are back-end specific. The following sections
-list properties along with the variable they belong to. See the
-documentation string of these options for details.
-
- When a property is given a value in ‘org-publish-project-alist’, its
-setting overrides the value of the corresponding user variable (if any)
-during publishing. Options set within a file (*note Export settings::),
-however, override everything.
-
-Generic properties
-..................
-
-‘:archived-trees’ ‘org-export-with-archived-trees’
-‘:exclude-tags’ ‘org-export-exclude-tags’
-‘:headline-levels’ ‘org-export-headline-levels’
-‘:language’ ‘org-export-default-language’
-‘:preserve-breaks’ ‘org-export-preserve-breaks’
-‘:section-numbers’ ‘org-export-with-section-numbers’
-‘:select-tags’ ‘org-export-select-tags’
-‘:with-author’ ‘org-export-with-author’
-‘:with-broken-links’ ‘org-export-with-broken-links’
-‘:with-clocks’ ‘org-export-with-clocks’
-‘:with-creator’ ‘org-export-with-creator’
-‘:with-date’ ‘org-export-with-date’
-‘:with-drawers’ ‘org-export-with-drawers’
-‘:with-email’ ‘org-export-with-email’
-‘:with-emphasize’ ‘org-export-with-emphasize’
-‘:with-fixed-width’ ‘org-export-with-fixed-width’
-‘:with-footnotes’ ‘org-export-with-footnotes’
-‘:with-latex’ ‘org-export-with-latex’
-‘:with-planning’ ‘org-export-with-planning’
-‘:with-priority’ ‘org-export-with-priority’
-‘:with-properties’ ‘org-export-with-properties’
-‘:with-special-strings’ ‘org-export-with-special-strings’
-‘:with-sub-superscript’ ‘org-export-with-sub-superscripts’
-‘:with-tables’ ‘org-export-with-tables’
-‘:with-tags’ ‘org-export-with-tags’
-‘:with-tasks’ ‘org-export-with-tasks’
-‘:with-timestamps’ ‘org-export-with-timestamps’
-‘:with-title’ ‘org-export-with-title’
-‘:with-toc’ ‘org-export-with-toc’
-‘:with-todo-keywords’ ‘org-export-with-todo-keywords’
-
-ASCII specific properties
-.........................
-
-‘:ascii-bullets’ ‘org-ascii-bullets’
-‘:ascii-caption-above’ ‘org-ascii-caption-above’
-‘:ascii-charset’ ‘org-ascii-charset’
-‘:ascii-global-margin’ ‘org-ascii-global-margin’
-‘:ascii-format-drawer-function’ ‘org-ascii-format-drawer-function’
-‘:ascii-format-inlinetask-function’ ‘org-ascii-format-inlinetask-function’
-‘:ascii-headline-spacing’ ‘org-ascii-headline-spacing’
-‘:ascii-indented-line-width’ ‘org-ascii-indented-line-width’
-‘:ascii-inlinetask-width’ ‘org-ascii-inlinetask-width’
-‘:ascii-inner-margin’ ‘org-ascii-inner-margin’
-‘:ascii-links-to-notes’ ‘org-ascii-links-to-notes’
-‘:ascii-list-margin’ ‘org-ascii-list-margin’
-‘:ascii-paragraph-spacing’ ‘org-ascii-paragraph-spacing’
-‘:ascii-quote-margin’ ‘org-ascii-quote-margin’
-‘:ascii-table-keep-all-vertical-lines’ ‘org-ascii-table-keep-all-vertical-lines’
-‘:ascii-table-use-ascii-art’ ‘org-ascii-table-use-ascii-art’
-‘:ascii-table-widen-columns’ ‘org-ascii-table-widen-columns’
-‘:ascii-text-width’ ‘org-ascii-text-width’
-‘:ascii-underline’ ‘org-ascii-underline’
-‘:ascii-verbatim-format’ ‘org-ascii-verbatim-format’
-
-Beamer specific properties
-..........................
-
-‘:beamer-theme’ ‘org-beamer-theme’
-‘:beamer-column-view-format’ ‘org-beamer-column-view-format’
-‘:beamer-environments-extra’ ‘org-beamer-environments-extra’
-‘:beamer-frame-default-options’ ‘org-beamer-frame-default-options’
-‘:beamer-outline-frame-options’ ‘org-beamer-outline-frame-options’
-‘:beamer-outline-frame-title’ ‘org-beamer-outline-frame-title’
-‘:beamer-subtitle-format’ ‘org-beamer-subtitle-format’
-
-HTML specific properties
-........................
-
-‘:html-allow-name-attribute-in-anchors’ ‘org-html-allow-name-attribute-in-anchors’
-‘:html-checkbox-type’ ‘org-html-checkbox-type’
-‘:html-container’ ‘org-html-container-element’
-‘:html-divs’ ‘org-html-divs’
-‘:html-doctype’ ‘org-html-doctype’
-‘:html-extension’ ‘org-html-extension’
-‘:html-footnote-format’ ‘org-html-footnote-format’
-‘:html-footnote-separator’ ‘org-html-footnote-separator’
-‘:html-footnotes-section’ ‘org-html-footnotes-section’
-‘:html-format-drawer-function’ ‘org-html-format-drawer-function’
-‘:html-format-headline-function’ ‘org-html-format-headline-function’
-‘:html-format-inlinetask-function’ ‘org-html-format-inlinetask-function’
-‘:html-head-extra’ ‘org-html-head-extra’
-‘:html-head-include-default-style’ ‘org-html-head-include-default-style’
-‘:html-head-include-scripts’ ‘org-html-head-include-scripts’
-‘:html-head’ ‘org-html-head’
-‘:html-home/up-format’ ‘org-html-home/up-format’
-‘:html-html5-fancy’ ‘org-html-html5-fancy’
-‘:html-indent’ ‘org-html-indent’
-‘:html-infojs-options’ ‘org-html-infojs-options’
-‘:html-infojs-template’ ‘org-html-infojs-template’
-‘:html-inline-image-rules’ ‘org-html-inline-image-rules’
-‘:html-inline-images’ ‘org-html-inline-images’
-‘:html-link-home’ ‘org-html-link-home’
-‘:html-link-org-files-as-html’ ‘org-html-link-org-files-as-html’
-‘:html-link-up’ ‘org-html-link-up’
-‘:html-link-use-abs-url’ ‘org-html-link-use-abs-url’
-‘:html-mathjax-options’ ‘org-html-mathjax-options’
-‘:html-mathjax-template’ ‘org-html-mathjax-template’
-‘:html-metadata-timestamp-format’ ‘org-html-metadata-timestamp-format’
-‘:html-postamble-format’ ‘org-html-postamble-format’
-‘:html-postamble’ ‘org-html-postamble’
-‘:html-preamble-format’ ‘org-html-preamble-format’
-‘:html-preamble’ ‘org-html-preamble’
-‘:html-table-align-individual-fields’ ‘org-html-table-align-individual-fields’
-‘:html-table-attributes’ ‘org-html-table-default-attributes’
-‘:html-table-caption-above’ ‘org-html-table-caption-above’
-‘:html-table-data-tags’ ‘org-html-table-data-tags’
-‘:html-table-header-tags’ ‘org-html-table-header-tags’
-‘:html-table-row-tags’ ‘org-html-table-row-tags’
-‘:html-table-use-header-tags-for-first-column’ ‘org-html-table-use-header-tags-for-first-column’
-‘:html-tag-class-prefix’ ‘org-html-tag-class-prefix’
-‘:html-text-markup-alist’ ‘org-html-text-markup-alist’
-‘:html-todo-kwd-class-prefix’ ‘org-html-todo-kwd-class-prefix’
-‘:html-toplevel-hlevel’ ‘org-html-toplevel-hlevel’
-‘:html-use-infojs’ ‘org-html-use-infojs’
-‘:html-validation-link’ ‘org-html-validation-link’
-‘:html-viewport’ ‘org-html-viewport’
-‘:html-xml-declaration’ ‘org-html-xml-declaration’
-
-LaTeX specific properties
-.........................
-
-‘:latex-active-timestamp-format’ ‘org-latex-active-timestamp-format’
-‘:latex-caption-above’ ‘org-latex-caption-above’
-‘:latex-classes’ ‘org-latex-classes’
-‘:latex-class’ ‘org-latex-default-class’
-‘:latex-compiler’ ‘org-latex-compiler’
-‘:latex-default-figure-position’ ‘org-latex-default-figure-position’
-‘:latex-default-table-environment’ ‘org-latex-default-table-environment’
-‘:latex-default-table-mode’ ‘org-latex-default-table-mode’
-‘:latex-diary-timestamp-format’ ‘org-latex-diary-timestamp-format’
-‘:latex-footnote-defined-format’ ‘org-latex-footnote-defined-format’
-‘:latex-footnote-separator’ ‘org-latex-footnote-separator’
-‘:latex-format-drawer-function’ ‘org-latex-format-drawer-function’
-‘:latex-format-headline-function’ ‘org-latex-format-headline-function’
-‘:latex-format-inlinetask-function’ ‘org-latex-format-inlinetask-function’
-‘:latex-hyperref-template’ ‘org-latex-hyperref-template’
-‘:latex-image-default-height’ ‘org-latex-image-default-height’
-‘:latex-image-default-option’ ‘org-latex-image-default-option’
-‘:latex-image-default-width’ ‘org-latex-image-default-width’
-‘:latex-images-centered’ ‘org-latex-images-centered’
-‘:latex-inactive-timestamp-format’ ‘org-latex-inactive-timestamp-format’
-‘:latex-inline-image-rules’ ‘org-latex-inline-image-rules’
-‘:latex-link-with-unknown-path-format’ ‘org-latex-link-with-unknown-path-format’
-‘:latex-listings-langs’ ‘org-latex-listings-langs’
-‘:latex-listings-options’ ‘org-latex-listings-options’
-‘:latex-listings’ ‘org-latex-listings’
-‘:latex-minted-langs’ ‘org-latex-minted-langs’
-‘:latex-minted-options’ ‘org-latex-minted-options’
-‘:latex-prefer-user-labels’ ‘org-latex-prefer-user-labels’
-‘:latex-subtitle-format’ ‘org-latex-subtitle-format’
-‘:latex-subtitle-separate’ ‘org-latex-subtitle-separate’
-‘:latex-table-scientific-notation’ ‘org-latex-table-scientific-notation’
-‘:latex-tables-booktabs’ ‘org-latex-tables-booktabs’
-‘:latex-tables-centered’ ‘org-latex-tables-centered’
-‘:latex-text-markup-alist’ ‘org-latex-text-markup-alist’
-‘:latex-title-command’ ‘org-latex-title-command’
-‘:latex-toc-command’ ‘org-latex-toc-command’
-
-Markdown specific properties
-............................
-
-‘:md-footnote-format’ ‘org-md-footnote-format’
-‘:md-footnotes-section’ ‘org-md-footnotes-section’
-‘:md-headline-style’ ‘org-md-headline-style’
-
-ODT specific properties
-.......................
-
-‘:odt-content-template-file’ ‘org-odt-content-template-file’
-‘:odt-display-outline-level’ ‘org-odt-display-outline-level’
-‘:odt-fontify-srcblocks’ ‘org-odt-fontify-srcblocks’
-‘:odt-format-drawer-function’ ‘org-odt-format-drawer-function’
-‘:odt-format-headline-function’ ‘org-odt-format-headline-function’
-‘:odt-format-inlinetask-function’ ‘org-odt-format-inlinetask-function’
-‘:odt-inline-formula-rules’ ‘org-odt-inline-formula-rules’
-‘:odt-inline-image-rules’ ‘org-odt-inline-image-rules’
-‘:odt-pixels-per-inch’ ‘org-odt-pixels-per-inch’
-‘:odt-styles-file’ ‘org-odt-styles-file’
-‘:odt-table-styles’ ‘org-odt-table-styles’
-‘:odt-use-date-fields’ ‘org-odt-use-date-fields’
-
-Texinfo specific properties
-...........................
-
-‘:texinfo-active-timestamp-format’ ‘org-texinfo-active-timestamp-format’
-‘:texinfo-classes’ ‘org-texinfo-classes’
-‘:texinfo-class’ ‘org-texinfo-default-class’
-‘:texinfo-table-default-markup’ ‘org-texinfo-table-default-markup’
-‘:texinfo-diary-timestamp-format’ ‘org-texinfo-diary-timestamp-format’
-‘:texinfo-filename’ ‘org-texinfo-filename’
-‘:texinfo-format-drawer-function’ ‘org-texinfo-format-drawer-function’
-‘:texinfo-format-headline-function’ ‘org-texinfo-format-headline-function’
-‘:texinfo-format-inlinetask-function’ ‘org-texinfo-format-inlinetask-function’
-‘:texinfo-inactive-timestamp-format’ ‘org-texinfo-inactive-timestamp-format’
-‘:texinfo-link-with-unknown-path-format’ ‘org-texinfo-link-with-unknown-path-format’
-‘:texinfo-node-description-column’ ‘org-texinfo-node-description-column’
-‘:texinfo-table-scientific-notation’ ‘org-texinfo-table-scientific-notation’
-‘:texinfo-tables-verbatim’ ‘org-texinfo-tables-verbatim’
-‘:texinfo-text-markup-alist’ ‘org-texinfo-text-markup-alist’
-
-
-File: org, Node: Publishing links, Next: Sitemap, Prev: Publishing options, Up: Configuration
-
-13.1.6 Links between published files
-------------------------------------
-
-To create a link from one Org file to another, you would use something
-like ‘[[file:foo.org][The foo]]’ or simply ‘file:foo.org’ (*note
-External links::). When published, this link becomes a link to
-‘foo.html’. You can thus interlink the pages of your “org web” project
-and the links will work as expected when you publish them to HTML. If
-you also publish the Org source file and want to link to it, use an
-‘http:’ link instead of a ‘file:’ link, because ‘file:’ links are
-converted to link to the corresponding ‘html’ file.
-
- You may also link to related files, such as images. Provided you are
-careful with relative file names, and provided you have also configured
-Org to upload the related files, these links will work too. See *note
-Complex example::, for an example of this usage.
-
- Eventually, links between published documents can contain some search
-options (*note Search options::), which will be resolved to the
-appropriate location in the linked file. For example, once published to
-HTML, the following links all point to a dedicated anchor in ‘foo.html’.
-
- [[file:foo.org::*heading]]
- [[file:foo.org::#custom-id]]
- [[file:foo.org::target]]
-
-
-File: org, Node: Sitemap, Next: Generating an index, Prev: Publishing links, Up: Configuration
-
-13.1.7 Generating a sitemap
----------------------------
-
-The following properties may be used to control publishing of a map of
-files for a given project.
-
-‘:auto-sitemap’ When non-‘nil’, publish a sitemap during
- ‘org-publish-current-project’ or
- ‘org-publish-all’.
-
-‘:sitemap-filename’ Filename for output of sitemap. Defaults to
- ‘sitemap.org’ (which becomes ‘sitemap.html’).
-
-‘:sitemap-title’ Title of sitemap page. Defaults to name of
- file.
-
-‘:sitemap-format-entry’ With this option one can tell how a site-map
- entry is formatted in the site-map. It is a
- function called with three arguments: the
- file or directory name relative to base
- directory of the project, the site-map style
- and the current project. It is expected to
- return a string. Default value turns file
- names into links and use document titles as
- descriptions. For specific formatting needs,
- one can use ‘org-publish-find-date’,
- ‘org-publish-find-title’ and
- ‘org-publish-find-property’, to retrieve
- additional information about published
- documents.
-
-‘:sitemap-function’ Plug-in function to use for generation of the
- sitemap. It is called with two arguments:
- the title of the site-map and a
- representation of the files and directories
- involved in the project as a radio list
- (*note Radio lists::). The latter can
- further be transformed using
- ‘org-list-to-generic’, ‘org-list-to-subtree’
- and alike. Default value generates a plain
- list of links to all files in the project.
-
-‘:sitemap-sort-folders’ Where folders should appear in the sitemap.
- Set this to ‘first’ (default) or ‘last’ to
- display folders first or last, respectively.
- When set to ‘ignore’, folders are ignored
- altogether. Any other value will mix files
- and folders. This variable has no effect
- when site-map style is ‘tree’.
-
-‘:sitemap-sort-files’ How the files are sorted in the site map.
- Set this to ‘alphabetically’ (default),
- ‘chronologically’ or ‘anti-chronologically’.
- ‘chronologically’ sorts the files with older
- date first while ‘anti-chronologically’ sorts
- the files with newer date first.
- ‘alphabetically’ sorts the files
- alphabetically. The date of a file is
- retrieved with ‘org-publish-find-date’.
-
-‘:sitemap-ignore-case’ Should sorting be case-sensitive? Default
- ‘nil’.
-
-‘:sitemap-date-format’ Format string for the ‘format-time-string’
- function that tells how a sitemap entry’s
- date is to be formatted. This property
- bypasses ‘org-publish-sitemap-date-format’
- which defaults to ‘%Y-%m-%d’.
-
-
-
-File: org, Node: Generating an index, Prev: Sitemap, Up: Configuration
-
-13.1.8 Generating an index
---------------------------
-
-Org mode can generate an index across the files of a publishing project.
-
-‘:makeindex’ When non-‘nil’, generate in index in the file
- ‘theindex.org’ and publish it as ‘theindex.html’.
-
- The file will be created when first publishing a project with the
-‘:makeindex’ set. The file only contains a statement ‘#+INCLUDE:
-"theindex.inc"’. You can then build around this include statement by
-adding a title, style information, etc.
-
- Index entries are specified with ‘#+INDEX’ keyword. An entry that
-contains an exclamation mark will create a sub item.
-
- * Curriculum Vitae
- #+INDEX: CV
- #+INDEX: Application!CV
-
-
-File: org, Node: Uploading files, Next: Sample configuration, Prev: Configuration, Up: Publishing
-
-13.2 Uploading files
-====================
-
-For those people already utilizing third party sync tools such as
-‘rsync’ or ‘unison’, it might be preferable not to use the built in
-remote publishing facilities of Org mode which rely heavily on Tramp.
-Tramp, while very useful and powerful, tends not to be so efficient for
-multiple file transfer and has been known to cause problems under heavy
-usage.
-
- Specialized synchronization utilities offer several advantages. In
-addition to timestamp comparison, they also do content and
-permissions/attribute checks. For this reason you might prefer to
-publish your web to a local directory (possibly even in place with your
-Org files) and then use ‘unison’ or ‘rsync’ to do the synchronization
-with the remote host.
-
- Since Unison (for example) can be configured as to which files to
-transfer to a certain remote destination, it can greatly simplify the
-project publishing definition. Simply keep all files in the correct
-location, process your Org files with ‘org-publish’ and let the
-synchronization tool do the rest. You do not need, in this scenario, to
-include attachments such as ‘jpg’, ‘css’ or ‘gif’ files in the project
-definition since the 3rd party tool syncs them.
-
- Publishing to a local directory is also much faster than to a remote
-one, so that you can afford more easily to republish entire projects.
-If you set ‘org-publish-use-timestamps-flag’ to ‘nil’, you gain the main
-benefit of re-including any changed external files such as source
-example files you might include with ‘#+INCLUDE:’. The timestamp
-mechanism in Org is not smart enough to detect if included files have
-been modified.
-
-
-File: org, Node: Sample configuration, Next: Triggering publication, Prev: Uploading files, Up: Publishing
-
-13.3 Sample configuration
-=========================
-
-Below we provide two example configurations. The first one is a simple
-project publishing only a set of Org files. The second example is more
-complex, with a multi-component project.
-
-* Menu:
-
-* Simple example:: One-component publishing
-* Complex example:: A multi-component publishing example
-
-
-File: org, Node: Simple example, Next: Complex example, Up: Sample configuration
-
-13.3.1 Example: simple publishing configuration
------------------------------------------------
-
-This example publishes a set of Org files to the ‘public_html’ directory
-on the local machine.
-
- (setq org-publish-project-alist
- '(("org"
- :base-directory "~/org/"
- :publishing-directory "~/public_html"
- :publishing-function org-html-publish-to-html
- :section-numbers nil
- :with-toc nil
- :html-head "<link rel=\"stylesheet\"
- href=\"../other/mystyle.css\"
- type=\"text/css\"/>")))
-
-
-File: org, Node: Complex example, Prev: Simple example, Up: Sample configuration
-
-13.3.2 Example: complex publishing configuration
-------------------------------------------------
-
-This more complicated example publishes an entire website, including Org
-files converted to HTML, image files, Emacs Lisp source code, and style
-sheets. The publishing directory is remote and private files are
-excluded.
-
- To ensure that links are preserved, care should be taken to replicate
-your directory structure on the web server, and to use relative file
-paths. For example, if your Org files are kept in ‘~/org’ and your
-publishable images in ‘~/images’, you would link to an image with
- file:../images/myimage.png
- On the web server, the relative path to the image should be the same.
-You can accomplish this by setting up an "images" folder in the right
-place on the web server, and publishing images to it.
-
- (setq org-publish-project-alist
- '(("orgfiles"
- :base-directory "~/org/"
- :base-extension "org"
- :publishing-directory "/ssh:user@host:~/html/notebook/"
- :publishing-function org-html-publish-to-html
- :exclude "PrivatePage.org" ;; regexp
- :headline-levels 3
- :section-numbers nil
- :with-toc nil
- :html-head "<link rel=\"stylesheet\"
- href=\"../other/mystyle.css\" type=\"text/css\"/>"
- :html-preamble t)
-
- ("images"
- :base-directory "~/images/"
- :base-extension "jpg\\|gif\\|png"
- :publishing-directory "/ssh:user@host:~/html/images/"
- :publishing-function org-publish-attachment)
-
- ("other"
- :base-directory "~/other/"
- :base-extension "css\\|el"
- :publishing-directory "/ssh:user@host:~/html/other/"
- :publishing-function org-publish-attachment)
- ("website" :components ("orgfiles" "images" "other"))))
-
-
-File: org, Node: Triggering publication, Prev: Sample configuration, Up: Publishing
-
-13.4 Triggering publication
-===========================
-
-Once properly configured, Org can publish with the following commands:
-
-‘C-c C-e P x (org-publish)’
- Prompt for a specific project and publish all files that belong to
- it.
-‘C-c C-e P p (org-publish-current-project)’
- Publish the project containing the current file.
-‘C-c C-e P f (org-publish-current-file)’
- Publish only the current file.
-‘C-c C-e P a (org-publish-all)’
- Publish every project.
-
- Org uses timestamps to track when a file has changed. The above
-functions normally only publish changed files. You can override this
-and force publishing of all files by giving a prefix argument to any of
-the commands above, or by customizing the variable
-‘org-publish-use-timestamps-flag’. This may be necessary in particular
-if files include other files via ‘#+SETUPFILE:’ or ‘#+INCLUDE:’.
-
-
-File: org, Node: Working with source code, Next: Miscellaneous, Prev: Publishing, Up: Top
-
-14 Working with source code
-***************************
-
-Source code here refers to any code typed in Org mode documents. Org
-can manage source code in any Org file once such code is tagged with
-begin and end markers. Working with source code begins with tagging
-source code blocks. Tagged ‘src’ code blocks are not restricted to the
-preamble or the end of an Org document; they can go anywhere—with a few
-exceptions, such as not inside comments and fixed width areas. Here’s a
-sample ‘src’ code block in emacs-lisp:
-
- #+BEGIN_SRC emacs-lisp
- (defun org-xor (a b)
- "Exclusive or."
- (if a (not b) b))
- #+END_SRC
-
- Org can take the code in the block between the ‘#+BEGIN_SRC’ and
-‘#+END_SRC’ tags, and format, compile, execute, and show the results.
-Org can simplify many housekeeping tasks essential to modern code
-maintenance. That’s why these blocks in Org mode literature are
-sometimes referred to as ‘live code’ blocks (as compared to the static
-text and documentation around it). Users can control how ‘live’ they
-want each block by tweaking the headers for compiling, execution,
-extraction.
-
- Org’s ‘src’ code block type is one of many block types, such as
-quote, export, verse, latex, example, and verbatim. This section
-pertains to ‘src’ code blocks between ‘#+BEGIN_SRC’ and ‘#+END_SRC’
-
- For editing ‘src’ code blocks, Org provides native Emacs major-modes.
-That leverages the latest Emacs features for that source code language
-mode.
-
- For exporting, Org can then extract ‘src’ code blocks into compilable
-source files (in a conversion process known as “tangling” in literate
-programming terminology).
-
- For publishing, Org’s back-ends can handle the ‘src’ code blocks and
-the text for output to a variety of formats with native syntax
-highlighting.
-
- For executing the source code in the ‘src’ code blocks, Org provides
-facilities that glue the tasks of compiling, collecting the results of
-the execution, and inserting them back to the Org file. Besides text
-output, results may include links to other data types that Emacs can
-handle: audio, video, and graphics.
-
- An important feature of Org’s execution of the ‘src’ code blocks is
-passing variables, functions, and results between ‘src’ blocks. Such
-interoperability uses a common syntax even if these ‘src’ blocks are in
-different source code languages. The integration extends to linking the
-debugger’s error messages to the line in the ‘src’ code block in the Org
-file. That should partly explain why this functionality by the original
-contributors, Eric Schulte and Dan Davison, was called ‘Org Babel’.
-
- In literate programming, the main appeal is code and documentation
-co-existing in one file. Org mode takes this several steps further.
-First by enabling execution, and then by inserting results of that
-execution back into the Org file. Along the way, Org provides extensive
-formatting features, including handling tables. Org handles multiple
-source code languages in one file, and provides a common syntax for
-passing variables, functions, and results between ‘src’ code blocks.
-
- Org mode fulfills the promise of easy verification and maintenance of
-publishing reproducible research by keeping all these in the same file:
-text, data, code, configuration settings of the execution environment,
-the results of the execution, and associated narratives, claims,
-references, and internal and external links.
-
- Details of Org’s facilities for working with source code are shown
-next.
-
-* Menu:
-
-* Structure of code blocks:: Code block syntax described
-* Editing source code:: Language major-mode editing
-* Exporting code blocks:: Export contents and/or results
-* Extracting source code:: Create pure source code files
-* Evaluating code blocks:: Place results of evaluation in the Org mode buffer
-* Library of Babel:: Use and contribute to a library of useful code blocks
-* Languages:: List of supported code block languages
-* Header arguments:: Configure code block functionality
-* Results of evaluation:: How evaluation results are handled
-* Noweb reference syntax:: Literate programming in Org mode
-* Key bindings and useful functions:: Work quickly with code blocks
-* Batch execution:: Call functions from the command line
-
-
-File: org, Node: Structure of code blocks, Next: Editing source code, Up: Working with source code
-
-14.1 Structure of code blocks
-=============================
-
-Org offers two ways to structure source code in Org documents: in a
-‘src’ block, and directly inline. Both specifications are shown below.
-
- A ‘src’ block conforms to this structure:
-
- #+NAME: <name>
- #+BEGIN_SRC <language> <switches> <header arguments>
- <body>
- #+END_SRC
-
- Org mode’s templates system (*note Easy templates::) speeds up
-creating ‘src’ code blocks with just three keystrokes. Do not be
-put-off by having to remember the source block syntax. Org also works
-with other completion systems in Emacs, some of which predate Org and
-have custom domain-specific languages for defining templates. Regular
-use of templates reduces errors, increases accuracy, and maintains
-consistency.
-
- An inline code block conforms to this structure:
-
- src_<language>{<body>}
-
- or
-
- src_<language>[<header arguments>]{<body>}
-
-‘#+NAME: <name>’
- Optional. Names the ‘src’ block so it can be called, like a
- function, from other ‘src’ blocks or inline blocks to evaluate or
- to capture the results. Code from other blocks, other files, and
- from table formulas (*note The spreadsheet::) can use the name to
- reference a ‘src’ block. This naming serves the same purpose as
- naming Org tables. Org mode requires unique names. For duplicate
- names, Org mode’s behavior is undefined.
-‘#+BEGIN_SRC’
-‘#+END_SRC’
- Mandatory. They mark the start and end of a block that Org
- requires. The ‘#+BEGIN_SRC’ line takes additional arguments, as
- described next.
-‘<language>’
- Mandatory for live code blocks. It is the identifier of the source
- code language in the block. *Note Languages::, for identifiers of
- supported languages.
-‘<switches>’
- Optional. Switches provide finer control of the code execution,
- export, and format (see the discussion of switches in *note Literal
- examples::)
-‘<header arguments>’
- Optional. Heading arguments control many aspects of evaluation,
- export and tangling of code blocks (*note Header arguments::).
- Using Org’s properties feature, header arguments can be selectively
- applied to the entire buffer or specific sub-trees of the Org
- document.
-‘source code, header arguments’
-‘<body>’
- Source code in the dialect of the specified language identifier.
-
-
-File: org, Node: Editing source code, Next: Exporting code blocks, Prev: Structure of code blocks, Up: Working with source code
-
-14.2 Editing source code
-========================
-
-‘C-c '’ for editing the current code block. It opens a new major-mode
-edit buffer containing the body of the ‘src’ code block, ready for any
-edits. ‘C-c '’ again to close the buffer and return to the Org buffer.
-
- ‘C-x C-s’ saves the buffer and updates the contents of the Org
-buffer.
-
- Set ‘org-edit-src-auto-save-idle-delay’ to save the base buffer after
-a certain idle delay time.
-
- Set ‘org-edit-src-turn-on-auto-save’ to auto-save this buffer into a
-separate file using ‘auto-save-mode’.
-
- ‘C-c '’ to close the major-mode buffer and return back to the Org
-buffer.
-
- While editing the source code in the major-mode, the ‘org-src-mode’
-minor mode remains active. It provides these customization variables as
-described below. For even more variables, look in the customization
-group ‘org-edit-structure’.
-
-‘org-src-lang-modes’
- If an Emacs major-mode named ‘<lang>-mode’ exists, where ‘<lang>’
- is the language identifier from code block’s header line, then the
- edit buffer uses that major-mode. Use this variable to arbitrarily
- map language identifiers to major modes.
-‘org-src-window-setup’
- For specifying Emacs window arrangement when the new edit buffer is
- created.
-‘org-src-preserve-indentation’
- Default is ‘nil’. Source code is indented. This indentation
- applies during export or tangling, and depending on the context,
- may alter leading spaces and tabs. When non-‘nil’, source code is
- aligned with the leftmost column. No lines are modified during
- export or tangling, which is very useful for white-space sensitive
- languages, such as Python.
-‘org-src-ask-before-returning-to-edit-buffer’
- When ‘nil’, Org returns to the edit buffer without further prompts.
- The default prompts for a confirmation.
-
- Set ‘org-src-fontify-natively’ to non-‘nil’ to turn on native code
-fontification in the _Org_ buffer. Fontification of ‘src’ code blocks
-can give visual separation of text and code on the display page. To
-further customize the appearance of ‘org-block’ for specific languages,
-customize ‘org-src-block-faces’. The following example shades the
-background of regular blocks, and colors source blocks only for Python
-and Emacs-Lisp languages.
- (require 'color)
- (set-face-attribute 'org-block nil :background
- (color-darken-name
- (face-attribute 'default :background) 3))
-
- (setq org-src-block-faces '(("emacs-lisp" (:background "#EEE2FF"))
- ("python" (:background "#E5FFB8"))))
-
-
-File: org, Node: Exporting code blocks, Next: Extracting source code, Prev: Editing source code, Up: Working with source code
-
-14.3 Exporting code blocks
-==========================
-
-Org can flexibly export just the _code_ from the code blocks, just the
-_results_ of evaluation of the code block, _both_ the code and the
-results of the code block evaluation, or _none_. Org defaults to
-exporting _code_ for most languages. For some languages, such as
-‘ditaa’, Org defaults to _results_. To export just the body of code
-blocks, *note Literal examples::. To selectively export sub-trees of an
-Org document, *note Exporting::.
-
- The ‘:exports’ header arguments control exporting code blocks only
-and not inline code:
-
-Header arguments:
-.................
-
-‘:exports code’
- This is the default for most languages where the body of the code
- block is exported. See *note Literal examples:: for more.
-‘:exports results’
- On export, Org includes only the results and not the code block.
- After each evaluation, Org inserts the results after the end of
- code block in the Org buffer. By default, Org replaces any
- previous results. Org can also append results.
-‘:exports both’
- Org exports both the code block and the results.
-‘:exports none’
- Org does not export the code block nor the results.
-
- To stop Org from evaluating code blocks to speed exports, use the
-header argument ‘:eval never-export’ (*note eval::). To stop Org from
-evaluating code blocks for greater security, set the
-‘org-export-use-babel’ variable to ‘nil’, but understand that header
-arguments will have no effect.
-
- Turning off evaluation comes in handy when batch processing. For
-example, markup languages for wikis, which have a high risk of untrusted
-code. Stopping code block evaluation also stops evaluation of all
-header arguments of the code block. This may not be desirable in some
-circumstances. So during export, to allow evaluation of just the header
-arguments but not any code evaluation in the source block, set ‘:eval
-never-export’ (*note eval::).
-
- Org never evaluates code blocks in commented sub-trees when exporting
-(*note Comment lines::). On the other hand, Org does evaluate code
-blocks in sub-trees excluded from export (*note Export settings::).
-
-
-File: org, Node: Extracting source code, Next: Evaluating code blocks, Prev: Exporting code blocks, Up: Working with source code
-
-14.4 Extracting source code
-===========================
-
-Extracting source code from code blocks is a basic task in literate
-programming. Org has features to make this easy. In literate
-programming parlance, documents on creation are _woven_ with code and
-documentation, and on export, the code is _tangled_ for execution by a
-computer. Org facilitates weaving and tangling for producing,
-maintaining, sharing, and exporting literate programming documents. Org
-provides extensive customization options for extracting source code.
-
- When Org tangles ‘src’ code blocks, it expands, merges, and
-transforms them. Then Org recomposes them into one or more separate
-files, as configured through the options. During this _tangling_
-process, Org expands variables in the source code, and resolves any
-Noweb style references (*note Noweb reference syntax::).
-
-Header arguments
-................
-
-‘:tangle no’
- By default, Org does not tangle the ‘src’ code block on export.
-‘:tangle yes’
- Org extracts the contents of the code block for the tangled output.
- By default, the output file name is the same as the Org file but
- with a file extension derived from the language identifier of the
- ‘src’ code block.
-‘:tangle filename’
- Override the default file name with this one for the tangled
- output.
-
-Functions
-.........
-
-‘org-babel-tangle’
- Tangle the current file. Bound to ‘C-c C-v t’.
-
- With prefix argument only tangle the current ‘src’ code block.
-‘org-babel-tangle-file’
- Choose a file to tangle. Bound to ‘C-c C-v f’.
-
-Hooks
-.....
-
-‘org-babel-post-tangle-hook’
- This hook runs from within code tangled by ‘org-babel-tangle’,
- making it suitable for post-processing, compilation, and evaluation
- of code in the tangled files.
-
-Jumping between code and Org
-............................
-
-Debuggers normally link errors and messages back to the source code.
-But for tangled files, we want to link back to the Org file, not to the
-tangled source file. To make this extra jump, Org uses
-‘org-babel-tangle-jump-to-org’ function with two additional source code
-block header arguments: One, set ‘padline’ (*note padline::) to true
-(the default setting). Two, set ‘comments’ (*note comments::) to
-‘link’, which makes Org insert links to the Org file.
-
-
-File: org, Node: Evaluating code blocks, Next: Library of Babel, Prev: Extracting source code, Up: Working with source code
-
-14.5 Evaluating code blocks
-===========================
-
-A note about security: With code evaluation comes the risk of harm. Org
-safeguards by prompting for user’s permission before executing any code
-in the source block. To customize this safeguard (or disable it) see
-*note Code evaluation security::.
-
- Org captures the results of the ‘src’ code block evaluation and
-inserts them in the Org file, right after the ‘src’ code block. The
-insertion point is after a newline and the ‘#+RESULTS’ label. Org
-creates the ‘#+RESULTS’ label if one is not already there.
-
- By default, Org enables only ‘emacs-lisp’ ‘src’ code blocks for
-execution. See *note Languages:: for identifiers to enable other
-languages.
-
- Org provides many ways to execute ‘src’ code blocks. ‘C-c C-c’ or
-‘C-c C-v e’ with the point on a ‘src’ code block(1) calls the
-‘org-babel-execute-src-block’ function, which executes the code in the
-block, collects the results, and inserts them in the buffer.
-
- By calling a named code block(2) from an Org mode buffer or a table.
-Org can call the named ‘src’ code blocks from the current Org mode
-buffer or from the “Library of Babel” (*note Library of Babel::).
-Whether inline syntax or the ‘#+CALL:’ syntax is used, the result is
-wrapped based on the variable ‘org-babel-inline-result-wrap’, which by
-default is set to ‘"=%s="’ to produce verbatim text suitable for markup.
-
- The syntax for ‘#+CALL:’ is
-
- #+CALL: <name>(<arguments>)
- #+CALL: <name>[<inside header arguments>](<arguments>) <end header arguments>
-
- The syntax for inline named code block is
-
- ... call_<name>(<arguments>) ...
- ... call_<name>[<inside header arguments>](<arguments>)[<end header arguments>] ...
-
-‘<name>’
- This is the name of the code block to be evaluated (*note Structure
- of code blocks::).
-‘<arguments>’
- Org passes arguments to the code block using standard function call
- syntax. For example, a ‘#+CALL:’ line that passes ‘4’ to a code
- block named ‘double’, which declares the header argument ‘:var
- n=2’, would be written as ‘#+CALL: double(n=4)’. Note how this
- function call syntax is different from the header argument syntax.
-‘<inside header arguments>’
- Org passes inside header arguments to the named ‘src’ code block
- using the header argument syntax. Inside header arguments apply to
- code block evaluation. For example, ‘[:results output]’ collects
- results printed to ‘STDOUT’ during code execution of that block.
- Note how this header argument syntax is different from the function
- call syntax.
-‘<end header arguments>’
- End header arguments affect the results returned by the code block.
- For example, ‘:results html’ wraps the results in a ‘BEGIN_EXPORT
- html’ block before inserting the results in the Org buffer.
-
- For more examples of header arguments for ‘#+CALL:’ lines, *note
- Arguments in function calls::.
-
- ---------- Footnotes ----------
-
- (1) The option ‘org-babel-no-eval-on-ctrl-c-ctrl-c’ can be used to
-remove code evaluation from the ‘C-c C-c’ key binding.
-
- (2) Actually, the constructs call_<name>() and src_<lang>{} are not
-evaluated when they appear in a keyword line (i.e. lines starting with
-‘#+KEYWORD:’, *note In-buffer settings::).
-
-
-File: org, Node: Library of Babel, Next: Languages, Prev: Evaluating code blocks, Up: Working with source code
-
-14.6 Library of Babel
-=====================
-
-The “Library of Babel” is a collection of code blocks. Like a function
-library, these code blocks can be called from other Org files. A
-collection of useful code blocks is available on Worg
-(https://orgmode.org/worg/library-of-babel.html). For remote code block
-evaluation syntax, *note Evaluating code blocks::.
-
- For any user to add code to the library, first save the code in
-regular ‘src’ code blocks of an Org file, and then load the Org file
-with ‘org-babel-lob-ingest’, which is bound to ‘C-c C-v i’.
-
-
-File: org, Node: Languages, Next: Header arguments, Prev: Library of Babel, Up: Working with source code
-
-14.7 Languages
-==============
-
-Org supports the following languages for the ‘src’ code blocks:
-
-Language Identifier Language Identifier
-----------------------------------------------------------------------------
-Asymptote asymptote Awk awk
-C C C++ C++
-Clojure clojure CSS css
-D d ditaa ditaa
-Graphviz dot Emacs Calc calc
-Emacs Lisp emacs-lisp Fortran fortran
-gnuplot gnuplot Haskell haskell
-Java java Javascript js
-LaTeX latex Ledger ledger
-Lisp lisp Lilypond lilypond
-Lua lua MATLAB matlab
-Mscgen mscgen Objective Caml ocaml
-Octave octave Org mode org
-Oz oz Perl perl
-Plantuml plantuml Processing.js processing
-Python python R R
-Ruby ruby Sass sass
-Scheme scheme GNU Screen screen
-Sed sed shell sh
-SQL sql SQLite sqlite
-Vala vala
-
- Additional documentation for some languages are at
-<https://orgmode.org/worg/org-contrib/babel/languages.html>.
-
- By default, only ‘emacs-lisp’ is enabled for evaluation. To enable
-or disable other languages, customize the ‘org-babel-load-languages’
-variable either through the Emacs customization interface, or by adding
-code to the init file as shown next:
-
- In this example, evaluation is disabled for ‘emacs-lisp’, and enabled
-for ‘R’.
-
- (org-babel-do-load-languages
- 'org-babel-load-languages
- '((emacs-lisp . nil)
- (R . t)))
-
- Note that this is not the only way to enable a language. Org also
-enables languages when loaded with ‘require’ statement. For example,
-the following enables execution of ‘clojure’ code blocks:
-
- (require 'ob-clojure)
-
-
-File: org, Node: Header arguments, Next: Results of evaluation, Prev: Languages, Up: Working with source code
-
-14.8 Header arguments
-=====================
-
-Details of configuring header arguments are shown here.
-
-* Menu:
-
-* Using header arguments:: Different ways to set header arguments
-* Specific header arguments:: List of header arguments
-
-
-File: org, Node: Using header arguments, Next: Specific header arguments, Up: Header arguments
-
-14.8.1 Using header arguments
------------------------------
-
-Since header arguments can be set in several ways, Org prioritizes them
-in case of overlaps or conflicts by giving local settings a higher
-priority. Header values in function calls, for example, override header
-values from global defaults.
-* Menu:
-
-* System-wide header arguments:: Set globally, language-specific
-* Language-specific header arguments:: Set in the Org file’s headers
-* Header arguments in Org mode properties:: Set in the Org file
-* Language-specific mode properties::
-* Code block specific header arguments:: The most commonly used method
-* Arguments in function calls:: The most specific level, takes highest priority
-
-
-File: org, Node: System-wide header arguments, Next: Language-specific header arguments, Up: Using header arguments
-
-System-wide header arguments
-............................
-
-System-wide values of header arguments can be specified by adapting the
-‘org-babel-default-header-args’ variable:
-
- :session => "none"
- :results => "replace"
- :exports => "code"
- :cache => "no"
- :noweb => "no"
-
- This example sets ‘:noweb’ header arguments to ‘yes’, which makes Org
-expand ‘:noweb’ references by default.
-
- (setq org-babel-default-header-args
- (cons '(:noweb . "yes")
- (assq-delete-all :noweb org-babel-default-header-args)))
-
-
-File: org, Node: Language-specific header arguments, Next: Header arguments in Org mode properties, Prev: System-wide header arguments, Up: Using header arguments
-
-Language-specific header arguments
-..................................
-
-Each language can have separate default header arguments by customizing
-the variable ‘org-babel-default-header-args:<lang>’, where ‘<lang>’ is
-the name of the language. For details, see the language-specific online
-documentation at <https://orgmode.org/worg/org-contrib/babel/>.
-
-
-File: org, Node: Header arguments in Org mode properties, Next: Language-specific mode properties, Prev: Language-specific header arguments, Up: Using header arguments
-
-Header arguments in Org mode properties
-.......................................
-
-For header arguments applicable to the buffer, use ‘#+PROPERTY:’ lines
-anywhere in the Org mode file (*note Property syntax::).
-
- The following example sets only for ‘R’ code blocks to ‘session’,
-making all the ‘R’ code blocks execute in the same session. Setting
-‘results’ to ‘silent’ ignores the results of executions for all blocks,
-not just ‘R’ code blocks; no results inserted for any block.
-
- #+PROPERTY: header-args:R :session *R*
- #+PROPERTY: header-args :results silent
-
- Header arguments set through Org’s property drawers (*note Property
-syntax::) apply at the sub-tree level on down. Since these property
-drawers can appear anywhere in the file hierarchy, Org uses outermost
-call or source block to resolve the values. Org ignores
-‘org-use-property-inheritance’ setting.
-
- In this example, ‘:cache’ defaults to ‘yes’ for all code blocks in
-the sub-tree starting with ‘sample header’.
-
- * sample header
- :PROPERTIES:
- :header-args: :cache yes
- :END:
-
- Properties defined through ‘org-set-property’ function, bound to ‘C-c
-C-x p’, apply to all active languages. They override properties set in
-‘org-babel-default-header-args’.
-
-
-File: org, Node: Language-specific mode properties, Next: Code block specific header arguments, Prev: Header arguments in Org mode properties, Up: Using header arguments
-
-Language-specific mode properties
-.................................
-
-Language-specific header arguments are also read from properties
-‘header-args:<lang>’ where ‘<lang>’ is the language identifier. For
-example,
-
- * Heading
- :PROPERTIES:
- :header-args:clojure: :session *clojure-1*
- :header-args:R: :session *R*
- :END:
- ** Subheading
- :PROPERTIES:
- :header-args:clojure: :session *clojure-2*
- :END:
-
- would force separate sessions for clojure blocks in Heading and
-Subheading, but use the same session for all ‘R’ blocks. Blocks in
-Subheading inherit settings from Heading.
-
-
-File: org, Node: Code block specific header arguments, Next: Arguments in function calls, Prev: Language-specific mode properties, Up: Using header arguments
-
-Code block specific header arguments
-....................................
-
-Header arguments are most commonly set at the ‘src’ code block level, on
-the ‘#+BEGIN_SRC’ line. Arguments set at this level take precedence
-over those set in the ‘org-babel-default-header-args’ variable, and also
-those set as header properties.
-
- In the following example, setting ‘results’ to ‘silent’ makes it
-ignore results of the code execution. Setting ‘:exports’ to ‘code’
-exports only the body of the ‘src’ code block to HTML or LaTeX.:
-
- #+NAME: factorial
- #+BEGIN_SRC haskell :results silent :exports code :var n=0
- fac 0 = 1
- fac n = n * fac (n-1)
- #+END_SRC
-
- The same header arguments in an inline ‘src’ code block:
-
- src_haskell[:exports both]{fac 5}
-
- Code block header arguments can span multiple lines using ‘#+HEADER:’
-on each line. Note that Org currently accepts the plural spelling of
-‘#+HEADER:’ only as a convenience for backward-compatibility. It may be
-removed at some point.
-
- Multi-line header arguments on an unnamed ‘src’ code block:
-
- #+HEADER: :var data1=1
- #+BEGIN_SRC emacs-lisp :var data2=2
- (message "data1:%S, data2:%S" data1 data2)
- #+END_SRC
-
- #+RESULTS:
- : data1:1, data2:2
-
- Multi-line header arguments on a named ‘src’ code block:
-
- #+NAME: named-block
- #+HEADER: :var data=2
- #+BEGIN_SRC emacs-lisp
- (message "data:%S" data)
- #+END_SRC
-
- #+RESULTS: named-block
- : data:2
-
-
-File: org, Node: Arguments in function calls, Prev: Code block specific header arguments, Up: Using header arguments
-
-Arguments in function calls
-...........................
-
-Header arguments in function calls are the most specific and override
-all other settings in case of an overlap. They get the highest
-priority. Two ‘#+CALL:’ examples are shown below. For the complete
-syntax of ‘#+CALL:’ lines, see *note Evaluating code blocks::.
-
- In this example, ‘:exports results’ header argument is applied to the
-evaluation of the ‘#+CALL:’ line.
-
- #+CALL: factorial(n=5) :exports results
-
- In this example, ‘:session special’ header argument is applied to the
-evaluation of ‘factorial’ code block.
-
- #+CALL: factorial[:session special](n=5)
-
-
-File: org, Node: Specific header arguments, Prev: Using header arguments, Up: Header arguments
-
-14.8.2 Specific header arguments
---------------------------------
-
-Org comes with many header arguments common to all languages. New
-header arguments are added for specific languages as they become
-available for use in ‘src’ code blocks. A header argument is specified
-with an initial colon followed by the argument’s name in lowercase.
-Common header arguments are:
-
-* Menu:
-
-* var:: Pass arguments to ‘src’ code blocks
-* results:: Specify results type; how to collect
-* file:: Specify a path for output file
-* file-desc:: Specify a description for file results
-* file-ext:: Specify an extension for file output
-* output-dir:: Specify a directory for output file
-* dir:: Specify the default directory for code block execution
-* exports:: Specify exporting code, results, both, none
-* tangle:: Toggle tangling; or specify file name
-* mkdirp:: Toggle for parent directory creation for target files during tangling
-* comments:: Toggle insertion of comments in tangled code files
-* padline:: Control insertion of padding lines in tangled code files
-* no-expand:: Turn off variable assignment and noweb expansion during tangling
-* session:: Preserve the state of code evaluation
-* noweb:: Toggle expansion of noweb references
-* noweb-ref:: Specify block’s noweb reference resolution target
-* noweb-sep:: String to separate noweb references
-* cache:: Avoid re-evaluating unchanged code blocks
-* sep:: Delimiter for writing tabular results outside Org
-* hlines:: Handle horizontal lines in tables
-* colnames:: Handle column names in tables
-* rownames:: Handle row names in tables
-* shebang:: Make tangled files executable
-* tangle-mode:: Set permission of tangled files
-* eval:: Limit evaluation of specific code blocks
-* wrap:: Mark source block evaluation results
-* post:: Post processing of results of code block evaluation
-* prologue:: Text to prepend to body of code block
-* epilogue:: Text to append to body of code block
-
- For language-specific header arguments, see *note Languages::.
-
-
-File: org, Node: var, Next: results, Up: Specific header arguments
-
-14.8.2.1 ‘:var’
-...............
-
-Use ‘:var’ for passing arguments to ‘src’ code blocks. The specifics of
-variables in ‘src’ code blocks vary by the source language and are
-covered in the language-specific documentation. The syntax for ‘:var’,
-however, is the same for all languages. This includes declaring a
-variable, and assigning a default value.
-
- Arguments can take values as literals, or as references, or even as
-Emacs Lisp code (*note Emacs Lisp evaluation of variables: var.).
-References are names from the Org file from the lines ‘#+NAME:’ or
-‘#+RESULTS:’. References can also refer to tables, lists,
-‘#+BEGIN_EXAMPLE’ blocks, other types of ‘src’ code blocks, or the
-results of execution of ‘src’ code blocks.
-
- For better performance, Org can cache results of evaluations. But
-caching comes with severe limitations (*note cache::).
-
- Argument values are indexed like arrays (*note Indexable variable
-values: var.).
-
- The following syntax is used to pass arguments to ‘src’ code blocks
-using the ‘:var’ header argument.
-
- :var name=assign
-
- The ‘assign’ is a literal value, such as a string ‘"string"’, a
-number ‘9’, a reference to a table, a list, a literal example, another
-code block (with or without arguments), or the results from evaluating a
-code block.
-
- Here are examples of passing values by reference:
-
-“table”
- an Org mode table named with either a ‘#+NAME:’ line
-
- #+NAME: example-table
- | 1 |
- | 2 |
- | 3 |
- | 4 |
-
- #+NAME: table-length
- #+BEGIN_SRC emacs-lisp :var table=example-table
- (length table)
- #+END_SRC
-
- #+RESULTS: table-length
- : 4
-
-“list”
- a simple list named with a ‘#+NAME:’ line. Note that only the top
- level list items are passed along. Nested list items are ignored.
-
- #+NAME: example-list
- - simple
- - not
- - nested
- - list
-
- #+BEGIN_SRC emacs-lisp :var x=example-list
- (print x)
- #+END_SRC
-
- #+RESULTS:
- | simple | list |
-
-“code block without arguments”
- a code block name (from the example above), as assigned by
- ‘#+NAME:’, optionally followed by parentheses
-
- #+BEGIN_SRC emacs-lisp :var length=table-length()
- (* 2 length)
- #+END_SRC
-
- #+RESULTS:
- : 8
-
-“code block with arguments”
- a ‘src’ code block name, as assigned by ‘#+NAME:’, followed by
- parentheses and optional arguments passed within the parentheses
- following the ‘src’ code block name using standard function call
- syntax
-
- #+NAME: double
- #+BEGIN_SRC emacs-lisp :var input=8
- (* 2 input)
- #+END_SRC
-
- #+RESULTS: double
- : 16
-
- #+NAME: squared
- #+BEGIN_SRC emacs-lisp :var input=double(input=2)
- (* input input)
- #+END_SRC
-
- #+RESULTS: squared
- : 4
-
-“literal example”
- a literal example block named with a ‘#+NAME:’ line
-
- #+NAME: literal-example
- #+BEGIN_EXAMPLE
- A literal example
- on two lines
- #+END_EXAMPLE
-
- #+NAME: read-literal-example
- #+BEGIN_SRC emacs-lisp :var x=literal-example
- (concatenate 'string x " for you.")
- #+END_SRC
-
- #+RESULTS: read-literal-example
- : A literal example
- : on two lines for you.
-
-
-Indexable variable values
-.........................
-
-Indexing variable values enables referencing portions of a variable.
-Indexes are 0 based with negative values counting backwards from the
-end. If an index is separated by ‘,’s then each subsequent section will
-index as the next dimension. Note that this indexing occurs _before_
-other table-related header arguments are applied, such as ‘:hlines’,
-‘:colnames’ and ‘:rownames’. The following example assigns the last
-cell of the first row the table ‘example-table’ to the variable ‘data’:
-
- #+NAME: example-table
- | 1 | a |
- | 2 | b |
- | 3 | c |
- | 4 | d |
-
- #+BEGIN_SRC emacs-lisp :var data=example-table[0,-1]
- data
- #+END_SRC
-
- #+RESULTS:
- : a
-
- Ranges of variable values can be referenced using two integers
-separated by a ‘:’, in which case the entire inclusive range is
-referenced. For example the following assigns the middle three rows of
-‘example-table’ to ‘data’.
-
- #+NAME: example-table
- | 1 | a |
- | 2 | b |
- | 3 | c |
- | 4 | d |
- | 5 | 3 |
-
- #+BEGIN_SRC emacs-lisp :var data=example-table[1:3]
- data
- #+END_SRC
-
- #+RESULTS:
- | 2 | b |
- | 3 | c |
- | 4 | d |
-
- To pick the entire range, use an empty index, or the single character
-‘*’. ‘0:-1’ does the same thing. Example below shows how to reference
-the first column only.
-
- #+NAME: example-table
- | 1 | a |
- | 2 | b |
- | 3 | c |
- | 4 | d |
-
- #+BEGIN_SRC emacs-lisp :var data=example-table[,0]
- data
- #+END_SRC
-
- #+RESULTS:
- | 1 | 2 | 3 | 4 |
-
- Index referencing can be used for tables and code blocks. Index
-referencing can handle any number of dimensions. Commas delimit
-multiple dimensions, as shown below.
-
- #+NAME: 3D
- #+BEGIN_SRC emacs-lisp
- '(((1 2 3) (4 5 6) (7 8 9))
- ((10 11 12) (13 14 15) (16 17 18))
- ((19 20 21) (22 23 24) (25 26 27)))
- #+END_SRC
-
- #+BEGIN_SRC emacs-lisp :var data=3D[1,,1]
- data
- #+END_SRC
-
- #+RESULTS:
- | 11 | 14 | 17 |
-
-Emacs Lisp evaluation of variables
-..................................
-
-Emacs lisp code can set the values for variables. To differentiate a
-value from lisp code, Org interprets any value starting with ‘(’, ‘[’,
-‘'’ or ‘`’ as Emacs Lisp code. The result of evaluating that code is
-then assigned to the value of that variable. The following example
-shows how to reliably query and pass file name of the Org mode buffer to
-a code block using headers. We need reliability here because the file’s
-name could change once the code in the block starts executing.
-
- #+BEGIN_SRC sh :var filename=(buffer-file-name) :exports both
- wc -w $filename
- #+END_SRC
-
- Note that values read from tables and lists will not be mistakenly
-evaluated as Emacs Lisp code, as illustrated in the following example.
-
- #+NAME: table
- | (a b c) |
-
- #+HEADER: :var data=table[0,0]
- #+BEGIN_SRC perl
- $data
- #+END_SRC
-
- #+RESULTS:
- : (a b c)
-
-
-File: org, Node: results, Next: file, Prev: var, Up: Specific header arguments
-
-14.8.2.2 ‘:results’
-...................
-
-There are four classes of ‘:results’ header arguments. Each ‘src’ code
-block can take only one option per class.
-
- • collection for how the results should be collected from the ‘src’
- code block
- • type for which type of result the code block will return; affects
- how Org processes and inserts results in the Org buffer
- • format for the result; affects how Org processes and inserts
- results in the Org buffer
- • handling for processing results after evaluation of the ‘src’ code
- block
-
-Collection
-..........
-
-Collection options specify the results. Choose one of the options; they
-are mutually exclusive.
-
- • ‘value’ Default. Functional mode. Result is the value returned by
- the last statement in the ‘src’ code block. Languages like Python
- may require an explicit ‘return’ statement in the ‘src’ code block.
- Usage example: ‘:results value’.
- • ‘output’ Scripting mode. Result is collected from STDOUT during
- execution of the code in the ‘src’ code block. Usage example:
- ‘:results output’.
-
-Type
-....
-
-Type tells what result types to expect from the execution of the code
-block. Choose one of the options; they are mutually exclusive. The
-default behavior is to automatically determine the result type.
-
- • ‘table’, ‘vector’ Interpret the results as an Org table. If the
- result is a single value, create a table with one row and one
- column. Usage example: ‘:results value table’.
- • ‘list’ Interpret the results as an Org list. If the result is a
- single value, create a list of one element.
- • ‘scalar’, ‘verbatim’ Interpret literally and insert as quoted text.
- Do not create a table. Usage example: ‘:results value verbatim’.
- • ‘file’ Interpret as path to a file. Inserts a link to the file.
- Usage example: ‘:results value file’.
-
-Format
-......
-
-Format pertains to the type of the result returned by the ‘src’ code
-block. Choose one of the options; they are mutually exclusive. The
-default follows from the type specified above.
-
- • ‘raw’ Interpreted as raw Org mode. Inserted directly into the
- buffer. Aligned if it is a table. Usage example: ‘:results value
- raw’.
- • ‘org’ Results enclosed in a ‘BEGIN_SRC org’ block. For
- comma-escape, either <TAB> in the block, or export the file. Usage
- example: ‘:results value org’.
- • ‘html’ Results enclosed in a ‘BEGIN_EXPORT html’ block. Usage
- example: ‘:results value html’.
- • ‘latex’ Results enclosed in a ‘BEGIN_EXPORT latex’ block. Usage
- example: ‘:results value latex’.
- • ‘code’ Result enclosed in a ‘src’ code block. Useful for parsing.
- Usage example: ‘:results value code’.
- • ‘pp’ Result converted to pretty-print source code. Enclosed in a
- ‘src’ code block. Languages supported: Emacs Lisp, Python, and
- Ruby. Usage example: ‘:results value pp’.
- • ‘drawer’ Result wrapped in a RESULTS drawer. Useful for containing
- ‘raw’ or ‘org’ results for later scripting and automated
- processing. Usage example: ‘:results value drawer’.
-
-Handling
-........
-
-Handling options after collecting the results.
-
- • ‘silent’ Do not insert results in the Org mode buffer, but echo
- them in the minibuffer. Usage example: ‘:results output silent’.
- • ‘replace’ Default. Insert results in the Org buffer. Remove
- previous results. Usage example: ‘:results output replace’.
- • ‘append’ Append results to the Org buffer. Latest results are at
- the bottom. Does not remove previous results. Usage example:
- ‘:results output append’.
- • ‘prepend’ Prepend results to the Org buffer. Latest results are at
- the top. Does not remove previous results. Usage example:
- ‘:results output prepend’.
-
-
-File: org, Node: file, Next: file-desc, Prev: results, Up: Specific header arguments
-
-14.8.2.3 ‘:file’
-................
-
-An external ‘:file’ that saves the results of execution of the code
-block. The ‘:file’ is either a file name or two strings, where the
-first is the file name and the second is the description. A link to the
-file is inserted. It uses an Org mode style ‘[[file:]]’ link (*note
-Link format::). Some languages, such as ‘R’, ‘dot’, ‘ditaa’, and
-‘gnuplot’, automatically wrap the source code in additional boilerplate
-code. Such code wrapping helps recreate the output, especially graphics
-output, by executing just the ‘:file’ contents.
-
-
-File: org, Node: file-desc, Next: file-ext, Prev: file, Up: Specific header arguments
-
-14.8.2.4 ‘:file-desc’
-.....................
-
-A description of the results file. Org uses this description for the
-link (see *note Link format::) it inserts in the Org file. If the
-‘:file-desc’ has no value, Org will use file name for both the “link”
-and the “description” portion of the Org mode link.
-
-
-File: org, Node: file-ext, Next: output-dir, Prev: file-desc, Up: Specific header arguments
-
-14.8.2.5 ‘:file-ext’
-....................
-
-File name extension for the output file. Org generates the file’s
-complete name, and extension by combining ‘:file-ext’, ‘#+NAME:’ of the
-source block, and the *note output-dir:: header argument. To override
-this auto generated file name, use the ‘:file’ header argument.
-
-
-File: org, Node: output-dir, Next: dir, Prev: file-ext, Up: Specific header arguments
-
-14.8.2.6 ‘:output-dir’
-......................
-
-Specifies the ‘:output-dir’ for the results file. Org accepts an
-absolute path (beginning with ‘/’) or a relative directory (without
-‘/’). The value can be combined with ‘#+NAME:’ of the source block and
-*note file:: or *note file-ext:: header arguments.
-
-
-File: org, Node: dir, Next: exports, Prev: output-dir, Up: Specific header arguments
-
-14.8.2.7 ‘:dir’ and remote execution
-....................................
-
-While the ‘:file’ header argument can be used to specify the path to the
-output file, ‘:dir’ specifies the default directory during ‘src’ code
-block execution. If it is absent, then the directory associated with
-the current buffer is used. In other words, supplying ‘:dir path’
-temporarily has the same effect as changing the current directory with
-‘M-x cd path <RET>’, and then not supplying ‘:dir’. Under the surface,
-‘:dir’ simply sets the value of the Emacs variable ‘default-directory’.
-
- When using ‘:dir’, relative paths (for example, ‘:file myfile.jpg’ or
-‘:file results/myfile.jpg’) become relative to the default directory.
-
- For example, to save the plot file in the ‘Work’ folder of the home
-directory (notice tilde is expanded):
-
- #+BEGIN_SRC R :file myplot.png :dir ~/Work
- matplot(matrix(rnorm(100), 10), type="l")
- #+END_SRC
-
-Remote execution
-................
-
-To evaluate the ‘src’ code block on a remote machine, supply a remote s
-directory name using ‘Tramp’ syntax. For example:
-
- #+BEGIN_SRC R :file plot.png :dir /scp:dand@yakuba.princeton.edu:
- plot(1:10, main=system("hostname", intern=TRUE))
- #+END_SRC
-
- Org first captures the text results as usual for insertion in the Org
-file. Then Org also inserts a link to the remote file, thanks to Emacs
-‘Tramp’. Org constructs the remote path to the file name from ‘:dir’
-and ‘default-directory’, as illustrated here:
-
- [[file:/scp:dand@yakuba.princeton.edu:/home/dand/plot.png][plot.png]]
-
-Some more warnings
-..................
-
- • When ‘:dir’ is used with ‘:session’, Org sets the starting
- directory for a new session. But Org will not alter the directory
- of an already existing session.
- • Do not use ‘:dir’ with ‘:exports results’ or with ‘:exports both’
- to avoid Org inserting incorrect links to remote files. That is
- because Org does not expand ‘default directory’ to avoid some
- underlying portability issues.
-
-
-File: org, Node: exports, Next: tangle, Prev: dir, Up: Specific header arguments
-
-14.8.2.8 ‘:exports’
-...................
-
-The ‘:exports’ header argument is to specify if that part of the Org
-file is exported to, say, HTML or LaTeX formats. Note that ‘:exports’
-affects only ‘src’ code blocks and not inline code.
-
- • ‘code’ The default. The body of code is included into the exported
- file. Example: ‘:exports code’.
- • ‘results’ The results of evaluation of the code is included in the
- exported file. Example: ‘:exports results’.
- • ‘both’ Both the code and results of evaluation are included in the
- exported file. Example: ‘:exports both’.
- • ‘none’ Neither the code nor the results of evaluation is included
- in the exported file. Whether the code is evaluated at all depends
- on other options. Example: ‘:exports none’.
-
-
-File: org, Node: tangle, Next: mkdirp, Prev: exports, Up: Specific header arguments
-
-14.8.2.9 ‘:tangle’
-..................
-
-The ‘:tangle’ header argument specifies if the ‘src’ code block is
-exported to source file(s).
-
- • ‘tangle’ Export the ‘src’ code block to source file. The file name
- for the source file is derived from the name of the Org file, and
- the file extension is derived from the source code language
- identifier. Example: ‘:tangle yes’.
- • ‘no’ The default. Do not extract the code a source code file.
- Example: ‘:tangle no’.
- • other Export the ‘src’ code block to source file whose file name is
- derived from any string passed to the ‘:tangle’ header argument.
- Org derives the file name as being relative to the directory of the
- Org file’s location. Example: ‘:tangle path’.
-
-
-File: org, Node: mkdirp, Next: comments, Prev: tangle, Up: Specific header arguments
-
-14.8.2.10 ‘:mkdirp’
-...................
-
-The ‘:mkdirp’ header argument creates parent directories for tangled
-files if the directory does not exist. ‘yes’ enables directory creation
-and ‘no’ inhibits directory creation.
-
-
-File: org, Node: comments, Next: padline, Prev: mkdirp, Up: Specific header arguments
-
-14.8.2.11 ‘:comments’
-.....................
-
-Controls inserting comments into tangled files. These are above and
-beyond whatever comments may already exist in the ‘src’ code block.
-
- • ‘no’ The default. Do not insert any extra comments during
- tangling.
- • ‘link’ Wrap the ‘src’ code block in comments. Include links
- pointing back to the place in the Org file from where the code was
- tangled.
- • ‘yes’ Kept for backward compatibility; same as “link”.
- • ‘org’ Nearest headline text from Org file is inserted as comment.
- The exact text that is inserted is picked from the leading context
- of the source block.
- • ‘both’ Includes both “link” and “org” comment options.
- • ‘noweb’ Includes “link” comment option, expands noweb references,
- and wraps them in link comments inside the body of the ‘src’ code
- block.
-
-
-File: org, Node: padline, Next: no-expand, Prev: comments, Up: Specific header arguments
-
-14.8.2.12 ‘:padline’
-....................
-
-Control insertion of newlines to pad ‘src’ code blocks in the tangled
-file.
- • ‘yes’ Default. Insert a newline before and after each ‘src’ code
- block in the tangled file.
- • ‘no’ Do not insert newlines to pad the tangled ‘src’ code blocks.
-
-
-File: org, Node: no-expand, Next: session, Prev: padline, Up: Specific header arguments
-
-14.8.2.13 ‘:no-expand’
-......................
-
-By default Org expands ‘src’ code blocks during tangling. The
-‘:no-expand’ header argument turns off such expansions. Note that one
-side-effect of expansion by ‘org-babel-expand-src-block’ also assigns
-values to ‘:var’ (*note var::) variables. Expansions also replace Noweb
-references with their targets (*note Noweb reference syntax::). Some of
-these expansions may cause premature assignment, hence this option.
-This option makes a difference only for tangling. It has no effect when
-exporting since ‘src’ code blocks for execution have to be expanded
-anyway.
-
-
-File: org, Node: session, Next: noweb, Prev: no-expand, Up: Specific header arguments
-
-14.8.2.14 ‘:session’
-....................
-
-The ‘:session’ header argument is for running multiple source code
-blocks under one session. Org runs ‘src’ code blocks with the same
-session name in the same interpreter process.
-
- • ‘none’ Default. Each ‘src’ code block gets a new interpreter
- process to execute. The process terminates once the block is
- evaluated.
- • ‘other’ Any string besides ‘none’ turns that string into the name
- of that session. For example, ‘:session mysession’ names it
- ‘mysession’. If ‘:session’ has no argument, then the session name
- is derived from the source language identifier. Subsequent blocks
- with the same source code language use the same session. Depending
- on the language, state variables, code from other blocks, and the
- overall interpreted environment may be shared. Some interpreted
- languages support concurrent sessions when subsequent source code
- language blocks change session names.
-
-
-File: org, Node: noweb, Next: noweb-ref, Prev: session, Up: Specific header arguments
-
-14.8.2.15 ‘:noweb’
-..................
-
-The ‘:noweb’ header argument controls expansion of Noweb syntax
-references (*note Noweb reference syntax::). Expansions occur when
-source code blocks are evaluated, tangled, or exported.
-
- • ‘no’ Default. No expansion of Noweb syntax references in the body
- of the code when evaluating, tangling, or exporting.
- • ‘yes’ Expansion of Noweb syntax references in the body of the ‘src’
- code block when evaluating, tangling, or exporting.
- • ‘tangle’ Expansion of Noweb syntax references in the body of the
- ‘src’ code block when tangling. No expansion when evaluating or
- exporting.
- • ‘no-export’ Expansion of Noweb syntax references in the body of the
- ‘src’ code block when evaluating or tangling. No expansion when
- exporting.
- • ‘strip-export’ Expansion of Noweb syntax references in the body of
- the ‘src’ code block when expanding prior to evaluating or
- tangling. Removes Noweb syntax references when exporting.
- • ‘eval’ Expansion of Noweb syntax references in the body of the
- ‘src’ code block only before evaluating.
-
-Noweb prefix lines
-..................
-
-Noweb insertions now honor prefix characters that appear before the
-Noweb syntax reference.
-
- This behavior is illustrated in the following example. Because the
-‘<<example>>’ noweb reference appears behind the SQL comment syntax,
-each line of the expanded noweb reference will be commented.
-
- With:
-
- #+NAME: example
- #+BEGIN_SRC text
- this is the
- multi-line body of example
- #+END_SRC
-
- this ‘src’ code block:
-
- #+BEGIN_SRC sql :noweb yes
- -- <<example>>
- #+END_SRC
-
- expands to:
-
- -- this is the
- -- multi-line body of example
-
- Since this change will not affect noweb replacement text without
-newlines in them, inline noweb references are acceptable.
-
- This feature can also be used for management of indentation in
-exported code snippets.
-
- With:
-
- #+NAME: if-true
- #+BEGIN_SRC python :exports none
- print('Do things when True')
- #+END_SRC
-
- #+NAME: if-false
- #+BEGIN_SRC python :exports none
- print('Do things when False')
- #+END_SRC
-
- this ‘src’ code block:
-
- #+BEGIN_SRC python :noweb yes :results output
- if True:
- <<if-true>>
- else:
- <<if-false>>
- #+END_SRC
-
- expands to:
-
- if True:
- print('Do things when True')
- else:
- print('Do things when False')
-
- and evaluates to:
-
- Do things when True
-
-
-File: org, Node: noweb-ref, Next: noweb-sep, Prev: noweb, Up: Specific header arguments
-
-14.8.2.16 ‘:noweb-ref’
-......................
-
-When expanding Noweb style references, Org concatenates ‘src’ code
-blocks by matching the reference name to either the code block name or
-the ‘:noweb-ref’ header argument.
-
- For simple concatenation, set this ‘:noweb-ref’ header argument at
-the sub-tree or file level. In the example Org file shown next, the
-body of the source code in each block is extracted for concatenation to
-a pure code file when tangled.
-
- #+BEGIN_SRC sh :tangle yes :noweb yes :shebang #!/bin/sh
- <<fullest-disk>>
- #+END_SRC
- * the mount point of the fullest disk
- :PROPERTIES:
- :header-args: :noweb-ref fullest-disk
- :END:
-
- ** query all mounted disks
- #+BEGIN_SRC sh
- df \
- #+END_SRC
-
- ** strip the header row
- #+BEGIN_SRC sh
- |sed '1d' \
- #+END_SRC
-
- ** output mount point of fullest disk
- #+BEGIN_SRC sh
- |awk '{if (u < +$5) {u = +$5; m = $6}} END {print m}'
- #+END_SRC
-
-
-File: org, Node: noweb-sep, Next: cache, Prev: noweb-ref, Up: Specific header arguments
-
-14.8.2.17 ‘:noweb-sep’
-......................
-
-By default a newline separates each noweb reference concatenation. To
-change this newline separator, edit the ‘:noweb-sep’ (*note noweb-sep::)
-header argument.
-
-
-File: org, Node: cache, Next: sep, Prev: noweb-sep, Up: Specific header arguments
-
-14.8.2.18 ‘:cache’
-..................
-
-The ‘:cache’ header argument is for caching results of evaluating code
-blocks. Caching results can avoid re-evaluating ‘src’ code blocks that
-have not changed since the previous run. To benefit from the cache and
-avoid redundant evaluations, the source block must have a result already
-present in the buffer, and neither the header arguments (including the
-value of ‘:var’ references) nor the text of the block itself has changed
-since the result was last computed. This feature greatly helps avoid
-long-running calculations. For some edge cases, however, the cached
-results may not be reliable.
-
- The caching feature is best for when ‘src’ blocks are pure functions,
-that is functions that return the same value for the same input
-arguments (*note var::), and that do not have side effects, and do not
-rely on external variables other than the input arguments. Functions
-that depend on a timer, file system objects, and random number
-generators are clearly unsuitable for caching.
-
- A note of warning: when ‘:cache’ is used for a ‘:session’, caching
-may cause unexpected results.
-
- When the caching mechanism tests for any source code changes, it will
-not expand Noweb style references (*note Noweb reference syntax::). For
-reasons why, see <http://thread.gmane.org/gmane.emacs.orgmode/79046>.
-
- The ‘:cache’ header argument can have one of two values: ‘yes’ or
-‘no’.
-
- • ‘no’ Default. No caching of results; ‘src’ code block evaluated
- every time.
- • ‘yes’ Whether to run the code or return the cached results is
- determined by comparing the SHA1 hash value of the combined ‘src’
- code block and arguments passed to it. This hash value is packed
- on the ‘#+RESULTS:’ line from previous evaluation. When hash
- values match, Org does not evaluate the ‘src’ code block. When
- hash values mismatch, Org evaluates the ‘src’ code block, inserts
- the results, recalculates the hash value, and updates ‘#+RESULTS:’
- line.
-
- In this example, both functions are cached. But ‘caller’ runs only
-if the result from ‘random’ has changed since the last run.
-
- #+NAME: random
- #+BEGIN_SRC R :cache yes
- runif(1)
- #+END_SRC
-
- #+RESULTS[a2a72cd647ad44515fab62e144796432793d68e1]: random
- 0.4659510825295
-
- #+NAME: caller
- #+BEGIN_SRC emacs-lisp :var x=random :cache yes
- x
- #+END_SRC
-
- #+RESULTS[bec9c8724e397d5df3b696502df3ed7892fc4f5f]: caller
- 0.254227238707244
-
-
-File: org, Node: sep, Next: hlines, Prev: cache, Up: Specific header arguments
-
-14.8.2.19 ‘:sep’
-................
-
-The ‘:sep’ header argument is the delimiter for saving results as tables
-to files (*note file::) external to Org mode. Org defaults to tab
-delimited output. The function, ‘org-open-at-point’, which is bound to
-‘C-c C-o’, also uses ‘:sep’ for opening tabular results.
-
-
-File: org, Node: hlines, Next: colnames, Prev: sep, Up: Specific header arguments
-
-14.8.2.20 ‘:hlines’
-...................
-
-In-between each table row or below the table headings, sometimes results
-have horizontal lines, which are also known as hlines. The ‘:hlines’
-argument with the value ‘yes’ accepts such lines. The default is ‘no’.
-
- • ‘no’ Strips horizontal lines from the input table. For most code,
- this is desirable, or else those ‘hline’ symbols raise unbound
- variable errors.
-
- The default is ‘:hlines no’. The example shows hlines removed from
- the input table.
-
- #+NAME: many-cols
- | a | b | c |
- |---+---+---|
- | d | e | f |
- |---+---+---|
- | g | h | i |
-
- #+NAME: echo-table
- #+BEGIN_SRC python :var tab=many-cols
- return tab
- #+END_SRC
-
- #+RESULTS: echo-table
- | a | b | c |
- | d | e | f |
- | g | h | i |
-
- • ‘yes’ For ‘:hlines yes’, the example shows hlines unchanged.
-
- #+NAME: many-cols
- | a | b | c |
- |---+---+---|
- | d | e | f |
- |---+---+---|
- | g | h | i |
-
- #+NAME: echo-table
- #+BEGIN_SRC python :var tab=many-cols :hlines yes
- return tab
- #+END_SRC
-
- #+RESULTS: echo-table
- | a | b | c |
- |---+---+---|
- | d | e | f |
- |---+---+---|
- | g | h | i |
-
-
-File: org, Node: colnames, Next: rownames, Prev: hlines, Up: Specific header arguments
-
-14.8.2.21 ‘:colnames’
-.....................
-
-The ‘:colnames’ header argument accepts ‘yes’, ‘no’, or ‘nil’ values.
-The default value is ‘nil’, which is unassigned. But this header
-argument behaves differently depending on the source code language.
-
- • ‘nil’ If an input table has column names (because the second row is
- an hline), then Org removes the column names, processes the table,
- puts back the column names, and then writes the table to the
- results block.
-
- #+NAME: less-cols
- | a |
- |---|
- | b |
- | c |
-
- #+NAME: echo-table-again
- #+BEGIN_SRC python :var tab=less-cols
- return [[val + '*' for val in row] for row in tab]
- #+END_SRC
-
- #+RESULTS: echo-table-again
- | a |
- |----|
- | b* |
- | c* |
-
- Note that column names have to accounted for when using variable
- indexing (*note Indexable variable values: var.) because column
- names are not removed for indexing.
-
- • ‘no’ Do not pre-process column names.
-
- • ‘yes’ For an input table that has no hlines, process it like the
- ‘nil’ value. That is, Org removes the column names, processes the
- table, puts back the column names, and then writes the table to the
- results block.
-
-
-File: org, Node: rownames, Next: shebang, Prev: colnames, Up: Specific header arguments
-
-14.8.2.22 ‘:rownames’
-.....................
-
-The ‘:rownames’ header argument can take on values ‘yes’ or ‘no’ values.
-The default is ‘no’. Note that ‘emacs-lisp’ code blocks ignore
-‘:rownames’ header argument because of the ease of table-handling in
-Emacs.
-
- • ‘no’ Org will not pre-process row names.
-
- • ‘yes’ If an input table has row names, then Org removes the row
- names, processes the table, puts back the row names, and then
- writes the table to the results block.
-
- #+NAME: with-rownames
- | one | 1 | 2 | 3 | 4 | 5 |
- | two | 6 | 7 | 8 | 9 | 10 |
-
- #+NAME: echo-table-once-again
- #+BEGIN_SRC python :var tab=with-rownames :rownames yes
- return [[val + 10 for val in row] for row in tab]
- #+END_SRC
-
- #+RESULTS: echo-table-once-again
- | one | 11 | 12 | 13 | 14 | 15 |
- | two | 16 | 17 | 18 | 19 | 20 |
-
- Note that row names have to accounted for when using variable
- indexing (*note Indexable variable values: var.) because row names
- are not removed for indexing.
-
-
-File: org, Node: shebang, Next: tangle-mode, Prev: rownames, Up: Specific header arguments
-
-14.8.2.23 ‘:shebang’
-....................
-
-This header argument can turn results into executable script files. By
-setting the ‘:shebang’ header argument to a string value (for example,
-‘:shebang "#!/bin/bash"’), Org inserts that string as the first line of
-the tangled file that the ‘src’ code block is extracted to. Org then
-turns on the tangled file’s executable permission.
-
-
-File: org, Node: tangle-mode, Next: eval, Prev: shebang, Up: Specific header arguments
-
-14.8.2.24 ‘:tangle-mode’
-........................
-
-The ‘tangle-mode’ header argument specifies what permissions to set for
-tangled files by ‘set-file-modes’. For example, to make read-only
-tangled file, use ‘:tangle-mode (identity #o444)’. To make it
-executable, use ‘:tangle-mode (identity #o755)’.
-
- On ‘src’ code blocks with ‘shebang’ (*note shebang::) header
-argument, Org will automatically set the tangled file to executable
-permissions. But this can be overridden with custom permissions using
-‘tangle-mode’ header argument.
-
- When multiple ‘src’ code blocks tangle to a single file with
-different and conflicting ‘tangle-mode’ header arguments, Org’s behavior
-is undefined.
-
-
-File: org, Node: eval, Next: wrap, Prev: tangle-mode, Up: Specific header arguments
-
-14.8.2.25 ‘:eval’
-.................
-
-The ‘:eval’ header argument can limit evaluation of specific code
-blocks. It is useful for protection against evaluating untrusted ‘src’
-code blocks by prompting for a confirmation. This protection is
-independent of the ‘org-confirm-babel-evaluate’ setting.
-
-‘never or no’
- Org will never evaluate this ‘src’ code block.
-‘query’
- Org prompts the user for permission to evaluate this ‘src’ code
- block.
-‘never-export or no-export’
- Org will not evaluate this ‘src’ code block when exporting, yet the
- user can evaluate this source block interactively.
-‘query-export’
- Org prompts the user for permission to export this ‘src’ code
- block.
-
- If ‘:eval’ header argument is not set for a source block, then Org
-determines whether to evaluate from the ‘org-confirm-babel-evaluate’
-variable (*note Code evaluation security::).
-
-
-File: org, Node: wrap, Next: post, Prev: eval, Up: Specific header arguments
-
-14.8.2.26 ‘:wrap’
-.................
-
-The ‘:wrap’ header argument marks the results block by appending strings
-to ‘#+BEGIN_’ and ‘#+END_’. If no string is specified, Org wraps the
-results in a ‘#+BEGIN/END_RESULTS’ block.
-
-
-File: org, Node: post, Next: prologue, Prev: wrap, Up: Specific header arguments
-
-14.8.2.27 ‘:post’
-.................
-
-The ‘:post’ header argument is for post-processing results from ‘src’
-block evaluation. When ‘:post’ has any value, Org binds the results to
-‘*this*’ variable for easy passing to *note var:: header argument
-specifications. That makes results available to other ‘src’ code
-blocks, or for even direct Emacs Lisp code execution.
-
- The following two examples illustrate ‘:post’ header argument in
-action. The first one shows how to attach ‘#+ATTR_LATEX:’ line using
-‘:post’.
-
- #+name: attr_wrap
- #+begin_src sh :var data="" :var width="\\textwidth" :results output
- echo "#+ATTR_LATEX: :width $width"
- echo "$data"
- #+end_src
-
- #+header: :file /tmp/it.png
- #+begin_src dot :post attr_wrap(width="5cm", data=*this*) :results drawer
- digraph{
- a -> b;
- b -> c;
- c -> a;
- }
- #+end_src
-
- #+RESULTS:
- :RESULTS:
- #+ATTR_LATEX :width 5cm
- [[file:/tmp/it.png]]
- :END:
-
- The second example shows use of ‘:colnames’ in ‘:post’ to pass data
-between ‘src’ code blocks.
-
- #+name: round-tbl
- #+begin_src emacs-lisp :var tbl="" fmt="%.3f"
- (mapcar (lambda (row)
- (mapcar (lambda (cell)
- (if (numberp cell)
- (format fmt cell)
- cell))
- row))
- tbl)
- #+end_src
-
- #+begin_src R :colnames yes :post round-tbl[:colnames yes](*this*)
- set.seed(42)
- data.frame(foo=rnorm(1))
- #+end_src
-
- #+RESULTS:
- | foo |
- |-------|
- | 1.371 |
-
-
-File: org, Node: prologue, Next: epilogue, Prev: post, Up: Specific header arguments
-
-14.8.2.28 ‘:prologue’
-.....................
-
-The ‘prologue’ header argument is for appending to the top of the code
-block for execution. For example, a clear or reset code at the start of
-new execution of a ‘src’ code block. A ‘reset’ for ‘gnuplot’:
-‘:prologue "reset"’. See also *note epilogue::.
-
- (add-to-list 'org-babel-default-header-args:gnuplot
- '((:prologue . "reset")))
-
-
-File: org, Node: epilogue, Prev: prologue, Up: Specific header arguments
-
-14.8.2.29 ‘:epilogue’
-.....................
-
-The value of the ‘epilogue’ header argument is for appending to the end
-of the code block for execution. See also *note prologue::.
-
-
-File: org, Node: Results of evaluation, Next: Noweb reference syntax, Prev: Header arguments, Up: Working with source code
-
-14.9 Results of evaluation
-==========================
-
-How Org handles results of a code block execution depends on many header
-arguments working together. Here is only a summary of these. For an
-enumeration of all the header arguments that affect results, see *note
-results::.
-
- The primary determinant is the execution context. Is it in a
-‘:session’ or not? Orthogonal to that is if the expected result is a
-‘:results value’ or ‘:results output’, which is a concatenation of
-output from start to finish of the ‘src’ code block’s evaluation.
-
- Non-session Session
-‘:results value’ value of last value of last expression
- expression
-‘:results output’ contents of STDOUT concatenation of interpreter
- output
-
- For ‘:session’ and non-session, the ‘:results value’ turns the
-results into an Org mode table format. Single values are wrapped in a
-one dimensional vector. Rows and columns of a table are wrapped in a
-two-dimensional vector.
-
-14.9.1 Non-session
-------------------
-
-14.9.1.1 ‘:results value’
-.........................
-
-Default. Org gets the value by wrapping the code in a function
-definition in the language of the ‘src’ block. That is why when using
-‘:results value’, code should execute like a function and return a
-value. For languages like Python, an explicit ‘return’ statement is
-mandatory when using ‘:results value’.
-
- This is one of four evaluation contexts where Org automatically wraps
-the code in a function definition.
-
-14.9.1.2 ‘:results output’
-..........................
-
-For ‘:results output’, the code is passed to an external process running
-the interpreter. Org returns the contents of the standard output stream
-as as text results.
-
-14.9.2 Session
---------------
-
-14.9.2.1 ‘:results value’
-.........................
-
-For ‘:results value’ from a ‘:session’, Org passes the code to an
-interpreter running as an interactive Emacs inferior process. So only
-languages that provide interactive evaluation can have session support.
-Not all languages provide this support, such as ‘C’ and ‘ditaa’. Even
-those that do support, such as ‘Python’ and ‘Haskell’, they impose
-limitations on allowable language constructs that can run interactively.
-Org inherits those limitations for those ‘src’ code blocks running in a
-‘:session’.
-
- Org gets the value from the source code interpreter’s last statement
-output. Org has to use language-specific methods to obtain the value.
-For example, from the variable ‘_’ in ‘Python’ and ‘Ruby’, and the value
-of ‘.Last.value’ in ‘R’).
-
-14.9.2.2 ‘:results output’
-..........................
-
-For ‘:results output’, Org passes the code to the interpreter running as
-an interactive Emacs inferior process. Org concatenates whatever text
-output emitted by the interpreter to return the collection as a result.
-Note that this collection is not the same as collected from ‘STDOUT’ of
-a non-interactive interpreter running as an external process. Compare
-for example these two blocks:
-
- #+BEGIN_SRC python :results output
- print "hello"
- 2
- print "bye"
- #+END_SRC
-
- #+RESULTS:
- : hello
- : bye
-
- In the above non-session mode, the “2” is not printed; so does not
-appear in results.
-
- #+BEGIN_SRC python :results output :session
- print "hello"
- 2
- print "bye"
- #+END_SRC
-
- #+RESULTS:
- : hello
- : 2
- : bye
-
- In the above ‘:session’ mode, the interactive interpreter receives
-and prints “2”. Results show that.
-
-
-File: org, Node: Noweb reference syntax, Next: Key bindings and useful functions, Prev: Results of evaluation, Up: Working with source code
-
-14.10 Noweb reference syntax
-============================
-
-Org supports named blocks in Noweb style syntax. For Noweb literate
-programming details, see <http://www.cs.tufts.edu/~nr/noweb/>).
-
- <<code-block-name>>
-
- For the header argument ‘:noweb yes’, Org expands Noweb style
-references in the ‘src’ code block before evaluation.
-
- For the header argument ‘:noweb no’, Org does not expand Noweb style
-references in the ‘src’ code block before evaluation.
-
- The default is ‘:noweb no’. Org defaults to ‘:noweb no’ so as not to
-cause errors in languages where Noweb syntax is ambiguous. Change Org’s
-default to ‘:noweb yes’ for languages where there is no risk of
-confusion.
-
- Org offers a more flexible way to resolve Noweb style references
-(*note noweb-ref::).
-
- Org can include the _results_ of a code block rather than its body.
-To that effect, append parentheses, possibly including arguments, to the
-code block name, as show below.
-
- <<code-block-name(optional arguments)>>
-
- Note that when using the above approach to a code block’s results,
-the code block name set by ‘#+NAME’ keyword is required; the reference
-set by ‘:noweb-ref’ will not work.
-
- Here is an example that demonstrates how the exported content changes
-when Noweb style references are used with parentheses versus without.
-
- With:
-
- #+NAME: some-code
- #+BEGIN_SRC python :var num=0 :results output :exports none
- print(num*10)
- #+END_SRC
-
- this code block:
-
- #+BEGIN_SRC text :noweb yes
- <<some-code>>
- #+END_SRC
-
- expands to:
-
- print(num*10)
-
- Below, a similar Noweb style reference is used, but with parentheses,
-while setting a variable ‘num’ to 10:
-
- #+BEGIN_SRC text :noweb yes
- <<some-code(num=10)>>
- #+END_SRC
-
- Note that now the expansion contains the _results_ of the code block
-‘some-code’, not the code block itself:
-
- 100
-
- For faster tangling of large Org mode files, set
-‘org-babel-use-quick-and-dirty-noweb-expansion’ variable to ‘t’. The
-speedup comes at the expense of not correctly resolving inherited values
-of the ‘:noweb-ref’ header argument.
-
-
-File: org, Node: Key bindings and useful functions, Next: Batch execution, Prev: Noweb reference syntax, Up: Working with source code
-
-14.11 Key bindings and useful functions
-=======================================
-
-Many common Org mode key sequences are re-bound depending on the
-context.
-
- Active key bindings in code blocks:
-
-‘C-c C-c’ ‘org-babel-execute-src-block’
-‘C-c C-o’ ‘org-babel-open-src-block-result’
-‘M-<UP>’ ‘org-babel-load-in-session’
-‘M-<DOWN>’ ‘org-babel-switch-to-session’
-
- Active key bindings in Org mode buffer:
-
-‘C-c C-v p’ or ‘C-c C-v C-p’ ‘org-babel-previous-src-block’
-‘C-c C-v n’ or ‘C-c C-v C-n’ ‘org-babel-next-src-block’
-‘C-c C-v e’ or ‘C-c C-v C-e’ ‘org-babel-execute-maybe’
-‘C-c C-v o’ or ‘C-c C-v C-o’ ‘org-babel-open-src-block-result’
-‘C-c C-v v’ or ‘C-c C-v C-v’ ‘org-babel-expand-src-block’
-‘C-c C-v u’ or ‘C-c C-v C-u’ ‘org-babel-goto-src-block-head’
-‘C-c C-v g’ or ‘C-c C-v C-g’ ‘org-babel-goto-named-src-block’
-‘C-c C-v r’ or ‘C-c C-v C-r’ ‘org-babel-goto-named-result’
-‘C-c C-v b’ or ‘C-c C-v C-b’ ‘org-babel-execute-buffer’
-‘C-c C-v s’ or ‘C-c C-v C-s’ ‘org-babel-execute-subtree’
-‘C-c C-v d’ or ‘C-c C-v C-d’ ‘org-babel-demarcate-block’
-‘C-c C-v t’ or ‘C-c C-v C-t’ ‘org-babel-tangle’
-‘C-c C-v f’ or ‘C-c C-v C-f’ ‘org-babel-tangle-file’
-‘C-c C-v c’ or ‘C-c C-v C-c’ ‘org-babel-check-src-block’
-‘C-c C-v j’ or ‘C-c C-v C-j’ ‘org-babel-insert-header-arg’
-‘C-c C-v l’ or ‘C-c C-v C-l’ ‘org-babel-load-in-session’
-‘C-c C-v i’ or ‘C-c C-v C-i’ ‘org-babel-lob-ingest’
-‘C-c C-v I’ or ‘C-c C-v C-I’ ‘org-babel-view-src-block-info’
-‘C-c C-v z’ or ‘C-c C-v C-z’ ‘org-babel-switch-to-session-with-code’
-‘C-c C-v a’ or ‘C-c C-v C-a’ ‘org-babel-sha1-hash’
-‘C-c C-v h’ or ‘C-c C-v C-h’ ‘org-babel-describe-bindings’
-‘C-c C-v x’ or ‘C-c C-v C-x’ ‘org-babel-do-key-sequence-in-edit-buffer’
-
-
-File: org, Node: Batch execution, Prev: Key bindings and useful functions, Up: Working with source code
-
-14.12 Batch execution
-=====================
-
-Org mode features, including working with source code facilities can be
-invoked from the command line. This enables building shell scripts for
-batch processing, running automated system tasks, and expanding Org
-mode’s usefulness.
-
- The sample script shows batch processing of multiple files using
-‘org-babel-tangle’.
-
- #!/bin/sh
- # tangle files with org-mode
- #
- emacs -Q --batch --eval "
- (progn
- (require 'ob-tangle)
- (dolist (file command-line-args-left)
- (with-current-buffer (find-file-noselect file)
- (org-babel-tangle))))
- " "$@"
-
-
-File: org, Node: Miscellaneous, Next: Hacking, Prev: Working with source code, Up: Top
-
-15 Miscellaneous
-****************
-
-* Menu:
-
-* Completion:: M-<TAB> guesses completions
-* Easy templates:: Quick insertion of structural elements
-* Speed keys:: Electric commands at the beginning of a headline
-* Code evaluation security:: Org mode files evaluate inline code
-* Customization:: Adapting Org to changing tastes
-* In-buffer settings:: Overview of the ‘#+KEYWORDS’
-* The very busy C-c C-c key:: When in doubt, press C-c C-c
-* Clean view:: Getting rid of leading stars in the outline
-* TTY keys:: Using Org on a tty
-* Interaction:: With other Emacs packages
-* org-crypt:: Encrypting Org files
-
-
-File: org, Node: Completion, Next: Easy templates, Up: Miscellaneous
-
-15.1 Completion
-===============
-
-Org has in-buffer completions. Unlike minibuffer completions, which are
-useful for quick command interactions, Org’s in-buffer completions are
-more suitable for content creation in Org documents. Type one or more
-letters and invoke the hot key to complete the text in-place. Depending
-on the context and the keys, Org will offer different types of
-completions. No minibuffer is involved. Such mode-specific hot keys
-have become an integral part of Emacs and Org provides several
-shortcuts.
-
-‘M-<TAB>’
- Complete word at point
- • At the beginning of a headline, complete TODO keywords.
- • After ‘\’, complete TeX symbols supported by the exporter.
- • After ‘*’, complete headlines in the current buffer so that
- they can be used in search links like ‘[[*find this
- headline]]’.
- • After ‘:’ in a headline, complete tags. The list of tags is
- taken from the variable ‘org-tag-alist’ (possibly set through
- the ‘#+TAGS’ in-buffer option, *note Setting tags::), or it is
- created dynamically from all tags used in the current buffer.
- • After ‘:’ and not in a headline, complete property keys. The
- list of keys is constructed dynamically from all keys used in
- the current buffer.
- • After ‘[’, complete link abbreviations (*note Link
- abbreviations::).
- • After ‘#+’, complete the special keywords like ‘TYP_TODO’ or
- file-specific ‘OPTIONS’. After option keyword is complete,
- pressing ‘M-<TAB>’ again will insert example settings for that
- option.
- • After ‘#+STARTUP:’, complete startup keywords.
- • When the point is anywhere else, complete dictionary words
- using Ispell.
- If your desktop intercepts the combo ‘M-<TAB>’ to switch windows,
- use ‘C-M-i’ or ‘<ESC> <TAB>’ as an alternative or customize your
- environment.
-
-
-File: org, Node: Easy templates, Next: Speed keys, Prev: Completion, Up: Miscellaneous
-
-15.2 Easy templates
-===================
-
-With just a few keystrokes, Org’s easy templates inserts empty pairs of
-structural elements, such as ‘#+BEGIN_SRC’ and ‘#+END_SRC’. Easy
-templates use an expansion mechanism, which is native to Org, in a
-process similar to ‘yasnippet’ and other Emacs template expansion
-packages.
-
- ‘<’ ‘s’ ‘<TAB>’ expands to a ‘src’ code block.
-
- ‘<’ ‘l’ ‘<TAB>’ expands to:
-
- #+BEGIN_EXPORT latex
-
- #+END_EXPORT
-
- Org comes with these pre-defined easy templates:
-
-‘s’ ‘#+BEGIN_SRC ... #+END_SRC’
-‘e’ ‘#+BEGIN_EXAMPLE ... #+END_EXAMPLE’
-‘q’ ‘#+BEGIN_QUOTE ... #+END_QUOTE’
-‘v’ ‘#+BEGIN_VERSE ... #+END_VERSE’
-‘c’ ‘#+BEGIN_CENTER ... #+END_CENTER’
-‘C’ ‘#+BEGIN_COMMENT ... #+END_COMMENT’
-‘l’ ‘#+BEGIN_EXPORT latex ... #+END_EXPORT’
-‘L’ ‘#+LATEX:’
-‘h’ ‘#+BEGIN_EXPORT html ... #+END_EXPORT’
-‘H’ ‘#+HTML:’
-‘a’ ‘#+BEGIN_EXPORT ascii ... #+END_EXPORT’
-‘A’ ‘#+ASCII:’
-‘i’ ‘#+INDEX:’ line
-‘I’ ‘#+INCLUDE:’ line
-
- More templates can added by customizing the variable
-‘org-structure-template-alist’, whose docstring has additional details.
-
-
-File: org, Node: Speed keys, Next: Code evaluation security, Prev: Easy templates, Up: Miscellaneous
-
-15.3 Speed keys
-===============
-
-Single keystrokes can execute custom commands in an Org file when the
-cursor is on a headline. Without the extra burden of a meta or modifier
-key, Speed Keys can speed navigation or execute custom commands.
-Besides faster navigation, Speed Keys may come in handy on small mobile
-devices that do not have full keyboards. Speed Keys may also work on
-TTY devices known for their problems when entering Emacs keychords.
-
- By default, Org has Speed Keys disabled. To activate Speed Keys, set
-the variable ‘org-use-speed-commands’ to a non-‘nil’ value. To trigger
-a Speed Key, the cursor must be at the beginning of an Org headline,
-before any of the stars.
-
- Org comes with a pre-defined list of Speed Keys. To add or modify
-Speed Keys, customize the variable, ‘org-speed-commands-user’. For more
-details, see the variable’s docstring. With Speed Keys activated, ‘M-x
-org-speed-command-help’, or ‘?’ when cursor is at the beginning of an
-Org headline, shows currently active Speed Keys, including the
-user-defined ones.
-
-
-File: org, Node: Code evaluation security, Next: Customization, Prev: Speed keys, Up: Miscellaneous
-
-15.4 Code evaluation and security issues
-========================================
-
-Unlike plain text, running code comes with risk. Each ‘src’ code block,
-in terms of risk, is equivalent to an executable file. Org therefore
-puts a few confirmation prompts by default. This is to alert the casual
-user from accidentally running untrusted code.
-
- For users who do not run code blocks or write code regularly, Org’s
-default settings should suffice. However, some users may want to tweak
-the prompts for fewer interruptions. To weigh the risks of automatic
-execution of code blocks, here are some details about code evaluation.
-
- Org evaluates code in the following circumstances:
-
-Source code blocks
- Org evaluates ‘src’ code blocks in an Org file during export. Org
- also evaluates a ‘src’ code block with the ‘C-c C-c’ key chord.
- Users exporting or running code blocks must load files only from
- trusted sources. Be wary of customizing variables that remove or
- alter default security measures.
-
- -- User Option: org-confirm-babel-evaluate
- When ‘t’, Org prompts the user for confirmation before
- executing each code block. When ‘nil’, Org executes code
- blocks without prompting the user for confirmation. When this
- option is set to a custom function, Org invokes the function
- with these two arguments: the source code language and the
- body of the code block. The custom function must return
- either a ‘t’ or ‘nil’, which determines if the user is
- prompted. Each source code language can be handled separately
- through this function argument.
-
- For example, this function enables execution of ‘ditaa’ code
- +blocks without prompting:
-
- (defun my-org-confirm-babel-evaluate (lang body)
- (not (string= lang "ditaa"))) ; don't ask for ditaa
- (setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)
-
-Following ‘shell’ and ‘elisp’ links
- Org has two link types that can also directly evaluate code (*note
- External links::). Because such code is not visible, these links
- have a potential risk. Org therefore prompts the user when it
- encounters such links. The customization variables are:
-
- -- User Option: org-confirm-shell-link-function
- Function that prompts the user before executing a shell link.
- -- User Option: org-confirm-elisp-link-function
- Function that prompts the user before executing an Emacs Lisp
- link.
-
-Formulas in tables
- Org executes formulas in tables (*note The spreadsheet::) either
- through the _calc_ or the _Emacs Lisp_ interpreters.
-
-
-File: org, Node: Customization, Next: In-buffer settings, Prev: Code evaluation security, Up: Miscellaneous
-
-15.5 Customization
-==================
-
-Org has more than 500 variables for customization. They can be accessed
-through the usual ‘M-x org-customize <RET>’ command. Or through the Org
-menu, ‘Org->Customization->Browse Org Group’. Org also has per-file
-settings for some variables (*note In-buffer settings::).
-
-
-File: org, Node: In-buffer settings, Next: The very busy C-c C-c key, Prev: Customization, Up: Miscellaneous
-
-15.6 Summary of in-buffer settings
-==================================
-
-In-buffer settings start with ‘#+’, followed by a keyword, a colon, and
-then a word for each setting. Org accepts multiple settings on the same
-line. Org also accepts multiple lines for a keyword. This manual
-describes these settings throughout. A summary follows here.
-
- ‘C-c C-c’ activates any changes to the in-buffer settings. Closing
-and reopening the Org file in Emacs also activates the changes.
-
-‘#+ARCHIVE: %s_done::’
- Sets the archive location of the agenda file. This location
- applies to the lines until the next ‘#+ARCHIVE’ line, if any, in
- the Org file. The first archive location in the Org file also
- applies to any entries before it. The corresponding variable is
- ‘org-archive-location’.
-‘#+CATEGORY:’
- Sets the category of the agenda file, which applies to the entire
- document.
-‘#+COLUMNS: %25ITEM ...’
- Sets the default format for columns view. Org uses this format for
- column views where there is no ‘COLUMNS’ property.
-‘#+CONSTANTS: name1=value1 ...’
- Set file-local values for constants that table formulas can use.
- This line sets the local variable
- ‘org-table-formula-constants-local’. The global version of this
- variable is ‘org-table-formula-constants’.
-‘#+FILETAGS: :tag1:tag2:tag3:’
- Set tags that all entries in the file will inherit from here,
- including the top-level entries.
-‘#+LINK: linkword replace’
- Each line specifies one abbreviation for one link. Use multiple
- ‘#+LINK:’ lines for more, *note Link abbreviations::. The
- corresponding variable is ‘org-link-abbrev-alist’.
-‘#+PRIORITIES: highest lowest default’
- This line sets the limits and the default for the priorities. All
- three must be either letters A–Z or numbers 0–9. The highest
- priority must have a lower ASCII number than the lowest priority.
-‘#+PROPERTY: Property_Name Value’
- This line sets a default inheritance value for entries in the
- current buffer, most useful for specifying the allowed values of a
- property.
-‘#+SETUPFILE: file or URL’
- The setup file or a URL pointing to such file is for additional
- in-buffer settings. Org loads this file and parses it for any
- settings in it only when Org opens the main file. If URL is
- specified, the contents are downloaded and stored in a temporary
- file cache. ‘C-c C-c’ on the settings line will parse and load the
- file, and also reset the temporary file cache. Org also parses and
- loads the document during normal exporting process. Org parses the
- contents of this document as if it was included in the buffer. It
- can be another Org file. To visit the file (not a URL), ‘C-c '’
- while the cursor is on the line with the file name.
-‘#+STARTUP:’
- Startup options Org uses when first visiting a file.
-
- The first set of options deals with the initial visibility of the
- outline tree. The corresponding variable for global default
- settings is ‘org-startup-folded’ with a default value of ‘t’, which
- is the same as ‘overview’.
-
- overview top-level headlines only
- content all headlines
- showall no folding of any entries
- showeverything show even drawer contents
-
- Dynamic virtual indentation is controlled by the variable
- ‘org-startup-indented’
- indent start with ‘org-indent-mode’ turned on
- noindent start with ‘org-indent-mode’ turned off
-
- Aligns tables consistently upon visiting a file; useful for
- restoring narrowed table columns. The corresponding variable is
- ‘org-startup-align-all-tables’ with ‘nil’ as default value.
-
- align align all tables
- noalign don’t align tables on startup
-
- Whether Org should automatically display inline images. The
- corresponding variable is ‘org-startup-with-inline-images’, with a
- default value ‘nil’ to avoid delays when visiting a file.
- inlineimages show inline images
- noinlineimages don’t show inline images on startup
-
- Whether Org should automatically convert LaTeX fragments to images.
- The variable ‘org-startup-with-latex-preview’, which controls this
- setting, is set to ‘nil’ by default to avoid startup delays.
- latexpreview preview LaTeX fragments
- nolatexpreview don’t preview LaTeX fragments
-
- Logging the closing and reopening of TODO items and clock intervals
- can be configured using these options (see variables
- ‘org-log-done’, ‘org-log-note-clock-out’ and ‘org-log-repeat’)
- logdone record a timestamp when an item is marked DONE
- lognotedone record timestamp and a note when DONE
- nologdone don’t record when items are marked DONE
- logrepeat record a time when reinstating a repeating item
- lognoterepeat record a note when reinstating a repeating item
- nologrepeat do not record when reinstating repeating item
- lognoteclock-out record a note when clocking out
- nolognoteclock-out don’t record a note when clocking out
- logreschedule record a timestamp when scheduling time changes
- lognotereschedule record a note when scheduling time changes
- nologreschedule do not record when a scheduling date changes
- logredeadline record a timestamp when deadline changes
- lognoteredeadline record a note when deadline changes
- nologredeadline do not record when a deadline date changes
- logrefile record a timestamp when refiling
- lognoterefile record a note when refiling
- nologrefile do not record when refiling
- logdrawer store log into drawer
- nologdrawer store log outside of drawer
- logstatesreversed reverse the order of states notes
- nologstatesreversed do not reverse the order of states notes
-
- These options hide leading stars in outline headings, and indent
- outlines. The corresponding variables are ‘org-hide-leading-stars’
- and ‘org-odd-levels-only’, both with a default setting of ‘nil’
- (meaning ‘showstars’ and ‘oddeven’).
- hidestars hide all stars on the headline except one.
- showstars show all stars on the headline
- indent virtual indents according to the outline level
- noindent no virtual indents
- odd show odd outline levels only (1,3,...)
- oddeven show all outline levels
-
- To turn on custom format overlays over timestamps (variables
- ‘org-put-time-stamp-overlays’ and
- ‘org-time-stamp-overlay-formats’), use
- customtime overlay custom time format
-
- The following options influence the table spreadsheet (variable
- ‘constants-unit-system’).
- constcgs ‘constants.el’ should use the c-g-s unit system
- constSI ‘constants.el’ should use the SI unit system
-
- For footnote settings, use the following keywords. The
- corresponding variables are ‘org-footnote-define-inline’,
- ‘org-footnote-auto-label’, and ‘org-footnote-auto-adjust’.
- fninline define footnotes inline
- fnnoinline define footnotes in separate section
- fnlocal define footnotes near first reference, but not inline
- fnprompt prompt for footnote labels
- fnauto create ‘[fn:1]’-like labels automatically (default)
- fnconfirm offer automatic label for editing or confirmation
- fnplain create ‘[1]’-like labels automatically
- fnadjust automatically renumber and sort footnotes
- nofnadjust do not renumber and sort automatically
-
- To hide blocks on startup, use these keywords. The corresponding
- variable is ‘org-hide-block-startup’.
- hideblocks Hide all begin/end blocks on startup
- nohideblocks Do not hide blocks on startup
-
- The display of entities as UTF-8 characters is governed by the
- variable ‘org-pretty-entities’ and the keywords
- entitiespretty Show entities as UTF-8 characters where possible
- entitiesplain Leave entities plain
-
-‘#+TAGS: TAG1(c1) TAG2(c2)’
- These lines specify valid tags for this file. Org accepts multiple
- tags lines. Tags could correspond to the _fast tag selection_
- keys. The corresponding variable is ‘org-tag-alist’.
-‘#+TBLFM:’
- This line is for formulas for the table directly above. A table
- can have multiple ‘#+TBLFM:’ lines. On table recalculation, Org
- applies only the first ‘#+TBLFM:’ line. For details see *note
- Using multiple #+TBLFM lines:: in *note Editing and debugging
- formulas::.
-‘#+TITLE:, #+AUTHOR:, #+EMAIL:, #+LANGUAGE:, #+DATE:,’
-‘#+OPTIONS:, #+BIND:,’
-‘#+SELECT_TAGS:, #+EXCLUDE_TAGS:’
- These lines provide settings for exporting files. For more details
- see *note Export settings::.
-‘#+TODO: #+SEQ_TODO: #+TYP_TODO:’
- These lines set the TODO keywords and their significance to the
- current file. The corresponding variable is ‘org-todo-keywords’.
-
-
-File: org, Node: The very busy C-c C-c key, Next: Clean view, Prev: In-buffer settings, Up: Miscellaneous
-
-15.7 The very busy C-c C-c key
-==============================
-
-The ‘C-c C-c’ key in Org serves many purposes depending on the context.
-It is probably the most over-worked, multi-purpose key combination in
-Org. Its uses are well-documented through out this manual, but here is
-a consolidated list for easy reference.
-
- − If any highlights shown in the buffer from the creation of a sparse
- tree, or from clock display, remove such highlights.
- − If the cursor is in one of the special ‘#+KEYWORD’ lines, scan the
- buffer for these lines and update the information. Also reset the
- Org file cache used to temporary store the contents of URLs used as
- values for keywords like ‘#+SETUPFILE’.
- − If the cursor is inside a table, realign the table. The table
- realigns even if automatic table editor is turned off.
- − If the cursor is on a ‘#+TBLFM’ line, re-apply the formulas to the
- entire table.
- − If the current buffer is a capture buffer, close the note and file
- it. With a prefix argument, also jump to the target location after
- saving the note.
- − If the cursor is on a ‘<<<target>>>’, update radio targets and
- corresponding links in this buffer.
- − If the cursor is on a property line or at the start or end of a
- property drawer, offer property commands.
- − If the cursor is at a footnote reference, go to the corresponding
- definition, and _vice versa_.
- − If the cursor is on a statistics cookie, update it.
- − If the cursor is in a plain list item with a checkbox, toggle the
- status of the checkbox.
- − If the cursor is on a numbered item in a plain list, renumber the
- ordered list.
- − If the cursor is on the ‘#+BEGIN’ line of a dynamic block, the
- block is updated.
- − If the cursor is at a timestamp, fix the day name in the timestamp.
-
-
-File: org, Node: Clean view, Next: TTY keys, Prev: The very busy C-c C-c key, Up: Miscellaneous
-
-15.8 A cleaner outline view
-===========================
-
-Org’s default outline with stars and no indents can become too cluttered
-for short documents. For _book-like_ long documents, the effect is not
-as noticeable. Org provides an alternate stars and indentation scheme,
-as shown on the right in the following table. It uses only one star and
-indents text to line with the heading:
-
- * Top level headline | * Top level headline
- ** Second level | * Second level
- *** 3rd level | * 3rd level
- some text | some text
- *** 3rd level | * 3rd level
- more text | more text
- * Another top level headline | * Another top level headline
-
-
- To turn this mode on, use the minor mode, ‘org-indent-mode’. Text
-lines that are not headlines are prefixed with spaces to vertically
-align with the headline text(1).
-
- To make more horizontal space, the headlines are shifted by two
-stars. This can be configured by the ‘org-indent-indentation-per-level’
-variable. Only one star on each headline is visible, the rest are
-masked with the same font color as the background. This font face can
-be configured with the ‘org-hide’ variable.
-
- Note that turning on ‘org-indent-mode’ sets ‘org-hide-leading-stars’
-to ‘t’ and ‘org-adapt-indentation’ to ‘nil’; ‘2.’ below shows how this
-works.
-
- To globally turn on ‘org-indent-mode’ for all files, customize the
-variable ‘org-startup-indented’.
-
- To turn on indenting for individual files, use ‘#+STARTUP’ option as
-follows:
-
- #+STARTUP: indent
-
- Indent on startup makes Org use hard spaces to align text with
-headings as shown in examples below.
-
- 1. _Indentation of text below headlines_
- Indent text to align with the headline.
-
- *** 3rd level
- more text, now indented
-
- Org adapts indentations with paragraph filling, line wrapping, and
- structure editing(2).
-
- 2. _Hiding leading stars_
- Org can make leading stars invisible. For global preference,
- configure the variable ‘org-hide-leading-stars’. For per-file
- preference, use these file ‘#+STARTUP’ options:
-
- #+STARTUP: hidestars
- #+STARTUP: showstars
-
- With stars hidden, the tree is shown as:
-
- * Top level headline
- * Second level
- * 3rd level
- ...
-
- Because Org makes the font color same as the background color to
- hide to stars, sometimes ‘org-hide’ face may need tweaking to get
- the effect right. For some black and white combinations, ‘grey90’
- on a white background might mask the stars better.
-
- 3. Using stars for only odd levels, 1, 3, 5, ..., can also clean up
- the clutter. This removes two stars from each level(3). For Org
- to properly handle this cleaner structure during edits and exports,
- configure the variable ‘org-odd-levels-only’. To set this
- per-file, use either one of the following lines:
-
- #+STARTUP: odd
- #+STARTUP: oddeven
-
- To switch between single and double stars layouts, use ‘M-x
- org-convert-to-odd-levels <RET>’ and ‘M-x
- org-convert-to-oddeven-levels <RET>’.
-
- ---------- Footnotes ----------
-
- (1) The ‘org-indent-mode’ also sets the ‘wrap-prefix’ correctly for
-indenting and wrapping long lines of headlines or text. This minor mode
-handles ‘visual-line-mode’ and directly applied settings through
-‘word-wrap’.
-
- (2) Also see the variable ‘org-adapt-indentation’.
-
- (3) Because ‘LEVEL=2’ has 3 stars, ‘LEVEL=3’ has 4 stars, and so on
-
-
-File: org, Node: TTY keys, Next: Interaction, Prev: Clean view, Up: Miscellaneous
-
-15.9 Using Org on a tty
-=======================
-
-Org provides alternative key bindings for TTY and modern mobile devices
-that cannot handle cursor keys and complex modifier key chords. Some of
-these workarounds may be more cumbersome than necessary. Users should
-look into customizing these further based on their usage needs. For
-example, the normal ‘S-<cursor>’ for editing timestamp might be better
-with ‘C-c .’ chord.
-
-Default Alternative Speed Alternative
- 1 key 2
-‘S-<TAB>’ ‘C-u <TAB>’ ‘C’
-‘M-<LEFT>’ ‘C-c C-x l’ ‘l’ ‘<Esc>
- <LEFT>’
-‘M-S-<LEFT>’‘C-c C-x L’ ‘L’
-‘M-<RIGHT>’ ‘C-c C-x r’ ‘r’ ‘<Esc>
- <RIGHT>’
-‘M-S-<RIGHT>’‘C-c C-x R’ ‘R’
-‘M-<UP>’ ‘C-c C-x u’ ‘ ’ ‘<Esc> <UP>’
-‘M-S-<UP>’ ‘C-c C-x U’ ‘U’
-‘M-<DOWN>’ ‘C-c C-x d’ ‘ ’ ‘<Esc>
- <DOWN>’
-‘M-S-<DOWN>’‘C-c C-x D’ ‘D’
-‘S-<RET>’ ‘C-c C-x c’ ‘ ’
-‘M-<RET>’ ‘C-c C-x m’ ‘ ’ ‘<Esc>
- <RET>’
-‘M-S-<RET>’ ‘C-c C-x M’ ‘ ’
-‘S-<LEFT>’ ‘C-c <LEFT>’ ‘ ’
-‘S-<RIGHT>’ ‘C-c ‘ ’
- <RIGHT>’
-‘S-<UP>’ ‘C-c <UP>’ ‘ ’
-‘S-<DOWN>’ ‘C-c <DOWN>’ ‘ ’
-‘C-S-<LEFT>’‘C-c C-x ‘ ’
- <LEFT>’
-‘C-S-<RIGHT>’‘C-c C-x ‘ ’
- <RIGHT>’
-
-
-File: org, Node: Interaction, Next: org-crypt, Prev: TTY keys, Up: Miscellaneous
-
-15.10 Interaction with other packages
-=====================================
-
-Org’s compatibility and the level of interaction with other Emacs
-packages are documented here.
-
-* Menu:
-
-* Cooperation:: Packages Org cooperates with
-* Conflicts:: Packages that lead to conflicts
-
-
-File: org, Node: Cooperation, Next: Conflicts, Up: Interaction
-
-15.10.1 Packages that Org cooperates with
------------------------------------------
-
-‘calc.el’ by Dave Gillespie
- Org uses the Calc package for tables to implement spreadsheet
- functionality (*note The spreadsheet::). Org also uses Calc for
- embedded calculations. *Note Embedded Mode: (calc)Embedded Mode.
-‘constants.el’ by Carsten Dominik
- Org can use names for constants in formulas in tables. Org can
- also use calculation suffixes for units, such as ‘M’ for ‘Mega’.
- For a standard collection of such constants, install the
- ‘constants’ package. Install version 2.0 of this package,
- available at <https://staff.fnwi.uva.nl/c.dominik/Tools/>. Org
- checks if the function ‘constants-get’ has been autoloaded.
- Installation instructions are in the file, ‘constants.el’.
-‘cdlatex.el’ by Carsten Dominik
- Org mode can use CDLaTeX package to efficiently enter LaTeX
- fragments into Org files (*note CDLaTeX mode::).
-‘imenu.el’ by Ake Stenhoff and Lars Lindberg
- Imenu creates dynamic menus based on an index of items in a file.
- Org mode supports Imenu menus. Enable it with a mode hook as
- follows:
- (add-hook 'org-mode-hook
- (lambda () (imenu-add-to-menubar "Imenu")))
- By default the Imenu index is two levels deep. Change the index
- depth using thes variable, ‘org-imenu-depth’.
-‘speedbar.el’ by Eric M. Ludlam
- Speedbar package creates a special Emacs frame for displaying files
- and index items in files. Org mode supports Speedbar; users can
- drill into Org files directly from the Speedbar. The ‘<’ in the
- Speedbar frame tweaks the agenda commands to that file or to a
- subtree.
-‘table.el’ by Takaaki Ota
-
- Complex ASCII tables with automatic line wrapping, column- and
- row-spanning, and alignment can be created using the Emacs table
- package by Takaaki Ota. Org mode recognizes such tables and export
- them properly. ‘C-c '’ to edit these tables in a special buffer,
- much like Org’s ‘src’ code blocks. Because of interference with
- other Org mode functionality, Takaaki Ota tables cannot be edited
- directly in the Org buffer.
- ‘C-c ' (org-edit-special)’
- Edit a ‘table.el’ table. Works when the cursor is in a
- table.el table.
- ‘C-c ~ (org-table-create-with-table.el)’
- Insert a ‘table.el’ table. If there is already a table at
- point, this command converts it between the ‘table.el’ format
- and the Org mode format. See the documentation string of the
- command ‘org-convert-table’ for details.
-
-
-File: org, Node: Conflicts, Prev: Cooperation, Up: Interaction
-
-15.10.2 Packages that conflict with Org mode
---------------------------------------------
-
- In Emacs, ‘shift-selection-mode’ combines cursor motions with shift
- key to enlarge regions. Emacs sets this mode by default. This
- conflicts with Org’s use of ‘S-<cursor>’ commands to change
- timestamps, TODO keywords, priorities, and item bullet types, etc.
- Since ‘S-<cursor>’ commands outside of specific contexts don’t do
- anything, Org offers the variable ‘org-support-shift-select’ for
- customization. Org mode accommodates shift selection by (i) making
- it available outside of the special contexts where special commands
- apply, and (ii) extending an existing active region even if the
- cursor moves across a special context.
-
-‘CUA.el’ by Kim. F. Storm
- Org key bindings conflict with ‘S-<cursor>’ keys used by CUA mode.
- For Org to relinquish these bindings to CUA mode, configure the
- variable ‘org-replace-disputed-keys’. When set, Org moves the
- following key bindings in Org files, and in the agenda buffer (but
- not during date selection).
-
- S-<UP> ⇒ M-p S-<DOWN> ⇒ M-n
- S-<LEFT> ⇒ M-- S-<RIGHT> ⇒ M-+
- C-S-<LEFT> ⇒ M-S-- C-S-<RIGHT> ⇒ M-S-+
-
- Yes, these are unfortunately more difficult to remember. To define
- a different replacement keys, look at the variable
- ‘org-disputed-keys’.
-
-‘ecomplete.el’ by Lars Magne Ingebrigtsen <larsi@gnus.org>
-
- Ecomplete provides “electric” address completion in address header
- lines in message buffers. Sadly Orgtbl mode cuts ecompletes power
- supply: No completion happens when Orgtbl mode is enabled in
- message buffers while entering text in address header lines. If
- one wants to use ecomplete one should _not_ follow the advice to
- automagically turn on Orgtbl mode in message buffers (see *note
- Orgtbl mode::), but instead—after filling in the message
- headers—turn on Orgtbl mode manually when needed in the messages
- body.
-
-‘filladapt.el’ by Kyle Jones
-
- Org mode tries to do the right thing when filling paragraphs, list
- items and other elements. Many users reported problems using both
- ‘filladapt.el’ and Org mode, so a safe thing to do is to disable
- filladapt like this:
-
- (add-hook 'org-mode-hook 'turn-off-filladapt-mode)
-
-‘yasnippet.el’
- The way Org mode binds the <TAB> key (binding to ‘[tab]’ instead of
- ‘"\t"’) overrules YASnippet’s access to this key. The following
- code fixed this problem:
-
- (add-hook 'org-mode-hook
- (lambda ()
- (setq-local yas/trigger-key [tab])
- (define-key yas/keymap [tab] 'yas/next-field-or-maybe-expand)))
-
- The latest version of yasnippet doesn’t play well with Org mode.
- If the above code does not fix the conflict, first define the
- following function:
-
- (defun yas/org-very-safe-expand ()
- (let ((yas/fallback-behavior 'return-nil)) (yas/expand)))
-
- Then tell Org mode to use that function:
-
- (add-hook 'org-mode-hook
- (lambda ()
- (make-variable-buffer-local 'yas/trigger-key)
- (setq yas/trigger-key [tab])
- (add-to-list 'org-tab-first-hook 'yas/org-very-safe-expand)
- (define-key yas/keymap [tab] 'yas/next-field)))
-
-‘windmove.el’ by Hovav Shacham
- This package also uses the ‘S-<cursor>’ keys, so everything written
- in the paragraph above about CUA mode also applies here. If you
- want make the windmove function active in locations where Org mode
- does not have special functionality on ‘S-<cursor>’, add this to
- your configuration:
-
- ;; Make windmove work in org-mode:
- (add-hook 'org-shiftup-final-hook 'windmove-up)
- (add-hook 'org-shiftleft-final-hook 'windmove-left)
- (add-hook 'org-shiftdown-final-hook 'windmove-down)
- (add-hook 'org-shiftright-final-hook 'windmove-right)
-
-‘viper.el’ by Michael Kifer
- Viper uses ‘C-c /’ and therefore makes this key not access the
- corresponding Org mode command ‘org-sparse-tree’. You need to find
- another key for this command, or override the key in
- ‘viper-vi-global-user-map’ with
-
- (define-key viper-vi-global-user-map "C-c /" 'org-sparse-tree)
-
-
-File: org, Node: org-crypt, Prev: Interaction, Up: Miscellaneous
-
-15.11 org-crypt.el
-==================
-
-Org crypt encrypts the text of an Org entry, but not the headline, or
-properties. Org crypt uses the Emacs EasyPG library to encrypt and
-decrypt.
-
- Any text below a headline that has a ‘:crypt:’ tag will be
-automatically be encrypted when the file is saved. To use a different
-tag, customize the ‘org-crypt-tag-matcher’ variable.
-
- Suggested Org crypt settings in Emacs init file:
-
- (require 'org-crypt)
- (org-crypt-use-before-save-magic)
- (setq org-tags-exclude-from-inheritance (quote ("crypt")))
-
- (setq org-crypt-key nil)
- ;; GPG key to use for encryption
- ;; Either the Key ID or set to nil to use symmetric encryption.
-
- (setq auto-save-default nil)
- ;; Auto-saving does not cooperate with org-crypt.el: so you need
- ;; to turn it off if you plan to use org-crypt.el quite often.
- ;; Otherwise, you'll get an (annoying) message each time you
- ;; start Org.
-
- ;; To turn it off only locally, you can insert this:
- ;;
- ;; # -*- buffer-auto-save-file-name: nil; -*-
-
- Excluding the crypt tag from inheritance prevents encrypting
-previously encrypted text.
-
-
-File: org, Node: Hacking, Next: MobileOrg, Prev: Miscellaneous, Up: Top
-
-Appendix A Hacking
-******************
-
-This appendix covers some areas where users can extend the functionality
-of Org.
-
-* Menu:
-
-* Hooks:: How to reach into Org’s internals
-* Add-on packages:: Available extensions
-* Adding hyperlink types:: New custom link types
-* Adding export back-ends:: How to write new export back-ends
-* Context-sensitive commands:: How to add functionality to such commands
-* Tables in arbitrary syntax:: Orgtbl for LaTeX and other programs
-* Dynamic blocks:: Automatically filled blocks
-* Special agenda views:: Customized views
-* Speeding up your agendas:: Tips on how to speed up your agendas
-* Extracting agenda information:: Post-processing of agenda information
-* Using the property API:: Writing programs that use entry properties
-* Using the mapping API:: Mapping over all or selected entries
-
-
-File: org, Node: Hooks, Next: Add-on packages, Up: Hacking
-
-A.1 Hooks
-=========
-
-Org has a large number of hook variables for adding functionality. This
-appendix illustrates using a few. A complete list of hooks with
-documentation is maintained by the Worg project at
-<https://orgmode.org/worg/doc.html#hooks>.
-
-
-File: org, Node: Add-on packages, Next: Adding hyperlink types, Prev: Hooks, Up: Hacking
-
-A.2 Add-on packages
-===================
-
-Various authors wrote a large number of add-on packages for Org.
-
- These packages are not part of Emacs, but they are distributed as
-contributed packages with the separate release available at
-<https://orgmode.org>. See the ‘contrib/README’ file in the source code
-directory for a list of contributed files. Worg page with more
-information is at: <https://orgmode.org/worg/org-contrib/>.
-
-
-File: org, Node: Adding hyperlink types, Next: Adding export back-ends, Prev: Add-on packages, Up: Hacking
-
-A.3 Adding hyperlink types
-==========================
-
-Org has many built-in hyperlink types (*note Hyperlinks::), and an
-interface for adding new link types. The example file, ‘org-man.el’,
-shows the process of adding Org links to Unix man pages, which look like
-this: ‘[[man:printf][The printf manpage]]’:
-
- ;;; org-man.el - Support for links to manpages in Org
-
- (require 'org)
-
- (org-add-link-type "man" 'org-man-open)
- (add-hook 'org-store-link-functions 'org-man-store-link)
-
- (defcustom org-man-command 'man
- "The Emacs command to be used to display a man page."
- :group 'org-link
- :type '(choice (const man) (const woman)))
-
- (defun org-man-open (path)
- "Visit the manpage on PATH.
- PATH should be a topic that can be thrown at the man command."
- (funcall org-man-command path))
-
- (defun org-man-store-link ()
- "Store a link to a manpage."
- (when (memq major-mode '(Man-mode woman-mode))
- ;; This is a man page, we do make this link
- (let* ((page (org-man-get-page-name))
- (link (concat "man:" page))
- (description (format "Manpage for %s" page)))
- (org-store-link-props
- :type "man"
- :link link
- :description description))))
-
- (defun org-man-get-page-name ()
- "Extract the page name from the buffer name."
- ;; This works for both `Man-mode' and `woman-mode'.
- (if (string-match " \\(\\S-+\\)\\*" (buffer-name))
- (match-string 1 (buffer-name))
- (error "Cannot create link to this man page")))
-
- (provide 'org-man)
-
- ;;; org-man.el ends here
-
-To activate links to man pages in Org, enter this in the init file:
-
- (require 'org-man)
-
-A review of ‘org-man.el’:
- 1. First, ‘(require 'org)’ ensures ‘org.el’ is loaded.
- 2. The ‘org-add-link-type’ defines a new link type with ‘man’ prefix.
- The call contains the function to call that follows the link type.
- 3. The next line adds a function to ‘org-store-link-functions’ that
- records a useful link with the command ‘C-c l’ in a buffer
- displaying a man page.
-
- The rest of the file defines necessary variables and functions.
-First is the customization variable ‘org-man-command’. It has two
-options, ‘man’ and ‘woman’. Next is a function whose argument is the
-link path, which for man pages is the topic of the man command. To
-follow the link, the function calls the ‘org-man-command’ to display the
-man page.
-
- ‘C-c l’ constructs and stores the link.
-
- ‘C-c l’ calls the function ‘org-man-store-link’, which first checks
-if the ‘major-mode’ is appropriate. If check fails, the function
-returns ‘nil’. Otherwise the function makes a link string by combining
-the ‘man:’ prefix with the man topic. The function then calls
-‘org-store-link-props’ with ‘:type’ and ‘:link’ properties. A
-‘:description’ property is an optional string that is displayed when the
-function inserts the link in the Org buffer.
-
- ‘C-c C-l’ inserts the stored link.
-
- To define new link types, define a function that implements
-completion support with ‘C-c C-l’. This function should not accept any
-arguments but return the appropriate prefix and complete link string.
-
-
-File: org, Node: Adding export back-ends, Next: Context-sensitive commands, Prev: Adding hyperlink types, Up: Hacking
-
-A.4 Adding export back-ends
-===========================
-
-Org’s export engine makes it easy for writing new back-ends. The
-framework on which the engine was built makes it easy to derive new
-back-ends from existing ones.
-
- The two main entry points to the export engine are:
-‘org-export-define-backend’ and ‘org-export-define-derived-backend’. To
-grok these functions, see ‘ox-latex.el’ for an example of defining a new
-back-end from scratch, and ‘ox-beamer.el’ for an example of deriving
-from an existing engine.
-
- For creating a new back-end from scratch, first set its name as a
-symbol in an alist consisting of elements and export functions. To make
-the back-end visible to the export dispatcher, set ‘:menu-entry’
-keyword. For export options specific to this back-end, set the
-‘:options-alist’.
-
- For creating a new back-end from an existing one, set
-‘:translate-alist’ to an alist of export functions. This alist replaces
-the parent back-end functions.
-
- For complete documentation, see the Org Export Reference on Worg
-(https://orgmode.org/worg/dev/org-export-reference.html).
-
-
-File: org, Node: Context-sensitive commands, Next: Tables in arbitrary syntax, Prev: Adding export back-ends, Up: Hacking
-
-A.5 Context-sensitive commands
-==============================
-
-Org has facilities for building context sensitive commands. Authors of
-Org add-ons can tap into this functionality.
-
- Some Org commands change depending on the context. The most
-important example of this behavior is the ‘C-c C-c’ (*note The very busy
-C-c C-c key::). Other examples are ‘M-cursor’ and ‘M-S-cursor’.
-
- These context sensitive commands work by providing a function that
-detects special context for that add-on and executes functionality
-appropriate for that context.
-
-
-File: org, Node: Tables in arbitrary syntax, Next: Dynamic blocks, Prev: Context-sensitive commands, Up: Hacking
-
-A.6 Tables and lists in arbitrary syntax
-========================================
-
-Because of Org’s success in handling tables with Orgtbl, a frequently
-asked feature is to Org’s usability functions to other table formats
-native to other modem’s, such as LaTeX. This would be hard to do in a
-general way without complicated customization nightmares. Moreover,
-that would take Org away from its simplicity roots that Orgtbl has
-proven. There is, however, an alternate approach to accomplishing the
-same.
-
- This approach involves implementing a custom _translate_ function
-that operates on a native Org _source table_ to produce a table in
-another format. This strategy would keep the excellently working Orgtbl
-simple and isolate complications, if any, confined to the translate
-function. To add more alien table formats, we just add more translate
-functions. Also the burden of developing custom translate functions for
-new table formats will be in the hands of those who know those formats
-best.
-
- For an example of how this strategy works, see Orgstruct mode. In
-that mode, Bastien added the ability to use Org’s facilities to edit and
-re-structure lists. He did by turning ‘orgstruct-mode’ on, and then
-exporting the list locally to another format, such as HTML, LaTeX or
-Texinfo.
-
-* Menu:
-
-* Radio tables:: Sending and receiving radio tables
-* A LaTeX example:: Step by step, almost a tutorial
-* Translator functions:: Copy and modify
-* Radio lists:: Sending and receiving lists
-
-
-File: org, Node: Radio tables, Next: A LaTeX example, Up: Tables in arbitrary syntax
-
-A.6.1 Radio tables
-------------------
-
-Radio tables are target locations for translated tables that are not
-near their source. Org finds the target location and inserts the
-translated table.
-
- The key to finding the target location are the magic words ‘BEGIN/END
-RECEIVE ORGTBL’. They have to appear as comments in the current mode.
-If the mode is C, then:
-
- /* BEGIN RECEIVE ORGTBL table_name */
- /* END RECEIVE ORGTBL table_name */
-
-At the location of source, Org needs a special line to direct Orgtbl to
-translate and to find the target for inserting the translated table.
-For example:
- #+ORGTBL: SEND table_name translation_function arguments...
-
-‘table_name’ is the table’s reference name, which is also used in the
-receiver lines, and the ‘translation_function’ is the Lisp function that
-translates. This line, in addition, may also contain alternating key
-and value arguments at the end. The translation function gets these
-values as a property list. A few standard parameters are already
-recognized and acted upon before the translation function is called:
-
-‘:skip N’
- Skip the first N lines of the table. Hlines do count; include them
- if they are to be skipped.
-
-‘:skipcols (n1 n2 ...)’
- List of columns to be skipped. First Org automatically discards
- columns with calculation marks and then sends the table to the
- translator function, which then skips columns as specified in
- ‘skipcols’.
-
-To keep the source table intact in the buffer without being disturbed
-when the source file is compiled or otherwise being worked on, use one
-of these strategies:
-
- • Place the table in a block comment. For example, in C mode you
- could wrap the table between ‘/*’ and ‘*/’ lines.
- • Put the table after an ‘END’ statement. For example ‘\bye’ in TeX
- and ‘\end{document}’ in LaTeX.
- • Comment and uncomment each line of the table during edits. The
- ‘M-x orgtbl-toggle-comment <RET>’ command makes toggling easy.
-
-
-File: org, Node: A LaTeX example, Next: Translator functions, Prev: Radio tables, Up: Tables in arbitrary syntax
-
-A.6.2 A LaTeX example of radio tables
--------------------------------------
-
-To wrap a source table in LaTeX, use the ‘comment’ environment provided
-by ‘comment.sty’. To activate it, put ‘\usepackage{comment}’ in the
-document header. Orgtbl mode inserts a radio table skeleton(1) with the
-command ‘M-x orgtbl-insert-radio-table <RET>’, which prompts for a table
-name. For example, if ‘salesfigures’ is the name, the template inserts:
-
- % BEGIN RECEIVE ORGTBL salesfigures
- % END RECEIVE ORGTBL salesfigures
- \begin{comment}
- #+ORGTBL: SEND salesfigures orgtbl-to-latex
- | | |
- \end{comment}
-
-The line ‘#+ORGTBL: SEND’ tells Orgtbl mode to use the function
-‘orgtbl-to-latex’ to convert the table to LaTeX format, then insert the
-table at the target (receive) location named ‘salesfigures’. Now the
-table is ready for data entry. It can even use spreadsheet features(2):
-
- % BEGIN RECEIVE ORGTBL salesfigures
- % END RECEIVE ORGTBL salesfigures
- \begin{comment}
- #+ORGTBL: SEND salesfigures orgtbl-to-latex
- | Month | Days | Nr sold | per day |
- |-------+------+---------+---------|
- | Jan | 23 | 55 | 2.4 |
- | Feb | 21 | 16 | 0.8 |
- | March | 22 | 278 | 12.6 |
- #+TBLFM: $4=$3/$2;%.1f
- % $ (optional extra dollar to keep font-lock happy, see footnote)
- \end{comment}
-
-After editing, ‘C-c C-c’ inserts translated table at the target
-location, between the two marker lines.
-
- For hand-made custom tables, note that the translator needs to skip
-the first two lines of the source table. Also the command has to
-_splice_ out the target table without the header and footer.
-
- \begin{tabular}{lrrr}
- Month & \multicolumn{1}{c}{Days} & Nr.\ sold & per day\\
- % BEGIN RECEIVE ORGTBL salesfigures
- % END RECEIVE ORGTBL salesfigures
- \end{tabular}
- %
- \begin{comment}
- #+ORGTBL: SEND salesfigures orgtbl-to-latex :splice t :skip 2
- | Month | Days | Nr sold | per day |
- |-------+------+---------+---------|
- | Jan | 23 | 55 | 2.4 |
- | Feb | 21 | 16 | 0.8 |
- | March | 22 | 278 | 12.6 |
- #+TBLFM: $4=$3/$2;%.1f
- \end{comment}
-
- The LaTeX translator function ‘orgtbl-to-latex’ is already part of
-Orgtbl mode and uses ‘tabular’ environment by default to typeset the
-table and mark the horizontal lines with ‘\hline’. For additional
-parameters to control output, *note Translator functions:::
-
-‘:splice nil/t’
- When non-‘nil’, returns only table body lines; not wrapped in
- tabular environment. Default is ‘nil’.
-
-‘:fmt fmt’
- Format to warp each field. It should contain ‘%s’ for the original
- field value. For example, to wrap each field value in dollar
- symbol, you could use ‘:fmt "$%s$"’. Format can also wrap a
- property list with column numbers and formats, for example ‘:fmt (2
- "$%s$" 4 "%s\\%%")’. In place of a string, a function of one
- argument can be used; the function must return a formatted string.
-
-‘:efmt efmt’
- Format numbers as exponentials. The spec should have ‘%s’ twice
- for inserting mantissa and exponent, for example
- ‘"%s\\times10^{%s}"’. This may also be a property list with column
- numbers and formats, for example ‘:efmt (2 "$%s\\times10^{%s}$" 4
- "$%s\\cdot10^{%s}$")’. After ‘efmt’ has been applied to a value,
- ‘fmt’ will also be applied. Functions with two arguments can be
- supplied instead of strings. By default, no special formatting is
- applied.
-
- ---------- Footnotes ----------
-
- (1) By default this works only for LaTeX, HTML, and Texinfo.
-Configure the variable ‘orgtbl-radio-table-templates’ to install
-templates for other export formats.
-
- (2) If the ‘#+TBLFM’ line contains an odd number of dollar
-characters, this may cause problems with font-lock in LaTeX mode. As
-shown in the example you can fix this by adding an extra line inside the
-‘comment’ environment that is used to balance the dollar expressions.
-If you are using AUCTeX with the font-latex library, a much better
-solution is to add the ‘comment’ environment to the variable
-‘LaTeX-verbatim-environments’.
-
-
-File: org, Node: Translator functions, Next: Radio lists, Prev: A LaTeX example, Up: Tables in arbitrary syntax
-
-A.6.3 Translator functions
---------------------------
-
-Orgtbl mode has built-in translator functions: ‘orgtbl-to-csv’
-(comma-separated values), ‘orgtbl-to-tsv’ (TAB-separated values),
-‘orgtbl-to-latex’, ‘orgtbl-to-html’, ‘orgtbl-to-texinfo’,
-‘orgtbl-to-unicode’ and ‘orgtbl-to-orgtbl’. They use the generic
-translator, ‘orgtbl-to-generic’, which delegates translations to various
-export back-ends.
-
- Properties passed to the function through the ‘ORGTBL SEND’ line take
-precedence over properties defined inside the function. For example,
-this overrides the default LaTeX line endings, ‘\\’, with ‘\\[2mm]’:
-
- #+ORGTBL: SEND test orgtbl-to-latex :lend " \\\\[2mm]"
-
- For a new language translator, define a converter function. It can
-be a generic function, such as shown in this example. It marks a
-beginning and ending of a table with ‘!BTBL!’ and ‘!ETBL!’; a beginning
-and ending of lines with ‘!BL!’ and ‘!EL!’; and uses a TAB for a field
-separator:
-
- (defun orgtbl-to-language (table params)
- "Convert the orgtbl-mode TABLE to language."
- (orgtbl-to-generic
- table
- (org-combine-plists
- '(:tstart "!BTBL!" :tend "!ETBL!" :lstart "!BL!" :lend "!EL!" :sep "\t")
- params)))
-
-The documentation for the ‘orgtbl-to-generic’ function shows a complete
-list of parameters, each of which can be passed through to
-‘orgtbl-to-latex’, ‘orgtbl-to-texinfo’, and any other function using
-that generic function.
-
- For complicated translations the generic translator function could be
-replaced by a custom translator function. Such a custom function must
-take two arguments and return a single string containing the formatted
-table. The first argument is the table whose lines are a list of fields
-or the symbol ‘hline’. The second argument is the property list
-consisting of parameters specified in the ‘#+ORGTBL: SEND’ line. Please
-share your translator functions by posting them to the Org users mailing
-list, <emacs-orgmode@gnu.org>.
-
-
-File: org, Node: Radio lists, Prev: Translator functions, Up: Tables in arbitrary syntax
-
-A.6.4 Radio lists
------------------
-
-Call the ‘org-list-insert-radio-list’ function to insert a radio list
-template in HTML, LaTeX, and Texinfo mode documents. Sending and
-receiving radio lists works is the same as for radio tables (*note Radio
-tables::) except for these differences:
-
- − Orgstruct mode must be active.
- − Use ‘ORGLST’ keyword instead of ‘ORGTBL’.
- − ‘C-c C-c’ works only on the first list item.
-
- Built-in translators functions are: ‘org-list-to-latex’,
-‘org-list-to-html’ and ‘org-list-to-texinfo’. They use the
-‘org-list-to-generic’ translator function. See its documentation for
-parameters for accurate customizations of lists. Here is a LaTeX
-example:
-
- % BEGIN RECEIVE ORGLST to-buy
- % END RECEIVE ORGLST to-buy
- \begin{comment}
- #+ORGLST: SEND to-buy org-list-to-latex
- - a new house
- - a new computer
- + a new keyboard
- + a new mouse
- - a new life
- \end{comment}
-
- ‘C-c C-c’ on ‘a new house’ inserts the translated LaTeX list
-in-between the BEGIN and END marker lines.
-
-
-File: org, Node: Dynamic blocks, Next: Special agenda views, Prev: Tables in arbitrary syntax, Up: Hacking
-
-A.7 Dynamic blocks
-==================
-
-Org supports _dynamic blocks_ in Org documents. They are inserted with
-begin and end markers like any other ‘src’ code block, but the contents
-are updated automatically by a user function. For example, ‘C-c C-x
-C-r’ inserts a dynamic table that updates the work time (*note Clocking
-work time::).
-
- Dynamic blocks can have names and function parameters. The syntax is
-similar to ‘src’ code block specifications:
-
- #+BEGIN: myblock :parameter1 value1 :parameter2 value2 ...
-
- #+END:
-
- These command update dynamic blocks:
-
-‘C-c C-x C-u (org-dblock-update)’
- Update dynamic block at point.
-‘C-u C-c C-x C-u’
- Update all dynamic blocks in the current file.
-
- Before updating a dynamic block, Org removes content between the
-BEGIN and END markers. Org then reads the parameters on the BEGIN line
-for passing to the writer function. If the function expects to access
-the removed content, then Org expects an extra parameter, ‘:content’, on
-the BEGIN line.
-
- To syntax for calling a writer function with a named block, ‘myblock’
-is: ‘org-dblock-write:myblock’. Parameters come from the BEGIN line.
-
- The following is an example of a dynamic block and a block writer
-function that updates the time when the function was last run:
-
- #+BEGIN: block-update-time :format "on %m/%d/%Y at %H:%M"
-
- #+END:
-
-The dynamic block’s writer function:
-
- (defun org-dblock-write:block-update-time (params)
- (let ((fmt (or (plist-get params :format) "%d. %m. %Y")))
- (insert "Last block update at: "
- (format-time-string fmt))))
-
- To keep dynamic blocks up-to-date in an Org file, use the function,
-‘org-update-all-dblocks’ in hook, such as ‘before-save-hook’. The
-‘org-update-all-dblocks’ function does not run if the file is not in Org
-mode.
-
- Dynamic blocks, like any other block, can be narrowed with
-‘org-narrow-to-block’.
-
-
-File: org, Node: Special agenda views, Next: Speeding up your agendas, Prev: Dynamic blocks, Up: Hacking
-
-A.8 Special agenda views
-========================
-
-Org provides a special hook to further limit items in agenda views:
-‘agenda’, ‘agenda*’(1), ‘todo’, ‘alltodo’, ‘tags’, ‘tags-todo’,
-‘tags-tree’. Specify a custom function that tests inclusion of every
-matched item in the view. This function can also skip as much as is
-needed.
-
- For a global condition applicable to agenda views, use the
-‘org-agenda-skip-function-global’ variable. Org uses a global condition
-with ‘org-agenda-skip-function’ for custom searching.
-
- This example defines a function for a custom view showing TODO items
-with WAITING status. Manually this is a multi step search process, but
-with a custom view, this can be automated as follows:
-
- The custom function searches the subtree for the WAITING tag and
-returns ‘nil’ on match. Otherwise it gives the location from where the
-search continues.
-
- (defun my-skip-unless-waiting ()
- "Skip trees that are not waiting"
- (let ((subtree-end (save-excursion (org-end-of-subtree t))))
- (if (re-search-forward ":waiting:" subtree-end t)
- nil ; tag found, do not skip
- subtree-end))) ; tag not found, continue after end of subtree
-
- To use this custom function in a custom agenda command:
-
- (org-add-agenda-custom-command
- '("b" todo "PROJECT"
- ((org-agenda-skip-function 'my-skip-unless-waiting)
- (org-agenda-overriding-header "Projects waiting for something: "))))
-
- Note that this also binds ‘org-agenda-overriding-header’ to a more
-meaningful string suitable for the agenda view.
-
- Search for entries with a limit set on levels for the custom search.
-This is a general approach to creating custom searches in Org. To
-include all levels, use ‘LEVEL>0’(2). Then to selectively pick the
-matched entries, use ‘org-agenda-skip-function’, which also accepts Lisp
-forms, such as ‘org-agenda-skip-entry-if’ and
-‘org-agenda-skip-subtree-if’. For example:
-
-‘(org-agenda-skip-entry-if 'scheduled)’
- Skip current entry if it has been scheduled.
-‘(org-agenda-skip-entry-if 'notscheduled)’
- Skip current entry if it has not been scheduled.
-‘(org-agenda-skip-entry-if 'deadline)’
- Skip current entry if it has a deadline.
-‘(org-agenda-skip-entry-if 'scheduled 'deadline)’
- Skip current entry if it has a deadline, or if it is scheduled.
-‘(org-agenda-skip-entry-if 'todo '("TODO" "WAITING"))’
- Skip current entry if the TODO keyword is TODO or WAITING.
-‘(org-agenda-skip-entry-if 'todo 'done)’
- Skip current entry if the TODO keyword marks a DONE state.
-‘(org-agenda-skip-entry-if 'timestamp)’
- Skip current entry if it has any timestamp, may also be deadline or
- scheduled.
-‘(org-agenda-skip-entry-if 'regexp "regular expression")’
- Skip current entry if the regular expression matches in the entry.
-‘(org-agenda-skip-entry-if 'notregexp "regular expression")’
- Skip current entry unless the regular expression matches.
-‘(org-agenda-skip-subtree-if 'regexp "regular expression")’
- Same as above, but check and skip the entire subtree.
-
- The following is an example of a search for ‘WAITING’ without the
-special function:
-
- (org-add-agenda-custom-command
- '("b" todo "PROJECT"
- ((org-agenda-skip-function '(org-agenda-skip-subtree-if
- 'regexp ":waiting:"))
- (org-agenda-overriding-header "Projects waiting for something: "))))
-
- ---------- Footnotes ----------
-
- (1) The ‘agenda*’ view is the same as ‘agenda’ except that it only
-considers _appointments_, i.e., scheduled and deadline items that have a
-time specification ‘[h]h:mm’ in their time-stamps.
-
- (2) Note that, for ‘org-odd-levels-only’, a level number corresponds
-to order in the hierarchy, not to the number of stars.
-
-
-File: org, Node: Speeding up your agendas, Next: Extracting agenda information, Prev: Special agenda views, Up: Hacking
-
-A.9 Speeding up your agendas
-============================
-
-Some agenda commands slow down when the Org files grow in size or
-number. Here are tips to speed up:
-
- 1. Reduce the number of Org agenda files to avoid slowdowns due to
- hard drive accesses.
- 2. Reduce the number of ‘DONE’ and archived headlines so agenda
- operations that skip over these can finish faster.
- 3. Do not dim blocked tasks:
- (setq org-agenda-dim-blocked-tasks nil)
- 4. Stop preparing agenda buffers on startup:
- (setq org-agenda-inhibit-startup nil)
- 5. Disable tag inheritance for agendas:
- (setq org-agenda-use-tag-inheritance nil)
-
- These options can be applied to selected agenda views. For more
-details about generation of agenda views, see the docstrings for the
-relevant variables, and this dedicated Worg page
-(https://orgmode.org/worg/agenda-optimization.html) for agenda
-optimization.
-
-
-File: org, Node: Extracting agenda information, Next: Using the property API, Prev: Speeding up your agendas, Up: Hacking
-
-A.10 Extracting agenda information
-==================================
-
-Org provides commands to access agendas through Emacs batch mode.
-Through this command-line interface, agendas are automated for further
-processing or printing.
-
- ‘org-batch-agenda’ creates an agenda view in ASCII and outputs to
-STDOUT. This command takes one string parameter. When string length=1,
-Org uses it as a key to ‘org-agenda-custom-commands’. These are the
-same ones available through ‘C-c a’.
-
- This example command line directly prints the TODO list to the
-printer:
-
- emacs -batch -l ~/.emacs -eval '(org-batch-agenda "t")' | lpr
-
- When the string parameter length is two or more characters, Org
-matches it with tags/TODO strings. For example, this example command
-line prints items tagged with ‘shop’, but excludes items tagged with
-‘NewYork’:
-
- emacs -batch -l ~/.emacs \
- -eval '(org-batch-agenda "+shop-NewYork")' | lpr
-
-An example showing on-the-fly parameter modifications:
-
- emacs -batch -l ~/.emacs \
- -eval '(org-batch-agenda "a" \
- org-agenda-span (quote month) \
- org-agenda-include-diary nil \
- org-agenda-files (quote ("~/org/project.org")))' \
- | lpr
-
-which will produce an agenda for the next 30 days from just the
-‘~/org/projects.org’ file.
-
- For structured processing of agenda output, use
-‘org-batch-agenda-csv’ with the following fields:
-
- category The category of the item
- head The headline, without TODO keyword, TAGS and PRIORITY
- type The type of the agenda entry, can be
- todo selected in TODO match
- tagsmatch selected in tags match
- diary imported from diary
- deadline a deadline
- scheduled scheduled
- timestamp appointment, selected by timestamp
- closed entry was closed on date
- upcoming-deadline warning about nearing deadline
- past-scheduled forwarded scheduled item
- block entry has date block including date
- todo The TODO keyword, if any
- tags All tags including inherited ones, separated by colons
- date The relevant date, like 2007-2-14
- time The time, like 15:00-16:50
- extra String with extra planning info
- priority-l The priority letter if any was given
- priority-n The computed numerical priority
-
-If the selection of the agenda item was based on a timestamp, including
-those items with ‘DEADLINE’ and ‘SCHEDULED’ keywords, then Org includes
-date and time in the output.
-
- If the selection of the agenda item was based on a timestamp (or
-deadline/scheduled), then Org includes date and time in the output.
-
- Here is an example of a post-processing script in Perl. It takes the
-CSV output from Emacs and prints with a checkbox:
-
- #!/usr/bin/perl
-
- # define the Emacs command to run
- $cmd = "emacs -batch -l ~/.emacs -eval '(org-batch-agenda-csv \"t\")'";
-
- # run it and capture the output
- $agenda = qx{$cmd 2>/dev/null};
-
- # loop over all lines
- foreach $line (split(/\n/,$agenda)) {
- # get the individual values
- ($category,$head,$type,$todo,$tags,$date,$time,$extra,
- $priority_l,$priority_n) = split(/,/,$line);
- # process and print
- print "[ ] $head\n";
- }
-
-
-File: org, Node: Using the property API, Next: Using the mapping API, Prev: Extracting agenda information, Up: Hacking
-
-A.11 Using the property API
-===========================
-
-Functions for working with properties.
-
- -- Function: org-entry-properties &optional pom which
- Get all properties of the entry at point-or-marker POM.
- This includes the TODO keyword, the tags, time strings for
- deadline, scheduled, and clocking, and any additional properties
- defined in the entry. The return value is an alist. Keys may
- occur multiple times if the property key was used several times.
- POM may also be ‘nil’, in which case the current entry is used. If
- WHICH is ‘nil’ or ‘all’, get all properties. If WHICH is ‘special’
- or ‘standard’, only get that subclass.
-
- -- Function: org-entry-get pom property &optional inherit
- Get value of ‘PROPERTY’ for entry at point-or-marker ‘POM’. By
- default, this only looks at properties defined locally in the
- entry. If ‘INHERIT’ is non-‘nil’ and the entry does not have the
- property, then also check higher levels of the hierarchy. If
- ‘INHERIT’ is the symbol ‘selective’, use inheritance if and only if
- the setting of ‘org-use-property-inheritance’ selects ‘PROPERTY’
- for inheritance.
-
- -- Function: org-entry-delete pom property
- Delete the property ‘PROPERTY’ from entry at point-or-marker POM.
-
- -- Function: org-entry-put pom property value
- Set ‘PROPERTY’ to ‘VALUE’ for entry at point-or-marker POM.
-
- -- Function: org-buffer-property-keys &optional include-specials
- Get all property keys in the current buffer.
-
- -- Function: org-insert-property-drawer
- Insert a property drawer for the current entry.
-
- -- Function: org-entry-put-multivalued-property pom property &rest
- values
- Set ‘PROPERTY’ at point-or-marker ‘POM’ to ‘VALUES’. ‘VALUES’
- should be a list of strings. They will be concatenated, with
- spaces as separators.
-
- -- Function: org-entry-get-multivalued-property pom property
- Treat the value of the property ‘PROPERTY’ as a
- whitespace-separated list of values and return the values as a list
- of strings.
-
- -- Function: org-entry-add-to-multivalued-property pom property value
- Treat the value of the property ‘PROPERTY’ as a
- whitespace-separated list of values and make sure that ‘VALUE’ is
- in this list.
-
- -- Function: org-entry-remove-from-multivalued-property pom property
- value
- Treat the value of the property ‘PROPERTY’ as a
- whitespace-separated list of values and make sure that ‘VALUE’ is
- _not_ in this list.
-
- -- Function: org-entry-member-in-multivalued-property pom property
- value
- Treat the value of the property ‘PROPERTY’ as a
- whitespace-separated list of values and check if ‘VALUE’ is in this
- list.
-
- -- User Option: org-property-allowed-value-functions
- Hook for functions supplying allowed values for a specific
- property. The functions must take a single argument, the name of
- the property, and return a flat list of allowed values. If ‘:ETC’
- is one of the values, use the values as completion help, but allow
- also other values to be entered. The functions must return ‘nil’
- if they are not responsible for this property.
-
-
-File: org, Node: Using the mapping API, Prev: Using the property API, Up: Hacking
-
-A.12 Using the mapping API
-==========================
-
-Org has sophisticated mapping capabilities for finding entries. Org
-uses this functionality internally for generating agenda views. Org
-also exposes an API for executing arbitrary functions for each selected
-entry. The API’s main entry point is:
-
- -- Function: org-map-entries func &optional match scope &rest skip
- Call ‘FUNC’ at each headline selected by ‘MATCH’ in ‘SCOPE’.
-
- ‘FUNC’ is a function or a Lisp form. With the cursor positioned at
- the beginning of the headline, call the function without arguments.
- Org returns an alist of return values of calls to the function.
-
- To avoid preserving point, Org wraps the call to ‘FUNC’ in
- save-excursion form. After evaluation, Org moves the cursor to the
- end of the line that was just processed. Search continues from
- that point forward. This may not always work as expected under
- some conditions, such as if the current sub-tree was removed by a
- previous archiving operation. In such rare circumstances, Org
- skips the next entry entirely when it should not. To stop Org from
- such skips, make ‘FUNC’ set the variable ‘org-map-continue-from’ to
- a specific buffer position.
-
- ‘MATCH’ is a tags/property/TODO match. Org iterates only matched
- headlines. Org iterates over all headlines when ‘MATCH’ is ‘nil’
- or ‘t’.
-
- ‘SCOPE’ determines the scope of this command. It can be any of:
-
- nil the current buffer, respecting the restriction if any
- tree the subtree started with the entry at point
- region The entries within the active region, if any
- file the current buffer, without restriction
- file-with-archives
- the current buffer, and any archives associated with it
- agenda all agenda files
- agenda-with-archives
- all agenda files with any archive files associated with them
- (file1 file2 ...)
- if this is a list, all files in the list will be scanned
- The remaining args are treated as settings for the scanner’s
- skipping facilities. Valid args are:
-
- archive skip trees with the archive tag
- comment skip trees with the COMMENT keyword
- function or Lisp form
- will be used as value for ‘org-agenda-skip-function’,
- so whenever the function returns t, FUNC
- will not be called for that entry and search will
- continue from the point where the function leaves it
-
- The mapping routine can call any arbitrary function, even functions
-that change meta data or query the property API (*note Using the
-property API::). Here are some handy functions:
-
- -- Function: org-todo &optional arg
- Change the TODO state of the entry. See the docstring of the
- functions for the many possible values for the argument ‘ARG’.
-
- -- Function: org-priority &optional action
- Change the priority of the entry. See the docstring of this
- function for the possible values for ‘ACTION’.
-
- -- Function: org-toggle-tag tag &optional onoff
- Toggle the tag ‘TAG’ in the current entry. Setting ‘ONOFF’ to
- either ‘on’ or ‘off’ will not toggle tag, but ensure that it is
- either on or off.
-
- -- Function: org-promote
- Promote the current entry.
-
- -- Function: org-demote
- Demote the current entry.
-
- This example turns all entries tagged with ‘TOMORROW’ into TODO
-entries with keyword ‘UPCOMING’. Org ignores entries in comment trees
-and archive trees.
-
- (org-map-entries
- '(org-todo "UPCOMING")
- "+TOMORROW" 'file 'archive 'comment)
-
- The following example counts the number of entries with TODO keyword
-‘WAITING’, in all agenda files.
-
- (length (org-map-entries t "/+WAITING" 'agenda))
-
-
-File: org, Node: MobileOrg, Next: History and acknowledgments, Prev: Hacking, Up: Top
-
-Appendix B MobileOrg
-********************
-
-MobileOrg is a companion mobile app that runs on iOS and Android
-devices. MobileOrg enables offline-views and capture support for an Org
-mode system that is rooted on a “real” computer. MobileOrg can record
-changes to existing entries.
-
- The iOS implementation (https://github.com/MobileOrg/) for the
-_iPhone/iPod Touch/iPad_ series of devices, was started by Richard
-Moreland and is now in the hands Sean Escriva. Android users should
-check out MobileOrg Android
-(http://wiki.github.com/matburt/mobileorg-android/) by Matt Jones.
-Though the two implementations are not identical, they offer similar
-features.
-
- This appendix describes Org’s support for agenda view formats
-compatible with MobileOrg. It also describes synchronizing changes,
-such as to notes, between MobileOrg and the computer.
-
- To change tags and TODO states in MobileOrg, first customize the
-variables ‘org-todo-keywords’ and ‘org-tag-alist’. These should cover
-all the important tags and TODO keywords, even if Org files use only
-some of them. Though MobileOrg has in-buffer settings, it understands
-TODO states _sets_ (*note Per-file keywords::) and _mutually exclusive_
-tags (*note Setting tags::) only for those set in these variables.
-
-* Menu:
-
-* Setting up the staging area:: For the mobile device
-* Pushing to MobileOrg:: Uploading Org files and agendas
-* Pulling from MobileOrg:: Integrating captured and flagged items
-
-
-File: org, Node: Setting up the staging area, Next: Pushing to MobileOrg, Up: MobileOrg
-
-B.1 Setting up the staging area
-===============================
-
-MobileOrg needs access to a file directory on a server to interact with
-Emacs. With a public server, consider encrypting the files. MobileOrg
-version 1.5 supports encryption for the iPhone. Org also requires
-‘openssl’ installed on the local computer. To turn on encryption, set
-the same password in MobileOrg and in Emacs. Set the password in the
-variable ‘org-mobile-use-encryption’(1). Note that even after MobileOrg
-encrypts the file contents, the file names will remain visible on the
-file systems of the local computer, the server, and the mobile device.
-
- For a server to host files, consider options like Dropbox.com
-(http://dropbox.com) account(2). On first connection, MobileOrg creates
-a directory ‘MobileOrg/’ on Dropbox. Pass its location to Emacs through
-an init file variable as follows:
-
- (setq org-mobile-directory "~/Dropbox/MobileOrg")
-
- Org copies files to the above directory for MobileOrg. Org also uses
-the same directory for sharing notes between Org and MobileOrg.
-
- ---------- Footnotes ----------
-
- (1) If Emacs is configured for safe storing of passwords, then
-configure the variable, ‘org-mobile-encryption-password’; please read
-the docstring of that variable.
-
- (2) An alternative is to use webdav server. MobileOrg documentation
-has details of webdav server configuration. Additional help is at FAQ
-entry (https://orgmode.org/worg/org-faq.html#mobileorg_webdav).
-
-
-File: org, Node: Pushing to MobileOrg, Next: Pulling from MobileOrg, Prev: Setting up the staging area, Up: MobileOrg
-
-B.2 Pushing to MobileOrg
-========================
-
-Org pushes files listed in ‘org-mobile-files’ to ‘org-mobile-directory’.
-Files include agenda files (as listed in ‘org-agenda-files’). Customize
-‘org-mobile-files’ to add other files. File names will be staged with
-paths relative to ‘org-directory’, so all files should be inside this
-directory(1).
-
- Push creates a special Org file ‘agendas.org’ with custom agenda
-views defined by the user(2).
-
- Org writes the file ‘index.org’, containing links to other files.
-MobileOrg reads this file first from the server to determine what other
-files to download for agendas. For faster downloads, MobileOrg will
-read only those files whose checksums(3) have changed.
-
- ---------- Footnotes ----------
-
- (1) Symbolic links in ‘org-directory’ should have the same name as
-their targets.
-
- (2) While creating the agendas, Org mode will force ID properties on
-all referenced entries, so that these entries can be uniquely identified
-if MobileOrg flags them for further action. To avoid setting properties
-configure the variable ‘org-mobile-force-id-on-agenda-items’ to ‘nil’.
-Org mode will then rely on outline paths, assuming they are unique.
-
- (3) Checksums are stored automatically in the file ‘checksums.dat’.
-
-
-File: org, Node: Pulling from MobileOrg, Prev: Pushing to MobileOrg, Up: MobileOrg
-
-B.3 Pulling from MobileOrg
-==========================
-
-When MobileOrg synchronizes with the server, it pulls the Org files for
-viewing. It then appends to the file ‘mobileorg.org’ on the server the
-captured entries, pointers to flagged and changed entries. Org
-integrates its data in an inbox file format.
-
- 1. Org moves all entries found in ‘mobileorg.org’(1) and appends them
- to the file pointed to by the variable ‘org-mobile-inbox-for-pull’.
- Each captured entry and each editing event is a top-level entry in
- the inbox file.
- 2. After moving the entries, Org attempts changes to MobileOrg. Some
- changes are applied directly and without user interaction.
- Examples include changes to tags, TODO state, headline and body
- text. Entries for further action are tagged as ‘:FLAGGED:’. Org
- marks entries with problems with an error message in the inbox.
- They have to be resolved manually.
- 3. Org generates an agenda view for flagged entries for user
- intervention to clean up. For notes stored in flagged entries,
- MobileOrg displays them in the echo area when the cursor is on the
- corresponding agenda item.
-
- ‘?’
- Pressing ‘?’ displays the entire flagged note in another
- window. Org also pushes it to the kill ring. To store
- flagged note as a normal note, use ‘? z C-y C-c C-c’.
- Pressing ‘?’ twice does these things: first it removes the
- ‘:FLAGGED:’ tag; second, it removes the flagged note from the
- property drawer; third, it signals that manual editing of the
- flagged entry is now finished.
-
- ‘C-c a ?’ returns to the agenda view to finish processing flagged
-entries. Note that these entries may not be the most recent since
-MobileOrg searches files that were last pulled. To get an updated
-agenda view with changes since the last pull, pull again.
-
- ---------- Footnotes ----------
-
- (1) ‘mobileorg.org’ will be empty after this operation.
-
-
-File: org, Node: History and acknowledgments, Next: GNU Free Documentation License, Prev: MobileOrg, Up: Top
-
-Appendix C History and acknowledgments
-**************************************
-
-C.1 From Carsten
-================
-
-Org was born in 2003, out of frustration over the user interface of the
-Emacs Outline mode. I was trying to organize my notes and projects, and
-using Emacs seemed to be the natural way to go. However, having to
-remember eleven different commands with two or three keys per command,
-only to hide and show parts of the outline tree, that seemed entirely
-unacceptable. Also, when using outlines to take notes, I constantly
-wanted to restructure the tree, organizing it paralleling my thoughts
-and plans. _Visibility cycling_ and _structure editing_ were originally
-implemented in the package ‘outline-magic.el’, but quickly moved to the
-more general ‘org.el’. As this environment became comfortable for
-project planning, the next step was adding _TODO entries_, basic
-_timestamps_, and _table support_. These areas highlighted the two main
-goals that Org still has today: to be a new, outline-based, plain text
-mode with innovative and intuitive editing features, and to incorporate
-project planning functionality directly into a notes file.
-
- Since the first release, literally thousands of emails to me or to
-<emacs-orgmode@gnu.org> have provided a constant stream of bug reports,
-feedback, new ideas, and sometimes patches and add-on code. Many thanks
-to everyone who has helped to improve this package. I am trying to keep
-here a list of the people who had significant influence in shaping one
-or more aspects of Org. The list may not be complete, if I have
-forgotten someone, please accept my apologies and let me know.
-
- Before I get to this list, a few special mentions are in order:
-
-Bastien Guerry
- Bastien has written a large number of extensions to Org (most of
- them integrated into the core by now), including the LaTeX exporter
- and the plain list parser. His support during the early days was
- central to the success of this project. Bastien also invented
- Worg, helped establishing the Web presence of Org, and sponsored
- hosting costs for the orgmode.org website. Bastien stepped in as
- maintainer of Org between 2011 and 2013, at a time when I
- desperately needed a break.
-Eric Schulte and Dan Davison
- Eric and Dan are jointly responsible for the Org-babel system,
- which turns Org into a multi-language environment for evaluating
- code and doing literate programming and reproducible research.
- This has become one of Org’s killer features that define what Org
- is today.
-John Wiegley
- John has contributed a number of great ideas and patches directly
- to Org, including the attachment system (‘org-attach.el’),
- integration with Apple Mail (‘org-mac-message.el’), hierarchical
- dependencies of TODO items, habit tracking (‘org-habits.el’), and
- encryption (‘org-crypt.el’). Also, the capture system is really an
- extended copy of his great ‘remember.el’.
-Sebastian Rose
- Without Sebastian, the HTML/XHTML publishing of Org would be the
- pitiful work of an ignorant amateur. Sebastian has pushed this
- part of Org onto a much higher level. He also wrote ‘org-info.js’,
- a Java script for displaying web pages derived from Org using an
- Info-like or a folding interface with single-key navigation.
-
-See below for the full list of contributions! Again, please let me know
-what I am missing here!
-
-C.2 From Bastien
-================
-
-I (Bastien) have been maintaining Org between 2011 and 2013. This
-appendix would not be complete without adding a few more acknowledgments
-and thanks.
-
- I am first grateful to Carsten for his trust while handing me over
-the maintainership of Org. His unremitting support is what really
-helped me getting more confident over time, with both the community and
-the code.
-
- When I took over maintainership, I knew I would have to make Org more
-collaborative than ever, as I would have to rely on people that are more
-knowledgeable than I am on many parts of the code. Here is a list of
-the persons I could rely on, they should really be considered
-co-maintainers, either of the code or the community:
-
-Eric Schulte
- Eric is maintaining the Babel parts of Org. His reactivity here
- kept me away from worrying about possible bugs here and let me
- focus on other parts.
-
-Nicolas Goaziou
- Nicolas is maintaining the consistency of the deepest parts of Org.
- His work on ‘org-element.el’ and ‘ox.el’ has been outstanding, and
- it opened the doors for many new ideas and features. He rewrote
- many of the old exporters to use the new export engine, and helped
- with documenting this major change. More importantly (if that’s
- possible), he has been more than reliable during all the work done
- for Org 8.0, and always very reactive on the mailing list.
-
-Achim Gratz
- Achim rewrote the building process of Org, turning some _ad hoc_
- tools into a flexible and conceptually clean process. He patiently
- coped with the many hiccups that such a change can create for
- users.
-
-Nick Dokos
- The Org mode mailing list would not be such a nice place without
- Nick, who patiently helped users so many times. It is impossible
- to overestimate such a great help, and the list would not be so
- active without him.
-
- I received support from so many users that it is clearly impossible
-to be fair when shortlisting a few of them, but Org’s history would not
-be complete if the ones above were not mentioned in this manual.
-
-C.3 List of contributions
-=========================
-
- • Russel Adams came up with the idea for drawers.
- • Suvayu Ali has steadily helped on the mailing list, providing
- useful feedback on many features and several patches.
- • Luis Anaya wrote ‘ox-man.el’.
- • Thomas Baumann wrote ‘org-bbdb.el’ and ‘org-mhe.el’.
- • Michael Brand helped by reporting many bugs and testing many
- features. He also implemented the distinction between empty fields
- and 0-value fields in Org’s spreadsheets.
- • Christophe Bataillon created the great unicorn logo that we use on
- the Org mode website.
- • Alex Bochannek provided a patch for rounding timestamps.
- • Jan Böcker wrote ‘org-docview.el’.
- • Brad Bozarth showed how to pull RSS feed data into Org mode files.
- • Tom Breton wrote ‘org-choose.el’.
- • Charles Cave’s suggestion sparked the implementation of templates
- for Remember, which are now templates for capture.
- • Pavel Chalmoviansky influenced the agenda treatment of items with
- specified time.
- • Gregory Chernov patched support for Lisp forms into table
- calculations and improved XEmacs compatibility, in particular by
- porting ‘nouline.el’ to XEmacs.
- • Sacha Chua suggested copying some linking code from Planner, and
- helped make Org popular through her blog.
- • Toby S. Cubitt contributed to the code for clock formats.
- • Baoqiu Cui contributed the first DocBook exporter. In Org 8.0, we
- go a different route: you can now export to Texinfo and export the
- ‘.texi’ file to DocBook using ‘makeinfo’.
- • Eddward DeVilla proposed and tested checkbox statistics. He also
- came up with the idea of properties, and that there should be an
- API for them.
- • Nick Dokos tracked down several nasty bugs.
- • Kees Dullemond used to edit projects lists directly in HTML and so
- inspired some of the early development, including HTML export. He
- also asked for a way to narrow wide table columns.
- • Jason Dunsmore has been maintaining the Org-Mode server at
- Rackspace for several years now. He also sponsored the hosting
- costs until Rackspace started to host us for free.
- • Thomas S. Dye contributed documentation on Worg and helped
- integrating the Org-Babel documentation into the manual.
- • Christian Egli converted the documentation into Texinfo format,
- inspired the agenda, patched CSS formatting into the HTML exporter,
- and wrote ‘org-taskjuggler.el’, which has been rewritten by Nicolas
- Goaziou as ‘ox-taskjuggler.el’ for Org 8.0.
- • David Emery provided a patch for custom CSS support in exported
- HTML agendas.
- • Sean Escriva took over MobileOrg development on the iPhone
- platform.
- • Nic Ferrier contributed mailcap and XOXO support.
- • Miguel A. Figueroa-Villanueva implemented hierarchical checkboxes.
- • John Foerch figured out how to make incremental search show context
- around a match in a hidden outline tree.
- • Raimar Finken wrote ‘org-git-line.el’.
- • Mikael Fornius works as a mailing list moderator.
- • Austin Frank works as a mailing list moderator.
- • Eric Fraga drove the development of BEAMER export with ideas and
- testing.
- • Barry Gidden did proofreading the manual in preparation for the
- book publication through Network Theory Ltd.
- • Niels Giesen had the idea to automatically archive DONE trees.
- • Nicolas Goaziou rewrote much of the plain list code. He also wrote
- ‘org-element.el’ and ‘org-export.el’, which was a huge step forward
- in implementing a clean framework for Org exporters.
- • Kai Grossjohann pointed out key-binding conflicts with other
- packages.
- • Brian Gough of Network Theory Ltd publishes the Org mode manual as
- a book.
- • Bernt Hansen has driven much of the support for auto-repeating
- tasks, task state change logging, and the clocktable. His clear
- explanations have been critical when we started to adopt the Git
- version control system.
- • Manuel Hermenegildo has contributed various ideas, small fixes and
- patches.
- • Phil Jackson wrote ‘org-irc.el’.
- • Scott Jaderholm proposed footnotes, control over whitespace between
- folded entries, and column view for properties.
- • Matt Jones wrote MobileOrg Android.
- • Tokuya Kameshima wrote ‘org-wl.el’ and ‘org-mew.el’.
- • Jonathan Leech-Pepin wrote ‘ox-texinfo.el’.
- • Shidai Liu ("Leo") asked for embedded LaTeX and tested it. He also
- provided frequent feedback and some patches.
- • Matt Lundin has proposed last-row references for table formulas and
- named invisible anchors. He has also worked a lot on the FAQ.
- • David Maus wrote ‘org-atom.el’, maintains the issues file for Org,
- and is a prolific contributor on the mailing list with competent
- replies, small fixes and patches.
- • Jason F. McBrayer suggested agenda export to CSV format.
- • Max Mikhanosha came up with the idea of refiling and sticky
- agendas.
- • Dmitri Minaev sent a patch to set priority limits on a per-file
- basis.
- • Stefan Monnier provided a patch to keep the Emacs-Lisp compiler
- happy.
- • Richard Moreland wrote MobileOrg for the iPhone.
- • Rick Moynihan proposed allowing multiple TODO sequences in a file
- and being able to quickly restrict the agenda to a subtree.
- • Todd Neal provided patches for links to Info files and Elisp forms.
- • Greg Newman refreshed the unicorn logo into its current form.
- • Tim O’Callaghan suggested in-file links, search options for general
- file links, and TAGS.
- • Osamu Okano wrote ‘orgcard2ref.pl’, a Perl program to create a text
- version of the reference card.
- • Takeshi Okano translated the manual and David O’Toole’s tutorial
- into Japanese.
- • Oliver Oppitz suggested multi-state TODO items.
- • Scott Otterson sparked the introduction of descriptive text for
- links, among other things.
- • Pete Phillips helped during the development of the TAGS feature,
- and provided frequent feedback.
- • Francesco Pizzolante provided patches that helped speeding up the
- agenda generation.
- • Martin Pohlack provided the code snippet to bundle character
- insertion into bundles of 20 for undo.
- • Rackspace.com is hosting our website for free. Thank you
- Rackspace!
- • T.V. Raman reported bugs and suggested improvements.
- • Matthias Rempe (Oelde) provided ideas, Windows support, and quality
- control.
- • Paul Rivier provided the basic implementation of named footnotes.
- He also acted as mailing list moderator for some time.
- • Kevin Rogers contributed code to access VM files on remote hosts.
- • Frank Ruell solved the mystery of the ‘keymapp nil’ bug, a conflict
- with ‘allout.el’.
- • Jason Riedy generalized the send-receive mechanism for Orgtbl
- tables with extensive patches.
- • Philip Rooke created the Org reference card, provided lots of
- feedback, developed and applied standards to the Org documentation.
- • Christian Schlauer proposed angular brackets around links, among
- other things.
- • Christopher Schmidt reworked ‘orgstruct-mode’ so that users can
- enjoy folding in non-org buffers by using Org headlines in
- comments.
- • Paul Sexton wrote ‘org-ctags.el’.
- • Linking to VM/BBDB/Gnus was first inspired by Tom Shannon’s
- ‘organizer-mode.el’.
- • Ilya Shlyakhter proposed the Archive Sibling, line numbering in
- literal examples, and remote highlighting for referenced code
- lines.
- • Stathis Sideris wrote the ‘ditaa.jar’ ASCII to PNG converter that
- is now packaged into Org’s ‘contrib’ directory.
- • Daniel Sinder came up with the idea of internal archiving by
- locking subtrees.
- • Dale Smith proposed link abbreviations.
- • James TD Smith has contributed a large number of patches for useful
- tweaks and features.
- • Adam Spiers asked for global linking commands, inspired the link
- extension system, added support for mairix, and proposed the
- mapping API.
- • Ulf Stegemann created the table to translate special symbols to
- HTML, LaTeX, UTF-8, Latin-1 and ASCII.
- • Andy Stewart contributed code to ‘org-w3m.el’, to copy HTML content
- with links transformation to Org syntax.
- • David O’Toole wrote ‘org-publish.el’ and drafted the manual chapter
- about publishing.
- • Jambunathan K contributed the ODT exporter and rewrote the HTML
- exporter.
- • Sebastien Vauban reported many issues with LaTeX and BEAMER export
- and enabled source code highlighting in Gnus.
- • Stefan Vollmar organized a video-recorded talk at the
- Max-Planck-Institute for Neurology. He also inspired the creation
- of a concept index for HTML export.
- • Jürgen Vollmer contributed code generating the table of contents in
- HTML output.
- • Samuel Wales has provided important feedback and bug reports.
- • Chris Wallace provided a patch implementing the ‘QUOTE’ keyword.
- • David Wainberg suggested archiving, and improvements to the linking
- system.
- • Carsten Wimmer suggested some changes and helped fix a bug in
- linking to Gnus.
- • Roland Winkler requested additional key bindings to make Org work
- on a tty.
- • Piotr Zielinski wrote ‘org-mouse.el’, proposed agenda blocks and
- contributed various ideas and code snippets.
- • Marco Wahl wrote ‘org-eww.el’.
-
-
-File: org, Node: GNU Free Documentation License, Next: Main Index, Prev: History and acknowledgments, Up: Top
-
-Appendix D GNU Free Documentation License
-*****************************************
-
- Version 1.3, 3 November 2008
-
- Copyright © 2000, 2001, 2002, 2007, 2008, 2013, 2014, 2018 Free Software Foundation, Inc.
- <http://fsf.org/>
-
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- 0. PREAMBLE
-
- The purpose of this License is to make a manual, textbook, or other
- functional and useful document “free” in the sense of freedom: to
- assure everyone the effective freedom to copy and redistribute it,
- with or without modifying it, either commercially or
- noncommercially. Secondarily, this License preserves for the
- author and publisher a way to get credit for their work, while not
- being considered responsible for modifications made by others.
-
- This License is a kind of “copyleft”, which means that derivative
- works of the document must themselves be free in the same sense.
- It complements the GNU General Public License, which is a copyleft
- license designed for free software.
-
- We have designed this License in order to use it for manuals for
- free software, because free software needs free documentation: a
- free program should come with manuals providing the same freedoms
- that the software does. But this License is not limited to
- software manuals; it can be used for any textual work, regardless
- of subject matter or whether it is published as a printed book. We
- recommend this License principally for works whose purpose is
- instruction or reference.
-
- 1. APPLICABILITY AND DEFINITIONS
-
- This License applies to any manual or other work, in any medium,
- that contains a notice placed by the copyright holder saying it can
- be distributed under the terms of this License. Such a notice
- grants a world-wide, royalty-free license, unlimited in duration,
- to use that work under the conditions stated herein. The
- “Document”, below, refers to any such manual or work. Any member
- of the public is a licensee, and is addressed as “you”. You accept
- the license if you copy, modify or distribute the work in a way
- requiring permission under copyright law.
-
- A “Modified Version” of the Document means any work containing the
- Document or a portion of it, either copied verbatim, or with
- modifications and/or translated into another language.
-
- A “Secondary Section” is a named appendix or a front-matter section
- of the Document that deals exclusively with the relationship of the
- publishers or authors of the Document to the Document’s overall
- subject (or to related matters) and contains nothing that could
- fall directly within that overall subject. (Thus, if the Document
- is in part a textbook of mathematics, a Secondary Section may not
- explain any mathematics.) The relationship could be a matter of
- historical connection with the subject or with related matters, or
- of legal, commercial, philosophical, ethical or political position
- regarding them.
-
- The “Invariant Sections” are certain Secondary Sections whose
- titles are designated, as being those of Invariant Sections, in the
- notice that says that the Document is released under this License.
- If a section does not fit the above definition of Secondary then it
- is not allowed to be designated as Invariant. The Document may
- contain zero Invariant Sections. If the Document does not identify
- any Invariant Sections then there are none.
-
- The “Cover Texts” are certain short passages of text that are
- listed, as Front-Cover Texts or Back-Cover Texts, in the notice
- that says that the Document is released under this License. A
- Front-Cover Text may be at most 5 words, and a Back-Cover Text may
- be at most 25 words.
-
- A “Transparent” copy of the Document means a machine-readable copy,
- represented in a format whose specification is available to the
- general public, that is suitable for revising the document
- straightforwardly with generic text editors or (for images composed
- of pixels) generic paint programs or (for drawings) some widely
- available drawing editor, and that is suitable for input to text
- formatters or for automatic translation to a variety of formats
- suitable for input to text formatters. A copy made in an otherwise
- Transparent file format whose markup, or absence of markup, has
- been arranged to thwart or discourage subsequent modification by
- readers is not Transparent. An image format is not Transparent if
- used for any substantial amount of text. A copy that is not
- “Transparent” is called “Opaque”.
-
- Examples of suitable formats for Transparent copies include plain
- ASCII without markup, Texinfo input format, LaTeX input format,
- SGML or XML using a publicly available DTD, and standard-conforming
- simple HTML, PostScript or PDF designed for human modification.
- Examples of transparent image formats include PNG, XCF and JPG.
- Opaque formats include proprietary formats that can be read and
- edited only by proprietary word processors, SGML or XML for which
- the DTD and/or processing tools are not generally available, and
- the machine-generated HTML, PostScript or PDF produced by some word
- processors for output purposes only.
-
- The “Title Page” means, for a printed book, the title page itself,
- plus such following pages as are needed to hold, legibly, the
- material this License requires to appear in the title page. For
- works in formats which do not have any title page as such, “Title
- Page” means the text near the most prominent appearance of the
- work’s title, preceding the beginning of the body of the text.
-
- The “publisher” means any person or entity that distributes copies
- of the Document to the public.
-
- A section “Entitled XYZ” means a named subunit of the Document
- whose title either is precisely XYZ or contains XYZ in parentheses
- following text that translates XYZ in another language. (Here XYZ
- stands for a specific section name mentioned below, such as
- “Acknowledgements”, “Dedications”, “Endorsements”, or “History”.)
- To “Preserve the Title” of such a section when you modify the
- Document means that it remains a section “Entitled XYZ” according
- to this definition.
-
- The Document may include Warranty Disclaimers next to the notice
- which states that this License applies to the Document. These
- Warranty Disclaimers are considered to be included by reference in
- this License, but only as regards disclaiming warranties: any other
- implication that these Warranty Disclaimers may have is void and
- has no effect on the meaning of this License.
-
- 2. VERBATIM COPYING
-
- You may copy and distribute the Document in any medium, either
- commercially or noncommercially, provided that this License, the
- copyright notices, and the license notice saying this License
- applies to the Document are reproduced in all copies, and that you
- add no other conditions whatsoever to those of this License. You
- may not use technical measures to obstruct or control the reading
- or further copying of the copies you make or distribute. However,
- you may accept compensation in exchange for copies. If you
- distribute a large enough number of copies you must also follow the
- conditions in section 3.
-
- You may also lend copies, under the same conditions stated above,
- and you may publicly display copies.
-
- 3. COPYING IN QUANTITY
-
- If you publish printed copies (or copies in media that commonly
- have printed covers) of the Document, numbering more than 100, and
- the Document’s license notice requires Cover Texts, you must
- enclose the copies in covers that carry, clearly and legibly, all
- these Cover Texts: Front-Cover Texts on the front cover, and
- Back-Cover Texts on the back cover. Both covers must also clearly
- and legibly identify you as the publisher of these copies. The
- front cover must present the full title with all words of the title
- equally prominent and visible. You may add other material on the
- covers in addition. Copying with changes limited to the covers, as
- long as they preserve the title of the Document and satisfy these
- conditions, can be treated as verbatim copying in other respects.
-
- If the required texts for either cover are too voluminous to fit
- legibly, you should put the first ones listed (as many as fit
- reasonably) on the actual cover, and continue the rest onto
- adjacent pages.
-
- If you publish or distribute Opaque copies of the Document
- numbering more than 100, you must either include a machine-readable
- Transparent copy along with each Opaque copy, or state in or with
- each Opaque copy a computer-network location from which the general
- network-using public has access to download using public-standard
- network protocols a complete Transparent copy of the Document, free
- of added material. If you use the latter option, you must take
- reasonably prudent steps, when you begin distribution of Opaque
- copies in quantity, to ensure that this Transparent copy will
- remain thus accessible at the stated location until at least one
- year after the last time you distribute an Opaque copy (directly or
- through your agents or retailers) of that edition to the public.
-
- It is requested, but not required, that you contact the authors of
- the Document well before redistributing any large number of copies,
- to give them a chance to provide you with an updated version of the
- Document.
-
- 4. MODIFICATIONS
-
- You may copy and distribute a Modified Version of the Document
- under the conditions of sections 2 and 3 above, provided that you
- release the Modified Version under precisely this License, with the
- Modified Version filling the role of the Document, thus licensing
- distribution and modification of the Modified Version to whoever
- possesses a copy of it. In addition, you must do these things in
- the Modified Version:
-
- A. Use in the Title Page (and on the covers, if any) a title
- distinct from that of the Document, and from those of previous
- versions (which should, if there were any, be listed in the
- History section of the Document). You may use the same title
- as a previous version if the original publisher of that
- version gives permission.
-
- B. List on the Title Page, as authors, one or more persons or
- entities responsible for authorship of the modifications in
- the Modified Version, together with at least five of the
- principal authors of the Document (all of its principal
- authors, if it has fewer than five), unless they release you
- from this requirement.
-
- C. State on the Title page the name of the publisher of the
- Modified Version, as the publisher.
-
- D. Preserve all the copyright notices of the Document.
-
- E. Add an appropriate copyright notice for your modifications
- adjacent to the other copyright notices.
-
- F. Include, immediately after the copyright notices, a license
- notice giving the public permission to use the Modified
- Version under the terms of this License, in the form shown in
- the Addendum below.
-
- G. Preserve in that license notice the full lists of Invariant
- Sections and required Cover Texts given in the Document’s
- license notice.
-
- H. Include an unaltered copy of this License.
-
- I. Preserve the section Entitled “History”, Preserve its Title,
- and add to it an item stating at least the title, year, new
- authors, and publisher of the Modified Version as given on the
- Title Page. If there is no section Entitled “History” in the
- Document, create one stating the title, year, authors, and
- publisher of the Document as given on its Title Page, then add
- an item describing the Modified Version as stated in the
- previous sentence.
-
- J. Preserve the network location, if any, given in the Document
- for public access to a Transparent copy of the Document, and
- likewise the network locations given in the Document for
- previous versions it was based on. These may be placed in the
- “History” section. You may omit a network location for a work
- that was published at least four years before the Document
- itself, or if the original publisher of the version it refers
- to gives permission.
-
- K. For any section Entitled “Acknowledgements” or “Dedications”,
- Preserve the Title of the section, and preserve in the section
- all the substance and tone of each of the contributor
- acknowledgements and/or dedications given therein.
-
- L. Preserve all the Invariant Sections of the Document, unaltered
- in their text and in their titles. Section numbers or the
- equivalent are not considered part of the section titles.
-
- M. Delete any section Entitled “Endorsements”. Such a section
- may not be included in the Modified Version.
-
- N. Do not retitle any existing section to be Entitled
- “Endorsements” or to conflict in title with any Invariant
- Section.
-
- O. Preserve any Warranty Disclaimers.
-
- If the Modified Version includes new front-matter sections or
- appendices that qualify as Secondary Sections and contain no
- material copied from the Document, you may at your option designate
- some or all of these sections as invariant. To do this, add their
- titles to the list of Invariant Sections in the Modified Version’s
- license notice. These titles must be distinct from any other
- section titles.
-
- You may add a section Entitled “Endorsements”, provided it contains
- nothing but endorsements of your Modified Version by various
- parties—for example, statements of peer review or that the text has
- been approved by an organization as the authoritative definition of
- a standard.
-
- You may add a passage of up to five words as a Front-Cover Text,
- and a passage of up to 25 words as a Back-Cover Text, to the end of
- the list of Cover Texts in the Modified Version. Only one passage
- of Front-Cover Text and one of Back-Cover Text may be added by (or
- through arrangements made by) any one entity. If the Document
- already includes a cover text for the same cover, previously added
- by you or by arrangement made by the same entity you are acting on
- behalf of, you may not add another; but you may replace the old
- one, on explicit permission from the previous publisher that added
- the old one.
-
- The author(s) and publisher(s) of the Document do not by this
- License give permission to use their names for publicity for or to
- assert or imply endorsement of any Modified Version.
-
- 5. COMBINING DOCUMENTS
-
- You may combine the Document with other documents released under
- this License, under the terms defined in section 4 above for
- modified versions, provided that you include in the combination all
- of the Invariant Sections of all of the original documents,
- unmodified, and list them all as Invariant Sections of your
- combined work in its license notice, and that you preserve all
- their Warranty Disclaimers.
-
- The combined work need only contain one copy of this License, and
- multiple identical Invariant Sections may be replaced with a single
- copy. If there are multiple Invariant Sections with the same name
- but different contents, make the title of each such section unique
- by adding at the end of it, in parentheses, the name of the
- original author or publisher of that section if known, or else a
- unique number. Make the same adjustment to the section titles in
- the list of Invariant Sections in the license notice of the
- combined work.
-
- In the combination, you must combine any sections Entitled
- “History” in the various original documents, forming one section
- Entitled “History”; likewise combine any sections Entitled
- “Acknowledgements”, and any sections Entitled “Dedications”. You
- must delete all sections Entitled “Endorsements.”
-
- 6. COLLECTIONS OF DOCUMENTS
-
- You may make a collection consisting of the Document and other
- documents released under this License, and replace the individual
- copies of this License in the various documents with a single copy
- that is included in the collection, provided that you follow the
- rules of this License for verbatim copying of each of the documents
- in all other respects.
-
- You may extract a single document from such a collection, and
- distribute it individually under this License, provided you insert
- a copy of this License into the extracted document, and follow this
- License in all other respects regarding verbatim copying of that
- document.
-
- 7. AGGREGATION WITH INDEPENDENT WORKS
-
- A compilation of the Document or its derivatives with other
- separate and independent documents or works, in or on a volume of a
- storage or distribution medium, is called an “aggregate” if the
- copyright resulting from the compilation is not used to limit the
- legal rights of the compilation’s users beyond what the individual
- works permit. When the Document is included in an aggregate, this
- License does not apply to the other works in the aggregate which
- are not themselves derivative works of the Document.
-
- If the Cover Text requirement of section 3 is applicable to these
- copies of the Document, then if the Document is less than one half
- of the entire aggregate, the Document’s Cover Texts may be placed
- on covers that bracket the Document within the aggregate, or the
- electronic equivalent of covers if the Document is in electronic
- form. Otherwise they must appear on printed covers that bracket
- the whole aggregate.
-
- 8. TRANSLATION
-
- Translation is considered a kind of modification, so you may
- distribute translations of the Document under the terms of section
- 4. Replacing Invariant Sections with translations requires special
- permission from their copyright holders, but you may include
- translations of some or all Invariant Sections in addition to the
- original versions of these Invariant Sections. You may include a
- translation of this License, and all the license notices in the
- Document, and any Warranty Disclaimers, provided that you also
- include the original English version of this License and the
- original versions of those notices and disclaimers. In case of a
- disagreement between the translation and the original version of
- this License or a notice or disclaimer, the original version will
- prevail.
-
- If a section in the Document is Entitled “Acknowledgements”,
- “Dedications”, or “History”, the requirement (section 4) to
- Preserve its Title (section 1) will typically require changing the
- actual title.
-
- 9. TERMINATION
-
- You may not copy, modify, sublicense, or distribute the Document
- except as expressly provided under this License. Any attempt
- otherwise to copy, modify, sublicense, or distribute it is void,
- and will automatically terminate your rights under this License.
-
- However, if you cease all violation of this License, then your
- license from a particular copyright holder is reinstated (a)
- provisionally, unless and until the copyright holder explicitly and
- finally terminates your license, and (b) permanently, if the
- copyright holder fails to notify you of the violation by some
- reasonable means prior to 60 days after the cessation.
-
- Moreover, your license from a particular copyright holder is
- reinstated permanently if the copyright holder notifies you of the
- violation by some reasonable means, this is the first time you have
- received notice of violation of this License (for any work) from
- that copyright holder, and you cure the violation prior to 30 days
- after your receipt of the notice.
-
- Termination of your rights under this section does not terminate
- the licenses of parties who have received copies or rights from you
- under this License. If your rights have been terminated and not
- permanently reinstated, receipt of a copy of some or all of the
- same material does not give you any rights to use it.
-
- 10. FUTURE REVISIONS OF THIS LICENSE
-
- The Free Software Foundation may publish new, revised versions of
- the GNU Free Documentation License from time to time. Such new
- versions will be similar in spirit to the present version, but may
- differ in detail to address new problems or concerns. See
- <http://www.gnu.org/copyleft/>.
-
- Each version of the License is given a distinguishing version
- number. If the Document specifies that a particular numbered
- version of this License “or any later version” applies to it, you
- have the option of following the terms and conditions either of
- that specified version or of any later version that has been
- published (not as a draft) by the Free Software Foundation. If the
- Document does not specify a version number of this License, you may
- choose any version ever published (not as a draft) by the Free
- Software Foundation. If the Document specifies that a proxy can
- decide which future versions of this License can be used, that
- proxy’s public statement of acceptance of a version permanently
- authorizes you to choose that version for the Document.
-
- 11. RELICENSING
-
- “Massive Multiauthor Collaboration Site” (or “MMC Site”) means any
- World Wide Web server that publishes copyrightable works and also
- provides prominent facilities for anybody to edit those works. A
- public wiki that anybody can edit is an example of such a server.
- A “Massive Multiauthor Collaboration” (or “MMC”) contained in the
- site means any set of copyrightable works thus published on the MMC
- site.
-
- “CC-BY-SA” means the Creative Commons Attribution-Share Alike 3.0
- license published by Creative Commons Corporation, a not-for-profit
- corporation with a principal place of business in San Francisco,
- California, as well as future copyleft versions of that license
- published by that same organization.
-
- “Incorporate” means to publish or republish a Document, in whole or
- in part, as part of another Document.
-
- An MMC is “eligible for relicensing” if it is licensed under this
- License, and if all works that were first published under this
- License somewhere other than this MMC, and subsequently
- incorporated in whole or in part into the MMC, (1) had no cover
- texts or invariant sections, and (2) were thus incorporated prior
- to November 1, 2008.
-
- The operator of an MMC Site may republish an MMC contained in the
- site under CC-BY-SA on the same site at any time before August 1,
- 2009, provided the MMC is eligible for relicensing.
-
-ADDENDUM: How to use this License for your documents
-====================================================
-
-To use this License in a document you have written, include a copy of
-the License in the document and put the following copyright and license
-notices just after the title page:
-
- Copyright (C) YEAR YOUR NAME.
- Permission is granted to copy, distribute and/or modify this document
- under the terms of the GNU Free Documentation License, Version 1.3
- or any later version published by the Free Software Foundation;
- with no Invariant Sections, no Front-Cover Texts, and no Back-Cover
- Texts. A copy of the license is included in the section entitled ``GNU
- Free Documentation License''.
-
- If you have Invariant Sections, Front-Cover Texts and Back-Cover
-Texts, replace the “with...Texts.” line with this:
-
- with the Invariant Sections being LIST THEIR TITLES, with
- the Front-Cover Texts being LIST, and with the Back-Cover Texts
- being LIST.
-
- If you have Invariant Sections without Cover Texts, or some other
-combination of the three, merge those two alternatives to suit the
-situation.
-
- If your document contains nontrivial examples of program code, we
-recommend releasing these examples in parallel under your choice of free
-software license, such as the GNU General Public License, to permit
-their use in free software.
-
-
-File: org, Node: Main Index, Next: Key Index, Prev: GNU Free Documentation License, Up: Top
-
-Concept index
-*************
-
-�[index�]
-* Menu:
-
-* #+ARCHIVE: Moving subtrees. (line 33)
-* #+ASCII: ASCII/Latin-1/UTF-8 export.
- (line 56)
-* #+ATTR_ASCII: ASCII/Latin-1/UTF-8 export.
- (line 67)
-* #+ATTR_BEAMER: Beamer specific syntax.
- (line 35)
-* #+ATTR_HTML: Links in HTML export.
- (line 27)
-* #+ATTR_HTML <1>: Tables in HTML export.
- (line 11)
-* #+ATTR_HTML <2>: Images in HTML export.
- (line 29)
-* #+ATTR_LATEX, in example blocks: Example blocks in LaTeX export.
- (line 6)
-* #+ATTR_LATEX, in horizontal rules: Horizontal rules in LaTeX export.
- (line 6)
-* #+ATTR_LATEX, in images: Images in LaTeX export.
- (line 6)
-* #+ATTR_LATEX, in plain lists: Plain lists in LaTeX export.
- (line 6)
-* #+ATTR_LATEX, in source blocks: Source blocks in LaTeX export.
- (line 6)
-* #+ATTR_LATEX, in special blocks: Special blocks in LaTeX export.
- (line 6)
-* #+ATTR_LATEX, in tables: Tables in LaTeX export.
- (line 6)
-* #+ATTR_ODT: Tables in ODT export.
- (line 20)
-* #+ATTR_ODT <1>: Images in ODT export.
- (line 31)
-* #+ATTR_ODT <2>: Images in ODT export.
- (line 76)
-* #+ATTR_ODT <3>: Customizing tables in ODT export.
- (line 6)
-* #+ATTR_TEXINFO, in images: Images in Texinfo export.
- (line 6)
-* #+ATTR_TEXINFO, in plain lists: Plain lists in Texinfo export.
- (line 6)
-* #+ATTR_TEXINFO, in special blocks: Special blocks in Texinfo export.
- (line 6)
-* #+ATTR_TEXINFO, in tables: Tables in Texinfo export.
- (line 6)
-* #+AUTHOR: Export settings. (line 25)
-* #+BEAMER: Beamer specific syntax.
- (line 19)
-* #+BEAMER_FONT_THEME: Beamer specific export settings.
- (line 16)
-* #+BEAMER_HEADER: Beamer specific export settings.
- (line 25)
-* #+BEAMER_INNER_THEME: Beamer specific export settings.
- (line 19)
-* #+BEAMER_OUTER_THEME: Beamer specific export settings.
- (line 22)
-* #+BEAMER_THEME: Beamer specific export settings.
- (line 11)
-* #+BEGIN, clocktable: The clock table. (line 32)
-* #+BEGIN, columnview: Capturing column view.
- (line 11)
-* #+BEGIN, dynamic block: Dynamic blocks. (line 15)
-* #+BEGIN_CENTER: Paragraphs. (line 31)
-* #+BEGIN_COMMENT: Comment lines. (line 10)
-* #+BEGIN_EXAMPLE: Literal examples. (line 8)
-* #+BEGIN_EXPORT ascii: ASCII/Latin-1/UTF-8 export.
- (line 56)
-* #+BEGIN_EXPORT beamer: Beamer specific syntax.
- (line 19)
-* #+BEGIN_EXPORT html: Quoting HTML tags. (line 14)
-* #+BEGIN_EXPORT latex: Quoting LaTeX code. (line 17)
-* #+BEGIN_EXPORT texinfo: Quoting Texinfo code.
- (line 9)
-* #+BEGIN_JUSTIFYLEFT: ASCII/Latin-1/UTF-8 export.
- (line 77)
-* #+BEGIN_JUSTIFYRIGHT: ASCII/Latin-1/UTF-8 export.
- (line 77)
-* #+BEGIN_QUOTE: Paragraphs. (line 26)
-* #+BEGIN_SRC: Literal examples. (line 28)
-* #+BEGIN_SRC <1>: Structure of code blocks.
- (line 6)
-* #+BEGIN_VERSE: Paragraphs. (line 13)
-* #+BIND: Export settings. (line 210)
-* #+CALL: Evaluating code blocks.
- (line 25)
-* #+CAPTION: Images and tables. (line 6)
-* #+CAPTION <1>: Tables in HTML export.
- (line 11)
-* #+CAPTION <2>: Images in HTML export.
- (line 29)
-* #+CATEGORY: Categories. (line 6)
-* #+CINDEX: Indices. (line 6)
-* #+COLUMNS: Scope of column definitions.
- (line 8)
-* #+CONSTANTS: References. (line 108)
-* #+CREATOR: Export settings. (line 28)
-* #+DATE: Export settings. (line 32)
-* #+DESCRIPTION (Beamer): Beamer specific export settings.
- (line 29)
-* #+DESCRIPTION (HTML): HTML Specific export settings.
- (line 10)
-* #+DESCRIPTION (LaTeX): LaTeX specific export settings.
- (line 11)
-* #+DESCRIPTION (ODT): ODT specific export settings.
- (line 11)
-* #+EMAIL: Export settings. (line 35)
-* #+EXCLUDE_TAGS: Export settings. (line 52)
-* #+EXPORT_FILE_NAME: Export settings. (line 64)
-* #+FILETAGS: Tag inheritance. (line 20)
-* #+FINDEX: Indices. (line 6)
-* #+HEADER:: Code block specific header arguments.
- (line 30)
-* #+HTML: Quoting HTML tags. (line 12)
-* #+HTML_CONTAINER: HTML Specific export settings.
- (line 19)
-* #+HTML_DOCTYPE: HTML Specific export settings.
- (line 16)
-* #+HTML_HEAD: HTML Specific export settings.
- (line 35)
-* #+HTML_HEAD <1>: CSS support. (line 48)
-* #+HTML_HEAD_EXTRA: HTML Specific export settings.
- (line 39)
-* #+HTML_HEAD_EXTRA <1>: CSS support. (line 48)
-* #+HTML_INCLUDE_STYLE: CSS support. (line 43)
-* #+HTML_LINK_HOME: HTML Specific export settings.
- (line 23)
-* #+HTML_LINK_UP: HTML Specific export settings.
- (line 26)
-* #+HTML_MATHJAX: HTML Specific export settings.
- (line 30)
-* #+INCLUDE: Include files. (line 7)
-* #+INDEX: Generating an index. (line 16)
-* #+INFOJS_OPT: JavaScript support. (line 20)
-* #+KEYWORDS (Beamer): Beamer specific export settings.
- (line 36)
-* #+KEYWORDS (HTML): HTML Specific export settings.
- (line 43)
-* #+KEYWORDS (LaTeX): LaTeX specific export settings.
- (line 46)
-* #+KEYWORDS (ODT): ODT specific export settings.
- (line 16)
-* #+KINDEX: Indices. (line 6)
-* #+LANGUAGE: Export settings. (line 38)
-* #+LATEX: Quoting LaTeX code. (line 13)
-* #+LATEX_CLASS: LaTeX specific export settings.
- (line 20)
-* #+LATEX_CLASS <1>: LaTeX header and sectioning.
- (line 23)
-* #+LATEX_CLASS_OPTIONS: LaTeX specific export settings.
- (line 28)
-* #+LATEX_CLASS_OPTIONS <1>: LaTeX header and sectioning.
- (line 23)
-* #+LATEX_COMPILER: LaTeX specific export settings.
- (line 32)
-* #+LATEX_HEADER: LaTeX specific export settings.
- (line 36)
-* #+LATEX_HEADER <1>: LaTeX header and sectioning.
- (line 30)
-* #+LATEX_HEADER (HTML): HTML Specific export settings.
- (line 48)
-* #+LATEX_HEADER_EXTRA: LaTeX specific export settings.
- (line 41)
-* #+LATEX_HEADER_EXTRA <1>: LaTeX header and sectioning.
- (line 30)
-* #+LINK: Link abbreviations. (line 49)
-* #+MACRO: Macro replacement. (line 6)
-* #+NAME: Internal links. (line 21)
-* #+NAME <1>: Images and tables. (line 6)
-* #+NAME <2>: Structure of code blocks.
- (line 6)
-* #+NAME <3>: Structure of code blocks.
- (line 39)
-* #+NAME, for table: References. (line 129)
-* #+ODT_STYLES_FILE: Applying custom styles.
- (line 25)
-* #+OPTIONS: Export settings. (line 6)
-* #+ORGLST: Radio lists. (line 11)
-* #+ORGTBL: Radio tables. (line 19)
-* #+ORGTBL, SEND: A LaTeX example. (line 12)
-* #+PINDEX: Indices. (line 6)
-* #+PLOT: Org-Plot. (line 6)
-* #+PRIORITIES: Priorities. (line 42)
-* #+PROPERTY: Property syntax. (line 44)
-* #+RESULTS: Evaluating code blocks.
- (line 6)
-* #+SELECT_TAGS: Export settings. (line 44)
-* #+SEQ_TODO: Per-file keywords. (line 6)
-* #+SETUPFILE: Export settings. (line 13)
-* #+SETUPFILE <1>: In-buffer settings. (line 45)
-* #+STARTUP: In-buffer settings. (line 58)
-* #+SUBAUTHOR: Texinfo specific export settings.
- (line 14)
-* #+SUBAUTHOR <1>: Texinfo title and copyright page.
- (line 12)
-* #+SUBTITLE (ASCII): ASCII/Latin-1/UTF-8 export.
- (line 39)
-* #+SUBTITLE (Beamer): Beamer specific export settings.
- (line 44)
-* #+SUBTITLE (HTML): HTML Specific export settings.
- (line 53)
-* #+SUBTITLE (LaTeX): LaTeX specific export settings.
- (line 55)
-* #+SUBTITLE (Texinfo): Texinfo specific export settings.
- (line 11)
-* #+TAGS: Setting tags. (line 28)
-* #+TBLFM: Field and range formulas.
- (line 12)
-* #+TBLFM <1>: Editing and debugging formulas.
- (line 84)
-* #+TBLFM <2>: In-buffer settings. (line 166)
-* #+TBLFM line, multiple: Editing and debugging formulas.
- (line 84)
-* #+TBLFM, switching: Editing and debugging formulas.
- (line 84)
-* #+TEXINFO: Quoting Texinfo code.
- (line 9)
-* #+TEXINFO_CLASS: Texinfo specific export settings.
- (line 20)
-* #+TEXINFO_CLASS <1>: Texinfo file header. (line 11)
-* #+TEXINFO_CLASS <2>: Headings and sectioning structure.
- (line 6)
-* #+TEXINFO_DIR_CATEGORY: Texinfo specific export settings.
- (line 30)
-* #+TEXINFO_DIR_CATEGORY <1>: Info directory file. (line 6)
-* #+TEXINFO_DIR_DESC: Texinfo specific export settings.
- (line 36)
-* #+TEXINFO_DIR_DESC <1>: Info directory file. (line 6)
-* #+TEXINFO_DIR_TITLE: Texinfo specific export settings.
- (line 33)
-* #+TEXINFO_DIR_TITLE <1>: Info directory file. (line 6)
-* #+TEXINFO_FILENAME: Texinfo specific export settings.
- (line 17)
-* #+TEXINFO_FILENAME <1>: Texinfo file header. (line 6)
-* #+TEXINFO_HEADER: Texinfo specific export settings.
- (line 24)
-* #+TEXINFO_HEADER <1>: Texinfo file header. (line 11)
-* #+TEXINFO_POST_HEADER: Texinfo specific export settings.
- (line 27)
-* #+TEXINFO_PRINTED_TITLE: Texinfo specific export settings.
- (line 39)
-* #+TEXINFO_PRINTED_TITLE <1>: Texinfo title and copyright page.
- (line 6)
-* #+TINDEX: Indices. (line 6)
-* #+TITLE: Export settings. (line 60)
-* #+TOC: Table of contents. (line 6)
-* #+TODO: Per-file keywords. (line 6)
-* #+TYP_TODO: Per-file keywords. (line 6)
-* #+VINDEX: Indices. (line 6)
-* %:annotation template expansion in capture: capture protocol.
- (line 23)
-* %:description template expansion in capture: capture protocol.
- (line 23)
-* %:link template expansion in capture: capture protocol. (line 23)
-* :base-url property in open-source protocol: open-source protocol.
- (line 13)
-* :cache, src header argument: System-wide header arguments.
- (line 9)
-* :cache, src header argument <1>: cache. (line 6)
-* :colnames, src header argument: colnames. (line 6)
-* :comments, src header argument: comments. (line 6)
-* :dir, src header argument: dir. (line 6)
-* :epilogue, src header argument: epilogue. (line 6)
-* :eval, src header argument: eval. (line 6)
-* :exports, src header argument: Exporting code blocks.
- (line 20)
-* :exports, src header argument <1>: System-wide header arguments.
- (line 9)
-* :exports, src header argument <2>: exports. (line 6)
-* :file, src header argument: file. (line 6)
-* :file-ext, src header argument: file-ext. (line 6)
-* :hlines, src header argument: hlines. (line 6)
-* :indic attribute, in Texinfo export: Plain lists in Texinfo export.
- (line 12)
-* :mkdirp, src header argument: mkdirp. (line 6)
-* :no-expand, src header argument: no-expand. (line 6)
-* :noweb, src header argument: System-wide header arguments.
- (line 9)
-* :noweb, src header argument <1>: noweb. (line 6)
-* :noweb-ref, src header argument: noweb-ref. (line 6)
-* :noweb-sep, src header argument: noweb-sep. (line 6)
-* :online-suffix property in open-source protocol: open-source protocol.
- (line 13)
-* :output-dir, src header argument: output-dir. (line 6)
-* :padline, src header argument: padline. (line 6)
-* :post, src header argument: post. (line 6)
-* :prologue, src header argument: prologue. (line 6)
-* :results, src header argument: System-wide header arguments.
- (line 9)
-* :results, src header argument <1>: results. (line 6)
-* :results, src header argument <2>: Results of evaluation.
- (line 33)
-* :results, src header argument <3>: Results of evaluation.
- (line 45)
-* :results, src header argument <4>: Results of evaluation.
- (line 55)
-* :results, src header argument <5>: Results of evaluation.
- (line 72)
-* :rewrites property in open-source protocol: open-source protocol.
- (line 43)
-* :rownames, src header argument: rownames. (line 6)
-* :sep attribute, in Texinfo export: Plain lists in Texinfo export.
- (line 17)
-* :sep, src header argument: sep. (line 6)
-* :session, src header argument: System-wide header arguments.
- (line 9)
-* :session, src header argument <1>: session. (line 6)
-* :shebang, src header argument: shebang. (line 6)
-* :table-type attribute, in Texinfo export: Plain lists in Texinfo export.
- (line 6)
-* :tangle, src header argument: Extracting source code.
- (line 23)
-* :tangle, src header argument <1>: tangle. (line 6)
-* :tangle-mode, src header argument: tangle-mode. (line 6)
-* :var, src header argument: var. (line 6)
-* :working-directory property in open-source protocol: open-source protocol.
- (line 13)
-* :working-suffix property in open-source protocol: open-source protocol.
- (line 13)
-* :wrap, src header argument: wrap. (line 6)
-* abbreviation, links: Link abbreviations. (line 6)
-* abstract, in LaTeX export: Special blocks in LaTeX export.
- (line 6)
-* acknowledgments: History and acknowledgments.
- (line 6)
-* action, for publishing: Publishing action. (line 6)
-* activation: Activation. (line 6)
-* active region: Structure editing. (line 116)
-* active region <1>: Built-in table editor.
- (line 145)
-* active region <2>: ODT export commands. (line 6)
-* add-on packages: Add-on packages. (line 6)
-* add-ons, context-sensitive commands: Context-sensitive commands.
- (line 6)
-* agenda: Weekly/daily agenda. (line 6)
-* agenda dispatcher: Agenda dispatcher. (line 6)
-* agenda files: Agenda files. (line 6)
-* agenda files, removing buffers: Agenda commands. (line 440)
-* agenda views: Agenda views. (line 6)
-* agenda views, custom: Custom agenda views. (line 6)
-* agenda views, exporting: Agenda commands. (line 426)
-* agenda views, exporting <1>: Exporting agenda views.
- (line 6)
-* agenda views, exporting <2>: Exporting agenda views.
- (line 13)
-* agenda views, main example: Storing searches. (line 9)
-* agenda views, optimization: Speeding up your agendas.
- (line 6)
-* agenda views, user-defined: Special agenda views.
- (line 6)
-* agenda*, as an agenda views: Storing searches. (line 9)
-* agenda, as an agenda views: Storing searches. (line 9)
-* agenda, column view: Agenda column view. (line 6)
-* agenda, pipe: Extracting agenda information.
- (line 6)
-* agenda, sticky: Agenda dispatcher. (line 43)
-* agenda, with block views: Block agenda. (line 6)
-* align, STARTUP keyword: In-buffer settings. (line 79)
-* alignment in tables: Column width and alignment.
- (line 6)
-* anniversaries, from BBDB: Weekly/daily agenda. (line 79)
-* API, for mapping: Using the mapping API.
- (line 6)
-* API, for properties: Property API. (line 6)
-* API, for properties <1>: Using the property API.
- (line 6)
-* appointment: Timestamps. (line 14)
-* appointment <1>: Weekly/daily agenda. (line 126)
-* appointment reminders: Weekly/daily agenda. (line 126)
-* appt.el: Weekly/daily agenda. (line 126)
-* archive locations: Moving subtrees. (line 23)
-* archive tag: Internal archiving. (line 6)
-* archived entries, in agenda views: Agenda views. (line 32)
-* Archives mode: Agenda commands. (line 115)
-* archiving: Archiving. (line 6)
-* ASCII export: ASCII/Latin-1/UTF-8 export.
- (line 6)
-* Atom feeds: RSS feeds. (line 6)
-* attachments: Attachments. (line 6)
-* author: Feedback. (line 6)
-* author, macro: Macro replacement. (line 24)
-* autoload: Activation. (line 6)
-* babel, languages: Languages. (line 6)
-* babel, library of: Library of Babel. (line 6)
-* backtrace of an error: Feedback. (line 63)
-* BBDB links: External links. (line 6)
-* BBDB, anniversaries: Weekly/daily agenda. (line 79)
-* Beamer export: Beamer export. (line 6)
-* begin block, end block: Structure of code blocks.
- (line 44)
-* block agenda: Block agenda. (line 6)
-* blocking, of checkboxes: Checkboxes. (line 46)
-* blocks, folding: Blocks. (line 6)
-* bold text, markup rules: Emphasis and monospace.
- (line 6)
-* Boolean logic, for tag/property searches: Matching tags and properties.
- (line 33)
-* bug reports: Feedback. (line 6)
-* C-c C-c, overview: The very busy C-c C-c key.
- (line 6)
-* calc package: The spreadsheet. (line 6)
-* calc.el: Cooperation. (line 6)
-* calculations, in tables: Built-in table editor.
- (line 145)
-* calculations, in tables <1>: The spreadsheet. (line 6)
-* calendar commands, from agenda: Agenda commands. (line 381)
-* calendar integration: Weekly/daily agenda. (line 32)
-* calendar, for selecting date: The date/time prompt.
- (line 76)
-* capture: Capture - Refile - Archive.
- (line 6)
-* capture <1>: Capture. (line 6)
-* capture protocol: capture protocol. (line 6)
-* capture, %:annotation placeholder: capture protocol. (line 23)
-* capture, %:description placeholder: capture protocol. (line 23)
-* capture, %:link placeholder: capture protocol. (line 23)
-* capturing, from agenda: Agenda commands. (line 292)
-* category: Categories. (line 6)
-* category filtering, in agenda: Filtering/limiting agenda items.
- (line 17)
-* category, require for tags/property match: Matching tags and properties.
- (line 67)
-* CDLaTeX: CDLaTeX mode. (line 6)
-* cdlatex.el: Cooperation. (line 19)
-* center blocks: Paragraphs. (line 31)
-* center image (LaTeX export): Images in LaTeX export.
- (line 46)
-* checkbox blocking: Checkboxes. (line 46)
-* checkbox statistics: Checkboxes. (line 30)
-* checkboxes: Checkboxes. (line 6)
-* checkboxes and TODO dependencies: TODO dependencies. (line 51)
-* children, subtree visibility state: Global and local cycling.
- (line 10)
-* clean outline view: Clean view. (line 6)
-* clocking time: Clocking work time. (line 6)
-* clocktable, dynamic block: The clock table. (line 6)
-* code block, batch execution: Batch execution. (line 6)
-* code block, editing: Editing source code. (line 6)
-* code block, evaluating: Evaluating code blocks.
- (line 6)
-* code block, exporting: Exporting code blocks.
- (line 6)
-* code block, extracting source code: Extracting source code.
- (line 6)
-* code block, header arguments: Header arguments. (line 6)
-* code block, key bindings: Key bindings and useful functions.
- (line 6)
-* code block, languages: Languages. (line 6)
-* code block, library: Library of Babel. (line 6)
-* code block, noweb reference: Noweb reference syntax.
- (line 6)
-* code block, results of evaluation: Results of evaluation.
- (line 6)
-* code block, structure: Structure of code blocks.
- (line 6)
-* code line references, markup rules: Literal examples. (line 6)
-* code text, markup rules: Emphasis and monospace.
- (line 6)
-* column formula: Column formulas. (line 6)
-* column view, for properties: Defining columns. (line 6)
-* column view, in agenda: Agenda column view. (line 6)
-* column, of field coordinates: References. (line 86)
-* commands, in agenda buffer: Agenda commands. (line 6)
-* comment lines: Comment lines. (line 6)
-* comment trees: Comment lines. (line 13)
-* commented entries, in agenda views: Agenda views. (line 32)
-* completion, of dictionary words: Completion. (line 6)
-* completion, of file names: Handling links. (line 87)
-* completion, of link abbreviations: Completion. (line 6)
-* completion, of links: Handling links. (line 65)
-* completion, of option keywords: Per-file keywords. (line 23)
-* completion, of option keywords <1>: Completion. (line 6)
-* completion, of property keys: Completion. (line 6)
-* completion, of tags: Setting tags. (line 11)
-* completion, of tags <1>: Completion. (line 6)
-* completion, of TeX symbols: Completion. (line 6)
-* completion, of TODO keywords: Workflow states. (line 15)
-* completion, of TODO keywords <1>: Completion. (line 6)
-* concept index, in Texinfo export: Indices. (line 6)
-* constants, in calculations: References. (line 108)
-* constants, in calculations <1>: References. (line 129)
-* constants.el: Cooperation. (line 11)
-* constcgs, STARTUP keyword: In-buffer settings. (line 136)
-* constSI, STARTUP keyword: In-buffer settings. (line 136)
-* content, STARTUP keyword: Initial visibility. (line 6)
-* content, STARTUP keyword <1>: In-buffer settings. (line 65)
-* contents, global visibility state: Global and local cycling.
- (line 18)
-* context-sensitive commands, hooks: Context-sensitive commands.
- (line 6)
-* continuous clocking: Resolving idle time. (line 74)
-* convert: Configuring a document converter.
- (line 6)
-* converter: Configuring a document converter.
- (line 6)
-* coordinates, of field: References. (line 86)
-* copying notes: Refile and copy. (line 6)
-* copying, of subtrees: Structure editing. (line 6)
-* countdown timer: Timers. (line 6)
-* counter, macro: Macro replacement. (line 55)
-* creating timestamps: Creating timestamps. (line 6)
-* CSS, for HTML export: CSS support. (line 6)
-* CUA.el: Conflicts. (line 18)
-* custom agenda views: Custom agenda views. (line 6)
-* custom date/time format: Custom time format. (line 6)
-* custom search strings: Custom searches. (line 6)
-* customization: Customization. (line 6)
-* customtime, STARTUP keyword: In-buffer settings. (line 132)
-* cutting, of subtrees: Structure editing. (line 6)
-* cycling, in plain lists: Plain lists. (line 67)
-* cycling, of agenda files: Agenda files. (line 21)
-* cycling, of TODO states: TODO basics. (line 14)
-* cycling, visibility: Visibility cycling. (line 6)
-* daily agenda: Weekly/daily agenda. (line 6)
-* dash, special symbol: Special symbols. (line 39)
-* data type index, in Texinfo export: Indices. (line 6)
-* date format, custom: Custom time format. (line 6)
-* date range: Timestamps. (line 42)
-* date stamp: Dates and times. (line 6)
-* date stamps: Timestamps. (line 6)
-* date tree: Using capture. (line 9)
-* date, macro: Macro replacement. (line 29)
-* date, reading in minibuffer: The date/time prompt.
- (line 6)
-* dates: Dates and times. (line 6)
-* Davison, Dan: Working with source code.
- (line 6)
-* DEADLINE keyword: Deadlines and scheduling.
- (line 11)
-* deadlines: Timestamps. (line 6)
-* debugging, of table formulas: Editing and debugging formulas.
- (line 117)
-* defining new protocols: Protocols. (line 25)
-* demotion, of subtrees: Structure editing. (line 6)
-* dependencies, of TODO states: TODO dependencies. (line 6)
-* diary entries, creating from agenda: Agenda commands. (line 385)
-* diary integration: Weekly/daily agenda. (line 32)
-* dictionary word completion: Completion. (line 6)
-* dir file, in Texinfo export: Info directory file. (line 6)
-* directories, for publishing: Sources and destinations.
- (line 6)
-* dispatching agenda commands: Agenda dispatcher. (line 6)
-* display changing, in agenda: Agenda commands. (line 61)
-* doc, docx, rtf: Configuring a document converter.
- (line 6)
-* document structure: Document structure. (line 6)
-* document title: Export settings. (line 60)
-* Dominik, Carsten: Cooperation. (line 11)
-* Dominik, Carsten <1>: Cooperation. (line 19)
-* DONE, final TODO keyword: Per-file keywords. (line 26)
-* dragging, agenda lines: Agenda commands. (line 297)
-* drawer, for properties: Property syntax. (line 6)
-* drawer, for state change recording: Tracking TODO state changes.
- (line 6)
-* drawers: Drawers. (line 6)
-* Duration, computing: Durations and time values.
- (line 6)
-* dvipng: Math formatting in HTML export.
- (line 6)
-* dvipng <1>: Working with LaTeX math snippets.
- (line 48)
-* dvisvgm: Math formatting in HTML export.
- (line 6)
-* dvisvgm <1>: Working with LaTeX math snippets.
- (line 48)
-* dynamic blocks: Dynamic blocks. (line 6)
-* dynamic indentation: Clean view. (line 6)
-* ecomplete.el: Conflicts. (line 33)
-* editing tables: Tables. (line 6)
-* editing, of table formulas: Editing and debugging formulas.
- (line 6)
-* edits, catching invisible: Catching invisible edits.
- (line 6)
-* effort estimates: Effort estimates. (line 6)
-* effort filtering, in agenda: Filtering/limiting agenda items.
- (line 17)
-* Elisp links: External links. (line 6)
-* ellipsis, special symbol: Special symbols. (line 39)
-* ELPA: Activation. (line 6)
-* email, macro: Macro replacement. (line 24)
-* embedding images in ODT: Images in ODT export.
- (line 6)
-* entitiesplain, STARTUP keyword: In-buffer settings. (line 159)
-* entitiespretty, STARTUP keyword: Special symbols. (line 34)
-* entitiespretty, STARTUP keyword <1>: In-buffer settings. (line 159)
-* escaping characters: Special symbols. (line 27)
-* evaluate time range: Creating timestamps. (line 52)
-* even, STARTUP keyword: In-buffer settings. (line 122)
-* example blocks, in LaTeX export: Example blocks in LaTeX export.
- (line 6)
-* export back-end: Exporting. (line 12)
-* export back-ends, built-in: Other built-in back-ends.
- (line 6)
-* Export, dispatcher: The export dispatcher.
- (line 6)
-* export, OpenDocument: OpenDocument Text export.
- (line 6)
-* Export, settings: Export settings. (line 6)
-* Export, writing back-ends: Adding export back-ends.
- (line 6)
-* exporting: Exporting. (line 6)
-* exporting agenda views: Agenda commands. (line 426)
-* exporting agenda views <1>: Exporting agenda views.
- (line 13)
-* exporting, not: Comment lines. (line 6)
-* extended TODO keywords: TODO extensions. (line 6)
-* external archiving: Moving subtrees. (line 6)
-* external links: External links. (line 6)
-* external links, in HTML export: Links in HTML export.
- (line 6)
-* faces, for TODO keywords: Faces for TODO keywords.
- (line 6)
-* FAQ: Summary. (line 49)
-* feedback: Feedback. (line 6)
-* field coordinates: References. (line 86)
-* field formula: Field and range formulas.
- (line 6)
-* field references: References. (line 15)
-* file links: External links. (line 6)
-* file links, searching: Search options. (line 6)
-* file name completion: Handling links. (line 87)
-* files for agenda: Agenda files. (line 6)
-* files, adding to agenda list: Agenda files. (line 15)
-* files, selecting for publishing: Selecting files. (line 6)
-* filladapt.el: Conflicts. (line 45)
-* filtering, by tag, category, top headline and effort, in agenda: Filtering/limiting agenda items.
- (line 17)
-* Filters, exporting: Advanced configuration.
- (line 32)
-* fnadjust, STARTUP keyword: In-buffer settings. (line 142)
-* fnauto, STARTUP keyword: In-buffer settings. (line 142)
-* fnconfirm, STARTUP keyword: In-buffer settings. (line 142)
-* fninline, STARTUP keyword: In-buffer settings. (line 142)
-* fnlocal, STARTUP keyword: In-buffer settings. (line 142)
-* fnplain, STARTUP keyword: In-buffer settings. (line 142)
-* fnprompt, STARTUP keyword: In-buffer settings. (line 142)
-* folded, subtree visibility state: Global and local cycling.
- (line 10)
-* folding, sparse trees: Sparse trees. (line 6)
-* following links: Handling links. (line 98)
-* footnotes: Footnotes. (line 6)
-* format specifier: Formula syntax for Calc.
- (line 14)
-* format, of links: Link format. (line 6)
-* formatting source code, markup rules: Literal examples. (line 23)
-* formula debugging: Editing and debugging formulas.
- (line 117)
-* formula editing: Editing and debugging formulas.
- (line 6)
-* formula syntax, Calc: Formula syntax for Calc.
- (line 6)
-* formula, for individual table field: Field and range formulas.
- (line 6)
-* formula, for range of fields: Field and range formulas.
- (line 6)
-* formula, for table column: Column formulas. (line 6)
-* formula, in tables: Built-in table editor.
- (line 145)
-* function index, in Texinfo export: Indices. (line 6)
-* Gillespie, Dave: Cooperation. (line 6)
-* global cycling: Global and local cycling.
- (line 18)
-* global key bindings: Activation. (line 6)
-* global TODO list: Global TODO list. (line 6)
-* global visibility states: Global and local cycling.
- (line 18)
-* Gnus links: External links. (line 6)
-* graph, in tables: Org-Plot. (line 6)
-* group tags: Tag hierarchy. (line 6)
-* group tags, as regular expressions: Matching tags and properties.
- (line 60)
-* grouping columns in tables: Column groups. (line 6)
-* habits: Tracking your habits.
- (line 6)
-* hacking: Hacking. (line 6)
-* handle rewritten URL in open-source protocol: open-source protocol.
- (line 32)
-* header, for LaTeX files: LaTeX header and sectioning.
- (line 6)
-* headline navigation: Motion. (line 6)
-* headline tagging: Tags. (line 6)
-* headline, promotion and demotion: Structure editing. (line 6)
-* headlines: Headlines. (line 6)
-* hide text: Visibility cycling. (line 6)
-* hideblocks, STARTUP keyword: Blocks. (line 13)
-* hideblocks, STARTUP keyword <1>: In-buffer settings. (line 154)
-* hidestars, STARTUP keyword: In-buffer settings. (line 122)
-* hiding leading stars: Clean view. (line 6)
-* history: History and acknowledgments.
- (line 6)
-* hooks: Hooks. (line 6)
-* horizontal rules, in ASCII export: ASCII/Latin-1/UTF-8 export.
- (line 67)
-* horizontal rules, in LaTeX export: Horizontal rules in LaTeX export.
- (line 6)
-* horizontal rules, markup rules: Horizontal rules. (line 6)
-* HTML entities: Special symbols. (line 6)
-* HTML export: HTML export. (line 6)
-* HTML export, CSS: CSS support. (line 6)
-* HTML, and Orgtbl mode: Translator functions.
- (line 6)
-* HTML5, export new elements: HTML doctypes. (line 25)
-* hyperlinks: Hyperlinks. (line 6)
-* hyperlinks, adding new types: Adding hyperlink types.
- (line 6)
-* iCalendar export: iCalendar export. (line 6)
-* identify, ImageMagick: Images in ODT export.
- (line 34)
-* idle, resolve, dangling: Resolving idle time. (line 9)
-* image, centering (LaTeX export): Images in LaTeX export.
- (line 46)
-* imagemagick: Math formatting in HTML export.
- (line 6)
-* imagemagick <1>: Working with LaTeX math snippets.
- (line 48)
-* images, embedding in ODT: Images in ODT export.
- (line 6)
-* images, inline in HTML: Images in HTML export.
- (line 6)
-* images, inline in LaTeX: Images in LaTeX export.
- (line 6)
-* images, inlining: Handling links. (line 129)
-* imenu.el: Cooperation. (line 22)
-* in-buffer settings: In-buffer settings. (line 6)
-* inactive timestamp: Timestamps. (line 50)
-* include files, during export: Include files. (line 6)
-* indent, STARTUP keyword: In-buffer settings. (line 70)
-* indentation, in source blocks: Literal examples. (line 72)
-* indentation, in source blocks <1>: Editing source code. (line 36)
-* index, in a publishing project: Generating an index. (line 6)
-* Info directory file, in Texinfo export: Info directory file.
- (line 6)
-* Info links: External links. (line 6)
-* inheritance, of properties: Property inheritance.
- (line 6)
-* inheritance, of tags: Tag inheritance. (line 6)
-* inline, in LaTeX export: Quoting LaTeX code. (line 10)
-* inlined images, markup rules: Images and tables. (line 22)
-* inlineimages, STARTUP keyword: Handling links. (line 129)
-* inlineimages, STARTUP keyword <1>: In-buffer settings. (line 84)
-* inlining images: Handling links. (line 129)
-* inlining images in HTML: Images in HTML export.
- (line 6)
-* inlining images in LaTeX: Images in LaTeX export.
- (line 6)
-* input file, macro: Macro replacement. (line 44)
-* inserting links: Handling links. (line 65)
-* insertion, of templates: Easy templates. (line 6)
-* install-info parameters, in Texinfo export: Info directory file.
- (line 6)
-* installation: Installation. (line 6)
-* Installing Org protocol: Protocols. (line 14)
-* internal links: Internal links. (line 6)
-* internal links, in HTML export: Links in HTML export.
- (line 6)
-* introduction: Introduction. (line 6)
-* iPhone: MobileOrg. (line 6)
-* IRC links: External links. (line 6)
-* italic text, markup rules: Emphasis and monospace.
- (line 6)
-* jumping, to headlines: Motion. (line 6)
-* key bindings, global: Activation. (line 6)
-* keystroke index, in Texinfo export: Indices. (line 6)
-* keyword options: Per-file keywords. (line 6)
-* LaTeX class: LaTeX header and sectioning.
- (line 6)
-* LaTeX entities: Special symbols. (line 6)
-* LaTeX export: LaTeX export. (line 6)
-* LaTeX fragments: LaTeX fragments. (line 6)
-* LaTeX fragments, preview: Previewing LaTeX fragments.
- (line 6)
-* LaTeX header: LaTeX header and sectioning.
- (line 6)
-* LaTeX interpretation: Embedded LaTeX. (line 6)
-* LaTeX sectioning structure: LaTeX header and sectioning.
- (line 6)
-* LaTeX, and Orgtbl mode: A LaTeX example. (line 6)
-* latexpreview, STARTUP keyword: In-buffer settings. (line 90)
-* Latin-1 export: ASCII/Latin-1/UTF-8 export.
- (line 6)
-* level, require for tags/property match: Matching tags and properties.
- (line 67)
-* LibreOffice: OpenDocument Text export.
- (line 6)
-* LibreOffice <1>: Extending ODT export.
- (line 12)
-* limits, in agenda: Filtering/limiting agenda items.
- (line 118)
-* link abbreviations: Link abbreviations. (line 6)
-* link abbreviations, completion of: Completion. (line 6)
-* link completion: Handling links. (line 65)
-* link format: Link format. (line 6)
-* links, external: External links. (line 6)
-* links, finding next/previous: Handling links. (line 146)
-* links, handling: Handling links. (line 6)
-* links, in HTML export: Links in HTML export.
- (line 6)
-* links, in ODT export: Links in ODT export. (line 6)
-* links, internal: Internal links. (line 6)
-* links, publishing: Publishing links. (line 6)
-* links, radio targets: Radio targets. (line 6)
-* links, returning to: Handling links. (line 140)
-* linter: Org syntax. (line 24)
-* Lisp forms, as table formulas: Formula syntax for Lisp.
- (line 6)
-* list of listings: Table of contents. (line 6)
-* list of tables: Table of contents. (line 6)
-* lists, in other modes: Tables in arbitrary syntax.
- (line 6)
-* lists, ordered: Plain lists. (line 6)
-* lists, plain: Plain lists. (line 6)
-* literal examples, markup rules: Literal examples. (line 6)
-* logdone, STARTUP keyword: In-buffer settings. (line 96)
-* logdrawer, STARTUP keyword: In-buffer settings. (line 96)
-* logging, of progress: Progress logging. (line 6)
-* lognoteclock-out, STARTUP keyword: In-buffer settings. (line 96)
-* lognotedone, STARTUP keyword: In-buffer settings. (line 96)
-* lognoteredeadline, STARTUP keyword: In-buffer settings. (line 96)
-* lognoterefile, STARTUP keyword: In-buffer settings. (line 96)
-* lognoterepeat, STARTUP keyword: In-buffer settings. (line 96)
-* lognotereschedule, STARTUP keyword: In-buffer settings. (line 96)
-* logredeadline, STARTUP keyword: In-buffer settings. (line 96)
-* logrefile, STARTUP keyword: In-buffer settings. (line 96)
-* logrepeat, STARTUP keyword: In-buffer settings. (line 96)
-* logreschedule, STARTUP keyword: In-buffer settings. (line 96)
-* logstatesreversed, STARTUP keyword: In-buffer settings. (line 96)
-* lookup functions in tables: Lookup functions. (line 6)
-* Ludlam, Eric M.: Cooperation. (line 30)
-* macro replacement, during export: Macro replacement. (line 6)
-* maintainer: Feedback. (line 6)
-* mapping entries, API: Using the mapping API.
- (line 6)
-* mark ring: Handling links. (line 137)
-* Markdown export: Markdown export. (line 6)
-* marking characters, tables: Advanced features. (line 39)
-* match view: Matching tags and properties.
- (line 6)
-* matching, of properties: Matching tags and properties.
- (line 6)
-* matching, of tags: Matching tags and properties.
- (line 6)
-* matching, tags: Tags. (line 6)
-* math symbols: Special symbols. (line 6)
-* MathJax: Math formatting in HTML export.
- (line 6)
-* MathML: Working with LaTeX math snippets.
- (line 9)
-* MH-E links: External links. (line 6)
-* minor mode for structure editing: Orgstruct mode. (line 6)
-* minor mode for tables: Orgtbl mode. (line 6)
-* MobileOrg: MobileOrg. (line 6)
-* mode, for calc: Formula syntax for Calc.
- (line 14)
-* modification time, macro: Macro replacement. (line 36)
-* motion commands in agenda: Agenda commands. (line 19)
-* motion, between headlines: Motion. (line 6)
-* Multiple entries in two-column tables, in Texinfo export: Plain lists in Texinfo export.
- (line 17)
-* n, macro: Macro replacement. (line 55)
-* name, of column or field: References. (line 108)
-* name, of column or field <1>: References. (line 129)
-* named references: References. (line 108)
-* names as TODO keywords: TODO types. (line 6)
-* narrow columns in tables: Column width and alignment.
- (line 6)
-* noalign, STARTUP keyword: In-buffer settings. (line 79)
-* nofnadjust, STARTUP keyword: In-buffer settings. (line 142)
-* nofninline, STARTUP keyword: In-buffer settings. (line 142)
-* nohideblocks, STARTUP keyword: Blocks. (line 13)
-* nohideblocks, STARTUP keyword <1>: In-buffer settings. (line 154)
-* noindent, STARTUP keyword: In-buffer settings. (line 70)
-* noinlineimages, STARTUP keyword: Handling links. (line 129)
-* noinlineimages, STARTUP keyword <1>: In-buffer settings. (line 84)
-* nolatexpreview, STARTUP keyword: In-buffer settings. (line 90)
-* nologdone, STARTUP keyword: In-buffer settings. (line 96)
-* nologdrawer, STARTUP keyword: In-buffer settings. (line 96)
-* nolognoteclock-out, STARTUP keyword: In-buffer settings. (line 96)
-* nologredeadline, STARTUP keyword: In-buffer settings. (line 96)
-* nologrefile, STARTUP keyword: In-buffer settings. (line 96)
-* nologrepeat, STARTUP keyword: In-buffer settings. (line 96)
-* nologreschedule, STARTUP keyword: In-buffer settings. (line 96)
-* nologstatesreversed, STARTUP keyword: In-buffer settings. (line 96)
-* occur, command: Sparse trees. (line 6)
-* occur-tree: Storing searches. (line 9)
-* odd, STARTUP keyword: In-buffer settings. (line 122)
-* odd-levels-only outlines: Clean view. (line 6)
-* ODT: OpenDocument Text export.
- (line 6)
-* ODT_STYLES_FILE: ODT specific export settings.
- (line 22)
-* open-source protocol: open-source protocol.
- (line 6)
-* OpenDocument: OpenDocument Text export.
- (line 6)
-* option keyword completion: Completion. (line 6)
-* options, for custom agenda views: Setting options. (line 6)
-* options, for customization: Customization. (line 6)
-* options, for publishing: Publishing options. (line 6)
-* ordered lists: Plain lists. (line 6)
-* Org entities: Special symbols. (line 6)
-* Org export: Org export. (line 6)
-* Org mode, turning on: Activation. (line 21)
-* Org protocol, set-up: Protocols. (line 14)
-* Org syntax: Org syntax. (line 6)
-* org-agenda, command: Weekly/daily agenda. (line 9)
-* org-capture-last-stored: Using capture. (line 48)
-* org-crypt.el: org-crypt. (line 6)
-* org-decrypt-entry: org-crypt. (line 6)
-* org-hide-block-startup: In-buffer settings. (line 153)
-* org-insert-drawer: Drawers. (line 6)
-* org-insert-drawer <1>: Property syntax. (line 87)
-* org-list-insert-radio-list: Radio lists. (line 6)
-* org-pretty-entities: In-buffer settings. (line 158)
-* org-publish-project-alist: Project alist. (line 6)
-* Orgstruct mode: Orgstruct mode. (line 6)
-* Orgtbl mode: Orgtbl mode. (line 6)
-* Orgtbl mode <1>: Tables in arbitrary syntax.
- (line 6)
-* Ota, Takaaki: Cooperation. (line 36)
-* Outline mode: Outlines. (line 6)
-* outline tree: Headlines. (line 6)
-* outlines: Outlines. (line 6)
-* overview, global visibility state: Global and local cycling.
- (line 18)
-* overview, STARTUP keyword: Initial visibility. (line 6)
-* overview, STARTUP keyword <1>: In-buffer settings. (line 65)
-* packages, interaction with other: Interaction. (line 6)
-* paragraphs, markup rules: Paragraphs. (line 6)
-* pasting, of subtrees: Structure editing. (line 6)
-* PDF export: LaTeX export. (line 6)
-* per-file keywords: Per-file keywords. (line 6)
-* plain lists: Plain lists. (line 6)
-* plain lists, in LaTeX export: Plain lists in LaTeX export.
- (line 6)
-* plain text external links: External links. (line 68)
-* plot tables using Gnuplot: Org-Plot. (line 6)
-* presentation, of agenda items: Presentation and sorting.
- (line 6)
-* print edition: Summary. (line 52)
-* printing sparse trees: Sparse trees. (line 49)
-* priorities: Priorities. (line 6)
-* priorities, of agenda items: Sorting agenda items.
- (line 6)
-* program index, in Texinfo export: Indices. (line 6)
-* progress logging: Progress logging. (line 6)
-* projects, for publishing: Project alist. (line 6)
-* promotion, of subtrees: Structure editing. (line 6)
-* proof, in LaTeX export: Special blocks in LaTeX export.
- (line 6)
-* properties: Properties and columns.
- (line 6)
-* properties, API: Property API. (line 6)
-* properties, API <1>: Using the property API.
- (line 6)
-* properties, column view: Defining columns. (line 6)
-* properties, inheritance: Property inheritance.
- (line 6)
-* properties, searching: Property searches. (line 6)
-* properties, special: Special properties. (line 6)
-* property syntax: Property syntax. (line 6)
-* property, +: Property syntax. (line 52)
-* property, + <1>: Property syntax. (line 58)
-* property, ALT_TITLE: Table of contents. (line 41)
-* property, APPENDIX: Headings and sectioning structure.
- (line 20)
-* property, ARCHIVE: Property inheritance.
- (line 32)
-* property, ARCHIVE <1>: Moving subtrees. (line 35)
-* property, ATTACH_DIR: Attachments. (line 74)
-* property, ATTACH_DIR_INHERIT: Attachments. (line 79)
-* property, BEAMER_ACT: Sectioning Frames and Blocks in Beamer.
- (line 41)
-* property, BEAMER_COL: Sectioning Frames and Blocks in Beamer.
- (line 49)
-* property, BEAMER_ENV: Sectioning Frames and Blocks in Beamer.
- (line 14)
-* property, BEAMER_OPT: Sectioning Frames and Blocks in Beamer.
- (line 41)
-* property, BEAMER_REF: Sectioning Frames and Blocks in Beamer.
- (line 27)
-* property, CATEGORY: Property inheritance.
- (line 29)
-* property, CATEGORY <1>: Categories. (line 12)
-* property, CLOCK_MODELINE_TOTAL: Clocking commands. (line 20)
-* property, COLUMNS: Property inheritance.
- (line 22)
-* property, COLUMNS <1>: In-buffer settings. (line 24)
-* property, COOKIE_DATA: Breaking down tasks. (line 21)
-* property, COOKIE_DATA <1>: Checkboxes. (line 30)
-* property, COPYING: Texinfo title and copyright page.
- (line 19)
-* property, CUSTOM_ID: Internal links. (line 6)
-* property, CUSTOM_ID <1>: Handling links. (line 21)
-* property, DESCRIPTION: Headings and sectioning structure.
- (line 24)
-* property, DESCRIPTION <1>: iCalendar export. (line 49)
-* property, EFFORT: Effort estimates. (line 6)
-* property, EXPORT_FILE_NAME: ODT export commands. (line 7)
-* property, EXPORT_LATEX_CLASS: LaTeX header and sectioning.
- (line 23)
-* property, EXPORT_LATEX_CLASS_OPTIONS: LaTeX header and sectioning.
- (line 23)
-* property, ID: Handling links. (line 21)
-* property, ID <1>: Capturing column view.
- (line 22)
-* property, ID <2>: iCalendar export. (line 26)
-* property, INDEX: Indices. (line 14)
-* property, LAST_REPEAT: Clocking commands. (line 20)
-* property, LOCATION: iCalendar export. (line 49)
-* property, LOGGING: Tracking TODO state changes.
- (line 45)
-* property, LOGGING <1>: Property inheritance.
- (line 35)
-* property, LOG_INTO_DRAWER: Tracking TODO state changes.
- (line 6)
-* property, LOG_INTO_DRAWER <1>: Clocking commands. (line 7)
-* property, macro: Macro replacement. (line 48)
-* property, ORDERED: TODO dependencies. (line 6)
-* property, ORDERED <1>: TODO dependencies. (line 38)
-* property, ORDERED <2>: Checkboxes. (line 46)
-* property, ORDERED <3>: Checkboxes. (line 75)
-* property, special, ALLTAGS: Special properties. (line 13)
-* property, special, BLOCKED: Special properties. (line 13)
-* property, special, CLOCKSUM: Special properties. (line 13)
-* property, special, CLOCKSUM <1>: Agenda column view. (line 28)
-* property, special, CLOCKSUM_T: Special properties. (line 13)
-* property, special, CLOCKSUM_T <1>: Agenda column view. (line 51)
-* property, special, CLOSED: Special properties. (line 13)
-* property, special, DEADLINE: Special properties. (line 13)
-* property, special, FILE: Special properties. (line 13)
-* property, special, ITEM: Special properties. (line 13)
-* property, special, PRIORITY: Special properties. (line 13)
-* property, special, SCHEDULED: Special properties. (line 13)
-* property, special, TAGS: Special properties. (line 13)
-* property, special, TIMESTAMP: Special properties. (line 13)
-* property, special, TIMESTAMP_IA: Special properties. (line 13)
-* property, special, TODO: Special properties. (line 13)
-* property, SUMMARY: iCalendar export. (line 49)
-* property, TIMEZONE: iCalendar export. (line 49)
-* property, UNNUMBERED: Export settings. (line 149)
-* property, VISIBILITY: Initial visibility. (line 17)
-* property, _ALL: Property syntax. (line 44)
-* protocol, capture: capture protocol. (line 6)
-* protocol, new protocol: Protocols. (line 25)
-* protocol, open-source: open-source protocol.
- (line 6)
-* protocol, open-source rewritten URL: open-source protocol.
- (line 32)
-* protocol, open-source, :base-url property: open-source protocol.
- (line 13)
-* protocol, open-source, :online-suffix property: open-source protocol.
- (line 13)
-* protocol, open-source, :rewrites property: open-source protocol.
- (line 43)
-* protocol, open-source, :working-directory property: open-source protocol.
- (line 13)
-* protocol, open-source, :working-suffix property: open-source protocol.
- (line 13)
-* protocol, open-source, set-up mapping: open-source protocol.
- (line 67)
-* protocol, store-link: store-link protocol. (line 6)
-* protocols, for external access: Protocols. (line 6)
-* publishing: Publishing. (line 6)
-* query editing, in agenda: Filtering/limiting agenda items.
- (line 17)
-* quote blocks: Paragraphs. (line 26)
-* radio lists: Radio lists. (line 6)
-* radio tables: Radio tables. (line 6)
-* radio targets: Radio targets. (line 6)
-* range formula: Field and range formulas.
- (line 6)
-* range references: References. (line 63)
-* ranges, time: Timestamps. (line 6)
-* recomputing table fields: Updating the table. (line 6)
-* references: References. (line 6)
-* references, named: References. (line 108)
-* references, remote: References. (line 129)
-* references, to a different table: References. (line 129)
-* references, to fields: References. (line 15)
-* references, to ranges: References. (line 63)
-* refiling notes: Refile and copy. (line 6)
-* region, active: Structure editing. (line 116)
-* region, active <1>: Built-in table editor.
- (line 145)
-* region, active <2>: ODT export commands. (line 6)
-* regular expressions, with tags search: Matching tags and properties.
- (line 56)
-* relative timer: Timers. (line 6)
-* reminders: Weekly/daily agenda. (line 126)
-* remote editing, bulk, from agenda: Agenda commands. (line 308)
-* remote editing, from agenda: Agenda commands. (line 200)
-* remote editing, undo: Agenda commands. (line 201)
-* remote references: References. (line 129)
-* repeated tasks: Repeated tasks. (line 6)
-* report, of clocked time: The clock table. (line 6)
-* resolve idle time: Resolving idle time. (line 9)
-* revealing context: Global and local cycling.
- (line 37)
-* RMAIL links: External links. (line 6)
-* Rose, Sebastian: JavaScript support. (line 6)
-* row, of field coordinates: References. (line 86)
-* RSS feeds: RSS feeds. (line 6)
-* rsync: Uploading files. (line 6)
-* SCHEDULED keyword: Deadlines and scheduling.
- (line 32)
-* scheduling: Timestamps. (line 6)
-* Schulte, Eric: Working with source code.
- (line 6)
-* Scripts, for agenda processing: Extracting agenda information.
- (line 6)
-* search option in file links: Search options. (line 6)
-* search strings, custom: Custom searches. (line 6)
-* search view: Search view. (line 6)
-* searching for tags: Tag searches. (line 6)
-* searching, for text: Search view. (line 6)
-* searching, of properties: Property searches. (line 6)
-* sectioning structure, for LaTeX export: LaTeX header and sectioning.
- (line 6)
-* set startup visibility, command: Global and local cycling.
- (line 33)
-* set-up mappings in open-source protocol: open-source protocol.
- (line 67)
-* setting tags: Setting tags. (line 6)
-* SHELL links: External links. (line 6)
-* shift-selection-mode: Plain lists. (line 90)
-* shift-selection-mode <1>: Conflicts. (line 6)
-* show all, command: Global and local cycling.
- (line 35)
-* show all, global visibility state: Global and local cycling.
- (line 18)
-* show branches, command: Global and local cycling.
- (line 45)
-* show children, command: Global and local cycling.
- (line 48)
-* show hidden text: Visibility cycling. (line 6)
-* showall, STARTUP keyword: Initial visibility. (line 6)
-* showall, STARTUP keyword <1>: In-buffer settings. (line 65)
-* showeverything, STARTUP keyword: Initial visibility. (line 6)
-* showeverything, STARTUP keyword <1>: In-buffer settings. (line 65)
-* showstars, STARTUP keyword: In-buffer settings. (line 122)
-* shy hyphen, special symbol: Special symbols. (line 39)
-* sitemap, of published pages: Sitemap. (line 6)
-* sorting, of agenda items: Sorting agenda items.
- (line 6)
-* sorting, of plain list: Plain lists. (line 142)
-* sorting, of subtrees: Structure editing. (line 6)
-* source blocks, in LaTeX export: Source blocks in LaTeX export.
- (line 6)
-* source code, batch execution: Batch execution. (line 6)
-* source code, block header arguments: Header arguments. (line 6)
-* source code, block structure: Structure of code blocks.
- (line 6)
-* source code, editing: Editing source code. (line 6)
-* source code, evaluating: Evaluating code blocks.
- (line 6)
-* source code, exporting: Exporting code blocks.
- (line 6)
-* source code, extracting: Extracting source code.
- (line 6)
-* source code, inline: Structure of code blocks.
- (line 24)
-* source code, language: Structure of code blocks.
- (line 48)
-* source code, languages: Languages. (line 6)
-* source code, library: Library of Babel. (line 6)
-* source code, noweb reference: Noweb reference syntax.
- (line 6)
-* source code, results of evaluation: Results of evaluation.
- (line 6)
-* source code, switches: Structure of code blocks.
- (line 52)
-* source code, working with: Working with source code.
- (line 6)
-* sparse tree, for deadlines: Inserting deadline/schedule.
- (line 23)
-* sparse tree, for TODO: TODO basics. (line 41)
-* sparse tree, tag based: Tags. (line 6)
-* sparse trees: Sparse trees. (line 6)
-* special blocks, in ASCII export: ASCII/Latin-1/UTF-8 export.
- (line 77)
-* special blocks, in LaTeX export: Special blocks in LaTeX export.
- (line 6)
-* special keywords: In-buffer settings. (line 6)
-* special symbols: Special symbols. (line 6)
-* special symbols, in-buffer display: Special symbols. (line 31)
-* speed keys: Speed keys. (line 6)
-* speedbar.el: Cooperation. (line 30)
-* spreadsheet capabilities: The spreadsheet. (line 6)
-* square brackets, around links: External links. (line 68)
-* statistics, for checkboxes: Checkboxes. (line 30)
-* statistics, for TODO items: Breaking down tasks. (line 6)
-* store-link protocol: store-link protocol. (line 6)
-* storing links: Handling links. (line 10)
-* Storm, Kim. F.: Conflicts. (line 18)
-* strike-through text, markup rules: Emphasis and monospace.
- (line 6)
-* structure editing: Structure editing. (line 6)
-* structure of document: Document structure. (line 6)
-* styles, custom: Applying custom styles.
- (line 6)
-* styles, custom <1>: Working with OpenDocument style files.
- (line 6)
-* sublevels, inclusion into tags match: Tag inheritance. (line 6)
-* sublevels, inclusion into TODO list: Global TODO list. (line 34)
-* subscript: Subscripts and superscripts.
- (line 6)
-* SUBTITLE (ODT): ODT specific export settings.
- (line 26)
-* subtree cycling: Global and local cycling.
- (line 10)
-* subtree visibility states: Global and local cycling.
- (line 10)
-* subtree, cut and paste: Structure editing. (line 6)
-* subtree, subtree visibility state: Global and local cycling.
- (line 10)
-* subtrees, cut and paste: Structure editing. (line 6)
-* summary: Summary. (line 6)
-* superscript: Subscripts and superscripts.
- (line 6)
-* syntax checker: Org syntax. (line 24)
-* syntax, noweb: Noweb reference syntax.
- (line 6)
-* syntax, of formulas: Formula syntax for Calc.
- (line 6)
-* table editor, built-in: Built-in table editor.
- (line 6)
-* table editor, table.el: Cooperation. (line 36)
-* table lookup functions: Lookup functions. (line 6)
-* table of contents: Table of contents. (line 6)
-* table.el: Cooperation. (line 34)
-* table.el <1>: Cooperation. (line 36)
-* tables: Tables. (line 6)
-* tables, in HTML: Tables in HTML export.
- (line 6)
-* tables, in LaTeX export: Tables in LaTeX export.
- (line 6)
-* tables, in ODT export: Tables in ODT export.
- (line 6)
-* tables, in ODT export <1>: Customizing tables in ODT export.
- (line 6)
-* tables, in other modes: Tables in arbitrary syntax.
- (line 6)
-* tables, markup rules: Images and tables. (line 6)
-* tag completion: Completion. (line 6)
-* tag filtering, in agenda: Filtering/limiting agenda items.
- (line 17)
-* tag hierarchy: Tag hierarchy. (line 6)
-* tag inheritance: Tag inheritance. (line 6)
-* tag searches: Tag searches. (line 6)
-* tags: Tags. (line 6)
-* tags view: Matching tags and properties.
- (line 6)
-* tags, as an agenda view: Storing searches. (line 9)
-* tags, groups: Tag hierarchy. (line 6)
-* tags, setting: Setting tags. (line 6)
-* tags-todo: Storing searches. (line 9)
-* tags-tree: Storing searches. (line 9)
-* tangling: Extracting source code.
- (line 6)
-* targets, for links: Internal links. (line 6)
-* targets, radio: Radio targets. (line 6)
-* tasks, breaking down: Breaking down tasks. (line 6)
-* tasks, repeated: Repeated tasks. (line 6)
-* template insertion: Easy templates. (line 6)
-* template, custom: Applying custom styles.
- (line 6)
-* template, custom <1>: Working with OpenDocument style files.
- (line 6)
-* templates, for Capture: Capture templates. (line 6)
-* TeX interpretation: Embedded LaTeX. (line 6)
-* TeX symbol completion: Completion. (line 6)
-* Texinfo export: Texinfo export. (line 6)
-* Texinfo export, data type index: Indices. (line 6)
-* Texinfo export, dir file: Info directory file. (line 6)
-* Texinfo export, index, concept: Indices. (line 6)
-* Texinfo export, index, function: Indices. (line 6)
-* Texinfo export, Info directory file: Info directory file. (line 6)
-* Texinfo export, install-info parameters: Info directory file.
- (line 6)
-* Texinfo export, keystroke index: Indices. (line 6)
-* Texinfo export, program index: Indices. (line 6)
-* Texinfo export, Top node: Headings and sectioning structure.
- (line 37)
-* Texinfo export, variable index: Indices. (line 6)
-* text areas, in HTML: Text areas in HTML export.
- (line 6)
-* text search: Search view. (line 6)
-* thanks: History and acknowledgments.
- (line 5)
-* The Top node, in Texinfo export: Headings and sectioning structure.
- (line 37)
-* time clocking: Clocking work time. (line 6)
-* time format, custom: Custom time format. (line 6)
-* time grid: Time-of-day specifications.
- (line 29)
-* Time, computing: Durations and time values.
- (line 6)
-* time, macro: Macro replacement. (line 36)
-* time, reading in minibuffer: The date/time prompt.
- (line 6)
-* time-of-day specification: Time-of-day specifications.
- (line 6)
-* timerange: Timestamps. (line 42)
-* times: Dates and times. (line 6)
-* timestamp: Dates and times. (line 6)
-* timestamp <1>: Timestamps. (line 14)
-* timestamp, inactive: Timestamps. (line 50)
-* timestamp, with repeater interval: Timestamps. (line 25)
-* timestamps: Timestamps. (line 6)
-* timestamps, creating: Creating timestamps. (line 6)
-* title, macro: Macro replacement. (line 24)
-* TODO dependencies: TODO dependencies. (line 6)
-* TODO dependencies, NOBLOCKING: TODO dependencies. (line 6)
-* TODO items: TODO items. (line 6)
-* TODO keyword matching: Global TODO list. (line 17)
-* TODO keyword matching, with tags search: Matching tags and properties.
- (line 67)
-* TODO keyword sets: Multiple sets in one file.
- (line 6)
-* TODO keywords completion: Completion. (line 6)
-* TODO list, global: Global TODO list. (line 6)
-* TODO types: TODO types. (line 6)
-* TODO workflow: Workflow states. (line 6)
-* todo, as an agenda view: Storing searches. (line 9)
-* todo-tree: Storing searches. (line 9)
-* top headline filtering, in agenda: Filtering/limiting agenda items.
- (line 17)
-* transient mark mode: Structure editing. (line 116)
-* transient mark mode <1>: Built-in table editor.
- (line 145)
-* transient-mark-mode: ODT export commands. (line 6)
-* translator function: Translator functions.
- (line 6)
-* trees, sparse: Sparse trees. (line 6)
-* trees, visibility: Visibility cycling. (line 6)
-* tty key bindings: TTY keys. (line 6)
-* Two-column tables, in Texinfo export: Plain lists in Texinfo export.
- (line 6)
-* types as TODO keywords: TODO types. (line 6)
-* underlined text, markup rules: Emphasis and monospace.
- (line 6)
-* undoing remote-editing events: Agenda commands. (line 201)
-* unison: Uploading files. (line 6)
-* unoconv: Extending ODT export.
- (line 12)
-* updating, table: Updating the table. (line 6)
-* URL links: External links. (line 6)
-* USENET links: External links. (line 6)
-* UTF-8 export: ASCII/Latin-1/UTF-8 export.
- (line 6)
-* variable index, in Texinfo export: Indices. (line 6)
-* variables, for customization: Customization. (line 6)
-* vectors, in table calculations: Formula syntax for Calc.
- (line 11)
-* verbatim blocks, in LaTeX export: Example blocks in LaTeX export.
- (line 6)
-* verbatim text, markup rules: Emphasis and monospace.
- (line 6)
-* verse blocks: Paragraphs. (line 13)
-* viper.el: Conflicts. (line 93)
-* visibility cycling: Visibility cycling. (line 6)
-* visibility cycling, drawers: Drawers. (line 6)
-* visibility, initialize: Initial visibility. (line 6)
-* visible text, printing: Sparse trees. (line 49)
-* VM links: External links. (line 41)
-* WANDERLUST links: External links. (line 41)
-* weekly agenda: Weekly/daily agenda. (line 6)
-* windmove.el: Conflicts. (line 80)
-* workflow states as TODO keywords: Workflow states. (line 6)
-* yasnippet.el: Conflicts. (line 54)
-* zip: Pre-requisites for ODT export.
- (line 6)
-
-
-File: org, Node: Key Index, Next: Command and Function Index, Prev: Main Index, Up: Top
-
-Key index
-*********
-
-�[index�]
-* Menu:
-
-* $: Agenda commands. (line 226)
-* %: Agenda commands. (line 320)
-* ': CDLaTeX mode. (line 38)
-* *: Agenda commands. (line 310)
-* +: Agenda commands. (line 243)
-* ,: Agenda commands. (line 237)
-* -: Agenda commands. (line 247)
-* .: Agenda commands. (line 90)
-* /: Filtering/limiting agenda items.
- (line 17)
-* / <1>: Agenda commands. (line 176)
-* :: Agenda commands. (line 234)
-* ;: Timers. (line 6)
-* <: Using column view. (line 61)
-* < <1>: The date/time prompt.
- (line 82)
-* < <2>: Agenda files. (line 53)
-* < <3>: Filtering/limiting agenda items.
- (line 65)
-* < <4>: Agenda commands. (line 180)
-* =: Filtering/limiting agenda items.
- (line 80)
-* = <1>: Agenda commands. (line 188)
-* >: Using column view. (line 61)
-* > <1>: The date/time prompt.
- (line 82)
-* > <2>: Agenda files. (line 57)
-* > <3>: Agenda commands. (line 276)
-* ?: Pulling from MobileOrg.
- (line 26)
-* [: Filtering/limiting agenda items.
- (line 56)
-* [ <1>: Agenda commands. (line 109)
-* ]: Filtering/limiting agenda items.
- (line 56)
-* ^: Filtering/limiting agenda items.
- (line 76)
-* ^ <1>: Agenda commands. (line 184)
-* ^ <2>: CDLaTeX mode. (line 30)
-* _: Filtering/limiting agenda items.
- (line 91)
-* _ <1>: Agenda commands. (line 191)
-* _ <2>: CDLaTeX mode. (line 30)
-* `: CDLaTeX mode. (line 35)
-* {: Filtering/limiting agenda items.
- (line 56)
-* |: Filtering/limiting agenda items.
- (line 112)
-* | <1>: Agenda commands. (line 194)
-* }: Filtering/limiting agenda items.
- (line 56)
-* ~: Filtering/limiting agenda items.
- (line 151)
-* a: Using column view. (line 51)
-* A: Agenda commands. (line 61)
-* a <1>: Agenda commands. (line 217)
-* b: Agenda commands. (line 88)
-* B: Agenda commands. (line 322)
-* c: Agenda commands. (line 381)
-* c <1>: Agenda commands. (line 382)
-* C: Agenda commands. (line 410)
-* C-#: Advanced features. (line 10)
-* C-': Agenda files. (line 21)
-* C-,: Agenda files. (line 21)
-* C-0 C-c C-w: Refile and copy. (line 42)
-* C-c !: Creating timestamps. (line 15)
-* C-c #: Checkboxes. (line 80)
-* C-c $: Moving subtrees. (line 9)
-* C-c %: Handling links. (line 135)
-* C-c &: Handling links. (line 139)
-* C-c ': Footnotes. (line 81)
-* C-c ' <1>: Editing and debugging formulas.
- (line 32)
-* C-c ' <2>: Literal examples. (line 87)
-* C-c ' <3>: Include files. (line 59)
-* C-c ' <4>: Editing source code. (line 6)
-* C-c ' <5>: Cooperation. (line 44)
-* C-c *: Structure editing. (line 106)
-* C-c * <1>: Plain lists. (line 130)
-* C-c * <2>: Updating the table. (line 13)
-* C-c +: Built-in table editor.
- (line 145)
-* C-c ,: Priorities. (line 24)
-* C-c -: Plain lists. (line 119)
-* C-c - <1>: Built-in table editor.
- (line 94)
-* C-c .: Creating timestamps. (line 10)
-* C-c /: Sparse trees. (line 15)
-* C-c / <1>: Conflicts. (line 93)
-* C-c / /: Sparse trees. (line 17)
-* C-c / a: Inserting deadline/schedule.
- (line 29)
-* C-c / b: Inserting deadline/schedule.
- (line 27)
-* C-c / d: Inserting deadline/schedule.
- (line 21)
-* C-c / m: Tag searches. (line 9)
-* C-c / m <1>: Property searches. (line 10)
-* C-c / p: Property searches. (line 27)
-* C-c / r: Sparse trees. (line 17)
-* C-c / t: TODO basics. (line 39)
-* C-c ;: Comment lines. (line 19)
-* C-c <: Creating timestamps. (line 25)
-* C-c =: Column formulas. (line 32)
-* C-c = <1>: Editing and debugging formulas.
- (line 13)
-* C-c >: Creating timestamps. (line 28)
-* C-c ?: Editing and debugging formulas.
- (line 21)
-* C-c @: Structure editing. (line 54)
-* C-c a: Conventions. (line 33)
-* C-c a !: Stuck projects. (line 14)
-* C-c a #: Stuck projects. (line 13)
-* C-c a ?: Pulling from MobileOrg.
- (line 35)
-* C-c a a: Weekly/daily agenda. (line 9)
-* C-c a C: Storing searches. (line 9)
-* C-c a e: Exporting agenda views.
- (line 63)
-* C-c a m: Tag searches. (line 13)
-* C-c a M: Tag searches. (line 16)
-* C-c a m <1>: Property searches. (line 12)
-* C-c a M <1>: Property searches. (line 15)
-* C-c a m <2>: Matching tags and properties.
- (line 12)
-* C-c a M <2>: Matching tags and properties.
- (line 17)
-* C-c a s: Search view. (line 9)
-* C-c a t: TODO basics. (line 49)
-* C-c a t <1>: Global TODO list. (line 9)
-* C-c a T: Global TODO list. (line 15)
-* C-c c: Conventions. (line 33)
-* C-c c <1>: Using capture. (line 6)
-* C-c c C: Capture templates. (line 10)
-* C-c C-*: Plain lists. (line 134)
-* C-c C-a: Attachments. (line 26)
-* C-c C-a <1>: Agenda commands. (line 253)
-* C-c C-a a: Attachments. (line 31)
-* C-c C-a c: Attachments. (line 37)
-* C-c C-a d: Attachments. (line 66)
-* C-c C-a D: Attachments. (line 69)
-* C-c C-a f: Attachments. (line 60)
-* C-c C-a F: Attachments. (line 63)
-* C-c C-a i: Attachments. (line 78)
-* C-c C-a l: Attachments. (line 37)
-* C-c C-a m: Attachments. (line 37)
-* C-c C-a n: Attachments. (line 44)
-* C-c C-a o: Attachments. (line 51)
-* C-c C-a O: Attachments. (line 57)
-* C-c C-a s: Attachments. (line 73)
-* C-c C-a u: Attachments. (line 41)
-* C-c C-a z: Attachments. (line 47)
-* C-c C-b: Motion. (line 13)
-* C-c C-b <1>: Editing support. (line 11)
-* C-c C-c: Plain lists. (line 115)
-* C-c C-c <1>: Footnotes. (line 71)
-* C-c C-c <2>: Built-in table editor.
- (line 58)
-* C-c C-c <3>: Editing and debugging formulas.
- (line 41)
-* C-c C-c <4>: Editing and debugging formulas.
- (line 77)
-* C-c C-c <5>: Editing and debugging formulas.
- (line 84)
-* C-c C-c <6>: Checkboxes. (line 52)
-* C-c C-c <7>: Setting tags. (line 19)
-* C-c C-c <8>: Property syntax. (line 89)
-* C-c C-c <9>: Using column view. (line 46)
-* C-c C-c <10>: Capturing column view.
- (line 48)
-* C-c C-c <11>: Creating timestamps. (line 23)
-* C-c C-c <12>: Clocking commands. (line 48)
-* C-c C-c <13>: Clocking commands. (line 48)
-* C-c C-c <14>: The clock table. (line 16)
-* C-c C-c <15>: Using capture. (line 15)
-* C-c C-c <16>: Previewing LaTeX fragments.
- (line 23)
-* C-c C-c <17>: Evaluating code blocks.
- (line 20)
-* C-c C-c <18>: Key bindings and useful functions.
- (line 11)
-* C-c C-c <19>: The very busy C-c C-c key.
- (line 6)
-* C-c C-c <20>: Cooperation. (line 36)
-* C-c C-c c: Property syntax. (line 102)
-* C-c C-c d: Property syntax. (line 98)
-* C-c C-c D: Property syntax. (line 100)
-* C-c C-c s: Property syntax. (line 92)
-* C-c C-d: Inserting deadline/schedule.
- (line 9)
-* C-c C-d <1>: Agenda commands. (line 258)
-* C-c C-e: The export dispatcher.
- (line 15)
-* C-c C-e c a: iCalendar export. (line 40)
-* C-c C-e c c: iCalendar export. (line 43)
-* C-c C-e c f: iCalendar export. (line 38)
-* C-c C-e C-v: Sparse trees. (line 49)
-* C-c C-e h h: HTML Export commands.
- (line 6)
-* C-c C-e h H: HTML Export commands.
- (line 11)
-* C-c C-e i i: Texinfo export commands.
- (line 8)
-* C-c C-e i t: Texinfo export commands.
- (line 6)
-* C-c C-e l b: Beamer export commands.
- (line 6)
-* C-c C-e l B: Beamer export commands.
- (line 8)
-* C-c C-e l l: LaTeX export commands.
- (line 6)
-* C-c C-e l L: LaTeX export commands.
- (line 11)
-* C-c C-e l P: Beamer export commands.
- (line 10)
-* C-c C-e l p: LaTeX export commands.
- (line 12)
-* C-c C-e m m: Markdown export. (line 16)
-* C-c C-e m M: Markdown export. (line 18)
-* C-c C-e o o: ODT export commands. (line 6)
-* C-c C-e O o: Org export. (line 13)
-* C-c C-e O O: Org export. (line 17)
-* C-c C-e P a: Triggering publication.
- (line 14)
-* C-c C-e P f: Triggering publication.
- (line 12)
-* C-c C-e P p: Triggering publication.
- (line 10)
-* C-c C-e P x: Triggering publication.
- (line 8)
-* C-c C-e t a/l/u: ASCII/Latin-1/UTF-8 export.
- (line 23)
-* C-c C-e t A/L/U: ASCII/Latin-1/UTF-8 export.
- (line 27)
-* C-c C-f: Motion. (line 11)
-* C-c C-j: Motion. (line 17)
-* C-c C-k: Global and local cycling.
- (line 45)
-* C-c C-k <1>: Using capture. (line 31)
-* C-c C-l: Handling links. (line 64)
-* C-c C-n: Motion. (line 8)
-* C-c C-o: Footnotes. (line 75)
-* C-c C-o <1>: Handling links. (line 98)
-* C-c C-o <2>: Creating timestamps. (line 32)
-* C-c C-o <3>: Agenda commands. (line 53)
-* C-c C-o <4>: Key bindings and useful functions.
- (line 11)
-* C-c C-p: Motion. (line 9)
-* C-c C-q: Editing and debugging formulas.
- (line 44)
-* C-c C-q <1>: Setting tags. (line 10)
-* C-c C-r: Global and local cycling.
- (line 37)
-* C-c C-r <1>: Editing and debugging formulas.
- (line 45)
-* C-c C-s: Inserting deadline/schedule.
- (line 16)
-* C-c C-s <1>: Agenda commands. (line 255)
-* C-c C-t: TODO basics. (line 13)
-* C-c C-t <1>: Clocking commands. (line 61)
-* C-c C-u: Motion. (line 15)
-* C-c C-v a: Key bindings and useful functions.
- (line 37)
-* C-c C-v b: Key bindings and useful functions.
- (line 25)
-* C-c C-v c: Key bindings and useful functions.
- (line 30)
-* C-c C-v C-a: Key bindings and useful functions.
- (line 37)
-* C-c C-v C-b: Key bindings and useful functions.
- (line 25)
-* C-c C-v C-c: Key bindings and useful functions.
- (line 30)
-* C-c C-v C-d: Key bindings and useful functions.
- (line 27)
-* C-c C-v C-e: Key bindings and useful functions.
- (line 19)
-* C-c C-v C-f: Key bindings and useful functions.
- (line 29)
-* C-c C-v C-g: Key bindings and useful functions.
- (line 23)
-* C-c C-v C-h: Key bindings and useful functions.
- (line 37)
-* C-c C-v C-i: Key bindings and useful functions.
- (line 33)
-* C-c C-v C-I: Key bindings and useful functions.
- (line 34)
-* C-c C-v C-j: Key bindings and useful functions.
- (line 31)
-* C-c C-v C-l: Key bindings and useful functions.
- (line 32)
-* C-c C-v C-n: Key bindings and useful functions.
- (line 18)
-* C-c C-v C-o: Key bindings and useful functions.
- (line 20)
-* C-c C-v C-p: Key bindings and useful functions.
- (line 18)
-* C-c C-v C-r: Key bindings and useful functions.
- (line 24)
-* C-c C-v C-s: Key bindings and useful functions.
- (line 26)
-* C-c C-v C-t: Key bindings and useful functions.
- (line 28)
-* C-c C-v C-u: Key bindings and useful functions.
- (line 22)
-* C-c C-v C-v: Key bindings and useful functions.
- (line 21)
-* C-c C-v C-x: Key bindings and useful functions.
- (line 38)
-* C-c C-v C-z: Key bindings and useful functions.
- (line 35)
-* C-c C-v d: Key bindings and useful functions.
- (line 27)
-* C-c C-v e: Key bindings and useful functions.
- (line 19)
-* C-c C-v f: Key bindings and useful functions.
- (line 29)
-* C-c C-v g: Key bindings and useful functions.
- (line 23)
-* C-c C-v h: Key bindings and useful functions.
- (line 37)
-* C-c C-v i: Library of Babel. (line 12)
-* C-c C-v i <1>: Key bindings and useful functions.
- (line 33)
-* C-c C-v I: Key bindings and useful functions.
- (line 34)
-* C-c C-v j: Key bindings and useful functions.
- (line 31)
-* C-c C-v l: Key bindings and useful functions.
- (line 32)
-* C-c C-v n: Key bindings and useful functions.
- (line 18)
-* C-c C-v o: Key bindings and useful functions.
- (line 20)
-* C-c C-v p: Key bindings and useful functions.
- (line 18)
-* C-c C-v r: Key bindings and useful functions.
- (line 24)
-* C-c C-v s: Key bindings and useful functions.
- (line 26)
-* C-c C-v t: Extracting source code.
- (line 34)
-* C-c C-v t <1>: Key bindings and useful functions.
- (line 28)
-* C-c C-v u: Key bindings and useful functions.
- (line 22)
-* C-c C-v v: Key bindings and useful functions.
- (line 21)
-* C-c C-v x: Key bindings and useful functions.
- (line 38)
-* C-c C-v z: Key bindings and useful functions.
- (line 35)
-* C-c C-w: Structure editing. (line 86)
-* C-c C-w <1>: Using capture. (line 22)
-* C-c C-w <2>: Refile and copy. (line 14)
-* C-c C-w <3>: Agenda commands. (line 215)
-* C-c C-x ,: Timers. (line 41)
-* C-c C-x -: Timers. (line 34)
-* C-c C-x .: Timers. (line 30)
-* C-c C-x 0: Timers. (line 12)
-* C-c C-x ;: Timers. (line 20)
-* C-c C-x <: Agenda files. (line 39)
-* C-c C-x >: Agenda files. (line 46)
-* C-c C-x > <1>: Agenda commands. (line 166)
-* C-c C-x a: Internal archiving. (line 33)
-* C-c C-x A: Internal archiving. (line 44)
-* C-c C-x a <1>: Agenda commands. (line 221)
-* C-c C-x A <1>: Agenda commands. (line 223)
-* C-c C-x b: Global and local cycling.
- (line 51)
-* C-c C-x b <1>: Agenda commands. (line 45)
-* C-c C-x c: Structure editing. (line 79)
-* C-c C-x C-a: Archiving. (line 11)
-* C-c C-x C-a <1>: Agenda commands. (line 217)
-* C-c C-x C-b: Checkboxes. (line 56)
-* C-c C-x C-c: Using column view. (line 9)
-* C-c C-x C-c <1>: Agenda commands. (line 156)
-* C-c C-x C-c <2>: Agenda column view. (line 11)
-* C-c C-x C-d: Clocking commands. (line 71)
-* C-c C-x C-e: Clocking commands. (line 46)
-* C-c C-x C-e <1>: Effort estimates. (line 17)
-* C-c C-x C-i: Clocking commands. (line 6)
-* C-c C-x C-j: Clocking commands. (line 67)
-* C-c C-x C-l: Previewing LaTeX fragments.
- (line 17)
-* C-c C-x C-n: Handling links. (line 143)
-* C-c C-x C-o: Clocking commands. (line 34)
-* C-c C-x C-p: Handling links. (line 143)
-* C-c C-x C-q: Clocking commands. (line 64)
-* C-c C-x C-r: The clock table. (line 10)
-* C-c C-x C-s: Moving subtrees. (line 9)
-* C-c C-x C-s <1>: Agenda commands. (line 226)
-* C-c C-x C-t: Custom time format. (line 12)
-* C-c C-x C-u: Capturing column view.
- (line 48)
-* C-c C-x C-u <1>: The clock table. (line 16)
-* C-c C-x C-u <2>: Dynamic blocks. (line 21)
-* C-c C-x C-v: Handling links. (line 127)
-* C-c C-x C-w: Structure editing. (line 57)
-* C-c C-x C-w <1>: Built-in table editor.
- (line 122)
-* C-c C-x C-x: Clocking commands. (line 41)
-* C-c C-x C-y: Structure editing. (line 63)
-* C-c C-x C-y <1>: Built-in table editor.
- (line 126)
-* C-c C-x d: Drawers. (line 6)
-* C-c C-x e: Effort estimates. (line 14)
-* C-c C-x f: Footnotes. (line 39)
-* C-c C-x g: RSS feeds. (line 23)
-* C-c C-x G: RSS feeds. (line 26)
-* C-c C-x i: Capturing column view.
- (line 46)
-* C-c C-x M-w: Structure editing. (line 60)
-* C-c C-x M-w <1>: Built-in table editor.
- (line 118)
-* C-c C-x o: TODO dependencies. (line 37)
-* C-c C-x o <1>: Checkboxes. (line 73)
-* C-c C-x p: Property syntax. (line 82)
-* C-c C-x p <1>: Header arguments in Org mode properties.
- (line 31)
-* C-c C-x q: Tag hierarchy. (line 86)
-* C-c C-x v: Global and local cycling.
- (line 56)
-* C-c C-x \: Special symbols. (line 34)
-* C-c C-x \ <1>: Subscripts and superscripts.
- (line 20)
-* C-c C-x _: Timers. (line 43)
-* C-c C-y: Creating timestamps. (line 50)
-* C-c C-y <1>: Clocking commands. (line 48)
-* C-c C-y <2>: Clocking commands. (line 48)
-* C-c C-z: Drawers. (line 35)
-* C-c C-z <1>: Agenda commands. (line 249)
-* C-c l: Handling links. (line 9)
-* C-c l <1>: Literal examples. (line 95)
-* C-c M-w: Refile and copy. (line 12)
-* C-c <RET>: Built-in table editor.
- (line 97)
-* C-c <SPC>: Built-in table editor.
- (line 59)
-* C-c <TAB>: Global and local cycling.
- (line 48)
-* C-c [: Agenda files. (line 15)
-* C-c \: Tag searches. (line 9)
-* C-c \ <1>: Property searches. (line 10)
-* C-c ]: Agenda files. (line 19)
-* C-c ^: Structure editing. (line 89)
-* C-c ^ <1>: Plain lists. (line 142)
-* C-c ^ <2>: Built-in table editor.
- (line 100)
-* C-c `: Built-in table editor.
- (line 161)
-* C-c {: Editing and debugging formulas.
- (line 29)
-* C-c { <1>: CDLaTeX mode. (line 20)
-* C-c |: Built-in table editor.
- (line 41)
-* C-c | <1>: Built-in table editor.
- (line 177)
-* C-c }: Editing and debugging formulas.
- (line 24)
-* C-c } <1>: Editing and debugging formulas.
- (line 67)
-* C-c ~: Cooperation. (line 46)
-* C-k: Agenda commands. (line 210)
-* C-M-i: Completion. (line 38)
-* C-<RET>: Structure editing. (line 23)
-* C-S-LEFT: Multiple sets in one file.
- (line 25)
-* C-S-<LEFT>: Agenda commands. (line 209)
-* C-S-<RET>: Structure editing. (line 28)
-* C-S-RIGHT: Multiple sets in one file.
- (line 25)
-* C-S-<RIGHT>: Agenda commands. (line 207)
-* C-S-<up/down>: Clocking commands. (line 52)
-* C-<TAB>: Internal archiving. (line 42)
-* C-u C-c !: Creating timestamps. (line 17)
-* C-u C-c *: Updating the table. (line 16)
-* C-u C-c .: Creating timestamps. (line 17)
-* C-u C-c =: Field and range formulas.
- (line 27)
-* C-u C-c = <1>: Editing and debugging formulas.
- (line 13)
-* C-u C-c c: Using capture. (line 42)
-* C-u C-c C-c: Updating the table. (line 18)
-* C-u C-c C-l: Handling links. (line 85)
-* C-u C-c C-t: TODO basics. (line 28)
-* C-u C-c C-w: Refile and copy. (line 32)
-* C-u C-c C-x a: Internal archiving. (line 36)
-* C-u C-c C-x C-s: Moving subtrees. (line 11)
-* C-u C-c C-x C-u: Capturing column view.
- (line 50)
-* C-u C-c C-x C-u <1>: The clock table. (line 18)
-* C-u C-c C-x C-u <2>: Dynamic blocks. (line 22)
-* C-u C-u C-c *: Updating the table. (line 21)
-* C-u C-u C-c =: Editing and debugging formulas.
- (line 16)
-* C-u C-u C-c c: Using capture. (line 44)
-* C-u C-u C-c C-c: Updating the table. (line 21)
-* C-u C-u C-c C-t: Multiple sets in one file.
- (line 25)
-* C-u C-u C-c C-w: Refile and copy. (line 34)
-* C-u C-u C-c C-x C-s: Moving subtrees. (line 17)
-* C-u C-u C-u C-c C-t: TODO dependencies. (line 42)
-* C-u C-u C-u <TAB>: Global and local cycling.
- (line 35)
-* C-u C-u <TAB>: Global and local cycling.
- (line 33)
-* C-u C-u <TAB> <1>: Initial visibility. (line 21)
-* C-v: The date/time prompt.
- (line 82)
-* C-x C-s: Editing and debugging formulas.
- (line 41)
-* C-x C-s <1>: Agenda commands. (line 153)
-* C-x C-w: Agenda commands. (line 425)
-* C-x C-w <1>: Exporting agenda views.
- (line 12)
-* C-x n b: Structure editing. (line 102)
-* C-x n s: Structure editing. (line 100)
-* C-x n w: Structure editing. (line 104)
-* C-y: Structure editing. (line 68)
-* C-_: Agenda commands. (line 201)
-* d: Agenda commands. (line 65)
-* D: Agenda commands. (line 96)
-* e: Using column view. (line 41)
-* E: Agenda commands. (line 136)
-* F: Agenda commands. (line 39)
-* f: Agenda commands. (line 83)
-* g: Using column view. (line 23)
-* G: Agenda commands. (line 142)
-* g <1>: Agenda commands. (line 151)
-* H: Agenda commands. (line 413)
-* I: Agenda commands. (line 279)
-* i: Agenda commands. (line 385)
-* j: Agenda commands. (line 92)
-* J: Agenda commands. (line 94)
-* J <1>: Agenda commands. (line 286)
-* k: Agenda commands. (line 288)
-* L: Agenda commands. (line 33)
-* l: Agenda commands. (line 99)
-* m: Agenda commands. (line 308)
-* M: Agenda commands. (line 403)
-* M-*: Agenda commands. (line 318)
-* M-<down>: Agenda commands. (line 301)
-* M-<up>: Agenda commands. (line 297)
-* M-a: Built-in table editor.
- (line 70)
-* M-<DOWN>: Structure editing. (line 47)
-* M-DOWN: Plain lists. (line 93)
-* M-<DOWN> <1>: Built-in table editor.
- (line 86)
-* M-<DOWN> <2>: Editing and debugging formulas.
- (line 64)
-* M-DOWN <1>: Key bindings and useful functions.
- (line 13)
-* M-e: Built-in table editor.
- (line 73)
-* M-g M-n: Sparse trees. (line 28)
-* M-g M-p: Sparse trees. (line 30)
-* M-g n: Sparse trees. (line 28)
-* M-g p: Sparse trees. (line 30)
-* M-h: Structure editing. (line 49)
-* M-<LEFT>: Structure editing. (line 37)
-* M-LEFT: Plain lists. (line 98)
-* M-<LEFT> <1>: Built-in table editor.
- (line 80)
-* M-m: Agenda commands. (line 316)
-* M-<RET>: Structure editing. (line 6)
-* M-<RET> <1>: Plain lists. (line 77)
-* M-<RET> <2>: Built-in table editor.
- (line 131)
-* M-<RET> <3>: Timers. (line 38)
-* M-<RIGHT>: Structure editing. (line 39)
-* M-RIGHT: Plain lists. (line 98)
-* M-<RIGHT> <1>: Built-in table editor.
- (line 80)
-* M-S-<DOWN>: Built-in table editor.
- (line 91)
-* M-S-<DOWN> <1>: Editing and debugging formulas.
- (line 60)
-* M-S-DOWN: The date/time prompt.
- (line 82)
-* M-S-<LEFT>: Structure editing. (line 41)
-* M-S-LEFT: Plain lists. (line 102)
-* M-S-<LEFT> <1>: Built-in table editor.
- (line 82)
-* M-S-LEFT <1>: The date/time prompt.
- (line 82)
-* M-S-<RET>: Structure editing. (line 25)
-* M-S-RET: Plain lists. (line 86)
-* M-S-<RET> <1>: Checkboxes. (line 71)
-* M-S-<RIGHT>: Structure editing. (line 43)
-* M-S-RIGHT: Plain lists. (line 102)
-* M-S-<RIGHT> <1>: Built-in table editor.
- (line 84)
-* M-S-RIGHT <1>: The date/time prompt.
- (line 82)
-* M-S-<UP>: Built-in table editor.
- (line 89)
-* M-S-<UP> <1>: Editing and debugging formulas.
- (line 60)
-* M-S-UP: The date/time prompt.
- (line 82)
-* M-<TAB>: Editing and debugging formulas.
- (line 54)
-* M-TAB: Per-file keywords. (line 23)
-* M-TAB <1>: Setting tags. (line 6)
-* M-<TAB> <1>: Property syntax. (line 80)
-* M-TAB <2>: Completion. (line 15)
-* M-<UP>: Structure editing. (line 45)
-* M-UP: Plain lists. (line 93)
-* M-<UP> <1>: Built-in table editor.
- (line 86)
-* M-<UP> <2>: Editing and debugging formulas.
- (line 64)
-* M-UP <1>: Key bindings and useful functions.
- (line 12)
-* M-v: The date/time prompt.
- (line 82)
-* mouse-1: Footnotes. (line 75)
-* mouse-1 <1>: Handling links. (line 120)
-* mouse-1 <2>: The date/time prompt.
- (line 82)
-* mouse-2: Footnotes. (line 75)
-* mouse-2 <1>: Handling links. (line 120)
-* mouse-2 <2>: Agenda commands. (line 35)
-* mouse-3: Handling links. (line 124)
-* mouse-3 <1>: Agenda commands. (line 31)
-* n: Using column view. (line 38)
-* n <1>: Agenda commands. (line 19)
-* N: Agenda commands. (line 22)
-* o: Agenda commands. (line 63)
-* O: Agenda commands. (line 282)
-* p: Using column view. (line 38)
-* p <1>: Agenda commands. (line 20)
-* P: Agenda commands. (line 24)
-* P <1>: Agenda commands. (line 241)
-* q: Using column view. (line 25)
-* q <1>: Agenda commands. (line 439)
-* r: Using column view. (line 20)
-* r <1>: Global TODO list. (line 22)
-* R: Agenda commands. (line 118)
-* r <2>: Agenda commands. (line 145)
-* <RET>: Built-in table editor.
- (line 66)
-* <RET> <1>: Handling links. (line 118)
-* RET: Setting tags. (line 116)
-* RET <1>: The date/time prompt.
- (line 82)
-* <RET> <2>: Agenda commands. (line 37)
-* s: Agenda commands. (line 153)
-* S: Agenda commands. (line 406)
-* S-DOWN: Plain lists. (line 87)
-* S-DOWN <1>: Editing and debugging formulas.
- (line 56)
-* S-<DOWN>: Priorities. (line 28)
-* S-<DOWN> <1>: Creating timestamps. (line 39)
-* S-DOWN <2>: The date/time prompt.
- (line 82)
-* S-<DOWN> <2>: Agenda commands. (line 247)
-* S-LEFT: Plain lists. (line 138)
-* S-LEFT <1>: Editing and debugging formulas.
- (line 56)
-* S-LEFT <2>: TODO basics. (line 34)
-* S-LEFT <3>: Multiple sets in one file.
- (line 32)
-* S-<LEFT>: Property syntax. (line 95)
-* S-LEFT <4>: Using column view. (line 33)
-* S-<LEFT> <1>: Creating timestamps. (line 35)
-* S-LEFT <5>: The date/time prompt.
- (line 82)
-* S-<LEFT> <2>: The clock table. (line 21)
-* S-<LEFT> <3>: Agenda commands. (line 273)
-* S-M-<LEFT>: Using column view. (line 65)
-* S-M-<RET>: TODO basics. (line 56)
-* S-M-<RIGHT>: Using column view. (line 63)
-* S-M-<up/down>: Clocking commands. (line 55)
-* S-<RET>: Built-in table editor.
- (line 148)
-* S-RIGHT: Plain lists. (line 138)
-* S-RIGHT <1>: Editing and debugging formulas.
- (line 56)
-* S-RIGHT <2>: TODO basics. (line 34)
-* S-RIGHT <3>: Multiple sets in one file.
- (line 32)
-* S-<RIGHT>: Property syntax. (line 95)
-* S-RIGHT <4>: Using column view. (line 33)
-* S-<RIGHT> <1>: Creating timestamps. (line 35)
-* S-RIGHT <5>: The date/time prompt.
- (line 82)
-* S-<RIGHT> <2>: The clock table. (line 21)
-* S-<RIGHT> <3>: Agenda commands. (line 261)
-* S-<TAB>: Global and local cycling.
- (line 18)
-* S-<TAB> <1>: Built-in table editor.
- (line 64)
-* S-UP: Editing and debugging formulas.
- (line 56)
-* S-<UP>: Priorities. (line 28)
-* S-<UP> <1>: Creating timestamps. (line 39)
-* S-UP <1>: The date/time prompt.
- (line 82)
-* S-<UP> <2>: Agenda commands. (line 243)
-* SPC: Setting tags. (line 113)
-* <SPC>: Agenda commands. (line 31)
-* t: Agenda commands. (line 204)
-* T: Agenda commands. (line 230)
-* <TAB>: Global and local cycling.
- (line 10)
-* <TAB> <1>: Structure editing. (line 32)
-* <TAB> <2>: Plain lists. (line 66)
-* <TAB> <3>: Built-in table editor.
- (line 61)
-* <TAB> <4>: Editing and debugging formulas.
- (line 48)
-* TAB: Setting tags. (line 107)
-* <TAB> <5>: Agenda commands. (line 35)
-* TAB <1>: CDLaTeX mode. (line 21)
-* u: Agenda commands. (line 312)
-* U: Agenda commands. (line 314)
-* v: Using column view. (line 48)
-* v a: Agenda commands. (line 112)
-* v A: Agenda commands. (line 114)
-* v c: Agenda commands. (line 128)
-* v d: Agenda commands. (line 65)
-* v E: Agenda commands. (line 136)
-* v l: Agenda commands. (line 99)
-* v L: Agenda commands. (line 101)
-* v m: Agenda commands. (line 69)
-* v R: Agenda commands. (line 118)
-* v <SPC>: Agenda commands. (line 71)
-* v t: Agenda commands. (line 68)
-* v w: Agenda commands. (line 67)
-* v y: Agenda commands. (line 70)
-* v [: Agenda commands. (line 109)
-* w: Agenda commands. (line 67)
-* X: Agenda commands. (line 284)
-* x: Agenda commands. (line 440)
-* z: Agenda commands. (line 249)
-
-
-File: org, Node: Command and Function Index, Next: Variable Index, Prev: Key Index, Up: Top
-
-Command and function index
-**************************
-
-�[index�]
-* Menu:
-
-* lisp-complete-symbol: Editing and debugging formulas.
- (line 54)
-* next-error: Sparse trees. (line 28)
-* org-agenda: Activation. (line 6)
-* org-agenda <1>: Conventions. (line 33)
-* org-agenda-add-note: Agenda commands. (line 249)
-* org-agenda-archive: Agenda commands. (line 226)
-* org-agenda-archive-default-with-confirmation: Agenda commands.
- (line 217)
-* org-agenda-archive-to-archive-sibling: Agenda commands. (line 223)
-* org-agenda-archives-mode: Agenda commands. (line 112)
-* org-agenda-archives-mode 'files: Agenda commands. (line 114)
-* org-agenda-bulk-action: Agenda commands. (line 322)
-* org-agenda-bulk-mark: Agenda commands. (line 308)
-* org-agenda-bulk-mark-all: Agenda commands. (line 310)
-* org-agenda-bulk-mark-regexp: Agenda commands. (line 320)
-* org-agenda-bulk-remove-all-marks: Agenda commands. (line 314)
-* org-agenda-bulk-toggle: Agenda commands. (line 316)
-* org-agenda-bulk-toggle-all: Agenda commands. (line 318)
-* org-agenda-bulk-unmark: Agenda commands. (line 312)
-* org-agenda-capture: Agenda commands. (line 288)
-* org-agenda-clock-cancel: Agenda commands. (line 284)
-* org-agenda-clock-goto: Agenda commands. (line 94)
-* org-agenda-clock-goto <1>: Agenda commands. (line 286)
-* org-agenda-clock-in: Agenda commands. (line 279)
-* org-agenda-clock-out: Agenda commands. (line 282)
-* org-agenda-clockreport-mode: Agenda commands. (line 118)
-* org-agenda-columns: Agenda commands. (line 156)
-* org-agenda-columns <1>: Agenda column view. (line 11)
-* org-agenda-convert-date: Agenda commands. (line 410)
-* org-agenda-date-prompt: Agenda commands. (line 276)
-* org-agenda-day-view: Agenda commands. (line 65)
-* org-agenda-deadline: Agenda commands. (line 258)
-* org-agenda-diary-entry: Agenda commands. (line 385)
-* org-agenda-do-date-earlier: Agenda commands. (line 273)
-* org-agenda-do-date-later: Agenda commands. (line 261)
-* org-agenda-drag-line-backward: Agenda commands. (line 297)
-* org-agenda-drag-line-forward: Agenda commands. (line 301)
-* org-agenda-earlier: Agenda commands. (line 88)
-* org-agenda-entry-text-mode: Agenda commands. (line 136)
-* org-agenda-exit: Agenda commands. (line 440)
-* org-agenda-file-to-front: Agenda files. (line 15)
-* org-agenda-filter-by-category: Filtering/limiting agenda items.
- (line 65)
-* org-agenda-filter-by-category <1>: Agenda commands. (line 180)
-* org-agenda-filter-by-effort: Filtering/limiting agenda items.
- (line 91)
-* org-agenda-filter-by-effort <1>: Agenda commands. (line 191)
-* org-agenda-filter-by-regexp: Filtering/limiting agenda items.
- (line 80)
-* org-agenda-filter-by-regexp <1>: Agenda commands. (line 188)
-* org-agenda-filter-by-tag: Filtering/limiting agenda items.
- (line 17)
-* org-agenda-filter-by-tag <1>: Agenda commands. (line 176)
-* org-agenda-filter-by-top-headline: Filtering/limiting agenda items.
- (line 76)
-* org-agenda-filter-by-top-headline <1>: Agenda commands. (line 184)
-* org-agenda-filter-remove-all: Filtering/limiting agenda items.
- (line 112)
-* org-agenda-filter-remove-all <1>: Agenda commands. (line 194)
-* org-agenda-follow-mode: Agenda commands. (line 39)
-* org-agenda-fortnight-view: Agenda commands. (line 68)
-* org-agenda-goto: Agenda commands. (line 35)
-* org-agenda-goto-calendar: Agenda commands. (line 381)
-* org-agenda-goto-date: Agenda commands. (line 92)
-* org-agenda-goto-today: Agenda commands. (line 90)
-* org-agenda-holidays: Agenda commands. (line 413)
-* org-agenda-kill: Agenda commands. (line 210)
-* org-agenda-later: Agenda commands. (line 83)
-* org-agenda-limit-interactively: Filtering/limiting agenda items.
- (line 151)
-* org-agenda-list: Weekly/daily agenda. (line 9)
-* org-agenda-list-stuck-projects: Stuck projects. (line 13)
-* org-agenda-log-mode: Agenda commands. (line 99)
-* org-agenda-manipulate-query-add: Agenda commands. (line 109)
-* org-agenda-month-view: Agenda commands. (line 69)
-* org-agenda-next-item: Agenda commands. (line 22)
-* org-agenda-next-line: Agenda commands. (line 19)
-* org-agenda-open-link: Agenda commands. (line 53)
-* org-agenda-phases-of-moon: Agenda commands. (line 403)
-* org-agenda-previous-item: Agenda commands. (line 24)
-* org-agenda-previous-line: Agenda commands. (line 20)
-* org-agenda-priority-down: Agenda commands. (line 247)
-* org-agenda-priority-up: Agenda commands. (line 243)
-* org-agenda-quit: Agenda commands. (line 439)
-* org-agenda-recenter: Agenda commands. (line 33)
-* org-agenda-redo: Agenda commands. (line 145)
-* org-agenda-redo <1>: Agenda commands. (line 151)
-* org-agenda-refile: Agenda commands. (line 215)
-* org-agenda-remove-restriction-lock: Agenda files. (line 46)
-* org-agenda-remove-restriction-lock <1>: Agenda files. (line 57)
-* org-agenda-remove-restriction-lock <2>: Agenda commands. (line 166)
-* org-agenda-reset-view: Agenda commands. (line 71)
-* org-agenda-schedule: Agenda commands. (line 255)
-* org-agenda-set-restriction-lock: Agenda files. (line 39)
-* org-agenda-set-tags: Agenda commands. (line 234)
-* org-agenda-show-and-scroll-up: Agenda commands. (line 31)
-* org-agenda-show-priority: Agenda commands. (line 241)
-* org-agenda-show-tags: Agenda commands. (line 230)
-* org-agenda-sunrise-sunset: Agenda commands. (line 406)
-* org-agenda-switch-to: Agenda commands. (line 37)
-* org-agenda-todo: Agenda commands. (line 204)
-* org-agenda-todo-nextset: Agenda commands. (line 207)
-* org-agenda-todo-previousset: Agenda commands. (line 209)
-* org-agenda-toggle-archive-tag: Agenda commands. (line 221)
-* org-agenda-toggle-diary: Agenda commands. (line 96)
-* org-agenda-toggle-time-grid: Agenda commands. (line 142)
-* org-agenda-tree-to-indirect-buffer: Agenda commands. (line 45)
-* org-agenda-undo: Agenda commands. (line 201)
-* org-agenda-week-view: Agenda commands. (line 67)
-* org-agenda-write: Agenda commands. (line 425)
-* org-agenda-write <1>: Exporting agenda views.
- (line 12)
-* org-agenda-year-view: Agenda commands. (line 70)
-* org-archive-subtree: Moving subtrees. (line 9)
-* org-archive-subtree-default: Archiving. (line 11)
-* org-archive-to-archive-sibling: Internal archiving. (line 44)
-* org-ascii-export-as-ascii: ASCII/Latin-1/UTF-8 export.
- (line 27)
-* org-ascii-export-to-ascii: ASCII/Latin-1/UTF-8 export.
- (line 23)
-* org-attach: Attachments. (line 26)
-* org-attach <1>: Agenda commands. (line 253)
-* org-attach-attach: Attachments. (line 31)
-* org-attach-delete-all: Attachments. (line 69)
-* org-attach-delete-one: Attachments. (line 66)
-* org-attach-new: Attachments. (line 44)
-* org-attach-open: Attachments. (line 51)
-* org-attach-open-in-emacs: Attachments. (line 57)
-* org-attach-reveal: Attachments. (line 60)
-* org-attach-reveal-in-emacs: Attachments. (line 63)
-* org-attach-set-directory: Attachments. (line 73)
-* org-attach-set-inherit: Attachments. (line 78)
-* org-attach-sync: Attachments. (line 47)
-* org-attach-url: Attachments. (line 41)
-* org-backward-same-level: Motion. (line 13)
-* org-beamer-export-as-latex: Beamer export commands.
- (line 8)
-* org-beamer-export-to-latex: Beamer export commands.
- (line 6)
-* org-beamer-export-to-pdf: Beamer export commands.
- (line 10)
-* org-beamer-select-environment: Editing support. (line 11)
-* org-buffer-property-keys: Using the property API.
- (line 33)
-* org-calendar-goto-agenda: Agenda commands. (line 382)
-* org-capture: Activation. (line 6)
-* org-capture <1>: Conventions. (line 33)
-* org-capture <2>: Using capture. (line 6)
-* org-capture-finalize: Using capture. (line 15)
-* org-capture-kill: Using capture. (line 31)
-* org-capture-refile: Using capture. (line 22)
-* org-check-after-date: Inserting deadline/schedule.
- (line 29)
-* org-check-before-date: Inserting deadline/schedule.
- (line 27)
-* org-check-deadlines: Inserting deadline/schedule.
- (line 21)
-* org-clock-cancel: Clocking commands. (line 64)
-* org-clock-display: Clocking commands. (line 71)
-* org-clock-goto: Clocking commands. (line 67)
-* org-clock-in: Clocking commands. (line 6)
-* org-clock-in-last: Clocking commands. (line 41)
-* org-clock-modify-effort-estimate: Clocking commands. (line 46)
-* org-clock-modify-effort-estimate <1>: Effort estimates. (line 17)
-* org-clock-out: Clocking commands. (line 34)
-* org-clock-report: The clock table. (line 10)
-* org-clock-timestamps-up/down: Clocking commands. (line 52)
-* org-clocktable-try-shift: The clock table. (line 21)
-* org-clone-subtree-with-time-shift: Structure editing. (line 79)
-* org-columns: Using column view. (line 9)
-* org-columns-delete: Using column view. (line 65)
-* org-columns-edit-allowed: Using column view. (line 51)
-* org-columns-edit-value: Using column view. (line 41)
-* org-columns-narrow: Using column view. (line 61)
-* org-columns-new: Using column view. (line 63)
-* org-columns-next-allowed-value: Using column view. (line 38)
-* org-columns-previous-allowed-value: Using column view. (line 38)
-* org-columns-quit: Using column view. (line 25)
-* org-columns-redo: Using column view. (line 20)
-* org-columns-redo <1>: Using column view. (line 23)
-* org-columns-set-tags-or-toggle: Using column view. (line 46)
-* org-columns-show-value: Using column view. (line 48)
-* org-columns-widen: Using column view. (line 61)
-* org-compute-property-at-point: Property syntax. (line 102)
-* org-copy: Refile and copy. (line 12)
-* org-copy <1>: Refile and copy. (line 13)
-* org-copy-subtree: Structure editing. (line 60)
-* org-copy-visible: Global and local cycling.
- (line 56)
-* org-cut-subtree: Structure editing. (line 57)
-* org-cycle: Global and local cycling.
- (line 10)
-* org-cycle <1>: Structure editing. (line 32)
-* org-cycle <2>: Plain lists. (line 66)
-* org-cycle-agenda-files: Agenda files. (line 21)
-* org-date-from-calendar: Creating timestamps. (line 25)
-* org-dblock-update: Capturing column view.
- (line 48)
-* org-dblock-update <1>: The clock table. (line 16)
-* org-dblock-update <2>: Dynamic blocks. (line 21)
-* org-deadline: Inserting deadline/schedule.
- (line 9)
-* org-delete-property: Property syntax. (line 98)
-* org-delete-property-globally: Property syntax. (line 100)
-* org-demote: Using the mapping API.
- (line 76)
-* org-demote-subtree: Structure editing. (line 43)
-* org-do-demote: Structure editing. (line 39)
-* org-do-promote: Structure editing. (line 37)
-* org-edit-special: Cooperation. (line 44)
-* org-entities-help: Special symbols. (line 16)
-* org-entry-add-to-multivalued-property: Using the property API.
- (line 50)
-* org-entry-delete: Using the property API.
- (line 27)
-* org-entry-get: Using the property API.
- (line 18)
-* org-entry-get-multivalued-property: Using the property API.
- (line 45)
-* org-entry-member-in-multivalued-property: Using the property API.
- (line 61)
-* org-entry-properties: Using the property API.
- (line 8)
-* org-entry-put: Using the property API.
- (line 30)
-* org-entry-put-multivalued-property: Using the property API.
- (line 39)
-* org-entry-remove-from-multivalued-property: Using the property API.
- (line 55)
-* org-evaluate-time-range: Creating timestamps. (line 50)
-* org-evaluate-time-range <1>: Clocking commands. (line 48)
-* org-export-dispatch: The export dispatcher.
- (line 15)
-* org-feed-goto-inbox: RSS feeds. (line 26)
-* org-feed-update-all: RSS feeds. (line 23)
-* org-force-cycle-archived: Internal archiving. (line 42)
-* org-forward-same-level: Motion. (line 11)
-* org-global-cycle: Global and local cycling.
- (line 18)
-* org-goto: Motion. (line 17)
-* org-goto-calendar: Creating timestamps. (line 28)
-* org-html-export-as-html: HTML Export commands.
- (line 11)
-* org-html-export-to-html: HTML Export commands.
- (line 6)
-* org-icalendar-combine-agenda-files: iCalendar export. (line 43)
-* org-icalendar-export-agenda-files: iCalendar export. (line 40)
-* org-icalendar-export-to-ics: iCalendar export. (line 38)
-* org-insert-columns-dblock: Capturing column view.
- (line 46)
-* org-insert-heading: Plain lists. (line 77)
-* org-insert-heading <1>: Timers. (line 38)
-* org-insert-heading-respect-content: Structure editing. (line 23)
-* org-insert-link: Handling links. (line 64)
-* org-insert-property-drawer: Using the property API.
- (line 18)
-* org-insert-property-drawer <1>: Using the property API.
- (line 36)
-* org-insert-todo-heading: Structure editing. (line 25)
-* org-insert-todo-heading <1>: TODO basics. (line 56)
-* org-insert-todo-heading <2>: Checkboxes. (line 71)
-* org-insert-todo-heading-respect-content: Structure editing. (line 28)
-* org-latex-export-as-latex: LaTeX export commands.
- (line 11)
-* org-latex-export-to-latex: LaTeX export commands.
- (line 6)
-* org-latex-export-to-pdf: LaTeX export commands.
- (line 12)
-* org-lookup-all: Lookup functions. (line 20)
-* org-lookup-first: Lookup functions. (line 8)
-* org-lookup-last: Lookup functions. (line 17)
-* org-map-entries: Using the mapping API.
- (line 11)
-* org-mark-element: Structure editing. (line 49)
-* org-mark-ring-goto: Handling links. (line 139)
-* org-mark-ring-push: Handling links. (line 135)
-* org-mark-subtree: Structure editing. (line 54)
-* org-match-sparse-tree: Tag searches. (line 9)
-* org-match-sparse-tree <1>: Property searches. (line 10)
-* org-md-export-as-markdown: Markdown export. (line 18)
-* org-md-export-to-markdown: Markdown export. (line 16)
-* org-meta-return: Structure editing. (line 6)
-* org-move-subtree-down: Structure editing. (line 47)
-* org-move-subtree-up: Structure editing. (line 45)
-* org-narrow-to-block: Structure editing. (line 102)
-* org-narrow-to-subtree: Structure editing. (line 100)
-* org-next-link: Handling links. (line 143)
-* org-next-visible-heading: Motion. (line 8)
-* org-occur: Sparse trees. (line 17)
-* org-odt-export-to-odt: ODT export commands. (line 6)
-* org-open-at-point: Handling links. (line 98)
-* org-open-at-point <1>: Creating timestamps. (line 32)
-* org-org-export-as-org: Org export. (line 17)
-* org-org-export-to-org: Org export. (line 13)
-* org-paste-subtree: Structure editing. (line 63)
-* org-previous-link: Handling links. (line 143)
-* org-previous-visible-heading: Motion. (line 9)
-* org-priority: Priorities. (line 24)
-* org-priority <1>: Using the mapping API.
- (line 64)
-* org-priority-down: Priorities. (line 28)
-* org-priority-up: Priorities. (line 28)
-* org-promote: Using the mapping API.
- (line 73)
-* org-promote-subtree: Structure editing. (line 41)
-* org-property-action: Property syntax. (line 89)
-* org-property-next-allowed-value: Property syntax. (line 95)
-* org-property-previous-allowed-value: Property syntax. (line 95)
-* org-protocol-create: open-source protocol.
- (line 67)
-* org-protocol-create-for-org: open-source protocol.
- (line 67)
-* org-publish: Triggering publication.
- (line 8)
-* org-publish-all: Triggering publication.
- (line 14)
-* org-publish-current-file: Triggering publication.
- (line 12)
-* org-publish-current-project: Triggering publication.
- (line 10)
-* org-refile: Structure editing. (line 86)
-* org-refile <1>: Refile and copy. (line 14)
-* org-refile <2>: Refile and copy. (line 16)
-* org-refile-cache-clear: Refile and copy. (line 42)
-* org-refile-goto-last-stored: Refile and copy. (line 34)
-* org-remove-file: Agenda files. (line 19)
-* org-reveal: Global and local cycling.
- (line 37)
-* org-save-all-org-buffers: Agenda commands. (line 153)
-* org-schedule: Inserting deadline/schedule.
- (line 16)
-* org-search-view: Search view. (line 9)
-* org-set-effort: Effort estimates. (line 14)
-* org-set-property: Property syntax. (line 82)
-* org-set-property <1>: Property syntax. (line 92)
-* org-set-startup-visibility: Global and local cycling.
- (line 33)
-* org-set-startup-visibility <1>: Initial visibility. (line 21)
-* org-set-tags-command: Setting tags. (line 10)
-* org-set-tags-command <1>: Setting tags. (line 19)
-* org-show-todo-tree: TODO basics. (line 39)
-* org-sort: Structure editing. (line 89)
-* org-sparse-tree: Sparse trees. (line 15)
-* org-speed-command-help: Speed keys. (line 18)
-* org-speedbar-set-agenda-restriction: Agenda files. (line 53)
-* org-store-agenda-views: Exporting agenda views.
- (line 63)
-* org-store-link: Activation. (line 6)
-* org-store-link <1>: Handling links. (line 9)
-* org-switchb: Activation. (line 6)
-* org-table-align: Built-in table editor.
- (line 58)
-* org-table-beginning-of-field: Built-in table editor.
- (line 70)
-* org-table-blank-field: Built-in table editor.
- (line 59)
-* org-table-copy-down: Built-in table editor.
- (line 148)
-* org-table-copy-region: Built-in table editor.
- (line 118)
-* org-table-create-or-convert-from-region: Built-in table editor.
- (line 41)
-* org-table-create-or-convert-from-region <1>: Built-in table editor.
- (line 177)
-* org-table-create-with-table.el: Cooperation. (line 46)
-* org-table-cut-region: Built-in table editor.
- (line 122)
-* org-table-delete-column: Built-in table editor.
- (line 82)
-* org-table-edit-field: Built-in table editor.
- (line 161)
-* org-table-edit-formulas: Editing and debugging formulas.
- (line 32)
-* org-table-end-of-field: Built-in table editor.
- (line 73)
-* org-table-eval-formula: Field and range formulas.
- (line 27)
-* org-table-eval-formula <1>: Column formulas. (line 32)
-* org-table-eval-formula <2>: Editing and debugging formulas.
- (line 13)
-* org-table-eval-formula <3>: Editing and debugging formulas.
- (line 16)
-* org-table-export: Built-in table editor.
- (line 183)
-* org-table-fedit-abort: Editing and debugging formulas.
- (line 44)
-* org-table-fedit-finish: Editing and debugging formulas.
- (line 41)
-* org-table-fedit-line-down: Editing and debugging formulas.
- (line 60)
-* org-table-fedit-line-up: Editing and debugging formulas.
- (line 60)
-* org-table-fedit-lisp-indent: Editing and debugging formulas.
- (line 48)
-* org-table-fedit-ref-down: Editing and debugging formulas.
- (line 56)
-* org-table-fedit-ref-left: Editing and debugging formulas.
- (line 56)
-* org-table-fedit-ref-right: Editing and debugging formulas.
- (line 56)
-* org-table-fedit-ref-up: Editing and debugging formulas.
- (line 56)
-* org-table-fedit-scroll-down: Editing and debugging formulas.
- (line 64)
-* org-table-fedit-scroll-up: Editing and debugging formulas.
- (line 64)
-* org-table-fedit-toggle-ref-type: Editing and debugging formulas.
- (line 45)
-* org-table-field-info: Editing and debugging formulas.
- (line 21)
-* org-table-hline-and-move: Built-in table editor.
- (line 97)
-* org-table-insert-column: Built-in table editor.
- (line 84)
-* org-table-insert-hline: Built-in table editor.
- (line 94)
-* org-table-insert-row: Built-in table editor.
- (line 91)
-* org-table-iterate: Updating the table. (line 21)
-* org-table-iterate-buffer-tables: Updating the table. (line 29)
-* org-table-kill-row: Built-in table editor.
- (line 89)
-* org-table-move-column-left: Built-in table editor.
- (line 80)
-* org-table-move-column-right: Built-in table editor.
- (line 80)
-* org-table-move-row-down: Built-in table editor.
- (line 86)
-* org-table-move-row-up: Built-in table editor.
- (line 86)
-* org-table-next-field: Built-in table editor.
- (line 61)
-* org-table-next-row: Built-in table editor.
- (line 66)
-* org-table-paste-rectangle: Built-in table editor.
- (line 126)
-* org-table-previous-field: Built-in table editor.
- (line 64)
-* org-table-recalculate: Updating the table. (line 13)
-* org-table-recalculate-buffer-tables: Updating the table. (line 27)
-* org-table-rotate-recalc-marks: Advanced features. (line 10)
-* org-table-sort-lines: Built-in table editor.
- (line 100)
-* org-table-sum: Built-in table editor.
- (line 145)
-* org-table-toggle-coordinate-overlays: Editing and debugging formulas.
- (line 24)
-* org-table-toggle-coordinate-overlays <1>: Editing and debugging formulas.
- (line 67)
-* org-table-toggle-formula-debugger: Editing and debugging formulas.
- (line 29)
-* org-table-wrap-region: Built-in table editor.
- (line 131)
-* org-tags-view: Tag searches. (line 13)
-* org-tags-view <1>: Tag searches. (line 16)
-* org-tags-view <2>: Property searches. (line 12)
-* org-tags-view <3>: Property searches. (line 15)
-* org-tags-view <4>: Matching tags and properties.
- (line 12)
-* org-tags-view <5>: Matching tags and properties.
- (line 17)
-* org-texinfo-export-to-info: Texinfo export commands.
- (line 8)
-* org-texinfo-export-to-texinfo: Texinfo export commands.
- (line 6)
-* org-time-stamp: Creating timestamps. (line 10)
-* org-time-stamp-inactive: Creating timestamps. (line 15)
-* org-timer: Timers. (line 30)
-* org-timer-item: Timers. (line 34)
-* org-timer-pause-or-continue: Timers. (line 41)
-* org-timer-set-timer: Timers. (line 20)
-* org-timer-start: Timers. (line 12)
-* org-timer-stop: Timers. (line 43)
-* org-timestamp-down-day: Creating timestamps. (line 35)
-* org-timestamp-down-down: Creating timestamps. (line 39)
-* org-timestamp-up: Creating timestamps. (line 39)
-* org-timestamp-up-day: Creating timestamps. (line 35)
-* org-timestamp-up/down: Clocking commands. (line 55)
-* org-todo: TODO basics. (line 13)
-* org-todo <1>: Clocking commands. (line 61)
-* org-todo <2>: Using the mapping API.
- (line 60)
-* org-todo-list: TODO basics. (line 49)
-* org-todo-list <1>: Global TODO list. (line 9)
-* org-todo-list <2>: Global TODO list. (line 15)
-* org-toggle-archive-tag: Internal archiving. (line 33)
-* org-toggle-checkbox: Checkboxes. (line 52)
-* org-toggle-checkbox <1>: Checkboxes. (line 56)
-* org-toggle-heading: Structure editing. (line 106)
-* org-toggle-inline-images: Handling links. (line 127)
-* org-toggle-ordered-property: TODO dependencies. (line 37)
-* org-toggle-ordered-property <1>: Checkboxes. (line 73)
-* org-toggle-tag: Using the mapping API.
- (line 68)
-* org-toggle-time-stamp-overlays: Custom time format. (line 12)
-* org-tree-to-indirect-buffer: Global and local cycling.
- (line 51)
-* org-update-all-dblocks: Capturing column view.
- (line 50)
-* org-update-statistics-cookies: Checkboxes. (line 80)
-* org-yank: Structure editing. (line 68)
-* outline-show-all: Global and local cycling.
- (line 35)
-* outline-show-branches: Global and local cycling.
- (line 45)
-* outline-show-children: Global and local cycling.
- (line 48)
-* outline-up-heading: Motion. (line 15)
-* pcomplete: Property syntax. (line 80)
-* previous-error: Sparse trees. (line 30)
-* widen: Structure editing. (line 104)
-
-
-File: org, Node: Variable Index, Prev: Command and Function Index, Up: Top
-
-Variable index
-**************
-
-This is not a complete index of variables and faces, only the ones that
-are mentioned in the manual. For a complete list, use ‘M-x
-org-customize <RET>’.
-
-�[index�]
-* Menu:
-
-* cdlatex-simplify-sub-super-scripts: CDLaTeX mode. (line 30)
-* constants-unit-system: References. (line 115)
-* constants-unit-system <1>: In-buffer settings. (line 135)
-* htmlize-output-type: Exporting agenda views.
- (line 20)
-* LaTeX-verbatim-environments: A LaTeX example. (line 19)
-* org-adapt-indentation: Clean view. (line 52)
-* org-agenda-add-entry-text-maxlines: Exporting agenda views.
- (line 20)
-* org-agenda-bulk-custom-functions: Agenda commands. (line 308)
-* org-agenda-category-filter-preset: Filtering/limiting agenda items.
- (line 66)
-* org-agenda-clock-consistency-checks: Agenda commands. (line 130)
-* org-agenda-columns-add-appointments-to-effort-sum: Effort estimates.
- (line 40)
-* org-agenda-confirm-kill: Agenda commands. (line 212)
-* org-agenda-custom-commands: Sparse trees. (line 34)
-* org-agenda-custom-commands <1>: Storing searches. (line 9)
-* org-agenda-custom-commands <2>: Setting options. (line 6)
-* org-agenda-custom-commands <3>: Setting options. (line 31)
-* org-agenda-custom-commands <4>: Extracting agenda information.
- (line 6)
-* org-agenda-custom-commands-contexts: Setting options. (line 60)
-* org-agenda-diary-file: Agenda commands. (line 387)
-* org-agenda-dim-blocked-tasks: TODO dependencies. (line 46)
-* org-agenda-dim-blocked-tasks <1>: Speeding up your agendas.
- (line 13)
-* org-agenda-effort-filter-preset: Filtering/limiting agenda items.
- (line 92)
-* org-agenda-entry-text-maxlines: Agenda commands. (line 137)
-* org-agenda-exporter-settings: Agenda commands. (line 426)
-* org-agenda-exporter-settings <1>: Exporting agenda views.
- (line 13)
-* org-agenda-files: Agenda files. (line 6)
-* org-agenda-files <1>: Sorting agenda items.
- (line 8)
-* org-agenda-files <2>: iCalendar export. (line 42)
-* org-agenda-inhibit-startup: Initial visibility. (line 6)
-* org-agenda-inhibit-startup <1>: Speeding up your agendas.
- (line 15)
-* org-agenda-log-mode-items: Agenda commands. (line 101)
-* org-agenda-max-effort: Filtering/limiting agenda items.
- (line 118)
-* org-agenda-max-entries: Filtering/limiting agenda items.
- (line 118)
-* org-agenda-max-tags: Filtering/limiting agenda items.
- (line 118)
-* org-agenda-max-todos: Filtering/limiting agenda items.
- (line 118)
-* org-agenda-ndays: Weekly/daily agenda. (line 15)
-* org-agenda-overriding-header: Special agenda views.
- (line 38)
-* org-agenda-prefix-format: Presentation and sorting.
- (line 6)
-* org-agenda-regexp-filter-preset: Filtering/limiting agenda items.
- (line 81)
-* org-agenda-restore-windows-after-quit: Agenda views. (line 37)
-* org-agenda-search-headline-for-time: Time-of-day specifications.
- (line 14)
-* org-agenda-show-inherited-tags: Agenda commands. (line 232)
-* org-agenda-show-inherited-tags <1>: Speeding up your agendas.
- (line 17)
-* org-agenda-skip-archived-trees: Internal archiving. (line 20)
-* org-agenda-skip-archived-trees <1>: Agenda views. (line 32)
-* org-agenda-skip-comment-trees: Agenda views. (line 32)
-* org-agenda-skip-deadline-prewarning-if-scheduled: Deadlines and scheduling.
- (line 15)
-* org-agenda-skip-function: Special agenda views.
- (line 6)
-* org-agenda-skip-function <1>: Special agenda views.
- (line 41)
-* org-agenda-skip-function <2>: Using the mapping API.
- (line 48)
-* org-agenda-skip-function-global: Special agenda views.
- (line 6)
-* org-agenda-skip-scheduled-delay-if-deadline: Deadlines and scheduling.
- (line 44)
-* org-agenda-skip-scheduled-if-deadline-is-shown: Repeated tasks.
- (line 72)
-* org-agenda-skip-scheduled-if-done: Deadlines and scheduling.
- (line 36)
-* org-agenda-sorting-strategy: Sorting agenda items.
- (line 25)
-* org-agenda-span: Weekly/daily agenda. (line 15)
-* org-agenda-span <1>: Agenda commands. (line 72)
-* org-agenda-start-day: Weekly/daily agenda. (line 15)
-* org-agenda-start-on-weekday: Weekly/daily agenda. (line 15)
-* org-agenda-start-with-clockreport-mode: Agenda commands. (line 120)
-* org-agenda-start-with-entry-text-mode: Agenda commands. (line 137)
-* org-agenda-start-with-follow-mode: Agenda commands. (line 41)
-* org-agenda-sticky: Agenda dispatcher. (line 43)
-* org-agenda-tag-filter-preset: Filtering/limiting agenda items.
- (line 18)
-* org-agenda-tags-column: Presentation and sorting.
- (line 6)
-* org-agenda-tags-todo-honor-ignore-options: Matching tags and properties.
- (line 19)
-* org-agenda-text-search-extra-files: Agenda dispatcher. (line 25)
-* org-agenda-text-search-extra-files <1>: Search view. (line 24)
-* org-agenda-time-grid: Time-of-day specifications.
- (line 44)
-* org-agenda-time-grid <1>: Agenda commands. (line 144)
-* org-agenda-todo-ignore-deadlines: Global TODO list. (line 37)
-* org-agenda-todo-ignore-scheduled: Global TODO list. (line 37)
-* org-agenda-todo-ignore-timestamp: Global TODO list. (line 37)
-* org-agenda-todo-ignore-with-date: Global TODO list. (line 37)
-* org-agenda-todo-list-sublevels: Breaking down tasks. (line 6)
-* org-agenda-todo-list-sublevels <1>: Global TODO list. (line 45)
-* org-agenda-use-tag-inheritance: Tag inheritance. (line 32)
-* org-agenda-use-tag-inheritance <1>: Speeding up your agendas.
- (line 17)
-* org-agenda-use-time-grid: Time-of-day specifications.
- (line 44)
-* org-agenda-use-time-grid <1>: Agenda commands. (line 144)
-* org-agenda-window-setup: Agenda views. (line 37)
-* org-archive-default-command: Archiving. (line 12)
-* org-archive-default-command <1>: Agenda commands. (line 219)
-* org-archive-location: Moving subtrees. (line 10)
-* org-archive-location <1>: In-buffer settings. (line 14)
-* org-archive-save-context-info: Moving subtrees. (line 39)
-* org-ascii-links-to-notes: ASCII/Latin-1/UTF-8 export.
- (line 16)
-* org-ascii-text-width: ASCII/Latin-1/UTF-8 export.
- (line 13)
-* org-attach-directory: Attachments. (line 6)
-* org-attach-method: Attachments. (line 32)
-* org-babel-default-header-args: System-wide header arguments.
- (line 6)
-* org-babel-default-header-args <1>: Header arguments in Org mode properties.
- (line 31)
-* org-babel-load-languages: Languages. (line 35)
-* org-beamer-environments-default: Sectioning Frames and Blocks in Beamer.
- (line 21)
-* org-beamer-environments-extra: Sectioning Frames and Blocks in Beamer.
- (line 21)
-* org-beamer-frame-level: Sectioning Frames and Blocks in Beamer.
- (line 10)
-* org-beamer-subtitle-format: Beamer specific export settings.
- (line 44)
-* org-beamer-theme: Beamer specific export settings.
- (line 11)
-* org-calc-default-modes: Formula syntax for Calc.
- (line 14)
-* org-capture-bookmark: Using capture. (line 48)
-* org-capture-templates: Capture templates. (line 11)
-* org-capture-templates-contexts: Templates in contexts.
- (line 6)
-* org-capture-use-agenda-date: Agenda commands. (line 292)
-* org-catch-invisible-edits: Catching invisible edits.
- (line 6)
-* org-checkbox-hierarchical-statistics: Checkboxes. (line 30)
-* org-clock-continuously: Clocking commands. (line 7)
-* org-clock-continuously <1>: Clocking commands. (line 43)
-* org-clock-continuously <2>: Resolving idle time. (line 74)
-* org-clock-idle-time: Resolving idle time. (line 14)
-* org-clock-into-drawer: Clocking commands. (line 7)
-* org-clock-modeline-total: Clocking commands. (line 20)
-* org-clock-report-include-clocking-task: Agenda commands. (line 120)
-* org-clock-x11idle-program-name: Resolving idle time. (line 9)
-* org-clocktable-defaults: The clock table. (line 34)
-* org-closed-keep-when-no-todo: Closing items. (line 11)
-* org-coderef-label-format: Literal examples. (line 75)
-* org-columns-default-format: Using column view. (line 10)
-* org-columns-default-format <1>: Effort estimates. (line 30)
-* org-columns-default-format <2>: Agenda commands. (line 158)
-* org-columns-default-format <3>: Agenda column view. (line 18)
-* org-columns-skip-archived-trees: Internal archiving. (line 28)
-* org-columns-summary-types: Column attributes. (line 64)
-* org-confirm-babel-evaluate: Code evaluation security.
- (line 25)
-* org-confirm-elisp-link-function: Code evaluation security.
- (line 51)
-* org-confirm-shell-link-function: Code evaluation security.
- (line 49)
-* org-create-file-search-functions: Custom searches. (line 12)
-* org-ctrl-c-ctrl-c-hook: Context-sensitive commands.
- (line 6)
-* org-ctrl-k-protect-subtree: Headlines. (line 6)
-* org-cycle-emulate-tab: Global and local cycling.
- (line 16)
-* org-cycle-global-at-bob: Global and local cycling.
- (line 29)
-* org-cycle-include-plain-lists: Plain lists. (line 67)
-* org-cycle-open-archived-trees: Internal archiving. (line 12)
-* org-cycle-separator-lines: Headlines. (line 26)
-* org-deadline-warning-days: Deadlines and scheduling.
- (line 15)
-* org-deadline-warning-days <1>: Inserting deadline/schedule.
- (line 23)
-* org-default-notes-file: Setting up capture. (line 9)
-* org-default-notes-file <1>: Template elements. (line 45)
-* org-default-priority: Priorities. (line 36)
-* org-default-priority <1>: In-buffer settings. (line 39)
-* org-display-custom-times: Custom time format. (line 6)
-* org-display-internal-link-with-indirect-buffer: Handling links.
- (line 126)
-* org-disputed-keys: Conflicts. (line 28)
-* org-done (face): Faces for TODO keywords.
- (line 6)
-* org-edit-footnote-reference: Footnotes. (line 81)
-* org-edit-src-auto-save-idle-delay: Editing source code. (line 6)
-* org-edit-src-turn-on-auto-save: Editing source code. (line 6)
-* org-emphasis-alist: Emphasis and monospace.
- (line 6)
-* org-emphasis-regexp-components: Emphasis and monospace.
- (line 6)
-* org-enforce-todo-dependencies: TODO dependencies. (line 6)
-* org-enforce-todo-dependencies <1>: TODO dependencies. (line 51)
-* org-entities-user: Special symbols. (line 16)
-* org-execute-file-search-functions: Custom searches. (line 12)
-* org-export-allow-bind-keywords: Export settings. (line 210)
-* org-export-async-init-file: The export dispatcher.
- (line 28)
-* org-export-backends: Exporting. (line 33)
-* org-export-backends <1>: Other built-in back-ends.
- (line 6)
-* org-export-before-parsing-hook: Advanced configuration.
- (line 9)
-* org-export-before-processing-hook: Advanced configuration.
- (line 9)
-* org-export-creator-string: Export settings. (line 28)
-* org-export-creator-string <1>: HTML preamble and postamble.
- (line 6)
-* org-export-date-timestamp-format: Export settings. (line 32)
-* org-export-default-language: Export settings. (line 38)
-* org-export-dispatch-use-expert-ui: The export dispatcher.
- (line 6)
-* org-export-exclude-tags: Export settings. (line 52)
-* org-export-global-macros: Macro replacement. (line 6)
-* org-export-headline-levels: Export settings. (line 141)
-* org-export-in-background: The export dispatcher.
- (line 39)
-* org-export-initial-scope: The export dispatcher.
- (line 48)
-* org-export-preserve-breaks: Export settings. (line 93)
-* org-export-select-tags: Export settings. (line 44)
-* org-export-time-stamp-file: Export settings. (line 186)
-* org-export-time-stamp-file <1>: HTML preamble and postamble.
- (line 6)
-* org-export-use-babel: Exporting code blocks.
- (line 33)
-* org-export-with-archived-trees: Internal archiving. (line 25)
-* org-export-with-archived-trees <1>: Export settings. (line 102)
-* org-export-with-author: Export settings. (line 107)
-* org-export-with-broken-links: Export settings. (line 111)
-* org-export-with-clocks: Export settings. (line 116)
-* org-export-with-creator: Export settings. (line 119)
-* org-export-with-date: Export settings. (line 127)
-* org-export-with-drawers: Drawers. (line 38)
-* org-export-with-drawers <1>: Export settings. (line 123)
-* org-export-with-email: Export settings. (line 134)
-* org-export-with-entities: Export settings. (line 131)
-* org-export-with-fixed-width: Export settings. (line 86)
-* org-export-with-footnotes: Export settings. (line 138)
-* org-export-with-inlinetasks: Export settings. (line 146)
-* org-export-with-latex: LaTeX fragments. (line 37)
-* org-export-with-latex <1>: Export settings. (line 182)
-* org-export-with-planning: Export settings. (line 156)
-* org-export-with-priority: Export settings. (line 162)
-* org-export-with-properties: Drawers. (line 38)
-* org-export-with-properties <1>: Export settings. (line 165)
-* org-export-with-section-numbers: Export settings. (line 149)
-* org-export-with-smart-quotes: Export settings. (line 73)
-* org-export-with-special-strings: Export settings. (line 82)
-* org-export-with-statistics-cookies: Export settings. (line 169)
-* org-export-with-sub-superscripts: Export settings. (line 97)
-* org-export-with-tables: Export settings. (line 201)
-* org-export-with-tags: Export settings. (line 173)
-* org-export-with-tasks: Export settings. (line 177)
-* org-export-with-timestamps: Export settings. (line 89)
-* org-export-with-title: Export settings. (line 190)
-* org-export-with-toc: Export settings. (line 193)
-* org-export-with-toc <1>: Table of contents. (line 6)
-* org-export-with-todo-keywords: Export settings. (line 197)
-* org-fast-tag-selection-include-todo: Fast access to TODO states.
- (line 16)
-* org-fast-tag-selection-single-key: Setting tags. (line 142)
-* org-file-apps: Handling links. (line 100)
-* org-file-apps <1>: Attachments. (line 52)
-* org-fontify-emphasized-text: Emphasis and monospace.
- (line 6)
-* org-footnote-auto-adjust: Footnotes. (line 45)
-* org-footnote-auto-adjust <1>: In-buffer settings. (line 140)
-* org-footnote-auto-label: Footnotes. (line 32)
-* org-footnote-auto-label <1>: In-buffer settings. (line 140)
-* org-footnote-define-inline: Footnotes. (line 45)
-* org-footnote-define-inline <1>: In-buffer settings. (line 140)
-* org-footnote-section: Headlines. (line 18)
-* org-footnote-section <1>: Footnotes. (line 45)
-* org-format-latex-header: LaTeX fragments. (line 6)
-* org-format-latex-header <1>: Previewing LaTeX fragments.
- (line 12)
-* org-format-latex-options: Previewing LaTeX fragments.
- (line 12)
-* org-from-is-user-regexp: Template expansion. (line 49)
-* org-global-properties: Property syntax. (line 75)
-* org-global-properties <1>: Effort estimates. (line 30)
-* org-goto-auto-isearch: Motion. (line 21)
-* org-goto-interface: Motion. (line 32)
-* org-group-tags: Tag hierarchy. (line 86)
-* org-hide (face): Clean view. (line 70)
-* org-hide-block-startup: Blocks. (line 6)
-* org-hide-leading-stars: In-buffer settings. (line 119)
-* org-hide-leading-stars <1>: Clean view. (line 55)
-* org-hierarchical-todo-statistics: Breaking down tasks. (line 25)
-* org-highest-priority: Priorities. (line 36)
-* org-highest-priority <1>: In-buffer settings. (line 39)
-* org-html-container-element: HTML Specific export settings.
- (line 19)
-* org-html-doctype: HTML Specific export settings.
- (line 16)
-* org-html-doctype <1>: HTML doctypes. (line 8)
-* org-html-doctype-alist: HTML doctypes. (line 8)
-* org-html-head: HTML Specific export settings.
- (line 35)
-* org-html-head <1>: CSS support. (line 43)
-* org-html-head-extra: HTML Specific export settings.
- (line 39)
-* org-html-head-extra <1>: CSS support. (line 43)
-* org-html-head-include-default-style: CSS support. (line 43)
-* org-html-html5-elements: HTML doctypes. (line 58)
-* org-html-html5-fancy: HTML doctypes. (line 25)
-* org-html-infojs-options: JavaScript support. (line 51)
-* org-html-inline-images: Images in HTML export.
- (line 6)
-* org-html-link-home: HTML Specific export settings.
- (line 23)
-* org-html-link-org-files-as-html: Links in HTML export.
- (line 6)
-* org-html-link-up: HTML Specific export settings.
- (line 26)
-* org-html-mathjax-options: HTML Specific export settings.
- (line 30)
-* org-html-postamble: HTML preamble and postamble.
- (line 6)
-* org-html-postamble-format: HTML preamble and postamble.
- (line 6)
-* org-html-preamble: HTML preamble and postamble.
- (line 6)
-* org-html-preamble-format: HTML preamble and postamble.
- (line 6)
-* org-html-style-default: CSS support. (line 43)
-* org-html-table-align-individual-fields: Tables in HTML export.
- (line 19)
-* org-html-table-caption-above: Tables in HTML export.
- (line 23)
-* org-html-table-data-tags: Tables in HTML export.
- (line 26)
-* org-html-table-default-attributes: Tables in HTML export.
- (line 6)
-* org-html-table-default-attributes <1>: Tables in HTML export.
- (line 29)
-* org-html-table-header-tags: Tables in HTML export.
- (line 32)
-* org-html-table-row-tags: Tables in HTML export.
- (line 35)
-* org-html-table-use-header-tags-for-first-column: Tables in HTML export.
- (line 38)
-* org-html-tag-class-prefix: CSS support. (line 6)
-* org-html-todo-kwd-class-prefix: CSS support. (line 6)
-* org-html-use-infojs: JavaScript support. (line 51)
-* org-html-validation-link: HTML preamble and postamble.
- (line 6)
-* org-icalendar-alarm-time: iCalendar export. (line 6)
-* org-icalendar-categories: iCalendar export. (line 6)
-* org-icalendar-combined-agenda-file: iCalendar export. (line 45)
-* org-icalendar-include-body: iCalendar export. (line 49)
-* org-icalendar-include-todo: iCalendar export. (line 6)
-* org-icalendar-store-UID: iCalendar export. (line 26)
-* org-icalendar-use-deadline: iCalendar export. (line 6)
-* org-icalendar-use-scheduled: iCalendar export. (line 6)
-* org-id-link-to-org-use-id: Handling links. (line 21)
-* org-imenu-depth: Cooperation. (line 27)
-* org-insert-mode-line-in-empty-file: Activation. (line 27)
-* org-irc-link-to-logs: Handling links. (line 45)
-* org-keep-stored-link-after-insertion: Handling links. (line 65)
-* org-latex-bibtex-compiler: LaTeX export commands.
- (line 19)
-* org-latex-classes: LaTeX specific export settings.
- (line 20)
-* org-latex-classes <1>: LaTeX specific export settings.
- (line 36)
-* org-latex-classes <2>: LaTeX specific export settings.
- (line 41)
-* org-latex-classes <3>: LaTeX header and sectioning.
- (line 13)
-* org-latex-compiler: LaTeX export commands.
- (line 19)
-* org-latex-compiler <1>: LaTeX specific export settings.
- (line 32)
-* org-latex-default-class: LaTeX specific export settings.
- (line 20)
-* org-latex-default-class <1>: LaTeX header and sectioning.
- (line 13)
-* org-latex-default-packages-alist: LaTeX export commands.
- (line 19)
-* org-latex-default-packages-alist <1>: LaTeX header and sectioning.
- (line 13)
-* org-latex-default-table-environment: Tables in LaTeX export.
- (line 21)
-* org-latex-default-table-mode: Tables in LaTeX export.
- (line 11)
-* org-latex-images-centered: Images in LaTeX export.
- (line 46)
-* org-latex-listings: Literal examples. (line 23)
-* org-latex-listings-options: Source blocks in LaTeX export.
- (line 21)
-* org-latex-minted-options: Source blocks in LaTeX export.
- (line 21)
-* org-latex-packages-alist: LaTeX header and sectioning.
- (line 13)
-* org-latex-subtitle-format: LaTeX specific export settings.
- (line 55)
-* org-latex-subtitle-separate: LaTeX specific export settings.
- (line 55)
-* org-latex-tables-booktabs: Tables in LaTeX export.
- (line 58)
-* org-latex-tables-centered: Tables in LaTeX export.
- (line 58)
-* org-latex-to-mathml-convert-command: Working with LaTeX math snippets.
- (line 21)
-* org-latex-to-mathml-jar-file: Working with LaTeX math snippets.
- (line 21)
-* org-link-abbrev-alist: Link abbreviations. (line 12)
-* org-link-abbrev-alist <1>: In-buffer settings. (line 35)
-* org-link-frame-setup: Handling links. (line 100)
-* org-link-parameters: Handling links. (line 65)
-* org-list-allow-alphabetical: Plain lists. (line 13)
-* org-list-automatic-rules: Plain lists. (line 60)
-* org-list-automatic-rules <1>: Plain lists. (line 79)
-* org-list-automatic-rules <2>: Checkboxes. (line 6)
-* org-list-demote-modify-bullet: Plain lists. (line 54)
-* org-list-indent-offset: Plain lists. (line 54)
-* org-list-use-circular-motion: Plain lists. (line 90)
-* org-log-done: Tracking TODO state changes.
- (line 29)
-* org-log-done <1>: Agenda commands. (line 101)
-* org-log-done <2>: In-buffer settings. (line 94)
-* org-log-into-drawer: Tracking TODO state changes.
- (line 6)
-* org-log-into-drawer <1>: Agenda commands. (line 251)
-* org-log-note-clock-out: Clocking commands. (line 36)
-* org-log-note-clock-out <1>: In-buffer settings. (line 94)
-* org-log-refile: Refile and copy. (line 16)
-* org-log-repeat: Repeated tasks. (line 37)
-* org-log-repeat <1>: In-buffer settings. (line 94)
-* org-log-states-order-reversed: Tracking TODO state changes.
- (line 6)
-* org-lowest-priority: Priorities. (line 36)
-* org-lowest-priority <1>: In-buffer settings. (line 39)
-* org-M-RET-may-split-line: Structure editing. (line 7)
-* org-M-RET-may-split-line <1>: Plain lists. (line 79)
-* org-md-headline-style: Markdown export. (line 27)
-* org-odd-levels-only: Matching tags and properties.
- (line 67)
-* org-odd-levels-only <1>: In-buffer settings. (line 119)
-* org-odd-levels-only <2>: Clean view. (line 75)
-* org-odd-levels-only <3>: Special agenda views.
- (line 41)
-* org-odt-category-map-alist: Labels and captions in ODT export.
- (line 21)
-* org-odt-convert: Extending ODT export.
- (line 36)
-* org-odt-convert-capabilities: Configuring a document converter.
- (line 18)
-* org-odt-convert-process: Configuring a document converter.
- (line 25)
-* org-odt-convert-processes: Configuring a document converter.
- (line 12)
-* org-odt-create-custom-styles-for-srcblocks: Literal examples in ODT export.
- (line 16)
-* org-odt-fontify-srcblocks: Literal examples in ODT export.
- (line 13)
-* org-odt-pixels-per-inch: Images in ODT export.
- (line 34)
-* org-odt-preferred-output-format: ODT export commands. (line 10)
-* org-odt-preferred-output-format <1>: ODT export commands. (line 29)
-* org-odt-preferred-output-format <2>: Extending ODT export.
- (line 21)
-* org-odt-schema-dir: Validating OpenDocument XML.
- (line 14)
-* org-odt-styles-file: ODT specific export settings.
- (line 22)
-* org-odt-styles-file <1>: Applying custom styles.
- (line 25)
-* org-odt-table-styles: Customizing tables in ODT export.
- (line 13)
-* org-odt-table-styles <1>: Customizing tables in ODT export.
- (line 82)
-* org-outline-path-complete-in-steps: Refile and copy. (line 16)
-* org-overriding-columns-format: Agenda column view. (line 18)
-* org-plain-list-ordered-item-terminator: Plain lists. (line 13)
-* org-plain-list-ordered-item-terminator <1>: Plain lists. (line 119)
-* org-popup-calendar-for-date-prompt: The date/time prompt.
- (line 76)
-* org-preview-latex-default-process: Previewing LaTeX fragments.
- (line 6)
-* org-priority-faces: Priorities. (line 13)
-* org-priority-start-cycle-with-default: Priorities. (line 31)
-* org-property-allowed-value-functions: Using the property API.
- (line 67)
-* org-protocol-default-template-key: capture protocol. (line 19)
-* org-protocol-project-alist: open-source protocol.
- (line 13)
-* org-publish-project-alist: Project alist. (line 6)
-* org-publish-project-alist <1>: Publishing options. (line 13)
-* org-publish-use-timestamps-flag: Triggering publication.
- (line 18)
-* org-put-time-stamp-overlays: In-buffer settings. (line 130)
-* org-read-date-display-live: The date/time prompt.
- (line 91)
-* org-read-date-force-compatible-dates: The date/time prompt.
- (line 61)
-* org-read-date-prefer-future: The date/time prompt.
- (line 6)
-* org-refile-allow-creating-parent-nodes: Refile and copy. (line 16)
-* org-refile-keep: Refile and copy. (line 16)
-* org-refile-targets: Refile and copy. (line 16)
-* org-refile-use-cache: Refile and copy. (line 16)
-* org-refile-use-outline-path: Refile and copy. (line 16)
-* org-remove-highlights-with-change: Sparse trees. (line 19)
-* org-remove-highlights-with-change <1>: Clocking commands. (line 73)
-* org-replace-disputed-keys: Conflicts. (line 18)
-* org-return-follows-link: Handling links. (line 119)
-* org-reverse-note-order: Refile and copy. (line 16)
-* org-scheduled-delay-days: Deadlines and scheduling.
- (line 44)
-* org-show-context-detail: Sparse trees. (line 6)
-* org-sort-agenda-noeffort-is-high: Filtering/limiting agenda items.
- (line 92)
-* org-sparse-tree-open-archived-trees: Internal archiving. (line 17)
-* org-special-ctrl-a/e: Headlines. (line 6)
-* org-special-ctrl-k: Headlines. (line 6)
-* org-speed-commands-user: Speed keys. (line 18)
-* org-startup-align-all-tables: Column width and alignment.
- (line 33)
-* org-startup-align-all-tables <1>: In-buffer settings. (line 75)
-* org-startup-folded: Initial visibility. (line 6)
-* org-startup-folded <1>: In-buffer settings. (line 65)
-* org-startup-folded <2>: Speeding up your agendas.
- (line 15)
-* org-startup-indented: In-buffer settings. (line 70)
-* org-startup-with-inline-images: Handling links. (line 129)
-* org-startup-with-inline-images <1>: In-buffer settings. (line 82)
-* org-startup-with-latex-preview: Previewing LaTeX fragments.
- (line 27)
-* org-startup-with-latex-preview <1>: In-buffer settings. (line 88)
-* org-store-link-functions: Adding hyperlink types.
- (line 59)
-* org-stuck-projects: Stuck projects. (line 16)
-* org-support-shift-select: Plain lists. (line 90)
-* org-support-shift-select <1>: Plain lists. (line 140)
-* org-support-shift-select <2>: Conflicts. (line 6)
-* org-table-auto-blank-field: Built-in table editor.
- (line 30)
-* org-table-copy-increment: Built-in table editor.
- (line 150)
-* org-table-duration-custom-format: Durations and time values.
- (line 6)
-* org-table-export-default-format: Built-in table editor.
- (line 183)
-* org-table-formula: In-buffer settings. (line 27)
-* org-table-formula-constants: References. (line 108)
-* org-table-formula-constants <1>: In-buffer settings. (line 27)
-* org-table-formula-constants <2>: Cooperation. (line 11)
-* org-table-use-standard-references: References. (line 17)
-* org-table-use-standard-references <1>: Editing and debugging formulas.
- (line 6)
-* org-tag-alist: Setting tags. (line 22)
-* org-tag-alist <1>: In-buffer settings. (line 164)
-* org-tag-faces: Tags. (line 10)
-* org-tag-persistent-alist: Setting tags. (line 37)
-* org-tags-column: Setting tags. (line 11)
-* org-tags-exclude-from-inheritance: Tag inheritance. (line 22)
-* org-tags-match-list-sublevels: Tag inheritance. (line 26)
-* org-tags-match-list-sublevels <1>: Tag searches. (line 18)
-* org-tags-match-list-sublevels <2>: Property searches. (line 17)
-* org-tags-match-list-sublevels <3>: Matching tags and properties.
- (line 19)
-* org-texinfo-classes: Texinfo file header. (line 11)
-* org-texinfo-classes <1>: Headings and sectioning structure.
- (line 6)
-* org-texinfo-coding-system: Texinfo file header. (line 11)
-* org-texinfo-default-class: Texinfo specific export settings.
- (line 20)
-* org-texinfo-default-class <1>: Headings and sectioning structure.
- (line 6)
-* org-texinfo-info-process: Texinfo export commands.
- (line 6)
-* org-texinfo-table-default-markup: Plain lists in Texinfo export.
- (line 12)
-* org-time-stamp-custom-formats: Custom time format. (line 6)
-* org-time-stamp-overlay-formats: In-buffer settings. (line 130)
-* org-time-stamp-rounding-minutes: Creating timestamps. (line 20)
-* org-todo (face): Faces for TODO keywords.
- (line 6)
-* org-todo-keyword-faces: Faces for TODO keywords.
- (line 6)
-* org-todo-keywords: TODO basics. (line 41)
-* org-todo-keywords <1>: TODO extensions. (line 6)
-* org-todo-keywords <2>: Global TODO list. (line 17)
-* org-todo-keywords <3>: In-buffer settings. (line 179)
-* org-todo-repeat-to-state: Repeated tasks. (line 19)
-* org-todo-state-tags-triggers: TODO basics. (line 60)
-* org-track-ordered-property-with-tag: TODO dependencies. (line 38)
-* org-track-ordered-property-with-tag <1>: Checkboxes. (line 75)
-* org-treat-insert-todo-heading-as-state-change: Structure editing.
- (line 27)
-* org-treat-S-cursor-todo-selection-as-state-change: TODO basics.
- (line 35)
-* org-use-fast-todo-selection: TODO basics. (line 14)
-* org-use-property-inheritance: Property inheritance.
- (line 6)
-* org-use-property-inheritance <1>: iCalendar export. (line 49)
-* org-use-property-inheritance <2>: Header arguments in Org mode properties.
- (line 17)
-* org-use-property-inheritance <3>: Using the property API.
- (line 18)
-* org-use-speed-commands: Speed keys. (line 13)
-* org-use-sub-superscripts: Subscripts and superscripts.
- (line 14)
-* org-use-tag-inheritance: Tag inheritance. (line 22)
-* org-yank-adjusted-subtrees: Structure editing. (line 70)
-* org-yank-folded-subtrees: Structure editing. (line 70)
-* orgstruct-heading-prefix-regexp: Orgstruct mode. (line 26)
-* parse-time-months: The date/time prompt.
- (line 57)
-* parse-time-weekdays: The date/time prompt.
- (line 57)
-* ps-landscape-mode: Exporting agenda views.
- (line 20)
-* ps-number-of-columns: Exporting agenda views.
- (line 20)
-* user-full-name: Export settings. (line 25)
-* user-mail-address: Export settings. (line 35)
-
-
-
-Tag Table:
-Node: Top907
-Node: Introduction24445
-Node: Summary24874
-Node: Installation27573
-Node: Activation30379
-Ref: Activation-Footnote-131939
-Node: Feedback32067
-Ref: Feedback-Footnote-135716
-Node: Conventions35843
-Node: Document structure37954
-Node: Outlines38949
-Node: Headlines39582
-Ref: Headlines-Footnote-140795
-Ref: Headlines-Footnote-240995
-Node: Visibility cycling41066
-Node: Global and local cycling41445
-Ref: Global and local cycling-Footnote-144149
-Ref: Global and local cycling-Footnote-244211
-Node: Initial visibility44462
-Ref: Initial visibility-Footnote-145533
-Node: Catching invisible edits45722
-Node: Motion46194
-Node: Structure editing47561
-Node: Sparse trees54353
-Ref: Sparse trees-Footnote-156927
-Ref: Sparse trees-Footnote-257042
-Node: Plain lists57117
-Ref: Plain lists-Footnote-164685
-Ref: Plain lists-Footnote-265047
-Ref: Plain lists-Footnote-365147
-Ref: Plain lists-Footnote-465414
-Ref: Plain lists-Footnote-565591
-Ref: Plain lists-Footnote-665695
-Ref: Plain lists-Footnote-765801
-Node: Drawers65871
-Ref: Drawers-Footnote-167772
-Node: Blocks67920
-Node: Footnotes68485
-Ref: Footnotes-Footnote-172512
-Ref: Footnotes-Footnote-272617
-Node: Orgstruct mode72702
-Node: Org syntax74359
-Node: Tables75365
-Node: Built-in table editor76010
-Ref: Built-in table editor-Footnote-185627
-Node: Column width and alignment85735
-Ref: Column width and alignment-Footnote-188341
-Node: Column groups88438
-Node: Orgtbl mode90033
-Node: The spreadsheet90848
-Node: References92314
-Ref: References-Footnote-199274
-Ref: References-Footnote-299504
-Ref: References-Footnote-399785
-Ref: References-Footnote-499902
-Node: Formula syntax for Calc100220
-Ref: Formula syntax for Calc-Footnote-1105559
-Node: Formula syntax for Lisp105903
-Node: Durations and time values107683
-Node: Field and range formulas109107
-Node: Column formulas111570
-Node: Lookup functions113696
-Node: Editing and debugging formulas115738
-Ref: Using multiple #+TBLFM lines120078
-Ref: Editing and debugging formulas-Footnote-1121371
-Node: Updating the table121519
-Node: Advanced features122891
-Ref: Advanced features-Footnote-1127503
-Node: Org-Plot127609
-Node: Hyperlinks131998
-Node: Link format132755
-Node: Internal links134054
-Ref: Internal links-Footnote-1136395
-Ref: Internal links-Footnote-2136639
-Node: Radio targets136785
-Node: External links137464
-Ref: External links-Footnote-1141512
-Ref: External links-Footnote-2141948
-Node: Handling links142212
-Ref: Handling links-Footnote-1150222
-Ref: Handling links-Footnote-2150382
-Ref: Handling links-Footnote-3150584
-Ref: Handling links-Footnote-4150881
-Ref: Handling links-Footnote-5151139
-Ref: Handling links-Footnote-6151266
-Ref: Handling links-Footnote-7151342
-Node: Using links outside Org151438
-Node: Link abbreviations151923
-Node: Search options154755
-Ref: Search options-Footnote-1156697
-Node: Custom searches156778
-Node: TODO items157808
-Ref: TODO items-Footnote-1158916
-Node: TODO basics159030
-Node: TODO extensions161918
-Node: Workflow states162952
-Ref: Workflow states-Footnote-1164267
-Node: TODO types164360
-Ref: TODO types-Footnote-1165988
-Node: Multiple sets in one file166061
-Node: Fast access to TODO states168016
-Ref: Fast access to TODO states-Footnote-1168899
-Ref: Fast access to TODO states-Footnote-2168987
-Node: Per-file keywords169284
-Ref: Per-file keywords-Footnote-1170672
-Node: Faces for TODO keywords170881
-Node: TODO dependencies171937
-Node: Progress logging174306
-Node: Closing items175018
-Ref: Closing items-Footnote-1176017
-Ref: Closing items-Footnote-2176090
-Node: Tracking TODO state changes176168
-Ref: Tracking TODO state changes-Footnote-1179276
-Ref: Tracking TODO state changes-Footnote-2179335
-Ref: Tracking TODO state changes-Footnote-3179492
-Node: Tracking your habits179789
-Node: Priorities184114
-Ref: Priorities-Footnote-1186155
-Node: Breaking down tasks186228
-Ref: Breaking down tasks-Footnote-1188243
-Node: Checkboxes188343
-Ref: Checkboxes-Footnote-1193063
-Ref: Checkboxes-Footnote-2193191
-Ref: Checkboxes-Footnote-3193369
-Node: Tags193493
-Node: Tag inheritance194569
-Ref: Tag inheritance-Footnote-1196430
-Ref: Tag inheritance-Footnote-2196534
-Node: Setting tags196660
-Ref: Setting tags-Footnote-1203162
-Node: Tag hierarchy203245
-Node: Tag searches206714
-Node: Properties and columns208032
-Node: Property syntax209488
-Node: Special properties213868
-Node: Property searches215521
-Node: Property inheritance216966
-Node: Column view218833
-Node: Defining columns220077
-Node: Scope of column definitions220455
-Node: Column attributes221368
-Ref: Column attributes-Footnote-1226284
-Ref: Column attributes-Footnote-2226408
-Ref: Column attributes-Footnote-3226613
-Ref: Column attributes-Footnote-4226867
-Node: Using column view227001
-Node: Capturing column view229995
-Ref: Capturing column view-Footnote-1233083
-Node: Property API233220
-Node: Dates and times233574
-Node: Timestamps234481
-Ref: Timestamps-Footnote-1236891
-Ref: Timestamps-Footnote-2237077
-Ref: Timestamps-Footnote-3237208
-Node: Creating timestamps238013
-Node: The date/time prompt240858
-Ref: The date/time prompt-Footnote-1245489
-Ref: The date/time prompt-Footnote-2245660
-Ref: The date/time prompt-Footnote-3245772
-Node: Custom time format245870
-Node: Deadlines and scheduling247621
-Ref: Deadlines and scheduling-Footnote-1251135
-Node: Inserting deadline/schedule251296
-Ref: Inserting deadline/schedule-Footnote-1253135
-Ref: Inserting deadline/schedule-Footnote-2253259
-Node: Repeated tasks253383
-Ref: Repeated tasks-Footnote-1257858
-Ref: Repeated tasks-Footnote-2258115
-Node: Clocking work time258338
-Ref: Clocking work time-Footnote-1259526
-Ref: Clocking work time-Footnote-2259678
-Node: Clocking commands259820
-Ref: Clocking commands-Footnote-1264844
-Ref: Clocking commands-Footnote-2264959
-Ref: Clocking commands-Footnote-3265013
-Ref: Clocking commands-Footnote-4265075
-Node: The clock table265157
-Ref: The clock table-Footnote-1272762
-Ref: The clock table-Footnote-2272860
-Node: Resolving idle time272986
-Ref: Resolving idle time-Footnote-1276917
-Node: Effort estimates277401
-Ref: Effort estimates-Footnote-1280193
-Node: Timers280300
-Node: Capture - Refile - Archive282611
-Node: Capture283601
-Node: Setting up capture284702
-Ref: Setting up capture-Footnote-1285110
-Node: Using capture285180
-Node: Capture templates287646
-Node: Template elements289645
-Ref: Template elements-Footnote-1296417
-Ref: Template elements-Footnote-2296750
-Node: Template expansion296937
-Ref: Template expansion-Footnote-1301053
-Ref: Template expansion-Footnote-2301144
-Ref: Template expansion-Footnote-3301355
-Ref: Template expansion-Footnote-4301541
-Node: Templates in contexts301643
-Node: Attachments302479
-Ref: Attachments-Footnote-1306012
-Node: RSS feeds306166
-Node: Protocols307679
-Node: store-link protocol309144
-Node: capture protocol309976
-Node: open-source protocol311118
-Node: Refile and copy314265
-Ref: Refile and copy-Footnote-1316733
-Node: Archiving316845
-Node: Moving subtrees317551
-Node: Internal archiving319598
-Node: Agenda views322289
-Node: Agenda files324646
-Ref: Agenda files-Footnote-1327499
-Ref: Agenda files-Footnote-2327648
-Node: Agenda dispatcher327849
-Ref: Agenda dispatcher-Footnote-1330753
-Ref: Agenda dispatcher-Footnote-2330851
-Node: Built-in agenda views330957
-Node: Weekly/daily agenda331541
-Ref: Weekly/daily agenda-Footnote-1337381
-Ref: Weekly/daily agenda-Footnote-2337612
-Node: Global TODO list337799
-Node: Matching tags and properties340375
-Node: Search view347717
-Node: Stuck projects349076
-Ref: Stuck projects-Footnote-1351157
-Node: Presentation and sorting351187
-Node: Categories352152
-Node: Time-of-day specifications352895
-Ref: Time-of-day specifications-Footnote-1354930
-Node: Sorting agenda items355053
-Node: Filtering/limiting agenda items356646
-Ref: Filtering/limiting agenda items-Footnote-1363938
-Node: Agenda commands364358
-Ref: Agenda commands-Footnote-1385792
-Ref: Agenda commands-Footnote-2385873
-Ref: Agenda commands-Footnote-3385996
-Ref: Agenda commands-Footnote-4386100
-Node: Custom agenda views386187
-Node: Storing searches386828
-Ref: Storing searches-Footnote-1389863
-Ref: Storing searches-Footnote-2389980
-Node: Block agenda390232
-Node: Setting options391514
-Node: Exporting agenda views395160
-Ref: Exporting agenda views-Footnote-1400131
-Ref: Exporting agenda views-Footnote-2400254
-Ref: Exporting agenda views-Footnote-3400414
-Ref: Exporting agenda views-Footnote-4400601
-Node: Agenda column view400683
-Node: Markup403803
-Node: Paragraphs404790
-Node: Emphasis and monospace405959
-Node: Horizontal rules406830
-Node: Images and tables407081
-Node: Literal examples408808
-Ref: Literal examples-Footnote-1413417
-Ref: Literal examples-Footnote-2413941
-Ref: Literal examples-Footnote-3414114
-Ref: Literal examples-Footnote-4414301
-Ref: Literal examples-Footnote-5414571
-Node: Special symbols414669
-Ref: Special symbols-Footnote-1416677
-Ref: Special symbols-Footnote-2416844
-Node: Subscripts and superscripts416937
-Node: Embedded LaTeX418073
-Ref: Embedded LaTeX-Footnote-1418886
-Node: LaTeX fragments419082
-Ref: LaTeX fragments-Footnote-1421195
-Node: Previewing LaTeX fragments421430
-Ref: Previewing LaTeX fragments-Footnote-1422892
-Node: CDLaTeX mode423146
-Ref: CDLaTeX mode-Footnote-1425717
-Node: Exporting425869
-Node: The export dispatcher428541
-Node: Export settings431176
-Ref: Export settings-Footnote-1439281
-Ref: Export settings-Footnote-2439393
-Node: Table of contents439499
-Node: Include files441391
-Ref: Include files-Footnote-1444252
-Node: Macro replacement444430
-Ref: Macro replacement-Footnote-1447321
-Node: Comment lines447538
-Ref: Comment lines-Footnote-1448368
-Node: ASCII/Latin-1/UTF-8 export448468
-Node: Beamer export451487
-Node: Beamer export commands452257
-Node: Beamer specific export settings452944
-Node: Sectioning Frames and Blocks in Beamer454863
-Ref: Sectioning Frames and Blocks in Beamer-Footnote-1458174
-Node: Beamer specific syntax458335
-Node: Editing support460316
-Node: A Beamer example460804
-Node: HTML export462071
-Node: HTML Export commands463078
-Node: HTML Specific export settings463609
-Node: HTML doctypes465694
-Node: HTML preamble and postamble467853
-Node: Quoting HTML tags469043
-Node: Links in HTML export469727
-Node: Tables in HTML export471192
-Node: Images in HTML export472639
-Node: Math formatting in HTML export474124
-Ref: Math formatting in HTML export-Footnote-1475538
-Node: Text areas in HTML export475662
-Node: CSS support476815
-Ref: CSS support-Footnote-1480287
-Node: JavaScript support480467
-Node: LaTeX export483790
-Node: LaTeX export commands485526
-Ref: LaTeX export commands-Footnote-1486847
-Node: LaTeX specific export settings487055
-Node: LaTeX header and sectioning489940
-Node: Quoting LaTeX code492081
-Node: Tables in LaTeX export492862
-Node: Images in LaTeX export497402
-Ref: Images in LaTeX export-Footnote-1499932
-Node: Plain lists in LaTeX export499979
-Node: Source blocks in LaTeX export500996
-Node: Example blocks in LaTeX export502430
-Node: Special blocks in LaTeX export503138
-Node: Horizontal rules in LaTeX export504388
-Node: Markdown export504783
-Node: OpenDocument Text export506128
-Ref: OpenDocument Text export-Footnote-1507229
-Node: Pre-requisites for ODT export507373
-Node: ODT export commands507759
-Ref: x-export-to-odt507963
-Node: ODT specific export settings509127
-Node: Extending ODT export510164
-Ref: x-export-to-other-formats511049
-Ref: x-convert-to-other-formats511474
-Node: Applying custom styles511949
-Node: Links in ODT export513742
-Node: Tables in ODT export514399
-Node: Images in ODT export516389
-Node: Math formatting in ODT export519259
-Node: Working with LaTeX math snippets519720
-Ref: Working with LaTeX math snippets-Footnote-1521998
-Ref: Working with LaTeX math snippets-Footnote-2522074
-Node: Working with MathML or OpenDocument formula files522119
-Node: Labels and captions in ODT export522654
-Node: Literal examples in ODT export523926
-Node: Advanced topics in ODT export524764
-Node: Configuring a document converter525418
-Ref: x-odt-converter-capabilities526102
-Node: Working with OpenDocument style files526509
-Ref: x-factory-styles526914
-Ref: x-orgodtstyles-xml527156
-Ref: x-orgodtcontenttemplate-xml527502
-Ref: x-overriding-factory-styles528186
-Ref: x-org-odt-styles-file528457
-Ref: x-org-odt-content-template-file529423
-Node: Creating one-off styles529574
-Node: Customizing tables in ODT export531752
-Ref: Customizing tables in ODT export-Footnote-1536764
-Ref: Customizing tables in ODT export-Footnote-2536868
-Ref: Customizing tables in ODT export-Footnote-3536960
-Node: Validating OpenDocument XML537307
-Node: Org export538231
-Node: Texinfo export538987
-Node: Texinfo export commands540007
-Node: Texinfo specific export settings540622
-Node: Texinfo file header541753
-Node: Texinfo title and copyright page542717
-Node: Info directory file544079
-Node: Headings and sectioning structure544796
-Node: Indices546818
-Node: Quoting Texinfo code547854
-Node: Plain lists in Texinfo export548343
-Node: Tables in Texinfo export549698
-Node: Images in Texinfo export550189
-Node: Special blocks in Texinfo export550826
-Node: A Texinfo example551420
-Node: iCalendar export553527
-Node: Other built-in back-ends557247
-Node: Advanced configuration557863
-Node: Export in foreign buffers564677
-Node: Publishing565745
-Node: Configuration566615
-Node: Project alist567378
-Node: Sources and destinations568535
-Node: Selecting files570105
-Node: Publishing action571207
-Ref: Publishing action-Footnote-1573096
-Node: Publishing options573263
-Node: Publishing links587797
-Node: Sitemap589185
-Node: Generating an index593321
-Node: Uploading files594131
-Node: Sample configuration595939
-Node: Simple example596428
-Node: Complex example597139
-Node: Triggering publication599197
-Node: Working with source code600204
-Node: Structure of code blocks604754
-Node: Editing source code607293
-Node: Exporting code blocks610146
-Node: Extracting source code612478
-Node: Evaluating code blocks614985
-Ref: Evaluating code blocks-Footnote-1618221
-Ref: Evaluating code blocks-Footnote-2618355
-Node: Library of Babel618546
-Node: Languages619239
-Node: Header arguments621688
-Node: Using header arguments622045
-Node: System-wide header arguments622852
-Node: Language-specific header arguments623563
-Node: Header arguments in Org mode properties624093
-Node: Language-specific mode properties625594
-Node: Code block specific header arguments626426
-Node: Arguments in function calls628129
-Node: Specific header arguments628913
-Node: var631607
-Node: results638359
-Node: file642486
-Node: file-desc643187
-Node: file-ext643601
-Node: output-dir644036
-Node: dir644454
-Node: exports646677
-Node: tangle647602
-Node: mkdirp648496
-Node: comments648826
-Node: padline649845
-Node: no-expand650263
-Node: session650997
-Node: noweb652119
-Node: noweb-ref654802
-Node: noweb-sep655922
-Node: cache656234
-Node: sep658913
-Node: hlines659324
-Node: colnames660846
-Node: rownames662296
-Node: shebang663523
-Node: tangle-mode664019
-Node: eval664845
-Node: wrap665882
-Node: post666209
-Node: prologue667992
-Node: epilogue668512
-Node: Results of evaluation668778
-Node: Noweb reference syntax672627
-Node: Key bindings and useful functions674958
-Node: Batch execution677293
-Node: Miscellaneous678071
-Node: Completion678918
-Node: Easy templates681031
-Node: Speed keys682409
-Node: Code evaluation security683599
-Node: Customization686448
-Node: In-buffer settings686884
-Node: The very busy C-c C-c key696540
-Node: Clean view698543
-Ref: Clean view-Footnote-1702032
-Ref: Clean view-Footnote-2702271
-Ref: Clean view-Footnote-3702330
-Node: TTY keys702410
-Node: Interaction704107
-Node: Cooperation704506
-Node: Conflicts707300
-Node: org-crypt711927
-Node: Hacking713187
-Node: Hooks714175
-Node: Add-on packages714494
-Node: Adding hyperlink types715028
-Node: Adding export back-ends718487
-Node: Context-sensitive commands719739
-Node: Tables in arbitrary syntax720432
-Node: Radio tables722107
-Node: A LaTeX example724235
-Ref: A LaTeX example-Footnote-1728049
-Ref: A LaTeX example-Footnote-2728219
-Node: Translator functions728670
-Node: Radio lists730858
-Node: Dynamic blocks732052
-Node: Special agenda views734143
-Ref: x-agenda-skip-entry-regexp737048
-Ref: Special agenda views-Footnote-1737828
-Ref: Special agenda views-Footnote-2738035
-Node: Speeding up your agendas738167
-Node: Extracting agenda information739212
-Node: Using the property API743070
-Node: Using the mapping API746512
-Node: MobileOrg750565
-Node: Setting up the staging area752139
-Ref: Setting up the staging area-Footnote-1753353
-Ref: Setting up the staging area-Footnote-2753526
-Node: Pushing to MobileOrg753734
-Ref: Pushing to MobileOrg-Footnote-1754641
-Ref: Pushing to MobileOrg-Footnote-2754731
-Ref: Pushing to MobileOrg-Footnote-3755097
-Node: Pulling from MobileOrg755173
-Ref: Pulling from MobileOrg-Footnote-1757230
-Node: History and acknowledgments757294
-Node: GNU Free Documentation License772747
-Node: Main Index798127
-Node: Key Index896893
-Node: Command and Function Index950348
-Node: Variable Index987240
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:
diff --git a/elpa/org-9.1.14/org-agenda.el b/elpa/org-9.1.14/org-agenda.el
deleted file mode 100644
index 322480c..0000000
--- a/elpa/org-9.1.14/org-agenda.el
+++ /dev/null
@@ -1,10224 +0,0 @@
-;;; org-agenda.el --- Dynamic task and appointment lists for Org
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the code for creating and using the Agenda for Org.
-;;
-;; The functions `org-batch-agenda', `org-batch-agenda-csv', and
-;; `org-batch-store-agenda-views' are implemented as macros to provide
-;; a convenient way for extracting agenda information from the command
-;; line. The Lisp does not evaluate parameters of a macro call; thus
-;; it is not necessary to quote the parameters passed to one of those
-;; functions. E.g. you can write:
-;;
-;; emacs -batch -l ~/.emacs -eval '(org-batch-agenda "a" org-agenda-span 7)'
-;;
-;; To export an agenda spanning 7 days. If `org-batch-agenda' would
-;; have been implemented as a regular function you'd have to quote the
-;; symbol org-agenda-span. Moreover: To use a symbol as parameter
-;; value you would have to double quote the symbol.
-;;
-;; This is a hack, but it works even when running Org byte-compiled.
-;;
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-(require 'org-macs)
-
-(declare-function diary-add-to-list "diary-lib"
- (date string specifier &optional marker globcolor literal))
-(declare-function calendar-iso-to-absolute "cal-iso" (date))
-(declare-function calendar-astro-date-string "cal-julian" (&optional date))
-(declare-function calendar-bahai-date-string "cal-bahai" (&optional date))
-(declare-function calendar-chinese-date-string "cal-china" (&optional date))
-(declare-function calendar-coptic-date-string "cal-coptic" (&optional date))
-(declare-function calendar-ethiopic-date-string "cal-coptic" (&optional date))
-(declare-function calendar-french-date-string "cal-french" (&optional date))
-(declare-function calendar-goto-date "cal-move" (date))
-(declare-function calendar-hebrew-date-string "cal-hebrew" (&optional date))
-(declare-function calendar-islamic-date-string "cal-islam" (&optional date))
-(declare-function calendar-iso-date-string "cal-iso" (&optional date))
-(declare-function calendar-iso-from-absolute "cal-iso" (date))
-(declare-function calendar-julian-date-string "cal-julian" (&optional date))
-(declare-function calendar-mayan-date-string "cal-mayan" (&optional date))
-(declare-function calendar-persian-date-string "cal-persia" (&optional date))
-(declare-function calendar-check-holidays "holidays" (date))
-
-(declare-function org-columns-remove-overlays "org-colview" ())
-(declare-function org-datetree-find-date-create "org-datetree"
- (date &optional keep-restriction))
-(declare-function org-columns-quit "org-colview" ())
-(declare-function diary-date-display-form "diary-lib" (&optional type))
-(declare-function org-mobile-write-agenda-for-mobile "org-mobile" (file))
-(declare-function org-habit-insert-consistency-graphs
- "org-habit" (&optional line))
-(declare-function org-is-habit-p "org-habit" (&optional pom))
-(declare-function org-habit-parse-todo "org-habit" (&optional pom))
-(declare-function org-habit-get-priority "org-habit" (habit &optional moment))
-(declare-function org-agenda-columns "org-colview" ())
-(declare-function org-add-archive-files "org-archive" (files))
-(declare-function org-capture "org-capture" (&optional goto keys))
-
-(defvar calendar-mode-map)
-(defvar org-clock-current-task)
-(defvar org-current-tag-alist)
-(defvar org-mobile-force-id-on-agenda-items)
-(defvar org-habit-show-habits)
-(defvar org-habit-show-habits-only-for-today)
-(defvar org-habit-show-all-today)
-
-;; Defined somewhere in this file, but used before definition.
-(defvar org-agenda-buffer-name "*Org Agenda*")
-(defvar org-agenda-overriding-header nil)
-(defvar org-agenda-title-append nil)
-(with-no-warnings (defvar entry)) ;; unprefixed, from calendar.el
-(with-no-warnings (defvar date)) ;; unprefixed, from calendar.el
-(defvar original-date) ; dynamically scoped, calendar.el does scope this
-
-(defvar org-agenda-undo-list nil
- "List of undoable operations in the agenda since last refresh.")
-(defvar org-agenda-pending-undo-list nil
- "In a series of undo commands, this is the list of remaining undo items.")
-
-(defcustom org-agenda-confirm-kill 1
- "When set, remote killing from the agenda buffer needs confirmation.
-When t, a confirmation is always needed. When a number N, confirmation is
-only needed when the text to be killed contains more than N non-white lines."
- :group 'org-agenda
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Always" t)
- (integer :tag "When more than N lines")))
-
-(defcustom org-agenda-compact-blocks nil
- "Non-nil means make the block agenda more compact.
-This is done globally by leaving out lines like the agenda span
-name and week number or the separator lines."
- :group 'org-agenda
- :type 'boolean)
-
-(defcustom org-agenda-block-separator ?=
- "The separator between blocks in the agenda.
-If this is a string, it will be used as the separator, with a newline added.
-If it is a character, it will be repeated to fill the window width.
-If nil the separator is disabled. In `org-agenda-custom-commands' this
-addresses the separator between the current and the previous block."
- :group 'org-agenda
- :type '(choice
- (const :tag "Disabled" nil)
- (character)
- (string)))
-
-(defgroup org-agenda-export nil
- "Options concerning exporting agenda views in Org mode."
- :tag "Org Agenda Export"
- :group 'org-agenda)
-
-(defcustom org-agenda-with-colors t
- "Non-nil means use colors in agenda views."
- :group 'org-agenda-export
- :type 'boolean)
-
-(defcustom org-agenda-exporter-settings nil
- "Alist of variable/value pairs that should be active during agenda export.
-This is a good place to set options for ps-print and for htmlize.
-Note that the way this is implemented, the values will be evaluated
-before assigned to the variables. So make sure to quote values you do
-*not* want evaluated, for example
-
- (setq org-agenda-exporter-settings
- \\='((ps-print-color-p \\='black-white)))"
- :group 'org-agenda-export
- :type '(repeat
- (list
- (variable)
- (sexp :tag "Value"))))
-
-(defcustom org-agenda-before-write-hook '(org-agenda-add-entry-text)
- "Hook run in a temporary buffer before writing the agenda to an export file.
-A useful function for this hook is `org-agenda-add-entry-text'."
- :group 'org-agenda-export
- :type 'hook
- :options '(org-agenda-add-entry-text))
-
-(defcustom org-agenda-add-entry-text-maxlines 0
- "Maximum number of entry text lines to be added to agenda.
-This is only relevant when `org-agenda-add-entry-text' is part of
-`org-agenda-before-write-hook', which is the default.
-When this is 0, nothing will happen. When it is greater than 0, it
-specifies the maximum number of lines that will be added for each entry
-that is listed in the agenda view.
-
-Note that this variable is not used during display, only when exporting
-the agenda. For agenda display, see the variables `org-agenda-entry-text-mode'
-and `org-agenda-entry-text-maxlines'."
- :group 'org-agenda
- :type 'integer)
-
-(defcustom org-agenda-add-entry-text-descriptive-links t
- "Non-nil means export org-links as descriptive links in agenda added text.
-This variable applies to the text added to the agenda when
-`org-agenda-add-entry-text-maxlines' is larger than 0.
-When this variable nil, the URL will (also) be shown."
- :group 'org-agenda
- :type 'boolean)
-
-(defcustom org-agenda-export-html-style nil
- "The style specification for exported HTML Agenda files.
-If this variable contains a string, it will replace the default <style>
-section as produced by `htmlize'.
-Since there are different ways of setting style information, this variable
-needs to contain the full HTML structure to provide a style, including the
-surrounding HTML tags. The style specifications should include definitions
-the fonts used by the agenda, here is an example:
-
- <style type=\"text/css\">
- p { font-weight: normal; color: gray; }
- .org-agenda-structure {
- font-size: 110%;
- color: #003399;
- font-weight: 600;
- }
- .org-todo {
- color: #cc6666;
- font-weight: bold;
- }
- .org-agenda-done {
- color: #339933;
- }
- .org-done {
- color: #339933;
- }
- .title { text-align: center; }
- .todo, .deadline { color: red; }
- .done { color: green; }
- </style>
-
-or, if you want to keep the style in a file,
-
- <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">
-
-As the value of this option simply gets inserted into the HTML <head> header,
-you can \"misuse\" it to also add other text to the header."
- :group 'org-agenda-export
- :group 'org-export-html
- :type '(choice
- (const nil)
- (string)))
-
-(defcustom org-agenda-persistent-filter nil
- "When set, keep filters from one agenda view to the next."
- :group 'org-agenda
- :type 'boolean)
-
-(defgroup org-agenda-custom-commands nil
- "Options concerning agenda views in Org mode."
- :tag "Org Agenda Custom Commands"
- :group 'org-agenda)
-
-(defconst org-sorting-choice
- '(choice
- (const time-up) (const time-down)
- (const timestamp-up) (const timestamp-down)
- (const scheduled-up) (const scheduled-down)
- (const deadline-up) (const deadline-down)
- (const ts-up) (const ts-down)
- (const tsia-up) (const tsia-down)
- (const category-keep) (const category-up) (const category-down)
- (const tag-down) (const tag-up)
- (const priority-up) (const priority-down)
- (const todo-state-up) (const todo-state-down)
- (const effort-up) (const effort-down)
- (const habit-up) (const habit-down)
- (const alpha-up) (const alpha-down)
- (const user-defined-up) (const user-defined-down))
- "Sorting choices.")
-
-;; Keep custom values for `org-agenda-filter-preset' compatible with
-;; the new variable `org-agenda-tag-filter-preset'.
-(defvaralias 'org-agenda-filter-preset 'org-agenda-tag-filter-preset)
-(defvaralias 'org-agenda-filter 'org-agenda-tag-filter)
-
-(defvar org-agenda-entry-types '(:deadline :scheduled :timestamp :sexp)
- "List of types searched for when creating the daily/weekly agenda.
-This variable is a list of symbols that controls the types of
-items that appear in the daily/weekly agenda. Allowed symbols in this
-list are are
-
- :timestamp List items containing a date stamp or date range matching
- the selected date. This includes sexp entries in angular
- brackets.
-
- :sexp List entries resulting from plain diary-like sexps.
-
- :deadline List deadline due on that date. When the date is today,
- also list any deadlines past due, or due within
- `org-deadline-warning-days'.
-
- :deadline* Same as above, but only include the deadline if it has an
- hour specification as [h]h:mm.
-
- :scheduled List all items which are scheduled for the given date.
- The diary for *today* also contains items which were
- scheduled earlier and are not yet marked DONE.
-
- :scheduled* Same as above, but only include the scheduled item if it
- has an hour specification as [h]h:mm.
-
-By default, all four non-starred types are turned on.
-
-When :scheduled* or :deadline* are included, :schedule or :deadline
-will be ignored.
-
-Never set this variable globally using `setq', because then it
-will apply to all future agenda commands. Instead, bind it with
-`let' to scope it dynamically into the agenda-constructing
-command. A good way to set it is through options in
-`org-agenda-custom-commands'. For a more flexible (though
-somewhat less efficient) way of determining what is included in
-the daily/weekly agenda, see `org-agenda-skip-function'.")
-
-(defconst org-agenda-custom-commands-local-options
- `(repeat :tag "Local settings for this command. Remember to quote values"
- (choice :tag "Setting"
- (list :tag "Heading for this block"
- (const org-agenda-overriding-header)
- (string :tag "Headline"))
- (list :tag "Files to be searched"
- (const org-agenda-files)
- (list
- (const :format "" quote)
- (repeat (file))))
- (list :tag "Sorting strategy"
- (const org-agenda-sorting-strategy)
- (list
- (const :format "" quote)
- (repeat
- ,org-sorting-choice)))
- (list :tag "Prefix format"
- (const org-agenda-prefix-format :value " %-12:c%?-12t% s")
- (string))
- (list :tag "Number of days in agenda"
- (const org-agenda-span)
- (list
- (const :format "" quote)
- (choice (const :tag "Day" day)
- (const :tag "Week" week)
- (const :tag "Fortnight" fortnight)
- (const :tag "Month" month)
- (const :tag "Year" year)
- (integer :tag "Custom"))))
- (list :tag "Fixed starting date"
- (const org-agenda-start-day)
- (string :value "2007-11-01"))
- (list :tag "Start on day of week"
- (const org-agenda-start-on-weekday)
- (choice :value 1
- (const :tag "Today" nil)
- (integer :tag "Weekday No.")))
- (list :tag "Include data from diary"
- (const org-agenda-include-diary)
- (boolean))
- (list :tag "Deadline Warning days"
- (const org-deadline-warning-days)
- (integer :value 1))
- (list :tag "Category filter preset"
- (const org-agenda-category-filter-preset)
- (list
- (const :format "" quote)
- (repeat
- (string :tag "+category or -category"))))
- (list :tag "Tags filter preset"
- (const org-agenda-tag-filter-preset)
- (list
- (const :format "" quote)
- (repeat
- (string :tag "+tag or -tag"))))
- (list :tag "Effort filter preset"
- (const org-agenda-effort-filter-preset)
- (list
- (const :format "" quote)
- (repeat
- (string :tag "+=10 or -=10 or +<10 or ->10"))))
- (list :tag "Regexp filter preset"
- (const org-agenda-regexp-filter-preset)
- (list
- (const :format "" quote)
- (repeat
- (string :tag "+regexp or -regexp"))))
- (list :tag "Set daily/weekly entry types"
- (const org-agenda-entry-types)
- (list
- (const :format "" quote)
- (set :greedy t :value ,org-agenda-entry-types
- (const :deadline)
- (const :scheduled)
- (const :deadline*)
- (const :scheduled*)
- (const :timestamp)
- (const :sexp))))
- (list :tag "Standard skipping condition"
- :value (org-agenda-skip-function '(org-agenda-skip-entry-if))
- (const org-agenda-skip-function)
- (list
- (const :format "" quote)
- (list
- (choice
- :tag "Skipping range"
- (const :tag "Skip entry" org-agenda-skip-entry-if)
- (const :tag "Skip subtree" org-agenda-skip-subtree-if))
- (repeat :inline t :tag "Conditions for skipping"
- (choice
- :tag "Condition type"
- (list :tag "Regexp matches" :inline t
- (const :format "" regexp)
- (regexp))
- (list :tag "Regexp does not match" :inline t
- (const :format "" notregexp)
- (regexp))
- (list :tag "TODO state is" :inline t
- (const todo)
- (choice
- (const :tag "Any not-done state" todo)
- (const :tag "Any done state" done)
- (const :tag "Any state" any)
- (list :tag "Keyword list"
- (const :format "" quote)
- (repeat (string :tag "Keyword")))))
- (list :tag "TODO state is not" :inline t
- (const nottodo)
- (choice
- (const :tag "Any not-done state" todo)
- (const :tag "Any done state" done)
- (const :tag "Any state" any)
- (list :tag "Keyword list"
- (const :format "" quote)
- (repeat (string :tag "Keyword")))))
- (const :tag "scheduled" scheduled)
- (const :tag "not scheduled" notscheduled)
- (const :tag "deadline" deadline)
- (const :tag "no deadline" notdeadline)
- (const :tag "timestamp" timestamp)
- (const :tag "no timestamp" nottimestamp))))))
- (list :tag "Non-standard skipping condition"
- :value (org-agenda-skip-function)
- (const org-agenda-skip-function)
- (sexp :tag "Function or form (quoted!)"))
- (list :tag "Any variable"
- (variable :tag "Variable")
- (sexp :tag "Value (sexp)"))))
- "Selection of examples for agenda command settings.
-This will be spliced into the custom type of
-`org-agenda-custom-commands'.")
-
-
-(defcustom org-agenda-custom-commands
- '(("n" "Agenda and all TODOs" ((agenda "") (alltodo ""))))
- "Custom commands for the agenda.
-\\<org-mode-map>
-These commands will be offered on the splash screen displayed by the
-agenda dispatcher `\\[org-agenda]'. Each entry is a list like this:
-
- (key desc type match settings files)
-
-key The key (one or more characters as a string) to be associated
- with the command.
-desc A description of the command, when omitted or nil, a default
- description is built using MATCH.
-type The command type, any of the following symbols:
- agenda The daily/weekly agenda.
- todo Entries with a specific TODO keyword, in all agenda files.
- search Entries containing search words entry or headline.
- tags Tags/Property/TODO match in all agenda files.
- tags-todo Tags/P/T match in all agenda files, TODO entries only.
- todo-tree Sparse tree of specific TODO keyword in *current* file.
- tags-tree Sparse tree with all tags matches in *current* file.
- occur-tree Occur sparse tree for *current* file.
- ... A user-defined function.
-match What to search for:
- - a single keyword for TODO keyword searches
- - a tags match expression for tags searches
- - a word search expression for text searches.
- - a regular expression for occur searches
- For all other commands, this should be the empty string.
-settings A list of option settings, similar to that in a let form, so like
- this: ((opt1 val1) (opt2 val2) ...). The values will be
- evaluated at the moment of execution, so quote them when needed.
-files A list of files to write the produced agenda buffer to with
- the command `org-store-agenda-views'.
- If a file name ends in \".html\", an HTML version of the buffer
- is written out. If it ends in \".ps\", a postscript version is
- produced. Otherwise, only the plain text is written to the file.
-
-You can also define a set of commands, to create a composite agenda buffer.
-In this case, an entry looks like this:
-
- (key desc (cmd1 cmd2 ...) general-settings-for-whole-set files)
-
-where
-
-desc A description string to be displayed in the dispatcher menu.
-cmd An agenda command, similar to the above. However, tree commands
- are not allowed, but instead you can get agenda and global todo list.
- So valid commands for a set are:
- (agenda \"\" settings)
- (alltodo \"\" settings)
- (stuck \"\" settings)
- (todo \"match\" settings files)
- (search \"match\" settings files)
- (tags \"match\" settings files)
- (tags-todo \"match\" settings files)
-
-Each command can carry a list of options, and another set of options can be
-given for the whole set of commands. Individual command options take
-precedence over the general options.
-
-When using several characters as key to a command, the first characters
-are prefix commands. For the dispatcher to display useful information, you
-should provide a description for the prefix, like
-
- (setq org-agenda-custom-commands
- \\='((\"h\" . \"HOME + Name tag searches\") ; describe prefix \"h\"
- (\"hl\" tags \"+HOME+Lisa\")
- (\"hp\" tags \"+HOME+Peter\")
- (\"hk\" tags \"+HOME+Kim\")))"
- :group 'org-agenda-custom-commands
- :type `(repeat
- (choice :value ("x" "Describe command here" tags "" nil)
- (list :tag "Single command"
- (string :tag "Access Key(s) ")
- (option (string :tag "Description"))
- (choice
- (const :tag "Agenda" agenda)
- (const :tag "TODO list" alltodo)
- (const :tag "Search words" search)
- (const :tag "Stuck projects" stuck)
- (const :tag "Tags/Property match (all agenda files)" tags)
- (const :tag "Tags/Property match of TODO entries (all agenda files)" tags-todo)
- (const :tag "TODO keyword search (all agenda files)" todo)
- (const :tag "Tags sparse tree (current buffer)" tags-tree)
- (const :tag "TODO keyword tree (current buffer)" todo-tree)
- (const :tag "Occur tree (current buffer)" occur-tree)
- (sexp :tag "Other, user-defined function"))
- (string :tag "Match (only for some commands)")
- ,org-agenda-custom-commands-local-options
- (option (repeat :tag "Export" (file :tag "Export to"))))
- (list :tag "Command series, all agenda files"
- (string :tag "Access Key(s)")
- (string :tag "Description ")
- (repeat :tag "Component"
- (choice
- (list :tag "Agenda"
- (const :format "" agenda)
- (const :tag "" :format "" "")
- ,org-agenda-custom-commands-local-options)
- (list :tag "TODO list (all keywords)"
- (const :format "" alltodo)
- (const :tag "" :format "" "")
- ,org-agenda-custom-commands-local-options)
- (list :tag "Search words"
- (const :format "" search)
- (string :tag "Match")
- ,org-agenda-custom-commands-local-options)
- (list :tag "Stuck projects"
- (const :format "" stuck)
- (const :tag "" :format "" "")
- ,org-agenda-custom-commands-local-options)
- (list :tag "Tags search"
- (const :format "" tags)
- (string :tag "Match")
- ,org-agenda-custom-commands-local-options)
- (list :tag "Tags search, TODO entries only"
- (const :format "" tags-todo)
- (string :tag "Match")
- ,org-agenda-custom-commands-local-options)
- (list :tag "TODO keyword search"
- (const :format "" todo)
- (string :tag "Match")
- ,org-agenda-custom-commands-local-options)
- (list :tag "Other, user-defined function"
- (symbol :tag "function")
- (string :tag "Match")
- ,org-agenda-custom-commands-local-options)))
-
- (repeat :tag "Settings for entire command set"
- (list (variable :tag "Any variable")
- (sexp :tag "Value")))
- (option (repeat :tag "Export" (file :tag "Export to"))))
- (cons :tag "Prefix key documentation"
- (string :tag "Access Key(s)")
- (string :tag "Description ")))))
-
-(defcustom org-agenda-query-register ?o
- "The register holding the current query string.
-The purpose of this is that if you construct a query string interactively,
-you can then use it to define a custom command."
- :group 'org-agenda-custom-commands
- :type 'character)
-
-(defcustom org-stuck-projects
- '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil "")
- "How to identify stuck projects.
-This is a list of four items:
-1. A tags/todo/property matcher string that is used to identify a project.
- See the manual for a description of tag and property searches.
- The entire tree below a headline matched by this is considered one project.
-2. A list of TODO keywords identifying non-stuck projects.
- If the project subtree contains any headline with one of these todo
- keywords, the project is considered to be not stuck. If you specify
- \"*\" as a keyword, any TODO keyword will mark the project unstuck.
-3. A list of tags identifying non-stuck projects.
- If the project subtree contains any headline with one of these tags,
- the project is considered to be not stuck. If you specify \"*\" as
- a tag, any tag will mark the project unstuck. Note that this is about
- the explicit presence of a tag somewhere in the subtree, inherited
- tags do not count here. If inherited tags make a project not stuck,
- use \"-TAG\" in the tags part of the matcher under (1.) above.
-4. An arbitrary regular expression matching non-stuck projects.
-
-If the project turns out to be not stuck, search continues also in the
-subtree to see if any of the subtasks have project status.
-
-See also the variable `org-tags-match-list-sublevels' which applies
-to projects matched by this search as well.
-
-After defining this variable, you may use `org-agenda-list-stuck-projects'
-\(bound to `\\[org-agenda] #') to produce the list."
- :group 'org-agenda-custom-commands
- :type '(list
- (string :tag "Tags/TODO match to identify a project")
- (repeat :tag "Projects are *not* stuck if they have an entry with \
-TODO keyword any of" (string))
- (repeat :tag "Projects are *not* stuck if they have an entry with \
-TAG being any of" (string))
- (regexp :tag "Projects are *not* stuck if this regexp matches inside \
-the subtree")))
-
-(defgroup org-agenda-skip nil
- "Options concerning skipping parts of agenda files."
- :tag "Org Agenda Skip"
- :group 'org-agenda)
-
-(defcustom org-agenda-skip-function-global nil
- "Function to be called at each match during agenda construction.
-If this function returns nil, the current match should not be skipped.
-If the function decided to skip an agenda match, is must return the
-buffer position from which the search should be continued.
-This may also be a Lisp form, which will be evaluated.
-
-This variable will be applied to every agenda match, including
-tags/property searches and TODO lists. So try to make the test function
-do its checking as efficiently as possible. To implement a skipping
-condition just for specific agenda commands, use the variable
-`org-agenda-skip-function' which can be set in the options section
-of custom agenda commands."
- :group 'org-agenda-skip
- :type 'sexp)
-
-(defgroup org-agenda-daily/weekly nil
- "Options concerning the daily/weekly agenda."
- :tag "Org Agenda Daily/Weekly"
- :group 'org-agenda)
-(defgroup org-agenda-todo-list nil
- "Options concerning the global todo list agenda view."
- :tag "Org Agenda Todo List"
- :group 'org-agenda)
-(defgroup org-agenda-match-view nil
- "Options concerning the general tags/property/todo match agenda view."
- :tag "Org Agenda Match View"
- :group 'org-agenda)
-(defgroup org-agenda-search-view nil
- "Options concerning the search agenda view."
- :tag "Org Agenda Search View"
- :group 'org-agenda)
-
-(defvar org-agenda-archives-mode nil
- "Non-nil means the agenda will include archived items.
-If this is the symbol `trees', trees in the selected agenda scope
-that are marked with the ARCHIVE tag will be included anyway. When this is
-t, also all archive files associated with the current selection of agenda
-files will be included.")
-
-(defcustom org-agenda-restriction-lock-highlight-subtree t
- "Non-nil means highlight the whole subtree when restriction is active.
-Otherwise only highlight the headline. Highlighting the whole subtree is
-useful to ensure no edits happen beyond the restricted region."
- :group 'org-agenda
- :type 'boolean)
-
-(defcustom org-agenda-skip-comment-trees t
- "Non-nil means skip trees that start with the COMMENT keyword.
-When nil, these trees are also scanned by agenda commands."
- :group 'org-agenda-skip
- :type 'boolean)
-
-(defcustom org-agenda-todo-list-sublevels t
- "Non-nil means check also the sublevels of a TODO entry for TODO entries.
-When nil, the sublevels of a TODO entry are not checked, resulting in
-potentially much shorter TODO lists."
- :group 'org-agenda-skip
- :group 'org-agenda-todo-list
- :type 'boolean)
-
-(defcustom org-agenda-todo-ignore-with-date nil
- "Non-nil means don't show entries with a date in the global todo list.
-You can use this if you prefer to mark mere appointments with a TODO keyword,
-but don't want them to show up in the TODO list.
-When this is set, it also covers deadlines and scheduled items, the settings
-of `org-agenda-todo-ignore-scheduled' and `org-agenda-todo-ignore-deadlines'
-will be ignored.
-See also the variable `org-agenda-tags-todo-honor-ignore-options'."
- :group 'org-agenda-skip
- :group 'org-agenda-todo-list
- :type 'boolean)
-
-(defcustom org-agenda-todo-ignore-timestamp nil
- "Non-nil means don't show entries with a timestamp.
-This applies when creating the global todo list.
-Valid values are:
-
-past Don't show entries for today or in the past.
-
-future Don't show entries with a timestamp in the future.
- The idea behind this is that if it has a future
- timestamp, you don't want to think about it until the
- date.
-
-all Don't show any entries with a timestamp in the global todo list.
- The idea behind this is that by setting a timestamp, you
- have already \"taken care\" of this item.
-
-This variable can also have an integer as a value. If positive (N),
-todos with a timestamp N or more days in the future will be ignored. If
-negative (-N), todos with a timestamp N or more days in the past will be
-ignored. If 0, todos with a timestamp either today or in the future will
-be ignored. For example, a value of -1 will exclude todos with a
-timestamp in the past (yesterday or earlier), while a value of 7 will
-exclude todos with a timestamp a week or more in the future.
-
-See also `org-agenda-todo-ignore-with-date'.
-See also the variable `org-agenda-tags-todo-honor-ignore-options' if you want
-to make his option also apply to the tags-todo list."
- :group 'org-agenda-skip
- :group 'org-agenda-todo-list
- :version "24.1"
- :type '(choice
- (const :tag "Ignore future timestamp todos" future)
- (const :tag "Ignore past or present timestamp todos" past)
- (const :tag "Ignore all timestamp todos" all)
- (const :tag "Show timestamp todos" nil)
- (integer :tag "Ignore if N or more days in past(-) or future(+).")))
-
-(defcustom org-agenda-todo-ignore-scheduled nil
- "Non-nil means, ignore some scheduled TODO items when making TODO list.
-This applies when creating the global todo list.
-Valid values are:
-
-past Don't show entries scheduled today or in the past.
-
-future Don't show entries scheduled in the future.
- The idea behind this is that by scheduling it, you don't want to
- think about it until the scheduled date.
-
-all Don't show any scheduled entries in the global todo list.
- The idea behind this is that by scheduling it, you have already
- \"taken care\" of this item.
-
-t Same as `all', for backward compatibility.
-
-This variable can also have an integer as a value. See
-`org-agenda-todo-ignore-timestamp' for more details.
-
-See also `org-agenda-todo-ignore-with-date'.
-See also the variable `org-agenda-tags-todo-honor-ignore-options' if you want
-to make his option also apply to the tags-todo list."
- :group 'org-agenda-skip
- :group 'org-agenda-todo-list
- :type '(choice
- (const :tag "Ignore future-scheduled todos" future)
- (const :tag "Ignore past- or present-scheduled todos" past)
- (const :tag "Ignore all scheduled todos" all)
- (const :tag "Ignore all scheduled todos (compatibility)" t)
- (const :tag "Show scheduled todos" nil)
- (integer :tag "Ignore if N or more days in past(-) or future(+).")))
-
-(defcustom org-agenda-todo-ignore-deadlines nil
- "Non-nil means ignore some deadline TODO items when making TODO list.
-
-There are different motivations for using different values, please think
-carefully when configuring this variable.
-
-This applies when creating the global TODO list.
-
-Valid values are:
-
-near Don't show near deadline entries. A deadline is near when it is
- closer than `org-deadline-warning-days' days. The idea behind this
- is that such items will appear in the agenda anyway.
-
-far Don't show TODO entries where a deadline has been defined, but
- is not going to happen anytime soon. This is useful if you want to use
- the TODO list to figure out what to do now.
-
-past Don't show entries with a deadline timestamp for today or in the past.
-
-future Don't show entries with a deadline timestamp in the future, not even
- when they become `near' ones. Use it with caution.
-
-all Ignore all TODO entries that do have a deadline.
-
-t Same as `near', for backward compatibility.
-
-This variable can also have an integer as a value. See
-`org-agenda-todo-ignore-timestamp' for more details.
-
-See also `org-agenda-todo-ignore-with-date'.
-See also the variable `org-agenda-tags-todo-honor-ignore-options' if you want
-to make his option also apply to the tags-todo list."
- :group 'org-agenda-skip
- :group 'org-agenda-todo-list
- :type '(choice
- (const :tag "Ignore near deadlines" near)
- (const :tag "Ignore near deadlines (compatibility)" t)
- (const :tag "Ignore far deadlines" far)
- (const :tag "Ignore all TODOs with a deadlines" all)
- (const :tag "Show all TODOs, even if they have a deadline" nil)
- (integer :tag "Ignore if N or more days in past(-) or future(+).")))
-
-(defcustom org-agenda-todo-ignore-time-comparison-use-seconds nil
- "Time unit to use when possibly ignoring an agenda item.
-
-See the docstring of various `org-agenda-todo-ignore-*' options.
-The default is to compare time stamps using days. An item is thus
-considered to be in the future if it is at least one day after today.
-Non-nil means to compare time stamps using seconds. An item is then
-considered future if it has a time value later than current time."
- :group 'org-agenda-skip
- :group 'org-agenda-todo-list
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Compare time with days" nil)
- (const :tag "Compare time with seconds" t)))
-
-(defcustom org-agenda-tags-todo-honor-ignore-options nil
- "Non-nil means honor todo-list ignores options also in tags-todo search.
-The variables
- `org-agenda-todo-ignore-with-date',
- `org-agenda-todo-ignore-timestamp',
- `org-agenda-todo-ignore-scheduled',
- `org-agenda-todo-ignore-deadlines'
-make the global TODO list skip entries that have time stamps of certain
-kinds. If this option is set, the same options will also apply for the
-tags-todo search, which is the general tags/property matcher
-restricted to unfinished TODO entries only."
- :group 'org-agenda-skip
- :group 'org-agenda-todo-list
- :group 'org-agenda-match-view
- :type 'boolean)
-
-(defcustom org-agenda-skip-scheduled-if-done nil
- "Non-nil means don't show scheduled items in agenda when they are done.
-This is relevant for the daily/weekly agenda, not for the TODO list. It
-applies only to the actual date of the scheduling. Warnings about an item
-with a past scheduling dates are always turned off when the item is DONE."
- :group 'org-agenda-skip
- :group 'org-agenda-daily/weekly
- :type 'boolean)
-
-(defcustom org-agenda-skip-scheduled-if-deadline-is-shown nil
- "Non-nil means skip scheduling line if same entry shows because of deadline.
-
-In the agenda of today, an entry can show up multiple times
-because it is both scheduled and has a nearby deadline, and maybe
-a plain time stamp as well.
-
-When this variable is nil, the entry will be shown several times.
-
-When set to t, then only the deadline is shown and the fact that
-the entry is scheduled today or was scheduled previously is not
-shown.
-
-When set to the symbol `not-today', skip scheduled previously,
-but not scheduled today.
-
-When set to the symbol `repeated-after-deadline', skip scheduled
-items if they are repeated beyond the current deadline."
- :group 'org-agenda-skip
- :group 'org-agenda-daily/weekly
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "Not when scheduled today" not-today)
- (const :tag "When repeated past deadline" repeated-after-deadline)))
-
-(defcustom org-agenda-skip-timestamp-if-deadline-is-shown nil
- "Non-nil means skip timestamp line if same entry shows because of deadline.
-In the agenda of today, an entry can show up multiple times
-because it has both a plain timestamp and has a nearby deadline.
-When this variable is t, then only the deadline is shown and the
-fact that the entry has a timestamp for or including today is not
-shown. When this variable is nil, the entry will be shown
-several times."
- :group 'org-agenda-skip
- :group 'org-agenda-daily/weekly
- :version "24.1"
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Always" t)))
-
-(defcustom org-agenda-skip-deadline-if-done nil
- "Non-nil means don't show deadlines when the corresponding item is done.
-When nil, the deadline is still shown and should give you a happy feeling.
-This is relevant for the daily/weekly agenda. It applies only to the
-actual date of the deadline. Warnings about approaching and past-due
-deadlines are always turned off when the item is DONE."
- :group 'org-agenda-skip
- :group 'org-agenda-daily/weekly
- :type 'boolean)
-
-(defcustom org-agenda-skip-deadline-prewarning-if-scheduled nil
- "Non-nil means skip deadline prewarning when entry is also scheduled.
-This will apply on all days where a prewarning for the deadline would
-be shown, but not at the day when the entry is actually due. On that day,
-the deadline will be shown anyway.
-This variable may be set to nil, t, the symbol `pre-scheduled',
-or a number which will then give the number of days before the actual
-deadline when the prewarnings should resume. The symbol `pre-scheduled'
-eliminates the deadline prewarning only prior to the scheduled date.
-This can be used in a workflow where the first showing of the deadline will
-trigger you to schedule it, and then you don't want to be reminded of it
-because you will take care of it on the day when scheduled."
- :group 'org-agenda-skip
- :group 'org-agenda-daily/weekly
- :version "24.1"
- :type '(choice
- (const :tag "Always show prewarning" nil)
- (const :tag "Remove prewarning prior to scheduled date" pre-scheduled)
- (const :tag "Remove prewarning if entry is scheduled" t)
- (integer :tag "Restart prewarning N days before deadline")))
-
-(defcustom org-agenda-skip-scheduled-delay-if-deadline nil
- "Non-nil means skip scheduled delay when entry also has a deadline.
-This variable may be set to nil, t, the symbol `post-deadline',
-or a number which will then give the number of days after the actual
-scheduled date when the delay should expire. The symbol `post-deadline'
-eliminates the schedule delay when the date is posterior to the deadline."
- :group 'org-agenda-skip
- :group 'org-agenda-daily/weekly
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Always honor delay" nil)
- (const :tag "Ignore delay if posterior to the deadline" post-deadline)
- (const :tag "Ignore delay if entry has a deadline" t)
- (integer :tag "Honor delay up until N days after the scheduled date")))
-
-(defcustom org-agenda-skip-additional-timestamps-same-entry nil
- "When nil, multiple same-day timestamps in entry make multiple agenda lines.
-When non-nil, after the search for timestamps has matched once in an
-entry, the rest of the entry will not be searched."
- :group 'org-agenda-skip
- :type 'boolean)
-
-(defcustom org-agenda-skip-timestamp-if-done nil
- "Non-nil means don't select item by timestamp or -range if it is DONE."
- :group 'org-agenda-skip
- :group 'org-agenda-daily/weekly
- :type 'boolean)
-
-(defcustom org-agenda-dim-blocked-tasks t
- "Non-nil means dim blocked tasks in the agenda display.
-This causes some overhead during agenda construction, but if you
-have turned on `org-enforce-todo-dependencies',
-`org-enforce-todo-checkbox-dependencies', or any other blocking
-mechanism, this will create useful feedback in the agenda.
-
-Instead of t, this variable can also have the value `invisible'.
-Then blocked tasks will be invisible and only become visible when
-they become unblocked. An exemption to this behavior is when a task is
-blocked because of unchecked checkboxes below it. Since checkboxes do
-not show up in the agenda views, making this task invisible you remove any
-trace from agenda views that there is something to do. Therefore, a task
-that is blocked because of checkboxes will never be made invisible, it
-will only be dimmed."
- :group 'org-agenda-daily/weekly
- :group 'org-agenda-todo-list
- :version "24.3"
- :type '(choice
- (const :tag "Do not dim" nil)
- (const :tag "Dim to a gray face" t)
- (const :tag "Make invisible" invisible)))
-
-(defgroup org-agenda-startup nil
- "Options concerning initial settings in the Agenda in Org Mode."
- :tag "Org Agenda Startup"
- :group 'org-agenda)
-
-(defcustom org-agenda-menu-show-matcher t
- "Non-nil means show the match string in the agenda dispatcher menu.
-When nil, the matcher string is not shown, but is put into the help-echo
-property so than moving the mouse over the command shows it.
-Setting it to nil is good if matcher strings are very long and/or if
-you want to use two-columns display (see `org-agenda-menu-two-columns')."
- :group 'org-agenda
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-menu-two-columns nil
- "Non-nil means, use two columns to show custom commands in the dispatcher.
-If you use this, you probably want to set `org-agenda-menu-show-matcher'
-to nil."
- :group 'org-agenda
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-finalize-hook nil
- "Hook run just before displaying an agenda buffer.
-The buffer is still writable when the hook is called.
-
-You can modify some of the buffer substrings but you should be
-extra careful not to modify the text properties of the agenda
-headlines as the agenda display heavily relies on them."
- :group 'org-agenda-startup
- :type 'hook)
-
-(defcustom org-agenda-mouse-1-follows-link nil
- "Non-nil means mouse-1 on a link will follow the link in the agenda.
-A longer mouse click will still set point. Needs to be set
-before org.el is loaded."
- :group 'org-agenda-startup
- :type 'boolean)
-
-(defcustom org-agenda-start-with-follow-mode nil
- "The initial value of follow mode in a newly created agenda window."
- :group 'org-agenda-startup
- :type 'boolean)
-
-(defcustom org-agenda-follow-indirect nil
- "Non-nil means `org-agenda-follow-mode' displays only the
-current item's tree, in an indirect buffer."
- :group 'org-agenda
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-show-outline-path t
- "Non-nil means show outline path in echo area after line motion."
- :group 'org-agenda-startup
- :type 'boolean)
-
-(defcustom org-agenda-start-with-entry-text-mode nil
- "The initial value of entry-text-mode in a newly created agenda window."
- :group 'org-agenda-startup
- :type 'boolean)
-
-(defcustom org-agenda-entry-text-maxlines 5
- "Number of text lines to be added when `E' is pressed in the agenda.
-
-Note that this variable only used during agenda display. To add entry text
-when exporting the agenda, configure the variable
-`org-agenda-add-entry-text-maxlines'."
- :group 'org-agenda
- :type 'integer)
-
-(defcustom org-agenda-entry-text-exclude-regexps nil
- "List of regular expressions to clean up entry text.
-The complete matches of all regular expressions in this list will be
-removed from entry text before it is shown in the agenda."
- :group 'org-agenda
- :type '(repeat (regexp)))
-
-(defcustom org-agenda-entry-text-leaders " > "
- "Text prepended to the entry text in agenda buffers."
- :version "24.4"
- :package-version '(Org . "8.0")
- :group 'org-agenda
- :type 'string)
-
-(defvar org-agenda-entry-text-cleanup-hook nil
- "Hook that is run after basic cleanup of entry text to be shown in agenda.
-This cleanup is done in a temporary buffer, so the function may inspect and
-change the entire buffer.
-Some default stuff like drawers and scheduling/deadline dates will already
-have been removed when this is called, as will any matches for regular
-expressions listed in `org-agenda-entry-text-exclude-regexps'.")
-
-(defvar org-agenda-include-inactive-timestamps nil
- "Non-nil means include inactive time stamps in agenda.
-Dynamically scoped.")
-
-(defgroup org-agenda-windows nil
- "Options concerning the windows used by the Agenda in Org Mode."
- :tag "Org Agenda Windows"
- :group 'org-agenda)
-
-(defcustom org-agenda-window-setup 'reorganize-frame
- "How the agenda buffer should be displayed.
-Possible values for this option are:
-
-current-window Show agenda in the current window, keeping all other windows.
-other-window Use `switch-to-buffer-other-window' to display agenda.
-only-window Show agenda, deleting all other windows.
-reorganize-frame Show only two windows on the current frame, the current
- window and the agenda.
-other-frame Use `switch-to-buffer-other-frame' to display agenda.
- Also, when exiting the agenda, kill that frame.
-See also the variable `org-agenda-restore-windows-after-quit'."
- :group 'org-agenda-windows
- :type '(choice
- (const current-window)
- (const other-frame)
- (const other-window)
- (const only-window)
- (const reorganize-frame)))
-
-(defcustom org-agenda-window-frame-fractions '(0.5 . 0.75)
- "The min and max height of the agenda window as a fraction of frame height.
-The value of the variable is a cons cell with two numbers between 0 and 1.
-It only matters if `org-agenda-window-setup' is `reorganize-frame'."
- :group 'org-agenda-windows
- :type '(cons (number :tag "Minimum") (number :tag "Maximum")))
-
-(defcustom org-agenda-restore-windows-after-quit nil
- "Non-nil means restore window configuration upon exiting agenda.
-Before the window configuration is changed for displaying the agenda,
-the current status is recorded. When the agenda is exited with
-`q' or `x' and this option is set, the old state is restored. If
-`org-agenda-window-setup' is `other-frame', the value of this
-option will be ignored."
- :group 'org-agenda-windows
- :type 'boolean)
-
-(defcustom org-agenda-span 'week
- "Number of days to include in overview display.
-Can be day, week, month, year, or any number of days.
-Custom commands can set this variable in the options section."
- :group 'org-agenda-daily/weekly
- :type '(choice (const :tag "Day" day)
- (const :tag "Week" week)
- (const :tag "Fortnight" fortnight)
- (const :tag "Month" month)
- (const :tag "Year" year)
- (integer :tag "Custom")))
-
-(defcustom org-agenda-start-on-weekday 1
- "Non-nil means start the overview always on the specified weekday.
-0 denotes Sunday, 1 denotes Monday, etc.
-When nil, always start on the current day.
-Custom commands can set this variable in the options section."
- :group 'org-agenda-daily/weekly
- :type '(choice (const :tag "Today" nil)
- (integer :tag "Weekday No.")))
-
-(defcustom org-agenda-show-all-dates t
- "Non-nil means `org-agenda' shows every day in the selected range.
-When nil, only the days which actually have entries are shown."
- :group 'org-agenda-daily/weekly
- :type 'boolean)
-
-(defcustom org-agenda-format-date 'org-agenda-format-date-aligned
- "Format string for displaying dates in the agenda.
-Used by the daily/weekly agenda. This should be a format string
-understood by `format-time-string', or a function returning the
-formatted date as a string. The function must take a single
-argument, a calendar-style date list like (month day year)."
- :group 'org-agenda-daily/weekly
- :type '(choice
- (string :tag "Format string")
- (function :tag "Function")))
-
-(defun org-agenda-format-date-aligned (date)
- "Format a DATE string for display in the daily/weekly agenda.
-This function makes sure that dates are aligned for easy reading."
- (require 'cal-iso)
- (let* ((dayname (calendar-day-name date))
- (day (cadr date))
- (day-of-week (calendar-day-of-week date))
- (month (car date))
- (monthname (calendar-month-name month))
- (year (nth 2 date))
- (iso-week (org-days-to-iso-week
- (calendar-absolute-from-gregorian date)))
- (weekyear (cond ((and (= month 1) (>= iso-week 52))
- (1- year))
- ((and (= month 12) (<= iso-week 1))
- (1+ year))
- (t year)))
- (weekstring (if (= day-of-week 1)
- (format " W%02d" iso-week)
- "")))
- (format "%-10s %2d %s %4d%s"
- dayname day monthname year weekstring)))
-
-(defcustom org-agenda-time-leading-zero nil
- "Non-nil means use leading zero for military times in agenda.
-For example, 9:30am would become 09:30 rather than 9:30."
- :group 'org-agenda-daily/weekly
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-timegrid-use-ampm nil
- "When set, show AM/PM style timestamps on the timegrid."
- :group 'org-agenda
- :version "24.1"
- :type 'boolean)
-
-(defun org-agenda-time-of-day-to-ampm (time)
- "Convert TIME of a string like \"13:45\" to an AM/PM style time string."
- (let* ((hour-number (string-to-number (substring time 0 -3)))
- (minute (substring time -2))
- (ampm "am"))
- (cond
- ((equal hour-number 12)
- (setq ampm "pm"))
- ((> hour-number 12)
- (setq ampm "pm")
- (setq hour-number (- hour-number 12))))
- (concat
- (if org-agenda-time-leading-zero
- (format "%02d" hour-number)
- (format "%02s" (number-to-string hour-number)))
- ":" minute ampm)))
-
-(defun org-agenda-time-of-day-to-ampm-maybe (time)
- "Conditionally convert TIME to AM/PM format based on `org-agenda-timegrid-use-ampm'."
- (if org-agenda-timegrid-use-ampm
- (org-agenda-time-of-day-to-ampm time)
- time))
-
-(defcustom org-agenda-weekend-days '(6 0)
- "Which days are weekend?
-These days get the special face `org-agenda-date-weekend' in the agenda."
- :group 'org-agenda-daily/weekly
- :type '(set :greedy t
- (const :tag "Monday" 1)
- (const :tag "Tuesday" 2)
- (const :tag "Wednesday" 3)
- (const :tag "Thursday" 4)
- (const :tag "Friday" 5)
- (const :tag "Saturday" 6)
- (const :tag "Sunday" 0)))
-
-(defcustom org-agenda-move-date-from-past-immediately-to-today t
- "Non-nil means jump to today when moving a past date forward in time.
-When using S-right in the agenda to move a a date forward, and the date
-stamp currently points to the past, the first key press will move it
-to today. WHen nil, just move one day forward even if the date stays
-in the past."
- :group 'org-agenda-daily/weekly
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-include-diary nil
- "If non-nil, include in the agenda entries from the Emacs Calendar's diary.
-Custom commands can set this variable in the options section."
- :group 'org-agenda-daily/weekly
- :type 'boolean)
-
-(defcustom org-agenda-include-deadlines t
- "If non-nil, include entries within their deadline warning period.
-Custom commands can set this variable in the options section."
- :group 'org-agenda-daily/weekly
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-show-future-repeats t
- "Non-nil shows repeated entries in the future part of the agenda.
-When set to the symbol `next' only the first future repeat is shown."
- :group 'org-agenda-daily/weekly
- :type '(choice
- (const :tag "Show all repeated entries" t)
- (const :tag "Show next repeated entry" next)
- (const :tag "Do not show repeated entries" nil))
- :version "26.1"
- :package-version '(Org . "9.1")
- :safe #'symbolp)
-
-(defcustom org-agenda-prefer-last-repeat nil
- "Non-nil sets date for repeated entries to their last repeat.
-
-When nil, display SCHEDULED and DEADLINE dates at their base
-date, and in today's agenda, as a reminder. Display plain
-time-stamps, on the other hand, at every repeat date in the past
-in addition to the base date.
-
-When non-nil, show a repeated entry at its latest repeat date,
-possibly being today even if it wasn't marked as done. This
-setting is useful if you do not always mark repeated entries as
-done and, yet, consider that reaching repeat date starts the task
-anew.
-
-When set to a list of strings, prefer last repeats only for
-entries with these TODO keywords."
- :group 'org-agenda-daily/weekly
- :type '(choice
- (const :tag "Prefer last repeat" t)
- (const :tag "Prefer base date" nil)
- (repeat :tag "Prefer last repeat for entries with these TODO keywords"
- (string :tag "TODO keyword")))
- :version "26.1"
- :package-version '(Org . "9.1")
- :safe (lambda (x) (or (booleanp x) (consp x))))
-
-(defcustom org-scheduled-past-days 10000
- "Number of days to continue listing scheduled items not marked DONE.
-When an item is scheduled on a date, it shows up in the agenda on
-this day and will be listed until it is marked done or for the
-number of days given here."
- :group 'org-agenda-daily/weekly
- :type 'integer
- :safe 'integerp)
-
-(defcustom org-deadline-past-days 10000
- "Number of days to warn about missed deadlines.
-When an item has deadline on a date, it shows up in the agenda on
-this day and will appear as a reminder until it is marked DONE or
-for the number of days given here."
- :group 'org-agenda-daily/weekly
- :type 'integer
- :version "26.1"
- :package-version '(Org . "9.1")
- :safe 'integerp)
-
-(defcustom org-agenda-log-mode-items '(closed clock)
- "List of items that should be shown in agenda log mode.
-\\<org-agenda-mode-map>\
-This list may contain the following symbols:
-
- closed Show entries that have been closed on that day.
- clock Show entries that have received clocked time on that day.
- state Show all logged state changes.
-Note that instead of changing this variable, you can also press \
-`\\[universal-argument] \\[org-agenda-log-mode]' in
-the agenda to display all available LOG items temporarily."
- :group 'org-agenda-daily/weekly
- :type '(set :greedy t (const closed) (const clock) (const state)))
-
-(defcustom org-agenda-clock-consistency-checks
- '(:max-duration "10:00" :min-duration 0 :max-gap "0:05"
- :gap-ok-around ("4:00")
- :default-face ((:background "DarkRed") (:foreground "white"))
- :overlap-face nil :gap-face nil :no-end-time-face nil
- :long-face nil :short-face nil)
- "This is a property list, with the following keys:
-
-:max-duration Mark clocking chunks that are longer than this time.
- This is a time string like \"HH:MM\", or the number
- of minutes as an integer.
-
-:min-duration Mark clocking chunks that are shorter that this.
- This is a time string like \"HH:MM\", or the number
- of minutes as an integer.
-
-:max-gap Mark gaps between clocking chunks that are longer than
- this duration. A number of minutes, or a string
- like \"HH:MM\".
-
-:gap-ok-around List of times during the day which are usually not working
- times. When a gap is detected, but the gap contains any
- of these times, the gap is *not* reported. For example,
- if this is (\"4:00\" \"13:00\") then gaps that contain
- 4:00 in the morning (i.e. the night) and 13:00
- (i.e. a typical lunch time) do not cause a warning.
- You should have at least one time during the night in this
- list, or otherwise the first task each morning will trigger
- a warning because it follows a long gap.
-
-Furthermore, the following properties can be used to define faces for
-issue display.
-
-:default-face the default face, if the specific face is undefined
-:overlap-face face for overlapping clocks
-:gap-face face for gaps between clocks
-:no-end-time-face face for incomplete clocks
-:long-face face for clock intervals that are too long
-:short-face face for clock intervals that are too short"
- :group 'org-agenda-daily/weekly
- :group 'org-clock
- :version "24.1"
- :type 'plist)
-
-(defcustom org-agenda-log-mode-add-notes t
- "Non-nil means add first line of notes to log entries in agenda views.
-If a log item like a state change or a clock entry is associated with
-notes, the first line of these notes will be added to the entry in the
-agenda display."
- :group 'org-agenda-daily/weekly
- :type 'boolean)
-
-(defcustom org-agenda-start-with-log-mode nil
- "The initial value of log-mode in a newly created agenda window.
-See `org-agenda-log-mode' and `org-agenda-log-mode-items' for further
-explanations on the possible values."
- :group 'org-agenda-startup
- :group 'org-agenda-daily/weekly
- :type '(choice (const :tag "Don't show log items" nil)
- (const :tag "Show only log items" only)
- (const :tag "Show all possible log items" clockcheck)
- (repeat :tag "Choose among possible values for `org-agenda-log-mode-items'"
- (choice (const :tag "Show closed log items" closed)
- (const :tag "Show clocked log items" clock)
- (const :tag "Show all logged state changes" state)))))
-
-(defcustom org-agenda-start-with-clockreport-mode nil
- "The initial value of clockreport-mode in a newly created agenda window."
- :group 'org-agenda-startup
- :group 'org-agenda-daily/weekly
- :type 'boolean)
-
-(defcustom org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2)
- "Property list with parameters for the clocktable in clockreport mode.
-This is the display mode that shows a clock table in the daily/weekly
-agenda, the properties for this dynamic block can be set here.
-The usual clocktable parameters are allowed here, but you cannot set
-the properties :name, :tstart, :tend, :block, and :scope - these will
-be overwritten to make sure the content accurately reflects the
-current display in the agenda."
- :group 'org-agenda-daily/weekly
- :type 'plist)
-
-(defcustom org-agenda-search-view-always-boolean nil
- "Non-nil means the search string is interpreted as individual parts.
-
-The search string for search view can either be interpreted as a phrase,
-or as a list of snippets that define a boolean search for a number of
-strings.
-
-When this is non-nil, the string will be split on whitespace, and each
-snippet will be searched individually, and all must match in order to
-select an entry. A snippet is then a single string of non-white
-characters, or a string in double quotes, or a regexp in {} braces.
-If a snippet is preceded by \"-\", the snippet must *not* match.
-\"+\" is syntactic sugar for positive selection. Each snippet may
-be found as a full word or a partial word, but see the variable
-`org-agenda-search-view-force-full-words'.
-
-When this is nil, search will look for the entire search phrase as one,
-with each space character matching any amount of whitespace, including
-line breaks.
-
-Even when this is nil, you can still switch to Boolean search dynamically
-by preceding the first snippet with \"+\" or \"-\". If the first snippet
-is a regexp marked with braces like \"{abc}\", this will also switch to
-boolean search."
- :group 'org-agenda-search-view
- :version "24.1"
- :type 'boolean)
-
-(defvaralias 'org-agenda-search-view-search-words-only
- 'org-agenda-search-view-always-boolean)
-
-(defcustom org-agenda-search-view-force-full-words nil
- "Non-nil means, search words must be matches as complete words.
-When nil, they may also match part of a word."
- :group 'org-agenda-search-view
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-search-view-max-outline-level 0
- "Maximum outline level to display in search view.
-E.g. when this is set to 1, the search view will only
-show headlines of level 1. When set to 0, the default
-value, don't limit agenda view by outline level."
- :group 'org-agenda-search-view
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'integer)
-
-(defgroup org-agenda-time-grid nil
- "Options concerning the time grid in the Org Agenda."
- :tag "Org Agenda Time Grid"
- :group 'org-agenda)
-
-(defcustom org-agenda-search-headline-for-time t
- "Non-nil means search headline for a time-of-day.
-If the headline contains a time-of-day in one format or another, it will
-be used to sort the entry into the time sequence of items for a day.
-Some people have time stamps in the headline that refer to the creation
-time or so, and then this produces an unwanted side effect. If this is
-the case for your, use this variable to turn off searching the headline
-for a time."
- :group 'org-agenda-time-grid
- :type 'boolean)
-
-(defcustom org-agenda-use-time-grid t
- "Non-nil means show a time grid in the agenda schedule.
-A time grid is a set of lines for specific times (like every two hours between
-8:00 and 20:00). The items scheduled for a day at specific times are
-sorted in between these lines.
-For details about when the grid will be shown, and what it will look like, see
-the variable `org-agenda-time-grid'."
- :group 'org-agenda-time-grid
- :type 'boolean)
-
-(defcustom org-agenda-time-grid
- '((daily today require-timed)
- (800 1000 1200 1400 1600 1800 2000)
- "......"
- "----------------")
-
- "The settings for time grid for agenda display.
-This is a list of four items. The first item is again a list. It contains
-symbols specifying conditions when the grid should be displayed:
-
- daily if the agenda shows a single day
- weekly if the agenda shows an entire week
- today show grid on current date, independent of daily/weekly display
- require-timed show grid only if at least one item has a time specification
- remove-match skip grid times already present in an entry
-
-The second item is a list of integers, indicating the times that
-should have a grid line.
-
-The third item is a string which will be placed right after the
-times that have a grid line.
-
-The fourth item is a string placed after the grid times. This
-will align with agenda items"
- :group 'org-agenda-time-grid
- :type
- '(list
- (set :greedy t :tag "Grid Display Options"
- (const :tag "Show grid in single day agenda display" daily)
- (const :tag "Show grid in weekly agenda display" weekly)
- (const :tag "Always show grid for today" today)
- (const :tag "Show grid only if any timed entries are present"
- require-timed)
- (const :tag "Skip grid times already present in an entry"
- remove-match))
- (repeat :tag "Grid Times" (integer :tag "Time"))
- (string :tag "Grid String (after agenda times)")
- (string :tag "Grid String (aligns with agenda items)")))
-
-(defcustom org-agenda-show-current-time-in-grid t
- "Non-nil means show the current time in the time grid."
- :group 'org-agenda-time-grid
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-current-time-string
- "now - - - - - - - - - - - - - - - - - - - - - - - - -"
- "The string for the current time marker in the agenda."
- :group 'org-agenda-time-grid
- :version "24.1"
- :type 'string)
-
-(defgroup org-agenda-sorting nil
- "Options concerning sorting in the Org Agenda."
- :tag "Org Agenda Sorting"
- :group 'org-agenda)
-
-(defcustom org-agenda-sorting-strategy
- '((agenda habit-down time-up priority-down category-keep)
- (todo priority-down category-keep)
- (tags priority-down category-keep)
- (search category-keep))
- "Sorting structure for the agenda items of a single day.
-This is a list of symbols which will be used in sequence to determine
-if an entry should be listed before another entry. The following
-symbols are recognized:
-
-time-up Put entries with time-of-day indications first, early first
-time-down Put entries with time-of-day indications first, late first
-timestamp-up Sort by any timestamp, early first
-timestamp-down Sort by any timestamp, late first
-scheduled-up Sort by scheduled timestamp, early first
-scheduled-down Sort by scheduled timestamp, late first
-deadline-up Sort by deadline timestamp, early first
-deadline-down Sort by deadline timestamp, late first
-ts-up Sort by active timestamp, early first
-ts-down Sort by active timestamp, late first
-tsia-up Sort by inactive timestamp, early first
-tsia-down Sort by inactive timestamp, late first
-category-keep Keep the default order of categories, corresponding to the
- sequence in `org-agenda-files'.
-category-up Sort alphabetically by category, A-Z.
-category-down Sort alphabetically by category, Z-A.
-tag-up Sort alphabetically by last tag, A-Z.
-tag-down Sort alphabetically by last tag, Z-A.
-priority-up Sort numerically by priority, high priority last.
-priority-down Sort numerically by priority, high priority first.
-todo-state-up Sort by todo state, tasks that are done last.
-todo-state-down Sort by todo state, tasks that are done first.
-effort-up Sort numerically by estimated effort, high effort last.
-effort-down Sort numerically by estimated effort, high effort first.
-user-defined-up Sort according to `org-agenda-cmp-user-defined', high last.
-user-defined-down Sort according to `org-agenda-cmp-user-defined', high first.
-habit-up Put entries that are habits first
-habit-down Put entries that are habits last
-alpha-up Sort headlines alphabetically
-alpha-down Sort headlines alphabetically, reversed
-
-The different possibilities will be tried in sequence, and testing stops
-if one comparison returns a \"not-equal\". For example, the default
- '(time-up category-keep priority-down)
-means: Pull out all entries having a specified time of day and sort them,
-in order to make a time schedule for the current day the first thing in the
-agenda listing for the day. Of the entries without a time indication, keep
-the grouped in categories, don't sort the categories, but keep them in
-the sequence given in `org-agenda-files'. Within each category sort by
-priority.
-
-Leaving out `category-keep' would mean that items will be sorted across
-categories by priority.
-
-Instead of a single list, this can also be a set of list for specific
-contents, with a context symbol in the car of the list, any of
-`agenda', `todo', `tags', `search' for the corresponding agenda views.
-
-Custom commands can bind this variable in the options section."
- :group 'org-agenda-sorting
- :type `(choice
- (repeat :tag "General" ,org-sorting-choice)
- (list :tag "Individually"
- (cons (const :tag "Strategy for Weekly/Daily agenda" agenda)
- (repeat ,org-sorting-choice))
- (cons (const :tag "Strategy for TODO lists" todo)
- (repeat ,org-sorting-choice))
- (cons (const :tag "Strategy for Tags matches" tags)
- (repeat ,org-sorting-choice))
- (cons (const :tag "Strategy for search matches" search)
- (repeat ,org-sorting-choice)))))
-
-(defcustom org-agenda-cmp-user-defined nil
- "A function to define the comparison `user-defined'.
-This function must receive two arguments, agenda entry a and b.
-If a>b, return +1. If a<b, return -1. If they are equal as seen by
-the user comparison, return nil.
-When this is defined, you can make `user-defined-up' and `user-defined-down'
-part of an agenda sorting strategy."
- :group 'org-agenda-sorting
- :type 'symbol)
-
-(defcustom org-sort-agenda-notime-is-late t
- "Non-nil means items without time are considered late.
-This is only relevant for sorting. When t, items which have no explicit
-time like 15:30 will be considered as 99:01, i.e. later than any items which
-do have a time. When nil, the default time is before 0:00. You can use this
-option to decide if the schedule for today should come before or after timeless
-agenda entries."
- :group 'org-agenda-sorting
- :type 'boolean)
-
-(defcustom org-sort-agenda-noeffort-is-high t
- "Non-nil means items without effort estimate are sorted as high effort.
-This also applies when filtering an agenda view with respect to the
-< or > effort operator. Then, tasks with no effort defined will be treated
-as tasks with high effort.
-When nil, such items are sorted as 0 minutes effort."
- :group 'org-agenda-sorting
- :type 'boolean)
-
-(defgroup org-agenda-line-format nil
- "Options concerning the entry prefix in the Org agenda display."
- :tag "Org Agenda Line Format"
- :group 'org-agenda)
-
-(defcustom org-agenda-prefix-format
- '((agenda . " %i %-12:c%?-12t% s")
- (todo . " %i %-12:c")
- (tags . " %i %-12:c")
- (search . " %i %-12:c"))
- "Format specifications for the prefix of items in the agenda views.
-
-An alist with one entry per agenda type. The keys of the
-sublists are `agenda', `todo', `search' and `tags'. The values
-are format strings.
-
-This format works similar to a printf format, with the following meaning:
-
- %c the category of the item, \"Diary\" for entries from the diary,
- or as given by the CATEGORY keyword or derived from the file name
- %e the effort required by the item
- %l the level of the item (insert X space(s) if item is of level X)
- %i the icon category of the item, see `org-agenda-category-icon-alist'
- %T the last tag of the item (ignore inherited tags, which come first)
- %t the HH:MM time-of-day specification if one applies to the entry
- %s Scheduling/Deadline information, a short string
- %b show breadcrumbs, i.e., the names of the higher levels
- %(expression) Eval EXPRESSION and replace the control string
- by the result
-
-All specifiers work basically like the standard `%s' of printf, but may
-contain two additional characters: a question mark just after the `%'
-and a whitespace/punctuation character just before the final letter.
-
-If the first character after `%' is a question mark, the entire field
-will only be included if the corresponding value applies to the current
-entry. This is useful for fields which should have fixed width when
-present, but zero width when absent. For example, \"%?-12t\" will
-result in a 12 character time field if a time of the day is specified,
-but will completely disappear in entries which do not contain a time.
-
-If there is punctuation or whitespace character just before the
-final format letter, this character will be appended to the field
-value if the value is not empty. For example, the format
-\"%-12:c\" leads to \"Diary: \" if the category is \"Diary\". If
-the category is empty, no additional colon is inserted.
-
-The default value for the agenda sublist is \" %-12:c%?-12t% s\",
-which means:
-
-- Indent the line with two space characters
-- Give the category a 12 chars wide field, padded with whitespace on
- the right (because of `-'). Append a colon if there is a category
- (because of `:').
-- If there is a time-of-day, put it into a 12 chars wide field. If no
- time, don't put in an empty field, just skip it (because of '?').
-- Finally, put the scheduling information.
-
-See also the variables `org-agenda-remove-times-when-in-prefix' and
-`org-agenda-remove-tags'.
-
-Custom commands can set this variable in the options section."
- :type '(choice
- (string :tag "General format")
- (list :greedy t :tag "View dependent"
- (cons (const agenda) (string :tag "Format"))
- (cons (const todo) (string :tag "Format"))
- (cons (const tags) (string :tag "Format"))
- (cons (const search) (string :tag "Format"))))
- :group 'org-agenda-line-format
- :version "26.1"
- :package-version '(Org . "9.1"))
-
-(defvar org-prefix-format-compiled nil
- "The compiled prefix format and associated variables.
-This is a list where first element is a list of variable bindings, and second
-element is the compiled format expression. See the variable
-`org-agenda-prefix-format'.")
-
-(defcustom org-agenda-todo-keyword-format "%-1s"
- "Format for the TODO keyword in agenda lines.
-Set this to something like \"%-12s\" if you want all TODO keywords
-to occupy a fixed space in the agenda display."
- :group 'org-agenda-line-format
- :type 'string)
-
-(defcustom org-agenda-diary-sexp-prefix nil
- "A regexp that matches part of a diary sexp entry
-which should be treated as scheduling/deadline information in
-`org-agenda'.
-
-For example, you can use this to extract the `diary-remind-message' from
-`diary-remind' entries."
- :group 'org-agenda-line-format
- :type '(choice (const :tag "None" nil) (regexp :tag "Regexp")))
-
-(defcustom org-agenda-timerange-leaders '("" "(%d/%d): ")
- "Text preceding timerange entries in the agenda view.
-This is a list with two strings. The first applies when the range
-is entirely on one day. The second applies if the range spans several days.
-The strings may have two \"%d\" format specifiers which will be filled
-with the sequence number of the days, and the total number of days in the
-range, respectively."
- :group 'org-agenda-line-format
- :type '(list
- (string :tag "Deadline today ")
- (choice :tag "Deadline relative"
- (string :tag "Format string")
- (function))))
-
-(defcustom org-agenda-scheduled-leaders '("Scheduled: " "Sched.%2dx: ")
- "Text preceding scheduled items in the agenda view.
-This is a list with two strings. The first applies when the item is
-scheduled on the current day. The second applies when it has been scheduled
-previously, it may contain a %d indicating that this is the nth time that
-this item is scheduled, due to automatic rescheduling of unfinished items
-for the following day. So this number is one larger than the number of days
-that passed since this item was scheduled first."
- :group 'org-agenda-line-format
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(list
- (string :tag "Scheduled today ")
- (string :tag "Scheduled previously")))
-
-(defcustom org-agenda-inactive-leader "["
- "Text preceding item pulled into the agenda by inactive time stamps.
-These entries are added to the agenda when pressing \"[\"."
- :group 'org-agenda-line-format
- :version "24.1"
- :type 'string)
-
-(defcustom org-agenda-deadline-leaders '("Deadline: " "In %3d d.: " "%2d d. ago: ")
- "Text preceding deadline items in the agenda view.
-This is a list with three strings. The first applies when the item has its
-deadline on the current day. The second applies when the deadline is in the
-future, the third one when it is in the past. The strings may contain %d
-to capture the number of days."
- :group 'org-agenda-line-format
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(list
- (string :tag "Deadline today ")
- (string :tag "Deadline in the future ")
- (string :tag "Deadline in the past ")))
-
-(defcustom org-agenda-remove-times-when-in-prefix t
- "Non-nil means remove duplicate time specifications in agenda items.
-When the format `org-agenda-prefix-format' contains a `%t' specifier, a
-time-of-day specification in a headline or diary entry is extracted and
-placed into the prefix. If this option is non-nil, the original specification
-\(a timestamp or -range, or just a plain time(range) specification like
-11:30-4pm) will be removed for agenda display. This makes the agenda less
-cluttered.
-The option can be t or nil. It may also be the symbol `beg', indicating
-that the time should only be removed when it is located at the beginning of
-the headline/diary entry."
- :group 'org-agenda-line-format
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (const :tag "When at beginning of entry" beg)))
-
-(defcustom org-agenda-remove-timeranges-from-blocks nil
- "Non-nil means remove time ranges specifications in agenda
-items that span on several days."
- :group 'org-agenda-line-format
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-default-appointment-duration nil
- "Default duration for appointments that only have a starting time.
-When nil, no duration is specified in such cases.
-When non-nil, this must be the number of minutes, e.g. 60 for one hour."
- :group 'org-agenda-line-format
- :type '(choice
- (integer :tag "Minutes")
- (const :tag "No default duration")))
-
-(defcustom org-agenda-show-inherited-tags t
- "Non-nil means show inherited tags in each agenda line.
-
-When this option is set to `always', it takes precedence over
-`org-agenda-use-tag-inheritance' and inherited tags are shown
-in every agenda.
-
-When this option is set to t (the default), inherited tags are
-shown when they are available, i.e. when the value of
-`org-agenda-use-tag-inheritance' enables tag inheritance for the
-given agenda type.
-
-This can be set to a list of agenda types in which the agenda
-must display the inherited tags. Available types are `todo',
-`agenda' and `search'.
-
-When set to nil, never show inherited tags in agenda lines."
- :group 'org-agenda-line-format
- :group 'org-agenda
- :version "24.3"
- :type '(choice
- (const :tag "Show inherited tags when available" t)
- (const :tag "Always show inherited tags" always)
- (repeat :tag "Show inherited tags only in selected agenda types"
- (symbol :tag "Agenda type"))))
-
-(defcustom org-agenda-use-tag-inheritance '(todo search agenda)
- "List of agenda view types where to use tag inheritance.
-
-In tags/tags-todo/tags-tree agenda views, tag inheritance is
-controlled by `org-use-tag-inheritance'. In other agenda types,
-`org-use-tag-inheritance' is not used for the selection of the
-agenda entries. Still, you may want the agenda to be aware of
-the inherited tags anyway, e.g. for later tag filtering.
-
-Allowed value are `todo', `search' and `agenda'.
-
-This variable has no effect if `org-agenda-show-inherited-tags'
-is set to `always'. In that case, the agenda is aware of those
-tags.
-
-The default value sets tags in every agenda type. Setting this
-option to nil will speed up non-tags agenda view a lot."
- :group 'org-agenda
- :version "26.1"
- :package-version '(Org . "9.1")
- :type '(choice
- (const :tag "Use tag inheritance in all agenda types" t)
- (repeat :tag "Use tag inheritance in selected agenda types"
- (symbol :tag "Agenda type"))))
-
-(defcustom org-agenda-hide-tags-regexp nil
- "Regular expression used to filter away specific tags in agenda views.
-This means that these tags will be present, but not be shown in the agenda
-line. Secondary filtering will still work on the hidden tags.
-Nil means don't hide any tags."
- :group 'org-agenda-line-format
- :type '(choice
- (const :tag "Hide none" nil)
- (string :tag "Regexp ")))
-
-(defcustom org-agenda-remove-tags nil
- "Non-nil means remove the tags from the headline copy in the agenda.
-When this is the symbol `prefix', only remove tags when
-`org-agenda-prefix-format' contains a `%T' specifier."
- :group 'org-agenda-line-format
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (const :tag "When prefix format contains %T" prefix)))
-
-(defvaralias 'org-agenda-remove-tags-when-in-prefix
- 'org-agenda-remove-tags)
-
-(defcustom org-agenda-tags-column 'auto
- "Shift tags in agenda items to this column.
-If set to `auto', tags will be automatically aligned to the right
-edge of the window.
-
-If set to a positive number, tags will be left-aligned to that
-column. If set to a negative number, tags will be right-aligned
-to that column. For example, -80 works well for a normal 80
-character screen."
- :group 'org-agenda-line-format
- :type '(choice
- (const :tag "Automatically align to right edge of window" auto)
- (integer :tag "Specific column" -80))
- :package-version '(Org . "9.1")
- :version "26.1")
-
-(defvaralias 'org-agenda-align-tags-to-column 'org-agenda-tags-column)
-
-(defcustom org-agenda-fontify-priorities 'cookies
- "Non-nil means highlight low and high priorities in agenda.
-When t, the highest priority entries are bold, lowest priority italic.
-However, settings in `org-priority-faces' will overrule these faces.
-When this variable is the symbol `cookies', only fontify the
-cookies, not the entire task.
-This may also be an association list of priority faces, whose
-keys are the character values of `org-highest-priority',
-`org-default-priority', and `org-lowest-priority' (the default values
-are ?A, ?B, and ?C, respectively). The face may be a named face, a
-color as a string, or a list like `(:background \"Red\")'.
-If it is a color, the variable `org-faces-easy-properties'
-determines if it is a foreground or a background color."
- :group 'org-agenda-line-format
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Defaults" t)
- (const :tag "Cookies only" cookies)
- (repeat :tag "Specify"
- (list (character :tag "Priority" :value ?A)
- (choice :tag "Face "
- (string :tag "Color")
- (sexp :tag "Face"))))))
-
-(defcustom org-agenda-day-face-function nil
- "Function called to determine what face should be used to display a day.
-The only argument passed to that function is the day. It should
-returns a face, or nil if does not want to specify a face and let
-the normal rules apply."
- :group 'org-agenda-line-format
- :version "24.1"
- :type '(choice (const nil) (function)))
-
-(defcustom org-agenda-category-icon-alist nil
- "Alist of category icon to be displayed in agenda views.
-
-Each entry should have the following format:
-
- (CATEGORY-REGEXP FILE-OR-DATA TYPE DATA-P PROPS)
-
-Where CATEGORY-REGEXP is a regexp matching the categories where
-the icon should be displayed.
-FILE-OR-DATA either a file path or a string containing image data.
-
-The other fields can be omitted safely if not needed:
-TYPE indicates the image type.
-DATA-P is a boolean indicating whether the FILE-OR-DATA string is
-image data.
-PROPS are additional image attributes to assign to the image,
-like, e.g. `:ascent center'.
-
- (\"Org\" \"/path/to/icon.png\" nil nil :ascent center)
-
-If you want to set the display properties yourself, just put a
-list as second element:
-
- (CATEGORY-REGEXP (MY PROPERTY LIST))
-
-For example, to display a 16px horizontal space for Emacs
-category, you can use:
-
- (\"Emacs\" \\='(space . (:width (16))))"
- :group 'org-agenda-line-format
- :version "24.1"
- :type '(alist :key-type (string :tag "Regexp matching category")
- :value-type (choice (list :tag "Icon"
- (string :tag "File or data")
- (symbol :tag "Type")
- (boolean :tag "Data?")
- (repeat :tag "Extra image properties" :inline t symbol))
- (list :tag "Display properties" sexp))))
-
-(defgroup org-agenda-column-view nil
- "Options concerning column view in the agenda."
- :tag "Org Agenda Column View"
- :group 'org-agenda)
-
-(defcustom org-agenda-view-columns-initially nil
- "When non-nil, switch to columns view right after creating the agenda."
- :group 'org-agenda-column-view
- :type 'boolean
- :version "26.1"
- :package-version '(Org . "9.0")
- :safe #'booleanp)
-
-(defcustom org-agenda-columns-show-summaries t
- "Non-nil means show summaries for columns displayed in the agenda view."
- :group 'org-agenda-column-view
- :type 'boolean)
-
-(defcustom org-agenda-columns-compute-summary-properties t
- "Non-nil means recompute all summary properties before column view.
-When column view in the agenda is listing properties that have a summary
-operator, it can go to all relevant buffers and recompute the summaries
-there. This can mean overhead for the agenda column view, but is necessary
-to have thing up to date.
-As a special case, a CLOCKSUM property also makes sure that the clock
-computations are current."
- :group 'org-agenda-column-view
- :type 'boolean)
-
-(defcustom org-agenda-columns-add-appointments-to-effort-sum nil
- "Non-nil means the duration of an appointment will add to day effort.
-The property to which appointment durations will be added is the one given
-in the option `org-effort-property'. If an appointment does not have
-an end time, `org-agenda-default-appointment-duration' will be used. If that
-is not set, an appointment without end time will not contribute to the time
-estimate."
- :group 'org-agenda-column-view
- :type 'boolean)
-
-(defcustom org-agenda-auto-exclude-function nil
- "A function called with a tag to decide if it is filtered on \
-\\<org-agenda-mode-map>`\\[org-agenda-filter-by-tag] RET'.
-The sole argument to the function, which is called once for each
-possible tag, is a string giving the name of the tag. The
-function should return either nil if the tag should be included
-as normal, or \"-<TAG>\" to exclude the tag.
-Note that for the purpose of tag filtering, only the lower-case version of
-all tags will be considered, so that this function will only ever see
-the lower-case version of all tags."
- :group 'org-agenda
- :type '(choice (const nil) (function)))
-
-(defcustom org-agenda-bulk-custom-functions nil
- "Alist of characters and custom functions for bulk actions.
-For example, this value makes those two functions available:
-
- \\='((?R set-category)
- (?C bulk-cut))
-
-With selected entries in an agenda buffer, `B R' will call
-the custom function `set-category' on the selected entries.
-Note that functions in this alist don't need to be quoted."
- :type '(alist :key-type character :value-type (group function))
- :version "24.1"
- :group 'org-agenda)
-
-(defmacro org-agenda-with-point-at-orig-entry (string &rest body)
- "Execute BODY with point at location given by `org-hd-marker' property.
-If STRING is non-nil, the text property will be fetched from position 0
-in that string. If STRING is nil, it will be fetched from the beginning
-of the current line."
- (org-with-gensyms (marker)
- `(let ((,marker (get-text-property (if ,string 0 (point-at-bol))
- 'org-hd-marker ,string)))
- (with-current-buffer (marker-buffer ,marker)
- (save-excursion
- (goto-char ,marker)
- ,@body)))))
-(def-edebug-spec org-agenda-with-point-at-orig-entry (form body))
-
-(defun org-add-agenda-custom-command (entry)
- "Replace or add a command in `org-agenda-custom-commands'.
-This is mostly for hacking and trying a new command - once the command
-works you probably want to add it to `org-agenda-custom-commands' for good."
- (let ((ass (assoc (car entry) org-agenda-custom-commands)))
- (if ass
- (setcdr ass (cdr entry))
- (push entry org-agenda-custom-commands))))
-
-;;; Define the org-agenda-mode
-
-(defvar org-agenda-mode-map (make-sparse-keymap)
- "Keymap for `org-agenda-mode'.")
-(defvaralias 'org-agenda-keymap 'org-agenda-mode-map)
-
-(defvar org-agenda-menu) ; defined later in this file.
-(defvar org-agenda-restrict nil) ; defined later in this file.
-(defvar org-agenda-follow-mode nil)
-(defvar org-agenda-entry-text-mode nil)
-(defvar org-agenda-clockreport-mode nil)
-(defvar org-agenda-show-log nil
- "When non-nil, show the log in the agenda.
-Do not set this directly; instead use
-`org-agenda-start-with-log-mode', which see.")
-(defvar org-agenda-redo-command nil)
-(defvar org-agenda-query-string nil)
-(defvar org-agenda-mode-hook nil
- "Hook run after `org-agenda-mode' is turned on.
-The buffer is still writable when this hook is called.")
-(defvar org-agenda-type nil)
-(defvar org-agenda-force-single-file nil)
-(defvar org-agenda-bulk-marked-entries nil
- "List of markers that refer to marked entries in the agenda.")
-(defvar org-agenda-current-date nil
- "Active date when building the agenda.")
-
-;;; Multiple agenda buffers support
-
-(defcustom org-agenda-sticky nil
- "Non-nil means agenda q key will bury agenda buffers.
-Agenda commands will then show existing buffer instead of generating new ones.
-When nil, `q' will kill the single agenda buffer."
- :group 'org-agenda
- :version "24.3"
- :type 'boolean)
-
-
-;;;###autoload
-(defun org-toggle-sticky-agenda (&optional arg)
- "Toggle `org-agenda-sticky'."
- (interactive "P")
- (let ((new-value (if arg
- (> (prefix-numeric-value arg) 0)
- (not org-agenda-sticky))))
- (if (equal new-value org-agenda-sticky)
- (and (called-interactively-p 'interactive)
- (message "Sticky agenda was already %s"
- (if org-agenda-sticky "enabled" "disabled")))
- (setq org-agenda-sticky new-value)
- (org-agenda-kill-all-agenda-buffers)
- (and (called-interactively-p 'interactive)
- (message "Sticky agenda %s"
- (if org-agenda-sticky "enabled" "disabled"))))))
-
-(defvar org-agenda-buffer nil
- "Agenda buffer currently being generated.")
-
-(defvar org-agenda-last-prefix-arg nil)
-(defvar org-agenda-this-buffer-name nil)
-(defvar org-agenda-doing-sticky-redo nil)
-(defvar org-agenda-this-buffer-is-sticky nil)
-(defvar org-agenda-last-indirect-buffer nil
- "Last buffer loaded by `org-agenda-tree-to-indirect-buffer'.")
-
-(defconst org-agenda-local-vars
- '(org-agenda-this-buffer-name
- org-agenda-undo-list
- org-agenda-pending-undo-list
- org-agenda-follow-mode
- org-agenda-entry-text-mode
- org-agenda-clockreport-mode
- org-agenda-show-log
- org-agenda-redo-command
- org-agenda-query-string
- org-agenda-type
- org-agenda-bulk-marked-entries
- org-agenda-undo-has-started-in
- org-agenda-info
- org-agenda-pre-window-conf
- org-agenda-columns-active
- org-agenda-tag-filter
- org-agenda-category-filter
- org-agenda-top-headline-filter
- org-agenda-regexp-filter
- org-agenda-effort-filter
- org-agenda-markers
- org-agenda-last-search-view-search-was-boolean
- org-agenda-last-indirect-buffer
- org-agenda-filtered-by-category
- org-agenda-filter-form
- org-agenda-cycle-counter
- org-agenda-last-prefix-arg)
- "Variables that must be local in agenda buffers to allow multiple buffers.")
-
-(defun org-agenda-mode ()
- "Mode for time-sorted view on action items in Org files.
-
-The following commands are available:
-
-\\{org-agenda-mode-map}"
- (interactive)
- (cond (org-agenda-doing-sticky-redo
- ;; Refreshing sticky agenda-buffer
- ;;
- ;; Preserve the value of `org-agenda-local-vars' variables,
- ;; while letting `kill-all-local-variables' kill the rest
- (let ((save (buffer-local-variables)))
- (kill-all-local-variables)
- (mapc #'make-local-variable org-agenda-local-vars)
- (dolist (elem save)
- (pcase elem
- (`(,var . ,val) ;ignore unbound variables
- (when (and val (memq var org-agenda-local-vars))
- (set var val))))))
- (setq-local org-agenda-this-buffer-is-sticky t))
- (org-agenda-sticky
- ;; Creating a sticky Agenda buffer for the first time
- (kill-all-local-variables)
- (mapc 'make-local-variable org-agenda-local-vars)
- (setq-local org-agenda-this-buffer-is-sticky t))
- (t
- ;; Creating a non-sticky agenda buffer
- (kill-all-local-variables)
- (setq-local org-agenda-this-buffer-is-sticky nil)))
- (setq org-agenda-undo-list nil
- org-agenda-pending-undo-list nil
- org-agenda-bulk-marked-entries nil)
- (setq major-mode 'org-agenda-mode)
- ;; Keep global-font-lock-mode from turning on font-lock-mode
- (setq-local font-lock-global-modes (list 'not major-mode))
- (setq mode-name "Org-Agenda")
- (setq indent-tabs-mode nil)
- (use-local-map org-agenda-mode-map)
- (easy-menu-add org-agenda-menu)
- (if org-startup-truncated (setq truncate-lines t))
- (setq-local line-move-visual nil)
- (add-hook 'post-command-hook 'org-agenda-update-agenda-type nil 'local)
- (add-hook 'pre-command-hook 'org-unhighlight nil 'local)
- ;; Make sure properties are removed when copying text
- (add-hook 'filter-buffer-substring-functions
- (lambda (fun start end delete)
- (substring-no-properties (funcall fun start end delete)))
- nil t)
- (unless org-agenda-keep-modes
- (setq org-agenda-follow-mode org-agenda-start-with-follow-mode
- org-agenda-entry-text-mode org-agenda-start-with-entry-text-mode
- org-agenda-show-log org-agenda-start-with-log-mode
- org-agenda-clockreport-mode org-agenda-start-with-clockreport-mode))
- (add-to-invisibility-spec '(org-filtered))
- (add-to-invisibility-spec '(org-link))
- (easy-menu-change
- '("Agenda") "Agenda Files"
- (append
- (list
- (vector
- (if (get 'org-agenda-files 'org-restrict)
- "Restricted to single file"
- "Edit File List")
- '(org-edit-agenda-file-list)
- (not (get 'org-agenda-files 'org-restrict)))
- "--")
- (mapcar 'org-file-menu-entry (org-agenda-files))))
- (org-agenda-set-mode-name)
- (apply
- (if (fboundp 'run-mode-hooks) 'run-mode-hooks 'run-hooks)
- (list 'org-agenda-mode-hook)))
-
-(substitute-key-definition 'undo 'org-agenda-undo
- org-agenda-mode-map global-map)
-(org-defkey org-agenda-mode-map "\C-i" 'org-agenda-goto)
-(org-defkey org-agenda-mode-map [(tab)] 'org-agenda-goto)
-(org-defkey org-agenda-mode-map "\C-m" 'org-agenda-switch-to)
-(org-defkey org-agenda-mode-map "\C-k" 'org-agenda-kill)
-(org-defkey org-agenda-mode-map "\C-c\C-w" 'org-agenda-refile)
-(org-defkey org-agenda-mode-map [(meta down)] 'org-agenda-drag-line-forward)
-(org-defkey org-agenda-mode-map [(meta up)] 'org-agenda-drag-line-backward)
-(org-defkey org-agenda-mode-map "m" 'org-agenda-bulk-mark)
-(org-defkey org-agenda-mode-map "\M-m" 'org-agenda-bulk-toggle)
-(org-defkey org-agenda-mode-map "*" 'org-agenda-bulk-mark-all)
-(org-defkey org-agenda-mode-map "\M-*" 'org-agenda-bulk-toggle-all)
-(org-defkey org-agenda-mode-map "#" 'org-agenda-dim-blocked-tasks)
-(org-defkey org-agenda-mode-map "%" 'org-agenda-bulk-mark-regexp)
-(org-defkey org-agenda-mode-map "u" 'org-agenda-bulk-unmark)
-(org-defkey org-agenda-mode-map "U" 'org-agenda-bulk-unmark-all)
-(org-defkey org-agenda-mode-map "B" 'org-agenda-bulk-action)
-(org-defkey org-agenda-mode-map "k" 'org-agenda-capture)
-(org-defkey org-agenda-mode-map "A" 'org-agenda-append-agenda)
-(org-defkey org-agenda-mode-map "\C-c\C-x!" 'org-reload)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-a" 'org-agenda-archive-default)
-(org-defkey org-agenda-mode-map "\C-c\C-xa" 'org-agenda-toggle-archive-tag)
-(org-defkey org-agenda-mode-map "\C-c\C-xA" 'org-agenda-archive-to-archive-sibling)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-s" 'org-agenda-archive)
-(org-defkey org-agenda-mode-map "\C-c$" 'org-agenda-archive)
-(org-defkey org-agenda-mode-map "$" 'org-agenda-archive)
-(org-defkey org-agenda-mode-map "\C-c\C-o" 'org-agenda-open-link)
-(org-defkey org-agenda-mode-map " " 'org-agenda-show-and-scroll-up)
-(org-defkey org-agenda-mode-map [backspace] 'org-agenda-show-scroll-down)
-(org-defkey org-agenda-mode-map "\d" 'org-agenda-show-scroll-down)
-(org-defkey org-agenda-mode-map [(control shift right)] 'org-agenda-todo-nextset)
-(org-defkey org-agenda-mode-map [(control shift left)] 'org-agenda-todo-previousset)
-(org-defkey org-agenda-mode-map "\C-c\C-xb" 'org-agenda-tree-to-indirect-buffer)
-(org-defkey org-agenda-mode-map "o" 'delete-other-windows)
-(org-defkey org-agenda-mode-map "L" 'org-agenda-recenter)
-(org-defkey org-agenda-mode-map "\C-c\C-t" 'org-agenda-todo)
-(org-defkey org-agenda-mode-map "t" 'org-agenda-todo)
-(org-defkey org-agenda-mode-map "a" 'org-agenda-archive-default-with-confirmation)
-(org-defkey org-agenda-mode-map ":" 'org-agenda-set-tags)
-(org-defkey org-agenda-mode-map "\C-c\C-q" 'org-agenda-set-tags)
-(org-defkey org-agenda-mode-map "." 'org-agenda-goto-today)
-(org-defkey org-agenda-mode-map "j" 'org-agenda-goto-date)
-(org-defkey org-agenda-mode-map "d" 'org-agenda-day-view)
-(org-defkey org-agenda-mode-map "w" 'org-agenda-week-view)
-(org-defkey org-agenda-mode-map "y" 'org-agenda-year-view)
-(org-defkey org-agenda-mode-map "\C-c\C-z" 'org-agenda-add-note)
-(org-defkey org-agenda-mode-map "z" 'org-agenda-add-note)
-(org-defkey org-agenda-mode-map [(shift right)] 'org-agenda-do-date-later)
-(org-defkey org-agenda-mode-map [(shift left)] 'org-agenda-do-date-earlier)
-(org-defkey org-agenda-mode-map [?\C-c ?\C-x (right)] 'org-agenda-do-date-later)
-(org-defkey org-agenda-mode-map [?\C-c ?\C-x (left)] 'org-agenda-do-date-earlier)
-
-(org-defkey org-agenda-mode-map ">" 'org-agenda-date-prompt)
-(org-defkey org-agenda-mode-map "\C-c\C-s" 'org-agenda-schedule)
-(org-defkey org-agenda-mode-map "\C-c\C-d" 'org-agenda-deadline)
-(let ((l '(1 2 3 4 5 6 7 8 9 0)))
- (while l (org-defkey org-agenda-mode-map
- (int-to-string (pop l)) 'digit-argument)))
-
-(org-defkey org-agenda-mode-map "F" 'org-agenda-follow-mode)
-(org-defkey org-agenda-mode-map "R" 'org-agenda-clockreport-mode)
-(org-defkey org-agenda-mode-map "E" 'org-agenda-entry-text-mode)
-(org-defkey org-agenda-mode-map "l" 'org-agenda-log-mode)
-(org-defkey org-agenda-mode-map "v" 'org-agenda-view-mode-dispatch)
-(org-defkey org-agenda-mode-map "D" 'org-agenda-toggle-diary)
-(org-defkey org-agenda-mode-map "!" 'org-agenda-toggle-deadlines)
-(org-defkey org-agenda-mode-map "G" 'org-agenda-toggle-time-grid)
-(org-defkey org-agenda-mode-map "r" 'org-agenda-redo)
-(org-defkey org-agenda-mode-map "g" 'org-agenda-redo-all)
-(org-defkey org-agenda-mode-map "e" 'org-agenda-set-effort)
-(org-defkey org-agenda-mode-map "\C-c\C-xe" 'org-agenda-set-effort)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-e"
- 'org-clock-modify-effort-estimate)
-(org-defkey org-agenda-mode-map "\C-c\C-xp" 'org-agenda-set-property)
-(org-defkey org-agenda-mode-map "q" 'org-agenda-quit)
-(org-defkey org-agenda-mode-map "Q" 'org-agenda-Quit)
-(org-defkey org-agenda-mode-map "x" 'org-agenda-exit)
-(org-defkey org-agenda-mode-map "\C-x\C-w" 'org-agenda-write)
-(org-defkey org-agenda-mode-map "\C-x\C-s" 'org-save-all-org-buffers)
-(org-defkey org-agenda-mode-map "s" 'org-save-all-org-buffers)
-(org-defkey org-agenda-mode-map "T" 'org-agenda-show-tags)
-(org-defkey org-agenda-mode-map "n" 'org-agenda-next-line)
-(org-defkey org-agenda-mode-map "p" 'org-agenda-previous-line)
-(org-defkey org-agenda-mode-map "N" 'org-agenda-next-item)
-(org-defkey org-agenda-mode-map "P" 'org-agenda-previous-item)
-(substitute-key-definition 'next-line 'org-agenda-next-line
- org-agenda-mode-map global-map)
-(substitute-key-definition 'previous-line 'org-agenda-previous-line
- org-agenda-mode-map global-map)
-(org-defkey org-agenda-mode-map "\C-c\C-a" 'org-attach)
-(org-defkey org-agenda-mode-map "\C-c\C-n" 'org-agenda-next-date-line)
-(org-defkey org-agenda-mode-map "\C-c\C-p" 'org-agenda-previous-date-line)
-(org-defkey org-agenda-mode-map "\C-c," 'org-agenda-priority)
-(org-defkey org-agenda-mode-map "," 'org-agenda-priority)
-(org-defkey org-agenda-mode-map "i" 'org-agenda-diary-entry)
-(org-defkey org-agenda-mode-map "c" 'org-agenda-goto-calendar)
-(org-defkey org-agenda-mode-map "C" 'org-agenda-convert-date)
-(org-defkey org-agenda-mode-map "M" 'org-agenda-phases-of-moon)
-(org-defkey org-agenda-mode-map "S" 'org-agenda-sunrise-sunset)
-(org-defkey org-agenda-mode-map "h" 'org-agenda-holidays)
-(org-defkey org-agenda-mode-map "H" 'org-agenda-holidays)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-i" 'org-agenda-clock-in)
-(org-defkey org-agenda-mode-map "I" 'org-agenda-clock-in)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-o" 'org-agenda-clock-out)
-(org-defkey org-agenda-mode-map "O" 'org-agenda-clock-out)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-x" 'org-agenda-clock-cancel)
-(org-defkey org-agenda-mode-map "X" 'org-agenda-clock-cancel)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-j" 'org-clock-goto)
-(org-defkey org-agenda-mode-map "J" 'org-agenda-clock-goto)
-(org-defkey org-agenda-mode-map "+" 'org-agenda-priority-up)
-(org-defkey org-agenda-mode-map "-" 'org-agenda-priority-down)
-(org-defkey org-agenda-mode-map [(shift up)] 'org-agenda-priority-up)
-(org-defkey org-agenda-mode-map [(shift down)] 'org-agenda-priority-down)
-(org-defkey org-agenda-mode-map [?\C-c ?\C-x (up)] 'org-agenda-priority-up)
-(org-defkey org-agenda-mode-map [?\C-c ?\C-x (down)] 'org-agenda-priority-down)
-(org-defkey org-agenda-mode-map "f" 'org-agenda-later)
-(org-defkey org-agenda-mode-map "b" 'org-agenda-earlier)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-c" 'org-agenda-columns)
-(org-defkey org-agenda-mode-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
-(org-defkey org-agenda-mode-map "\C-c\C-x<" 'org-agenda-set-restriction-lock-from-agenda)
-
-(org-defkey org-agenda-mode-map "[" 'org-agenda-manipulate-query-add)
-(org-defkey org-agenda-mode-map "]" 'org-agenda-manipulate-query-subtract)
-(org-defkey org-agenda-mode-map "{" 'org-agenda-manipulate-query-add-re)
-(org-defkey org-agenda-mode-map "}" 'org-agenda-manipulate-query-subtract-re)
-(org-defkey org-agenda-mode-map "/" 'org-agenda-filter-by-tag)
-(org-defkey org-agenda-mode-map "_" 'org-agenda-filter-by-effort)
-(org-defkey org-agenda-mode-map "=" 'org-agenda-filter-by-regexp)
-(org-defkey org-agenda-mode-map "|" 'org-agenda-filter-remove-all)
-(org-defkey org-agenda-mode-map "~" 'org-agenda-limit-interactively)
-(org-defkey org-agenda-mode-map "<" 'org-agenda-filter-by-category)
-(org-defkey org-agenda-mode-map "^" 'org-agenda-filter-by-top-headline)
-(org-defkey org-agenda-mode-map ";" 'org-timer-set-timer)
-(org-defkey org-agenda-mode-map "\C-c\C-x_" 'org-timer-stop)
-(define-key org-agenda-mode-map "?" 'org-agenda-show-the-flagging-note)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-mg" 'org-mobile-pull)
-(org-defkey org-agenda-mode-map "\C-c\C-x\C-mp" 'org-mobile-push)
-
-(org-defkey org-agenda-mode-map [mouse-2] 'org-agenda-goto-mouse)
-(org-defkey org-agenda-mode-map [mouse-3] 'org-agenda-show-mouse)
-
-(define-key org-agenda-mode-map [remap forward-paragraph] 'org-agenda-forward-block)
-(define-key org-agenda-mode-map [remap backward-paragraph] 'org-agenda-backward-block)
-
-(when org-agenda-mouse-1-follows-link
- (org-defkey org-agenda-mode-map [follow-link] 'mouse-face))
-(easy-menu-define org-agenda-menu org-agenda-mode-map "Agenda menu"
- '("Agenda"
- ("Agenda Files")
- "--"
- ("Agenda Dates"
- ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda)]
- ["Next Dates" org-agenda-later (org-agenda-check-type nil 'agenda)]
- ["Previous Dates" org-agenda-earlier (org-agenda-check-type nil 'agenda)]
- ["Jump to date" org-agenda-goto-date (org-agenda-check-type nil 'agenda)])
- "--"
- ("View"
- ["Day View" org-agenda-day-view
- :active (org-agenda-check-type nil 'agenda)
- :style radio :selected (eq org-agenda-current-span 'day)
- :keys "v d (or just d)"]
- ["Week View" org-agenda-week-view
- :active (org-agenda-check-type nil 'agenda)
- :style radio :selected (eq org-agenda-current-span 'week)
- :keys "v w"]
- ["Fortnight View" org-agenda-fortnight-view
- :active (org-agenda-check-type nil 'agenda)
- :style radio :selected (eq org-agenda-current-span 'fortnight)
- :keys "v t"]
- ["Month View" org-agenda-month-view
- :active (org-agenda-check-type nil 'agenda)
- :style radio :selected (eq org-agenda-current-span 'month)
- :keys "v m"]
- ["Year View" org-agenda-year-view
- :active (org-agenda-check-type nil 'agenda)
- :style radio :selected (eq org-agenda-current-span 'year)
- :keys "v y"]
- "--"
- ["Include Diary" org-agenda-toggle-diary
- :style toggle :selected org-agenda-include-diary
- :active (org-agenda-check-type nil 'agenda)]
- ["Include Deadlines" org-agenda-toggle-deadlines
- :style toggle :selected org-agenda-include-deadlines
- :active (org-agenda-check-type nil 'agenda)]
- ["Use Time Grid" org-agenda-toggle-time-grid
- :style toggle :selected org-agenda-use-time-grid
- :active (org-agenda-check-type nil 'agenda)]
- "--"
- ["Show clock report" org-agenda-clockreport-mode
- :style toggle :selected org-agenda-clockreport-mode
- :active (org-agenda-check-type nil 'agenda)]
- ["Show some entry text" org-agenda-entry-text-mode
- :style toggle :selected org-agenda-entry-text-mode
- :active t]
- "--"
- ["Show Logbook entries" org-agenda-log-mode
- :style toggle :selected org-agenda-show-log
- :active (org-agenda-check-type nil 'agenda)
- :keys "v l (or just l)"]
- ["Include archived trees" org-agenda-archives-mode
- :style toggle :selected org-agenda-archives-mode :active t
- :keys "v a"]
- ["Include archive files" (org-agenda-archives-mode t)
- :style toggle :selected (eq org-agenda-archives-mode t) :active t
- :keys "v A"]
- "--"
- ["Remove Restriction" org-agenda-remove-restriction-lock org-agenda-restrict])
- ["Write view to file" org-agenda-write t]
- ["Rebuild buffer" org-agenda-redo t]
- ["Save all Org buffers" org-save-all-org-buffers t]
- "--"
- ["Show original entry" org-agenda-show t]
- ["Go To (other window)" org-agenda-goto t]
- ["Go To (this window)" org-agenda-switch-to t]
- ["Capture with cursor date" org-agenda-capture t]
- ["Follow Mode" org-agenda-follow-mode
- :style toggle :selected org-agenda-follow-mode :active t]
- ;; ["Tree to indirect frame" org-agenda-tree-to-indirect-buffer t]
- "--"
- ("TODO"
- ["Cycle TODO" org-agenda-todo t]
- ["Next TODO set" org-agenda-todo-nextset t]
- ["Previous TODO set" org-agenda-todo-previousset t]
- ["Add note" org-agenda-add-note t])
- ("Archive/Refile/Delete"
- ["Archive default" org-agenda-archive-default t]
- ["Archive default" org-agenda-archive-default-with-confirmation t]
- ["Toggle ARCHIVE tag" org-agenda-toggle-archive-tag t]
- ["Move to archive sibling" org-agenda-archive-to-archive-sibling t]
- ["Archive subtree" org-agenda-archive t]
- "--"
- ["Refile" org-agenda-refile t]
- "--"
- ["Delete subtree" org-agenda-kill t])
- ("Bulk action"
- ["Mark entry" org-agenda-bulk-mark t]
- ["Mark all" org-agenda-bulk-mark-all t]
- ["Unmark entry" org-agenda-bulk-unmark t]
- ["Unmark all" org-agenda-bulk-unmark-all :active t :keys "U"]
- ["Toggle mark" org-agenda-bulk-toggle t]
- ["Toggle all" org-agenda-bulk-toggle-all t]
- ["Mark regexp" org-agenda-bulk-mark-regexp t])
- ["Act on all marked" org-agenda-bulk-action t]
- "--"
- ("Tags and Properties"
- ["Show all Tags" org-agenda-show-tags t]
- ["Set Tags current line" org-agenda-set-tags (not (org-region-active-p))]
- ["Change tag in region" org-agenda-set-tags (org-region-active-p)]
- "--"
- ["Column View" org-columns t])
- ("Deadline/Schedule"
- ["Schedule" org-agenda-schedule t]
- ["Set Deadline" org-agenda-deadline t]
- "--"
- ["Change Date +1 day" org-agenda-date-later (org-agenda-check-type nil 'agenda)]
- ["Change Date -1 day" org-agenda-date-earlier (org-agenda-check-type nil 'agenda)]
- ["Change Time +1 hour" org-agenda-do-date-later :active (org-agenda-check-type nil 'agenda) :keys "C-u S-right"]
- ["Change Time -1 hour" org-agenda-do-date-earlier :active (org-agenda-check-type nil 'agenda) :keys "C-u S-left"]
- ["Change Time + min" org-agenda-date-later :active (org-agenda-check-type nil 'agenda) :keys "C-u C-u S-right"]
- ["Change Time - min" org-agenda-date-earlier :active (org-agenda-check-type nil 'agenda) :keys "C-u C-u S-left"]
- ["Change Date to ..." org-agenda-date-prompt (org-agenda-check-type nil 'agenda)])
- ("Clock and Effort"
- ["Clock in" org-agenda-clock-in t]
- ["Clock out" org-agenda-clock-out t]
- ["Clock cancel" org-agenda-clock-cancel t]
- ["Goto running clock" org-clock-goto t]
- "--"
- ["Set Effort" org-agenda-set-effort t]
- ["Change clocked effort" org-clock-modify-effort-estimate
- (org-clock-is-active)])
- ("Priority"
- ["Set Priority" org-agenda-priority t]
- ["Increase Priority" org-agenda-priority-up t]
- ["Decrease Priority" org-agenda-priority-down t]
- ["Show Priority" org-show-priority t])
- ("Calendar/Diary"
- ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda)]
- ["Goto Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda)]
- ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda)]
- ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda)]
- ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda)]
- ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda)]
- "--"
- ["Create iCalendar File" org-icalendar-combine-agenda-files t])
- "--"
- ["Undo Remote Editing" org-agenda-undo org-agenda-undo-list]
- "--"
- ("MobileOrg"
- ["Push Files and Views" org-mobile-push t]
- ["Get Captured and Flagged" org-mobile-pull t]
- ["Find FLAGGED Tasks" (org-agenda nil "?") :active t :keys "\\[org-agenda] ?"]
- ["Show note / unflag" org-agenda-show-the-flagging-note t]
- "--"
- ["Setup" (progn (require 'org-mobile) (customize-group 'org-mobile)) t])
- "--"
- ["Quit" org-agenda-quit t]
- ["Exit and Release Buffers" org-agenda-exit t]
- ))
-
-;;; Agenda undo
-
-(defvar org-agenda-allow-remote-undo t
- "Non-nil means allow remote undo from the agenda buffer.")
-(defvar org-agenda-undo-has-started-in nil
- "Buffers that have already seen `undo-start' in the current undo sequence.")
-
-(defun org-agenda-undo ()
- "Undo a remote editing step in the agenda.
-This undoes changes both in the agenda buffer and in the remote buffer
-that have been changed along."
- (interactive)
- (or org-agenda-allow-remote-undo
- (user-error "Check the variable `org-agenda-allow-remote-undo' to activate remote undo"))
- (if (not (eq this-command last-command))
- (setq org-agenda-undo-has-started-in nil
- org-agenda-pending-undo-list org-agenda-undo-list))
- (if (not org-agenda-pending-undo-list)
- (user-error "No further undo information"))
- (let* ((entry (pop org-agenda-pending-undo-list))
- buf line cmd rembuf)
- (setq cmd (pop entry) line (pop entry))
- (setq rembuf (nth 2 entry))
- (org-with-remote-undo rembuf
- (while (bufferp (setq buf (pop entry)))
- (if (pop entry)
- (with-current-buffer buf
- (let ((last-undo-buffer buf)
- (inhibit-read-only t))
- (unless (memq buf org-agenda-undo-has-started-in)
- (push buf org-agenda-undo-has-started-in)
- (make-local-variable 'pending-undo-list)
- (undo-start))
- (while (and pending-undo-list
- (listp pending-undo-list)
- (not (car pending-undo-list)))
- (pop pending-undo-list))
- (undo-more 1))))))
- (org-goto-line line)
- (message "`%s' undone (buffer %s)" cmd (buffer-name rembuf))))
-
-(defun org-verify-change-for-undo (l1 l2)
- "Verify that a real change occurred between the undo lists L1 and L2."
- (while (and l1 (listp l1) (null (car l1))) (pop l1))
- (while (and l2 (listp l2) (null (car l2))) (pop l2))
- (not (eq l1 l2)))
-
-;;; Agenda dispatch
-
-(defvar org-agenda-restrict-begin (make-marker))
-(defvar org-agenda-restrict-end (make-marker))
-(defvar org-agenda-last-dispatch-buffer nil)
-(defvar org-agenda-overriding-restriction nil)
-
-(defcustom org-agenda-custom-commands-contexts nil
- "Alist of custom agenda keys and contextual rules.
-
-For example, if you have a custom agenda command \"p\" and you
-want this command to be accessible only from plain text files,
-use this:
-
- \\='((\"p\" ((in-file . \"\\\\.txt\\\\'\"))))
-
-Here are the available contexts definitions:
-
- in-file: command displayed only in matching files
- in-mode: command displayed only in matching modes
- not-in-file: command not displayed in matching files
- not-in-mode: command not displayed in matching modes
- in-buffer: command displayed only in matching buffers
-not-in-buffer: command not displayed in matching buffers
- [function]: a custom function taking no argument
-
-If you define several checks, the agenda command will be
-accessible if there is at least one valid check.
-
-You can also bind a key to another agenda custom command
-depending on contextual rules.
-
- \\='((\"p\" \"q\" ((in-file . \"\\\\.txt\\\\'\"))))
-
-Here it means: in .txt files, use \"p\" as the key for the
-agenda command otherwise associated with \"q\". (The command
-originally associated with \"q\" is not displayed to avoid
-duplicates.)"
- :version "24.3"
- :group 'org-agenda-custom-commands
- :type '(repeat (list :tag "Rule"
- (string :tag " Agenda key")
- (string :tag "Replace by command")
- (repeat :tag "Available when"
- (choice
- (cons :tag "Condition"
- (choice
- (const :tag "In file" in-file)
- (const :tag "Not in file" not-in-file)
- (const :tag "In buffer" in-buffer)
- (const :tag "Not in buffer" not-in-buffer)
- (const :tag "In mode" in-mode)
- (const :tag "Not in mode" not-in-mode))
- (regexp))
- (function :tag "Custom function"))))))
-
-(defcustom org-agenda-max-entries nil
- "Maximum number of entries to display in an agenda.
-This can be nil (no limit) or an integer or an alist of agenda
-types with an associated number of entries to display in this
-type."
- :version "24.4"
- :package-version '(Org . "8.0")
- :group 'org-agenda-custom-commands
- :type '(choice (symbol :tag "No limit" nil)
- (integer :tag "Max number of entries")
- (repeat
- (cons (choice :tag "Agenda type"
- (const agenda)
- (const todo)
- (const tags)
- (const search))
- (integer :tag "Max number of entries")))))
-
-(defcustom org-agenda-max-todos nil
- "Maximum number of TODOs to display in an agenda.
-This can be nil (no limit) or an integer or an alist of agenda
-types with an associated number of entries to display in this
-type."
- :version "24.4"
- :package-version '(Org . "8.0")
- :group 'org-agenda-custom-commands
- :type '(choice (symbol :tag "No limit" nil)
- (integer :tag "Max number of TODOs")
- (repeat
- (cons (choice :tag "Agenda type"
- (const agenda)
- (const todo)
- (const tags)
- (const search))
- (integer :tag "Max number of TODOs")))))
-
-(defcustom org-agenda-max-tags nil
- "Maximum number of tagged entries to display in an agenda.
-This can be nil (no limit) or an integer or an alist of agenda
-types with an associated number of entries to display in this
-type."
- :version "24.4"
- :package-version '(Org . "8.0")
- :group 'org-agenda-custom-commands
- :type '(choice (symbol :tag "No limit" nil)
- (integer :tag "Max number of tagged entries")
- (repeat
- (cons (choice :tag "Agenda type"
- (const agenda)
- (const todo)
- (const tags)
- (const search))
- (integer :tag "Max number of tagged entries")))))
-
-(defcustom org-agenda-max-effort nil
- "Maximum cumulated effort duration for the agenda.
-This can be nil (no limit) or a number of minutes (as an integer)
-or an alist of agenda types with an associated number of minutes
-to limit entries to in this type."
- :version "24.4"
- :package-version '(Org . "8.0")
- :group 'org-agenda-custom-commands
- :type '(choice (symbol :tag "No limit" nil)
- (integer :tag "Max number of minutes")
- (repeat
- (cons (choice :tag "Agenda type"
- (const agenda)
- (const todo)
- (const tags)
- (const search))
- (integer :tag "Max number of minutes")))))
-
-(defvar org-agenda-keep-restricted-file-list nil)
-(defvar org-keys nil)
-(defvar org-match nil)
-;;;###autoload
-(defun org-agenda (&optional arg org-keys restriction)
- "Dispatch agenda commands to collect entries to the agenda buffer.
-Prompts for a command to execute. Any prefix arg will be passed
-on to the selected command. The default selections are:
-
-a Call `org-agenda-list' to display the agenda for current day or week.
-t Call `org-todo-list' to display the global todo list.
-T Call `org-todo-list' to display the global todo list, select only
- entries with a specific TODO keyword (the user gets a prompt).
-m Call `org-tags-view' to display headlines with tags matching
- a condition (the user is prompted for the condition).
-M Like `m', but select only TODO entries, no ordinary headlines.
-e Export views to associated files.
-s Search entries for keywords.
-S Search entries for keywords, only with TODO keywords.
-/ Multi occur across all agenda files and also files listed
- in `org-agenda-text-search-extra-files'.
-< Restrict agenda commands to buffer, subtree, or region.
- Press several times to get the desired effect.
-> Remove a previous restriction.
-# List \"stuck\" projects.
-! Configure what \"stuck\" means.
-C Configure custom agenda commands.
-
-More commands can be added by configuring the variable
-`org-agenda-custom-commands'. In particular, specific tags and TODO keyword
-searches can be pre-defined in this way.
-
-If the current buffer is in Org mode and visiting a file, you can also
-first press `<' once to indicate that the agenda should be temporarily
-\(until the next use of `\\[org-agenda]') restricted to the current file.
-Pressing `<' twice means to restrict to the current subtree or region
-\(if active)."
- (interactive "P")
- (catch 'exit
- (let* ((prefix-descriptions nil)
- (org-agenda-buffer-name org-agenda-buffer-name)
- (org-agenda-window-setup (if (equal (buffer-name)
- org-agenda-buffer-name)
- 'current-window
- org-agenda-window-setup))
- (org-agenda-custom-commands-orig org-agenda-custom-commands)
- (org-agenda-custom-commands
- ;; normalize different versions
- (delq nil
- (mapcar
- (lambda (x)
- (cond ((stringp (cdr x))
- (push x prefix-descriptions)
- nil)
- ((stringp (nth 1 x)) x)
- ((not (nth 1 x)) (cons (car x) (cons "" (cddr x))))
- (t (cons (car x) (cons "" (cdr x))))))
- org-agenda-custom-commands)))
- (org-agenda-custom-commands
- (org-contextualize-keys
- org-agenda-custom-commands org-agenda-custom-commands-contexts))
- (buf (current-buffer))
- (bfn (buffer-file-name (buffer-base-buffer)))
- entry key type org-match lprops ans)
- ;; Turn off restriction unless there is an overriding one,
- (unless org-agenda-overriding-restriction
- (unless org-agenda-keep-restricted-file-list
- ;; There is a request to keep the file list in place
- (put 'org-agenda-files 'org-restrict nil))
- (setq org-agenda-restrict nil)
- (move-marker org-agenda-restrict-begin nil)
- (move-marker org-agenda-restrict-end nil))
- ;; Delete old local properties
- (put 'org-agenda-redo-command 'org-lprops nil)
- ;; Delete previously set last-arguments
- (put 'org-agenda-redo-command 'last-args nil)
- ;; Remember where this call originated
- (setq org-agenda-last-dispatch-buffer (current-buffer))
- (unless org-keys
- (setq ans (org-agenda-get-restriction-and-command prefix-descriptions)
- org-keys (car ans)
- restriction (cdr ans)))
- ;; If we have sticky agenda buffers, set a name for the buffer,
- ;; depending on the invoking keys. The user may still set this
- ;; as a command option, which will overwrite what we do here.
- (if org-agenda-sticky
- (setq org-agenda-buffer-name
- (format "*Org Agenda(%s)*" org-keys)))
- ;; Establish the restriction, if any
- (when (and (not org-agenda-overriding-restriction) restriction)
- (put 'org-agenda-files 'org-restrict (list bfn))
- (cond
- ((eq restriction 'region)
- (setq org-agenda-restrict (current-buffer))
- (move-marker org-agenda-restrict-begin (region-beginning))
- (move-marker org-agenda-restrict-end (region-end)))
- ((eq restriction 'subtree)
- (save-excursion
- (setq org-agenda-restrict (current-buffer))
- (org-back-to-heading t)
- (move-marker org-agenda-restrict-begin (point))
- (move-marker org-agenda-restrict-end
- (progn (org-end-of-subtree t)))))))
-
- ;; For example the todo list should not need it (but does...)
- (cond
- ((setq entry (assoc org-keys org-agenda-custom-commands))
- (if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry)))
- (progn
- (setq type (nth 2 entry) org-match (eval (nth 3 entry))
- lprops (nth 4 entry))
- (if org-agenda-sticky
- (setq org-agenda-buffer-name
- (or (and (stringp org-match) (format "*Org Agenda(%s:%s)*" org-keys org-match))
- (format "*Org Agenda(%s)*" org-keys))))
- (put 'org-agenda-redo-command 'org-lprops lprops)
- (cond
- ((eq type 'agenda)
- (org-let lprops '(org-agenda-list current-prefix-arg)))
- ((eq type 'agenda*)
- (org-let lprops '(org-agenda-list current-prefix-arg nil nil t)))
- ((eq type 'alltodo)
- (org-let lprops '(org-todo-list current-prefix-arg)))
- ((eq type 'search)
- (org-let lprops '(org-search-view current-prefix-arg org-match nil)))
- ((eq type 'stuck)
- (org-let lprops '(org-agenda-list-stuck-projects
- current-prefix-arg)))
- ((eq type 'tags)
- (org-let lprops '(org-tags-view current-prefix-arg org-match)))
- ((eq type 'tags-todo)
- (org-let lprops '(org-tags-view '(4) org-match)))
- ((eq type 'todo)
- (org-let lprops '(org-todo-list org-match)))
- ((eq type 'tags-tree)
- (org-check-for-org-mode)
- (org-let lprops '(org-match-sparse-tree current-prefix-arg org-match)))
- ((eq type 'todo-tree)
- (org-check-for-org-mode)
- (org-let lprops
- '(org-occur (concat "^" org-outline-regexp "[ \t]*"
- (regexp-quote org-match) "\\>"))))
- ((eq type 'occur-tree)
- (org-check-for-org-mode)
- (org-let lprops '(org-occur org-match)))
- ((functionp type)
- (org-let lprops '(funcall type org-match)))
- ((fboundp type)
- (org-let lprops '(funcall type org-match)))
- (t (user-error "Invalid custom agenda command type %s" type))))
- (org-agenda-run-series (nth 1 entry) (cddr entry))))
- ((equal org-keys "C")
- (setq org-agenda-custom-commands org-agenda-custom-commands-orig)
- (customize-variable 'org-agenda-custom-commands))
- ((equal org-keys "a") (call-interactively 'org-agenda-list))
- ((equal org-keys "s") (call-interactively 'org-search-view))
- ((equal org-keys "S") (org-call-with-arg 'org-search-view (or arg '(4))))
- ((equal org-keys "t") (call-interactively 'org-todo-list))
- ((equal org-keys "T") (org-call-with-arg 'org-todo-list (or arg '(4))))
- ((equal org-keys "m") (call-interactively 'org-tags-view))
- ((equal org-keys "M") (org-call-with-arg 'org-tags-view (or arg '(4))))
- ((equal org-keys "e") (call-interactively 'org-store-agenda-views))
- ((equal org-keys "?") (org-tags-view nil "+FLAGGED")
- (add-hook
- 'post-command-hook
- (lambda ()
- (unless (current-message)
- (let* ((m (org-agenda-get-any-marker))
- (note (and m (org-entry-get m "THEFLAGGINGNOTE"))))
- (when note
- (message (concat
- "FLAGGING-NOTE ([?] for more info): "
- (org-add-props
- (replace-regexp-in-string
- "\\\\n" "//"
- (copy-sequence note))
- nil 'face 'org-warning)))))))
- t t))
- ((equal org-keys "#") (call-interactively 'org-agenda-list-stuck-projects))
- ((equal org-keys "/") (call-interactively 'org-occur-in-agenda-files))
- ((equal org-keys "!") (customize-variable 'org-stuck-projects))
- (t (user-error "Invalid agenda key"))))))
-
-(defvar org-agenda-multi)
-
-(defun org-agenda-append-agenda ()
- "Append another agenda view to the current one.
-This function allows interactive building of block agendas.
-Agenda views are separated by `org-agenda-block-separator'."
- (interactive)
- (unless (derived-mode-p 'org-agenda-mode)
- (user-error "Can only append from within agenda buffer"))
- (let ((org-agenda-multi t))
- (org-agenda)
- (widen)
- (org-agenda-finalize)
- (setq buffer-read-only t)
- (org-agenda-fit-window-to-buffer)))
-
-(defun org-agenda-normalize-custom-commands (cmds)
- "Normalize custom commands CMDS."
- (delq nil
- (mapcar
- (lambda (x)
- (cond ((stringp (cdr x)) nil)
- ((stringp (nth 1 x)) x)
- ((not (nth 1 x)) (cons (car x) (cons "" (cddr x))))
- (t (cons (car x) (cons "" (cdr x))))))
- cmds)))
-
-(defun org-agenda-get-restriction-and-command (prefix-descriptions)
- "The user interface for selecting an agenda command."
- (catch 'exit
- (let* ((bfn (buffer-file-name (buffer-base-buffer)))
- (restrict-ok (and bfn (derived-mode-p 'org-mode)))
- (region-p (org-region-active-p))
- (custom org-agenda-custom-commands)
- (selstring "")
- restriction second-time
- c entry key type match prefixes rmheader header-end custom1 desc
- line lines left right n n1)
- (save-window-excursion
- (delete-other-windows)
- (org-switch-to-buffer-other-window " *Agenda Commands*")
- (erase-buffer)
- (insert (eval-when-compile
- (let ((header
- "Press key for an agenda command:
--------------------------------- < Buffer, subtree/region restriction
-a Agenda for current week or day > Remove restriction
-t List of all TODO entries e Export agenda views
-m Match a TAGS/PROP/TODO query T Entries with special TODO kwd
-s Search for keywords M Like m, but only TODO entries
-/ Multi-occur S Like s, but only TODO entries
-? Find :FLAGGED: entries C Configure custom agenda commands
-* Toggle sticky agenda views # List stuck projects (!=configure)
-")
- (start 0))
- (while (string-match
- "\\(^\\| \\|(\\)\\(\\S-\\)\\( \\|=\\)"
- header start)
- (setq start (match-end 0))
- (add-text-properties (match-beginning 2) (match-end 2)
- '(face bold) header))
- header)))
- (setq header-end (point-marker))
- (while t
- (setq custom1 custom)
- (when (eq rmheader t)
- (org-goto-line 1)
- (re-search-forward ":" nil t)
- (delete-region (match-end 0) (point-at-eol))
- (forward-char 1)
- (looking-at "-+")
- (delete-region (match-end 0) (point-at-eol))
- (move-marker header-end (match-end 0)))
- (goto-char header-end)
- (delete-region (point) (point-max))
-
- ;; Produce all the lines that describe custom commands and prefixes
- (setq lines nil)
- (while (setq entry (pop custom1))
- (setq key (car entry) desc (nth 1 entry)
- type (nth 2 entry)
- match (nth 3 entry))
- (if (> (length key) 1)
- (cl-pushnew (string-to-char key) prefixes :test #'equal)
- (setq line
- (format
- "%-4s%-14s"
- (org-add-props (copy-sequence key)
- '(face bold))
- (cond
- ((string-match "\\S-" desc) desc)
- ((eq type 'agenda) "Agenda for current week or day")
- ((eq type 'agenda*) "Appointments for current week or day")
- ((eq type 'alltodo) "List of all TODO entries")
- ((eq type 'search) "Word search")
- ((eq type 'stuck) "List of stuck projects")
- ((eq type 'todo) "TODO keyword")
- ((eq type 'tags) "Tags query")
- ((eq type 'tags-todo) "Tags (TODO)")
- ((eq type 'tags-tree) "Tags tree")
- ((eq type 'todo-tree) "TODO kwd tree")
- ((eq type 'occur-tree) "Occur tree")
- ((functionp type) (if (symbolp type)
- (symbol-name type)
- "Lambda expression"))
- (t "???"))))
- (if org-agenda-menu-show-matcher
- (setq line
- (concat line ": "
- (cond
- ((stringp match)
- (setq match (copy-sequence match))
- (org-add-props match nil 'face 'org-warning))
- ((listp type)
- (format "set of %d commands" (length type))))))
- (if (org-string-nw-p match)
- (add-text-properties
- 0 (length line) (list 'help-echo
- (concat "Matcher: " match)) line)))
- (push line lines)))
- (setq lines (nreverse lines))
- (when prefixes
- (mapc (lambda (x)
- (push
- (format "%s %s"
- (org-add-props (char-to-string x)
- nil 'face 'bold)
- (or (cdr (assoc (concat selstring
- (char-to-string x))
- prefix-descriptions))
- "Prefix key"))
- lines))
- prefixes))
-
- ;; Check if we should display in two columns
- (if org-agenda-menu-two-columns
- (progn
- (setq n (length lines)
- n1 (+ (/ n 2) (mod n 2))
- right (nthcdr n1 lines)
- left (copy-sequence lines))
- (setcdr (nthcdr (1- n1) left) nil))
- (setq left lines right nil))
- (while left
- (insert "\n" (pop left))
- (when right
- (if (< (current-column) 40)
- (move-to-column 40 t)
- (insert " "))
- (insert (pop right))))
-
- ;; Make the window the right size
- (goto-char (point-min))
- (if second-time
- (if (not (pos-visible-in-window-p (point-max)))
- (org-fit-window-to-buffer))
- (setq second-time t)
- (org-fit-window-to-buffer))
-
- ;; Ask for selection
- (message "Press key for agenda command%s:"
- (if (or restrict-ok org-agenda-overriding-restriction)
- (if org-agenda-overriding-restriction
- " (restriction lock active)"
- (if restriction
- (format " (restricted to %s)" restriction)
- " (unrestricted)"))
- ""))
- (setq c (read-char-exclusive))
- (message "")
- (cond
- ((assoc (char-to-string c) custom)
- (setq selstring (concat selstring (char-to-string c)))
- (throw 'exit (cons selstring restriction)))
- ((memq c prefixes)
- (setq selstring (concat selstring (char-to-string c))
- prefixes nil
- rmheader (or rmheader t)
- custom (delq nil (mapcar
- (lambda (x)
- (if (or (= (length (car x)) 1)
- (/= (string-to-char (car x)) c))
- nil
- (cons (substring (car x) 1) (cdr x))))
- custom))))
- ((eq c ?*)
- (call-interactively 'org-toggle-sticky-agenda)
- (sit-for 2))
- ((and (not restrict-ok) (memq c '(?1 ?0 ?<)))
- (message "Restriction is only possible in Org buffers")
- (ding) (sit-for 1))
- ((eq c ?1)
- (org-agenda-remove-restriction-lock 'noupdate)
- (setq restriction 'buffer))
- ((eq c ?0)
- (org-agenda-remove-restriction-lock 'noupdate)
- (setq restriction (if region-p 'region 'subtree)))
- ((eq c ?<)
- (org-agenda-remove-restriction-lock 'noupdate)
- (setq restriction
- (cond
- ((eq restriction 'buffer)
- (if region-p 'region 'subtree))
- ((memq restriction '(subtree region))
- nil)
- (t 'buffer))))
- ((eq c ?>)
- (org-agenda-remove-restriction-lock 'noupdate)
- (setq restriction nil))
- ((and (equal selstring "") (memq c '(?s ?S ?a ?t ?m ?L ?C ?e ?T ?M ?# ?! ?/ ??)))
- (throw 'exit (cons (setq selstring (char-to-string c)) restriction)))
- ((and (> (length selstring) 0) (eq c ?\d))
- (delete-window)
- (org-agenda-get-restriction-and-command prefix-descriptions))
-
- ((equal c ?q) (error "Abort"))
- (t (user-error "Invalid key %c" c))))))))
-
-(defun org-agenda-fit-window-to-buffer ()
- "Fit the window to the buffer size."
- (and (memq org-agenda-window-setup '(reorganize-frame))
- (fboundp 'fit-window-to-buffer)
- (if (and (= (cdr org-agenda-window-frame-fractions) 1.0)
- (= (car org-agenda-window-frame-fractions) 1.0))
- (delete-other-windows)
- (org-fit-window-to-buffer
- nil
- (floor (* (frame-height) (cdr org-agenda-window-frame-fractions)))
- (floor (* (frame-height) (car org-agenda-window-frame-fractions)))))))
-
-(defvar org-cmd nil)
-(defvar org-agenda-overriding-cmd nil)
-(defvar org-agenda-overriding-arguments nil)
-(defvar org-agenda-overriding-cmd-arguments nil)
-(defun org-agenda-run-series (name series)
- "Run agenda NAME as a SERIES of agenda commands."
- (org-let (nth 1 series) '(org-agenda-prepare name))
- ;; We need to reset agenda markers here, because when constructing a
- ;; block agenda, the individual blocks do not do that.
- (org-agenda-reset-markers)
- (let* ((org-agenda-multi t)
- (redo (list 'org-agenda-run-series name (list 'quote series)))
- (cmds (car series))
- (gprops (nth 1 series))
- match ;; The byte compiler incorrectly complains about this. Keep it!
- org-cmd type lprops)
- (while (setq org-cmd (pop cmds))
- (setq type (car org-cmd))
- (setq match (eval (nth 1 org-cmd)))
- (setq lprops (nth 2 org-cmd))
- (let ((org-agenda-overriding-arguments
- (if (eq org-agenda-overriding-cmd org-cmd)
- (or org-agenda-overriding-arguments
- org-agenda-overriding-cmd-arguments))))
- (cond
- ((eq type 'agenda)
- (org-let2 gprops lprops
- '(call-interactively 'org-agenda-list)))
- ((eq type 'agenda*)
- (org-let2 gprops lprops
- '(funcall 'org-agenda-list nil nil t)))
- ((eq type 'alltodo)
- (org-let2 gprops lprops
- '(call-interactively 'org-todo-list)))
- ((eq type 'search)
- (org-let2 gprops lprops
- '(org-search-view current-prefix-arg match nil)))
- ((eq type 'stuck)
- (org-let2 gprops lprops
- '(call-interactively 'org-agenda-list-stuck-projects)))
- ((eq type 'tags)
- (org-let2 gprops lprops
- '(org-tags-view current-prefix-arg match)))
- ((eq type 'tags-todo)
- (org-let2 gprops lprops
- '(org-tags-view '(4) match)))
- ((eq type 'todo)
- (org-let2 gprops lprops
- '(org-todo-list match)))
- ((fboundp type)
- (org-let2 gprops lprops
- '(funcall type match)))
- (t (error "Invalid type in command series")))))
- (widen)
- (let ((inhibit-read-only t))
- (add-text-properties (point-min) (point-max)
- `(org-series t org-series-redo-cmd ,redo)))
- (setq org-agenda-redo-command redo)
- (goto-char (point-min)))
- (org-agenda-fit-window-to-buffer)
- (org-let (nth 1 series) '(org-agenda-finalize)))
-
-;;;###autoload
-(defmacro org-batch-agenda (cmd-key &rest parameters)
- "Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command."
- (org-eval-in-environment (org-make-parameter-alist parameters)
- (let (org-agenda-sticky)
- (if (> (length cmd-key) 1)
- (org-tags-view nil cmd-key)
- (org-agenda nil cmd-key))))
- (set-buffer org-agenda-buffer-name)
- (princ (buffer-string)))
-
-(defvar org-agenda-info nil)
-
-;;;###autoload
-(defmacro org-batch-agenda-csv (cmd-key &rest parameters)
- "Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command.
-
-The output gives a line for each selected agenda item. Each
-item is a list of comma-separated values, like this:
-
-category,head,type,todo,tags,date,time,extra,priority-l,priority-n
-
-category The category of the item
-head The headline, without TODO kwd, TAGS and PRIORITY
-type The type of the agenda entry, can be
- todo selected in TODO match
- tagsmatch selected in tags match
- diary imported from diary
- deadline a deadline on given date
- scheduled scheduled on given date
- timestamp entry has timestamp on given date
- closed entry was closed on given date
- upcoming-deadline warning about deadline
- past-scheduled forwarded scheduled item
- block entry has date block including g. date
-todo The todo keyword, if any
-tags All tags including inherited ones, separated by colons
-date The relevant date, like 2007-2-14
-time The time, like 15:00-16:50
-extra Sting with extra planning info
-priority-l The priority letter if any was given
-priority-n The computed numerical priority
-agenda-day The day in the agenda where this is listed"
- (org-eval-in-environment (append '((org-agenda-remove-tags t))
- (org-make-parameter-alist parameters))
- (if (> (length cmd-key) 2)
- (org-tags-view nil cmd-key)
- (org-agenda nil cmd-key)))
- (set-buffer org-agenda-buffer-name)
- (let* ((lines (org-split-string (buffer-string) "\n"))
- line)
- (while (setq line (pop lines))
- (catch 'next
- (if (not (get-text-property 0 'org-category line)) (throw 'next nil))
- (setq org-agenda-info
- (org-fix-agenda-info (text-properties-at 0 line)))
- (princ
- (mapconcat 'org-agenda-export-csv-mapper
- '(org-category txt type todo tags date time extra
- priority-letter priority agenda-day)
- ","))
- (princ "\n")))))
-
-(defun org-fix-agenda-info (props)
- "Make sure all properties on an agenda item have a canonical form.
-This ensures the export commands can easily use it."
- (let (tmp re)
- (when (setq tmp (plist-get props 'tags))
- (setq props (plist-put props 'tags (mapconcat 'identity tmp ":"))))
- (when (setq tmp (plist-get props 'date))
- (if (integerp tmp) (setq tmp (calendar-gregorian-from-absolute tmp)))
- (let ((calendar-date-display-form '(year "-" month "-" day)))
- '((format "%4d, %9s %2s, %4s" dayname monthname day year))
-
- (setq tmp (calendar-date-string tmp)))
- (setq props (plist-put props 'date tmp)))
- (when (setq tmp (plist-get props 'day))
- (if (integerp tmp) (setq tmp (calendar-gregorian-from-absolute tmp)))
- (let ((calendar-date-display-form '(year "-" month "-" day)))
- (setq tmp (calendar-date-string tmp)))
- (setq props (plist-put props 'day tmp))
- (setq props (plist-put props 'agenda-day tmp)))
- (when (setq tmp (plist-get props 'txt))
- (when (string-match "\\[#\\([A-Z0-9]\\)\\] ?" tmp)
- (plist-put props 'priority-letter (match-string 1 tmp))
- (setq tmp (replace-match "" t t tmp)))
- (when (and (setq re (plist-get props 'org-todo-regexp))
- (setq re (concat "\\`\\.*" re " ?"))
- (let ((case-fold-search nil)) (string-match re tmp)))
- (plist-put props 'todo (match-string 1 tmp))
- (setq tmp (replace-match "" t t tmp)))
- (plist-put props 'txt tmp)))
- props)
-
-(defun org-agenda-export-csv-mapper (prop)
- (let ((res (plist-get org-agenda-info prop)))
- (setq res
- (cond
- ((not res) "")
- ((stringp res) res)
- (t (prin1-to-string res))))
- (org-trim (replace-regexp-in-string "," ";" res nil t))))
-
-;;;###autoload
-(defun org-store-agenda-views (&rest parameters)
- "Store agenda views."
- (interactive)
- (eval (list 'org-batch-store-agenda-views)))
-
-;;;###autoload
-(defmacro org-batch-store-agenda-views (&rest parameters)
- "Run all custom agenda commands that have a file argument."
- (let ((cmds (org-agenda-normalize-custom-commands org-agenda-custom-commands))
- (pop-up-frames nil)
- (dir default-directory)
- (pars (org-make-parameter-alist parameters))
- cmd thiscmdkey thiscmdcmd match files opts cmd-or-set bufname)
- (save-window-excursion
- (while cmds
- (setq cmd (pop cmds)
- thiscmdkey (car cmd)
- thiscmdcmd (cdr cmd)
- match (nth 2 thiscmdcmd)
- bufname (if org-agenda-sticky
- (or (and (stringp match)
- (format "*Org Agenda(%s:%s)*" thiscmdkey match))
- (format "*Org Agenda(%s)*" thiscmdkey))
- org-agenda-buffer-name)
- cmd-or-set (nth 2 cmd)
- opts (nth (if (listp cmd-or-set) 3 4) cmd)
- files (nth (if (listp cmd-or-set) 4 5) cmd))
- (if (stringp files) (setq files (list files)))
- (when files
- (org-eval-in-environment (append org-agenda-exporter-settings
- opts pars)
- (org-agenda nil thiscmdkey))
- (set-buffer bufname)
- (while files
- (org-eval-in-environment (append org-agenda-exporter-settings
- opts pars)
- (org-agenda-write (expand-file-name (pop files) dir) nil t bufname)))
- (and (get-buffer bufname)
- (kill-buffer bufname)))))))
-
-(defvar org-agenda-current-span nil
- "The current span used in the agenda view.") ; local variable in the agenda buffer
-(defun org-agenda-mark-header-line (pos)
- "Mark the line at POS as an agenda structure header."
- (save-excursion
- (goto-char pos)
- (put-text-property (point-at-bol) (point-at-eol)
- 'org-agenda-structural-header t)
- (when org-agenda-title-append
- (put-text-property (point-at-bol) (point-at-eol)
- 'org-agenda-title-append org-agenda-title-append))))
-
-(defvar org-mobile-creating-agendas) ; defined in org-mobile.el
-(defvar org-agenda-write-buffer-name "Agenda View")
-(defun org-agenda-write (file &optional open nosettings agenda-bufname)
- "Write the current buffer (an agenda view) as a file.
-
-Depending on the extension of the file name, plain text (.txt),
-HTML (.html or .htm), PDF (.pdf) or Postscript (.ps) is produced.
-If the extension is .ics, translate visible agenda into iCalendar
-format. If the extension is .org, collect all subtrees
-corresponding to the agenda entries and add them in an .org file.
-
-With prefix argument OPEN, open the new file immediately. If
-NOSETTINGS is given, do not scope the settings of
-`org-agenda-exporter-settings' into the export commands. This is
-used when the settings have already been scoped and we do not
-wish to overrule other, higher priority settings. If
-AGENDA-BUFFER-NAME is provided, use this as the buffer name for
-the agenda to write."
- (interactive "FWrite agenda to file: \nP")
- (if (or (not (file-writable-p file))
- (and (file-exists-p file)
- (if (called-interactively-p 'any)
- (not (y-or-n-p (format "Overwrite existing file %s? " file))))))
- (user-error "Cannot write agenda to file %s" file))
- (org-let (if nosettings nil org-agenda-exporter-settings)
- '(save-excursion
- (save-window-excursion
- (let ((bs (copy-sequence (buffer-string)))
- (extension (file-name-extension file))
- (default-directory (file-name-directory file))
- beg content)
- (with-temp-buffer
- (rename-buffer org-agenda-write-buffer-name t)
- (set-buffer-modified-p nil)
- (insert bs)
- (org-agenda-remove-marked-text 'invisible 'org-filtered)
- (run-hooks 'org-agenda-before-write-hook)
- (cond
- ((bound-and-true-p org-mobile-creating-agendas)
- (org-mobile-write-agenda-for-mobile file))
- ((string= "org" extension)
- (let (content p m message-log-max)
- (goto-char (point-min))
- (while (setq p (next-single-property-change (point) 'org-hd-marker nil))
- (goto-char p)
- (setq m (get-text-property (point) 'org-hd-marker))
- (when m
- (push (save-excursion
- (set-buffer (marker-buffer m))
- (goto-char m)
- (org-copy-subtree 1 nil t t)
- org-subtree-clip)
- content)))
- (find-file file)
- (erase-buffer)
- (dolist (s content) (org-paste-subtree 1 s))
- (write-file file)
- (kill-buffer (current-buffer))
- (message "Org file written to %s" file)))
- ((member extension '("html" "htm"))
- (or (require 'htmlize nil t)
- (error "Please install htmlize from https://github.com/hniksic/emacs-htmlize"))
- (set-buffer (htmlize-buffer (current-buffer)))
- (when org-agenda-export-html-style
- ;; replace <style> section with org-agenda-export-html-style
- (goto-char (point-min))
- (kill-region (- (search-forward "<style") 6)
- (search-forward "</style>"))
- (insert org-agenda-export-html-style))
- (write-file file)
- (kill-buffer (current-buffer))
- (message "HTML written to %s" file))
- ((string= "ps" extension)
- (require 'ps-print)
- (ps-print-buffer-with-faces file)
- (message "Postscript written to %s" file))
- ((string= "pdf" extension)
- (require 'ps-print)
- (ps-print-buffer-with-faces
- (concat (file-name-sans-extension file) ".ps"))
- (call-process "ps2pdf" nil nil nil
- (expand-file-name
- (concat (file-name-sans-extension file) ".ps"))
- (expand-file-name file))
- (delete-file (concat (file-name-sans-extension file) ".ps"))
- (message "PDF written to %s" file))
- ((string= "ics" extension)
- (require 'ox-icalendar)
- (org-icalendar-export-current-agenda (expand-file-name file)))
- (t
- (let ((bs (buffer-string)))
- (find-file file)
- (erase-buffer)
- (insert bs)
- (save-buffer 0)
- (kill-buffer (current-buffer))
- (message "Plain text written to %s" file))))))))
- (set-buffer (or agenda-bufname
- (and (called-interactively-p 'any) (buffer-name))
- org-agenda-buffer-name)))
- (when open (org-open-file file)))
-
-(defun org-agenda-remove-marked-text (property &optional value)
- "Delete all text marked with VALUE of PROPERTY.
-VALUE defaults to t."
- (let (beg)
- (setq value (or value t))
- (while (setq beg (text-property-any (point-min) (point-max)
- property value))
- (delete-region
- beg (or (next-single-property-change beg property)
- (point-max))))))
-
-(defun org-agenda-add-entry-text ()
- "Add entry text to agenda lines.
-This will add a maximum of `org-agenda-add-entry-text-maxlines' lines of the
-entry text following headings shown in the agenda.
-Drawers will be excluded, also the line with scheduling/deadline info."
- (when (and (> org-agenda-add-entry-text-maxlines 0)
- (not (bound-and-true-p org-mobile-creating-agendas)))
- (let (m txt)
- (goto-char (point-min))
- (while (not (eobp))
- (if (not (setq m (org-get-at-bol 'org-hd-marker)))
- (beginning-of-line 2)
- (setq txt (org-agenda-get-some-entry-text
- m org-agenda-add-entry-text-maxlines " > "))
- (end-of-line 1)
- (if (string-match "\\S-" txt)
- (insert "\n" txt)
- (or (eobp) (forward-char 1))))))))
-
-(defun org-agenda-get-some-entry-text (marker n-lines &optional indent
- &rest keep)
- "Extract entry text from MARKER, at most N-LINES lines.
-This will ignore drawers etc, just get the text.
-If INDENT is given, prefix every line with this string. If KEEP is
-given, it is a list of symbols, defining stuff that should not be
-removed from the entry content. Currently only `planning' is allowed here."
- (let (txt drawer-re kwd-time-re ind)
- (save-excursion
- (with-current-buffer (marker-buffer marker)
- (if (not (derived-mode-p 'org-mode))
- (setq txt "")
- (org-with-wide-buffer
- (goto-char marker)
- (end-of-line 1)
- (setq txt (buffer-substring
- (min (1+ (point)) (point-max))
- (progn (outline-next-heading) (point)))
- drawer-re org-drawer-regexp
- kwd-time-re (concat "^[ \t]*" org-keyword-time-regexp
- ".*\n?"))
- (with-temp-buffer
- (insert txt)
- (when org-agenda-add-entry-text-descriptive-links
- (goto-char (point-min))
- (while (org-activate-links (point-max))
- (add-text-properties (match-beginning 0) (match-end 0)
- '(face org-link))))
- (goto-char (point-min))
- (while (re-search-forward org-bracket-link-regexp (point-max) t)
- (set-text-properties (match-beginning 0) (match-end 0)
- nil))
- (goto-char (point-min))
- (while (re-search-forward drawer-re nil t)
- (delete-region
- (match-beginning 0)
- (progn (re-search-forward
- "^[ \t]*:END:.*\n?" nil 'move)
- (point))))
- (unless (member 'planning keep)
- (goto-char (point-min))
- (while (re-search-forward kwd-time-re nil t)
- (replace-match "")))
- (goto-char (point-min))
- (when org-agenda-entry-text-exclude-regexps
- (let ((re-list org-agenda-entry-text-exclude-regexps) re)
- (while (setq re (pop re-list))
- (goto-char (point-min))
- (while (re-search-forward re nil t)
- (replace-match "")))))
- (goto-char (point-max))
- (skip-chars-backward " \t\n")
- (if (looking-at "[ \t\n]+\\'") (replace-match ""))
-
- ;; find and remove min common indentation
- (goto-char (point-min))
- (untabify (point-min) (point-max))
- (setq ind (org-get-indentation))
- (while (not (eobp))
- (unless (looking-at "[ \t]*$")
- (setq ind (min ind (org-get-indentation))))
- (beginning-of-line 2))
- (goto-char (point-min))
- (while (not (eobp))
- (unless (looking-at "[ \t]*$")
- (move-to-column ind)
- (delete-region (point-at-bol) (point)))
- (beginning-of-line 2))
-
- (run-hooks 'org-agenda-entry-text-cleanup-hook)
-
- (goto-char (point-min))
- (when indent
- (while (and (not (eobp)) (re-search-forward "^" nil t))
- (replace-match indent t t)))
- (goto-char (point-min))
- (while (looking-at "[ \t]*\n") (replace-match ""))
- (goto-char (point-max))
- (when (> (org-current-line)
- n-lines)
- (org-goto-line (1+ n-lines))
- (backward-char 1))
- (setq txt (buffer-substring (point-min) (point))))))))
- txt))
-
-(defun org-check-for-org-mode ()
- "Make sure current buffer is in Org mode. Error if not."
- (or (derived-mode-p 'org-mode)
- (error "Cannot execute Org agenda command on buffer in %s"
- major-mode)))
-
-;;; Agenda prepare and finalize
-
-(defvar org-agenda-multi nil) ; dynamically scoped
-(defvar org-agenda-pre-window-conf nil)
-(defvar org-agenda-columns-active nil)
-(defvar org-agenda-name nil)
-(defvar org-agenda-tag-filter nil)
-(defvar org-agenda-category-filter nil)
-(defvar org-agenda-regexp-filter nil)
-(defvar org-agenda-effort-filter nil)
-(defvar org-agenda-top-headline-filter nil)
-(defvar org-agenda-tag-filter-preset nil
- "A preset of the tags filter used for secondary agenda filtering.
-This must be a list of strings, each string must be a single tag preceded
-by \"+\" or \"-\".
-This variable should not be set directly, but agenda custom commands can
-bind it in the options section. The preset filter is a global property of
-the entire agenda view. In a block agenda, it will not work reliably to
-define a filter for one of the individual blocks. You need to set it in
-the global options and expect it to be applied to the entire view.")
-
-(defvar org-agenda-category-filter-preset nil
- "A preset of the category filter used for secondary agenda filtering.
-This must be a list of strings, each string must be a single category
-preceded by \"+\" or \"-\".
-This variable should not be set directly, but agenda custom commands can
-bind it in the options section. The preset filter is a global property of
-the entire agenda view. In a block agenda, it will not work reliably to
-define a filter for one of the individual blocks. You need to set it in
-the global options and expect it to be applied to the entire view.")
-
-(defvar org-agenda-regexp-filter-preset nil
- "A preset of the regexp filter used for secondary agenda filtering.
-This must be a list of strings, each string must be a single regexp
-preceded by \"+\" or \"-\".
-This variable should not be set directly, but agenda custom commands can
-bind it in the options section. The preset filter is a global property of
-the entire agenda view. In a block agenda, it will not work reliably to
-define a filter for one of the individual blocks. You need to set it in
-the global options and expect it to be applied to the entire view.")
-
-(defvar org-agenda-effort-filter-preset nil
- "A preset of the effort condition used for secondary agenda filtering.
-This must be a list of strings, each string must be a single regexp
-preceded by \"+\" or \"-\".
-This variable should not be set directly, but agenda custom commands can
-bind it in the options section. The preset filter is a global property of
-the entire agenda view. In a block agenda, it will not work reliably to
-define a filter for one of the individual blocks. You need to set it in
-the global options and expect it to be applied to the entire view.")
-
-(defun org-agenda-use-sticky-p ()
- "Return non-nil if an agenda buffer named
-`org-agenda-buffer-name' exists and should be shown instead of
-generating a new one."
- (and
- ;; turned off by user
- org-agenda-sticky
- ;; For multi-agenda buffer already exists
- (not org-agenda-multi)
- ;; buffer found
- (get-buffer org-agenda-buffer-name)
- ;; C-u parameter is same as last call
- (with-current-buffer (get-buffer org-agenda-buffer-name)
- (and
- (equal current-prefix-arg
- org-agenda-last-prefix-arg)
- ;; In case user turned stickiness on, while having existing
- ;; Agenda buffer active, don't reuse that buffer, because it
- ;; does not have org variables local
- org-agenda-this-buffer-is-sticky))))
-
-(defun org-agenda-prepare-window (abuf filter-alist)
- "Setup agenda buffer in the window.
-ABUF is the buffer for the agenda window.
-FILTER-ALIST is an alist of filters we need to apply when
-`org-agenda-persistent-filter' is non-nil."
- (let* ((awin (get-buffer-window abuf)) wconf)
- (cond
- ((equal (current-buffer) abuf) nil)
- (awin (select-window awin))
- ((not (setq wconf (current-window-configuration))))
- ((eq org-agenda-window-setup 'current-window)
- (pop-to-buffer-same-window abuf))
- ((eq org-agenda-window-setup 'other-window)
- (org-switch-to-buffer-other-window abuf))
- ((eq org-agenda-window-setup 'other-frame)
- (switch-to-buffer-other-frame abuf))
- ((eq org-agenda-window-setup 'only-window)
- (delete-other-windows)
- (pop-to-buffer-same-window abuf))
- ((eq org-agenda-window-setup 'reorganize-frame)
- (delete-other-windows)
- (org-switch-to-buffer-other-window abuf)))
- (setq org-agenda-tag-filter (cdr (assq 'tag filter-alist)))
- (setq org-agenda-category-filter (cdr (assq 'cat filter-alist)))
- (setq org-agenda-effort-filter (cdr (assq 'effort filter-alist)))
- (setq org-agenda-regexp-filter (cdr (assq 're filter-alist)))
- ;; Additional test in case agenda is invoked from within agenda
- ;; buffer via elisp link.
- (unless (equal (current-buffer) abuf)
- (pop-to-buffer-same-window abuf))
- (setq org-agenda-pre-window-conf
- (or wconf org-agenda-pre-window-conf))))
-
-(defun org-agenda-prepare (&optional name)
- (let ((filter-alist (if org-agenda-persistent-filter
- (with-current-buffer
- (get-buffer-create org-agenda-buffer-name)
- (list `(tag . ,org-agenda-tag-filter)
- `(re . ,org-agenda-regexp-filter)
- `(effort . ,org-agenda-effort-filter)
- `(cat . ,org-agenda-category-filter))))))
- (if (org-agenda-use-sticky-p)
- (progn
- (put 'org-agenda-tag-filter :preset-filter nil)
- (put 'org-agenda-category-filter :preset-filter nil)
- (put 'org-agenda-regexp-filter :preset-filter nil)
- ;; Popup existing buffer
- (org-agenda-prepare-window (get-buffer org-agenda-buffer-name)
- filter-alist)
- (message "Sticky Agenda buffer, use `r' to refresh")
- (or org-agenda-multi (org-agenda-fit-window-to-buffer))
- (throw 'exit "Sticky Agenda buffer, use `r' to refresh"))
- (setq org-todo-keywords-for-agenda nil)
- (put 'org-agenda-tag-filter :preset-filter
- org-agenda-tag-filter-preset)
- (put 'org-agenda-category-filter :preset-filter
- org-agenda-category-filter-preset)
- (put 'org-agenda-regexp-filter :preset-filter
- org-agenda-regexp-filter-preset)
- (put 'org-agenda-effort-filter :preset-filter
- org-agenda-effort-filter-preset)
- (if org-agenda-multi
- (progn
- (setq buffer-read-only nil)
- (goto-char (point-max))
- (unless (or (bobp) org-agenda-compact-blocks
- (not org-agenda-block-separator))
- (insert "\n"
- (if (stringp org-agenda-block-separator)
- org-agenda-block-separator
- (make-string (window-width) org-agenda-block-separator))
- "\n"))
- (narrow-to-region (point) (point-max)))
- (setq org-done-keywords-for-agenda nil)
- ;; Setting any org variables that are in org-agenda-local-vars
- ;; list need to be done after the prepare call
- (org-agenda-prepare-window
- (get-buffer-create org-agenda-buffer-name) filter-alist)
- (setq buffer-read-only nil)
- (org-agenda-reset-markers)
- (let ((inhibit-read-only t)) (erase-buffer))
- (org-agenda-mode)
- (setq org-agenda-buffer (current-buffer))
- (setq org-agenda-contributing-files nil)
- (setq org-agenda-columns-active nil)
- (org-agenda-prepare-buffers (org-agenda-files nil 'ifmode))
- (setq org-todo-keywords-for-agenda
- (org-uniquify org-todo-keywords-for-agenda))
- (setq org-done-keywords-for-agenda
- (org-uniquify org-done-keywords-for-agenda))
- (setq org-agenda-last-prefix-arg current-prefix-arg)
- (setq org-agenda-this-buffer-name org-agenda-buffer-name)
- (and name (not org-agenda-name)
- (setq-local org-agenda-name name)))
- (setq buffer-read-only nil))))
-
-(defvar org-agenda-overriding-columns-format) ; From org-colview.el
-(defun org-agenda-finalize ()
- "Finishing touch for the agenda buffer, called just before displaying it."
- (unless org-agenda-multi
- (save-excursion
- (let ((inhibit-read-only t))
- (goto-char (point-min))
- (save-excursion
- (while (org-activate-links (point-max))
- (add-text-properties (match-beginning 0) (match-end 0)
- '(face org-link))))
- (unless (eq org-agenda-remove-tags t)
- (org-agenda-align-tags))
- (unless org-agenda-with-colors
- (remove-text-properties (point-min) (point-max) '(face nil)))
- (if (and (boundp 'org-agenda-overriding-columns-format)
- org-agenda-overriding-columns-format)
- (setq-local org-agenda-overriding-columns-format
- org-agenda-overriding-columns-format))
- (if (and (boundp 'org-agenda-view-columns-initially)
- org-agenda-view-columns-initially)
- (org-agenda-columns))
- (when org-agenda-fontify-priorities
- (org-agenda-fontify-priorities))
- (when (and org-agenda-dim-blocked-tasks org-blocker-hook)
- (org-agenda-dim-blocked-tasks))
- (org-agenda-mark-clocking-task)
- (when org-agenda-entry-text-mode
- (org-agenda-entry-text-hide)
- (org-agenda-entry-text-show))
- (if (and (functionp 'org-habit-insert-consistency-graphs)
- (save-excursion (next-single-property-change (point-min) 'org-habit-p)))
- (org-habit-insert-consistency-graphs))
- (setq org-agenda-type (org-get-at-bol 'org-agenda-type))
- (unless (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq org-agenda-type org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (and (listp org-agenda-use-tag-inheritance)
- (not (memq org-agenda-type
- org-agenda-use-tag-inheritance))))))
- (let (mrk)
- (save-excursion
- (goto-char (point-min))
- (while (equal (forward-line) 0)
- (when (setq mrk (get-text-property (point) 'org-hd-marker))
- (put-text-property (point-at-bol) (point-at-eol)
- 'tags (org-with-point-at mrk
- (delete-dups
- (mapcar 'downcase (org-get-tags-at))))))))))
- (run-hooks 'org-agenda-finalize-hook)
- (when org-agenda-top-headline-filter
- (org-agenda-filter-top-headline-apply
- org-agenda-top-headline-filter))
- (when org-agenda-tag-filter
- (org-agenda-filter-apply org-agenda-tag-filter 'tag t))
- (when (get 'org-agenda-tag-filter :preset-filter)
- (org-agenda-filter-apply
- (get 'org-agenda-tag-filter :preset-filter) 'tag t))
- (when org-agenda-category-filter
- (org-agenda-filter-apply org-agenda-category-filter 'category))
- (when (get 'org-agenda-category-filter :preset-filter)
- (org-agenda-filter-apply
- (get 'org-agenda-category-filter :preset-filter) 'category))
- (when org-agenda-regexp-filter
- (org-agenda-filter-apply org-agenda-regexp-filter 'regexp))
- (when (get 'org-agenda-regexp-filter :preset-filter)
- (org-agenda-filter-apply
- (get 'org-agenda-regexp-filter :preset-filter) 'regexp))
- (when org-agenda-effort-filter
- (org-agenda-filter-apply org-agenda-effort-filter 'effort))
- (when (get 'org-agenda-effort-filter :preset-filter)
- (org-agenda-filter-apply
- (get 'org-agenda-effort-filter :preset-filter) 'effort))
- (add-hook 'kill-buffer-hook 'org-agenda-reset-markers 'append 'local)))))
-
-(defun org-agenda-mark-clocking-task ()
- "Mark the current clock entry in the agenda if it is present."
- ;; We need to widen when `org-agenda-finalize' is called from
- ;; `org-agenda-change-all-lines' (e.g. in `org-agenda-clock-in')
- (when (bound-and-true-p org-clock-current-task)
- (save-restriction
- (widen)
- (org-agenda-unmark-clocking-task)
- (when (marker-buffer org-clock-hd-marker)
- (save-excursion
- (goto-char (point-min))
- (let (s ov)
- (while (setq s (next-single-property-change (point) 'org-hd-marker))
- (goto-char s)
- (when (equal (org-get-at-bol 'org-hd-marker)
- org-clock-hd-marker)
- (setq ov (make-overlay (point-at-bol) (1+ (point-at-eol))))
- (overlay-put ov 'type 'org-agenda-clocking)
- (overlay-put ov 'face 'org-agenda-clocking)
- (overlay-put ov 'help-echo
- "The clock is running in this item")))))))))
-
-(defun org-agenda-unmark-clocking-task ()
- "Unmark the current clocking task."
- (mapc (lambda (o)
- (if (eq (overlay-get o 'type) 'org-agenda-clocking)
- (delete-overlay o)))
- (overlays-in (point-min) (point-max))))
-
-(defun org-agenda-fontify-priorities ()
- "Make highest priority lines bold, and lowest italic."
- (interactive)
- (mapc (lambda (o) (if (eq (overlay-get o 'org-type) 'org-priority)
- (delete-overlay o)))
- (overlays-in (point-min) (point-max)))
- (save-excursion
- (let (b e p ov h l)
- (goto-char (point-min))
- (while (re-search-forward "\\[#\\(.\\)\\]" nil t)
- (setq h (or (get-char-property (point) 'org-highest-priority)
- org-highest-priority)
- l (or (get-char-property (point) 'org-lowest-priority)
- org-lowest-priority)
- p (string-to-char (match-string 1))
- b (match-beginning 0)
- e (if (eq org-agenda-fontify-priorities 'cookies)
- (match-end 0)
- (point-at-eol))
- ov (make-overlay b e))
- (overlay-put
- ov 'face
- (let ((special-face
- (cond ((org-face-from-face-or-color
- 'priority 'org-priority
- (cdr (assoc p org-priority-faces))))
- ((and (listp org-agenda-fontify-priorities)
- (org-face-from-face-or-color
- 'priority 'org-priority
- (cdr (assoc p org-agenda-fontify-priorities)))))
- ((equal p l) 'italic)
- ((equal p h) 'bold))))
- (if special-face (list special-face 'org-priority) 'org-priority)))
- (overlay-put ov 'org-type 'org-priority)))))
-
-(defvar org-depend-tag-blocked)
-
-(defun org-agenda-dim-blocked-tasks (&optional invisible)
- "Dim currently blocked TODOs in the agenda display.
-When INVISIBLE is non-nil, hide currently blocked TODO instead of
-dimming them."
- (interactive "P")
- (when (called-interactively-p 'interactive)
- (message "Dim or hide blocked tasks..."))
- (dolist (o (overlays-in (point-min) (point-max)))
- (when (eq (overlay-get o 'org-type) 'org-blocked-todo)
- (delete-overlay o)))
- (save-excursion
- (let ((inhibit-read-only t))
- (goto-char (point-min))
- (while (let ((pos (text-property-not-all
- (point) (point-max) 'org-todo-blocked nil)))
- (when pos (goto-char pos)))
- (let* ((invisible (eq (org-get-at-bol 'org-todo-blocked) 'invisible))
- (ov (make-overlay (if invisible
- (line-end-position 0)
- (line-beginning-position))
- (line-end-position))))
- (if invisible
- (overlay-put ov 'invisible t)
- (overlay-put ov 'face 'org-agenda-dimmed-todo-face))
- (overlay-put ov 'org-type 'org-blocked-todo))
- (forward-line))))
- (when (called-interactively-p 'interactive)
- (message "Dim or hide blocked tasks...done")))
-
-(defun org-agenda--mark-blocked-entry (entry)
- "For ENTRY a string with the text property `org-hd-marker', if
-the header at `org-hd-marker' is blocked according to
-`org-entry-blocked-p', then if `org-agenda-dim-blocked-tasks' is
-'invisible and the header is not blocked by checkboxes, set the
-text property `org-todo-blocked' to 'invisible, otherwise set it
-to t."
- (when (get-text-property 0 'todo-state entry)
- (let ((entry-marker (get-text-property 0 'org-hd-marker entry))
- (org-blocked-by-checkboxes nil)
- ;; Necessary so that `org-entry-blocked-p' does not change
- ;; the buffer.
- (org-depend-tag-blocked nil))
- (when entry-marker
- (let ((blocked
- (with-current-buffer (marker-buffer entry-marker)
- (save-excursion
- (goto-char entry-marker)
- (org-entry-blocked-p)))))
- (when blocked
- (let ((really-invisible
- (and (not org-blocked-by-checkboxes)
- (eq org-agenda-dim-blocked-tasks 'invisible))))
- (put-text-property
- 0 (length entry) 'org-todo-blocked
- (if really-invisible 'invisible t)
- entry)))))))
- entry)
-
-(defvar org-agenda-skip-function nil
- "Function to be called at each match during agenda construction.
-If this function returns nil, the current match should not be skipped.
-Otherwise, the function must return a position from where the search
-should be continued.
-This may also be a Lisp form, it will be evaluated.
-Never set this variable using `setq' or so, because then it will apply
-to all future agenda commands. If you do want a global skipping condition,
-use the option `org-agenda-skip-function-global' instead.
-The correct usage for `org-agenda-skip-function' is to bind it with
-`let' to scope it dynamically into the agenda-constructing command.
-A good way to set it is through options in `org-agenda-custom-commands'.")
-
-(defun org-agenda-skip ()
- "Throw to `:skip' in places that should be skipped.
-Also moves point to the end of the skipped region, so that search can
-continue from there."
- (let ((p (point-at-bol)) to)
- (when (or
- (save-excursion (goto-char p) (looking-at comment-start-skip))
- (and org-agenda-skip-archived-trees (not org-agenda-archives-mode)
- (get-text-property p :org-archived)
- (org-end-of-subtree t))
- (and org-agenda-skip-comment-trees
- (get-text-property p :org-comment)
- (org-end-of-subtree t))
- (and (setq to (or (org-agenda-skip-eval org-agenda-skip-function-global)
- (org-agenda-skip-eval org-agenda-skip-function)))
- (goto-char to))
- (org-in-src-block-p t))
- (throw :skip t))))
-
-(defun org-agenda-skip-eval (form)
- "If FORM is a function or a list, call (or eval) it and return the result.
-`save-excursion' and `save-match-data' are wrapped around the call, so point
-and match data are returned to the previous state no matter what these
-functions do."
- (let (fp)
- (and form
- (or (setq fp (functionp form))
- (consp form))
- (save-excursion
- (save-match-data
- (if fp
- (funcall form)
- (eval form)))))))
-
-(defvar org-agenda-markers nil
- "List of all currently active markers created by `org-agenda'.")
-(defvar org-agenda-last-marker-time (float-time)
- "Creation time of the last agenda marker.")
-
-(defun org-agenda-new-marker (&optional pos)
- "Return a new agenda marker.
-Maker is at point, or at POS if non-nil. Org mode keeps a list of
-these markers and resets them when they are no longer in use."
- (let ((m (copy-marker (or pos (point)) t)))
- (setq org-agenda-last-marker-time (float-time))
- (if org-agenda-buffer
- (with-current-buffer org-agenda-buffer
- (push m org-agenda-markers))
- (push m org-agenda-markers))
- m))
-
-(defun org-agenda-reset-markers ()
- "Reset markers created by `org-agenda'."
- (while org-agenda-markers
- (move-marker (pop org-agenda-markers) nil)))
-
-(defun org-agenda-save-markers-for-cut-and-paste (beg end)
- "Save relative positions of markers in region.
-This check for agenda markers in all agenda buffers currently active."
- (dolist (buf (buffer-list))
- (with-current-buffer buf
- (when (eq major-mode 'org-agenda-mode)
- (mapc (lambda (m) (org-check-and-save-marker m beg end))
- org-agenda-markers)))))
-
-;;; Entry text mode
-
-(defun org-agenda-entry-text-show-here ()
- "Add some text from the entry as context to the current line."
- (let (m txt o)
- (setq m (org-get-at-bol 'org-hd-marker))
- (unless (marker-buffer m)
- (error "No marker points to an entry here"))
- (setq txt (concat "\n" (org-no-properties
- (org-agenda-get-some-entry-text
- m org-agenda-entry-text-maxlines
- org-agenda-entry-text-leaders))))
- (when (string-match "\\S-" txt)
- (setq o (make-overlay (point-at-bol) (point-at-eol)))
- (overlay-put o 'evaporate t)
- (overlay-put o 'org-overlay-type 'agenda-entry-content)
- (overlay-put o 'after-string txt))))
-
-(defun org-agenda-entry-text-show ()
- "Add entry context for all agenda lines."
- (interactive)
- (save-excursion
- (goto-char (point-max))
- (beginning-of-line 1)
- (while (not (bobp))
- (when (org-get-at-bol 'org-hd-marker)
- (org-agenda-entry-text-show-here))
- (beginning-of-line 0))))
-
-(defun org-agenda-entry-text-hide ()
- "Remove any shown entry context."
- (delq nil
- (mapcar (lambda (o)
- (if (eq (overlay-get o 'org-overlay-type)
- 'agenda-entry-content)
- (progn (delete-overlay o) t)))
- (overlays-in (point-min) (point-max)))))
-
-(defun org-agenda-get-day-face (date)
- "Return the face DATE should be displayed with."
- (cond ((and (functionp org-agenda-day-face-function)
- (funcall org-agenda-day-face-function date)))
- ((org-agenda-today-p date) 'org-agenda-date-today)
- ((memq (calendar-day-of-week date) org-agenda-weekend-days)
- 'org-agenda-date-weekend)
- (t 'org-agenda-date)))
-
-(defvar org-agenda-show-log-scoped)
-
-;;; Agenda Daily/Weekly
-
-(defvar org-agenda-start-day nil ; dynamically scoped parameter
- "Start day for the agenda view.
-Custom commands can set this variable in the options section.
-This is usually a string like \"2007-11-01\", \"+2d\" or any other
-input allowed when reading a date through the Org calendar.
-See the docstring of `org-read-date' for details.")
-(defvar org-starting-day nil) ; local variable in the agenda buffer
-(defvar org-arg-loc nil) ; local variable
-
-(defvar org-agenda-buffer-tmp-name nil)
-;;;###autoload
-(defun org-agenda-list (&optional arg start-day span with-hour)
- "Produce a daily/weekly view from all files in variable `org-agenda-files'.
-The view will be for the current day or week, but from the overview buffer
-you will be able to go to other days/weeks.
-
-With a numeric prefix argument in an interactive call, the agenda will
-span ARG days. Lisp programs should instead specify SPAN to change
-the number of days. SPAN defaults to `org-agenda-span'.
-
-START-DAY defaults to TODAY, or to the most recent match for the weekday
-given in `org-agenda-start-on-weekday'.
-
-When WITH-HOUR is non-nil, only include scheduled and deadline
-items if they have an hour specification like [h]h:mm."
- (interactive "P")
- (if org-agenda-overriding-arguments
- (setq arg (car org-agenda-overriding-arguments)
- start-day (nth 1 org-agenda-overriding-arguments)
- span (nth 2 org-agenda-overriding-arguments)))
- (if (and (integerp arg) (> arg 0))
- (setq span arg arg nil))
- (catch 'exit
- (setq org-agenda-buffer-name
- (or org-agenda-buffer-tmp-name
- (and org-agenda-doing-sticky-redo org-agenda-buffer-name)
- (if org-agenda-sticky
- (cond ((and org-keys (stringp org-match))
- (format "*Org Agenda(%s:%s)*" org-keys org-match))
- (org-keys
- (format "*Org Agenda(%s)*" org-keys))
- (t "*Org Agenda(a)*")))
- "*Org Agenda*"))
- (org-agenda-prepare "Day/Week")
- (setq start-day (or start-day org-agenda-start-day))
- (if (stringp start-day)
- ;; Convert to an absolute day number
- (setq start-day (time-to-days (org-read-date nil t start-day))))
- (org-compile-prefix-format 'agenda)
- (org-set-sorting-strategy 'agenda)
- (let* ((span (org-agenda-ndays-to-span (or span org-agenda-span)))
- (today (org-today))
- (sd (or start-day today))
- (ndays (org-agenda-span-to-ndays span sd))
- (org-agenda-start-on-weekday
- (if (or (eq ndays 7) (eq ndays 14))
- org-agenda-start-on-weekday))
- (thefiles (org-agenda-files nil 'ifmode))
- (files thefiles)
- (start (if (or (null org-agenda-start-on-weekday)
- (< ndays 7))
- sd
- (let* ((nt (calendar-day-of-week
- (calendar-gregorian-from-absolute sd)))
- (n1 org-agenda-start-on-weekday)
- (d (- nt n1)))
- (- sd (+ (if (< d 0) 7 0) d)))))
- (day-numbers (list start))
- (day-cnt 0)
- (inhibit-redisplay (not debug-on-error))
- (org-agenda-show-log-scoped org-agenda-show-log)
- s e rtn rtnall file date d start-pos end-pos todayp
- clocktable-start clocktable-end filter)
- (setq org-agenda-redo-command
- (list 'org-agenda-list (list 'quote arg) start-day (list 'quote span) with-hour))
- (dotimes (n (1- ndays))
- (push (1+ (car day-numbers)) day-numbers))
- (setq day-numbers (nreverse day-numbers))
- (setq clocktable-start (car day-numbers)
- clocktable-end (1+ (or (org-last day-numbers) 0)))
- (setq-local org-starting-day (car day-numbers))
- (setq-local org-arg-loc arg)
- (setq-local org-agenda-current-span (org-agenda-ndays-to-span span))
- (unless org-agenda-compact-blocks
- (let* ((d1 (car day-numbers))
- (d2 (org-last day-numbers))
- (w1 (org-days-to-iso-week d1))
- (w2 (org-days-to-iso-week d2)))
- (setq s (point))
- (if org-agenda-overriding-header
- (insert (org-add-props (copy-sequence org-agenda-overriding-header)
- nil 'face 'org-agenda-structure) "\n")
- (insert (org-agenda-span-name span)
- "-agenda"
- (if (< (- d2 d1) 350)
- (if (= w1 w2)
- (format " (W%02d)" w1)
- (format " (W%02d-W%02d)" w1 w2))
- "")
- ":\n")))
- (add-text-properties s (1- (point)) (list 'face 'org-agenda-structure
- 'org-date-line t))
- (org-agenda-mark-header-line s))
- (while (setq d (pop day-numbers))
- (setq date (calendar-gregorian-from-absolute d)
- s (point))
- (if (or (setq todayp (= d today))
- (and (not start-pos) (= d sd)))
- (setq start-pos (point))
- (if (and start-pos (not end-pos))
- (setq end-pos (point))))
- (setq files thefiles
- rtnall nil)
- (while (setq file (pop files))
- (catch 'nextfile
- (org-check-agenda-file file)
- (let ((org-agenda-entry-types org-agenda-entry-types))
- ;; Starred types override non-starred equivalents
- (when (member :deadline* org-agenda-entry-types)
- (setq org-agenda-entry-types
- (delq :deadline org-agenda-entry-types)))
- (when (member :scheduled* org-agenda-entry-types)
- (setq org-agenda-entry-types
- (delq :scheduled org-agenda-entry-types)))
- ;; Honor with-hour
- (when with-hour
- (when (member :deadline org-agenda-entry-types)
- (setq org-agenda-entry-types
- (delq :deadline org-agenda-entry-types))
- (push :deadline* org-agenda-entry-types))
- (when (member :scheduled org-agenda-entry-types)
- (setq org-agenda-entry-types
- (delq :scheduled org-agenda-entry-types))
- (push :scheduled* org-agenda-entry-types)))
- (unless org-agenda-include-deadlines
- (setq org-agenda-entry-types
- (delq :deadline* (delq :deadline org-agenda-entry-types))))
- (cond
- ((memq org-agenda-show-log-scoped '(only clockcheck))
- (setq rtn (org-agenda-get-day-entries
- file date :closed)))
- (org-agenda-show-log-scoped
- (setq rtn (apply 'org-agenda-get-day-entries
- file date
- (append '(:closed) org-agenda-entry-types))))
- (t
- (setq rtn (apply 'org-agenda-get-day-entries
- file date
- org-agenda-entry-types)))))
- (setq rtnall (append rtnall rtn)))) ;; all entries
- (if org-agenda-include-diary
- (let ((org-agenda-search-headline-for-time t))
- (require 'diary-lib)
- (setq rtn (org-get-entries-from-diary date))
- (setq rtnall (append rtnall rtn))))
- (if (or rtnall org-agenda-show-all-dates)
- (progn
- (setq day-cnt (1+ day-cnt))
- (insert
- (if (stringp org-agenda-format-date)
- (format-time-string org-agenda-format-date
- (org-time-from-absolute date))
- (funcall org-agenda-format-date date))
- "\n")
- (put-text-property s (1- (point)) 'face
- (org-agenda-get-day-face date))
- (put-text-property s (1- (point)) 'org-date-line t)
- (put-text-property s (1- (point)) 'org-agenda-date-header t)
- (put-text-property s (1- (point)) 'org-day-cnt day-cnt)
- (when todayp
- (put-text-property s (1- (point)) 'org-today t))
- (setq rtnall
- (org-agenda-add-time-grid-maybe rtnall ndays todayp))
- (if rtnall (insert ;; all entries
- (org-agenda-finalize-entries rtnall 'agenda)
- "\n"))
- (put-text-property s (1- (point)) 'day d)
- (put-text-property s (1- (point)) 'org-day-cnt day-cnt))))
- (when (and org-agenda-clockreport-mode clocktable-start)
- (let ((org-agenda-files (org-agenda-files nil 'ifmode))
- ;; the above line is to ensure the restricted range!
- (p (copy-sequence org-agenda-clockreport-parameter-plist))
- tbl)
- (setq p (org-plist-delete p :block))
- (setq p (plist-put p :tstart clocktable-start))
- (setq p (plist-put p :tend clocktable-end))
- (setq p (plist-put p :scope 'agenda))
- (setq tbl (apply 'org-clock-get-clocktable p))
- (insert tbl)))
- (goto-char (point-min))
- (or org-agenda-multi (org-agenda-fit-window-to-buffer))
- (unless (or (not (get-buffer-window))
- (and (pos-visible-in-window-p (point-min))
- (pos-visible-in-window-p (point-max))))
- (goto-char (1- (point-max)))
- (recenter -1)
- (if (not (pos-visible-in-window-p (or start-pos 1)))
- (progn
- (goto-char (or start-pos 1))
- (recenter 1))))
- (goto-char (or start-pos 1))
- (add-text-properties (point-min) (point-max)
- `(org-agenda-type agenda
- org-last-args (,arg ,start-day ,span)
- org-redo-cmd ,org-agenda-redo-command
- org-series-cmd ,org-cmd))
- (if (eq org-agenda-show-log-scoped 'clockcheck)
- (org-agenda-show-clocking-issues))
- (org-agenda-finalize)
- (setq buffer-read-only t)
- (message ""))))
-
-(defun org-agenda-ndays-to-span (n)
- "Return a span symbol for a span of N days, or N if none matches."
- (cond ((symbolp n) n)
- ((= n 1) 'day)
- ((= n 7) 'week)
- ((= n 14) 'fortnight)
- (t n)))
-
-(defun org-agenda-span-to-ndays (span &optional start-day)
- "Return ndays from SPAN, possibly starting at START-DAY.
-START-DAY is an absolute time value."
- (cond ((numberp span) span)
- ((eq span 'day) 1)
- ((eq span 'week) 7)
- ((eq span 'fortnight) 14)
- ((eq span 'month)
- (let ((date (calendar-gregorian-from-absolute start-day)))
- (calendar-last-day-of-month (car date) (cl-caddr date))))
- ((eq span 'year)
- (let ((date (calendar-gregorian-from-absolute start-day)))
- (if (calendar-leap-year-p (cl-caddr date)) 366 365)))))
-
-(defun org-agenda-span-name (span)
- "Return a SPAN name."
- (if (null span)
- ""
- (if (symbolp span)
- (capitalize (symbol-name span))
- (format "%d days" span))))
-
-;;; Agenda word search
-
-(defvar org-agenda-search-history nil)
-
-(defvar org-search-syntax-table nil
- "Special syntax table for Org search.
-In this table, we have single quotes not as word constituents, to
-that when \"+Ameli\" is searched as a work, it will also match \"Ameli's\"")
-
-(defvar org-mode-syntax-table) ; From org.el
-(defun org-search-syntax-table ()
- (unless org-search-syntax-table
- (setq org-search-syntax-table (copy-syntax-table org-mode-syntax-table))
- (modify-syntax-entry ?' "." org-search-syntax-table)
- (modify-syntax-entry ?` "." org-search-syntax-table))
- org-search-syntax-table)
-
-(defvar org-agenda-last-search-view-search-was-boolean nil)
-
-;;;###autoload
-(defun org-search-view (&optional todo-only string edit-at)
- "Show all entries that contain a phrase or words or regular expressions.
-
-With optional prefix argument TODO-ONLY, only consider entries that are
-TODO entries. The argument STRING can be used to pass a default search
-string into this function. If EDIT-AT is non-nil, it means that the
-user should get a chance to edit this string, with cursor at position
-EDIT-AT.
-
-The search string can be viewed either as a phrase that should be found as
-is, or it can be broken into a number of snippets, each of which must match
-in a Boolean way to select an entry. The default depends on the variable
-`org-agenda-search-view-always-boolean'.
-Even if this is turned off (the default) you can always switch to
-Boolean search dynamically by preceding the first word with \"+\" or \"-\".
-
-The default is a direct search of the whole phrase, where each space in
-the search string can expand to an arbitrary amount of whitespace,
-including newlines.
-
-If using a Boolean search, the search string is split on whitespace and
-each snippet is searched separately, with logical AND to select an entry.
-Words prefixed with a minus must *not* occur in the entry. Words without
-a prefix or prefixed with a plus must occur in the entry. Matching is
-case-insensitive. Words are enclosed by word delimiters (i.e. they must
-match whole words, not parts of a word) if
-`org-agenda-search-view-force-full-words' is set (default is nil).
-
-Boolean search snippets enclosed by curly braces are interpreted as
-regular expressions that must or (when preceded with \"-\") must not
-match in the entry. Snippets enclosed into double quotes will be taken
-as a whole, to include whitespace.
-
-- If the search string starts with an asterisk, search only in headlines.
-- If (possibly after the leading star) the search string starts with an
- exclamation mark, this also means to look at TODO entries only, an effect
- that can also be achieved with a prefix argument.
-- If (possibly after star and exclamation mark) the search string starts
- with a colon, this will mean that the (non-regexp) snippets of the
- Boolean search must match as full words.
-
-This command searches the agenda files, and in addition the files
-listed in `org-agenda-text-search-extra-files' unless a restriction lock
-is active."
- (interactive "P")
- (if org-agenda-overriding-arguments
- (setq todo-only (car org-agenda-overriding-arguments)
- string (nth 1 org-agenda-overriding-arguments)
- edit-at (nth 2 org-agenda-overriding-arguments)))
- (let* ((props (list 'face nil
- 'done-face 'org-agenda-done
- 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'mouse-face 'highlight
- 'help-echo (format "mouse-2 or RET jump to location")))
- (full-words org-agenda-search-view-force-full-words)
- (org-agenda-text-search-extra-files org-agenda-text-search-extra-files)
- regexp rtn rtnall files file pos inherited-tags
- marker category level tags c neg re boolean
- ee txt beg end words regexps+ regexps- hdl-only buffer beg1 str)
- (unless (and (not edit-at)
- (stringp string)
- (string-match "\\S-" string))
- (setq string (read-string
- (if org-agenda-search-view-always-boolean
- "[+-]Word/{Regexp} ...: "
- "Phrase or [+-]Word/{Regexp} ...: ")
- (cond
- ((integerp edit-at) (cons string edit-at))
- (edit-at string))
- 'org-agenda-search-history)))
- (catch 'exit
- (if org-agenda-sticky
- (setq org-agenda-buffer-name
- (if (stringp string)
- (format "*Org Agenda(%s:%s)*"
- (or org-keys (or (and todo-only "S") "s")) string)
- (format "*Org Agenda(%s)*" (or (and todo-only "S") "s")))))
- (org-agenda-prepare "SEARCH")
- (org-compile-prefix-format 'search)
- (org-set-sorting-strategy 'search)
- (setq org-agenda-redo-command
- (list 'org-search-view (if todo-only t nil)
- (list 'if 'current-prefix-arg nil string)))
- (setq org-agenda-query-string string)
- (if (equal (string-to-char string) ?*)
- (setq hdl-only t
- words (substring string 1))
- (setq words string))
- (when (equal (string-to-char words) ?!)
- (setq todo-only t
- words (substring words 1)))
- (when (equal (string-to-char words) ?:)
- (setq full-words t
- words (substring words 1)))
- (if (or org-agenda-search-view-always-boolean
- (member (string-to-char words) '(?- ?+ ?\{)))
- (setq boolean t))
- (setq words (split-string words))
- (let (www w)
- (while (setq w (pop words))
- (while (and (string-match "\\\\\\'" w) words)
- (setq w (concat (substring w 0 -1) " " (pop words))))
- (push w www))
- (setq words (nreverse www) www nil)
- (while (setq w (pop words))
- (when (and (string-match "\\`[-+]?{" w)
- (not (string-match "}\\'" w)))
- (while (and words (not (string-match "}\\'" (car words))))
- (setq w (concat w " " (pop words))))
- (setq w (concat w " " (pop words))))
- (push w www))
- (setq words (nreverse www)))
- (setq org-agenda-last-search-view-search-was-boolean boolean)
- (when boolean
- (let (wds w)
- (while (setq w (pop words))
- (if (or (equal (substring w 0 1) "\"")
- (and (> (length w) 1)
- (member (substring w 0 1) '("+" "-"))
- (equal (substring w 1 2) "\"")))
- (while (and words (not (equal (substring w -1) "\"")))
- (setq w (concat w " " (pop words)))))
- (and (string-match "\\`\\([-+]?\\)\"" w)
- (setq w (replace-match "\\1" nil nil w)))
- (and (equal (substring w -1) "\"") (setq w (substring w 0 -1)))
- (push w wds))
- (setq words (nreverse wds))))
- (if boolean
- (mapc (lambda (w)
- (setq c (string-to-char w))
- (if (equal c ?-)
- (setq neg t w (substring w 1))
- (if (equal c ?+)
- (setq neg nil w (substring w 1))
- (setq neg nil)))
- (if (string-match "\\`{.*}\\'" w)
- (setq re (substring w 1 -1))
- (if full-words
- (setq re (concat "\\<" (regexp-quote (downcase w)) "\\>"))
- (setq re (regexp-quote (downcase w)))))
- (if neg (push re regexps-) (push re regexps+)))
- words)
- (push (mapconcat (lambda (w) (regexp-quote w)) words "\\s-+")
- regexps+))
- (setq regexps+ (sort regexps+ (lambda (a b) (> (length a) (length b)))))
- (if (not regexps+)
- (setq regexp org-outline-regexp-bol)
- (setq regexp (pop regexps+))
- (if hdl-only (setq regexp (concat org-outline-regexp-bol ".*?"
- regexp))))
- (setq files (org-agenda-files nil 'ifmode))
- ;; Add `org-agenda-text-search-extra-files' unless there is some
- ;; restriction.
- (when (eq (car org-agenda-text-search-extra-files) 'agenda-archives)
- (pop org-agenda-text-search-extra-files)
- (unless (get 'org-agenda-files 'org-restrict)
- (setq files (org-add-archive-files files))))
- ;; Uniquify files. However, let `org-check-agenda-file' handle
- ;; non-existent ones.
- (setq files (cl-remove-duplicates
- (append files org-agenda-text-search-extra-files)
- :test (lambda (a b)
- (and (file-exists-p a)
- (file-exists-p b)
- (file-equal-p a b))))
- rtnall nil)
- (while (setq file (pop files))
- (setq ee nil)
- (catch 'nextfile
- (org-check-agenda-file file)
- (setq buffer (if (file-exists-p file)
- (org-get-agenda-file-buffer file)
- (error "No such file %s" file)))
- (if (not buffer)
- ;; If file does not exist, make sure an error message is sent
- (setq rtn (list (format "ORG-AGENDA-ERROR: No such org-file %s"
- file))))
- (with-current-buffer buffer
- (with-syntax-table (org-search-syntax-table)
- (unless (derived-mode-p 'org-mode)
- (error "Agenda file %s is not in Org mode" file))
- (let ((case-fold-search t))
- (save-excursion
- (save-restriction
- (if (eq buffer org-agenda-restrict)
- (narrow-to-region org-agenda-restrict-begin
- org-agenda-restrict-end)
- (widen))
- (goto-char (point-min))
- (unless (or (org-at-heading-p)
- (outline-next-heading))
- (throw 'nextfile t))
- (goto-char (max (point-min) (1- (point))))
- (while (re-search-forward regexp nil t)
- (org-back-to-heading t)
- (while (and (not (zerop org-agenda-search-view-max-outline-level))
- (> (org-reduced-level (org-outline-level))
- org-agenda-search-view-max-outline-level)
- (forward-line -1)
- (org-back-to-heading t)))
- (skip-chars-forward "* ")
- (setq beg (point-at-bol)
- beg1 (point)
- end (progn
- (outline-next-heading)
- (while (and (not (zerop org-agenda-search-view-max-outline-level))
- (> (org-reduced-level (org-outline-level))
- org-agenda-search-view-max-outline-level)
- (forward-line 1)
- (outline-next-heading)))
- (point)))
-
- (catch :skip
- (goto-char beg)
- (org-agenda-skip)
- (setq str (buffer-substring-no-properties
- (point-at-bol)
- (if hdl-only (point-at-eol) end)))
- (mapc (lambda (wr) (when (string-match wr str)
- (goto-char (1- end))
- (throw :skip t)))
- regexps-)
- (mapc (lambda (wr) (unless (string-match wr str)
- (goto-char (1- end))
- (throw :skip t)))
- (if todo-only
- (cons (concat "^\\*+[ \t]+"
- org-not-done-regexp)
- regexps+)
- regexps+))
- (goto-char beg)
- (setq marker (org-agenda-new-marker (point))
- category (org-get-category)
- level (make-string (org-reduced-level (org-outline-level)) ? )
- inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq 'todo org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'todo org-agenda-use-tag-inheritance))))
- tags (org-get-tags-at nil (not inherited-tags))
- txt (org-agenda-format-item
- ""
- (buffer-substring-no-properties
- beg1 (point-at-eol))
- level category tags t))
- (org-add-props txt props
- 'org-marker marker 'org-hd-marker marker
- 'org-todo-regexp org-todo-regexp
- 'level level
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'priority 1000
- 'type "search")
- (push txt ee)
- (goto-char (1- end))))))))))
- (setq rtn (nreverse ee))
- (setq rtnall (append rtnall rtn)))
- (if org-agenda-overriding-header
- (insert (org-add-props (copy-sequence org-agenda-overriding-header)
- nil 'face 'org-agenda-structure) "\n")
- (insert "Search words: ")
- (add-text-properties (point-min) (1- (point))
- (list 'face 'org-agenda-structure))
- (setq pos (point))
- (insert string "\n")
- (add-text-properties pos (1- (point)) (list 'face 'org-warning))
- (setq pos (point))
- (unless org-agenda-multi
- (insert (substitute-command-keys "\
-Press `\\[org-agenda-manipulate-query-add]', \
-`\\[org-agenda-manipulate-query-subtract]' to add/sub word, \
-`\\[org-agenda-manipulate-query-add-re]', \
-`\\[org-agenda-manipulate-query-subtract-re]' to add/sub regexp, \
-`\\[universal-argument] \\[org-agenda-redo]' to edit\n"))
- (add-text-properties pos (1- (point))
- (list 'face 'org-agenda-structure))))
- (org-agenda-mark-header-line (point-min))
- (when rtnall
- (insert (org-agenda-finalize-entries rtnall 'search) "\n"))
- (goto-char (point-min))
- (or org-agenda-multi (org-agenda-fit-window-to-buffer))
- (add-text-properties (point-min) (point-max)
- `(org-agenda-type search
- org-last-args (,todo-only ,string ,edit-at)
- org-redo-cmd ,org-agenda-redo-command
- org-series-cmd ,org-cmd))
- (org-agenda-finalize)
- (setq buffer-read-only t))))
-
-;;; Agenda TODO list
-
-(defun org-agenda-propertize-selected-todo-keywords (keywords)
- "Use `org-todo-keyword-faces' for the selected todo KEYWORDS."
- (concat
- (if (or (equal keywords "ALL") (not keywords))
- (propertize "ALL" 'face 'warning)
- (mapconcat
- (lambda (kw)
- (propertize kw 'face (org-get-todo-face kw)))
- (org-split-string keywords "|")
- "|"))
- "\n"))
-
-(defvar org-select-this-todo-keyword nil)
-(defvar org-last-arg nil)
-
-;;;###autoload
-(defun org-todo-list (&optional arg)
- "Show all (not done) TODO entries from all agenda file in a single list.
-The prefix arg can be used to select a specific TODO keyword and limit
-the list to these. When using `\\[universal-argument]', you will be prompted
-for a keyword. A numeric prefix directly selects the Nth keyword in
-`org-todo-keywords-1'."
- (interactive "P")
- (if org-agenda-overriding-arguments
- (setq arg org-agenda-overriding-arguments))
- (if (and (stringp arg) (not (string-match "\\S-" arg))) (setq arg nil))
- (let* ((today (org-today))
- (date (calendar-gregorian-from-absolute today))
- (kwds org-todo-keywords-for-agenda)
- (completion-ignore-case t)
- (org-select-this-todo-keyword
- (if (stringp arg) arg
- (and arg (integerp arg) (> arg 0)
- (nth (1- arg) kwds))))
- rtn rtnall files file pos)
- (when (equal arg '(4))
- (setq org-select-this-todo-keyword
- (completing-read "Keyword (or KWD1|K2D2|...): "
- (mapcar #'list kwds) nil nil)))
- (and (equal 0 arg) (setq org-select-this-todo-keyword nil))
- (catch 'exit
- (if org-agenda-sticky
- (setq org-agenda-buffer-name
- (if (stringp org-select-this-todo-keyword)
- (format "*Org Agenda(%s:%s)*" (or org-keys "t")
- org-select-this-todo-keyword)
- (format "*Org Agenda(%s)*" (or org-keys "t")))))
- (org-agenda-prepare "TODO")
- (org-compile-prefix-format 'todo)
- (org-set-sorting-strategy 'todo)
- (setq org-agenda-redo-command
- `(org-todo-list (or (and (numberp current-prefix-arg)
- current-prefix-arg)
- ,org-select-this-todo-keyword
- current-prefix-arg ,arg)))
- (setq files (org-agenda-files nil 'ifmode)
- rtnall nil)
- (while (setq file (pop files))
- (catch 'nextfile
- (org-check-agenda-file file)
- (setq rtn (org-agenda-get-day-entries file date :todo))
- (setq rtnall (append rtnall rtn))))
- (if org-agenda-overriding-header
- (insert (org-add-props (copy-sequence org-agenda-overriding-header)
- nil 'face 'org-agenda-structure) "\n")
- (insert "Global list of TODO items of type: ")
- (add-text-properties (point-min) (1- (point))
- (list 'face 'org-agenda-structure
- 'short-heading
- (concat "ToDo: "
- (or org-select-this-todo-keyword "ALL"))))
- (org-agenda-mark-header-line (point-min))
- (insert (org-agenda-propertize-selected-todo-keywords
- org-select-this-todo-keyword))
- (setq pos (point))
- (unless org-agenda-multi
- (insert (substitute-command-keys "Available with \
-`N \\[org-agenda-redo]': (0)[ALL]"))
- (let ((n 0) s)
- (mapc (lambda (x)
- (setq s (format "(%d)%s" (setq n (1+ n)) x))
- (if (> (+ (current-column) (string-width s) 1) (frame-width))
- (insert "\n "))
- (insert " " s))
- kwds))
- (insert "\n"))
- (add-text-properties pos (1- (point)) (list 'face 'org-agenda-structure)))
- (org-agenda-mark-header-line (point-min))
- (when rtnall
- (insert (org-agenda-finalize-entries rtnall 'todo) "\n"))
- (goto-char (point-min))
- (or org-agenda-multi (org-agenda-fit-window-to-buffer))
- (add-text-properties (point-min) (point-max)
- `(org-agenda-type todo
- org-last-args ,arg
- org-redo-cmd ,org-agenda-redo-command
- org-series-cmd ,org-cmd))
- (org-agenda-finalize)
- (setq buffer-read-only t))))
-
-;;; Agenda tags match
-
-;;;###autoload
-(defun org-tags-view (&optional todo-only match)
- "Show all headlines for all `org-agenda-files' matching a TAGS criterion.
-The prefix arg TODO-ONLY limits the search to TODO entries."
- (interactive "P")
- (if org-agenda-overriding-arguments
- (setq todo-only (car org-agenda-overriding-arguments)
- match (nth 1 org-agenda-overriding-arguments)))
- (let* ((org-tags-match-list-sublevels
- org-tags-match-list-sublevels)
- (completion-ignore-case t)
- (org--matcher-tags-todo-only todo-only)
- rtn rtnall files file pos matcher
- buffer)
- (when (and (stringp match) (not (string-match "\\S-" match)))
- (setq match nil))
- (catch 'exit
- (if org-agenda-sticky
- (setq org-agenda-buffer-name
- (if (stringp match)
- (format "*Org Agenda(%s:%s)*"
- (or org-keys (or (and todo-only "M") "m")) match)
- (format "*Org Agenda(%s)*" (or (and todo-only "M") "m")))))
- (setq matcher (org-make-tags-matcher match))
- ;; Prepare agendas (and `org-tag-alist-for-agenda') before
- ;; expanding tags within `org-make-tags-matcher'
- (org-agenda-prepare (concat "TAGS " match))
- (setq match (car matcher)
- matcher (cdr matcher))
- (org-compile-prefix-format 'tags)
- (org-set-sorting-strategy 'tags)
- (setq org-agenda-query-string match)
- (setq org-agenda-redo-command
- (list 'org-tags-view
- `(quote ,org--matcher-tags-todo-only)
- `(if current-prefix-arg nil ,org-agenda-query-string)))
- (setq files (org-agenda-files nil 'ifmode)
- rtnall nil)
- (while (setq file (pop files))
- (catch 'nextfile
- (org-check-agenda-file file)
- (setq buffer (if (file-exists-p file)
- (org-get-agenda-file-buffer file)
- (error "No such file %s" file)))
- (if (not buffer)
- ;; If file does not exist, error message to agenda
- (setq rtn (list
- (format "ORG-AGENDA-ERROR: No such org-file %s" file))
- rtnall (append rtnall rtn))
- (with-current-buffer buffer
- (unless (derived-mode-p 'org-mode)
- (error "Agenda file %s is not in Org mode" file))
- (save-excursion
- (save-restriction
- (if (eq buffer org-agenda-restrict)
- (narrow-to-region org-agenda-restrict-begin
- org-agenda-restrict-end)
- (widen))
- (setq rtn (org-scan-tags 'agenda
- matcher
- org--matcher-tags-todo-only))
- (setq rtnall (append rtnall rtn))))))))
- (if org-agenda-overriding-header
- (insert (org-add-props (copy-sequence org-agenda-overriding-header)
- nil 'face 'org-agenda-structure) "\n")
- (insert "Headlines with TAGS match: ")
- (add-text-properties (point-min) (1- (point))
- (list 'face 'org-agenda-structure
- 'short-heading
- (concat "Match: " match)))
- (setq pos (point))
- (insert match "\n")
- (add-text-properties pos (1- (point)) (list 'face 'org-warning))
- (setq pos (point))
- (unless org-agenda-multi
- (insert (substitute-command-keys
- "Press `\\[universal-argument] \\[org-agenda-redo]' \
-to search again with new search string\n")))
- (add-text-properties pos (1- (point))
- (list 'face 'org-agenda-structure)))
- (org-agenda-mark-header-line (point-min))
- (when rtnall
- (insert (org-agenda-finalize-entries rtnall 'tags) "\n"))
- (goto-char (point-min))
- (or org-agenda-multi (org-agenda-fit-window-to-buffer))
- (add-text-properties
- (point-min) (point-max)
- `(org-agenda-type tags
- org-last-args (,org--matcher-tags-todo-only ,match)
- org-redo-cmd ,org-agenda-redo-command
- org-series-cmd ,org-cmd))
- (org-agenda-finalize)
- (setq buffer-read-only t))))
-
-;;; Agenda Finding stuck projects
-
-(defvar org-agenda-skip-regexp nil
- "Regular expression used in skipping subtrees for the agenda.
-This is basically a temporary global variable that can be set and then
-used by user-defined selections using `org-agenda-skip-function'.")
-
-(defvar org-agenda-overriding-header nil
- "When set during agenda, todo and tags searches it replaces the header.
-This variable should not be set directly, but custom commands can bind it
-in the options section.")
-
-(defun org-agenda-skip-entry-if (&rest conditions)
- "Skip entry if any of CONDITIONS is true.
-See `org-agenda-skip-if' for details."
- (org-agenda-skip-if nil conditions))
-
-(defun org-agenda-skip-subtree-if (&rest conditions)
- "Skip subtree if any of CONDITIONS is true.
-See `org-agenda-skip-if' for details."
- (org-agenda-skip-if t conditions))
-
-(defun org-agenda-skip-if (subtree conditions)
- "Checks current entity for CONDITIONS.
-If SUBTREE is non-nil, the entire subtree is checked. Otherwise, only
-the entry (i.e. the text before the next heading) is checked.
-
-CONDITIONS is a list of symbols, boolean OR is used to combine the results
-from different tests. Valid conditions are:
-
-scheduled Check if there is a scheduled cookie
-notscheduled Check if there is no scheduled cookie
-deadline Check if there is a deadline
-notdeadline Check if there is no deadline
-timestamp Check if there is a timestamp (also deadline or scheduled)
-nottimestamp Check if there is no timestamp (also deadline or scheduled)
-regexp Check if regexp matches
-notregexp Check if regexp does not match.
-todo Check if TODO keyword matches
-nottodo Check if TODO keyword does not match
-
-The regexp is taken from the conditions list, it must come right after
-the `regexp' or `notregexp' element.
-
-`todo' and `nottodo' accept as an argument a list of todo
-keywords, which may include \"*\" to match any todo keyword.
-
- (org-agenda-skip-entry-if \\='todo \\='(\"TODO\" \"WAITING\"))
-
-would skip all entries with \"TODO\" or \"WAITING\" keywords.
-
-Instead of a list, a keyword class may be given. For example:
-
- (org-agenda-skip-entry-if \\='nottodo \\='done)
-
-would skip entries that haven't been marked with any of \"DONE\"
-keywords. Possible classes are: `todo', `done', `any'.
-
-If any of these conditions is met, this function returns the end point of
-the entity, causing the search to continue from there. This is a function
-that can be put into `org-agenda-skip-function' for the duration of a command."
- (org-back-to-heading t)
- (let* ((beg (point))
- (end (if subtree (save-excursion (org-end-of-subtree t) (point))
- (org-entry-end-position)))
- (planning-end (if subtree end (line-end-position 2)))
- m)
- (and
- (or (and (memq 'scheduled conditions)
- (re-search-forward org-scheduled-time-regexp planning-end t))
- (and (memq 'notscheduled conditions)
- (not
- (save-excursion
- (re-search-forward org-scheduled-time-regexp planning-end t))))
- (and (memq 'deadline conditions)
- (re-search-forward org-deadline-time-regexp planning-end t))
- (and (memq 'notdeadline conditions)
- (not
- (save-excursion
- (re-search-forward org-deadline-time-regexp planning-end t))))
- (and (memq 'timestamp conditions)
- (re-search-forward org-ts-regexp end t))
- (and (memq 'nottimestamp conditions)
- (not (save-excursion (re-search-forward org-ts-regexp end t))))
- (and (setq m (memq 'regexp conditions))
- (stringp (nth 1 m))
- (re-search-forward (nth 1 m) end t))
- (and (setq m (memq 'notregexp conditions))
- (stringp (nth 1 m))
- (not (save-excursion (re-search-forward (nth 1 m) end t))))
- (and (or
- (setq m (memq 'nottodo conditions))
- (setq m (memq 'todo-unblocked conditions))
- (setq m (memq 'nottodo-unblocked conditions))
- (setq m (memq 'todo conditions)))
- (org-agenda-skip-if-todo m end)))
- end)))
-
-(defun org-agenda-skip-if-todo (args end)
- "Helper function for `org-agenda-skip-if', do not use it directly.
-ARGS is a list with first element either `todo', `nottodo',
-`todo-unblocked' or `nottodo-unblocked'. The remainder is either
-a list of TODO keywords, or a state symbol `todo' or `done' or
-`any'."
- (let ((todo-re
- (concat "^\\*+[ \t]+"
- (regexp-opt
- (pcase args
- (`(,_ todo)
- (org-delete-all org-done-keywords
- (copy-sequence org-todo-keywords-1)))
- (`(,_ done) org-done-keywords)
- (`(,_ any) org-todo-keywords-1)
- (`(,_ ,(pred atom))
- (error "Invalid TODO class or type: %S" args))
- (`(,_ ,(pred (member "*"))) org-todo-keywords-1)
- (`(,_ ,todo-list) todo-list))
- 'words))))
- (pcase args
- (`(todo . ,_)
- (let (case-fold-search) (re-search-forward todo-re end t)))
- (`(nottodo . ,_)
- (not (let (case-fold-search) (re-search-forward todo-re end t))))
- (`(todo-unblocked . ,_)
- (catch :unblocked
- (while (let (case-fold-search) (re-search-forward todo-re end t))
- (when (org-entry-blocked-p) (throw :unblocked t)))
- nil))
- (`(nottodo-unblocked . ,_)
- (catch :unblocked
- (while (let (case-fold-search) (re-search-forward todo-re end t))
- (when (org-entry-blocked-p) (throw :unblocked nil)))
- t))
- (`(,type . ,_) (error "Unknown TODO skip type: %S" type)))))
-
-;;;###autoload
-(defun org-agenda-list-stuck-projects (&rest ignore)
- "Create agenda view for projects that are stuck.
-Stuck projects are project that have no next actions. For the definitions
-of what a project is and how to check if it stuck, customize the variable
-`org-stuck-projects'."
- (interactive)
- (let* ((org-agenda-overriding-header
- (or org-agenda-overriding-header "List of stuck projects: "))
- (matcher (nth 0 org-stuck-projects))
- (todo (nth 1 org-stuck-projects))
- (tags (nth 2 org-stuck-projects))
- (gen-re (org-string-nw-p (nth 3 org-stuck-projects)))
- (todo-wds
- (if (not (member "*" todo)) todo
- (org-agenda-prepare-buffers (org-agenda-files nil 'ifmode))
- (org-delete-all org-done-keywords-for-agenda
- (copy-sequence org-todo-keywords-for-agenda))))
- (todo-re (and todo
- (format "^\\*+[ \t]+\\(%s\\)\\>"
- (mapconcat #'identity todo-wds "\\|"))))
- (tags-re (cond ((null tags) nil)
- ((member "*" tags)
- (eval-when-compile
- (concat org-outline-regexp-bol
- ".*:[[:alnum:]_@#%]+:[ \t]*$")))
- (tags (concat org-outline-regexp-bol
- ".*:\\("
- (mapconcat #'identity tags "\\|")
- "\\):[[:alnum:]_@#%:]*[ \t]*$"))
- (t nil)))
- (re-list (delq nil (list todo-re tags-re gen-re)))
- (skip-re
- (if (null re-list)
- (error "Missing information to identify unstuck projects")
- (mapconcat #'identity re-list "\\|")))
- (org-agenda-skip-function
- ;; Skip entry if `org-agenda-skip-regexp' matches anywhere
- ;; in the subtree.
- `(lambda ()
- (and (save-excursion
- (let ((case-fold-search nil))
- (re-search-forward
- ,skip-re (save-excursion (org-end-of-subtree t)) t)))
- (progn (outline-next-heading) (point))))))
- (org-tags-view nil matcher)
- (setq org-agenda-buffer-name (buffer-name))
- (with-current-buffer org-agenda-buffer-name
- (setq org-agenda-redo-command
- `(org-agenda-list-stuck-projects ,current-prefix-arg))
- (let ((inhibit-read-only t))
- (add-text-properties
- (point-min) (point-max)
- `(org-redo-cmd ,org-agenda-redo-command))))))
-
-;;; Diary integration
-
-(defvar org-disable-agenda-to-diary nil) ;Dynamically-scoped param.
-(defvar diary-list-entries-hook)
-(defvar diary-time-regexp)
-(defun org-get-entries-from-diary (date)
- "Get the (Emacs Calendar) diary entries for DATE."
- (require 'diary-lib)
- (let* ((diary-fancy-buffer "*temporary-fancy-diary-buffer*")
- (diary-display-function 'diary-fancy-display)
- (pop-up-frames nil)
- (diary-list-entries-hook
- (cons 'org-diary-default-entry diary-list-entries-hook))
- (diary-file-name-prefix nil) ; turn this feature off
- (diary-modify-entry-list-string-function 'org-modify-diary-entry-string)
- entries
- (org-disable-agenda-to-diary t))
- (save-excursion
- (save-window-excursion
- (funcall (if (fboundp 'diary-list-entries)
- 'diary-list-entries 'list-diary-entries)
- date 1)))
- (if (not (get-buffer diary-fancy-buffer))
- (setq entries nil)
- (with-current-buffer diary-fancy-buffer
- (setq buffer-read-only nil)
- (if (zerop (buffer-size))
- ;; No entries
- (setq entries nil)
- ;; Omit the date and other unnecessary stuff
- (org-agenda-cleanup-fancy-diary)
- ;; Add prefix to each line and extend the text properties
- (if (zerop (buffer-size))
- (setq entries nil)
- (setq entries (buffer-substring (point-min) (- (point-max) 1)))
- (setq entries
- (with-temp-buffer
- (insert entries) (goto-char (point-min))
- (while (re-search-forward "\n[ \t]+\\(.+\\)$" nil t)
- (unless (save-match-data (string-match diary-time-regexp (match-string 1)))
- (replace-match (concat "; " (match-string 1)))))
- (buffer-string)))))
- (set-buffer-modified-p nil)
- (kill-buffer diary-fancy-buffer)))
- (when entries
- (setq entries (org-split-string entries "\n"))
- (setq entries
- (mapcar
- (lambda (x)
- (setq x (org-agenda-format-item "" x nil "Diary" nil 'time))
- ;; Extend the text properties to the beginning of the line
- (org-add-props x (text-properties-at (1- (length x)) x)
- 'type "diary" 'date date 'face 'org-agenda-diary))
- entries)))))
-
-(defvar org-agenda-cleanup-fancy-diary-hook nil
- "Hook run when the fancy diary buffer is cleaned up.")
-
-(defun org-agenda-cleanup-fancy-diary ()
- "Remove unwanted stuff in buffer created by `fancy-diary-display'.
-This gets rid of the date, the underline under the date, and the
-dummy entry installed by Org mode to ensure non-empty diary for
-each date. It also removes lines that contain only whitespace."
- (goto-char (point-min))
- (if (looking-at ".*?:[ \t]*")
- (progn
- (replace-match "")
- (re-search-forward "\n=+$" nil t)
- (replace-match "")
- (while (re-search-backward "^ +\n?" nil t) (replace-match "")))
- (re-search-forward "\n=+$" nil t)
- (delete-region (point-min) (min (point-max) (1+ (match-end 0)))))
- (goto-char (point-min))
- (while (re-search-forward "^ +\n" nil t)
- (replace-match ""))
- (goto-char (point-min))
- (if (re-search-forward "^Org mode dummy\n?" nil t)
- (replace-match ""))
- (run-hooks 'org-agenda-cleanup-fancy-diary-hook))
-
-;; Make sure entries from the diary have the right text properties.
-(eval-after-load "diary-lib"
- '(if (boundp 'diary-modify-entry-list-string-function)
- ;; We can rely on the hook, nothing to do
- nil
- ;; Hook not available, must use advice to make this work
- (defadvice add-to-diary-list (before org-mark-diary-entry activate)
- "Make the position visible."
- (if (and org-disable-agenda-to-diary ;; called from org-agenda
- (stringp string)
- buffer-file-name)
- (setq string (org-modify-diary-entry-string string))))))
-
-(defun org-modify-diary-entry-string (string)
- "Add text properties to string, allowing Org to act on it."
- (org-add-props string nil
- 'mouse-face 'highlight
- 'help-echo (if buffer-file-name
- (format "mouse-2 or RET jump to diary file %s"
- (abbreviate-file-name buffer-file-name))
- "")
- 'org-agenda-diary-link t
- 'org-marker (org-agenda-new-marker (point-at-bol))))
-
-(defun org-diary-default-entry ()
- "Add a dummy entry to the diary.
-Needed to avoid empty dates which mess up holiday display."
- ;; Catch the error if dealing with the new add-to-diary-alist
- (when org-disable-agenda-to-diary
- (condition-case nil
- (org-add-to-diary-list original-date "Org mode dummy" "")
- (error
- (org-add-to-diary-list original-date "Org mode dummy" "" nil)))))
-
-(defun org-add-to-diary-list (&rest args)
- (if (fboundp 'diary-add-to-list)
- (apply 'diary-add-to-list args)
- (apply 'add-to-diary-list args)))
-
-(defvar org-diary-last-run-time nil)
-
-;;;###autoload
-(defun org-diary (&rest args)
- "Return diary information from org files.
-This function can be used in a \"sexp\" diary entry in the Emacs calendar.
-It accesses org files and extracts information from those files to be
-listed in the diary. The function accepts arguments specifying what
-items should be listed. For a list of arguments allowed here, see the
-variable `org-agenda-entry-types'.
-
-The call in the diary file should look like this:
-
- &%%(org-diary) ~/path/to/some/orgfile.org
-
-Use a separate line for each org file to check. Or, if you omit the file name,
-all files listed in `org-agenda-files' will be checked automatically:
-
- &%%(org-diary)
-
-If you don't give any arguments (as in the example above), the default value
-of `org-agenda-entry-types' is used: (:deadline :scheduled :timestamp :sexp).
-So the example above may also be written as
-
- &%%(org-diary :deadline :timestamp :sexp :scheduled)
-
-The function expects the lisp variables `entry' and `date' to be provided
-by the caller, because this is how the calendar works. Don't use this
-function from a program - use `org-agenda-get-day-entries' instead."
- (when (> (- (float-time)
- org-agenda-last-marker-time)
- 5)
- ;; I am not sure if this works with sticky agendas, because the marker
- ;; list is then no longer a global variable.
- (org-agenda-reset-markers))
- (org-compile-prefix-format 'agenda)
- (org-set-sorting-strategy 'agenda)
- (setq args (or args org-agenda-entry-types))
- (let* ((files (if (and entry (stringp entry) (string-match "\\S-" entry))
- (list entry)
- (org-agenda-files t)))
- (time (float-time))
- file rtn results)
- (when (or (not org-diary-last-run-time)
- (> (- time
- org-diary-last-run-time)
- 3))
- (org-agenda-prepare-buffers files))
- (setq org-diary-last-run-time time)
- ;; If this is called during org-agenda, don't return any entries to
- ;; the calendar. Org Agenda will list these entries itself.
- (if org-disable-agenda-to-diary (setq files nil))
- (while (setq file (pop files))
- (setq rtn (apply 'org-agenda-get-day-entries file date args))
- (setq results (append results rtn)))
- (when results
- (setq results
- (mapcar (lambda (i) (replace-regexp-in-string
- org-bracket-link-regexp "\\3" i)) results))
- (concat (org-agenda-finalize-entries results) "\n"))))
-
-;;; Agenda entry finders
-
-(defun org-agenda--timestamp-to-absolute (&rest args)
- "Call `org-time-string-to-absolute' with ARGS.
-However, throw `:skip' whenever an error is raised."
- (condition-case e
- (apply #'org-time-string-to-absolute args)
- (org-diary-sexp-no-match (throw :skip nil))
- (error
- (message "%s; Skipping entry" (error-message-string e))
- (throw :skip nil))))
-
-(defun org-agenda-get-day-entries (file date &rest args)
- "Does the work for `org-diary' and `org-agenda'.
-FILE is the path to a file to be checked for entries. DATE is date like
-the one returned by `calendar-current-date'. ARGS are symbols indicating
-which kind of entries should be extracted. For details about these, see
-the documentation of `org-diary'."
- (let* ((org-startup-folded nil)
- (org-startup-align-all-tables nil)
- (buffer (if (file-exists-p file) (org-get-agenda-file-buffer file)
- (error "No such file %s" file))))
- (if (not buffer)
- ;; If file does not exist, signal it in diary nonetheless.
- (list (format "ORG-AGENDA-ERROR: No such org-file %s" file))
- (with-current-buffer buffer
- (unless (derived-mode-p 'org-mode)
- (error "Agenda file %s is not in Org mode" file))
- (setq org-agenda-buffer (or org-agenda-buffer buffer))
- (setf org-agenda-current-date date)
- (save-excursion
- (save-restriction
- (if (eq buffer org-agenda-restrict)
- (narrow-to-region org-agenda-restrict-begin
- org-agenda-restrict-end)
- (widen))
- ;; Rationalize ARGS. Also make sure `:deadline' comes
- ;; first in order to populate DEADLINES before passing it.
- ;;
- ;; We use `delq' since `org-uniquify' duplicates ARGS,
- ;; guarding us from modifying `org-agenda-entry-types'.
- (setf args (org-uniquify (or args org-agenda-entry-types)))
- (when (and (memq :scheduled args) (memq :scheduled* args))
- (setf args (delq :scheduled* args)))
- (cond
- ((memq :deadline args)
- (setf args (cons :deadline
- (delq :deadline (delq :deadline* args)))))
- ((memq :deadline* args)
- (setf args (cons :deadline* (delq :deadline* args)))))
- ;; Collect list of headlines. Return them flattened.
- (let ((case-fold-search nil) results deadlines)
- (dolist (arg args (apply #'nconc (nreverse results)))
- (pcase arg
- ((and :todo (guard (org-agenda-today-p date)))
- (push (org-agenda-get-todos) results))
- (:timestamp
- (push (org-agenda-get-blocks) results)
- (push (org-agenda-get-timestamps deadlines) results))
- (:sexp
- (push (org-agenda-get-sexps) results))
- (:scheduled
- (push (org-agenda-get-scheduled deadlines) results))
- (:scheduled*
- (push (org-agenda-get-scheduled deadlines t) results))
- (:closed
- (push (org-agenda-get-progress) results))
- (:deadline
- (setf deadlines (org-agenda-get-deadlines))
- (push deadlines results))
- (:deadline*
- (setf deadlines (org-agenda-get-deadlines t))
- (push deadlines results)))))))))))
-
-(defsubst org-em (x y list)
- "Is X or Y a member of LIST?"
- (or (memq x list) (memq y list)))
-
-(defvar org-heading-keyword-regexp-format) ; defined in org.el
-(defvar org-agenda-sorting-strategy-selected nil)
-
-(defun org-agenda-entry-get-agenda-timestamp (pom)
- "Retrieve timestamp information for sorting agenda views.
-Given a point or marker POM, returns a cons cell of the timestamp
-and the timestamp type relevant for the sorting strategy in
-`org-agenda-sorting-strategy-selected'."
- (let (ts ts-date-type)
- (save-match-data
- (cond ((org-em 'scheduled-up 'scheduled-down
- org-agenda-sorting-strategy-selected)
- (setq ts (org-entry-get pom "SCHEDULED")
- ts-date-type " scheduled"))
- ((org-em 'deadline-up 'deadline-down
- org-agenda-sorting-strategy-selected)
- (setq ts (org-entry-get pom "DEADLINE")
- ts-date-type " deadline"))
- ((org-em 'ts-up 'ts-down
- org-agenda-sorting-strategy-selected)
- (setq ts (org-entry-get pom "TIMESTAMP")
- ts-date-type " timestamp"))
- ((org-em 'tsia-up 'tsia-down
- org-agenda-sorting-strategy-selected)
- (setq ts (org-entry-get pom "TIMESTAMP_IA")
- ts-date-type " timestamp_ia"))
- ((org-em 'timestamp-up 'timestamp-down
- org-agenda-sorting-strategy-selected)
- (setq ts (or (org-entry-get pom "SCHEDULED")
- (org-entry-get pom "DEADLINE")
- (org-entry-get pom "TIMESTAMP")
- (org-entry-get pom "TIMESTAMP_IA"))
- ts-date-type ""))
- (t (setq ts-date-type "")))
- (cons (when ts (ignore-errors (org-time-string-to-absolute ts)))
- ts-date-type))))
-
-(defun org-agenda-get-todos ()
- "Return the TODO information for agenda display."
- (let* ((props (list 'face nil
- 'done-face 'org-agenda-done
- 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'mouse-face 'highlight
- 'help-echo
- (format "mouse-2 or RET jump to org file %s"
- (abbreviate-file-name buffer-file-name))))
- (case-fold-search nil)
- (regexp (format org-heading-keyword-regexp-format
- (cond
- ((and org-select-this-todo-keyword
- (equal org-select-this-todo-keyword "*"))
- org-todo-regexp)
- (org-select-this-todo-keyword
- (concat "\\("
- (mapconcat 'identity
- (org-split-string
- org-select-this-todo-keyword
- "|")
- "\\|") "\\)"))
- (t org-not-done-regexp))))
- marker priority category level tags todo-state
- ts-date ts-date-type ts-date-pair
- ee txt beg end inherited-tags todo-state-end-pos)
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (catch :skip
- (save-match-data
- (beginning-of-line)
- (org-agenda-skip)
- (setq beg (point) end (save-excursion (outline-next-heading) (point)))
- (unless (and (setq todo-state (org-get-todo-state))
- (setq todo-state-end-pos (match-end 2)))
- (goto-char end)
- (throw :skip nil))
- (when (org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item end)
- (goto-char (1+ beg))
- (or org-agenda-todo-list-sublevels (org-end-of-subtree 'invisible))
- (throw :skip nil)))
- (goto-char (match-beginning 2))
- (setq marker (org-agenda-new-marker (match-beginning 0))
- category (org-get-category)
- ts-date-pair (org-agenda-entry-get-agenda-timestamp (point))
- ts-date (car ts-date-pair)
- ts-date-type (cdr ts-date-pair)
- txt (org-trim (buffer-substring (match-beginning 2) (match-end 0)))
- inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq 'todo org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'todo org-agenda-use-tag-inheritance))))
- tags (org-get-tags-at nil (not inherited-tags))
- level (make-string (org-reduced-level (org-outline-level)) ? )
- txt (org-agenda-format-item "" txt level category tags t)
- priority (1+ (org-get-priority txt)))
- (org-add-props txt props
- 'org-marker marker 'org-hd-marker marker
- 'priority priority
- 'level level
- 'ts-date ts-date
- 'type (concat "todo" ts-date-type) 'todo-state todo-state)
- (push txt ee)
- (if org-agenda-todo-list-sublevels
- (goto-char todo-state-end-pos)
- (org-end-of-subtree 'invisible))))
- (nreverse ee)))
-
-(defun org-agenda-todo-custom-ignore-p (time n)
- "Check whether timestamp is farther away than n number of days.
-This function is invoked if `org-agenda-todo-ignore-deadlines',
-`org-agenda-todo-ignore-scheduled' or
-`org-agenda-todo-ignore-timestamp' is set to an integer."
- (let ((days (org-time-stamp-to-now
- time org-agenda-todo-ignore-time-comparison-use-seconds)))
- (if (>= n 0)
- (>= days n)
- (<= days n))))
-
-;;;###autoload
-(defun org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item
- (&optional end)
- "Do we have a reason to ignore this TODO entry because it has a time stamp?"
- (when (or org-agenda-todo-ignore-with-date
- org-agenda-todo-ignore-scheduled
- org-agenda-todo-ignore-deadlines
- org-agenda-todo-ignore-timestamp)
- (setq end (or end (save-excursion (outline-next-heading) (point))))
- (save-excursion
- (or (and org-agenda-todo-ignore-with-date
- (re-search-forward org-ts-regexp end t))
- (and org-agenda-todo-ignore-scheduled
- (re-search-forward org-scheduled-time-regexp end t)
- (cond
- ((eq org-agenda-todo-ignore-scheduled 'future)
- (> (org-time-stamp-to-now
- (match-string 1) org-agenda-todo-ignore-time-comparison-use-seconds) 0))
- ((eq org-agenda-todo-ignore-scheduled 'past)
- (<= (org-time-stamp-to-now
- (match-string 1) org-agenda-todo-ignore-time-comparison-use-seconds) 0))
- ((numberp org-agenda-todo-ignore-scheduled)
- (org-agenda-todo-custom-ignore-p
- (match-string 1) org-agenda-todo-ignore-scheduled))
- (t)))
- (and org-agenda-todo-ignore-deadlines
- (re-search-forward org-deadline-time-regexp end t)
- (cond
- ((memq org-agenda-todo-ignore-deadlines '(t all)) t)
- ((eq org-agenda-todo-ignore-deadlines 'far)
- (not (org-deadline-close-p (match-string 1))))
- ((eq org-agenda-todo-ignore-deadlines 'future)
- (> (org-time-stamp-to-now
- (match-string 1) org-agenda-todo-ignore-time-comparison-use-seconds) 0))
- ((eq org-agenda-todo-ignore-deadlines 'past)
- (<= (org-time-stamp-to-now
- (match-string 1) org-agenda-todo-ignore-time-comparison-use-seconds) 0))
- ((numberp org-agenda-todo-ignore-deadlines)
- (org-agenda-todo-custom-ignore-p
- (match-string 1) org-agenda-todo-ignore-deadlines))
- (t (org-deadline-close-p (match-string 1)))))
- (and org-agenda-todo-ignore-timestamp
- (let ((buffer (current-buffer))
- (regexp
- (concat
- org-scheduled-time-regexp "\\|" org-deadline-time-regexp))
- (start (point)))
- ;; Copy current buffer into a temporary one
- (with-temp-buffer
- (insert-buffer-substring buffer start end)
- (goto-char (point-min))
- ;; Delete SCHEDULED and DEADLINE items
- (while (re-search-forward regexp end t)
- (delete-region (match-beginning 0) (match-end 0)))
- (goto-char (point-min))
- ;; No search for timestamp left
- (when (re-search-forward org-ts-regexp nil t)
- (cond
- ((eq org-agenda-todo-ignore-timestamp 'future)
- (> (org-time-stamp-to-now
- (match-string 1) org-agenda-todo-ignore-time-comparison-use-seconds) 0))
- ((eq org-agenda-todo-ignore-timestamp 'past)
- (<= (org-time-stamp-to-now
- (match-string 1) org-agenda-todo-ignore-time-comparison-use-seconds) 0))
- ((numberp org-agenda-todo-ignore-timestamp)
- (org-agenda-todo-custom-ignore-p
- (match-string 1) org-agenda-todo-ignore-timestamp))
- (t))))))))))
-
-(defun org-agenda-get-timestamps (&optional deadlines)
- "Return the date stamp information for agenda display.
-Optional argument DEADLINES is a list of deadline items to be
-displayed in agenda view."
- (let* ((props (list 'face 'org-agenda-calendar-event
- 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'mouse-face 'highlight
- 'help-echo
- (format "mouse-2 or RET jump to Org file %s"
- (abbreviate-file-name buffer-file-name))))
- (current (calendar-absolute-from-gregorian date))
- (today (org-today))
- (deadline-position-alist
- (mapcar (lambda (d)
- (let ((m (get-text-property 0 'org-hd-marker d)))
- (and m (marker-position m))))
- deadlines))
- ;; Match time-stamps set to current date, time-stamps with
- ;; a repeater, and S-exp time-stamps.
- (regexp
- (concat
- (if org-agenda-include-inactive-timestamps "[[<]" "<")
- (regexp-quote
- (substring
- (format-time-string
- (car org-time-stamp-formats)
- (apply #'encode-time ; DATE bound by calendar
- (list 0 0 0 (nth 1 date) (car date) (nth 2 date))))
- 1 11))
- "\\|\\(<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[hdwmy]>\\)"
- "\\|\\(<%%\\(([^>\n]+)\\)>\\)"))
- timestamp-items)
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- ;; Skip date ranges, scheduled and deadlines, which are handled
- ;; specially. Also skip time-stamps before first headline as
- ;; there would be no entry to add to the agenda. Eventually,
- ;; ignore clock entries.
- (catch :skip
- (save-match-data
- (when (or (org-at-date-range-p)
- (org-at-planning-p)
- (org-before-first-heading-p)
- (and org-agenda-include-inactive-timestamps
- (org-at-clock-log-p)))
- (throw :skip nil))
- (org-agenda-skip))
- (let* ((pos (match-beginning 0))
- (repeat (match-string 1))
- (sexp-entry (match-string 3))
- (time-stamp (if (or repeat sexp-entry) (match-string 0)
- (save-excursion
- (goto-char pos)
- (looking-at org-ts-regexp-both)
- (match-string 0))))
- (todo-state (org-get-todo-state))
- (warntime (get-text-property (point) 'org-appt-warntime))
- (done? (member todo-state org-done-keywords)))
- ;; Possibly skip done tasks.
- (when (and done? org-agenda-skip-timestamp-if-done)
- (throw :skip t))
- ;; S-exp entry doesn't match current day: skip it.
- (when (and sexp-entry (not (org-diary-sexp-entry sexp-entry "" date)))
- (throw :skip nil))
- (when repeat
- (let* ((past
- ;; A repeating time stamp is shown at its base
- ;; date and every repeated date up to TODAY. If
- ;; `org-agenda-prefer-last-repeat' is non-nil,
- ;; however, only the last repeat before today
- ;; (inclusive) is shown.
- (org-agenda--timestamp-to-absolute
- repeat
- (if (or (> current today)
- (eq org-agenda-prefer-last-repeat t)
- (member todo-state org-agenda-prefer-last-repeat))
- today
- current)
- 'past (current-buffer) pos))
- (future
- ;; Display every repeated date past TODAY
- ;; (exclusive) unless
- ;; `org-agenda-show-future-repeats' is nil. If
- ;; this variable is set to `next', only display
- ;; the first repeated date after TODAY
- ;; (exclusive).
- (cond
- ((<= current today) past)
- ((not org-agenda-show-future-repeats) past)
- (t
- (let ((base (if (eq org-agenda-show-future-repeats 'next)
- (1+ today)
- current)))
- (org-agenda--timestamp-to-absolute
- repeat base 'future (current-buffer) pos))))))
- (when (and (/= current past) (/= current future))
- (throw :skip nil))))
- (save-excursion
- (re-search-backward org-outline-regexp-bol nil t)
- ;; Possibly skip time-stamp when a deadline is set.
- (when (and org-agenda-skip-timestamp-if-deadline-is-shown
- (assq (point) deadline-position-alist))
- (throw :skip nil))
- (let* ((category (org-get-category pos))
- (inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (consp org-agenda-show-inherited-tags)
- (memq 'agenda org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'agenda
- org-agenda-use-tag-inheritance)))))
- (tags (org-get-tags-at nil (not inherited-tags)))
- (level (make-string (org-reduced-level (org-outline-level))
- ?\s))
- (head (and (looking-at "\\*+[ \t]+\\(.*\\)")
- (match-string 1)))
- (inactive? (= (char-after pos) ?\[))
- (habit? (and (fboundp 'org-is-habit-p) (org-is-habit-p)))
- (item
- (org-agenda-format-item
- (and inactive? org-agenda-inactive-leader)
- head level category tags time-stamp org-ts-regexp habit?)))
- (org-add-props item props
- 'priority (if habit?
- (org-habit-get-priority (org-habit-parse-todo))
- (org-get-priority item))
- 'org-marker (org-agenda-new-marker pos)
- 'org-hd-marker (org-agenda-new-marker)
- 'date date
- 'level level
- 'ts-date (if repeat (org-agenda--timestamp-to-absolute repeat)
- current)
- 'todo-state todo-state
- 'warntime warntime
- 'type "timestamp")
- (push item timestamp-items))))
- (when org-agenda-skip-additional-timestamps-same-entry
- (outline-next-heading))))
- (nreverse timestamp-items)))
-
-(defun org-agenda-get-sexps ()
- "Return the sexp information for agenda display."
- (require 'diary-lib)
- (let* ((props (list 'face 'org-agenda-calendar-sexp
- 'mouse-face 'highlight
- 'help-echo
- (format "mouse-2 or RET jump to org file %s"
- (abbreviate-file-name buffer-file-name))))
- (regexp "^&?%%(")
- marker category extra level ee txt tags entry
- result beg b sexp sexp-entry todo-state warntime inherited-tags)
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (catch :skip
- (org-agenda-skip)
- (setq beg (match-beginning 0))
- (goto-char (1- (match-end 0)))
- (setq b (point))
- (forward-sexp 1)
- (setq sexp (buffer-substring b (point)))
- (setq sexp-entry (if (looking-at "[ \t]*\\(\\S-.*\\)")
- (org-trim (match-string 1))
- ""))
- (setq result (org-diary-sexp-entry sexp sexp-entry date))
- (when result
- (setq marker (org-agenda-new-marker beg)
- level (make-string (org-reduced-level (org-outline-level)) ? )
- category (org-get-category beg)
- inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq 'agenda org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'agenda org-agenda-use-tag-inheritance))))
- tags (org-get-tags-at nil (not inherited-tags))
- todo-state (org-get-todo-state)
- warntime (get-text-property (point) 'org-appt-warntime)
- extra nil)
-
- (dolist (r (if (stringp result)
- (list result)
- result)) ;; we expect a list here
- (when (and org-agenda-diary-sexp-prefix
- (string-match org-agenda-diary-sexp-prefix r))
- (setq extra (match-string 0 r)
- r (replace-match "" nil nil r)))
- (if (string-match "\\S-" r)
- (setq txt r)
- (setq txt "SEXP entry returned empty string"))
- (setq txt (org-agenda-format-item extra txt level category tags 'time))
- (org-add-props txt props 'org-marker marker
- 'date date 'todo-state todo-state
- 'level level 'type "sexp" 'warntime warntime)
- (push txt ee)))))
- (nreverse ee)))
-
-;; Calendar sanity: define some functions that are independent of
-;; `calendar-date-style'.
-(defun org-anniversary (year month day &optional mark)
- "Like `diary-anniversary', but with fixed (ISO) order of arguments."
- (with-no-warnings
- (let ((calendar-date-style 'iso))
- (diary-anniversary year month day mark))))
-(defun org-cyclic (N year month day &optional mark)
- "Like `diary-cyclic', but with fixed (ISO) order of arguments."
- (with-no-warnings
- (let ((calendar-date-style 'iso))
- (diary-cyclic N year month day mark))))
-(defun org-block (Y1 M1 D1 Y2 M2 D2 &optional mark)
- "Like `diary-block', but with fixed (ISO) order of arguments."
- (with-no-warnings
- (let ((calendar-date-style 'iso))
- (diary-block Y1 M1 D1 Y2 M2 D2 mark))))
-(defun org-date (year month day &optional mark)
- "Like `diary-date', but with fixed (ISO) order of arguments."
- (with-no-warnings
- (let ((calendar-date-style 'iso))
- (diary-date year month day mark))))
-
-;; Define the `org-class' function
-(defun org-class (y1 m1 d1 y2 m2 d2 dayname &rest skip-weeks)
- "Entry applies if date is between dates on DAYNAME, but skips SKIP-WEEKS.
-DAYNAME is a number between 0 (Sunday) and 6 (Saturday).
-SKIP-WEEKS is any number of ISO weeks in the block period for which the
-item should be skipped. If any of the SKIP-WEEKS arguments is the symbol
-`holidays', then any date that is known by the Emacs calendar to be a
-holiday will also be skipped. If SKIP-WEEKS arguments are holiday strings,
-then those holidays will be skipped."
- (let* ((date1 (calendar-absolute-from-gregorian (list m1 d1 y1)))
- (date2 (calendar-absolute-from-gregorian (list m2 d2 y2)))
- (d (calendar-absolute-from-gregorian date))
- (h (when skip-weeks (calendar-check-holidays date))))
- (and
- (<= date1 d)
- (<= d date2)
- (= (calendar-day-of-week date) dayname)
- (or (not skip-weeks)
- (progn
- (require 'cal-iso)
- (not (member (car (calendar-iso-from-absolute d)) skip-weeks))))
- (not (or (and h (memq 'holidays skip-weeks))
- (delq nil (mapcar (lambda(g) (member g skip-weeks)) h))))
- entry)))
-
-(defalias 'org-get-closed 'org-agenda-get-progress)
-(defun org-agenda-get-progress ()
- "Return the logged TODO entries for agenda display."
- (let* ((props (list 'mouse-face 'highlight
- 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'help-echo
- (format "mouse-2 or RET jump to org file %s"
- (abbreviate-file-name buffer-file-name))))
- (items (if (consp org-agenda-show-log-scoped)
- org-agenda-show-log-scoped
- (if (eq org-agenda-show-log-scoped 'clockcheck)
- '(clock)
- org-agenda-log-mode-items)))
- (parts
- (delq nil
- (list
- (if (memq 'closed items) (concat "\\<" org-closed-string))
- (if (memq 'clock items) (concat "\\<" org-clock-string))
- (if (memq 'state items)
- (format "- State \"%s\".*?" org-todo-regexp)))))
- (parts-re (if parts (mapconcat 'identity parts "\\|")
- (error "`org-agenda-log-mode-items' is empty")))
- (regexp (concat
- "\\(" parts-re "\\)"
- " *\\["
- (regexp-quote
- (substring
- (format-time-string
- (car org-time-stamp-formats)
- (apply 'encode-time ; DATE bound by calendar
- (list 0 0 0 (nth 1 date) (car date) (nth 2 date))))
- 1 11))))
- (org-agenda-search-headline-for-time nil)
- marker hdmarker priority category level tags closedp
- statep clockp state ee txt extra timestr rest clocked inherited-tags)
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (catch :skip
- (org-agenda-skip)
- (setq marker (org-agenda-new-marker (match-beginning 0))
- closedp (equal (match-string 1) org-closed-string)
- statep (equal (string-to-char (match-string 1)) ?-)
- clockp (not (or closedp statep))
- state (and statep (match-string 2))
- category (org-get-category (match-beginning 0))
- timestr (buffer-substring (match-beginning 0) (point-at-eol)))
- (when (string-match "\\]" timestr)
- ;; substring should only run to end of time stamp
- (setq rest (substring timestr (match-end 0))
- timestr (substring timestr 0 (match-end 0)))
- (if (and (not closedp) (not statep)
- (string-match "\\([0-9]\\{1,2\\}:[0-9]\\{2\\}\\)\\].*?\\([0-9]\\{1,2\\}:[0-9]\\{2\\}\\)"
- rest))
- (progn (setq timestr (concat (substring timestr 0 -1)
- "-" (match-string 1 rest) "]"))
- (setq clocked (match-string 2 rest)))
- (setq clocked "-")))
- (save-excursion
- (setq extra
- (cond
- ((not org-agenda-log-mode-add-notes) nil)
- (statep
- (and (looking-at ".*\\\\\n[ \t]*\\([^-\n \t].*?\\)[ \t]*$")
- (match-string 1)))
- (clockp
- (and (looking-at ".*\n[ \t]*-[ \t]+\\([^-\n \t].*?\\)[ \t]*$")
- (match-string 1)))))
- (if (not (re-search-backward org-outline-regexp-bol nil t))
- (throw :skip nil)
- (goto-char (match-beginning 0))
- (setq hdmarker (org-agenda-new-marker)
- inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq 'todo org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'todo org-agenda-use-tag-inheritance))))
- tags (org-get-tags-at nil (not inherited-tags))
- level (make-string (org-reduced-level (org-outline-level)) ? ))
- (looking-at "\\*+[ \t]+\\([^\r\n]+\\)")
- (setq txt (match-string 1))
- (when extra
- (if (string-match "\\([ \t]+\\)\\(:[^ \n\t]*?:\\)[ \t]*$" txt)
- (setq txt (concat (substring txt 0 (match-beginning 1))
- " - " extra " " (match-string 2 txt)))
- (setq txt (concat txt " - " extra))))
- (setq txt (org-agenda-format-item
- (cond
- (closedp "Closed: ")
- (statep (concat "State: (" state ")"))
- (t (concat "Clocked: (" clocked ")")))
- txt level category tags timestr)))
- (setq priority 100000)
- (org-add-props txt props
- 'org-marker marker 'org-hd-marker hdmarker 'face 'org-agenda-done
- 'priority priority 'level level
- 'type "closed" 'date date
- 'undone-face 'org-warning 'done-face 'org-agenda-done)
- (push txt ee))
- (goto-char (point-at-eol))))
- (nreverse ee)))
-
-(defun org-agenda-show-clocking-issues ()
- "Add overlays, showing issues with clocking.
-See also the user option `org-agenda-clock-consistency-checks'."
- (interactive)
- (let* ((pl org-agenda-clock-consistency-checks)
- (re (concat "^[ \t]*"
- org-clock-string
- "[ \t]+"
- "\\(\\[.*?\\]\\)" ; group 1 is first stamp
- "\\(-\\{1,3\\}\\(\\[.*?\\]\\)\\)?")) ; group 3 is second
- (tlstart 0.)
- (tlend 0.)
- (maxtime (org-duration-to-minutes
- (or (plist-get pl :max-duration) "24:00")))
- (mintime (org-duration-to-minutes
- (or (plist-get pl :min-duration) 0)))
- (maxgap (org-duration-to-minutes
- ;; default 30:00 means never complain
- (or (plist-get pl :max-gap) "30:00")))
- (gapok (mapcar #'org-duration-to-minutes
- (plist-get pl :gap-ok-around)))
- (def-face (or (plist-get pl :default-face)
- '((:background "DarkRed") (:foreground "white"))))
- issue face m te ts dt ov)
- (goto-char (point-min))
- (while (re-search-forward " Clocked: +(-\\|\\([0-9]+:[0-9]+\\))" nil t)
- (setq issue nil face def-face)
- (catch 'next
- (setq m (org-get-at-bol 'org-marker)
- te nil ts nil)
- (unless (and m (markerp m))
- (setq issue "No valid clock line") (throw 'next t))
- (org-with-point-at m
- (save-excursion
- (goto-char (point-at-bol))
- (unless (looking-at re)
- (error "No valid Clock line")
- (throw 'next t))
- (unless (match-end 3)
- (setq issue "No end time"
- face (or (plist-get pl :no-end-time-face) face))
- (throw 'next t))
- (setq ts (match-string 1)
- te (match-string 3)
- ts (float-time
- (apply #'encode-time (org-parse-time-string ts)))
- te (float-time
- (apply #'encode-time (org-parse-time-string te)))
- dt (- te ts))))
- (cond
- ((> dt (* 60 maxtime))
- ;; a very long clocking chunk
- (setq issue (format "Clocking interval is very long: %s"
- (org-duration-from-minutes (floor (/ dt 60.))))
- face (or (plist-get pl :long-face) face)))
- ((< dt (* 60 mintime))
- ;; a very short clocking chunk
- (setq issue (format "Clocking interval is very short: %s"
- (org-duration-from-minutes (floor (/ dt 60.))))
- face (or (plist-get pl :short-face) face)))
- ((and (> tlend 0) (< ts tlend))
- ;; Two clock entries are overlapping
- (setq issue (format "Clocking overlap: %d minutes"
- (/ (- tlend ts) 60))
- face (or (plist-get pl :overlap-face) face)))
- ((and (> tlend 0) (> ts (+ tlend (* 60 maxgap))))
- ;; There is a gap, lets see if we need to report it
- (unless (org-agenda-check-clock-gap tlend ts gapok)
- (setq issue (format "Clocking gap: %d minutes"
- (/ (- ts tlend) 60))
- face (or (plist-get pl :gap-face) face))))
- (t nil)))
- (setq tlend (or te tlend) tlstart (or ts tlstart))
- (when issue
- ;; OK, there was some issue, add an overlay to show the issue
- (setq ov (make-overlay (point-at-bol) (point-at-eol)))
- (overlay-put ov 'before-string
- (concat
- (org-add-props
- (format "%-43s" (concat " " issue))
- nil
- 'face face)
- "\n"))
- (overlay-put ov 'evaporate t)))))
-
-(defun org-agenda-check-clock-gap (t1 t2 ok-list)
- "Check if gap T1 -> T2 contains one of the OK-LIST time-of-day values."
- (catch 'exit
- (unless ok-list
- ;; there are no OK times for gaps...
- (throw 'exit nil))
- (if (> (- (/ t2 36000) (/ t1 36000)) 24)
- ;; This is more than 24 hours, so it is OK.
- ;; because we have at least one OK time, that must be in the
- ;; 24 hour interval.
- (throw 'exit t))
- ;; We have a shorter gap.
- ;; Now we have to get the minute of the day when these times are
- (let* ((t1dec (decode-time (seconds-to-time t1)))
- (t2dec (decode-time (seconds-to-time t2)))
- ;; compute the minute on the day
- (min1 (+ (nth 1 t1dec) (* 60 (nth 2 t1dec))))
- (min2 (+ (nth 1 t2dec) (* 60 (nth 2 t2dec)))))
- (when (< min2 min1)
- ;; if min2 is smaller than min1, this means it is on the next day.
- ;; Wrap it to after midnight.
- (setq min2 (+ min2 1440)))
- ;; Now check if any of the OK times is in the gap
- (mapc (lambda (x)
- ;; Wrap the time to after midnight if necessary
- (if (< x min1) (setq x (+ x 1440)))
- ;; Check if in interval
- (and (<= min1 x) (>= min2 x) (throw 'exit t)))
- ok-list)
- ;; Nope, this gap is not OK
- nil)))
-
-(defun org-agenda-get-deadlines (&optional with-hour)
- "Return the deadline information for agenda display.
-When WITH-HOUR is non-nil, only return deadlines with an hour
-specification like [h]h:mm."
- (let* ((props (list 'mouse-face 'highlight
- 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'help-echo
- (format "mouse-2 or RET jump to org file %s"
- (abbreviate-file-name buffer-file-name))))
- (regexp (if with-hour
- org-deadline-time-hour-regexp
- org-deadline-time-regexp))
- (today (org-today))
- (today? (org-agenda-today-p date)) ; DATE bound by calendar.
- (current (calendar-absolute-from-gregorian date))
- deadline-items)
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (catch :skip
- (unless (save-match-data (org-at-planning-p)) (throw :skip nil))
- (org-agenda-skip)
- (let* ((s (match-string 1))
- (pos (1- (match-beginning 1)))
- (todo-state (save-match-data (org-get-todo-state)))
- (done? (member todo-state org-done-keywords))
- (sexp? (string-prefix-p "%%" s))
- ;; DEADLINE is the deadline date for the entry. It is
- ;; either the base date or the last repeat, according
- ;; to `org-agenda-prefer-last-repeat'.
- (deadline
- (cond
- (sexp? (org-agenda--timestamp-to-absolute s current))
- ((or (eq org-agenda-prefer-last-repeat t)
- (member todo-state org-agenda-prefer-last-repeat))
- (org-agenda--timestamp-to-absolute
- s today 'past (current-buffer) pos))
- (t (org-agenda--timestamp-to-absolute s))))
- ;; REPEAT is the future repeat closest from CURRENT,
- ;; according to `org-agenda-show-future-repeats'. If
- ;; the latter is nil, or if the time stamp has no
- ;; repeat part, default to DEADLINE.
- (repeat
- (cond
- (sexp? deadline)
- ((<= current today) deadline)
- ((not org-agenda-show-future-repeats) deadline)
- (t
- (let ((base (if (eq org-agenda-show-future-repeats 'next)
- (1+ today)
- current)))
- (org-agenda--timestamp-to-absolute
- s base 'future (current-buffer) pos)))))
- (diff (- deadline current))
- (suppress-prewarning
- (let ((scheduled
- (and org-agenda-skip-deadline-prewarning-if-scheduled
- (org-entry-get nil "SCHEDULED"))))
- (cond
- ((not scheduled) nil)
- ;; The current item has a scheduled date, so
- ;; evaluate its prewarning lead time.
- ((integerp org-agenda-skip-deadline-prewarning-if-scheduled)
- ;; Use global prewarning-restart lead time.
- org-agenda-skip-deadline-prewarning-if-scheduled)
- ((eq org-agenda-skip-deadline-prewarning-if-scheduled
- 'pre-scheduled)
- ;; Set pre-warning to no earlier than SCHEDULED.
- (min (- deadline
- (org-agenda--timestamp-to-absolute scheduled))
- org-deadline-warning-days))
- ;; Set pre-warning to deadline.
- (t 0))))
- (wdays (or suppress-prewarning (org-get-wdays s))))
- (cond
- ;; Only display deadlines at their base date, at future
- ;; repeat occurrences or in today agenda.
- ((= current deadline) nil)
- ((= current repeat) nil)
- ((not today?) (throw :skip nil))
- ;; Upcoming deadline: display within warning period WDAYS.
- ((> deadline current) (when (> diff wdays) (throw :skip nil)))
- ;; Overdue deadline: warn about it for
- ;; `org-deadline-past-days' duration.
- (t (when (< org-deadline-past-days (- diff)) (throw :skip nil))))
- ;; Possibly skip done tasks.
- (when (and done?
- (or org-agenda-skip-deadline-if-done
- (/= deadline current)))
- (throw :skip nil))
- (save-excursion
- (re-search-backward "^\\*+[ \t]+" nil t)
- (goto-char (match-end 0))
- (let* ((category (org-get-category))
- (level (make-string (org-reduced-level (org-outline-level))
- ?\s))
- (head (buffer-substring (point) (line-end-position)))
- (inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq 'agenda org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'agenda
- org-agenda-use-tag-inheritance)))))
- (tags (org-get-tags-at nil (not inherited-tags)))
- (time
- (cond
- ;; No time of day designation if it is only
- ;; a reminder.
- ((and (/= current deadline) (/= current repeat)) nil)
- ((string-match " \\([012]?[0-9]:[0-9][0-9]\\)" s)
- (concat (substring s (match-beginning 1)) " "))
- (t 'time)))
- (item
- (org-agenda-format-item
- ;; Insert appropriate suffixes before deadlines.
- ;; Those only apply to today agenda.
- (pcase-let ((`(,now ,future ,past)
- org-agenda-deadline-leaders))
- (cond
- ((and today? (< deadline today)) (format past (- diff)))
- ((and today? (> deadline today)) (format future diff))
- (t now)))
- head level category tags time))
- (face (org-agenda-deadline-face
- (- 1 (/ (float diff) (max wdays 1)))))
- (upcoming? (and today? (> deadline today)))
- (warntime (get-text-property (point) 'org-appt-warntime)))
- (org-add-props item props
- 'org-marker (org-agenda-new-marker pos)
- 'org-hd-marker (org-agenda-new-marker (line-beginning-position))
- 'warntime warntime
- 'level level
- 'ts-date deadline
- 'priority
- ;; Adjust priority to today reminders about deadlines.
- ;; Overdue deadlines get the highest priority
- ;; increase, then imminent deadlines and eventually
- ;; more distant deadlines.
- (let ((adjust (if today? (- diff) 0)))
- (+ adjust (org-get-priority item)))
- 'todo-state todo-state
- 'type (if upcoming? "upcoming-deadline" "deadline")
- 'date (if upcoming? date deadline)
- 'face (if done? 'org-agenda-done face)
- 'undone-face face
- 'done-face 'org-agenda-done)
- (push item deadline-items))))))
- (nreverse deadline-items)))
-
-(defun org-agenda-deadline-face (fraction)
- "Return the face to displaying a deadline item.
-FRACTION is what fraction of the head-warning time has passed."
- (assoc-default fraction org-agenda-deadline-faces #'<=))
-
-(defun org-agenda-get-scheduled (&optional deadlines with-hour)
- "Return the scheduled information for agenda display.
-Optional argument DEADLINES is a list of deadline items to be
-displayed in agenda view. When WITH-HOUR is non-nil, only return
-scheduled items with an hour specification like [h]h:mm."
- (let* ((props (list 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'done-face 'org-agenda-done
- 'mouse-face 'highlight
- 'help-echo
- (format "mouse-2 or RET jump to Org file %s"
- (abbreviate-file-name buffer-file-name))))
- (regexp (if with-hour
- org-scheduled-time-hour-regexp
- org-scheduled-time-regexp))
- (today (org-today))
- (todayp (org-agenda-today-p date)) ; DATE bound by calendar.
- (current (calendar-absolute-from-gregorian date))
- (deadline-pos
- (mapcar (lambda (d)
- (let ((m (get-text-property 0 'org-hd-marker d)))
- (and m (marker-position m))))
- deadlines))
- scheduled-items)
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (catch :skip
- (unless (save-match-data (org-at-planning-p)) (throw :skip nil))
- (org-agenda-skip)
- (let* ((s (match-string 1))
- (pos (1- (match-beginning 1)))
- (todo-state (save-match-data (org-get-todo-state)))
- (donep (member todo-state org-done-keywords))
- (sexp? (string-prefix-p "%%" s))
- ;; SCHEDULE is the scheduled date for the entry. It is
- ;; either the bare date or the last repeat, according
- ;; to `org-agenda-prefer-last-repeat'.
- (schedule
- (cond
- (sexp? (org-agenda--timestamp-to-absolute s current))
- ((or (eq org-agenda-prefer-last-repeat t)
- (member todo-state org-agenda-prefer-last-repeat))
- (org-agenda--timestamp-to-absolute
- s today 'past (current-buffer) pos))
- (t (org-agenda--timestamp-to-absolute s))))
- ;; REPEAT is the future repeat closest from CURRENT,
- ;; according to `org-agenda-show-future-repeats'. If
- ;; the latter is nil, or if the time stamp has no
- ;; repeat part, default to SCHEDULE.
- (repeat
- (cond
- (sexp? schedule)
- ((<= current today) schedule)
- ((not org-agenda-show-future-repeats) schedule)
- (t
- (let ((base (if (eq org-agenda-show-future-repeats 'next)
- (1+ today)
- current)))
- (org-agenda--timestamp-to-absolute
- s base 'future (current-buffer) pos)))))
- (diff (- current schedule))
- (warntime (get-text-property (point) 'org-appt-warntime))
- (pastschedp (< schedule today))
- (habitp (and (fboundp 'org-is-habit-p) (org-is-habit-p)))
- (suppress-delay
- (let ((deadline (and org-agenda-skip-scheduled-delay-if-deadline
- (org-entry-get nil "DEADLINE"))))
- (cond
- ((not deadline) nil)
- ;; The current item has a deadline date, so
- ;; evaluate its delay time.
- ((integerp org-agenda-skip-scheduled-delay-if-deadline)
- ;; Use global delay time.
- (- org-agenda-skip-scheduled-delay-if-deadline))
- ((eq org-agenda-skip-scheduled-delay-if-deadline
- 'post-deadline)
- ;; Set delay to no later than DEADLINE.
- (min (- schedule
- (org-agenda--timestamp-to-absolute deadline))
- org-scheduled-delay-days))
- (t 0))))
- (ddays
- (cond
- ;; Nullify delay when a repeater triggered already
- ;; and the delay is of the form --Xd.
- ((and (string-match-p "--[0-9]+[hdwmy]" s)
- (> schedule (org-agenda--timestamp-to-absolute s)))
- 0)
- (suppress-delay
- (let ((org-scheduled-delay-days suppress-delay))
- (org-get-wdays s t t)))
- (t (org-get-wdays s t)))))
- ;; Display scheduled items at base date (SCHEDULE), today if
- ;; scheduled before the current date, and at any repeat past
- ;; today. However, skip delayed items and items that have
- ;; been displayed for more than `org-scheduled-past-days'.
- (unless (and todayp
- habitp
- (bound-and-true-p org-habit-show-all-today))
- (when (or (and (> ddays 0) (< diff ddays))
- (> diff org-scheduled-past-days)
- (> schedule current)
- (and (/= current schedule)
- (/= current today)
- (/= current repeat)))
- (throw :skip nil)))
- ;; Possibly skip done tasks.
- (when (and donep
- (or org-agenda-skip-scheduled-if-done
- (/= schedule current)))
- (throw :skip nil))
- ;; Skip entry if it already appears as a deadline, per
- ;; `org-agenda-skip-scheduled-if-deadline-is-shown'. This
- ;; doesn't apply to habits.
- (when (pcase org-agenda-skip-scheduled-if-deadline-is-shown
- ((guard
- (or (not (memq (line-beginning-position 0) deadline-pos))
- habitp))
- nil)
- (`repeated-after-deadline
- (let ((deadline (time-to-days
- (org-get-deadline-time (point)))))
- (and (<= schedule deadline) (> current deadline))))
- (`not-today pastschedp)
- (`t t)
- (_ nil))
- (throw :skip nil))
- ;; Skip habits if `org-habit-show-habits' is nil, or if we
- ;; only show them for today. Also skip done habits.
- (when (and habitp
- (or donep
- (not (bound-and-true-p org-habit-show-habits))
- (and (not todayp)
- (bound-and-true-p
- org-habit-show-habits-only-for-today))))
- (throw :skip nil))
- (save-excursion
- (re-search-backward "^\\*+[ \t]+" nil t)
- (goto-char (match-end 0))
- (let* ((category (org-get-category))
- (inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq 'agenda org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'agenda
- org-agenda-use-tag-inheritance)))))
- (tags (org-get-tags-at nil (not inherited-tags)))
- (level (make-string (org-reduced-level (org-outline-level))
- ?\s))
- (head (buffer-substring (point) (line-end-position)))
- (time
- (cond
- ;; No time of day designation if it is only
- ;; a reminder.
- ((and (/= current schedule) (/= current repeat)) nil)
- ((string-match " \\([012]?[0-9]:[0-9][0-9]\\)" s)
- (concat (substring s (match-beginning 1)) " "))
- (t 'time)))
- (item
- (org-agenda-format-item
- (pcase-let ((`(,first ,past) org-agenda-scheduled-leaders))
- ;; Show a reminder of a past scheduled today.
- (if (and todayp pastschedp)
- (format past diff)
- first))
- head level category tags time nil habitp))
- (face (cond ((and (not habitp) pastschedp)
- 'org-scheduled-previously)
- (todayp 'org-scheduled-today)
- (t 'org-scheduled)))
- (habitp (and habitp (org-habit-parse-todo))))
- (org-add-props item props
- 'undone-face face
- 'face (if donep 'org-agenda-done face)
- 'org-marker (org-agenda-new-marker pos)
- 'org-hd-marker (org-agenda-new-marker (line-beginning-position))
- 'type (if pastschedp "past-scheduled" "scheduled")
- 'date (if pastschedp schedule date)
- 'ts-date schedule
- 'warntime warntime
- 'level level
- 'priority (if habitp (org-habit-get-priority habitp)
- (+ 99 diff (org-get-priority item)))
- 'org-habit-p habitp
- 'todo-state todo-state)
- (push item scheduled-items))))))
- (nreverse scheduled-items)))
-
-(defun org-agenda-get-blocks ()
- "Return the date-range information for agenda display."
- (let* ((props (list 'face nil
- 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'mouse-face 'highlight
- 'help-echo
- (format "mouse-2 or RET jump to org file %s"
- (abbreviate-file-name buffer-file-name))))
- (regexp org-tr-regexp)
- (d0 (calendar-absolute-from-gregorian date))
- marker hdmarker ee txt d1 d2 s1 s2 category
- level todo-state tags pos head donep inherited-tags)
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (catch :skip
- (org-agenda-skip)
- (setq pos (point))
- (let ((start-time (match-string 1))
- (end-time (match-string 2)))
- (setq s1 (match-string 1)
- s2 (match-string 2)
- d1 (time-to-days
- (condition-case err
- (org-time-string-to-time s1)
- (error
- (error
- "Bad timestamp %S at %d in buffer %S\nError was: %s"
- s1
- pos
- (current-buffer)
- (error-message-string err)))))
- d2 (time-to-days
- (condition-case err
- (org-time-string-to-time s2)
- (error
- (error
- "Bad timestamp %S at %d in buffer %S\nError was: %s"
- s2
- pos
- (current-buffer)
- (error-message-string err))))))
- (if (and (> (- d0 d1) -1) (> (- d2 d0) -1))
- ;; Only allow days between the limits, because the normal
- ;; date stamps will catch the limits.
- (save-excursion
- (setq todo-state (org-get-todo-state))
- (setq donep (member todo-state org-done-keywords))
- (if (and donep org-agenda-skip-timestamp-if-done)
- (throw :skip t))
- (setq marker (org-agenda-new-marker (point))
- category (org-get-category))
- (if (not (re-search-backward org-outline-regexp-bol nil t))
- (throw :skip nil)
- (goto-char (match-beginning 0))
- (setq hdmarker (org-agenda-new-marker (point))
- inherited-tags
- (or (eq org-agenda-show-inherited-tags 'always)
- (and (listp org-agenda-show-inherited-tags)
- (memq 'agenda org-agenda-show-inherited-tags))
- (and (eq org-agenda-show-inherited-tags t)
- (or (eq org-agenda-use-tag-inheritance t)
- (memq 'agenda org-agenda-use-tag-inheritance))))
-
- tags (org-get-tags-at nil (not inherited-tags)))
- (setq level (make-string (org-reduced-level (org-outline-level)) ? ))
- (looking-at "\\*+[ \t]+\\(.*\\)")
- (setq head (match-string 1))
- (let ((remove-re
- (if org-agenda-remove-timeranges-from-blocks
- (concat
- "<" (regexp-quote s1) ".*?>"
- "--"
- "<" (regexp-quote s2) ".*?>")
- nil)))
- (setq txt (org-agenda-format-item
- (format
- (nth (if (= d1 d2) 0 1)
- org-agenda-timerange-leaders)
- (1+ (- d0 d1)) (1+ (- d2 d1)))
- head level category tags
- (cond ((and (= d1 d0) (= d2 d0))
- (concat "<" start-time ">--<" end-time ">"))
- ((= d1 d0)
- (concat "<" start-time ">"))
- ((= d2 d0)
- (concat "<" end-time ">")))
- remove-re))))
- (org-add-props txt props
- 'org-marker marker 'org-hd-marker hdmarker
- 'type "block" 'date date
- 'level level
- 'todo-state todo-state
- 'priority (org-get-priority txt))
- (push txt ee))))
- (goto-char pos)))
- ;; Sort the entries by expiration date.
- (nreverse ee)))
-
-;;; Agenda presentation and sorting
-
-(defvar org-prefix-has-time nil
- "A flag, set by `org-compile-prefix-format'.
-The flag is set if the currently compiled format contains a `%t'.")
-(defvar org-prefix-has-tag nil
- "A flag, set by `org-compile-prefix-format'.
-The flag is set if the currently compiled format contains a `%T'.")
-(defvar org-prefix-has-effort nil
- "A flag, set by `org-compile-prefix-format'.
-The flag is set if the currently compiled format contains a `%e'.")
-(defvar org-prefix-has-breadcrumbs nil
- "A flag, set by `org-compile-prefix-format'.
-The flag is set if the currently compiled format contains a `%b'.")
-(defvar org-prefix-category-length nil
- "Used by `org-compile-prefix-format' to remember the category field width.")
-(defvar org-prefix-category-max-length nil
- "Used by `org-compile-prefix-format' to remember the category field width.")
-
-(defun org-agenda-get-category-icon (category)
- "Return an image for CATEGORY according to `org-agenda-category-icon-alist'."
- (cl-dolist (entry org-agenda-category-icon-alist)
- (when (string-match-p (car entry) category)
- (if (listp (cadr entry))
- (cl-return (cadr entry))
- (cl-return (apply #'create-image (cdr entry)))))))
-
-(defun org-agenda-format-item (extra txt &optional level category tags dotime
- remove-re habitp)
- "Format TXT to be inserted into the agenda buffer.
-In particular, add the prefix and corresponding text properties.
-
-EXTRA must be a string to replace the `%s' specifier in the prefix format.
-LEVEL may be a string to replace the `%l' specifier.
-CATEGORY (a string, a symbol or nil) may be used to overrule the default
-category taken from local variable or file name. It will replace the `%c'
-specifier in the format.
-DOTIME, when non-nil, indicates that a time-of-day should be extracted from
-TXT for sorting of this entry, and for the `%t' specifier in the format.
-When DOTIME is a string, this string is searched for a time before TXT is.
-TAGS can be the tags of the headline.
-Any match of REMOVE-RE will be removed from TXT."
- ;; We keep the org-prefix-* variable values along with a compiled
- ;; formatter, so that multiple agendas existing at the same time do
- ;; not step on each other toes.
- ;;
- ;; It was inconvenient to make these variables buffer local in
- ;; Agenda buffers, because this function expects to be called with
- ;; the buffer where item comes from being current, and not agenda
- ;; buffer
- (let* ((bindings (car org-prefix-format-compiled))
- (formatter (cadr org-prefix-format-compiled)))
- (cl-loop for (var value) in bindings
- do (set var value))
- (save-match-data
- ;; Diary entries sometimes have extra whitespace at the beginning
- (setq txt (org-trim txt))
-
- ;; Fix the tags part in txt
- (setq txt (org-agenda-fix-displayed-tags
- txt tags
- org-agenda-show-inherited-tags
- org-agenda-hide-tags-regexp))
-
- (let* ((category (or category
- (if buffer-file-name
- (file-name-sans-extension
- (file-name-nondirectory buffer-file-name))
- "")))
- (category-icon (org-agenda-get-category-icon category))
- (category-icon (if category-icon
- (propertize " " 'display category-icon)
- ""))
- (effort (and (not (string= txt ""))
- (get-text-property 1 'effort txt)))
- ;; time, tag, effort are needed for the eval of the prefix format
- (tag (if tags (nth (1- (length tags)) tags) ""))
- (time-grid-trailing-characters (nth 2 org-agenda-time-grid))
- time
- (ts (if dotime (concat
- (if (stringp dotime) dotime "")
- (and org-agenda-search-headline-for-time txt))))
- (time-of-day (and dotime (org-get-time-of-day ts)))
- stamp plain s0 s1 s2 rtn srp l
- duration breadcrumbs)
- (and (derived-mode-p 'org-mode) buffer-file-name
- (add-to-list 'org-agenda-contributing-files buffer-file-name))
- (when (and dotime time-of-day)
- ;; Extract starting and ending time and move them to prefix
- (when (or (setq stamp (string-match org-stamp-time-of-day-regexp ts))
- (setq plain (string-match org-plain-time-of-day-regexp ts)))
- (setq s0 (match-string 0 ts)
- srp (and stamp (match-end 3))
- s1 (match-string (if plain 1 2) ts)
- s2 (match-string (if plain 8 (if srp 4 6)) ts))
-
- ;; If the times are in TXT (not in DOTIMES), and the prefix will list
- ;; them, we might want to remove them there to avoid duplication.
- ;; The user can turn this off with a variable.
- (if (and org-prefix-has-time
- org-agenda-remove-times-when-in-prefix (or stamp plain)
- (string-match (concat (regexp-quote s0) " *") txt)
- (not (equal ?\] (string-to-char (substring txt (match-end 0)))))
- (if (eq org-agenda-remove-times-when-in-prefix 'beg)
- (= (match-beginning 0) 0)
- t))
- (setq txt (replace-match "" nil nil txt))))
- ;; Normalize the time(s) to 24 hour
- (if s1 (setq s1 (org-get-time-of-day s1 'string t)))
- (if s2 (setq s2 (org-get-time-of-day s2 'string t)))
-
- ;; Try to set s2 if s1 and
- ;; `org-agenda-default-appointment-duration' are set
- (when (and s1 (not s2) org-agenda-default-appointment-duration)
- (setq s2
- (org-duration-from-minutes
- (+ (org-duration-to-minutes s1 t)
- org-agenda-default-appointment-duration)
- nil t)))
-
- ;; Compute the duration
- (when s2
- (setq duration (- (org-duration-to-minutes s2)
- (org-duration-to-minutes s1)))))
-
- (when (string-match "\\([ \t]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$" txt)
- ;; Tags are in the string
- (if (or (eq org-agenda-remove-tags t)
- (and org-agenda-remove-tags
- org-prefix-has-tag))
- (setq txt (replace-match "" t t txt))
- (setq txt (replace-match
- (concat (make-string (max (- 50 (length txt)) 1) ?\ )
- (match-string 2 txt))
- t t txt))))
-
- (when remove-re
- (while (string-match remove-re txt)
- (setq txt (replace-match "" t t txt))))
-
- ;; Set org-heading property on `txt' to mark the start of the
- ;; heading.
- (add-text-properties 0 (length txt) '(org-heading t) txt)
-
- ;; Prepare the variables needed in the eval of the compiled format
- (if org-prefix-has-breadcrumbs
- (setq breadcrumbs (org-with-point-at (org-get-at-bol 'org-marker)
- (let ((s (org-display-outline-path nil nil "->" t)))
- (if (eq "" s) "" (concat s "->"))))))
- (setq time (cond (s2 (concat
- (org-agenda-time-of-day-to-ampm-maybe s1)
- "-" (org-agenda-time-of-day-to-ampm-maybe s2)
- (if org-agenda-timegrid-use-ampm " ")))
- (s1 (concat
- (org-agenda-time-of-day-to-ampm-maybe s1)
- (if org-agenda-timegrid-use-ampm
- (concat time-grid-trailing-characters " ")
- time-grid-trailing-characters)))
- (t ""))
- extra (or (and (not habitp) extra) "")
- category (if (symbolp category) (symbol-name category) category)
- level (or level ""))
- (if (string-match org-bracket-link-regexp category)
- (progn
- (setq l (if (match-end 3)
- (- (match-end 3) (match-beginning 3))
- (- (match-end 1) (match-beginning 1))))
- (when (< l (or org-prefix-category-length 0))
- (setq category (copy-sequence category))
- (org-add-props category nil
- 'extra-space (make-string
- (- org-prefix-category-length l 1) ?\ ))))
- (if (and org-prefix-category-max-length
- (>= (length category) org-prefix-category-max-length))
- (setq category (substring category 0 (1- org-prefix-category-max-length)))))
- ;; Evaluate the compiled format
- (setq rtn (concat (eval formatter) txt))
-
- ;; And finally add the text properties
- (remove-text-properties 0 (length rtn) '(line-prefix t wrap-prefix t) rtn)
- (org-add-props rtn nil
- 'org-category category
- 'tags (mapcar 'org-downcase-keep-props tags)
- 'org-highest-priority org-highest-priority
- 'org-lowest-priority org-lowest-priority
- 'time-of-day time-of-day
- 'duration duration
- 'breadcrumbs breadcrumbs
- 'txt txt
- 'level level
- 'time time
- 'extra extra
- 'format org-prefix-format-compiled
- 'dotime dotime)))))
-
-(defun org-agenda-fix-displayed-tags (txt tags add-inherited hide-re)
- "Remove tags string from TXT, and add a modified list of tags.
-The modified list may contain inherited tags, and tags matched by
-`org-agenda-hide-tags-regexp' will be removed."
- (when (or add-inherited hide-re)
- (if (string-match "\\([ \t]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$" txt)
- (setq txt (substring txt 0 (match-beginning 0))))
- (setq tags
- (delq nil
- (mapcar (lambda (tg)
- (if (or (and hide-re (string-match hide-re tg))
- (and (not add-inherited)
- (get-text-property 0 'inherited tg)))
- nil
- tg))
- tags)))
- (when tags
- (let ((have-i (get-text-property 0 'inherited (car tags)))
- i)
- (setq txt (concat txt " :"
- (mapconcat
- (lambda (x)
- (setq i (get-text-property 0 'inherited x))
- (if (and have-i (not i))
- (progn
- (setq have-i nil)
- (concat ":" x))
- x))
- tags ":")
- (if have-i "::" ":"))))))
- txt)
-
-(defun org-downcase-keep-props (s)
- (let ((props (text-properties-at 0 s)))
- (setq s (downcase s))
- (add-text-properties 0 (length s) props s)
- s))
-
-(defvar org-agenda-sorting-strategy) ;; because the def is in a let form
-
-(defun org-agenda-add-time-grid-maybe (list ndays todayp)
- "Add a time-grid for agenda items which need it.
-
-LIST is the list of agenda items formatted by `org-agenda-list'.
-NDAYS is the span of the current agenda view.
-TODAYP is t when the current agenda view is on today."
- (catch 'exit
- (cond ((not org-agenda-use-time-grid) (throw 'exit list))
- ((and todayp (member 'today (car org-agenda-time-grid))))
- ((and (= ndays 1) (member 'daily (car org-agenda-time-grid))))
- ((member 'weekly (car org-agenda-time-grid)))
- (t (throw 'exit list)))
- (let* ((have (delq nil (mapcar
- (lambda (x) (get-text-property 1 'time-of-day x))
- list)))
- (string (nth 3 org-agenda-time-grid))
- (gridtimes (nth 1 org-agenda-time-grid))
- (req (car org-agenda-time-grid))
- (remove (member 'remove-match req))
- new time)
- (if (and (member 'require-timed req) (not have))
- ;; don't show empty grid
- (throw 'exit list))
- (while (setq time (pop gridtimes))
- (unless (and remove (member time have))
- (setq time (replace-regexp-in-string " " "0" (format "%04s" time)))
- (push (org-agenda-format-item
- nil string nil "" nil
- (concat (substring time 0 -2) ":" (substring time -2)))
- new)
- (put-text-property
- 2 (length (car new)) 'face 'org-time-grid (car new))))
- (when (and todayp org-agenda-show-current-time-in-grid)
- (push (org-agenda-format-item
- nil org-agenda-current-time-string nil "" nil
- (format-time-string "%H:%M "))
- new)
- (put-text-property
- 2 (length (car new)) 'face 'org-agenda-current-time (car new)))
-
- (if (member 'time-up org-agenda-sorting-strategy-selected)
- (append new list)
- (append list new)))))
-
-(defun org-compile-prefix-format (key)
- "Compile the prefix format into a Lisp form that can be evaluated.
-The resulting form and associated variable bindings is returned
-and stored in the variable `org-prefix-format-compiled'."
- (setq org-prefix-has-time nil
- org-prefix-has-tag nil
- org-prefix-category-length nil
- org-prefix-has-effort nil
- org-prefix-has-breadcrumbs nil)
- (let ((s (cond
- ((stringp org-agenda-prefix-format)
- org-agenda-prefix-format)
- ((assq key org-agenda-prefix-format)
- (cdr (assq key org-agenda-prefix-format)))
- (t " %-12:c%?-12t% s")))
- (start 0)
- varform vars var e c f opt)
- (while (string-match "%\\(\\?\\)?\\([-+]?[0-9.]*\\)\\([ .;,:!?=|/<>]?\\)\\([cltseib]\\|(.+)\\)"
- s start)
- (setq var (or (cdr (assoc (match-string 4 s)
- '(("c" . category) ("t" . time) ("l" . level) ("s" . extra)
- ("i" . category-icon) ("T" . tag) ("e" . effort) ("b" . breadcrumbs))))
- 'eval)
- c (or (match-string 3 s) "")
- opt (match-beginning 1)
- start (1+ (match-beginning 0)))
- (if (eq var 'time) (setq org-prefix-has-time t))
- (if (eq var 'tag) (setq org-prefix-has-tag t))
- (if (eq var 'effort) (setq org-prefix-has-effort t))
- (if (eq var 'breadcrumbs) (setq org-prefix-has-breadcrumbs t))
- (setq f (concat "%" (match-string 2 s) "s"))
- (when (eq var 'category)
- (setq org-prefix-category-length
- (floor (abs (string-to-number (match-string 2 s)))))
- (setq org-prefix-category-max-length
- (let ((x (match-string 2 s)))
- (save-match-data
- (if (string-match "\\.[0-9]+" x)
- (string-to-number (substring (match-string 0 x) 1)))))))
- (if (eq var 'eval)
- (setq varform `(format ,f (org-eval ,(read (match-string 4 s)))))
- (if opt
- (setq varform
- `(if (or (equal "" ,var) (equal nil ,var))
- ""
- (format ,f (concat ,var ,c))))
- (setq varform
- `(format ,f (if (or (equal ,var "")
- (equal ,var nil)) ""
- (concat ,var ,c (get-text-property 0 'extra-space ,var)))))))
- (setq s (replace-match "%s" t nil s))
- (push varform vars))
- (setq vars (nreverse vars))
- (with-current-buffer (or org-agenda-buffer (current-buffer))
- (setq org-prefix-format-compiled
- (list
- `((org-prefix-has-time ,org-prefix-has-time)
- (org-prefix-has-tag ,org-prefix-has-tag)
- (org-prefix-category-length ,org-prefix-category-length)
- (org-prefix-has-effort ,org-prefix-has-effort)
- (org-prefix-has-breadcrumbs ,org-prefix-has-breadcrumbs))
- `(format ,s ,@vars))))))
-
-(defun org-set-sorting-strategy (key)
- (if (symbolp (car org-agenda-sorting-strategy))
- ;; the old format
- (setq org-agenda-sorting-strategy-selected org-agenda-sorting-strategy)
- (setq org-agenda-sorting-strategy-selected
- (or (cdr (assq key org-agenda-sorting-strategy))
- (cdr (assq 'agenda org-agenda-sorting-strategy))
- '(time-up category-keep priority-down)))))
-
-(defun org-get-time-of-day (s &optional string mod24)
- "Check string S for a time of day.
-If found, return it as a military time number between 0 and 2400.
-If not found, return nil.
-The optional STRING argument forces conversion into a 5 character wide string
-HH:MM."
- (save-match-data
- (when
- (and
- (or (string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)?\\> *" s)
- (string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\)\\> *" s))
- (not (eq (get-text-property 1 'face s) 'org-link)))
- (let* ((h (string-to-number (match-string 1 s)))
- (m (if (match-end 3) (string-to-number (match-string 3 s)) 0))
- (ampm (if (match-end 4) (downcase (match-string 4 s))))
- (am-p (equal ampm "am"))
- (h1 (cond ((not ampm) h)
- ((= h 12) (if am-p 0 12))
- (t (+ h (if am-p 0 12)))))
- (h2 (if (and string mod24 (not (and (= m 0) (= h1 24))))
- (mod h1 24) h1))
- (t0 (+ (* 100 h2) m))
- (t1 (concat (if (>= h1 24) "+" " ")
- (if (and org-agenda-time-leading-zero
- (< t0 1000)) "0" "")
- (if (< t0 100) "0" "")
- (if (< t0 10) "0" "")
- (int-to-string t0))))
- (if string (concat (substring t1 -4 -2) ":" (substring t1 -2)) t0)))))
-
-(defvar org-agenda-before-sorting-filter-function nil
- "Function to be applied to agenda items prior to sorting.
-Prior to sorting also means just before they are inserted into the agenda.
-
-To aid sorting, you may revisit the original entries and add more text
-properties which will later be used by the sorting functions.
-
-The function should take a string argument, an agenda line.
-It has access to the text properties in that line, which contain among
-other things, the property `org-hd-marker' that points to the entry
-where the line comes from. Note that not all lines going into the agenda
-have this property, only most.
-
-The function should return the modified string. It is probably best
-to ONLY change text properties.
-
-You can also use this function as a filter, by returning nil for lines
-you don't want to have in the agenda at all. For this application, you
-could bind the variable in the options section of a custom command.")
-
-(defun org-agenda-finalize-entries (list &optional type)
- "Sort, limit and concatenate the LIST of agenda items.
-The optional argument TYPE tells the agenda type."
- (let ((max-effort (cond ((listp org-agenda-max-effort)
- (cdr (assoc type org-agenda-max-effort)))
- (t org-agenda-max-effort)))
- (max-todo (cond ((listp org-agenda-max-todos)
- (cdr (assoc type org-agenda-max-todos)))
- (t org-agenda-max-todos)))
- (max-tags (cond ((listp org-agenda-max-tags)
- (cdr (assoc type org-agenda-max-tags)))
- (t org-agenda-max-tags)))
- (max-entries (cond ((listp org-agenda-max-entries)
- (cdr (assoc type org-agenda-max-entries)))
- (t org-agenda-max-entries))))
- (when org-agenda-before-sorting-filter-function
- (setq list
- (delq nil
- (mapcar
- org-agenda-before-sorting-filter-function list))))
- (setq list (mapcar 'org-agenda-highlight-todo list)
- list (mapcar 'identity (sort list 'org-entries-lessp)))
- (when max-effort
- (setq list (org-agenda-limit-entries
- list 'effort-minutes max-effort
- (lambda (e) (or e (if org-sort-agenda-noeffort-is-high
- 32767 -1))))))
- (when max-todo
- (setq list (org-agenda-limit-entries list 'todo-state max-todo)))
- (when max-tags
- (setq list (org-agenda-limit-entries list 'tags max-tags)))
- (when max-entries
- (setq list (org-agenda-limit-entries list 'org-hd-marker max-entries)))
- (when (and org-agenda-dim-blocked-tasks org-blocker-hook)
- (setq list (mapcar #'org-agenda--mark-blocked-entry list)))
- (mapconcat 'identity list "\n")))
-
-(defun org-agenda-limit-entries (list prop limit &optional fn)
- "Limit the number of agenda entries."
- (let ((include (and limit (< limit 0))))
- (if limit
- (let ((fun (or fn (lambda (p) (if p 1))))
- (lim 0))
- (delq nil
- (mapcar
- (lambda (e)
- (let ((pval (funcall
- fun (get-text-property (1- (length e))
- prop e))))
- (if pval (setq lim (+ lim pval)))
- (cond ((and pval (<= lim (abs limit))) e)
- ((and include (not pval)) e))))
- list)))
- list)))
-
-(defun org-agenda-limit-interactively (remove)
- "In agenda, interactively limit entries to various maximums."
- (interactive "P")
- (if remove
- (progn (setq org-agenda-max-entries nil
- org-agenda-max-todos nil
- org-agenda-max-tags nil
- org-agenda-max-effort nil)
- (org-agenda-redo))
- (let* ((max (read-char "Number of [e]ntries [t]odos [T]ags [E]ffort? "))
- (msg (cond ((= max ?E) "How many minutes? ")
- ((= max ?e) "How many entries? ")
- ((= max ?t) "How many TODO entries? ")
- ((= max ?T) "How many tagged entries? ")
- (t (user-error "Wrong input"))))
- (num (string-to-number (read-from-minibuffer msg))))
- (cond ((equal max ?e)
- (let ((org-agenda-max-entries num)) (org-agenda-redo)))
- ((equal max ?t)
- (let ((org-agenda-max-todos num)) (org-agenda-redo)))
- ((equal max ?T)
- (let ((org-agenda-max-tags num)) (org-agenda-redo)))
- ((equal max ?E)
- (let ((org-agenda-max-effort num)) (org-agenda-redo))))))
- (org-agenda-fit-window-to-buffer))
-
-(defun org-agenda-highlight-todo (x)
- (let ((org-done-keywords org-done-keywords-for-agenda)
- (case-fold-search nil)
- re)
- (if (eq x 'line)
- (save-excursion
- (beginning-of-line 1)
- (setq re (org-get-at-bol 'org-todo-regexp))
- (goto-char (or (text-property-any (point-at-bol) (point-at-eol) 'org-heading t) (point)))
- (when (looking-at (concat "[ \t]*\\.*\\(" re "\\) +"))
- (add-text-properties (match-beginning 0) (match-end 1)
- (list 'face (org-get-todo-face 1)))
- (let ((s (buffer-substring (match-beginning 1) (match-end 1))))
- (delete-region (match-beginning 1) (1- (match-end 0)))
- (goto-char (match-beginning 1))
- (insert (format org-agenda-todo-keyword-format s)))))
- (let ((pl (text-property-any 0 (length x) 'org-heading t x)))
- (setq re (get-text-property 0 'org-todo-regexp x))
- (when (and re
- ;; Test `pl' because if there's no heading content,
- ;; there's no point matching to highlight. Note
- ;; that if we didn't test `pl' first, and there
- ;; happened to be no keyword from `org-todo-regexp'
- ;; on this heading line, then the `equal' comparison
- ;; afterwards would spuriously succeed in the case
- ;; where `pl' is nil -- causing an args-out-of-range
- ;; error when we try to add text properties to text
- ;; that isn't there.
- pl
- (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)")
- x pl) pl))
- (add-text-properties
- (or (match-end 1) (match-end 0)) (match-end 0)
- (list 'face (org-get-todo-face (match-string 2 x)))
- x)
- (when (match-end 1)
- (setq x
- (concat
- (substring x 0 (match-end 1))
- (format org-agenda-todo-keyword-format
- (match-string 2 x))
- ;; Remove `display' property as the icon could leak
- ;; on the white space.
- (org-add-props " " (org-plist-delete (text-properties-at 0 x)
- 'display))
- (substring x (match-end 3)))))))
- x)))
-
-(defsubst org-cmp-values (a b property)
- "Compare the numeric value of text PROPERTY for string A and B."
- (let ((pa (or (get-text-property (1- (length a)) property a) 0))
- (pb (or (get-text-property (1- (length b)) property b) 0)))
- (cond ((> pa pb) +1)
- ((< pa pb) -1))))
-
-(defsubst org-cmp-effort (a b)
- "Compare the effort values of string A and B."
- (let* ((def (if org-sort-agenda-noeffort-is-high 32767 -1))
- ;; `effort-minutes' property is not directly accessible from
- ;; the strings, but is stored as a property in `txt'.
- (ea (or (get-text-property
- 0 'effort-minutes (get-text-property 0 'txt a))
- def))
- (eb (or (get-text-property
- 0 'effort-minutes (get-text-property 0 'txt b))
- def)))
- (cond ((> ea eb) +1)
- ((< ea eb) -1))))
-
-(defsubst org-cmp-category (a b)
- "Compare the string values of categories of strings A and B."
- (let ((ca (or (get-text-property (1- (length a)) 'org-category a) ""))
- (cb (or (get-text-property (1- (length b)) 'org-category b) "")))
- (cond ((string-lessp ca cb) -1)
- ((string-lessp cb ca) +1))))
-
-(defsubst org-cmp-todo-state (a b)
- "Compare the todo states of strings A and B."
- (let* ((ma (or (get-text-property 1 'org-marker a)
- (get-text-property 1 'org-hd-marker a)))
- (mb (or (get-text-property 1 'org-marker b)
- (get-text-property 1 'org-hd-marker b)))
- (fa (and ma (marker-buffer ma)))
- (fb (and mb (marker-buffer mb)))
- (todo-kwds
- (or (and fa (with-current-buffer fa org-todo-keywords-1))
- (and fb (with-current-buffer fb org-todo-keywords-1))))
- (ta (or (get-text-property 1 'todo-state a) ""))
- (tb (or (get-text-property 1 'todo-state b) ""))
- (la (- (length (member ta todo-kwds))))
- (lb (- (length (member tb todo-kwds))))
- (donepa (member ta org-done-keywords-for-agenda))
- (donepb (member tb org-done-keywords-for-agenda)))
- (cond ((and donepa (not donepb)) -1)
- ((and (not donepa) donepb) +1)
- ((< la lb) -1)
- ((< lb la) +1))))
-
-(defsubst org-cmp-alpha (a b)
- "Compare the headlines, alphabetically."
- (let* ((pla (text-property-any 0 (length a) 'org-heading t a))
- (plb (text-property-any 0 (length b) 'org-heading t b))
- (ta (and pla (substring a pla)))
- (tb (and plb (substring b plb)))
- (case-fold-search nil))
- (when pla
- (if (string-match (concat "\\`[ \t]*" (or (get-text-property 0 'org-todo-regexp a) "")
- "\\([ \t]*\\[[a-zA-Z0-9]\\]\\)? *") ta)
- (setq ta (substring ta (match-end 0))))
- (setq ta (downcase ta)))
- (when plb
- (if (string-match (concat "\\`[ \t]*" (or (get-text-property 0 'org-todo-regexp b) "")
- "\\([ \t]*\\[[a-zA-Z0-9]\\]\\)? *") tb)
- (setq tb (substring tb (match-end 0))))
- (setq tb (downcase tb)))
- (cond ((not ta) +1)
- ((not tb) -1)
- ((string-lessp ta tb) -1)
- ((string-lessp tb ta) +1))))
-
-(defsubst org-cmp-tag (a b)
- "Compare the string values of the first tags of A and B."
- (let ((ta (car (last (get-text-property 1 'tags a))))
- (tb (car (last (get-text-property 1 'tags b)))))
- (cond ((not ta) +1)
- ((not tb) -1)
- ((string-lessp ta tb) -1)
- ((string-lessp tb ta) +1))))
-
-(defsubst org-cmp-time (a b)
- "Compare the time-of-day values of strings A and B."
- (let* ((def (if org-sort-agenda-notime-is-late 9901 -1))
- (ta (or (get-text-property 1 'time-of-day a) def))
- (tb (or (get-text-property 1 'time-of-day b) def)))
- (cond ((< ta tb) -1)
- ((< tb ta) +1))))
-
-(defsubst org-cmp-ts (a b type)
- "Compare the timestamps values of entries A and B.
-When TYPE is \"scheduled\", \"deadline\", \"timestamp\" or
-\"timestamp_ia\", compare within each of these type. When TYPE
-is the empty string, compare all timestamps without respect of
-their type."
- (let* ((def (if org-sort-agenda-notime-is-late most-positive-fixnum -1))
- (ta (or (and (string-match type (or (get-text-property 1 'type a) ""))
- (get-text-property 1 'ts-date a))
- def))
- (tb (or (and (string-match type (or (get-text-property 1 'type b) ""))
- (get-text-property 1 'ts-date b))
- def)))
- (cond ((< ta tb) -1)
- ((< tb ta) +1))))
-
-(defsubst org-cmp-habit-p (a b)
- "Compare the todo states of strings A and B."
- (let ((ha (get-text-property 1 'org-habit-p a))
- (hb (get-text-property 1 'org-habit-p b)))
- (cond ((and ha (not hb)) -1)
- ((and (not ha) hb) +1))))
-
-(defun org-entries-lessp (a b)
- "Predicate for sorting agenda entries."
- ;; The following variables will be used when the form is evaluated.
- ;; So even though the compiler complains, keep them.
- (let* ((ss org-agenda-sorting-strategy-selected)
- (timestamp-up (and (org-em 'timestamp-up 'timestamp-down ss)
- (org-cmp-ts a b "")))
- (timestamp-down (if timestamp-up (- timestamp-up) nil))
- (scheduled-up (and (org-em 'scheduled-up 'scheduled-down ss)
- (org-cmp-ts a b "scheduled")))
- (scheduled-down (if scheduled-up (- scheduled-up) nil))
- (deadline-up (and (org-em 'deadline-up 'deadline-down ss)
- (org-cmp-ts a b "deadline")))
- (deadline-down (if deadline-up (- deadline-up) nil))
- (tsia-up (and (org-em 'tsia-up 'tsia-down ss)
- (org-cmp-ts a b "timestamp_ia")))
- (tsia-down (if tsia-up (- tsia-up) nil))
- (ts-up (and (org-em 'ts-up 'ts-down ss)
- (org-cmp-ts a b "timestamp")))
- (ts-down (if ts-up (- ts-up) nil))
- (time-up (and (org-em 'time-up 'time-down ss)
- (org-cmp-time a b)))
- (time-down (if time-up (- time-up) nil))
- (stats-up (and (org-em 'stats-up 'stats-down ss)
- (org-cmp-values a b 'org-stats)))
- (stats-down (if stats-up (- stats-up) nil))
- (priority-up (and (org-em 'priority-up 'priority-down ss)
- (org-cmp-values a b 'priority)))
- (priority-down (if priority-up (- priority-up) nil))
- (effort-up (and (org-em 'effort-up 'effort-down ss)
- (org-cmp-effort a b)))
- (effort-down (if effort-up (- effort-up) nil))
- (category-up (and (or (org-em 'category-up 'category-down ss)
- (memq 'category-keep ss))
- (org-cmp-category a b)))
- (category-down (if category-up (- category-up) nil))
- (category-keep (if category-up +1 nil))
- (tag-up (and (org-em 'tag-up 'tag-down ss)
- (org-cmp-tag a b)))
- (tag-down (if tag-up (- tag-up) nil))
- (todo-state-up (and (org-em 'todo-state-up 'todo-state-down ss)
- (org-cmp-todo-state a b)))
- (todo-state-down (if todo-state-up (- todo-state-up) nil))
- (habit-up (and (org-em 'habit-up 'habit-down ss)
- (org-cmp-habit-p a b)))
- (habit-down (if habit-up (- habit-up) nil))
- (alpha-up (and (org-em 'alpha-up 'alpha-down ss)
- (org-cmp-alpha a b)))
- (alpha-down (if alpha-up (- alpha-up) nil))
- (need-user-cmp (org-em 'user-defined-up 'user-defined-down ss))
- user-defined-up user-defined-down)
- (if (and need-user-cmp org-agenda-cmp-user-defined
- (functionp org-agenda-cmp-user-defined))
- (setq user-defined-up
- (funcall org-agenda-cmp-user-defined a b)
- user-defined-down (if user-defined-up (- user-defined-up) nil)))
- (cdr (assoc
- (eval (cons 'or org-agenda-sorting-strategy-selected))
- '((-1 . t) (1 . nil) (nil . nil))))))
-
-;;; Agenda restriction lock
-
-(defvar org-agenda-restriction-lock-overlay (make-overlay 1 1)
- "Overlay to mark the headline to which agenda commands are restricted.")
-(overlay-put org-agenda-restriction-lock-overlay
- 'face 'org-agenda-restriction-lock)
-(overlay-put org-agenda-restriction-lock-overlay
- 'help-echo "Agendas are currently limited to this subtree.")
-(delete-overlay org-agenda-restriction-lock-overlay)
-
-(defun org-agenda-set-restriction-lock-from-agenda (arg)
- "Set the restriction lock to the agenda item at point from within the agenda.
-When called with a `\\[universal-argument]' prefix, restrict to
-the file which contains the item.
-Argument ARG is the prefix argument."
- (interactive "P")
- (unless (derived-mode-p 'org-agenda-mode)
- (user-error "Not in an Org agenda buffer"))
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker)))
- (with-current-buffer buffer
- (goto-char pos)
- (org-agenda-set-restriction-lock arg))))
-
-;;;###autoload
-(defun org-agenda-set-restriction-lock (&optional type)
- "Set restriction lock for agenda, to current subtree or file.
-Restriction will be the file if TYPE is `file', or if type is the
-universal prefix \\='(4), or if the cursor is before the first headline
-in the file. Otherwise, restriction will be to the current subtree."
- (interactive "P")
- (org-agenda-remove-restriction-lock 'noupdate)
- (and (equal type '(4)) (setq type 'file))
- (setq type (cond
- (type type)
- ((org-at-heading-p) 'subtree)
- ((condition-case nil (org-back-to-heading t) (error nil))
- 'subtree)
- (t 'file)))
- (if (eq type 'subtree)
- (progn
- (setq org-agenda-restrict (current-buffer))
- (setq org-agenda-overriding-restriction 'subtree)
- (put 'org-agenda-files 'org-restrict
- (list (buffer-file-name (buffer-base-buffer))))
- (org-back-to-heading t)
- (move-overlay org-agenda-restriction-lock-overlay
- (point)
- (if org-agenda-restriction-lock-highlight-subtree
- (save-excursion (org-end-of-subtree t t) (point))
- (point-at-eol)))
- (move-marker org-agenda-restrict-begin (point))
- (move-marker org-agenda-restrict-end
- (save-excursion (org-end-of-subtree t t)))
- (message "Locking agenda restriction to subtree"))
- (put 'org-agenda-files 'org-restrict
- (list (buffer-file-name (buffer-base-buffer))))
- (setq org-agenda-restrict nil)
- (setq org-agenda-overriding-restriction 'file)
- (move-marker org-agenda-restrict-begin nil)
- (move-marker org-agenda-restrict-end nil)
- (message "Locking agenda restriction to file"))
- (setq current-prefix-arg nil)
- (org-agenda-maybe-redo))
-
-(defun org-agenda-remove-restriction-lock (&optional noupdate)
- "Remove the agenda restriction lock."
- (interactive "P")
- (delete-overlay org-agenda-restriction-lock-overlay)
- (delete-overlay org-speedbar-restriction-lock-overlay)
- (setq org-agenda-overriding-restriction nil)
- (setq org-agenda-restrict nil)
- (put 'org-agenda-files 'org-restrict nil)
- (move-marker org-agenda-restrict-begin nil)
- (move-marker org-agenda-restrict-end nil)
- (setq current-prefix-arg nil)
- (message "Agenda restriction lock removed")
- (or noupdate (org-agenda-maybe-redo)))
-
-(defun org-agenda-maybe-redo ()
- "If there is any window showing the agenda view, update it."
- (let ((w (get-buffer-window (or org-agenda-this-buffer-name
- org-agenda-buffer-name)
- t))
- (w0 (selected-window)))
- (when w
- (select-window w)
- (org-agenda-redo)
- (select-window w0)
- (if org-agenda-overriding-restriction
- (message "Agenda view shifted to new %s restriction"
- org-agenda-overriding-restriction)
- (message "Agenda restriction lock removed")))))
-
-;;; Agenda commands
-
-(defun org-agenda-check-type (error &rest types)
- "Check if agenda buffer is of allowed type.
-If ERROR is non-nil, throw an error, otherwise just return nil.
-Allowed types are `agenda' `todo' `tags' `search'."
- (cond ((not org-agenda-type)
- (error "No Org agenda currently displayed"))
- ((memq org-agenda-type types) t)
- (error
- (error "Not allowed in %s-type agenda buffers" org-agenda-type))
- (t nil)))
-
-(defun org-agenda-Quit ()
- "Exit the agenda, killing the agenda buffer.
-Like `org-agenda-quit', but kill the buffer even when
-`org-agenda-sticky' is non-nil."
- (interactive)
- (org-agenda--quit))
-
-(defun org-agenda-quit ()
- "Exit the agenda.
-
-When `org-agenda-sticky' is non-nil, bury the agenda buffer
-instead of killing it.
-
-When `org-agenda-restore-windows-after-quit' is non-nil, restore
-the pre-agenda window configuration.
-
-When column view is active, exit column view instead of the
-agenda."
- (interactive)
- (org-agenda--quit org-agenda-sticky))
-
-(defun org-agenda--quit (&optional bury)
- (if org-agenda-columns-active
- (org-columns-quit)
- (let ((wconf org-agenda-pre-window-conf)
- (buf (current-buffer))
- (org-agenda-last-indirect-window
- (and (eq org-indirect-buffer-display 'other-window)
- org-agenda-last-indirect-buffer
- (get-buffer-window org-agenda-last-indirect-buffer))))
- (cond
- ((eq org-agenda-window-setup 'other-frame)
- (delete-frame))
- ((and org-agenda-restore-windows-after-quit
- wconf)
- ;; Maybe restore the pre-agenda window configuration. Reset
- ;; `org-agenda-pre-window-conf' before running
- ;; `set-window-configuration', which loses the current buffer.
- (setq org-agenda-pre-window-conf nil)
- (set-window-configuration wconf))
- (t
- (when org-agenda-last-indirect-window
- (delete-window org-agenda-last-indirect-window))
- (and (not (eq org-agenda-window-setup 'current-window))
- (not (one-window-p))
- (delete-window))))
- (if bury
- ;; Set the agenda buffer as the current buffer instead of
- ;; passing it as an argument to `bury-buffer' so that
- ;; `bury-buffer' removes it from the window.
- (with-current-buffer buf
- (bury-buffer))
- (kill-buffer buf)
- (setq org-agenda-archives-mode nil
- org-agenda-buffer nil)))))
-
-(defun org-agenda-exit ()
- "Exit the agenda, killing Org buffers loaded by the agenda.
-Like `org-agenda-Quit', but kill any buffers that were created by
-the agenda. Org buffers visited directly by the user will not be
-touched. Also, exit the agenda even if it is in column view."
- (interactive)
- (when org-agenda-columns-active
- (org-columns-quit))
- (org-release-buffers org-agenda-new-buffers)
- (setq org-agenda-new-buffers nil)
- (org-agenda-Quit))
-
-(defun org-agenda-kill-all-agenda-buffers ()
- "Kill all buffers in `org-agenda-mode'.
-This is used when toggling sticky agendas."
- (interactive)
- (let (blist)
- (dolist (buf (buffer-list))
- (when (with-current-buffer buf (eq major-mode 'org-agenda-mode))
- (push buf blist)))
- (mapc 'kill-buffer blist)))
-
-(defun org-agenda-execute (arg)
- "Execute another agenda command, keeping same window.
-So this is just a shortcut for \\<global-map>`\\[org-agenda]', available
-in the agenda."
- (interactive "P")
- (let ((org-agenda-window-setup 'current-window))
- (org-agenda arg)))
-
-(defun org-agenda-redo (&optional all)
- "Rebuild possibly ALL agenda view(s) in the current buffer."
- (interactive "P")
- (let* ((p (or (and (looking-at "\\'") (1- (point))) (point)))
- (cpa (unless (eq all t) current-prefix-arg))
- (org-agenda-doing-sticky-redo org-agenda-sticky)
- (org-agenda-sticky nil)
- (org-agenda-buffer-name (or org-agenda-this-buffer-name
- org-agenda-buffer-name))
- (org-agenda-keep-modes t)
- (tag-filter org-agenda-tag-filter)
- (tag-preset (get 'org-agenda-tag-filter :preset-filter))
- (top-hl-filter org-agenda-top-headline-filter)
- (cat-filter org-agenda-category-filter)
- (cat-preset (get 'org-agenda-category-filter :preset-filter))
- (re-filter org-agenda-regexp-filter)
- (re-preset (get 'org-agenda-regexp-filter :preset-filter))
- (effort-filter org-agenda-effort-filter)
- (effort-preset (get 'org-agenda-effort-filter :preset-filter))
- (org-agenda-tag-filter-while-redo (or tag-filter tag-preset))
- (cols org-agenda-columns-active)
- (line (org-current-line))
- (window-line (- line (org-current-line (window-start))))
- (lprops (get 'org-agenda-redo-command 'org-lprops))
- (redo-cmd (get-text-property p 'org-redo-cmd))
- (last-args (get-text-property p 'org-last-args))
- (org-agenda-overriding-cmd (get-text-property p 'org-series-cmd))
- (org-agenda-overriding-cmd-arguments
- (unless (eq all t)
- (cond ((listp last-args)
- (cons (or cpa (car last-args)) (cdr last-args)))
- ((stringp last-args)
- last-args))))
- (series-redo-cmd (get-text-property p 'org-series-redo-cmd)))
- (put 'org-agenda-tag-filter :preset-filter nil)
- (put 'org-agenda-category-filter :preset-filter nil)
- (put 'org-agenda-regexp-filter :preset-filter nil)
- (put 'org-agenda-effort-filter :preset-filter nil)
- (and cols (org-columns-quit))
- (message "Rebuilding agenda buffer...")
- (if series-redo-cmd
- (eval series-redo-cmd)
- (org-let lprops redo-cmd))
- (setq org-agenda-undo-list nil
- org-agenda-pending-undo-list nil
- org-agenda-tag-filter tag-filter
- org-agenda-category-filter cat-filter
- org-agenda-regexp-filter re-filter
- org-agenda-effort-filter effort-filter
- org-agenda-top-headline-filter top-hl-filter)
- (message "Rebuilding agenda buffer...done")
- (put 'org-agenda-tag-filter :preset-filter tag-preset)
- (put 'org-agenda-category-filter :preset-filter cat-preset)
- (put 'org-agenda-regexp-filter :preset-filter re-preset)
- (put 'org-agenda-effort-filter :preset-filter effort-preset)
- (let ((tag (or tag-filter tag-preset))
- (cat (or cat-filter cat-preset))
- (effort (or effort-filter effort-preset))
- (re (or re-filter re-preset)))
- (when tag (org-agenda-filter-apply tag 'tag t))
- (when cat (org-agenda-filter-apply cat 'category))
- (when effort (org-agenda-filter-apply effort 'effort))
- (when re (org-agenda-filter-apply re 'regexp)))
- (and top-hl-filter (org-agenda-filter-top-headline-apply top-hl-filter))
- (and cols (called-interactively-p 'any) (org-agenda-columns))
- (org-goto-line line)
- (recenter window-line)))
-
-(defun org-agenda-redo-all (&optional exhaustive)
- "Rebuild all agenda views in the current buffer.
-With a prefix argument, do so in all agenda buffers."
- (interactive "P")
- (if exhaustive
- (dolist (buffer (buffer-list))
- (with-current-buffer buffer
- (when (derived-mode-p 'org-agenda-mode)
- (org-agenda-redo t))))
- (org-agenda-redo t)))
-
-(defvar org-global-tags-completion-table nil)
-(defvar org-agenda-filter-form nil)
-(defvar org-agenda-filtered-by-category nil)
-
-(defun org-agenda-filter-by-category (strip)
- "Filter lines in the agenda buffer that have a specific category.
-The category is that of the current line.
-Without prefix argument, keep only the lines of that category.
-With a prefix argument, exclude the lines of that category.
-"
- (interactive "P")
- (if (and org-agenda-filtered-by-category
- org-agenda-category-filter)
- (org-agenda-filter-show-all-cat)
- (let ((cat (org-no-properties (org-get-at-eol 'org-category 1))))
- (cond
- ((and cat strip)
- (org-agenda-filter-apply
- (push (concat "-" cat) org-agenda-category-filter) 'category))
- (cat
- (org-agenda-filter-apply
- (setq org-agenda-category-filter
- (list (concat "+" cat))) 'category))
- (t (error "No category at point"))))))
-
-(defun org-find-top-headline (&optional pos)
- "Find the topmost parent headline and return it.
-POS when non-nil is the marker or buffer position to start the
-search from."
- (save-excursion
- (with-current-buffer (if (markerp pos) (marker-buffer pos) (current-buffer))
- (when pos (goto-char pos))
- ;; Skip up to the topmost parent.
- (while (org-up-heading-safe))
- (ignore-errors (nth 4 (org-heading-components))))))
-
-(defvar org-agenda-filtered-by-top-headline nil)
-(defun org-agenda-filter-by-top-headline (strip)
- "Keep only those lines that are descendants from the same top headline.
-The top headline is that of the current line."
- (interactive "P")
- (if org-agenda-filtered-by-top-headline
- (progn
- (setq org-agenda-filtered-by-top-headline nil
- org-agenda-top-headline-filter nil)
- (org-agenda-filter-show-all-top-filter))
- (let ((toph (org-find-top-headline (org-get-at-bol 'org-hd-marker))))
- (if toph (org-agenda-filter-top-headline-apply toph strip)
- (error "No top-level headline at point")))))
-
-(defvar org-agenda-regexp-filter nil)
-(defun org-agenda-filter-by-regexp (strip)
- "Filter agenda entries by a regular expression.
-Regexp filters are cumulative.
-With no prefix argument, keep entries matching the regexp.
-With one prefix argument, filter out entries matching the regexp.
-With two prefix arguments, remove the regexp filters."
- (interactive "P")
- (if (not (equal strip '(16)))
- (let ((flt (concat (if (equal strip '(4)) "-" "+")
- (read-from-minibuffer
- (if (equal strip '(4))
- "Filter out entries matching regexp: "
- "Narrow to entries matching regexp: ")))))
- (push flt org-agenda-regexp-filter)
- (org-agenda-filter-apply org-agenda-regexp-filter 'regexp))
- (org-agenda-filter-show-all-re)
- (message "Regexp filter removed")))
-
-(defvar org-agenda-effort-filter nil)
-(defun org-agenda-filter-by-effort (strip)
- "Filter agenda entries by effort.
-With no prefix argument, keep entries matching the effort condition.
-With one prefix argument, filter out entries matching the condition.
-With two prefix arguments, remove the effort filters."
- (interactive "P")
- (cond
- ((member strip '(nil 4))
- (let* ((efforts (split-string
- (or (cdr (assoc (concat org-effort-property "_ALL")
- org-global-properties))
- "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")))
- ;; XXX: the following handles only up to 10 different
- ;; effort values.
- (allowed-keys (if (null efforts) nil
- (mapcar (lambda (n) (mod n 10)) ;turn 10 into 0
- (number-sequence 1 (length efforts)))))
- (op nil))
- (while (not (memq op '(?< ?> ?=)))
- (setq op (read-char-exclusive "Effort operator? (> = or <)")))
- ;; Select appropriate duration. Ignore non-digit characters.
- (let ((prompt
- (apply #'format
- (concat "Effort %c "
- (mapconcat (lambda (s) (concat "[%d]" s))
- efforts
- " "))
- op allowed-keys))
- (eff -1))
- (while (not (memq eff allowed-keys))
- (message prompt)
- (setq eff (- (read-char-exclusive) 48)))
- (setq org-agenda-effort-filter
- (list (concat (if strip "-" "+")
- (char-to-string op)
- ;; Numbering is 1 2 3 ... 9 0, but we want
- ;; 0 1 2 ... 8 9.
- (nth (mod (1- eff) 10) efforts)))))
- (org-agenda-filter-apply org-agenda-effort-filter 'effort)))
- (t (org-agenda-filter-show-all-effort)
- (message "Effort filter removed"))))
-
-(defun org-agenda-filter-remove-all ()
- "Remove all filters from the current agenda buffer."
- (interactive)
- (when org-agenda-tag-filter
- (org-agenda-filter-show-all-tag))
- (when org-agenda-category-filter
- (org-agenda-filter-show-all-cat))
- (when org-agenda-regexp-filter
- (org-agenda-filter-show-all-re))
- (when org-agenda-top-headline-filter
- (org-agenda-filter-show-all-top-filter))
- (when org-agenda-effort-filter
- (org-agenda-filter-show-all-effort))
- (org-agenda-finalize))
-
-(defun org-agenda-filter-by-tag (arg &optional char exclude)
- "Keep only those lines in the agenda buffer that have a specific tag.
-
-The tag is selected with its fast selection letter, as configured.
-
-With a `\\[universal-argument]' prefix, exclude the agenda search.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix, filter the literal tag, \
-i.e. don't
-filter on all its group members.
-
-A lisp caller can specify CHAR. EXCLUDE means that the new tag
-should be used to exclude the search - the interactive user can
-also press `-' or `+' to switch between filtering and excluding."
- (interactive "P")
- (let* ((alist org-tag-alist-for-agenda)
- (tag-chars (mapconcat
- (lambda (x) (if (and (not (symbolp (car x)))
- (cdr x))
- (char-to-string (cdr x))
- ""))
- org-tag-alist-for-agenda ""))
- (valid-char-list (append '(?\t ?\r ?/ ?. ?\s ?q)
- (string-to-list tag-chars)))
- (exclude (or exclude (equal arg '(4))))
- (expand (not (equal arg '(16))))
- (inhibit-read-only t)
- (current org-agenda-tag-filter)
- a n tag)
- (unless char
- (while (not (memq char valid-char-list))
- (message
- "%s by tag [%s ]:tag-char, [TAB]:tag, %s[/]:off, [+/-]:filter/exclude%s, [q]:quit"
- (if exclude "Exclude" "Filter")
- tag-chars
- (if org-agenda-auto-exclude-function "[RET], " "")
- (if expand "" ", no grouptag expand"))
- (setq char (read-char-exclusive))
- ;; Excluding or filtering down
- (cond ((eq char ?-) (setq exclude t))
- ((eq char ?+) (setq exclude nil)))))
- (when (eq char ?\t)
- (unless (local-variable-p 'org-global-tags-completion-table (current-buffer))
- (setq-local org-global-tags-completion-table
- (org-global-tags-completion-table)))
- (let ((completion-ignore-case t))
- (setq tag (completing-read
- "Tag: " org-global-tags-completion-table nil t))))
- (cond
- ((eq char ?\r)
- (org-agenda-filter-show-all-tag)
- (when org-agenda-auto-exclude-function
- (setq org-agenda-tag-filter nil)
- (dolist (tag (org-agenda-get-represented-tags))
- (let ((modifier (funcall org-agenda-auto-exclude-function tag)))
- (if modifier
- (push modifier org-agenda-tag-filter))))
- (if (not (null org-agenda-tag-filter))
- (org-agenda-filter-apply org-agenda-tag-filter 'tag expand))))
- ((eq char ?/)
- (org-agenda-filter-show-all-tag)
- (when (get 'org-agenda-tag-filter :preset-filter)
- (org-agenda-filter-apply org-agenda-tag-filter 'tag expand)))
- ((eq char ?.)
- (setq org-agenda-tag-filter
- (mapcar (lambda(tag) (concat "+" tag))
- (org-get-at-bol 'tags)))
- (org-agenda-filter-apply org-agenda-tag-filter 'tag expand))
- ((eq char ?q)) ;If q, abort (even if there is a q-key for a tag...)
- ((or (eq char ?\s)
- (setq a (rassoc char alist))
- (and tag (setq a (cons tag nil))))
- (org-agenda-filter-show-all-tag)
- (setq tag (car a))
- (setq org-agenda-tag-filter
- (cons (concat (if exclude "-" "+") tag)
- current))
- (org-agenda-filter-apply org-agenda-tag-filter 'tag expand))
- (t (error "Invalid tag selection character %c" char)))))
-
-(defun org-agenda-get-represented-tags ()
- "Get a list of all tags currently represented in the agenda."
- (let (p tags)
- (save-excursion
- (goto-char (point-min))
- (while (setq p (next-single-property-change (point) 'tags))
- (goto-char p)
- (mapc (lambda (x) (add-to-list 'tags x))
- (get-text-property (point) 'tags))))
- tags))
-
-
-(defun org-agenda-filter-make-matcher (filter type &optional expand)
- "Create the form that tests a line for agenda filter. Optional
-argument EXPAND can be used for the TYPE tag and will expand the
-tags in the FILTER if any of the tags in FILTER are grouptags."
- (let (f f1)
- (cond
- ;; Tag filter
- ((eq type 'tag)
- (setq filter
- (delete-dups
- (append (get 'org-agenda-tag-filter :preset-filter)
- filter)))
- (dolist (x filter)
- (let ((op (string-to-char x)))
- (if expand (setq x (org-agenda-filter-expand-tags (list x) t))
- (setq x (list x)))
- (setq f1 (org-agenda-filter-make-matcher-tag-exp x op))
- (push f1 f))))
- ;; Category filter
- ((eq type 'category)
- (setq filter
- (delete-dups
- (append (get 'org-agenda-category-filter :preset-filter)
- filter)))
- (dolist (x filter)
- (if (equal "-" (substring x 0 1))
- (setq f1 (list 'not (list 'equal (substring x 1) 'cat)))
- (setq f1 (list 'equal (substring x 1) 'cat)))
- (push f1 f)))
- ;; Regexp filter
- ((eq type 'regexp)
- (setq filter
- (delete-dups
- (append (get 'org-agenda-regexp-filter :preset-filter)
- filter)))
- (dolist (x filter)
- (if (equal "-" (substring x 0 1))
- (setq f1 (list 'not (list 'string-match (substring x 1) 'txt)))
- (setq f1 (list 'string-match (substring x 1) 'txt)))
- (push f1 f)))
- ;; Effort filter
- ((eq type 'effort)
- (setq filter
- (delete-dups
- (append (get 'org-agenda-effort-filter :preset-filter)
- filter)))
- (dolist (x filter)
- (push (org-agenda-filter-effort-form x) f))))
- (cons 'and (nreverse f))))
-
-(defun org-agenda-filter-make-matcher-tag-exp (tags op)
- "Return a form associated to tag-expression TAGS.
-Build a form testing a line for agenda filter for
-tag-expressions. OP is an operator of type CHAR that allows the
-function to set the right switches in the returned form."
- (let (form)
- ;; Any of the expressions can match if OP is +, all must match if
- ;; the operator is -.
- (dolist (x tags (cons (if (eq op ?-) 'and 'or) form))
- (let* ((tag (substring x 1))
- (f (cond
- ((string= "" tag) '(not tags))
- ((and (string-match-p "\\`{" tag) (string-match-p "}\\'" tag))
- ;; TAG is a regexp.
- (list 'org-match-any-p (substring tag 1 -1) 'tags))
- (t (list 'member (downcase tag) 'tags)))))
- (push (if (eq op ?-) (list 'not f) f) form)))))
-
-(defun org-agenda-filter-effort-form (e)
- "Return the form to compare the effort of the current line with what E says.
-E looks like \"+<2:25\"."
- (let (op)
- (setq e (substring e 1))
- (setq op (string-to-char e) e (substring e 1))
- (setq op (cond ((equal op ?<) '<=)
- ((equal op ?>) '>=)
- ((equal op ??) op)
- (t '=)))
- (list 'org-agenda-compare-effort (list 'quote op)
- (org-duration-to-minutes e))))
-
-(defun org-agenda-compare-effort (op value)
- "Compare the effort of the current line with VALUE, using OP.
-If the line does not have an effort defined, return nil."
- ;; `effort-minutes' property cannot be extracted directly from
- ;; current line but is stored as a property in `txt'.
- (let ((effort (get-text-property 0 'effort-minutes (org-get-at-bol 'txt))))
- (funcall op
- (or effort (if org-sort-agenda-noeffort-is-high 32767 -1))
- value)))
-
-(defun org-agenda-filter-expand-tags (filter &optional no-operator)
- "Expand group tags in FILTER for the agenda.
-When NO-OPERATOR is non-nil, do not add the + operator to returned tags."
- (if org-group-tags
- (let ((case-fold-search t) rtn)
- (mapc
- (lambda (f)
- (let (f0 dir)
- (if (string-match "^\\([+-]\\)\\(.+\\)" f)
- (setq dir (match-string 1 f) f0 (match-string 2 f))
- (setq dir (if no-operator "" "+") f0 f))
- (setq rtn (append (mapcar (lambda(f1) (concat dir f1))
- (org-tags-expand f0 t t))
- rtn))))
- filter)
- (reverse rtn))
- filter))
-
-(defun org-agenda-filter-apply (filter type &optional expand)
- "Set FILTER as the new agenda filter and apply it. Optional
-argument EXPAND can be used for the TYPE tag and will expand the
-tags in the FILTER if any of the tags in FILTER are grouptags."
- ;; Deactivate `org-agenda-entry-text-mode' when filtering
- (if org-agenda-entry-text-mode (org-agenda-entry-text-mode))
- (let (tags cat txt)
- (setq org-agenda-filter-form (org-agenda-filter-make-matcher filter type expand))
- ;; Only set `org-agenda-filtered-by-category' to t when a unique
- ;; category is used as the filter:
- (setq org-agenda-filtered-by-category
- (and (eq type 'category)
- (not (equal (substring (car filter) 0 1) "-"))))
- (org-agenda-set-mode-name)
- (save-excursion
- (goto-char (point-min))
- (while (not (eobp))
- (if (org-get-at-bol 'org-marker)
- (progn
- (setq tags (org-get-at-bol 'tags)
- cat (org-get-at-eol 'org-category 1)
- txt (org-get-at-bol 'txt))
- (if (not (eval org-agenda-filter-form))
- (org-agenda-filter-hide-line type))
- (beginning-of-line 2))
- (beginning-of-line 2))))
- (if (get-char-property (point) 'invisible)
- (ignore-errors (org-agenda-previous-line)))))
-
-(defun org-agenda-filter-top-headline-apply (hl &optional negative)
- "Filter by top headline HL."
- (org-agenda-set-mode-name)
- (save-excursion
- (goto-char (point-min))
- (while (not (eobp))
- (let* ((pos (org-get-at-bol 'org-hd-marker))
- (tophl (and pos (org-find-top-headline pos))))
- (if (and tophl (funcall (if negative 'identity 'not)
- (string= hl tophl)))
- (org-agenda-filter-hide-line 'top-headline)))
- (beginning-of-line 2)))
- (if (get-char-property (point) 'invisible)
- (org-agenda-previous-line))
- (setq org-agenda-top-headline-filter hl
- org-agenda-filtered-by-top-headline t))
-
-(defun org-agenda-filter-hide-line (type)
- "Hide lines with TYPE in the agenda buffer."
- (let* ((b (max (point-min) (1- (point-at-bol))))
- (e (point-at-eol)))
- (let ((inhibit-read-only t))
- (add-text-properties
- b e `(invisible org-filtered org-filter-type ,type)))))
-
-(defun org-agenda-remove-filter (type)
- (interactive)
- "Remove filter of type TYPE from the agenda buffer."
- (save-excursion
- (goto-char (point-min))
- (let ((inhibit-read-only t) pos)
- (while (setq pos (text-property-any (point) (point-max) 'org-filter-type type))
- (goto-char pos)
- (remove-text-properties
- (point) (next-single-property-change (point) 'org-filter-type)
- `(invisible org-filtered org-filter-type ,type))))
- (set (intern (format "org-agenda-%s-filter" (intern-soft type))) nil)
- (setq org-agenda-filter-form nil)
- (org-agenda-set-mode-name)
- (org-agenda-finalize)))
-
-(defun org-agenda-filter-show-all-tag nil
- (org-agenda-remove-filter 'tag))
-(defun org-agenda-filter-show-all-re nil
- (org-agenda-remove-filter 'regexp))
-(defun org-agenda-filter-show-all-effort nil
- (org-agenda-remove-filter 'effort))
-(defun org-agenda-filter-show-all-cat nil
- (org-agenda-remove-filter 'category))
-(defun org-agenda-filter-show-all-top-filter nil
- (org-agenda-remove-filter 'top-headline))
-
-(defun org-agenda-manipulate-query-add ()
- "Manipulate the query by adding a search term with positive selection.
-Positive selection means the term must be matched for selection of an entry."
- (interactive)
- (org-agenda-manipulate-query ?\[))
-(defun org-agenda-manipulate-query-subtract ()
- "Manipulate the query by adding a search term with negative selection.
-Negative selection means term must not be matched for selection of an entry."
- (interactive)
- (org-agenda-manipulate-query ?\]))
-(defun org-agenda-manipulate-query-add-re ()
- "Manipulate the query by adding a search regexp with positive selection.
-Positive selection means the regexp must match for selection of an entry."
- (interactive)
- (org-agenda-manipulate-query ?\{))
-(defun org-agenda-manipulate-query-subtract-re ()
- "Manipulate the query by adding a search regexp with negative selection.
-Negative selection means regexp must not match for selection of an entry."
- (interactive)
- (org-agenda-manipulate-query ?\}))
-(defun org-agenda-manipulate-query (char)
- (cond
- ((eq org-agenda-type 'agenda)
- (let ((org-agenda-include-inactive-timestamps t))
- (org-agenda-redo))
- (message "Display now includes inactive timestamps as well"))
- ((eq org-agenda-type 'search)
- (org-add-to-string
- 'org-agenda-query-string
- (if org-agenda-last-search-view-search-was-boolean
- (cdr (assoc char '((?\[ . " +") (?\] . " -")
- (?\{ . " +{}") (?\} . " -{}"))))
- " "))
- (setq org-agenda-redo-command
- (list 'org-search-view
- (car (get-text-property (min (1- (point-max)) (point))
- 'org-last-args))
- org-agenda-query-string
- (+ (length org-agenda-query-string)
- (if (member char '(?\{ ?\})) 0 1))))
- (set-register org-agenda-query-register org-agenda-query-string)
- (let ((org-agenda-overriding-arguments
- (cdr org-agenda-redo-command)))
- (org-agenda-redo)))
- (t (error "Cannot manipulate query for %s-type agenda buffers"
- org-agenda-type))))
-
-(defun org-add-to-string (var string)
- (set var (concat (symbol-value var) string)))
-
-(defun org-agenda-goto-date (span)
- "Jump to DATE in agenda."
- (interactive "P")
- (let* ((org-read-date-prefer-future
- (eval org-agenda-jump-prefer-future))
- (date (org-read-date))
- (day (time-to-days (org-time-string-to-time date)))
- (org-agenda-sticky-orig org-agenda-sticky)
- (org-agenda-buffer-tmp-name (buffer-name))
- (args (get-text-property (min (1- (point-max)) (point)) 'org-last-args))
- (0-arg (or current-prefix-arg (car args)))
- (2-arg (nth 2 args))
- (with-hour-p (nth 4 org-agenda-redo-command))
- (newcmd (list 'org-agenda-list 0-arg date
- (org-agenda-span-to-ndays
- 2-arg (org-time-string-to-absolute date))
- with-hour-p))
- (newargs (cdr newcmd))
- (inhibit-read-only t)
- org-agenda-sticky)
- (if (not (org-agenda-check-type t 'agenda))
- (error "Not available in non-agenda views")
- (add-text-properties (point-min) (point-max)
- `(org-redo-cmd ,newcmd org-last-args ,newargs))
- (org-agenda-redo)
- (goto-char (point-min))
- (while (not (or (= (or (get-text-property (point) 'day) 0) day)
- (save-excursion (move-beginning-of-line 2) (eobp))))
- (move-beginning-of-line 2))
- (setq org-agenda-sticky org-agenda-sticky-orig
- org-agenda-this-buffer-is-sticky org-agenda-sticky))))
-
-(defun org-agenda-goto-today ()
- "Go to today."
- (interactive)
- (org-agenda-check-type t 'agenda)
- (let* ((args (get-text-property (min (1- (point-max)) (point)) 'org-last-args))
- (curspan (nth 2 args))
- (tdpos (text-property-any (point-min) (point-max) 'org-today t)))
- (cond
- (tdpos (goto-char tdpos))
- ((eq org-agenda-type 'agenda)
- (let* ((sd (org-agenda-compute-starting-span
- (org-today) (or curspan org-agenda-span)))
- (org-agenda-overriding-arguments args))
- (setf (nth 1 org-agenda-overriding-arguments) sd)
- (org-agenda-redo)
- (org-agenda-find-same-or-today-or-agenda)))
- (t (error "Cannot find today")))))
-
-(defun org-agenda-find-same-or-today-or-agenda (&optional cnt)
- (goto-char
- (or (and cnt (text-property-any (point-min) (point-max) 'org-day-cnt cnt))
- (text-property-any (point-min) (point-max) 'org-today t)
- (text-property-any (point-min) (point-max) 'org-agenda-type 'agenda)
- (and (get-text-property (min (1- (point-max)) (point)) 'org-series)
- (org-agenda-backward-block))
- (point-min))))
-
-(defun org-agenda-backward-block ()
- "Move backward by one agenda block."
- (interactive)
- (org-agenda-forward-block 'backward))
-
-(defun org-agenda-forward-block (&optional backward)
- "Move forward by one agenda block.
-When optional argument BACKWARD is set, go backward"
- (interactive)
- (cond ((not (derived-mode-p 'org-agenda-mode))
- (user-error
- "Cannot execute this command outside of org-agenda-mode buffers"))
- ((looking-at (if backward "\\`" "\\'"))
- (message "Already at the %s block" (if backward "first" "last")))
- (t (let ((pos (prog1 (point)
- (ignore-errors (if backward (backward-char 1)
- (move-end-of-line 1)))))
- (f (if backward
- 'previous-single-property-change
- 'next-single-property-change))
- moved dest)
- (while (and (setq dest (funcall
- f (point) 'org-agenda-structural-header))
- (not (get-text-property
- (point) 'org-agenda-structural-header)))
- (setq moved t)
- (goto-char dest))
- (if moved (move-beginning-of-line 1)
- (goto-char (if backward (point-min) (point-max)))
- (move-beginning-of-line 1)
- (message "No %s block" (if backward "previous" "further")))))))
-
-(defun org-agenda-later (arg)
- "Go forward in time by the current span.
-With prefix ARG, go forward that many times the current span."
- (interactive "p")
- (org-agenda-check-type t 'agenda)
- (let* ((args (get-text-property (min (1- (point-max)) (point)) 'org-last-args))
- (span (or (nth 2 args) org-agenda-current-span))
- (sd (or (nth 1 args) (org-get-at-bol 'day) org-starting-day))
- (greg (calendar-gregorian-from-absolute sd))
- (cnt (org-get-at-bol 'org-day-cnt))
- greg2)
- (cond
- ((numberp span)
- (setq sd (+ (* span arg) sd)))
- ((eq span 'day)
- (setq sd (+ arg sd)))
- ((eq span 'week)
- (setq sd (+ (* 7 arg) sd)))
- ((eq span 'fortnight)
- (setq sd (+ (* 14 arg) sd)))
- ((eq span 'month)
- (setq greg2 (list (+ (car greg) arg) (nth 1 greg) (nth 2 greg))
- sd (calendar-absolute-from-gregorian greg2))
- (setcar greg2 (1+ (car greg2))))
- ((eq span 'year)
- (setq greg2 (list (car greg) (nth 1 greg) (+ arg (nth 2 greg)))
- sd (calendar-absolute-from-gregorian greg2))
- (setcar (nthcdr 2 greg2) (1+ (nth 2 greg2))))
- (t
- (setq sd (+ (* span arg) sd))))
- (let ((org-agenda-overriding-cmd
- ;; `cmd' may have been set by `org-agenda-run-series' which
- ;; uses `org-agenda-overriding-cmd' to decide whether
- ;; overriding is allowed for `cmd'
- (get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
- (org-agenda-overriding-arguments
- (list (car args) sd span)))
- (org-agenda-redo)
- (org-agenda-find-same-or-today-or-agenda cnt))))
-
-(defun org-agenda-earlier (arg)
- "Go backward in time by the current span.
-With prefix ARG, go backward that many times the current span."
- (interactive "p")
- (org-agenda-later (- arg)))
-
-(defun org-agenda-view-mode-dispatch ()
- "Call one of the view mode commands."
- (interactive)
- (message "View: [d]ay [w]eek for[t]night [m]onth [y]ear [SPC]reset [q]uit/abort
- time[G]rid [[]inactive [f]ollow [l]og [L]og-all [c]lockcheck
- [a]rch-trees [A]rch-files clock[R]eport include[D]iary [E]ntryText")
- (pcase (read-char-exclusive)
- (?\ (call-interactively 'org-agenda-reset-view))
- (?d (call-interactively 'org-agenda-day-view))
- (?w (call-interactively 'org-agenda-week-view))
- (?t (call-interactively 'org-agenda-fortnight-view))
- (?m (call-interactively 'org-agenda-month-view))
- (?y (call-interactively 'org-agenda-year-view))
- (?l (call-interactively 'org-agenda-log-mode))
- (?L (org-agenda-log-mode '(4)))
- (?c (org-agenda-log-mode 'clockcheck))
- ((or ?F ?f) (call-interactively 'org-agenda-follow-mode))
- (?a (call-interactively 'org-agenda-archives-mode))
- (?A (org-agenda-archives-mode 'files))
- ((or ?R ?r) (call-interactively 'org-agenda-clockreport-mode))
- ((or ?E ?e) (call-interactively 'org-agenda-entry-text-mode))
- (?G (call-interactively 'org-agenda-toggle-time-grid))
- (?D (call-interactively 'org-agenda-toggle-diary))
- (?\! (call-interactively 'org-agenda-toggle-deadlines))
- (?\[ (let ((org-agenda-include-inactive-timestamps t))
- (org-agenda-check-type t 'agenda)
- (org-agenda-redo))
- (message "Display now includes inactive timestamps as well"))
- (?q (message "Abort"))
- (key (user-error "Invalid key: %s" key))))
-
-(defun org-agenda-reset-view ()
- "Switch to default view for agenda."
- (interactive)
- (org-agenda-change-time-span org-agenda-span))
-
-(defun org-agenda-day-view (&optional day-of-month)
- "Switch to daily view for agenda.
-With argument DAY-OF-MONTH, switch to that day of the month."
- (interactive "P")
- (org-agenda-change-time-span 'day day-of-month))
-
-(defun org-agenda-week-view (&optional iso-week)
- "Switch to weekly view for agenda.
-With argument ISO-WEEK, switch to the corresponding ISO week.
-If ISO-WEEK has more then 2 digits, only the last two encode
-the week. Any digits before this encode a year. So 200712
-means week 12 of year 2007. Years ranging from 70 years ago
-to 30 years in the future can also be written as 2-digit years."
- (interactive "P")
- (org-agenda-change-time-span 'week iso-week))
-
-(defun org-agenda-fortnight-view (&optional iso-week)
- "Switch to fortnightly view for agenda.
-With argument ISO-WEEK, switch to the corresponding ISO week.
-If ISO-WEEK has more then 2 digits, only the last two encode
-the week. Any digits before this encode a year. So 200712
-means week 12 of year 2007. Years ranging from 70 years ago
-to 30 years in the future can also be written as 2-digit years."
- (interactive "P")
- (org-agenda-change-time-span 'fortnight iso-week))
-
-(defun org-agenda-month-view (&optional month)
- "Switch to monthly view for agenda.
-With argument MONTH, switch to that month. If MONTH has more
-then 2 digits, only the last two encode the month. Any digits
-before this encode a year. So 200712 means December year 2007.
-Years ranging from 70 years ago to 30 years in the future can
-also be written as 2-digit years."
- (interactive "P")
- (org-agenda-change-time-span 'month month))
-
-(defun org-agenda-year-view (&optional year)
- "Switch to yearly view for agenda.
-With argument YEAR, switch to that year. Years ranging from 70
-years ago to 30 years in the future can also be written as
-2-digit years."
- (interactive "P")
- (when year
- (setq year (org-small-year-to-year year)))
- (if (y-or-n-p "Are you sure you want to compute the agenda for an entire year? ")
- (org-agenda-change-time-span 'year year)
- (error "Abort")))
-
-(defun org-agenda-change-time-span (span &optional n)
- "Change the agenda view to SPAN.
-SPAN may be `day', `week', `fortnight', `month', `year'."
- (org-agenda-check-type t 'agenda)
- (let* ((args (get-text-property (min (1- (point-max)) (point)) 'org-last-args))
- (curspan (nth 2 args)))
- (if (and (not n) (equal curspan span))
- (error "Viewing span is already \"%s\"" span))
- (let* ((sd (or (org-get-at-bol 'day)
- (nth 1 args)
- org-starting-day))
- (sd (org-agenda-compute-starting-span sd span n))
- (org-agenda-overriding-cmd
- (get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
- (org-agenda-overriding-arguments
- (list (car args) sd span)))
- (org-agenda-redo)
- (org-agenda-find-same-or-today-or-agenda))
- (org-agenda-set-mode-name)
- (message "Switched to %s view" span)))
-
-(defun org-agenda-compute-starting-span (sd span &optional n)
- "Compute starting date for agenda.
-SPAN may be `day', `week', `fortnight', `month', `year'. The return value
-is a cons cell with the starting date and the number of days,
-so that the date SD will be in that range."
- (let* ((greg (calendar-gregorian-from-absolute sd))
- (dg (nth 1 greg))
- (mg (car greg))
- (yg (nth 2 greg)))
- (cond
- ((eq span 'day)
- (when n
- (setq sd (+ (calendar-absolute-from-gregorian
- (list mg 1 yg))
- n -1))))
- ((or (eq span 'week) (eq span 'fortnight))
- (let* ((nt (calendar-day-of-week
- (calendar-gregorian-from-absolute sd)))
- (d (if org-agenda-start-on-weekday
- (- nt org-agenda-start-on-weekday)
- 0))
- y1)
- (setq sd (- sd (+ (if (< d 0) 7 0) d)))
- (when n
- (require 'cal-iso)
- (when (> n 99)
- (setq y1 (org-small-year-to-year (/ n 100))
- n (mod n 100)))
- (setq sd
- (calendar-iso-to-absolute
- (list n 1
- (or y1 (nth 2 (calendar-iso-from-absolute sd)))))))))
- ((eq span 'month)
- (let (y1)
- (when (and n (> n 99))
- (setq y1 (org-small-year-to-year (/ n 100))
- n (mod n 100)))
- (setq sd (calendar-absolute-from-gregorian
- (list (or n mg) 1 (or y1 yg))))))
- ((eq span 'year)
- (setq sd (calendar-absolute-from-gregorian
- (list 1 1 (or n yg))))))
- sd))
-
-(defun org-agenda-next-date-line (&optional arg)
- "Jump to the next line indicating a date in agenda buffer."
- (interactive "p")
- (org-agenda-check-type t 'agenda)
- (beginning-of-line 1)
- ;; This does not work if user makes date format that starts with a blank
- (if (looking-at "^\\S-") (forward-char 1))
- (if (not (re-search-forward "^\\S-" nil t arg))
- (progn
- (backward-char 1)
- (error "No next date after this line in this buffer")))
- (goto-char (match-beginning 0)))
-
-(defun org-agenda-previous-date-line (&optional arg)
- "Jump to the previous line indicating a date in agenda buffer."
- (interactive "p")
- (org-agenda-check-type t 'agenda)
- (beginning-of-line 1)
- (if (not (re-search-backward "^\\S-" nil t arg))
- (error "No previous date before this line in this buffer")))
-
-;; Initialize the highlight
-(defvar org-hl (make-overlay 1 1))
-(overlay-put org-hl 'face 'highlight)
-
-(defun org-highlight (begin end &optional buffer)
- "Highlight a region with overlay."
- (move-overlay org-hl begin end (or buffer (current-buffer))))
-
-(defun org-unhighlight ()
- "Detach overlay INDEX."
- (delete-overlay org-hl))
-
-(defun org-unhighlight-once ()
- "Remove the highlight from its position, and this function from the hook."
- (remove-hook 'pre-command-hook 'org-unhighlight-once)
- (org-unhighlight))
-
-(defvar org-agenda-pre-follow-window-conf nil)
-(defun org-agenda-follow-mode ()
- "Toggle follow mode in an agenda buffer."
- (interactive)
- (unless org-agenda-follow-mode
- (setq org-agenda-pre-follow-window-conf
- (current-window-configuration)))
- (setq org-agenda-follow-mode (not org-agenda-follow-mode))
- (unless org-agenda-follow-mode
- (set-window-configuration org-agenda-pre-follow-window-conf))
- (org-agenda-set-mode-name)
- (org-agenda-do-context-action)
- (message "Follow mode is %s"
- (if org-agenda-follow-mode "on" "off")))
-
-(defun org-agenda-entry-text-mode (&optional arg)
- "Toggle entry text mode in an agenda buffer."
- (interactive "P")
- (if (or org-agenda-tag-filter
- org-agenda-category-filter
- org-agenda-regexp-filter
- org-agenda-top-headline-filter)
- (user-error "Can't show entry text in filtered views")
- (setq org-agenda-entry-text-mode (or (integerp arg)
- (not org-agenda-entry-text-mode)))
- (org-agenda-entry-text-hide)
- (and org-agenda-entry-text-mode
- (let ((org-agenda-entry-text-maxlines
- (if (integerp arg) arg org-agenda-entry-text-maxlines)))
- (org-agenda-entry-text-show)))
- (org-agenda-set-mode-name)
- (message "Entry text mode is %s%s"
- (if org-agenda-entry-text-mode "on" "off")
- (if (not org-agenda-entry-text-mode) ""
- (format " (maximum number of lines is %d)"
- (if (integerp arg) arg org-agenda-entry-text-maxlines))))))
-
-(defun org-agenda-clockreport-mode ()
- "Toggle clocktable mode in an agenda buffer."
- (interactive)
- (org-agenda-check-type t 'agenda)
- (setq org-agenda-clockreport-mode (not org-agenda-clockreport-mode))
- (org-agenda-set-mode-name)
- (org-agenda-redo)
- (message "Clocktable mode is %s"
- (if org-agenda-clockreport-mode "on" "off")))
-
-(defun org-agenda-log-mode (&optional special)
- "Toggle log mode in an agenda buffer.
-
-With argument SPECIAL, show all possible log items, not only the ones
-configured in `org-agenda-log-mode-items'.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix, show *only* \
-log items, nothing else."
- (interactive "P")
- (org-agenda-check-type t 'agenda)
- (setq org-agenda-show-log
- (cond
- ((equal special '(16)) 'only)
- ((eq special 'clockcheck)
- (if (eq org-agenda-show-log 'clockcheck)
- nil 'clockcheck))
- (special '(closed clock state))
- (t (not org-agenda-show-log))))
- (org-agenda-set-mode-name)
- (org-agenda-redo)
- (message "Log mode is %s" (if org-agenda-show-log "on" "off")))
-
-(defun org-agenda-archives-mode (&optional with-files)
- "Toggle inclusion of items in trees marked with :ARCHIVE:.
-When called with a prefix argument, include all archive files as well."
- (interactive "P")
- (setq org-agenda-archives-mode
- (if with-files t (if org-agenda-archives-mode nil 'trees)))
- (org-agenda-set-mode-name)
- (org-agenda-redo)
- (message
- "%s"
- (cond
- ((eq org-agenda-archives-mode nil)
- "No archives are included")
- ((eq org-agenda-archives-mode 'trees)
- (format "Trees with :%s: tag are included" org-archive-tag))
- ((eq org-agenda-archives-mode t)
- (format "Trees with :%s: tag and all active archive files are included"
- org-archive-tag)))))
-
-(defun org-agenda-toggle-diary ()
- "Toggle diary inclusion in an agenda buffer."
- (interactive)
- (org-agenda-check-type t 'agenda)
- (setq org-agenda-include-diary (not org-agenda-include-diary))
- (org-agenda-redo)
- (org-agenda-set-mode-name)
- (message "Diary inclusion turned %s"
- (if org-agenda-include-diary "on" "off")))
-
-(defun org-agenda-toggle-deadlines ()
- "Toggle inclusion of entries with a deadline in an agenda buffer."
- (interactive)
- (org-agenda-check-type t 'agenda)
- (setq org-agenda-include-deadlines (not org-agenda-include-deadlines))
- (org-agenda-redo)
- (org-agenda-set-mode-name)
- (message "Deadlines inclusion turned %s"
- (if org-agenda-include-deadlines "on" "off")))
-
-(defun org-agenda-toggle-time-grid ()
- "Toggle time grid in an agenda buffer."
- (interactive)
- (org-agenda-check-type t 'agenda)
- (setq org-agenda-use-time-grid (not org-agenda-use-time-grid))
- (org-agenda-redo)
- (org-agenda-set-mode-name)
- (message "Time-grid turned %s"
- (if org-agenda-use-time-grid "on" "off")))
-
-(defun org-agenda-set-mode-name ()
- "Set the mode name to indicate all the small mode settings."
- (setq mode-name
- (list "Org-Agenda"
- (if (get 'org-agenda-files 'org-restrict) " []" "")
- " "
- '(:eval (org-agenda-span-name org-agenda-current-span))
- (if org-agenda-follow-mode " Follow" "")
- (if org-agenda-entry-text-mode " ETxt" "")
- (if org-agenda-include-diary " Diary" "")
- (if org-agenda-include-deadlines " Ddl" "")
- (if org-agenda-use-time-grid " Grid" "")
- (if (and (boundp 'org-habit-show-habits)
- org-habit-show-habits) " Habit" "")
- (cond
- ((consp org-agenda-show-log) " LogAll")
- ((eq org-agenda-show-log 'clockcheck) " ClkCk")
- (org-agenda-show-log " Log")
- (t ""))
- (if (or org-agenda-category-filter
- (get 'org-agenda-category-filter :preset-filter))
- '(:eval (propertize
- (concat " <"
- (mapconcat
- 'identity
- (append
- (get 'org-agenda-category-filter :preset-filter)
- org-agenda-category-filter)
- "")
- ">")
- 'face 'org-agenda-filter-category
- 'help-echo "Category used in filtering")) "")
- (if (or org-agenda-tag-filter
- (get 'org-agenda-tag-filter :preset-filter))
- '(:eval (propertize
- (concat " {"
- (mapconcat
- 'identity
- (append
- (get 'org-agenda-tag-filter :preset-filter)
- org-agenda-tag-filter)
- "")
- "}")
- 'face 'org-agenda-filter-tags
- 'help-echo "Tags used in filtering")) "")
- (if (or org-agenda-effort-filter
- (get 'org-agenda-effort-filter :preset-filter))
- '(:eval (propertize
- (concat " {"
- (mapconcat
- 'identity
- (append
- (get 'org-agenda-effort-filter :preset-filter)
- org-agenda-effort-filter)
- "")
- "}")
- 'face 'org-agenda-filter-effort
- 'help-echo "Effort conditions used in filtering")) "")
- (if (or org-agenda-regexp-filter
- (get 'org-agenda-regexp-filter :preset-filter))
- '(:eval (propertize
- (concat " ["
- (mapconcat
- 'identity
- (append
- (get 'org-agenda-regexp-filter :preset-filter)
- org-agenda-regexp-filter)
- "")
- "]")
- 'face 'org-agenda-filter-regexp
- 'help-echo "Regexp used in filtering")) "")
- (if org-agenda-archives-mode
- (if (eq org-agenda-archives-mode t)
- " Archives"
- (format " :%s:" org-archive-tag))
- "")
- (if org-agenda-clockreport-mode " Clock" "")))
- (force-mode-line-update))
-
-(defun org-agenda-update-agenda-type ()
- "Update the agenda type after each command."
- (setq org-agenda-type
- (or (get-text-property (point) 'org-agenda-type)
- (get-text-property (max (point-min) (1- (point))) 'org-agenda-type))))
-
-(defun org-agenda-next-line ()
- "Move cursor to the next line, and show if follow mode is active."
- (interactive)
- (call-interactively 'next-line)
- (org-agenda-do-context-action))
-
-(defun org-agenda-previous-line ()
- "Move cursor to the previous line, and show if follow-mode is active."
- (interactive)
- (call-interactively 'previous-line)
- (org-agenda-do-context-action))
-
-(defun org-agenda-next-item (n)
- "Move cursor to next agenda item."
- (interactive "p")
- (let ((col (current-column)))
- (dotimes (c n)
- (when (next-single-property-change (point-at-eol) 'org-marker)
- (move-end-of-line 1)
- (goto-char (next-single-property-change (point) 'org-marker))))
- (org-move-to-column col))
- (org-agenda-do-context-action))
-
-(defun org-agenda-previous-item (n)
- "Move cursor to next agenda item."
- (interactive "p")
- (dotimes (c n)
- (let ((col (current-column))
- (goto (save-excursion
- (move-end-of-line 0)
- (previous-single-property-change (point) 'org-marker))))
- (if goto (goto-char goto))
- (org-move-to-column col)))
- (org-agenda-do-context-action))
-
-(defun org-agenda-do-context-action ()
- "Show outline path and, maybe, follow mode window."
- (let ((m (org-get-at-bol 'org-marker)))
- (when (and (markerp m) (marker-buffer m))
- (and org-agenda-follow-mode
- (if org-agenda-follow-indirect
- (org-agenda-tree-to-indirect-buffer nil)
- (org-agenda-show)))
- (and org-agenda-show-outline-path
- (org-with-point-at m (org-display-outline-path t))))))
-
-(defun org-agenda-show-tags ()
- "Show the tags applicable to the current item."
- (interactive)
- (let* ((tags (org-get-at-bol 'tags)))
- (if tags
- (message "Tags are :%s:"
- (org-no-properties (mapconcat 'identity tags ":")))
- (message "No tags associated with this line"))))
-
-(defun org-agenda-goto (&optional highlight)
- "Go to the entry at point in the corresponding Org file."
- (interactive)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker)))
- (switch-to-buffer-other-window buffer)
- (widen)
- (push-mark)
- (goto-char pos)
- (when (derived-mode-p 'org-mode)
- (org-show-context 'agenda)
- (recenter (/ (window-height) 2))
- (org-back-to-heading t)
- (let ((case-fold-search nil))
- (when (re-search-forward org-complex-heading-regexp nil t)
- (goto-char (match-beginning 4)))))
- (run-hooks 'org-agenda-after-show-hook)
- (and highlight (org-highlight (point-at-bol) (point-at-eol)))))
-
-(defvar org-agenda-after-show-hook nil
- "Normal hook run after an item has been shown from the agenda.
-Point is in the buffer where the item originated.")
-
-(defun org-agenda-kill ()
- "Kill the entry or subtree belonging to the current agenda entry."
- (interactive)
- (or (eq major-mode 'org-agenda-mode) (error "Not in agenda"))
- (let* ((bufname-orig (buffer-name))
- (marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- (type (org-get-at-bol 'type))
- dbeg dend (n 0) conf)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (save-excursion
- (goto-char pos)
- (if (and (derived-mode-p 'org-mode) (not (member type '("sexp"))))
- (setq dbeg (progn (org-back-to-heading t) (point))
- dend (org-end-of-subtree t t))
- (setq dbeg (point-at-bol)
- dend (min (point-max) (1+ (point-at-eol)))))
- (goto-char dbeg)
- (while (re-search-forward "^[ \t]*\\S-" dend t) (setq n (1+ n)))))
- (setq conf (or (eq t org-agenda-confirm-kill)
- (and (numberp org-agenda-confirm-kill)
- (> n org-agenda-confirm-kill))))
- (and conf
- (not (y-or-n-p
- (format "Delete entry with %d lines in buffer \"%s\"? "
- n (buffer-name buffer))))
- (error "Abort"))
- (let ((org-agenda-buffer-name bufname-orig))
- (org-remove-subtree-entries-from-agenda buffer dbeg dend))
- (with-current-buffer buffer (delete-region dbeg dend))
- (message "Agenda item and source killed"))))
-
-(defvar org-archive-default-command) ; defined in org-archive.el
-(defun org-agenda-archive-default ()
- "Archive the entry or subtree belonging to the current agenda entry."
- (interactive)
- (require 'org-archive)
- (org-agenda-archive-with org-archive-default-command))
-
-(defun org-agenda-archive-default-with-confirmation ()
- "Archive the entry or subtree belonging to the current agenda entry."
- (interactive)
- (require 'org-archive)
- (org-agenda-archive-with org-archive-default-command 'confirm))
-
-(defun org-agenda-archive ()
- "Archive the entry or subtree belonging to the current agenda entry."
- (interactive)
- (org-agenda-archive-with 'org-archive-subtree))
-
-(defun org-agenda-archive-to-archive-sibling ()
- "Move the entry to the archive sibling."
- (interactive)
- (org-agenda-archive-with 'org-archive-to-archive-sibling))
-
-(defun org-agenda-archive-with (cmd &optional confirm)
- "Move the entry to the archive sibling."
- (interactive)
- (or (eq major-mode 'org-agenda-mode) (error "Not in agenda"))
- (let* ((bufname-orig (buffer-name))
- (marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker)))
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (if (derived-mode-p 'org-mode)
- (if (and confirm
- (not (y-or-n-p "Archive this subtree or entry? ")))
- (error "Abort")
- (save-window-excursion
- (goto-char pos)
- (let ((org-agenda-buffer-name bufname-orig))
- (org-remove-subtree-entries-from-agenda))
- (org-back-to-heading t)
- (funcall cmd)))
- (error "Archiving works only in Org files"))))))
-
-(defun org-remove-subtree-entries-from-agenda (&optional buf beg end)
- "Remove all lines in the agenda that correspond to a given subtree.
-The subtree is the one in buffer BUF, starting at BEG and ending at END.
-If this information is not given, the function uses the tree at point."
- (let ((buf (or buf (current-buffer))) m p)
- (save-excursion
- (unless (and beg end)
- (org-back-to-heading t)
- (setq beg (point))
- (org-end-of-subtree t)
- (setq end (point)))
- (set-buffer (get-buffer org-agenda-buffer-name))
- (save-excursion
- (goto-char (point-max))
- (beginning-of-line 1)
- (while (not (bobp))
- (when (and (setq m (org-get-at-bol 'org-marker))
- (equal buf (marker-buffer m))
- (setq p (marker-position m))
- (>= p beg)
- (< p end))
- (let ((inhibit-read-only t))
- (delete-region (point-at-bol) (1+ (point-at-eol)))))
- (beginning-of-line 0))))))
-
-(defun org-agenda-refile (&optional goto rfloc no-update)
- "Refile the item at point.
-
-When called with `\\[universal-argument] \\[universal-argument]', \
-go to the location of the last
-refiled item.
-
-When called with `\\[universal-argument] \\[universal-argument] \
-\\[universal-argument]' prefix or when GOTO is 0, clear
-the refile cache.
-
-RFLOC can be a refile location obtained in a different way.
-
-When NO-UPDATE is non-nil, don't redo the agenda buffer."
- (interactive "P")
- (cond
- ((member goto '(0 (64)))
- (org-refile-cache-clear))
- ((equal goto '(16))
- (org-refile-goto-last-stored))
- (t
- (let* ((buffer-orig (buffer-name))
- (marker (or (org-get-at-bol 'org-hd-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- (rfloc (or rfloc
- (org-refile-get-location
- (if goto "Goto" "Refile to") buffer
- org-refile-allow-creating-parent-nodes))))
- (with-current-buffer buffer
- (org-with-wide-buffer
- (goto-char marker)
- (let ((org-agenda-buffer-name buffer-orig))
- (org-remove-subtree-entries-from-agenda))
- (org-refile goto buffer rfloc))))
- (unless no-update (org-agenda-redo)))))
-
-(defun org-agenda-open-link (&optional arg)
- "Open the link(s) in the current entry, if any.
-This looks for a link in the displayed line in the agenda.
-It also looks at the text of the entry itself."
- (interactive "P")
- (let* ((marker (or (org-get-at-bol 'org-hd-marker)
- (org-get-at-bol 'org-marker)))
- (buffer (and marker (marker-buffer marker)))
- (prefix (buffer-substring (point-at-bol) (point-at-eol)))
- (lkall (and buffer (org-offer-links-in-entry
- buffer marker arg prefix)))
- (lk0 (car lkall))
- (lk (if (stringp lk0) (list lk0) lk0))
- (lkend (cdr lkall))
- trg)
- (cond
- ((and buffer lk)
- (mapcar (lambda(l)
- (with-current-buffer buffer
- (setq trg (and (string-match org-bracket-link-regexp l)
- (match-string 1 l)))
- (if (or (not trg) (string-match org-any-link-re trg))
- (org-with-wide-buffer
- (goto-char marker)
- (when (search-forward l nil lkend)
- (goto-char (match-beginning 0))
- (org-open-at-point)))
- ;; This is an internal link, widen the buffer
- (switch-to-buffer-other-window buffer)
- (widen)
- (goto-char marker)
- (when (search-forward l nil lkend)
- (goto-char (match-beginning 0))
- (org-open-at-point)))))
- lk))
- ((or (org-in-regexp (concat "\\(" org-bracket-link-regexp "\\)"))
- (save-excursion
- (beginning-of-line 1)
- (looking-at (concat ".*?\\(" org-bracket-link-regexp "\\)"))))
- (org-open-link-from-string (match-string 1)))
- (t (message "No link to open here")))))
-
-(defun org-agenda-copy-local-variable (var)
- "Get a variable from a referenced buffer and install it here."
- (let ((m (org-get-at-bol 'org-marker)))
- (when (and m (buffer-live-p (marker-buffer m)))
- (set (make-local-variable var)
- (with-current-buffer (marker-buffer m)
- (symbol-value var))))))
-
-(defun org-agenda-switch-to (&optional delete-other-windows)
- "Go to the Org mode file which contains the item at point.
-When optional argument DELETE-OTHER-WINDOWS is non-nil, the
-displayed Org file fills the frame."
- (interactive)
- (if (and org-return-follows-link
- (not (org-get-at-bol 'org-marker))
- (org-in-regexp org-bracket-link-regexp))
- (org-open-link-from-string (match-string 0))
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker)))
- (unless buffer (user-error "Trying to switch to non-existent buffer"))
- (pop-to-buffer-same-window buffer)
- (when delete-other-windows (delete-other-windows))
- (widen)
- (goto-char pos)
- (when (derived-mode-p 'org-mode)
- (org-show-context 'agenda)
- (run-hooks 'org-agenda-after-show-hook)))))
-
-(defun org-agenda-goto-mouse (ev)
- "Go to the Org file which contains the item at the mouse click."
- (interactive "e")
- (mouse-set-point ev)
- (org-agenda-goto))
-
-(defun org-agenda-show (&optional full-entry)
- "Display the Org file which contains the item at point.
-With prefix argument FULL-ENTRY, make the entire entry visible
-if it was hidden in the outline."
- (interactive "P")
- (let ((win (selected-window)))
- (org-agenda-goto t)
- (when full-entry (org-show-entry))
- (select-window win)))
-
-(defvar org-agenda-show-window nil)
-(defun org-agenda-show-and-scroll-up (&optional arg)
- "Display the Org file which contains the item at point.
-
-When called repeatedly, scroll the window that is displaying the buffer.
-
-With a `\\[universal-argument]' prefix, use `org-show-entry' instead of \
-`outline-show-subtree'
-to display the item, so that drawers and logbooks stay folded."
- (interactive "P")
- (let ((win (selected-window)))
- (if (and (window-live-p org-agenda-show-window)
- (eq this-command last-command))
- (progn
- (select-window org-agenda-show-window)
- (ignore-errors (scroll-up)))
- (org-agenda-goto t)
- (if arg (org-show-entry) (outline-show-subtree))
- (setq org-agenda-show-window (selected-window)))
- (select-window win)))
-
-(defun org-agenda-show-scroll-down ()
- "Scroll down the window showing the agenda."
- (interactive)
- (let ((win (selected-window)))
- (when (window-live-p org-agenda-show-window)
- (select-window org-agenda-show-window)
- (ignore-errors (scroll-down))
- (select-window win))))
-
-(defun org-agenda-show-1 (&optional more)
- "Display the Org file which contains the item at point.
-The prefix arg selects the amount of information to display:
-
-0 hide the subtree
-1 just show the entry according to defaults.
-2 show the children view
-3 show the subtree view
-4 show the entire subtree and any LOGBOOK drawers
-5 show the entire subtree and any drawers
-With prefix argument FULL-ENTRY, make the entire entry visible
-if it was hidden in the outline."
- (interactive "p")
- (let ((win (selected-window)))
- (org-agenda-goto t)
- (org-back-to-heading)
- (set-window-start (selected-window) (point-at-bol))
- (cond
- ((= more 0)
- (outline-hide-subtree)
- (save-excursion
- (org-back-to-heading)
- (run-hook-with-args 'org-cycle-hook 'folded))
- (message "Remote: FOLDED"))
- ((and (called-interactively-p 'any) (= more 1))
- (message "Remote: show with default settings"))
- ((= more 2)
- (outline-show-entry)
- (org-show-children)
- (save-excursion
- (org-back-to-heading)
- (run-hook-with-args 'org-cycle-hook 'children))
- (message "Remote: CHILDREN"))
- ((= more 3)
- (outline-show-subtree)
- (save-excursion
- (org-back-to-heading)
- (run-hook-with-args 'org-cycle-hook 'subtree))
- (message "Remote: SUBTREE"))
- ((= more 4)
- (outline-show-subtree)
- (save-excursion
- (org-back-to-heading)
- (org-cycle-hide-drawers 'subtree '("LOGBOOK")))
- (message "Remote: SUBTREE AND LOGBOOK"))
- ((> more 4)
- (outline-show-subtree)
- (message "Remote: SUBTREE AND ALL DRAWERS")))
- (select-window win)))
-
-(defvar org-agenda-cycle-counter nil)
-(defun org-agenda-cycle-show (&optional n)
- "Show the current entry in another window, with default settings.
-
-Default settings are taken from `org-show-context-detail'. When
-use repeatedly in immediate succession, the remote entry will
-cycle through visibility
-
- children -> subtree -> folded
-
-When called with a numeric prefix arg, that arg will be passed through to
-`org-agenda-show-1'. For the interpretation of that argument, see the
-docstring of `org-agenda-show-1'."
- (interactive "P")
- (if (integerp n)
- (setq org-agenda-cycle-counter n)
- (if (not (eq last-command this-command))
- (setq org-agenda-cycle-counter 1)
- (if (equal org-agenda-cycle-counter 0)
- (setq org-agenda-cycle-counter 2)
- (setq org-agenda-cycle-counter (1+ org-agenda-cycle-counter))
- (if (> org-agenda-cycle-counter 3)
- (setq org-agenda-cycle-counter 0)))))
- (org-agenda-show-1 org-agenda-cycle-counter))
-
-(defun org-agenda-recenter (arg)
- "Display the Org file which contains the item at point and recenter."
- (interactive "P")
- (let ((win (selected-window)))
- (org-agenda-goto t)
- (recenter arg)
- (select-window win)))
-
-(defun org-agenda-show-mouse (ev)
- "Display the Org file which contains the item at the mouse click."
- (interactive "e")
- (mouse-set-point ev)
- (org-agenda-show))
-
-(defun org-agenda-check-no-diary ()
- "Check if the entry is a diary link and abort if yes."
- (if (org-get-at-bol 'org-agenda-diary-link)
- (org-agenda-error)))
-
-(defun org-agenda-error ()
- "Throw an error when a command is not allowed in the agenda."
- (user-error "Command not allowed in this line"))
-
-(defun org-agenda-tree-to-indirect-buffer (arg)
- "Show the subtree corresponding to the current entry in an indirect buffer.
-This calls the command `org-tree-to-indirect-buffer' from the original buffer.
-
-With a numerical prefix ARG, go up to this level and then take that tree.
-With a negative numeric ARG, go up by this number of levels.
-
-With a `\\[universal-argument]' prefix, make a separate frame for this tree, \
-i.e. don't use
-the dedicated frame."
- (interactive "P")
- (if current-prefix-arg
- (org-agenda-do-tree-to-indirect-buffer arg)
- (let ((agenda-buffer (buffer-name))
- (agenda-window (selected-window))
- (indirect-window
- (and org-last-indirect-buffer
- (get-buffer-window org-last-indirect-buffer))))
- (save-window-excursion (org-agenda-do-tree-to-indirect-buffer arg))
- (unless (or (eq org-indirect-buffer-display 'new-frame)
- (eq org-indirect-buffer-display 'dedicated-frame))
- (unwind-protect
- (unless (and indirect-window (window-live-p indirect-window))
- (setq indirect-window (split-window agenda-window)))
- (and indirect-window (select-window indirect-window))
- (switch-to-buffer org-last-indirect-buffer :norecord)
- (fit-window-to-buffer indirect-window)))
- (select-window (get-buffer-window agenda-buffer))
- (setq org-agenda-last-indirect-buffer org-last-indirect-buffer))))
-
-(defun org-agenda-do-tree-to-indirect-buffer (arg)
- "Same as `org-agenda-tree-to-indirect-buffer' without saving window."
- (org-agenda-check-no-diary)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker)))
- (with-current-buffer buffer
- (save-excursion
- (goto-char pos)
- (funcall 'org-tree-to-indirect-buffer arg)))))
-
-(defvar org-last-heading-marker (make-marker)
- "Marker pointing to the headline that last changed its TODO state
-by a remote command from the agenda.")
-
-(defun org-agenda-todo-nextset ()
- "Switch TODO entry to next sequence."
- (interactive)
- (org-agenda-todo 'nextset))
-
-(defun org-agenda-todo-previousset ()
- "Switch TODO entry to previous sequence."
- (interactive)
- (org-agenda-todo 'previousset))
-
-(defun org-agenda-todo (&optional arg)
- "Cycle TODO state of line at point, also in Org file.
-This changes the line at point, all other lines in the agenda referring to
-the same tree node, and the headline of the tree node in the Org file."
- (interactive "P")
- (org-agenda-check-no-diary)
- (let* ((col (current-column))
- (marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- (hdmarker (org-get-at-bol 'org-hd-marker))
- (todayp (org-agenda-today-p (org-get-at-bol 'day)))
- (inhibit-read-only t)
- org-agenda-headline-snapshot-before-repeat newhead just-one)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (let ((current-prefix-arg arg))
- (call-interactively 'org-todo))
- (and (bolp) (forward-char 1))
- (setq newhead (org-get-heading))
- (when (and (bound-and-true-p
- org-agenda-headline-snapshot-before-repeat)
- (not (equal org-agenda-headline-snapshot-before-repeat
- newhead))
- todayp)
- (setq newhead org-agenda-headline-snapshot-before-repeat
- just-one t))
- (save-excursion
- (org-back-to-heading)
- (move-marker org-last-heading-marker (point))))
- (beginning-of-line 1)
- (save-window-excursion
- (org-agenda-change-all-lines newhead hdmarker 'fixface just-one))
- (when (bound-and-true-p org-clock-out-when-done)
- (string-match (concat "^" (regexp-opt org-done-keywords-for-agenda))
- newhead)
- (org-agenda-unmark-clocking-task))
- (org-move-to-column col)
- (org-agenda-mark-clocking-task))))
-
-(defun org-agenda-add-note (&optional arg)
- "Add a time-stamped note to the entry at point."
- (interactive "P")
- (org-agenda-check-no-diary)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- (hdmarker (org-get-at-bol 'org-hd-marker))
- (inhibit-read-only t))
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (org-add-note))))
-
-(defun org-agenda-change-all-lines (newhead hdmarker
- &optional fixface just-this)
- "Change all lines in the agenda buffer which match HDMARKER.
-The new content of the line will be NEWHEAD (as modified by
-`org-agenda-format-item'). HDMARKER is checked with
-`equal' against all `org-hd-marker' text properties in the file.
-If FIXFACE is non-nil, the face of each item is modified according to
-the new TODO state.
-If JUST-THIS is non-nil, change just the current line, not all.
-If FORCE-TAGS is non nil, the car of it returns the new tags."
- (let* ((inhibit-read-only t)
- (line (org-current-line))
- (org-agenda-buffer (current-buffer))
- (thetags (with-current-buffer (marker-buffer hdmarker)
- (org-with-wide-buffer
- (goto-char hdmarker)
- (org-get-tags-at))))
- props m pl undone-face done-face finish new dotime level cat tags)
- (save-excursion
- (goto-char (point-max))
- (beginning-of-line 1)
- (while (not finish)
- (setq finish (bobp))
- (when (and (setq m (org-get-at-bol 'org-hd-marker))
- (or (not just-this) (= (org-current-line) line))
- (equal m hdmarker))
- (setq props (text-properties-at (point))
- dotime (org-get-at-bol 'dotime)
- cat (org-get-at-eol 'org-category 1)
- level (org-get-at-bol 'level)
- tags thetags
- new
- (let ((org-prefix-format-compiled
- (or (get-text-property (min (1- (point-max)) (point)) 'format)
- org-prefix-format-compiled))
- (extra (org-get-at-bol 'extra)))
- (with-current-buffer (marker-buffer hdmarker)
- (org-with-wide-buffer
- (org-agenda-format-item extra newhead level cat tags dotime))))
- pl (text-property-any (point-at-bol) (point-at-eol) 'org-heading t)
- undone-face (org-get-at-bol 'undone-face)
- done-face (org-get-at-bol 'done-face))
- (beginning-of-line 1)
- (cond
- ((equal new "") (delete-region (point) (line-beginning-position 2)))
- ((looking-at ".*")
- ;; When replacing the whole line, preserve bulk mark
- ;; overlay, if any.
- (let ((mark (catch :overlay
- (dolist (o (overlays-in (point) (+ 2 (point))))
- (when (eq (overlay-get o 'type)
- 'org-marked-entry-overlay)
- (throw :overlay o))))))
- (replace-match new t t)
- (beginning-of-line)
- (when mark (move-overlay mark (point) (+ 2 (point)))))
- (add-text-properties (point-at-bol) (point-at-eol) props)
- (when fixface
- (add-text-properties
- (point-at-bol) (point-at-eol)
- (list 'face
- (if org-last-todo-state-is-todo
- undone-face done-face))))
- (org-agenda-highlight-todo 'line)
- (beginning-of-line 1))
- (t (error "Line update did not work")))
- (save-restriction
- (narrow-to-region (point-at-bol) (point-at-eol))
- (org-agenda-finalize)))
- (beginning-of-line 0)))))
-
-(defun org-agenda-align-tags (&optional line)
- "Align all tags in agenda items to `org-agenda-tags-column'."
- (let ((inhibit-read-only t)
- (org-agenda-tags-column (if (eq 'auto org-agenda-tags-column)
- (- (window-text-width))
- org-agenda-tags-column))
- l c)
- (save-excursion
- (goto-char (if line (point-at-bol) (point-min)))
- (while (re-search-forward "\\([ \t]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$"
- (if line (point-at-eol) nil) t)
- (add-text-properties
- (match-beginning 2) (match-end 2)
- (list 'face (delq nil (let ((prop (get-text-property
- (match-beginning 2) 'face)))
- (or (listp prop) (setq prop (list prop)))
- (if (memq 'org-tag prop)
- prop
- (cons 'org-tag prop))))))
- (setq l (- (match-end 2) (match-beginning 2))
- c (if (< org-agenda-tags-column 0)
- (- (abs org-agenda-tags-column) l)
- org-agenda-tags-column))
- (delete-region (match-beginning 1) (match-end 1))
- (goto-char (match-beginning 1))
- (insert (org-add-props
- (make-string (max 1 (- c (current-column))) ?\ )
- (plist-put (copy-sequence (text-properties-at (point)))
- 'face nil))))
- (goto-char (point-min))
- (org-font-lock-add-tag-faces (point-max)))))
-
-(defun org-agenda-priority-up ()
- "Increase the priority of line at point, also in Org file."
- (interactive)
- (org-agenda-priority 'up))
-
-(defun org-agenda-priority-down ()
- "Decrease the priority of line at point, also in Org file."
- (interactive)
- (org-agenda-priority 'down))
-
-(defun org-agenda-priority (&optional force-direction)
- "Set the priority of line at point, also in Org file.
-This changes the line at point, all other lines in the agenda referring to
-the same tree node, and the headline of the tree node in the Org file.
-Called with a universal prefix arg, show the priority instead of setting it."
- (interactive "P")
- (if (equal force-direction '(4))
- (org-show-priority)
- (unless org-enable-priority-commands
- (error "Priority commands are disabled"))
- (org-agenda-check-no-diary)
- (let* ((col (current-column))
- (marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (hdmarker (org-get-at-bol 'org-hd-marker))
- (buffer (marker-buffer hdmarker))
- (pos (marker-position hdmarker))
- (inhibit-read-only t)
- newhead)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (funcall 'org-priority force-direction)
- (end-of-line 1)
- (setq newhead (org-get-heading)))
- (org-agenda-change-all-lines newhead hdmarker)
- (org-move-to-column col)))))
-
-;; FIXME: should fix the tags property of the agenda line.
-(defun org-agenda-set-tags (&optional tag onoff)
- "Set tags for the current headline."
- (interactive)
- (org-agenda-check-no-diary)
- (if (and (org-region-active-p) (called-interactively-p 'any))
- (call-interactively 'org-change-tag-in-region)
- (let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
- (org-agenda-error)))
- (buffer (marker-buffer hdmarker))
- (pos (marker-position hdmarker))
- (inhibit-read-only t)
- newhead)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (if tag
- (org-toggle-tag tag onoff)
- (call-interactively 'org-set-tags))
- (end-of-line 1)
- (setq newhead (org-get-heading)))
- (org-agenda-change-all-lines newhead hdmarker)
- (beginning-of-line 1)))))
-
-(defun org-agenda-set-property ()
- "Set a property for the current headline."
- (interactive)
- (org-agenda-check-no-diary)
- (let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
- (org-agenda-error)))
- (buffer (marker-buffer hdmarker))
- (pos (marker-position hdmarker))
- (inhibit-read-only t)
- newhead)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (call-interactively 'org-set-property)))))
-
-(defun org-agenda-set-effort ()
- "Set the effort property for the current headline."
- (interactive)
- (org-agenda-check-no-diary)
- (let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
- (org-agenda-error)))
- (buffer (marker-buffer hdmarker))
- (pos (marker-position hdmarker))
- (inhibit-read-only t)
- newhead)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (call-interactively 'org-set-effort)
- (end-of-line 1)
- (setq newhead (org-get-heading)))
- (org-agenda-change-all-lines newhead hdmarker))))
-
-(defun org-agenda-toggle-archive-tag ()
- "Toggle the archive tag for the current entry."
- (interactive)
- (org-agenda-check-no-diary)
- (let* ((hdmarker (or (org-get-at-bol 'org-hd-marker)
- (org-agenda-error)))
- (buffer (marker-buffer hdmarker))
- (pos (marker-position hdmarker))
- (inhibit-read-only t)
- newhead)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (call-interactively 'org-toggle-archive-tag)
- (end-of-line 1)
- (setq newhead (org-get-heading)))
- (org-agenda-change-all-lines newhead hdmarker)
- (beginning-of-line 1))))
-
-(defun org-agenda-do-date-later (arg)
- (interactive "P")
- (cond
- ((or (equal arg '(16))
- (memq last-command
- '(org-agenda-date-later-minutes org-agenda-date-earlier-minutes)))
- (setq this-command 'org-agenda-date-later-minutes)
- (org-agenda-date-later-minutes 1))
- ((or (equal arg '(4))
- (memq last-command
- '(org-agenda-date-later-hours org-agenda-date-earlier-hours)))
- (setq this-command 'org-agenda-date-later-hours)
- (org-agenda-date-later-hours 1))
- (t
- (org-agenda-date-later (prefix-numeric-value arg)))))
-
-(defun org-agenda-do-date-earlier (arg)
- (interactive "P")
- (cond
- ((or (equal arg '(16))
- (memq last-command
- '(org-agenda-date-later-minutes org-agenda-date-earlier-minutes)))
- (setq this-command 'org-agenda-date-earlier-minutes)
- (org-agenda-date-earlier-minutes 1))
- ((or (equal arg '(4))
- (memq last-command
- '(org-agenda-date-later-hours org-agenda-date-earlier-hours)))
- (setq this-command 'org-agenda-date-earlier-hours)
- (org-agenda-date-earlier-hours 1))
- (t
- (org-agenda-date-earlier (prefix-numeric-value arg)))))
-
-(defun org-agenda-date-later (arg &optional what)
- "Change the date of this item to ARG day(s) later."
- (interactive "p")
- (org-agenda-check-type t 'agenda)
- (org-agenda-check-no-diary)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- cdate today)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (unless (org-at-timestamp-p 'lax) (error "Cannot find time stamp"))
- (when (and org-agenda-move-date-from-past-immediately-to-today
- (equal arg 1)
- (or (not what) (eq what 'day))
- (not (save-match-data (org-at-date-range-p))))
- (setq cdate (org-parse-time-string (match-string 0) 'nodefault)
- cdate (calendar-absolute-from-gregorian
- (list (nth 4 cdate) (nth 3 cdate) (nth 5 cdate)))
- today (org-today))
- (if (> today cdate)
- ;; immediately shift to today
- (setq arg (- today cdate))))
- (org-timestamp-change arg (or what 'day))
- (when (and (org-at-date-range-p)
- (re-search-backward org-tr-regexp-both (point-at-bol)))
- (let ((end org-last-changed-timestamp))
- (org-timestamp-change arg (or what 'day))
- (setq org-last-changed-timestamp
- (concat org-last-changed-timestamp "--" end)))))
- (org-agenda-show-new-time marker org-last-changed-timestamp))
- (message "Time stamp changed to %s" org-last-changed-timestamp)))
-
-(defun org-agenda-date-earlier (arg &optional what)
- "Change the date of this item to ARG day(s) earlier."
- (interactive "p")
- (org-agenda-date-later (- arg) what))
-
-(defun org-agenda-date-later-minutes (arg)
- "Change the time of this item, in units of `org-time-stamp-rounding-minutes'."
- (interactive "p")
- (setq arg (* arg (cadr org-time-stamp-rounding-minutes)))
- (org-agenda-date-later arg 'minute))
-
-(defun org-agenda-date-earlier-minutes (arg)
- "Change the time of this item, in units of `org-time-stamp-rounding-minutes'."
- (interactive "p")
- (setq arg (* arg (cadr org-time-stamp-rounding-minutes)))
- (org-agenda-date-earlier arg 'minute))
-
-(defun org-agenda-date-later-hours (arg)
- "Change the time of this item, in hour steps."
- (interactive "p")
- (org-agenda-date-later arg 'hour))
-
-(defun org-agenda-date-earlier-hours (arg)
- "Change the time of this item, in hour steps."
- (interactive "p")
- (org-agenda-date-earlier arg 'hour))
-
-(defun org-agenda-show-new-time (marker stamp &optional prefix)
- "Show new date stamp via text properties."
- ;; We use text properties to make this undoable
- (let ((inhibit-read-only t))
- (setq stamp (concat prefix " => " stamp " "))
- (save-excursion
- (goto-char (point-max))
- (while (not (bobp))
- (when (equal marker (org-get-at-bol 'org-marker))
- (remove-text-properties (point-at-bol) (point-at-eol) '(display))
- (org-move-to-column (- (window-width) (length stamp)) t)
- (add-text-properties
- (1- (point)) (point-at-eol)
- (list 'display (org-add-props stamp nil
- 'face '(secondary-selection default))))
- (beginning-of-line 1))
- (beginning-of-line 0)))))
-
-(defun org-agenda-date-prompt (arg)
- "Change the date of this item. Date is prompted for, with default today.
-The prefix ARG is passed to the `org-time-stamp' command and can therefore
-be used to request time specification in the time stamp."
- (interactive "P")
- (org-agenda-check-type t 'agenda)
- (org-agenda-check-no-diary)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker)))
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (unless (org-at-timestamp-p 'lax) (error "Cannot find time stamp"))
- (org-time-stamp arg (equal (char-after (match-beginning 0)) ?\[)))
- (org-agenda-show-new-time marker org-last-changed-timestamp))
- (message "Time stamp changed to %s" org-last-changed-timestamp)))
-
-(defun org-agenda-schedule (arg &optional time)
- "Schedule the item at point.
-ARG is passed through to `org-schedule'."
- (interactive "P")
- (org-agenda-check-type t 'agenda 'todo 'tags 'search)
- (org-agenda-check-no-diary)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (type (marker-insertion-type marker))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- ts)
- (set-marker-insertion-type marker t)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (setq ts (org-schedule arg time)))
- (org-agenda-show-new-time marker ts " S"))
- (message "%s" ts)))
-
-(defun org-agenda-deadline (arg &optional time)
- "Schedule the item at point.
-ARG is passed through to `org-deadline'."
- (interactive "P")
- (org-agenda-check-type t 'agenda 'todo 'tags 'search)
- (org-agenda-check-no-diary)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- ts)
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (setq ts (org-deadline arg time)))
- (org-agenda-show-new-time marker ts " D"))
- (message "%s" ts)))
-
-(defun org-agenda-clock-in (&optional arg)
- "Start the clock on the currently selected item."
- (interactive "P")
- (org-agenda-check-no-diary)
- (if (equal arg '(4))
- (org-clock-in arg)
- (let* ((marker (or (org-get-at-bol 'org-marker)
- (org-agenda-error)))
- (hdmarker (or (org-get-at-bol 'org-hd-marker) marker))
- (pos (marker-position marker))
- (col (current-column))
- newhead)
- (org-with-remote-undo (marker-buffer marker)
- (with-current-buffer (marker-buffer marker)
- (widen)
- (goto-char pos)
- (org-show-context 'agenda)
- (org-cycle-hide-drawers 'children)
- (org-clock-in arg)
- (setq newhead (org-get-heading)))
- (org-agenda-change-all-lines newhead hdmarker))
- (org-move-to-column col))))
-
-(defun org-agenda-clock-out ()
- "Stop the currently running clock."
- (interactive)
- (unless (marker-buffer org-clock-marker)
- (error "No running clock"))
- (let ((marker (make-marker)) (col (current-column)) newhead)
- (org-with-remote-undo (marker-buffer org-clock-marker)
- (with-current-buffer (marker-buffer org-clock-marker)
- (org-with-wide-buffer
- (goto-char org-clock-marker)
- (org-back-to-heading t)
- (move-marker marker (point))
- (org-clock-out)
- (setq newhead (org-get-heading)))))
- (org-agenda-change-all-lines newhead marker)
- (move-marker marker nil)
- (org-move-to-column col)
- (org-agenda-unmark-clocking-task)))
-
-(defun org-agenda-clock-cancel (&optional arg)
- "Cancel the currently running clock."
- (interactive "P")
- (unless (marker-buffer org-clock-marker)
- (user-error "No running clock"))
- (org-with-remote-undo (marker-buffer org-clock-marker)
- (org-clock-cancel)))
-
-(defun org-agenda-clock-goto ()
- "Jump to the currently clocked in task within the agenda.
-If the currently clocked in task is not listed in the agenda
-buffer, display it in another window."
- (interactive)
- (let (pos)
- (mapc (lambda (o)
- (if (eq (overlay-get o 'type) 'org-agenda-clocking)
- (setq pos (overlay-start o))))
- (overlays-in (point-min) (point-max)))
- (cond (pos (goto-char pos))
- ;; If the currently clocked entry is not in the agenda
- ;; buffer, we visit it in another window:
- ((bound-and-true-p org-clock-current-task)
- (org-switch-to-buffer-other-window (org-clock-goto)))
- (t (message "No running clock, use `C-c C-x C-j' to jump to the most recent one")))))
-
-(defun org-agenda-diary-entry-in-org-file ()
- "Make a diary entry in the file `org-agenda-diary-file'."
- (let (d1 d2 char (text "") dp1 dp2)
- (if (equal (buffer-name) "*Calendar*")
- (setq d1 (calendar-cursor-to-date t)
- d2 (car calendar-mark-ring))
- (setq dp1 (get-text-property (point-at-bol) 'day))
- (unless dp1 (user-error "No date defined in current line"))
- (setq d1 (calendar-gregorian-from-absolute dp1)
- d2 (and (ignore-errors (mark))
- (save-excursion
- (goto-char (mark))
- (setq dp2 (get-text-property (point-at-bol) 'day)))
- (calendar-gregorian-from-absolute dp2))))
- (message "Diary entry: [d]ay [a]nniversary [b]lock [j]ump to date tree")
- (setq char (read-char-exclusive))
- (cond
- ((equal char ?d)
- (setq text (read-string "Day entry: "))
- (org-agenda-add-entry-to-org-agenda-diary-file 'day text d1)
- (and (equal (buffer-name) org-agenda-buffer-name) (org-agenda-redo)))
- ((equal char ?a)
- (setq d1 (list (car d1) (nth 1 d1)
- (read-number (format "Reference year [%d]: " (nth 2 d1))
- (nth 2 d1))))
- (setq text (read-string "Anniversary (use %d to show years): "))
- (org-agenda-add-entry-to-org-agenda-diary-file 'anniversary text d1)
- (and (equal (buffer-name) org-agenda-buffer-name) (org-agenda-redo)))
- ((equal char ?b)
- (setq text (read-string "Block entry: "))
- (unless (and d1 d2 (not (equal d1 d2)))
- (user-error "No block of days selected"))
- (org-agenda-add-entry-to-org-agenda-diary-file 'block text d1 d2)
- (and (equal (buffer-name) org-agenda-buffer-name) (org-agenda-redo)))
- ((equal char ?j)
- (org-switch-to-buffer-other-window
- (find-file-noselect org-agenda-diary-file))
- (require 'org-datetree)
- (org-datetree-find-date-create d1)
- (org-reveal t))
- (t (user-error "Invalid selection character `%c'" char)))))
-
-(defcustom org-agenda-insert-diary-strategy 'date-tree
- "Where in `org-agenda-diary-file' should new entries be added?
-Valid values:
-
-date-tree in the date tree, as first child of the date
-date-tree-last in the date tree, as last child of the date
-top-level as top-level entries at the end of the file."
- :group 'org-agenda
- :type '(choice
- (const :tag "first in a date tree" date-tree)
- (const :tag "last in a date tree" date-tree-last)
- (const :tag "as top level at end of file" top-level)))
-
-(defcustom org-agenda-insert-diary-extract-time nil
- "Non-nil means extract any time specification from the diary entry."
- :group 'org-agenda
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-agenda-bulk-mark-char ">"
- "A single-character string to be used as the bulk mark."
- :group 'org-agenda
- :version "24.1"
- :type 'string)
-
-(defun org-agenda-add-entry-to-org-agenda-diary-file (type text &optional d1 d2)
- "Add a diary entry with TYPE to `org-agenda-diary-file'.
-If TEXT is not empty, it will become the headline of the new entry, and
-the resulting entry will not be shown. When TEXT is empty, switch to
-`org-agenda-diary-file' and let the user finish the entry there."
- (let ((cw (current-window-configuration)))
- (org-switch-to-buffer-other-window
- (find-file-noselect org-agenda-diary-file))
- (widen)
- (goto-char (point-min))
- (cond
- ((eq type 'anniversary)
- (or (re-search-forward "^*[ \t]+Anniversaries" nil t)
- (progn
- (or (org-at-heading-p t)
- (progn
- (outline-next-heading)
- (insert "* Anniversaries\n\n")
- (beginning-of-line -1)))))
- (outline-next-heading)
- (org-back-over-empty-lines)
- (backward-char 1)
- (insert "\n")
- (insert (format "%%%%(org-anniversary %d %2d %2d) %s"
- (nth 2 d1) (car d1) (nth 1 d1) text)))
- ((eq type 'day)
- (let ((org-prefix-has-time t)
- (org-agenda-time-leading-zero t)
- fmt time time2)
- (if org-agenda-insert-diary-extract-time
- ;; Use org-agenda-format-item to parse text for a time-range and
- ;; remove it. FIXME: This is a hack, we should refactor
- ;; that function to make time extraction available separately
- (setq fmt (org-agenda-format-item nil text nil nil nil t)
- time (get-text-property 0 'time fmt)
- time2 (if (> (length time) 0)
- ;; split-string removes trailing ...... if
- ;; no end time given. First space
- ;; separates time from date.
- (concat " " (car (split-string time "\\.")))
- nil)
- text (get-text-property 0 'txt fmt)))
- (if (eq org-agenda-insert-diary-strategy 'top-level)
- (org-agenda-insert-diary-as-top-level text)
- (require 'org-datetree)
- (org-datetree-find-date-create d1)
- (org-agenda-insert-diary-make-new-entry text))
- (org-insert-time-stamp (org-time-from-absolute
- (calendar-absolute-from-gregorian d1))
- nil nil nil nil time2))
- (end-of-line 0))
- ((eq type 'block)
- (if (> (calendar-absolute-from-gregorian d1)
- (calendar-absolute-from-gregorian d2))
- (setq d1 (prog1 d2 (setq d2 d1))))
- (if (eq org-agenda-insert-diary-strategy 'top-level)
- (org-agenda-insert-diary-as-top-level text)
- (require 'org-datetree)
- (org-datetree-find-date-create d1)
- (org-agenda-insert-diary-make-new-entry text))
- (org-insert-time-stamp (org-time-from-absolute
- (calendar-absolute-from-gregorian d1)))
- (insert "--")
- (org-insert-time-stamp (org-time-from-absolute
- (calendar-absolute-from-gregorian d2)))
- (end-of-line 0)))
- (if (string-match "\\S-" text)
- (progn
- (set-window-configuration cw)
- (message "%s entry added to %s"
- (capitalize (symbol-name type))
- (abbreviate-file-name org-agenda-diary-file)))
- (org-reveal t)
- (message "Please finish entry here"))))
-
-(defun org-agenda-insert-diary-as-top-level (text)
- "Make new entry as a top-level entry at the end of the file.
-Add TEXT as headline, and position the cursor in the second line so that
-a timestamp can be added there."
- (widen)
- (goto-char (point-max))
- (unless (bolp) (insert "\n"))
- (org-insert-heading nil t t)
- (insert text)
- (org-end-of-meta-data)
- (unless (bolp) (insert "\n"))
- (when org-adapt-indentation (indent-to-column 2)))
-
-(defun org-agenda-insert-diary-make-new-entry (text)
- "Make a new entry with TEXT as a child of the current subtree.
-Position the point in the heading's first body line so that
-a timestamp can be added there."
- (cond
- ((eq org-agenda-insert-diary-strategy 'date-tree-last)
- (end-of-line)
- (org-insert-heading '(4) t)
- (org-do-demote))
- (t
- (outline-next-heading)
- (org-back-over-empty-lines)
- (unless (looking-at "[ \t]*$") (save-excursion (insert "\n")))
- (org-insert-heading nil t)
- (org-do-demote)))
- (let ((col (current-column)))
- (insert text)
- (org-end-of-meta-data)
- ;; Ensure point is left on a blank line, at proper indentation.
- (unless (bolp) (insert "\n"))
- (unless (looking-at-p "^[ \t]*$") (save-excursion (insert "\n")))
- (when org-adapt-indentation (indent-to-column col)))
- (org-show-set-visibility 'lineage))
-
-(defun org-agenda-diary-entry ()
- "Make a diary entry, like the `i' command from the calendar.
-All the standard commands work: block, weekly etc.
-When `org-agenda-diary-file' points to a file,
-`org-agenda-diary-entry-in-org-file' is called instead to create
-entries in that Org file."
- (interactive)
- (if (not (eq org-agenda-diary-file 'diary-file))
- (org-agenda-diary-entry-in-org-file)
- (require 'diary-lib)
- (let* ((char (progn
- (message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic")
- (read-char-exclusive)))
- (cmd (cdr (assoc char
- '((?d . diary-insert-entry)
- (?w . diary-insert-weekly-entry)
- (?m . diary-insert-monthly-entry)
- (?y . diary-insert-yearly-entry)
- (?a . diary-insert-anniversary-entry)
- (?b . diary-insert-block-entry)
- (?c . diary-insert-cyclic-entry)))))
- (oldf (symbol-function 'calendar-cursor-to-date))
- ;; (buf (get-file-buffer (substitute-in-file-name diary-file)))
- (point (point))
- (mark (or (mark t) (point))))
- (unless cmd
- (user-error "No command associated with <%c>" char))
- (unless (and (get-text-property point 'day)
- (or (not (equal ?b char))
- (get-text-property mark 'day)))
- (user-error "Don't know which date to use for diary entry"))
- ;; We implement this by hacking the `calendar-cursor-to-date' function
- ;; and the `calendar-mark-ring' variable. Saves a lot of code.
- (let ((calendar-mark-ring
- (list (calendar-gregorian-from-absolute
- (or (get-text-property mark 'day)
- (get-text-property point 'day))))))
- (unwind-protect
- (progn
- (fset 'calendar-cursor-to-date
- (lambda (&optional error dummy)
- (calendar-gregorian-from-absolute
- (get-text-property point 'day))))
- (call-interactively cmd))
- (fset 'calendar-cursor-to-date oldf))))))
-
-(defun org-agenda-execute-calendar-command (cmd)
- "Execute a calendar command from the agenda with date from cursor."
- (org-agenda-check-type t 'agenda)
- (require 'diary-lib)
- (unless (get-text-property (min (1- (point-max)) (point)) 'day)
- (user-error "Don't know which date to use for the calendar command"))
- (let* ((oldf (symbol-function 'calendar-cursor-to-date))
- (point (point))
- (date (calendar-gregorian-from-absolute
- (get-text-property point 'day)))
- ;; the following 2 vars are needed in the calendar
- (displayed-month (car date))
- (displayed-year (nth 2 date)))
- (unwind-protect
- (progn
- (fset 'calendar-cursor-to-date
- (lambda (&optional error dummy)
- (calendar-gregorian-from-absolute
- (get-text-property point 'day))))
- (call-interactively cmd))
- (fset 'calendar-cursor-to-date oldf))))
-
-(defun org-agenda-phases-of-moon ()
- "Display the phases of the moon for the 3 months around the cursor date."
- (interactive)
- (org-agenda-execute-calendar-command 'calendar-lunar-phases))
-
-(defun org-agenda-holidays ()
- "Display the holidays for the 3 months around the cursor date."
- (interactive)
- (org-agenda-execute-calendar-command 'calendar-list-holidays))
-
-(defvar calendar-longitude) ; defined in calendar.el
-(defvar calendar-latitude) ; defined in calendar.el
-(defvar calendar-location-name) ; defined in calendar.el
-
-(defun org-agenda-sunrise-sunset (arg)
- "Display sunrise and sunset for the cursor date.
-Latitude and longitude can be specified with the variables
-`calendar-latitude' and `calendar-longitude'. When called with prefix
-argument, latitude and longitude will be prompted for."
- (interactive "P")
- (require 'solar)
- (let ((calendar-longitude (if arg nil calendar-longitude))
- (calendar-latitude (if arg nil calendar-latitude))
- (calendar-location-name
- (if arg "the given coordinates" calendar-location-name)))
- (org-agenda-execute-calendar-command 'calendar-sunrise-sunset)))
-
-(defun org-agenda-goto-calendar ()
- "Open the Emacs calendar with the date at the cursor."
- (interactive)
- (org-agenda-check-type t 'agenda)
- (let* ((day (or (get-text-property (min (1- (point-max)) (point)) 'day)
- (user-error "Don't know which date to open in calendar")))
- (date (calendar-gregorian-from-absolute day))
- (calendar-move-hook nil)
- (calendar-view-holidays-initially-flag nil)
- (calendar-view-diary-initially-flag nil))
- (calendar)
- (calendar-goto-date date)))
-
-;;;###autoload
-(defun org-calendar-goto-agenda ()
- "Compute the Org agenda for the calendar date displayed at the cursor.
-This is a command that has to be installed in `calendar-mode-map'."
- (interactive)
- ;; Temporarily disable sticky agenda since user clearly wants to
- ;; refresh view anyway.
- (let ((org-agenda-buffer-tmp-name "*Org Agenda(a)*")
- (org-agenda-sticky nil))
- (org-agenda-list nil (calendar-absolute-from-gregorian
- (calendar-cursor-to-date))
- nil)))
-
-(defun org-agenda-convert-date ()
- (interactive)
- (org-agenda-check-type t 'agenda)
- (let ((day (get-text-property (min (1- (point-max)) (point)) 'day))
- date s)
- (unless day
- (user-error "Don't know which date to convert"))
- (setq date (calendar-gregorian-from-absolute day))
- (setq s (concat
- "Gregorian: " (calendar-date-string date) "\n"
- "ISO: " (calendar-iso-date-string date) "\n"
- "Day of Yr: " (calendar-day-of-year-string date) "\n"
- "Julian: " (calendar-julian-date-string date) "\n"
- "Astron. JD: " (calendar-astro-date-string date)
- " (Julian date number at noon UTC)\n"
- "Hebrew: " (calendar-hebrew-date-string date) " (until sunset)\n"
- "Islamic: " (calendar-islamic-date-string date) " (until sunset)\n"
- "French: " (calendar-french-date-string date) "\n"
- "Bahá’í: " (calendar-bahai-date-string date) " (until sunset)\n"
- "Mayan: " (calendar-mayan-date-string date) "\n"
- "Coptic: " (calendar-coptic-date-string date) "\n"
- "Ethiopic: " (calendar-ethiopic-date-string date) "\n"
- "Persian: " (calendar-persian-date-string date) "\n"
- "Chinese: " (calendar-chinese-date-string date) "\n"))
- (with-output-to-temp-buffer "*Dates*"
- (princ s))
- (org-fit-window-to-buffer (get-buffer-window "*Dates*"))))
-
-;;; Bulk commands
-
-(defun org-agenda-bulk-marked-p ()
- "Non-nil when current entry is marked for bulk action."
- (eq (get-char-property (point-at-bol) 'type)
- 'org-marked-entry-overlay))
-
-(defun org-agenda-bulk-mark (&optional arg)
- "Mark the entry at point for future bulk action."
- (interactive "p")
- (dotimes (i (or arg 1))
- (unless (org-get-at-bol 'org-agenda-diary-link)
- (let* ((m (org-get-at-bol 'org-hd-marker))
- ov)
- (unless (org-agenda-bulk-marked-p)
- (unless m (user-error "Nothing to mark at point"))
- (push m org-agenda-bulk-marked-entries)
- (setq ov (make-overlay (point-at-bol) (+ 2 (point-at-bol))))
- (org-overlay-display ov (concat org-agenda-bulk-mark-char " ")
- (org-get-todo-face "TODO")
- 'evaporate)
- (overlay-put ov 'type 'org-marked-entry-overlay))
- (end-of-line 1)
- (or (ignore-errors
- (goto-char (next-single-property-change (point) 'org-hd-marker)))
- (beginning-of-line 2))
- (while (and (get-char-property (point) 'invisible) (not (eobp)))
- (beginning-of-line 2))
- (message "%d entries marked for bulk action"
- (length org-agenda-bulk-marked-entries))))))
-
-(defun org-agenda-bulk-mark-all ()
- "Mark all entries for future agenda bulk action."
- (interactive)
- (org-agenda-bulk-mark-regexp "."))
-
-(defun org-agenda-bulk-mark-regexp (regexp)
- "Mark entries matching REGEXP for future agenda bulk action."
- (interactive "sMark entries matching regexp: ")
- (let ((entries-marked 0) txt-at-point)
- (save-excursion
- (goto-char (point-min))
- (goto-char (next-single-property-change (point) 'org-hd-marker))
- (while (and (re-search-forward regexp nil t)
- (setq txt-at-point (get-text-property (point) 'txt)))
- (if (get-char-property (point) 'invisible)
- (beginning-of-line 2)
- (when (string-match regexp txt-at-point)
- (setq entries-marked (1+ entries-marked))
- (call-interactively 'org-agenda-bulk-mark)))))
-
- (if (not entries-marked)
- (message "No entry matching this regexp."))))
-
-(defun org-agenda-bulk-unmark (&optional arg)
- "Unmark the entry at point for future bulk action."
- (interactive "P")
- (if arg
- (org-agenda-bulk-unmark-all)
- (cond ((org-agenda-bulk-marked-p)
- (org-agenda-bulk-remove-overlays
- (point-at-bol) (+ 2 (point-at-bol)))
- (setq org-agenda-bulk-marked-entries
- (delete (org-get-at-bol 'org-hd-marker)
- org-agenda-bulk-marked-entries))
- (end-of-line 1)
- (or (ignore-errors
- (goto-char (next-single-property-change (point) 'txt)))
- (beginning-of-line 2))
- (while (and (get-char-property (point) 'invisible) (not (eobp)))
- (beginning-of-line 2))
- (message "%d entries left marked for bulk action"
- (length org-agenda-bulk-marked-entries)))
- (t (message "No entry to unmark here")))))
-
-(defun org-agenda-bulk-toggle-all ()
- "Toggle all marks for bulk action."
- (interactive)
- (save-excursion
- (goto-char (point-min))
- (while (ignore-errors
- (goto-char (next-single-property-change (point) 'org-hd-marker)))
- (org-agenda-bulk-toggle))))
-
-(defun org-agenda-bulk-toggle ()
- "Toggle the mark at point for bulk action."
- (interactive)
- (if (org-agenda-bulk-marked-p)
- (org-agenda-bulk-unmark)
- (org-agenda-bulk-mark)))
-
-(defun org-agenda-bulk-remove-overlays (&optional beg end)
- "Remove the mark overlays between BEG and END in the agenda buffer.
-BEG and END default to the buffer limits.
-
-This only removes the overlays, it does not remove the markers
-from the list in `org-agenda-bulk-marked-entries'."
- (interactive)
- (mapc (lambda (ov)
- (and (eq (overlay-get ov 'type) 'org-marked-entry-overlay)
- (delete-overlay ov)))
- (overlays-in (or beg (point-min)) (or end (point-max)))))
-
-(defun org-agenda-bulk-unmark-all ()
- "Remove all marks in the agenda buffer.
-This will remove the markers and the overlays."
- (interactive)
- (if (null org-agenda-bulk-marked-entries)
- (message "No entry to unmark")
- (setq org-agenda-bulk-marked-entries nil)
- (org-agenda-bulk-remove-overlays (point-min) (point-max))))
-
-(defcustom org-agenda-persistent-marks nil
- "Non-nil means marked items will stay marked after a bulk action.
-You can toggle this interactively by typing `p' when prompted for a
-bulk action."
- :group 'org-agenda
- :version "24.1"
- :type 'boolean)
-
-(defun org-agenda-bulk-action (&optional arg)
- "Execute an remote-editing action on all marked entries.
-The prefix arg is passed through to the command if possible."
- (interactive "P")
- ;; Make sure we have markers, and only valid ones.
- (unless org-agenda-bulk-marked-entries (user-error "No entries are marked"))
- (dolist (m org-agenda-bulk-marked-entries)
- (unless (and (markerp m)
- (marker-buffer m)
- (buffer-live-p (marker-buffer m))
- (marker-position m))
- (user-error "Marker %s for bulk command is invalid" m)))
-
- ;; Prompt for the bulk command.
- (message
- (concat (if org-agenda-persistent-marks "Bulk (persistent): " "Bulk: ")
- "[$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [d]eadline [r]efile "
- "[S]catter [f]unction "
- (and org-agenda-bulk-custom-functions
- (format " Custom: [%s]"
- (mapconcat (lambda (f) (char-to-string (car f)))
- org-agenda-bulk-custom-functions
- "")))))
- (catch 'exit
- (let* ((org-log-refile (if org-log-refile 'time nil))
- (entries (reverse org-agenda-bulk-marked-entries))
- (org-overriding-default-time
- (and (get-text-property (point) 'org-agenda-date-header)
- (org-get-cursor-date)))
- redo-at-end
- cmd)
- (pcase (read-char-exclusive)
- (?p
- (let ((org-agenda-persistent-marks
- (not org-agenda-persistent-marks)))
- (org-agenda-bulk-action)
- (throw 'exit nil)))
-
- (?$
- (setq cmd #'org-agenda-archive))
-
- (?A
- (setq cmd #'org-agenda-archive-to-archive-sibling))
-
- ((or ?r ?w)
- (let ((refile-location
- (org-refile-get-location
- "Refile to"
- (marker-buffer (car entries))
- org-refile-allow-creating-parent-nodes)))
- (when (nth 3 refile-location)
- (setcar (nthcdr 3 refile-location)
- (move-marker
- (make-marker)
- (nth 3 refile-location)
- (or (get-file-buffer (nth 1 refile-location))
- (find-buffer-visiting (nth 1 refile-location))
- (error "This should not happen")))))
-
- (setq cmd `(lambda () (org-agenda-refile nil ',refile-location t)))
- (setq redo-at-end t)))
-
- (?t
- (let ((state (completing-read
- "Todo state: "
- (with-current-buffer (marker-buffer (car entries))
- (mapcar #'list org-todo-keywords-1)))))
- (setq cmd `(lambda ()
- (let ((org-inhibit-blocking t)
- (org-inhibit-logging 'note))
- (org-agenda-todo ,state))))))
-
- ((and (or ?- ?+) action)
- (let ((tag (completing-read
- (format "Tag to %s: " (if (eq action ?+) "add" "remove"))
- (with-current-buffer (marker-buffer (car entries))
- (delq nil
- (mapcar (lambda (x) (and (stringp (car x)) x))
- org-current-tag-alist))))))
- (setq cmd
- `(lambda ()
- (org-agenda-set-tags ,tag
- ,(if (eq action ?+) ''on ''off))))))
-
- ((and (or ?s ?d) c)
- (let* ((schedule? (eq c ?s))
- (prompt (if schedule? "(Re)Schedule to" "(Re)Set Deadline to"))
- (time
- (and (not arg)
- (let ((new (org-read-date
- nil nil nil prompt org-overriding-default-time)))
- ;; A "double plus" answer applies to every
- ;; scheduled time. Do not turn it into
- ;; a fixed date yet.
- (if (string-match-p "\\`[ \t]*\\+\\+"
- org-read-date-final-answer)
- org-read-date-final-answer
- new)))))
- ;; Make sure to not prompt for a note when bulk
- ;; rescheduling/resetting deadline as Org cannot cope with
- ;; simultaneous notes. Besides, it could be annoying
- ;; depending on the number of marked items.
- (setq cmd
- (if schedule?
- `(lambda ()
- (let ((org-log-reschedule
- (and org-log-reschedule 'time)))
- (org-agenda-schedule arg ,time)))
- `(lambda ()
- (let ((org-log-redeadline (and org-log-redeadline 'time)))
- (org-agenda-deadline arg ,time)))))))
-
- (?S
- (unless (org-agenda-check-type nil 'agenda 'todo)
- (user-error "Can't scatter tasks in \"%s\" agenda view" org-agenda-type))
- (let ((days (read-number
- (format "Scatter tasks across how many %sdays: "
- (if arg "week" ""))
- 7)))
- (setq cmd
- `(lambda ()
- (let ((distance (1+ (random ,days))))
- (when arg
- (let ((dist distance)
- (day-of-week
- (calendar-day-of-week
- (calendar-gregorian-from-absolute (org-today)))))
- (dotimes (i (1+ dist))
- (while (member day-of-week org-agenda-weekend-days)
- (cl-incf distance)
- (cl-incf day-of-week)
- (when (= day-of-week 7)
- (setq day-of-week 0)))
- (cl-incf day-of-week)
- (when (= day-of-week 7)
- (setq day-of-week 0)))))
- ;; Silently fail when try to replan a sexp entry.
- (ignore-errors
- (let* ((date (calendar-gregorian-from-absolute
- (+ (org-today) distance)))
- (time (encode-time 0 0 0 (nth 1 date) (nth 0 date)
- (nth 2 date))))
- (org-agenda-schedule nil time))))))))
-
- (?f
- (setq cmd
- (intern
- (completing-read "Function: " obarray #'fboundp t nil nil))))
-
- (action
- (pcase (assoc action org-agenda-bulk-custom-functions)
- (`(,_ ,f) (setq cmd f) (setq redo-at-end t))
- (_ (user-error "Invalid bulk action: %c" action)))))
-
- ;; Sort the markers, to make sure that parents are handled
- ;; before children.
- (setq entries (sort entries
- (lambda (a b)
- (cond
- ((eq (marker-buffer a) (marker-buffer b))
- (< (marker-position a) (marker-position b)))
- (t
- (string< (buffer-name (marker-buffer a))
- (buffer-name (marker-buffer b))))))))
-
- ;; Now loop over all markers and apply CMD.
- (let ((processed 0)
- (skipped 0))
- (dolist (e entries)
- (let ((pos (text-property-any (point-min) (point-max) 'org-hd-marker e)))
- (if (not pos)
- (progn (message "Skipping removed entry at %s" e)
- (cl-incf skipped))
- (goto-char pos)
- (let (org-loop-over-headlines-in-active-region) (funcall cmd))
- ;; `post-command-hook' is not run yet. We make sure any
- ;; pending log note is processed.
- (when (or (memq 'org-add-log-note (default-value 'post-command-hook))
- (memq 'org-add-log-note post-command-hook))
- (org-add-log-note))
- (cl-incf processed))))
- (when redo-at-end (org-agenda-redo))
- (unless org-agenda-persistent-marks (org-agenda-bulk-unmark-all))
- (message "Acted on %d entries%s%s"
- processed
- (if (= skipped 0)
- ""
- (format ", skipped %d (disappeared before their turn)"
- skipped))
- (if (not org-agenda-persistent-marks) "" " (kept marked)"))))))
-
-(defun org-agenda-capture (&optional with-time)
- "Call `org-capture' with the date at point.
-With a `C-1' prefix, use the HH:MM value at point (if any) or the
-current HH:MM time."
- (interactive "P")
- (if (not (eq major-mode 'org-agenda-mode))
- (user-error "You cannot do this outside of agenda buffers")
- (let ((org-overriding-default-time
- (org-get-cursor-date (equal with-time 1))))
- (call-interactively 'org-capture))))
-
-;;; Dragging agenda lines forward/backward
-
-(defun org-agenda-reapply-filters ()
- "Re-apply all agenda filters."
- (mapcar
- (lambda(f) (when (car f) (org-agenda-filter-apply (car f) (cadr f) t)))
- `((,org-agenda-tag-filter tag)
- (,org-agenda-category-filter category)
- (,org-agenda-regexp-filter regexp)
- (,org-agenda-effort-filter effort)
- (,(get 'org-agenda-tag-filter :preset-filter) tag)
- (,(get 'org-agenda-category-filter :preset-filter) category)
- (,(get 'org-agenda-effort-filter :preset-filter) effort)
- (,(get 'org-agenda-regexp-filter :preset-filter) regexp))))
-
-(defun org-agenda-drag-line-forward (arg &optional backward)
- "Drag an agenda line forward by ARG lines.
-When the optional argument `backward' is non-nil, move backward."
- (interactive "p")
- (let ((inhibit-read-only t) lst line)
- (if (or (not (get-text-property (point) 'txt))
- (save-excursion
- (dotimes (n arg)
- (move-beginning-of-line (if backward 0 2))
- (push (not (get-text-property (point) 'txt)) lst))
- (delq nil lst)))
- (message "Cannot move line forward")
- (let ((end (save-excursion (move-beginning-of-line 2) (point))))
- (move-beginning-of-line 1)
- (setq line (buffer-substring (point) end))
- (delete-region (point) end)
- (move-beginning-of-line (funcall (if backward '1- '1+) arg))
- (insert line)
- (org-agenda-reapply-filters)
- (org-agenda-mark-clocking-task)
- (move-beginning-of-line 0)))))
-
-(defun org-agenda-drag-line-backward (arg)
- "Drag an agenda line backward by ARG lines."
- (interactive "p")
- (org-agenda-drag-line-forward arg t))
-
-;;; Flagging notes
-
-(defun org-agenda-show-the-flagging-note ()
- "Display the flagging note in the other window.
-When called a second time in direct sequence, offer to remove the FLAGGING
-tag and (if present) the flagging note."
- (interactive)
- (let ((hdmarker (org-get-at-bol 'org-hd-marker))
- (win (selected-window))
- note heading newhead)
- (unless hdmarker
- (user-error "No linked entry at point"))
- (if (and (eq this-command last-command)
- (y-or-n-p "Unflag and remove any flagging note? "))
- (progn
- (org-agenda-remove-flag hdmarker)
- (let ((win (get-buffer-window "*Flagging Note*")))
- (and win (delete-window win)))
- (message "Entry unflagged"))
- (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE"))
- (unless note
- (user-error "No flagging note"))
- (org-kill-new note)
- (org-switch-to-buffer-other-window "*Flagging Note*")
- (erase-buffer)
- (insert note)
- (goto-char (point-min))
- (while (re-search-forward "\\\\n" nil t)
- (replace-match "\n" t t))
- (goto-char (point-min))
- (select-window win)
- (message "%s" (substitute-command-keys "Flagging note pushed to \
-kill ring. Press `\\[org-agenda-show-the-flagging-note]' again to remove \
-tag and note")))))
-
-(defun org-agenda-remove-flag (marker)
- "Remove the FLAGGED tag and any flagging note in the entry."
- (let (newhead)
- (org-with-point-at marker
- (org-toggle-tag "FLAGGED" 'off)
- (org-entry-delete nil "THEFLAGGINGNOTE")
- (setq newhead (org-get-heading)))
- (org-agenda-change-all-lines newhead marker)
- (message "Entry unflagged")))
-
-(defun org-agenda-get-any-marker (&optional pos)
- (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker)
- (get-text-property (or pos (point-at-bol)) 'org-marker)))
-
-;;; Appointment reminders
-
-(defvar appt-time-msg-list) ; defined in appt.el
-
-;;;###autoload
-(defun org-agenda-to-appt (&optional refresh filter &rest args)
- "Activate appointments found in `org-agenda-files'.
-
-With a `\\[universal-argument]' prefix, refresh the list of \
-appointments.
-
-If FILTER is t, interactively prompt the user for a regular
-expression, and filter out entries that don't match it.
-
-If FILTER is a string, use this string as a regular expression
-for filtering entries out.
-
-If FILTER is a function, filter out entries against which
-calling the function returns nil. This function takes one
-argument: an entry from `org-agenda-get-day-entries'.
-
-FILTER can also be an alist with the car of each cell being
-either `headline' or `category'. For example:
-
- \\='((headline \"IMPORTANT\")
- (category \"Work\"))
-
-will only add headlines containing IMPORTANT or headlines
-belonging to the \"Work\" category.
-
-ARGS are symbols indicating what kind of entries to consider.
-By default `org-agenda-to-appt' will use :deadline*, :scheduled*
-\(i.e., deadlines and scheduled items with a hh:mm specification)
-and :timestamp entries. See the docstring of `org-diary' for
-details and examples.
-
-If an entry has a APPT_WARNTIME property, its value will be used
-to override `appt-message-warning-time'."
- (interactive "P")
- (if refresh (setq appt-time-msg-list nil))
- (if (eq filter t)
- (setq filter (read-from-minibuffer "Regexp filter: ")))
- (let* ((cnt 0) ; count added events
- (scope (or args '(:deadline* :scheduled* :timestamp)))
- (org-agenda-new-buffers nil)
- (org-deadline-warning-days 0)
- ;; Do not use `org-today' here because appt only takes
- ;; time and without date as argument, so it may pass wrong
- ;; information otherwise
- (today (org-date-to-gregorian
- (time-to-days (current-time))))
- (org-agenda-restrict nil)
- (files (org-agenda-files 'unrestricted)) entries file
- (org-agenda-buffer nil))
- ;; Get all entries which may contain an appt
- (org-agenda-prepare-buffers files)
- (while (setq file (pop files))
- (setq entries
- (delq nil
- (append entries
- (apply 'org-agenda-get-day-entries
- file today scope)))))
- ;; Map thru entries and find if we should filter them out
- (mapc
- (lambda (x)
- (let* ((evt (org-trim
- (replace-regexp-in-string
- org-bracket-link-regexp "\\3"
- (or (get-text-property 1 'txt x) ""))))
- (cat (get-text-property (1- (length x)) 'org-category x))
- (tod (get-text-property 1 'time-of-day x))
- (ok (or (null filter)
- (and (stringp filter) (string-match filter evt))
- (and (functionp filter) (funcall filter x))
- (and (listp filter)
- (let ((cat-filter (cadr (assq 'category filter)))
- (evt-filter (cadr (assq 'headline filter))))
- (or (and (stringp cat-filter)
- (string-match cat-filter cat))
- (and (stringp evt-filter)
- (string-match evt-filter evt)))))))
- (wrn (get-text-property 1 'warntime x)))
- ;; FIXME: Shall we remove text-properties for the appt text?
- ;; (setq evt (set-text-properties 0 (length evt) nil evt))
- (when (and ok tod (not (string-match "\\`DONE\\|CANCELLED" evt)))
- (setq tod (concat "00" (number-to-string tod)))
- (setq tod (when (string-match
- "\\([0-9]\\{1,2\\}\\)\\([0-9]\\{2\\}\\)\\'" tod)
- (concat (match-string 1 tod) ":"
- (match-string 2 tod))))
- (when (appt-add tod evt wrn)
- (setq cnt (1+ cnt))))))
- entries)
- (org-release-buffers org-agenda-new-buffers)
- (if (eq cnt 0)
- (message "No event to add")
- (message "Added %d event%s for today" cnt (if (> cnt 1) "s" "")))))
-
-(defun org-agenda-today-p (date)
- "Non nil when DATE means today.
-DATE is either a list of the form (month day year) or a number of
-days as returned by `calendar-absolute-from-gregorian' or
-`org-today'. This function considers `org-extend-today-until'
-when defining today."
- (eq (org-today)
- (if (consp date) (calendar-absolute-from-gregorian date) date)))
-
-(defun org-agenda-todo-yesterday (&optional arg)
- "Like `org-agenda-todo' but the time of change will be 23:59 of yesterday."
- (interactive "P")
- (let* ((org-use-effective-time t)
- (hour (nth 2 (decode-time (org-current-time))))
- (org-extend-today-until (1+ hour)))
- (org-agenda-todo arg)))
-
-(provide 'org-agenda)
-
-;;; org-agenda.el ends here
diff --git a/elpa/org-9.1.14/org-agenda.elc b/elpa/org-9.1.14/org-agenda.elc
deleted file mode 100644
index 6dd871e..0000000
--- a/elpa/org-9.1.14/org-agenda.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-archive.el b/elpa/org-9.1.14/org-archive.el
deleted file mode 100644
index e020ec2..0000000
--- a/elpa/org-9.1.14/org-archive.el
+++ /dev/null
@@ -1,618 +0,0 @@
-;;; org-archive.el --- Archiving for Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the face definitions for Org.
-
-;;; Code:
-
-(require 'org)
-
-(declare-function org-element-type "org-element" (element))
-(declare-function org-datetree-find-date-create "org-datetree" (date &optional keep-restriction))
-(declare-function org-inlinetask-remove-END-maybe "org-inlinetask" ())
-
-(defcustom org-archive-default-command 'org-archive-subtree
- "The default archiving command."
- :group 'org-archive
- :type '(choice
- (const org-archive-subtree)
- (const org-archive-to-archive-sibling)
- (const org-archive-set-tag)))
-
-(defcustom org-archive-reversed-order nil
- "Non-nil means make the tree first child under the archive heading, not last."
- :group 'org-archive
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-archive-sibling-heading "Archive"
- "Name of the local archive sibling that is used to archive entries locally.
-Locally means: in the tree, under a sibling.
-See `org-archive-to-archive-sibling' for more information."
- :group 'org-archive
- :type 'string)
-
-(defcustom org-archive-mark-done nil
- "Non-nil means mark entries as DONE when they are moved to the archive file.
-This can be a string to set the keyword to use. When non-nil, Org will
-use the first keyword in its list that means done."
- :group 'org-archive
- :type '(choice
- (const :tag "No" nil)
- (const :tag "Yes" t)
- (string :tag "Use this keyword")))
-
-(defcustom org-archive-stamp-time t
- "Non-nil means add a time stamp to entries moved to an archive file.
-This variable is obsolete and has no effect anymore, instead add or remove
-`time' from the variable `org-archive-save-context-info'."
- :group 'org-archive
- :type 'boolean)
-
-(defcustom org-archive-file-header-format "\nArchived entries from file %s\n\n"
- "The header format string for newly created archive files.
-When nil, no header will be inserted.
-When a string, a %s formatter will be replaced by the file name."
- :group 'org-archive
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defcustom org-archive-subtree-add-inherited-tags 'infile
- "Non-nil means append inherited tags when archiving a subtree."
- :group 'org-archive
- :version "24.1"
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "When archiving a subtree to the same file" infile)
- (const :tag "Always" t)))
-
-(defcustom org-archive-save-context-info '(time file olpath category todo itags)
- "Parts of context info that should be stored as properties when archiving.
-When a subtree is moved to an archive file, it loses information given by
-context, like inherited tags, the category, and possibly also the TODO
-state (depending on the variable `org-archive-mark-done').
-This variable can be a list of any of the following symbols:
-
-time The time of archiving.
-file The file where the entry originates.
-ltags The local tags, in the headline of the subtree.
-itags The tags the subtree inherits from further up the hierarchy.
-todo The pre-archive TODO state.
-category The category, taken from file name or #+CATEGORY lines.
-olpath The outline path to the item. These are all headlines above
- the current item, separated by /, like a file path.
-
-For each symbol present in the list, a property will be created in
-the archived entry, with a prefix \"ARCHIVE_\", to remember this
-information."
- :group 'org-archive
- :type '(set :greedy t
- (const :tag "Time" time)
- (const :tag "File" file)
- (const :tag "Category" category)
- (const :tag "TODO state" todo)
- (const :tag "Priority" priority)
- (const :tag "Inherited tags" itags)
- (const :tag "Outline path" olpath)
- (const :tag "Local tags" ltags)))
-
-(defvar org-archive-hook nil
- "Hook run after successfully archiving a subtree.
-Hook functions are called with point on the subtree in the
-original file. At this stage, the subtree has been added to the
-archive location, but not yet deleted from the original file.")
-
-(defun org-get-local-archive-location ()
- "Get the archive location applicable at point."
- (let ((re "^[ \t]*#\\+ARCHIVE:[ \t]+\\(\\S-.*\\S-\\)[ \t]*$")
- prop)
- (save-excursion
- (save-restriction
- (widen)
- (setq prop (org-entry-get nil "ARCHIVE" 'inherit))
- (cond
- ((and prop (string-match "\\S-" prop))
- prop)
- ((or (re-search-backward re nil t)
- (re-search-forward re nil t))
- (match-string 1))
- (t org-archive-location))))))
-
-;;;###autoload
-(defun org-add-archive-files (files)
- "Splice the archive files into the list of files.
-This implies visiting all these files and finding out what the
-archive file is."
- (org-uniquify
- (apply
- 'append
- (mapcar
- (lambda (f)
- (if (not (file-exists-p f))
- nil
- (with-current-buffer (org-get-agenda-file-buffer f)
- (cons f (org-all-archive-files)))))
- files))))
-
-(defun org-all-archive-files ()
- "Get a list of all archive files used in the current buffer."
- (let ((case-fold-search t)
- files)
- (org-with-wide-buffer
- (goto-char (point-min))
- (while (re-search-forward
- "^[ \t]*\\(#\\+\\|:\\)ARCHIVE:[ \t]+\\(.*\\)"
- nil t)
- (when (save-match-data
- (if (eq (match-string 1) ":") (org-at-property-p)
- (eq (org-element-type (org-element-at-point)) 'keyword)))
- (let ((file (org-extract-archive-file
- (match-string-no-properties 2))))
- (when (and (org-string-nw-p file) (file-exists-p file))
- (push file files))))))
- (setq files (nreverse files))
- (let ((file (org-extract-archive-file)))
- (when (and (org-string-nw-p file) (file-exists-p file))
- (push file files)))
- files))
-
-(defun org-extract-archive-file (&optional location)
- "Extract and expand the file name from archive LOCATION.
-if LOCATION is not given, the value of `org-archive-location' is used."
- (setq location (or location org-archive-location))
- (if (string-match "\\(.*\\)::\\(.*\\)" location)
- (if (= (match-beginning 1) (match-end 1))
- (buffer-file-name (buffer-base-buffer))
- (expand-file-name
- (format (match-string 1 location)
- (file-name-nondirectory
- (buffer-file-name (buffer-base-buffer))))))))
-
-(defun org-extract-archive-heading (&optional location)
- "Extract the heading from archive LOCATION.
-if LOCATION is not given, the value of `org-archive-location' is used."
- (setq location (or location org-archive-location))
- (if (string-match "\\(.*\\)::\\(.*\\)" location)
- (format (match-string 2 location)
- (file-name-nondirectory
- (buffer-file-name (buffer-base-buffer))))))
-
-;;;###autoload
-(defun org-archive-subtree (&optional find-done)
- "Move the current subtree to the archive.
-The archive can be a certain top-level heading in the current
-file, or in a different file. The tree will be moved to that
-location, the subtree heading be marked DONE, and the current
-time will be added.
-
-When called with a single prefix argument FIND-DONE, find whole
-trees without any open TODO items and archive them (after getting
-confirmation from the user). When called with a double prefix
-argument, find whole trees with timestamps before today and
-archive them (after getting confirmation from the user). If the
-cursor is not at a headline when these commands are called, try
-all level 1 trees. If the cursor is on a headline, only try the
-direct children of this heading."
- (interactive "P")
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level 'region))
- org-loop-over-headlines-in-active-region)
- (org-map-entries
- `(progn (setq org-map-continue-from (progn (org-back-to-heading) (point)))
- (org-archive-subtree ,find-done))
- org-loop-over-headlines-in-active-region
- cl (if (org-invisible-p) (org-end-of-subtree nil t))))
- (cond
- ((equal find-done '(4)) (org-archive-all-done))
- ((equal find-done '(16)) (org-archive-all-old))
- (t
- ;; Save all relevant TODO keyword-relatex variables
- (let* ((tr-org-todo-keywords-1 org-todo-keywords-1)
- (tr-org-todo-kwd-alist org-todo-kwd-alist)
- (tr-org-done-keywords org-done-keywords)
- (tr-org-todo-regexp org-todo-regexp)
- (tr-org-todo-line-regexp org-todo-line-regexp)
- (tr-org-odd-levels-only org-odd-levels-only)
- (this-buffer (current-buffer))
- (time (format-time-string
- (substring (cdr org-time-stamp-formats) 1 -1)))
- (file (abbreviate-file-name
- (or (buffer-file-name (buffer-base-buffer))
- (error "No file associated to buffer"))))
- (location (org-get-local-archive-location))
- (afile (or (org-extract-archive-file location)
- (error "Invalid `org-archive-location'")))
- (heading (org-extract-archive-heading location))
- (infile-p (equal file (abbreviate-file-name (or afile ""))))
- (newfile-p (and (org-string-nw-p afile)
- (not (file-exists-p afile))))
- (buffer (cond ((not (org-string-nw-p afile)) this-buffer)
- ((find-buffer-visiting afile))
- ((find-file-noselect afile))
- (t (error "Cannot access file \"%s\"" afile))))
- level datetree-date datetree-subheading-p)
- (when (string-match "\\`datetree/" heading)
- ;; Replace with ***, to represent the 3 levels of headings the
- ;; datetree has.
- (setq heading (replace-regexp-in-string "\\`datetree/" "***" heading))
- (setq datetree-subheading-p (> (length heading) 3))
- (setq datetree-date (org-date-to-gregorian
- (or (org-entry-get nil "CLOSED" t) time))))
- (if (and (> (length heading) 0)
- (string-match "^\\*+" heading))
- (setq level (match-end 0))
- (setq heading nil level 0))
- (save-excursion
- (org-back-to-heading t)
- ;; Get context information that will be lost by moving the
- ;; tree. See `org-archive-save-context-info'.
- (let* ((all-tags (org-get-tags-at))
- (local-tags (org-get-tags))
- (inherited-tags (org-delete-all local-tags all-tags))
- (context
- `((category . ,(org-get-category nil 'force-refresh))
- (file . ,file)
- (itags . ,(mapconcat #'identity inherited-tags " "))
- (ltags . ,(mapconcat #'identity local-tags " "))
- (olpath . ,(mapconcat #'identity
- (org-get-outline-path)
- "/"))
- (time . ,time)
- (todo . ,(org-entry-get (point) "TODO")))))
- ;; We first only copy, in case something goes wrong
- ;; we need to protect `this-command', to avoid kill-region sets it,
- ;; which would lead to duplication of subtrees
- (let (this-command) (org-copy-subtree 1 nil t))
- (set-buffer buffer)
- ;; Enforce Org mode for the archive buffer
- (if (not (derived-mode-p 'org-mode))
- ;; Force the mode for future visits.
- (let ((org-insert-mode-line-in-empty-file t)
- (org-inhibit-startup t))
- (call-interactively 'org-mode)))
- (when (and newfile-p org-archive-file-header-format)
- (goto-char (point-max))
- (insert (format org-archive-file-header-format
- (buffer-file-name this-buffer))))
- (when datetree-date
- (require 'org-datetree)
- (org-datetree-find-date-create datetree-date)
- (org-narrow-to-subtree))
- ;; Force the TODO keywords of the original buffer
- (let ((org-todo-line-regexp tr-org-todo-line-regexp)
- (org-todo-keywords-1 tr-org-todo-keywords-1)
- (org-todo-kwd-alist tr-org-todo-kwd-alist)
- (org-done-keywords tr-org-done-keywords)
- (org-todo-regexp tr-org-todo-regexp)
- (org-todo-line-regexp tr-org-todo-line-regexp)
- (org-odd-levels-only
- (if (local-variable-p 'org-odd-levels-only (current-buffer))
- org-odd-levels-only
- tr-org-odd-levels-only)))
- (goto-char (point-min))
- (outline-show-all)
- (if (and heading (not (and datetree-date (not datetree-subheading-p))))
- (progn
- (if (re-search-forward
- (concat "^" (regexp-quote heading)
- "[ \t]*\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*\\($\\|\r\\)")
- nil t)
- (goto-char (match-end 0))
- ;; Heading not found, just insert it at the end
- (goto-char (point-max))
- (or (bolp) (insert "\n"))
- ;; datetrees don't need too much spacing
- (insert (if datetree-date "" "\n") heading "\n")
- (end-of-line 0))
- ;; Make the subtree visible
- (outline-show-subtree)
- (if org-archive-reversed-order
- (progn
- (org-back-to-heading t)
- (outline-next-heading))
- (org-end-of-subtree t))
- (skip-chars-backward " \t\r\n")
- (and (looking-at "[ \t\r\n]*")
- ;; datetree archives don't need so much spacing.
- (replace-match (if datetree-date "\n" "\n\n"))))
- ;; No specific heading, just go to end of file, or to the
- ;; beginning, depending on `org-archive-reversed-order'.
- (if org-archive-reversed-order
- (progn
- (goto-char (point-min))
- (unless (org-at-heading-p) (outline-next-heading))
- (insert "\n") (backward-char 1))
- (goto-char (point-max))
- ;; Subtree narrowing can let the buffer end on
- ;; a headline. `org-paste-subtree' then deletes it.
- ;; To prevent this, make sure visible part of buffer
- ;; always terminates on a new line, while limiting
- ;; number of blank lines in a date tree.
- (unless (and datetree-date (bolp)) (insert "\n"))))
- ;; Paste
- (org-paste-subtree (org-get-valid-level level (and heading 1)))
- ;; Shall we append inherited tags?
- (and inherited-tags
- (or (and (eq org-archive-subtree-add-inherited-tags 'infile)
- infile-p)
- (eq org-archive-subtree-add-inherited-tags t))
- (org-set-tags-to all-tags))
- ;; Mark the entry as done
- (when (and org-archive-mark-done
- (let ((case-fold-search nil))
- (looking-at org-todo-line-regexp))
- (or (not (match-end 2))
- (not (member (match-string 2) org-done-keywords))))
- (let (org-log-done org-todo-log-states)
- (org-todo
- (car (or (member org-archive-mark-done org-done-keywords)
- org-done-keywords)))))
-
- ;; Add the context info.
- (dolist (item org-archive-save-context-info)
- (let ((value (cdr (assq item context))))
- (when (org-string-nw-p value)
- (org-entry-put
- (point)
- (concat "ARCHIVE_" (upcase (symbol-name item)))
- value))))
- (widen))))
- ;; Here we are back in the original buffer. Everything seems
- ;; to have worked. So now run hooks, cut the tree and finish
- ;; up.
- (run-hooks 'org-archive-hook)
- (let (this-command) (org-cut-subtree))
- (when (featurep 'org-inlinetask)
- (org-inlinetask-remove-END-maybe))
- (setq org-markers-to-move nil)
- (message "Subtree archived %s"
- (if (eq this-buffer buffer)
- (concat "under heading: " heading)
- (concat "in file: " (abbreviate-file-name afile)))))))
- (org-reveal)
- (if (looking-at "^[ \t]*$")
- (outline-next-visible-heading 1))))
-
-;;;###autoload
-(defun org-archive-to-archive-sibling ()
- "Archive the current heading by moving it under the archive sibling.
-
-The archive sibling is a sibling of the heading with the heading name
-`org-archive-sibling-heading' and an `org-archive-tag' tag. If this
-sibling does not exist, it will be created at the end of the subtree.
-
-Archiving time is retained in the ARCHIVE_TIME node property."
- (interactive)
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (let ((cl (when (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level 'region))
- org-loop-over-headlines-in-active-region)
- (org-map-entries
- '(progn (setq org-map-continue-from
- (progn (org-back-to-heading)
- (if (looking-at (concat "^.*:" org-archive-tag ":.*$"))
- (org-end-of-subtree t)
- (point))))
- (when (org-at-heading-p)
- (org-archive-to-archive-sibling)))
- org-loop-over-headlines-in-active-region
- cl (if (org-invisible-p) (org-end-of-subtree nil t))))
- (save-restriction
- (widen)
- (let (b e pos leader level)
- (org-back-to-heading t)
- (looking-at org-outline-regexp)
- (setq leader (match-string 0)
- level (funcall outline-level))
- (setq pos (point-marker))
- (condition-case nil
- (outline-up-heading 1 t)
- (error (setq e (point-max)) (goto-char (point-min))))
- (setq b (point))
- (unless e
- (condition-case nil
- (org-end-of-subtree t t)
- (error (goto-char (point-max))))
- (setq e (point)))
- (goto-char b)
- (unless (re-search-forward
- (concat "^" (regexp-quote leader)
- "[ \t]*"
- org-archive-sibling-heading
- "[ \t]*:"
- org-archive-tag ":") e t)
- (goto-char e)
- (or (bolp) (newline))
- (insert leader org-archive-sibling-heading "\n")
- (beginning-of-line 0)
- (org-toggle-tag org-archive-tag 'on))
- (beginning-of-line 1)
- (if org-archive-reversed-order
- (outline-next-heading)
- (org-end-of-subtree t t))
- (save-excursion
- (goto-char pos)
- (let ((this-command this-command)) (org-cut-subtree)))
- (org-paste-subtree (org-get-valid-level level 1))
- (org-set-property
- "ARCHIVE_TIME"
- (format-time-string
- (substring (cdr org-time-stamp-formats) 1 -1)))
- (outline-up-heading 1 t)
- (outline-hide-subtree)
- (org-cycle-show-empty-lines 'folded)
- (goto-char pos)))
- (org-reveal)
- (if (looking-at "^[ \t]*$")
- (outline-next-visible-heading 1))))
-
-(defun org-archive-all-done (&optional tag)
- "Archive sublevels of the current tree without open TODO items.
-If the cursor is not on a headline, try all level 1 trees. If
-it is on a headline, try all direct children.
-When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag."
- (org-archive-all-matches
- (lambda (_beg end)
- (let ((case-fold-search nil))
- (unless (re-search-forward org-not-done-heading-regexp end t)
- "no open TODO items")))
- tag))
-
-(defun org-archive-all-old (&optional tag)
- "Archive sublevels of the current tree with timestamps prior to today.
-If the cursor is not on a headline, try all level 1 trees. If
-it is on a headline, try all direct children.
-When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag."
- (org-archive-all-matches
- (lambda (_beg end)
- (let (ts)
- (and (re-search-forward org-ts-regexp end t)
- (setq ts (match-string 0))
- (< (org-time-stamp-to-now ts) 0)
- (if (not (looking-at
- (concat "--\\(" org-ts-regexp "\\)")))
- (concat "old timestamp " ts)
- (setq ts (concat "old timestamp " ts (match-string 0)))
- (and (< (org-time-stamp-to-now (match-string 1)) 0)
- ts)))))
- tag))
-
-(defun org-archive-all-matches (predicate &optional tag)
- "Archive sublevels of the current tree that match PREDICATE.
-
-PREDICATE is a function of two arguments, BEG and END, which
-specify the beginning and end of the headline being considered.
-It is called with point positioned at BEG. The headline will be
-archived if PREDICATE returns non-nil. If the return value of
-PREDICATE is a string, it should describe the reason for
-archiving the heading.
-
-If the cursor is not on a headline, try all level 1 trees. If it
-is on a headline, try all direct children. When TAG is non-nil,
-don't move trees, but mark them with the ARCHIVE tag."
- (let ((rea (concat ".*:" org-archive-tag ":")) re1
- (begm (make-marker))
- (endm (make-marker))
- (question (if tag "Set ARCHIVE tag? "
- "Move subtree to archive? "))
- reason beg end (cntarch 0))
- (if (org-at-heading-p)
- (progn
- (setq re1 (concat "^" (regexp-quote
- (make-string
- (+ (- (match-end 0) (match-beginning 0) 1)
- (if org-odd-levels-only 2 1))
- ?*))
- " "))
- (move-marker begm (point))
- (move-marker endm (org-end-of-subtree t)))
- (setq re1 "^* ")
- (move-marker begm (point-min))
- (move-marker endm (point-max)))
- (save-excursion
- (goto-char begm)
- (while (re-search-forward re1 endm t)
- (setq beg (match-beginning 0)
- end (save-excursion (org-end-of-subtree t) (point)))
- (goto-char beg)
- (if (not (setq reason (funcall predicate beg end)))
- (goto-char end)
- (goto-char beg)
- (if (and (or (not tag) (not (looking-at rea)))
- (y-or-n-p
- (if (stringp reason)
- (concat question "(" reason ")")
- question)))
- (progn
- (if tag
- (org-toggle-tag org-archive-tag 'on)
- (org-archive-subtree))
- (setq cntarch (1+ cntarch)))
- (goto-char end)))))
- (message "%d trees archived" cntarch)))
-
-;;;###autoload
-(defun org-toggle-archive-tag (&optional find-done)
- "Toggle the archive tag for the current headline.
-With prefix ARG, check all children of current headline and offer tagging
-the children that do not contain any open TODO items."
- (interactive "P")
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level 'region))
- org-loop-over-headlines-in-active-region)
- (org-map-entries
- `(org-toggle-archive-tag ,find-done)
- org-loop-over-headlines-in-active-region
- cl (if (org-invisible-p) (org-end-of-subtree nil t))))
- (if find-done
- (org-archive-all-done 'tag)
- (let (set)
- (save-excursion
- (org-back-to-heading t)
- (setq set (org-toggle-tag org-archive-tag))
- (when set (org-flag-subtree t)))
- (and set (beginning-of-line 1))
- (message "Subtree %s" (if set "archived" "unarchived"))))))
-
-(defun org-archive-set-tag ()
- "Set the ARCHIVE tag."
- (interactive)
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level 'region))
- org-loop-over-headlines-in-active-region)
- (org-map-entries
- 'org-archive-set-tag
- org-loop-over-headlines-in-active-region
- cl (if (org-invisible-p) (org-end-of-subtree nil t))))
- (org-toggle-tag org-archive-tag 'on)))
-
-;;;###autoload
-(defun org-archive-subtree-default ()
- "Archive the current subtree with the default command.
-This command is set with the variable `org-archive-default-command'."
- (interactive)
- (call-interactively org-archive-default-command))
-
-;;;###autoload
-(defun org-archive-subtree-default-with-confirmation ()
- "Archive the current subtree with the default command.
-This command is set with the variable `org-archive-default-command'."
- (interactive)
- (if (y-or-n-p "Archive this subtree or entry? ")
- (call-interactively org-archive-default-command)
- (error "Abort")))
-
-(provide 'org-archive)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-archive.el ends here
diff --git a/elpa/org-9.1.14/org-archive.elc b/elpa/org-9.1.14/org-archive.elc
deleted file mode 100644
index c227315..0000000
--- a/elpa/org-9.1.14/org-archive.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-attach.el b/elpa/org-9.1.14/org-attach.el
deleted file mode 100644
index 86516e2..0000000
--- a/elpa/org-9.1.14/org-attach.el
+++ /dev/null
@@ -1,589 +0,0 @@
-;;; org-attach.el --- Manage file attachments to Org tasks -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2008-2018 Free Software Foundation, Inc.
-
-;; Author: John Wiegley <johnw@newartisans.com>
-;; Keywords: org data task
-
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; See the Org manual for information on how to use it.
-;;
-;; Attachments are managed in a special directory called "data", which
-;; lives in the same directory as the org file itself. If this data
-;; directory is initialized as a Git repository, then org-attach will
-;; automatically commit changes when it sees them.
-;;
-;; Attachment directories are identified using a UUID generated for the
-;; task which has the attachments. These are added as property to the
-;; task when necessary, and should not be deleted or changed by the
-;; user, ever. UUIDs are generated by a mechanism defined in the variable
-;; `org-id-method'.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-(require 'org-id)
-(require 'vc-git)
-
-(declare-function dired-dwim-target-directory "dired-aux")
-
-(defgroup org-attach nil
- "Options concerning entry attachments in Org mode."
- :tag "Org Attach"
- :group 'org)
-
-(defcustom org-attach-directory "data/"
- "The directory where attachments are stored.
-If this is a relative path, it will be interpreted relative to the directory
-where the Org file lives."
- :group 'org-attach
- :type 'directory)
-
-(defcustom org-attach-commit t
- "If non-nil commit attachments with git.
-This is only done if the Org file is in a git repository."
- :group 'org-attach
- :type 'boolean
- :version "26.1"
- :package-version '(Org . "9.0"))
-
-(defcustom org-attach-git-annex-cutoff (* 32 1024)
- "If non-nil, files larger than this will be annexed instead of stored."
- :group 'org-attach
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "None" nil)
- (integer :tag "Bytes")))
-
-(defcustom org-attach-auto-tag "ATTACH"
- "Tag that will be triggered automatically when an entry has an attachment."
- :group 'org-attach
- :type '(choice
- (const :tag "None" nil)
- (string :tag "Tag")))
-
-(defcustom org-attach-file-list-property "Attachments"
- "The property used to keep a list of attachment belonging to this entry.
-This is not really needed, so you may set this to nil if you don't want it.
-Also, for entries where children inherit the directory, the list of
-attachments is not kept in this property."
- :group 'org-attach
- :type '(choice
- (const :tag "None" nil)
- (string :tag "Tag")))
-
-(defcustom org-attach-method 'cp
- "The preferred method to attach a file.
-Allowed values are:
-
-mv rename the file to move it into the attachment directory
-cp copy the file
-ln create a hard link. Note that this is not supported
- on all systems, and then the result is not defined.
-lns create a symbol link. Note that this is not supported
- on all systems, and then the result is not defined."
- :group 'org-attach
- :type '(choice
- (const :tag "Copy" cp)
- (const :tag "Move/Rename" mv)
- (const :tag "Hard Link" ln)
- (const :tag "Symbol Link" lns)))
-
-(defcustom org-attach-expert nil
- "Non-nil means do not show the splash buffer with the attach dispatcher."
- :group 'org-attach
- :type 'boolean)
-
-(defcustom org-attach-allow-inheritance t
- "Non-nil means allow attachment directories be inherited."
- :group 'org-attach
- :type 'boolean)
-
-(defvar org-attach-inherited nil
- "Indicates if the last access to the attachment directory was inherited.")
-
-(defcustom org-attach-store-link-p nil
- "Non-nil means store a link to a file when attaching it."
- :group 'org-attach
- :version "24.1"
- :type '(choice
- (const :tag "Don't store link" nil)
- (const :tag "Link to origin location" t)
- (const :tag "Link to the attach-dir location" attached)))
-
-(defcustom org-attach-archive-delete nil
- "Non-nil means attachments are deleted upon archiving a subtree.
-When set to `query', ask the user instead."
- :group 'org-attach
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(choice
- (const :tag "Never delete attachments" nil)
- (const :tag "Always delete attachments" t)
- (const :tag "Query the user" query)))
-
-(defcustom org-attach-annex-auto-get 'ask
- "Confirmation preference for automatically getting annex files.
-If \\='ask, prompt using `y-or-n-p'. If t, always get. If nil, never get."
- :group 'org-attach
- :package-version '(Org . "9.0")
- :version "26.1"
- :type '(choice
- (const :tag "confirm with `y-or-n-p'" ask)
- (const :tag "always get from annex if necessary" t)
- (const :tag "never get from annex" nil)))
-
-;;;###autoload
-(defun org-attach ()
- "The dispatcher for attachment commands.
-Shows a list of commands and prompts for another key to execute a command."
- (interactive)
- (let (c marker)
- (when (eq major-mode 'org-agenda-mode)
- (setq marker (or (get-text-property (point) 'org-hd-marker)
- (get-text-property (point) 'org-marker)))
- (unless marker
- (error "No task in current line")))
- (save-excursion
- (when marker
- (set-buffer (marker-buffer marker))
- (goto-char marker))
- (org-back-to-heading t)
- (save-excursion
- (save-window-excursion
- (unless org-attach-expert
- (with-output-to-temp-buffer "*Org Attach*"
- (princ "Select an Attachment Command:
-
-a Select a file and attach it to the task, using `org-attach-method'.
-c/m/l/y Attach a file using copy/move/link/symbolic-link method.
-u Attach a file from URL (downloading it).
-n Create a new attachment, as an Emacs buffer.
-z Synchronize the current task with its attachment
- directory, in case you added attachments yourself.
-
-o Open current task's attachments.
-O Like \"o\", but force opening in Emacs.
-f Open current task's attachment directory.
-F Like \"f\", but force using dired in Emacs.
-
-d Delete one attachment, you will be prompted for a file name.
-D Delete all of a task's attachments. A safer way is
- to open the directory in dired and delete from there.
-
-s Set a specific attachment directory for this entry or reset to default.
-i Make children of the current entry inherit its attachment directory.")))
- (org-fit-window-to-buffer (get-buffer-window "*Org Attach*"))
- (message "Select command: [acmlzoOfFdD]")
- (setq c (read-char-exclusive))
- (and (get-buffer "*Org Attach*") (kill-buffer "*Org Attach*"))))
- (cond
- ((memq c '(?a ?\C-a)) (call-interactively 'org-attach-attach))
- ((memq c '(?c ?\C-c))
- (let ((org-attach-method 'cp)) (call-interactively 'org-attach-attach)))
- ((memq c '(?m ?\C-m))
- (let ((org-attach-method 'mv)) (call-interactively 'org-attach-attach)))
- ((memq c '(?l ?\C-l))
- (let ((org-attach-method 'ln)) (call-interactively 'org-attach-attach)))
- ((memq c '(?y ?\C-y))
- (let ((org-attach-method 'lns)) (call-interactively 'org-attach-attach)))
- ((memq c '(?u ?\C-u))
- (let ((org-attach-method 'url)) (call-interactively 'org-attach-url)))
- ((memq c '(?n ?\C-n)) (call-interactively 'org-attach-new))
- ((memq c '(?z ?\C-z)) (call-interactively 'org-attach-sync))
- ((memq c '(?o ?\C-o)) (call-interactively 'org-attach-open))
- ((eq c ?O) (call-interactively 'org-attach-open-in-emacs))
- ((memq c '(?f ?\C-f)) (call-interactively 'org-attach-reveal))
- ((memq c '(?F)) (call-interactively 'org-attach-reveal-in-emacs))
- ((memq c '(?d ?\C-d)) (call-interactively
- 'org-attach-delete-one))
- ((eq c ?D) (call-interactively 'org-attach-delete-all))
- ((eq c ?q) (message "Abort"))
- ((memq c '(?s ?\C-s)) (call-interactively
- 'org-attach-set-directory))
- ((memq c '(?i ?\C-i)) (call-interactively
- 'org-attach-set-inherit))
- (t (error "No such attachment command %c" c))))))
-
-(defun org-attach-dir (&optional create-if-not-exists-p)
- "Return the directory associated with the current entry.
-This first checks for a local property ATTACH_DIR, and then for an inherited
-property ATTACH_DIR_INHERIT. If neither exists, the default mechanism
-using the entry ID will be invoked to access the unique directory for the
-current entry.
-If the directory does not exist and CREATE-IF-NOT-EXISTS-P is non-nil,
-the directory and (if necessary) the corresponding ID will be created."
- (let (attach-dir uuid)
- (setq org-attach-inherited (org-entry-get nil "ATTACH_DIR_INHERIT"))
- (cond
- ((setq attach-dir (org-entry-get nil "ATTACH_DIR"))
- (org-attach-check-absolute-path attach-dir))
- ((and org-attach-allow-inheritance
- (org-entry-get nil "ATTACH_DIR_INHERIT" t))
- (setq attach-dir
- (org-with-wide-buffer
- (if (marker-position org-entry-property-inherited-from)
- (goto-char org-entry-property-inherited-from)
- (org-back-to-heading t))
- (let (org-attach-allow-inheritance)
- (org-attach-dir create-if-not-exists-p))))
- (org-attach-check-absolute-path attach-dir)
- (setq org-attach-inherited t))
- (t ; use the ID
- (org-attach-check-absolute-path nil)
- (setq uuid (org-id-get (point) create-if-not-exists-p))
- (when (or uuid create-if-not-exists-p)
- (unless uuid (error "ID retrieval/creation failed"))
- (setq attach-dir (expand-file-name
- (format "%s/%s"
- (substring uuid 0 2)
- (substring uuid 2))
- (expand-file-name org-attach-directory))))))
- (when attach-dir
- (if (and create-if-not-exists-p
- (not (file-directory-p attach-dir)))
- (make-directory attach-dir t))
- (and (file-exists-p attach-dir)
- attach-dir))))
-
-(defun org-attach-check-absolute-path (dir)
- "Check if we have enough information to root the attachment directory.
-When DIR is given, check also if it is already absolute. Otherwise,
-assume that it will be relative, and check if `org-attach-directory' is
-absolute, or if at least the current buffer has a file name.
-Throw an error if we cannot root the directory."
- (or (and dir (file-name-absolute-p dir))
- (file-name-absolute-p org-attach-directory)
- (buffer-file-name (buffer-base-buffer))
- (error "Need absolute `org-attach-directory' to attach in buffers without filename")))
-
-(defun org-attach-set-directory (&optional arg)
- "Set the ATTACH_DIR node property and ask to move files there.
-The property defines the directory that is used for attachments
-of the entry. When called with `\\[universal-argument]', reset \
-the directory to
-the default ID based one."
- (interactive "P")
- (let ((old (org-attach-dir))
- (new
- (progn
- (if arg (org-entry-delete nil "ATTACH_DIR")
- (let ((dir (read-directory-name
- "Attachment directory: "
- (org-entry-get nil
- "ATTACH_DIR"
- (and org-attach-allow-inheritance t)))))
- (org-entry-put nil "ATTACH_DIR" dir)))
- (org-attach-dir t))))
- (unless (or (string= old new)
- (not old))
- (when (yes-or-no-p "Copy over attachments from old directory? ")
- (copy-directory old new t nil t))
- (when (yes-or-no-p (concat "Delete " old))
- (delete-directory old t)))))
-
-(defun org-attach-set-inherit ()
- "Set the ATTACH_DIR_INHERIT property of the current entry.
-The property defines the directory that is used for attachments
-of the entry and any children that do not explicitly define (by setting
-the ATTACH_DIR property) their own attachment directory."
- (interactive)
- (org-entry-put nil "ATTACH_DIR_INHERIT" "t")
- (message "Children will inherit attachment directory"))
-
-(defun org-attach-use-annex ()
- "Return non-nil if git annex can be used."
- (let ((git-dir (vc-git-root (expand-file-name org-attach-directory))))
- (and org-attach-git-annex-cutoff
- (or (file-exists-p (expand-file-name "annex" git-dir))
- (file-exists-p (expand-file-name ".git/annex" git-dir))))))
-
-(defun org-attach-annex-get-maybe (path)
- "Call git annex get PATH (via shell) if using git annex.
-Signals an error if the file content is not available and it was not retrieved."
- (let* ((default-directory (expand-file-name org-attach-directory))
- (path-relative (file-relative-name path)))
- (when (and (org-attach-use-annex)
- (not
- (string-equal
- "found"
- (shell-command-to-string
- (format "git annex find --format=found --in=here %s"
- (shell-quote-argument path-relative))))))
- (let ((should-get
- (if (eq org-attach-annex-auto-get 'ask)
- (y-or-n-p (format "Run git annex get %s? " path-relative))
- org-attach-annex-auto-get)))
- (if should-get
- (progn (message "Running git annex get \"%s\"." path-relative)
- (call-process "git" nil nil nil "annex" "get" path-relative))
- (error "File %s stored in git annex but it is not available, and was not retrieved"
- path))))))
-
-(defun org-attach-commit ()
- "Commit changes to git if `org-attach-directory' is properly initialized.
-This checks for the existence of a \".git\" directory in that directory."
- (let* ((dir (expand-file-name org-attach-directory))
- (git-dir (vc-git-root dir))
- (use-annex (org-attach-use-annex))
- (changes 0))
- (when (and git-dir (executable-find "git"))
- (with-temp-buffer
- (cd dir)
- (dolist (new-or-modified
- (split-string
- (shell-command-to-string
- "git ls-files -zmo --exclude-standard") "\0" t))
- (if (and use-annex
- (>= (nth 7 (file-attributes new-or-modified))
- org-attach-git-annex-cutoff))
- (call-process "git" nil nil nil "annex" "add" new-or-modified)
- (call-process "git" nil nil nil "add" new-or-modified))
- (cl-incf changes))
- (dolist (deleted
- (split-string
- (shell-command-to-string "git ls-files -z --deleted") "\0" t))
- (call-process "git" nil nil nil "rm" deleted)
- (cl-incf changes))
- (when (> changes 0)
- (shell-command "git commit -m 'Synchronized attachments'"))))))
-
-(defun org-attach-tag (&optional off)
- "Turn the autotag on or (if OFF is set) off."
- (when org-attach-auto-tag
- (save-excursion
- (org-back-to-heading t)
- (org-toggle-tag org-attach-auto-tag (if off 'off 'on)))))
-
-(defun org-attach-untag ()
- "Turn the autotag off."
- (org-attach-tag 'off))
-
-(defun org-attach-store-link (file)
- "Add a link to `org-stored-link' when attaching a file.
-Only do this when `org-attach-store-link-p' is non-nil."
- (setq org-stored-links
- (cons (list (org-attach-expand-link file)
- (file-name-nondirectory file))
- org-stored-links)))
-
-(defun org-attach-url (url)
- (interactive "MURL of the file to attach: \n")
- (org-attach-attach url))
-
-(defun org-attach-attach (file &optional visit-dir method)
- "Move/copy/link FILE into the attachment directory of the current task.
-If VISIT-DIR is non-nil, visit the directory with dired.
-METHOD may be `cp', `mv', `ln', `lns' or `url' default taken from
-`org-attach-method'."
- (interactive
- (list
- (read-file-name "File to keep as an attachment:"
- (or (progn
- (require 'dired-aux)
- (dired-dwim-target-directory))
- default-directory))
- current-prefix-arg
- nil))
- (setq method (or method org-attach-method))
- (let ((basename (file-name-nondirectory file)))
- (when (and org-attach-file-list-property (not org-attach-inherited))
- (org-entry-add-to-multivalued-property
- (point) org-attach-file-list-property basename))
- (let* ((attach-dir (org-attach-dir t))
- (fname (expand-file-name basename attach-dir)))
- (cond
- ((eq method 'mv) (rename-file file fname))
- ((eq method 'cp) (copy-file file fname))
- ((eq method 'ln) (add-name-to-file file fname))
- ((eq method 'lns) (make-symbolic-link file fname))
- ((eq method 'url) (url-copy-file file fname)))
- (when org-attach-commit
- (org-attach-commit))
- (org-attach-tag)
- (cond ((eq org-attach-store-link-p 'attached)
- (org-attach-store-link fname))
- ((eq org-attach-store-link-p t)
- (org-attach-store-link file)))
- (if visit-dir
- (dired attach-dir)
- (message "File %S is now a task attachment." basename)))))
-
-(defun org-attach-attach-cp ()
- "Attach a file by copying it."
- (interactive)
- (let ((org-attach-method 'cp)) (call-interactively 'org-attach-attach)))
-(defun org-attach-attach-mv ()
- "Attach a file by moving (renaming) it."
- (interactive)
- (let ((org-attach-method 'mv)) (call-interactively 'org-attach-attach)))
-(defun org-attach-attach-ln ()
- "Attach a file by creating a hard link to it.
-Beware that this does not work on systems that do not support hard links.
-On some systems, this apparently does copy the file instead."
- (interactive)
- (let ((org-attach-method 'ln)) (call-interactively 'org-attach-attach)))
-(defun org-attach-attach-lns ()
- "Attach a file by creating a symbolic link to it.
-
-Beware that this does not work on systems that do not support symbolic links.
-On some systems, this apparently does copy the file instead."
- (interactive)
- (let ((org-attach-method 'lns)) (call-interactively 'org-attach-attach)))
-
-(defun org-attach-new (file)
- "Create a new attachment FILE for the current task.
-The attachment is created as an Emacs buffer."
- (interactive "sCreate attachment named: ")
- (when (and org-attach-file-list-property (not org-attach-inherited))
- (org-entry-add-to-multivalued-property
- (point) org-attach-file-list-property file))
- (let ((attach-dir (org-attach-dir t)))
- (org-attach-tag)
- (find-file (expand-file-name file attach-dir))
- (message "New attachment %s" file)))
-
-(defun org-attach-delete-one (&optional file)
- "Delete a single attachment."
- (interactive)
- (let* ((attach-dir (org-attach-dir t))
- (files (org-attach-file-list attach-dir))
- (file (or file
- (completing-read
- "Delete attachment: "
- (mapcar (lambda (f)
- (list (file-name-nondirectory f)))
- files)))))
- (setq file (expand-file-name file attach-dir))
- (unless (file-exists-p file)
- (error "No such attachment: %s" file))
- (delete-file file)
- (when org-attach-commit
- (org-attach-commit))))
-
-(defun org-attach-delete-all (&optional force)
- "Delete all attachments from the current task.
-This actually deletes the entire attachment directory.
-A safer way is to open the directory in dired and delete from there."
- (interactive "P")
- (when (and org-attach-file-list-property (not org-attach-inherited))
- (org-entry-delete (point) org-attach-file-list-property))
- (let ((attach-dir (org-attach-dir)))
- (when
- (and attach-dir
- (or force
- (y-or-n-p "Are you sure you want to remove all attachments of this entry? ")))
- (shell-command (format "rm -fr %s" attach-dir))
- (message "Attachment directory removed")
- (when org-attach-commit
- (org-attach-commit))
- (org-attach-untag))))
-
-(defun org-attach-sync ()
- "Synchronize the current tasks with its attachments.
-This can be used after files have been added externally."
- (interactive)
- (when org-attach-commit
- (org-attach-commit))
- (when (and org-attach-file-list-property (not org-attach-inherited))
- (org-entry-delete (point) org-attach-file-list-property))
- (let ((attach-dir (org-attach-dir)))
- (when attach-dir
- (let ((files (org-attach-file-list attach-dir)))
- (org-attach-tag (not files))
- (when org-attach-file-list-property
- (dolist (file files)
- (unless (string-match "^\\.\\.?\\'" file)
- (org-entry-add-to-multivalued-property
- (point) org-attach-file-list-property file))))))))
-
-(defun org-attach-file-list (dir)
- "Return a list of files in the attachment directory.
-This ignores files ending in \"~\"."
- (delq nil
- (mapcar (lambda (x) (if (string-match "^\\.\\.?\\'" x) nil x))
- (directory-files dir nil "[^~]\\'"))))
-
-(defun org-attach-reveal (&optional if-exists)
- "Show the attachment directory of the current task.
-This will attempt to use an external program to show the directory."
- (interactive "P")
- (let ((attach-dir (org-attach-dir (not if-exists))))
- (and attach-dir (org-open-file attach-dir))))
-
-(defun org-attach-reveal-in-emacs ()
- "Show the attachment directory of the current task in dired."
- (interactive)
- (let ((attach-dir (org-attach-dir t)))
- (dired attach-dir)))
-
-(defun org-attach-open (&optional in-emacs)
- "Open an attachment of the current task.
-If there are more than one attachment, you will be prompted for the file name.
-This command will open the file using the settings in `org-file-apps'
-and in the system-specific variants of this variable.
-If IN-EMACS is non-nil, force opening in Emacs."
- (interactive "P")
- (let* ((attach-dir (org-attach-dir t))
- (files (org-attach-file-list attach-dir))
- (file (if (= (length files) 1)
- (car files)
- (completing-read "Open attachment: "
- (mapcar #'list files) nil t)))
- (path (expand-file-name file attach-dir)))
- (org-attach-annex-get-maybe path)
- (org-open-file path in-emacs)))
-
-(defun org-attach-open-in-emacs ()
- "Open attachment, force opening in Emacs.
-See `org-attach-open'."
- (interactive)
- (org-attach-open 'in-emacs))
-
-(defun org-attach-expand (file)
- "Return the full path to the current entry's attachment file FILE.
-Basically, this adds the path to the attachment directory."
- (expand-file-name file (org-attach-dir)))
-
-(defun org-attach-expand-link (file)
- "Return a file link pointing to the current entry's attachment file FILE.
-Basically, this adds the path to the attachment directory, and a \"file:\"
-prefix."
- (concat "file:" (org-attach-expand file)))
-
-(defun org-attach-archive-delete-maybe ()
- "Maybe delete subtree attachments when archiving.
-This function is called by `org-archive-hook'. The option
-`org-attach-archive-delete' controls its behavior."
- (when (if (eq org-attach-archive-delete 'query)
- (yes-or-no-p "Delete all attachments? ")
- org-attach-archive-delete)
- (org-attach-delete-all t)))
-
-(add-hook 'org-archive-hook 'org-attach-archive-delete-maybe)
-
-(provide 'org-attach)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-attach.el ends here
diff --git a/elpa/org-9.1.14/org-attach.elc b/elpa/org-9.1.14/org-attach.elc
deleted file mode 100644
index 55fd106..0000000
--- a/elpa/org-9.1.14/org-attach.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-autoloads.el b/elpa/org-9.1.14/org-autoloads.el
deleted file mode 100644
index 419dfff..0000000
--- a/elpa/org-9.1.14/org-autoloads.el
+++ /dev/null
@@ -1,1550 +0,0 @@
-;;; org-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "ob-C" "ob-C.el" (0 0 0 0))
-;;; Generated autoloads from ob-C.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-C" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-J" "ob-J.el" (0 0 0 0))
-;;; Generated autoloads from ob-J.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-J" '("obj-" "org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-R" "ob-R.el" (0 0 0 0))
-;;; Generated autoloads from ob-R.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-R" '("ob-R-" "org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-abc" "ob-abc.el" (0 0 0 0))
-;;; Generated autoloads from ob-abc.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-abc" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-asymptote" "ob-asymptote.el" (0 0 0 0))
-;;; Generated autoloads from ob-asymptote.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-asymptote" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-awk" "ob-awk.el" (0 0 0 0))
-;;; Generated autoloads from ob-awk.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-awk" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-calc" "ob-calc.el" (0 0 0 0))
-;;; Generated autoloads from ob-calc.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-calc" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-clojure" "ob-clojure.el" (0 0 0 0))
-;;; Generated autoloads from ob-clojure.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-clojure" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-comint" "ob-comint.el" (0 0 0 0))
-;;; Generated autoloads from ob-comint.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-comint" '("org-babel-comint-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-coq" "ob-coq.el" (0 0 0 0))
-;;; Generated autoloads from ob-coq.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-coq" '("org-babel-" "coq-program-name")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ob-core" "ob-core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ob-core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-core" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-css" "ob-css.el" (0 0 0 0))
-;;; Generated autoloads from ob-css.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-css" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-ditaa" "ob-ditaa.el" (0 0 0 0))
-;;; Generated autoloads from ob-ditaa.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-ditaa" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-dot" "ob-dot.el" (0 0 0 0))
-;;; Generated autoloads from ob-dot.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-dot" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-ebnf" "ob-ebnf.el" (0 0 0 0))
-;;; Generated autoloads from ob-ebnf.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-ebnf" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-emacs-lisp" "ob-emacs-lisp.el" (0 0 0 0))
-;;; Generated autoloads from ob-emacs-lisp.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-emacs-lisp" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-eval" "ob-eval.el" (0 0 0 0))
-;;; Generated autoloads from ob-eval.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-eval" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-exp" "ob-exp.el" (0 0 0 0))
-;;; Generated autoloads from ob-exp.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-exp" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-forth" "ob-forth.el" (0 0 0 0))
-;;; Generated autoloads from ob-forth.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-forth" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-fortran" "ob-fortran.el" (0 0 0 0))
-;;; Generated autoloads from ob-fortran.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-fortran" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-gnuplot" "ob-gnuplot.el" (0 0 0 0))
-;;; Generated autoloads from ob-gnuplot.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-gnuplot" '("org-babel-" "*org-babel-gnuplot-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-groovy" "ob-groovy.el" (0 0 0 0))
-;;; Generated autoloads from ob-groovy.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-groovy" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-haskell" "ob-haskell.el" (0 0 0 0))
-;;; Generated autoloads from ob-haskell.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-haskell" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-hledger" "ob-hledger.el" (0 0 0 0))
-;;; Generated autoloads from ob-hledger.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-hledger" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-io" "ob-io.el" (0 0 0 0))
-;;; Generated autoloads from ob-io.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-io" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-java" "ob-java.el" (0 0 0 0))
-;;; Generated autoloads from ob-java.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-java" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-js" "ob-js.el" (0 0 0 0))
-;;; Generated autoloads from ob-js.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-js" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ob-keys" "ob-keys.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ob-keys.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-keys" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-latex" "ob-latex.el" (0 0 0 0))
-;;; Generated autoloads from ob-latex.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-latex" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-ledger" "ob-ledger.el" (0 0 0 0))
-;;; Generated autoloads from ob-ledger.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-ledger" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-lilypond" "ob-lilypond.el" (0 0 0 0))
-;;; Generated autoloads from ob-lilypond.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-lilypond" '("org-babel-" "lilypond-mode")))
-
-;;;***
-
-;;;### (autoloads nil "ob-lisp" "ob-lisp.el" (0 0 0 0))
-;;; Generated autoloads from ob-lisp.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-lisp" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ob-lob" "ob-lob.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ob-lob.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-lob" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-lua" "ob-lua.el" (0 0 0 0))
-;;; Generated autoloads from ob-lua.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-lua" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-makefile" "ob-makefile.el" (0 0 0 0))
-;;; Generated autoloads from ob-makefile.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-makefile" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-maxima" "ob-maxima.el" (0 0 0 0))
-;;; Generated autoloads from ob-maxima.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-maxima" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-mscgen" "ob-mscgen.el" (0 0 0 0))
-;;; Generated autoloads from ob-mscgen.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-mscgen" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-ocaml" "ob-ocaml.el" (0 0 0 0))
-;;; Generated autoloads from ob-ocaml.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-ocaml" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-octave" "ob-octave.el" (0 0 0 0))
-;;; Generated autoloads from ob-octave.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-octave" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-org" "ob-org.el" (0 0 0 0))
-;;; Generated autoloads from ob-org.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-org" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-perl" "ob-perl.el" (0 0 0 0))
-;;; Generated autoloads from ob-perl.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-perl" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-picolisp" "ob-picolisp.el" (0 0 0 0))
-;;; Generated autoloads from ob-picolisp.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-picolisp" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-plantuml" "ob-plantuml.el" (0 0 0 0))
-;;; Generated autoloads from ob-plantuml.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-plantuml" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-processing" "ob-processing.el" (0 0 0 0))
-;;; Generated autoloads from ob-processing.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-processing" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-python" "ob-python.el" (0 0 0 0))
-;;; Generated autoloads from ob-python.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-python" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-ref" "ob-ref.el" (0 0 0 0))
-;;; Generated autoloads from ob-ref.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-ref" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-ruby" "ob-ruby.el" (0 0 0 0))
-;;; Generated autoloads from ob-ruby.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-ruby" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-sass" "ob-sass.el" (0 0 0 0))
-;;; Generated autoloads from ob-sass.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-sass" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-scheme" "ob-scheme.el" (0 0 0 0))
-;;; Generated autoloads from ob-scheme.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-scheme" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-screen" "ob-screen.el" (0 0 0 0))
-;;; Generated autoloads from ob-screen.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-screen" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-sed" "ob-sed.el" (0 0 0 0))
-;;; Generated autoloads from ob-sed.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-sed" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-shell" "ob-shell.el" (0 0 0 0))
-;;; Generated autoloads from ob-shell.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-shell" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-shen" "ob-shen.el" (0 0 0 0))
-;;; Generated autoloads from ob-shen.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-shen" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-sql" "ob-sql.el" (0 0 0 0))
-;;; Generated autoloads from ob-sql.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-sql" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-sqlite" "ob-sqlite.el" (0 0 0 0))
-;;; Generated autoloads from ob-sqlite.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-sqlite" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-stan" "ob-stan.el" (0 0 0 0))
-;;; Generated autoloads from ob-stan.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-stan" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-table" "ob-table.el" (0 0 0 0))
-;;; Generated autoloads from ob-table.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-table" '("org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ob-tangle" "ob-tangle.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ob-tangle.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-tangle" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "ob-vala" "ob-vala.el" (0 0 0 0))
-;;; Generated autoloads from ob-vala.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-vala" '("org-babel-")))
-
-;;;***
-
-;;;### (autoloads nil "org" "org.el" (0 0 0 0))
-;;; Generated autoloads from org.el
-
-(autoload 'org-babel-do-load-languages "org" "\
-Load the languages defined in `org-babel-load-languages'.
-
-\(fn SYM VALUE)" nil nil)
-
-(autoload 'org-babel-load-file "org" "\
-Load Emacs Lisp source code blocks in the Org FILE.
-This function exports the source code using `org-babel-tangle'
-and then loads the resulting file using `load-file'. With prefix
-arg (noninteractively: 2nd arg) COMPILE the tangled Emacs Lisp
-file to byte-code before it is loaded.
-
-\(fn FILE &optional COMPILE)" t nil)
-
-(autoload 'org-version "org" "\
-Show the Org version.
-Interactively, or when MESSAGE is non-nil, show it in echo area.
-With prefix argument, or when HERE is non-nil, insert it at point.
-In non-interactive uses, a reduced version string is output unless
-FULL is given.
-
-\(fn &optional HERE FULL MESSAGE)" t nil)
-
-(autoload 'turn-on-orgtbl "org" "\
-Unconditionally turn on `orgtbl-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'org-clock-persistence-insinuate "org" "\
-Set up hooks for clock persistence.
-
-\(fn)" nil nil)
-
-(autoload 'org-mode "org" "\
-Outline-based notes management and organizer, alias
-\"Carsten's outline-mode for keeping track of everything.\"
-
-Org mode develops organizational tasks around a NOTES file which
-contains information about projects as plain text. Org mode is
-implemented on top of Outline mode, which is ideal to keep the content
-of large files well structured. It supports ToDo items, deadlines and
-time stamps, which magically appear in the diary listing of the Emacs
-calendar. Tables are easily created with a built-in table editor.
-Plain text URL-like links connect to websites, emails (VM), Usenet
-messages (Gnus), BBDB entries, and any files related to the project.
-For printing and sharing of notes, an Org file (or a part of it)
-can be exported as a structured ASCII or HTML file.
-
-The following commands are available:
-
-\\{org-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'org-cycle "org" "\
-TAB-action and visibility cycling for Org mode.
-
-This is the command invoked in Org mode by the `TAB' key. Its main
-purpose is outline visibility cycling, but it also invokes other actions
-in special contexts.
-
-When this function is called with a `\\[universal-argument]' prefix, rotate the entire
-buffer through 3 states (global cycling)
- 1. OVERVIEW: Show only top-level headlines.
- 2. CONTENTS: Show all headlines of all levels, but no body text.
- 3. SHOW ALL: Show everything.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix argument, switch to the startup visibility,
-determined by the variable `org-startup-folded', and by any VISIBILITY
-properties in the buffer.
-
-With a `\\[universal-argument] \\[universal-argument] \\[universal-argument]' prefix argument, show the entire buffer, including
-any drawers.
-
-When inside a table, re-align the table and move to the next field.
-
-When point is at the beginning of a headline, rotate the subtree started
-by this line through 3 different states (local cycling)
- 1. FOLDED: Only the main headline is shown.
- 2. CHILDREN: The main headline and the direct children are shown.
- From this state, you can move to one of the children
- and zoom in further.
- 3. SUBTREE: Show the entire subtree, including body text.
-If there is no subtree, switch directly from CHILDREN to FOLDED.
-
-When point is at the beginning of an empty headline and the variable
-`org-cycle-level-after-item/entry-creation' is set, cycle the level
-of the headline by demoting and promoting it to likely levels. This
-speeds up creation document structure by pressing `TAB' once or several
-times right after creating a new headline.
-
-When there is a numeric prefix, go up to a heading with level ARG, do
-a `show-subtree' and return to the previous cursor position. If ARG
-is negative, go up that many levels.
-
-When point is not at the beginning of a headline, execute the global
-binding for `TAB', which is re-indenting the line. See the option
-`org-cycle-emulate-tab' for details.
-
-As a special case, if point is at the beginning of the buffer and there is
-no headline in line 1, this function will act as if called with prefix arg
-\(`\\[universal-argument] TAB', same as `S-TAB') also when called without prefix arg, but only
-if the variable `org-cycle-global-at-bob' is t.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-global-cycle "org" "\
-Cycle the global visibility. For details see `org-cycle'.
-With `\\[universal-argument]' prefix ARG, switch to startup visibility.
-With a numeric prefix, show all headlines up to that level.
-
-\(fn &optional ARG)" t nil)
-(put 'orgstruct-heading-prefix-regexp 'safe-local-variable 'stringp)
-
-(autoload 'orgstruct-mode "org" "\
-Toggle the minor mode `orgstruct-mode'.
-This mode is for using Org mode structure commands in other
-modes. The following keys behave as if Org mode were active, if
-the cursor is on a headline, or on a plain list item (both as
-defined by Org mode).
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-orgstruct "org" "\
-Unconditionally turn on `orgstruct-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'turn-on-orgstruct++ "org" "\
-Unconditionally turn on `orgstruct++-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'org-run-like-in-org-mode "org" "\
-Run a command, pretending that the current buffer is in Org mode.
-This will temporarily bind local variables that are typically bound in
-Org mode to the values they have in Org mode, and then interactively
-call CMD.
-
-\(fn CMD)" nil nil)
-
-(autoload 'org-store-link "org" "\
-Store an org-link to the current location.
-\\<org-mode-map>
-This link is added to `org-stored-links' and can later be inserted
-into an Org buffer with `org-insert-link' (`\\[org-insert-link]').
-
-For some link types, a `\\[universal-argument]' prefix ARG is interpreted. A single
-`\\[universal-argument]' negates `org-context-in-file-links' for file links or
-`org-gnus-prefer-web-links' for links to Usenet articles.
-
-A `\\[universal-argument] \\[universal-argument]' prefix ARG forces skipping storing functions that are not
-part of Org core.
-
-A `\\[universal-argument] \\[universal-argument] \\[universal-argument]' prefix ARG forces storing a link for each line in the
-active region.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-insert-link-global "org" "\
-Insert a link like Org mode does.
-This command can be called in any mode to insert a link in Org syntax.
-
-\(fn)" t nil)
-
-(autoload 'org-open-at-point-global "org" "\
-Follow a link or time-stamp like Org mode does.
-This command can be called in any mode to follow an external link
-or a time-stamp that has Org mode syntax. Its behavior is
-undefined when called on internal links (e.g., fuzzy links).
-Raise an error when there is nothing to follow.
-
-\(fn)" t nil)
-
-(autoload 'org-open-link-from-string "org" "\
-Open a link in the string S, as if it was in Org mode.
-
-\(fn S &optional ARG REFERENCE-BUFFER)" t nil)
-
-(autoload 'org-switchb "org" "\
-Switch between Org buffers.
-
-With `\\[universal-argument]' prefix, restrict available buffers to files.
-
-With `\\[universal-argument] \\[universal-argument]' prefix, restrict available buffers to agenda files.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-cycle-agenda-files "org" "\
-Cycle through the files in `org-agenda-files'.
-If the current buffer visits an agenda file, find the next one in the list.
-If the current buffer does not, find the first agenda file.
-
-\(fn)" t nil)
-
-(autoload 'org-submit-bug-report "org" "\
-Submit a bug report on Org via mail.
-
-Don't hesitate to report any problems or inaccurate documentation.
-
-If you don't have setup sending mail from (X)Emacs, please copy the
-output buffer into your mail program, as it gives us important
-information about your Org version and configuration.
-
-\(fn)" t nil)
-
-(autoload 'org-reload "org" "\
-Reload all Org Lisp files.
-With prefix arg UNCOMPILED, load the uncompiled versions.
-
-\(fn &optional UNCOMPILED)" t nil)
-
-(autoload 'org-customize "org" "\
-Call the customize function with org as argument.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org" '("org" "turn-on-org-cdlatex")))
-
-;;;***
-
-;;;### (autoloads nil "org-agenda" "org-agenda.el" (0 0 0 0))
-;;; Generated autoloads from org-agenda.el
-
-(autoload 'org-toggle-sticky-agenda "org-agenda" "\
-Toggle `org-agenda-sticky'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-agenda "org-agenda" "\
-Dispatch agenda commands to collect entries to the agenda buffer.
-Prompts for a command to execute. Any prefix arg will be passed
-on to the selected command. The default selections are:
-
-a Call `org-agenda-list' to display the agenda for current day or week.
-t Call `org-todo-list' to display the global todo list.
-T Call `org-todo-list' to display the global todo list, select only
- entries with a specific TODO keyword (the user gets a prompt).
-m Call `org-tags-view' to display headlines with tags matching
- a condition (the user is prompted for the condition).
-M Like `m', but select only TODO entries, no ordinary headlines.
-e Export views to associated files.
-s Search entries for keywords.
-S Search entries for keywords, only with TODO keywords.
-/ Multi occur across all agenda files and also files listed
- in `org-agenda-text-search-extra-files'.
-< Restrict agenda commands to buffer, subtree, or region.
- Press several times to get the desired effect.
-> Remove a previous restriction.
-# List \"stuck\" projects.
-! Configure what \"stuck\" means.
-C Configure custom agenda commands.
-
-More commands can be added by configuring the variable
-`org-agenda-custom-commands'. In particular, specific tags and TODO keyword
-searches can be pre-defined in this way.
-
-If the current buffer is in Org mode and visiting a file, you can also
-first press `<' once to indicate that the agenda should be temporarily
-\(until the next use of `\\[org-agenda]') restricted to the current file.
-Pressing `<' twice means to restrict to the current subtree or region
-\(if active).
-
-\(fn &optional ARG ORG-KEYS RESTRICTION)" t nil)
-
-(autoload 'org-batch-agenda "org-agenda" "\
-Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command.
-
-\(fn CMD-KEY &rest PARAMETERS)" nil t)
-
-(autoload 'org-batch-agenda-csv "org-agenda" "\
-Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command.
-
-The output gives a line for each selected agenda item. Each
-item is a list of comma-separated values, like this:
-
-category,head,type,todo,tags,date,time,extra,priority-l,priority-n
-
-category The category of the item
-head The headline, without TODO kwd, TAGS and PRIORITY
-type The type of the agenda entry, can be
- todo selected in TODO match
- tagsmatch selected in tags match
- diary imported from diary
- deadline a deadline on given date
- scheduled scheduled on given date
- timestamp entry has timestamp on given date
- closed entry was closed on given date
- upcoming-deadline warning about deadline
- past-scheduled forwarded scheduled item
- block entry has date block including g. date
-todo The todo keyword, if any
-tags All tags including inherited ones, separated by colons
-date The relevant date, like 2007-2-14
-time The time, like 15:00-16:50
-extra Sting with extra planning info
-priority-l The priority letter if any was given
-priority-n The computed numerical priority
-agenda-day The day in the agenda where this is listed
-
-\(fn CMD-KEY &rest PARAMETERS)" nil t)
-
-(autoload 'org-store-agenda-views "org-agenda" "\
-Store agenda views.
-
-\(fn &rest PARAMETERS)" t nil)
-
-(autoload 'org-batch-store-agenda-views "org-agenda" "\
-Run all custom agenda commands that have a file argument.
-
-\(fn &rest PARAMETERS)" nil t)
-
-(autoload 'org-agenda-list "org-agenda" "\
-Produce a daily/weekly view from all files in variable `org-agenda-files'.
-The view will be for the current day or week, but from the overview buffer
-you will be able to go to other days/weeks.
-
-With a numeric prefix argument in an interactive call, the agenda will
-span ARG days. Lisp programs should instead specify SPAN to change
-the number of days. SPAN defaults to `org-agenda-span'.
-
-START-DAY defaults to TODAY, or to the most recent match for the weekday
-given in `org-agenda-start-on-weekday'.
-
-When WITH-HOUR is non-nil, only include scheduled and deadline
-items if they have an hour specification like [h]h:mm.
-
-\(fn &optional ARG START-DAY SPAN WITH-HOUR)" t nil)
-
-(autoload 'org-search-view "org-agenda" "\
-Show all entries that contain a phrase or words or regular expressions.
-
-With optional prefix argument TODO-ONLY, only consider entries that are
-TODO entries. The argument STRING can be used to pass a default search
-string into this function. If EDIT-AT is non-nil, it means that the
-user should get a chance to edit this string, with cursor at position
-EDIT-AT.
-
-The search string can be viewed either as a phrase that should be found as
-is, or it can be broken into a number of snippets, each of which must match
-in a Boolean way to select an entry. The default depends on the variable
-`org-agenda-search-view-always-boolean'.
-Even if this is turned off (the default) you can always switch to
-Boolean search dynamically by preceding the first word with \"+\" or \"-\".
-
-The default is a direct search of the whole phrase, where each space in
-the search string can expand to an arbitrary amount of whitespace,
-including newlines.
-
-If using a Boolean search, the search string is split on whitespace and
-each snippet is searched separately, with logical AND to select an entry.
-Words prefixed with a minus must *not* occur in the entry. Words without
-a prefix or prefixed with a plus must occur in the entry. Matching is
-case-insensitive. Words are enclosed by word delimiters (i.e. they must
-match whole words, not parts of a word) if
-`org-agenda-search-view-force-full-words' is set (default is nil).
-
-Boolean search snippets enclosed by curly braces are interpreted as
-regular expressions that must or (when preceded with \"-\") must not
-match in the entry. Snippets enclosed into double quotes will be taken
-as a whole, to include whitespace.
-
-- If the search string starts with an asterisk, search only in headlines.
-- If (possibly after the leading star) the search string starts with an
- exclamation mark, this also means to look at TODO entries only, an effect
- that can also be achieved with a prefix argument.
-- If (possibly after star and exclamation mark) the search string starts
- with a colon, this will mean that the (non-regexp) snippets of the
- Boolean search must match as full words.
-
-This command searches the agenda files, and in addition the files
-listed in `org-agenda-text-search-extra-files' unless a restriction lock
-is active.
-
-\(fn &optional TODO-ONLY STRING EDIT-AT)" t nil)
-
-(autoload 'org-todo-list "org-agenda" "\
-Show all (not done) TODO entries from all agenda file in a single list.
-The prefix arg can be used to select a specific TODO keyword and limit
-the list to these. When using `\\[universal-argument]', you will be prompted
-for a keyword. A numeric prefix directly selects the Nth keyword in
-`org-todo-keywords-1'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-tags-view "org-agenda" "\
-Show all headlines for all `org-agenda-files' matching a TAGS criterion.
-The prefix arg TODO-ONLY limits the search to TODO entries.
-
-\(fn &optional TODO-ONLY MATCH)" t nil)
-
-(autoload 'org-agenda-list-stuck-projects "org-agenda" "\
-Create agenda view for projects that are stuck.
-Stuck projects are project that have no next actions. For the definitions
-of what a project is and how to check if it stuck, customize the variable
-`org-stuck-projects'.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'org-diary "org-agenda" "\
-Return diary information from org files.
-This function can be used in a \"sexp\" diary entry in the Emacs calendar.
-It accesses org files and extracts information from those files to be
-listed in the diary. The function accepts arguments specifying what
-items should be listed. For a list of arguments allowed here, see the
-variable `org-agenda-entry-types'.
-
-The call in the diary file should look like this:
-
- &%%(org-diary) ~/path/to/some/orgfile.org
-
-Use a separate line for each org file to check. Or, if you omit the file name,
-all files listed in `org-agenda-files' will be checked automatically:
-
- &%%(org-diary)
-
-If you don't give any arguments (as in the example above), the default value
-of `org-agenda-entry-types' is used: (:deadline :scheduled :timestamp :sexp).
-So the example above may also be written as
-
- &%%(org-diary :deadline :timestamp :sexp :scheduled)
-
-The function expects the lisp variables `entry' and `date' to be provided
-by the caller, because this is how the calendar works. Don't use this
-function from a program - use `org-agenda-get-day-entries' instead.
-
-\(fn &rest ARGS)" nil nil)
-
-(autoload 'org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item "org-agenda" "\
-Do we have a reason to ignore this TODO entry because it has a time stamp?
-
-\(fn &optional END)" nil nil)
-
-(autoload 'org-agenda-set-restriction-lock "org-agenda" "\
-Set restriction lock for agenda, to current subtree or file.
-Restriction will be the file if TYPE is `file', or if type is the
-universal prefix \\='(4), or if the cursor is before the first headline
-in the file. Otherwise, restriction will be to the current subtree.
-
-\(fn &optional TYPE)" t nil)
-
-(autoload 'org-calendar-goto-agenda "org-agenda" "\
-Compute the Org agenda for the calendar date displayed at the cursor.
-This is a command that has to be installed in `calendar-mode-map'.
-
-\(fn)" t nil)
-
-(autoload 'org-agenda-to-appt "org-agenda" "\
-Activate appointments found in `org-agenda-files'.
-
-With a `\\[universal-argument]' prefix, refresh the list of appointments.
-
-If FILTER is t, interactively prompt the user for a regular
-expression, and filter out entries that don't match it.
-
-If FILTER is a string, use this string as a regular expression
-for filtering entries out.
-
-If FILTER is a function, filter out entries against which
-calling the function returns nil. This function takes one
-argument: an entry from `org-agenda-get-day-entries'.
-
-FILTER can also be an alist with the car of each cell being
-either `headline' or `category'. For example:
-
- \\='((headline \"IMPORTANT\")
- (category \"Work\"))
-
-will only add headlines containing IMPORTANT or headlines
-belonging to the \"Work\" category.
-
-ARGS are symbols indicating what kind of entries to consider.
-By default `org-agenda-to-appt' will use :deadline*, :scheduled*
-\(i.e., deadlines and scheduled items with a hh:mm specification)
-and :timestamp entries. See the docstring of `org-diary' for
-details and examples.
-
-If an entry has a APPT_WARNTIME property, its value will be used
-to override `appt-message-warning-time'.
-
-\(fn &optional REFRESH FILTER &rest ARGS)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-agenda" '("org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-archive"
-;;;;;; "org-archive.el" (0 0 0 0))
-;;; Generated autoloads from org-archive.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-archive" '("org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-attach" "org-attach.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-attach.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-attach" '("org-attach-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-bbdb" "org-bbdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-bbdb.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-bbdb" '("org-bbdb-")))
-
-;;;***
-
-;;;### (autoloads nil "org-bibtex" "org-bibtex.el" (0 0 0 0))
-;;; Generated autoloads from org-bibtex.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-bibtex" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-capture" "org-capture.el" (0 0 0 0))
-;;; Generated autoloads from org-capture.el
-
-(autoload 'org-capture-string "org-capture" "\
-Capture STRING with the template selected by KEYS.
-
-\(fn STRING &optional KEYS)" t nil)
-
-(autoload 'org-capture "org-capture" "\
-Capture something.
-\\<org-capture-mode-map>
-This will let you select a template from `org-capture-templates', and
-then file the newly captured information. The text is immediately
-inserted at the target location, and an indirect buffer is shown where
-you can edit it. Pressing `\\[org-capture-finalize]' brings you back to the previous
-state of Emacs, so that you can continue your work.
-
-When called interactively with a `\\[universal-argument]' prefix argument GOTO, don't
-capture anything, just go to the file/headline where the selected
-template stores its notes.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix argument, go to the last note stored.
-
-When called with a `C-0' (zero) prefix, insert a template at point.
-
-When called with a `C-1' (one) prefix, force prompting for a date when
-a datetree entry is made.
-
-ELisp programs can set KEYS to a string associated with a template
-in `org-capture-templates'. In this case, interactive selection
-will be bypassed.
-
-If `org-capture-use-agenda-date' is non-nil, capturing from the
-agenda will use the date at point as the default date. Then, a
-`C-1' prefix will tell the capture process to use the HH:MM time
-of the day at point (if any) or the current HH:MM time.
-
-\(fn &optional GOTO KEYS)" t nil)
-
-(autoload 'org-capture-import-remember-templates "org-capture" "\
-Set `org-capture-templates' to be similar to `org-remember-templates'.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-capture" '("org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-clock" "org-clock.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-clock.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-clock" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-colview" "org-colview.el" (0 0 0 0))
-;;; Generated autoloads from org-colview.el
-
-(autoload 'org-columns-remove-overlays "org-colview" "\
-Remove all currently active column overlays.
-
-\(fn)" t nil)
-
-(autoload 'org-columns-get-format-and-top-level "org-colview" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'org-columns "org-colview" "\
-Turn on column view on an Org mode file.
-
-Column view applies to the whole buffer if point is before the
-first headline. Otherwise, it applies to the first ancestor
-setting \"COLUMNS\" property. If there is none, it defaults to
-the current headline. With a `\\[universal-argument]' prefix argument, turn on column
-view for the whole buffer unconditionally.
-
-When COLUMNS-FMT-STRING is non-nil, use it as the column format.
-
-\(fn &optional GLOBAL COLUMNS-FMT-STRING)" t nil)
-
-(autoload 'org-columns-compute "org-colview" "\
-Summarize the values of PROPERTY hierarchically.
-Also update existing values for PROPERTY according to the first
-column specification.
-
-\(fn PROPERTY)" t nil)
-
-(autoload 'org-dblock-write:columnview "org-colview" "\
-Write the column view table.
-PARAMS is a property list of parameters:
-
-:id the :ID: property of the entry where the columns view
- should be built. When the symbol `local', call locally.
- When `global' call column view with the cursor at the beginning
- of the buffer (usually this means that the whole buffer switches
- to column view). When \"file:path/to/file.org\", invoke column
- view at the start of that file. Otherwise, the ID is located
- using `org-id-find'.
-:hlines When t, insert a hline before each item. When a number, insert
- a hline before each level <= that number.
-:indent When non-nil, indent each ITEM field according to its level.
-:vlines When t, make each column a colgroup to enforce vertical lines.
-:maxlevel When set to a number, don't capture headlines below this level.
-:skip-empty-rows
- When t, skip rows where all specifiers other than ITEM are empty.
-:width apply widths specified in columns format using <N> specifiers.
-:format When non-nil, specify the column view format to use.
-
-\(fn PARAMS)" nil nil)
-
-(autoload 'org-columns-insert-dblock "org-colview" "\
-Create a dynamic block capturing a column view table.
-
-\(fn)" t nil)
-
-(autoload 'org-agenda-columns "org-colview" "\
-Turn on or update column view in the agenda.
-
-\(fn)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-colview" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-compat" "org-compat.el" (0 0 0 0))
-;;; Generated autoloads from org-compat.el
-
-(autoload 'org-check-version "org-compat" "\
-Try very hard to provide sensible version strings.
-
-\(fn)" nil t)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-compat" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-crypt" "org-crypt.el" (0 0 0 0))
-;;; Generated autoloads from org-crypt.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-crypt" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-ctags" "org-ctags.el" (0 0 0 0))
-;;; Generated autoloads from org-ctags.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-ctags" '("org-ctags-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-datetree"
-;;;;;; "org-datetree.el" (0 0 0 0))
-;;; Generated autoloads from org-datetree.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-datetree" '("org-datetree-")))
-
-;;;***
-
-;;;### (autoloads nil "org-docview" "org-docview.el" (0 0 0 0))
-;;; Generated autoloads from org-docview.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-docview" '("org-docview-")))
-
-;;;***
-
-;;;### (autoloads nil "org-duration" "org-duration.el" (0 0 0 0))
-;;; Generated autoloads from org-duration.el
-
-(autoload 'org-duration-set-regexps "org-duration" "\
-Set duration related regexps.
-
-\(fn)" t nil)
-
-(autoload 'org-duration-p "org-duration" "\
-Non-nil when string S is a time duration.
-
-\(fn S)" nil nil)
-
-(autoload 'org-duration-to-minutes "org-duration" "\
-Return number of minutes of DURATION string.
-
-When optional argument CANONICAL is non-nil, ignore
-`org-duration-units' and use standard time units value.
-
-A bare number is translated into minutes. The empty string is
-translated into 0.0.
-
-Return value as a float. Raise an error if duration format is
-not recognized.
-
-\(fn DURATION &optional CANONICAL)" nil nil)
-
-(autoload 'org-duration-from-minutes "org-duration" "\
-Return duration string for a given number of MINUTES.
-
-Format duration according to `org-duration-format' or FMT, when
-non-nil.
-
-When optional argument CANONICAL is non-nil, ignore
-`org-duration-units' and use standard time units value.
-
-Raise an error if expected format is unknown.
-
-\(fn MINUTES &optional FMT CANONICAL)" nil nil)
-
-(autoload 'org-duration-h:mm-only-p "org-duration" "\
-Non-nil when every duration in TIMES has \"H:MM\" or \"H:MM:SS\" format.
-
-TIMES is a list of duration strings.
-
-Return nil if any duration is expressed with units, as defined in
-`org-duration-units'. Otherwise, if any duration is expressed
-with \"H:MM:SS\" format, return `h:mm:ss'. Otherwise, return
-`h:mm'.
-
-\(fn TIMES)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-duration" '("org-duration-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-element"
-;;;;;; "org-element.el" (0 0 0 0))
-;;; Generated autoloads from org-element.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-element" '("org-element-")))
-
-;;;***
-
-;;;### (autoloads nil "org-entities" "org-entities.el" (0 0 0 0))
-;;; Generated autoloads from org-entities.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-entities" '("org-entit")))
-
-;;;***
-
-;;;### (autoloads nil "org-eshell" "org-eshell.el" (0 0 0 0))
-;;; Generated autoloads from org-eshell.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-eshell" '("org-eshell-")))
-
-;;;***
-
-;;;### (autoloads nil "org-eww" "org-eww.el" (0 0 0 0))
-;;; Generated autoloads from org-eww.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-eww" '("org-eww-")))
-
-;;;***
-
-;;;### (autoloads nil "org-faces" "org-faces.el" (0 0 0 0))
-;;; Generated autoloads from org-faces.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-faces" '("org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-feed" "org-feed.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-feed.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-feed" '("org-feed-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-footnote"
-;;;;;; "org-footnote.el" (0 0 0 0))
-;;; Generated autoloads from org-footnote.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-footnote" '("org-footnote-")))
-
-;;;***
-
-;;;### (autoloads nil "org-gnus" "org-gnus.el" (0 0 0 0))
-;;; Generated autoloads from org-gnus.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-gnus" '("org-gnus-")))
-
-;;;***
-
-;;;### (autoloads nil "org-habit" "org-habit.el" (0 0 0 0))
-;;; Generated autoloads from org-habit.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-habit" '("org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-id" "org-id.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-id.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-id" '("org-id-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-indent" "org-indent.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-indent.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-indent" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-info" "org-info.el" (0 0 0 0))
-;;; Generated autoloads from org-info.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-info" '("org-info-")))
-
-;;;***
-
-;;;### (autoloads nil "org-inlinetask" "org-inlinetask.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from org-inlinetask.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-inlinetask" '("org-inlinetask-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-irc" "org-irc.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-irc.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-irc" '("org-irc-")))
-
-;;;***
-
-;;;### (autoloads nil "org-lint" "org-lint.el" (0 0 0 0))
-;;; Generated autoloads from org-lint.el
-
-(autoload 'org-lint "org-lint" "\
-Check current Org buffer for syntax mistakes.
-
-By default, run all checkers. With a `\\[universal-argument]' prefix ARG, select one
-category of checkers only. With a `\\[universal-argument] \\[universal-argument]' prefix, run one precise
-checker by its name.
-
-ARG can also be a list of checker names, as symbols, to run.
-
-\(fn &optional ARG)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-lint" '("org-lint-")))
-
-;;;***
-
-;;;### (autoloads nil "org-list" "org-list.el" (0 0 0 0))
-;;; Generated autoloads from org-list.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-list" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-loaddefs" "org-loaddefs.el" (0 0 0 0))
-;;; Generated autoloads from org-loaddefs.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-loaddefs" '(#("org" 0 3 (fontified nil)))))
-
-;;;***
-
-;;;### (autoloads nil "org-macro" "org-macro.el" (0 0 0 0))
-;;; Generated autoloads from org-macro.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-macro" '("org-macro-")))
-
-;;;***
-
-;;;### (autoloads nil "org-macs" "org-macs.el" (0 0 0 0))
-;;; Generated autoloads from org-macs.el
-
-(autoload 'org-load-noerror-mustsuffix "org-macs" "\
-Load FILE with optional arguments NOERROR and MUSTSUFFIX.
-
-\(fn FILE)" nil t)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-macs" '("org-")))
-
-;;;***
-
-;;;### (autoloads nil "org-mhe" "org-mhe.el" (0 0 0 0))
-;;; Generated autoloads from org-mhe.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-mhe" '("org-mhe-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-mobile" "org-mobile.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-mobile.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-mobile" '("org-mobile-")))
-
-;;;***
-
-;;;### (autoloads nil "org-mouse" "org-mouse.el" (0 0 0 0))
-;;; Generated autoloads from org-mouse.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-mouse" '("org-mouse-")))
-
-;;;***
-
-;;;### (autoloads nil "org-pcomplete" "org-pcomplete.el" (0 0 0 0))
-;;; Generated autoloads from org-pcomplete.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-pcomplete" '("org-" "pcomplete/org-mode/")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-plot" "org-plot.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-plot.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-plot" '("org-plot")))
-
-;;;***
-
-;;;### (autoloads nil "org-protocol" "org-protocol.el" (0 0 0 0))
-;;; Generated autoloads from org-protocol.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-protocol" '("org-protocol-")))
-
-;;;***
-
-;;;### (autoloads nil "org-rmail" "org-rmail.el" (0 0 0 0))
-;;; Generated autoloads from org-rmail.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-rmail" '("org-rmail-")))
-
-;;;***
-
-;;;### (autoloads nil "org-src" "org-src.el" (0 0 0 0))
-;;; Generated autoloads from org-src.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-src" '("org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-table" "org-table.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-table.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-table" '("org")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "org-timer" "org-timer.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from org-timer.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-timer" '("org-timer-")))
-
-;;;***
-
-;;;### (autoloads nil "org-version" "org-version.el" (0 0 0 0))
-;;; Generated autoloads from org-version.el
-
-(autoload 'org-release "org-version" "\
-The release version of Org.
-Inserted by installing Org mode or when a release is made.
-
-\(fn)" nil nil)
-
-(autoload 'org-git-version "org-version" "\
-The Git version of Org mode.
-Inserted by installing Org or when a release is made.
-
-\(fn)" nil nil)
-
-(defvar org-odt-data-dir "/usr/share/emacs/etc/org" "\
-The location of ODT styles.")
-
-;;;***
-
-;;;### (autoloads nil "org-w3m" "org-w3m.el" (0 0 0 0))
-;;; Generated autoloads from org-w3m.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-w3m" '("org-w3m-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox" "ox.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from ox.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox" '("org-export-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-ascii" "ox-ascii.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-ascii.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-ascii" '("org-ascii-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-beamer" "ox-beamer.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-beamer.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-beamer" '("org-beamer-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-html" "ox-html.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-html.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-html" '("org-html-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-icalendar"
-;;;;;; "ox-icalendar.el" (0 0 0 0))
-;;; Generated autoloads from ox-icalendar.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-icalendar" '("org-icalendar-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-latex" "ox-latex.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-latex.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-latex" '("org-latex-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-man" "ox-man.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-man.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-man" '("org-man-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-md" "ox-md.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-md.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-md" '("org-md-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-odt" "ox-odt.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-odt.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-odt" '("org-odt-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-org" "ox-org.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-org.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-org" '("org-org-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-publish" "ox-publish.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-publish.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-publish" '("org-publish-")))
-
-;;;***
-
-;;;### (autoloads "actual autoloads are elsewhere" "ox-texinfo" "ox-texinfo.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from ox-texinfo.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ox-texinfo" '("org-texinfo-")))
-
-;;;***
-
-;;;### (autoloads nil nil ("ob-core.el" "ob-keys.el" "ob-lob.el"
-;;;;;; "ob-matlab.el" "ob-tangle.el" "ob.el" "org-archive.el" "org-attach.el"
-;;;;;; "org-bbdb.el" "org-clock.el" "org-datetree.el" "org-element.el"
-;;;;;; "org-feed.el" "org-footnote.el" "org-id.el" "org-indent.el"
-;;;;;; "org-install.el" "org-irc.el" "org-mobile.el" "org-pkg.el"
-;;;;;; "org-plot.el" "org-table.el" "org-timer.el" "ox-ascii.el"
-;;;;;; "ox-beamer.el" "ox-html.el" "ox-icalendar.el" "ox-latex.el"
-;;;;;; "ox-man.el" "ox-md.el" "ox-odt.el" "ox-org.el" "ox-publish.el"
-;;;;;; "ox-texinfo.el" "ox.el") (0 0 0 0))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; org-autoloads.el ends here
diff --git a/elpa/org-9.1.14/org-bbdb.el b/elpa/org-9.1.14/org-bbdb.el
deleted file mode 100644
index 5d36379..0000000
--- a/elpa/org-9.1.14/org-bbdb.el
+++ /dev/null
@@ -1,541 +0,0 @@
-;;; org-bbdb.el --- Support for links to BBDB entries -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Authors: Carsten Dominik <carsten at orgmode dot org>
-;; Thomas Baumann <thomas dot baumann at ch dot tum dot de>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements links to BBDB database entries from within Org.
-;; Org mode loads this module by default - if this is not what you want,
-;; configure the variable `org-modules'.
-
-;; It also implements an interface (based on Ivar Rummelhoff's
-;; bbdb-anniv.el) for those Org users, who do not use the diary
-;; but who do want to include the anniversaries stored in the BBDB
-;; into the org-agenda. If you already include the `diary' into the
-;; agenda, you might want to prefer to include the anniversaries in
-;; the diary using bbdb-anniv.el.
-;;
-;; Put the following in /somewhere/at/home/diary.org and make sure
-;; that this file is in `org-agenda-files'.
-;;
-;; %%(org-bbdb-anniversaries)
-;;
-;; For example my diary.org looks like:
-;; * Anniversaries
-;; #+CATEGORY: Anniv
-;; %%(org-bbdb-anniversaries)
-;;
-;;
-;; To add an anniversary to a BBDB record, press `C-o' in the record.
-;; You will be prompted for the field name, in this case it must be
-;; "anniversary". If this is the first time you are using this field,
-;; you need to confirm that it should be created.
-;;
-;; The format of an anniversary field stored in BBDB is the following
-;; (items in {} are optional):
-;;
-;; YYYY-MM-DD{ CLASS-OR-FORMAT-STRING}
-;; {\nYYYY-MM-DD CLASS-OR-FORMAT-STRING}...
-;;
-;; CLASS-OR-FORMAT-STRING is one of two things:
-;;
-;; - an identifier for a class of anniversaries (eg. birthday or
-;; wedding) from `org-bbdb-anniversary-format-alist' which then
-;; defines the format string for this class
-;; - the (format) string displayed in the diary.
-;;
-;; You can enter multiple anniversaries for a single BBDB record by
-;; separating them with a newline character. At the BBDB prompt for
-;; the field value, type `C-q C-j' to enter a newline between two
-;; anniversaries.
-;;
-;; If you omit the CLASS-OR-FORMAT-STRING entirely, it defaults to the
-;; value of `org-bbdb-default-anniversary-format' ("birthday" by
-;; default).
-;;
-;; The substitutions in the format string are (in order):
-;; - the name of the record containing this anniversary
-;; - the number of years
-;; - an ordinal suffix (st, nd, rd, th) for the year
-;;
-;; See the documentation of `org-bbdb-anniversary-format-alist' for
-;; further options.
-;;
-;; Example
-;;
-;; 1973-06-22
-;; 20??-??-?? wedding
-;; 1998-03-12 %s created bbdb-anniv.el %d years ago
-;;
-;; From Org's agenda, you can use `C-c C-o' to jump to the BBDB
-;; link from which the entry at point originates.
-;;
-;;; Code:
-
-(require 'org)
-(require 'cl-lib)
-
-;; Declare external functions and variables
-
-(declare-function bbdb "ext:bbdb-com" (string elidep))
-(declare-function bbdb-company "ext:bbdb-com" (string elidep))
-(declare-function bbdb-current-record "ext:bbdb-com"
- (&optional planning-on-modifying))
-(declare-function bbdb-name "ext:bbdb-com" (string elidep))
-(declare-function bbdb-completing-read-record "ext:bbdb-com"
- (prompt &optional omit-records))
-(declare-function bbdb-record-field "ext:bbdb" (record field))
-(declare-function bbdb-record-getprop "ext:bbdb" (record property))
-(declare-function bbdb-record-name "ext:bbdb" (record))
-(declare-function bbdb-records "ext:bbdb"
- (&optional dont-check-disk already-in-db-buffer))
-(declare-function bbdb-split "ext:bbdb" (string separators))
-(declare-function bbdb-string-trim "ext:bbdb" (string))
-(declare-function bbdb-record-get-field "ext:bbdb" (record field))
-(declare-function bbdb-search-name "ext:bbdb-com" (regexp &optional layout))
-(declare-function bbdb-search-organization "ext:bbdb-com" (regexp &optional layout))
-
-;; `bbdb-record-note' was part of BBDB v3.x
-(declare-function bbdb-record-note "ext:bbdb" (record label))
-;; `bbdb-record-xfield' replaces it in recent BBDB v3.x+
-(declare-function bbdb-record-xfield "ext:bbdb" (record label))
-
-(declare-function calendar-leap-year-p "calendar" (year))
-(declare-function diary-ordinal-suffix "diary-lib" (n))
-
-(with-no-warnings (defvar date)) ;; unprefixed, from calendar.el
-
-;; Customization
-
-(defgroup org-bbdb-anniversaries nil
- "Customizations for including anniversaries from BBDB into Agenda."
- :group 'org-bbdb)
-
-(defcustom org-bbdb-default-anniversary-format "birthday"
- "Default anniversary class."
- :type 'string
- :group 'org-bbdb-anniversaries
- :require 'bbdb)
-
-(defcustom org-bbdb-general-anniversary-description-after 7
- "When to switch anniversary descriptions to a more general format.
-
-Anniversary descriptions include the point in time, when the
-anniversary appears. This is, in its most general form, just the
-date of the anniversary. Or more specific terms, like \"today\",
-\"tomorrow\" or \"in n days\" are used to describe the time span.
-
-If the anniversary happens in less than that number of days, the
-specific description is used. Otherwise, the general one is
-used."
- :group 'org-bbdb-anniversaries
- :version "26.1"
- :package-version '(Org . "9.1")
- :type 'integer
- :require 'bbdb
- :safe #'integerp)
-
-(defcustom org-bbdb-anniversary-format-alist
- '(("birthday" .
- (lambda (name years suffix)
- (concat "Birthday: [[bbdb:" name "][" name " ("
- (format "%s" years) ; handles numbers as well as strings
- suffix ")]]")))
- ("wedding" .
- (lambda (name years suffix)
- (concat "[[bbdb:" name "][" name "'s "
- (format "%s" years)
- suffix " wedding anniversary]]"))))
- "How different types of anniversaries should be formatted.
-An alist of elements (STRING . FORMAT) where STRING is the name of an
-anniversary class and format is either:
-1) A format string with the following substitutions (in order):
- - the name of the record containing this anniversary
- - the number of years
- - an ordinal suffix (st, nd, rd, th) for the year
-
-2) A function to be called with three arguments: NAME YEARS SUFFIX
- (string int string) returning a string for the diary or nil.
-
-3) An Emacs Lisp form that should evaluate to a string (or nil) in the
- scope of variables NAME, YEARS and SUFFIX (among others)."
- :type '(alist :key-type (string :tag "Class")
- :value-type (function :tag "Function"))
- :group 'org-bbdb-anniversaries
- :require 'bbdb)
-
-(defcustom org-bbdb-anniversary-field 'anniversary
- "The BBDB field which contains anniversaries.
-The anniversaries are stored in the following format
-
-YYYY-MM-DD Class-or-Format-String
-
-where class is one of the customized classes for anniversaries;
-birthday and wedding are predefined. Format-String can take three
-substitutions 1) the name of the record containing this
-anniversary, 2) the number of years, and 3) an ordinal suffix for
-the year.
-
-Multiple anniversaries can be separated by \\n."
- :type 'symbol
- :group 'org-bbdb-anniversaries
- :require 'bbdb)
-
-(defcustom org-bbdb-extract-date-fun 'org-bbdb-anniv-extract-date
- "How to retrieve `month date year' from the anniversary field.
-
-Customize if you have already filled your BBDB with dates
-different from YYYY-MM-DD. The function must return a list (month
-date year)."
- :type 'function
- :group 'org-bbdb-anniversaries
- :require 'bbdb)
-
-;; Install the link type
-(org-link-set-parameters "bbdb"
- :follow #'org-bbdb-open
- :export #'org-bbdb-export
- :complete #'org-bbdb-complete-link
- :store #'org-bbdb-store-link)
-
-;; Implementation
-(defun org-bbdb-store-link ()
- "Store a link to a BBDB database entry."
- (when (eq major-mode 'bbdb-mode)
- ;; This is BBDB, we make this link!
- (let* ((rec (bbdb-current-record))
- (name (bbdb-record-name rec))
- (company (if (fboundp 'bbdb-record-getprop)
- (bbdb-record-getprop rec 'company)
- (car (bbdb-record-field rec 'organization))))
- (link (concat "bbdb:" name)))
- (org-store-link-props :type "bbdb" :name name :company company
- :link link :description name)
- link)))
-
-(defun org-bbdb-export (path desc format)
- "Create the export version of a BBDB link specified by PATH or DESC.
-If exporting to either HTML or LaTeX FORMAT the link will be
-italicized, in all other cases it is left unchanged."
- (when (string= desc (format "bbdb:%s" path))
- (setq desc path))
- (cond
- ((eq format 'html) (format "<i>%s</i>" desc))
- ((eq format 'latex) (format "\\textit{%s}" desc))
- ((eq format 'odt)
- (format "<text:span text:style-name=\"Emphasis\">%s</text:span>" desc))
- (t desc)))
-
-(defun org-bbdb-open (name)
- "Follow a BBDB link to NAME."
- (require 'bbdb-com)
- (let ((inhibit-redisplay (not debug-on-error)))
- (if (fboundp 'bbdb-name)
- (org-bbdb-open-old name)
- (org-bbdb-open-new name))))
-
-(defun org-bbdb-open-old (name)
- (catch 'exit
- ;; Exact match on name
- (bbdb-name (concat "\\`" name "\\'") nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; Exact match on name
- (bbdb-company (concat "\\`" name "\\'") nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; Partial match on name
- (bbdb-name name nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; Partial match on company
- (bbdb-company name nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; General match including network address and notes
- (bbdb name nil)
- (when (= 0 (buffer-size (get-buffer "*BBDB*")))
- (delete-window (get-buffer-window "*BBDB*"))
- (error "No matching BBDB record"))))
-
-(defun org-bbdb-open-new (name)
- (catch 'exit
- ;; Exact match on name
- (bbdb-search-name (concat "\\`" name "\\'") nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; Exact match on name
- (bbdb-search-organization (concat "\\`" name "\\'") nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; Partial match on name
- (bbdb-search-name name nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; Partial match on company
- (bbdb-search-organization name nil)
- (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
- ;; General match including network address and notes
- (bbdb name nil)
- (when (= 0 (buffer-size (get-buffer "*BBDB*")))
- (delete-window (get-buffer-window "*BBDB*"))
- (error "No matching BBDB record"))))
-
-(defun org-bbdb-anniv-extract-date (time-str)
- "Convert YYYY-MM-DD to (month date year).
-Argument TIME-STR is the value retrieved from BBDB. If YYYY- is omitted
-it will be considered unknown."
- (pcase (org-split-string time-str "-")
- (`(,a ,b nil) (list (string-to-number a) (string-to-number b) nil))
- (`(,a ,b ,c) (list (string-to-number b)
- (string-to-number c)
- (string-to-number a)))))
-
-(defun org-bbdb-anniv-split (str)
- "Split multiple entries in the BBDB anniversary field.
-Argument STR is the anniversary field in BBDB."
- (let ((pos (string-match "[ \t]" str)))
- (if pos (list (substring str 0 pos)
- (bbdb-string-trim (substring str pos)))
- (list str nil))))
-
-(defvar org-bbdb-anniv-hash nil
- "A hash holding anniversaries extracted from BBDB.
-The hash table is created on first use.")
-
-(defvar org-bbdb-updated-p t
- "This is non-nil if BBDB has been updated since we last built the hash.")
-
-(defun org-bbdb-make-anniv-hash ()
- "Create a hash with anniversaries extracted from BBDB, for fast access.
-The anniversaries are assumed to be stored `org-bbdb-anniversary-field'."
- (let ((old-bbdb (fboundp 'bbdb-record-getprop))
- (record-func (if (fboundp 'bbdb-record-xfield)
- 'bbdb-record-xfield
- 'bbdb-record-note))
- split tmp annivs)
- (clrhash org-bbdb-anniv-hash)
- (dolist (rec (bbdb-records))
- (when (setq annivs (if old-bbdb
- (bbdb-record-getprop
- rec org-bbdb-anniversary-field)
- (funcall record-func
- rec org-bbdb-anniversary-field)))
- (setq annivs (if old-bbdb
- (bbdb-split annivs "\n")
- ;; parameter order is reversed in new bbdb
- (bbdb-split "\n" annivs)))
- (while annivs
- (setq split (org-bbdb-anniv-split (pop annivs)))
- (pcase-let ((`(,m ,d ,y) (funcall org-bbdb-extract-date-fun
- (car split))))
- (setq tmp (gethash (list m d) org-bbdb-anniv-hash))
- (puthash (list m d) (cons (list y
- (bbdb-record-name rec)
- (cadr split))
- tmp)
- org-bbdb-anniv-hash))))))
- (setq org-bbdb-updated-p nil))
-
-(defun org-bbdb-updated (_rec)
- "Record the fact that BBDB has been updated.
-This is used by Org to re-create the anniversary hash table."
- (setq org-bbdb-updated-p t))
-
-(add-hook 'bbdb-after-change-hook 'org-bbdb-updated)
-
-;;;###autoload
-(defun org-bbdb-anniversaries ()
- "Extract anniversaries from BBDB for display in the agenda."
- (require 'bbdb)
- (require 'diary-lib)
- (unless (hash-table-p org-bbdb-anniv-hash)
- (setq org-bbdb-anniv-hash
- (make-hash-table :test 'equal :size 366)))
-
- (when (or org-bbdb-updated-p
- (= 0 (hash-table-count org-bbdb-anniv-hash)))
- (org-bbdb-make-anniv-hash))
-
- (let* ((m (car date)) ; month
- (d (nth 1 date)) ; day
- (y (nth 2 date)) ; year
- (annivs (gethash (list m d) org-bbdb-anniv-hash))
- (text ())
- rec recs)
-
- ;; we don't want to miss people born on Feb. 29th
- (when (and (= m 3) (= d 1)
- (not (null (gethash (list 2 29) org-bbdb-anniv-hash)))
- (not (calendar-leap-year-p y)))
- (setq recs (gethash (list 2 29) org-bbdb-anniv-hash))
- (while (setq rec (pop recs))
- (push rec annivs)))
-
- (when annivs
- (while (setq rec (pop annivs))
- (when rec
- (let* ((class (or (nth 2 rec)
- org-bbdb-default-anniversary-format))
- (form (or (cdr (assoc-string
- class org-bbdb-anniversary-format-alist t))
- class)) ; (as format string)
- (name (nth 1 rec))
- (years (if (eq (car rec) nil)
- "unknown"
- (- y (car rec))))
- (suffix (if (eq (car rec) nil)
- ""
- (diary-ordinal-suffix years)))
- (tmp (cond
- ((functionp form)
- (funcall form name years suffix))
- ((listp form) (eval form))
- (t (format form name years suffix)))))
- (org-add-props tmp nil 'org-bbdb-name name)
- (if text
- (setq text (append text (list tmp)))
- (setq text (list tmp)))))
- ))
- text))
-
-;;; Return list of anniversaries for today and the next n-1 (default: n=7) days.
-;;; This is meant to be used in an org file instead of org-bbdb-anniversaries:
-;;;
-;;; %%(org-bbdb-anniversaries-future)
-;;;
-;;; or
-;;;
-;;; %%(org-bbdb-anniversaries-future 3)
-;;;
-;;; to override the 7-day default.
-
-(defun org-bbdb-date-list (d n)
- "Return a list of dates in (m d y) format from the given date D to n-1 days hence."
- (let ((abs (calendar-absolute-from-gregorian d)))
- (mapcar (lambda (i) (calendar-gregorian-from-absolute (+ abs i)))
- (number-sequence 0 (1- n)))))
-
-(defun org-bbdb-anniversary-description (agenda-date anniv-date)
- "Return a string used to incorporate into an agenda anniversary entry.
-The calculation of the anniversary description string is based on
-the difference between the anniversary date, given as ANNIV-DATE,
-and the date on which the entry appears in the agenda, given as
-AGENDA-DATE. This makes it possible to have different entries
-for the same event depending on if it occurs in the next few days
-or far away in the future."
- (let ((delta (- (calendar-absolute-from-gregorian anniv-date)
- (calendar-absolute-from-gregorian agenda-date))))
-
- (cond
- ((= delta 0) " -- today\\&")
- ((= delta 1) " -- tomorrow\\&")
- ((< delta org-bbdb-general-anniversary-description-after) (format " -- in %d days\\&" delta))
- ((pcase-let ((`(,month ,day ,year) anniv-date))
- (format " -- %d-%02d-%02d\\&" year month day))))))
-
-
-(defun org-bbdb-anniversaries-future (&optional n)
- "Return list of anniversaries for today and the next n-1 days (default n=7)."
- (let ((n (or n 7)))
- (when (<= n 0)
- (error "The (optional) argument of `org-bbdb-anniversaries-future' \
-must be positive"))
- (let (
- ;; List of relevant dates.
- (dates (org-bbdb-date-list date n))
- ;; Function to annotate text of each element of l with the
- ;; anniversary date d.
- (annotate-descriptions
- (lambda (agenda-date d l)
- (mapcar (lambda (x)
- ;; The assumption here is that x is a bbdb link
- ;; of the form [[bbdb:name][description]].
- ;; This function rather arbitrarily modifies
- ;; the description by adding the date to it in
- ;; a fixed format.
- (let ((desc (org-bbdb-anniversary-description
- agenda-date d)))
- (string-match "]]" x)
- (replace-match desc nil nil x)))
- l))))
- ;; Map a function that generates anniversaries for each date
- ;; over the dates and nconc the results into a single list. When
- ;; it is no longer necessary to support older versions of Emacs,
- ;; this can be done with a cl-mapcan; for now, we use the (apply
- ;; #'nconc ...) method for compatibility.
- (apply #'nconc
- (mapcar
- (lambda (d)
- (let ((agenda-date date)
- (date d))
- ;; Rebind 'date' so that org-bbdb-anniversaries will
- ;; be fooled into giving us the list for the given
- ;; date and then annotate the descriptions for that
- ;; date.
- (funcall annotate-descriptions agenda-date d (org-bbdb-anniversaries))))
- dates)))))
-
-(defun org-bbdb-complete-link ()
- "Read a bbdb link with name completion."
- (require 'bbdb-com)
- (let ((rec (bbdb-completing-read-record "Name: ")))
- (concat "bbdb:"
- (bbdb-record-name (if (listp rec)
- (car rec)
- rec)))))
-
-(defun org-bbdb-anniv-export-ical ()
- "Extract anniversaries from BBDB and convert them to icalendar format."
- (require 'bbdb)
- (require 'diary-lib)
- (unless (hash-table-p org-bbdb-anniv-hash)
- (setq org-bbdb-anniv-hash
- (make-hash-table :test 'equal :size 366)))
- (when (or org-bbdb-updated-p
- (= 0 (hash-table-count org-bbdb-anniv-hash)))
- (org-bbdb-make-anniv-hash))
- (maphash 'org-bbdb-format-vevent org-bbdb-anniv-hash))
-
-(defun org-bbdb-format-vevent (key recs)
- (let (rec categ)
- (while (setq rec (pop recs))
- (setq categ (or (nth 2 rec) org-bbdb-default-anniversary-format))
- (princ (format "BEGIN:VEVENT
-UID: ANNIV-%4i%02i%02i-%s
-DTSTART:%4i%02i%02i
-SUMMARY:%s
-DESCRIPTION:%s
-CATEGORIES:%s
-RRULE:FREQ=YEARLY
-END:VEVENT\n"
- (nth 0 rec) (nth 0 key) (nth 1 key)
- (mapconcat 'identity
- (org-split-string (nth 1 rec) "[^a-zA-Z0-90]+")
- "-")
- (nth 0 rec) (nth 0 key) (nth 1 key)
- (nth 1 rec)
- (concat (capitalize categ) " " (nth 1 rec))
- categ)))))
-
-(provide 'org-bbdb)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-bbdb.el ends here
diff --git a/elpa/org-9.1.14/org-bbdb.elc b/elpa/org-9.1.14/org-bbdb.elc
deleted file mode 100644
index cef6263..0000000
--- a/elpa/org-9.1.14/org-bbdb.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-bibtex.el b/elpa/org-9.1.14/org-bibtex.el
deleted file mode 100644
index 9dab0b4..0000000
--- a/elpa/org-9.1.14/org-bibtex.el
+++ /dev/null
@@ -1,748 +0,0 @@
-;;; org-bibtex.el --- Org links to BibTeX entries -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2007-2018 Free Software Foundation, Inc.
-;;
-;; Authors: Bastien Guerry <bzg@gnu.org>
-;; Carsten Dominik <carsten dot dominik at gmail dot com>
-;; Eric Schulte <schulte dot eric at gmail dot com>
-;; Keywords: org, wp, capture
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;
-;;; Commentary:
-;;
-;; This file implements links to database entries in BibTeX files.
-;; Instead of defining a special link prefix, it uses the normal file
-;; links combined with a custom search mechanism to find entries
-;; by reference key. And it constructs a nice description tag for
-;; the link that contains the author name, the year and a short title.
-;;
-;; It also stores detailed information about the entry so that
-;; capture templates can access and enter this information easily.
-;;
-;; The available properties for each entry are listed here:
-;;
-;; :author :publisher :volume :pages
-;; :editor :url :number :journal
-;; :title :year :series :address
-;; :booktitle :month :annote :abstract
-;; :key :btype
-;;
-;; Here is an example of a capture template that use some of this
-;; information (:author :year :title :journal :pages):
-;;
-;; (setq org-capture-templates
-;; '((?b "* READ %?\n\n%a\n\n%:author (%:year): %:title\n \
-;; In %:journal, %:pages.")))
-;;
-;; Let's say you want to capture this BibTeX entry:
-;;
-;; @Article{dolev83,
-;; author = {Danny Dolev and Andrew C. Yao},
-;; title = {On the security of public-key protocols},
-;; journal = {IEEE Transaction on Information Theory},
-;; year = 1983,
-;; volume = 2,
-;; number = 29,
-;; pages = {198--208},
-;; month = {Mars}
-;; }
-;;
-;; M-x `org-capture' on this entry will produce this buffer:
-;;
-;; =====================================================================
-;; * READ <== [point here]
-;;
-;; [[file:file.bib::dolev83][Dolev & Yao 1983: security of public key protocols]]
-;;
-;; Danny Dolev and Andrew C. Yao (1983): On the security of public-key protocols
-;; In IEEE Transaction on Information Theory, 198--208.
-;; =====================================================================
-;;
-;; Additionally, the following functions are now available for storing
-;; bibtex entries within Org documents.
-;;
-;; - Run `org-bibtex' to export the current file to a .bib.
-;;
-;; - Run `org-bibtex-check' or `org-bibtex-check-all' to check and
-;; fill in missing field of either the current, or all headlines
-;;
-;; - Run `org-bibtex-create' to add a bibtex entry
-;;
-;; - Use `org-bibtex-read' to read a bibtex entry after `point' or in
-;; the active region, then call `org-bibtex-write' in a .org file to
-;; insert a heading for the read bibtex entry
-;;
-;; - All Bibtex information is taken from the document compiled by
-;; Andrew Roberts from the Bibtex manual, available at
-;; http://www.andy-roberts.net/res/writing/latex/bibentries.pdf
-;;
-;;; History:
-;;
-;; The link creation part has been part of Org for a long time.
-;;
-;; Creating better capture template information was inspired by a request
-;; of Austin Frank: http://article.gmane.org/gmane.emacs.orgmode/4112
-;; and then implemented by Bastien Guerry.
-;;
-;; Eric Schulte eventually added the functions for translating between
-;; Org headlines and Bibtex entries, and for fleshing out the Bibtex
-;; fields of existing Org headlines.
-;;
-;; Org mode loads this module by default - if this is not what you want,
-;; configure the variable `org-modules'.
-
-;;; Code:
-
-(require 'org)
-(require 'bibtex)
-(require 'cl-lib)
-(require 'org-compat)
-
-(defvar org-agenda-overriding-header)
-(defvar org-agenda-search-view-always-boolean)
-(defvar org-bibtex-description nil) ; dynamically scoped from org.el
-(defvar org-id-locations)
-
-(declare-function bibtex-beginning-of-entry "bibtex" ())
-(declare-function bibtex-generate-autokey "bibtex" ())
-(declare-function bibtex-parse-entry "bibtex" (&optional content))
-(declare-function bibtex-url "bibtex" (&optional pos no-browse))
-
-
-;;; Bibtex data
-(defvar org-bibtex-types
- '((:article
- (:description . "An article from a journal or magazine")
- (:required :author :title :journal :year)
- (:optional :volume :number :pages :month :note))
- (:book
- (:description . "A book with an explicit publisher")
- (:required (:editor :author) :title :publisher :year)
- (:optional (:volume :number) :series :address :edition :month :note))
- (:booklet
- (:description . "A work that is printed and bound, but without a named publisher or sponsoring institution.")
- (:required :title)
- (:optional :author :howpublished :address :month :year :note))
- (:conference
- (:description . "")
- (:required :author :title :booktitle :year)
- (:optional :editor :pages :organization :publisher :address :month :note))
- (:inbook
- (:description . "A part of a book, which may be a chapter (or section or whatever) and/or a range of pages.")
- (:required (:author :editor) :title (:chapter :pages) :publisher :year)
- (:optional :crossref (:volume :number) :series :type :address :edition :month :note))
- (:incollection
- (:description . "A part of a book having its own title.")
- (:required :author :title :booktitle :publisher :year)
- (:optional :crossref :editor (:volume :number) :series :type :chapter :pages :address :edition :month :note))
- (:inproceedings
- (:description . "An article in a conference proceedings")
- (:required :author :title :booktitle :year)
- (:optional :crossref :editor (:volume :number) :series :pages :address :month :organization :publisher :note))
- (:manual
- (:description . "Technical documentation.")
- (:required :title)
- (:optional :author :organization :address :edition :month :year :note))
- (:mastersthesis
- (:description . "A Master’s thesis.")
- (:required :author :title :school :year)
- (:optional :type :address :month :note))
- (:misc
- (:description . "Use this type when nothing else fits.")
- (:required)
- (:optional :author :title :howpublished :month :year :note))
- (:phdthesis
- (:description . "A PhD thesis.")
- (:required :author :title :school :year)
- (:optional :type :address :month :note))
- (:proceedings
- (:description . "The proceedings of a conference.")
- (:required :title :year)
- (:optional :editor (:volume :number) :series :address :month :organization :publisher :note))
- (:techreport
- (:description . "A report published by a school or other institution.")
- (:required :author :title :institution :year)
- (:optional :type :address :month :note))
- (:unpublished
- (:description . "A document having an author and title, but not formally published.")
- (:required :author :title :note)
- (:optional :month :year)))
- "Bibtex entry types with required and optional parameters.")
-
-(defvar org-bibtex-fields
- '((:address . "Usually the address of the publisher or other type of institution. For major publishing houses, van Leunen recommends omitting the information entirely. For small publishers, on the other hand, you can help the reader by giving the complete address.")
- (:annote . "An annotation. It is not used by the standard bibliography styles, but may be used by others that produce an annotated bibliography.")
- (:author . "The name(s) of the author(s), in the format described in the LaTeX book. Remember, all names are separated with the and keyword, and not commas.")
- (:booktitle . "Title of a book, part of which is being cited. See the LaTeX book for how to type titles. For book entries, use the title field instead.")
- (:chapter . "A chapter (or section or whatever) number.")
- (:crossref . "The database key of the entry being cross referenced.")
- (:edition . "The edition of a book for example, 'Second'. This should be an ordinal, and should have the first letter capitalized, as shown here; the standard styles convert to lower case when necessary.")
- (:editor . "Name(s) of editor(s), typed as indicated in the LaTeX book. If there is also an author field, then the editor field gives the editor of the book or collection in which the reference appears.")
- (:howpublished . "How something strange has been published. The first word should be capitalized.")
- (:institution . "The sponsoring institution of a technical report.")
- (:journal . "A journal name.")
- (:key . "Used for alphabetizing, cross-referencing, and creating a label when the author information is missing. This field should not be confused with the key that appears in the \\cite command and at the beginning of the database entry.")
- (:month . "The month in which the work was published or, for an unpublished work, in which it was written. You should use the standard three-letter abbreviation,")
- (:note . "Any additional information that can help the reader. The first word should be capitalized.")
- (:number . "Any additional information that can help the reader. The first word should be capitalized.")
- (:organization . "The organization that sponsors a conference or that publishes a manual.")
- (:pages . "One or more page numbers or range of numbers, such as 42-111 or 7,41,73-97 or 43+ (the ‘+’ in this last example indicates pages following that don’t form simple range). BibTEX requires double dashes for page ranges (--).")
- (:publisher . "The publisher’s name.")
- (:school . "The name of the school where a thesis was written.")
- (:series . "The name of a series or set of books. When citing an entire book, the title field gives its title and an optional series field gives the name of a series or multi-volume set in which the book is published.")
- (:title . "The work’s title, typed as explained in the LaTeX book.")
- (:type . "The type of a technical report for example, 'Research Note'.")
- (:volume . "The volume of a journal or multi-volume book.")
- (:year . "The year of publication or, for an unpublished work, the year it was written. Generally it should consist of four numerals, such as 1984, although the standard styles can handle any year whose last four nonpunctuation characters are numerals, such as '(about 1984)'"))
- "Bibtex fields with descriptions.")
-
-(defvar org-bibtex-entries nil
- "List to hold parsed bibtex entries.")
-
-(defcustom org-bibtex-autogen-keys nil
- "Set to a truth value to use `bibtex-generate-autokey' to generate keys."
- :group 'org-bibtex
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-bibtex-prefix nil
- "Optional prefix for all bibtex property names.
-For example setting to `BIB_' would allow interoperability with fireforg."
- :group 'org-bibtex
- :version "24.1"
- :type '(choice
- (const nil)
- (string)))
-
-(defcustom org-bibtex-treat-headline-as-title t
- "Treat headline text as title if title property is absent.
-If an entry is missing a title property, use the headline text as
-the property. If this value is t, `org-bibtex-check' will ignore
-a missing title field."
- :group 'org-bibtex
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-bibtex-headline-format-function
- (lambda (entry) (cdr (assq :title entry)))
- "Function returning the headline text for `org-bibtex-write'.
-It should take a single argument, the bibtex entry (an alist as
-returned by `org-bibtex-read'). The default value simply returns
-the entry title."
- :group 'org-bibtex
- :version "26.1"
- :package-version '(Org . "9.1")
- :type 'function)
-
-(defcustom org-bibtex-export-arbitrary-fields nil
- "When converting to bibtex allow fields not defined in `org-bibtex-fields'.
-This only has effect if `org-bibtex-prefix' is defined, so as to
-ensure that other org-properties, such as CATEGORY or LOGGING are
-not placed in the exported bibtex entry."
- :group 'org-bibtex
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-bibtex-key-property "CUSTOM_ID"
- "Property that holds the bibtex key.
-By default, this is CUSTOM_ID, which enables easy linking to
-bibtex headlines from within an org file. This can be set to ID
-to enable global links, but only with great caution, as global
-IDs must be unique."
- :group 'org-bibtex
- :version "24.1"
- :type 'string)
-
-(defcustom org-bibtex-tags nil
- "List of tag(s) that should be added to new bib entries."
- :group 'org-bibtex
- :version "24.1"
- :type '(repeat :tag "Tag" (string)))
-
-(defcustom org-bibtex-tags-are-keywords nil
- "Convert the value of the keywords field to tags and vice versa.
-
-When non-nil, comma-separated entries in a bibtex entry's keywords
-field will be converted to Org tags. Note: spaces will be escaped
-with underscores, and characters that are not permitted in Org
-tags will be removed.
-
-When non-nil, local tags in an Org entry will be exported as
-a comma-separated string of keywords when exported to bibtex.
-If `org-bibtex-inherit-tags' is non-nil, inherited tags will also
-be exported as keywords. Tags defined in `org-bibtex-tags' or
-`org-bibtex-no-export-tags' will not be exported."
- :group 'org-bibtex
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-bibtex-no-export-tags nil
- "List of tag(s) that should not be converted to keywords.
-This variable is relevant only if `org-bibtex-tags-are-keywords'
-is non-nil."
- :group 'org-bibtex
- :version "24.1"
- :type '(repeat :tag "Tag" (string)))
-
-(defcustom org-bibtex-inherit-tags nil
- "Controls whether inherited tags are converted to bibtex keywords.
-It is relevant only if `org-bibtex-tags-are-keywords' is non-nil.
-Tag inheritance itself is controlled by `org-use-tag-inheritance'
-and `org-exclude-tags-from-inheritance'."
- :group 'org-bibtex
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'boolean)
-
-(defcustom org-bibtex-type-property-name "btype"
- "Property in which to store bibtex entry type (e.g., article)."
- :group 'org-bibtex
- :version "24.1"
- :type 'string)
-
-
-;;; Utility functions
-(defun org-bibtex-get (property)
- (let ((it (let ((org-special-properties
- (delete "FILE" (copy-sequence org-special-properties))))
- (or
- (org-entry-get (point) (upcase property))
- (org-entry-get (point) (concat org-bibtex-prefix
- (upcase property)))))))
- (when it (org-trim it))))
-
-(defun org-bibtex-put (property value)
- (let ((prop (upcase (if (keywordp property)
- (substring (symbol-name property) 1)
- property))))
- (org-set-property
- (concat (unless (string= org-bibtex-key-property prop) org-bibtex-prefix)
- prop)
- value)))
-
-(defun org-bibtex-headline ()
- "Return a bibtex entry of the given headline as a string."
- (letrec ((val (lambda (key lst) (cdr (assoc key lst))))
- (to (lambda (string) (intern (concat ":" string))))
- (from (lambda (key) (substring (symbol-name key) 1)))
- (flatten (lambda (&rest lsts)
- (apply #'append (mapcar
- (lambda (e)
- (if (listp e) (apply flatten e) (list e)))
- lsts))))
- (id (org-bibtex-get org-bibtex-key-property))
- (type (org-bibtex-get org-bibtex-type-property-name))
- (tags (when org-bibtex-tags-are-keywords
- (delq nil
- (mapcar
- (lambda (tag)
- (unless (member tag
- (append org-bibtex-tags
- org-bibtex-no-export-tags))
- tag))
- (if org-bibtex-inherit-tags
- (org-get-tags-at)
- (org-get-local-tags-at)))))))
- (when type
- (let ((entry (format
- "@%s{%s,\n%s\n}\n" type id
- (mapconcat
- (lambda (pair)
- (format " %s={%s}" (car pair) (cdr pair)))
- (remove nil
- (if (and org-bibtex-export-arbitrary-fields
- org-bibtex-prefix)
- (mapcar
- (lambda (kv)
- (let ((key (car kv)) (val0 (cdr kv)))
- (when (and
- (string-match org-bibtex-prefix key)
- (not (string=
- (downcase (concat org-bibtex-prefix
- org-bibtex-type-property-name))
- (downcase key))))
- (cons (downcase (replace-regexp-in-string
- org-bibtex-prefix "" key))
- val0))))
- (org-entry-properties nil 'standard))
- (mapcar
- (lambda (field)
- (let ((value (or (org-bibtex-get (funcall from field))
- (and (eq :title field)
- (nth 4 (org-heading-components))))))
- (when value (cons (funcall from field) value))))
- (funcall flatten
- (funcall val :required (funcall val (funcall to type) org-bibtex-types))
- (funcall val :optional (funcall val (funcall to type) org-bibtex-types))))))
- ",\n"))))
- (with-temp-buffer
- (insert entry)
- (when tags
- (bibtex-beginning-of-entry)
- (if (re-search-forward "keywords.*=.*{\\(.*\\)}" nil t)
- (progn (goto-char (match-end 1)) (insert ", "))
- (search-forward ",\n" nil t)
- (insert " keywords={},\n")
- (search-backward "}," nil t))
- (insert (mapconcat #'identity tags ", ")))
- (buffer-string))))))
-
-(defun org-bibtex-ask (field)
- (unless (assoc field org-bibtex-fields)
- (error "Field:%s is not known" field))
- (save-window-excursion
- (let* ((name (substring (symbol-name field) 1))
- (buf-name (format "*Bibtex Help %s*" name)))
- (with-output-to-temp-buffer buf-name
- (princ (cdr (assoc field org-bibtex-fields))))
- (with-current-buffer buf-name (visual-line-mode 1))
- (org-fit-window-to-buffer (get-buffer-window buf-name))
- (let ((result (read-from-minibuffer (format "%s: " name))))
- (when (> (length result) 0) result)))))
-
-(defun org-bibtex-autokey ()
- "Generate an autokey for the current headline."
- (org-bibtex-put org-bibtex-key-property
- (if org-bibtex-autogen-keys
- (let* ((entry (org-bibtex-headline))
- (key
- (with-temp-buffer
- (insert entry)
- (bibtex-generate-autokey))))
- ;; test for duplicate IDs if using global ID
- (when (and
- (equal org-bibtex-key-property "ID")
- (featurep 'org-id)
- (hash-table-p org-id-locations)
- (gethash key org-id-locations))
- (warn "Another entry has the same ID"))
- key)
- (read-from-minibuffer "id: "))))
-
-(defun org-bibtex-fleshout (type &optional optional)
- "Fleshout current heading, ensuring all required fields are present.
-With optional argument OPTIONAL, also prompt for optional fields."
- (let ((val (lambda (key lst) (cdr (assoc key lst))))
- (keyword (lambda (name) (intern (concat ":" (downcase name)))))
- (name (lambda (keyword) (substring (symbol-name keyword) 1))))
- (dolist (field (append
- (if org-bibtex-treat-headline-as-title
- (remove :title (funcall val :required (funcall val type org-bibtex-types)))
- (funcall val :required (funcall val type org-bibtex-types)))
- (when optional (funcall val :optional (funcall val type org-bibtex-types)))))
- (when (consp field) ; or'd pair of fields e.g., (:editor :author)
- (let ((present (nth 0 (remove
- nil
- (mapcar
- (lambda (f)
- (when (org-bibtex-get (funcall name f)) f))
- field)))))
- (setf field (or present (funcall keyword
- (completing-read
- "Field: " (mapcar name field)))))))
- (let ((name (funcall name field)))
- (unless (org-bibtex-get name)
- (let ((prop (org-bibtex-ask field)))
- (when prop (org-bibtex-put name prop)))))))
- (when (and type (assoc type org-bibtex-types)
- (not (org-bibtex-get org-bibtex-key-property)))
- (org-bibtex-autokey)))
-
-
-;;; Bibtex link functions
-(org-link-set-parameters "bibtex"
- :follow #'org-bibtex-open
- :store #'org-bibtex-store-link)
-
-(defun org-bibtex-open (path)
- "Visit the bibliography entry on PATH."
- (let* ((search (when (string-match "::\\(.+\\)\\'" path)
- (match-string 1 path)))
- (path (substring path 0 (match-beginning 0))))
- (org-open-file path t nil search)))
-
-(defun org-bibtex-store-link ()
- "Store a link to a BibTeX entry."
- (when (eq major-mode 'bibtex-mode)
- (let* ((search (org-create-file-search-in-bibtex))
- (link (concat "file:" (abbreviate-file-name buffer-file-name)
- "::" search))
- (entry (mapcar ; repair strings enclosed in "..." or {...}
- (lambda(c)
- (if (string-match
- "^\\(?:{\\|\"\\)\\(.*\\)\\(?:}\\|\"\\)$" (cdr c))
- (cons (car c) (match-string 1 (cdr c))) c))
- (save-excursion
- (bibtex-beginning-of-entry)
- (bibtex-parse-entry)))))
- (org-store-link-props
- :key (cdr (assoc "=key=" entry))
- :author (or (cdr (assoc "author" entry)) "[no author]")
- :editor (or (cdr (assoc "editor" entry)) "[no editor]")
- :title (or (cdr (assoc "title" entry)) "[no title]")
- :booktitle (or (cdr (assoc "booktitle" entry)) "[no booktitle]")
- :journal (or (cdr (assoc "journal" entry)) "[no journal]")
- :publisher (or (cdr (assoc "publisher" entry)) "[no publisher]")
- :pages (or (cdr (assoc "pages" entry)) "[no pages]")
- :url (or (cdr (assoc "url" entry)) "[no url]")
- :year (or (cdr (assoc "year" entry)) "[no year]")
- :month (or (cdr (assoc "month" entry)) "[no month]")
- :address (or (cdr (assoc "address" entry)) "[no address]")
- :volume (or (cdr (assoc "volume" entry)) "[no volume]")
- :number (or (cdr (assoc "number" entry)) "[no number]")
- :annote (or (cdr (assoc "annote" entry)) "[no annotation]")
- :series (or (cdr (assoc "series" entry)) "[no series]")
- :abstract (or (cdr (assoc "abstract" entry)) "[no abstract]")
- :btype (or (cdr (assoc "=type=" entry)) "[no type]")
- :type "bibtex"
- :link link
- :description org-bibtex-description))))
-
-(defun org-create-file-search-in-bibtex ()
- "Create the search string and description for a BibTeX database entry."
- ;; Make a good description for this entry, using names, year and the title
- ;; Put it into the `description' variable which is dynamically scoped.
- (let ((bibtex-autokey-names 1)
- (bibtex-autokey-names-stretch 1)
- (bibtex-autokey-name-case-convert-function 'identity)
- (bibtex-autokey-name-separator " & ")
- (bibtex-autokey-additional-names " et al.")
- (bibtex-autokey-year-length 4)
- (bibtex-autokey-name-year-separator " ")
- (bibtex-autokey-titlewords 3)
- (bibtex-autokey-titleword-separator " ")
- (bibtex-autokey-titleword-case-convert-function 'identity)
- (bibtex-autokey-titleword-length 'infty)
- (bibtex-autokey-year-title-separator ": "))
- (setq org-bibtex-description (bibtex-generate-autokey)))
- ;; Now parse the entry, get the key and return it.
- (save-excursion
- (bibtex-beginning-of-entry)
- (cdr (assoc "=key=" (bibtex-parse-entry)))))
-
-(defun org-execute-file-search-in-bibtex (s)
- "Find the link search string S as a key for a database entry."
- (when (eq major-mode 'bibtex-mode)
- ;; Yes, we want to do the search in this file.
- ;; We construct a regexp that searches for "@entrytype{" followed by the key
- (goto-char (point-min))
- (and (re-search-forward (concat "@[a-zA-Z]+[ \t\n]*{[ \t\n]*"
- (regexp-quote s) "[ \t\n]*,") nil t)
- (goto-char (match-beginning 0)))
- (if (and (match-beginning 0) (equal current-prefix-arg '(16)))
- ;; Use double prefix to indicate that any web link should be browsed
- (let ((b (current-buffer)) (p (point)))
- ;; Restore the window configuration because we just use the web link
- (set-window-configuration org-window-config-before-follow-link)
- (with-current-buffer b
- (goto-char p)
- (bibtex-url)))
- (recenter 0)) ; Move entry start to beginning of window
- ;; return t to indicate that the search is done.
- t))
-
-;; Finally add the link search function to the right hook.
-(add-hook 'org-execute-file-search-functions 'org-execute-file-search-in-bibtex)
-
-
-;;; Bibtex <-> Org headline translation functions
-(defun org-bibtex (filename)
- "Export each headline in the current file to a bibtex entry.
-Headlines are exported using `org-bibtex-headline'."
- (interactive
- (list (read-file-name
- "Bibtex file: " nil nil nil
- (let ((file (buffer-file-name (buffer-base-buffer))))
- (and file
- (file-name-nondirectory
- (concat (file-name-sans-extension file) ".bib")))))))
- (let ((error-point
- (catch 'bib
- (let ((bibtex-entries
- (remove nil (org-map-entries
- (lambda ()
- (condition-case nil
- (org-bibtex-headline)
- (error (throw 'bib (point)))))))))
- (with-temp-file filename
- (insert (mapconcat #'identity bibtex-entries "\n")))
- (message "Successfully exported %d BibTeX entries to %s"
- (length bibtex-entries) filename) nil))))
- (when error-point
- (goto-char error-point)
- (message "Bibtex error at %S" (nth 4 (org-heading-components))))))
-
-(defun org-bibtex-check (&optional optional)
- "Check the current headline for required fields.
-With prefix argument OPTIONAL also prompt for optional fields."
- (interactive "P")
- (save-restriction
- (org-narrow-to-subtree)
- (let ((type (let ((name (org-bibtex-get org-bibtex-type-property-name)))
- (when name (intern (concat ":" name))))))
- (when type (org-bibtex-fleshout type optional)))))
-
-(defun org-bibtex-check-all (&optional optional)
- "Check all headlines in the current file.
-With prefix argument OPTIONAL also prompt for optional fields."
- (interactive) (org-map-entries (lambda () (org-bibtex-check optional))))
-
-(defun org-bibtex-create (&optional arg nonew)
- "Create a new entry at the given level.
-With a prefix arg, query for optional fields as well.
-If nonew is t, add data to the headline of the entry at point."
- (interactive "P")
- (let* ((type (completing-read
- "Type: " (mapcar (lambda (type)
- (substring (symbol-name (car type)) 1))
- org-bibtex-types)
- nil nil (when nonew
- (org-bibtex-get org-bibtex-type-property-name))))
- (type (if (keywordp type) type (intern (concat ":" type))))
- (org-bibtex-treat-headline-as-title (if nonew nil t)))
- (unless (assoc type org-bibtex-types)
- (error "Type:%s is not known" type))
- (if nonew
- (org-back-to-heading)
- (org-insert-heading)
- (let ((title (org-bibtex-ask :title)))
- (insert title)
- (org-bibtex-put "TITLE" title)))
- (org-bibtex-put org-bibtex-type-property-name
- (substring (symbol-name type) 1))
- (org-bibtex-fleshout type arg)
- (dolist (tag org-bibtex-tags) (org-toggle-tag tag 'on))))
-
-(defun org-bibtex-create-in-current-entry (&optional arg)
- "Add bibliographical data to the current entry.
-With a prefix arg, query for optional fields."
- (interactive "P")
- (org-bibtex-create arg t))
-
-(defun org-bibtex-read ()
- "Read a bibtex entry and save to `org-bibtex-entries'.
-This uses `bibtex-parse-entry'."
- (interactive)
- (let ((keyword (lambda (str) (intern (concat ":" (downcase str)))))
- (clean-space (lambda (str) (replace-regexp-in-string
- "[[:space:]\n\r]+" " " str)))
- (strip-delim
- (lambda (str) ; strip enclosing "..." and {...}
- (dolist (pair '((34 . 34) (123 . 125)))
- (when (and (> (length str) 1)
- (= (aref str 0) (car pair))
- (= (aref str (1- (length str))) (cdr pair)))
- (setf str (substring str 1 (1- (length str)))))) str)))
- (push (mapcar
- (lambda (pair)
- (cons (let ((field (funcall keyword (car pair))))
- (pcase field
- (:=type= :type)
- (:=key= :key)
- (_ field)))
- (funcall clean-space (funcall strip-delim (cdr pair)))))
- (save-excursion (bibtex-beginning-of-entry) (bibtex-parse-entry)))
- org-bibtex-entries)))
-
-(defun org-bibtex-read-buffer (buffer)
- "Read all bibtex entries in BUFFER and save to `org-bibtex-entries'.
-Return the number of saved entries."
- (interactive "bBuffer: ")
- (let ((start-length (length org-bibtex-entries)))
- (with-current-buffer buffer
- (save-excursion
- (goto-char (point-max))
- (while (not (= (point) (point-min)))
- (backward-char 1)
- (org-bibtex-read)
- (bibtex-beginning-of-entry))))
- (let ((added (- (length org-bibtex-entries) start-length)))
- (message "Parsed %d entries" added)
- added)))
-
-(defun org-bibtex-read-file (file)
- "Read FILE with `org-bibtex-read-buffer'."
- (interactive "fFile: ")
- (org-bibtex-read-buffer (find-file-noselect file 'nowarn 'rawfile)))
-
-(defun org-bibtex-write ()
- "Insert a heading built from the first element of `org-bibtex-entries'."
- (interactive)
- (when (= (length org-bibtex-entries) 0)
- (error "No entries in `org-bibtex-entries'"))
- (let* ((entry (pop org-bibtex-entries))
- (org-special-properties nil) ; avoids errors with `org-entry-put'
- (val (lambda (field) (cdr (assoc field entry))))
- (togtag (lambda (tag) (org-toggle-tag tag 'on))))
- (org-insert-heading)
- (insert (funcall org-bibtex-headline-format-function entry))
- (org-bibtex-put "TITLE" (funcall val :title))
- (org-bibtex-put org-bibtex-type-property-name
- (downcase (funcall val :type)))
- (dolist (pair entry)
- (pcase (car pair)
- (:title nil)
- (:type nil)
- (:key (org-bibtex-put org-bibtex-key-property (cdr pair)))
- (:keywords (if org-bibtex-tags-are-keywords
- (dolist (kw (split-string (cdr pair) ", *"))
- (funcall
- togtag
- (replace-regexp-in-string
- "[^[:alnum:]_@#%]" ""
- (replace-regexp-in-string "[ \t]+" "_" kw))))
- (org-bibtex-put (car pair) (cdr pair))))
- (_ (org-bibtex-put (car pair) (cdr pair)))))
- (mapc togtag org-bibtex-tags)))
-
-(defun org-bibtex-yank ()
- "If kill ring holds a bibtex entry yank it as an Org headline."
- (interactive)
- (let (entry)
- (with-temp-buffer (yank 1) (setf entry (org-bibtex-read)))
- (if entry
- (org-bibtex-write)
- (error "Yanked text does not appear to contain a BibTeX entry"))))
-
-(defun org-bibtex-import-from-file (file)
- "Read bibtex entries from FILE and insert as Org headlines after point."
- (interactive "fFile: ")
- (dotimes (_ (org-bibtex-read-file file))
- (save-excursion (org-bibtex-write))
- (re-search-forward org-property-end-re)
- (open-line 1) (forward-char 1)))
-
-(defun org-bibtex-export-to-kill-ring ()
- "Export current headline to kill ring as bibtex entry."
- (interactive)
- (let ((result (org-bibtex-headline)))
- (kill-new result) result))
-
-(defun org-bibtex-search (string)
- "Search for bibliographical entries in agenda files.
-This function relies `org-search-view' to locate results."
- (interactive "sSearch string: ")
- (let ((org-agenda-overriding-header "Bib search results:")
- (org-agenda-search-view-always-boolean t))
- (org-search-view nil
- (format "%s +{:%s%s:}"
- string (or org-bibtex-prefix "")
- org-bibtex-type-property-name))))
-
-(provide 'org-bibtex)
-
-;;; org-bibtex.el ends here
diff --git a/elpa/org-9.1.14/org-bibtex.elc b/elpa/org-9.1.14/org-bibtex.elc
deleted file mode 100644
index ae5c186..0000000
--- a/elpa/org-9.1.14/org-bibtex.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-capture.el b/elpa/org-9.1.14/org-capture.el
deleted file mode 100644
index cd54491..0000000
--- a/elpa/org-9.1.14/org-capture.el
+++ /dev/null
@@ -1,1960 +0,0 @@
-;;; org-capture.el --- Fast note taking in Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains an alternative implementation of the functionality
-;; that used to be provided by org-remember.el. The implementation is more
-;; streamlined, can produce more target types (e.g. plain list items or
-;; table lines). Also, it does not use a temporary buffer for editing
-;; the captured entry - instead it uses an indirect buffer that visits
-;; the new entry already in the target buffer (this was an idea by Samuel
-;; Wales). John Wiegley's excellent `remember.el' is not needed anymore
-;; for this implementation, even though we borrow heavily from its ideas.
-
-;; This implementation heavily draws on ideas by James TD Smith and
-;; Samuel Wales, and, of cause, uses John Wiegley's remember.el as inspiration.
-
-;;; TODO
-
-;; - find a clever way to not always insert an annotation maybe a
-;; predicate function that can check for conditions for %a to be
-;; used. This could be one of the properties.
-
-;; - Should there be plist members that arrange for properties to be
-;; asked for, like James proposed in his RFC?
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-
-(declare-function org-at-encrypted-entry-p "org-crypt" ())
-(declare-function org-clock-update-mode-line "org-clock" (&optional refresh))
-(declare-function org-datetree-find-date-create "org-datetree" (date &optional keep-restriction))
-(declare-function org-decrypt-entry "org-crypt" ())
-(declare-function org-encrypt-entry "org-crypt" ())
-(declare-function org-table-analyze "org-table" ())
-(declare-function org-table-current-dline "org-table" ())
-(declare-function org-table-goto-line "org-table" (N))
-
-(defvar org-end-time-was-given)
-(defvar org-remember-default-headline)
-(defvar org-remember-templates)
-(defvar org-table-hlines)
-(defvar org-table-current-begin-pos)
-(defvar dired-buffers)
-
-(defvar org-capture-clock-was-started nil
- "Internal flag, noting if the clock was started.")
-
-(defvar org-capture-last-stored-marker (make-marker)
- "Marker pointing to the entry most recently stored with `org-capture'.")
-
-;; The following variable is scoped dynamically by org-protocol
-;; to indicate that the link properties have already been stored
-(defvar org-capture-link-is-already-stored nil)
-
-(defvar org-capture-is-refiling nil
- "Non-nil when capture process is refiling an entry.")
-
-(defvar org-capture--prompt-history-table (make-hash-table :test #'equal)
- "Hash table for all history lists per prompt.")
-
-(defvar org-capture--prompt-history nil
- "History list for prompt placeholders.")
-
-(defgroup org-capture nil
- "Options concerning capturing new entries."
- :tag "Org Capture"
- :group 'org)
-
-(defun org-capture-upgrade-templates (templates)
- "Update the template list to the new format.
-TEMPLATES is a template list, as in `org-capture-templates'. The
-new format unifies all the date/week tree targets into one that
-also allows for an optional outline path to specify a target."
- (let ((modified-templates
- (mapcar
- (lambda (entry)
- (pcase entry
- ;; Match templates with an obsolete "tree" target type. Replace
- ;; it with common `file+olp-datetree'. Add new properties
- ;; (i.e., `:time-prompt' and `:tree-type') if needed.
- (`(,key ,desc ,type (file+datetree . ,path) ,tpl . ,props)
- `(,key ,desc ,type (file+olp+datetree ,@path) ,tpl ,@props))
- (`(,key ,desc ,type (file+datetree+prompt . ,path) ,tpl . ,props)
- `(,key ,desc ,type (file+olp+datetree ,@path) ,tpl
- :time-prompt t ,@props))
- (`(,key ,desc ,type (file+weektree . ,path) ,tpl . ,props)
- `(,key ,desc ,type (file+olp+datetree ,@path) ,tpl
- :tree-type week ,@props))
- (`(,key ,desc ,type (file+weektree+prompt . ,path) ,tpl . ,props)
- `(,key ,desc ,type (file+olp+datetree ,@path) ,tpl
- :tree-type week :time-prompt t ,@props))
- ;; Other templates are left unchanged.
- (_ entry)))
- templates)))
- (unless (equal modified-templates templates)
- (message "Deprecated date/weektree capture templates changed to `file+olp+datetree'."))
- modified-templates))
-
-(defcustom org-capture-templates nil
- "Templates for the creation of new entries.
-
-Each entry is a list with the following items:
-
-keys The keys that will select the template, as a string, characters
- only, for example \"a\" for a template to be selected with a
- single key, or \"bt\" for selection with two keys. When using
- several keys, keys using the same prefix key must be together
- in the list and preceded by a 2-element entry explaining the
- prefix key, for example
-
- (\"b\" \"Templates for marking stuff to buy\")
-
- The \"C\" key is used by default for quick access to the
- customization of the template variable. But if you want to use
- that key for a template, you can.
-
-description A short string describing the template, will be shown during
- selection.
-
-type The type of entry. Valid types are:
- entry an Org node, with a headline. Will be filed
- as the child of the target entry or as a
- top-level entry.
- item a plain list item, will be placed in the
- first plain list at the target
- location.
- checkitem a checkbox item. This differs from the
- plain list item only is so far as it uses a
- different default template.
- table-line a new line in the first table at target location.
- plain text to be inserted as it is.
-
-target Specification of where the captured item should be placed.
- In Org files, targets usually define a node. Entries will
- become children of this node, other types will be added to the
- table or list in the body of this node.
-
- Most target specifications contain a file name. If that file
- name is the empty string, it defaults to `org-default-notes-file'.
- A file can also be given as a variable or as a function called
- with no argument. When an absolute path is not specified for a
- target, it is taken as relative to `org-directory'.
-
- Valid values are:
-
- (file \"path/to/file\")
- Text will be placed at the beginning or end of that file
-
- (id \"id of existing Org entry\")
- File as child of this entry, or in the body of the entry
-
- (file+headline \"path/to/file\" \"node headline\")
- Fast configuration if the target heading is unique in the file
-
- (file+olp \"path/to/file\" \"Level 1 heading\" \"Level 2\" ...)
- For non-unique headings, the full outline path is safer
-
- (file+regexp \"path/to/file\" \"regexp to find location\")
- File to the entry matching regexp
-
- (file+olp+datetree \"path/to/file\" \"Level 1 heading\" ...)
- Will create a heading in a date tree for today's date.
- If no heading is given, the tree will be on top level.
- To prompt for date instead of using TODAY, use the
- :time-prompt property. To create a week-tree, use the
- :tree-type property.
-
- (file+function \"path/to/file\" function-finding-location)
- A function to find the right location in the file
-
- (clock)
- File to the entry that is currently being clocked
-
- (function function-finding-location)
- Most general way: write your own function which both visits
- the file and moves point to the right location
-
-template The template for creating the capture item. If you leave this
- empty, an appropriate default template will be used. See below
- for more details. Instead of a string, this may also be one of
-
- (file \"/path/to/template-file\")
- (function function-returning-the-template)
-
- in order to get a template from a file, or dynamically
- from a function.
-
-The rest of the entry is a property list of additional options. Recognized
-properties are:
-
- :prepend Normally newly captured information will be appended at
- the target location (last child, last table line,
- last list item...). Setting this property will
- change that.
-
- :immediate-finish When set, do not offer to edit the information, just
- file it away immediately. This makes sense if the
- template only needs information that can be added
- automatically.
-
- :jump-to-captured When set, jump to the captured entry when finished.
-
- :empty-lines Set this to the number of lines the should be inserted
- before and after the new item. Default 0, only common
- other value is 1.
-
- :empty-lines-before Set this to the number of lines the should be inserted
- before the new item. Overrides :empty-lines for the
- number lines inserted before.
-
- :empty-lines-after Set this to the number of lines the should be inserted
- after the new item. Overrides :empty-lines for the
- number of lines inserted after.
-
- :clock-in Start the clock in this item.
-
- :clock-keep Keep the clock running when filing the captured entry.
-
- :clock-resume Start the interrupted clock when finishing the capture.
- Note that :clock-keep has precedence over :clock-resume.
- When setting both to t, the current clock will run and
- the previous one will not be resumed.
-
- :time-prompt Prompt for a date/time to be used for date/week trees
- and when filling the template.
-
- :tree-type When `week', make a week tree instead of the month tree.
-
- :unnarrowed Do not narrow the target buffer, simply show the
- full buffer. Default is to narrow it so that you
- only see the new stuff.
-
- :table-line-pos Specification of the location in the table where the
- new line should be inserted. It should be a string like
- \"II-3\", meaning that the new line should become the
- third line before the second horizontal separator line.
-
- :kill-buffer If the target file was not yet visited by a buffer when
- capture was invoked, kill the buffer again after capture
- is finalized.
-
-The template defines the text to be inserted. Often this is an
-Org mode entry (so the first line should start with a star) that
-will be filed as a child of the target headline. It can also be
-freely formatted text. Furthermore, the following %-escapes will
-be replaced with content and expanded:
-
- %[pathname] Insert the contents of the file given by
- `pathname'. These placeholders are expanded at the very
- beginning of the process so they can be used to extend the
- current template.
- %(sexp) Evaluate elisp `(sexp)' and replace it with the results.
- Only placeholders pre-existing within the template, or
- introduced with %[pathname] are expanded this way. Since this
- happens after expanding non-interactive %-escapes, those can
- be used to fill the expression.
- %<...> The result of format-time-string on the ... format specification.
- %t Time stamp, date only. The time stamp is the current time,
- except when called from agendas with `\\[org-agenda-capture]' or
- with `org-capture-use-agenda-date' set.
- %T Time stamp as above, with date and time.
- %u, %U Like the above, but inactive time stamps.
- %i Initial content, copied from the active region. If %i is
- indented, the entire inserted text will be indented as well.
- %a Annotation, normally the link created with `org-store-link'.
- %A Like %a, but prompt for the description part.
- %l Like %a, but only insert the literal link.
- %c Current kill ring head.
- %x Content of the X clipboard.
- %k Title of currently clocked task.
- %K Link to currently clocked task.
- %n User name (taken from the variable `user-full-name').
- %f File visited by current buffer when org-capture was called.
- %F Full path of the file or directory visited by current buffer.
- %:keyword Specific information for certain link types, see below.
- %^g Prompt for tags, with completion on tags in target file.
- %^G Prompt for tags, with completion on all tags in all agenda files.
- %^t Like %t, but prompt for date. Similarly %^T, %^u, %^U.
- You may define a prompt like: %^{Please specify birthday}t.
- The default date is that of %t, see above.
- %^C Interactive selection of which kill or clip to use.
- %^L Like %^C, but insert as link.
- %^{prop}p Prompt the user for a value for property `prop'.
- %^{prompt} Prompt the user for a string and replace this sequence with it.
- A default value and a completion table ca be specified like this:
- %^{prompt|default|completion2|completion3|...}.
- %? After completing the template, position cursor here.
- %\\1 ... %\\N Insert the text entered at the nth %^{prompt}, where N
- is a number, starting from 1.
-
-Apart from these general escapes, you can access information specific to
-the link type that is created. For example, calling `org-capture' in emails
-or in Gnus will record the author and the subject of the message, which you
-can access with \"%:from\" and \"%:subject\", respectively. Here is a
-complete list of what is recorded for each link type.
-
-Link type | Available information
-------------------------+------------------------------------------------------
-bbdb | %:type %:name %:company
-vm, wl, mh, mew, rmail, | %:type %:subject %:message-id
-gnus | %:from %:fromname %:fromaddress
- | %:to %:toname %:toaddress
- | %:fromto (either \"to NAME\" or \"from NAME\")
- | %:date %:date-timestamp (as active timestamp)
- | %:date-timestamp-inactive (as inactive timestamp)
-gnus | %:group, for messages also all email fields
-eww, w3, w3m | %:type %:url
-info | %:type %:file %:node
-calendar | %:type %:date
-
-When you need to insert a literal percent sign in the template,
-you can escape ambiguous cases with a backward slash, e.g., \\%i."
- :group 'org-capture
- :version "24.1"
- :set (lambda (s v) (set s (org-capture-upgrade-templates v)))
- :type
- (let ((file-variants '(choice :tag "Filename "
- (file :tag "Literal")
- (function :tag "Function")
- (variable :tag "Variable")
- (sexp :tag "Form"))))
- `(repeat
- (choice :value ("" "" entry (file "~/org/notes.org") "")
- (list :tag "Multikey description"
- (string :tag "Keys ")
- (string :tag "Description"))
- (list :tag "Template entry"
- (string :tag "Keys ")
- (string :tag "Description ")
- (choice :tag "Capture Type " :value entry
- (const :tag "Org entry" entry)
- (const :tag "Plain list item" item)
- (const :tag "Checkbox item" checkitem)
- (const :tag "Plain text" plain)
- (const :tag "Table line" table-line))
- (choice :tag "Target location"
- (list :tag "File"
- (const :format "" file)
- ,file-variants)
- (list :tag "ID"
- (const :format "" id)
- (string :tag " ID"))
- (list :tag "File & Headline"
- (const :format "" file+headline)
- ,file-variants
- (string :tag " Headline"))
- (list :tag "File & Outline path"
- (const :format "" file+olp)
- ,file-variants
- (repeat :tag "Outline path" :inline t
- (string :tag "Headline")))
- (list :tag "File & Regexp"
- (const :format "" file+regexp)
- ,file-variants
- (regexp :tag " Regexp"))
- (list :tag "File [ & Outline path ] & Date tree"
- (const :format "" file+olp+datetree)
- ,file-variants
- (option (repeat :tag "Outline path" :inline t
- (string :tag "Headline"))))
- (list :tag "File & function"
- (const :format "" file+function)
- ,file-variants
- (sexp :tag " Function"))
- (list :tag "Current clocking task"
- (const :format "" clock))
- (list :tag "Function"
- (const :format "" function)
- (sexp :tag " Function")))
- (choice :tag "Template "
- (string)
- (list :tag "File"
- (const :format "" file)
- (file :tag "Template file"))
- (list :tag "Function"
- (const :format "" function)
- (function :tag "Template function")))
- (plist :inline t
- ;; Give the most common options as checkboxes
- :options (((const :format "%v " :prepend) (const t))
- ((const :format "%v " :immediate-finish) (const t))
- ((const :format "%v " :jump-to-captured) (const t))
- ((const :format "%v " :empty-lines) (const 1))
- ((const :format "%v " :empty-lines-before) (const 1))
- ((const :format "%v " :empty-lines-after) (const 1))
- ((const :format "%v " :clock-in) (const t))
- ((const :format "%v " :clock-keep) (const t))
- ((const :format "%v " :clock-resume) (const t))
- ((const :format "%v " :time-prompt) (const t))
- ((const :format "%v " :tree-type) (const week))
- ((const :format "%v " :unnarrowed) (const t))
- ((const :format "%v " :table-line-pos) (string))
- ((const :format "%v " :kill-buffer) (const t)))))))))
-
-(defcustom org-capture-before-finalize-hook nil
- "Hook that is run right before a capture process is finalized.
-The capture buffer is still current when this hook runs and it is
-widened to the entire buffer."
- :group 'org-capture
- :version "24.1"
- :type 'hook)
-
-(defcustom org-capture-after-finalize-hook nil
- "Hook that is run right after a capture process is finalized.
-Suitable for window cleanup."
- :group 'org-capture
- :version "24.1"
- :type 'hook)
-
-(defcustom org-capture-prepare-finalize-hook nil
- "Hook that is run before the finalization starts.
-The capture buffer is current and still narrowed."
- :group 'org-capture
- :version "24.1"
- :type 'hook)
-
-(defcustom org-capture-bookmark t
- "When non-nil, add a bookmark pointing at the last stored
-position when capturing."
- :group 'org-capture
- :version "24.3"
- :type 'boolean)
-
-;;; The property list for keeping information about the capture process
-
-(defvar org-capture-plist nil
- "Plist for the current capture process, global, to avoid having to pass it.")
-
-(defvar org-capture-current-plist nil
- "Local variable holding the plist in a capture buffer.
-This is used to store the plist for use when finishing a capture process
-because another such process might have changed the global variable by then.
-
-Each time a new capture buffer has been set up, the global `org-capture-plist'
-is copied to this variable, which is local in the indirect buffer.")
-
-(defvar org-capture-clock-keep nil
- "Local variable to store the value of the :clock-keep parameter.
-This is needed in case org-capture-finalize is called interactively.")
-
-(defun org-capture-put (&rest stuff)
- "Add properties to the capture property list `org-capture-plist'."
- (while stuff
- (setq org-capture-plist (plist-put org-capture-plist
- (pop stuff) (pop stuff)))))
-(defun org-capture-get (prop &optional local)
- "Get properties from the capture property list `org-capture-plist'.
-When LOCAL is set, use the local variable `org-capture-current-plist',
-this is necessary after initialization of the capture process,
-to avoid conflicts with other active capture processes."
- (plist-get (if local org-capture-current-plist org-capture-plist) prop))
-
-(defun org-capture-member (prop &optional local)
- "Is PROP a property in `org-capture-plist'.
-When LOCAL is set, use the local variable `org-capture-current-plist',
-this is necessary after initialization of the capture process,
-to avoid conflicts with other active capture processes."
- (plist-get (if local org-capture-current-plist org-capture-plist) prop))
-
-;;; The minor mode
-
-(defvar org-capture-mode-map (make-sparse-keymap)
- "Keymap for `org-capture-mode', a minor mode.
-Use this map to set additional keybindings for when Org mode is used
-for a capture buffer.")
-
-(defvar org-capture-mode-hook nil
- "Hook for the minor `org-capture-mode'.")
-
-(define-minor-mode org-capture-mode
- "Minor mode for special key bindings in a capture buffer.
-
-Turning on this mode runs the normal hook `org-capture-mode-hook'."
- nil " Rem" org-capture-mode-map
- (setq-local
- header-line-format
- (substitute-command-keys
- "\\<org-capture-mode-map>Capture buffer. Finish \
-`\\[org-capture-finalize]', refile `\\[org-capture-refile]', \
-abort `\\[org-capture-kill]'.")))
-(define-key org-capture-mode-map "\C-c\C-c" 'org-capture-finalize)
-(define-key org-capture-mode-map "\C-c\C-k" 'org-capture-kill)
-(define-key org-capture-mode-map "\C-c\C-w" 'org-capture-refile)
-
-;;; The main commands
-
-(defvar org-capture-initial nil)
-(defvar org-capture-entry nil)
-
-;;;###autoload
-(defun org-capture-string (string &optional keys)
- "Capture STRING with the template selected by KEYS."
- (interactive "sInitial text: \n")
- (let ((org-capture-initial string)
- (org-capture-entry (org-capture-select-template keys)))
- (org-capture)))
-
-(defcustom org-capture-templates-contexts nil
- "Alist of capture templates and valid contexts.
-
-For example, if you have a capture template \"c\" and you want
-this template to be accessible only from `message-mode' buffers,
-use this:
-
- \\='((\"c\" ((in-mode . \"message-mode\"))))
-
-Here are the available contexts definitions:
-
- in-file: command displayed only in matching files
- in-mode: command displayed only in matching modes
- not-in-file: command not displayed in matching files
- not-in-mode: command not displayed in matching modes
- in-buffer: command displayed only in matching buffers
-not-in-buffer: command not displayed in matching buffers
- [function]: a custom function taking no argument
-
-If you define several checks, the agenda command will be
-accessible if there is at least one valid check.
-
-You can also bind a key to another capture template depending on
-contextual rules.
-
- \\='((\"c\" \"d\" ((in-mode . \"message-mode\"))))
-
-Here it means: in `message-mode buffers', use \"c\" as the
-key for the capture template otherwise associated with \"d\".
-\(The template originally associated with \"d\" is not displayed
-to avoid duplicates.)"
- :version "24.3"
- :group 'org-capture
- :type '(repeat (list :tag "Rule"
- (string :tag " Capture key")
- (string :tag "Replace by template")
- (repeat :tag "Available when"
- (choice
- (cons :tag "Condition"
- (choice
- (const :tag "In file" in-file)
- (const :tag "Not in file" not-in-file)
- (const :tag "In buffer" in-buffer)
- (const :tag "Not in buffer" not-in-buffer)
- (const :tag "In mode" in-mode)
- (const :tag "Not in mode" not-in-mode))
- (regexp))
- (function :tag "Custom function"))))))
-
-(defcustom org-capture-use-agenda-date nil
- "Non-nil means use the date at point when capturing from agendas.
-When nil, you can still capture using the date at point with
-`\\[org-agenda-capture]'."
- :group 'org-capture
- :version "24.3"
- :type 'boolean)
-
-;;;###autoload
-(defun org-capture (&optional goto keys)
- "Capture something.
-\\<org-capture-mode-map>
-This will let you select a template from `org-capture-templates', and
-then file the newly captured information. The text is immediately
-inserted at the target location, and an indirect buffer is shown where
-you can edit it. Pressing `\\[org-capture-finalize]' brings you back to the \
-previous
-state of Emacs, so that you can continue your work.
-
-When called interactively with a `\\[universal-argument]' prefix argument \
-GOTO, don't
-capture anything, just go to the file/headline where the selected
-template stores its notes.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix argument, go to \
-the last note stored.
-
-When called with a `C-0' (zero) prefix, insert a template at point.
-
-When called with a `C-1' (one) prefix, force prompting for a date when
-a datetree entry is made.
-
-ELisp programs can set KEYS to a string associated with a template
-in `org-capture-templates'. In this case, interactive selection
-will be bypassed.
-
-If `org-capture-use-agenda-date' is non-nil, capturing from the
-agenda will use the date at point as the default date. Then, a
-`C-1' prefix will tell the capture process to use the HH:MM time
-of the day at point (if any) or the current HH:MM time."
- (interactive "P")
- (when (and org-capture-use-agenda-date
- (eq major-mode 'org-agenda-mode))
- (setq org-overriding-default-time
- (org-get-cursor-date (equal goto 1))))
- (cond
- ((equal goto '(4)) (org-capture-goto-target))
- ((equal goto '(16)) (org-capture-goto-last-stored))
- (t
- (let* ((orig-buf (current-buffer))
- (annotation (if (and (boundp 'org-capture-link-is-already-stored)
- org-capture-link-is-already-stored)
- (plist-get org-store-link-plist :annotation)
- (ignore-errors (org-store-link nil))))
- (entry (or org-capture-entry (org-capture-select-template keys)))
- initial)
- (setq initial (or org-capture-initial
- (and (org-region-active-p)
- (buffer-substring (point) (mark)))))
- (when (stringp initial)
- (remove-text-properties 0 (length initial) '(read-only t) initial))
- (when (stringp annotation)
- (remove-text-properties 0 (length annotation)
- '(read-only t) annotation))
- (cond
- ((equal entry "C")
- (customize-variable 'org-capture-templates))
- ((equal entry "q")
- (user-error "Abort"))
- (t
- (org-capture-set-plist entry)
- (org-capture-get-template)
- (org-capture-put :original-buffer orig-buf
- :original-file (or (buffer-file-name orig-buf)
- (and (featurep 'dired)
- (car (rassq orig-buf
- dired-buffers))))
- :original-file-nondirectory
- (and (buffer-file-name orig-buf)
- (file-name-nondirectory
- (buffer-file-name orig-buf)))
- :annotation annotation
- :initial initial
- :return-to-wconf (current-window-configuration)
- :default-time
- (or org-overriding-default-time
- (org-current-time)))
- (org-capture-set-target-location)
- (condition-case error
- (org-capture-put :template (org-capture-fill-template))
- ((error quit)
- (if (get-buffer "*Capture*") (kill-buffer "*Capture*"))
- (error "Capture abort: %s" error)))
-
- (setq org-capture-clock-keep (org-capture-get :clock-keep))
- (if (equal goto 0)
- ;;insert at point
- (org-capture-insert-template-here)
- (condition-case error
- (org-capture-place-template
- (eq (car (org-capture-get :target)) 'function))
- ((error quit)
- (if (and (buffer-base-buffer (current-buffer))
- (string-prefix-p "CAPTURE-" (buffer-name)))
- (kill-buffer (current-buffer)))
- (set-window-configuration (org-capture-get :return-to-wconf))
- (error "Capture template `%s': %s"
- (org-capture-get :key)
- (nth 1 error))))
- (if (and (derived-mode-p 'org-mode)
- (org-capture-get :clock-in))
- (condition-case nil
- (progn
- (if (org-clock-is-active)
- (org-capture-put :interrupted-clock
- (copy-marker org-clock-marker)))
- (org-clock-in)
- (setq-local org-capture-clock-was-started t))
- (error
- "Could not start the clock in this capture buffer")))
- (if (org-capture-get :immediate-finish)
- (org-capture-finalize)))))))))
-
-(defun org-capture-get-template ()
- "Get the template from a file or a function if necessary."
- (let ((txt (org-capture-get :template)) file)
- (cond
- ((and (listp txt) (eq (car txt) 'file))
- (if (file-exists-p
- (setq file (expand-file-name (nth 1 txt) org-directory)))
- (setq txt (org-file-contents file))
- (setq txt (format "* Template file %s not found" (nth 1 txt)))))
- ((and (listp txt) (eq (car txt) 'function))
- (if (fboundp (nth 1 txt))
- (setq txt (funcall (nth 1 txt)))
- (setq txt (format "* Template function %s not found" (nth 1 txt)))))
- ((not txt) (setq txt ""))
- ((stringp txt))
- (t (setq txt "* Invalid capture template")))
- (org-capture-put :template txt)))
-
-(defun org-capture-finalize (&optional stay-with-capture)
- "Finalize the capture process.
-With prefix argument STAY-WITH-CAPTURE, jump to the location of the
-captured item after finalizing."
- (interactive "P")
- (when (org-capture-get :jump-to-captured)
- (setq stay-with-capture t))
- (unless (and org-capture-mode
- (buffer-base-buffer (current-buffer)))
- (error "This does not seem to be a capture buffer for Org mode"))
-
- (run-hooks 'org-capture-prepare-finalize-hook)
-
- ;; Did we start the clock in this capture buffer?
- (when (and org-capture-clock-was-started
- org-clock-marker
- (eq (marker-buffer org-clock-marker) (buffer-base-buffer))
- (>= org-clock-marker (point-min))
- (< org-clock-marker (point-max)))
- ;; Looks like the clock we started is still running.
- (if org-capture-clock-keep
- ;; User may have completed clocked heading from the template.
- ;; Refresh clock mode line.
- (org-clock-update-mode-line t)
- ;; Clock out. Possibly resume interrupted clock.
- (let (org-log-note-clock-out) (org-clock-out))
- (when (and (org-capture-get :clock-resume 'local)
- (markerp (org-capture-get :interrupted-clock 'local))
- (buffer-live-p (marker-buffer
- (org-capture-get :interrupted-clock 'local))))
- (let ((clock-in-task (org-capture-get :interrupted-clock 'local)))
- (org-with-point-at clock-in-task (org-clock-in)))
- (message "Interrupted clock has been resumed"))))
-
- (let ((abort-note nil))
- ;; Store the size of the capture buffer
- (org-capture-put :captured-entry-size (- (point-max) (point-min)))
- (widen)
- ;; Store the insertion point in the target buffer
- (org-capture-put :insertion-point (point))
-
- (if org-note-abort
- (let ((beg (org-capture-get :begin-marker 'local))
- (end (org-capture-get :end-marker 'local)))
- (if (not (and beg end)) (setq abort-note 'dirty)
- (setq abort-note t)
- (org-with-wide-buffer (kill-region beg end))))
-
- ;; Postprocessing: Update Statistics cookies, do the sorting
- (when (derived-mode-p 'org-mode)
- (save-excursion
- (when (ignore-errors (org-back-to-heading))
- (org-update-parent-todo-statistics)
- (org-update-checkbox-count)))
- ;; FIXME Here we should do the sorting
- ;; If we have added a table line, maybe recompute?
- (when (and (eq (org-capture-get :type 'local) 'table-line)
- (org-at-table-p))
- (if (org-table-get-stored-formulas)
- (org-table-recalculate 'all) ;; FIXME: Should we iterate???
- (org-table-align))))
- ;; Store this place as the last one where we stored something
- ;; Do the marking in the base buffer, so that it makes sense after
- ;; the indirect buffer has been killed.
- (org-capture-store-last-position)
-
- ;; Run the hook
- (run-hooks 'org-capture-before-finalize-hook))
-
- (when (org-capture-get :decrypted)
- (save-excursion
- (goto-char (org-capture-get :decrypted))
- (org-encrypt-entry)))
-
- ;; Kill the indirect buffer
- (save-buffer)
- (let ((return-wconf (org-capture-get :return-to-wconf 'local))
- (new-buffer (org-capture-get :new-buffer 'local))
- (kill-buffer (org-capture-get :kill-buffer 'local))
- (base-buffer (buffer-base-buffer (current-buffer))))
-
- ;; Kill the indirect buffer
- (kill-buffer (current-buffer))
-
- ;; Narrow back the target buffer to its previous state
- (with-current-buffer (org-capture-get :buffer)
- (let ((reg (org-capture-get :initial-target-region))
- (pos (org-capture-get :initial-target-position))
- (ipt (org-capture-get :insertion-point))
- (size (org-capture-get :captured-entry-size)))
- (if (not reg)
- (widen)
- (cond ((< ipt (car reg))
- ;; insertion point is before the narrowed region
- (narrow-to-region (+ size (car reg)) (+ size (cdr reg))))
- ((> ipt (cdr reg))
- ;; insertion point is after the narrowed region
- (narrow-to-region (car reg) (cdr reg)))
- (t
- ;; insertion point is within the narrowed region
- (narrow-to-region (car reg) (+ size (cdr reg)))))
- ;; now place back the point at its original position
- (if (< ipt (car reg))
- (goto-char (+ size pos))
- (goto-char (if (< ipt pos) (+ size pos) pos))))))
-
- ;; Kill the target buffer if that is desired
- (when (and base-buffer new-buffer kill-buffer)
- (with-current-buffer base-buffer (save-buffer))
- (kill-buffer base-buffer))
-
- ;; Restore the window configuration before capture
- (set-window-configuration return-wconf))
-
- (run-hooks 'org-capture-after-finalize-hook)
- ;; Special cases
- (cond
- (abort-note
- (cl-case abort-note
- (clean
- (message "Capture process aborted and target buffer cleaned up"))
- (dirty
- (error "Capture process aborted, but target buffer could not be \
-cleaned up correctly"))))
- (stay-with-capture
- (org-capture-goto-last-stored)))
- ;; Return if we did store something
- (not abort-note)))
-
-(defun org-capture-refile ()
- "Finalize the current capture and then refile the entry.
-Refiling is done from the base buffer, because the indirect buffer is then
-already gone. Any prefix argument will be passed to the refile command."
- (interactive)
- (unless (eq (org-capture-get :type 'local) 'entry)
- (user-error "Refiling from a capture buffer makes only sense \
-for `entry'-type templates"))
- (let* ((base (or (buffer-base-buffer) (current-buffer)))
- (pos (make-marker))
- (org-capture-is-refiling t)
- (kill-buffer (org-capture-get :kill-buffer 'local))
- (jump-to-captured (org-capture-get :jump-to-captured 'local)))
- ;; Since `org-capture-finalize' may alter buffer contents (e.g.,
- ;; empty lines) around entry, use a marker to refer to the
- ;; headline to be refiled. Place the marker in the base buffer,
- ;; as the current indirect one is going to be killed.
- (set-marker pos (save-excursion (org-back-to-heading t) (point)) base)
- ;; `org-capture-finalize' calls `org-capture-goto-last-stored' too
- ;; early. We want to wait for the refiling to be over, so we
- ;; control when the latter function is called.
- (org-capture-put :kill-buffer nil :jump-to-captured nil)
- (unwind-protect
- (progn
- (org-capture-finalize)
- (save-window-excursion
- (with-current-buffer base
- (org-with-wide-buffer
- (goto-char pos)
- (call-interactively 'org-refile))))
- (when kill-buffer (kill-buffer base))
- (when jump-to-captured (org-capture-goto-last-stored)))
- (set-marker pos nil))))
-
-(defun org-capture-kill ()
- "Abort the current capture process."
- (interactive)
- ;; FIXME: This does not do the right thing, we need to remove the
- ;; new stuff by hand it is easy: undo, then kill the buffer
- (let ((org-note-abort t)
- (org-capture-before-finalize-hook nil))
- (org-capture-finalize)))
-
-(defun org-capture-goto-last-stored ()
- "Go to the location where the last capture note was stored."
- (interactive)
- (org-goto-marker-or-bmk org-capture-last-stored-marker
- (plist-get org-bookmark-names-plist
- :last-capture))
- (message "This is the last note stored by a capture process"))
-
-;;; Supporting functions for handling the process
-
-(defun org-capture-put-target-region-and-position ()
- "Store the initial region with `org-capture-put'."
- (org-capture-put
- :initial-target-region
- ;; Check if the buffer is currently narrowed
- (when (org-buffer-narrowed-p)
- (cons (point-min) (point-max))))
- ;; store the current point
- (org-capture-put :initial-target-position (point)))
-
-(defvar org-time-was-given) ; dynamically scoped parameter
-(defun org-capture-set-target-location (&optional target)
- "Find TARGET buffer and position.
-Store them in the capture property list."
- (let ((target-entry-p t))
- (save-excursion
- (pcase (or target (org-capture-get :target))
- (`(file ,path)
- (set-buffer (org-capture-target-buffer path))
- (org-capture-put-target-region-and-position)
- (widen)
- (setq target-entry-p nil))
- (`(id ,id)
- (pcase (org-id-find id)
- (`(,path . ,position)
- (set-buffer (org-capture-target-buffer path))
- (widen)
- (org-capture-put-target-region-and-position)
- (goto-char position))
- (_ (error "Cannot find target ID \"%s\"" id))))
- (`(file+headline ,path ,headline)
- (set-buffer (org-capture-target-buffer path))
- ;; Org expects the target file to be in Org mode, otherwise
- ;; it throws an error. However, the default notes files
- ;; should work out of the box. In this case, we switch it to
- ;; Org mode.
- (unless (derived-mode-p 'org-mode)
- (org-display-warning
- (format "Capture requirement: switching buffer %S to Org mode"
- (current-buffer)))
- (org-mode))
- (org-capture-put-target-region-and-position)
- (widen)
- (goto-char (point-min))
- (if (re-search-forward (format org-complex-heading-regexp-format
- (regexp-quote headline))
- nil t)
- (beginning-of-line)
- (goto-char (point-max))
- (unless (bolp) (insert "\n"))
- (insert "* " headline "\n")
- (beginning-of-line 0)))
- (`(file+olp ,path . ,outline-path)
- (let ((m (org-find-olp (cons (org-capture-expand-file path)
- outline-path))))
- (set-buffer (marker-buffer m))
- (org-capture-put-target-region-and-position)
- (widen)
- (goto-char m)
- (set-marker m nil)))
- (`(file+regexp ,path ,regexp)
- (set-buffer (org-capture-target-buffer path))
- (org-capture-put-target-region-and-position)
- (widen)
- (goto-char (point-min))
- (if (not (re-search-forward regexp nil t))
- (error "No match for target regexp in file %s" path)
- (goto-char (if (org-capture-get :prepend)
- (match-beginning 0)
- (match-end 0)))
- (org-capture-put :exact-position (point))
- (setq target-entry-p
- (and (derived-mode-p 'org-mode) (org-at-heading-p)))))
- (`(file+olp+datetree ,path . ,outline-path)
- (let ((m (if outline-path
- (org-find-olp (cons (org-capture-expand-file path)
- outline-path))
- (set-buffer (org-capture-target-buffer path))
- (point-marker))))
- (set-buffer (marker-buffer m))
- (org-capture-put-target-region-and-position)
- (widen)
- (goto-char m)
- (set-marker m nil)
- (require 'org-datetree)
- (org-capture-put-target-region-and-position)
- (widen)
- ;; Make a date/week tree entry, with the current date (or
- ;; yesterday, if we are extending dates for a couple of hours)
- (funcall
- (if (eq (org-capture-get :tree-type) 'week)
- #'org-datetree-find-iso-week-create
- #'org-datetree-find-date-create)
- (calendar-gregorian-from-absolute
- (cond
- (org-overriding-default-time
- ;; Use the overriding default time.
- (time-to-days org-overriding-default-time))
- ((or (org-capture-get :time-prompt)
- (equal current-prefix-arg 1))
- ;; Prompt for date.
- (let ((prompt-time (org-read-date
- nil t nil "Date for tree entry:"
- (current-time))))
- (org-capture-put
- :default-time
- (cond ((and (or (not (boundp 'org-time-was-given))
- (not org-time-was-given))
- (not (= (time-to-days prompt-time) (org-today))))
- ;; Use 00:00 when no time is given for another
- ;; date than today?
- (apply #'encode-time
- (append `(0 0 ,org-extend-today-until)
- (cl-cdddr (decode-time prompt-time)))))
- ((string-match "\\([^ ]+\\)--?[^ ]+[ ]+\\(.*\\)"
- org-read-date-final-answer)
- ;; Replace any time range by its start.
- (apply #'encode-time
- (org-read-date-analyze
- (replace-match "\\1 \\2" nil nil
- org-read-date-final-answer)
- prompt-time (decode-time prompt-time))))
- (t prompt-time)))
- (time-to-days prompt-time)))
- (t
- ;; Current date, possibly corrected for late night
- ;; workers.
- (org-today))))
- ;; the following is the keep-restriction argument for
- ;; org-datetree-find-date-create
- (if outline-path 'subtree-at-point))))
- (`(file+function ,path ,function)
- (set-buffer (org-capture-target-buffer path))
- (org-capture-put-target-region-and-position)
- (widen)
- (funcall function)
- (org-capture-put :exact-position (point))
- (setq target-entry-p
- (and (derived-mode-p 'org-mode) (org-at-heading-p))))
- (`(function ,fun)
- (funcall fun)
- (org-capture-put :exact-position (point))
- (setq target-entry-p
- (and (derived-mode-p 'org-mode) (org-at-heading-p))))
- (`(clock)
- (if (and (markerp org-clock-hd-marker)
- (marker-buffer org-clock-hd-marker))
- (progn (set-buffer (marker-buffer org-clock-hd-marker))
- (org-capture-put-target-region-and-position)
- (widen)
- (goto-char org-clock-hd-marker))
- (error "No running clock that could be used as capture target")))
- (target (error "Invalid capture target specification: %S" target)))
-
- (org-capture-put :buffer (current-buffer)
- :pos (point)
- :target-entry-p target-entry-p
- :decrypted
- (and (featurep 'org-crypt)
- (org-at-encrypted-entry-p)
- (save-excursion
- (org-decrypt-entry)
- (and (org-back-to-heading t) (point))))))))
-
-(defun org-capture-expand-file (file)
- "Expand functions, symbols and file names for FILE.
-When FILE is a function, call it. When it is a form, evaluate
-it. When it is a variable, return its value. When it is
-a string, treat it as a file name, possibly expanding it
-according to `org-directory', and return it. If it is the empty
-string, however, return `org-default-notes-file'. In any other
-case, raise an error."
- (let ((location (cond ((equal file "") org-default-notes-file)
- ((stringp file) (expand-file-name file org-directory))
- ((functionp file) (funcall file))
- ((and (symbolp file) (boundp file)) (symbol-value file))
- (t nil))))
- (or (org-string-nw-p location)
- (error "Invalid file location: %S" location))))
-
-(defun org-capture-target-buffer (file)
- "Get a buffer for FILE.
-FILE is a generalized file location, as handled by
-`org-capture-expand-file'."
- (let ((file (org-capture-expand-file file)))
- (or (org-find-base-buffer-visiting file)
- (progn (org-capture-put :new-buffer t)
- (find-file-noselect file)))))
-
-(defun org-capture-place-template (&optional inhibit-wconf-store)
- "Insert the template at the target location, and display the buffer.
-When `inhibit-wconf-store', don't store the window configuration, as it
-may have been stored before."
- (unless inhibit-wconf-store
- (org-capture-put :return-to-wconf (current-window-configuration)))
- (delete-other-windows)
- (org-switch-to-buffer-other-window
- (org-capture-get-indirect-buffer (org-capture-get :buffer) "CAPTURE"))
- (widen)
- (outline-show-all)
- (goto-char (org-capture-get :pos))
- (setq-local outline-level 'org-outline-level)
- (pcase (org-capture-get :type)
- ((or `nil `entry) (org-capture-place-entry))
- (`table-line (org-capture-place-table-line))
- (`plain (org-capture-place-plain-text))
- (`item (org-capture-place-item))
- (`checkitem (org-capture-place-item)))
- (org-capture-mode 1)
- (setq-local org-capture-current-plist org-capture-plist))
-
-(defun org-capture-place-entry ()
- "Place the template as a new Org entry."
- (let ((reversed? (org-capture-get :prepend))
- (level 1))
- (when (org-capture-get :exact-position)
- (goto-char (org-capture-get :exact-position)))
- (cond
- ;; Insert as a child of the current entry.
- ((org-capture-get :target-entry-p)
- (setq level (org-get-valid-level
- (if (org-at-heading-p) (org-outline-level) 1)
- 1))
- (if reversed? (outline-next-heading) (org-end-of-subtree t t)))
- ;; Insert as a top-level entry at the beginning of the file.
- (reversed?
- (goto-char (point-min))
- (unless (org-at-heading-p) (outline-next-heading)))
- ;; Otherwise, insert as a top-level entry at the end of the file.
- (t (goto-char (point-max))))
- (unless (bolp) (insert "\n"))
- (org-capture-empty-lines-before)
- (let ((beg (point))
- (template (org-capture-get :template)))
- (org-capture-verify-tree template)
- (org-paste-subtree level template 'for-yank)
- (org-capture-empty-lines-after)
- (org-capture-position-for-last-stored beg)
- (unless (org-at-heading-p) (outline-next-heading))
- (let ((end (point)))
- (org-capture-mark-kill-region beg end)
- (org-capture-narrow beg end)
- (when (or (re-search-backward "%\\?" beg t)
- (re-search-forward "%\\?" end t))
- (replace-match ""))))))
-
-(defun org-capture-place-item ()
- "Place the template as a new plain list item."
- (let* ((txt (org-capture-get :template))
- (target-entry-p (org-capture-get :target-entry-p))
- (ind 0)
- beg end)
- (if (org-capture-get :exact-position)
- (goto-char (org-capture-get :exact-position))
- (cond
- ((not target-entry-p)
- ;; Insert as top-level entry, either at beginning or at end of file
- (setq beg (point-min) end (point-max)))
- (t
- (setq beg (1+ (point-at-eol))
- end (save-excursion (outline-next-heading) (point)))))
- (setq ind nil)
- (if (org-capture-get :prepend)
- (progn
- (goto-char beg)
- (when (org-list-search-forward (org-item-beginning-re) end t)
- (goto-char (match-beginning 0))
- (setq ind (org-get-indentation))))
- (goto-char end)
- (when (org-list-search-backward (org-item-beginning-re) beg t)
- (setq ind (org-get-indentation))
- (org-end-of-item)))
- (unless ind (goto-char end)))
- ;; Remove common indentation
- (setq txt (org-remove-indentation txt))
- ;; Make sure this is indeed an item
- (unless (string-match (concat "\\`" (org-item-re)) txt)
- (setq txt (concat "- "
- (mapconcat 'identity (split-string txt "\n")
- "\n "))))
- ;; Prepare surrounding empty lines.
- (unless (bolp) (insert "\n"))
- (org-capture-empty-lines-before)
- (setq beg (point))
- (unless (eolp) (save-excursion (insert "\n")))
- (unless ind
- (org-indent-line)
- (setq ind (org-get-indentation))
- (delete-region beg (point)))
- ;; Set the correct indentation, depending on context
- (setq ind (make-string ind ?\ ))
- (setq txt (concat ind
- (mapconcat 'identity (split-string txt "\n")
- (concat "\n" ind))
- "\n"))
- ;; Insert item.
- (insert txt)
- (org-capture-empty-lines-after)
- (org-capture-position-for-last-stored beg)
- (setq end (point))
- (org-capture-mark-kill-region beg end)
- (org-capture-narrow beg end)
- (if (or (re-search-backward "%\\?" beg t)
- (re-search-forward "%\\?" end t))
- (replace-match ""))))
-
-(defun org-capture-place-table-line ()
- "Place the template as a table line."
- (require 'org-table)
- (let* ((txt (org-capture-get :template))
- (target-entry-p (org-capture-get :target-entry-p))
- (table-line-pos (org-capture-get :table-line-pos))
- beg end)
- (cond
- ((org-capture-get :exact-position)
- (goto-char (org-capture-get :exact-position)))
- ((not target-entry-p)
- ;; Table is not necessarily under a heading
- (setq beg (point-min) end (point-max)))
- (t
- ;; WE are at a heading, limit search to the body
- (setq beg (1+ (point-at-eol))
- end (save-excursion (outline-next-heading) (point)))))
- (if (re-search-forward org-table-dataline-regexp end t)
- (let ((b (org-table-begin)) (e (org-table-end)) (case-fold-search t))
- (goto-char e)
- (if (looking-at "[ \t]*#\\+tblfm:")
- (forward-line 1))
- (narrow-to-region b (point)))
- (goto-char end)
- (insert "\n| |\n|----|\n| |\n")
- (narrow-to-region (1+ end) (point)))
- ;; We are narrowed to the table, or to an empty line if there was no table
-
- ;; Check if the template is good
- (if (not (string-match org-table-dataline-regexp txt))
- (setq txt "| %?Bad template |\n"))
- (if (functionp table-line-pos)
- (setq table-line-pos (funcall table-line-pos))
- (setq table-line-pos (eval table-line-pos)))
- (cond
- ((and table-line-pos
- (string-match "\\(I+\\)\\([-+][0-9]\\)" table-line-pos))
- (goto-char (point-min))
- ;; we have a complex line specification
- (let ((ll (ignore-errors
- (save-match-data (org-table-analyze))
- (aref org-table-hlines
- (- (match-end 1) (match-beginning 1)))))
- (delta (string-to-number (match-string 2 table-line-pos))))
- ;; The user wants a special position in the table
- (unless ll
- (error "Invalid table line specification \"%s\"" table-line-pos))
- (goto-char org-table-current-begin-pos)
- (forward-line (+ ll delta (if (< delta 0) 0 -1)))
- (org-table-insert-row 'below)
- (beginning-of-line 1)
- (delete-region (point) (1+ (point-at-eol)))
- (setq beg (point))
- (insert txt)
- (setq end (point))))
- ((org-capture-get :prepend)
- (goto-char (point-min))
- (re-search-forward org-table-hline-regexp nil t)
- (beginning-of-line 1)
- (re-search-forward org-table-dataline-regexp nil t)
- (beginning-of-line 1)
- (setq beg (point))
- (org-table-insert-row)
- (beginning-of-line 1)
- (delete-region (point) (1+ (point-at-eol)))
- (insert txt)
- (setq end (point)))
- (t
- (goto-char (point-max))
- (re-search-backward org-table-dataline-regexp nil t)
- (beginning-of-line 1)
- (org-table-insert-row 'below)
- (beginning-of-line 1)
- (delete-region (point) (1+ (point-at-eol)))
- (setq beg (point))
- (insert txt)
- (setq end (point))))
- (goto-char beg)
- (org-capture-position-for-last-stored 'table-line)
- (if (or (re-search-backward "%\\?" beg t)
- (re-search-forward "%\\?" end t))
- (replace-match ""))
- (org-table-align)))
-
-(defun org-capture-place-plain-text ()
- "Place the template plainly.
-If the target locator points at an Org node, place the template into
-the text of the entry, before the first child. If not, place the
-template at the beginning or end of the file.
-Of course, if exact position has been required, just put it there."
- (let* ((txt (org-capture-get :template))
- beg end)
- (cond
- ((org-capture-get :exact-position)
- (goto-char (org-capture-get :exact-position)))
- ((and (org-capture-get :target-entry-p)
- (bolp)
- (looking-at org-outline-regexp))
- ;; we should place the text into this entry
- (if (org-capture-get :prepend)
- ;; Skip meta data and drawers
- (org-end-of-meta-data t)
- ;; go to ent of the entry text, before the next headline
- (outline-next-heading)))
- (t
- ;; beginning or end of file
- (goto-char (if (org-capture-get :prepend) (point-min) (point-max)))))
- (or (bolp) (newline))
- (org-capture-empty-lines-before)
- (setq beg (point))
- (insert txt)
- (org-capture-empty-lines-after)
- (org-capture-position-for-last-stored beg)
- (setq end (point))
- (org-capture-mark-kill-region beg (1- end))
- (org-capture-narrow beg (1- end))
- (if (or (re-search-backward "%\\?" beg t)
- (re-search-forward "%\\?" end t))
- (replace-match ""))))
-
-(defun org-capture-mark-kill-region (beg end)
- "Mark the region that will have to be killed when aborting capture."
- (let ((m1 (copy-marker beg))
- (m2 (copy-marker end t)))
- (org-capture-put :begin-marker m1)
- (org-capture-put :end-marker m2)))
-
-(defun org-capture-position-for-last-stored (where)
- "Memorize the position that should later become the position of last capture."
- (cond
- ((integerp where)
- (org-capture-put :position-for-last-stored
- (move-marker (make-marker) where
- (or (buffer-base-buffer (current-buffer))
- (current-buffer)))))
- ((eq where 'table-line)
- (org-capture-put :position-for-last-stored
- (list 'table-line
- (org-table-current-dline))))
- (t (error "This should not happen"))))
-
-(defun org-capture-store-last-position ()
- "Store the last-captured position."
- (let* ((where (org-capture-get :position-for-last-stored 'local))
- (pos (cond
- ((markerp where)
- (prog1 (marker-position where)
- (move-marker where nil)))
- ((and (listp where) (eq (car where) 'table-line))
- (if (org-at-table-p)
- (save-excursion
- (org-table-goto-line (nth 1 where))
- (point-at-bol))
- (point))))))
- (with-current-buffer (buffer-base-buffer (current-buffer))
- (org-with-point-at pos
- (when org-capture-bookmark
- (let ((bookmark (plist-get org-bookmark-names-plist :last-capture)))
- (when bookmark (with-demoted-errors (bookmark-set bookmark)))))
- (move-marker org-capture-last-stored-marker (point))))))
-
-(defun org-capture-narrow (beg end)
- "Narrow, unless configuration says not to narrow."
- (unless (org-capture-get :unnarrowed)
- (narrow-to-region beg end)
- (goto-char beg)))
-
-(defun org-capture-empty-lines-before (&optional n)
- "Set the correct number of empty lines before the insertion point.
-Point will be after the empty lines, so insertion can directly be done."
- (setq n (or n (org-capture-get :empty-lines-before)
- (org-capture-get :empty-lines) 0))
- (let ((pos (point)))
- (org-back-over-empty-lines)
- (delete-region (point) pos)
- (if (> n 0) (newline n))))
-
-(defun org-capture-empty-lines-after (&optional n)
- "Set the correct number of empty lines after the inserted string.
-Point will remain at the first line after the inserted text."
- (setq n (or n (org-capture-get :empty-lines-after)
- (org-capture-get :empty-lines) 0))
- (org-back-over-empty-lines)
- (while (looking-at "[ \t]*\n") (replace-match ""))
- (let ((pos (point)))
- (if (> n 0) (newline n))
- (goto-char pos)))
-
-(defvar org-clock-marker) ; Defined in org.el
-
-(defun org-capture-insert-template-here ()
- "Insert the capture template at point."
- (let* ((template (org-capture-get :template))
- (type (org-capture-get :type))
- beg end pp)
- (unless (bolp) (insert "\n"))
- (setq beg (point))
- (cond
- ((and (eq type 'entry) (derived-mode-p 'org-mode))
- (org-capture-verify-tree (org-capture-get :template))
- (org-paste-subtree nil template t))
- ((and (memq type '(item checkitem))
- (derived-mode-p 'org-mode)
- (save-excursion (skip-chars-backward " \t\n")
- (setq pp (point))
- (org-in-item-p)))
- (goto-char pp)
- (org-insert-item)
- (skip-chars-backward " ")
- (skip-chars-backward "-+*0123456789).")
- (delete-region (point) (point-at-eol))
- (setq beg (point))
- (org-remove-indentation template)
- (insert template)
- (org-capture-empty-lines-after)
- (goto-char beg)
- (org-list-repair)
- (org-end-of-item))
- (t
- (insert template)
- (org-capture-empty-lines-after)
- (skip-chars-forward " \t\n")
- (unless (eobp) (beginning-of-line))))
- (setq end (point))
- (goto-char beg)
- (when (re-search-forward "%\\?" end t)
- (replace-match ""))))
-
-(defun org-capture-set-plist (entry)
- "Initialize the property list from the template definition."
- (setq org-capture-plist (copy-sequence (nthcdr 5 entry)))
- (org-capture-put :key (car entry) :description (nth 1 entry)
- :target (nth 3 entry))
- (let ((txt (nth 4 entry)) (type (or (nth 2 entry) 'entry)))
- (when (or (not txt) (and (stringp txt) (not (string-match "\\S-" txt))))
- ;; The template may be empty or omitted for special types.
- ;; Here we insert the default templates for such cases.
- (cond
- ((eq type 'item) (setq txt "- %?"))
- ((eq type 'checkitem) (setq txt "- [ ] %?"))
- ((eq type 'table-line) (setq txt "| %? |"))
- ((member type '(nil entry)) (setq txt "* %?\n %a"))))
- (org-capture-put :template txt :type type)))
-
-(defun org-capture-goto-target (&optional template-key)
- "Go to the target location of a capture template.
-The user is queried for the template."
- (interactive)
- (let ((entry (org-capture-select-template template-key)))
- (unless entry (error "No capture template selected"))
- (org-capture-set-plist entry)
- (org-capture-set-target-location)
- (pop-to-buffer-same-window (org-capture-get :buffer))
- (goto-char (org-capture-get :pos))))
-
-(defun org-capture-get-indirect-buffer (&optional buffer prefix)
- "Make an indirect buffer for a capture process.
-Use PREFIX as a prefix for the name of the indirect buffer."
- (setq buffer (or buffer (current-buffer)))
- (let ((n 1) (base (buffer-name buffer)) bname)
- (setq bname (concat prefix "-" base))
- (while (buffer-live-p (get-buffer bname))
- (setq bname (concat prefix "-" (number-to-string (cl-incf n)) "-" base)))
- (condition-case nil
- (make-indirect-buffer buffer bname 'clone)
- (error
- (let ((buf (make-indirect-buffer buffer bname)))
- (with-current-buffer buf (org-mode))
- buf)))))
-
-(defun org-capture-verify-tree (tree)
- "Throw error if TREE is not a valid tree."
- (unless (org-kill-is-subtree-p tree)
- (error "Template is not a valid Org entry or tree")))
-
-(defun org-mks (table title &optional prompt specials)
- "Select a member of an alist with multiple keys.
-
-TABLE is the alist which should contain entries where the car is a string.
-There should be two types of entries.
-
-1. prefix descriptions like (\"a\" \"Description\")
- This indicates that `a' is a prefix key for multi-letter selection, and
- that there are entries following with keys like \"ab\", \"ax\"...
-
-2. Select-able members must have more than two elements, with the first
- being the string of keys that lead to selecting it, and the second a
- short description string of the item.
-
-The command will then make a temporary buffer listing all entries
-that can be selected with a single key, and all the single key
-prefixes. When you press the key for a single-letter entry, it is selected.
-When you press a prefix key, the commands (and maybe further prefixes)
-under this key will be shown and offered for selection.
-
-TITLE will be placed over the selection in the temporary buffer,
-PROMPT will be used when prompting for a key. SPECIAL is an
-alist with (\"key\" \"description\") entries. When one of these
-is selected, only the bare key is returned."
- (save-window-excursion
- (let ((inhibit-quit t)
- (buffer (org-switch-to-buffer-other-window "*Org Select*"))
- (prompt (or prompt "Select: "))
- current)
- (unwind-protect
- (catch 'exit
- (while t
- (erase-buffer)
- (insert title "\n\n")
- (let ((des-keys nil)
- (allowed-keys '("\C-g"))
- (cursor-type nil))
- ;; Populate allowed keys and descriptions keys
- ;; available with CURRENT selector.
- (let ((re (format "\\`%s\\(.\\)\\'"
- (if current (regexp-quote current) "")))
- (prefix (if current (concat current " ") "")))
- (dolist (entry table)
- (pcase entry
- ;; Description.
- (`(,(and key (pred (string-match re))) ,desc)
- (let ((k (match-string 1 key)))
- (push k des-keys)
- (push k allowed-keys)
- (insert prefix "[" k "]" "..." " " desc "..." "\n")))
- ;; Usable entry.
- (`(,(and key (pred (string-match re))) ,desc . ,_)
- (let ((k (match-string 1 key)))
- (insert prefix "[" k "]" " " desc "\n")
- (push k allowed-keys)))
- (_ nil))))
- ;; Insert special entries, if any.
- (when specials
- (insert "----------------------------------------------------\
----------------------------\n")
- (pcase-dolist (`(,key ,description) specials)
- (insert (format "[%s] %s\n" key description))
- (push key allowed-keys)))
- ;; Display UI and let user select an entry or
- ;; a sub-level prefix.
- (goto-char (point-min))
- (unless (pos-visible-in-window-p (point-max))
- (org-fit-window-to-buffer))
- (message prompt)
- (let ((pressed (char-to-string (read-char-exclusive))))
- (while (not (member pressed allowed-keys))
- (message "Invalid key `%s'" pressed) (sit-for 1)
- (message prompt)
- (setq pressed (char-to-string (read-char-exclusive))))
- (setq current (concat current pressed))
- (cond
- ((equal pressed "\C-g") (user-error "Abort"))
- ;; Selection is a prefix: open a new menu.
- ((member pressed des-keys))
- ;; Selection matches an association: return it.
- ((let ((entry (assoc current table)))
- (and entry (throw 'exit entry))))
- ;; Selection matches a special entry: return the
- ;; selection prefix.
- ((assoc current specials) (throw 'exit current))
- (t (error "No entry available")))))))
- (when buffer (kill-buffer buffer))))))
-
-;;; The template code
-(defun org-capture-select-template (&optional keys)
- "Select a capture template.
-Lisp programs can force the template by setting KEYS to a string."
- (let ((org-capture-templates
- (or (org-contextualize-keys
- (org-capture-upgrade-templates org-capture-templates)
- org-capture-templates-contexts)
- '(("t" "Task" entry (file+headline "" "Tasks")
- "* TODO %?\n %u\n %a")))))
- (if keys
- (or (assoc keys org-capture-templates)
- (error "No capture template referred to by \"%s\" keys" keys))
- (org-mks org-capture-templates
- "Select a capture template\n========================="
- "Template key: "
- '(("C" "Customize org-capture-templates")
- ("q" "Abort"))))))
-
-(defvar org-capture--clipboards nil
- "List various clipboards values.")
-
-(defun org-capture-fill-template (&optional template initial annotation)
- "Fill a template and return the filled template as a string.
-The template may still contain \"%?\" for cursor positioning."
- (let* ((template (or template (org-capture-get :template)))
- (buffer (org-capture-get :buffer))
- (file (buffer-file-name (or (buffer-base-buffer buffer) buffer)))
- (time (let* ((c (or (org-capture-get :default-time) (current-time)))
- (d (decode-time c)))
- (if (< (nth 2 d) org-extend-today-until)
- (encode-time 0 59 23 (1- (nth 3 d)) (nth 4 d) (nth 5 d))
- c)))
- (v-t (format-time-string (org-time-stamp-format nil) time))
- (v-T (format-time-string (org-time-stamp-format t) time))
- (v-u (format-time-string (org-time-stamp-format nil t) time))
- (v-U (format-time-string (org-time-stamp-format t t) time))
- (v-c (and kill-ring (current-kill 0)))
- (v-x (or (org-get-x-clipboard 'PRIMARY)
- (org-get-x-clipboard 'CLIPBOARD)
- (org-get-x-clipboard 'SECONDARY)
- "")) ;ensure it is a string
- ;; `initial' and `annotation' might have been passed. But if
- ;; the property list has them, we prefer those values.
- (v-i (or (plist-get org-store-link-plist :initial)
- (and (stringp initial) (org-no-properties initial))
- (org-capture-get :initial)
- ""))
- (v-a
- (let ((a (or (plist-get org-store-link-plist :annotation)
- annotation
- (org-capture-get :annotation)
- "")))
- ;; Is the link empty? Then we do not want it...
- (if (equal a "[[]]") "" a)))
- (l-re "\\[\\[\\(.*?\\)\\]\\(\\[.*?\\]\\)?\\]")
- (v-A (if (and v-a (string-match l-re v-a))
- (replace-match "[[\\1][%^{Link description}]]" nil nil v-a)
- v-a))
- (v-l (if (and v-a (string-match l-re v-a))
- (replace-match "\\1" nil nil v-a)
- v-a))
- (v-n user-full-name)
- (v-k (if (marker-buffer org-clock-marker)
- (org-no-properties org-clock-heading)
- ""))
- (v-K (if (marker-buffer org-clock-marker)
- (org-make-link-string
- (format "%s::*%s"
- (buffer-file-name (marker-buffer org-clock-marker))
- v-k)
- v-k)
- ""))
- (v-f (or (org-capture-get :original-file-nondirectory) ""))
- (v-F (or (org-capture-get :original-file) ""))
- (org-capture--clipboards
- (delq nil
- (list v-i
- (org-get-x-clipboard 'PRIMARY)
- (org-get-x-clipboard 'CLIPBOARD)
- (org-get-x-clipboard 'SECONDARY)
- v-c))))
-
- (setq org-store-link-plist (plist-put org-store-link-plist :annotation v-a))
- (setq org-store-link-plist (plist-put org-store-link-plist :initial v-i))
-
- (unless template
- (setq template "")
- (message "no template") (ding)
- (sit-for 1))
- (save-window-excursion
- (org-switch-to-buffer-other-window (get-buffer-create "*Capture*"))
- (erase-buffer)
- (setq buffer-file-name nil)
- (setq mark-active nil)
- (insert template)
- (goto-char (point-min))
-
- ;; %[] insert contents of a file.
- (save-excursion
- (while (re-search-forward "%\\[\\(.+\\)\\]" nil t)
- (let ((filename (expand-file-name (match-string 1)))
- (beg (copy-marker (match-beginning 0)))
- (end (copy-marker (match-end 0))))
- (unless (org-capture-escaped-%)
- (delete-region beg end)
- (set-marker beg nil)
- (set-marker end nil)
- (condition-case error
- (insert-file-contents filename)
- (error
- (insert (format "%%![couldn not insert %s: %s]"
- filename
- error))))))))
-
- ;; Mark %() embedded elisp for later evaluation.
- (org-capture-expand-embedded-elisp 'mark)
-
- ;; Expand non-interactive templates.
- (let ((regexp "%\\(:[-a-za-z]+\\|<\\([^>\n]+\\)>\\|[aAcfFikKlntTuUx]\\)"))
- (save-excursion
- (while (re-search-forward regexp nil t)
- ;; `org-capture-escaped-%' may modify buffer and cripple
- ;; match-data. Use markers instead. Ditto for other
- ;; templates.
- (let ((pos (copy-marker (match-beginning 0)))
- (end (copy-marker (match-end 0)))
- (value (match-string 1))
- (time-string (match-string 2)))
- (unless (org-capture-escaped-%)
- (delete-region pos end)
- (set-marker pos nil)
- (set-marker end nil)
- (let* ((inside-sexp? (org-capture-inside-embedded-elisp-p))
- (replacement
- (pcase (string-to-char value)
- (?< (format-time-string time-string time))
- (?:
- (or (plist-get org-store-link-plist (intern value))
- ""))
- (?i
- (if inside-sexp? v-i
- ;; Outside embedded Lisp, repeat leading
- ;; characters before initial place holder
- ;; every line.
- (let ((lead (buffer-substring-no-properties
- (line-beginning-position) (point))))
- (replace-regexp-in-string "\n\\(.\\)"
- (concat lead "\\1")
- v-i nil nil 1))))
- (?a v-a)
- (?A v-A)
- (?c v-c)
- (?f v-f)
- (?F v-F)
- (?k v-k)
- (?K v-K)
- (?l v-l)
- (?n v-n)
- (?t v-t)
- (?T v-T)
- (?u v-u)
- (?U v-U)
- (?x v-x))))
- (insert
- (if inside-sexp?
- ;; Escape sensitive characters.
- (replace-regexp-in-string "[\\\"]" "\\\\\\&" replacement)
- replacement))))))))
-
- ;; Expand %() embedded Elisp. Limit to Sexp originally marked.
- (org-capture-expand-embedded-elisp)
-
- ;; Expand interactive templates. This is the last step so that
- ;; template is mostly expanded when prompting happens. Turn on
- ;; Org mode and set local variables. This is to support
- ;; completion in interactive prompts.
- (let ((org-inhibit-startup t)) (org-mode))
- (org-clone-local-variables buffer "\\`org-")
- (let (strings) ; Stores interactive answers.
- (save-excursion
- (let ((regexp "%\\^\\(?:{\\([^}]*\\)}\\)?\\([CgGLptTuU]\\)?"))
- (while (re-search-forward regexp nil t)
- (let* ((items (and (match-end 1)
- (save-match-data
- (split-string (match-string-no-properties 1)
- "|"))))
- (key (match-string 2))
- (beg (copy-marker (match-beginning 0)))
- (end (copy-marker (match-end 0)))
- (prompt (nth 0 items))
- (default (nth 1 items))
- (completions (nthcdr 2 items)))
- (unless (org-capture-escaped-%)
- (delete-region beg end)
- (set-marker beg nil)
- (set-marker end nil)
- (pcase key
- ((or "G" "g")
- (let* ((org-last-tags-completion-table
- (org-global-tags-completion-table
- (cond ((equal key "G") (org-agenda-files))
- (file (list file))
- (t nil))))
- (org-add-colon-after-tag-completion t)
- (ins (mapconcat
- #'identity
- (org-split-string
- (completing-read
- (if prompt (concat prompt ": ") "Tags: ")
- 'org-tags-completion-function nil nil nil
- 'org-tags-history)
- "[^[:alnum:]_@#%]+")
- ":")))
- (when (org-string-nw-p ins)
- (unless (eq (char-before) ?:) (insert ":"))
- (insert ins)
- (unless (eq (char-after) ?:) (insert ":"))
- (and (org-at-heading-p)
- (let ((org-ignore-region t))
- (org-set-tags nil 'align))))))
- ((or "C" "L")
- (let ((insert-fun (if (equal key "C") #'insert
- (lambda (s) (org-insert-link 0 s)))))
- (pcase org-capture--clipboards
- (`nil nil)
- (`(,value) (funcall insert-fun value))
- (`(,first-value . ,_)
- (funcall insert-fun
- (read-string "Clipboard/kill value: "
- first-value
- 'org-capture--clipboards
- first-value)))
- (_ (error "Invalid `org-capture--clipboards' value: %S"
- org-capture--clipboards)))))
- ("p" (org-set-property prompt nil))
- ((or "t" "T" "u" "U")
- ;; These are the date/time related ones.
- (let* ((upcase? (equal (upcase key) key))
- (org-end-time-was-given nil)
- (time (org-read-date upcase? t nil prompt)))
- (org-insert-time-stamp
- time (or org-time-was-given upcase?)
- (member key '("u" "U"))
- nil nil (list org-end-time-was-given))))
- (`nil
- ;; Load history list for current prompt.
- (setq org-capture--prompt-history
- (gethash prompt org-capture--prompt-history-table))
- (push (org-completing-read
- (concat (or prompt "Enter string")
- (and default (format " [%s]" default))
- ": ")
- completions
- nil nil nil 'org-capture--prompt-history default)
- strings)
- (insert (car strings))
- ;; Save updated history list for current prompt.
- (puthash prompt org-capture--prompt-history
- org-capture--prompt-history-table))
- (_
- (error "Unknown template placeholder: \"%%^%s\""
- key))))))))
-
- ;; Replace %n escapes with nth %^{...} string.
- (setq strings (nreverse strings))
- (save-excursion
- (while (re-search-forward "%\\\\\\([1-9][0-9]*\\)" nil t)
- (unless (org-capture-escaped-%)
- (replace-match
- (nth (1- (string-to-number (match-string 1))) strings)
- nil t)))))
-
- ;; Make sure there are no empty lines before the text, and that
- ;; it ends with a newline character.
- (skip-chars-forward " \t\n")
- (delete-region (point-min) (line-beginning-position))
- (goto-char (point-max))
- (skip-chars-backward " \t\n")
- (delete-region (point) (point-max))
- (insert "\n")
-
- ;; Return the expanded template and kill the capture buffer.
- (untabify (point-min) (point-max))
- (set-buffer-modified-p nil)
- (prog1 (buffer-substring-no-properties (point-min) (point-max))
- (kill-buffer (current-buffer))))))
-
-(defun org-capture-escaped-% ()
- "Non-nil if % was escaped.
-If yes, unescape it now. Assume match-data contains the
-placeholder to check."
- (save-excursion
- (goto-char (match-beginning 0))
- (let ((n (abs (skip-chars-backward "\\\\"))))
- (delete-char (/ (1+ n) 2))
- (= (% n 2) 1))))
-
-(defun org-capture-expand-embedded-elisp (&optional mark)
- "Evaluate embedded elisp %(sexp) and replace with the result.
-When optional MARK argument is non-nil, mark Sexp with a text
-property (`org-embedded-elisp') for later evaluation. Only
-marked Sexp are evaluated when this argument is nil."
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward "%(" nil t)
- (cond
- ((get-text-property (match-beginning 0) 'org-embedded-elisp)
- (goto-char (match-beginning 0))
- (let ((template-start (point)))
- (forward-char 1)
- (let* ((sexp (read (current-buffer)))
- (result (org-eval
- (org-capture--expand-keyword-in-embedded-elisp
- sexp))))
- (delete-region template-start (point))
- (cond
- ((not result) nil)
- ((stringp result) (insert result))
- (t (error
- "Capture template sexp `%s' must evaluate to string or nil"
- sexp))))))
- ((not mark) nil)
- ;; Only mark valid and non-escaped sexp.
- ((org-capture-escaped-%) nil)
- (t
- (let ((end (with-syntax-table emacs-lisp-mode-syntax-table
- (ignore-errors (scan-sexps (1- (point)) 1)))))
- (when end
- (put-text-property (- (point) 2) end 'org-embedded-elisp t))))))))
-
-(defun org-capture--expand-keyword-in-embedded-elisp (attr)
- "Recursively replace capture link keywords in ATTR sexp.
-Such keywords are prefixed with \"%:\". See
-`org-capture-template' for more information."
- (cond ((consp attr)
- (mapcar 'org-capture--expand-keyword-in-embedded-elisp attr))
- ((symbolp attr)
- (let* ((attr-symbol (symbol-name attr))
- (key (and (string-match "%\\(:.*\\)" attr-symbol)
- (intern (match-string 1 attr-symbol)))))
- (or (plist-get org-store-link-plist key)
- attr)))
- (t attr)))
-
-(defun org-capture-inside-embedded-elisp-p ()
- "Non-nil if point is inside of embedded elisp %(sexp).
-Assume sexps have been marked with
-`org-capture-expand-embedded-elisp' beforehand."
- (get-text-property (point) 'org-embedded-elisp))
-
-;;;###autoload
-(defun org-capture-import-remember-templates ()
- "Set `org-capture-templates' to be similar to `org-remember-templates'."
- (interactive)
- (when (and (yes-or-no-p
- "Import old remember templates into org-capture-templates? ")
- (yes-or-no-p
- "Note that this will remove any templates currently defined in `org-capture-templates'. Do you still want to go ahead? "))
- (require 'org-remember)
- (setq org-capture-templates
- (mapcar
- (lambda (entry)
- (let ((desc (car entry))
- (key (char-to-string (nth 1 entry)))
- (template (nth 2 entry))
- (file (or (nth 3 entry) org-default-notes-file))
- (position (or (nth 4 entry) org-remember-default-headline))
- (type 'entry)
- (prepend org-reverse-note-order)
- immediate target jump-to-captured)
- (cond
- ((member position '(top bottom))
- (setq target (list 'file file)
- prepend (eq position 'top)))
- ((eq position 'date-tree)
- (setq target (list 'file+datetree file)
- prepend nil))
- (t (setq target (list 'file+headline file position))))
-
- (when (string-match "%!" template)
- (setq template (replace-match "" t t template)
- immediate t))
-
- (when (string-match "%&" template)
- (setq jump-to-captured t))
-
- (append (list key desc type target template)
- (if prepend '(:prepend t))
- (if immediate '(:immediate-finish t))
- (if jump-to-captured '(:jump-to-captured t)))))
-
- org-remember-templates))))
-
-
-(provide 'org-capture)
-
-;;; org-capture.el ends here
diff --git a/elpa/org-9.1.14/org-capture.elc b/elpa/org-9.1.14/org-capture.elc
deleted file mode 100644
index e04608a..0000000
--- a/elpa/org-9.1.14/org-capture.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-clock.el b/elpa/org-9.1.14/org-clock.el
deleted file mode 100644
index ff32e28..0000000
--- a/elpa/org-9.1.14/org-clock.el
+++ /dev/null
@@ -1,2976 +0,0 @@
-;;; org-clock.el --- The time clocking code for Org mode -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the time clocking code for Org mode
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-
-(declare-function calendar-iso-to-absolute "cal-iso" (date))
-(declare-function notifications-notify "notifications" (&rest params))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-table-goto-line "org-table" (n))
-
-(defvar org-frame-title-format-backup frame-title-format)
-(defvar org-time-stamp-formats)
-
-
-(defgroup org-clock nil
- "Options concerning clocking working time in Org mode."
- :tag "Org Clock"
- :group 'org-progress)
-
-(defcustom org-clock-into-drawer t
- "Non-nil when clocking info should be wrapped into a drawer.
-
-When non-nil, clocking info will be inserted into the same drawer
-as log notes (see variable `org-log-into-drawer'), if it exists,
-or \"LOGBOOK\" otherwise. If necessary, the drawer will be
-created.
-
-When an integer, the drawer is created only when the number of
-clocking entries in an item reaches or exceeds this value.
-
-When a string, it becomes the name of the drawer, ignoring the
-log notes drawer altogether.
-
-Do not check directly this variable in a Lisp program. Call
-function `org-clock-into-drawer' instead."
- :group 'org-todo
- :group 'org-clock
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Only when drawer exists" nil)
- (integer :tag "When at least N clock entries")
- (const :tag "Into LOGBOOK drawer" "LOGBOOK")
- (string :tag "Into Drawer named...")))
-
-(defun org-clock-into-drawer ()
- "Value of `org-clock-into-drawer'. but let properties overrule.
-
-If the current entry has or inherits a CLOCK_INTO_DRAWER
-property, it will be used instead of the default value.
-
-Return value is either a string, an integer, or nil."
- (let ((p (org-entry-get nil "CLOCK_INTO_DRAWER" 'inherit t)))
- (cond ((equal p "nil") nil)
- ((equal p "t") (or (org-log-into-drawer) "LOGBOOK"))
- ((org-string-nw-p p)
- (if (string-match-p "\\`[0-9]+\\'" p) (string-to-number p) p))
- ((org-string-nw-p org-clock-into-drawer))
- ((integerp org-clock-into-drawer) org-clock-into-drawer)
- ((not org-clock-into-drawer) nil)
- ((org-log-into-drawer))
- (t "LOGBOOK"))))
-
-(defcustom org-clock-out-when-done t
- "When non-nil, clock will be stopped when the clocked entry is marked DONE.
-\\<org-mode-map>\
-DONE here means any DONE-like state.
-A nil value means clock will keep running until stopped explicitly with
-`\\[org-clock-out]', or until the clock is started in a different item.
-Instead of t, this can also be a list of TODO states that should trigger
-clocking out."
- :group 'org-clock
- :type '(choice
- (const :tag "No" nil)
- (const :tag "Yes, when done" t)
- (repeat :tag "State list"
- (string :tag "TODO keyword"))))
-
-(defcustom org-clock-rounding-minutes 0
- "Rounding minutes when clocking in or out.
-The default value is 0 so that no rounding is done.
-When set to a non-integer value, use the car of
-`org-time-stamp-rounding-minutes', like for setting a time-stamp.
-
-E.g. if `org-clock-rounding-minutes' is set to 5, time is 14:47
-and you clock in: then the clock starts at 14:45. If you clock
-out within the next 5 minutes, the clock line will be removed;
-if you clock out 8 minutes after your clocked in, the clock
-out time will be 14:50."
- :group 'org-clock
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (integer :tag "Minutes (0 for no rounding)")
- (symbol :tag "Use `org-time-stamp-rounding-minutes'" 'same-as-time-stamp)))
-
-(defcustom org-clock-out-remove-zero-time-clocks nil
- "Non-nil means remove the clock line when the resulting time is zero."
- :group 'org-clock
- :type 'boolean)
-
-(defcustom org-clock-in-switch-to-state nil
- "Set task to a special todo state while clocking it.
-The value should be the state to which the entry should be
-switched. If the value is a function, it must take one
-parameter (the current TODO state of the item) and return the
-state to switch it to."
- :group 'org-clock
- :group 'org-todo
- :type '(choice
- (const :tag "Don't force a state" nil)
- (string :tag "State")
- (symbol :tag "Function")))
-
-(defcustom org-clock-out-switch-to-state nil
- "Set task to a special todo state after clocking out.
-The value should be the state to which the entry should be
-switched. If the value is a function, it must take one
-parameter (the current TODO state of the item) and return the
-state to switch it to."
- :group 'org-clock
- :group 'org-todo
- :type '(choice
- (const :tag "Don't force a state" nil)
- (string :tag "State")
- (symbol :tag "Function")))
-
-(defcustom org-clock-history-length 5
- "Number of clock tasks to remember in history."
- :group 'org-clock
- :type 'integer)
-
-(defcustom org-clock-goto-may-find-recent-task t
- "Non-nil means `org-clock-goto' can go to recent task if no active clock."
- :group 'org-clock
- :type 'boolean)
-
-(defcustom org-clock-heading-function nil
- "When non-nil, should be a function to create `org-clock-heading'.
-This is the string shown in the mode line when a clock is running.
-The function is called with point at the beginning of the headline."
- :group 'org-clock
- :type '(choice (const nil) (function)))
-
-(defcustom org-clock-string-limit 0
- "Maximum length of clock strings in the mode line. 0 means no limit."
- :group 'org-clock
- :type 'integer)
-
-(defcustom org-clock-in-resume nil
- "If non-nil, resume clock when clocking into task with open clock.
-When clocking into a task with a clock entry which has not been closed,
-the clock can be resumed from that point."
- :group 'org-clock
- :type 'boolean)
-
-(defcustom org-clock-persist nil
- "When non-nil, save the running clock when Emacs is closed.
-The clock is resumed when Emacs restarts.
-When this is t, both the running clock, and the entire clock
-history are saved. When this is the symbol `clock', only the
-running clock is saved. When this is the symbol `history', only
-the clock history is saved.
-
-When Emacs restarts with saved clock information, the file containing
-the running clock as well as all files mentioned in the clock history
-will be visited.
-
-All this depends on running `org-clock-persistence-insinuate' in your
-Emacs initialization file."
- :group 'org-clock
- :type '(choice
- (const :tag "Just the running clock" clock)
- (const :tag "Just the history" history)
- (const :tag "Clock and history" t)
- (const :tag "No persistence" nil)))
-
-(defcustom org-clock-persist-file (convert-standard-filename
- (concat user-emacs-directory "org-clock-save.el"))
- "File to save clock data to."
- :group 'org-clock
- :type 'string)
-
-(defcustom org-clock-persist-query-save nil
- "When non-nil, ask before saving the current clock on exit."
- :group 'org-clock
- :type 'boolean)
-
-(defcustom org-clock-persist-query-resume t
- "When non-nil, ask before resuming any stored clock during load."
- :group 'org-clock
- :type 'boolean)
-
-(defcustom org-clock-sound nil
- "Sound to use for notifications.
-Possible values are:
-
-nil No sound played
-t Standard Emacs beep
-file name Play this sound file, fall back to beep"
- :group 'org-clock
- :type '(choice
- (const :tag "No sound" nil)
- (const :tag "Standard beep" t)
- (file :tag "Play sound file")))
-
-(defcustom org-clock-mode-line-total 'auto
- "Default setting for the time included for the mode line clock.
-This can be overruled locally using the CLOCK_MODELINE_TOTAL property.
-Allowed values are:
-
-current Only the time in the current instance of the clock
-today All time clocked into this task today
-repeat All time clocked into this task since last repeat
-all All time ever recorded for this task
-auto Automatically, either `all', or `repeat' for repeating tasks"
- :group 'org-clock
- :type '(choice
- (const :tag "Current clock" current)
- (const :tag "Today's task time" today)
- (const :tag "Since last repeat" repeat)
- (const :tag "All task time" all)
- (const :tag "Automatically, `all' or since `repeat'" auto)))
-
-(defvaralias 'org-task-overrun-text 'org-clock-task-overrun-text)
-(defcustom org-clock-task-overrun-text nil
- "Extra mode line text to indicate that the clock is overrun.
-The can be nil to indicate that instead of adding text, the clock time
-should get a different face (`org-mode-line-clock-overrun').
-When this is a string, it is prepended to the clock string as an indication,
-also using the face `org-mode-line-clock-overrun'."
- :group 'org-clock
- :version "24.1"
- :type '(choice
- (const :tag "Just mark the time string" nil)
- (string :tag "Text to prepend")))
-
-(defcustom org-show-notification-handler nil
- "Function or program to send notification with.
-The function or program will be called with the notification
-string as argument."
- :group 'org-clock
- :type '(choice
- (const nil)
- (string :tag "Program")
- (function :tag "Function")))
-
-(defgroup org-clocktable nil
- "Options concerning the clock table in Org mode."
- :tag "Org Clock Table"
- :group 'org-clock)
-
-(defcustom org-clocktable-defaults
- (list
- :maxlevel 2
- :lang (or (bound-and-true-p org-export-default-language) "en")
- :scope 'file
- :block nil
- :wstart 1
- :mstart 1
- :tstart nil
- :tend nil
- :step nil
- :stepskip0 nil
- :fileskip0 nil
- :tags nil
- :emphasize nil
- :link nil
- :narrow '40!
- :indent t
- :formula nil
- :timestamp nil
- :level nil
- :tcolumns nil
- :formatter nil)
- "Default properties for clock tables."
- :group 'org-clock
- :version "24.1"
- :type 'plist)
-
-(defcustom org-clock-clocktable-formatter 'org-clocktable-write-default
- "Function to turn clocking data into a table.
-For more information, see `org-clocktable-write-default'."
- :group 'org-clocktable
- :version "24.1"
- :type 'function)
-
-;; FIXME: translate es and nl last string "Clock summary at"
-(defcustom org-clock-clocktable-language-setup
- '(("en" "File" "L" "Timestamp" "Headline" "Time" "ALL" "Total time" "File time" "Clock summary at")
- ("es" "Archivo" "N" "Fecha y hora" "Tarea" "Tiempo" "TODO" "Tiempo total" "Tiempo archivo" "Clock summary at")
- ("fr" "Fichier" "N" "Horodatage" "En-tête" "Durée" "TOUT" "Durée totale" "Durée fichier" "Horodatage sommaire à")
- ("nl" "Bestand" "N" "Tijdstip" "Hoofding" "Duur" "ALLES" "Totale duur" "Bestandstijd" "Clock summary at")
- ("de" "Datei" "E" "Zeitstempel" "Kopfzeile" "Dauer" "GESAMT"
- "Gesamtdauer" "Dateizeit" "Erstellt am"))
- "Terms used in clocktable, translated to different languages."
- :group 'org-clocktable
- :version "24.1"
- :type 'alist)
-
-(defcustom org-clock-clocktable-default-properties '(:maxlevel 2 :scope file)
- "Default properties for new clocktables.
-These will be inserted into the BEGIN line, to make it easy for users to
-play with them."
- :group 'org-clocktable
- :type 'plist)
-
-(defcustom org-clock-idle-time nil
- "When non-nil, resolve open clocks if the user is idle more than X minutes."
- :group 'org-clock
- :type '(choice
- (const :tag "Never" nil)
- (integer :tag "After N minutes")))
-
-(defcustom org-clock-auto-clock-resolution 'when-no-clock-is-running
- "When to automatically resolve open clocks found in Org buffers."
- :group 'org-clock
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "When no clock is running" when-no-clock-is-running)))
-
-(defcustom org-clock-report-include-clocking-task nil
- "When non-nil, include the current clocking task time in clock reports."
- :group 'org-clock
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-clock-resolve-expert nil
- "Non-nil means do not show the splash buffer with the clock resolver."
- :group 'org-clock
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-clock-continuously nil
- "Non-nil means to start clocking from the last clock-out time, if any."
- :type 'boolean
- :version "24.1"
- :group 'org-clock)
-
-(defcustom org-clock-total-time-cell-format "*%s*"
- "Format string for the total time cells."
- :group 'org-clock
- :version "24.1"
- :type 'string)
-
-(defcustom org-clock-file-time-cell-format "*%s*"
- "Format string for the file time cells."
- :group 'org-clock
- :version "24.1"
- :type 'string)
-
-(defcustom org-clock-clocked-in-display 'mode-line
- "When clocked in for a task, Org can display the current
-task and accumulated time in the mode line and/or frame title.
-Allowed values are:
-
-both displays in both mode line and frame title
-mode-line displays only in mode line (default)
-frame-title displays only in frame title
-nil current clock is not displayed"
- :group 'org-clock
- :type '(choice
- (const :tag "Mode line" mode-line)
- (const :tag "Frame title" frame-title)
- (const :tag "Both" both)
- (const :tag "None" nil)))
-
-(defcustom org-clock-frame-title-format '(t org-mode-line-string)
- "The value for `frame-title-format' when clocking in.
-
-When `org-clock-clocked-in-display' is set to `frame-title'
-or `both', clocking in will replace `frame-title-format' with
-this value. Clocking out will restore `frame-title-format'.
-
-`org-frame-title-string' is a format string using the same
-specifications than `frame-title-format', which see."
- :version "24.1"
- :group 'org-clock
- :type 'sexp)
-
-(defcustom org-clock-x11idle-program-name "x11idle"
- "Name of the program which prints X11 idle time in milliseconds.
-
-You can find x11idle.c in the contrib/scripts directory of the
-Org git distribution. Or, you can do:
-
- sudo apt-get install xprintidle
-
-if you are using Debian."
- :group 'org-clock
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defcustom org-clock-goto-before-context 2
- "Number of lines of context to display before currently clocked-in entry.
-This applies when using `org-clock-goto'."
- :group 'org-clock
- :type 'integer)
-
-(defcustom org-clock-display-default-range 'thisyear
- "Default range when displaying clocks with `org-clock-display'.
-Valid values are: `today', `yesterday', `thisweek', `lastweek',
-`thismonth', `lastmonth', `thisyear', `lastyear' and `untilnow'."
- :group 'org-clock
- :type '(choice (const today)
- (const yesterday)
- (const thisweek)
- (const lastweek)
- (const thismonth)
- (const lastmonth)
- (const thisyear)
- (const lastyear)
- (const untilnow)
- (const :tag "Select range interactively" interactive))
- :safe #'symbolp)
-
-(defvar org-clock-in-prepare-hook nil
- "Hook run when preparing the clock.
-This hook is run before anything happens to the task that
-you want to clock in. For example, you can use this hook
-to add an effort property.")
-(defvar org-clock-in-hook nil
- "Hook run when starting the clock.")
-(defvar org-clock-out-hook nil
- "Hook run when stopping the current clock.")
-
-(defvar org-clock-cancel-hook nil
- "Hook run when canceling the current clock.")
-(defvar org-clock-goto-hook nil
- "Hook run when selecting the currently clocked-in entry.")
-(defvar org-clock-has-been-used nil
- "Has the clock been used during the current Emacs session?")
-
-(defvar org-clock-stored-history nil
- "Clock history, populated by `org-clock-load'")
-(defvar org-clock-stored-resume-clock nil
- "Clock to resume, saved by `org-clock-load'")
-
-;;; The clock for measuring work time.
-
-(defvar org-mode-line-string "")
-(put 'org-mode-line-string 'risky-local-variable t)
-
-(defvar org-clock-mode-line-timer nil)
-(defvar org-clock-idle-timer nil)
-(defvar org-clock-heading) ; defined in org.el
-(defvar org-clock-start-time "")
-
-(defvar org-clock-leftover-time nil
- "If non-nil, user canceled a clock; this is when leftover time started.")
-
-(defvar org-clock-effort ""
- "Effort estimate of the currently clocking task.")
-
-(defvar org-clock-total-time nil
- "Holds total time, spent previously on currently clocked item.
-This does not include the time in the currently running clock.")
-
-(defvar org-clock-history nil
- "List of marker pointing to recent clocked tasks.")
-
-(defvar org-clock-default-task (make-marker)
- "Marker pointing to the default task that should clock time.
-The clock can be made to switch to this task after clocking out
-of a different task.")
-
-(defvar org-clock-interrupted-task (make-marker)
- "Marker pointing to the task that has been interrupted by the current clock.")
-
-(defvar org-clock-mode-line-map (make-sparse-keymap))
-(define-key org-clock-mode-line-map [mode-line mouse-2] 'org-clock-goto)
-(define-key org-clock-mode-line-map [mode-line mouse-1] 'org-clock-menu)
-
-(defun org-clock--translate (s language)
- "Translate string S into using string LANGUAGE.
-Assume S in the English term to translate. Return S as-is if it
-cannot be translated."
- (or (nth (pcase s
- ("File" 1) ("L" 2) ("Timestamp" 3) ("Headline" 4) ("Time" 5)
- ("ALL" 6) ("Total time" 7) ("File time" 8) ("Clock summary at" 9))
- (assoc-string language org-clock-clocktable-language-setup t))
- s))
-
-(defun org-clock--mode-line-heading ()
- "Return currently clocked heading, formatted for mode line."
- (cond ((functionp org-clock-heading-function)
- (funcall org-clock-heading-function))
- ((org-before-first-heading-p) "???")
- (t (replace-regexp-in-string
- org-bracket-link-analytic-regexp "\\5"
- (org-no-properties (org-get-heading t t t t))))))
-
-(defun org-clock-menu ()
- (interactive)
- (popup-menu
- '("Clock"
- ["Clock out" org-clock-out t]
- ["Change effort estimate" org-clock-modify-effort-estimate t]
- ["Go to clock entry" org-clock-goto t]
- ["Switch task" (lambda () (interactive) (org-clock-in '(4))) :active t :keys "C-u C-c C-x C-i"])))
-
-(defun org-clock-history-push (&optional pos buffer)
- "Push a marker to the clock history."
- (setq org-clock-history-length (max 1 (min 35 org-clock-history-length)))
- (let ((m (move-marker (make-marker)
- (or pos (point)) (org-base-buffer
- (or buffer (current-buffer)))))
- n l)
- (while (setq n (member m org-clock-history))
- (move-marker (car n) nil))
- (setq org-clock-history
- (delq nil
- (mapcar (lambda (x) (if (marker-buffer x) x nil))
- org-clock-history)))
- (when (>= (setq l (length org-clock-history)) org-clock-history-length)
- (setq org-clock-history
- (nreverse
- (nthcdr (- l org-clock-history-length -1)
- (nreverse org-clock-history)))))
- (push m org-clock-history)))
-
-(defun org-clock-save-markers-for-cut-and-paste (beg end)
- "Save relative positions of markers in region."
- (org-check-and-save-marker org-clock-marker beg end)
- (org-check-and-save-marker org-clock-hd-marker beg end)
- (org-check-and-save-marker org-clock-default-task beg end)
- (org-check-and-save-marker org-clock-interrupted-task beg end)
- (dolist (m org-clock-history)
- (org-check-and-save-marker m beg end)))
-
-(defun org-clock-drawer-name ()
- "Return clock drawer's name for current entry, or nil."
- (let ((drawer (org-clock-into-drawer)))
- (cond ((integerp drawer)
- (let ((log-drawer (org-log-into-drawer)))
- (if (stringp log-drawer) log-drawer "LOGBOOK")))
- ((stringp drawer) drawer)
- (t nil))))
-
-(defun org-clocking-buffer ()
- "Return the clocking buffer if we are currently clocking a task or nil."
- (marker-buffer org-clock-marker))
-
-(defun org-clocking-p ()
- "Return t when clocking a task."
- (not (equal (org-clocking-buffer) nil)))
-
-(defvar org-clock-before-select-task-hook nil
- "Hook called in task selection just before prompting the user.")
-
-(defun org-clock-select-task (&optional prompt)
- "Select a task that was recently associated with clocking.
-Return marker position of the selected task. Raise an error if
-there is no recent clock to choose from."
- (let (och chl sel-list rpl (i 0) s)
- ;; Remove successive dups from the clock history to consider
- (dolist (c org-clock-history)
- (unless (equal c (car och)) (push c och)))
- (setq och (reverse och) chl (length och))
- (if (zerop chl)
- (user-error "No recent clock")
- (save-window-excursion
- (org-switch-to-buffer-other-window
- (get-buffer-create "*Clock Task Select*"))
- (erase-buffer)
- (when (marker-buffer org-clock-default-task)
- (insert (org-add-props "Default Task\n" nil 'face 'bold))
- (setq s (org-clock-insert-selection-line ?d org-clock-default-task))
- (push s sel-list))
- (when (marker-buffer org-clock-interrupted-task)
- (insert (org-add-props "The task interrupted by starting the last one\n" nil 'face 'bold))
- (setq s (org-clock-insert-selection-line ?i org-clock-interrupted-task))
- (push s sel-list))
- (when (org-clocking-p)
- (insert (org-add-props "Current Clocking Task\n" nil 'face 'bold))
- (setq s (org-clock-insert-selection-line ?c org-clock-marker))
- (push s sel-list))
- (insert (org-add-props "Recent Tasks\n" nil 'face 'bold))
- (dolist (m och)
- (when (marker-buffer m)
- (setq i (1+ i)
- s (org-clock-insert-selection-line
- (if (< i 10)
- (+ i ?0)
- (+ i (- ?A 10))) m))
- (if (fboundp 'int-to-char) (setf (car s) (int-to-char (car s))))
- (push s sel-list)))
- (run-hooks 'org-clock-before-select-task-hook)
- (goto-char (point-min))
- ;; Set min-height relatively to circumvent a possible but in
- ;; `fit-window-to-buffer'
- (fit-window-to-buffer nil nil (if (< chl 10) chl (+ 5 chl)))
- (message (or prompt "Select task for clocking:"))
- (setq cursor-type nil rpl (read-char-exclusive))
- (kill-buffer)
- (cond
- ((eq rpl ?q) nil)
- ((eq rpl ?x) nil)
- ((assoc rpl sel-list) (cdr (assoc rpl sel-list)))
- (t (user-error "Invalid task choice %c" rpl)))))))
-
-(defun org-clock-insert-selection-line (i marker)
- "Insert a line for the clock selection menu.
-And return a cons cell with the selection character integer and the marker
-pointing to it."
- (when (marker-buffer marker)
- (let (cat task heading prefix)
- (with-current-buffer (org-base-buffer (marker-buffer marker))
- (org-with-wide-buffer
- (ignore-errors
- (goto-char marker)
- (setq cat (org-get-category)
- heading (org-get-heading 'notags)
- prefix (save-excursion
- (org-back-to-heading t)
- (looking-at org-outline-regexp)
- (match-string 0))
- task (substring
- (org-fontify-like-in-org-mode
- (concat prefix heading)
- org-odd-levels-only)
- (length prefix))))))
- (when (and cat task)
- (insert (format "[%c] %-12s %s\n" i cat task))
- (cons i marker)))))
-
-(defvar org-clock-task-overrun nil
- "Internal flag indicating if the clock has overrun the planned time.")
-(defvar org-clock-update-period 60
- "Number of seconds between mode line clock string updates.")
-
-(defun org-clock-get-clock-string ()
- "Form a clock-string, that will be shown in the mode line.
-If an effort estimate was defined for the current item, use
-01:30/01:50 format (clocked/estimated).
-If not, show simply the clocked time like 01:50."
- (let ((clocked-time (org-clock-get-clocked-time)))
- (if org-clock-effort
- (let* ((effort-in-minutes (org-duration-to-minutes org-clock-effort))
- (work-done-str
- (propertize (org-duration-from-minutes clocked-time)
- 'face
- (if (and org-clock-task-overrun
- (not org-clock-task-overrun-text))
- 'org-mode-line-clock-overrun
- 'org-mode-line-clock)))
- (effort-str (org-duration-from-minutes effort-in-minutes)))
- (format (propertize " [%s/%s] (%s)" 'face 'org-mode-line-clock)
- work-done-str effort-str org-clock-heading))
- (format (propertize " [%s] (%s)" 'face 'org-mode-line-clock)
- (org-duration-from-minutes clocked-time)
- org-clock-heading))))
-
-(defun org-clock-get-last-clock-out-time ()
- "Get the last clock-out time for the current subtree."
- (save-excursion
- (let ((end (save-excursion (org-end-of-subtree))))
- (when (re-search-forward (concat org-clock-string
- ".*\\]--\\(\\[[^]]+\\]\\)") end t)
- (org-time-string-to-time (match-string 1))))))
-
-(defun org-clock-update-mode-line (&optional refresh)
- "Update mode line with clock information.
-When optional argument is non-nil, refresh cached heading."
- (if org-clock-effort
- (org-clock-notify-once-if-expired)
- (setq org-clock-task-overrun nil))
- (when refresh (setq org-clock-heading (org-clock--mode-line-heading)))
- (setq org-mode-line-string
- (propertize
- (let ((clock-string (org-clock-get-clock-string))
- (help-text "Org mode clock is running.\nmouse-1 shows a \
-menu\nmouse-2 will jump to task"))
- (if (and (> org-clock-string-limit 0)
- (> (length clock-string) org-clock-string-limit))
- (propertize
- (substring clock-string 0 org-clock-string-limit)
- 'help-echo (concat help-text ": " org-clock-heading))
- (propertize clock-string 'help-echo help-text)))
- 'local-map org-clock-mode-line-map
- 'mouse-face 'mode-line-highlight))
- (if (and org-clock-task-overrun org-clock-task-overrun-text)
- (setq org-mode-line-string
- (concat (propertize
- org-clock-task-overrun-text
- 'face 'org-mode-line-clock-overrun) org-mode-line-string)))
- (force-mode-line-update))
-
-(defun org-clock-get-clocked-time ()
- "Get the clocked time for the current item in minutes.
-The time returned includes the time spent on this task in
-previous clocking intervals."
- (let ((currently-clocked-time
- (floor (- (float-time)
- (float-time org-clock-start-time)) 60)))
- (+ currently-clocked-time (or org-clock-total-time 0))))
-
-(defun org-clock-modify-effort-estimate (&optional value)
- "Add to or set the effort estimate of the item currently being clocked.
-VALUE can be a number of minutes, or a string with format hh:mm or mm.
-When the string starts with a + or a - sign, the current value of the effort
-property will be changed by that amount. If the effort value is expressed
-as an `org-effort-durations' (e.g. \"3h\"), the modified value will be
-converted to a hh:mm duration.
-
-This command will update the \"Effort\" property of the currently
-clocked item, and the value displayed in the mode line."
- (interactive)
- (if (org-clock-is-active)
- (let ((current org-clock-effort) sign)
- (unless value
- ;; Prompt user for a value or a change
- (setq value
- (read-string
- (format "Set effort (hh:mm or mm%s): "
- (if current
- (format ", prefix + to add to %s" org-clock-effort)
- "")))))
- (when (stringp value)
- ;; A string. See if it is a delta
- (setq sign (string-to-char value))
- (if (member sign '(?- ?+))
- (setq current (org-duration-to-minutes current)
- value (substring value 1))
- (setq current 0))
- (setq value (org-duration-to-minutes value))
- (if (equal ?- sign)
- (setq value (- current value))
- (if (equal ?+ sign) (setq value (+ current value)))))
- (setq value (max 0 value)
- org-clock-effort (org-duration-from-minutes value))
- (org-entry-put org-clock-marker "Effort" org-clock-effort)
- (org-clock-update-mode-line)
- (message "Effort is now %s" org-clock-effort))
- (message "Clock is not currently active")))
-
-(defvar org-clock-notification-was-shown nil
- "Shows if we have shown notification already.")
-
-(defun org-clock-notify-once-if-expired ()
- "Show notification if we spent more time than we estimated before.
-Notification is shown only once."
- (when (org-clocking-p)
- (let ((effort-in-minutes (org-duration-to-minutes org-clock-effort))
- (clocked-time (org-clock-get-clocked-time)))
- (if (setq org-clock-task-overrun
- (if (or (null effort-in-minutes) (zerop effort-in-minutes))
- nil
- (>= clocked-time effort-in-minutes)))
- (unless org-clock-notification-was-shown
- (setq org-clock-notification-was-shown t)
- (org-notify
- (format-message "Task `%s' should be finished by now. (%s)"
- org-clock-heading org-clock-effort)
- org-clock-sound))
- (setq org-clock-notification-was-shown nil)))))
-
-(defun org-notify (notification &optional play-sound)
- "Send a NOTIFICATION and maybe PLAY-SOUND.
-If PLAY-SOUND is non-nil, it overrides `org-clock-sound'."
- (org-show-notification notification)
- (if play-sound (org-clock-play-sound play-sound)))
-
-(defun org-show-notification (notification)
- "Show notification.
-Use `org-show-notification-handler' if defined,
-use libnotify if available, or fall back on a message."
- (cond ((functionp org-show-notification-handler)
- (funcall org-show-notification-handler notification))
- ((stringp org-show-notification-handler)
- (start-process "emacs-timer-notification" nil
- org-show-notification-handler notification))
- ((fboundp 'notifications-notify)
- (notifications-notify
- :title "Org mode message"
- :body notification
- ;; FIXME how to link to the Org icon?
- ;; :app-icon "~/.emacs.d/icons/mail.png"
- :urgency 'low))
- ((executable-find "notify-send")
- (start-process "emacs-timer-notification" nil
- "notify-send" notification))
- ;; Maybe the handler will send a message, so only use message as
- ;; a fall back option
- (t (message "%s" notification))))
-
-(defun org-clock-play-sound (&optional clock-sound)
- "Play sound as configured by `org-clock-sound'.
-Use alsa's aplay tool if available.
-If CLOCK-SOUND is non-nil, it overrides `org-clock-sound'."
- (let ((org-clock-sound (or clock-sound org-clock-sound)))
- (cond
- ((not org-clock-sound))
- ((eq org-clock-sound t) (beep t) (beep t))
- ((stringp org-clock-sound)
- (let ((file (expand-file-name org-clock-sound)))
- (if (file-exists-p file)
- (if (executable-find "aplay")
- (start-process "org-clock-play-notification" nil
- "aplay" file)
- (condition-case nil
- (play-sound-file file)
- (error (beep t) (beep t))))))))))
-
-(defvar org-clock-mode-line-entry nil
- "Information for the mode line about the running clock.")
-
-(defun org-find-open-clocks (file)
- "Search through the given file and find all open clocks."
- (let ((buf (or (get-file-buffer file)
- (find-file-noselect file)))
- (org-clock-re (concat org-clock-string " \\(\\[.*?\\]\\)$"))
- clocks)
- (with-current-buffer buf
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward org-clock-re nil t)
- (push (cons (copy-marker (match-end 1) t)
- (org-time-string-to-time (match-string 1))) clocks))))
- clocks))
-
-(defsubst org-is-active-clock (clock)
- "Return t if CLOCK is the currently active clock."
- (and (org-clock-is-active)
- (= org-clock-marker (car clock))))
-
-(defmacro org-with-clock-position (clock &rest forms)
- "Evaluate FORMS with CLOCK as the current active clock."
- `(with-current-buffer (marker-buffer (car ,clock))
- (org-with-wide-buffer
- (goto-char (car ,clock))
- (beginning-of-line)
- ,@forms)))
-(def-edebug-spec org-with-clock-position (form body))
-(put 'org-with-clock-position 'lisp-indent-function 1)
-
-(defmacro org-with-clock (clock &rest forms)
- "Evaluate FORMS with CLOCK as the current active clock.
-This macro also protects the current active clock from being altered."
- `(org-with-clock-position ,clock
- (let ((org-clock-start-time (cdr ,clock))
- (org-clock-total-time)
- (org-clock-history)
- (org-clock-effort)
- (org-clock-marker (car ,clock))
- (org-clock-hd-marker (save-excursion
- (org-back-to-heading t)
- (point-marker))))
- ,@forms)))
-(def-edebug-spec org-with-clock (form body))
-(put 'org-with-clock 'lisp-indent-function 1)
-
-(defsubst org-clock-clock-in (clock &optional resume start-time)
- "Clock in to the clock located by CLOCK.
-If necessary, clock-out of the currently active clock."
- (org-with-clock-position clock
- (let ((org-clock-in-resume (or resume org-clock-in-resume)))
- (org-clock-in nil start-time))))
-
-(defsubst org-clock-clock-out (clock &optional fail-quietly at-time)
- "Clock out of the clock located by CLOCK."
- (let ((temp (copy-marker (car clock)
- (marker-insertion-type (car clock)))))
- (if (org-is-active-clock clock)
- (org-clock-out nil fail-quietly at-time)
- (org-with-clock clock
- (org-clock-out nil fail-quietly at-time)))
- (setcar clock temp)))
-
-(defsubst org-clock-clock-cancel (clock)
- "Cancel the clock located by CLOCK."
- (let ((temp (copy-marker (car clock)
- (marker-insertion-type (car clock)))))
- (if (org-is-active-clock clock)
- (org-clock-cancel)
- (org-with-clock clock
- (org-clock-cancel)))
- (setcar clock temp)))
-
-(defvar org-clock-clocking-in nil)
-(defvar org-clock-resolving-clocks nil)
-(defvar org-clock-resolving-clocks-due-to-idleness nil)
-
-(defun org-clock-resolve-clock (clock resolve-to clock-out-time
- &optional close-p restart-p fail-quietly)
- "Resolve `CLOCK' given the time `RESOLVE-TO', and the present.
-`CLOCK' is a cons cell of the form (MARKER START-TIME)."
- (let ((org-clock-resolving-clocks t))
- (cond
- ((null resolve-to)
- (org-clock-clock-cancel clock)
- (if (and restart-p (not org-clock-clocking-in))
- (org-clock-clock-in clock)))
-
- ((eq resolve-to 'now)
- (if restart-p
- (error "RESTART-P is not valid here"))
- (if (or close-p org-clock-clocking-in)
- (org-clock-clock-out clock fail-quietly)
- (unless (org-is-active-clock clock)
- (org-clock-clock-in clock t))))
-
- ((not (time-less-p resolve-to (current-time)))
- (error "RESOLVE-TO must refer to a time in the past"))
-
- (t
- (if restart-p
- (error "RESTART-P is not valid here"))
- (org-clock-clock-out clock fail-quietly (or clock-out-time
- resolve-to))
- (unless org-clock-clocking-in
- (if close-p
- (setq org-clock-leftover-time (and (null clock-out-time)
- resolve-to))
- (org-clock-clock-in clock nil (and clock-out-time
- resolve-to))))))))
-
-(defun org-clock-jump-to-current-clock (&optional effective-clock)
- (interactive)
- (let ((drawer (org-clock-into-drawer))
- (clock (or effective-clock (cons org-clock-marker
- org-clock-start-time))))
- (unless (marker-buffer (car clock))
- (error "No clock is currently running"))
- (org-with-clock clock (org-clock-goto))
- (with-current-buffer (marker-buffer (car clock))
- (goto-char (car clock))
- (when drawer
- (org-with-wide-buffer
- (let ((drawer-re (format "^[ \t]*:%s:[ \t]*$"
- (regexp-quote (if (stringp drawer) drawer "LOGBOOK"))))
- (beg (save-excursion (org-back-to-heading t) (point))))
- (catch 'exit
- (while (re-search-backward drawer-re beg t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'drawer)
- (when (> (org-element-property :end element) (car clock))
- (org-flag-drawer nil element))
- (throw 'exit nil)))))))))))
-
-(defun org-clock-resolve (clock &optional prompt-fn last-valid fail-quietly)
- "Resolve an open Org clock.
-An open clock was found, with `dangling' possibly being non-nil.
-If this function was invoked with a prefix argument, non-dangling
-open clocks are ignored. The given clock requires some sort of
-user intervention to resolve it, either because a clock was left
-dangling or due to an idle timeout. The clock resolution can
-either be:
-
- (a) deleted, the user doesn't care about the clock
- (b) restarted from the current time (if no other clock is open)
- (c) closed, giving the clock X minutes
- (d) closed and then restarted
- (e) resumed, as if the user had never left
-
-The format of clock is (CONS MARKER START-TIME), where MARKER
-identifies the buffer and position the clock is open at (and
-thus, the heading it's under), and START-TIME is when the clock
-was started."
- (cl-assert clock)
- (let* ((ch
- (save-window-excursion
- (save-excursion
- (unless org-clock-resolving-clocks-due-to-idleness
- (org-clock-jump-to-current-clock clock))
- (unless org-clock-resolve-expert
- (with-output-to-temp-buffer "*Org Clock*"
- (princ (format-message "Select a Clock Resolution Command:
-
-i/q Ignore this question; the same as keeping all the idle time.
-
-k/K Keep X minutes of the idle time (default is all). If this
- amount is less than the default, you will be clocked out
- that many minutes after the time that idling began, and then
- clocked back in at the present time.
-
-g/G Indicate that you \"got back\" X minutes ago. This is quite
- different from `k': it clocks you out from the beginning of
- the idle period and clock you back in X minutes ago.
-
-s/S Subtract the idle time from the current clock. This is the
- same as keeping 0 minutes.
-
-C Cancel the open timer altogether. It will be as though you
- never clocked in.
-
-j/J Jump to the current clock, to make manual adjustments.
-
-For all these options, using uppercase makes your final state
-to be CLOCKED OUT."))))
- (org-fit-window-to-buffer (get-buffer-window "*Org Clock*"))
- (let (char-pressed)
- (while (or (null char-pressed)
- (and (not (memq char-pressed
- '(?k ?K ?g ?G ?s ?S ?C
- ?j ?J ?i ?q)))
- (or (ding) t)))
- (setq char-pressed
- (read-char (concat (funcall prompt-fn clock)
- " [jkKgGSscCiq]? ")
- nil 45)))
- (and (not (memq char-pressed '(?i ?q))) char-pressed)))))
- (default
- (floor (/ (float-time
- (time-subtract (current-time) last-valid)) 60)))
- (keep
- (and (memq ch '(?k ?K))
- (read-number "Keep how many minutes? " default)))
- (gotback
- (and (memq ch '(?g ?G))
- (read-number "Got back how many minutes ago? " default)))
- (subtractp (memq ch '(?s ?S)))
- (barely-started-p (< (- (float-time last-valid)
- (float-time (cdr clock))) 45))
- (start-over (and subtractp barely-started-p)))
- (cond
- ((memq ch '(?j ?J))
- (if (eq ch ?J)
- (org-clock-resolve-clock clock 'now nil t nil fail-quietly))
- (org-clock-jump-to-current-clock clock))
- ((or (null ch)
- (not (memq ch '(?k ?K ?g ?G ?s ?S ?C))))
- (message ""))
- (t
- (org-clock-resolve-clock
- clock (cond
- ((or (eq ch ?C)
- ;; If the time on the clock was less than a minute before
- ;; the user went away, and they've ask to subtract all the
- ;; time...
- start-over)
- nil)
- ((or subtractp
- (and gotback (= gotback 0)))
- last-valid)
- ((or (and keep (= keep default))
- (and gotback (= gotback default)))
- 'now)
- (keep
- (time-add last-valid (seconds-to-time (* 60 keep))))
- (gotback
- (time-subtract (current-time)
- (seconds-to-time (* 60 gotback))))
- (t
- (error "Unexpected, please report this as a bug")))
- (and gotback last-valid)
- (memq ch '(?K ?G ?S))
- (and start-over
- (not (memq ch '(?K ?G ?S ?C))))
- fail-quietly)))))
-
-;;;###autoload
-(defun org-resolve-clocks (&optional only-dangling-p prompt-fn last-valid)
- "Resolve all currently open Org clocks.
-If `only-dangling-p' is non-nil, only ask to resolve dangling
-\(i.e., not currently open and valid) clocks."
- (interactive "P")
- (unless org-clock-resolving-clocks
- (let ((org-clock-resolving-clocks t))
- (dolist (file (org-files-list))
- (let ((clocks (org-find-open-clocks file)))
- (dolist (clock clocks)
- (let ((dangling (or (not (org-clock-is-active))
- (/= (car clock) org-clock-marker))))
- (if (or (not only-dangling-p) dangling)
- (org-clock-resolve
- clock
- (or prompt-fn
- (function
- (lambda (clock)
- (format
- "Dangling clock started %d mins ago"
- (floor (- (float-time)
- (float-time (cdr clock)))
- 60)))))
- (or last-valid
- (cdr clock)))))))))))
-
-(defun org-emacs-idle-seconds ()
- "Return the current Emacs idle time in seconds, or nil if not idle."
- (let ((idle-time (current-idle-time)))
- (if idle-time
- (float-time idle-time)
- 0)))
-
-(defun org-mac-idle-seconds ()
- "Return the current Mac idle time in seconds."
- (string-to-number (shell-command-to-string "ioreg -c IOHIDSystem | perl -ane 'if (/Idle/) {$idle=(pop @F)/1000000000; print $idle; last}'")))
-
-(defvar org-x11idle-exists-p
- ;; Check that x11idle exists
- (and (eq window-system 'x)
- (eq 0 (call-process-shell-command
- (format "command -v %s" org-clock-x11idle-program-name)))
- ;; Check that x11idle can retrieve the idle time
- ;; FIXME: Why "..-shell-command" rather than just `call-process'?
- (eq 0 (call-process-shell-command org-clock-x11idle-program-name))))
-
-(defun org-x11-idle-seconds ()
- "Return the current X11 idle time in seconds."
- (/ (string-to-number (shell-command-to-string org-clock-x11idle-program-name)) 1000))
-
-(defun org-user-idle-seconds ()
- "Return the number of seconds the user has been idle for.
-This routine returns a floating point number."
- (cond
- ((eq system-type 'darwin)
- (org-mac-idle-seconds))
- ((and (eq window-system 'x) org-x11idle-exists-p)
- (org-x11-idle-seconds))
- (t
- (org-emacs-idle-seconds))))
-
-(defvar org-clock-user-idle-seconds)
-
-(defun org-resolve-clocks-if-idle ()
- "Resolve all currently open Org clocks.
-This is performed after `org-clock-idle-time' minutes, to check
-if the user really wants to stay clocked in after being idle for
-so long."
- (when (and org-clock-idle-time (not org-clock-resolving-clocks)
- org-clock-marker (marker-buffer org-clock-marker))
- (let* ((org-clock-user-idle-seconds (org-user-idle-seconds))
- (org-clock-user-idle-start
- (time-subtract (current-time)
- (seconds-to-time org-clock-user-idle-seconds)))
- (org-clock-resolving-clocks-due-to-idleness t))
- (if (> org-clock-user-idle-seconds (* 60 org-clock-idle-time))
- (org-clock-resolve
- (cons org-clock-marker
- org-clock-start-time)
- (lambda (_)
- (format "Clocked in & idle for %.1f mins"
- (/ (float-time
- (time-subtract (current-time)
- org-clock-user-idle-start))
- 60.0)))
- org-clock-user-idle-start)))))
-
-(defvar org-clock-current-task nil "Task currently clocked in.")
-(defvar org-clock-out-time nil) ; store the time of the last clock-out
-(defvar org--msg-extra)
-
-;;;###autoload
-(defun org-clock-in (&optional select start-time)
- "Start the clock on the current item.
-
-If necessary, clock-out of the currently active clock.
-
-With a `\\[universal-argument]' prefix argument SELECT, offer a list of \
-recently clocked
-tasks to clock into.
-
-When SELECT is `\\[universal-argument] \ \\[universal-argument]', \
-clock into the current task and mark it as
-the default task, a special task that will always be offered in the
-clocking selection, associated with the letter `d'.
-
-When SELECT is `\\[universal-argument] \\[universal-argument] \
-\\[universal-argument]', clock in by using the last clock-out
-time as the start time. See `org-clock-continuously' to make this
-the default behavior."
- (interactive "P")
- (setq org-clock-notification-was-shown nil)
- (org-refresh-effort-properties)
- (catch 'abort
- (let ((interrupting (and (not org-clock-resolving-clocks-due-to-idleness)
- (org-clocking-p)))
- ts selected-task target-pos (org--msg-extra "")
- (leftover (and (not org-clock-resolving-clocks)
- org-clock-leftover-time)))
-
- (when (and org-clock-auto-clock-resolution
- (or (not interrupting)
- (eq t org-clock-auto-clock-resolution))
- (not org-clock-clocking-in)
- (not org-clock-resolving-clocks))
- (setq org-clock-leftover-time nil)
- (let ((org-clock-clocking-in t))
- (org-resolve-clocks))) ; check if any clocks are dangling
-
- (when (equal select '(64))
- ;; Set start-time to `org-clock-out-time'
- (let ((org-clock-continuously t))
- (org-clock-in nil org-clock-out-time)
- (throw 'abort nil)))
-
- (when (equal select '(4))
- (setq selected-task (org-clock-select-task "Clock-in on task: "))
- (if selected-task
- (setq selected-task (copy-marker selected-task))
- (error "Abort")))
-
- (when (equal select '(16))
- ;; Mark as default clocking task
- (org-clock-mark-default-task))
-
- (when interrupting
- ;; We are interrupting the clocking of a different task.
- ;; Save a marker to this task, so that we can go back.
- ;; First check if we are trying to clock into the same task!
- (when (save-excursion
- (unless selected-task
- (org-back-to-heading t))
- (and (equal (marker-buffer org-clock-hd-marker)
- (if selected-task
- (marker-buffer selected-task)
- (current-buffer)))
- (= (marker-position org-clock-hd-marker)
- (if selected-task
- (marker-position selected-task)
- (point)))
- (equal org-clock-current-task (nth 4 (org-heading-components)))))
- (message "Clock continues in \"%s\"" org-clock-heading)
- (throw 'abort nil))
- (move-marker org-clock-interrupted-task
- (marker-position org-clock-marker)
- (marker-buffer org-clock-marker))
- (let ((org-clock-clocking-in t))
- (org-clock-out nil t)))
-
- ;; Clock in at which position?
- (setq target-pos
- (if (and (eobp) (not (org-at-heading-p)))
- (point-at-bol 0)
- (point)))
- (save-excursion
- (when (and selected-task (marker-buffer selected-task))
- ;; There is a selected task, move to the correct buffer
- ;; and set the new target position.
- (set-buffer (org-base-buffer (marker-buffer selected-task)))
- (setq target-pos (marker-position selected-task))
- (move-marker selected-task nil))
- (org-with-wide-buffer
- (goto-char target-pos)
- (org-back-to-heading t)
- (or interrupting (move-marker org-clock-interrupted-task nil))
- (run-hooks 'org-clock-in-prepare-hook)
- (org-clock-history-push)
- (setq org-clock-current-task (nth 4 (org-heading-components)))
- (cond ((functionp org-clock-in-switch-to-state)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))
- (let ((newstate (funcall org-clock-in-switch-to-state
- (match-string 2))))
- (when newstate (org-todo newstate))))
- ((and org-clock-in-switch-to-state
- (not (looking-at (concat org-outline-regexp "[ \t]*"
- org-clock-in-switch-to-state
- "\\>"))))
- (org-todo org-clock-in-switch-to-state)))
- (setq org-clock-heading (org-clock--mode-line-heading))
- (org-clock-find-position org-clock-in-resume)
- (cond
- ((and org-clock-in-resume
- (looking-at
- (concat "^[ \t]*" org-clock-string
- " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
- " *\\sw+.? +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")))
- (message "Matched %s" (match-string 1))
- (setq ts (concat "[" (match-string 1) "]"))
- (goto-char (match-end 1))
- (setq org-clock-start-time
- (apply 'encode-time
- (org-parse-time-string (match-string 1))))
- (setq org-clock-effort (org-entry-get (point) org-effort-property))
- (setq org-clock-total-time (org-clock-sum-current-item
- (org-clock-get-sum-start))))
- ((eq org-clock-in-resume 'auto-restart)
- ;; called from org-clock-load during startup,
- ;; do not interrupt, but warn!
- (message "Cannot restart clock because task does not contain unfinished clock")
- (ding)
- (sit-for 2)
- (throw 'abort nil))
- (t
- (insert-before-markers "\n")
- (backward-char 1)
- (org-indent-line)
- (when (and (save-excursion
- (end-of-line 0)
- (org-in-item-p)))
- (beginning-of-line 1)
- (indent-line-to (- (org-get-indentation) 2)))
- (insert org-clock-string " ")
- (setq org-clock-effort (org-entry-get (point) org-effort-property))
- (setq org-clock-total-time (org-clock-sum-current-item
- (org-clock-get-sum-start)))
- (setq org-clock-start-time
- (or (and org-clock-continuously org-clock-out-time)
- (and leftover
- (y-or-n-p
- (format
- "You stopped another clock %d mins ago; start this one from then? "
- (/ (- (float-time
- (org-current-time org-clock-rounding-minutes t))
- (float-time leftover))
- 60)))
- leftover)
- start-time
- (org-current-time org-clock-rounding-minutes t)))
- (setq ts (org-insert-time-stamp org-clock-start-time
- 'with-hm 'inactive))))
- (move-marker org-clock-marker (point) (buffer-base-buffer))
- (move-marker org-clock-hd-marker
- (save-excursion (org-back-to-heading t) (point))
- (buffer-base-buffer))
- (setq org-clock-has-been-used t)
- ;; add to mode line
- (when (or (eq org-clock-clocked-in-display 'mode-line)
- (eq org-clock-clocked-in-display 'both))
- (or global-mode-string (setq global-mode-string '("")))
- (or (memq 'org-mode-line-string global-mode-string)
- (setq global-mode-string
- (append global-mode-string '(org-mode-line-string)))))
- ;; add to frame title
- (when (or (eq org-clock-clocked-in-display 'frame-title)
- (eq org-clock-clocked-in-display 'both))
- (setq frame-title-format org-clock-frame-title-format))
- (org-clock-update-mode-line)
- (when org-clock-mode-line-timer
- (cancel-timer org-clock-mode-line-timer)
- (setq org-clock-mode-line-timer nil))
- (when org-clock-clocked-in-display
- (setq org-clock-mode-line-timer
- (run-with-timer org-clock-update-period
- org-clock-update-period
- 'org-clock-update-mode-line)))
- (when org-clock-idle-timer
- (cancel-timer org-clock-idle-timer)
- (setq org-clock-idle-timer nil))
- (setq org-clock-idle-timer
- (run-with-timer 60 60 'org-resolve-clocks-if-idle))
- (message "Clock starts at %s - %s" ts org--msg-extra)
- (run-hooks 'org-clock-in-hook))))))
-
-;;;###autoload
-(defun org-clock-in-last (&optional arg)
- "Clock in the last closed clocked item.
-When already clocking in, send a warning.
-With a universal prefix argument, select the task you want to
-clock in from the last clocked in tasks.
-With two universal prefix arguments, start clocking using the
-last clock-out time, if any.
-With three universal prefix arguments, interactively prompt
-for a todo state to switch to, overriding the existing value
-`org-clock-in-switch-to-state'."
- (interactive "P")
- (if (equal arg '(4)) (org-clock-in arg)
- (let ((start-time (if (or org-clock-continuously (equal arg '(16)))
- (or org-clock-out-time
- (org-current-time org-clock-rounding-minutes t))
- (org-current-time org-clock-rounding-minutes t))))
- (if (null org-clock-history)
- (message "No last clock")
- (let ((org-clock-in-switch-to-state
- (if (and (not org-clock-current-task) (equal arg '(64)))
- (completing-read "Switch to state: "
- (and org-clock-history
- (with-current-buffer
- (marker-buffer (car org-clock-history))
- org-todo-keywords-1)))
- org-clock-in-switch-to-state))
- (already-clocking org-clock-current-task))
- (org-clock-clock-in (list (car org-clock-history)) nil start-time)
- (or already-clocking
- ;; Don't display a message if we are already clocking in
- (message "Clocking back: %s (in %s)"
- org-clock-current-task
- (buffer-name (marker-buffer org-clock-marker)))))))))
-
-(defun org-clock-mark-default-task ()
- "Mark current task as default task."
- (interactive)
- (save-excursion
- (org-back-to-heading t)
- (move-marker org-clock-default-task (point))))
-
-(defun org-clock-get-sum-start ()
- "Return the time from which clock times should be counted.
-
-This is for the currently running clock as it is displayed in the
-mode line. This function looks at the properties LAST_REPEAT and
-in particular CLOCK_MODELINE_TOTAL and the corresponding variable
-`org-clock-mode-line-total' and then decides which time to use.
-
-The time is always returned as UTC."
- (let ((cmt (or (org-entry-get nil "CLOCK_MODELINE_TOTAL" 'selective)
- (symbol-name org-clock-mode-line-total)))
- (lr (org-entry-get nil "LAST_REPEAT")))
- (cond
- ((equal cmt "current")
- (setq org--msg-extra "showing time in current clock instance")
- (current-time))
- ((equal cmt "today")
- (setq org--msg-extra "showing today's task time.")
- (let* ((dt (decode-time))
- (hour (nth 2 dt))
- (day (nth 3 dt)))
- (if (< hour org-extend-today-until) (setf (nth 3 dt) (1- day)))
- (setf (nth 2 dt) org-extend-today-until)
- (apply #'encode-time (append (list 0 0) (nthcdr 2 dt)))))
- ((or (equal cmt "all")
- (and (or (not cmt) (equal cmt "auto"))
- (not lr)))
- (setq org--msg-extra "showing entire task time.")
- nil)
- ((or (equal cmt "repeat")
- (and (or (not cmt) (equal cmt "auto"))
- lr))
- (setq org--msg-extra "showing task time since last repeat.")
- (and lr (org-time-string-to-time lr)))
- (t nil))))
-
-(defun org-clock-find-position (find-unclosed)
- "Find the location where the next clock line should be inserted.
-When FIND-UNCLOSED is non-nil, first check if there is an unclosed clock
-line and position cursor in that line."
- (org-back-to-heading t)
- (catch 'exit
- (let* ((beg (line-beginning-position))
- (end (save-excursion (outline-next-heading) (point)))
- (org-clock-into-drawer (org-clock-into-drawer))
- (drawer (org-clock-drawer-name)))
- ;; Look for a running clock if FIND-UNCLOSED in non-nil.
- (when find-unclosed
- (let ((open-clock-re
- (concat "^[ \t]*"
- org-clock-string
- " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
- " *\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")))
- (while (re-search-forward open-clock-re end t)
- (let ((element (org-element-at-point)))
- (when (and (eq (org-element-type element) 'clock)
- (eq (org-element-property :status element) 'running))
- (beginning-of-line)
- (throw 'exit t))))))
- ;; Look for an existing clock drawer.
- (when drawer
- (goto-char beg)
- (let ((drawer-re (concat "^[ \t]*:" (regexp-quote drawer) ":[ \t]*$")))
- (while (re-search-forward drawer-re end t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'drawer)
- (let ((cend (org-element-property :contents-end element)))
- (if (and (not org-log-states-order-reversed) cend)
- (goto-char cend)
- (forward-line))
- (throw 'exit t)))))))
- (goto-char beg)
- (let ((clock-re (concat "^[ \t]*" org-clock-string))
- (count 0)
- positions)
- ;; Count the CLOCK lines and store their positions.
- (save-excursion
- (while (re-search-forward clock-re end t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'clock)
- (setq positions (cons (line-beginning-position) positions)
- count (1+ count))))))
- (cond
- ((null positions)
- ;; Skip planning line and property drawer, if any.
- (org-end-of-meta-data)
- (unless (bolp) (insert "\n"))
- ;; Create a new drawer if necessary.
- (when (and org-clock-into-drawer
- (or (not (wholenump org-clock-into-drawer))
- (< org-clock-into-drawer 2)))
- (let ((beg (point)))
- (insert ":" drawer ":\n:END:\n")
- (org-indent-region beg (point))
- (goto-char beg)
- (org-flag-drawer t)
- (forward-line))))
- ;; When a clock drawer needs to be created because of the
- ;; number of clock items or simply if it is missing, collect
- ;; all clocks in the section and wrap them within the drawer.
- ((if (wholenump org-clock-into-drawer)
- (>= (1+ count) org-clock-into-drawer)
- drawer)
- ;; Skip planning line and property drawer, if any.
- (org-end-of-meta-data)
- (let ((beg (point)))
- (insert
- (mapconcat
- (lambda (p)
- (save-excursion
- (goto-char p)
- (org-trim (delete-and-extract-region
- (save-excursion (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))
- (line-beginning-position 2)))))
- positions "\n")
- "\n:END:\n")
- (let ((end (point-marker)))
- (goto-char beg)
- (save-excursion (insert ":" drawer ":\n"))
- (org-flag-drawer t)
- (org-indent-region (point) end)
- (forward-line)
- (unless org-log-states-order-reversed
- (goto-char end)
- (beginning-of-line -1))
- (set-marker end nil))))
- (org-log-states-order-reversed (goto-char (car (last positions))))
- (t (goto-char (car positions))))))))
-
-;;;###autoload
-(defun org-clock-out (&optional switch-to-state fail-quietly at-time)
- "Stop the currently running clock.
-Throw an error if there is no running clock and FAIL-QUIETLY is nil.
-With a universal prefix, prompt for a state to switch the clocked out task
-to, overriding the existing value of `org-clock-out-switch-to-state'."
- (interactive "P")
- (catch 'exit
- (when (not (org-clocking-p))
- (setq global-mode-string
- (delq 'org-mode-line-string global-mode-string))
- (setq frame-title-format org-frame-title-format-backup)
- (force-mode-line-update)
- (if fail-quietly (throw 'exit t) (user-error "No active clock")))
- (let ((org-clock-out-switch-to-state
- (if switch-to-state
- (completing-read "Switch to state: "
- (with-current-buffer
- (marker-buffer org-clock-marker)
- org-todo-keywords-1)
- nil t "DONE")
- org-clock-out-switch-to-state))
- (now (org-current-time org-clock-rounding-minutes))
- ts te s h m remove)
- (setq org-clock-out-time now)
- (save-excursion ; Do not replace this with `with-current-buffer'.
- (with-no-warnings (set-buffer (org-clocking-buffer)))
- (save-restriction
- (widen)
- (goto-char org-clock-marker)
- (beginning-of-line 1)
- (if (and (looking-at (concat "[ \t]*" org-keyword-time-regexp))
- (equal (match-string 1) org-clock-string))
- (setq ts (match-string 2))
- (if fail-quietly (throw 'exit nil) (error "Clock start time is gone")))
- (goto-char (match-end 0))
- (delete-region (point) (point-at-eol))
- (insert "--")
- (setq te (org-insert-time-stamp (or at-time now) 'with-hm 'inactive))
- (setq s (- (float-time
- (apply #'encode-time (org-parse-time-string te)))
- (float-time
- (apply #'encode-time (org-parse-time-string ts))))
- h (floor (/ s 3600))
- s (- s (* 3600 h))
- m (floor (/ s 60))
- s (- s (* 60 s)))
- (insert " => " (format "%2d:%02d" h m))
- (move-marker org-clock-marker nil)
- (move-marker org-clock-hd-marker nil)
- ;; Possibly remove zero time clocks. However, do not add
- ;; a note associated to the CLOCK line in this case.
- (cond ((and org-clock-out-remove-zero-time-clocks
- (= (+ h m) 0))
- (setq remove t)
- (delete-region (line-beginning-position)
- (line-beginning-position 2)))
- (org-log-note-clock-out
- (org-add-log-setup
- 'clock-out nil nil nil
- (concat "# Task: " (org-get-heading t) "\n\n"))))
- (when org-clock-mode-line-timer
- (cancel-timer org-clock-mode-line-timer)
- (setq org-clock-mode-line-timer nil))
- (when org-clock-idle-timer
- (cancel-timer org-clock-idle-timer)
- (setq org-clock-idle-timer nil))
- (setq global-mode-string
- (delq 'org-mode-line-string global-mode-string))
- (setq frame-title-format org-frame-title-format-backup)
- (when org-clock-out-switch-to-state
- (save-excursion
- (org-back-to-heading t)
- (let ((org-clock-out-when-done nil))
- (cond
- ((functionp org-clock-out-switch-to-state)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))
- (let ((newstate (funcall org-clock-out-switch-to-state
- (match-string 2))))
- (when newstate (org-todo newstate))))
- ((and org-clock-out-switch-to-state
- (not (looking-at (concat org-outline-regexp "[ \t]*"
- org-clock-out-switch-to-state
- "\\>"))))
- (org-todo org-clock-out-switch-to-state))))))
- (force-mode-line-update)
- (message (concat "Clock stopped at %s after "
- (org-duration-from-minutes (+ (* 60 h) m)) "%s")
- te (if remove " => LINE REMOVED" ""))
- (run-hooks 'org-clock-out-hook)
- (unless (org-clocking-p)
- (setq org-clock-current-task nil)))))))
-
-(add-hook 'org-clock-out-hook 'org-clock-remove-empty-clock-drawer)
-
-(defun org-clock-remove-empty-clock-drawer ()
- "Remove empty clock drawers in current subtree."
- (save-excursion
- (org-back-to-heading t)
- (org-map-tree
- (lambda ()
- (let ((drawer (org-clock-drawer-name))
- (case-fold-search t))
- (when drawer
- (let ((re (format "^[ \t]*:%s:[ \t]*$" (regexp-quote drawer)))
- (end (save-excursion (outline-next-heading))))
- (while (re-search-forward re end t)
- (org-remove-empty-drawer-at (point))))))))))
-
-(defun org-clock-timestamps-up (&optional n)
- "Increase CLOCK timestamps at cursor.
-Optional argument N tells to change by that many units."
- (interactive "P")
- (org-clock-timestamps-change 'up n))
-
-(defun org-clock-timestamps-down (&optional n)
- "Increase CLOCK timestamps at cursor.
-Optional argument N tells to change by that many units."
- (interactive "P")
- (org-clock-timestamps-change 'down n))
-
-(defun org-clock-timestamps-change (updown &optional n)
- "Change CLOCK timestamps synchronously at cursor.
-UPDOWN tells whether to change `up' or `down'.
-Optional argument N tells to change by that many units."
- (let ((tschange (if (eq updown 'up) 'org-timestamp-up
- 'org-timestamp-down))
- (timestamp? (org-at-timestamp-p 'lax))
- ts1 begts1 ts2 begts2 updatets1 tdiff)
- (when timestamp?
- (save-excursion
- (move-beginning-of-line 1)
- (re-search-forward org-ts-regexp3 nil t)
- (setq ts1 (match-string 0) begts1 (match-beginning 0))
- (when (re-search-forward org-ts-regexp3 nil t)
- (setq ts2 (match-string 0) begts2 (match-beginning 0))))
- ;; Are we on the second timestamp?
- (if (<= begts2 (point)) (setq updatets1 t))
- (if (not ts2)
- ;; fall back on org-timestamp-up if there is only one
- (funcall tschange n)
- (funcall tschange n)
- (let ((ts (if updatets1 ts2 ts1))
- (begts (if updatets1 begts1 begts2)))
- (setq tdiff
- (time-subtract
- (org-time-string-to-time org-last-changed-timestamp)
- (org-time-string-to-time ts)))
- (save-excursion
- (goto-char begts)
- (org-timestamp-change
- (round (/ (float-time tdiff)
- (pcase timestamp?
- (`minute 60)
- (`hour 3600)
- (`day (* 24 3600))
- (`month (* 24 3600 31))
- (`year (* 24 3600 365.2)))))
- timestamp? 'updown)))))))
-
-;;;###autoload
-(defun org-clock-cancel ()
- "Cancel the running clock by removing the start timestamp."
- (interactive)
- (when (not (org-clocking-p))
- (setq global-mode-string
- (delq 'org-mode-line-string global-mode-string))
- (setq frame-title-format org-frame-title-format-backup)
- (force-mode-line-update)
- (error "No active clock"))
- (save-excursion ; Do not replace this with `with-current-buffer'.
- (with-no-warnings (set-buffer (org-clocking-buffer)))
- (goto-char org-clock-marker)
- (if (looking-back (concat "^[ \t]*" org-clock-string ".*")
- (line-beginning-position))
- (progn (delete-region (1- (point-at-bol)) (point-at-eol))
- (org-remove-empty-drawer-at (point)))
- (message "Clock gone, cancel the timer anyway")
- (sit-for 2)))
- (move-marker org-clock-marker nil)
- (move-marker org-clock-hd-marker nil)
- (setq global-mode-string
- (delq 'org-mode-line-string global-mode-string))
- (setq frame-title-format org-frame-title-format-backup)
- (force-mode-line-update)
- (message "Clock canceled")
- (run-hooks 'org-clock-cancel-hook))
-
-;;;###autoload
-(defun org-clock-goto (&optional select)
- "Go to the currently clocked-in entry, or to the most recently clocked one.
-With prefix arg SELECT, offer recently clocked tasks for selection."
- (interactive "@P")
- (let* ((recent nil)
- (m (cond
- (select
- (or (org-clock-select-task "Select task to go to: ")
- (error "No task selected")))
- ((org-clocking-p) org-clock-marker)
- ((and org-clock-goto-may-find-recent-task
- (car org-clock-history)
- (marker-buffer (car org-clock-history)))
- (setq recent t)
- (car org-clock-history))
- (t (error "No active or recent clock task")))))
- (pop-to-buffer-same-window (marker-buffer m))
- (if (or (< m (point-min)) (> m (point-max))) (widen))
- (goto-char m)
- (org-show-entry)
- (org-back-to-heading t)
- (org-cycle-hide-drawers 'children)
- (recenter org-clock-goto-before-context)
- (org-reveal)
- (if recent
- (message "No running clock, this is the most recently clocked task"))
- (run-hooks 'org-clock-goto-hook)))
-
-(defvar-local org-clock-file-total-minutes nil
- "Holds the file total time in minutes, after a call to `org-clock-sum'.")
-
-;;;###autoload
-(defun org-clock-sum-today (&optional headline-filter)
- "Sum the times for each subtree for today."
- (let ((range (org-clock-special-range 'today)))
- (org-clock-sum (car range) (cadr range)
- headline-filter :org-clock-minutes-today)))
-
-(defun org-clock-sum-custom (&optional headline-filter range propname)
- "Sum the times for each subtree for today."
- (let ((r (or (and (symbolp range) (org-clock-special-range range))
- (org-clock-special-range
- (intern (completing-read
- "Range: "
- '("today" "yesterday" "thisweek" "lastweek"
- "thismonth" "lastmonth" "thisyear" "lastyear"
- "interactive")
- nil t))))))
- (org-clock-sum (car r) (cadr r)
- headline-filter (or propname :org-clock-minutes-custom))))
-
-;;;###autoload
-(defun org-clock-sum (&optional tstart tend headline-filter propname)
- "Sum the times for each subtree.
-Puts the resulting times in minutes as a text property on each headline.
-TSTART and TEND can mark a time range to be considered.
-HEADLINE-FILTER is a zero-arg function that, if specified, is called for
-each headline in the time range with point at the headline. Headlines for
-which HEADLINE-FILTER returns nil are excluded from the clock summation.
-PROPNAME lets you set a custom text property instead of :org-clock-minutes."
- (org-with-silent-modifications
- (let* ((re (concat "^\\(\\*+\\)[ \t]\\|^[ \t]*"
- org-clock-string
- "[ \t]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=>[ \t]+\\([0-9]+\\):\\([0-9]+\\)\\)"))
- (lmax 30)
- (ltimes (make-vector lmax 0))
- (level 0)
- (tstart (cond ((stringp tstart) (org-time-string-to-seconds tstart))
- ((consp tstart) (float-time tstart))
- (t tstart)))
- (tend (cond ((stringp tend) (org-time-string-to-seconds tend))
- ((consp tend) (float-time tend))
- (t tend)))
- (t1 0)
- time)
- (remove-text-properties (point-min) (point-max)
- `(,(or propname :org-clock-minutes) t
- :org-clock-force-headline-inclusion t))
- (save-excursion
- (goto-char (point-max))
- (while (re-search-backward re nil t)
- (cond
- ((match-end 2)
- ;; Two time stamps.
- (let* ((ts (float-time
- (apply #'encode-time
- (save-match-data
- (org-parse-time-string (match-string 2))))))
- (te (float-time
- (apply #'encode-time
- (org-parse-time-string (match-string 3)))))
- (dt (- (if tend (min te tend) te)
- (if tstart (max ts tstart) ts))))
- (when (> dt 0) (cl-incf t1 (floor (/ dt 60))))))
- ((match-end 4)
- ;; A naked time.
- (setq t1 (+ t1 (string-to-number (match-string 5))
- (* 60 (string-to-number (match-string 4))))))
- (t ;A headline
- ;; Add the currently clocking item time to the total.
- (when (and org-clock-report-include-clocking-task
- (eq (org-clocking-buffer) (current-buffer))
- (eq (marker-position org-clock-hd-marker) (point))
- tstart
- tend
- (>= (float-time org-clock-start-time) tstart)
- (<= (float-time org-clock-start-time) tend))
- (let ((time (floor (- (float-time)
- (float-time org-clock-start-time))
- 60)))
- (setq t1 (+ t1 time))))
- (let* ((headline-forced
- (get-text-property (point)
- :org-clock-force-headline-inclusion))
- (headline-included
- (or (null headline-filter)
- (save-excursion
- (save-match-data (funcall headline-filter))))))
- (setq level (- (match-end 1) (match-beginning 1)))
- (when (>= level lmax)
- (setq ltimes (vconcat ltimes (make-vector lmax 0)) lmax (* 2 lmax)))
- (when (or (> t1 0) (> (aref ltimes level) 0))
- (when (or headline-included headline-forced)
- (if headline-included
- (cl-loop for l from 0 to level do
- (aset ltimes l (+ (aref ltimes l) t1))))
- (setq time (aref ltimes level))
- (goto-char (match-beginning 0))
- (put-text-property (point) (point-at-eol)
- (or propname :org-clock-minutes) time)
- (when headline-filter
- (save-excursion
- (save-match-data
- (while (org-up-heading-safe)
- (put-text-property
- (point) (line-end-position)
- :org-clock-force-headline-inclusion t))))))
- (setq t1 0)
- (cl-loop for l from level to (1- lmax) do
- (aset ltimes l 0)))))))
- (setq org-clock-file-total-minutes (aref ltimes 0))))))
-
-(defun org-clock-sum-current-item (&optional tstart)
- "Return time, clocked on current item in total."
- (save-excursion
- (save-restriction
- (org-narrow-to-subtree)
- (org-clock-sum tstart)
- org-clock-file-total-minutes)))
-
-;;;###autoload
-(defun org-clock-display (&optional arg)
- "Show subtree times in the entire buffer.
-
-By default, show the total time for the range defined in
-`org-clock-display-default-range'. With `\\[universal-argument]' \
-prefix, show
-the total time for today instead.
-
-With `\\[universal-argument] \\[universal-argument]' prefix, \
-use a custom range, entered at prompt.
-
-With `\\[universal-argument] \ \\[universal-argument] \
-\\[universal-argument]' prefix, display the total time in the
-echo area.
-
-Use `\\[org-clock-remove-overlays]' to remove the subtree times."
- (interactive "P")
- (org-clock-remove-overlays)
- (let* ((todayp (equal arg '(4)))
- (customp (member arg '((16) today yesterday
- thisweek lastweek thismonth
- lastmonth thisyear lastyear
- untilnow interactive)))
- (prop (cond ((not arg) :org-clock-minutes-default)
- (todayp :org-clock-minutes-today)
- (customp :org-clock-minutes-custom)
- (t :org-clock-minutes))))
- (cond ((not arg) (org-clock-sum-custom
- nil org-clock-display-default-range prop))
- (todayp (org-clock-sum-today))
- (customp (org-clock-sum-custom nil arg))
- (t (org-clock-sum)))
- (unless (equal arg '(64))
- (save-excursion
- (goto-char (point-min))
- (let ((p nil))
- (while (or (and (equal (setq p (point)) (point-min))
- (get-text-property p prop))
- (setq p (next-single-property-change (point) prop)))
- (goto-char p)
- (let ((time (get-text-property p prop)))
- (when time (org-clock-put-overlay time)))))
- ;; Arrange to remove the overlays upon next change.
- (when org-remove-highlights-with-change
- (add-hook 'before-change-functions 'org-clock-remove-overlays
- nil 'local))))
- (let* ((h (/ org-clock-file-total-minutes 60))
- (m (- org-clock-file-total-minutes (* 60 h))))
- (message (concat (format "Total file time%s: "
- (cond (todayp " for today")
- (customp " (custom)")
- (t "")))
- (org-duration-from-minutes
- org-clock-file-total-minutes)
- " (%d hours and %d minutes)")
- h m))))
-
-(defvar-local org-clock-overlays nil)
-
-(defun org-clock-put-overlay (time)
- "Put an overlays on the current line, displaying TIME.
-This creates a new overlay and stores it in `org-clock-overlays', so that it
-will be easy to remove."
- (let (ov tx)
- (beginning-of-line)
- (let ((case-fold-search nil))
- (when (looking-at org-complex-heading-regexp)
- (goto-char (match-beginning 4))))
- (setq ov (make-overlay (point) (point-at-eol))
- tx (concat (buffer-substring-no-properties (point) (match-end 4))
- (org-add-props
- (make-string
- (max 0 (- (- 60 (current-column))
- (- (match-end 4) (match-beginning 4))
- (length (org-get-at-bol 'line-prefix))))
- ?\·)
- '(face shadow))
- (org-add-props
- (format " %9s " (org-duration-from-minutes time))
- '(face org-clock-overlay))
- ""))
- (overlay-put ov 'display tx)
- (push ov org-clock-overlays)))
-
-;;;###autoload
-(defun org-clock-remove-overlays (&optional _beg _end noremove)
- "Remove the occur highlights from the buffer.
-If NOREMOVE is nil, remove this function from the
-`before-change-functions' in the current buffer."
- (interactive)
- (unless org-inhibit-highlight-removal
- (mapc #'delete-overlay org-clock-overlays)
- (setq org-clock-overlays nil)
- (unless noremove
- (remove-hook 'before-change-functions
- 'org-clock-remove-overlays 'local))))
-
-(defvar org-state) ;; dynamically scoped into this function
-(defun org-clock-out-if-current ()
- "Clock out if the current entry contains the running clock.
-This is used to stop the clock after a TODO entry is marked DONE,
-and is only done if the variable `org-clock-out-when-done' is not nil."
- (when (and (org-clocking-p)
- org-clock-out-when-done
- (marker-buffer org-clock-marker)
- (or (and (eq t org-clock-out-when-done)
- (member org-state org-done-keywords))
- (and (listp org-clock-out-when-done)
- (member org-state org-clock-out-when-done)))
- (equal (or (buffer-base-buffer (org-clocking-buffer))
- (org-clocking-buffer))
- (or (buffer-base-buffer (current-buffer))
- (current-buffer)))
- (< (point) org-clock-marker)
- (> (save-excursion (outline-next-heading) (point))
- org-clock-marker))
- ;; Clock out, but don't accept a logging message for this.
- (let ((org-log-note-clock-out nil)
- (org-clock-out-switch-to-state nil))
- (org-clock-out))))
-
-(add-hook 'org-after-todo-state-change-hook
- 'org-clock-out-if-current)
-
-;;;###autoload
-(defun org-clock-get-clocktable (&rest props)
- "Get a formatted clocktable with parameters according to PROPS.
-The table is created in a temporary buffer, fully formatted and
-fontified, and then returned."
- ;; Set the defaults
- (setq props (plist-put props :name "clocktable"))
- (unless (plist-member props :maxlevel)
- (setq props (plist-put props :maxlevel 2)))
- (unless (plist-member props :scope)
- (setq props (plist-put props :scope 'agenda)))
- (with-temp-buffer
- (org-mode)
- (org-create-dblock props)
- (org-update-dblock)
- (org-font-lock-ensure)
- (forward-line 2)
- (buffer-substring (point) (progn
- (re-search-forward "^[ \t]*#\\+END" nil t)
- (point-at-bol)))))
-
-;;;###autoload
-(defun org-clock-report (&optional arg)
- "Update or create a table containing a report about clocked time.
-
-If point is inside an existing clocktable block, update it.
-Otherwise, insert a new one.
-
-The new table inherits its properties from the variable
-`org-clock-clocktable-default-properties'. The scope of the
-clocktable, when not specified in the previous variable, is
-`subtree' when the function is called from within a subtree, and
-`file' elsewhere.
-
-When called with a prefix argument, move to the first clock table
-in the buffer and update it."
- (interactive "P")
- (org-clock-remove-overlays)
- (when arg
- (org-find-dblock "clocktable")
- (org-show-entry))
- (pcase (org-in-clocktable-p)
- (`nil
- (org-create-dblock
- (org-combine-plists
- (list :scope (if (org-before-first-heading-p) 'file 'subtree))
- org-clock-clocktable-default-properties
- '(:name "clocktable"))))
- (start (goto-char start)))
- (org-update-dblock))
-
-(defun org-day-of-week (day month year)
- "Returns the day of the week as an integer."
- (nth 6
- (decode-time
- (date-to-time
- (format "%d-%02d-%02dT00:00:00" year month day)))))
-
-(defun org-quarter-to-date (quarter year)
- "Get the date (week day year) of the first day of a given quarter."
- (let (startday)
- (cond
- ((= quarter 1)
- (setq startday (org-day-of-week 1 1 year))
- (cond
- ((= startday 0)
- (list 52 7 (- year 1)))
- ((= startday 6)
- (list 52 6 (- year 1)))
- ((<= startday 4)
- (list 1 startday year))
- ((> startday 4)
- (list 53 startday (- year 1)))
- )
- )
- ((= quarter 2)
- (setq startday (org-day-of-week 1 4 year))
- (cond
- ((= startday 0)
- (list 13 startday year))
- ((< startday 4)
- (list 14 startday year))
- ((>= startday 4)
- (list 13 startday year))
- )
- )
- ((= quarter 3)
- (setq startday (org-day-of-week 1 7 year))
- (cond
- ((= startday 0)
- (list 26 startday year))
- ((< startday 4)
- (list 27 startday year))
- ((>= startday 4)
- (list 26 startday year))
- )
- )
- ((= quarter 4)
- (setq startday (org-day-of-week 1 10 year))
- (cond
- ((= startday 0)
- (list 39 startday year))
- ((<= startday 4)
- (list 40 startday year))
- ((> startday 4)
- (list 39 startday year)))))))
-
-(defun org-clock-special-range (key &optional time as-strings wstart mstart)
- "Return two times bordering a special time range.
-
-KEY is a symbol specifying the range and can be one of `today',
-`yesterday', `thisweek', `lastweek', `thismonth', `lastmonth',
-`thisyear', `lastyear' or `untilnow'. If set to `interactive',
-user is prompted for range boundaries. It can be a string or an
-integer.
-
-By default, a week starts Monday 0:00 and ends Sunday 24:00. The
-range is determined relative to TIME, which defaults to current
-time.
-
-The return value is a list containing two internal times, one for
-the beginning of the range and one for its end, like the ones
-returned by `current time' or `encode-time' and a string used to
-display information. If AS-STRINGS is non-nil, the returned
-times will be formatted strings.
-
-If WSTART is non-nil, use this number to specify the starting day
-of a week (monday is 1). If MSTART is non-nil, use this number
-to specify the starting day of a month (1 is the first day of the
-month). If you can combine both, the month starting day will
-have priority."
- (let* ((tm (decode-time time))
- (m (nth 1 tm))
- (h (nth 2 tm))
- (d (nth 3 tm))
- (month (nth 4 tm))
- (y (nth 5 tm))
- (dow (nth 6 tm))
- (skey (format "%s" key))
- (shift 0)
- (q (cond ((>= month 10) 4)
- ((>= month 7) 3)
- ((>= month 4) 2)
- (t 1)))
- m1 h1 d1 month1 y1 shiftedy shiftedm shiftedq)
- (cond
- ((string-match "\\`[0-9]+\\'" skey)
- (setq y (string-to-number skey) month 1 d 1 key 'year))
- ((string-match "\\`\\([0-9]+\\)-\\([0-9]\\{1,2\\}\\)\\'" skey)
- (setq y (string-to-number (match-string 1 skey))
- month (string-to-number (match-string 2 skey))
- d 1
- key 'month))
- ((string-match "\\`\\([0-9]+\\)-[wW]\\([0-9]\\{1,2\\}\\)\\'" skey)
- (require 'cal-iso)
- (let ((date (calendar-gregorian-from-absolute
- (calendar-iso-to-absolute
- (list (string-to-number (match-string 2 skey))
- 1
- (string-to-number (match-string 1 skey)))))))
- (setq d (nth 1 date)
- month (car date)
- y (nth 2 date)
- dow 1
- key 'week)))
- ((string-match "\\`\\([0-9]+\\)-[qQ]\\([1-4]\\)\\'" skey)
- (require 'cal-iso)
- (setq q (string-to-number (match-string 2 skey)))
- (let ((date (calendar-gregorian-from-absolute
- (calendar-iso-to-absolute
- (org-quarter-to-date
- q (string-to-number (match-string 1 skey)))))))
- (setq d (nth 1 date)
- month (car date)
- y (nth 2 date)
- dow 1
- key 'quarter)))
- ((string-match
- "\\`\\([0-9]+\\)-\\([0-9]\\{1,2\\}\\)-\\([0-9]\\{1,2\\}\\)\\'"
- skey)
- (setq y (string-to-number (match-string 1 skey))
- month (string-to-number (match-string 2 skey))
- d (string-to-number (match-string 3 skey))
- key 'day))
- ((string-match "\\([-+][0-9]+\\)\\'" skey)
- (setq shift (string-to-number (match-string 1 skey))
- key (intern (substring skey 0 (match-beginning 1))))
- (when (and (memq key '(quarter thisq)) (> shift 0))
- (error "Looking forward with quarters isn't implemented"))))
- (when (= shift 0)
- (pcase key
- (`yesterday (setq key 'today shift -1))
- (`lastweek (setq key 'week shift -1))
- (`lastmonth (setq key 'month shift -1))
- (`lastyear (setq key 'year shift -1))
- (`lastq (setq key 'quarter shift -1))))
- ;; Prepare start and end times depending on KEY's type.
- (pcase key
- ((or `day `today) (setq m 0 h 0 h1 24 d (+ d shift)))
- ((or `week `thisweek)
- (let* ((ws (or wstart 1))
- (diff (+ (* -7 shift) (if (= dow 0) (- 7 ws) (- dow ws)))))
- (setq m 0 h 0 d (- d diff) d1 (+ 7 d))))
- ((or `month `thismonth)
- (setq h 0 m 0 d (or mstart 1) month (+ month shift) month1 (1+ month)))
- ((or `quarter `thisq)
- ;; Compute if this shift remains in this year. If not, compute
- ;; how many years and quarters we have to shift (via floor*) and
- ;; compute the shifted years, months and quarters.
- (cond
- ((< (+ (- q 1) shift) 0) ; Shift not in this year.
- (let* ((interval (* -1 (+ (- q 1) shift)))
- ;; Set tmp to ((years to shift) (quarters to shift)).
- (tmp (cl-floor interval 4)))
- ;; Due to the use of floor, 0 quarters actually means 4.
- (if (= 0 (nth 1 tmp))
- (setq shiftedy (- y (nth 0 tmp))
- shiftedm 1
- shiftedq 1)
- (setq shiftedy (- y (+ 1 (nth 0 tmp)))
- shiftedm (- 13 (* 3 (nth 1 tmp)))
- shiftedq (- 5 (nth 1 tmp)))))
- (setq m 0 h 0 d 1 month shiftedm month1 (+ 3 shiftedm) y shiftedy))
- ((> (+ q shift) 0) ; Shift is within this year.
- (setq shiftedq (+ q shift))
- (setq shiftedy y)
- (let ((qshift (* 3 (1- (+ q shift)))))
- (setq m 0 h 0 d 1 month (+ 1 qshift) month1 (+ 4 qshift))))))
- ((or `year `thisyear)
- (setq m 0 h 0 d 1 month 1 y (+ y shift) y1 (1+ y)))
- ((or `interactive `untilnow)) ; Special cases, ignore them.
- (_ (user-error "No such time block %s" key)))
- ;; Format start and end times according to AS-STRINGS.
- (let* ((start (pcase key
- (`interactive (org-read-date nil t nil "Range start? "))
- ;; In theory, all clocks started after the dawn of
- ;; humanity.
- (`untilnow (encode-time 0 0 0 0 0 -50000))
- (_ (encode-time 0 m h d month y))))
- (end (pcase key
- (`interactive (org-read-date nil t nil "Range end? "))
- (`untilnow (current-time))
- (_ (encode-time 0
- (or m1 m)
- (or h1 h)
- (or d1 d)
- (or month1 month)
- (or y1 y)))))
- (text
- (pcase key
- ((or `day `today) (format-time-string "%A, %B %d, %Y" start))
- ((or `week `thisweek) (format-time-string "week %G-W%V" start))
- ((or `month `thismonth) (format-time-string "%B %Y" start))
- ((or `year `thisyear) (format-time-string "the year %Y" start))
- ((or `quarter `thisq)
- (concat (org-count-quarter shiftedq)
- " quarter of " (number-to-string shiftedy)))
- (`interactive "(Range interactively set)")
- (`untilnow "now"))))
- (if (not as-strings) (list start end text)
- (let ((f (cdr org-time-stamp-formats)))
- (list (format-time-string f start)
- (format-time-string f end)
- text))))))
-
-(defun org-count-quarter (n)
- (cond
- ((= n 1) "1st")
- ((= n 2) "2nd")
- ((= n 3) "3rd")
- ((= n 4) "4th")))
-
-;;;###autoload
-(defun org-clocktable-shift (dir n)
- "Try to shift the :block date of the clocktable at point.
-Point must be in the #+BEGIN: line of a clocktable, or this function
-will throw an error.
-DIR is a direction, a symbol `left', `right', `up', or `down'.
-Both `left' and `down' shift the block toward the past, `up' and `right'
-push it toward the future.
-N is the number of shift steps to take. The size of the step depends on
-the currently selected interval size."
- (setq n (prefix-numeric-value n))
- (and (memq dir '(left down)) (setq n (- n)))
- (save-excursion
- (goto-char (point-at-bol))
- (if (not (looking-at "^[ \t]*#\\+BEGIN:[ \t]+clocktable\\>.*?:block[ \t]+\\(\\S-+\\)"))
- (error "Line needs a :block definition before this command works")
- (let* ((b (match-beginning 1)) (e (match-end 1))
- (s (match-string 1))
- block shift ins y mw d date wp m)
- (cond
- ((equal s "yesterday") (setq s "today-1"))
- ((equal s "lastweek") (setq s "thisweek-1"))
- ((equal s "lastmonth") (setq s "thismonth-1"))
- ((equal s "lastyear") (setq s "thisyear-1"))
- ((equal s "lastq") (setq s "thisq-1")))
-
- (cond
- ((string-match "^\\(today\\|thisweek\\|thismonth\\|thisyear\\|thisq\\)\\([-+][0-9]+\\)?$" s)
- (setq block (match-string 1 s)
- shift (if (match-end 2)
- (string-to-number (match-string 2 s))
- 0))
- (setq shift (+ shift n))
- (setq ins (if (= shift 0) block (format "%s%+d" block shift))))
- ((string-match "\\([0-9]+\\)\\(-\\([wWqQ]?\\)\\([0-9]\\{1,2\\}\\)\\(-\\([0-9]\\{1,2\\}\\)\\)?\\)?" s)
- ;; 1 1 2 3 3 4 4 5 6 6 5 2
- (setq y (string-to-number (match-string 1 s))
- wp (and (match-end 3) (match-string 3 s))
- mw (and (match-end 4) (string-to-number (match-string 4 s)))
- d (and (match-end 6) (string-to-number (match-string 6 s))))
- (cond
- (d (setq ins (format-time-string
- "%Y-%m-%d"
- (encode-time 0 0 0 (+ d n) m y))))
- ((and wp (string-match "w\\|W" wp) mw (> (length wp) 0))
- (require 'cal-iso)
- (setq date (calendar-gregorian-from-absolute
- (calendar-iso-to-absolute (list (+ mw n) 1 y))))
- (setq ins (format-time-string
- "%G-W%V"
- (encode-time 0 0 0 (nth 1 date) (car date) (nth 2 date)))))
- ((and wp (string-match "q\\|Q" wp) mw (> (length wp) 0))
- (require 'cal-iso)
- ; if the 4th + 1 quarter is requested we flip to the 1st quarter of the next year
- (if (> (+ mw n) 4)
- (setq mw 0
- y (+ 1 y))
- ())
- ; if the 1st - 1 quarter is requested we flip to the 4th quarter of the previous year
- (if (= (+ mw n) 0)
- (setq mw 5
- y (- y 1))
- ())
- (setq date (calendar-gregorian-from-absolute
- (calendar-iso-to-absolute (org-quarter-to-date (+ mw n) y))))
- (setq ins (format-time-string
- (concat (number-to-string y) "-Q" (number-to-string (+ mw n)))
- (encode-time 0 0 0 (nth 1 date) (car date) (nth 2 date)))))
- (mw
- (setq ins (format-time-string
- "%Y-%m"
- (encode-time 0 0 0 1 (+ mw n) y))))
- (y
- (setq ins (number-to-string (+ y n))))))
- (t (error "Cannot shift clocktable block")))
- (when ins
- (goto-char b)
- (insert ins)
- (delete-region (point) (+ (point) (- e b)))
- (beginning-of-line 1)
- (org-update-dblock)
- t)))))
-
-;;;###autoload
-(defun org-dblock-write:clocktable (params)
- "Write the standard clocktable."
- (setq params (org-combine-plists org-clocktable-defaults params))
- (catch 'exit
- (let* ((scope (plist-get params :scope))
- (files (pcase scope
- (`agenda
- (org-agenda-files t))
- (`agenda-with-archives
- (org-add-archive-files (org-agenda-files t)))
- (`file-with-archives
- (and buffer-file-name
- (org-add-archive-files (list buffer-file-name))))
- ((pred functionp) (funcall scope))
- ((pred consp) scope)
- (_ (or (buffer-file-name) (current-buffer)))))
- (block (plist-get params :block))
- (ts (plist-get params :tstart))
- (te (plist-get params :tend))
- (ws (plist-get params :wstart))
- (ms (plist-get params :mstart))
- (step (plist-get params :step))
- (formatter (or (plist-get params :formatter)
- org-clock-clocktable-formatter
- 'org-clocktable-write-default))
- cc)
- ;; Check if we need to do steps
- (when block
- ;; Get the range text for the header
- (setq cc (org-clock-special-range block nil t ws ms)
- ts (car cc)
- te (nth 1 cc)))
- (when step
- ;; Write many tables, in steps
- (unless (or block (and ts te))
- (error "Clocktable `:step' can only be used with `:block' or `:tstart,:end'"))
- (org-clocktable-steps params)
- (throw 'exit nil))
-
- (org-agenda-prepare-buffers (if (consp files) files (list files)))
-
- (let ((origin (point))
- (tables
- (if (consp files)
- (mapcar (lambda (file)
- (with-current-buffer (find-buffer-visiting file)
- (save-excursion
- (save-restriction
- (org-clock-get-table-data file params)))))
- files)
- ;; Get the right restriction for the scope.
- (save-restriction
- (cond
- ((not scope)) ;use the restriction as it is now
- ((eq scope 'file) (widen))
- ((eq scope 'subtree) (org-narrow-to-subtree))
- ((eq scope 'tree)
- (while (org-up-heading-safe))
- (org-narrow-to-subtree))
- ((and (symbolp scope)
- (string-match "\\`tree\\([0-9]+\\)\\'"
- (symbol-name scope)))
- (let ((level (string-to-number
- (match-string 1 (symbol-name scope)))))
- (catch 'exit
- (while (org-up-heading-safe)
- (looking-at org-outline-regexp)
- (when (<= (org-reduced-level (funcall outline-level))
- level)
- (throw 'exit nil))))
- (org-narrow-to-subtree))))
- (list (org-clock-get-table-data nil params)))))
- (multifile
- ;; Even though `file-with-archives' can consist of
- ;; multiple files, we consider this is one extended file
- ;; instead.
- (and (consp files) (not (eq scope 'file-with-archives)))))
-
- (funcall formatter
- origin
- tables
- (org-combine-plists params `(:multifile ,multifile)))))))
-
-(defun org-clocktable-write-default (ipos tables params)
- "Write out a clock table at position IPOS in the current buffer.
-TABLES is a list of tables with clocking data as produced by
-`org-clock-get-table-data'. PARAMS is the parameter property list obtained
-from the dynamic block definition."
- ;; This function looks quite complicated, mainly because there are a
- ;; lot of options which can add or remove columns. I have massively
- ;; commented this function, the I hope it is understandable. If
- ;; someone wants to write their own special formatter, this maybe
- ;; much easier because there can be a fixed format with a
- ;; well-defined number of columns...
- (let* ((lang (or (plist-get params :lang) "en"))
- (multifile (plist-get params :multifile))
- (block (plist-get params :block))
- (sort (plist-get params :sort))
- (header (plist-get params :header))
- (link (plist-get params :link))
- (maxlevel (or (plist-get params :maxlevel) 3))
- (emph (plist-get params :emphasize))
- (compact? (plist-get params :compact))
- (narrow (or (plist-get params :narrow) (and compact? '40!)))
- (level? (and (not compact?) (plist-get params :level)))
- (timestamp (plist-get params :timestamp))
- (properties (plist-get params :properties))
- (time-columns
- (if (or compact? (< maxlevel 2)) 1
- ;; Deepest headline level is a hard limit for the number
- ;; of time columns.
- (let ((levels
- (cl-mapcan
- (lambda (table)
- (pcase table
- (`(,_ ,(and (pred wholenump) (pred (/= 0))) ,entries)
- (mapcar #'car entries))))
- tables)))
- (min maxlevel
- (or (plist-get params :tcolumns) 100)
- (if (null levels) 1 (apply #'max levels))))))
- (indent (or compact? (plist-get params :indent)))
- (formula (plist-get params :formula))
- (case-fold-search t)
- (total-time (apply #'+ (mapcar #'cadr tables)))
- recalc narrow-cut-p)
-
- (when (and narrow (integerp narrow) link)
- ;; We cannot have both integer narrow and link.
- (message "Using hard narrowing in clocktable to allow for links")
- (setq narrow (intern (format "%d!" narrow))))
-
- (pcase narrow
- ((or `nil (pred integerp)) nil) ;nothing to do
- ((and (pred symbolp)
- (guard (string-match-p "\\`[0-9]+!\\'" (symbol-name narrow))))
- (setq narrow-cut-p t)
- (setq narrow (string-to-number (symbol-name narrow))))
- (_ (error "Invalid value %s of :narrow property in clock table" narrow)))
-
- ;; Now we need to output this table stuff.
- (goto-char ipos)
-
- ;; Insert the text *before* the actual table.
- (insert-before-markers
- (or header
- ;; Format the standard header.
- (format "#+CAPTION: %s %s%s\n"
- (org-clock--translate "Clock summary at" lang)
- (format-time-string (org-time-stamp-format t t))
- (if block
- (let ((range-text
- (nth 2 (org-clock-special-range
- block nil t
- (plist-get params :wstart)
- (plist-get params :mstart)))))
- (format ", for %s." range-text))
- ""))))
-
- ;; Insert the narrowing line
- (when (and narrow (integerp narrow) (not narrow-cut-p))
- (insert-before-markers
- "|" ;table line starter
- (if multifile "|" "") ;file column, maybe
- (if level? "|" "") ;level column, maybe
- (if timestamp "|" "") ;timestamp column, maybe
- (if properties ;properties columns, maybe
- (make-string (length properties) ?|)
- "")
- (format "<%d>| |\n" narrow))) ;headline and time columns
-
- ;; Insert the table header line
- (insert-before-markers
- "|" ;table line starter
- (if multifile ;file column, maybe
- (concat (org-clock--translate "File" lang) "|")
- "")
- (if level? ;level column, maybe
- (concat (org-clock--translate "L" lang) "|")
- "")
- (if timestamp ;timestamp column, maybe
- (concat (org-clock--translate "Timestamp" lang) "|")
- "")
- (if properties ;properties columns, maybe
- (concat (mapconcat #'identity properties "|") "|")
- "")
- (concat (org-clock--translate "Headline" lang)"|")
- (concat (org-clock--translate "Time" lang) "|")
- (make-string (max 0 (1- time-columns)) ?|) ;other time columns
- (if (eq formula '%) "%|\n" "\n"))
-
- ;; Insert the total time in the table
- (insert-before-markers
- "|-\n" ;a hline
- "|" ;table line starter
- (if multifile (format "| %s " (org-clock--translate "ALL" lang)) "")
- ;file column, maybe
- (if level? "|" "") ;level column, maybe
- (if timestamp "|" "") ;timestamp column, maybe
- (make-string (length properties) ?|) ;properties columns, maybe
- (concat (format org-clock-total-time-cell-format
- (org-clock--translate "Total time" lang))
- "| ")
- (format org-clock-total-time-cell-format
- (org-duration-from-minutes (or total-time 0))) ;time
- "|"
- (make-string (max 0 (1- time-columns)) ?|)
- (cond ((not (eq formula '%)) "")
- ((or (not total-time) (= total-time 0)) "0.0|")
- (t "100.0|"))
- "\n")
-
- ;; Now iterate over the tables and insert the data but only if any
- ;; time has been collected.
- (when (and total-time (> total-time 0))
- (pcase-dolist (`(,file-name ,file-time ,entries) tables)
- (when (or (and file-time (> file-time 0))
- (not (plist-get params :fileskip0)))
- (insert-before-markers "|-\n") ;hline at new file
- ;; First the file time, if we have multiple files.
- (when multifile
- ;; Summarize the time collected from this file.
- (insert-before-markers
- (format (concat "| %s %s | %s%s"
- (format org-clock-file-time-cell-format
- (org-clock--translate "File time" lang))
- " | *%s*|\n")
- (file-name-nondirectory file-name)
- (if level? "| " "") ;level column, maybe
- (if timestamp "| " "") ;timestamp column, maybe
- (if properties ;properties columns, maybe
- (make-string (length properties) ?|)
- "")
- (org-duration-from-minutes file-time)))) ;time
-
- ;; Get the list of node entries and iterate over it
- (when (> maxlevel 0)
- (pcase-dolist (`(,level ,headline ,ts ,time ,props) entries)
- (when narrow-cut-p
- (setq headline
- (if (and (string-match
- (format "\\`%s\\'" org-bracket-link-regexp)
- headline)
- (match-end 3))
- (format "[[%s][%s]]"
- (match-string 1 headline)
- (org-shorten-string (match-string 3 headline)
- narrow))
- (org-shorten-string headline narrow))))
- (cl-flet ((format-field (f) (format (cond ((not emph) "%s |")
- ((= level 1) "*%s* |")
- ((= level 2) "/%s/ |")
- (t "%s |"))
- f)))
- (insert-before-markers
- "|" ;start the table line
- (if multifile "|" "") ;free space for file name column?
- (if level? (format "%d|" level) "") ;level, maybe
- (if timestamp (concat ts "|") "") ;timestamp, maybe
- (if properties ;properties columns, maybe
- (concat (mapconcat (lambda (p) (or (cdr (assoc p props)) ""))
- properties
- "|")
- "|")
- "")
- (if indent ;indentation
- (org-clocktable-indent-string level)
- "")
- (format-field headline)
- ;; Empty fields for higher levels.
- (make-string (max 0 (1- (min time-columns level))) ?|)
- (format-field (org-duration-from-minutes time))
- (make-string (max 0 (- time-columns level)) ?|)
- (if (eq formula '%)
- (format "%.1f |" (* 100 (/ time (float total-time))))
- "")
- "\n")))))))
- (delete-char -1)
- (cond
- ;; Possibly rescue old formula?
- ((or (not formula) (eq formula '%))
- (let ((contents (org-string-nw-p (plist-get params :content))))
- (when (and contents (string-match "^\\([ \t]*#\\+tblfm:.*\\)" contents))
- (setq recalc t)
- (insert "\n" (match-string 1 contents))
- (beginning-of-line 0))))
- ;; Insert specified formula line.
- ((stringp formula)
- (insert "\n#+TBLFM: " formula)
- (setq recalc t))
- (t
- (user-error "Invalid :formula parameter in clocktable")))
- ;; Back to beginning, align the table, recalculate if necessary.
- (goto-char ipos)
- (skip-chars-forward "^|")
- (org-table-align)
- (when org-hide-emphasis-markers
- ;; We need to align a second time.
- (org-table-align))
- (when sort
- (save-excursion
- (org-table-goto-line 3)
- (org-table-goto-column (car sort))
- (org-table-sort-lines nil (cdr sort))))
- (when recalc (org-table-recalculate 'all))
- total-time))
-
-(defun org-clocktable-indent-string (level)
- "Return indentation string according to LEVEL.
-LEVEL is an integer. Indent by two spaces per level above 1."
- (if (= level 1) ""
- (concat "\\_" (make-string (* 2 (1- level)) ?\s))))
-
-(defun org-clocktable-steps (params)
- "Step through the range to make a number of clock tables."
- (let* ((ts (plist-get params :tstart))
- (te (plist-get params :tend))
- (ws (plist-get params :wstart))
- (ms (plist-get params :mstart))
- (step0 (plist-get params :step))
- (step (cdr (assq step0 '((day . 86400) (week . 604800)))))
- (stepskip0 (plist-get params :stepskip0))
- (block (plist-get params :block))
- cc tsb)
- (when block
- (setq cc (org-clock-special-range block nil t ws ms)
- ts (car cc)
- te (nth 1 cc)))
- (cond
- ((numberp ts)
- ;; If ts is a number, it's an absolute day number from
- ;; org-agenda.
- (pcase-let ((`(,month ,day ,year) (calendar-gregorian-from-absolute ts)))
- (setq ts (float-time (encode-time 0 0 0 day month year)))))
- (ts
- (setq ts (float-time (apply #'encode-time (org-parse-time-string ts))))))
- (cond
- ((numberp te)
- ;; Likewise for te.
- (pcase-let ((`(,month ,day ,year) (calendar-gregorian-from-absolute te)))
- (setq te (float-time (encode-time 0 0 0 day month year)))))
- (te
- (setq te (float-time (apply #'encode-time (org-parse-time-string te))))))
- (setq tsb
- (if (eq step0 'week)
- (let ((dow (nth 6 (decode-time (seconds-to-time ts)))))
- (if (<= dow ws) ts
- (- ts (* 86400 (- dow ws)))))
- ts))
- (while (< tsb te)
- (unless (bolp) (insert "\n"))
- (let ((start-time (seconds-to-time (max tsb ts))))
- (cl-incf tsb (let ((dow (nth 6 (decode-time (seconds-to-time tsb)))))
- (if (or (eq step0 'day)
- (= dow ws))
- step
- (* 86400 (- ws dow)))))
- (insert "\n"
- (if (eq step0 'day) "Daily report: "
- "Weekly report starting on: ")
- (format-time-string (org-time-stamp-format nil t) start-time)
- "\n")
- (let ((table-begin (line-beginning-position 0))
- (step-time
- (org-dblock-write:clocktable
- (org-combine-plists
- params
- (list
- :header "" :step nil :block nil
- :tstart (format-time-string (org-time-stamp-format t t)
- start-time)
- :tend (format-time-string (org-time-stamp-format t t)
- (seconds-to-time (min te tsb))))))))
- (re-search-forward "^[ \t]*#\\+END:")
- (when (and stepskip0 (equal step-time 0))
- ;; Remove the empty table
- (delete-region (line-beginning-position) table-begin))))
- (end-of-line 0))))
-
-(defun org-clock-get-table-data (file params)
- "Get the clocktable data for file FILE, with parameters PARAMS.
-FILE is only for identification - this function assumes that
-the correct buffer is current, and that the wanted restriction is
-in place.
-The return value will be a list with the file name and the total
-file time (in minutes) as 1st and 2nd elements. The third element
-of this list will be a list of headline entries. Each entry has the
-following structure:
-
- (LEVEL HEADLINE TIMESTAMP TIME PROPERTIES)
-
-LEVEL: The level of the headline, as an integer. This will be
- the reduced level, so 1,2,3,... even if only odd levels
- are being used.
-HEADLINE: The text of the headline. Depending on PARAMS, this may
- already be formatted like a link.
-TIMESTAMP: If PARAMS require it, this will be a time stamp found in the
- entry, any of SCHEDULED, DEADLINE, NORMAL, or first inactive,
- in this sequence.
-TIME: The sum of all time spend in this tree, in minutes. This time
- will of cause be restricted to the time block and tags match
- specified in PARAMS.
-PROPERTIES: The list properties specified in the `:properties' parameter
- along with their value, as an alist following the pattern
- (NAME . VALUE)."
- (let* ((maxlevel (or (plist-get params :maxlevel) 3))
- (timestamp (plist-get params :timestamp))
- (ts (plist-get params :tstart))
- (te (plist-get params :tend))
- (ws (plist-get params :wstart))
- (ms (plist-get params :mstart))
- (block (plist-get params :block))
- (link (plist-get params :link))
- (tags (plist-get params :tags))
- (properties (plist-get params :properties))
- (inherit-property-p (plist-get params :inherit-props))
- (matcher (and tags (cdr (org-make-tags-matcher tags))))
- cc st p tbl)
-
- (setq org-clock-file-total-minutes nil)
- (when block
- (setq cc (org-clock-special-range block nil t ws ms)
- ts (car cc)
- te (nth 1 cc)))
- (when (integerp ts) (setq ts (calendar-gregorian-from-absolute ts)))
- (when (integerp te) (setq te (calendar-gregorian-from-absolute te)))
- (when (and ts (listp ts))
- (setq ts (format "%4d-%02d-%02d" (nth 2 ts) (car ts) (nth 1 ts))))
- (when (and te (listp te))
- (setq te (format "%4d-%02d-%02d" (nth 2 te) (car te) (nth 1 te))))
- ;; Now the times are strings we can parse.
- (if ts (setq ts (org-matcher-time ts)))
- (if te (setq te (org-matcher-time te)))
- (save-excursion
- (org-clock-sum ts te
- (when matcher
- `(lambda ()
- (let* ((tags-list (org-get-tags-at))
- (org-scanner-tags tags-list)
- (org-trust-scanner-tags t))
- (funcall ,matcher nil tags-list nil)))))
- (goto-char (point-min))
- (setq st t)
- (while (or (and (bobp) (prog1 st (setq st nil))
- (get-text-property (point) :org-clock-minutes)
- (setq p (point-min)))
- (setq p (next-single-property-change
- (point) :org-clock-minutes)))
- (goto-char p)
- (let ((time (get-text-property p :org-clock-minutes)))
- (when (and time (> time 0) (org-at-heading-p))
- (let ((level (org-reduced-level (org-current-level))))
- (when (<= level maxlevel)
- (let* ((headline (org-get-heading t t t t))
- (hdl
- (if (not link) headline
- (let ((search
- (org-make-org-heading-search-string headline)))
- (org-make-link-string
- (if (not (buffer-file-name)) search
- (format "file:%s::%s" (buffer-file-name) search))
- ;; Prune statistics cookies. Replace
- ;; links with their description, or
- ;; a plain link if there is none.
- (org-trim
- (org-link-display-format
- (replace-regexp-in-string
- "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" ""
- headline)))))))
- (tsp
- (and timestamp
- (cl-some (lambda (p) (org-entry-get (point) p))
- '("SCHEDULED" "DEADLINE" "TIMESTAMP"
- "TIMESTAMP_IA"))))
- (props
- (and properties
- (delq nil
- (mapcar
- (lambda (p)
- (let ((v (org-entry-get
- (point) p inherit-property-p)))
- (and v (cons p v))))
- properties)))))
- (push (list level hdl tsp time props) tbl)))))))
- (list file org-clock-file-total-minutes (nreverse tbl)))))
-
-;; Saving and loading the clock
-
-(defvar org-clock-loaded nil
- "Was the clock file loaded?")
-
-;;;###autoload
-(defun org-clock-update-time-maybe ()
- "If this is a CLOCK line, update it and return t.
-Otherwise, return nil."
- (interactive)
- (save-excursion
- (beginning-of-line 1)
- (skip-chars-forward " \t")
- (when (looking-at org-clock-string)
- (let ((re (concat "[ \t]*" org-clock-string
- " *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
- "\\([ \t]*=>.*\\)?\\)?"))
- ts te h m s neg)
- (cond
- ((not (looking-at re))
- nil)
- ((not (match-end 2))
- (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
- (> org-clock-marker (point))
- (<= org-clock-marker (point-at-eol)))
- ;; The clock is running here
- (setq org-clock-start-time
- (apply 'encode-time
- (org-parse-time-string (match-string 1))))
- (org-clock-update-mode-line)))
- (t
- (and (match-end 4) (delete-region (match-beginning 4) (match-end 4)))
- (end-of-line 1)
- (setq ts (match-string 1)
- te (match-string 3))
- (setq s (- (float-time
- (apply #'encode-time (org-parse-time-string te)))
- (float-time
- (apply #'encode-time (org-parse-time-string ts))))
- neg (< s 0)
- s (abs s)
- h (floor (/ s 3600))
- s (- s (* 3600 h))
- m (floor (/ s 60))
- s (- s (* 60 s)))
- (insert " => " (format (if neg "-%d:%02d" "%2d:%02d") h m))
- t))))))
-
-(defun org-clock-save ()
- "Persist various clock-related data to disk.
-The details of what will be saved are regulated by the variable
-`org-clock-persist'."
- (when (and org-clock-persist
- (or org-clock-loaded
- org-clock-has-been-used
- (not (file-exists-p org-clock-persist-file))))
- (with-temp-file org-clock-persist-file
- (insert (format ";; %s - %s at %s\n"
- (file-name-nondirectory org-clock-persist-file)
- (system-name)
- (format-time-string (org-time-stamp-format t))))
- ;; Store clock to be resumed.
- (when (and (memq org-clock-persist '(t clock))
- (let ((b (org-base-buffer (org-clocking-buffer))))
- (and (buffer-live-p b)
- (buffer-file-name b)
- (or (not org-clock-persist-query-save)
- (y-or-n-p (format "Save current clock (%s) "
- org-clock-heading))))))
- (insert
- (format "(setq org-clock-stored-resume-clock '(%S . %d))\n"
- (buffer-file-name (org-base-buffer (org-clocking-buffer)))
- (marker-position org-clock-marker))))
- ;; Store clocked task history. Tasks are stored reversed to
- ;; make reading simpler.
- (when (and (memq org-clock-persist '(t history))
- org-clock-history)
- (insert
- (format "(setq org-clock-stored-history '(%s))\n"
- (mapconcat
- (lambda (m)
- (let ((b (org-base-buffer (marker-buffer m))))
- (when (and (buffer-live-p b)
- (buffer-file-name b))
- (format "(%S . %d)"
- (buffer-file-name b)
- (marker-position m)))))
- (reverse org-clock-history)
- " ")))))))
-
-(defun org-clock-load ()
- "Load clock-related data from disk, maybe resuming a stored clock."
- (when (and org-clock-persist (not org-clock-loaded))
- (if (not (file-readable-p org-clock-persist-file))
- (message "Not restoring clock data; %S not found" org-clock-persist-file)
- (message "Restoring clock data")
- ;; Load history.
- (load-file org-clock-persist-file)
- (setq org-clock-loaded t)
- (pcase-dolist (`(,(and file (pred file-exists-p)) . ,position)
- org-clock-stored-history)
- (org-clock-history-push position (find-file-noselect file)))
- ;; Resume clock.
- (pcase org-clock-stored-resume-clock
- (`(,(and file (pred file-exists-p)) . ,position)
- (with-current-buffer (find-file-noselect file)
- (when (or (not org-clock-persist-query-resume)
- (y-or-n-p (format "Resume clock (%s) "
- (save-excursion
- (goto-char position)
- (org-get-heading t t)))))
- (goto-char position)
- (let ((org-clock-in-resume 'auto-restart)
- (org-clock-auto-clock-resolution nil))
- (org-clock-in)
- (when (org-invisible-p) (org-show-context))))))
- (_ nil)))))
-
-;; Suggested bindings
-(org-defkey org-mode-map "\C-c\C-x\C-e" 'org-clock-modify-effort-estimate)
-
-(provide 'org-clock)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; coding: utf-8
-;; End:
-
-;;; org-clock.el ends here
diff --git a/elpa/org-9.1.14/org-clock.elc b/elpa/org-9.1.14/org-clock.elc
deleted file mode 100644
index 328198a..0000000
--- a/elpa/org-9.1.14/org-clock.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-colview.el b/elpa/org-9.1.14/org-colview.el
deleted file mode 100644
index cb5c091..0000000
--- a/elpa/org-9.1.14/org-colview.el
+++ /dev/null
@@ -1,1636 +0,0 @@
-;;; org-colview.el --- Column View in Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the column view for Org.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-
-(declare-function org-agenda-redo "org-agenda" (&optional all))
-(declare-function org-agenda-do-context-action "org-agenda" ())
-(declare-function org-clock-sum-today "org-clock" (&optional headline-filter))
-(declare-function org-element-extract-element "org-element" (element))
-(declare-function org-element-interpret-data "org-element" (data))
-(declare-function org-element-map "org-element" (data types fun &optional info first-match no-recursion with-affiliated))
-(declare-function org-element-parse-secondary-string "org-element" (string restriction &optional parent))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-restriction "org-element" (element))
-(declare-function org-element-type "org-element" (element))
-
-(defvar org-agenda-columns-add-appointments-to-effort-sum)
-(defvar org-agenda-columns-compute-summary-properties)
-(defvar org-agenda-columns-show-summaries)
-(defvar org-agenda-view-columns-initially)
-(defvar org-inlinetask-min-level)
-
-
-;;; Configuration
-
-(defcustom org-columns-modify-value-for-display-function nil
- "Function that modifies values for display in column view.
-For example, it can be used to cut out a certain part from a time stamp.
-The function must take 2 arguments:
-
-column-title The title of the column (*not* the property name)
-value The value that should be modified.
-
-The function should return the value that should be displayed,
-or nil if the normal value should be used."
- :group 'org-properties
- :type '(choice (const nil) (function)))
-
-(defcustom org-columns-summary-types nil
- "Alist between operators and summarize functions.
-
-Each association follows the pattern (LABEL . SUMMARIZE) where
-
- LABEL is a string used in #+COLUMNS definition describing the
- summary type. It can contain any character but \"}\". It is
- case-sensitive.
-
- SUMMARIZE is a function called with two arguments. The first
- argument is a non-empty list of values, as non-empty strings.
- The second one is a format string or nil. It has to return
- a string summarizing the list of values.
-
-Note that the return value can become one value for an higher
-order summary, so the function is expected to handle its own
-output.
-
-Types defined in this variable take precedence over those defined
-in `org-columns-summary-types-default', which see."
- :group 'org-properties
- :version "26.1"
- :package-version '(Org . "9.0")
- :type '(alist :key-type (string :tag " Label")
- :value-type (function :tag "Summarize")))
-
-
-
-;;; Column View
-
-(defvar-local org-columns-overlays nil
- "Holds the list of current column overlays.")
-
-(defvar-local org-columns-current-fmt nil
- "Local variable, holds the currently active column format.")
-
-(defvar-local org-columns-current-fmt-compiled nil
- "Local variable, holds the currently active column format.
-This is the compiled version of the format.")
-
-(defvar-local org-columns-current-maxwidths nil
- "Currently active maximum column widths, as a vector.")
-
-(defvar-local org-columns-begin-marker nil
- "Points to the position where last a column creation command was called.")
-
-(defvar-local org-columns-top-level-marker nil
- "Points to the position where current columns region starts.")
-
-(defvar org-columns--time 0.0
- "Number of seconds since the epoch, as a floating point number.")
-
-(defvar org-columns-map (make-sparse-keymap)
- "The keymap valid in column display.")
-
-(defconst org-columns-summary-types-default
- '(("+" . org-columns--summary-sum)
- ("$" . org-columns--summary-currencies)
- ("X" . org-columns--summary-checkbox)
- ("X/" . org-columns--summary-checkbox-count)
- ("X%" . org-columns--summary-checkbox-percent)
- ("max" . org-columns--summary-max)
- ("mean" . org-columns--summary-mean)
- ("min" . org-columns--summary-min)
- (":" . org-columns--summary-sum-times)
- (":max" . org-columns--summary-max-time)
- (":mean" . org-columns--summary-mean-time)
- (":min" . org-columns--summary-min-time)
- ("@max" . org-columns--summary-max-age)
- ("@mean" . org-columns--summary-mean-age)
- ("@min" . org-columns--summary-min-age)
- ("est+" . org-columns--summary-estimate))
- "Map operators to summarize functions.
-See `org-columns-summary-types' for details.")
-
-(defun org-columns-content ()
- "Switch to contents view while in columns view."
- (interactive)
- (org-overview)
- (org-content))
-
-(org-defkey org-columns-map "c" 'org-columns-content)
-(org-defkey org-columns-map "o" 'org-overview)
-(org-defkey org-columns-map "e" 'org-columns-edit-value)
-(org-defkey org-columns-map "\C-c\C-t" 'org-columns-todo)
-(org-defkey org-columns-map "\C-c\C-c" 'org-columns-set-tags-or-toggle)
-(org-defkey org-columns-map "\C-c\C-o" 'org-columns-open-link)
-(org-defkey org-columns-map "v" 'org-columns-show-value)
-(org-defkey org-columns-map "q" 'org-columns-quit)
-(org-defkey org-columns-map "r" 'org-columns-redo)
-(org-defkey org-columns-map "g" 'org-columns-redo)
-(org-defkey org-columns-map [left] 'backward-char)
-(org-defkey org-columns-map "\M-b" 'backward-char)
-(org-defkey org-columns-map "a" 'org-columns-edit-allowed)
-(org-defkey org-columns-map "s" 'org-columns-edit-attributes)
-(org-defkey org-columns-map "\M-f"
- (lambda () (interactive) (goto-char (1+ (point)))))
-(org-defkey org-columns-map [right]
- (lambda () (interactive) (goto-char (1+ (point)))))
-(org-defkey org-columns-map [down]
- (lambda () (interactive)
- (let ((col (current-column)))
- (beginning-of-line 2)
- (while (and (org-invisible-p2) (not (eobp)))
- (beginning-of-line 2))
- (move-to-column col)
- (if (eq major-mode 'org-agenda-mode)
- (org-agenda-do-context-action)))))
-(org-defkey org-columns-map [up]
- (lambda () (interactive)
- (let ((col (current-column)))
- (beginning-of-line 0)
- (while (and (org-invisible-p2) (not (bobp)))
- (beginning-of-line 0))
- (move-to-column col)
- (if (eq major-mode 'org-agenda-mode)
- (org-agenda-do-context-action)))))
-(org-defkey org-columns-map [(shift right)] 'org-columns-next-allowed-value)
-(org-defkey org-columns-map "n" 'org-columns-next-allowed-value)
-(org-defkey org-columns-map [(shift left)] 'org-columns-previous-allowed-value)
-(org-defkey org-columns-map "p" 'org-columns-previous-allowed-value)
-(org-defkey org-columns-map "<" 'org-columns-narrow)
-(org-defkey org-columns-map ">" 'org-columns-widen)
-(org-defkey org-columns-map [(meta right)] 'org-columns-move-right)
-(org-defkey org-columns-map [(meta left)] 'org-columns-move-left)
-(org-defkey org-columns-map [(shift meta right)] 'org-columns-new)
-(org-defkey org-columns-map [(shift meta left)] 'org-columns-delete)
-(dotimes (i 10)
- (org-defkey org-columns-map (number-to-string i)
- `(lambda () (interactive)
- (org-columns-next-allowed-value nil ,i))))
-
-(easy-menu-define org-columns-menu org-columns-map "Org Column Menu"
- '("Column"
- ["Edit property" org-columns-edit-value t]
- ["Next allowed value" org-columns-next-allowed-value t]
- ["Previous allowed value" org-columns-previous-allowed-value t]
- ["Show full value" org-columns-show-value t]
- ["Edit allowed values" org-columns-edit-allowed t]
- "--"
- ["Edit column attributes" org-columns-edit-attributes t]
- ["Increase column width" org-columns-widen t]
- ["Decrease column width" org-columns-narrow t]
- "--"
- ["Move column right" org-columns-move-right t]
- ["Move column left" org-columns-move-left t]
- ["Add column" org-columns-new t]
- ["Delete column" org-columns-delete t]
- "--"
- ["CONTENTS" org-columns-content t]
- ["OVERVIEW" org-overview t]
- ["Refresh columns display" org-columns-redo t]
- "--"
- ["Open link" org-columns-open-link t]
- "--"
- ["Quit" org-columns-quit t]))
-
-(defun org-columns--displayed-value (spec value)
- "Return displayed value for specification SPEC in current entry.
-SPEC is a column format specification as stored in
-`org-columns-current-fmt-compiled'. VALUE is the real value to
-display, as a string."
- (or (and (functionp org-columns-modify-value-for-display-function)
- (funcall org-columns-modify-value-for-display-function
- (nth 1 spec) ;column name
- value))
- (pcase spec
- (`("ITEM" . ,_)
- (concat (make-string (1- (org-current-level))
- (if org-hide-leading-stars ?\s ?*))
- "* "
- (org-columns-compact-links value)))
- (`(,_ ,_ ,_ ,_ nil) value)
- ;; If PRINTF is set, assume we are displaying a number and
- ;; obey to the format string.
- (`(,_ ,_ ,_ ,_ ,printf) (format printf (string-to-number value)))
- (_ (error "Invalid column specification format: %S" spec)))))
-
-(defun org-columns--collect-values (&optional compiled-fmt)
- "Collect values for columns on the current line.
-
-Return a list of triplets (SPEC VALUE DISPLAYED) suitable for
-`org-columns--display-here'.
-
-This function assumes `org-columns-current-fmt-compiled' is
-initialized is set in the current buffer. However, it is
-possible to override it with optional argument COMPILED-FMT."
- (let ((summaries (get-text-property (point) 'org-summaries)))
- (mapcar
- (lambda (spec)
- (pcase spec
- (`(,p . ,_)
- (let* ((v (or (cdr (assoc spec summaries))
- (org-entry-get (point) p 'selective t)
- (and compiled-fmt ;assume `org-agenda-columns'
- ;; Effort property is not defined. Try
- ;; to use appointment duration.
- org-agenda-columns-add-appointments-to-effort-sum
- (string= p (upcase org-effort-property))
- (get-text-property (point) 'duration)
- (propertize (org-duration-from-minutes
- (get-text-property (point) 'duration))
- 'face 'org-warning))
- "")))
- (list spec v (org-columns--displayed-value spec v))))))
- (or compiled-fmt org-columns-current-fmt-compiled))))
-
-(defun org-columns--set-widths (cache)
- "Compute the maximum column widths from the format and CACHE.
-This function sets `org-columns-current-maxwidths' as a vector of
-integers greater than 0."
- (setq org-columns-current-maxwidths
- (apply #'vector
- (mapcar
- (lambda (spec)
- (pcase spec
- (`(,_ ,_ ,(and width (pred wholenump)) . ,_) width)
- (`(,_ ,name . ,_)
- ;; No width is specified in the columns format.
- ;; Compute it by checking all possible values for
- ;; PROPERTY.
- (let ((width (length name)))
- (dolist (entry cache width)
- (let ((value (nth 2 (assoc spec (cdr entry)))))
- (setq width (max (length value) width))))))))
- org-columns-current-fmt-compiled))))
-
-(defun org-columns--new-overlay (beg end &optional string face)
- "Create a new column overlay and add it to the list."
- (let ((ov (make-overlay beg end)))
- (overlay-put ov 'face (or face 'secondary-selection))
- (org-overlay-display ov string face)
- (push ov org-columns-overlays)
- ov))
-
-(defun org-columns--summarize (operator)
- "Return summary function associated to string OPERATOR."
- (if (not operator) nil
- (cdr (or (assoc operator org-columns-summary-types)
- (assoc operator org-columns-summary-types-default)
- (error "Unknown %S operator" operator)))))
-
-(defun org-columns--overlay-text (value fmt width property original)
- "Return text "
- (format fmt
- (let ((v (org-columns-add-ellipses value width)))
- (pcase property
- ("PRIORITY"
- (propertize v 'face (org-get-priority-face original)))
- ("TAGS"
- (if (not org-tags-special-faces-re)
- (propertize v 'face 'org-tag)
- (replace-regexp-in-string
- org-tags-special-faces-re
- (lambda (m) (propertize m 'face (org-get-tag-face m)))
- v nil nil 1)))
- ("TODO" (propertize v 'face (org-get-todo-face original)))
- (_ v)))))
-
-(defun org-columns--display-here (columns &optional dateline)
- "Overlay the current line with column display.
-COLUMNS is an alist (SPEC VALUE DISPLAYED). Optional argument
-DATELINE is non-nil when the face used should be
-`org-agenda-column-dateline'."
- (save-excursion
- (beginning-of-line)
- (let* ((level-face (and (looking-at "\\(\\**\\)\\(\\* \\)")
- (org-get-level-face 2)))
- (ref-face (or level-face
- (and (eq major-mode 'org-agenda-mode)
- (org-get-at-bol 'face))
- 'default))
- (color (list :foreground (face-attribute ref-face :foreground)))
- (font (list :height (face-attribute 'default :height)
- :family (face-attribute 'default :family)))
- (face (list color font 'org-column ref-face))
- (face1 (list color font 'org-agenda-column-dateline ref-face)))
- ;; Each column is an overlay on top of a character. So there has
- ;; to be at least as many characters available on the line as
- ;; columns to display.
- (let ((columns (length org-columns-current-fmt-compiled))
- (chars (- (line-end-position) (line-beginning-position))))
- (when (> columns chars)
- (save-excursion
- (end-of-line)
- (let ((inhibit-read-only t))
- (insert (make-string (- columns chars) ?\s))))))
- ;; Display columns. Create and install the overlay for the
- ;; current column on the next character.
- (let ((i 0)
- (last (1- (length columns))))
- (dolist (column columns)
- (pcase column
- (`(,spec ,original ,value)
- (let* ((property (car spec))
- (width (aref org-columns-current-maxwidths i))
- (fmt (format (if (= i last) "%%-%d.%ds |"
- "%%-%d.%ds | ")
- width width))
- (ov (org-columns--new-overlay
- (point) (1+ (point))
- (org-columns--overlay-text
- value fmt width property original)
- (if dateline face1 face))))
- (overlay-put ov 'keymap org-columns-map)
- (overlay-put ov 'org-columns-key property)
- (overlay-put ov 'org-columns-value original)
- (overlay-put ov 'org-columns-value-modified value)
- (overlay-put ov 'org-columns-format fmt)
- (overlay-put ov 'line-prefix "")
- (overlay-put ov 'wrap-prefix "")
- (forward-char))))
- (cl-incf i)))
- ;; Make the rest of the line disappear.
- (let ((ov (org-columns--new-overlay (point) (line-end-position))))
- (overlay-put ov 'invisible t)
- (overlay-put ov 'keymap org-columns-map)
- (overlay-put ov 'line-prefix "")
- (overlay-put ov 'wrap-prefix ""))
- (let ((ov (make-overlay (1- (line-end-position))
- (line-beginning-position 2))))
- (overlay-put ov 'keymap org-columns-map)
- (push ov org-columns-overlays))
- (org-with-silent-modifications
- (let ((inhibit-read-only t))
- (put-text-property
- (line-end-position 0)
- (line-beginning-position 2)
- 'read-only
- (substitute-command-keys
- "Type \\<org-columns-map>`\\[org-columns-edit-value]' \
-to edit property")))))))
-
-(defun org-columns-add-ellipses (string width)
- "Truncate STRING with WIDTH characters, with ellipses."
- (cond
- ((<= (length string) width) string)
- ((<= width (length org-columns-ellipses))
- (substring org-columns-ellipses 0 width))
- (t (concat (substring string 0 (- width (length org-columns-ellipses)))
- org-columns-ellipses))))
-
-(defvar org-columns-full-header-line-format nil
- "The full header line format, will be shifted by horizontal scrolling." )
-(defvar org-previous-header-line-format nil
- "The header line format before column view was turned on.")
-(defvar org-columns-inhibit-recalculation nil
- "Inhibit recomputing of columns on column view startup.")
-(defvar org-columns-flyspell-was-active nil
- "Remember the state of `flyspell-mode' before column view.
-Flyspell-mode can cause problems in columns view, so it is turned off
-for the duration of the command.")
-
-(defvar header-line-format)
-(defvar org-columns-previous-hscroll 0)
-
-(defun org-columns--display-here-title ()
- "Overlay the newline before the current line with the table title."
- (interactive)
- (let ((title "")
- (i 0))
- (dolist (column org-columns-current-fmt-compiled)
- (pcase column
- (`(,property ,name . ,_)
- (let* ((width (aref org-columns-current-maxwidths i))
- (fmt (format "%%-%d.%ds | " width width)))
- (setq title (concat title (format fmt (or name property)))))))
- (cl-incf i))
- (setq-local org-previous-header-line-format header-line-format)
- (setq org-columns-full-header-line-format
- (concat
- (org-add-props " " nil 'display '(space :align-to 0))
- (org-add-props (substring title 0 -1) nil 'face 'org-column-title)))
- (setq org-columns-previous-hscroll -1)
- (add-hook 'post-command-hook 'org-columns-hscroll-title nil 'local)))
-
-(defun org-columns-hscroll-title ()
- "Set the `header-line-format' so that it scrolls along with the table."
- (sit-for .0001) ; need to force a redisplay to update window-hscroll
- (when (not (= (window-hscroll) org-columns-previous-hscroll))
- (setq header-line-format
- (concat (substring org-columns-full-header-line-format 0 1)
- (substring org-columns-full-header-line-format
- (1+ (window-hscroll))))
- org-columns-previous-hscroll (window-hscroll))
- (force-mode-line-update)))
-
-(defvar org-colview-initial-truncate-line-value nil
- "Remember the value of `truncate-lines' across colview.")
-
-;;;###autoload
-(defun org-columns-remove-overlays ()
- "Remove all currently active column overlays."
- (interactive)
- (when org-columns-overlays
- (when (local-variable-p 'org-previous-header-line-format)
- (setq header-line-format org-previous-header-line-format)
- (kill-local-variable 'org-previous-header-line-format)
- (remove-hook 'post-command-hook 'org-columns-hscroll-title 'local))
- (set-marker org-columns-begin-marker nil)
- (when (markerp org-columns-top-level-marker)
- (set-marker org-columns-top-level-marker nil))
- (org-with-silent-modifications
- (mapc #'delete-overlay org-columns-overlays)
- (setq org-columns-overlays nil)
- (let ((inhibit-read-only t))
- (remove-text-properties (point-min) (point-max) '(read-only t))))
- (when org-columns-flyspell-was-active
- (flyspell-mode 1))
- (when (local-variable-p 'org-colview-initial-truncate-line-value)
- (setq truncate-lines org-colview-initial-truncate-line-value))))
-
-(defun org-columns-compact-links (s)
- "Replace [[link][desc]] with [desc] or [link]."
- (while (string-match org-bracket-link-regexp s)
- (setq s (replace-match
- (concat "[" (match-string (if (match-end 3) 3 1) s) "]")
- t t s)))
- s)
-
-(defun org-columns-show-value ()
- "Show the full value of the property."
- (interactive)
- (let ((value (get-char-property (point) 'org-columns-value)))
- (message "Value is: %s" (or value ""))))
-
-(defvar org-agenda-columns-active) ;; defined in org-agenda.el
-
-(defun org-columns-quit ()
- "Remove the column overlays and in this way exit column editing."
- (interactive)
- (org-with-silent-modifications
- (org-columns-remove-overlays)
- (let ((inhibit-read-only t))
- (remove-text-properties (point-min) (point-max) '(read-only t))))
- (if (not (eq major-mode 'org-agenda-mode))
- (setq org-columns-current-fmt nil)
- (setq org-agenda-columns-active nil)
- (message
- "Modification not yet reflected in Agenda buffer, use `r' to refresh")))
-
-(defun org-columns-check-computed ()
- "Throw an error if current column value is computed."
- (let ((spec (nth (current-column) org-columns-current-fmt-compiled)))
- (and
- (nth 3 spec)
- (assoc spec (get-text-property (line-beginning-position) 'org-summaries))
- (error "This value is computed from the entry's children"))))
-
-(defun org-columns-todo (&optional _arg)
- "Change the TODO state during column view."
- (interactive "P")
- (org-columns-edit-value "TODO"))
-
-(defun org-columns-set-tags-or-toggle (&optional _arg)
- "Toggle checkbox at point, or set tags for current headline."
- (interactive "P")
- (if (string-match "\\`\\[[ xX-]\\]\\'"
- (get-char-property (point) 'org-columns-value))
- (org-columns-next-allowed-value)
- (org-columns-edit-value "TAGS")))
-
-(defvar org-agenda-overriding-columns-format nil
- "When set, overrides any other format definition for the agenda.
-Don't set this, this is meant for dynamic scoping.")
-
-(defun org-columns-edit-value (&optional key)
- "Edit the value of the property at point in column view.
-Where possible, use the standard interface for changing this line."
- (interactive)
- (org-columns-check-computed)
- (let* ((col (current-column))
- (bol (line-beginning-position))
- (eol (line-end-position))
- (pom (or (get-text-property bol 'org-hd-marker) (point)))
- (key (or key (get-char-property (point) 'org-columns-key)))
- (org-columns--time (float-time (current-time)))
- (action
- (pcase key
- ("CLOCKSUM"
- (error "This special column cannot be edited"))
- ("ITEM"
- (lambda () (org-with-point-at pom (org-edit-headline))))
- ("TODO"
- (lambda ()
- (org-with-point-at pom (call-interactively #'org-todo))))
- ("PRIORITY"
- (lambda ()
- (org-with-point-at pom
- (call-interactively #'org-priority))))
- ("TAGS"
- (lambda ()
- (org-with-point-at pom
- (let ((org-fast-tag-selection-single-key
- (if (eq org-fast-tag-selection-single-key 'expert)
- t
- org-fast-tag-selection-single-key)))
- (call-interactively #'org-set-tags)))))
- ("DEADLINE"
- (lambda ()
- (org-with-point-at pom (call-interactively #'org-deadline))))
- ("SCHEDULED"
- (lambda ()
- (org-with-point-at pom (call-interactively #'org-schedule))))
- ("BEAMER_ENV"
- (lambda ()
- (org-with-point-at pom
- (call-interactively #'org-beamer-select-environment))))
- (_
- (let* ((allowed (org-property-get-allowed-values pom key 'table))
- (value (get-char-property (point) 'org-columns-value))
- (nval (org-trim
- (if (null allowed) (read-string "Edit: " value)
- (completing-read
- "Value: " allowed nil
- (not (get-text-property
- 0 'org-unrestricted (caar allowed))))))))
- (and (not (equal nval value))
- (lambda () (org-entry-put pom key nval))))))))
- (cond
- ((null action))
- ((eq major-mode 'org-agenda-mode)
- (org-columns--call action)
- ;; The following let preserves the current format, and makes
- ;; sure that in only a single file things need to be updated.
- (let* ((org-agenda-overriding-columns-format org-columns-current-fmt)
- (buffer (marker-buffer pom))
- (org-agenda-contributing-files
- (list (with-current-buffer buffer
- (buffer-file-name (buffer-base-buffer))))))
- (org-agenda-columns)))
- (t
- (let ((inhibit-read-only t))
- (org-with-silent-modifications
- (remove-text-properties (max (point-min) (1- bol)) eol '(read-only t)))
- (org-columns--call action))
- ;; Some properties can modify headline (e.g., "TODO"), and
- ;; possible shuffle overlays. Make sure they are still all at
- ;; the right place on the current line.
- (let ((org-columns-inhibit-recalculation)) (org-columns-redo))
- (org-columns-update key)
- (org-move-to-column col)))))
-
-(defun org-columns-edit-allowed ()
- "Edit the list of allowed values for the current property."
- (interactive)
- (let* ((pom (or (org-get-at-bol 'org-marker)
- (org-get-at-bol 'org-hd-marker)
- (point)))
- (key (concat (or (get-char-property (point) 'org-columns-key)
- (user-error "No column to edit at point"))
- "_ALL"))
- (allowed (org-entry-get pom key t))
- (new-value (read-string "Allowed: " allowed)))
- ;; FIXME: Cover editing TODO, TAGS etc in-buffer settings.????
- ;; FIXME: Write back to #+PROPERTY setting if that is needed.
- (org-entry-put
- (cond ((marker-position org-entry-property-inherited-from)
- org-entry-property-inherited-from)
- ((marker-position org-columns-top-level-marker)
- org-columns-top-level-marker)
- (t pom))
- key new-value)))
-
-(defun org-columns--call (fun)
- "Call function FUN while preserving heading visibility.
-FUN is a function called with no argument."
- (let ((hide-body (and (/= (line-end-position) (point-max))
- (save-excursion
- (move-beginning-of-line 2)
- (org-at-heading-p t)))))
- (unwind-protect (funcall fun)
- (when hide-body (outline-hide-entry)))))
-
-(defun org-columns-previous-allowed-value ()
- "Switch to the previous allowed value for this column."
- (interactive)
- (org-columns-next-allowed-value t))
-
-(defun org-columns-next-allowed-value (&optional previous nth)
- "Switch to the next allowed value for this column.
-When PREVIOUS is set, go to the previous value. When NTH is
-an integer, select that value."
- (interactive)
- (org-columns-check-computed)
- (let* ((column (current-column))
- (key (get-char-property (point) 'org-columns-key))
- (value (get-char-property (point) 'org-columns-value))
- (pom (or (get-text-property (line-beginning-position) 'org-hd-marker)
- (point)))
- (allowed
- (let ((all
- (or (org-property-get-allowed-values pom key)
- (pcase (nth column org-columns-current-fmt-compiled)
- (`(,_ ,_ ,_ ,(or "X" "X/" "X%") ,_) '("[ ]" "[X]")))
- (org-colview-construct-allowed-dates value))))
- (if previous (reverse all) all))))
- (when (equal key "ITEM") (error "Cannot edit item headline from here"))
- (unless (or allowed (member key '("SCHEDULED" "DEADLINE" "CLOCKSUM")))
- (error "Allowed values for this property have not been defined"))
- (let* ((l (length allowed))
- (new
- (cond
- ((member key '("SCHEDULED" "DEADLINE" "CLOCKSUM"))
- (if previous 'earlier 'later))
- ((integerp nth)
- (when (> (abs nth) l)
- (user-error "Only %d allowed values for property `%s'" l key))
- (nth (mod (1- nth) l) allowed))
- ((member value allowed)
- (when (= l 1) (error "Only one allowed value for this property"))
- (or (nth 1 (member value allowed)) (car allowed)))
- (t (car allowed))))
- (action (lambda () (org-entry-put pom key new))))
- (cond
- ((eq major-mode 'org-agenda-mode)
- (org-columns--call action)
- ;; The following let preserves the current format, and makes
- ;; sure that in only a single file things need to be updated.
- (let* ((org-agenda-overriding-columns-format org-columns-current-fmt)
- (buffer (marker-buffer pom))
- (org-agenda-contributing-files
- (list (with-current-buffer buffer
- (buffer-file-name (buffer-base-buffer))))))
- (org-agenda-columns)))
- (t
- (let ((inhibit-read-only t))
- (remove-text-properties (line-end-position 0) (line-end-position)
- '(read-only t))
- (org-columns--call action))
- ;; Some properties can modify headline (e.g., "TODO"), and
- ;; possible shuffle overlays. Make sure they are still all at
- ;; the right place on the current line.
- (let ((org-columns-inhibit-recalculation)) (org-columns-redo))
- (org-columns-update key)
- (org-move-to-column column))))))
-
-(defun org-colview-construct-allowed-dates (s)
- "Construct a list of three dates around the date in S.
-This respects the format of the time stamp in S, active or non-active,
-and also including time or not. S must be just a time stamp, no text
-around it."
- (when (and s (string-match (concat "^" org-ts-regexp3 "$") s))
- (let* ((time (org-parse-time-string s 'nodefaults))
- (active (equal (string-to-char s) ?<))
- (fmt (funcall (if (nth 1 time) 'cdr 'car) org-time-stamp-formats))
- time-before time-after)
- (unless active (setq fmt (concat "[" (substring fmt 1 -1) "]")))
- (setf (car time) (or (car time) 0))
- (setf (nth 1 time) (or (nth 1 time) 0))
- (setf (nth 2 time) (or (nth 2 time) 0))
- (setq time-before (copy-sequence time))
- (setq time-after (copy-sequence time))
- (setf (nth 3 time-before) (1- (nth 3 time)))
- (setf (nth 3 time-after) (1+ (nth 3 time)))
- (mapcar (lambda (x) (format-time-string fmt (apply 'encode-time x)))
- (list time-before time time-after)))))
-
-(defun org-columns-open-link (&optional arg)
- (interactive "P")
- (let ((value (get-char-property (point) 'org-columns-value)))
- (org-open-link-from-string value arg)))
-
-;;;###autoload
-(defun org-columns-get-format-and-top-level ()
- (let ((fmt (org-columns-get-format)))
- (org-columns-goto-top-level)
- fmt))
-
-(defun org-columns-get-format (&optional fmt-string)
- "Return columns format specifications.
-When optional argument FMT-STRING is non-nil, use it as the
-current specifications. This function also sets
-`org-columns-current-fmt-compiled' and
-`org-columns-current-fmt'."
- (interactive)
- (let ((format
- (or fmt-string
- (org-entry-get nil "COLUMNS" t)
- (org-with-wide-buffer
- (goto-char (point-min))
- (catch :found
- (let ((case-fold-search t))
- (while (re-search-forward "^[ \t]*#\\+COLUMNS: .+$" nil t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'keyword)
- (throw :found (org-element-property :value element)))))
- nil)))
- org-columns-default-format)))
- (setq org-columns-current-fmt format)
- (org-columns-compile-format format)
- format))
-
-(defun org-columns-goto-top-level ()
- "Move to the beginning of the column view area.
-Also sets `org-columns-top-level-marker' to the new position."
- (unless (markerp org-columns-top-level-marker)
- (setq org-columns-top-level-marker (make-marker)))
- (goto-char
- (move-marker
- org-columns-top-level-marker
- (cond ((org-before-first-heading-p) (point-min))
- ((org-entry-get nil "COLUMNS" t) org-entry-property-inherited-from)
- (t (org-back-to-heading) (point))))))
-
-;;;###autoload
-(defun org-columns (&optional global columns-fmt-string)
- "Turn on column view on an Org mode file.
-
-Column view applies to the whole buffer if point is before the
-first headline. Otherwise, it applies to the first ancestor
-setting \"COLUMNS\" property. If there is none, it defaults to
-the current headline. With a `\\[universal-argument]' prefix \
-argument, turn on column
-view for the whole buffer unconditionally.
-
-When COLUMNS-FMT-STRING is non-nil, use it as the column format."
- (interactive "P")
- (org-columns-remove-overlays)
- (when global (goto-char (point-min)))
- (if (markerp org-columns-begin-marker)
- (move-marker org-columns-begin-marker (point))
- (setq org-columns-begin-marker (point-marker)))
- (org-columns-goto-top-level)
- ;; Initialize `org-columns-current-fmt' and
- ;; `org-columns-current-fmt-compiled'.
- (let ((org-columns--time (float-time (current-time))))
- (org-columns-get-format columns-fmt-string)
- (unless org-columns-inhibit-recalculation (org-columns-compute-all))
- (save-excursion
- (save-restriction
- (when (and (not global) (org-at-heading-p))
- (narrow-to-region (point) (org-end-of-subtree t t)))
- (when (assoc "CLOCKSUM" org-columns-current-fmt-compiled)
- (org-clock-sum))
- (when (assoc "CLOCKSUM_T" org-columns-current-fmt-compiled)
- (org-clock-sum-today))
- (let ((cache
- ;; Collect contents of columns ahead of time so as to
- ;; compute their maximum width.
- (org-map-entries
- (lambda () (cons (point) (org-columns--collect-values)))
- nil nil (and org-columns-skip-archived-trees 'archive))))
- (when cache
- (org-columns--set-widths cache)
- (org-columns--display-here-title)
- (when (setq-local org-columns-flyspell-was-active
- (bound-and-true-p flyspell-mode))
- (flyspell-mode 0))
- (unless (local-variable-p 'org-colview-initial-truncate-line-value)
- (setq-local org-colview-initial-truncate-line-value
- truncate-lines))
- (setq truncate-lines t)
- (dolist (entry cache)
- (goto-char (car entry))
- (org-columns--display-here (cdr entry)))))))))
-
-(defun org-columns-new (&optional spec &rest attributes)
- "Insert a new column, to the left of the current column.
-Interactively fill attributes for new column. When column format
-specification SPEC is provided, edit it instead.
-
-When optional argument attributes can be a list of columns
-specifications attributes to create the new column
-non-interactively. See `org-columns-compile-format' for
-details."
- (interactive)
- (let ((new (or attributes
- (let ((prop
- (completing-read
- "Property: "
- (mapcar #'list (org-buffer-property-keys t nil t))
- nil nil (nth 0 spec))))
- (list prop
- (read-string (format "Column title [%s]: " prop)
- (nth 1 spec))
- ;; Use `read-string' instead of `read-number'
- ;; to allow empty width.
- (let ((w (read-string
- "Column width: "
- (and (nth 2 spec)
- (number-to-string (nth 2 spec))))))
- (and (org-string-nw-p w) (string-to-number w)))
- (org-string-nw-p
- (completing-read
- "Summary: "
- (delete-dups
- (cons '("") ;Allow empty operator.
- (mapcar (lambda (x) (list (car x)))
- (append
- org-columns-summary-types
- org-columns-summary-types-default))))
- nil t (nth 3 spec)))
- (org-string-nw-p
- (read-string "Format: " (nth 4 spec))))))))
- (if spec
- (progn (setcar spec (car new))
- (setcdr spec (cdr new)))
- (push new (nthcdr (current-column) org-columns-current-fmt-compiled)))
- (org-columns-store-format)
- (org-columns-redo)))
-
-(defun org-columns-delete ()
- "Delete the column at point from columns view."
- (interactive)
- (let ((spec (nth (current-column) org-columns-current-fmt-compiled)))
- (when (y-or-n-p (format "Are you sure you want to remove column %S? "
- (nth 1 spec)))
- (setq org-columns-current-fmt-compiled
- (delq spec org-columns-current-fmt-compiled))
- (org-columns-store-format)
- ;; This may leave a now wrong value in a node property. However
- ;; updating it may prove counter-intuitive. See comments in
- ;; `org-columns-move-right' for details.
- (let ((org-columns-inhibit-recalculation t)) (org-columns-redo))
- (when (>= (current-column) (length org-columns-current-fmt-compiled))
- (backward-char)))))
-
-(defun org-columns-edit-attributes ()
- "Edit the attributes of the current column."
- (interactive)
- (org-columns-new (nth (current-column) org-columns-current-fmt-compiled)))
-
-(defun org-columns-widen (arg)
- "Make the column wider by ARG characters."
- (interactive "p")
- (let* ((n (current-column))
- (entry (nth n org-columns-current-fmt-compiled))
- (width (aref org-columns-current-maxwidths n)))
- (setq width (max 1 (+ width arg)))
- (setcar (nthcdr 2 entry) width)
- (org-columns-store-format)
- (let ((org-columns-inhibit-recalculation t)) (org-columns-redo))))
-
-(defun org-columns-narrow (arg)
- "Make the column narrower by ARG characters."
- (interactive "p")
- (org-columns-widen (- arg)))
-
-(defun org-columns-move-right ()
- "Swap this column with the one to the right."
- (interactive)
- (let* ((n (current-column))
- (cell (nthcdr n org-columns-current-fmt-compiled))
- e)
- (when (>= n (1- (length org-columns-current-fmt-compiled)))
- (error "Cannot shift this column further to the right"))
- (setq e (car cell))
- (setcar cell (car (cdr cell)))
- (setcdr cell (cons e (cdr (cdr cell))))
- (org-columns-store-format)
- ;; Do not compute again properties, since we're just moving
- ;; columns around. It can put a property value a bit off when
- ;; switching between an non-computed and a computed value for the
- ;; same property, e.g. from "%A %A{+}" to "%A{+} %A".
- ;;
- ;; In this case, the value needs to be updated since the first
- ;; column related to a property determines how its value is
- ;; computed. However, (correctly) updating the value could be
- ;; surprising, so we leave it as-is nonetheless.
- (let ((org-columns-inhibit-recalculation t)) (org-columns-redo))
- (forward-char 1)))
-
-(defun org-columns-move-left ()
- "Swap this column with the one to the left."
- (interactive)
- (let* ((n (current-column)))
- (when (= n 0)
- (error "Cannot shift this column further to the left"))
- (backward-char 1)
- (org-columns-move-right)
- (backward-char 1)))
-
-(defun org-columns-store-format ()
- "Store the text version of the current columns format.
-The format is stored either in the COLUMNS property of the node
-starting the current column display, or in a #+COLUMNS line of
-the current buffer."
- (let ((fmt (org-columns-uncompile-format org-columns-current-fmt-compiled)))
- (setq-local org-columns-current-fmt fmt)
- (when org-columns-overlays
- (org-with-point-at org-columns-top-level-marker
- (if (and (org-at-heading-p) (org-entry-get nil "COLUMNS"))
- (org-entry-put nil "COLUMNS" fmt)
- (goto-char (point-min))
- (let ((case-fold-search t))
- ;; Try to replace the first COLUMNS keyword available.
- (catch :found
- (while (re-search-forward "^[ \t]*#\\+COLUMNS:\\(.*\\)" nil t)
- (let ((element (save-match-data (org-element-at-point))))
- (when (and (eq (org-element-type element) 'keyword)
- (equal (org-element-property :key element)
- "COLUMNS"))
- (replace-match (concat " " fmt) t t nil 1)
- (throw :found nil))))
- ;; No COLUMNS keyword in the buffer. Insert one at the
- ;; beginning, right before the first heading, if any.
- (goto-char (point-min))
- (unless (org-at-heading-p t) (outline-next-heading))
- (let ((inhibit-read-only t))
- (insert-before-markers "#+COLUMNS: " fmt "\n"))))
- (setq-local org-columns-default-format fmt))))))
-
-(defun org-columns-update (property)
- "Recompute PROPERTY, and update the columns display for it."
- (org-columns-compute property)
- (org-with-wide-buffer
- (let ((p (upcase property)))
- (dolist (ov org-columns-overlays)
- (let ((key (overlay-get ov 'org-columns-key)))
- (when (and key (equal key p) (overlay-start ov))
- (goto-char (overlay-start ov))
- (let* ((spec (nth (current-column) org-columns-current-fmt-compiled))
- (value
- (or (cdr (assoc spec
- (get-text-property (line-beginning-position)
- 'org-summaries)))
- (org-entry-get (point) key))))
- (when value
- (let ((displayed (org-columns--displayed-value spec value))
- (format (overlay-get ov 'org-columns-format))
- (width
- (aref org-columns-current-maxwidths (current-column))))
- (overlay-put ov 'org-columns-value value)
- (overlay-put ov 'org-columns-value-modified displayed)
- (overlay-put ov
- 'display
- (org-columns--overlay-text
- displayed format width property value)))))))))))
-
-(defun org-columns-redo ()
- "Construct the column display again."
- (interactive)
- (when org-columns-overlays
- (message "Recomputing columns...")
- (org-with-point-at org-columns-begin-marker
- (org-columns-remove-overlays)
- (if (derived-mode-p 'org-mode)
- ;; Since we already know the columns format, provide it
- ;; instead of computing again.
- (call-interactively #'org-columns org-columns-current-fmt)
- (org-agenda-redo)
- (call-interactively #'org-agenda-columns)))
- (message "Recomputing columns...done")))
-
-(defun org-columns-uncompile-format (compiled)
- "Turn the compiled columns format back into a string representation.
-COMPILED is an alist, as returned by
-`org-columns-compile-format', which see."
- (mapconcat
- (lambda (spec)
- (pcase spec
- (`(,prop ,title ,width ,op ,printf)
- (concat "%"
- (and width (number-to-string width))
- prop
- (and title (not (equal prop title)) (format "(%s)" title))
- (cond ((not op) nil)
- (printf (format "{%s;%s}" op printf))
- (t (format "{%s}" op)))))))
- compiled " "))
-
-(defun org-columns-compile-format (fmt)
- "Turn a column format string FMT into an alist of specifications.
-
-The alist has one entry for each column in the format. The elements of
-that list are:
-property the property name, as an upper-case string
-title the title field for the columns, as a string
-width the column width in characters, can be nil for automatic width
-operator the summary operator, as a string, or nil
-printf a printf format for computed values, as a string, or nil
-
-This function updates `org-columns-current-fmt-compiled'."
- (setq org-columns-current-fmt-compiled nil)
- (let ((start 0))
- (while (string-match
- "%\\([0-9]+\\)?\\([[:alnum:]_-]+\\)\\(?:(\\([^)]+\\))\\)?\
-\\(?:{\\([^}]+\\)}\\)?\\s-*"
- fmt start)
- (setq start (match-end 0))
- (let* ((width (and (match-end 1) (string-to-number (match-string 1 fmt))))
- (prop (match-string-no-properties 2 fmt))
- (title (or (match-string-no-properties 3 fmt) prop))
- (operator (match-string-no-properties 4 fmt)))
- (push (if (not operator) (list (upcase prop) title width nil nil)
- (let (printf)
- (when (string-match ";" operator)
- (setq printf (substring operator (match-end 0)))
- (setq operator (substring operator 0 (match-beginning 0))))
- (list (upcase prop) title width operator printf)))
- org-columns-current-fmt-compiled)))
- (setq org-columns-current-fmt-compiled
- (nreverse org-columns-current-fmt-compiled))))
-
-
-;;;; Column View Summary
-
-(defun org-columns--age-to-minutes (s)
- "Turn age string S into a number of minutes.
-An age is either computed from a given time-stamp, or indicated
-as a canonical duration, i.e., using units defined in
-`org-duration-canonical-units'."
- (cond
- ((string-match-p org-ts-regexp s)
- (/ (- org-columns--time
- (float-time (apply #'encode-time (org-parse-time-string s))))
- 60))
- ((org-duration-p s) (org-duration-to-minutes s t)) ;skip user units
- (t (user-error "Invalid age: %S" s))))
-
-(defun org-columns--format-age (minutes)
- "Format MINUTES float as an age string."
- (org-duration-from-minutes minutes
- '(("d" . nil) ("h" . nil) ("min" . nil))
- t)) ;ignore user's custom units
-
-(defun org-columns--summary-apply-times (fun times)
- "Apply FUN to time values TIMES.
-Return the result as a duration."
- (org-duration-from-minutes
- (apply fun
- (mapcar (lambda (time)
- ;; Unlike to `org-duration-to-minutes' standard
- ;; behavior, we want to consider plain numbers as
- ;; hours. As a consequence, we treat them
- ;; differently.
- (if (string-match-p "\\`[0-9]+\\(?:\\.[0-9]*\\)?\\'" time)
- (* 60 (string-to-number time))
- (org-duration-to-minutes time)))
- times))
- (org-duration-h:mm-only-p times)))
-
-(defun org-columns--compute-spec (spec &optional update)
- "Update tree according to SPEC.
-SPEC is a column format specification. When optional argument
-UPDATE is non-nil, summarized values can replace existing ones in
-properties drawers."
- (let* ((lmax (if (bound-and-true-p org-inlinetask-min-level)
- org-inlinetask-min-level
- 29)) ;Hard-code deepest level.
- (lvals (make-vector (1+ lmax) nil))
- (level 0)
- (inminlevel lmax)
- (last-level lmax)
- (property (car spec))
- (printf (nth 4 spec))
- (summarize (org-columns--summarize (nth 3 spec))))
- (org-with-wide-buffer
- ;; Find the region to compute.
- (goto-char org-columns-top-level-marker)
- (goto-char (condition-case nil (org-end-of-subtree t) (error (point-max))))
- ;; Walk the tree from the back and do the computations.
- (while (re-search-backward
- org-outline-regexp-bol org-columns-top-level-marker t)
- (unless (or (= level 0) (eq level inminlevel))
- (setq last-level level))
- (setq level (org-reduced-level (org-outline-level)))
- (let* ((pos (match-beginning 0))
- (value (org-entry-get nil property))
- (value-set (org-string-nw-p value)))
- (cond
- ((< level last-level)
- ;; Collect values from lower levels and inline tasks here
- ;; and summarize them using SUMMARIZE. Store them in text
- ;; property `org-summaries', in alist whose key is SPEC.
- (let* ((summary
- (and summarize
- (let ((values (append (and (/= last-level inminlevel)
- (aref lvals last-level))
- (aref lvals inminlevel))))
- (and values (funcall summarize values printf))))))
- ;; Leaf values are not summaries: do not mark them.
- (when summary
- (let* ((summaries-alist (get-text-property pos 'org-summaries))
- (old (assoc spec summaries-alist)))
- (if old (setcdr old summary)
- (push (cons spec summary) summaries-alist)
- (org-with-silent-modifications
- (add-text-properties
- pos (1+ pos) (list 'org-summaries summaries-alist)))))
- ;; When PROPERTY exists in current node, even if empty,
- ;; but its value doesn't match the one computed, use
- ;; the latter instead.
- ;;
- ;; Ignore leading or trailing white spaces that might
- ;; have been introduced in summary, since those are not
- ;; significant in properties value.
- (let ((new-value (org-trim summary)))
- (when (and update value (not (equal value new-value)))
- (org-entry-put (point) property new-value))))
- ;; Add current to current level accumulator.
- (when (or summary value-set)
- (push (or summary value) (aref lvals level)))
- ;; Clear accumulators for deeper levels.
- (cl-loop for l from (1+ level) to lmax do (aset lvals l nil))))
- (value-set (push value (aref lvals level)))
- (t nil)))))))
-
-;;;###autoload
-(defun org-columns-compute (property)
- "Summarize the values of PROPERTY hierarchically.
-Also update existing values for PROPERTY according to the first
-column specification."
- (interactive)
- (let ((main-flag t)
- (upcase-prop (upcase property)))
- (dolist (spec org-columns-current-fmt-compiled)
- (pcase spec
- (`(,(pred (equal upcase-prop)) . ,_)
- (org-columns--compute-spec spec main-flag)
- ;; Only the first summary can update the property value.
- (when main-flag (setq main-flag nil)))))))
-
-(defun org-columns-compute-all ()
- "Compute all columns that have operators defined."
- (org-with-silent-modifications
- (remove-text-properties (point-min) (point-max) '(org-summaries t)))
- (let ((org-columns--time (float-time (current-time)))
- seen)
- (dolist (spec org-columns-current-fmt-compiled)
- (let ((property (car spec)))
- ;; Property value is updated only the first time a given
- ;; property is encountered.
- (org-columns--compute-spec spec (not (member property seen)))
- (push property seen)))))
-
-(defun org-columns--summary-sum (values printf)
- "Compute the sum of VALUES.
-When PRINTF is non-nil, use it to format the result."
- (format (or printf "%s") (apply #'+ (mapcar #'string-to-number values))))
-
-(defun org-columns--summary-currencies (values _)
- "Compute the sum of VALUES, with two decimals."
- (format "%.2f" (apply #'+ (mapcar #'string-to-number values))))
-
-(defun org-columns--summary-checkbox (check-boxes _)
- "Summarize CHECK-BOXES with a check-box."
- (let ((done (cl-count "[X]" check-boxes :test #'equal))
- (all (length check-boxes)))
- (cond ((= done all) "[X]")
- ((> done 0) "[-]")
- (t "[ ]"))))
-
-(defun org-columns--summary-checkbox-count (check-boxes _)
- "Summarize CHECK-BOXES with a check-box cookie."
- (format "[%d/%d]"
- (cl-count-if (lambda (b) (or (equal b "[X]")
- (string-match-p "\\[\\([1-9]\\)/\\1\\]" b)))
- check-boxes)
- (length check-boxes)))
-
-(defun org-columns--summary-checkbox-percent (check-boxes _)
- "Summarize CHECK-BOXES with a check-box percent."
- (format "[%d%%]"
- (round (* 100.0 (cl-count-if (lambda (b) (member b '("[X]" "[100%]")))
- check-boxes))
- (length check-boxes))))
-
-(defun org-columns--summary-min (values printf)
- "Compute the minimum of VALUES.
-When PRINTF is non-nil, use it to format the result."
- (format (or printf "%s")
- (apply #'min (mapcar #'string-to-number values))))
-
-(defun org-columns--summary-max (values printf)
- "Compute the maximum of VALUES.
-When PRINTF is non-nil, use it to format the result."
- (format (or printf "%s")
- (apply #'max (mapcar #'string-to-number values))))
-
-(defun org-columns--summary-mean (values printf)
- "Compute the mean of VALUES.
-When PRINTF is non-nil, use it to format the result."
- (format (or printf "%s")
- (/ (apply #'+ (mapcar #'string-to-number values))
- (float (length values)))))
-
-(defun org-columns--summary-sum-times (times _)
- "Sum TIMES."
- (org-columns--summary-apply-times #'+ times))
-
-(defun org-columns--summary-min-time (times _)
- "Compute the minimum time among TIMES."
- (org-columns--summary-apply-times #'min times))
-
-(defun org-columns--summary-max-time (times _)
- "Compute the maximum time among TIMES."
- (org-columns--summary-apply-times #'max times))
-
-(defun org-columns--summary-mean-time (times _)
- "Compute the mean time among TIMES."
- (org-columns--summary-apply-times
- (lambda (&rest values) (/ (apply #'+ values) (float (length values))))
- times))
-
-(defun org-columns--summary-min-age (ages _)
- "Compute the minimum time among AGES."
- (org-columns--format-age
- (apply #'min (mapcar #'org-columns--age-to-minutes ages))))
-
-(defun org-columns--summary-max-age (ages _)
- "Compute the maximum time among AGES."
- (org-columns--format-age
- (apply #'max (mapcar #'org-columns--age-to-minutes ages))))
-
-(defun org-columns--summary-mean-age (ages _)
- "Compute the minimum time among AGES."
- (org-columns--format-age
- (/ (apply #'+ (mapcar #'org-columns--age-to-minutes ages))
- (float (length ages)))))
-
-(defun org-columns--summary-estimate (estimates _)
- "Combine a list of estimates, using mean and variance.
-The mean and variance of the result will be the sum of the means
-and variances (respectively) of the individual estimates."
- (let ((mean 0)
- (var 0))
- (dolist (e estimates)
- (pcase (mapcar #'string-to-number (split-string e "-"))
- (`(,low ,high)
- (let ((m (/ (+ low high) 2.0)))
- (cl-incf mean m)
- (cl-incf var (- (/ (+ (* low low) (* high high)) 2.0) (* m m)))))
- (`(,value) (cl-incf mean value))))
- (let ((sd (sqrt var)))
- (format "%s-%s"
- (format "%.0f" (- mean sd))
- (format "%.0f" (+ mean sd))))))
-
-
-
-;;; Dynamic block for Column view
-
-(defun org-columns--capture-view (maxlevel skip-empty format local)
- "Get the column view of the current buffer.
-
-MAXLEVEL sets the level limit. SKIP-EMPTY tells whether to skip
-empty rows, an empty row being one where all the column view
-specifiers but ITEM are empty. FORMAT is a format string for
-columns, or nil. When LOCAL is non-nil, only capture headings in
-current subtree.
-
-This function returns a list containing the title row and all
-other rows. Each row is a list of fields, as strings, or
-`hline'."
- (org-columns (not local) format)
- (goto-char org-columns-top-level-marker)
- (let ((columns (length org-columns-current-fmt-compiled))
- (has-item (assoc "ITEM" org-columns-current-fmt-compiled))
- table)
- (org-map-entries
- (lambda ()
- (when (get-char-property (point) 'org-columns-key)
- (let (row)
- (dotimes (i columns)
- (let* ((col (+ (line-beginning-position) i))
- (p (get-char-property col 'org-columns-key)))
- (push (org-quote-vert
- (get-char-property col
- (if (string= p "ITEM")
- 'org-columns-value
- 'org-columns-value-modified)))
- row)))
- (unless (and skip-empty
- (let ((r (delete-dups (remove "" row))))
- (or (null r) (and has-item (= (length r) 1)))))
- (push (cons (org-reduced-level (org-current-level)) (nreverse row))
- table)))))
- (and maxlevel (format "LEVEL<=%d" maxlevel))
- (and local 'tree)
- 'archive 'comment)
- (org-columns-quit)
- ;; Add column titles and a horizontal rule in front of the table.
- (cons (mapcar #'cadr org-columns-current-fmt-compiled)
- (cons 'hline (nreverse table)))))
-
-(defun org-columns--clean-item (item)
- "Remove sensitive contents from string ITEM.
-This includes objects that may not be duplicated within
-a document, e.g., a target, or those forbidden in tables, e.g.,
-an inline src-block."
- (let ((data (org-element-parse-secondary-string
- item (org-element-restriction 'headline))))
- (org-element-map data
- '(footnote-reference inline-babel-call inline-src-block target
- radio-target statistics-cookie)
- #'org-element-extract-element)
- (org-no-properties (org-element-interpret-data data))))
-
-;;;###autoload
-(defun org-dblock-write:columnview (params)
- "Write the column view table.
-PARAMS is a property list of parameters:
-
-:id the :ID: property of the entry where the columns view
- should be built. When the symbol `local', call locally.
- When `global' call column view with the cursor at the beginning
- of the buffer (usually this means that the whole buffer switches
- to column view). When \"file:path/to/file.org\", invoke column
- view at the start of that file. Otherwise, the ID is located
- using `org-id-find'.
-:hlines When t, insert a hline before each item. When a number, insert
- a hline before each level <= that number.
-:indent When non-nil, indent each ITEM field according to its level.
-:vlines When t, make each column a colgroup to enforce vertical lines.
-:maxlevel When set to a number, don't capture headlines below this level.
-:skip-empty-rows
- When t, skip rows where all specifiers other than ITEM are empty.
-:width apply widths specified in columns format using <N> specifiers.
-:format When non-nil, specify the column view format to use."
- (let ((table
- (let ((id (plist-get params :id))
- view-file view-pos)
- (pcase id
- (`global nil)
- ((or `local `nil) (setq view-pos (point)))
- ((and (let id-string (format "%s" id))
- (guard (string-match "^file:\\(.*\\)" id-string)))
- (setq view-file (match-string-no-properties 1 id-string))
- (unless (file-exists-p view-file)
- (user-error "No such file: %S" id-string)))
- ((and (let idpos (org-find-entry-with-id id)) (guard idpos))
- (setq view-pos idpos))
- ((let `(,filename . ,position) (org-id-find id))
- (setq view-file filename)
- (setq view-pos position))
- (_ (user-error "Cannot find entry with :ID: %s" id)))
- (with-current-buffer (if view-file (get-file-buffer view-file)
- (current-buffer))
- (org-with-wide-buffer
- (when view-pos (goto-char view-pos))
- (org-columns--capture-view (plist-get params :maxlevel)
- (plist-get params :skip-empty-rows)
- (plist-get params :format)
- view-pos))))))
- (when table
- ;; Prune level information from the table. Also normalize
- ;; headings: remove stars, add indentation entities, if
- ;; required, and possibly precede some of them with a horizontal
- ;; rule.
- (let ((item-index
- (let ((p (assoc "ITEM" org-columns-current-fmt-compiled)))
- (and p (cl-position p
- org-columns-current-fmt-compiled
- :test #'equal))))
- (hlines (plist-get params :hlines))
- (indent (plist-get params :indent))
- new-table)
- ;; Copy header and first rule.
- (push (pop table) new-table)
- (push (pop table) new-table)
- (dolist (row table (setq table (nreverse new-table)))
- (let ((level (car row)))
- (when (and (not (eq (car new-table) 'hline))
- (or (eq hlines t)
- (and (numberp hlines) (<= level hlines))))
- (push 'hline new-table))
- (when item-index
- (let ((item (org-columns--clean-item (nth item-index (cdr row)))))
- (setf (nth item-index (cdr row))
- (if (and indent (> level 1))
- (concat "\\_" (make-string (* 2 (1- level)) ?\s) item)
- item))))
- (push (cdr row) new-table))))
- (when (plist-get params :width)
- (setq table
- (append table
- (list
- (mapcar (lambda (spec)
- (let ((w (nth 2 spec)))
- (if w (format "<%d>" (max 3 w)) "")))
- org-columns-current-fmt-compiled)))))
- (when (plist-get params :vlines)
- (setq table
- (let ((size (length org-columns-current-fmt-compiled)))
- (append (mapcar (lambda (x) (if (eq 'hline x) x (cons "" x)))
- table)
- (list (cons "/" (make-list size "<>")))))))
- (let ((content-lines (org-split-string (plist-get params :content) "\n"))
- recalc)
- ;; Insert affiliated keywords before the table.
- (when content-lines
- (while (string-match-p "\\`[ \t]*#\\+" (car content-lines))
- (insert (pop content-lines) "\n")))
- (save-excursion
- ;; Insert table at point.
- (insert
- (mapconcat (lambda (row)
- (if (eq row 'hline) "|-|"
- (format "|%s|" (mapconcat #'identity row "|"))))
- table
- "\n"))
- ;; Insert TBLFM lines following table.
- (let ((case-fold-search t))
- (dolist (line content-lines)
- (when (string-match-p "\\`[ \t]*#\\+TBLFM:" line)
- (insert "\n" line)
- (unless recalc (setq recalc t))))))
- (when recalc (org-table-recalculate 'all t))
- (org-table-align)))))
-
-;;;###autoload
-(defun org-columns-insert-dblock ()
- "Create a dynamic block capturing a column view table."
- (interactive)
- (let ((id (completing-read
- "Capture columns (local, global, entry with :ID: property) [local]: "
- (append '(("global") ("local"))
- (mapcar #'list (org-property-values "ID"))))))
- (org-create-dblock
- (list :name "columnview"
- :hlines 1
- :id (cond ((string= id "global") 'global)
- ((member id '("" "local")) 'local)
- (id)))))
- (org-update-dblock))
-
-
-
-;;; Column view in the agenda
-
-;;;###autoload
-(defun org-agenda-columns ()
- "Turn on or update column view in the agenda."
- (interactive)
- (org-columns-remove-overlays)
- (if (markerp org-columns-begin-marker)
- (move-marker org-columns-begin-marker (point))
- (setq org-columns-begin-marker (point-marker)))
- (let* ((org-columns--time (float-time (current-time)))
- (fmt
- (cond
- ((bound-and-true-p org-agenda-overriding-columns-format))
- ((let ((m (org-get-at-bol 'org-hd-marker)))
- (and m
- (or (org-entry-get m "COLUMNS" t)
- (with-current-buffer (marker-buffer m)
- org-columns-default-format)))))
- ((and (local-variable-p 'org-columns-current-fmt)
- org-columns-current-fmt))
- ((let ((m (next-single-property-change (point-min) 'org-hd-marker)))
- (and m
- (let ((m (get-text-property m 'org-hd-marker)))
- (or (org-entry-get m "COLUMNS" t)
- (with-current-buffer (marker-buffer m)
- org-columns-default-format))))))
- (t org-columns-default-format)))
- (compiled-fmt (org-columns-compile-format fmt)))
- (setq org-columns-current-fmt fmt)
- (when org-agenda-columns-compute-summary-properties
- (org-agenda-colview-compute org-columns-current-fmt-compiled))
- (save-excursion
- ;; Collect properties for each headline in current view.
- (goto-char (point-min))
- (let (cache)
- (while (not (eobp))
- (let ((m (org-get-at-bol 'org-hd-marker)))
- (when m
- (push (cons (line-beginning-position)
- ;; `org-columns-current-fmt-compiled' is
- ;; initialized but only set locally to the
- ;; agenda buffer. Since current buffer is
- ;; changing, we need to force the original
- ;; compiled-fmt there.
- (org-with-point-at m
- (org-columns--collect-values compiled-fmt)))
- cache)))
- (forward-line))
- (when cache
- (org-columns--set-widths cache)
- (org-columns--display-here-title)
- (when (setq-local org-columns-flyspell-was-active
- (bound-and-true-p flyspell-mode))
- (flyspell-mode 0))
- (dolist (entry cache)
- (goto-char (car entry))
- (org-columns--display-here (cdr entry)))
- (when org-agenda-columns-show-summaries
- (org-agenda-colview-summarize cache)))))))
-
-(defun org-agenda-colview-summarize (cache)
- "Summarize the summarizable columns in column view in the agenda.
-This will add overlays to the date lines, to show the summary for each day."
- (let ((fmt (mapcar
- (lambda (spec)
- (pcase spec
- (`(,property ,title ,width . ,_)
- (if (member property '("CLOCKSUM" "CLOCKSUM_T"))
- (list property title width ":" nil)
- spec))))
- org-columns-current-fmt-compiled)))
- ;; Ensure there's at least one summation column.
- (when (cl-some (lambda (spec) (nth 3 spec)) fmt)
- (goto-char (point-max))
- (catch :complete
- (while t
- (when (or (get-text-property (point) 'org-date-line)
- (eq (get-text-property (point) 'face)
- 'org-agenda-structure))
- ;; OK, this is a date line that should be used.
- (let (entries)
- (let (rest)
- (dolist (c cache)
- (if (> (car c) (point))
- (push c entries)
- (push c rest)))
- (setq cache rest))
- ;; ENTRIES contains entries below the current one.
- ;; CACHE is the rest. Compute the summaries for the
- ;; properties we want, set nil properties for the rest.
- (when (setq entries (mapcar #'cdr entries))
- (org-columns--display-here
- (mapcar
- (lambda (spec)
- (pcase spec
- (`("ITEM" . ,_)
- ;; Replace ITEM with current date. Preserve
- ;; properties for fontification.
- (let ((date (buffer-substring
- (line-beginning-position)
- (line-end-position))))
- (list spec date date)))
- (`(,_ ,_ ,_ nil ,_) (list spec "" ""))
- (`(,_ ,_ ,_ ,operator ,printf)
- (let* ((summarize (org-columns--summarize operator))
- (values
- ;; Use real values for summary, not
- ;; those prepared for display.
- (delq nil
- (mapcar
- (lambda (e) (org-string-nw-p
- (nth 1 (assoc spec e))))
- entries)))
- (final (if values
- (funcall summarize values printf)
- "")))
- (unless (equal final "")
- (put-text-property 0 (length final)
- 'face 'bold final))
- (list spec final final)))))
- fmt)
- 'dateline)
- (setq-local org-agenda-columns-active t))))
- (if (bobp) (throw :complete t) (forward-line -1)))))))
-
-(defun org-agenda-colview-compute (fmt)
- "Compute the relevant columns in the contributing source buffers."
- (dolist (file org-agenda-contributing-files)
- (let ((b (find-buffer-visiting file)))
- (with-current-buffer (or (buffer-base-buffer b) b)
- (org-with-wide-buffer
- (org-with-silent-modifications
- (remove-text-properties (point-min) (point-max) '(org-summaries t)))
- (goto-char (point-min))
- (org-columns-get-format-and-top-level)
- (dolist (spec fmt)
- (let ((prop (car spec)))
- (cond
- ((equal prop "CLOCKSUM") (org-clock-sum))
- ((equal prop "CLOCKSUM_T") (org-clock-sum-today))
- ((and (nth 3 spec)
- (let ((a (assoc prop org-columns-current-fmt-compiled)))
- (equal (nth 3 a) (nth 3 spec))))
- (org-columns-compute prop))))))))))
-
-
-(provide 'org-colview)
-
-;;; org-colview.el ends here
diff --git a/elpa/org-9.1.14/org-colview.elc b/elpa/org-9.1.14/org-colview.elc
deleted file mode 100644
index c8f7ed7..0000000
--- a/elpa/org-9.1.14/org-colview.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-compat.el b/elpa/org-9.1.14/org-compat.el
deleted file mode 100644
index 1fd408d..0000000
--- a/elpa/org-9.1.14/org-compat.el
+++ /dev/null
@@ -1,563 +0,0 @@
-;;; org-compat.el --- Compatibility Code for Older Emacsen -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains code needed for compatibility with older
-;; versions of GNU Emacs.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org-macs)
-
-(declare-function org-at-table.el-p "org" ())
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-type "org-element" (element))
-(declare-function org-end-of-subtree "org" (&optional invisible-ok to-heading))
-(declare-function org-link-set-parameters "org" (type &rest rest))
-(declare-function org-table-end "org-table" (&optional table-type))
-(declare-function outline-next-heading "outline" ())
-(declare-function table--at-cell-p "table" (position &optional object at-column))
-
-(defvar org-table-any-border-regexp)
-(defvar org-table-dataline-regexp)
-(defvar org-table-tab-recognizes-table.el)
-(defvar org-table1-hline-regexp)
-
-;;; Emacs < 25.1 compatibility
-
-(when (< emacs-major-version 25)
- (defalias 'outline-hide-entry 'hide-entry)
- (defalias 'outline-hide-sublevels 'hide-sublevels)
- (defalias 'outline-hide-subtree 'hide-subtree)
- (defalias 'outline-show-all 'show-all)
- (defalias 'outline-show-branches 'show-branches)
- (defalias 'outline-show-children 'show-children)
- (defalias 'outline-show-entry 'show-entry)
- (defalias 'outline-show-subtree 'show-subtree)
- (defalias 'xref-find-definitions 'find-tag)
- (defalias 'format-message 'format)
- (defalias 'gui-get-selection 'x-get-selection))
-
-(unless (fboundp 'directory-name-p)
- (defun directory-name-p (name)
- "Return non-nil if NAME ends with a directory separator character."
- (let ((len (length name))
- (lastc ?.))
- (if (> len 0)
- (setq lastc (aref name (1- len))))
- (or (= lastc ?/)
- (and (memq system-type '(windows-nt ms-dos))
- (= lastc ?\\))))))
-
-
-;;; Obsolete aliases (remove them after the next major release).
-
-;;;; XEmacs compatibility, now removed.
-(define-obsolete-function-alias 'org-activate-mark 'activate-mark)
-(define-obsolete-function-alias 'org-add-hook 'add-hook "Org 9.0")
-(define-obsolete-function-alias 'org-bound-and-true-p 'bound-and-true-p "Org 9.0")
-(define-obsolete-function-alias 'org-decompose-region 'decompose-region "Org 9.0")
-(define-obsolete-function-alias 'org-defvaralias 'defvaralias "Org 9.0")
-(define-obsolete-function-alias 'org-detach-overlay 'delete-overlay "Org 9.0")
-(define-obsolete-function-alias 'org-file-equal-p 'file-equal-p "Org 9.0")
-(define-obsolete-function-alias 'org-float-time 'float-time "Org 9.0")
-(define-obsolete-function-alias 'org-indent-line-to 'indent-line-to "Org 9.0")
-(define-obsolete-function-alias 'org-indent-to-column 'indent-to-column "Org 9.0")
-(define-obsolete-function-alias 'org-looking-at-p 'looking-at-p "Org 9.0")
-(define-obsolete-function-alias 'org-looking-back 'looking-back "Org 9.0")
-(define-obsolete-function-alias 'org-match-string-no-properties 'match-string-no-properties "Org 9.0")
-(define-obsolete-function-alias 'org-propertize 'propertize "Org 9.0")
-(define-obsolete-function-alias 'org-select-frame-set-input-focus 'select-frame-set-input-focus "Org 9.0")
-
-(defmacro org-re (s)
- "Replace posix classes in regular expression S."
- (declare (debug (form))
- (obsolete "you can safely remove it." "Org 9.0"))
- s)
-
-;;;; Functions from cl-lib that Org used to have its own implementation of.
-(define-obsolete-function-alias 'org-count 'cl-count "Org 9.0")
-(define-obsolete-function-alias 'org-every 'cl-every "Org 9.0")
-(define-obsolete-function-alias 'org-find-if 'cl-find-if "Org 9.0")
-(define-obsolete-function-alias 'org-reduce 'cl-reduce "Org 9.0")
-(define-obsolete-function-alias 'org-remove-if 'cl-remove-if "Org 9.0")
-(define-obsolete-function-alias 'org-remove-if-not 'cl-remove-if-not "Org 9.0")
-(define-obsolete-function-alias 'org-some 'cl-some "Org 9.0")
-(define-obsolete-function-alias 'org-floor* 'cl-floor "Org 9.0")
-
-(defun org-sublist (list start end)
- "Return a section of LIST, from START to END.
-Counting starts at 1."
- (cl-subseq list (1- start) end))
-(make-obsolete 'org-sublist
- "use cl-subseq (note the 0-based counting)."
- "Org 9.0")
-
-
-;;;; Functions available since Emacs 24.3
-(define-obsolete-function-alias 'org-buffer-narrowed-p 'buffer-narrowed-p "Org 9.0")
-(define-obsolete-function-alias 'org-called-interactively-p 'called-interactively-p "Org 9.0")
-(define-obsolete-function-alias 'org-char-to-string 'char-to-string "Org 9.0")
-(define-obsolete-function-alias 'org-delete-directory 'delete-directory "Org 9.0")
-(define-obsolete-function-alias 'org-format-seconds 'format-seconds "Org 9.0")
-(define-obsolete-function-alias 'org-link-escape-browser 'url-encode-url "Org 9.0")
-(define-obsolete-function-alias 'org-no-warnings 'with-no-warnings "Org 9.0")
-(define-obsolete-function-alias 'org-number-sequence 'number-sequence "Org 9.0")
-(define-obsolete-function-alias 'org-pop-to-buffer-same-window 'pop-to-buffer-same-window "Org 9.0")
-(define-obsolete-function-alias 'org-string-match-p 'string-match-p "Org 9.0")
-
-;;;; Functions and variables from previous releases now obsolete.
-(define-obsolete-function-alias 'org-element-remove-indentation
- 'org-remove-indentation "Org 9.0")
-(define-obsolete-variable-alias 'org-latex-create-formula-image-program
- 'org-preview-latex-default-process "Org 9.0")
-(define-obsolete-variable-alias 'org-latex-preview-ltxpng-directory
- 'org-preview-latex-image-directory "Org 9.0")
-(define-obsolete-function-alias 'org-table-p 'org-at-table-p "Org 9.0")
-(define-obsolete-function-alias 'org-on-heading-p 'org-at-heading-p "Org 9.0")
-(define-obsolete-function-alias 'org-at-regexp-p 'org-in-regexp "Org 8.3")
-(define-obsolete-function-alias 'org-image-file-name-regexp
- 'image-file-name-regexp "Org 9.0")
-(define-obsolete-function-alias 'org-completing-read-no-i
- 'completing-read "Org 9.0")
-(define-obsolete-function-alias 'org-icompleting-read
- 'completing-read "Org 9.0")
-(define-obsolete-function-alias 'org-iread-file-name 'read-file-name "Org 9.0")
-(define-obsolete-function-alias 'org-days-to-time
- 'org-time-stamp-to-now "Org 8.2")
-(define-obsolete-variable-alias 'org-agenda-ignore-drawer-properties
- 'org-agenda-ignore-properties "Org 9.0")
-(define-obsolete-function-alias 'org-preview-latex-fragment
- 'org-toggle-latex-fragment "Org 8.3")
-(define-obsolete-function-alias 'org-export-get-genealogy
- 'org-element-lineage "Org 9.0")
-(define-obsolete-variable-alias 'org-latex-with-hyperref
- 'org-latex-hyperref-template "Org 9.0")
-(define-obsolete-variable-alias 'hfy-optimisations 'hfy-optimizations "Org 9.0")
-(define-obsolete-variable-alias 'org-export-htmlized-org-css-url
- 'org-org-htmlized-css-url "Org 8.2")
-(define-obsolete-function-alias 'org-list-parse-list 'org-list-to-lisp "Org 9.0")
-(define-obsolete-function-alias 'org-agenda-todayp
- 'org-agenda-today-p "Org 9.0")
-(define-obsolete-function-alias 'org-babel-examplize-region
- 'org-babel-examplify-region "Org 9.0")
-(define-obsolete-variable-alias 'org-babel-capitalize-example-region-markers
- 'org-babel-uppercase-example-markers "Org 9.1")
-
-(define-obsolete-function-alias 'org-babel-trim 'org-trim "Org 9.0")
-(define-obsolete-variable-alias 'org-html-style 'org-html-head "24.4")
-(define-obsolete-function-alias 'org-insert-columns-dblock
- 'org-columns-insert-dblock "Org 9.0")
-(define-obsolete-variable-alias 'org-export-babel-evaluate
- 'org-export-use-babel "Org 9.1")
-(define-obsolete-function-alias 'org-activate-bracket-links
- 'org-activate-links "Org 9.0")
-(define-obsolete-function-alias 'org-activate-plain-links 'ignore "Org 9.0")
-(define-obsolete-function-alias 'org-activate-angle-links 'ignore "Org 9.0")
-
-(defun org-in-fixed-width-region-p ()
- "Non-nil if point in a fixed-width region."
- (save-match-data
- (eq 'fixed-width (org-element-type (org-element-at-point)))))
-(make-obsolete 'org-in-fixed-width-region-p
- "use `org-element' library"
- "Org 9.0")
-
-(defun org-compatible-face (inherits specs)
- "Make a compatible face specification.
-If INHERITS is an existing face and if the Emacs version supports
-it, just inherit the face. If INHERITS is not given and SPECS
-is, use SPECS to define the face."
- (declare (indent 1))
- (if (facep inherits)
- (list (list t :inherit inherits))
- specs))
-(make-obsolete 'org-compatible-face "you can remove it." "Org 9.0")
-
-(defun org-add-link-type (type &optional follow export)
- "Add a new TYPE link.
-FOLLOW and EXPORT are two functions.
-
-FOLLOW should take the link path as the single argument and do whatever
-is necessary to follow the link, for example find a file or display
-a mail message.
-
-EXPORT should format the link path for export to one of the export formats.
-It should be a function accepting three arguments:
-
- path the path of the link, the text after the prefix (like \"http:\")
- desc the description of the link, if any
- format the export format, a symbol like `html' or `latex' or `ascii'.
-
-The function may use the FORMAT information to return different values
-depending on the format. The return value will be put literally into
-the exported file. If the return value is nil, this means Org should
-do what it normally does with links which do not have EXPORT defined.
-
-Org mode has a built-in default for exporting links. If you are happy with
-this default, there is no need to define an export function for the link
-type. For a simple example of an export function, see `org-bbdb.el'.
-
-If TYPE already exists, update it with the arguments.
-See `org-link-parameters' for documentation on the other parameters."
- (org-link-set-parameters type :follow follow :export export)
- (message "Created %s link." type))
-
-(make-obsolete 'org-add-link-type "use `org-link-set-parameters' instead." "Org 9.0")
-
-(defun org-table-recognize-table.el ()
- "If there is a table.el table nearby, recognize it and move into it."
- (when (and org-table-tab-recognizes-table.el (org-at-table.el-p))
- (beginning-of-line)
- (unless (or (looking-at org-table-dataline-regexp)
- (not (looking-at org-table1-hline-regexp)))
- (forward-line)
- (when (looking-at org-table-any-border-regexp)
- (forward-line -2)))
- (if (re-search-forward "|" (org-table-end t) t)
- (progn
- (require 'table)
- (if (table--at-cell-p (point)) t
- (message "recognizing table.el table...")
- (table-recognize-table)
- (message "recognizing table.el table...done")))
- (error "This should not happen"))))
-
-;; Not used by Org core since commit 6d1e3082, Feb 2010.
-(make-obsolete 'org-table-recognize-table.el
- "please notify the org mailing list if you use this function."
- "Org 9.0")
-
-(defun org-remove-angle-brackets (s)
- (org-unbracket-string "<" ">" s))
-(make-obsolete 'org-remove-angle-brackets 'org-unbracket-string "Org 9.0")
-
-(defun org-remove-double-quotes (s)
- (org-unbracket-string "\"" "\"" s))
-(make-obsolete 'org-remove-double-quotes 'org-unbracket-string "Org 9.0")
-
-(defcustom org-publish-sitemap-file-entry-format "%t"
- "Format string for site-map file entry.
-You could use brackets to delimit on what part the link will be.
-
-%t is the title.
-%a is the author.
-%d is the date formatted using `org-publish-sitemap-date-format'."
- :group 'org-export-publish
- :type 'string)
-(make-obsolete-variable
- 'org-publish-sitemap-file-entry-format
- "set `:sitemap-format-entry' in `org-publish-project-alist' instead."
- "Org 9.1")
-
-(defvar org-agenda-skip-regexp)
-(defun org-agenda-skip-entry-when-regexp-matches ()
- "Check if the current entry contains match for `org-agenda-skip-regexp'.
-If yes, it returns the end position of this entry, causing agenda commands
-to skip the entry but continuing the search in the subtree. This is a
-function that can be put into `org-agenda-skip-function' for the duration
-of a command."
- (declare (obsolete "use `org-agenda-skip-if' instead." "Org 9.1"))
- (let ((end (save-excursion (org-end-of-subtree t)))
- skip)
- (save-excursion
- (setq skip (re-search-forward org-agenda-skip-regexp end t)))
- (and skip end)))
-
-(defun org-agenda-skip-subtree-when-regexp-matches ()
- "Check if the current subtree contains match for `org-agenda-skip-regexp'.
-If yes, it returns the end position of this tree, causing agenda commands
-to skip this subtree. This is a function that can be put into
-`org-agenda-skip-function' for the duration of a command."
- (declare (obsolete "use `org-agenda-skip-if' instead." "Org 9.1"))
- (let ((end (save-excursion (org-end-of-subtree t)))
- skip)
- (save-excursion
- (setq skip (re-search-forward org-agenda-skip-regexp end t)))
- (and skip end)))
-
-(defun org-agenda-skip-entry-when-regexp-matches-in-subtree ()
- "Check if the current subtree contains match for `org-agenda-skip-regexp'.
-If yes, it returns the end position of the current entry (NOT the tree),
-causing agenda commands to skip the entry but continuing the search in
-the subtree. This is a function that can be put into
-`org-agenda-skip-function' for the duration of a command. An important
-use of this function is for the stuck project list."
- (declare (obsolete "use `org-agenda-skip-if' instead." "Org 9.1"))
- (let ((end (save-excursion (org-end-of-subtree t)))
- (entry-end (save-excursion (outline-next-heading) (1- (point))))
- skip)
- (save-excursion
- (setq skip (re-search-forward org-agenda-skip-regexp end t)))
- (and skip entry-end)))
-
-(define-obsolete-function-alias 'org-minutes-to-clocksum-string
- 'org-duration-from-minutes "Org 9.1")
-
-(define-obsolete-function-alias 'org-hh:mm-string-to-minutes
- 'org-duration-to-minutes "Org 9.1")
-
-(define-obsolete-function-alias 'org-duration-string-to-minutes
- 'org-duration-to-minutes "Org 9.1")
-
-(make-obsolete-variable 'org-time-clocksum-format
- "set `org-duration-format' instead." "Org 9.1")
-
-(make-obsolete-variable 'org-time-clocksum-use-fractional
- "set `org-duration-format' instead." "Org 9.1")
-
-(make-obsolete-variable 'org-time-clocksum-fractional-format
- "set `org-duration-format' instead." "Org 9.1")
-
-(make-obsolete-variable 'org-time-clocksum-use-effort-durations
- "set `org-duration-units' instead." "Org 9.1")
-
-(define-obsolete-function-alias 'org-babel-number-p
- 'org-babel--string-to-number "Org 9.0")
-
-(define-obsolete-variable-alias 'org-usenet-links-prefer-google
- 'org-gnus-prefer-web-links "Org 9.1")
-
-(define-obsolete-variable-alias 'org-texinfo-def-table-markup
- 'org-texinfo-table-default-markup "Org 9.1")
-
-;;; The function was made obsolete by commit 65399674d5 of 2013-02-22.
-;;; This make-obsolete call was added 2016-09-01.
-(make-obsolete 'org-capture-import-remember-templates
- "use the `org-capture-templates' variable instead."
- "Org 9.0")
-
-
-;;;; Obsolete link types
-
-(eval-after-load 'org
- '(progn
- (org-link-set-parameters "file+emacs") ;since Org 9.0
- (org-link-set-parameters "file+sys"))) ;since Org 9.0
-
-
-
-;;; Miscellaneous functions
-
-(defun org-version-check (version feature level)
- (let* ((v1 (mapcar 'string-to-number (split-string version "[.]")))
- (v2 (mapcar 'string-to-number (split-string emacs-version "[.]")))
- (rmaj (or (nth 0 v1) 99))
- (rmin (or (nth 1 v1) 99))
- (rbld (or (nth 2 v1) 99))
- (maj (or (nth 0 v2) 0))
- (min (or (nth 1 v2) 0))
- (bld (or (nth 2 v2) 0)))
- (if (or (< maj rmaj)
- (and (= maj rmaj)
- (< min rmin))
- (and (= maj rmaj)
- (= min rmin)
- (< bld rbld)))
- (if (eq level :predicate)
- ;; just return if we have the version
- nil
- (let ((msg (format "Emacs %s or greater is recommended for %s"
- version feature)))
- (display-warning 'org msg level)
- t))
- t)))
-
-(defun org-get-x-clipboard (value)
- "Get the value of the X or Windows clipboard."
- (cond ((and (eq window-system 'x)
- (fboundp 'gui-get-selection)) ;Silence byte-compiler.
- (org-no-properties
- (ignore-errors
- (or (gui-get-selection value 'UTF8_STRING)
- (gui-get-selection value 'COMPOUND_TEXT)
- (gui-get-selection value 'STRING)
- (gui-get-selection value 'TEXT)))))
- ((and (eq window-system 'w32) (fboundp 'w32-get-clipboard-data))
- (w32-get-clipboard-data))))
-
-(defun org-add-props (string plist &rest props)
- "Add text properties to entire string, from beginning to end.
-PLIST may be a list of properties, PROPS are individual properties and values
-that will be added to PLIST. Returns the string that was modified."
- (add-text-properties
- 0 (length string) (if props (append plist props) plist) string)
- string)
-(put 'org-add-props 'lisp-indent-function 2)
-
-(defun org-fit-window-to-buffer (&optional window max-height min-height
- shrink-only)
- "Fit WINDOW to the buffer, but only if it is not a side-by-side window.
-WINDOW defaults to the selected window. MAX-HEIGHT and MIN-HEIGHT are
-passed through to `fit-window-to-buffer'. If SHRINK-ONLY is set, call
-`shrink-window-if-larger-than-buffer' instead, the height limit is
-ignored in this case."
- (cond ((if (fboundp 'window-full-width-p)
- (not (window-full-width-p window))
- ;; do nothing if another window would suffer
- (> (frame-width) (window-width window))))
- ((and (fboundp 'fit-window-to-buffer) (not shrink-only))
- (fit-window-to-buffer window max-height min-height))
- ((fboundp 'shrink-window-if-larger-than-buffer)
- (shrink-window-if-larger-than-buffer window)))
- (or window (selected-window)))
-
-;; `set-transient-map' is only in Emacs >= 24.4
-(defalias 'org-set-transient-map
- (if (fboundp 'set-transient-map)
- 'set-transient-map
- 'set-temporary-overlay-map))
-
-;;; Region compatibility
-
-(defvar org-ignore-region nil
- "Non-nil means temporarily disable the active region.")
-
-(defun org-region-active-p ()
- "Non-nil when the region active.
-Unlike to `use-region-p', this function also checks
-`org-ignore-region'."
- (and (not org-ignore-region) (use-region-p)))
-
-(defun org-cursor-to-region-beginning ()
- (when (and (org-region-active-p)
- (> (point) (region-beginning)))
- (exchange-point-and-mark)))
-
-;;; Invisibility compatibility
-
-(defun org-remove-from-invisibility-spec (arg)
- "Remove elements from `buffer-invisibility-spec'."
- (if (fboundp 'remove-from-invisibility-spec)
- (remove-from-invisibility-spec arg)
- (if (consp buffer-invisibility-spec)
- (setq buffer-invisibility-spec
- (delete arg buffer-invisibility-spec)))))
-
-(defun org-in-invisibility-spec-p (arg)
- "Is ARG a member of `buffer-invisibility-spec'?"
- (if (consp buffer-invisibility-spec)
- (member arg buffer-invisibility-spec)))
-
-(defun org-move-to-column (column &optional force _buffer)
- "Move to column COLUMN.
-Pass COLUMN and FORCE to `move-to-column'."
- (let ((buffer-invisibility-spec
- (if (listp buffer-invisibility-spec)
- (remove '(org-filtered) buffer-invisibility-spec)
- buffer-invisibility-spec)))
- (move-to-column column force)))
-
-(defmacro org-find-library-dir (library)
- `(file-name-directory (or (locate-library ,library) "")))
-
-(defun org-count-lines (s)
- "How many lines in string S?"
- (let ((start 0) (n 1))
- (while (string-match "\n" s start)
- (setq start (match-end 0) n (1+ n)))
- (if (and (> (length s) 0) (= (aref s (1- (length s))) ?\n))
- (setq n (1- n)))
- n))
-
-(defun org-kill-new (string &rest args)
- (remove-text-properties 0 (length string) '(line-prefix t wrap-prefix t)
- string)
- (apply 'kill-new string args))
-
-;; `font-lock-ensure' is only available from 24.4.50 on
-(defalias 'org-font-lock-ensure
- (if (fboundp 'font-lock-ensure)
- #'font-lock-ensure
- (lambda (&optional _beg _end)
- (with-no-warnings (font-lock-fontify-buffer)))))
-
-;; `file-local-name' was added in Emacs 26.1.
-(defalias 'org-babel-local-file-name
- (if (fboundp 'file-local-name)
- 'file-local-name
- (lambda (file)
- "Return the local name component of FILE."
- (or (file-remote-p file 'localname) file))))
-
-(defmacro org-no-popups (&rest body)
- "Suppress popup windows.
-Let-bind some variables to nil around BODY to achieve the desired
-effect, which variables to use depends on the Emacs version."
- (if (org-version-check "24.2.50" "" :predicate)
- `(let (pop-up-frames display-buffer-alist)
- ,@body)
- `(let (pop-up-frames special-display-buffer-names special-display-regexps special-display-function)
- ,@body)))
-
-;;;###autoload
-(defmacro org-check-version ()
- "Try very hard to provide sensible version strings."
- (let* ((org-dir (org-find-library-dir "org"))
- (org-version.el (concat org-dir "org-version.el"))
- (org-fixup.el (concat org-dir "../mk/org-fixup.el")))
- (if (require 'org-version org-version.el 'noerror)
- '(progn
- (autoload 'org-release "org-version.el")
- (autoload 'org-git-version "org-version.el"))
- (if (require 'org-fixup org-fixup.el 'noerror)
- '(org-fixup)
- ;; provide fallback definitions and complain
- (warn "Could not define org version correctly. Check installation!")
- '(progn
- (defun org-release () "N/A")
- (defun org-git-version () "N/A !!check installation!!"))))))
-
-(defmacro org-with-silent-modifications (&rest body)
- (if (fboundp 'with-silent-modifications)
- `(with-silent-modifications ,@body)
- `(org-unmodified ,@body)))
-(def-edebug-spec org-with-silent-modifications (body))
-
-;; Functions for Emacs < 24.4 compatibility
-(defun org-define-error (name message)
- "Define NAME as a new error signal.
-MESSAGE is a string that will be output to the echo area if such
-an error is signaled without being caught by a `condition-case'.
-Implements `define-error' for older emacsen."
- (if (fboundp 'define-error) (define-error name message)
- (put name 'error-conditions
- (copy-sequence (cons name (get 'error 'error-conditions))))))
-
-(unless (fboundp 'string-suffix-p)
- ;; From Emacs subr.el.
- (defun string-suffix-p (suffix string &optional ignore-case)
- "Return non-nil if SUFFIX is a suffix of STRING.
-If IGNORE-CASE is non-nil, the comparison is done without paying
-attention to case differences."
- (let ((start-pos (- (length string) (length suffix))))
- (and (>= start-pos 0)
- (eq t (compare-strings suffix nil nil
- string start-pos nil ignore-case))))))
-
-(provide 'org-compat)
-
-;;; org-compat.el ends here
diff --git a/elpa/org-9.1.14/org-compat.elc b/elpa/org-9.1.14/org-compat.elc
deleted file mode 100644
index 54b67bd..0000000
--- a/elpa/org-9.1.14/org-compat.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-crypt.el b/elpa/org-9.1.14/org-crypt.el
deleted file mode 100644
index 31850a4..0000000
--- a/elpa/org-9.1.14/org-crypt.el
+++ /dev/null
@@ -1,275 +0,0 @@
-;;; org-crypt.el --- Public Key Encryption for Org Entries -*- lexical-binding: t; -*-
-;; Copyright (C) 2007-2018 Free Software Foundation, Inc.
-
-;; Emacs Lisp Archive Entry
-;; Filename: org-crypt.el
-;; Keywords: org-mode
-;; Author: John Wiegley <johnw@gnu.org>
-;; Maintainer: Peter Jones <pjones@pmade.com>
-;; Description: Adds public key encryption to Org buffers
-;; URL: http://www.newartisans.com/software/emacs.html
-;; Compatibility: Emacs22
-
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Right now this is just a set of functions to play with. It depends
-;; on the epg library. Here's how you would use it:
-;;
-;; 1. To mark an entry for encryption, tag the heading with "crypt".
-;; You can change the tag to any complex tag matching string by
-;; setting the `org-crypt-tag-matcher' variable.
-;;
-;; 2. Set the encryption key to use in the `org-crypt-key' variable,
-;; or use `M-x org-set-property' to set the property CRYPTKEY to
-;; any address in your public keyring. The text of the entry (but
-;; not its properties or headline) will be encrypted for this user.
-;; For them to read it, the corresponding secret key must be
-;; located in the secret key ring of the account where you try to
-;; decrypt it. This makes it possible to leave secure notes that
-;; only the intended recipient can read in a shared-org-mode-files
-;; scenario.
-;; If the key is not set, org-crypt will default to symmetric encryption.
-;;
-;; 3. To later decrypt an entry, use `org-decrypt-entries' or
-;; `org-decrypt-entry'. It might be useful to bind this to a key,
-;; like C-c C-/. I hope that in the future, C-c C-r can be might
-;; overloaded to also decrypt an entry if it's encrypted, since
-;; that fits nicely with the meaning of "reveal".
-;;
-;; 4. To automatically encrypt all necessary entries when saving a
-;; file, call `org-crypt-use-before-save-magic' after loading
-;; org-crypt.el.
-
-;;; Thanks:
-
-;; - Carsten Dominik
-;; - Vitaly Ostanin
-
-(require 'org)
-
-;;; Code:
-
-(declare-function epg-decrypt-string "epg" (context cipher))
-(declare-function epg-list-keys "epg" (context &optional name mode))
-(declare-function epg-make-context "epg"
- (&optional protocol armor textmode include-certs
- cipher-algorithm digest-algorithm
- compress-algorithm))
-(declare-function epg-encrypt-string "epg"
- (context plain recipients &optional sign always-trust))
-(defvar epg-context)
-
-
-(defgroup org-crypt nil
- "Org Crypt."
- :tag "Org Crypt"
- :group 'org)
-
-(defcustom org-crypt-tag-matcher "crypt"
- "The tag matcher used to find headings whose contents should be encrypted.
-
-See the \"Match syntax\" section of the org manual for more details."
- :type 'string
- :group 'org-crypt)
-
-(defcustom org-crypt-key ""
- "The default key to use when encrypting the contents of a heading.
-
-This setting can also be overridden in the CRYPTKEY property."
- :type 'string
- :group 'org-crypt)
-
-(defcustom org-crypt-disable-auto-save 'ask
- "What org-decrypt should do if `auto-save-mode' is enabled.
-
-t : Disable auto-save-mode for the current buffer
- prior to decrypting an entry.
-
-nil : Leave auto-save-mode enabled.
- This may cause data to be written to disk unencrypted!
-
-`ask' : Ask user whether or not to disable auto-save-mode
- for the current buffer.
-
-`encrypt': Leave auto-save-mode enabled for the current buffer,
- but automatically re-encrypt all decrypted entries
- *before* auto-saving.
- NOTE: This only works for entries which have a tag
- that matches `org-crypt-tag-matcher'."
- :group 'org-crypt
- :version "24.1"
- :type '(choice (const :tag "Always" t)
- (const :tag "Never" nil)
- (const :tag "Ask" ask)
- (const :tag "Encrypt" encrypt)))
-
-(defun org-crypt-check-auto-save ()
- "Check whether auto-save-mode is enabled for the current buffer.
-
-`auto-save-mode' may cause leakage when decrypting entries, so
-check whether it's enabled, and decide what to do about it.
-
-See `org-crypt-disable-auto-save'."
- (when buffer-auto-save-file-name
- (cond
- ((or
- (eq org-crypt-disable-auto-save t)
- (and
- (eq org-crypt-disable-auto-save 'ask)
- (y-or-n-p "org-decrypt: auto-save-mode may cause leakage. Disable it for current buffer? ")))
- (message "org-decrypt: Disabling auto-save-mode for %s"
- (or (buffer-file-name) (current-buffer)))
- ;; The argument to auto-save-mode has to be "-1", since
- ;; giving a "nil" argument toggles instead of disabling.
- (auto-save-mode -1))
- ((eq org-crypt-disable-auto-save nil)
- (message "org-decrypt: Decrypting entry with auto-save-mode enabled. This may cause leakage."))
- ((eq org-crypt-disable-auto-save 'encrypt)
- (message "org-decrypt: Enabling re-encryption on auto-save.")
- (add-hook 'auto-save-hook
- (lambda ()
- (message "org-crypt: Re-encrypting all decrypted entries due to auto-save.")
- (org-encrypt-entries))
- nil t))
- (t nil))))
-
-(defun org-crypt-key-for-heading ()
- "Return the encryption key for the current heading."
- (save-excursion
- (org-back-to-heading t)
- (or (org-entry-get nil "CRYPTKEY" 'selective)
- org-crypt-key
- (and (boundp 'epa-file-encrypt-to) epa-file-encrypt-to)
- (message "No crypt key set, using symmetric encryption."))))
-
-(defun org-encrypt-string (str crypt-key)
- "Return STR encrypted with CRYPT-KEY."
- ;; Text and key have to be identical, otherwise we re-crypt.
- (if (and (string= crypt-key (get-text-property 0 'org-crypt-key str))
- (string= (sha1 str) (get-text-property 0 'org-crypt-checksum str)))
- (get-text-property 0 'org-crypt-text str)
- (setq-local epg-context (epg-make-context nil t t))
- (epg-encrypt-string epg-context str (epg-list-keys epg-context crypt-key))))
-
-(defun org-encrypt-entry ()
- "Encrypt the content of the current headline."
- (interactive)
- (require 'epg)
- (org-with-wide-buffer
- (org-back-to-heading t)
- (setq-local epg-context (epg-make-context nil t t))
- (let ((start-heading (point)))
- (org-end-of-meta-data)
- (unless (looking-at-p "-----BEGIN PGP MESSAGE-----")
- (let ((folded (org-invisible-p))
- (crypt-key (org-crypt-key-for-heading))
- (beg (point)))
- (goto-char start-heading)
- (org-end-of-subtree t t)
- (org-back-over-empty-lines)
- (let ((contents (delete-and-extract-region beg (point))))
- (condition-case err
- (insert (org-encrypt-string contents crypt-key))
- ;; If encryption failed, make sure to insert back entry
- ;; contents in the buffer.
- (error (insert contents) (error (nth 1 err)))))
- (when folded
- (goto-char start-heading)
- (outline-hide-subtree))
- nil)))))
-
-(defun org-decrypt-entry ()
- "Decrypt the content of the current headline."
- (interactive)
- (require 'epg)
- (unless (org-before-first-heading-p)
- (org-with-wide-buffer
- (org-back-to-heading t)
- (let ((heading-point (point))
- (heading-was-invisible-p
- (save-excursion
- (outline-end-of-heading)
- (org-invisible-p))))
- (org-end-of-meta-data)
- (when (looking-at "-----BEGIN PGP MESSAGE-----")
- (org-crypt-check-auto-save)
- (setq-local epg-context (epg-make-context nil t t))
- (let* ((end (save-excursion
- (search-forward "-----END PGP MESSAGE-----")
- (forward-line)
- (point)))
- (encrypted-text (buffer-substring-no-properties (point) end))
- (decrypted-text
- (decode-coding-string
- (epg-decrypt-string
- epg-context
- encrypted-text)
- 'utf-8)))
- ;; Delete region starting just before point, because the
- ;; outline property starts at the \n of the heading.
- (delete-region (1- (point)) end)
- ;; Store a checksum of the decrypted and the encrypted
- ;; text value. This allows reusing the same encrypted text
- ;; if the text does not change, and therefore avoid a
- ;; re-encryption process.
- (insert "\n" (propertize decrypted-text
- 'org-crypt-checksum (sha1 decrypted-text)
- 'org-crypt-key (org-crypt-key-for-heading)
- 'org-crypt-text encrypted-text))
- (when heading-was-invisible-p
- (goto-char heading-point)
- (org-flag-subtree t))
- nil))))))
-
-(defun org-encrypt-entries ()
- "Encrypt all top-level entries in the current buffer."
- (interactive)
- (let ((org--matcher-tags-todo-only nil))
- (org-scan-tags
- 'org-encrypt-entry
- (cdr (org-make-tags-matcher org-crypt-tag-matcher))
- org--matcher-tags-todo-only)))
-
-(defun org-decrypt-entries ()
- "Decrypt all entries in the current buffer."
- (interactive)
- (let ((org--matcher-tags-todo-only nil))
- (org-scan-tags
- 'org-decrypt-entry
- (cdr (org-make-tags-matcher org-crypt-tag-matcher))
- org--matcher-tags-todo-only)))
-
-(defun org-at-encrypted-entry-p ()
- "Is the current entry encrypted?"
- (unless (org-before-first-heading-p)
- (save-excursion
- (org-back-to-heading t)
- (search-forward "-----BEGIN PGP MESSAGE-----"
- (save-excursion (outline-next-heading)) t))))
-
-(defun org-crypt-use-before-save-magic ()
- "Add a hook to automatically encrypt entries before a file is saved to disk."
- (add-hook
- 'org-mode-hook
- (lambda () (add-hook 'before-save-hook 'org-encrypt-entries nil t))))
-
-(add-hook 'org-reveal-start-hook 'org-decrypt-entry)
-
-(provide 'org-crypt)
-
-;;; org-crypt.el ends here
diff --git a/elpa/org-9.1.14/org-crypt.elc b/elpa/org-9.1.14/org-crypt.elc
deleted file mode 100644
index 3805726..0000000
--- a/elpa/org-9.1.14/org-crypt.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-ctags.el b/elpa/org-9.1.14/org-ctags.el
deleted file mode 100644
index 72ea76f..0000000
--- a/elpa/org-9.1.14/org-ctags.el
+++ /dev/null
@@ -1,533 +0,0 @@
-;;; org-ctags.el - Integrate Emacs "tags" Facility with Org -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2007-2018 Free Software Foundation, Inc.
-
-;; Author: Paul Sexton <eeeickythump@gmail.com>
-
-
-;; Keywords: org, wp
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;
-;; Synopsis
-;; ========
-;;
-;; Allows Org mode to make use of the Emacs `etags' system. Defines
-;; tag destinations in Org files as any text between <<double angled
-;; brackets>>. This allows the tags-generation program `exuberant
-;; ctags' to parse these files and create tag tables that record where
-;; these destinations are found. Plain [[links]] in org mode files
-;; which do not have <<matching destinations>> within the same file
-;; will then be interpreted as links to these 'tagged' destinations,
-;; allowing seamless navigation between multiple Org files. Topics
-;; can be created in any org mode file and will always be found by
-;; plain links from other files. Other file types recognized by ctags
-;; (source code files, latex files, etc) will also be available as
-;; destinations for plain links, and similarly, Org links will be
-;; available as tags from source files. Finally, the function
-;; `org-ctags-find-tag-interactive' lets you choose any known tag,
-;; using autocompletion, and quickly jump to it.
-;;
-;; Installation
-;; ============
-;;
-;; Install org mode
-;; Ensure org-ctags.el is somewhere in your emacs load path.
-;; Download and install Exuberant ctags -- "http://ctags.sourceforge.net/"
-;; Edit your .emacs file (see next section) and load emacs.
-
-;; To put in your init file (.emacs):
-;; ==================================
-;;
-;; Assuming you already have org mode installed and set up:
-;;
-;; (setq org-ctags-path-to-ctags "/path/to/ctags/executable")
-;; (add-hook 'org-mode-hook
-;; (lambda ()
-;; (define-key org-mode-map "\C-co" 'org-ctags-find-tag-interactive)))
-;;
-;; By default, with org-ctags loaded, org will first try and visit the tag
-;; with the same name as the link; then, if unsuccessful, ask the user if
-;; he/she wants to rebuild the 'TAGS' database and try again; then ask if
-;; the user wishes to append 'tag' as a new toplevel heading at the end of
-;; the buffer; and finally, defer to org's default behavior which is to
-;; search the entire text of the current buffer for 'tag'.
-;;
-;; This behavior can be modified by changing the value of
-;; ORG-CTAGS-OPEN-LINK-FUNCTIONS. For example I have the following in my
-;; .emacs, which describes the same behavior as the above paragraph with
-;; one difference:
-;;
-;; (setq org-ctags-open-link-functions
-;; '(org-ctags-find-tag
-;; org-ctags-ask-rebuild-tags-file-then-find-tag
-;; org-ctags-ask-append-topic
-;; org-ctags-fail-silently)) ; <-- prevents org default behavior
-;;
-;;
-;; Usage
-;; =====
-;;
-;; When you click on a link "[[foo]]" and org cannot find a matching "<<foo>>"
-;; in the current buffer, the tags facility will take over. The file TAGS in
-;; the active directory is examined to see if the tags facility knows about
-;; "<<foo>>" in any other files. If it does, the matching file will be opened
-;; and the cursor will jump to the position of "<<foo>>" in that file.
-;;
-;; User-visible functions:
-;; - `org-ctags-find-tag-interactive': type a tag (plain link) name and visit
-;; it. With autocompletion. Bound to ctrl-O in the above setup.
-;; - All the etags functions should work. These include:
-;;
-;; M-. `find-tag' -- finds the tag at point
-;;
-;; C-M-. find-tag based on regular expression
-;;
-;; M-x tags-search RET -- like C-M-. but searches through ENTIRE TEXT
-;; of ALL the files referenced in the TAGS file. A quick way to
-;; search through an entire 'project'.
-;;
-;; M-* "go back" from a tag jump. Like `org-mark-ring-goto'.
-;; You may need to bind this key yourself with (eg)
-;; (global-set-key (kbd "<M-kp-multiply>") 'pop-tag-mark)
-;;
-;; (see etags chapter in Emacs manual for more)
-;;
-;;
-;; Keeping the TAGS file up to date
-;; ================================
-;;
-;; Tags mode has no way of knowing that you have created new tags by
-;; typing in your Org buffer. New tags make it into the TAGS file in
-;; 3 ways:
-;;
-;; 1. You re-run (org-ctags-create-tags "directory") to rebuild the file.
-;; 2. You put the function `org-ctags-ask-rebuild-tags-file-then-find-tag' in
-;; your `org-open-link-functions' list, as is done in the setup
-;; above. This will cause the TAGS file to be rebuilt whenever a link
-;; cannot be found. This may be slow with large file collections however.
-;; 3. You run the following from the command line (all 1 line):
-;;
-;; ctags --langdef=orgmode --langmap=orgmode:.org
-;; --regex-orgmode="/<<([^>]+)>>/\1/d,definition/"
-;; -f /your/path/TAGS -e -R /your/path/*.org
-;;
-;; If you are paranoid, you might want to run (org-ctags-create-tags
-;; "/path/to/org/files") at startup, by including the following toplevel form
-;; in .emacs. However this can cause a pause of several seconds if ctags has
-;; to scan lots of files.
-;;
-;; (progn
-;; (message "-- rebuilding tags tables...")
-;; (mapc 'org-ctags-create-tags tags-table-list))
-
-;;; Code:
-
-(require 'org)
-
-(defgroup org-ctags nil
- "Options concerning use of ctags within org mode."
- :tag "Org-Ctags"
- :group 'org-link)
-
-(defvar org-ctags-enabled-p t
- "Activate ctags support in org mode?")
-
-(defvar org-ctags-tag-regexp "/<<([^>]+)>>/\\1/d,definition/"
- "Regexp expression used by ctags external program.
-The regexp matches tag destinations in Org files.
-Format is: /REGEXP/TAGNAME/FLAGS,TAGTYPE/
-See the ctags documentation for more information.")
-
-(defcustom org-ctags-path-to-ctags
- (if (executable-find "ctags-exuberant") "ctags-exuberant" "ctags")
- "Name of the ctags executable file."
- :group 'org-ctags
- :version "24.1"
- :type 'file)
-
-(defcustom org-ctags-open-link-functions
- '(org-ctags-find-tag
- org-ctags-ask-rebuild-tags-file-then-find-tag
- org-ctags-ask-append-topic)
- "List of functions to be prepended to ORG-OPEN-LINK-FUNCTIONS when ORG-CTAGS is active."
- :group 'org-ctags
- :version "24.1"
- :type 'hook
- :options '(org-ctags-find-tag
- org-ctags-ask-rebuild-tags-file-then-find-tag
- org-ctags-rebuild-tags-file-then-find-tag
- org-ctags-ask-append-topic
- org-ctags-append-topic
- org-ctags-ask-visit-buffer-or-file
- org-ctags-visit-buffer-or-file
- org-ctags-fail-silently))
-
-
-(defvar org-ctags-tag-list nil
- "List of all tags in the active TAGS file.
-Created as a local variable in each buffer.")
-
-(defcustom org-ctags-new-topic-template
- "* <<%t>>\n\n\n\n\n\n"
- "Text to insert when creating a new org file via opening a hyperlink.
-The following patterns are replaced in the string:
- `%t' - replaced with the capitalized title of the hyperlink"
- :group 'org-ctags
- :version "24.1"
- :type 'string)
-
-
-(add-hook 'org-mode-hook
- (lambda ()
- (when (and org-ctags-enabled-p
- (buffer-file-name))
- ;; Make sure this file's directory is added to default
- ;; directories in which to search for tags.
- (let ((tags-filename
- (expand-file-name
- (concat (file-name-directory (buffer-file-name))
- "/TAGS"))))
- (when (file-exists-p tags-filename)
- (visit-tags-table tags-filename))))))
-
-
-(defadvice visit-tags-table (after org-ctags-load-tag-list activate compile)
- (when (and org-ctags-enabled-p tags-file-name)
- (setq-local org-ctags-tag-list
- (org-ctags-all-tags-in-current-tags-table))))
-
-
-(defun org-ctags-enable ()
- (put 'org-mode 'find-tag-default-function 'org-ctags-find-tag-at-point)
- (setq org-ctags-enabled-p t)
- (dolist (fn org-ctags-open-link-functions)
- (add-hook 'org-open-link-functions fn t)))
-
-
-;;; General utility functions. ===============================================
-;; These work outside org-ctags mode.
-
-(defun org-ctags-get-filename-for-tag (tag)
- "TAG is a string. Search the active TAGS file for a matching tag.
-If the tag is found, return a list containing the filename, line number, and
-buffer position where the tag is found."
- (interactive "sTag: ")
- (unless tags-file-name
- (call-interactively (visit-tags-table)))
- (save-excursion
- (visit-tags-table-buffer 'same)
- (when tags-file-name
- (with-current-buffer (get-file-buffer tags-file-name)
- (goto-char (point-min))
- (cond
- ((re-search-forward (format "^.*%s\\([0-9]+\\),\\([0-9]+\\)$"
- (regexp-quote tag)) nil t)
- (let ((line (string-to-number (match-string 1)))
- (pos (string-to-number (match-string 2))))
- (cond
- ((re-search-backward "\n\\(.*\\),[0-9]+\n")
- (list (match-string 1) line pos))
- (t ; can't find a file name preceding the matched
- ; tag??
- (error "Malformed TAGS file: %s" (buffer-name))))))
- (t ; tag not found
- nil))))))
-
-
-(defun org-ctags-all-tags-in-current-tags-table ()
- "Read all tags defined in the active TAGS file, into a list of strings.
-Return the list."
- (interactive)
- (let ((taglist nil))
- (unless tags-file-name
- (call-interactively (visit-tags-table)))
- (save-excursion
- (visit-tags-table-buffer 'same)
- (with-current-buffer (get-file-buffer tags-file-name)
- (goto-char (point-min))
- (while (re-search-forward "^.*\\(.*\\)\\([0-9]+\\),\\([0-9]+\\)$"
- nil t)
- (push (substring-no-properties (match-string 1)) taglist)))
- taglist)))
-
-
-(defun org-ctags-string-search-and-replace (search replace string)
- "Replace all instances of SEARCH with REPLACE in STRING."
- (replace-regexp-in-string (regexp-quote search) replace string t t))
-
-
-;;; Internal functions =======================================================
-
-
-(defun org-ctags-open-file (name &optional title)
- "Visit or create a file called `NAME.org', and insert a new topic.
-The new topic will be titled NAME (or TITLE if supplied)."
- (interactive "sFile name: ")
- (condition-case v
- (progn
- (org-open-file name t)
- (message "Opened file OK")
- (goto-char (point-max))
- (insert (org-ctags-string-search-and-replace
- "%t" (capitalize (or title name))
- org-ctags-new-topic-template))
- (message "Inserted new file text OK")
- (org-mode-restart))
- (error (error "Error %S in org-ctags-open-file" v))))
-
-
-;;;; Misc interoperability with etags system =================================
-
-
-(defadvice xref-find-definitions
- (before org-ctags-set-org-mark-before-finding-tag activate compile)
- "Before trying to find a tag, save our current position on org mark ring."
- (save-excursion
- (when (and (derived-mode-p 'org-mode) org-ctags-enabled-p)
- (org-mark-ring-push))))
-
-
-
-(defun org-ctags-find-tag-at-point ()
- "Determine default tag to search for, based on text at point.
-If there is no plausible default, return nil."
- (let (from to bound)
- (when (or (ignore-errors
- ;; Look for hyperlink around `point'.
- (save-excursion
- (search-backward "[[") (setq from (+ 2 (point))))
- (save-excursion
- (goto-char from)
- (search-forward "]") (setq to (- (point) 1)))
- (and (> to from) (>= (point) from) (<= (point) to)))
- (progn
- ;; Look at text around `point'.
- (save-excursion
- (skip-syntax-backward "w_") (setq from (point)))
- (save-excursion
- (skip-syntax-forward "w_") (setq to (point)))
- (> to from))
- ;; Look between `line-beginning-position' and `point'.
- (save-excursion
- (and (setq bound (line-beginning-position))
- (skip-syntax-backward "^w_" bound)
- (> (setq to (point)) bound)
- (skip-syntax-backward "w_")
- (setq from (point))))
- ;; Look between `point' and `line-end-position'.
- (save-excursion
- (and (setq bound (line-end-position))
- (skip-syntax-forward "^w_" bound)
- (< (setq from (point)) bound)
- (skip-syntax-forward "w_")
- (setq to (point)))))
- (buffer-substring-no-properties from to))))
-
-
-;;; Functions for use with 'org-open-link-functions' hook =================
-
-
-(defun org-ctags-find-tag (name)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Look for a tag called `NAME' in the current TAGS table. If it is found,
-visit the file and location where the tag is found."
- (interactive "sTag: ")
- (let ((old-buf (current-buffer))
- (old-pnt (point-marker))
- (old-mark (copy-marker (mark-marker))))
- (condition-case nil
- (progn (xref-find-definitions name)
- t)
- (error
- ;; only restore old location if find-tag raises error
- (set-buffer old-buf)
- (goto-char old-pnt)
- (set-marker (mark-marker) old-mark)
- nil))))
-
-
-(defun org-ctags-visit-buffer-or-file (name &optional create)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Visit buffer named `NAME.org'. If there is no such buffer, visit the file
-with the same name if it exists. If the file does not exist, then behavior
-depends on the value of CREATE.
-
-If CREATE is nil (default), then return nil. Do not create a new file.
-If CREATE is t, create the new file and visit it.
-If CREATE is the symbol `ask', then ask the user if they wish to create
-the new file."
- (interactive)
- (let ((filename (concat (substitute-in-file-name
- (expand-file-name name))
- ".org")))
- (cond
- ((get-buffer (concat name ".org"))
- ;; Buffer is already open
- (pop-to-buffer-same-window (get-buffer (concat name ".org"))))
- ((file-exists-p filename)
- ;; File exists but is not open --> open it
- (message "Opening existing org file `%S'..."
- filename)
- (org-open-file filename t))
- ((or (eql create t)
- (and (eql create 'ask)
- (y-or-n-p (format-message
- "File `%s.org' not found; create?" name))))
- (org-ctags-open-file filename name))
- (t ;; File does not exist, and we don't want to create it.
- nil))))
-
-
-(defun org-ctags-ask-visit-buffer-or-file (name)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Wrapper for org-ctags-visit-buffer-or-file, which ensures the user is
-asked before creating a new file."
- (org-ctags-visit-buffer-or-file name 'ask))
-
-
-(defun org-ctags-append-topic (name &optional narrowp)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Append a new toplevel heading to the end of the current buffer. The
-heading contains NAME surrounded by <<angular brackets>>, thus making
-the heading a destination for the tag `NAME'."
- (interactive "sTopic: ")
- (widen)
- (goto-char (point-max))
- (newline 2)
- (message "Adding topic in buffer %s" (buffer-name))
- (insert (org-ctags-string-search-and-replace
- "%t" (capitalize name) org-ctags-new-topic-template))
- (backward-char 4)
- (end-of-line)
- (forward-line 2)
- (when narrowp
- ;;(org-tree-to-indirect-buffer 1) ;; opens new frame
- (org-narrow-to-subtree))
- t)
-
-
-(defun org-ctags-ask-append-topic (name &optional narrowp)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Wrapper for org-ctags-append-topic, which first asks the user if they want
-to append a new topic."
- (if (y-or-n-p (format-message
- "Topic `%s' not found; append to end of buffer?" name))
- (org-ctags-append-topic name narrowp)
- nil))
-
-
-(defun org-ctags-rebuild-tags-file-then-find-tag (name)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Like ORG-CTAGS-FIND-TAG, but calls the external ctags program first,
-to rebuild (update) the TAGS file."
- (unless tags-file-name
- (call-interactively (visit-tags-table)))
- (when (buffer-file-name)
- (org-ctags-create-tags))
- (org-ctags-find-tag name))
-
-
-(defun org-ctags-ask-rebuild-tags-file-then-find-tag (name)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Wrapper for org-ctags-rebuild-tags-file-then-find-tag."
- (if (and (buffer-file-name)
- (y-or-n-p
- (format-message
- "Tag `%s' not found. Rebuild table `%s/TAGS' and look again?"
- name
- (file-name-directory (buffer-file-name)))))
- (org-ctags-rebuild-tags-file-then-find-tag name)
- nil))
-
-
-(defun org-ctags-fail-silently (_name)
- "This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
-Put as the last function in the list if you want to prevent Org's
-default behavior of free text search."
- t)
-
-
-;;; User-visible functions ===================================================
-
-
-(defun org-ctags-create-tags (&optional directory-name)
- "(Re)create tags file in the directory of the active buffer.
-The file will contain tag definitions for all the files in the
-directory and its subdirectories which are recognized by ctags.
-This will include files ending in `.org' as well as most other
-source files (.C, .H, .EL, .LISP, etc). All the resulting tags
-end up in one file, called TAGS, located in the directory. This
-function may take several seconds to finish if the directory or
-its subdirectories contain large numbers of taggable files."
- (interactive)
- (cl-assert (buffer-file-name))
- (let ((dir-name (or directory-name
- (file-name-directory (buffer-file-name))))
- (exitcode nil))
- (save-excursion
- (setq exitcode
- (shell-command
- (format (concat "%s --langdef=orgmode --langmap=orgmode:.org "
- "--regex-orgmode=\"%s\" -f \"%s\" -e -R \"%s\"")
- org-ctags-path-to-ctags
- org-ctags-tag-regexp
- (expand-file-name (concat dir-name "/TAGS"))
- (expand-file-name (concat dir-name "/*")))))
- (cond
- ((eql 0 exitcode)
- (setq-local org-ctags-tag-list
- (org-ctags-all-tags-in-current-tags-table)))
- (t
- ;; This seems to behave differently on Linux, so just ignore
- ;; error codes for now
- ;;(error "Calling ctags executable resulted in error code: %s"
- ;; exitcode)
- nil)))))
-
-
-(defvar org-ctags-find-tag-history nil
- "History of tags visited by org-ctags-find-tag-interactive.")
-
-(defun org-ctags-find-tag-interactive ()
- "Prompt for the name of a tag, with autocompletion, then visit the named tag.
-Uses `ido-mode' if available.
-If the user enters a string that does not match an existing tag, create
-a new topic."
- (interactive)
- (let* ((completing-read-fn (if (fboundp 'ido-completing-read)
- 'ido-completing-read
- 'completing-read))
- (tag (funcall completing-read-fn "Topic: " org-ctags-tag-list
- nil 'confirm nil 'org-ctags-find-tag-history)))
- (when tag
- (cond
- ((member tag org-ctags-tag-list)
- ;; Existing tag
- (push tag org-ctags-find-tag-history)
- (xref-find-definitions tag))
- (t
- ;; New tag
- (run-hook-with-args-until-success
- 'org-open-link-functions tag))))))
-
-
-(org-ctags-enable)
-
-(provide 'org-ctags)
-
-;;; org-ctags.el ends here
diff --git a/elpa/org-9.1.14/org-ctags.elc b/elpa/org-9.1.14/org-ctags.elc
deleted file mode 100644
index a0d3460..0000000
--- a/elpa/org-9.1.14/org-ctags.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-datetree.el b/elpa/org-9.1.14/org-datetree.el
deleted file mode 100644
index d00bad2..0000000
--- a/elpa/org-9.1.14/org-datetree.el
+++ /dev/null
@@ -1,248 +0,0 @@
-;;; org-datetree.el --- Create date entries in a tree -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains code to create entries in a tree where the top-level
-;; nodes represent years, the level 2 nodes represent the months, and the
-;; level 1 entries days.
-
-;;; Code:
-
-(require 'org)
-
-(defvar org-datetree-base-level 1
- "The level at which years should be placed in the date tree.
-This is normally one, but if the buffer has an entry with a
-DATE_TREE (or WEEK_TREE for ISO week entries) property (any
-value), the date tree will become a subtree under that entry, so
-the base level will be properly adjusted.")
-
-(defcustom org-datetree-add-timestamp nil
- "When non-nil, add a time stamp matching date of entry.
-Added time stamp is active unless value is `inactive'."
- :group 'org-capture
- :version "24.3"
- :type '(choice
- (const :tag "Do not add a time stamp" nil)
- (const :tag "Add an inactive time stamp" inactive)
- (const :tag "Add an active time stamp" active)))
-
-;;;###autoload
-(defun org-datetree-find-date-create (d &optional keep-restriction)
- "Find or create an entry for date D.
-If KEEP-RESTRICTION is non-nil, do not widen the buffer.
-When it is nil, the buffer will be widened to make sure an existing date
-tree can be found. If it is the symbol `subtree-at-point', then the tree
-will be built under the headline at point."
- (setq-local org-datetree-base-level 1)
- (save-restriction
- (if (eq keep-restriction 'subtree-at-point)
- (progn
- (unless (org-at-heading-p) (error "Not at heading"))
- (widen)
- (org-narrow-to-subtree)
- (setq-local org-datetree-base-level
- (org-get-valid-level (org-current-level) 1)))
- (unless keep-restriction (widen))
- ;; Support the old way of tree placement, using a property
- (let ((prop (org-find-property "DATE_TREE")))
- (when prop
- (goto-char prop)
- (setq-local org-datetree-base-level
- (org-get-valid-level (org-current-level) 1))
- (org-narrow-to-subtree))))
- (goto-char (point-min))
- (let ((year (calendar-extract-year d))
- (month (calendar-extract-month d))
- (day (calendar-extract-day d)))
- (org-datetree--find-create
- "^\\*+[ \t]+\\([12][0-9]\\{3\\}\\)\\(\\s-*?\
-\\([ \t]:[[:alnum:]:_@#%%]+:\\)?\\s-*$\\)"
- year)
- (org-datetree--find-create
- "^\\*+[ \t]+%d-\\([01][0-9]\\) \\w+$"
- year month)
- (org-datetree--find-create
- "^\\*+[ \t]+%d-%02d-\\([0123][0-9]\\) \\w+$"
- year month day))))
-
-;;;###autoload
-(defun org-datetree-find-iso-week-create (d &optional keep-restriction)
- "Find or create an ISO week entry for date D.
-Compared to `org-datetree-find-date-create' this function creates
-entries ordered by week instead of months.
-When it is nil, the buffer will be widened to make sure an existing date
-tree can be found. If it is the symbol `subtree-at-point', then the tree
-will be built under the headline at point."
- (setq-local org-datetree-base-level 1)
- (save-restriction
- (if (eq keep-restriction 'subtree-at-point)
- (progn
- (unless (org-at-heading-p) (error "Not at heading"))
- (widen)
- (org-narrow-to-subtree)
- (setq-local org-datetree-base-level
- (org-get-valid-level (org-current-level) 1)))
- (unless keep-restriction (widen))
- ;; Support the old way of tree placement, using a property
- (let ((prop (org-find-property "WEEK_TREE")))
- (when prop
- (goto-char prop)
- (setq-local org-datetree-base-level
- (org-get-valid-level (org-current-level) 1))
- (org-narrow-to-subtree))))
- (goto-char (point-min))
- (require 'cal-iso)
- (let* ((year (calendar-extract-year d))
- (month (calendar-extract-month d))
- (day (calendar-extract-day d))
- (time (encode-time 0 0 0 day month year))
- (iso-date (calendar-iso-from-absolute
- (calendar-absolute-from-gregorian d)))
- (weekyear (nth 2 iso-date))
- (week (nth 0 iso-date)))
- ;; ISO 8601 week format is %G-W%V(-%u)
- (org-datetree--find-create
- "^\\*+[ \t]+\\([12][0-9]\\{3\\}\\)\\(\\s-*?\
-\\([ \t]:[[:alnum:]:_@#%%]+:\\)?\\s-*$\\)"
- weekyear nil nil
- (format-time-string "%G" time))
- (org-datetree--find-create
- "^\\*+[ \t]+%d-W\\([0-5][0-9]\\)$"
- weekyear week nil
- (format-time-string "%G-W%V" time))
- ;; For the actual day we use the regular date instead of ISO week.
- (org-datetree--find-create
- "^\\*+[ \t]+%d-%02d-\\([0123][0-9]\\) \\w+$"
- year month day))))
-
-(defun org-datetree--find-create (regex year &optional month day insert)
- "Find the datetree matched by REGEX for YEAR, MONTH, or DAY.
-REGEX is passed to `format' with YEAR, MONTH, and DAY as
-arguments. Match group 1 is compared against the specified date
-component. If INSERT is non-nil and there is no match then it is
-inserted into the buffer."
- (when (or month day)
- (org-narrow-to-subtree))
- (let ((re (format regex year month day))
- match)
- (goto-char (point-min))
- (while (and (setq match (re-search-forward re nil t))
- (goto-char (match-beginning 1))
- (< (string-to-number (match-string 1)) (or day month year))))
- (cond
- ((not match)
- (goto-char (point-max))
- (unless (bolp) (insert "\n"))
- (org-datetree-insert-line year month day insert))
- ((= (string-to-number (match-string 1)) (or day month year))
- (beginning-of-line))
- (t
- (beginning-of-line)
- (org-datetree-insert-line year month day insert)))))
-
-(defun org-datetree-insert-line (year &optional month day text)
- (delete-region (save-excursion (skip-chars-backward " \t\n") (point)) (point))
- (insert "\n" (make-string org-datetree-base-level ?*) " \n")
- (backward-char)
- (when month (org-do-demote))
- (when day (org-do-demote))
- (if text
- (insert text)
- (insert (format "%d" year))
- (when month
- (insert
- (if day
- (format-time-string "-%m-%d %A" (encode-time 0 0 0 day month year))
- (format-time-string "-%m %B" (encode-time 0 0 0 1 month year))))))
- (when (and day org-datetree-add-timestamp)
- (save-excursion
- (insert "\n")
- (org-indent-line)
- (org-insert-time-stamp
- (encode-time 0 0 0 day month year)
- nil
- (eq org-datetree-add-timestamp 'inactive))))
- (beginning-of-line))
-
-(defun org-datetree-file-entry-under (txt d)
- "Insert a node TXT into the date tree under date D."
- (org-datetree-find-date-create d)
- (let ((level (org-get-valid-level (funcall outline-level) 1)))
- (org-end-of-subtree t t)
- (org-back-over-empty-lines)
- (org-paste-subtree level txt)))
-
-(defun org-datetree-cleanup ()
- "Make sure all entries in the current tree are under the correct date.
-It may be useful to restrict the buffer to the applicable portion
-before running this command, even though the command tries to be smart."
- (interactive)
- (goto-char (point-min))
- (let ((dre (concat "\\<" org-deadline-string "\\>[ \t]*\\'"))
- (sre (concat "\\<" org-scheduled-string "\\>[ \t]*\\'")))
- (while (re-search-forward org-ts-regexp nil t)
- (catch 'next
- (let ((tmp (buffer-substring
- (max (line-beginning-position)
- (- (match-beginning 0) org-ds-keyword-length))
- (match-beginning 0))))
- (when (or (string-suffix-p "-" tmp)
- (string-match dre tmp)
- (string-match sre tmp))
- (throw 'next nil))
- (let* ((dct (decode-time (org-time-string-to-time (match-string 0))))
- (date (list (nth 4 dct) (nth 3 dct) (nth 5 dct)))
- (year (nth 2 date))
- (month (car date))
- (day (nth 1 date))
- (pos (point))
- (hdl-pos (progn (org-back-to-heading t) (point))))
- (unless (org-up-heading-safe)
- ;; No parent, we are not in a date tree.
- (goto-char pos)
- (throw 'next nil))
- (unless (looking-at "\\*+[ \t]+[0-9]+-[0-1][0-9]-[0-3][0-9]")
- ;; Parent looks wrong, we are not in a date tree.
- (goto-char pos)
- (throw 'next nil))
- (when (looking-at (format "\\*+[ \t]+%d-%02d-%02d" year month day))
- ;; At correct date already, do nothing.
- (goto-char pos)
- (throw 'next nil))
- ;; OK, we need to refile this entry.
- (goto-char hdl-pos)
- (org-cut-subtree)
- (save-excursion
- (save-restriction
- (org-datetree-file-entry-under (current-kill 0) date)))))))))
-
-(provide 'org-datetree)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-datetree.el ends here
diff --git a/elpa/org-9.1.14/org-datetree.elc b/elpa/org-9.1.14/org-datetree.elc
deleted file mode 100644
index 417a2e1..0000000
--- a/elpa/org-9.1.14/org-datetree.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-docview.el b/elpa/org-9.1.14/org-docview.el
deleted file mode 100644
index a467212..0000000
--- a/elpa/org-9.1.14/org-docview.el
+++ /dev/null
@@ -1,103 +0,0 @@
-;;; org-docview.el --- Support for links to doc-view-mode buffers -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: Jan Böcker <jan.boecker at jboecker dot de>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements links to open files in doc-view-mode.
-;; Org mode loads this module by default - if this is not what you want,
-;; configure the variable `org-modules'.
-
-;; The links take the form
-;;
-;; docview:<file path>::<page number>
-;;
-;; for example: [[docview:~/.elisp/org/doc/org.pdf::1][Org-Mode Manual]]
-;;
-;; Autocompletion for inserting links is supported; you will be
-;; prompted for a file and a page number.
-;;
-;; If you use org-store-link in a doc-view mode buffer, the stored
-;; link will point to the current page.
-
-;;; Code:
-
-
-(require 'org)
-(require 'doc-view)
-
-(declare-function doc-view-goto-page "doc-view" (page))
-(declare-function image-mode-window-get "image-mode" (prop &optional winprops))
-
-(org-link-set-parameters "docview"
- :follow #'org-docview-open
- :export #'org-docview-export
- :store #'org-docview-store-link)
-
-(defun org-docview-export (link description format)
- "Export a docview link from Org files."
- (let* ((path (if (string-match "\\(.+\\)::.+" link) (match-string 1 link)
- link))
- (desc (or description link)))
- (when (stringp path)
- (setq path (org-link-escape (expand-file-name path)))
- (cond
- ((eq format 'html) (format "<a href=\"%s\">%s</a>" path desc))
- ((eq format 'latex) (format "\\href{%s}{%s}" path desc))
- ((eq format 'ascii) (format "%s (%s)" desc path))
- (t path)))))
-
-(defun org-docview-open (link)
- (string-match "\\(.*?\\)\\(?:::\\([0-9]+\\)\\)?$" link)
- (let ((path (match-string 1 link))
- (page (and (match-beginning 2)
- (string-to-number (match-string 2 link)))))
- ;; Let Org mode open the file (in-emacs = 1) to ensure
- ;; org-link-frame-setup is respected.
- (org-open-file path 1)
- (when page (doc-view-goto-page page))))
-
-(defun org-docview-store-link ()
- "Store a link to a docview buffer."
- (when (eq major-mode 'doc-view-mode)
- ;; This buffer is in doc-view-mode
- (let* ((path buffer-file-name)
- (page (image-mode-window-get 'page))
- (link (concat "docview:" path "::" (number-to-string page))))
- (org-store-link-props
- :type "docview"
- :link link
- :description path))))
-
-(defun org-docview-complete-link ()
- "Use the existing file name completion for file.
-Links to get the file name, then ask the user for the page number
-and append it."
- (concat (replace-regexp-in-string "^file:" "docview:" (org-file-complete-link))
- "::"
- (read-from-minibuffer "Page:" "1")))
-
-
-(provide 'org-docview)
-
-;;; org-docview.el ends here
diff --git a/elpa/org-9.1.14/org-docview.elc b/elpa/org-9.1.14/org-docview.elc
deleted file mode 100644
index 17e2db0..0000000
--- a/elpa/org-9.1.14/org-docview.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-duration.el b/elpa/org-9.1.14/org-duration.el
deleted file mode 100644
index 1c962ba..0000000
--- a/elpa/org-9.1.14/org-duration.el
+++ /dev/null
@@ -1,448 +0,0 @@
-;;; org-duration.el --- Library handling durations -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017-2018 Free Software Foundation, Inc.
-
-;; Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
-;; Keywords: outlines, hypermedia, calendar, wp
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library provides tools to manipulate durations. A duration
-;; can have multiple formats:
-;;
-;; - 3:12
-;; - 1:23:45
-;; - 1y 3d 3h 4min
-;; - 3d 13:35
-;; - 2.35h
-;;
-;; More accurately, it consists of numbers and units, as defined in
-;; variable `org-duration-units', separated with white spaces, and
-;; a "H:MM" or "H:MM:SS" part. White spaces are tolerated between the
-;; number and its relative unit. Variable `org-duration-format'
-;; controls durations default representation.
-;;
-;; The library provides functions allowing to convert a duration to,
-;; and from, a number of minutes: `org-duration-to-minutes' and
-;; `org-duration-from-minutes'. It also provides two lesser tools:
-;; `org-duration-p', and `org-duration-h:mm-only-p'.
-;;
-;; Users can set the number of minutes per unit, or define new units,
-;; in `org-duration-units'. The library also supports canonical
-;; duration, i.e., a duration that doesn't depend on user's settings,
-;; through optional arguments.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org-macs)
-(declare-function org-trim "org" (s &optional keep-lead))
-
-
-;;; Public variables
-
-(defconst org-duration-canonical-units
- `(("min" . 1)
- ("h" . 60)
- ("d" . ,(* 60 24)))
- "Canonical time duration units.
-See `org-duration-units' for details.")
-
-(defcustom org-duration-units
- `(("min" . 1)
- ("h" . 60)
- ("d" . ,(* 60 24))
- ("w" . ,(* 60 24 7))
- ("m" . ,(* 60 24 30))
- ("y" . ,(* 60 24 365.25)))
- "Conversion factor to minutes for a duration.
-
-Each entry has the form (UNIT . MODIFIER).
-
-In a duration string, a number followed by UNIT is multiplied by
-the specified number of MODIFIER to obtain a duration in minutes.
-
-For example, the following value
-
- \\=`((\"min\" . 1)
- (\"h\" . 60)
- (\"d\" . ,(* 60 8))
- (\"w\" . ,(* 60 8 5))
- (\"m\" . ,(* 60 8 5 4))
- (\"y\" . ,(* 60 8 5 4 10)))
-
-is meaningful if you work an average of 8 hours per day, 5 days
-a week, 4 weeks a month and 10 months a year.
-
-When setting this variable outside the Customize interface, make
-sure to call the following command:
-
- \\[org-duration-set-regexps]"
- :group 'org-agenda
- :version "26.1"
- :package-version '(Org . "9.1")
- :set (lambda (var val) (set-default var val) (org-duration-set-regexps))
- :initialize 'custom-initialize-changed
- :type '(choice
- (const :tag "H:MM" h:mm)
- (const :tag "H:MM:SS" h:mm:ss)
- (alist :key-type (string :tag "Unit")
- :value-type (number :tag "Modifier"))))
-
-(defcustom org-duration-format '(("d" . nil) (special . h:mm))
- "Format definition for a duration.
-
-The value can be set to, respectively, the symbols `h:mm:ss' or
-`h:mm', which means a duration is expressed as, respectively,
-a \"H:MM:SS\" or \"H:MM\" string.
-
-Alternatively, the value can be a list of entries following the
-pattern:
-
- (UNIT . REQUIRED?)
-
-UNIT is a unit string, as defined in `org-duration-units'. The
-time duration is formatted using only the time components that
-are specified here.
-
-Units with a zero value are skipped, unless REQUIRED? is non-nil.
-In that case, the unit is always used.
-
-Eventually, the list can contain one of the following special
-entries:
-
- (special . h:mm)
- (special . h:mm:ss)
-
- Units shorter than an hour are ignored. The hours and
- minutes part of the duration is expressed unconditionally
- with H:MM, or H:MM:SS, pattern.
-
- (special . PRECISION)
-
- A duration is expressed with a single unit, PRECISION being
- the number of decimal places to show. The unit chosen is the
- first one required or with a non-zero integer part. If there
- is no such unit, the smallest one is used.
-
-For example,
-
- ((\"d\" . nil) (\"h\" . t) (\"min\" . t))
-
-means a duration longer than a day is expressed in days, hours
-and minutes, whereas a duration shorter than a day is always
-expressed in hours and minutes, even when shorter than an hour.
-
-On the other hand, the value
-
- ((\"d\" . nil) (\"min\" . nil))
-
-means a duration longer than a day is expressed in days and
-minutes, whereas a duration shorter than a day is expressed
-entirely in minutes, even when longer than an hour.
-
-The following format
-
- ((\"d\" . nil) (special . h:mm))
-
-means that any duration longer than a day is expressed with both
-a \"d\" unit and a \"H:MM\" part, whereas a duration shorter than
-a day is expressed only as a \"H:MM\" string.
-
-Eventually,
-
- ((\"d\" . nil) (\"h\" . nil) (special . 2))
-
-expresses a duration longer than a day as a decimal number, with
-a 2-digits fractional part, of \"d\" unit. A duration shorter
-than a day uses \"h\" unit instead."
- :group 'org-time
- :group 'org-clock
- :version "26.1"
- :package-version '(Org . "9.1")
- :type '(choice
- (const :tag "Use H:MM" h:mm)
- (const :tag "Use H:MM:SS" h:mm:ss)
- (repeat :tag "Use units"
- (choice
- (cons :tag "Use units"
- (string :tag "Unit")
- (choice (const :tag "Skip when zero" nil)
- (const :tag "Always used" t)))
- (cons :tag "Use a single decimal unit"
- (const special)
- (integer :tag "Number of decimals"))
- (cons :tag "Use both units and H:MM"
- (const special)
- (const h:mm))
- (cons :tag "Use both units and H:MM:SS"
- (const special)
- (const h:mm:ss))))))
-
-
-;;; Internal variables and functions
-
-(defconst org-duration--h:mm-re
- "\\`[ \t]*[0-9]+\\(?::[0-9]\\{2\\}\\)\\{1,2\\}[ \t]*\\'"
- "Regexp matching a duration expressed with H:MM or H:MM:SS format.
-See `org-duration--h:mm:ss-re' to only match the latter. Hours
-can use any number of digits.")
-
-(defconst org-duration--h:mm:ss-re
- "\\`[ \t]*[0-9]+\\(?::[0-9]\\{2\\}\\)\\{2\\}[ \t]*\\'"
- "Regexp matching a duration expressed H:MM:SS format.
-See `org-duration--h:mm-re' to also support H:MM format. Hours
-can use any number of digits.")
-
-(defvar org-duration--unit-re nil
- "Regexp matching a duration with an unit.
-Allowed units are defined in `org-duration-units'. Match group
-1 contains the bare number. Match group 2 contains the unit.")
-
-(defvar org-duration--full-re nil
- "Regexp matching a duration expressed with units.
-Allowed units are defined in `org-duration-units'.")
-
-(defvar org-duration--mixed-re nil
- "Regexp matching a duration expressed with units and H:MM or H:MM:SS format.
-Allowed units are defined in `org-duration-units'. Match group
-1 contains units part. Match group 2 contains H:MM or H:MM:SS
-part.")
-
-(defun org-duration--modifier (unit &optional canonical)
- "Return modifier associated to string UNIT.
-When optional argument CANONICAL is non-nil, refer to
-`org-duration-canonical-units' instead of `org-duration-units'."
- (or (cdr (assoc unit (if canonical
- org-duration-canonical-units
- org-duration-units)))
- (error "Unknown unit: %S" unit)))
-
-
-;;; Public functions
-
-;;;###autoload
-(defun org-duration-set-regexps ()
- "Set duration related regexps."
- (interactive)
- (setq org-duration--unit-re
- (concat "\\([0-9]+\\(?:\\.[0-9]*\\)?\\)[ \t]*"
- ;; Since user-defined units in `org-duration-units'
- ;; can differ from canonical units in
- ;; `org-duration-canonical-units', include both in
- ;; regexp.
- (regexp-opt (mapcar #'car (append org-duration-canonical-units
- org-duration-units))
- t)))
- (setq org-duration--full-re
- (format "\\`[ \t]*%s\\(?:[ \t]+%s\\)*[ \t]*\\'"
- org-duration--unit-re
- org-duration--unit-re))
- (setq org-duration--mixed-re
- (format "\\`[ \t]*\\(?1:%s\\(?:[ \t]+%s\\)*\\)[ \t]+\
-\\(?2:[0-9]+\\(?::[0-9][0-9]\\)\\{1,2\\}\\)[ \t]*\\'"
- org-duration--unit-re
- org-duration--unit-re)))
-
-;;;###autoload
-(defun org-duration-p (s)
- "Non-nil when string S is a time duration."
- (and (stringp s)
- (or (string-match-p org-duration--full-re s)
- (string-match-p org-duration--mixed-re s)
- (string-match-p org-duration--h:mm-re s))))
-
-;;;###autoload
-(defun org-duration-to-minutes (duration &optional canonical)
- "Return number of minutes of DURATION string.
-
-When optional argument CANONICAL is non-nil, ignore
-`org-duration-units' and use standard time units value.
-
-A bare number is translated into minutes. The empty string is
-translated into 0.0.
-
-Return value as a float. Raise an error if duration format is
-not recognized."
- (cond
- ((equal duration "") 0.0)
- ((numberp duration) (float duration))
- ((string-match-p org-duration--h:mm-re duration)
- (pcase-let ((`(,hours ,minutes ,seconds)
- (mapcar #'string-to-number (split-string duration ":"))))
- (+ (/ (or seconds 0) 60.0) minutes (* 60 hours))))
- ((string-match-p org-duration--full-re duration)
- (let ((minutes 0)
- (s 0))
- (while (string-match org-duration--unit-re duration s)
- (setq s (match-end 0))
- (let ((value (string-to-number (match-string 1 duration)))
- (unit (match-string 2 duration)))
- (cl-incf minutes (* value (org-duration--modifier unit canonical)))))
- (float minutes)))
- ((string-match org-duration--mixed-re duration)
- (let ((units-part (match-string 1 duration))
- (hms-part (match-string 2 duration)))
- (+ (org-duration-to-minutes units-part)
- (org-duration-to-minutes hms-part))))
- ((string-match-p "\\`[0-9]+\\(\\.[0-9]*\\)?\\'" duration)
- (float (string-to-number duration)))
- (t (error "Invalid duration format: %S" duration))))
-
-;;;###autoload
-(defun org-duration-from-minutes (minutes &optional fmt canonical)
- "Return duration string for a given number of MINUTES.
-
-Format duration according to `org-duration-format' or FMT, when
-non-nil.
-
-When optional argument CANONICAL is non-nil, ignore
-`org-duration-units' and use standard time units value.
-
-Raise an error if expected format is unknown."
- (pcase (or fmt org-duration-format)
- (`h:mm
- (let ((minutes (floor minutes)))
- (format "%d:%02d" (/ minutes 60) (mod minutes 60))))
- (`h:mm:ss
- (let* ((whole-minutes (floor minutes))
- (seconds (floor (* 60 (- minutes whole-minutes)))))
- (format "%s:%02d"
- (org-duration-from-minutes whole-minutes 'h:mm)
- seconds)))
- ((pred atom) (error "Invalid duration format specification: %S" fmt))
- ;; Mixed format. Call recursively the function on both parts.
- ((and duration-format
- (let `(special . ,(and mode (or `h:mm:ss `h:mm)))
- (assq 'special duration-format)))
- (let* ((truncated-format
- ;; Remove "special" mode from duration format in order to
- ;; recurse properly. Also remove units smaller or equal
- ;; to an hour since H:MM part takes care of it.
- (cl-remove-if-not
- (lambda (pair)
- (pcase pair
- (`(,(and unit (pred stringp)) . ,_)
- (> (org-duration--modifier unit canonical) 60))
- (_ nil)))
- duration-format))
- (min-modifier ;smallest modifier above hour
- (and truncated-format
- (apply #'min
- (mapcar (lambda (p)
- (org-duration--modifier (car p) canonical))
- truncated-format)))))
- (if (or (null min-modifier) (< minutes min-modifier))
- ;; There is not unit above the hour or the smallest unit
- ;; above the hour is too large for the number of minutes we
- ;; need to represent. Use H:MM or H:MM:SS syntax.
- (org-duration-from-minutes minutes mode canonical)
- ;; Represent minutes above hour using provided units and H:MM
- ;; or H:MM:SS below.
- (let* ((units-part (* min-modifier (/ (floor minutes) min-modifier)))
- (minutes-part (- minutes units-part)))
- (concat
- (org-duration-from-minutes units-part truncated-format canonical)
- " "
- (org-duration-from-minutes minutes-part mode))))))
- ;; Units format.
- (duration-format
- (let* ((fractional
- (let ((digits (cdr (assq 'special duration-format))))
- (and digits
- (or (wholenump digits)
- (error "Unknown formatting directive: %S" digits))
- (format "%%.%df" digits))))
- (selected-units
- (sort (cl-remove-if
- ;; Ignore special format cells.
- (lambda (pair) (pcase pair (`(special . ,_) t) (_ nil)))
- duration-format)
- (lambda (a b)
- (> (org-duration--modifier (car a) canonical)
- (org-duration--modifier (car b) canonical))))))
- (cond
- ;; Fractional duration: use first unit that is either required
- ;; or smaller than MINUTES.
- (fractional
- (let* ((unit (car
- (or (cl-find-if
- (lambda (pair)
- (pcase pair
- (`(,u . ,req?)
- (or req?
- (<= (org-duration--modifier u canonical)
- minutes)))))
- selected-units)
- ;; Fall back to smallest unit.
- (org-last selected-units))))
- (modifier (org-duration--modifier unit canonical)))
- (concat (format fractional (/ (float minutes) modifier)) unit)))
- ;; Otherwise build duration string according to available
- ;; units.
- ((org-string-nw-p
- (org-trim
- (mapconcat
- (lambda (units)
- (pcase-let* ((`(,unit . ,required?) units)
- (modifier (org-duration--modifier unit canonical)))
- (cond ((<= modifier minutes)
- (let ((value (if (integerp modifier)
- (/ (floor minutes) modifier)
- (floor (/ minutes modifier)))))
- (cl-decf minutes (* value modifier))
- (format " %d%s" value unit)))
- (required? (concat " 0" unit))
- (t ""))))
- selected-units
- ""))))
- ;; No unit can properly represent MINUTES. Use the smallest
- ;; one anyway.
- (t
- (pcase-let ((`((,unit . ,_)) (last selected-units)))
- (concat "0" unit))))))))
-
-;;;###autoload
-(defun org-duration-h:mm-only-p (times)
- "Non-nil when every duration in TIMES has \"H:MM\" or \"H:MM:SS\" format.
-
-TIMES is a list of duration strings.
-
-Return nil if any duration is expressed with units, as defined in
-`org-duration-units'. Otherwise, if any duration is expressed
-with \"H:MM:SS\" format, return `h:mm:ss'. Otherwise, return
-`h:mm'."
- (let (hms-flag)
- (catch :exit
- (dolist (time times)
- (cond ((string-match-p org-duration--full-re time)
- (throw :exit nil))
- ((string-match-p org-duration--mixed-re time)
- (throw :exit nil))
- (hms-flag nil)
- ((string-match-p org-duration--h:mm:ss-re time)
- (setq hms-flag 'h:mm:ss))))
- (or hms-flag 'h:mm))))
-
-
-;;; Initialization
-
-(org-duration-set-regexps)
-
-(provide 'org-duration)
-;;; org-duration.el ends here
diff --git a/elpa/org-9.1.14/org-duration.elc b/elpa/org-9.1.14/org-duration.elc
deleted file mode 100644
index 5f93028..0000000
--- a/elpa/org-9.1.14/org-duration.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-element.el b/elpa/org-9.1.14/org-element.el
deleted file mode 100644
index f4452ea..0000000
--- a/elpa/org-9.1.14/org-element.el
+++ /dev/null
@@ -1,5980 +0,0 @@
-;;; org-element.el --- Parser for Org Syntax -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2012-2018 Free Software Foundation, Inc.
-
-;; Author: Nicolas Goaziou <n.goaziou at gmail dot com>
-;; Keywords: outlines, hypermedia, calendar, wp
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; See <https://orgmode.org/worg/dev/org-syntax.html> for details about
-;; Org syntax.
-;;
-;; Lisp-wise, a syntax object can be represented as a list.
-;; It follows the pattern (TYPE PROPERTIES CONTENTS), where:
-;; TYPE is a symbol describing the object.
-;; PROPERTIES is the property list attached to it. See docstring of
-;; appropriate parsing function to get an exhaustive list.
-;; CONTENTS is a list of syntax objects or raw strings contained
-;; in the current object, when applicable.
-;;
-;; For the whole document, TYPE is `org-data' and PROPERTIES is nil.
-;;
-;; The first part of this file defines constants for the Org syntax,
-;; while the second one provide accessors and setters functions.
-;;
-;; The next part implements a parser and an interpreter for each
-;; element and object type in Org syntax.
-;;
-;; The following part creates a fully recursive buffer parser. It
-;; also provides a tool to map a function to elements or objects
-;; matching some criteria in the parse tree. Functions of interest
-;; are `org-element-parse-buffer', `org-element-map' and, to a lesser
-;; extent, `org-element-parse-secondary-string'.
-;;
-;; The penultimate part is the cradle of an interpreter for the
-;; obtained parse tree: `org-element-interpret-data'.
-;;
-;; The library ends by furnishing `org-element-at-point' function, and
-;; a way to give information about document structure around point
-;; with `org-element-context'. A cache mechanism is also provided for
-;; these functions.
-
-
-;;; Code:
-
-(require 'org)
-(require 'avl-tree)
-(require 'cl-lib)
-
-
-
-;;; Definitions And Rules
-;;
-;; Define elements, greater elements and specify recursive objects,
-;; along with the affiliated keywords recognized. Also set up
-;; restrictions on recursive objects combinations.
-;;
-;; `org-element-update-syntax' builds proper syntax regexps according
-;; to current setup.
-
-(defvar org-element-paragraph-separate nil
- "Regexp to separate paragraphs in an Org buffer.
-In the case of lines starting with \"#\" and \":\", this regexp
-is not sufficient to know if point is at a paragraph ending. See
-`org-element-paragraph-parser' for more information.")
-
-(defvar org-element--object-regexp nil
- "Regexp possibly matching the beginning of an object.
-This regexp allows false positives. Dedicated parser (e.g.,
-`org-export-bold-parser') will take care of further filtering.
-Radio links are not matched by this regexp, as they are treated
-specially in `org-element--object-lex'.")
-
-(defun org-element--set-regexps ()
- "Build variable syntax regexps."
- (setq org-element-paragraph-separate
- (concat "^\\(?:"
- ;; Headlines, inlinetasks.
- org-outline-regexp "\\|"
- ;; Footnote definitions.
- "\\[fn:[-_[:word:]]+\\]" "\\|"
- ;; Diary sexps.
- "%%(" "\\|"
- "[ \t]*\\(?:"
- ;; Empty lines.
- "$" "\\|"
- ;; Tables (any type).
- "|" "\\|"
- "\\+\\(?:-+\\+\\)+[ \t]*$" "\\|"
- ;; Comments, keyword-like or block-like constructs.
- ;; Blocks and keywords with dual values need to be
- ;; double-checked.
- "#\\(?: \\|$\\|\\+\\(?:"
- "BEGIN_\\S-+" "\\|"
- "\\S-+\\(?:\\[.*\\]\\)?:[ \t]*\\)\\)"
- "\\|"
- ;; Drawers (any type) and fixed-width areas. Drawers
- ;; need to be double-checked.
- ":\\(?: \\|$\\|[-_[:word:]]+:[ \t]*$\\)" "\\|"
- ;; Horizontal rules.
- "-\\{5,\\}[ \t]*$" "\\|"
- ;; LaTeX environments.
- "\\\\begin{\\([A-Za-z0-9*]+\\)}" "\\|"
- ;; Clock lines.
- (regexp-quote org-clock-string) "\\|"
- ;; Lists.
- (let ((term (pcase org-plain-list-ordered-item-terminator
- (?\) ")") (?. "\\.") (_ "[.)]")))
- (alpha (and org-list-allow-alphabetical "\\|[A-Za-z]")))
- (concat "\\(?:[-+*]\\|\\(?:[0-9]+" alpha "\\)" term "\\)"
- "\\(?:[ \t]\\|$\\)"))
- "\\)\\)")
- org-element--object-regexp
- (mapconcat #'identity
- (let ((link-types (regexp-opt (org-link-types))))
- (list
- ;; Sub/superscript.
- "\\(?:[_^][-{(*+.,[:alnum:]]\\)"
- ;; Bold, code, italic, strike-through, underline
- ;; and verbatim.
- (concat "[*~=+_/]"
- (format "[^%s]"
- (nth 2 org-emphasis-regexp-components)))
- ;; Plain links.
- (concat "\\<" link-types ":")
- ;; Objects starting with "[": regular link,
- ;; footnote reference, statistics cookie,
- ;; timestamp (inactive).
- (concat "\\[\\(?:"
- "fn:" "\\|"
- "\\[" "\\|"
- "[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" "\\|"
- "[0-9]*\\(?:%\\|/[0-9]*\\)\\]"
- "\\)")
- ;; Objects starting with "@": export snippets.
- "@@"
- ;; Objects starting with "{": macro.
- "{{{"
- ;; Objects starting with "<" : timestamp
- ;; (active, diary), target, radio target and
- ;; angular links.
- (concat "<\\(?:%%\\|<\\|[0-9]\\|" link-types "\\)")
- ;; Objects starting with "$": latex fragment.
- "\\$"
- ;; Objects starting with "\": line break,
- ;; entity, latex fragment.
- "\\\\\\(?:[a-zA-Z[(]\\|\\\\[ \t]*$\\|_ +\\)"
- ;; Objects starting with raw text: inline Babel
- ;; source block, inline Babel call.
- "\\(?:call\\|src\\)_"))
- "\\|")))
-
-(org-element--set-regexps)
-
-;;;###autoload
-(defun org-element-update-syntax ()
- "Update parser internals."
- (interactive)
- (org-element--set-regexps)
- (org-element-cache-reset 'all))
-
-(defconst org-element-all-elements
- '(babel-call center-block clock comment comment-block diary-sexp drawer
- dynamic-block example-block export-block fixed-width
- footnote-definition headline horizontal-rule inlinetask item
- keyword latex-environment node-property paragraph plain-list
- planning property-drawer quote-block section
- special-block src-block table table-row verse-block)
- "Complete list of element types.")
-
-(defconst org-element-greater-elements
- '(center-block drawer dynamic-block footnote-definition headline inlinetask
- item plain-list property-drawer quote-block section
- special-block table)
- "List of recursive element types aka Greater Elements.")
-
-(defconst org-element-all-objects
- '(bold code entity export-snippet footnote-reference inline-babel-call
- inline-src-block italic line-break latex-fragment link macro
- radio-target statistics-cookie strike-through subscript superscript
- table-cell target timestamp underline verbatim)
- "Complete list of object types.")
-
-(defconst org-element-recursive-objects
- '(bold footnote-reference italic link subscript radio-target strike-through
- superscript table-cell underline)
- "List of recursive object types.")
-
-(defconst org-element-object-containers
- (append org-element-recursive-objects '(paragraph table-row verse-block))
- "List of object or element types that can directly contain objects.")
-
-(defconst org-element-affiliated-keywords
- '("CAPTION" "DATA" "HEADER" "HEADERS" "LABEL" "NAME" "PLOT" "RESNAME" "RESULT"
- "RESULTS" "SOURCE" "SRCNAME" "TBLNAME")
- "List of affiliated keywords as strings.
-By default, all keywords setting attributes (e.g., \"ATTR_LATEX\")
-are affiliated keywords and need not to be in this list.")
-
-(defconst org-element-keyword-translation-alist
- '(("DATA" . "NAME") ("LABEL" . "NAME") ("RESNAME" . "NAME")
- ("SOURCE" . "NAME") ("SRCNAME" . "NAME") ("TBLNAME" . "NAME")
- ("RESULT" . "RESULTS") ("HEADERS" . "HEADER"))
- "Alist of usual translations for keywords.
-The key is the old name and the value the new one. The property
-holding their value will be named after the translated name.")
-
-(defconst org-element-multiple-keywords '("CAPTION" "HEADER")
- "List of affiliated keywords that can occur more than once in an element.
-
-Their value will be consed into a list of strings, which will be
-returned as the value of the property.
-
-This list is checked after translations have been applied. See
-`org-element-keyword-translation-alist'.
-
-By default, all keywords setting attributes (e.g., \"ATTR_LATEX\")
-allow multiple occurrences and need not to be in this list.")
-
-(defconst org-element-parsed-keywords '("CAPTION")
- "List of affiliated keywords whose value can be parsed.
-
-Their value will be stored as a secondary string: a list of
-strings and objects.
-
-This list is checked after translations have been applied. See
-`org-element-keyword-translation-alist'.")
-
-(defconst org-element--parsed-properties-alist
- (mapcar (lambda (k) (cons k (intern (concat ":" (downcase k)))))
- org-element-parsed-keywords)
- "Alist of parsed keywords and associated properties.
-This is generated from `org-element-parsed-keywords', which
-see.")
-
-(defconst org-element-dual-keywords '("CAPTION" "RESULTS")
- "List of affiliated keywords which can have a secondary value.
-
-In Org syntax, they can be written with optional square brackets
-before the colons. For example, RESULTS keyword can be
-associated to a hash value with the following:
-
- #+RESULTS[hash-string]: some-source
-
-This list is checked after translations have been applied. See
-`org-element-keyword-translation-alist'.")
-
-(defconst org-element--affiliated-re
- (format "[ \t]*#\\+\\(?:%s\\):[ \t]*"
- (concat
- ;; Dual affiliated keywords.
- (format "\\(?1:%s\\)\\(?:\\[\\(.*\\)\\]\\)?"
- (regexp-opt org-element-dual-keywords))
- "\\|"
- ;; Regular affiliated keywords.
- (format "\\(?1:%s\\)"
- (regexp-opt
- (cl-remove-if
- (lambda (k) (member k org-element-dual-keywords))
- org-element-affiliated-keywords)))
- "\\|"
- ;; Export attributes.
- "\\(?1:ATTR_[-_A-Za-z0-9]+\\)"))
- "Regexp matching any affiliated keyword.
-
-Keyword name is put in match group 1. Moreover, if keyword
-belongs to `org-element-dual-keywords', put the dual value in
-match group 2.
-
-Don't modify it, set `org-element-affiliated-keywords' instead.")
-
-(defconst org-element-object-restrictions
- (let* ((standard-set (remq 'table-cell org-element-all-objects))
- (standard-set-no-line-break (remq 'line-break standard-set)))
- `((bold ,@standard-set)
- (footnote-reference ,@standard-set)
- (headline ,@standard-set-no-line-break)
- (inlinetask ,@standard-set-no-line-break)
- (italic ,@standard-set)
- (item ,@standard-set-no-line-break)
- (keyword ,@(remq 'footnote-reference standard-set))
- ;; Ignore all links in a link description. Also ignore
- ;; radio-targets and line breaks.
- (link bold code entity export-snippet inline-babel-call inline-src-block
- italic latex-fragment macro statistics-cookie strike-through
- subscript superscript underline verbatim)
- (paragraph ,@standard-set)
- ;; Remove any variable object from radio target as it would
- ;; prevent it from being properly recognized.
- (radio-target bold code entity italic latex-fragment strike-through
- subscript superscript underline superscript)
- (strike-through ,@standard-set)
- (subscript ,@standard-set)
- (superscript ,@standard-set)
- ;; Ignore inline babel call and inline src block as formulas are
- ;; possible. Also ignore line breaks and statistics cookies.
- (table-cell bold code entity export-snippet footnote-reference italic
- latex-fragment link macro radio-target strike-through
- subscript superscript target timestamp underline verbatim)
- (table-row table-cell)
- (underline ,@standard-set)
- (verse-block ,@standard-set)))
- "Alist of objects restrictions.
-
-key is an element or object type containing objects and value is
-a list of types that can be contained within an element or object
-of such type.
-
-For example, in a `radio-target' object, one can only find
-entities, latex-fragments, subscript, superscript and text
-markup.
-
-This alist also applies to secondary string. For example, an
-`headline' type element doesn't directly contain objects, but
-still has an entry since one of its properties (`:title') does.")
-
-(defconst org-element-secondary-value-alist
- '((headline :title)
- (inlinetask :title)
- (item :tag))
- "Alist between element types and locations of secondary values.")
-
-(defconst org-element--pair-round-table
- (let ((table (make-syntax-table)))
- (modify-syntax-entry ?\( "()" table)
- (modify-syntax-entry ?\) ")(" table)
- (dolist (char '(?\{ ?\} ?\[ ?\] ?\< ?\>) table)
- (modify-syntax-entry char " " table)))
- "Table used internally to pair only round brackets.
-Other brackets are treated as spaces.")
-
-(defconst org-element--pair-square-table
- (let ((table (make-syntax-table)))
- (modify-syntax-entry ?\[ "(]" table)
- (modify-syntax-entry ?\] ")[" table)
- (dolist (char '(?\{ ?\} ?\( ?\) ?\< ?\>) table)
- (modify-syntax-entry char " " table)))
- "Table used internally to pair only square brackets.
-Other brackets are treated as spaces.")
-
-(defconst org-element--pair-curly-table
- (let ((table (make-syntax-table)))
- (modify-syntax-entry ?\{ "(}" table)
- (modify-syntax-entry ?\} "){" table)
- (dolist (char '(?\[ ?\] ?\( ?\) ?\< ?\>) table)
- (modify-syntax-entry char " " table)))
- "Table used internally to pair only curly brackets.
-Other brackets are treated as spaces.")
-
-(defun org-element--parse-paired-brackets (char)
- "Parse paired brackets at point.
-CHAR is the opening bracket to consider, as a character. Return
-contents between brackets, as a string, or nil. Also move point
-past the brackets."
- (when (eq char (char-after))
- (let ((syntax-table (pcase char
- (?\{ org-element--pair-curly-table)
- (?\[ org-element--pair-square-table)
- (?\( org-element--pair-round-table)
- (_ nil)))
- (pos (point)))
- (when syntax-table
- (with-syntax-table syntax-table
- (let ((end (ignore-errors (scan-lists pos 1 0))))
- (when end
- (goto-char end)
- (buffer-substring-no-properties (1+ pos) (1- end)))))))))
-
-
-;;; Accessors and Setters
-;;
-;; Provide four accessors: `org-element-type', `org-element-property'
-;; `org-element-contents' and `org-element-restriction'.
-;;
-;; Setter functions allow modification of elements by side effect.
-;; There is `org-element-put-property', `org-element-set-contents'.
-;; These low-level functions are useful to build a parse tree.
-;;
-;; `org-element-adopt-elements', `org-element-set-element',
-;; `org-element-extract-element' and `org-element-insert-before' are
-;; high-level functions useful to modify a parse tree.
-;;
-;; `org-element-secondary-p' is a predicate used to know if a given
-;; object belongs to a secondary string. `org-element-class' tells if
-;; some parsed data is an element or an object, handling pseudo
-;; elements and objects. `org-element-copy' returns an element or
-;; object, stripping its parent property in the process.
-
-(defsubst org-element-type (element)
- "Return type of ELEMENT.
-
-The function returns the type of the element or object provided.
-It can also return the following special value:
- `plain-text' for a string
- `org-data' for a complete document
- nil in any other case."
- (cond
- ((not (consp element)) (and (stringp element) 'plain-text))
- ((symbolp (car element)) (car element))))
-
-(defsubst org-element-property (property element)
- "Extract the value from the PROPERTY of an ELEMENT."
- (if (stringp element) (get-text-property 0 property element)
- (plist-get (nth 1 element) property)))
-
-(defsubst org-element-contents (element)
- "Extract contents from an ELEMENT."
- (cond ((not (consp element)) nil)
- ((symbolp (car element)) (nthcdr 2 element))
- (t element)))
-
-(defsubst org-element-restriction (element)
- "Return restriction associated to ELEMENT.
-ELEMENT can be an element, an object or a symbol representing an
-element or object type."
- (cdr (assq (if (symbolp element) element (org-element-type element))
- org-element-object-restrictions)))
-
-(defsubst org-element-put-property (element property value)
- "In ELEMENT set PROPERTY to VALUE.
-Return modified element."
- (if (stringp element) (org-add-props element nil property value)
- (setcar (cdr element) (plist-put (nth 1 element) property value))
- element))
-
-(defsubst org-element-set-contents (element &rest contents)
- "Set ELEMENT's contents to CONTENTS.
-Return ELEMENT."
- (cond ((null element) contents)
- ((not (symbolp (car element))) contents)
- ((cdr element) (setcdr (cdr element) contents) element)
- (t (nconc element contents))))
-
-(defun org-element-secondary-p (object)
- "Non-nil when OBJECT directly belongs to a secondary string.
-Return value is the property name, as a keyword, or nil."
- (let* ((parent (org-element-property :parent object))
- (properties (cdr (assq (org-element-type parent)
- org-element-secondary-value-alist))))
- (catch 'exit
- (dolist (p properties)
- (and (memq object (org-element-property p parent))
- (throw 'exit p))))))
-
-(defsubst org-element-class (datum &optional parent)
- "Return class for ELEMENT, as a symbol.
-Class is either `element' or `object'. Optional argument PARENT
-is the element or object containing DATUM. It defaults to the
-value of DATUM `:parent' property."
- (let ((type (org-element-type datum))
- (parent (or parent (org-element-property :parent datum))))
- (cond
- ;; Trivial cases.
- ((memq type org-element-all-objects) 'object)
- ((memq type org-element-all-elements) 'element)
- ;; Special cases.
- ((eq type 'org-data) 'element)
- ((eq type 'plain-text) 'object)
- ((not type) 'object)
- ;; Pseudo object or elements. Make a guess about its class.
- ;; Basically a pseudo object is contained within another object,
- ;; a secondary string or a container element.
- ((not parent) 'element)
- (t
- (let ((parent-type (org-element-type parent)))
- (cond ((not parent-type) 'object)
- ((memq parent-type org-element-object-containers) 'object)
- ((org-element-secondary-p datum) 'object)
- (t 'element)))))))
-
-(defsubst org-element-adopt-elements (parent &rest children)
- "Append elements to the contents of another element.
-
-PARENT is an element or object. CHILDREN can be elements,
-objects, or a strings.
-
-The function takes care of setting `:parent' property for CHILD.
-Return parent element."
- (if (not children) parent
- ;; Link every child to PARENT. If PARENT is nil, it is a secondary
- ;; string: parent is the list itself.
- (dolist (child children)
- (org-element-put-property child :parent (or parent children)))
- ;; Add CHILDREN at the end of PARENT contents.
- (when parent
- (apply #'org-element-set-contents
- parent
- (nconc (org-element-contents parent) children)))
- ;; Return modified PARENT element.
- (or parent children)))
-
-(defun org-element-extract-element (element)
- "Extract ELEMENT from parse tree.
-Remove element from the parse tree by side-effect, and return it
-with its `:parent' property stripped out."
- (let ((parent (org-element-property :parent element))
- (secondary (org-element-secondary-p element)))
- (if secondary
- (org-element-put-property
- parent secondary
- (delq element (org-element-property secondary parent)))
- (apply #'org-element-set-contents
- parent
- (delq element (org-element-contents parent))))
- ;; Return ELEMENT with its :parent removed.
- (org-element-put-property element :parent nil)))
-
-(defun org-element-insert-before (element location)
- "Insert ELEMENT before LOCATION in parse tree.
-LOCATION is an element, object or string within the parse tree.
-Parse tree is modified by side effect."
- (let* ((parent (org-element-property :parent location))
- (property (org-element-secondary-p location))
- (siblings (if property (org-element-property property parent)
- (org-element-contents parent)))
- ;; Special case: LOCATION is the first element of an
- ;; independent secondary string (e.g. :title property). Add
- ;; ELEMENT in-place.
- (specialp (and (not property)
- (eq siblings parent)
- (eq (car parent) location))))
- ;; Install ELEMENT at the appropriate LOCATION within SIBLINGS.
- (cond (specialp)
- ((or (null siblings) (eq (car siblings) location))
- (push element siblings))
- ((null location) (nconc siblings (list element)))
- (t
- (let ((index (cl-position location siblings)))
- (unless index (error "No location found to insert element"))
- (push element (cdr (nthcdr (1- index) siblings))))))
- ;; Store SIBLINGS at appropriate place in parse tree.
- (cond
- (specialp (setcdr parent (copy-sequence parent)) (setcar parent element))
- (property (org-element-put-property parent property siblings))
- (t (apply #'org-element-set-contents parent siblings)))
- ;; Set appropriate :parent property.
- (org-element-put-property element :parent parent)))
-
-(defun org-element-set-element (old new)
- "Replace element or object OLD with element or object NEW.
-The function takes care of setting `:parent' property for NEW."
- ;; Ensure OLD and NEW have the same parent.
- (org-element-put-property new :parent (org-element-property :parent old))
- (if (or (memq (org-element-type old) '(plain-text nil))
- (memq (org-element-type new) '(plain-text nil)))
- ;; We cannot replace OLD with NEW since one of them is not an
- ;; object or element. We take the long path.
- (progn (org-element-insert-before new old)
- (org-element-extract-element old))
- ;; Since OLD is going to be changed into NEW by side-effect, first
- ;; make sure that every element or object within NEW has OLD as
- ;; parent.
- (dolist (blob (org-element-contents new))
- (org-element-put-property blob :parent old))
- ;; Transfer contents.
- (apply #'org-element-set-contents old (org-element-contents new))
- ;; Overwrite OLD's properties with NEW's.
- (setcar (cdr old) (nth 1 new))
- ;; Transfer type.
- (setcar old (car new))))
-
-(defun org-element-create (type &optional props &rest children)
- "Create a new element of type TYPE.
-Optional argument PROPS, when non-nil, is a plist defining the
-properties of the element. CHILDREN can be elements, objects or
-strings."
- (apply #'org-element-adopt-elements (list type props) children))
-
-(defun org-element-copy (datum)
- "Return a copy of DATUM.
-DATUM is an element, object, string or nil. `:parent' property
-is cleared and contents are removed in the process."
- (when datum
- (let ((type (org-element-type datum)))
- (pcase type
- (`org-data (list 'org-data nil))
- (`plain-text (substring-no-properties datum))
- (`nil (copy-sequence datum))
- (_
- (list type (plist-put (copy-sequence (nth 1 datum)) :parent nil)))))))
-
-
-
-;;; Greater elements
-;;
-;; For each greater element type, we define a parser and an
-;; interpreter.
-;;
-;; A parser returns the element or object as the list described above.
-;; Most of them accepts no argument. Though, exceptions exist. Hence
-;; every element containing a secondary string (see
-;; `org-element-secondary-value-alist') will accept an optional
-;; argument to toggle parsing of these secondary strings. Moreover,
-;; `item' parser requires current list's structure as its first
-;; element.
-;;
-;; An interpreter accepts two arguments: the list representation of
-;; the element or object, and its contents. The latter may be nil,
-;; depending on the element or object considered. It returns the
-;; appropriate Org syntax, as a string.
-;;
-;; Parsing functions must follow the naming convention:
-;; org-element-TYPE-parser, where TYPE is greater element's type, as
-;; defined in `org-element-greater-elements'.
-;;
-;; Similarly, interpreting functions must follow the naming
-;; convention: org-element-TYPE-interpreter.
-;;
-;; With the exception of `headline' and `item' types, greater elements
-;; cannot contain other greater elements of their own type.
-;;
-;; Beside implementing a parser and an interpreter, adding a new
-;; greater element requires tweaking `org-element--current-element'.
-;; Moreover, the newly defined type must be added to both
-;; `org-element-all-elements' and `org-element-greater-elements'.
-
-
-;;;; Center Block
-
-(defun org-element-center-block-parser (limit affiliated)
- "Parse a center block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `center-block' and CDR is a plist
-containing `:begin', `:end', `:contents-begin', `:contents-end',
-`:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at the beginning of the block."
- (let ((case-fold-search t))
- (if (not (save-excursion
- (re-search-forward "^[ \t]*#\\+END_CENTER[ \t]*$" limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((block-end-line (match-beginning 0)))
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- ;; Empty blocks have no contents.
- (contents-begin (progn (forward-line)
- (and (< (point) block-end-line)
- (point))))
- (contents-end (and contents-begin block-end-line))
- (pos-before-blank (progn (goto-char block-end-line)
- (forward-line)
- (point)))
- (end (save-excursion
- (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'center-block
- (nconc
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))))
-
-(defun org-element-center-block-interpreter (_ contents)
- "Interpret a center-block element as Org syntax.
-CONTENTS is the contents of the element."
- (format "#+BEGIN_CENTER\n%s#+END_CENTER" contents))
-
-
-;;;; Drawer
-
-(defun org-element-drawer-parser (limit affiliated)
- "Parse a drawer.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `drawer' and CDR is a plist containing
-`:drawer-name', `:begin', `:end', `:contents-begin',
-`:contents-end', `:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at beginning of drawer."
- (let ((case-fold-search t))
- (if (not (save-excursion (re-search-forward "^[ \t]*:END:[ \t]*$" limit t)))
- ;; Incomplete drawer: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (save-excursion
- (let* ((drawer-end-line (match-beginning 0))
- (name (progn (looking-at org-drawer-regexp)
- (match-string-no-properties 1)))
- (begin (car affiliated))
- (post-affiliated (point))
- ;; Empty drawers have no contents.
- (contents-begin (progn (forward-line)
- (and (< (point) drawer-end-line)
- (point))))
- (contents-end (and contents-begin drawer-end-line))
- (pos-before-blank (progn (goto-char drawer-end-line)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'drawer
- (nconc
- (list :begin begin
- :end end
- :drawer-name name
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))))
-
-(defun org-element-drawer-interpreter (drawer contents)
- "Interpret DRAWER element as Org syntax.
-CONTENTS is the contents of the element."
- (format ":%s:\n%s:END:"
- (org-element-property :drawer-name drawer)
- contents))
-
-
-;;;; Dynamic Block
-
-(defun org-element-dynamic-block-parser (limit affiliated)
- "Parse a dynamic block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `dynamic-block' and CDR is a plist
-containing `:block-name', `:begin', `:end', `:contents-begin',
-`:contents-end', `:arguments', `:post-blank' and
-`:post-affiliated' keywords.
-
-Assume point is at beginning of dynamic block."
- (let ((case-fold-search t))
- (if (not (save-excursion
- (re-search-forward "^[ \t]*#\\+END:?[ \t]*$" limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((block-end-line (match-beginning 0)))
- (save-excursion
- (let* ((name (progn (looking-at org-dblock-start-re)
- (match-string-no-properties 1)))
- (arguments (match-string-no-properties 3))
- (begin (car affiliated))
- (post-affiliated (point))
- ;; Empty blocks have no contents.
- (contents-begin (progn (forward-line)
- (and (< (point) block-end-line)
- (point))))
- (contents-end (and contents-begin block-end-line))
- (pos-before-blank (progn (goto-char block-end-line)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'dynamic-block
- (nconc
- (list :begin begin
- :end end
- :block-name name
- :arguments arguments
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated)))))))))
-
-(defun org-element-dynamic-block-interpreter (dynamic-block contents)
- "Interpret DYNAMIC-BLOCK element as Org syntax.
-CONTENTS is the contents of the element."
- (format "#+BEGIN: %s%s\n%s#+END:"
- (org-element-property :block-name dynamic-block)
- (let ((args (org-element-property :arguments dynamic-block)))
- (if args (concat " " args) ""))
- contents))
-
-
-;;;; Footnote Definition
-
-(defconst org-element--footnote-separator
- (concat org-outline-regexp-bol "\\|"
- org-footnote-definition-re "\\|"
- "^\\([ \t]*\n\\)\\{2,\\}")
- "Regexp used as a footnote definition separator.")
-
-(defun org-element-footnote-definition-parser (limit affiliated)
- "Parse a footnote definition.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `footnote-definition' and CDR is
-a plist containing `:label', `:begin' `:end', `:contents-begin',
-`:contents-end', `:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at the beginning of the footnote definition."
- (save-excursion
- (let* ((label (progn (looking-at org-footnote-definition-re)
- (match-string-no-properties 1)))
- (begin (car affiliated))
- (post-affiliated (point))
- (end
- (save-excursion
- (end-of-line)
- (cond
- ((not
- (re-search-forward org-element--footnote-separator limit t))
- limit)
- ((eq ?\[ (char-after (match-beginning 0)))
- ;; At a new footnote definition, make sure we end
- ;; before any affiliated keyword above.
- (forward-line -1)
- (while (and (> (point) post-affiliated)
- (looking-at-p org-element--affiliated-re))
- (forward-line -1))
- (line-beginning-position 2))
- ((eq ?* (char-after (match-beginning 0))) (match-beginning 0))
- (t (skip-chars-forward " \r\t\n" limit)
- (if (= limit (point)) limit (line-beginning-position))))))
- (contents-begin
- (progn (search-forward "]")
- (skip-chars-forward " \r\t\n" end)
- (cond ((= (point) end) nil)
- ((= (line-beginning-position) post-affiliated) (point))
- (t (line-beginning-position)))))
- (contents-end
- (progn (goto-char end)
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))))
- (list 'footnote-definition
- (nconc
- (list :label label
- :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end (and contents-begin contents-end)
- :post-blank (count-lines contents-end end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))
-
-(defun org-element-footnote-definition-interpreter (footnote-definition contents)
- "Interpret FOOTNOTE-DEFINITION element as Org syntax.
-CONTENTS is the contents of the footnote-definition."
- (concat (format "[fn:%s]" (org-element-property :label footnote-definition))
- " "
- contents))
-
-
-;;;; Headline
-
-(defun org-element--get-node-properties ()
- "Return node properties associated to headline at point.
-Upcase property names. It avoids confusion between properties
-obtained through property drawer and default properties from the
-parser (e.g. `:end' and :END:). Return value is a plist."
- (save-excursion
- (forward-line)
- (when (looking-at-p org-planning-line-re) (forward-line))
- (when (looking-at org-property-drawer-re)
- (forward-line)
- (let ((end (match-end 0)) properties)
- (while (< (line-end-position) end)
- (looking-at org-property-re)
- (push (match-string-no-properties 3) properties)
- (push (intern (concat ":" (upcase (match-string 2)))) properties)
- (forward-line))
- properties))))
-
-(defun org-element--get-time-properties ()
- "Return time properties associated to headline at point.
-Return value is a plist."
- (save-excursion
- (when (progn (forward-line) (looking-at org-planning-line-re))
- (let ((end (line-end-position)) plist)
- (while (re-search-forward org-keyword-time-not-clock-regexp end t)
- (goto-char (match-end 1))
- (skip-chars-forward " \t")
- (let ((keyword (match-string 1))
- (time (org-element-timestamp-parser)))
- (cond ((equal keyword org-scheduled-string)
- (setq plist (plist-put plist :scheduled time)))
- ((equal keyword org-deadline-string)
- (setq plist (plist-put plist :deadline time)))
- (t (setq plist (plist-put plist :closed time))))))
- plist))))
-
-(defun org-element-headline-parser (limit &optional raw-secondary-p)
- "Parse a headline.
-
-Return a list whose CAR is `headline' and CDR is a plist
-containing `:raw-value', `:title', `:begin', `:end',
-`:pre-blank', `:contents-begin' and `:contents-end', `:level',
-`:priority', `:tags', `:todo-keyword',`:todo-type', `:scheduled',
-`:deadline', `:closed', `:archivedp', `:commentedp'
-`:footnote-section-p', `:post-blank' and `:post-affiliated'
-keywords.
-
-The plist also contains any property set in the property drawer,
-with its name in upper cases and colons added at the
-beginning (e.g., `:CUSTOM_ID').
-
-LIMIT is a buffer position bounding the search.
-
-When RAW-SECONDARY-P is non-nil, headline's title will not be
-parsed as a secondary string, but as a plain string instead.
-
-Assume point is at beginning of the headline."
- (save-excursion
- (let* ((begin (point))
- (level (prog1 (org-reduced-level (skip-chars-forward "*"))
- (skip-chars-forward " \t")))
- (todo (and org-todo-regexp
- (let (case-fold-search) (looking-at (concat org-todo-regexp " ")))
- (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")
- (match-string 1))))
- (todo-type
- (and todo (if (member todo org-done-keywords) 'done 'todo)))
- (priority (and (looking-at "\\[#.\\][ \t]*")
- (progn (goto-char (match-end 0))
- (aref (match-string 0) 2))))
- (commentedp
- (and (let (case-fold-search) (looking-at org-comment-string))
- (goto-char (match-end 0))))
- (title-start (point))
- (tags (when (re-search-forward
- "[ \t]+\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$"
- (line-end-position)
- 'move)
- (goto-char (match-beginning 0))
- (org-split-string (match-string 1) ":")))
- (title-end (point))
- (raw-value (org-trim
- (buffer-substring-no-properties title-start title-end)))
- (archivedp (member org-archive-tag tags))
- (footnote-section-p (and org-footnote-section
- (string= org-footnote-section raw-value)))
- (standard-props (org-element--get-node-properties))
- (time-props (org-element--get-time-properties))
- (end (min (save-excursion (org-end-of-subtree t t)) limit))
- (contents-begin (save-excursion
- (forward-line)
- (skip-chars-forward " \r\t\n" end)
- (and (/= (point) end) (line-beginning-position))))
- (contents-end (and contents-begin
- (progn (goto-char end)
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2)))))
- (let ((headline
- (list 'headline
- (nconc
- (list :raw-value raw-value
- :begin begin
- :end end
- :pre-blank
- (if (not contents-begin) 0
- (1- (count-lines begin contents-begin)))
- :contents-begin contents-begin
- :contents-end contents-end
- :level level
- :priority priority
- :tags tags
- :todo-keyword todo
- :todo-type todo-type
- :post-blank
- (if contents-end
- (count-lines contents-end end)
- (1- (count-lines begin end)))
- :footnote-section-p footnote-section-p
- :archivedp archivedp
- :commentedp commentedp
- :post-affiliated begin)
- time-props
- standard-props))))
- (org-element-put-property
- headline :title
- (if raw-secondary-p raw-value
- (org-element--parse-objects
- (progn (goto-char title-start)
- (skip-chars-forward " \t")
- (point))
- (progn (goto-char title-end)
- (skip-chars-backward " \t")
- (point))
- nil
- (org-element-restriction 'headline)
- headline)))))))
-
-(defun org-element-headline-interpreter (headline contents)
- "Interpret HEADLINE element as Org syntax.
-CONTENTS is the contents of the element."
- (let* ((level (org-element-property :level headline))
- (todo (org-element-property :todo-keyword headline))
- (priority (org-element-property :priority headline))
- (title (org-element-interpret-data
- (org-element-property :title headline)))
- (tags (let ((tag-list (org-element-property :tags headline)))
- (and tag-list
- (format ":%s:" (mapconcat #'identity tag-list ":")))))
- (commentedp (org-element-property :commentedp headline))
- (pre-blank (or (org-element-property :pre-blank headline) 0))
- (heading
- (concat (make-string (if org-odd-levels-only (1- (* level 2)) level)
- ?*)
- (and todo (concat " " todo))
- (and commentedp (concat " " org-comment-string))
- (and priority (format " [#%c]" priority))
- " "
- (if (and org-footnote-section
- (org-element-property :footnote-section-p headline))
- org-footnote-section
- title))))
- (concat
- heading
- ;; Align tags.
- (when tags
- (cond
- ((zerop org-tags-column) (format " %s" tags))
- ((< org-tags-column 0)
- (concat
- (make-string
- (max (- (+ org-tags-column (length heading) (length tags))) 1)
- ?\s)
- tags))
- (t
- (concat
- (make-string (max (- org-tags-column (length heading)) 1) ?\s)
- tags))))
- (make-string (1+ pre-blank) ?\n)
- contents)))
-
-
-;;;; Inlinetask
-
-(defun org-element-inlinetask-parser (limit &optional raw-secondary-p)
- "Parse an inline task.
-
-Return a list whose CAR is `inlinetask' and CDR is a plist
-containing `:title', `:begin', `:end', `:pre-blank',
-`:contents-begin' and `:contents-end', `:level', `:priority',
-`:raw-value', `:tags', `:todo-keyword', `:todo-type',
-`:scheduled', `:deadline', `:closed', `:post-blank' and
-`:post-affiliated' keywords.
-
-The plist also contains any property set in the property drawer,
-with its name in upper cases and colons added at the
-beginning (e.g., `:CUSTOM_ID').
-
-When optional argument RAW-SECONDARY-P is non-nil, inline-task's
-title will not be parsed as a secondary string, but as a plain
-string instead.
-
-Assume point is at beginning of the inline task."
- (save-excursion
- (let* ((begin (point))
- (level (prog1 (org-reduced-level (skip-chars-forward "*"))
- (skip-chars-forward " \t")))
- (todo (and org-todo-regexp
- (let (case-fold-search) (looking-at org-todo-regexp))
- (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")
- (match-string 0))))
- (todo-type (and todo
- (if (member todo org-done-keywords) 'done 'todo)))
- (priority (and (looking-at "\\[#.\\][ \t]*")
- (progn (goto-char (match-end 0))
- (aref (match-string 0) 2))))
- (title-start (point))
- (tags (when (re-search-forward
- "[ \t]+\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$"
- (line-end-position)
- 'move)
- (goto-char (match-beginning 0))
- (org-split-string (match-string 1) ":")))
- (title-end (point))
- (raw-value (org-trim
- (buffer-substring-no-properties title-start title-end)))
- (task-end (save-excursion
- (end-of-line)
- (and (re-search-forward org-outline-regexp-bol limit t)
- (looking-at-p "[ \t]*END[ \t]*$")
- (line-beginning-position))))
- (standard-props (and task-end (org-element--get-node-properties)))
- (time-props (and task-end (org-element--get-time-properties)))
- (contents-begin (and task-end
- (< (point) task-end)
- (progn
- (forward-line)
- (skip-chars-forward " \t\n")
- (line-beginning-position))))
- (contents-end (and contents-begin task-end))
- (end (progn (when task-end (goto-char task-end))
- (forward-line)
- (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position))))
- (inlinetask
- (list 'inlinetask
- (nconc
- (list :raw-value raw-value
- :begin begin
- :end end
- :pre-blank
- (if (not contents-begin) 0
- (1- (count-lines begin contents-begin)))
- :contents-begin contents-begin
- :contents-end contents-end
- :level level
- :priority priority
- :tags tags
- :todo-keyword todo
- :todo-type todo-type
- :post-blank (1- (count-lines (or task-end begin) end))
- :post-affiliated begin)
- time-props
- standard-props))))
- (org-element-put-property
- inlinetask :title
- (if raw-secondary-p raw-value
- (org-element--parse-objects
- (progn (goto-char title-start)
- (skip-chars-forward " \t")
- (point))
- (progn (goto-char title-end)
- (skip-chars-backward " \t")
- (point))
- nil
- (org-element-restriction 'inlinetask)
- inlinetask))))))
-
-(defun org-element-inlinetask-interpreter (inlinetask contents)
- "Interpret INLINETASK element as Org syntax.
-CONTENTS is the contents of inlinetask."
- (let* ((level (org-element-property :level inlinetask))
- (todo (org-element-property :todo-keyword inlinetask))
- (priority (org-element-property :priority inlinetask))
- (title (org-element-interpret-data
- (org-element-property :title inlinetask)))
- (tags (let ((tag-list (org-element-property :tags inlinetask)))
- (and tag-list
- (format ":%s:" (mapconcat 'identity tag-list ":")))))
- (task (concat (make-string level ?*)
- (and todo (concat " " todo))
- (and priority (format " [#%c]" priority))
- (and title (concat " " title)))))
- (concat task
- ;; Align tags.
- (when tags
- (cond
- ((zerop org-tags-column) (format " %s" tags))
- ((< org-tags-column 0)
- (concat
- (make-string
- (max (- (+ org-tags-column (length task) (length tags))) 1)
- ? )
- tags))
- (t
- (concat
- (make-string (max (- org-tags-column (length task)) 1) ? )
- tags))))
- ;; Prefer degenerate inlinetasks when there are no
- ;; contents.
- (when contents
- (concat "\n"
- contents
- (make-string level ?*) " END")))))
-
-
-;;;; Item
-
-(defun org-element-item-parser (_ struct &optional raw-secondary-p)
- "Parse an item.
-
-STRUCT is the structure of the plain list.
-
-Return a list whose CAR is `item' and CDR is a plist containing
-`:bullet', `:begin', `:end', `:contents-begin', `:contents-end',
-`:checkbox', `:counter', `:tag', `:structure', `:post-blank' and
-`:post-affiliated' keywords.
-
-When optional argument RAW-SECONDARY-P is non-nil, item's tag, if
-any, will not be parsed as a secondary string, but as a plain
-string instead.
-
-Assume point is at the beginning of the item."
- (save-excursion
- (beginning-of-line)
- (looking-at org-list-full-item-re)
- (let* ((begin (point))
- (bullet (match-string-no-properties 1))
- (checkbox (let ((box (match-string 3)))
- (cond ((equal "[ ]" box) 'off)
- ((equal "[X]" box) 'on)
- ((equal "[-]" box) 'trans))))
- (counter (let ((c (match-string 2)))
- (save-match-data
- (cond
- ((not c) nil)
- ((string-match "[A-Za-z]" c)
- (- (string-to-char (upcase (match-string 0 c)))
- 64))
- ((string-match "[0-9]+" c)
- (string-to-number (match-string 0 c)))))))
- (end (progn (goto-char (nth 6 (assq (point) struct)))
- (if (bolp) (point) (line-beginning-position 2))))
- (contents-begin
- (progn (goto-char
- ;; Ignore tags in un-ordered lists: they are just
- ;; a part of item's body.
- (if (and (match-beginning 4)
- (save-match-data (string-match "[.)]" bullet)))
- (match-beginning 4)
- (match-end 0)))
- (skip-chars-forward " \r\t\n" end)
- (cond ((= (point) end) nil)
- ;; If first line isn't empty, contents really
- ;; start at the text after item's meta-data.
- ((= (line-beginning-position) begin) (point))
- (t (line-beginning-position)))))
- (contents-end (and contents-begin
- (progn (goto-char end)
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))))
- (item
- (list 'item
- (list :bullet bullet
- :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :checkbox checkbox
- :counter counter
- :structure struct
- :post-blank (count-lines (or contents-end begin) end)
- :post-affiliated begin))))
- (org-element-put-property
- item :tag
- (let ((raw (org-list-get-tag begin struct)))
- (when raw
- (if raw-secondary-p raw
- (org-element--parse-objects
- (match-beginning 4) (match-end 4) nil
- (org-element-restriction 'item)
- item))))))))
-
-(defun org-element-item-interpreter (item contents)
- "Interpret ITEM element as Org syntax.
-CONTENTS is the contents of the element."
- (let* ((bullet (let ((bullet (org-element-property :bullet item)))
- (org-list-bullet-string
- (cond ((not (string-match "[0-9a-zA-Z]" bullet)) "- ")
- ((eq org-plain-list-ordered-item-terminator ?\)) "1)")
- (t "1.")))))
- (checkbox (org-element-property :checkbox item))
- (counter (org-element-property :counter item))
- (tag (let ((tag (org-element-property :tag item)))
- (and tag (org-element-interpret-data tag))))
- ;; Compute indentation.
- (ind (make-string (length bullet) 32))
- (item-starts-with-par-p
- (eq (org-element-type (car (org-element-contents item)))
- 'paragraph)))
- ;; Indent contents.
- (concat
- bullet
- (and counter (format "[@%d] " counter))
- (pcase checkbox
- (`on "[X] ")
- (`off "[ ] ")
- (`trans "[-] ")
- (_ nil))
- (and tag (format "%s :: " tag))
- (when contents
- (let ((contents (replace-regexp-in-string
- "\\(^\\)[ \t]*\\S-" ind contents nil nil 1)))
- (if item-starts-with-par-p (org-trim contents)
- (concat "\n" contents)))))))
-
-
-;;;; Plain List
-
-(defun org-element--list-struct (limit)
- ;; Return structure of list at point. Internal function. See
- ;; `org-list-struct' for details.
- (let ((case-fold-search t)
- (top-ind limit)
- (item-re (org-item-re))
- (inlinetask-re (and (featurep 'org-inlinetask) "^\\*+ "))
- items struct)
- (save-excursion
- (catch :exit
- (while t
- (cond
- ;; At limit: end all items.
- ((>= (point) limit)
- (let ((end (progn (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))))
- (dolist (item items) (setcar (nthcdr 6 item) end)))
- (throw :exit (sort (nconc items struct) #'car-less-than-car)))
- ;; At list end: end all items.
- ((looking-at org-list-end-re)
- (dolist (item items) (setcar (nthcdr 6 item) (point)))
- (throw :exit (sort (nconc items struct) #'car-less-than-car)))
- ;; At a new item: end previous sibling.
- ((looking-at item-re)
- (let ((ind (save-excursion (skip-chars-forward " \t")
- (current-column))))
- (setq top-ind (min top-ind ind))
- (while (and items (<= ind (nth 1 (car items))))
- (let ((item (pop items)))
- (setcar (nthcdr 6 item) (point))
- (push item struct)))
- (push (progn (looking-at org-list-full-item-re)
- (let ((bullet (match-string-no-properties 1)))
- (list (point)
- ind
- bullet
- (match-string-no-properties 2) ; counter
- (match-string-no-properties 3) ; checkbox
- ;; Description tag.
- (and (save-match-data
- (string-match "[-+*]" bullet))
- (match-string-no-properties 4))
- ;; Ending position, unknown so far.
- nil)))
- items))
- (forward-line))
- ;; Skip empty lines.
- ((looking-at "^[ \t]*$") (forward-line))
- ;; Skip inline tasks and blank lines along the way.
- ((and inlinetask-re (looking-at inlinetask-re))
- (forward-line)
- (let ((origin (point)))
- (when (re-search-forward inlinetask-re limit t)
- (if (looking-at-p "END[ \t]*$") (forward-line)
- (goto-char origin)))))
- ;; At some text line. Check if it ends any previous item.
- (t
- (let ((ind (save-excursion
- (skip-chars-forward " \t")
- (current-column)))
- (end (save-excursion
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))))
- (while (<= ind (nth 1 (car items)))
- (let ((item (pop items)))
- (setcar (nthcdr 6 item) end)
- (push item struct)
- (unless items
- (throw :exit (sort struct #'car-less-than-car))))))
- ;; Skip blocks (any type) and drawers contents.
- (cond
- ((and (looking-at "[ \t]*#\\+BEGIN\\(:\\|_\\S-+\\)")
- (re-search-forward
- (format "^[ \t]*#\\+END%s[ \t]*$" (match-string 1))
- limit t)))
- ((and (looking-at org-drawer-regexp)
- (re-search-forward "^[ \t]*:END:[ \t]*$" limit t))))
- (forward-line))))))))
-
-(defun org-element-plain-list-parser (limit affiliated structure)
- "Parse a plain list.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value. STRUCTURE is the structure of the plain list being
-parsed.
-
-Return a list whose CAR is `plain-list' and CDR is a plist
-containing `:type', `:begin', `:end', `:contents-begin' and
-`:contents-end', `:structure', `:post-blank' and
-`:post-affiliated' keywords.
-
-Assume point is at the beginning of the list."
- (save-excursion
- (let* ((struct (or structure (org-element--list-struct limit)))
- (type (cond ((looking-at-p "[ \t]*[A-Za-z0-9]") 'ordered)
- ((nth 5 (assq (point) struct)) 'descriptive)
- (t 'unordered)))
- (contents-begin (point))
- (begin (car affiliated))
- (contents-end (let* ((item (assq contents-begin struct))
- (ind (nth 1 item))
- (pos (nth 6 item)))
- (while (and (setq item (assq pos struct))
- (= (nth 1 item) ind))
- (setq pos (nth 6 item)))
- pos))
- (end (progn (goto-char contents-end)
- (skip-chars-forward " \r\t\n" limit)
- (if (= (point) limit) limit (line-beginning-position)))))
- ;; Return value.
- (list 'plain-list
- (nconc
- (list :type type
- :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :structure struct
- :post-blank (count-lines contents-end end)
- :post-affiliated contents-begin)
- (cdr affiliated))))))
-
-(defun org-element-plain-list-interpreter (_ contents)
- "Interpret plain-list element as Org syntax.
-CONTENTS is the contents of the element."
- (with-temp-buffer
- (insert contents)
- (goto-char (point-min))
- (org-list-repair)
- (buffer-string)))
-
-
-;;;; Property Drawer
-
-(defun org-element-property-drawer-parser (limit)
- "Parse a property drawer.
-
-LIMIT bounds the search.
-
-Return a list whose car is `property-drawer' and cdr is a plist
-containing `:begin', `:end', `:contents-begin', `:contents-end',
-`:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at the beginning of the property drawer."
- (save-excursion
- (let ((case-fold-search t)
- (begin (point))
- (contents-begin (line-beginning-position 2)))
- (re-search-forward "^[ \t]*:END:[ \t]*$" limit t)
- (let ((contents-end (and (> (match-beginning 0) contents-begin)
- (match-beginning 0)))
- (before-blank (progn (forward-line) (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'property-drawer
- (list :begin begin
- :end end
- :contents-begin (and contents-end contents-begin)
- :contents-end contents-end
- :post-blank (count-lines before-blank end)
- :post-affiliated begin))))))
-
-(defun org-element-property-drawer-interpreter (_ contents)
- "Interpret property-drawer element as Org syntax.
-CONTENTS is the properties within the drawer."
- (format ":PROPERTIES:\n%s:END:" contents))
-
-
-;;;; Quote Block
-
-(defun org-element-quote-block-parser (limit affiliated)
- "Parse a quote block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `quote-block' and CDR is a plist
-containing `:begin', `:end', `:contents-begin', `:contents-end',
-`:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at the beginning of the block."
- (let ((case-fold-search t))
- (if (not (save-excursion
- (re-search-forward "^[ \t]*#\\+END_QUOTE[ \t]*$" limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((block-end-line (match-beginning 0)))
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- ;; Empty blocks have no contents.
- (contents-begin (progn (forward-line)
- (and (< (point) block-end-line)
- (point))))
- (contents-end (and contents-begin block-end-line))
- (pos-before-blank (progn (goto-char block-end-line)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'quote-block
- (nconc
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated)))))))))
-
-(defun org-element-quote-block-interpreter (_ contents)
- "Interpret quote-block element as Org syntax.
-CONTENTS is the contents of the element."
- (format "#+BEGIN_QUOTE\n%s#+END_QUOTE" contents))
-
-
-;;;; Section
-
-(defun org-element-section-parser (_)
- "Parse a section.
-
-Return a list whose CAR is `section' and CDR is a plist
-containing `:begin', `:end', `:contents-begin', `contents-end',
-`:post-blank' and `:post-affiliated' keywords."
- (save-excursion
- ;; Beginning of section is the beginning of the first non-blank
- ;; line after previous headline.
- (let ((begin (point))
- (end (progn (org-with-limited-levels (outline-next-heading))
- (point)))
- (pos-before-blank (progn (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))))
- (list 'section
- (list :begin begin
- :end end
- :contents-begin begin
- :contents-end pos-before-blank
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated begin)))))
-
-(defun org-element-section-interpreter (_ contents)
- "Interpret section element as Org syntax.
-CONTENTS is the contents of the element."
- contents)
-
-
-;;;; Special Block
-
-(defun org-element-special-block-parser (limit affiliated)
- "Parse a special block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `special-block' and CDR is a plist
-containing `:type', `:begin', `:end', `:contents-begin',
-`:contents-end', `:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at the beginning of the block."
- (let* ((case-fold-search t)
- (type (progn (looking-at "[ \t]*#\\+BEGIN_\\(\\S-+\\)")
- (match-string-no-properties 1))))
- (if (not (save-excursion
- (re-search-forward
- (format "^[ \t]*#\\+END_%s[ \t]*$" (regexp-quote type))
- limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((block-end-line (match-beginning 0)))
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- ;; Empty blocks have no contents.
- (contents-begin (progn (forward-line)
- (and (< (point) block-end-line)
- (point))))
- (contents-end (and contents-begin block-end-line))
- (pos-before-blank (progn (goto-char block-end-line)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'special-block
- (nconc
- (list :type type
- :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated)))))))))
-
-(defun org-element-special-block-interpreter (special-block contents)
- "Interpret SPECIAL-BLOCK element as Org syntax.
-CONTENTS is the contents of the element."
- (let ((block-type (org-element-property :type special-block)))
- (format "#+BEGIN_%s\n%s#+END_%s" block-type contents block-type)))
-
-
-
-;;; Elements
-;;
-;; For each element, a parser and an interpreter are also defined.
-;; Both follow the same naming convention used for greater elements.
-;;
-;; Also, as for greater elements, adding a new element type is done
-;; through the following steps: implement a parser and an interpreter,
-;; tweak `org-element--current-element' so that it recognizes the new
-;; type and add that new type to `org-element-all-elements'.
-
-
-;;;; Babel Call
-
-(defun org-element-babel-call-parser (limit affiliated)
- "Parse a babel call.
-
-LIMIT bounds the search. AFFILIATED is a list of which car is
-the buffer position at the beginning of the first affiliated
-keyword and cdr is a plist of affiliated keywords along with
-their value.
-
-Return a list whose car is `babel-call' and cdr is a plist
-containing `:call', `:inside-header', `:arguments',
-`:end-header', `:begin', `:end', `:value', `:post-blank' and
-`:post-affiliated' as keywords."
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- (before-blank (line-beginning-position 2))
- (value (progn (search-forward ":" before-blank t)
- (skip-chars-forward " \t")
- (org-trim
- (buffer-substring-no-properties
- (point) (line-end-position)))))
- (call
- (or (org-string-nw-p
- (buffer-substring-no-properties
- (point) (progn (skip-chars-forward "^[]()" before-blank)
- (point))))))
- (inside-header (org-element--parse-paired-brackets ?\[))
- (arguments (org-string-nw-p
- (org-element--parse-paired-brackets ?\()))
- (end-header
- (org-string-nw-p
- (org-trim
- (buffer-substring-no-properties (point) (line-end-position)))))
- (end (progn (forward-line)
- (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'babel-call
- (nconc
- (list :call call
- :inside-header inside-header
- :arguments arguments
- :end-header end-header
- :begin begin
- :end end
- :value value
- :post-blank (count-lines before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))
-
-(defun org-element-babel-call-interpreter (babel-call _)
- "Interpret BABEL-CALL element as Org syntax."
- (concat "#+CALL: "
- (org-element-property :call babel-call)
- (let ((h (org-element-property :inside-header babel-call)))
- (and h (format "[%s]" h)))
- (concat "(" (org-element-property :arguments babel-call) ")")
- (let ((h (org-element-property :end-header babel-call)))
- (and h (concat " " h)))))
-
-
-;;;; Clock
-
-(defun org-element-clock-parser (limit)
- "Parse a clock.
-
-LIMIT bounds the search.
-
-Return a list whose CAR is `clock' and CDR is a plist containing
-`:status', `:value', `:time', `:begin', `:end', `:post-blank' and
-`:post-affiliated' as keywords."
- (save-excursion
- (let* ((case-fold-search nil)
- (begin (point))
- (value (progn (search-forward org-clock-string (line-end-position) t)
- (skip-chars-forward " \t")
- (org-element-timestamp-parser)))
- (duration (and (search-forward " => " (line-end-position) t)
- (progn (skip-chars-forward " \t")
- (looking-at "\\(\\S-+\\)[ \t]*$"))
- (match-string-no-properties 1)))
- (status (if duration 'closed 'running))
- (post-blank (let ((before-blank (progn (forward-line) (point))))
- (skip-chars-forward " \r\t\n" limit)
- (skip-chars-backward " \t")
- (unless (bolp) (end-of-line))
- (count-lines before-blank (point))))
- (end (point)))
- (list 'clock
- (list :status status
- :value value
- :duration duration
- :begin begin
- :end end
- :post-blank post-blank
- :post-affiliated begin)))))
-
-(defun org-element-clock-interpreter (clock _)
- "Interpret CLOCK element as Org syntax."
- (concat org-clock-string " "
- (org-element-timestamp-interpreter
- (org-element-property :value clock) nil)
- (let ((duration (org-element-property :duration clock)))
- (and duration
- (concat " => "
- (apply 'format
- "%2s:%02s"
- (org-split-string duration ":")))))))
-
-
-;;;; Comment
-
-(defun org-element-comment-parser (limit affiliated)
- "Parse a comment.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `comment' and CDR is a plist
-containing `:begin', `:end', `:value', `:post-blank',
-`:post-affiliated' keywords.
-
-Assume point is at comment beginning."
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- (value (prog2 (looking-at "[ \t]*# ?")
- (buffer-substring-no-properties
- (match-end 0) (line-end-position))
- (forward-line)))
- (com-end
- ;; Get comments ending.
- (progn
- (while (and (< (point) limit) (looking-at "[ \t]*#\\( \\|$\\)"))
- ;; Accumulate lines without leading hash and first
- ;; whitespace.
- (setq value
- (concat value
- "\n"
- (buffer-substring-no-properties
- (match-end 0) (line-end-position))))
- (forward-line))
- (point)))
- (end (progn (goto-char com-end)
- (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'comment
- (nconc
- (list :begin begin
- :end end
- :value value
- :post-blank (count-lines com-end end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))
-
-(defun org-element-comment-interpreter (comment _)
- "Interpret COMMENT element as Org syntax.
-CONTENTS is nil."
- (replace-regexp-in-string "^" "# " (org-element-property :value comment)))
-
-
-;;;; Comment Block
-
-(defun org-element-comment-block-parser (limit affiliated)
- "Parse an export block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `comment-block' and CDR is a plist
-containing `:begin', `:end', `:value', `:post-blank' and
-`:post-affiliated' keywords.
-
-Assume point is at comment block beginning."
- (let ((case-fold-search t))
- (if (not (save-excursion
- (re-search-forward "^[ \t]*#\\+END_COMMENT[ \t]*$" limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((contents-end (match-beginning 0)))
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- (contents-begin (progn (forward-line) (point)))
- (pos-before-blank (progn (goto-char contents-end)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position))))
- (value (buffer-substring-no-properties
- contents-begin contents-end)))
- (list 'comment-block
- (nconc
- (list :begin begin
- :end end
- :value value
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated)))))))))
-
-(defun org-element-comment-block-interpreter (comment-block _)
- "Interpret COMMENT-BLOCK element as Org syntax."
- (format "#+BEGIN_COMMENT\n%s#+END_COMMENT"
- (org-element-normalize-string
- (org-remove-indentation
- (org-element-property :value comment-block)))))
-
-
-;;;; Diary Sexp
-
-(defun org-element-diary-sexp-parser (limit affiliated)
- "Parse a diary sexp.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `diary-sexp' and CDR is a plist
-containing `:begin', `:end', `:value', `:post-blank' and
-`:post-affiliated' keywords."
- (save-excursion
- (let ((begin (car affiliated))
- (post-affiliated (point))
- (value (progn (looking-at "\\(%%(.*\\)[ \t]*$")
- (match-string-no-properties 1)))
- (pos-before-blank (progn (forward-line) (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'diary-sexp
- (nconc
- (list :value value
- :begin begin
- :end end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))
-
-(defun org-element-diary-sexp-interpreter (diary-sexp _)
- "Interpret DIARY-SEXP as Org syntax."
- (org-element-property :value diary-sexp))
-
-
-;;;; Example Block
-
-(defun org-element-example-block-parser (limit affiliated)
- "Parse an example block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `example-block' and CDR is a plist
-containing `:begin', `:end', `:number-lines', `:preserve-indent',
-`:retain-labels', `:use-labels', `:label-fmt', `:switches',
-`:value', `:post-blank' and `:post-affiliated' keywords."
- (let ((case-fold-search t))
- (if (not (save-excursion
- (re-search-forward "^[ \t]*#\\+END_EXAMPLE[ \t]*$" limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((contents-end (match-beginning 0)))
- (save-excursion
- (let* ((switches
- (progn
- (looking-at "^[ \t]*#\\+BEGIN_EXAMPLE\\(?: +\\(.*\\)\\)?")
- (match-string-no-properties 1)))
- ;; Switches analysis.
- (number-lines
- (and switches
- (string-match "\\([-+]\\)n\\(?: *\\([0-9]+\\)\\)?\\>"
- switches)
- (cons
- (if (equal (match-string 1 switches) "-")
- 'new
- 'continued)
- (if (not (match-end 2)) 0
- ;; Subtract 1 to give number of lines before
- ;; first line.
- (1- (string-to-number (match-string 2 switches)))))))
- (preserve-indent
- (and switches (string-match "-i\\>" switches)))
- ;; Should labels be retained in (or stripped from) example
- ;; blocks?
- (retain-labels
- (or (not switches)
- (not (string-match "-r\\>" switches))
- (and number-lines (string-match "-k\\>" switches))))
- ;; What should code-references use - labels or
- ;; line-numbers?
- (use-labels
- (or (not switches)
- (and retain-labels
- (not (string-match "-k\\>" switches)))))
- (label-fmt
- (and switches
- (string-match "-l +\"\\([^\"\n]+\\)\"" switches)
- (match-string 1 switches)))
- ;; Standard block parsing.
- (begin (car affiliated))
- (post-affiliated (point))
- (contents-begin (line-beginning-position 2))
- (value (org-unescape-code-in-string
- (buffer-substring-no-properties
- contents-begin contents-end)))
- (pos-before-blank (progn (goto-char contents-end)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'example-block
- (nconc
- (list :begin begin
- :end end
- :value value
- :switches switches
- :number-lines number-lines
- :preserve-indent preserve-indent
- :retain-labels retain-labels
- :use-labels use-labels
- :label-fmt label-fmt
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated)))))))))
-
-(defun org-element-example-block-interpreter (example-block _)
- "Interpret EXAMPLE-BLOCK element as Org syntax."
- (let ((switches (org-element-property :switches example-block))
- (value (org-element-property :value example-block)))
- (concat "#+BEGIN_EXAMPLE" (and switches (concat " " switches)) "\n"
- (org-element-normalize-string
- (org-escape-code-in-string
- (if (or org-src-preserve-indentation
- (org-element-property :preserve-indent example-block))
- value
- (org-remove-indentation value))))
- "#+END_EXAMPLE")))
-
-
-;;;; Export Block
-
-(defun org-element-export-block-parser (limit affiliated)
- "Parse an export block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `export-block' and CDR is a plist
-containing `:begin', `:end', `:type', `:value', `:post-blank' and
-`:post-affiliated' keywords.
-
-Assume point is at export-block beginning."
- (let* ((case-fold-search t))
- (if (not (save-excursion
- (re-search-forward "^[ \t]*#\\+END_EXPORT[ \t]*$" limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (save-excursion
- (let* ((contents-end (match-beginning 0))
- (backend
- (progn
- (looking-at
- "[ \t]*#\\+BEGIN_EXPORT\\(?:[ \t]+\\(\\S-+\\)\\)?[ \t]*$")
- (match-string-no-properties 1)))
- (begin (car affiliated))
- (post-affiliated (point))
- (contents-begin (progn (forward-line) (point)))
- (pos-before-blank (progn (goto-char contents-end)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position))))
- (value (org-unescape-code-in-string
- (buffer-substring-no-properties contents-begin
- contents-end))))
- (list 'export-block
- (nconc
- (list :type (and backend (upcase backend))
- :begin begin
- :end end
- :value value
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))))
-
-(defun org-element-export-block-interpreter (export-block _)
- "Interpret EXPORT-BLOCK element as Org syntax."
- (format "#+BEGIN_EXPORT %s\n%s#+END_EXPORT"
- (org-element-property :type export-block)
- (org-element-property :value export-block)))
-
-
-;;;; Fixed-width
-
-(defun org-element-fixed-width-parser (limit affiliated)
- "Parse a fixed-width section.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `fixed-width' and CDR is a plist
-containing `:begin', `:end', `:value', `:post-blank' and
-`:post-affiliated' keywords.
-
-Assume point is at the beginning of the fixed-width area."
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- value
- (end-area
- (progn
- (while (and (< (point) limit)
- (looking-at "[ \t]*:\\( \\|$\\)"))
- ;; Accumulate text without starting colons.
- (setq value
- (concat value
- (buffer-substring-no-properties
- (match-end 0) (point-at-eol))
- "\n"))
- (forward-line))
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'fixed-width
- (nconc
- (list :begin begin
- :end end
- :value value
- :post-blank (count-lines end-area end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))
-
-(defun org-element-fixed-width-interpreter (fixed-width _)
- "Interpret FIXED-WIDTH element as Org syntax."
- (let ((value (org-element-property :value fixed-width)))
- (and value
- (replace-regexp-in-string
- "^" ": "
- (if (string-match "\n\\'" value) (substring value 0 -1) value)))))
-
-
-;;;; Horizontal Rule
-
-(defun org-element-horizontal-rule-parser (limit affiliated)
- "Parse an horizontal rule.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `horizontal-rule' and CDR is a plist
-containing `:begin', `:end', `:post-blank' and `:post-affiliated'
-keywords."
- (save-excursion
- (let ((begin (car affiliated))
- (post-affiliated (point))
- (post-hr (progn (forward-line) (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'horizontal-rule
- (nconc
- (list :begin begin
- :end end
- :post-blank (count-lines post-hr end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))
-
-(defun org-element-horizontal-rule-interpreter (&rest _)
- "Interpret HORIZONTAL-RULE element as Org syntax."
- "-----")
-
-
-;;;; Keyword
-
-(defun org-element-keyword-parser (limit affiliated)
- "Parse a keyword at point.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `keyword' and CDR is a plist
-containing `:key', `:value', `:begin', `:end', `:post-blank' and
-`:post-affiliated' keywords."
- (save-excursion
- ;; An orphaned affiliated keyword is considered as a regular
- ;; keyword. In this case AFFILIATED is nil, so we take care of
- ;; this corner case.
- (let ((begin (or (car affiliated) (point)))
- (post-affiliated (point))
- (key (progn (looking-at "[ \t]*#\\+\\(\\S-+*\\):")
- (upcase (match-string-no-properties 1))))
- (value (org-trim (buffer-substring-no-properties
- (match-end 0) (point-at-eol))))
- (pos-before-blank (progn (forward-line) (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'keyword
- (nconc
- (list :key key
- :value value
- :begin begin
- :end end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated))))))
-
-(defun org-element-keyword-interpreter (keyword _)
- "Interpret KEYWORD element as Org syntax."
- (format "#+%s: %s"
- (org-element-property :key keyword)
- (org-element-property :value keyword)))
-
-
-;;;; Latex Environment
-
-(defconst org-element--latex-begin-environment
- "^[ \t]*\\\\begin{\\([A-Za-z0-9*]+\\)}"
- "Regexp matching the beginning of a LaTeX environment.
-The environment is captured by the first group.
-
-See also `org-element--latex-end-environment'.")
-
-(defconst org-element--latex-end-environment
- "\\\\end{%s}[ \t]*$"
- "Format string matching the ending of a LaTeX environment.
-See also `org-element--latex-begin-environment'.")
-
-(defun org-element-latex-environment-parser (limit affiliated)
- "Parse a LaTeX environment.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `latex-environment' and CDR is a plist
-containing `:begin', `:end', `:value', `:post-blank' and
-`:post-affiliated' keywords.
-
-Assume point is at the beginning of the latex environment."
- (save-excursion
- (let ((case-fold-search t)
- (code-begin (point)))
- (looking-at org-element--latex-begin-environment)
- (if (not (re-search-forward (format org-element--latex-end-environment
- (regexp-quote (match-string 1)))
- limit t))
- ;; Incomplete latex environment: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let* ((code-end (progn (forward-line) (point)))
- (begin (car affiliated))
- (value (buffer-substring-no-properties code-begin code-end))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'latex-environment
- (nconc
- (list :begin begin
- :end end
- :value value
- :post-blank (count-lines code-end end)
- :post-affiliated code-begin)
- (cdr affiliated))))))))
-
-(defun org-element-latex-environment-interpreter (latex-environment _)
- "Interpret LATEX-ENVIRONMENT element as Org syntax."
- (org-element-property :value latex-environment))
-
-
-;;;; Node Property
-
-(defun org-element-node-property-parser (limit)
- "Parse a node-property at point.
-
-LIMIT bounds the search.
-
-Return a list whose CAR is `node-property' and CDR is a plist
-containing `:key', `:value', `:begin', `:end', `:post-blank' and
-`:post-affiliated' keywords."
- (looking-at org-property-re)
- (let ((case-fold-search t)
- (begin (point))
- (key (match-string-no-properties 2))
- (value (match-string-no-properties 3))
- (end (save-excursion
- (end-of-line)
- (if (re-search-forward org-property-re limit t)
- (line-beginning-position)
- limit))))
- (list 'node-property
- (list :key key
- :value value
- :begin begin
- :end end
- :post-blank 0
- :post-affiliated begin))))
-
-(defun org-element-node-property-interpreter (node-property _)
- "Interpret NODE-PROPERTY element as Org syntax."
- (format org-property-format
- (format ":%s:" (org-element-property :key node-property))
- (or (org-element-property :value node-property) "")))
-
-
-;;;; Paragraph
-
-(defun org-element-paragraph-parser (limit affiliated)
- "Parse a paragraph.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `paragraph' and CDR is a plist
-containing `:begin', `:end', `:contents-begin' and
-`:contents-end', `:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at the beginning of the paragraph."
- (save-excursion
- (let* ((begin (car affiliated))
- (contents-begin (point))
- (before-blank
- (let ((case-fold-search t))
- (end-of-line)
- ;; A matching `org-element-paragraph-separate' is not
- ;; necessarily the end of the paragraph. In particular,
- ;; drawers, blocks or LaTeX environments opening lines
- ;; must be closed. Moreover keywords with a secondary
- ;; value must belong to "dual keywords".
- (while (not
- (cond
- ((not (and (re-search-forward
- org-element-paragraph-separate limit 'move)
- (progn (beginning-of-line) t))))
- ((looking-at org-drawer-regexp)
- (save-excursion
- (re-search-forward "^[ \t]*:END:[ \t]*$" limit t)))
- ((looking-at "[ \t]*#\\+BEGIN_\\(\\S-+\\)")
- (save-excursion
- (re-search-forward
- (format "^[ \t]*#\\+END_%s[ \t]*$"
- (regexp-quote (match-string 1)))
- limit t)))
- ((looking-at org-element--latex-begin-environment)
- (save-excursion
- (re-search-forward
- (format org-element--latex-end-environment
- (regexp-quote (match-string 1)))
- limit t)))
- ((looking-at "[ \t]*#\\+\\(\\S-+\\)\\[.*\\]:")
- (member-ignore-case (match-string 1)
- org-element-dual-keywords))
- ;; Everything else is unambiguous.
- (t)))
- (end-of-line))
- (if (= (point) limit) limit
- (goto-char (line-beginning-position)))))
- (contents-end (save-excursion
- (skip-chars-backward " \r\t\n" contents-begin)
- (line-beginning-position 2)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'paragraph
- (nconc
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank (count-lines before-blank end)
- :post-affiliated contents-begin)
- (cdr affiliated))))))
-
-(defun org-element-paragraph-interpreter (_ contents)
- "Interpret paragraph element as Org syntax.
-CONTENTS is the contents of the element."
- contents)
-
-
-;;;; Planning
-
-(defun org-element-planning-parser (limit)
- "Parse a planning.
-
-LIMIT bounds the search.
-
-Return a list whose CAR is `planning' and CDR is a plist
-containing `:closed', `:deadline', `:scheduled', `:begin',
-`:end', `:post-blank' and `:post-affiliated' keywords."
- (save-excursion
- (let* ((case-fold-search nil)
- (begin (point))
- (post-blank (let ((before-blank (progn (forward-line) (point))))
- (skip-chars-forward " \r\t\n" limit)
- (skip-chars-backward " \t")
- (unless (bolp) (end-of-line))
- (count-lines before-blank (point))))
- (end (point))
- closed deadline scheduled)
- (goto-char begin)
- (while (re-search-forward org-keyword-time-not-clock-regexp end t)
- (goto-char (match-end 1))
- (skip-chars-forward " \t" end)
- (let ((keyword (match-string 1))
- (time (org-element-timestamp-parser)))
- (cond ((equal keyword org-closed-string) (setq closed time))
- ((equal keyword org-deadline-string) (setq deadline time))
- (t (setq scheduled time)))))
- (list 'planning
- (list :closed closed
- :deadline deadline
- :scheduled scheduled
- :begin begin
- :end end
- :post-blank post-blank
- :post-affiliated begin)))))
-
-(defun org-element-planning-interpreter (planning _)
- "Interpret PLANNING element as Org syntax."
- (mapconcat
- #'identity
- (delq nil
- (list (let ((deadline (org-element-property :deadline planning)))
- (when deadline
- (concat org-deadline-string " "
- (org-element-timestamp-interpreter deadline nil))))
- (let ((scheduled (org-element-property :scheduled planning)))
- (when scheduled
- (concat org-scheduled-string " "
- (org-element-timestamp-interpreter scheduled nil))))
- (let ((closed (org-element-property :closed planning)))
- (when closed
- (concat org-closed-string " "
- (org-element-timestamp-interpreter closed nil))))))
- " "))
-
-
-;;;; Src Block
-
-(defun org-element-src-block-parser (limit affiliated)
- "Parse a src block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `src-block' and CDR is a plist
-containing `:language', `:switches', `:parameters', `:begin',
-`:end', `:number-lines', `:retain-labels', `:use-labels',
-`:label-fmt', `:preserve-indent', `:value', `:post-blank' and
-`:post-affiliated' keywords.
-
-Assume point is at the beginning of the block."
- (let ((case-fold-search t))
- (if (not (save-excursion (re-search-forward "^[ \t]*#\\+END_SRC[ \t]*$"
- limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((contents-end (match-beginning 0)))
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- ;; Get language as a string.
- (language
- (progn
- (looking-at
- "^[ \t]*#\\+BEGIN_SRC\
-\\(?: +\\(\\S-+\\)\\)?\
-\\(\\(?: +\\(?:-\\(?:l \".+\"\\|[ikr]\\)\\|[-+]n\\(?: *[0-9]+\\)?\\)\\)+\\)?\
-\\(.*\\)[ \t]*$")
- (match-string-no-properties 1)))
- ;; Get switches.
- (switches (match-string-no-properties 2))
- ;; Get parameters.
- (parameters (match-string-no-properties 3))
- ;; Switches analysis.
- (number-lines
- (and switches
- (string-match "\\([-+]\\)n\\(?: *\\([0-9]+\\)\\)?\\>"
- switches)
- (cons
- (if (equal (match-string 1 switches) "-")
- 'new
- 'continued)
- (if (not (match-end 2)) 0
- ;; Subtract 1 to give number of lines before
- ;; first line.
- (1- (string-to-number (match-string 2 switches)))))))
- (preserve-indent (and switches
- (string-match "-i\\>" switches)))
- (label-fmt
- (and switches
- (string-match "-l +\"\\([^\"\n]+\\)\"" switches)
- (match-string 1 switches)))
- ;; Should labels be retained in (or stripped from)
- ;; src blocks?
- (retain-labels
- (or (not switches)
- (not (string-match "-r\\>" switches))
- (and number-lines (string-match "-k\\>" switches))))
- ;; What should code-references use - labels or
- ;; line-numbers?
- (use-labels
- (or (not switches)
- (and retain-labels
- (not (string-match "-k\\>" switches)))))
- ;; Retrieve code.
- (value (org-unescape-code-in-string
- (buffer-substring-no-properties
- (line-beginning-position 2) contents-end)))
- (pos-before-blank (progn (goto-char contents-end)
- (forward-line)
- (point)))
- ;; Get position after ending blank lines.
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'src-block
- (nconc
- (list :language language
- :switches (and (org-string-nw-p switches)
- (org-trim switches))
- :parameters (and (org-string-nw-p parameters)
- (org-trim parameters))
- :begin begin
- :end end
- :number-lines number-lines
- :preserve-indent preserve-indent
- :retain-labels retain-labels
- :use-labels use-labels
- :label-fmt label-fmt
- :value value
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated)))))))))
-
-(defun org-element-src-block-interpreter (src-block _)
- "Interpret SRC-BLOCK element as Org syntax."
- (let ((lang (org-element-property :language src-block))
- (switches (org-element-property :switches src-block))
- (params (org-element-property :parameters src-block))
- (value
- (let ((val (org-element-property :value src-block)))
- (cond
- ((or org-src-preserve-indentation
- (org-element-property :preserve-indent src-block))
- val)
- ((zerop org-edit-src-content-indentation)
- (org-remove-indentation val))
- (t
- (let ((ind (make-string org-edit-src-content-indentation ?\s)))
- (replace-regexp-in-string
- "^" ind (org-remove-indentation val))))))))
- (concat (format "#+BEGIN_SRC%s\n"
- (concat (and lang (concat " " lang))
- (and switches (concat " " switches))
- (and params (concat " " params))))
- (org-element-normalize-string (org-escape-code-in-string value))
- "#+END_SRC")))
-
-
-;;;; Table
-
-(defun org-element-table-parser (limit affiliated)
- "Parse a table at point.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `table' and CDR is a plist containing
-`:begin', `:end', `:tblfm', `:type', `:contents-begin',
-`:contents-end', `:value', `:post-blank' and `:post-affiliated'
-keywords.
-
-Assume point is at the beginning of the table."
- (save-excursion
- (let* ((case-fold-search t)
- (table-begin (point))
- (type (if (looking-at "[ \t]*|") 'org 'table.el))
- (end-re (format "^[ \t]*\\($\\|[^| \t%s]\\)"
- (if (eq type 'org) "" "+")))
- (begin (car affiliated))
- (table-end
- (if (re-search-forward end-re limit 'move)
- (goto-char (match-beginning 0))
- (point)))
- (tblfm (let (acc)
- (while (looking-at "[ \t]*#\\+TBLFM: +\\(.*\\)[ \t]*$")
- (push (match-string-no-properties 1) acc)
- (forward-line))
- acc))
- (pos-before-blank (point))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'table
- (nconc
- (list :begin begin
- :end end
- :type type
- :tblfm tblfm
- ;; Only `org' tables have contents. `table.el' tables
- ;; use a `:value' property to store raw table as
- ;; a string.
- :contents-begin (and (eq type 'org) table-begin)
- :contents-end (and (eq type 'org) table-end)
- :value (and (eq type 'table.el)
- (buffer-substring-no-properties
- table-begin table-end))
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated table-begin)
- (cdr affiliated))))))
-
-(defun org-element-table-interpreter (table contents)
- "Interpret TABLE element as Org syntax.
-CONTENTS is a string, if table's type is `org', or nil."
- (if (eq (org-element-property :type table) 'table.el)
- (org-remove-indentation (org-element-property :value table))
- (concat (with-temp-buffer (insert contents)
- (org-table-align)
- (buffer-string))
- (mapconcat (lambda (fm) (concat "#+TBLFM: " fm))
- (reverse (org-element-property :tblfm table))
- "\n"))))
-
-
-;;;; Table Row
-
-(defun org-element-table-row-parser (_)
- "Parse table row at point.
-
-Return a list whose CAR is `table-row' and CDR is a plist
-containing `:begin', `:end', `:contents-begin', `:contents-end',
-`:type', `:post-blank' and `:post-affiliated' keywords."
- (save-excursion
- (let* ((type (if (looking-at "^[ \t]*|-") 'rule 'standard))
- (begin (point))
- ;; A table rule has no contents. In that case, ensure
- ;; CONTENTS-BEGIN matches CONTENTS-END.
- (contents-begin (and (eq type 'standard) (search-forward "|")))
- (contents-end (and (eq type 'standard)
- (progn
- (end-of-line)
- (skip-chars-backward " \t")
- (point))))
- (end (line-beginning-position 2)))
- (list 'table-row
- (list :type type
- :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank 0
- :post-affiliated begin)))))
-
-(defun org-element-table-row-interpreter (table-row contents)
- "Interpret TABLE-ROW element as Org syntax.
-CONTENTS is the contents of the table row."
- (if (eq (org-element-property :type table-row) 'rule) "|-"
- (concat "|" contents)))
-
-
-;;;; Verse Block
-
-(defun org-element-verse-block-parser (limit affiliated)
- "Parse a verse block.
-
-LIMIT bounds the search. AFFILIATED is a list of which CAR is
-the buffer position at the beginning of the first affiliated
-keyword and CDR is a plist of affiliated keywords along with
-their value.
-
-Return a list whose CAR is `verse-block' and CDR is a plist
-containing `:begin', `:end', `:contents-begin', `:contents-end',
-`:post-blank' and `:post-affiliated' keywords.
-
-Assume point is at beginning of the block."
- (let ((case-fold-search t))
- (if (not (save-excursion
- (re-search-forward "^[ \t]*#\\+END_VERSE[ \t]*$" limit t)))
- ;; Incomplete block: parse it as a paragraph.
- (org-element-paragraph-parser limit affiliated)
- (let ((contents-end (match-beginning 0)))
- (save-excursion
- (let* ((begin (car affiliated))
- (post-affiliated (point))
- (contents-begin (progn (forward-line) (point)))
- (pos-before-blank (progn (goto-char contents-end)
- (forward-line)
- (point)))
- (end (progn (skip-chars-forward " \r\t\n" limit)
- (if (eobp) (point) (line-beginning-position)))))
- (list 'verse-block
- (nconc
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank (count-lines pos-before-blank end)
- :post-affiliated post-affiliated)
- (cdr affiliated)))))))))
-
-(defun org-element-verse-block-interpreter (_ contents)
- "Interpret verse-block element as Org syntax.
-CONTENTS is verse block contents."
- (format "#+BEGIN_VERSE\n%s#+END_VERSE" contents))
-
-
-
-;;; Objects
-;;
-;; Unlike to elements, raw text can be found between objects. Hence,
-;; `org-element--object-lex' is provided to find the next object in
-;; buffer.
-;;
-;; Some object types (e.g., `italic') are recursive. Restrictions on
-;; object types they can contain will be specified in
-;; `org-element-object-restrictions'.
-;;
-;; Creating a new type of object requires to alter
-;; `org-element--object-regexp' and `org-element--object-lex', add the
-;; new type in `org-element-all-objects', and possibly add
-;; restrictions in `org-element-object-restrictions'.
-
-;;;; Bold
-
-(defun org-element-bold-parser ()
- "Parse bold object at point, if any.
-
-When at a bold object, return a list whose car is `bold' and cdr
-is a plist with `:begin', `:end', `:contents-begin' and
-`:contents-end' and `:post-blank' keywords. Otherwise, return
-nil.
-
-Assume point is at the first star marker."
- (save-excursion
- (unless (bolp) (backward-char 1))
- (when (looking-at org-emph-re)
- (let ((begin (match-beginning 2))
- (contents-begin (match-beginning 4))
- (contents-end (match-end 4))
- (post-blank (progn (goto-char (match-end 2))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'bold
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank))))))
-
-(defun org-element-bold-interpreter (_ contents)
- "Interpret bold object as Org syntax.
-CONTENTS is the contents of the object."
- (format "*%s*" contents))
-
-
-;;;; Code
-
-(defun org-element-code-parser ()
- "Parse code object at point, if any.
-
-When at a code object, return a list whose car is `code' and cdr
-is a plist with `:value', `:begin', `:end' and `:post-blank'
-keywords. Otherwise, return nil.
-
-Assume point is at the first tilde marker."
- (save-excursion
- (unless (bolp) (backward-char 1))
- (when (looking-at org-verbatim-re)
- (let ((begin (match-beginning 2))
- (value (match-string-no-properties 4))
- (post-blank (progn (goto-char (match-end 2))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'code
- (list :value value
- :begin begin
- :end end
- :post-blank post-blank))))))
-
-(defun org-element-code-interpreter (code _)
- "Interpret CODE object as Org syntax."
- (format "~%s~" (org-element-property :value code)))
-
-
-;;;; Entity
-
-(defun org-element-entity-parser ()
- "Parse entity at point, if any.
-
-When at an entity, return a list whose car is `entity' and cdr
-a plist with `:begin', `:end', `:latex', `:latex-math-p',
-`:html', `:latin1', `:utf-8', `:ascii', `:use-brackets-p' and
-`:post-blank' as keywords. Otherwise, return nil.
-
-Assume point is at the beginning of the entity."
- (catch 'no-object
- (when (looking-at "\\\\\\(?:\\(?1:_ +\\)\\|\\(?1:there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\(?2:$\\|{}\\|[^[:alpha:]]\\)\\)")
- (save-excursion
- (let* ((value (or (org-entity-get (match-string 1))
- (throw 'no-object nil)))
- (begin (match-beginning 0))
- (bracketsp (string= (match-string 2) "{}"))
- (post-blank (progn (goto-char (match-end 1))
- (when bracketsp (forward-char 2))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'entity
- (list :name (car value)
- :latex (nth 1 value)
- :latex-math-p (nth 2 value)
- :html (nth 3 value)
- :ascii (nth 4 value)
- :latin1 (nth 5 value)
- :utf-8 (nth 6 value)
- :begin begin
- :end end
- :use-brackets-p bracketsp
- :post-blank post-blank)))))))
-
-(defun org-element-entity-interpreter (entity _)
- "Interpret ENTITY object as Org syntax."
- (concat "\\"
- (org-element-property :name entity)
- (when (org-element-property :use-brackets-p entity) "{}")))
-
-
-;;;; Export Snippet
-
-(defun org-element-export-snippet-parser ()
- "Parse export snippet at point.
-
-When at an export snippet, return a list whose car is
-`export-snippet' and cdr a plist with `:begin', `:end',
-`:back-end', `:value' and `:post-blank' as keywords. Otherwise,
-return nil.
-
-Assume point is at the beginning of the snippet."
- (save-excursion
- (let (contents-end)
- (when (and (looking-at "@@\\([-A-Za-z0-9]+\\):")
- (setq contents-end
- (save-match-data (goto-char (match-end 0))
- (re-search-forward "@@" nil t)
- (match-beginning 0))))
- (let* ((begin (match-beginning 0))
- (back-end (match-string-no-properties 1))
- (value (buffer-substring-no-properties
- (match-end 0) contents-end))
- (post-blank (skip-chars-forward " \t"))
- (end (point)))
- (list 'export-snippet
- (list :back-end back-end
- :value value
- :begin begin
- :end end
- :post-blank post-blank)))))))
-
-(defun org-element-export-snippet-interpreter (export-snippet _)
- "Interpret EXPORT-SNIPPET object as Org syntax."
- (format "@@%s:%s@@"
- (org-element-property :back-end export-snippet)
- (org-element-property :value export-snippet)))
-
-
-;;;; Footnote Reference
-
-(defun org-element-footnote-reference-parser ()
- "Parse footnote reference at point, if any.
-
-When at a footnote reference, return a list whose car is
-`footnote-reference' and cdr a plist with `:label', `:type',
-`:begin', `:end', `:content-begin', `:contents-end' and
-`:post-blank' as keywords. Otherwise, return nil."
- (when (looking-at org-footnote-re)
- (let ((closing (with-syntax-table org-element--pair-square-table
- (ignore-errors (scan-lists (point) 1 0)))))
- (when closing
- (save-excursion
- (let* ((begin (point))
- (label (match-string-no-properties 1))
- (inner-begin (match-end 0))
- (inner-end (1- closing))
- (type (if (match-end 2) 'inline 'standard))
- (post-blank (progn (goto-char closing)
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'footnote-reference
- (list :label label
- :type type
- :begin begin
- :end end
- :contents-begin (and (eq type 'inline) inner-begin)
- :contents-end (and (eq type 'inline) inner-end)
- :post-blank post-blank))))))))
-
-(defun org-element-footnote-reference-interpreter (footnote-reference contents)
- "Interpret FOOTNOTE-REFERENCE object as Org syntax.
-CONTENTS is its definition, when inline, or nil."
- (format "[fn:%s%s]"
- (or (org-element-property :label footnote-reference) "")
- (if contents (concat ":" contents) "")))
-
-
-;;;; Inline Babel Call
-
-(defun org-element-inline-babel-call-parser ()
- "Parse inline babel call at point, if any.
-
-When at an inline babel call, return a list whose car is
-`inline-babel-call' and cdr a plist with `:call',
-`:inside-header', `:arguments', `:end-header', `:begin', `:end',
-`:value' and `:post-blank' as keywords. Otherwise, return nil.
-
-Assume point is at the beginning of the babel call."
- (save-excursion
- (catch :no-object
- (when (let ((case-fold-search nil))
- (looking-at "\\<call_\\([^ \t\n[(]+\\)[([]"))
- (goto-char (match-end 1))
- (let* ((begin (match-beginning 0))
- (call (match-string-no-properties 1))
- (inside-header
- (let ((p (org-element--parse-paired-brackets ?\[)))
- (and (org-string-nw-p p)
- (replace-regexp-in-string "\n[ \t]*" " " (org-trim p)))))
- (arguments (org-string-nw-p
- (or (org-element--parse-paired-brackets ?\()
- ;; Parenthesis are mandatory.
- (throw :no-object nil))))
- (end-header
- (let ((p (org-element--parse-paired-brackets ?\[)))
- (and (org-string-nw-p p)
- (replace-regexp-in-string "\n[ \t]*" " " (org-trim p)))))
- (value (buffer-substring-no-properties begin (point)))
- (post-blank (skip-chars-forward " \t"))
- (end (point)))
- (list 'inline-babel-call
- (list :call call
- :inside-header inside-header
- :arguments arguments
- :end-header end-header
- :begin begin
- :end end
- :value value
- :post-blank post-blank)))))))
-
-(defun org-element-inline-babel-call-interpreter (inline-babel-call _)
- "Interpret INLINE-BABEL-CALL object as Org syntax."
- (concat "call_"
- (org-element-property :call inline-babel-call)
- (let ((h (org-element-property :inside-header inline-babel-call)))
- (and h (format "[%s]" h)))
- "(" (org-element-property :arguments inline-babel-call) ")"
- (let ((h (org-element-property :end-header inline-babel-call)))
- (and h (format "[%s]" h)))))
-
-
-;;;; Inline Src Block
-
-(defun org-element-inline-src-block-parser ()
- "Parse inline source block at point, if any.
-
-When at an inline source block, return a list whose car is
-`inline-src-block' and cdr a plist with `:begin', `:end',
-`:language', `:value', `:parameters' and `:post-blank' as
-keywords. Otherwise, return nil.
-
-Assume point is at the beginning of the inline src block."
- (save-excursion
- (catch :no-object
- (when (let ((case-fold-search nil))
- (looking-at "\\<src_\\([^ \t\n[{]+\\)[{[]"))
- (goto-char (match-end 1))
- (let ((begin (match-beginning 0))
- (language (match-string-no-properties 1))
- (parameters
- (let ((p (org-element--parse-paired-brackets ?\[)))
- (and (org-string-nw-p p)
- (replace-regexp-in-string "\n[ \t]*" " " (org-trim p)))))
- (value (or (org-element--parse-paired-brackets ?\{)
- (throw :no-object nil)))
- (post-blank (skip-chars-forward " \t")))
- (list 'inline-src-block
- (list :language language
- :value value
- :parameters parameters
- :begin begin
- :end (point)
- :post-blank post-blank)))))))
-
-(defun org-element-inline-src-block-interpreter (inline-src-block _)
- "Interpret INLINE-SRC-BLOCK object as Org syntax."
- (let ((language (org-element-property :language inline-src-block))
- (arguments (org-element-property :parameters inline-src-block))
- (body (org-element-property :value inline-src-block)))
- (format "src_%s%s{%s}"
- language
- (if arguments (format "[%s]" arguments) "")
- body)))
-
-;;;; Italic
-
-(defun org-element-italic-parser ()
- "Parse italic object at point, if any.
-
-When at an italic object, return a list whose car is `italic' and
-cdr is a plist with `:begin', `:end', `:contents-begin' and
-`:contents-end' and `:post-blank' keywords. Otherwise, return
-nil.
-
-Assume point is at the first slash marker."
- (save-excursion
- (unless (bolp) (backward-char 1))
- (when (looking-at org-emph-re)
- (let ((begin (match-beginning 2))
- (contents-begin (match-beginning 4))
- (contents-end (match-end 4))
- (post-blank (progn (goto-char (match-end 2))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'italic
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank))))))
-
-(defun org-element-italic-interpreter (_ contents)
- "Interpret italic object as Org syntax.
-CONTENTS is the contents of the object."
- (format "/%s/" contents))
-
-
-;;;; Latex Fragment
-
-(defun org-element-latex-fragment-parser ()
- "Parse LaTeX fragment at point, if any.
-
-When at a LaTeX fragment, return a list whose car is
-`latex-fragment' and cdr a plist with `:value', `:begin', `:end',
-and `:post-blank' as keywords. Otherwise, return nil.
-
-Assume point is at the beginning of the LaTeX fragment."
- (catch 'no-object
- (save-excursion
- (let* ((begin (point))
- (after-fragment
- (cond
- ((not (eq ?$ (char-after)))
- (pcase (char-after (1+ (point)))
- (?\( (search-forward "\\)" nil t))
- (?\[ (search-forward "\\]" nil t))
- (_
- ;; Macro.
- (and (looking-at "\\\\[a-zA-Z]+\\*?\\(\\(\\[[^][\n{}]*\\]\\)\
-\\|\\({[^{}\n]*}\\)\\)*")
- (match-end 0)))))
- ((eq ?$ (char-after (1+ (point))))
- (search-forward "$$" nil t 2))
- (t
- (and (not (eq ?$ (char-before)))
- (not (memq (char-after (1+ (point)))
- '(?\s ?\t ?\n ?, ?. ?\;)))
- (search-forward "$" nil t 2)
- (not (memq (char-before (match-beginning 0))
- '(?\s ?\t ?\n ?, ?.)))
- (looking-at-p
- "\\(\\s.\\|\\s-\\|\\s(\\|\\s)\\|\\s\"\\|'\\|$\\)")
- (point)))))
- (post-blank
- (if (not after-fragment) (throw 'no-object nil)
- (goto-char after-fragment)
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'latex-fragment
- (list :value (buffer-substring-no-properties begin after-fragment)
- :begin begin
- :end end
- :post-blank post-blank))))))
-
-(defun org-element-latex-fragment-interpreter (latex-fragment _)
- "Interpret LATEX-FRAGMENT object as Org syntax."
- (org-element-property :value latex-fragment))
-
-;;;; Line Break
-
-(defun org-element-line-break-parser ()
- "Parse line break at point, if any.
-
-When at a line break, return a list whose car is `line-break',
-and cdr a plist with `:begin', `:end' and `:post-blank' keywords.
-Otherwise, return nil.
-
-Assume point is at the beginning of the line break."
- (when (and (looking-at-p "\\\\\\\\[ \t]*$")
- (not (eq (char-before) ?\\)))
- (list 'line-break
- (list :begin (point)
- :end (line-beginning-position 2)
- :post-blank 0))))
-
-(defun org-element-line-break-interpreter (&rest _)
- "Interpret LINE-BREAK object as Org syntax."
- "\\\\\n")
-
-
-;;;; Link
-
-(defun org-element-link-parser ()
- "Parse link at point, if any.
-
-When at a link, return a list whose car is `link' and cdr a plist
-with `:type', `:path', `:format', `:raw-link', `:application',
-`:search-option', `:begin', `:end', `:contents-begin',
-`:contents-end' and `:post-blank' as keywords. Otherwise, return
-nil.
-
-Assume point is at the beginning of the link."
- (catch 'no-object
- (let ((begin (point))
- end contents-begin contents-end link-end post-blank path type format
- raw-link search-option application)
- (cond
- ;; Type 1: Text targeted from a radio target.
- ((and org-target-link-regexp
- (save-excursion (or (bolp) (backward-char))
- (looking-at org-target-link-regexp)))
- (setq type "radio")
- (setq format 'plain)
- (setq link-end (match-end 1))
- (setq path (match-string-no-properties 1))
- (setq contents-begin (match-beginning 1))
- (setq contents-end (match-end 1)))
- ;; Type 2: Standard link, i.e. [[https://orgmode.org][homepage]]
- ((looking-at org-bracket-link-regexp)
- (setq format 'bracket)
- (setq contents-begin (match-beginning 3))
- (setq contents-end (match-end 3))
- (setq link-end (match-end 0))
- ;; RAW-LINK is the original link. Expand any
- ;; abbreviation in it.
- ;;
- ;; Also treat any newline character and associated
- ;; indentation as a single space character. This is not
- ;; compatible with RFC 3986, which requires to ignore
- ;; them altogether. However, doing so would require
- ;; users to encode spaces on the fly when writing links
- ;; (e.g., insert [[shell:ls%20*.org]] instead of
- ;; [[shell:ls *.org]], which defeats Org's focus on
- ;; simplicity.
- (setq raw-link (org-link-expand-abbrev
- (replace-regexp-in-string
- "[ \t]*\n[ \t]*" " "
- (match-string-no-properties 1))))
- ;; Determine TYPE of link and set PATH accordingly. According
- ;; to RFC 3986, remove whitespaces from URI in external links.
- ;; In internal ones, treat indentation as a single space.
- (cond
- ;; File type.
- ((or (file-name-absolute-p raw-link)
- (string-match "\\`\\.\\.?/" raw-link))
- (setq type "file")
- (setq path raw-link))
- ;; Explicit type (http, irc, bbdb...).
- ((string-match org-link-types-re raw-link)
- (setq type (match-string 1 raw-link))
- (setq path (substring raw-link (match-end 0))))
- ;; Code-ref type: PATH is the name of the reference.
- ((and (string-match-p "\\`(" raw-link)
- (string-match-p ")\\'" raw-link))
- (setq type "coderef")
- (setq path (substring raw-link 1 -1)))
- ;; Custom-id type: PATH is the name of the custom id.
- ((= (string-to-char raw-link) ?#)
- (setq type "custom-id")
- (setq path (substring raw-link 1)))
- ;; Fuzzy type: Internal link either matches a target, an
- ;; headline name or nothing. PATH is the target or
- ;; headline's name.
- (t
- (setq type "fuzzy")
- (setq path raw-link))))
- ;; Type 3: Plain link, e.g., https://orgmode.org
- ((looking-at org-plain-link-re)
- (setq format 'plain)
- (setq raw-link (match-string-no-properties 0))
- (setq type (match-string-no-properties 1))
- (setq link-end (match-end 0))
- (setq path (match-string-no-properties 2)))
- ;; Type 4: Angular link, e.g., <https://orgmode.org>. Unlike to
- ;; bracket links, follow RFC 3986 and remove any extra
- ;; whitespace in URI.
- ((looking-at org-angle-link-re)
- (setq format 'angle)
- (setq type (match-string-no-properties 1))
- (setq link-end (match-end 0))
- (setq raw-link
- (buffer-substring-no-properties
- (match-beginning 1) (match-end 2)))
- (setq path (replace-regexp-in-string
- "[ \t]*\n[ \t]*" "" (match-string-no-properties 2))))
- (t (throw 'no-object nil)))
- ;; In any case, deduce end point after trailing white space from
- ;; LINK-END variable.
- (save-excursion
- (setq post-blank
- (progn (goto-char link-end) (skip-chars-forward " \t")))
- (setq end (point)))
- ;; Special "file" type link processing. Extract opening
- ;; application and search option, if any. Also normalize URI.
- (when (string-match "\\`file\\(?:\\+\\(.+\\)\\)?\\'" type)
- (setq application (match-string 1 type) type "file")
- (when (string-match "::\\(.*\\)\\'" path)
- (setq search-option (match-string 1 path))
- (setq path (replace-match "" nil nil path)))
- (setq path (replace-regexp-in-string "\\`///*\\(.:\\)?/" "\\1/" path)))
- ;; Translate link, if `org-link-translation-function' is set.
- (let ((trans (and (functionp org-link-translation-function)
- (funcall org-link-translation-function type path))))
- (when trans
- (setq type (car trans))
- (setq path (cdr trans))))
- (list 'link
- (list :type type
- :path path
- :format format
- :raw-link (or raw-link path)
- :application application
- :search-option search-option
- :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank)))))
-
-(defun org-element-link-interpreter (link contents)
- "Interpret LINK object as Org syntax.
-CONTENTS is the contents of the object, or nil."
- (let ((type (org-element-property :type link))
- (path (org-element-property :path link)))
- (if (string= type "radio") path
- (let ((fmt (pcase (org-element-property :format link)
- ;; Links with contents and internal links have to
- ;; use bracket syntax. Ignore `:format' in these
- ;; cases. This is also the default syntax when the
- ;; property is not defined, e.g., when the object
- ;; was crafted by the user.
- ((guard contents)
- (format "[[%%s][%s]]"
- ;; Since this is going to be used as
- ;; a format string, escape percent signs
- ;; in description.
- (replace-regexp-in-string "%" "%%" contents)))
- ((or `bracket
- `nil
- (guard (member type '("coderef" "custom-id" "fuzzy"))))
- "[[%s]]")
- ;; Otherwise, just obey to `:format'.
- (`angle "<%s>")
- (`plain "%s")
- (f (error "Wrong `:format' value: %s" f)))))
- (format fmt
- (pcase type
- ("coderef" (format "(%s)" path))
- ("custom-id" (concat "#" path))
- ("file"
- (let ((app (org-element-property :application link))
- (opt (org-element-property :search-option link)))
- (concat type (and app (concat "+" app)) ":"
- path
- (and opt (concat "::" opt)))))
- ("fuzzy" path)
- (_ (concat type ":" path))))))))
-
-
-;;;; Macro
-
-(defun org-element-macro-parser ()
- "Parse macro at point, if any.
-
-When at a macro, return a list whose car is `macro' and cdr
-a plist with `:key', `:args', `:begin', `:end', `:value' and
-`:post-blank' as keywords. Otherwise, return nil.
-
-Assume point is at the macro."
- (save-excursion
- (when (looking-at "{{{\\([a-zA-Z][-a-zA-Z0-9_]*\\)\\(([ \t\n]*\\([^\000]*?\\))\\)?}}}")
- (let ((begin (point))
- (key (downcase (match-string-no-properties 1)))
- (value (match-string-no-properties 0))
- (post-blank (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")))
- (end (point))
- (args (let ((args (match-string-no-properties 3)))
- (and args (org-macro-extract-arguments args)))))
- (list 'macro
- (list :key key
- :value value
- :args args
- :begin begin
- :end end
- :post-blank post-blank))))))
-
-(defun org-element-macro-interpreter (macro _)
- "Interpret MACRO object as Org syntax."
- (org-element-property :value macro))
-
-
-;;;; Radio-target
-
-(defun org-element-radio-target-parser ()
- "Parse radio target at point, if any.
-
-When at a radio target, return a list whose car is `radio-target'
-and cdr a plist with `:begin', `:end', `:contents-begin',
-`:contents-end', `:value' and `:post-blank' as keywords.
-Otherwise, return nil.
-
-Assume point is at the radio target."
- (save-excursion
- (when (looking-at org-radio-target-regexp)
- (let ((begin (point))
- (contents-begin (match-beginning 1))
- (contents-end (match-end 1))
- (value (match-string-no-properties 1))
- (post-blank (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'radio-target
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank
- :value value))))))
-
-(defun org-element-radio-target-interpreter (_ contents)
- "Interpret target object as Org syntax.
-CONTENTS is the contents of the object."
- (concat "<<<" contents ">>>"))
-
-
-;;;; Statistics Cookie
-
-(defun org-element-statistics-cookie-parser ()
- "Parse statistics cookie at point, if any.
-
-When at a statistics cookie, return a list whose car is
-`statistics-cookie', and cdr a plist with `:begin', `:end',
-`:value' and `:post-blank' keywords. Otherwise, return nil.
-
-Assume point is at the beginning of the statistics-cookie."
- (save-excursion
- (when (looking-at "\\[[0-9]*\\(%\\|/[0-9]*\\)\\]")
- (let* ((begin (point))
- (value (buffer-substring-no-properties
- (match-beginning 0) (match-end 0)))
- (post-blank (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'statistics-cookie
- (list :begin begin
- :end end
- :value value
- :post-blank post-blank))))))
-
-(defun org-element-statistics-cookie-interpreter (statistics-cookie _)
- "Interpret STATISTICS-COOKIE object as Org syntax."
- (org-element-property :value statistics-cookie))
-
-
-;;;; Strike-Through
-
-(defun org-element-strike-through-parser ()
- "Parse strike-through object at point, if any.
-
-When at a strike-through object, return a list whose car is
-`strike-through' and cdr is a plist with `:begin', `:end',
-`:contents-begin' and `:contents-end' and `:post-blank' keywords.
-Otherwise, return nil.
-
-Assume point is at the first plus sign marker."
- (save-excursion
- (unless (bolp) (backward-char 1))
- (when (looking-at org-emph-re)
- (let ((begin (match-beginning 2))
- (contents-begin (match-beginning 4))
- (contents-end (match-end 4))
- (post-blank (progn (goto-char (match-end 2))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'strike-through
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank))))))
-
-(defun org-element-strike-through-interpreter (_ contents)
- "Interpret strike-through object as Org syntax.
-CONTENTS is the contents of the object."
- (format "+%s+" contents))
-
-
-;;;; Subscript
-
-(defun org-element-subscript-parser ()
- "Parse subscript at point, if any.
-
-When at a subscript object, return a list whose car is
-`subscript' and cdr a plist with `:begin', `:end',
-`:contents-begin', `:contents-end', `:use-brackets-p' and
-`:post-blank' as keywords. Otherwise, return nil.
-
-Assume point is at the underscore."
- (save-excursion
- (unless (bolp) (backward-char))
- (when (looking-at org-match-substring-regexp)
- (let ((bracketsp (match-beginning 4))
- (begin (match-beginning 2))
- (contents-begin (or (match-beginning 4)
- (match-beginning 3)))
- (contents-end (or (match-end 4) (match-end 3)))
- (post-blank (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'subscript
- (list :begin begin
- :end end
- :use-brackets-p bracketsp
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank))))))
-
-(defun org-element-subscript-interpreter (subscript contents)
- "Interpret SUBSCRIPT object as Org syntax.
-CONTENTS is the contents of the object."
- (format
- (if (org-element-property :use-brackets-p subscript) "_{%s}" "_%s")
- contents))
-
-
-;;;; Superscript
-
-(defun org-element-superscript-parser ()
- "Parse superscript at point, if any.
-
-When at a superscript object, return a list whose car is
-`superscript' and cdr a plist with `:begin', `:end',
-`:contents-begin', `:contents-end', `:use-brackets-p' and
-`:post-blank' as keywords. Otherwise, return nil.
-
-Assume point is at the caret."
- (save-excursion
- (unless (bolp) (backward-char))
- (when (looking-at org-match-substring-regexp)
- (let ((bracketsp (match-beginning 4))
- (begin (match-beginning 2))
- (contents-begin (or (match-beginning 4)
- (match-beginning 3)))
- (contents-end (or (match-end 4) (match-end 3)))
- (post-blank (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'superscript
- (list :begin begin
- :end end
- :use-brackets-p bracketsp
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank))))))
-
-(defun org-element-superscript-interpreter (superscript contents)
- "Interpret SUPERSCRIPT object as Org syntax.
-CONTENTS is the contents of the object."
- (format
- (if (org-element-property :use-brackets-p superscript) "^{%s}" "^%s")
- contents))
-
-
-;;;; Table Cell
-
-(defun org-element-table-cell-parser ()
- "Parse table cell at point.
-Return a list whose car is `table-cell' and cdr is a plist
-containing `:begin', `:end', `:contents-begin', `:contents-end'
-and `:post-blank' keywords."
- (looking-at "[ \t]*\\(.*?\\)[ \t]*\\(?:|\\|$\\)")
- (let* ((begin (match-beginning 0))
- (end (match-end 0))
- (contents-begin (match-beginning 1))
- (contents-end (match-end 1)))
- (list 'table-cell
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank 0))))
-
-(defun org-element-table-cell-interpreter (_ contents)
- "Interpret table-cell element as Org syntax.
-CONTENTS is the contents of the cell, or nil."
- (concat " " contents " |"))
-
-
-;;;; Target
-
-(defun org-element-target-parser ()
- "Parse target at point, if any.
-
-When at a target, return a list whose car is `target' and cdr
-a plist with `:begin', `:end', `:value' and `:post-blank' as
-keywords. Otherwise, return nil.
-
-Assume point is at the target."
- (save-excursion
- (when (looking-at org-target-regexp)
- (let ((begin (point))
- (value (match-string-no-properties 1))
- (post-blank (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'target
- (list :begin begin
- :end end
- :value value
- :post-blank post-blank))))))
-
-(defun org-element-target-interpreter (target _)
- "Interpret TARGET object as Org syntax."
- (format "<<%s>>" (org-element-property :value target)))
-
-
-;;;; Timestamp
-
-(defconst org-element--timestamp-regexp
- (concat org-ts-regexp-both
- "\\|"
- "\\(?:<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[dwmy]>\\)"
- "\\|"
- "\\(?:<%%\\(?:([^>\n]+)\\)>\\)")
- "Regexp matching any timestamp type object.")
-
-(defun org-element-timestamp-parser ()
- "Parse time stamp at point, if any.
-
-When at a time stamp, return a list whose car is `timestamp', and
-cdr a plist with `:type', `:raw-value', `:year-start',
-`:month-start', `:day-start', `:hour-start', `:minute-start',
-`:year-end', `:month-end', `:day-end', `:hour-end',
-`:minute-end', `:repeater-type', `:repeater-value',
-`:repeater-unit', `:warning-type', `:warning-value',
-`:warning-unit', `:begin', `:end' and `:post-blank' keywords.
-Otherwise, return nil.
-
-Assume point is at the beginning of the timestamp."
- (when (looking-at-p org-element--timestamp-regexp)
- (save-excursion
- (let* ((begin (point))
- (activep (eq (char-after) ?<))
- (raw-value
- (progn
- (looking-at "\\([<[]\\(%%\\)?.*?\\)[]>]\\(?:--\\([<[].*?[]>]\\)\\)?")
- (match-string-no-properties 0)))
- (date-start (match-string-no-properties 1))
- (date-end (match-string 3))
- (diaryp (match-beginning 2))
- (post-blank (progn (goto-char (match-end 0))
- (skip-chars-forward " \t")))
- (end (point))
- (time-range
- (and (not diaryp)
- (string-match
- "[012]?[0-9]:[0-5][0-9]\\(-\\([012]?[0-9]\\):\\([0-5][0-9]\\)\\)"
- date-start)
- (cons (string-to-number (match-string 2 date-start))
- (string-to-number (match-string 3 date-start)))))
- (type (cond (diaryp 'diary)
- ((and activep (or date-end time-range)) 'active-range)
- (activep 'active)
- ((or date-end time-range) 'inactive-range)
- (t 'inactive)))
- (repeater-props
- (and (not diaryp)
- (string-match "\\([.+]?\\+\\)\\([0-9]+\\)\\([hdwmy]\\)"
- raw-value)
- (list
- :repeater-type
- (let ((type (match-string 1 raw-value)))
- (cond ((equal "++" type) 'catch-up)
- ((equal ".+" type) 'restart)
- (t 'cumulate)))
- :repeater-value (string-to-number (match-string 2 raw-value))
- :repeater-unit
- (pcase (string-to-char (match-string 3 raw-value))
- (?h 'hour) (?d 'day) (?w 'week) (?m 'month) (_ 'year)))))
- (warning-props
- (and (not diaryp)
- (string-match "\\(-\\)?-\\([0-9]+\\)\\([hdwmy]\\)" raw-value)
- (list
- :warning-type (if (match-string 1 raw-value) 'first 'all)
- :warning-value (string-to-number (match-string 2 raw-value))
- :warning-unit
- (pcase (string-to-char (match-string 3 raw-value))
- (?h 'hour) (?d 'day) (?w 'week) (?m 'month) (_ 'year)))))
- year-start month-start day-start hour-start minute-start year-end
- month-end day-end hour-end minute-end)
- ;; Parse date-start.
- (unless diaryp
- (let ((date (org-parse-time-string date-start t)))
- (setq year-start (nth 5 date)
- month-start (nth 4 date)
- day-start (nth 3 date)
- hour-start (nth 2 date)
- minute-start (nth 1 date))))
- ;; Compute date-end. It can be provided directly in time-stamp,
- ;; or extracted from time range. Otherwise, it defaults to the
- ;; same values as date-start.
- (unless diaryp
- (let ((date (and date-end (org-parse-time-string date-end t))))
- (setq year-end (or (nth 5 date) year-start)
- month-end (or (nth 4 date) month-start)
- day-end (or (nth 3 date) day-start)
- hour-end (or (nth 2 date) (car time-range) hour-start)
- minute-end (or (nth 1 date) (cdr time-range) minute-start))))
- (list 'timestamp
- (nconc (list :type type
- :raw-value raw-value
- :year-start year-start
- :month-start month-start
- :day-start day-start
- :hour-start hour-start
- :minute-start minute-start
- :year-end year-end
- :month-end month-end
- :day-end day-end
- :hour-end hour-end
- :minute-end minute-end
- :begin begin
- :end end
- :post-blank post-blank)
- repeater-props
- warning-props))))))
-
-(defun org-element-timestamp-interpreter (timestamp _)
- "Interpret TIMESTAMP object as Org syntax."
- (let* ((repeat-string
- (concat
- (pcase (org-element-property :repeater-type timestamp)
- (`cumulate "+") (`catch-up "++") (`restart ".+"))
- (let ((val (org-element-property :repeater-value timestamp)))
- (and val (number-to-string val)))
- (pcase (org-element-property :repeater-unit timestamp)
- (`hour "h") (`day "d") (`week "w") (`month "m") (`year "y"))))
- (warning-string
- (concat
- (pcase (org-element-property :warning-type timestamp)
- (`first "--") (`all "-"))
- (let ((val (org-element-property :warning-value timestamp)))
- (and val (number-to-string val)))
- (pcase (org-element-property :warning-unit timestamp)
- (`hour "h") (`day "d") (`week "w") (`month "m") (`year "y"))))
- (build-ts-string
- ;; Build an Org timestamp string from TIME. ACTIVEP is
- ;; non-nil when time stamp is active. If WITH-TIME-P is
- ;; non-nil, add a time part. HOUR-END and MINUTE-END
- ;; specify a time range in the timestamp. REPEAT-STRING is
- ;; the repeater string, if any.
- (lambda (time activep &optional with-time-p hour-end minute-end)
- (let ((ts (format-time-string
- (funcall (if with-time-p #'cdr #'car)
- org-time-stamp-formats)
- time)))
- (when (and hour-end minute-end)
- (string-match "[012]?[0-9]:[0-5][0-9]" ts)
- (setq ts
- (replace-match
- (format "\\&-%02d:%02d" hour-end minute-end)
- nil nil ts)))
- (unless activep (setq ts (format "[%s]" (substring ts 1 -1))))
- (dolist (s (list repeat-string warning-string))
- (when (org-string-nw-p s)
- (setq ts (concat (substring ts 0 -1)
- " "
- s
- (substring ts -1)))))
- ;; Return value.
- ts)))
- (type (org-element-property :type timestamp)))
- (pcase type
- ((or `active `inactive)
- (let* ((minute-start (org-element-property :minute-start timestamp))
- (minute-end (org-element-property :minute-end timestamp))
- (hour-start (org-element-property :hour-start timestamp))
- (hour-end (org-element-property :hour-end timestamp))
- (time-range-p (and hour-start hour-end minute-start minute-end
- (or (/= hour-start hour-end)
- (/= minute-start minute-end)))))
- (funcall
- build-ts-string
- (encode-time 0
- (or minute-start 0)
- (or hour-start 0)
- (org-element-property :day-start timestamp)
- (org-element-property :month-start timestamp)
- (org-element-property :year-start timestamp))
- (eq type 'active)
- (and hour-start minute-start)
- (and time-range-p hour-end)
- (and time-range-p minute-end))))
- ((or `active-range `inactive-range)
- (let ((minute-start (org-element-property :minute-start timestamp))
- (minute-end (org-element-property :minute-end timestamp))
- (hour-start (org-element-property :hour-start timestamp))
- (hour-end (org-element-property :hour-end timestamp)))
- (concat
- (funcall
- build-ts-string (encode-time
- 0
- (or minute-start 0)
- (or hour-start 0)
- (org-element-property :day-start timestamp)
- (org-element-property :month-start timestamp)
- (org-element-property :year-start timestamp))
- (eq type 'active-range)
- (and hour-start minute-start))
- "--"
- (funcall build-ts-string
- (encode-time 0
- (or minute-end 0)
- (or hour-end 0)
- (org-element-property :day-end timestamp)
- (org-element-property :month-end timestamp)
- (org-element-property :year-end timestamp))
- (eq type 'active-range)
- (and hour-end minute-end)))))
- (_ (org-element-property :raw-value timestamp)))))
-
-
-;;;; Underline
-
-(defun org-element-underline-parser ()
- "Parse underline object at point, if any.
-
-When at an underline object, return a list whose car is
-`underline' and cdr is a plist with `:begin', `:end',
-`:contents-begin' and `:contents-end' and `:post-blank' keywords.
-Otherwise, return nil.
-
-Assume point is at the first underscore marker."
- (save-excursion
- (unless (bolp) (backward-char 1))
- (when (looking-at org-emph-re)
- (let ((begin (match-beginning 2))
- (contents-begin (match-beginning 4))
- (contents-end (match-end 4))
- (post-blank (progn (goto-char (match-end 2))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'underline
- (list :begin begin
- :end end
- :contents-begin contents-begin
- :contents-end contents-end
- :post-blank post-blank))))))
-
-(defun org-element-underline-interpreter (_ contents)
- "Interpret underline object as Org syntax.
-CONTENTS is the contents of the object."
- (format "_%s_" contents))
-
-
-;;;; Verbatim
-
-(defun org-element-verbatim-parser ()
- "Parse verbatim object at point, if any.
-
-When at a verbatim object, return a list whose car is `verbatim'
-and cdr is a plist with `:value', `:begin', `:end' and
-`:post-blank' keywords. Otherwise, return nil.
-
-Assume point is at the first equal sign marker."
- (save-excursion
- (unless (bolp) (backward-char 1))
- (when (looking-at org-verbatim-re)
- (let ((begin (match-beginning 2))
- (value (match-string-no-properties 4))
- (post-blank (progn (goto-char (match-end 2))
- (skip-chars-forward " \t")))
- (end (point)))
- (list 'verbatim
- (list :value value
- :begin begin
- :end end
- :post-blank post-blank))))))
-
-(defun org-element-verbatim-interpreter (verbatim _)
- "Interpret VERBATIM object as Org syntax."
- (format "=%s=" (org-element-property :value verbatim)))
-
-
-
-;;; Parsing Element Starting At Point
-;;
-;; `org-element--current-element' is the core function of this section.
-;; It returns the Lisp representation of the element starting at
-;; point.
-;;
-;; `org-element--current-element' makes use of special modes. They
-;; are activated for fixed element chaining (e.g., `plain-list' >
-;; `item') or fixed conditional element chaining (e.g., `headline' >
-;; `section'). Special modes are: `first-section', `item',
-;; `node-property', `section' and `table-row'.
-
-(defun org-element--current-element (limit &optional granularity mode structure)
- "Parse the element starting at point.
-
-Return value is a list like (TYPE PROPS) where TYPE is the type
-of the element and PROPS a plist of properties associated to the
-element.
-
-Possible types are defined in `org-element-all-elements'.
-
-LIMIT bounds the search.
-
-Optional argument GRANULARITY determines the depth of the
-recursion. Allowed values are `headline', `greater-element',
-`element', `object' or nil. When it is broader than `object' (or
-nil), secondary values will not be parsed, since they only
-contain objects.
-
-Optional argument MODE, when non-nil, can be either
-`first-section', `section', `planning', `item', `node-property'
-and `table-row'.
-
-If STRUCTURE isn't provided but MODE is set to `item', it will be
-computed.
-
-This function assumes point is always at the beginning of the
-element it has to parse."
- (save-excursion
- (let ((case-fold-search t)
- ;; Determine if parsing depth allows for secondary strings
- ;; parsing. It only applies to elements referenced in
- ;; `org-element-secondary-value-alist'.
- (raw-secondary-p (and granularity (not (eq granularity 'object)))))
- (cond
- ;; Item.
- ((eq mode 'item)
- (org-element-item-parser limit structure raw-secondary-p))
- ;; Table Row.
- ((eq mode 'table-row) (org-element-table-row-parser limit))
- ;; Node Property.
- ((eq mode 'node-property) (org-element-node-property-parser limit))
- ;; Headline.
- ((org-with-limited-levels (org-at-heading-p))
- (org-element-headline-parser limit raw-secondary-p))
- ;; Sections (must be checked after headline).
- ((eq mode 'section) (org-element-section-parser limit))
- ((eq mode 'first-section)
- (org-element-section-parser
- (or (save-excursion (org-with-limited-levels (outline-next-heading)))
- limit)))
- ;; Planning.
- ((and (eq mode 'planning)
- (eq ?* (char-after (line-beginning-position 0)))
- (looking-at org-planning-line-re))
- (org-element-planning-parser limit))
- ;; Property drawer.
- ((and (memq mode '(planning property-drawer))
- (eq ?* (char-after (line-beginning-position
- (if (eq mode 'planning) 0 -1))))
- (looking-at org-property-drawer-re))
- (org-element-property-drawer-parser limit))
- ;; When not at bol, point is at the beginning of an item or
- ;; a footnote definition: next item is always a paragraph.
- ((not (bolp)) (org-element-paragraph-parser limit (list (point))))
- ;; Clock.
- ((looking-at org-clock-line-re) (org-element-clock-parser limit))
- ;; Inlinetask.
- ((org-at-heading-p)
- (org-element-inlinetask-parser limit raw-secondary-p))
- ;; From there, elements can have affiliated keywords.
- (t (let ((affiliated (org-element--collect-affiliated-keywords limit)))
- (cond
- ;; Jumping over affiliated keywords put point off-limits.
- ;; Parse them as regular keywords.
- ((and (cdr affiliated) (>= (point) limit))
- (goto-char (car affiliated))
- (org-element-keyword-parser limit nil))
- ;; LaTeX Environment.
- ((looking-at org-element--latex-begin-environment)
- (org-element-latex-environment-parser limit affiliated))
- ;; Drawer and Property Drawer.
- ((looking-at org-drawer-regexp)
- (org-element-drawer-parser limit affiliated))
- ;; Fixed Width
- ((looking-at "[ \t]*:\\( \\|$\\)")
- (org-element-fixed-width-parser limit affiliated))
- ;; Inline Comments, Blocks, Babel Calls, Dynamic Blocks and
- ;; Keywords.
- ((looking-at "[ \t]*#")
- (goto-char (match-end 0))
- (cond
- ((looking-at "\\(?: \\|$\\)")
- (beginning-of-line)
- (org-element-comment-parser limit affiliated))
- ((looking-at "\\+BEGIN_\\(\\S-+\\)")
- (beginning-of-line)
- (funcall (pcase (upcase (match-string 1))
- ("CENTER" #'org-element-center-block-parser)
- ("COMMENT" #'org-element-comment-block-parser)
- ("EXAMPLE" #'org-element-example-block-parser)
- ("EXPORT" #'org-element-export-block-parser)
- ("QUOTE" #'org-element-quote-block-parser)
- ("SRC" #'org-element-src-block-parser)
- ("VERSE" #'org-element-verse-block-parser)
- (_ #'org-element-special-block-parser))
- limit
- affiliated))
- ((looking-at "\\+CALL:")
- (beginning-of-line)
- (org-element-babel-call-parser limit affiliated))
- ((looking-at "\\+BEGIN:? ")
- (beginning-of-line)
- (org-element-dynamic-block-parser limit affiliated))
- ((looking-at "\\+\\S-+:")
- (beginning-of-line)
- (org-element-keyword-parser limit affiliated))
- (t
- (beginning-of-line)
- (org-element-paragraph-parser limit affiliated))))
- ;; Footnote Definition.
- ((looking-at org-footnote-definition-re)
- (org-element-footnote-definition-parser limit affiliated))
- ;; Horizontal Rule.
- ((looking-at "[ \t]*-\\{5,\\}[ \t]*$")
- (org-element-horizontal-rule-parser limit affiliated))
- ;; Diary Sexp.
- ((looking-at "%%(")
- (org-element-diary-sexp-parser limit affiliated))
- ;; Table.
- ((looking-at "[ \t]*\\(|\\|\\+\\(-+\\+\\)+[ \t]*$\\)")
- (org-element-table-parser limit affiliated))
- ;; List.
- ((looking-at (org-item-re))
- (org-element-plain-list-parser
- limit affiliated
- (or structure (org-element--list-struct limit))))
- ;; Default element: Paragraph.
- (t (org-element-paragraph-parser limit affiliated)))))))))
-
-
-;; Most elements can have affiliated keywords. When looking for an
-;; element beginning, we want to move before them, as they belong to
-;; that element, and, in the meantime, collect information they give
-;; into appropriate properties. Hence the following function.
-
-(defun org-element--collect-affiliated-keywords (limit)
- "Collect affiliated keywords from point down to LIMIT.
-
-Return a list whose CAR is the position at the first of them and
-CDR a plist of keywords and values and move point to the
-beginning of the first line after them.
-
-As a special case, if element doesn't start at the beginning of
-the line (e.g., a paragraph starting an item), CAR is current
-position of point and CDR is nil."
- (if (not (bolp)) (list (point))
- (let ((case-fold-search t)
- (origin (point))
- ;; RESTRICT is the list of objects allowed in parsed
- ;; keywords value.
- (restrict (org-element-restriction 'keyword))
- output)
- (while (and (< (point) limit) (looking-at org-element--affiliated-re))
- (let* ((raw-kwd (upcase (match-string 1)))
- ;; Apply translation to RAW-KWD. From there, KWD is
- ;; the official keyword.
- (kwd (or (cdr (assoc raw-kwd
- org-element-keyword-translation-alist))
- raw-kwd))
- ;; Find main value for any keyword.
- (value
- (save-match-data
- (org-trim
- (buffer-substring-no-properties
- (match-end 0) (line-end-position)))))
- ;; PARSEDP is non-nil when keyword should have its
- ;; value parsed.
- (parsedp (member kwd org-element-parsed-keywords))
- ;; If KWD is a dual keyword, find its secondary
- ;; value. Maybe parse it.
- (dualp (member kwd org-element-dual-keywords))
- (dual-value
- (and dualp
- (let ((sec (match-string-no-properties 2)))
- (if (or (not sec) (not parsedp)) sec
- (save-match-data
- (org-element--parse-objects
- (match-beginning 2) (match-end 2) nil restrict))))))
- ;; Attribute a property name to KWD.
- (kwd-sym (and kwd (intern (concat ":" (downcase kwd))))))
- ;; Now set final shape for VALUE.
- (when parsedp
- (setq value
- (org-element--parse-objects
- (match-end 0)
- (progn (end-of-line) (skip-chars-backward " \t") (point))
- nil restrict)))
- (when dualp
- (setq value (and (or value dual-value) (cons value dual-value))))
- (when (or (member kwd org-element-multiple-keywords)
- ;; Attributes can always appear on multiple lines.
- (string-match "^ATTR_" kwd))
- (setq value (cons value (plist-get output kwd-sym))))
- ;; Eventually store the new value in OUTPUT.
- (setq output (plist-put output kwd-sym value))
- ;; Move to next keyword.
- (forward-line)))
- ;; If affiliated keywords are orphaned: move back to first one.
- ;; They will be parsed as a paragraph.
- (when (looking-at "[ \t]*$") (goto-char origin) (setq output nil))
- ;; Return value.
- (cons origin output))))
-
-
-
-;;; The Org Parser
-;;
-;; The two major functions here are `org-element-parse-buffer', which
-;; parses Org syntax inside the current buffer, taking into account
-;; region, narrowing, or even visibility if specified, and
-;; `org-element-parse-secondary-string', which parses objects within
-;; a given string.
-;;
-;; The (almost) almighty `org-element-map' allows applying a function
-;; on elements or objects matching some type, and accumulating the
-;; resulting values. In an export situation, it also skips unneeded
-;; parts of the parse tree.
-
-(defun org-element-parse-buffer (&optional granularity visible-only)
- "Recursively parse the buffer and return structure.
-If narrowing is in effect, only parse the visible part of the
-buffer.
-
-Optional argument GRANULARITY determines the depth of the
-recursion. It can be set to the following symbols:
-
-`headline' Only parse headlines.
-`greater-element' Don't recurse into greater elements except
- headlines and sections. Thus, elements
- parsed are the top-level ones.
-`element' Parse everything but objects and plain text.
-`object' Parse the complete buffer (default).
-
-When VISIBLE-ONLY is non-nil, don't parse contents of hidden
-elements.
-
-An element or object is represented as a list with the
-pattern (TYPE PROPERTIES CONTENTS), where :
-
- TYPE is a symbol describing the element or object. See
- `org-element-all-elements' and `org-element-all-objects' for an
- exhaustive list of such symbols. One can retrieve it with
- `org-element-type' function.
-
- PROPERTIES is the list of attributes attached to the element or
- object, as a plist. Although most of them are specific to the
- element or object type, all types share `:begin', `:end',
- `:post-blank' and `:parent' properties, which respectively
- refer to buffer position where the element or object starts,
- ends, the number of white spaces or blank lines after it, and
- the element or object containing it. Properties values can be
- obtained by using `org-element-property' function.
-
- CONTENTS is a list of elements, objects or raw strings
- contained in the current element or object, when applicable.
- One can access them with `org-element-contents' function.
-
-The Org buffer has `org-data' as type and nil as properties.
-`org-element-map' function can be used to find specific elements
-or objects within the parse tree.
-
-This function assumes that current major mode is `org-mode'."
- (save-excursion
- (goto-char (point-min))
- (org-skip-whitespace)
- (org-element--parse-elements
- (point-at-bol) (point-max)
- ;; Start in `first-section' mode so text before the first
- ;; headline belongs to a section.
- 'first-section nil granularity visible-only (list 'org-data nil))))
-
-(defun org-element-parse-secondary-string (string restriction &optional parent)
- "Recursively parse objects in STRING and return structure.
-
-RESTRICTION is a symbol limiting the object types that will be
-looked after.
-
-Optional argument PARENT, when non-nil, is the element or object
-containing the secondary string. It is used to set correctly
-`:parent' property within the string.
-
-If STRING is the empty string or nil, return nil."
- (cond
- ((not string) nil)
- ((equal string "") nil)
- (t (let ((local-variables (buffer-local-variables)))
- (with-temp-buffer
- (dolist (v local-variables)
- (ignore-errors
- (if (symbolp v) (makunbound v)
- (set (make-local-variable (car v)) (cdr v)))))
- (insert string)
- (restore-buffer-modified-p nil)
- (org-element--parse-objects
- (point-min) (point-max) nil restriction parent))))))
-
-(defun org-element-map
- (data types fun &optional info first-match no-recursion with-affiliated)
- "Map a function on selected elements or objects.
-
-DATA is a parse tree, an element, an object, a string, or a list
-of such constructs. TYPES is a symbol or list of symbols of
-elements or objects types (see `org-element-all-elements' and
-`org-element-all-objects' for a complete list of types). FUN is
-the function called on the matching element or object. It has to
-accept one argument: the element or object itself.
-
-When optional argument INFO is non-nil, it should be a plist
-holding export options. In that case, parts of the parse tree
-not exportable according to that property list will be skipped.
-
-When optional argument FIRST-MATCH is non-nil, stop at the first
-match for which FUN doesn't return nil, and return that value.
-
-Optional argument NO-RECURSION is a symbol or a list of symbols
-representing elements or objects types. `org-element-map' won't
-enter any recursive element or object whose type belongs to that
-list. Though, FUN can still be applied on them.
-
-When optional argument WITH-AFFILIATED is non-nil, FUN will also
-apply to matching objects within parsed affiliated keywords (see
-`org-element-parsed-keywords').
-
-Nil values returned from FUN do not appear in the results.
-
-
-Examples:
----------
-
-Assuming TREE is a variable containing an Org buffer parse tree,
-the following example will return a flat list of all `src-block'
-and `example-block' elements in it:
-
- (org-element-map tree \\='(example-block src-block) #\\='identity)
-
-The following snippet will find the first headline with a level
-of 1 and a \"phone\" tag, and will return its beginning position:
-
- (org-element-map tree \\='headline
- (lambda (hl)
- (and (= (org-element-property :level hl) 1)
- (member \"phone\" (org-element-property :tags hl))
- (org-element-property :begin hl)))
- nil t)
-
-The next example will return a flat list of all `plain-list' type
-elements in TREE that are not a sub-list themselves:
-
- (org-element-map tree \\='plain-list #\\='identity nil nil \\='plain-list)
-
-Eventually, this example will return a flat list of all `bold'
-type objects containing a `latex-snippet' type object, even
-looking into captions:
-
- (org-element-map tree \\='bold
- (lambda (b)
- (and (org-element-map b \\='latex-snippet #\\='identity nil t) b))
- nil nil nil t)"
- ;; Ensure TYPES and NO-RECURSION are a list, even of one element.
- (let* ((types (if (listp types) types (list types)))
- (no-recursion (if (listp no-recursion) no-recursion
- (list no-recursion)))
- ;; Recursion depth is determined by --CATEGORY.
- (--category
- (catch :--found
- (let ((category 'greater-elements)
- (all-objects (cons 'plain-text org-element-all-objects)))
- (dolist (type types category)
- (cond ((memq type all-objects)
- ;; If one object is found, the function has
- ;; to recurse into every object.
- (throw :--found 'objects))
- ((not (memq type org-element-greater-elements))
- ;; If one regular element is found, the
- ;; function has to recurse, at least, into
- ;; every element it encounters.
- (and (not (eq category 'elements))
- (setq category 'elements))))))))
- --acc)
- (letrec ((--walk-tree
- (lambda (--data)
- ;; Recursively walk DATA. INFO, if non-nil, is a plist
- ;; holding contextual information.
- (let ((--type (org-element-type --data)))
- (cond
- ((not --data))
- ;; Ignored element in an export context.
- ((and info (memq --data (plist-get info :ignore-list))))
- ;; List of elements or objects.
- ((not --type) (mapc --walk-tree --data))
- ;; Unconditionally enter parse trees.
- ((eq --type 'org-data)
- (mapc --walk-tree (org-element-contents --data)))
- (t
- ;; Check if TYPE is matching among TYPES. If so,
- ;; apply FUN to --DATA and accumulate return value
- ;; into --ACC (or exit if FIRST-MATCH is non-nil).
- (when (memq --type types)
- (let ((result (funcall fun --data)))
- (cond ((not result))
- (first-match (throw :--map-first-match result))
- (t (push result --acc)))))
- ;; If --DATA has a secondary string that can contain
- ;; objects with their type among TYPES, look inside.
- (when (and (eq --category 'objects) (not (stringp --data)))
- (dolist (p (cdr (assq --type
- org-element-secondary-value-alist)))
- (funcall --walk-tree (org-element-property p --data))))
- ;; If --DATA has any parsed affiliated keywords and
- ;; WITH-AFFILIATED is non-nil, look for objects in
- ;; them.
- (when (and with-affiliated
- (eq --category 'objects)
- (eq (org-element-class --data) 'element))
- (dolist (kwd-pair org-element--parsed-properties-alist)
- (let ((kwd (car kwd-pair))
- (value (org-element-property (cdr kwd-pair) --data)))
- ;; Pay attention to the type of parsed
- ;; keyword. In particular, preserve order for
- ;; multiple keywords.
- (cond
- ((not value))
- ((member kwd org-element-dual-keywords)
- (if (member kwd org-element-multiple-keywords)
- (dolist (line (reverse value))
- (funcall --walk-tree (cdr line))
- (funcall --walk-tree (car line)))
- (funcall --walk-tree (cdr value))
- (funcall --walk-tree (car value))))
- ((member kwd org-element-multiple-keywords)
- (mapc --walk-tree (reverse value)))
- (t (funcall --walk-tree value))))))
- ;; Determine if a recursion into --DATA is possible.
- (cond
- ;; --TYPE is explicitly removed from recursion.
- ((memq --type no-recursion))
- ;; --DATA has no contents.
- ((not (org-element-contents --data)))
- ;; Looking for greater elements but --DATA is
- ;; simply an element or an object.
- ((and (eq --category 'greater-elements)
- (not (memq --type org-element-greater-elements))))
- ;; Looking for elements but --DATA is an object.
- ((and (eq --category 'elements)
- (eq (org-element-class --data) 'object)))
- ;; In any other case, map contents.
- (t (mapc --walk-tree (org-element-contents --data))))))))))
- (catch :--map-first-match
- (funcall --walk-tree data)
- ;; Return value in a proper order.
- (nreverse --acc)))))
-(put 'org-element-map 'lisp-indent-function 2)
-
-;; The following functions are internal parts of the parser.
-;;
-;; The first one, `org-element--parse-elements' acts at the element's
-;; level.
-;;
-;; The second one, `org-element--parse-objects' applies on all objects
-;; of a paragraph or a secondary string. It calls
-;; `org-element--object-lex' to find the next object in the current
-;; container.
-
-(defsubst org-element--next-mode (type parentp)
- "Return next special mode according to TYPE, or nil.
-TYPE is a symbol representing the type of an element or object
-containing next element if PARENTP is non-nil, or before it
-otherwise. Modes can be either `first-section', `item',
-`node-property', `planning', `property-drawer', `section',
-`table-row' or nil."
- (if parentp
- (pcase type
- (`headline 'section)
- (`inlinetask 'planning)
- (`plain-list 'item)
- (`property-drawer 'node-property)
- (`section 'planning)
- (`table 'table-row))
- (pcase type
- (`item 'item)
- (`node-property 'node-property)
- (`planning 'property-drawer)
- (`table-row 'table-row))))
-
-(defun org-element--parse-elements
- (beg end mode structure granularity visible-only acc)
- "Parse elements between BEG and END positions.
-
-MODE prioritizes some elements over the others. It can be set to
-`first-section', `section', `planning', `item', `node-property'
-or `table-row'.
-
-When value is `item', STRUCTURE will be used as the current list
-structure.
-
-GRANULARITY determines the depth of the recursion. See
-`org-element-parse-buffer' for more information.
-
-When VISIBLE-ONLY is non-nil, don't parse contents of hidden
-elements.
-
-Elements are accumulated into ACC."
- (save-excursion
- (goto-char beg)
- ;; Visible only: skip invisible parts at the beginning of the
- ;; element.
- (when (and visible-only (org-invisible-p2))
- (goto-char (min (1+ (org-find-visible)) end)))
- ;; When parsing only headlines, skip any text before first one.
- (when (and (eq granularity 'headline) (not (org-at-heading-p)))
- (org-with-limited-levels (outline-next-heading)))
- (let (elements)
- (while (< (point) end)
- ;; Find current element's type and parse it accordingly to
- ;; its category.
- (let* ((element (org-element--current-element
- end granularity mode structure))
- (type (org-element-type element))
- (cbeg (org-element-property :contents-begin element)))
- (goto-char (org-element-property :end element))
- ;; Visible only: skip invisible parts between siblings.
- (when (and visible-only (org-invisible-p2))
- (goto-char (min (1+ (org-find-visible)) end)))
- ;; Fill ELEMENT contents by side-effect.
- (cond
- ;; If element has no contents, don't modify it.
- ((not cbeg))
- ;; Greater element: parse it between `contents-begin' and
- ;; `contents-end'. Make sure GRANULARITY allows the
- ;; recursion, or ELEMENT is a headline, in which case going
- ;; inside is mandatory, in order to get sub-level headings.
- ((and (memq type org-element-greater-elements)
- (or (memq granularity '(element object nil))
- (and (eq granularity 'greater-element)
- (eq type 'section))
- (eq type 'headline)))
- (org-element--parse-elements
- cbeg (org-element-property :contents-end element)
- ;; Possibly switch to a special mode.
- (org-element--next-mode type t)
- (and (memq type '(item plain-list))
- (org-element-property :structure element))
- granularity visible-only element))
- ;; ELEMENT has contents. Parse objects inside, if
- ;; GRANULARITY allows it.
- ((memq granularity '(object nil))
- (org-element--parse-objects
- cbeg (org-element-property :contents-end element) element
- (org-element-restriction type))))
- (push (org-element-put-property element :parent acc) elements)
- ;; Update mode.
- (setq mode (org-element--next-mode type nil))))
- ;; Return result.
- (apply #'org-element-set-contents acc (nreverse elements)))))
-
-(defun org-element--object-lex (restriction)
- "Return next object in current buffer or nil.
-RESTRICTION is a list of object types, as symbols, that should be
-looked after. This function assumes that the buffer is narrowed
-to an appropriate container (e.g., a paragraph)."
- (if (memq 'table-cell restriction) (org-element-table-cell-parser)
- (let* ((start (point))
- (limit
- ;; Object regexp sometimes needs to have a peek at
- ;; a character ahead. Therefore, when there is a hard
- ;; limit, make it one more than the true beginning of the
- ;; radio target.
- (save-excursion
- (cond ((not org-target-link-regexp) nil)
- ((not (memq 'link restriction)) nil)
- ((progn
- (unless (bolp) (forward-char -1))
- (not (re-search-forward org-target-link-regexp nil t)))
- nil)
- ;; Since we moved backward, we do not want to
- ;; match again an hypothetical 1-character long
- ;; radio link before us. Realizing that this can
- ;; only happen if such a radio link starts at
- ;; beginning of line, we prevent this here.
- ((and (= start (1+ (line-beginning-position)))
- (= start (match-end 1)))
- (and (re-search-forward org-target-link-regexp nil t)
- (1+ (match-beginning 1))))
- (t (1+ (match-beginning 1))))))
- found)
- (save-excursion
- (while (and (not found)
- (re-search-forward org-element--object-regexp limit 'move))
- (goto-char (match-beginning 0))
- (let ((result (match-string 0)))
- (setq found
- (cond
- ((string-prefix-p "call_" result t)
- (and (memq 'inline-babel-call restriction)
- (org-element-inline-babel-call-parser)))
- ((string-prefix-p "src_" result t)
- (and (memq 'inline-src-block restriction)
- (org-element-inline-src-block-parser)))
- (t
- (pcase (char-after)
- (?^ (and (memq 'superscript restriction)
- (org-element-superscript-parser)))
- (?_ (or (and (memq 'subscript restriction)
- (org-element-subscript-parser))
- (and (memq 'underline restriction)
- (org-element-underline-parser))))
- (?* (and (memq 'bold restriction)
- (org-element-bold-parser)))
- (?/ (and (memq 'italic restriction)
- (org-element-italic-parser)))
- (?~ (and (memq 'code restriction)
- (org-element-code-parser)))
- (?= (and (memq 'verbatim restriction)
- (org-element-verbatim-parser)))
- (?+ (and (memq 'strike-through restriction)
- (org-element-strike-through-parser)))
- (?@ (and (memq 'export-snippet restriction)
- (org-element-export-snippet-parser)))
- (?{ (and (memq 'macro restriction)
- (org-element-macro-parser)))
- (?$ (and (memq 'latex-fragment restriction)
- (org-element-latex-fragment-parser)))
- (?<
- (if (eq (aref result 1) ?<)
- (or (and (memq 'radio-target restriction)
- (org-element-radio-target-parser))
- (and (memq 'target restriction)
- (org-element-target-parser)))
- (or (and (memq 'timestamp restriction)
- (org-element-timestamp-parser))
- (and (memq 'link restriction)
- (org-element-link-parser)))))
- (?\\
- (if (eq (aref result 1) ?\\)
- (and (memq 'line-break restriction)
- (org-element-line-break-parser))
- (or (and (memq 'entity restriction)
- (org-element-entity-parser))
- (and (memq 'latex-fragment restriction)
- (org-element-latex-fragment-parser)))))
- (?\[
- (if (eq (aref result 1) ?\[)
- (and (memq 'link restriction)
- (org-element-link-parser))
- (or (and (memq 'footnote-reference restriction)
- (org-element-footnote-reference-parser))
- (and (memq 'timestamp restriction)
- (org-element-timestamp-parser))
- (and (memq 'statistics-cookie restriction)
- (org-element-statistics-cookie-parser)))))
- ;; This is probably a plain link.
- (_ (and (memq 'link restriction)
- (org-element-link-parser)))))))
- (or (eobp) (forward-char))))
- (cond (found)
- (limit (forward-char -1)
- (org-element-link-parser)) ;radio link
- (t nil))))))
-
-(defun org-element--parse-objects (beg end acc restriction &optional parent)
- "Parse objects between BEG and END and return recursive structure.
-
-Objects are accumulated in ACC. RESTRICTION is a list of object
-successors which are allowed in the current object.
-
-ACC becomes the parent for all parsed objects. However, if ACC
-is nil (i.e., a secondary string is being parsed) and optional
-argument PARENT is non-nil, use it as the parent for all objects.
-Eventually, if both ACC and PARENT are nil, the common parent is
-the list of objects itself."
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (goto-char (point-min))
- (let (next-object contents)
- (while (and (not (eobp))
- (setq next-object (org-element--object-lex restriction)))
- ;; Text before any object.
- (let ((obj-beg (org-element-property :begin next-object)))
- (unless (= (point) obj-beg)
- (let ((text (buffer-substring-no-properties (point) obj-beg)))
- (push (if acc (org-element-put-property text :parent acc) text)
- contents))))
- ;; Object...
- (let ((obj-end (org-element-property :end next-object))
- (cont-beg (org-element-property :contents-begin next-object)))
- (when acc (org-element-put-property next-object :parent acc))
- (push (if cont-beg
- ;; Fill contents of NEXT-OBJECT if possible.
- (org-element--parse-objects
- cont-beg
- (org-element-property :contents-end next-object)
- next-object
- (org-element-restriction next-object))
- next-object)
- contents)
- (goto-char obj-end)))
- ;; Text after last object.
- (unless (eobp)
- (let ((text (buffer-substring-no-properties (point) end)))
- (push (if acc (org-element-put-property text :parent acc) text)
- contents)))
- ;; Result. Set appropriate parent.
- (if acc (apply #'org-element-set-contents acc (nreverse contents))
- (let* ((contents (nreverse contents))
- (parent (or parent contents)))
- (dolist (datum contents contents)
- (org-element-put-property datum :parent parent))))))))
-
-
-
-;;; Towards A Bijective Process
-;;
-;; The parse tree obtained with `org-element-parse-buffer' is really
-;; a snapshot of the corresponding Org buffer. Therefore, it can be
-;; interpreted and expanded into a string with canonical Org syntax.
-;; Hence `org-element-interpret-data'.
-;;
-;; The function relies internally on
-;; `org-element--interpret-affiliated-keywords'.
-
-;;;###autoload
-(defun org-element-interpret-data (data)
- "Interpret DATA as Org syntax.
-DATA is a parse tree, an element, an object or a secondary string
-to interpret. Return Org syntax as a string."
- (letrec ((fun
- (lambda (data parent)
- (let* ((type (org-element-type data))
- ;; Find interpreter for current object or
- ;; element. If it doesn't exist (e.g. this is
- ;; a pseudo object or element), return contents,
- ;; if any.
- (interpret
- (let ((fun (intern
- (format "org-element-%s-interpreter" type))))
- (if (fboundp fun) fun (lambda (_ contents) contents))))
- (results
- (cond
- ;; Secondary string.
- ((not type)
- (mapconcat (lambda (obj) (funcall fun obj parent))
- data
- ""))
- ;; Full Org document.
- ((eq type 'org-data)
- (mapconcat (lambda (obj) (funcall fun obj parent))
- (org-element-contents data)
- ""))
- ;; Plain text: return it.
- ((stringp data) data)
- ;; Element or object without contents.
- ((not (org-element-contents data))
- (funcall interpret data nil))
- ;; Element or object with contents.
- (t
- (funcall
- interpret
- data
- ;; Recursively interpret contents.
- (mapconcat
- (lambda (datum) (funcall fun datum data))
- (org-element-contents
- (if (not (memq type '(paragraph verse-block)))
- data
- ;; Fix indentation of elements containing
- ;; objects. We ignore `table-row'
- ;; elements as they are one line long
- ;; anyway.
- (org-element-normalize-contents
- data
- ;; When normalizing first paragraph of
- ;; an item or a footnote-definition,
- ;; ignore first line's indentation.
- (and (eq type 'paragraph)
- (memq (org-element-type parent)
- '(footnote-definition item))
- (eq data
- (car (org-element-contents parent)))))))
- ""))))))
- (if (memq type '(org-data plain-text nil)) results
- ;; Build white spaces. If no `:post-blank' property
- ;; is specified, assume its value is 0.
- (let ((blank (or (org-element-property :post-blank data) 0)))
- (if (eq (org-element-class data parent) 'object)
- (concat results (make-string blank ?\s))
- (concat (org-element--interpret-affiliated-keywords data)
- (org-element-normalize-string results)
- (make-string blank ?\n)))))))))
- (funcall fun data nil)))
-
-(defun org-element--interpret-affiliated-keywords (element)
- "Return ELEMENT's affiliated keywords as Org syntax.
-If there is no affiliated keyword, return the empty string."
- (let ((keyword-to-org
- (function
- (lambda (key value)
- (let (dual)
- (when (member key org-element-dual-keywords)
- (setq dual (cdr value) value (car value)))
- (concat "#+" key
- (and dual
- (format "[%s]" (org-element-interpret-data dual)))
- ": "
- (if (member key org-element-parsed-keywords)
- (org-element-interpret-data value)
- value)
- "\n"))))))
- (mapconcat
- (lambda (prop)
- (let ((value (org-element-property prop element))
- (keyword (upcase (substring (symbol-name prop) 1))))
- (when value
- (if (or (member keyword org-element-multiple-keywords)
- ;; All attribute keywords can have multiple lines.
- (string-match "^ATTR_" keyword))
- (mapconcat (lambda (line) (funcall keyword-to-org keyword line))
- (reverse value)
- "")
- (funcall keyword-to-org keyword value)))))
- ;; List all ELEMENT's properties matching an attribute line or an
- ;; affiliated keyword, but ignore translated keywords since they
- ;; cannot belong to the property list.
- (cl-loop for prop in (nth 1 element) by 'cddr
- when (let ((keyword (upcase (substring (symbol-name prop) 1))))
- (or (string-match "^ATTR_" keyword)
- (and
- (member keyword org-element-affiliated-keywords)
- (not (assoc keyword
- org-element-keyword-translation-alist)))))
- collect prop)
- "")))
-
-;; Because interpretation of the parse tree must return the same
-;; number of blank lines between elements and the same number of white
-;; space after objects, some special care must be given to white
-;; spaces.
-;;
-;; The first function, `org-element-normalize-string', ensures any
-;; string different from the empty string will end with a single
-;; newline character.
-;;
-;; The second function, `org-element-normalize-contents', removes
-;; global indentation from the contents of the current element.
-
-(defun org-element-normalize-string (s)
- "Ensure string S ends with a single newline character.
-
-If S isn't a string return it unchanged. If S is the empty
-string, return it. Otherwise, return a new string with a single
-newline character at its end."
- (cond
- ((not (stringp s)) s)
- ((string= "" s) "")
- (t (and (string-match "\\(\n[ \t]*\\)*\\'" s)
- (replace-match "\n" nil nil s)))))
-
-(defun org-element-normalize-contents (element &optional ignore-first)
- "Normalize plain text in ELEMENT's contents.
-
-ELEMENT must only contain plain text and objects.
-
-If optional argument IGNORE-FIRST is non-nil, ignore first line's
-indentation to compute maximal common indentation.
-
-Return the normalized element that is element with global
-indentation removed from its contents."
- (letrec ((find-min-ind
- ;; Return minimal common indentation within BLOB. This is
- ;; done by walking recursively BLOB and updating MIN-IND
- ;; along the way. FIRST-FLAG is non-nil when the next
- ;; object is expected to be a string that doesn't start
- ;; with a newline character. It happens for strings at
- ;; the beginnings of the contents or right after a line
- ;; break.
- (lambda (blob first-flag min-ind)
- (dolist (datum (org-element-contents blob) min-ind)
- (when first-flag
- (setq first-flag nil)
- (cond
- ;; Objects cannot start with spaces: in this
- ;; case, indentation is 0.
- ((not (stringp datum)) (throw :zero 0))
- ((not (string-match
- "\\`\\([ \t]+\\)\\([^ \t\n]\\|\n\\|\\'\\)" datum))
- (throw :zero 0))
- ((equal (match-string 2 datum) "\n")
- (put-text-property
- (match-beginning 1) (match-end 1) 'org-ind 'empty datum))
- (t
- (let ((i (string-width (match-string 1 datum))))
- (put-text-property
- (match-beginning 1) (match-end 1) 'org-ind i datum)
- (setq min-ind (min i min-ind))))))
- (cond
- ((stringp datum)
- (let ((s 0))
- (while (string-match
- "\n\\([ \t]*\\)\\([^ \t\n]\\|\n\\|\\'\\)" datum s)
- (setq s (match-end 1))
- (cond
- ((equal (match-string 1 datum) "")
- (unless (member (match-string 2 datum) '("" "\n"))
- (throw :zero 0)))
- ((equal (match-string 2 datum) "\n")
- (put-text-property (match-beginning 1) (match-end 1)
- 'org-ind 'empty datum))
- (t
- (let ((i (string-width (match-string 1 datum))))
- (put-text-property (match-beginning 1) (match-end 1)
- 'org-ind i datum)
- (setq min-ind (min i min-ind))))))))
- ((eq (org-element-type datum) 'line-break)
- (setq first-flag t))
- ((memq (org-element-type datum) org-element-recursive-objects)
- (setq min-ind
- (funcall find-min-ind datum first-flag min-ind)))))))
- (min-ind
- (catch :zero
- (funcall find-min-ind
- element (not ignore-first) most-positive-fixnum))))
- (if (or (zerop min-ind) (= min-ind most-positive-fixnum)) element
- ;; Build ELEMENT back, replacing each string with the same
- ;; string minus common indentation.
- (letrec ((build
- (lambda (datum)
- ;; Return DATUM with all its strings indentation
- ;; shortened from MIN-IND white spaces.
- (setcdr
- (cdr datum)
- (mapcar
- (lambda (object)
- (cond
- ((stringp object)
- (with-temp-buffer
- (insert object)
- (let ((s (point-min)))
- (while (setq s (text-property-not-all
- s (point-max) 'org-ind nil))
- (goto-char s)
- (let ((i (get-text-property s 'org-ind)))
- (delete-region s (progn
- (skip-chars-forward " \t")
- (point)))
- (when (integerp i) (indent-to (- i min-ind))))))
- (buffer-string)))
- ((memq (org-element-type object)
- org-element-recursive-objects)
- (funcall build object))
- (t object)))
- (org-element-contents datum)))
- datum)))
- (funcall build element)))))
-
-
-
-;;; Cache
-;;
-;; Implement a caching mechanism for `org-element-at-point' and
-;; `org-element-context', which see.
-;;
-;; A single public function is provided: `org-element-cache-reset'.
-;;
-;; Cache is enabled by default, but can be disabled globally with
-;; `org-element-use-cache'. `org-element-cache-sync-idle-time',
-;; org-element-cache-sync-duration' and `org-element-cache-sync-break'
-;; can be tweaked to control caching behavior.
-;;
-;; Internally, parsed elements are stored in an AVL tree,
-;; `org-element--cache'. This tree is updated lazily: whenever
-;; a change happens to the buffer, a synchronization request is
-;; registered in `org-element--cache-sync-requests' (see
-;; `org-element--cache-submit-request'). During idle time, requests
-;; are processed by `org-element--cache-sync'. Synchronization also
-;; happens when an element is required from the cache. In this case,
-;; the process stops as soon as the needed element is up-to-date.
-;;
-;; A synchronization request can only apply on a synchronized part of
-;; the cache. Therefore, the cache is updated at least to the
-;; location where the new request applies. Thus, requests are ordered
-;; from left to right and all elements starting before the first
-;; request are correct. This property is used by functions like
-;; `org-element--cache-find' to retrieve elements in the part of the
-;; cache that can be trusted.
-;;
-;; A request applies to every element, starting from its original
-;; location (or key, see below). When a request is processed, it
-;; moves forward and may collide the next one. In this case, both
-;; requests are merged into a new one that starts from that element.
-;; As a consequence, the whole synchronization complexity does not
-;; depend on the number of pending requests, but on the number of
-;; elements the very first request will be applied on.
-;;
-;; Elements cannot be accessed through their beginning position, which
-;; may or may not be up-to-date. Instead, each element in the tree is
-;; associated to a key, obtained with `org-element--cache-key'. This
-;; mechanism is robust enough to preserve total order among elements
-;; even when the tree is only partially synchronized.
-
-
-(defvar org-element-use-cache nil
- "Non-nil when Org parser should cache its results.
-
-WARNING: for the time being, using cache sometimes triggers
-freezes. Therefore, it is disabled by default. Activate it if
-you want to help debugging the issue.")
-
-(defvar org-element-cache-sync-idle-time 0.6
- "Length, in seconds, of idle time before syncing cache.")
-
-(defvar org-element-cache-sync-duration (seconds-to-time 0.04)
- "Maximum duration, as a time value, for a cache synchronization.
-If the synchronization is not over after this delay, the process
-pauses and resumes after `org-element-cache-sync-break'
-seconds.")
-
-(defvar org-element-cache-sync-break (seconds-to-time 0.3)
- "Duration, as a time value, of the pause between synchronizations.
-See `org-element-cache-sync-duration' for more information.")
-
-
-;;;; Data Structure
-
-(defvar org-element--cache nil
- "AVL tree used to cache elements.
-Each node of the tree contains an element. Comparison is done
-with `org-element--cache-compare'. This cache is used in
-`org-element-at-point'.")
-
-(defvar org-element--cache-sync-requests nil
- "List of pending synchronization requests.
-
-A request is a vector with the following pattern:
-
- \[NEXT BEG END OFFSET PARENT PHASE]
-
-Processing a synchronization request consists of three phases:
-
- 0. Delete modified elements,
- 1. Fill missing area in cache,
- 2. Shift positions and re-parent elements after the changes.
-
-During phase 0, NEXT is the key of the first element to be
-removed, BEG and END is buffer position delimiting the
-modifications. Elements starting between them (inclusive) are
-removed. So are elements whose parent is removed. PARENT, when
-non-nil, is the parent of the first element to be removed.
-
-During phase 1, NEXT is the key of the next known element in
-cache and BEG its beginning position. Parse buffer between that
-element and the one before it in order to determine the parent of
-the next element. Set PARENT to the element containing NEXT.
-
-During phase 2, NEXT is the key of the next element to shift in
-the parse tree. All elements starting from this one have their
-properties relatives to buffer positions shifted by integer
-OFFSET and, if they belong to element PARENT, are adopted by it.
-
-PHASE specifies the phase number, as an integer.")
-
-(defvar org-element--cache-sync-timer nil
- "Timer used for cache synchronization.")
-
-(defvar org-element--cache-sync-keys nil
- "Hash table used to store keys during synchronization.
-See `org-element--cache-key' for more information.")
-
-(defsubst org-element--cache-key (element)
- "Return a unique key for ELEMENT in cache tree.
-
-Keys are used to keep a total order among elements in the cache.
-Comparison is done with `org-element--cache-key-less-p'.
-
-When no synchronization is taking place, a key is simply the
-beginning position of the element, or that position plus one in
-the case of an first item (respectively row) in
-a list (respectively a table).
-
-During a synchronization, the key is the one the element had when
-the cache was synchronized for the last time. Elements added to
-cache during the synchronization get a new key generated with
-`org-element--cache-generate-key'.
-
-Such keys are stored in `org-element--cache-sync-keys'. The hash
-table is cleared once the synchronization is complete."
- (or (gethash element org-element--cache-sync-keys)
- (let* ((begin (org-element-property :begin element))
- ;; Increase beginning position of items (respectively
- ;; table rows) by one, so the first item can get
- ;; a different key from its parent list (respectively
- ;; table).
- (key (if (memq (org-element-type element) '(item table-row))
- (1+ begin)
- begin)))
- (if org-element--cache-sync-requests
- (puthash element key org-element--cache-sync-keys)
- key))))
-
-(defun org-element--cache-generate-key (lower upper)
- "Generate a key between LOWER and UPPER.
-
-LOWER and UPPER are integers or lists, possibly empty.
-
-If LOWER and UPPER are equals, return LOWER. Otherwise, return
-a unique key, as an integer or a list of integers, according to
-the following rules:
-
- - LOWER and UPPER are compared level-wise until values differ.
-
- - If, at a given level, LOWER and UPPER differ from more than
- 2, the new key shares all the levels above with LOWER and
- gets a new level. Its value is the mean between LOWER and
- UPPER:
-
- (1 2) + (1 4) --> (1 3)
-
- - If LOWER has no value to compare with, it is assumed that its
- value is `most-negative-fixnum'. E.g.,
-
- (1 1) + (1 1 2)
-
- is equivalent to
-
- (1 1 m) + (1 1 2)
-
- where m is `most-negative-fixnum'. Likewise, if UPPER is
- short of levels, the current value is `most-positive-fixnum'.
-
- - If they differ from only one, the new key inherits from
- current LOWER level and fork it at the next level. E.g.,
-
- (2 1) + (3 3)
-
- is equivalent to
-
- (2 1) + (2 M)
-
- where M is `most-positive-fixnum'.
-
- - If the key is only one level long, it is returned as an
- integer:
-
- (1 2) + (3 2) --> 2
-
-When they are not equals, the function assumes that LOWER is
-lesser than UPPER, per `org-element--cache-key-less-p'."
- (if (equal lower upper) lower
- (let ((lower (if (integerp lower) (list lower) lower))
- (upper (if (integerp upper) (list upper) upper))
- skip-upper key)
- (catch 'exit
- (while t
- (let ((min (or (car lower) most-negative-fixnum))
- (max (cond (skip-upper most-positive-fixnum)
- ((car upper))
- (t most-positive-fixnum))))
- (if (< (1+ min) max)
- (let ((mean (+ (ash min -1) (ash max -1) (logand min max 1))))
- (throw 'exit (if key (nreverse (cons mean key)) mean)))
- (when (and (< min max) (not skip-upper))
- ;; When at a given level, LOWER and UPPER differ from
- ;; 1, ignore UPPER altogether. Instead create a key
- ;; between LOWER and the greatest key with the same
- ;; prefix as LOWER so far.
- (setq skip-upper t))
- (push min key)
- (setq lower (cdr lower) upper (cdr upper)))))))))
-
-(defsubst org-element--cache-key-less-p (a b)
- "Non-nil if key A is less than key B.
-A and B are either integers or lists of integers, as returned by
-`org-element--cache-key'."
- (if (integerp a) (if (integerp b) (< a b) (<= a (car b)))
- (if (integerp b) (< (car a) b)
- (catch 'exit
- (while (and a b)
- (cond ((car-less-than-car a b) (throw 'exit t))
- ((car-less-than-car b a) (throw 'exit nil))
- (t (setq a (cdr a) b (cdr b)))))
- ;; If A is empty, either keys are equal (B is also empty) and
- ;; we return nil, or A is lesser than B (B is longer) and we
- ;; return a non-nil value.
- ;;
- ;; If A is not empty, B is necessarily empty and A is greater
- ;; than B (A is longer). Therefore, return nil.
- (and (null a) b)))))
-
-(defun org-element--cache-compare (a b)
- "Non-nil when element A is located before element B."
- (org-element--cache-key-less-p (org-element--cache-key a)
- (org-element--cache-key b)))
-
-(defsubst org-element--cache-root ()
- "Return root value in cache.
-This function assumes `org-element--cache' is a valid AVL tree."
- (avl-tree--node-left (avl-tree--dummyroot org-element--cache)))
-
-
-;;;; Tools
-
-(defsubst org-element--cache-active-p ()
- "Non-nil when cache is active in current buffer."
- (and org-element-use-cache
- org-element--cache
- (derived-mode-p 'org-mode)))
-
-(defun org-element--cache-find (pos &optional side)
- "Find element in cache starting at POS or before.
-
-POS refers to a buffer position.
-
-When optional argument SIDE is non-nil, the function checks for
-elements starting at or past POS instead. If SIDE is `both', the
-function returns a cons cell where car is the first element
-starting at or before POS and cdr the first element starting
-after POS.
-
-The function can only find elements in the synchronized part of
-the cache."
- (let ((limit (and org-element--cache-sync-requests
- (aref (car org-element--cache-sync-requests) 0)))
- (node (org-element--cache-root))
- lower upper)
- (while node
- (let* ((element (avl-tree--node-data node))
- (begin (org-element-property :begin element)))
- (cond
- ((and limit
- (not (org-element--cache-key-less-p
- (org-element--cache-key element) limit)))
- (setq node (avl-tree--node-left node)))
- ((> begin pos)
- (setq upper element
- node (avl-tree--node-left node)))
- ((< begin pos)
- (setq lower element
- node (avl-tree--node-right node)))
- ;; We found an element in cache starting at POS. If `side'
- ;; is `both' we also want the next one in order to generate
- ;; a key in-between.
- ;;
- ;; If the element is the first row or item in a table or
- ;; a plain list, we always return the table or the plain
- ;; list.
- ;;
- ;; In any other case, we return the element found.
- ((eq side 'both)
- (setq lower element)
- (setq node (avl-tree--node-right node)))
- ((and (memq (org-element-type element) '(item table-row))
- (let ((parent (org-element-property :parent element)))
- (and (= (org-element-property :begin element)
- (org-element-property :contents-begin parent))
- (setq node nil
- lower parent
- upper parent)))))
- (t
- (setq node nil
- lower element
- upper element)))))
- (pcase side
- (`both (cons lower upper))
- (`nil lower)
- (_ upper))))
-
-(defun org-element--cache-put (element)
- "Store ELEMENT in current buffer's cache, if allowed."
- (when (org-element--cache-active-p)
- (when org-element--cache-sync-requests
- ;; During synchronization, first build an appropriate key for
- ;; the new element so `avl-tree-enter' can insert it at the
- ;; right spot in the cache.
- (let ((keys (org-element--cache-find
- (org-element-property :begin element) 'both)))
- (puthash element
- (org-element--cache-generate-key
- (and (car keys) (org-element--cache-key (car keys)))
- (cond ((cdr keys) (org-element--cache-key (cdr keys)))
- (org-element--cache-sync-requests
- (aref (car org-element--cache-sync-requests) 0))))
- org-element--cache-sync-keys)))
- (avl-tree-enter org-element--cache element)))
-
-(defsubst org-element--cache-remove (element)
- "Remove ELEMENT from cache.
-Assume ELEMENT belongs to cache and that a cache is active."
- (avl-tree-delete org-element--cache element))
-
-
-;;;; Synchronization
-
-(defsubst org-element--cache-set-timer (buffer)
- "Set idle timer for cache synchronization in BUFFER."
- (when org-element--cache-sync-timer
- (cancel-timer org-element--cache-sync-timer))
- (setq org-element--cache-sync-timer
- (run-with-idle-timer
- (let ((idle (current-idle-time)))
- (if idle (time-add idle org-element-cache-sync-break)
- org-element-cache-sync-idle-time))
- nil
- #'org-element--cache-sync
- buffer)))
-
-(defsubst org-element--cache-interrupt-p (time-limit)
- "Non-nil when synchronization process should be interrupted.
-TIME-LIMIT is a time value or nil."
- (and time-limit
- (or (input-pending-p)
- (time-less-p time-limit (current-time)))))
-
-(defsubst org-element--cache-shift-positions (element offset &optional props)
- "Shift ELEMENT properties relative to buffer positions by OFFSET.
-
-Properties containing buffer positions are `:begin', `:end',
-`:contents-begin', `:contents-end' and `:structure'. When
-optional argument PROPS is a list of keywords, only shift
-properties provided in that list.
-
-Properties are modified by side-effect."
- (let ((properties (nth 1 element)))
- ;; Shift `:structure' property for the first plain list only: it
- ;; is the only one that really matters and it prevents from
- ;; shifting it more than once.
- (when (and (or (not props) (memq :structure props))
- (eq (org-element-type element) 'plain-list)
- (not (eq (org-element-type (plist-get properties :parent))
- 'item)))
- (dolist (item (plist-get properties :structure))
- (cl-incf (car item) offset)
- (cl-incf (nth 6 item) offset)))
- (dolist (key '(:begin :contents-begin :contents-end :end :post-affiliated))
- (let ((value (and (or (not props) (memq key props))
- (plist-get properties key))))
- (and value (plist-put properties key (+ offset value)))))))
-
-(defun org-element--cache-sync (buffer &optional threshold future-change)
- "Synchronize cache with recent modification in BUFFER.
-
-When optional argument THRESHOLD is non-nil, do the
-synchronization for all elements starting before or at threshold,
-then exit. Otherwise, synchronize cache for as long as
-`org-element-cache-sync-duration' or until Emacs leaves idle
-state.
-
-FUTURE-CHANGE, when non-nil, is a buffer position where changes
-not registered yet in the cache are going to happen. It is used
-in `org-element--cache-submit-request', where cache is partially
-updated before current modification are actually submitted."
- (when (buffer-live-p buffer)
- (with-current-buffer buffer
- (let ((inhibit-quit t) request next)
- (when org-element--cache-sync-timer
- (cancel-timer org-element--cache-sync-timer))
- (catch 'interrupt
- (while org-element--cache-sync-requests
- (setq request (car org-element--cache-sync-requests)
- next (nth 1 org-element--cache-sync-requests))
- (org-element--cache-process-request
- request
- (and next (aref next 0))
- threshold
- (and (not threshold)
- (time-add (current-time)
- org-element-cache-sync-duration))
- future-change)
- ;; Request processed. Merge current and next offsets and
- ;; transfer ending position.
- (when next
- (cl-incf (aref next 3) (aref request 3))
- (aset next 2 (aref request 2)))
- (setq org-element--cache-sync-requests
- (cdr org-element--cache-sync-requests))))
- ;; If more requests are awaiting, set idle timer accordingly.
- ;; Otherwise, reset keys.
- (if org-element--cache-sync-requests
- (org-element--cache-set-timer buffer)
- (clrhash org-element--cache-sync-keys))))))
-
-(defun org-element--cache-process-request
- (request next threshold time-limit future-change)
- "Process synchronization REQUEST for all entries before NEXT.
-
-REQUEST is a vector, built by `org-element--cache-submit-request'.
-
-NEXT is a cache key, as returned by `org-element--cache-key'.
-
-When non-nil, THRESHOLD is a buffer position. Synchronization
-stops as soon as a shifted element begins after it.
-
-When non-nil, TIME-LIMIT is a time value. Synchronization stops
-after this time or when Emacs exits idle state.
-
-When non-nil, FUTURE-CHANGE is a buffer position where changes
-not registered yet in the cache are going to happen. See
-`org-element--cache-submit-request' for more information.
-
-Throw `interrupt' if the process stops before completing the
-request."
- (catch 'quit
- (when (= (aref request 5) 0)
- ;; Phase 0.
- ;;
- ;; Delete all elements starting after BEG, but not after buffer
- ;; position END or past element with key NEXT. Also delete
- ;; elements contained within a previously removed element
- ;; (stored in `last-container').
- ;;
- ;; At each iteration, we start again at tree root since
- ;; a deletion modifies structure of the balanced tree.
- (catch 'end-phase
- (while t
- (when (org-element--cache-interrupt-p time-limit)
- (throw 'interrupt nil))
- ;; Find first element in cache with key BEG or after it.
- (let ((beg (aref request 0))
- (end (aref request 2))
- (node (org-element--cache-root))
- data data-key last-container)
- (while node
- (let* ((element (avl-tree--node-data node))
- (key (org-element--cache-key element)))
- (cond
- ((org-element--cache-key-less-p key beg)
- (setq node (avl-tree--node-right node)))
- ((org-element--cache-key-less-p beg key)
- (setq data element
- data-key key
- node (avl-tree--node-left node)))
- (t (setq data element
- data-key key
- node nil)))))
- (if data
- (let ((pos (org-element-property :begin data)))
- (if (if (or (not next)
- (org-element--cache-key-less-p data-key next))
- (<= pos end)
- (and last-container
- (let ((up data))
- (while (and up (not (eq up last-container)))
- (setq up (org-element-property :parent up)))
- up)))
- (progn (when (and (not last-container)
- (> (org-element-property :end data)
- end))
- (setq last-container data))
- (org-element--cache-remove data))
- (aset request 0 data-key)
- (aset request 1 pos)
- (aset request 5 1)
- (throw 'end-phase nil)))
- ;; No element starting after modifications left in
- ;; cache: further processing is futile.
- (throw 'quit t))))))
- (when (= (aref request 5) 1)
- ;; Phase 1.
- ;;
- ;; Phase 0 left a hole in the cache. Some elements after it
- ;; could have parents within. For example, in the following
- ;; buffer:
- ;;
- ;; - item
- ;;
- ;;
- ;; Paragraph1
- ;;
- ;; Paragraph2
- ;;
- ;; if we remove a blank line between "item" and "Paragraph1",
- ;; everything down to "Paragraph2" is removed from cache. But
- ;; the paragraph now belongs to the list, and its `:parent'
- ;; property no longer is accurate.
- ;;
- ;; Therefore we need to parse again elements in the hole, or at
- ;; least in its last section, so that we can re-parent
- ;; subsequent elements, during phase 2.
- ;;
- ;; Note that we only need to get the parent from the first
- ;; element in cache after the hole.
- ;;
- ;; When next key is lesser or equal to the current one, delegate
- ;; phase 1 processing to next request in order to preserve key
- ;; order among requests.
- (let ((key (aref request 0)))
- (when (and next (not (org-element--cache-key-less-p key next)))
- (let ((next-request (nth 1 org-element--cache-sync-requests)))
- (aset next-request 0 key)
- (aset next-request 1 (aref request 1))
- (aset next-request 5 1))
- (throw 'quit t)))
- ;; Next element will start at its beginning position plus
- ;; offset, since it hasn't been shifted yet. Therefore, LIMIT
- ;; contains the real beginning position of the first element to
- ;; shift and re-parent.
- (let ((limit (+ (aref request 1) (aref request 3))))
- (cond ((and threshold (> limit threshold)) (throw 'interrupt nil))
- ((and future-change (>= limit future-change))
- ;; Changes are going to happen around this element and
- ;; they will trigger another phase 1 request. Skip the
- ;; current one.
- (aset request 5 2))
- (t
- (let ((parent (org-element--parse-to limit t time-limit)))
- (aset request 4 parent)
- (aset request 5 2))))))
- ;; Phase 2.
- ;;
- ;; Shift all elements starting from key START, but before NEXT, by
- ;; OFFSET, and re-parent them when appropriate.
- ;;
- ;; Elements are modified by side-effect so the tree structure
- ;; remains intact.
- ;;
- ;; Once THRESHOLD, if any, is reached, or once there is an input
- ;; pending, exit. Before leaving, the current synchronization
- ;; request is updated.
- (let ((start (aref request 0))
- (offset (aref request 3))
- (parent (aref request 4))
- (node (org-element--cache-root))
- (stack (list nil))
- (leftp t)
- exit-flag)
- ;; No re-parenting nor shifting planned: request is over.
- (when (and (not parent) (zerop offset)) (throw 'quit t))
- (while node
- (let* ((data (avl-tree--node-data node))
- (key (org-element--cache-key data)))
- (if (and leftp (avl-tree--node-left node)
- (not (org-element--cache-key-less-p key start)))
- (progn (push node stack)
- (setq node (avl-tree--node-left node)))
- (unless (org-element--cache-key-less-p key start)
- ;; We reached NEXT. Request is complete.
- (when (equal key next) (throw 'quit t))
- ;; Handle interruption request. Update current request.
- (when (or exit-flag (org-element--cache-interrupt-p time-limit))
- (aset request 0 key)
- (aset request 4 parent)
- (throw 'interrupt nil))
- ;; Shift element.
- (unless (zerop offset)
- (org-element--cache-shift-positions data offset))
- (let ((begin (org-element-property :begin data)))
- ;; Update PARENT and re-parent DATA, only when
- ;; necessary. Propagate new structures for lists.
- (while (and parent
- (<= (org-element-property :end parent) begin))
- (setq parent (org-element-property :parent parent)))
- (cond ((and (not parent) (zerop offset)) (throw 'quit nil))
- ((and parent
- (let ((p (org-element-property :parent data)))
- (or (not p)
- (< (org-element-property :begin p)
- (org-element-property :begin parent)))))
- (org-element-put-property data :parent parent)
- (let ((s (org-element-property :structure parent)))
- (when (and s (org-element-property :structure data))
- (org-element-put-property data :structure s)))))
- ;; Cache is up-to-date past THRESHOLD. Request
- ;; interruption.
- (when (and threshold (> begin threshold)) (setq exit-flag t))))
- (setq node (if (setq leftp (avl-tree--node-right node))
- (avl-tree--node-right node)
- (pop stack))))))
- ;; We reached end of tree: synchronization complete.
- t)))
-
-(defun org-element--parse-to (pos &optional syncp time-limit)
- "Parse elements in current section, down to POS.
-
-Start parsing from the closest between the last known element in
-cache or headline above. Return the smallest element containing
-POS.
-
-When optional argument SYNCP is non-nil, return the parent of the
-element containing POS instead. In that case, it is also
-possible to provide TIME-LIMIT, which is a time value specifying
-when the parsing should stop. The function throws `interrupt' if
-the process stopped before finding the expected result."
- (catch 'exit
- (org-with-wide-buffer
- (goto-char pos)
- (let* ((cached (and (org-element--cache-active-p)
- (org-element--cache-find pos nil)))
- (begin (org-element-property :begin cached))
- element next mode)
- (cond
- ;; Nothing in cache before point: start parsing from first
- ;; element following headline above, or first element in
- ;; buffer.
- ((not cached)
- (when (org-with-limited-levels (outline-previous-heading))
- (setq mode 'planning)
- (forward-line))
- (skip-chars-forward " \r\t\n")
- (beginning-of-line))
- ;; Cache returned exact match: return it.
- ((= pos begin)
- (throw 'exit (if syncp (org-element-property :parent cached) cached)))
- ;; There's a headline between cached value and POS: cached
- ;; value is invalid. Start parsing from first element
- ;; following the headline.
- ((re-search-backward
- (org-with-limited-levels org-outline-regexp-bol) begin t)
- (forward-line)
- (skip-chars-forward " \r\t\n")
- (beginning-of-line)
- (setq mode 'planning))
- ;; Check if CACHED or any of its ancestors contain point.
- ;;
- ;; If there is such an element, we inspect it in order to know
- ;; if we return it or if we need to parse its contents.
- ;; Otherwise, we just start parsing from current location,
- ;; which is right after the top-most element containing
- ;; CACHED.
- ;;
- ;; As a special case, if POS is at the end of the buffer, we
- ;; want to return the innermost element ending there.
- ;;
- ;; Also, if we find an ancestor and discover that we need to
- ;; parse its contents, make sure we don't start from
- ;; `:contents-begin', as we would otherwise go past CACHED
- ;; again. Instead, in that situation, we will resume parsing
- ;; from NEXT, which is located after CACHED or its higher
- ;; ancestor not containing point.
- (t
- (let ((up cached)
- (pos (if (= (point-max) pos) (1- pos) pos)))
- (goto-char (or (org-element-property :contents-begin cached) begin))
- (while (let ((end (org-element-property :end up)))
- (and (<= end pos)
- (goto-char end)
- (setq up (org-element-property :parent up)))))
- (cond ((not up))
- ((eobp) (setq element up))
- (t (setq element up next (point)))))))
- ;; Parse successively each element until we reach POS.
- (let ((end (or (org-element-property :end element)
- (save-excursion
- (org-with-limited-levels (outline-next-heading))
- (point))))
- (parent element))
- (while t
- (when syncp
- (cond ((= (point) pos) (throw 'exit parent))
- ((org-element--cache-interrupt-p time-limit)
- (throw 'interrupt nil))))
- (unless element
- (setq element (org-element--current-element
- end 'element mode
- (org-element-property :structure parent)))
- (org-element-put-property element :parent parent)
- (org-element--cache-put element))
- (let ((elem-end (org-element-property :end element))
- (type (org-element-type element)))
- (cond
- ;; Skip any element ending before point. Also skip
- ;; element ending at point (unless it is also the end of
- ;; buffer) since we're sure that another element begins
- ;; after it.
- ((and (<= elem-end pos) (/= (point-max) elem-end))
- (goto-char elem-end)
- (setq mode (org-element--next-mode type nil)))
- ;; A non-greater element contains point: return it.
- ((not (memq type org-element-greater-elements))
- (throw 'exit element))
- ;; Otherwise, we have to decide if ELEMENT really
- ;; contains POS. In that case we start parsing from
- ;; contents' beginning.
- ;;
- ;; If POS is at contents' beginning but it is also at
- ;; the beginning of the first item in a list or a table.
- ;; In that case, we need to create an anchor for that
- ;; list or table, so return it.
- ;;
- ;; Also, if POS is at the end of the buffer, no element
- ;; can start after it, but more than one may end there.
- ;; Arbitrarily, we choose to return the innermost of
- ;; such elements.
- ((let ((cbeg (org-element-property :contents-begin element))
- (cend (org-element-property :contents-end element)))
- (when (or syncp
- (and cbeg cend
- (or (< cbeg pos)
- (and (= cbeg pos)
- (not (memq type '(plain-list table)))))
- (or (> cend pos)
- (and (= cend pos) (= (point-max) pos)))))
- (goto-char (or next cbeg))
- (setq next nil
- mode (org-element--next-mode type t)
- parent element
- end cend))))
- ;; Otherwise, return ELEMENT as it is the smallest
- ;; element containing POS.
- (t (throw 'exit element))))
- (setq element nil)))))))
-
-
-;;;; Staging Buffer Changes
-
-(defconst org-element--cache-sensitive-re
- (concat
- org-outline-regexp-bol "\\|"
- "\\\\end{[A-Za-z0-9*]+}[ \t]*$" "\\|"
- "^[ \t]*\\(?:"
- "#\\+\\(?:BEGIN[:_]\\|END\\(?:_\\|:?[ \t]*$\\)\\)" "\\|"
- "\\\\begin{[A-Za-z0-9*]+}" "\\|"
- ":\\(?:\\w\\|[-_]\\)+:[ \t]*$"
- "\\)")
- "Regexp matching a sensitive line, structure wise.
-A sensitive line is a headline, inlinetask, block, drawer, or
-latex-environment boundary. When such a line is modified,
-structure changes in the document may propagate in the whole
-section, possibly making cache invalid.")
-
-(defvar org-element--cache-change-warning nil
- "Non-nil when a sensitive line is about to be changed.
-It is a symbol among nil, t and `headline'.")
-
-(defun org-element--cache-before-change (beg end)
- "Request extension of area going to be modified if needed.
-BEG and END are the beginning and end of the range of changed
-text. See `before-change-functions' for more information."
- (when (org-element--cache-active-p)
- (org-with-wide-buffer
- (goto-char beg)
- (beginning-of-line)
- (let ((bottom (save-excursion (goto-char end) (line-end-position))))
- (setq org-element--cache-change-warning
- (save-match-data
- (if (and (org-with-limited-levels (org-at-heading-p))
- (= (line-end-position) bottom))
- 'headline
- (let ((case-fold-search t))
- (re-search-forward
- org-element--cache-sensitive-re bottom t)))))))))
-
-(defun org-element--cache-after-change (beg end pre)
- "Update buffer modifications for current buffer.
-BEG and END are the beginning and end of the range of changed
-text, and the length in bytes of the pre-change text replaced by
-that range. See `after-change-functions' for more information."
- (when (org-element--cache-active-p)
- (org-with-wide-buffer
- (goto-char beg)
- (beginning-of-line)
- (save-match-data
- (let ((top (point))
- (bottom (save-excursion (goto-char end) (line-end-position))))
- ;; Determine if modified area needs to be extended, according
- ;; to both previous and current state. We make a special
- ;; case for headline editing: if a headline is modified but
- ;; not removed, do not extend.
- (when (pcase org-element--cache-change-warning
- (`t t)
- (`headline
- (not (and (org-with-limited-levels (org-at-heading-p))
- (= (line-end-position) bottom))))
- (_
- (let ((case-fold-search t))
- (re-search-forward
- org-element--cache-sensitive-re bottom t))))
- ;; Effectively extend modified area.
- (org-with-limited-levels
- (setq top (progn (goto-char top)
- (when (outline-previous-heading) (forward-line))
- (point)))
- (setq bottom (progn (goto-char bottom)
- (if (outline-next-heading) (1- (point))
- (point))))))
- ;; Store synchronization request.
- (let ((offset (- end beg pre)))
- (org-element--cache-submit-request top (- bottom offset) offset)))))
- ;; Activate a timer to process the request during idle time.
- (org-element--cache-set-timer (current-buffer))))
-
-(defun org-element--cache-for-removal (beg end offset)
- "Return first element to remove from cache.
-
-BEG and END are buffer positions delimiting buffer modifications.
-OFFSET is the size of the changes.
-
-Returned element is usually the first element in cache containing
-any position between BEG and END. As an exception, greater
-elements around the changes that are robust to contents
-modifications are preserved and updated according to the
-changes."
- (let* ((elements (org-element--cache-find (1- beg) 'both))
- (before (car elements))
- (after (cdr elements)))
- (if (not before) after
- (let ((up before)
- (robust-flag t))
- (while up
- (if (let ((type (org-element-type up)))
- (and (or (memq type '(center-block dynamic-block quote-block
- special-block))
- ;; Drawers named "PROPERTIES" are probably
- ;; a properties drawer being edited. Force
- ;; parsing to check if editing is over.
- (and (eq type 'drawer)
- (not (string=
- (org-element-property :drawer-name up)
- "PROPERTIES"))))
- (let ((cbeg (org-element-property :contents-begin up)))
- (and cbeg
- (<= cbeg beg)
- (> (org-element-property :contents-end up) end)))))
- ;; UP is a robust greater element containing changes.
- ;; We only need to extend its ending boundaries.
- (org-element--cache-shift-positions
- up offset '(:contents-end :end))
- (setq before up)
- (when robust-flag (setq robust-flag nil)))
- (setq up (org-element-property :parent up)))
- ;; We're at top level element containing ELEMENT: if it's
- ;; altered by buffer modifications, it is first element in
- ;; cache to be removed. Otherwise, that first element is the
- ;; following one.
- ;;
- ;; As a special case, do not remove BEFORE if it is a robust
- ;; container for current changes.
- (if (or (< (org-element-property :end before) beg) robust-flag) after
- before)))))
-
-(defun org-element--cache-submit-request (beg end offset)
- "Submit a new cache synchronization request for current buffer.
-BEG and END are buffer positions delimiting the minimal area
-where cache data should be removed. OFFSET is the size of the
-change, as an integer."
- (let ((next (car org-element--cache-sync-requests))
- delete-to delete-from)
- (if (and next
- (zerop (aref next 5))
- (> (setq delete-to (+ (aref next 2) (aref next 3))) end)
- (<= (setq delete-from (aref next 1)) end))
- ;; Current changes can be merged with first sync request: we
- ;; can save a partial cache synchronization.
- (progn
- (cl-incf (aref next 3) offset)
- ;; If last change happened within area to be removed, extend
- ;; boundaries of robust parents, if any. Otherwise, find
- ;; first element to remove and update request accordingly.
- (if (> beg delete-from)
- (let ((up (aref next 4)))
- (while up
- (org-element--cache-shift-positions
- up offset '(:contents-end :end))
- (setq up (org-element-property :parent up))))
- (let ((first (org-element--cache-for-removal beg delete-to offset)))
- (when first
- (aset next 0 (org-element--cache-key first))
- (aset next 1 (org-element-property :begin first))
- (aset next 4 (org-element-property :parent first))))))
- ;; Ensure cache is correct up to END. Also make sure that NEXT,
- ;; if any, is no longer a 0-phase request, thus ensuring that
- ;; phases are properly ordered. We need to provide OFFSET as
- ;; optional parameter since current modifications are not known
- ;; yet to the otherwise correct part of the cache (i.e, before
- ;; the first request).
- (when next (org-element--cache-sync (current-buffer) end beg))
- (let ((first (org-element--cache-for-removal beg end offset)))
- (if first
- (push (let ((beg (org-element-property :begin first))
- (key (org-element--cache-key first)))
- (cond
- ;; When changes happen before the first known
- ;; element, re-parent and shift the rest of the
- ;; cache.
- ((> beg end) (vector key beg nil offset nil 1))
- ;; Otherwise, we find the first non robust
- ;; element containing END. All elements between
- ;; FIRST and this one are to be removed.
- ((let ((first-end (org-element-property :end first)))
- (and (> first-end end)
- (vector key beg first-end offset first 0))))
- (t
- (let* ((element (org-element--cache-find end))
- (end (org-element-property :end element))
- (up element))
- (while (and (setq up (org-element-property :parent up))
- (>= (org-element-property :begin up) beg))
- (setq end (org-element-property :end up)
- element up))
- (vector key beg end offset element 0)))))
- org-element--cache-sync-requests)
- ;; No element to remove. No need to re-parent either.
- ;; Simply shift additional elements, if any, by OFFSET.
- (when org-element--cache-sync-requests
- (cl-incf (aref (car org-element--cache-sync-requests) 3)
- offset)))))))
-
-
-;;;; Public Functions
-
-;;;###autoload
-(defun org-element-cache-reset (&optional all)
- "Reset cache in current buffer.
-When optional argument ALL is non-nil, reset cache in all Org
-buffers."
- (interactive "P")
- (dolist (buffer (if all (buffer-list) (list (current-buffer))))
- (with-current-buffer buffer
- (when (and org-element-use-cache (derived-mode-p 'org-mode))
- (setq-local org-element--cache
- (avl-tree-create #'org-element--cache-compare))
- (setq-local org-element--cache-sync-keys
- (make-hash-table :weakness 'key :test #'eq))
- (setq-local org-element--cache-change-warning nil)
- (setq-local org-element--cache-sync-requests nil)
- (setq-local org-element--cache-sync-timer nil)
- (add-hook 'before-change-functions
- #'org-element--cache-before-change nil t)
- (add-hook 'after-change-functions
- #'org-element--cache-after-change nil t)))))
-
-;;;###autoload
-(defun org-element-cache-refresh (pos)
- "Refresh cache at position POS."
- (when (org-element--cache-active-p)
- (org-element--cache-sync (current-buffer) pos)
- (org-element--cache-submit-request pos pos 0)
- (org-element--cache-set-timer (current-buffer))))
-
-
-
-;;; The Toolbox
-;;
-;; The first move is to implement a way to obtain the smallest element
-;; containing point. This is the job of `org-element-at-point'. It
-;; basically jumps back to the beginning of section containing point
-;; and proceed, one element after the other, with
-;; `org-element--current-element' until the container is found. Note:
-;; When using `org-element-at-point', secondary values are never
-;; parsed since the function focuses on elements, not on objects.
-;;
-;; At a deeper level, `org-element-context' lists all elements and
-;; objects containing point.
-;;
-;; `org-element-nested-p' and `org-element-swap-A-B' may be used
-;; internally by navigation and manipulation tools.
-
-
-;;;###autoload
-(defun org-element-at-point ()
- "Determine closest element around point.
-
-Return value is a list like (TYPE PROPS) where TYPE is the type
-of the element and PROPS a plist of properties associated to the
-element.
-
-Possible types are defined in `org-element-all-elements'.
-Properties depend on element or object type, but always include
-`:begin', `:end', `:parent' and `:post-blank' properties.
-
-As a special case, if point is at the very beginning of the first
-item in a list or sub-list, returned element will be that list
-instead of the item. Likewise, if point is at the beginning of
-the first row of a table, returned element will be the table
-instead of the first row.
-
-When point is at the end of the buffer, return the innermost
-element ending there."
- (org-with-wide-buffer
- (let ((origin (point)))
- (end-of-line)
- (skip-chars-backward " \r\t\n")
- (cond
- ;; Within blank lines at the beginning of buffer, return nil.
- ((bobp) nil)
- ;; Within blank lines right after a headline, return that
- ;; headline.
- ((org-with-limited-levels (org-at-heading-p))
- (beginning-of-line)
- (org-element-headline-parser (point-max) t))
- ;; Otherwise parse until we find element containing ORIGIN.
- (t
- (when (org-element--cache-active-p)
- (if (not org-element--cache) (org-element-cache-reset)
- (org-element--cache-sync (current-buffer) origin)))
- (org-element--parse-to origin))))))
-
-;;;###autoload
-(defun org-element-context (&optional element)
- "Return smallest element or object around point.
-
-Return value is a list like (TYPE PROPS) where TYPE is the type
-of the element or object and PROPS a plist of properties
-associated to it.
-
-Possible types are defined in `org-element-all-elements' and
-`org-element-all-objects'. Properties depend on element or
-object type, but always include `:begin', `:end', `:parent' and
-`:post-blank'.
-
-As a special case, if point is right after an object and not at
-the beginning of any other object, return that object.
-
-Optional argument ELEMENT, when non-nil, is the closest element
-containing point, as returned by `org-element-at-point'.
-Providing it allows for quicker computation."
- (catch 'objects-forbidden
- (org-with-wide-buffer
- (let* ((pos (point))
- (element (or element (org-element-at-point)))
- (type (org-element-type element))
- (post (org-element-property :post-affiliated element)))
- ;; If point is inside an element containing objects or
- ;; a secondary string, narrow buffer to the container and
- ;; proceed with parsing. Otherwise, return ELEMENT.
- (cond
- ;; At a parsed affiliated keyword, check if we're inside main
- ;; or dual value.
- ((and post (< pos post))
- (beginning-of-line)
- (let ((case-fold-search t)) (looking-at org-element--affiliated-re))
- (cond
- ((not (member-ignore-case (match-string 1)
- org-element-parsed-keywords))
- (throw 'objects-forbidden element))
- ((< (match-end 0) pos)
- (narrow-to-region (match-end 0) (line-end-position)))
- ((and (match-beginning 2)
- (>= pos (match-beginning 2))
- (< pos (match-end 2)))
- (narrow-to-region (match-beginning 2) (match-end 2)))
- (t (throw 'objects-forbidden element)))
- ;; Also change type to retrieve correct restrictions.
- (setq type 'keyword))
- ;; At an item, objects can only be located within tag, if any.
- ((eq type 'item)
- (let ((tag (org-element-property :tag element)))
- (if (or (not tag) (/= (line-beginning-position) post))
- (throw 'objects-forbidden element)
- (beginning-of-line)
- (search-forward tag (line-end-position))
- (goto-char (match-beginning 0))
- (if (and (>= pos (point)) (< pos (match-end 0)))
- (narrow-to-region (point) (match-end 0))
- (throw 'objects-forbidden element)))))
- ;; At an headline or inlinetask, objects are in title.
- ((memq type '(headline inlinetask))
- (let ((case-fold-search nil))
- (goto-char (org-element-property :begin element))
- (looking-at org-complex-heading-regexp)
- (let ((end (match-end 4)))
- (if (not end) (throw 'objects-forbidden element)
- (goto-char (match-beginning 4))
- (when (looking-at org-comment-string)
- (goto-char (match-end 0)))
- (if (>= (point) end) (throw 'objects-forbidden element)
- (narrow-to-region (point) end))))))
- ;; At a paragraph, a table-row or a verse block, objects are
- ;; located within their contents.
- ((memq type '(paragraph table-row verse-block))
- (let ((cbeg (org-element-property :contents-begin element))
- (cend (org-element-property :contents-end element)))
- ;; CBEG is nil for table rules.
- (if (and cbeg cend (>= pos cbeg)
- (or (< pos cend) (and (= pos cend) (eobp))))
- (narrow-to-region cbeg cend)
- (throw 'objects-forbidden element))))
- (t (throw 'objects-forbidden element)))
- (goto-char (point-min))
- (let ((restriction (org-element-restriction type))
- (parent element)
- last)
- (catch 'exit
- (while t
- (let ((next (org-element--object-lex restriction)))
- (when next (org-element-put-property next :parent parent))
- ;; Process NEXT, if any, in order to know if we need to
- ;; skip it, return it or move into it.
- (if (or (not next) (> (org-element-property :begin next) pos))
- (throw 'exit (or last parent))
- (let ((end (org-element-property :end next))
- (cbeg (org-element-property :contents-begin next))
- (cend (org-element-property :contents-end next)))
- (cond
- ;; Skip objects ending before point. Also skip
- ;; objects ending at point unless it is also the
- ;; end of buffer, since we want to return the
- ;; innermost object.
- ((and (<= end pos) (/= (point-max) end))
- (goto-char end)
- ;; For convenience, when object ends at POS,
- ;; without any space, store it in LAST, as we
- ;; will return it if no object starts here.
- (when (and (= end pos)
- (not (memq (char-before) '(?\s ?\t))))
- (setq last next)))
- ;; If POS is within a container object, move into
- ;; that object.
- ((and cbeg cend
- (>= pos cbeg)
- (or (< pos cend)
- ;; At contents' end, if there is no
- ;; space before point, also move into
- ;; object, for consistency with
- ;; convenience feature above.
- (and (= pos cend)
- (or (= (point-max) pos)
- (not (memq (char-before pos)
- '(?\s ?\t)))))))
- (goto-char cbeg)
- (narrow-to-region (point) cend)
- (setq parent next)
- (setq restriction (org-element-restriction next)))
- ;; Otherwise, return NEXT.
- (t (throw 'exit next)))))))))))))
-
-(defun org-element-lineage (blob &optional types with-self)
- "List all ancestors of a given element or object.
-
-BLOB is an object or element.
-
-When optional argument TYPES is a list of symbols, return the
-first element or object in the lineage whose type belongs to that
-list.
-
-When optional argument WITH-SELF is non-nil, lineage includes
-BLOB itself as the first element, and TYPES, if provided, also
-apply to it.
-
-When BLOB is obtained through `org-element-context' or
-`org-element-at-point', only ancestors from its section can be
-found. There is no such limitation when BLOB belongs to a full
-parse tree."
- (let ((up (if with-self blob (org-element-property :parent blob)))
- ancestors)
- (while (and up (not (memq (org-element-type up) types)))
- (unless types (push up ancestors))
- (setq up (org-element-property :parent up)))
- (if types up (nreverse ancestors))))
-
-(defun org-element-nested-p (elem-A elem-B)
- "Non-nil when elements ELEM-A and ELEM-B are nested."
- (let ((beg-A (org-element-property :begin elem-A))
- (beg-B (org-element-property :begin elem-B))
- (end-A (org-element-property :end elem-A))
- (end-B (org-element-property :end elem-B)))
- (or (and (>= beg-A beg-B) (<= end-A end-B))
- (and (>= beg-B beg-A) (<= end-B end-A)))))
-
-(defun org-element-swap-A-B (elem-A elem-B)
- "Swap elements ELEM-A and ELEM-B.
-Assume ELEM-B is after ELEM-A in the buffer. Leave point at the
-end of ELEM-A."
- (goto-char (org-element-property :begin elem-A))
- ;; There are two special cases when an element doesn't start at bol:
- ;; the first paragraph in an item or in a footnote definition.
- (let ((specialp (not (bolp))))
- ;; Only a paragraph without any affiliated keyword can be moved at
- ;; ELEM-A position in such a situation. Note that the case of
- ;; a footnote definition is impossible: it cannot contain two
- ;; paragraphs in a row because it cannot contain a blank line.
- (if (and specialp
- (or (not (eq (org-element-type elem-B) 'paragraph))
- (/= (org-element-property :begin elem-B)
- (org-element-property :contents-begin elem-B))))
- (error "Cannot swap elements"))
- ;; In a special situation, ELEM-A will have no indentation. We'll
- ;; give it ELEM-B's (which will in, in turn, have no indentation).
- (let* ((ind-B (when specialp
- (goto-char (org-element-property :begin elem-B))
- (org-get-indentation)))
- (beg-A (org-element-property :begin elem-A))
- (end-A (save-excursion
- (goto-char (org-element-property :end elem-A))
- (skip-chars-backward " \r\t\n")
- (point-at-eol)))
- (beg-B (org-element-property :begin elem-B))
- (end-B (save-excursion
- (goto-char (org-element-property :end elem-B))
- (skip-chars-backward " \r\t\n")
- (point-at-eol)))
- ;; Store inner overlays responsible for visibility status.
- ;; We also need to store their boundaries as they will be
- ;; removed from buffer.
- (overlays
- (cons
- (delq nil
- (mapcar (lambda (o)
- (and (>= (overlay-start o) beg-A)
- (<= (overlay-end o) end-A)
- (list o (overlay-start o) (overlay-end o))))
- (overlays-in beg-A end-A)))
- (delq nil
- (mapcar (lambda (o)
- (and (>= (overlay-start o) beg-B)
- (<= (overlay-end o) end-B)
- (list o (overlay-start o) (overlay-end o))))
- (overlays-in beg-B end-B)))))
- ;; Get contents.
- (body-A (buffer-substring beg-A end-A))
- (body-B (delete-and-extract-region beg-B end-B)))
- (goto-char beg-B)
- (when specialp
- (setq body-B (replace-regexp-in-string "\\`[ \t]*" "" body-B))
- (indent-to-column ind-B))
- (insert body-A)
- ;; Restore ex ELEM-A overlays.
- (let ((offset (- beg-B beg-A)))
- (dolist (o (car overlays))
- (move-overlay (car o) (+ (nth 1 o) offset) (+ (nth 2 o) offset)))
- (goto-char beg-A)
- (delete-region beg-A end-A)
- (insert body-B)
- ;; Restore ex ELEM-B overlays.
- (dolist (o (cdr overlays))
- (move-overlay (car o) (- (nth 1 o) offset) (- (nth 2 o) offset))))
- (goto-char (org-element-property :end elem-B)))))
-
-
-(provide 'org-element)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-element.el ends here
diff --git a/elpa/org-9.1.14/org-element.elc b/elpa/org-9.1.14/org-element.elc
deleted file mode 100644
index 0953726..0000000
--- a/elpa/org-9.1.14/org-element.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-entities.el b/elpa/org-9.1.14/org-entities.el
deleted file mode 100644
index e291b52..0000000
--- a/elpa/org-9.1.14/org-entities.el
+++ /dev/null
@@ -1,599 +0,0 @@
-;;; org-entities.el --- Support for Special Entities -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>,
-;; Ulf Stegemann <ulf at zeitform dot de>
-;; Keywords: outlines, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;;; Code:
-
-(declare-function org-toggle-pretty-entities "org" ())
-(declare-function org-table-align "org-table" ())
-
-(defgroup org-entities nil
- "Options concerning entities in Org mode."
- :tag "Org Entities"
- :group 'org)
-
-(defun org-entities--user-safe-p (v)
- "Non-nil if V is a safe value for `org-entities-user'."
- (pcase v
- (`nil t)
- (`(,(and (pred stringp)
- (pred (string-match-p "\\`[a-zA-Z][a-zA-Z0-9]*\\'")))
- ,(pred stringp) ,(pred booleanp) ,(pred stringp)
- ,(pred stringp) ,(pred stringp) ,(pred stringp))
- t)
- (_ nil)))
-
-(defcustom org-entities-user nil
- "User-defined entities used in Org to produce special characters.
-Each entry in this list is a list of strings. It associates the name
-of the entity that can be inserted into an Org file as \\name with the
-appropriate replacements for the different export backends. The order
-of the fields is the following
-
-name As a string, without the leading backslash.
-LaTeX replacement In ready LaTeX, no further processing will take place.
-LaTeX mathp Either t or nil. When t this entity needs to be in
- math mode.
-HTML replacement In ready HTML, no further processing will take place.
- Usually this will be an &...; entity.
-ASCII replacement Plain ASCII, no extensions.
-Latin1 replacement Use the special characters available in latin1.
-utf-8 replacement Use the special characters available in utf-8.
-
-If you define new entities here that require specific LaTeX
-packages to be loaded, add these packages to `org-latex-packages-alist'."
- :group 'org-entities
- :version "24.1"
- :type '(repeat
- (list
- (string :tag "name ")
- (string :tag "LaTeX ")
- (boolean :tag "Require LaTeX math?")
- (string :tag "HTML ")
- (string :tag "ASCII ")
- (string :tag "Latin1")
- (string :tag "utf-8 ")))
- :safe #'org-entities--user-safe-p)
-
-(defconst org-entities
- (append
- '("* Letters"
- "** Latin"
- ("Agrave" "\\`{A}" nil "À" "A" "À" "À")
- ("agrave" "\\`{a}" nil "à" "a" "à" "à")
- ("Aacute" "\\'{A}" nil "Á" "A" "Á" "Á")
- ("aacute" "\\'{a}" nil "á" "a" "á" "á")
- ("Acirc" "\\^{A}" nil "Â" "A" "Â" "Â")
- ("acirc" "\\^{a}" nil "â" "a" "â" "â")
- ("Amacr" "\\bar{A}" nil "Ā" "A" "Ã" "Ã")
- ("amacr" "\\bar{a}" nil "ā" "a" "ã" "ã")
- ("Atilde" "\\~{A}" nil "Ã" "A" "Ã" "Ã")
- ("atilde" "\\~{a}" nil "ã" "a" "ã" "ã")
- ("Auml" "\\\"{A}" nil "Ä" "Ae" "Ä" "Ä")
- ("auml" "\\\"{a}" nil "ä" "ae" "ä" "ä")
- ("Aring" "\\AA{}" nil "Å" "A" "Å" "Å")
- ("AA" "\\AA{}" nil "Å" "A" "Å" "Å")
- ("aring" "\\aa{}" nil "å" "a" "å" "å")
- ("AElig" "\\AE{}" nil "Æ" "AE" "Æ" "Æ")
- ("aelig" "\\ae{}" nil "æ" "ae" "æ" "æ")
- ("Ccedil" "\\c{C}" nil "Ç" "C" "Ç" "Ç")
- ("ccedil" "\\c{c}" nil "ç" "c" "ç" "ç")
- ("Egrave" "\\`{E}" nil "È" "E" "È" "È")
- ("egrave" "\\`{e}" nil "è" "e" "è" "è")
- ("Eacute" "\\'{E}" nil "É" "E" "É" "É")
- ("eacute" "\\'{e}" nil "é" "e" "é" "é")
- ("Ecirc" "\\^{E}" nil "Ê" "E" "Ê" "Ê")
- ("ecirc" "\\^{e}" nil "ê" "e" "ê" "ê")
- ("Euml" "\\\"{E}" nil "Ë" "E" "Ë" "Ë")
- ("euml" "\\\"{e}" nil "ë" "e" "ë" "ë")
- ("Igrave" "\\`{I}" nil "Ì" "I" "Ì" "Ì")
- ("igrave" "\\`{i}" nil "ì" "i" "ì" "ì")
- ("Iacute" "\\'{I}" nil "Í" "I" "Í" "Í")
- ("iacute" "\\'{i}" nil "í" "i" "í" "í")
- ("Icirc" "\\^{I}" nil "Î" "I" "Î" "Î")
- ("icirc" "\\^{i}" nil "î" "i" "î" "î")
- ("Iuml" "\\\"{I}" nil "Ï" "I" "Ï" "Ï")
- ("iuml" "\\\"{i}" nil "ï" "i" "ï" "ï")
- ("Ntilde" "\\~{N}" nil "Ñ" "N" "Ñ" "Ñ")
- ("ntilde" "\\~{n}" nil "ñ" "n" "ñ" "ñ")
- ("Ograve" "\\`{O}" nil "Ò" "O" "Ò" "Ò")
- ("ograve" "\\`{o}" nil "ò" "o" "ò" "ò")
- ("Oacute" "\\'{O}" nil "Ó" "O" "Ó" "Ó")
- ("oacute" "\\'{o}" nil "ó" "o" "ó" "ó")
- ("Ocirc" "\\^{O}" nil "Ô" "O" "Ô" "Ô")
- ("ocirc" "\\^{o}" nil "ô" "o" "ô" "ô")
- ("Otilde" "\\~{O}" nil "Õ" "O" "Õ" "Õ")
- ("otilde" "\\~{o}" nil "õ" "o" "õ" "õ")
- ("Ouml" "\\\"{O}" nil "Ö" "Oe" "Ö" "Ö")
- ("ouml" "\\\"{o}" nil "ö" "oe" "ö" "ö")
- ("Oslash" "\\O" nil "Ø" "O" "Ø" "Ø")
- ("oslash" "\\o{}" nil "ø" "o" "ø" "ø")
- ("OElig" "\\OE{}" nil "Œ" "OE" "OE" "Œ")
- ("oelig" "\\oe{}" nil "œ" "oe" "oe" "œ")
- ("Scaron" "\\v{S}" nil "Š" "S" "S" "Š")
- ("scaron" "\\v{s}" nil "š" "s" "s" "š")
- ("szlig" "\\ss{}" nil "ß" "ss" "ß" "ß")
- ("Ugrave" "\\`{U}" nil "Ù" "U" "Ù" "Ù")
- ("ugrave" "\\`{u}" nil "ù" "u" "ù" "ù")
- ("Uacute" "\\'{U}" nil "Ú" "U" "Ú" "Ú")
- ("uacute" "\\'{u}" nil "ú" "u" "ú" "ú")
- ("Ucirc" "\\^{U}" nil "Û" "U" "Û" "Û")
- ("ucirc" "\\^{u}" nil "û" "u" "û" "û")
- ("Uuml" "\\\"{U}" nil "Ü" "Ue" "Ü" "Ü")
- ("uuml" "\\\"{u}" nil "ü" "ue" "ü" "ü")
- ("Yacute" "\\'{Y}" nil "Ý" "Y" "Ý" "Ý")
- ("yacute" "\\'{y}" nil "ý" "y" "ý" "ý")
- ("Yuml" "\\\"{Y}" nil "Ÿ" "Y" "Y" "Ÿ")
- ("yuml" "\\\"{y}" nil "ÿ" "y" "ÿ" "ÿ")
-
- "** Latin (special face)"
- ("fnof" "\\textit{f}" nil "ƒ" "f" "f" "ƒ")
- ("real" "\\Re" t "ℜ" "R" "R" "ℜ")
- ("image" "\\Im" t "ℑ" "I" "I" "ℑ")
- ("weierp" "\\wp" t "℘" "P" "P" "℘")
- ("ell" "\\ell" t "ℓ" "ell" "ell" "ℓ")
- ("imath" "\\imath" t "ı" "[dotless i]" "dotless i" "ı")
- ("jmath" "\\jmath" t "ȷ" "[dotless j]" "dotless j" "ȷ")
-
- "** Greek"
- ("Alpha" "A" nil "Α" "Alpha" "Alpha" "Α")
- ("alpha" "\\alpha" t "α" "alpha" "alpha" "α")
- ("Beta" "B" nil "Β" "Beta" "Beta" "Β")
- ("beta" "\\beta" t "β" "beta" "beta" "β")
- ("Gamma" "\\Gamma" t "Γ" "Gamma" "Gamma" "Γ")
- ("gamma" "\\gamma" t "γ" "gamma" "gamma" "γ")
- ("Delta" "\\Delta" t "Δ" "Delta" "Delta" "Δ")
- ("delta" "\\delta" t "δ" "delta" "delta" "δ")
- ("Epsilon" "E" nil "Ε" "Epsilon" "Epsilon" "Ε")
- ("epsilon" "\\epsilon" t "ε" "epsilon" "epsilon" "ε")
- ("varepsilon" "\\varepsilon" t "ε" "varepsilon" "varepsilon" "ε")
- ("Zeta" "Z" nil "Ζ" "Zeta" "Zeta" "Ζ")
- ("zeta" "\\zeta" t "ζ" "zeta" "zeta" "ζ")
- ("Eta" "H" nil "Η" "Eta" "Eta" "Η")
- ("eta" "\\eta" t "η" "eta" "eta" "η")
- ("Theta" "\\Theta" t "Θ" "Theta" "Theta" "Θ")
- ("theta" "\\theta" t "θ" "theta" "theta" "θ")
- ("thetasym" "\\vartheta" t "ϑ" "theta" "theta" "ϑ")
- ("vartheta" "\\vartheta" t "ϑ" "theta" "theta" "ϑ")
- ("Iota" "I" nil "Ι" "Iota" "Iota" "Ι")
- ("iota" "\\iota" t "ι" "iota" "iota" "ι")
- ("Kappa" "K" nil "Κ" "Kappa" "Kappa" "Κ")
- ("kappa" "\\kappa" t "κ" "kappa" "kappa" "κ")
- ("Lambda" "\\Lambda" t "Λ" "Lambda" "Lambda" "Λ")
- ("lambda" "\\lambda" t "λ" "lambda" "lambda" "λ")
- ("Mu" "M" nil "Μ" "Mu" "Mu" "Μ")
- ("mu" "\\mu" t "μ" "mu" "mu" "μ")
- ("nu" "\\nu" t "ν" "nu" "nu" "ν")
- ("Nu" "N" nil "Ν" "Nu" "Nu" "Ν")
- ("Xi" "\\Xi" t "Ξ" "Xi" "Xi" "Ξ")
- ("xi" "\\xi" t "ξ" "xi" "xi" "ξ")
- ("Omicron" "O" nil "Ο" "Omicron" "Omicron" "Ο")
- ("omicron" "\\textit{o}" nil "ο" "omicron" "omicron" "ο")
- ("Pi" "\\Pi" t "Π" "Pi" "Pi" "Π")
- ("pi" "\\pi" t "π" "pi" "pi" "π")
- ("Rho" "P" nil "Ρ" "Rho" "Rho" "Ρ")
- ("rho" "\\rho" t "ρ" "rho" "rho" "ρ")
- ("Sigma" "\\Sigma" t "Σ" "Sigma" "Sigma" "Σ")
- ("sigma" "\\sigma" t "σ" "sigma" "sigma" "σ")
- ("sigmaf" "\\varsigma" t "ς" "sigmaf" "sigmaf" "ς")
- ("varsigma" "\\varsigma" t "ς" "varsigma" "varsigma" "ς")
- ("Tau" "T" nil "Τ" "Tau" "Tau" "Τ")
- ("Upsilon" "\\Upsilon" t "Υ" "Upsilon" "Upsilon" "Υ")
- ("upsih" "\\Upsilon" t "ϒ" "upsilon" "upsilon" "ϒ")
- ("upsilon" "\\upsilon" t "υ" "upsilon" "upsilon" "υ")
- ("Phi" "\\Phi" t "Φ" "Phi" "Phi" "Φ")
- ("phi" "\\phi" t "φ" "phi" "phi" "ɸ")
- ("varphi" "\\varphi" t "ϕ" "varphi" "varphi" "φ")
- ("Chi" "X" nil "Χ" "Chi" "Chi" "Χ")
- ("chi" "\\chi" t "χ" "chi" "chi" "χ")
- ("acutex" "\\acute x" t "´x" "'x" "'x" "𝑥́")
- ("Psi" "\\Psi" t "Ψ" "Psi" "Psi" "Ψ")
- ("psi" "\\psi" t "ψ" "psi" "psi" "ψ")
- ("tau" "\\tau" t "τ" "tau" "tau" "τ")
- ("Omega" "\\Omega" t "Ω" "Omega" "Omega" "Ω")
- ("omega" "\\omega" t "ω" "omega" "omega" "ω")
- ("piv" "\\varpi" t "ϖ" "omega-pi" "omega-pi" "ϖ")
- ("varpi" "\\varpi" t "ϖ" "omega-pi" "omega-pi" "ϖ")
- ("partial" "\\partial" t "∂" "[partial differential]" "[partial differential]" "∂")
-
- "** Hebrew"
- ("alefsym" "\\aleph" t "ℵ" "aleph" "aleph" "ℵ")
- ("aleph" "\\aleph" t "ℵ" "aleph" "aleph" "ℵ")
- ("gimel" "\\gimel" t "ℷ" "gimel" "gimel" "ℷ")
- ("beth" "\\beth" t "ℶ" "beth" "beth" "ב")
- ("dalet" "\\daleth" t "ℸ" "dalet" "dalet" "ד")
-
- "** Dead languages"
- ("ETH" "\\DH{}" nil "Ð" "D" "Ð" "Ð")
- ("eth" "\\dh{}" nil "ð" "dh" "ð" "ð")
- ("THORN" "\\TH{}" nil "Þ" "TH" "Þ" "Þ")
- ("thorn" "\\th{}" nil "þ" "th" "þ" "þ")
-
- "* Punctuation"
- "** Dots and Marks"
- ("dots" "\\dots{}" nil "…" "..." "..." "…")
- ("cdots" "\\cdots{}" t "⋯" "..." "..." "⋯")
- ("hellip" "\\dots{}" nil "…" "..." "..." "…")
- ("middot" "\\textperiodcentered{}" nil "·" "." "·" "·")
- ("iexcl" "!`" nil "¡" "!" "¡" "¡")
- ("iquest" "?`" nil "¿" "?" "¿" "¿")
-
- "** Dash-like"
- ("shy" "\\-" nil "­" "" "" "")
- ("ndash" "--" nil "–" "-" "-" "–")
- ("mdash" "---" nil "—" "--" "--" "—")
-
- "** Quotations"
- ("quot" "\\textquotedbl{}" nil """ "\"" "\"" "\"")
- ("acute" "\\textasciiacute{}" nil "´" "'" "´" "´")
- ("ldquo" "\\textquotedblleft{}" nil "“" "\"" "\"" "“")
- ("rdquo" "\\textquotedblright{}" nil "”" "\"" "\"" "”")
- ("bdquo" "\\quotedblbase{}" nil "„" "\"" "\"" "„")
- ("lsquo" "\\textquoteleft{}" nil "‘" "`" "`" "‘")
- ("rsquo" "\\textquoteright{}" nil "’" "'" "'" "’")
- ("sbquo" "\\quotesinglbase{}" nil "‚" "," "," "‚")
- ("laquo" "\\guillemotleft{}" nil "«" "<<" "«" "«")
- ("raquo" "\\guillemotright{}" nil "»" ">>" "»" "»")
- ("lsaquo" "\\guilsinglleft{}" nil "‹" "<" "<" "‹")
- ("rsaquo" "\\guilsinglright{}" nil "›" ">" ">" "›")
-
- "* Other"
- "** Misc. (often used)"
- ("circ" "\\^{}" nil "ˆ" "^" "^" "∘")
- ("vert" "\\vert{}" t "|" "|" "|" "|")
- ("vbar" "|" nil "|" "|" "|" "|")
- ("brvbar" "\\textbrokenbar{}" nil "¦" "|" "¦" "¦")
- ("S" "\\S" nil "§" "paragraph" "§" "§")
- ("sect" "\\S" nil "§" "paragraph" "§" "§")
- ("amp" "\\&" nil "&" "&" "&" "&")
- ("lt" "\\textless{}" nil "<" "<" "<" "<")
- ("gt" "\\textgreater{}" nil ">" ">" ">" ">")
- ("tilde" "\\textasciitilde{}" nil "~" "~" "~" "~")
- ("slash" "/" nil "/" "/" "/" "/")
- ("plus" "+" nil "+" "+" "+" "+")
- ("under" "\\_" nil "_" "_" "_" "_")
- ("equal" "=" nil "=" "=" "=" "=")
- ("asciicirc" "\\textasciicircum{}" nil "^" "^" "^" "^")
- ("dagger" "\\textdagger{}" nil "†" "[dagger]" "[dagger]" "†")
- ("dag" "\\dag{}" nil "†" "[dagger]" "[dagger]" "†")
- ("Dagger" "\\textdaggerdbl{}" nil "‡" "[doubledagger]" "[doubledagger]" "‡")
- ("ddag" "\\ddag{}" nil "‡" "[doubledagger]" "[doubledagger]" "‡")
-
- "** Whitespace"
- ("nbsp" "~" nil " " " " "\x00A0" "\x00A0")
- ("ensp" "\\hspace*{.5em}" nil " " " " " " " ")
- ("emsp" "\\hspace*{1em}" nil " " " " " " " ")
- ("thinsp" "\\hspace*{.2em}" nil " " " " " " " ")
-
- "** Currency"
- ("curren" "\\textcurrency{}" nil "¤" "curr." "¤" "¤")
- ("cent" "\\textcent{}" nil "¢" "cent" "¢" "¢")
- ("pound" "\\pounds{}" nil "£" "pound" "£" "£")
- ("yen" "\\textyen{}" nil "¥" "yen" "¥" "¥")
- ("euro" "\\texteuro{}" nil "€" "EUR" "EUR" "€")
- ("EUR" "\\texteuro{}" nil "€" "EUR" "EUR" "€")
- ("dollar" "\\$" nil "$" "$" "$" "$")
- ("USD" "\\$" nil "$" "$" "$" "$")
-
- "** Property Marks"
- ("copy" "\\textcopyright{}" nil "©" "(c)" "©" "©")
- ("reg" "\\textregistered{}" nil "®" "(r)" "®" "®")
- ("trade" "\\texttrademark{}" nil "™" "TM" "TM" "™")
-
- "** Science et al."
- ("minus" "\\minus" t "−" "-" "-" "−")
- ("pm" "\\textpm{}" nil "±" "+-" "±" "±")
- ("plusmn" "\\textpm{}" nil "±" "+-" "±" "±")
- ("times" "\\texttimes{}" nil "×" "*" "×" "×")
- ("frasl" "/" nil "⁄" "/" "/" "⁄")
- ("colon" "\\colon" t ":" ":" ":" ":")
- ("div" "\\textdiv{}" nil "÷" "/" "÷" "÷")
- ("frac12" "\\textonehalf{}" nil "½" "1/2" "½" "½")
- ("frac14" "\\textonequarter{}" nil "¼" "1/4" "¼" "¼")
- ("frac34" "\\textthreequarters{}" nil "¾" "3/4" "¾" "¾")
- ("permil" "\\textperthousand{}" nil "‰" "per thousand" "per thousand" "‰")
- ("sup1" "\\textonesuperior{}" nil "¹" "^1" "¹" "¹")
- ("sup2" "\\texttwosuperior{}" nil "²" "^2" "²" "²")
- ("sup3" "\\textthreesuperior{}" nil "³" "^3" "³" "³")
- ("radic" "\\sqrt{\\,}" t "√" "[square root]" "[square root]" "√")
- ("sum" "\\sum" t "∑" "[sum]" "[sum]" "∑")
- ("prod" "\\prod" t "∏" "[product]" "[n-ary product]" "∏")
- ("micro" "\\textmu{}" nil "µ" "micro" "µ" "µ")
- ("macr" "\\textasciimacron{}" nil "¯" "[macron]" "¯" "¯")
- ("deg" "\\textdegree{}" nil "°" "degree" "°" "°")
- ("prime" "\\prime" t "′" "'" "'" "′")
- ("Prime" "\\prime{}\\prime" t "″" "''" "''" "″")
- ("infin" "\\infty" t "∞" "[infinity]" "[infinity]" "∞")
- ("infty" "\\infty" t "∞" "[infinity]" "[infinity]" "∞")
- ("prop" "\\propto" t "∝" "[proportional to]" "[proportional to]" "∝")
- ("propto" "\\propto" t "∝" "[proportional to]" "[proportional to]" "∝")
- ("not" "\\textlnot{}" nil "¬" "[angled dash]" "¬" "¬")
- ("neg" "\\neg{}" t "¬" "[angled dash]" "¬" "¬")
- ("land" "\\land" t "∧" "[logical and]" "[logical and]" "∧")
- ("wedge" "\\wedge" t "∧" "[logical and]" "[logical and]" "∧")
- ("lor" "\\lor" t "∨" "[logical or]" "[logical or]" "∨")
- ("vee" "\\vee" t "∨" "[logical or]" "[logical or]" "∨")
- ("cap" "\\cap" t "∩" "[intersection]" "[intersection]" "∩")
- ("cup" "\\cup" t "∪" "[union]" "[union]" "∪")
- ("smile" "\\smile" t "⌣" "[cup product]" "[cup product]" "⌣")
- ("frown" "\\frown" t "⌢" "[Cap product]" "[cap product]" "⌢")
- ("int" "\\int" t "∫" "[integral]" "[integral]" "∫")
- ("therefore" "\\therefore" t "∴" "[therefore]" "[therefore]" "∴")
- ("there4" "\\therefore" t "∴" "[therefore]" "[therefore]" "∴")
- ("because" "\\because" t "∵" "[because]" "[because]" "∵")
- ("sim" "\\sim" t "∼" "~" "~" "∼")
- ("cong" "\\cong" t "≅" "[approx. equal to]" "[approx. equal to]" "≅")
- ("simeq" "\\simeq" t "≅" "[approx. equal to]" "[approx. equal to]" "≅")
- ("asymp" "\\asymp" t "≈" "[almost equal to]" "[almost equal to]" "≈")
- ("approx" "\\approx" t "≈" "[almost equal to]" "[almost equal to]" "≈")
- ("ne" "\\ne" t "≠" "[not equal to]" "[not equal to]" "≠")
- ("neq" "\\neq" t "≠" "[not equal to]" "[not equal to]" "≠")
- ("equiv" "\\equiv" t "≡" "[identical to]" "[identical to]" "≡")
-
- ("triangleq" "\\triangleq" t "≜" "[defined to]" "[defined to]" "≜")
- ("le" "\\le" t "≤" "<=" "<=" "≤")
- ("leq" "\\le" t "≤" "<=" "<=" "≤")
- ("ge" "\\ge" t "≥" ">=" ">=" "≥")
- ("geq" "\\ge" t "≥" ">=" ">=" "≥")
- ("lessgtr" "\\lessgtr" t "≶" "[less than or greater than]" "[less than or greater than]" "≶")
- ("lesseqgtr" "\\lesseqgtr" t "⋚" "[less than or equal or greater than or equal]" "[less than or equal or greater than or equal]" "⋚")
- ("ll" "\\ll" t "≪" "<<" "<<" "≪")
- ("Ll" "\\lll" t "⋘" "<<<" "<<<" "⋘")
- ("lll" "\\lll" t "⋘" "<<<" "<<<" "⋘")
- ("gg" "\\gg" t "≫" ">>" ">>" "≫")
- ("Gg" "\\ggg" t "⋙" ">>>" ">>>" "⋙")
- ("ggg" "\\ggg" t "⋙" ">>>" ">>>" "⋙")
- ("prec" "\\prec" t "≺" "[precedes]" "[precedes]" "≺")
- ("preceq" "\\preceq" t "≼" "[precedes or equal]" "[precedes or equal]" "≼")
- ("preccurlyeq" "\\preccurlyeq" t "≼" "[precedes or equal]" "[precedes or equal]" "≼")
- ("succ" "\\succ" t "≻" "[succeeds]" "[succeeds]" "≻")
- ("succeq" "\\succeq" t "≽" "[succeeds or equal]" "[succeeds or equal]" "≽")
- ("succcurlyeq" "\\succcurlyeq" t "≽" "[succeeds or equal]" "[succeeds or equal]" "≽")
- ("sub" "\\subset" t "⊂" "[subset of]" "[subset of]" "⊂")
- ("subset" "\\subset" t "⊂" "[subset of]" "[subset of]" "⊂")
- ("sup" "\\supset" t "⊃" "[superset of]" "[superset of]" "⊃")
- ("supset" "\\supset" t "⊃" "[superset of]" "[superset of]" "⊃")
- ("nsub" "\\not\\subset" t "⊄" "[not a subset of]" "[not a subset of" "⊄")
- ("sube" "\\subseteq" t "⊆" "[subset of or equal to]" "[subset of or equal to]" "⊆")
- ("nsup" "\\not\\supset" t "⊅" "[not a superset of]" "[not a superset of]" "⊅")
- ("supe" "\\supseteq" t "⊇" "[superset of or equal to]" "[superset of or equal to]" "⊇")
- ("setminus" "\\setminus" t "∖" "\" "\" "⧵")
- ("forall" "\\forall" t "∀" "[for all]" "[for all]" "∀")
- ("exist" "\\exists" t "∃" "[there exists]" "[there exists]" "∃")
- ("exists" "\\exists" t "∃" "[there exists]" "[there exists]" "∃")
- ("nexist" "\\nexists" t "∃" "[there does not exists]" "[there does not exists]" "∄")
- ("nexists" "\\nexists" t "∃" "[there does not exists]" "[there does not exists]" "∄")
- ("empty" "\\empty" t "∅" "[empty set]" "[empty set]" "∅")
- ("emptyset" "\\emptyset" t "∅" "[empty set]" "[empty set]" "∅")
- ("isin" "\\in" t "∈" "[element of]" "[element of]" "∈")
- ("in" "\\in" t "∈" "[element of]" "[element of]" "∈")
- ("notin" "\\notin" t "∉" "[not an element of]" "[not an element of]" "∉")
- ("ni" "\\ni" t "∋" "[contains as member]" "[contains as member]" "∋")
- ("nabla" "\\nabla" t "∇" "[nabla]" "[nabla]" "∇")
- ("ang" "\\angle" t "∠" "[angle]" "[angle]" "∠")
- ("angle" "\\angle" t "∠" "[angle]" "[angle]" "∠")
- ("perp" "\\perp" t "⊥" "[up tack]" "[up tack]" "⊥")
- ("parallel" "\\parallel" t "∥" "||" "||" "∥")
- ("sdot" "\\cdot" t "⋅" "[dot]" "[dot]" "⋅")
- ("cdot" "\\cdot" t "⋅" "[dot]" "[dot]" "⋅")
- ("lceil" "\\lceil" t "⌈" "[left ceiling]" "[left ceiling]" "⌈")
- ("rceil" "\\rceil" t "⌉" "[right ceiling]" "[right ceiling]" "⌉")
- ("lfloor" "\\lfloor" t "⌊" "[left floor]" "[left floor]" "⌊")
- ("rfloor" "\\rfloor" t "⌋" "[right floor]" "[right floor]" "⌋")
- ("lang" "\\langle" t "⟨" "<" "<" "⟨")
- ("rang" "\\rangle" t "⟩" ">" ">" "⟩")
- ("langle" "\\langle" t "⟨" "<" "<" "⟨")
- ("rangle" "\\rangle" t "⟩" ">" ">" "⟩")
- ("hbar" "\\hbar" t "ℏ" "hbar" "hbar" "ℏ")
- ("mho" "\\mho" t "℧" "mho" "mho" "℧")
-
- "** Arrows"
- ("larr" "\\leftarrow" t "←" "<-" "<-" "←")
- ("leftarrow" "\\leftarrow" t "←" "<-" "<-" "←")
- ("gets" "\\gets" t "←" "<-" "<-" "←")
- ("lArr" "\\Leftarrow" t "⇐" "<=" "<=" "⇐")
- ("Leftarrow" "\\Leftarrow" t "⇐" "<=" "<=" "⇐")
- ("uarr" "\\uparrow" t "↑" "[uparrow]" "[uparrow]" "↑")
- ("uparrow" "\\uparrow" t "↑" "[uparrow]" "[uparrow]" "↑")
- ("uArr" "\\Uparrow" t "⇑" "[dbluparrow]" "[dbluparrow]" "⇑")
- ("Uparrow" "\\Uparrow" t "⇑" "[dbluparrow]" "[dbluparrow]" "⇑")
- ("rarr" "\\rightarrow" t "→" "->" "->" "→")
- ("to" "\\to" t "→" "->" "->" "→")
- ("rightarrow" "\\rightarrow" t "→" "->" "->" "→")
- ("rArr" "\\Rightarrow" t "⇒" "=>" "=>" "⇒")
- ("Rightarrow" "\\Rightarrow" t "⇒" "=>" "=>" "⇒")
- ("darr" "\\downarrow" t "↓" "[downarrow]" "[downarrow]" "↓")
- ("downarrow" "\\downarrow" t "↓" "[downarrow]" "[downarrow]" "↓")
- ("dArr" "\\Downarrow" t "⇓" "[dbldownarrow]" "[dbldownarrow]" "⇓")
- ("Downarrow" "\\Downarrow" t "⇓" "[dbldownarrow]" "[dbldownarrow]" "⇓")
- ("harr" "\\leftrightarrow" t "↔" "<->" "<->" "↔")
- ("leftrightarrow" "\\leftrightarrow" t "↔" "<->" "<->" "↔")
- ("hArr" "\\Leftrightarrow" t "⇔" "<=>" "<=>" "⇔")
- ("Leftrightarrow" "\\Leftrightarrow" t "⇔" "<=>" "<=>" "⇔")
- ("crarr" "\\hookleftarrow" t "↵" "<-'" "<-'" "↵")
- ("hookleftarrow" "\\hookleftarrow" t "↵" "<-'" "<-'" "↵")
-
- "** Function names"
- ("arccos" "\\arccos" t "arccos" "arccos" "arccos" "arccos")
- ("arcsin" "\\arcsin" t "arcsin" "arcsin" "arcsin" "arcsin")
- ("arctan" "\\arctan" t "arctan" "arctan" "arctan" "arctan")
- ("arg" "\\arg" t "arg" "arg" "arg" "arg")
- ("cos" "\\cos" t "cos" "cos" "cos" "cos")
- ("cosh" "\\cosh" t "cosh" "cosh" "cosh" "cosh")
- ("cot" "\\cot" t "cot" "cot" "cot" "cot")
- ("coth" "\\coth" t "coth" "coth" "coth" "coth")
- ("csc" "\\csc" t "csc" "csc" "csc" "csc")
- ("deg" "\\deg" t "°" "deg" "deg" "deg")
- ("det" "\\det" t "det" "det" "det" "det")
- ("dim" "\\dim" t "dim" "dim" "dim" "dim")
- ("exp" "\\exp" t "exp" "exp" "exp" "exp")
- ("gcd" "\\gcd" t "gcd" "gcd" "gcd" "gcd")
- ("hom" "\\hom" t "hom" "hom" "hom" "hom")
- ("inf" "\\inf" t "inf" "inf" "inf" "inf")
- ("ker" "\\ker" t "ker" "ker" "ker" "ker")
- ("lg" "\\lg" t "lg" "lg" "lg" "lg")
- ("lim" "\\lim" t "lim" "lim" "lim" "lim")
- ("liminf" "\\liminf" t "liminf" "liminf" "liminf" "liminf")
- ("limsup" "\\limsup" t "limsup" "limsup" "limsup" "limsup")
- ("ln" "\\ln" t "ln" "ln" "ln" "ln")
- ("log" "\\log" t "log" "log" "log" "log")
- ("max" "\\max" t "max" "max" "max" "max")
- ("min" "\\min" t "min" "min" "min" "min")
- ("Pr" "\\Pr" t "Pr" "Pr" "Pr" "Pr")
- ("sec" "\\sec" t "sec" "sec" "sec" "sec")
- ("sin" "\\sin" t "sin" "sin" "sin" "sin")
- ("sinh" "\\sinh" t "sinh" "sinh" "sinh" "sinh")
- ("sup" "\\sup" t "⊃" "sup" "sup" "sup")
- ("tan" "\\tan" t "tan" "tan" "tan" "tan")
- ("tanh" "\\tanh" t "tanh" "tanh" "tanh" "tanh")
-
- "** Signs & Symbols"
- ("bull" "\\textbullet{}" nil "•" "*" "*" "•")
- ("bullet" "\\textbullet{}" nil "•" "*" "*" "•")
- ("star" "\\star" t "*" "*" "*" "⋆")
- ("lowast" "\\ast" t "∗" "*" "*" "∗")
- ("ast" "\\ast" t "∗" "*" "*" "*")
- ("odot" "\\odot" t "o" "[circled dot]" "[circled dot]" "ʘ")
- ("oplus" "\\oplus" t "⊕" "[circled plus]" "[circled plus]" "⊕")
- ("otimes" "\\otimes" t "⊗" "[circled times]" "[circled times]" "⊗")
- ("check" "\\checkmark" t "✓" "[checkmark]" "[checkmark]" "✓")
- ("checkmark" "\\checkmark" t "✓" "[checkmark]" "[checkmark]" "✓")
-
- "** Miscellaneous (seldom used)"
- ("para" "\\P{}" nil "¶" "[pilcrow]" "¶" "¶")
- ("ordf" "\\textordfeminine{}" nil "ª" "_a_" "ª" "ª")
- ("ordm" "\\textordmasculine{}" nil "º" "_o_" "º" "º")
- ("cedil" "\\c{}" nil "¸" "[cedilla]" "¸" "¸")
- ("oline" "\\overline{~}" t "‾" "[overline]" "¯" "‾")
- ("uml" "\\textasciidieresis{}" nil "¨" "[diaeresis]" "¨" "¨")
- ("zwnj" "\\/{}" nil "‌" "" "" "")
- ("zwj" "" nil "‍" "" "" "")
- ("lrm" "" nil "‎" "" "" "")
- ("rlm" "" nil "‏" "" "" "")
-
- "** Smilies"
- ("smiley" "\\ddot\\smile" t "☺" ":-)" ":-)" "☺")
- ("blacksmile" "\\ddot\\smile" t "☻" ":-)" ":-)" "☻")
- ("sad" "\\ddot\\frown" t "☹" ":-(" ":-(" "☹")
- ("frowny" "\\ddot\\frown" t "☹" ":-(" ":-(" "☹")
-
- "** Suits"
- ("clubs" "\\clubsuit" t "♣" "[clubs]" "[clubs]" "♣")
- ("clubsuit" "\\clubsuit" t "♣" "[clubs]" "[clubs]" "♣")
- ("spades" "\\spadesuit" t "♠" "[spades]" "[spades]" "♠")
- ("spadesuit" "\\spadesuit" t "♠" "[spades]" "[spades]" "♠")
- ("hearts" "\\heartsuit" t "♥" "[hearts]" "[hearts]" "♥")
- ("heartsuit" "\\heartsuit" t "♥" "[hearts]" "[hearts]" "♥")
- ("diams" "\\diamondsuit" t "♦" "[diamonds]" "[diamonds]" "◆")
- ("diamondsuit" "\\diamondsuit" t "♦" "[diamonds]" "[diamonds]" "◆")
- ("diamond" "\\diamondsuit" t "⋄" "[diamond]" "[diamond]" "◆")
- ("Diamond" "\\diamondsuit" t "⋄" "[diamond]" "[diamond]" "◆")
- ("loz" "\\lozenge" t "◊" "[lozenge]" "[lozenge]" "⧫"))
- ;; Add "\_ "-entity family for spaces.
- (let (space-entities html-spaces (entity "_"))
- (dolist (n (number-sequence 1 20) (nreverse space-entities))
- (let ((spaces (make-string n ?\s)))
- (push (list (setq entity (concat entity " "))
- (format "\\hspace*{%sem}" (* n .5))
- nil
- (setq html-spaces (concat " " html-spaces))
- spaces
- spaces
- (make-string n ?\x2002))
- space-entities)))))
- "Default entities used in Org mode to produce special characters.
-For details see `org-entities-user'.")
-
-(defsubst org-entity-get (name)
- "Get the proper association for NAME from the entity lists.
-This first checks the user list, then the built-in list."
- (or (assoc name org-entities-user)
- (assoc name org-entities)))
-
-;; Helpfunctions to create a table for orgmode.org/worg/org-symbols.org
-
-(defun org-entities-create-table ()
- "Create an Org mode table with all entities."
- (interactive)
- (let ((pos (point)))
- (insert "|Name|LaTeX code|LaTeX|HTML code |HTML|ASCII|Latin1|UTF-8\n|-\n")
- (dolist (e org-entities)
- (pcase e
- (`(,name ,latex ,mathp ,html ,ascii ,latin ,utf8)
- (if (equal ascii "|") (setq ascii "\\vert"))
- (if (equal latin "|") (setq latin "\\vert"))
- (if (equal utf8 "|") (setq utf8 "\\vert"))
- (if (equal ascii "=>") (setq ascii "= >"))
- (if (equal latin "=>") (setq latin "= >"))
- (insert "|" name
- "|" (format "=%s=" latex)
- "|" (format (if mathp "$%s$" "$\\mbox{%s}$") latex)
- "|" (format "=%s=" html) "|" html
- "|" ascii "|" latin "|" utf8
- "|\n"))))
- (goto-char pos)
- (org-table-align)))
-
-(defvar org-pretty-entities) ;; declare defcustom from org
-(defun org-entities-help ()
- "Create a Help buffer with all available entities."
- (interactive)
- (with-output-to-temp-buffer "*Org Entity Help*"
- (princ "Org mode entities\n=================\n\n")
- (let ((ll (append '("* User-defined additions (variable org-entities-user)")
- org-entities-user
- org-entities))
- (lastwasstring t)
- (head (concat
- "\n"
- " Symbol Org entity LaTeX code HTML code\n"
- " -----------------------------------------------------------\n")))
- (dolist (e ll)
- (pcase e
- (`(,name ,latex ,_ ,html ,_ ,_ ,utf8)
- (when lastwasstring
- (princ head)
- (setq lastwasstring nil))
- (princ (format " %-8s \\%-16s %-22s %-13s\n"
- utf8 name latex html)))
- ((pred stringp)
- (princ e)
- (princ "\n")
- (setq lastwasstring t))))))
- (with-current-buffer "*Org Entity Help*"
- (org-mode)
- (when org-pretty-entities
- (org-toggle-pretty-entities)))
- (select-window (get-buffer-window "*Org Entity Help*")))
-
-
-(provide 'org-entities)
-
-;; Local variables:
-;; coding: utf-8
-;; End:
-
-;;; org-entities.el ends here
diff --git a/elpa/org-9.1.14/org-entities.elc b/elpa/org-9.1.14/org-entities.elc
deleted file mode 100644
index 4ebc0ac..0000000
--- a/elpa/org-9.1.14/org-entities.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-eshell.el b/elpa/org-9.1.14/org-eshell.el
deleted file mode 100644
index 8a2e8af..0000000
--- a/elpa/org-9.1.14/org-eshell.el
+++ /dev/null
@@ -1,66 +0,0 @@
-;;; org-eshell.el - Support for Links to Working Directories in Eshell -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2018 Free Software Foundation, Inc.
-
-;; Author: Konrad Hinsen <konrad.hinsen AT fastmail.net>
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Code:
-
-(require 'org)
-(require 'eshell)
-(require 'esh-mode)
-
-(org-link-set-parameters "eshell"
- :follow #'org-eshell-open
- :store #'org-eshell-store-link)
-
-(defun org-eshell-open (link)
- "Switch to am eshell buffer and execute a command line.
- The link can be just a command line (executed in the default
- eshell buffer) or a command line prefixed by a buffer name
- followed by a colon."
- (let* ((buffer-and-command
- (if (string-match "\\([A-Za-z0-9-+*]+\\):\\(.*\\)" link)
- (list (match-string 1 link)
- (match-string 2 link))
- (list eshell-buffer-name link)))
- (eshell-buffer-name (car buffer-and-command))
- (command (cadr buffer-and-command)))
- (if (get-buffer eshell-buffer-name)
- (pop-to-buffer-same-window eshell-buffer-name)
- (eshell))
- (goto-char (point-max))
- (eshell-kill-input)
- (insert command)
- (eshell-send-input)))
-
-(defun org-eshell-store-link ()
- "Store a link that, when opened, switches back to the current eshell buffer
- and the current working directory."
- (when (eq major-mode 'eshell-mode)
- (let* ((command (concat "cd " dired-directory))
- (link (concat (buffer-name) ":" command)))
- (org-store-link-props
- :link (concat "eshell:" link)
- :description command))))
-
-(provide 'org-eshell)
-
-;;; org-eshell.el ends here
diff --git a/elpa/org-9.1.14/org-eshell.elc b/elpa/org-9.1.14/org-eshell.elc
deleted file mode 100644
index 2ac2c3e..0000000
--- a/elpa/org-9.1.14/org-eshell.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-eww.el b/elpa/org-9.1.14/org-eww.el
deleted file mode 100644
index 34c4fca..0000000
--- a/elpa/org-9.1.14/org-eww.el
+++ /dev/null
@@ -1,176 +0,0 @@
-;;; org-eww.el --- Store url and kill from Eww mode for Org -*- lexical-binding: t -*-
-
-;; Copyright (C) 2014-2018 Free Software Foundation, Inc.
-
-;; Author: Marco Wahl <marcowahlsoft>a<gmailcom>
-;; Keywords: link, eww
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-
-;;; Commentary:
-
-;; When this module is active `org-store-link' (often on key C-c l) in
-;; an EWW buffer stores a link to the current url of the eww buffer.
-
-;; In an EWW buffer function `org-eww-copy-for-org-mode' kills either
-;; a region or the whole buffer if no region is set and transforms the
-;; text on the fly so that it can be pasted into an Org buffer with
-;; hot links.
-
-;; C-c C-x C-w (and also C-c C-x M-w) trigger
-;; `org-eww-copy-for-org-mode'.
-
-;; Hint: A lot of code of this module comes from module org-w3m which
-;; has been written by Andy Steward based on the idea of Richard
-;; Riley. Thanks!
-
-;; Potential: Since the code for w3m and eww is so similar one could
-;; try to refactor.
-
-
-;;; Code:
-(require 'org)
-(require 'cl-lib)
-
-(defvar eww-current-title)
-(defvar eww-current-url)
-(defvar eww-data)
-(defvar eww-mode-map)
-
-(declare-function eww-current-url "eww")
-
-
-;; Store Org-link in eww-mode buffer
-(org-link-set-parameters "eww" :follow #'eww :store #'org-eww-store-link)
-(defun org-eww-store-link ()
- "Store a link to the url of an EWW buffer."
- (when (eq major-mode 'eww-mode)
- (org-store-link-props
- :type "eww"
- :link (if (< emacs-major-version 25)
- eww-current-url
- (eww-current-url))
- :url (url-view-url t)
- :description (if (< emacs-major-version 25)
- (or eww-current-title eww-current-url)
- (or (plist-get eww-data :title)
- (eww-current-url))))))
-
-
-;; Some auxiliary functions concerning links in eww buffers
-(defun org-eww-goto-next-url-property-change ()
- "Move to the start of next link if exists.
-Otherwise point is not moved. Return point."
- (goto-char
- (or (next-single-property-change (point) 'shr-url)
- (point))))
-
-(defun org-eww-has-further-url-property-change-p ()
- "Non-nil if there is a next url property change."
- (save-excursion
- (not (eq (point) (org-eww-goto-next-url-property-change)))))
-
-(defun org-eww-url-below-point ()
- "Return the url below point if there is an url; otherwise, return nil."
- (get-text-property (point) 'shr-url))
-
-
-(defun org-eww-copy-for-org-mode ()
- "Copy current buffer content or active region with `org-mode' style links.
-This will encode `link-title' and `link-location' with
-`org-make-link-string' and insert the transformed text into the
-kill ring, so that it can be yanked into an Org mode buffer with
-links working correctly.
-
-Further lines starting with a star get quoted with a comma to
-keep the structure of the Org file."
- (interactive)
- (let* ((regionp (org-region-active-p))
- (transform-start (point-min))
- (transform-end (point-max))
- return-content
- link-location link-title
- temp-position out-bound)
- (when regionp
- (setq transform-start (region-beginning))
- (setq transform-end (region-end))
- ;; Deactivate mark if current mark is activate.
- (when (fboundp 'deactivate-mark) (deactivate-mark)))
- (message "Transforming links...")
- (save-excursion
- (goto-char transform-start)
- (while (and (not out-bound) ; still inside region to copy
- (org-eww-has-further-url-property-change-p)) ; there is a next link
- ;; Store current point before jump next anchor.
- (setq temp-position (point))
- ;; Move to next anchor when current point is not at anchor.
- (or (org-eww-url-below-point)
- (org-eww-goto-next-url-property-change))
- (cl-assert
- (org-eww-url-below-point) t
- "program logic error: point must have an url below but it hasn't")
- (if (<= (point) transform-end) ; if point is inside transform bound
- (progn
- ;; Get content between two links.
- (when (< temp-position (point))
- (setq return-content (concat return-content
- (buffer-substring
- temp-position (point)))))
- ;; Get link location at current point.
- (setq link-location (org-eww-url-below-point))
- ;; Get link title at current point.
- (setq link-title
- (buffer-substring
- (point)
- (org-eww-goto-next-url-property-change)))
- ;; concat `org-mode' style url to `return-content'.
- (setq return-content
- (concat return-content
- (if (org-string-nw-p link-location)
- ;; Hint: link-location is different
- ;; for form-elements.
- (org-make-link-string link-location link-title)
- link-title))))
- (goto-char temp-position) ; reset point before jump next anchor
- (setq out-bound t))) ; for break out `while' loop
- ;; Add the rest until end of the region to be copied.
- (when (< (point) transform-end)
- (setq return-content
- (concat return-content
- (buffer-substring (point) transform-end))))
- ;; Quote lines starting with *.
- (org-kill-new (replace-regexp-in-string "^\\*" ",*" return-content))
- (message "Transforming links...done, use C-y to insert text into Org mode file"))))
-
-
-;; Additional keys for eww-mode
-
-(defun org-eww-extend-eww-keymap ()
- (define-key eww-mode-map "\C-c\C-x\M-w" 'org-eww-copy-for-org-mode)
- (define-key eww-mode-map "\C-c\C-x\C-w" 'org-eww-copy-for-org-mode))
-
-(when (and (boundp 'eww-mode-map)
- (keymapp eww-mode-map)) ; eww is already up.
- (org-eww-extend-eww-keymap))
-
-(add-hook 'eww-mode-hook #'org-eww-extend-eww-keymap)
-
-
-(provide 'org-eww)
-
-;;; org-eww.el ends here
diff --git a/elpa/org-9.1.14/org-eww.elc b/elpa/org-9.1.14/org-eww.elc
deleted file mode 100644
index 83bf1ed..0000000
--- a/elpa/org-9.1.14/org-eww.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-faces.el b/elpa/org-9.1.14/org-faces.el
deleted file mode 100644
index 750ada1..0000000
--- a/elpa/org-9.1.14/org-faces.el
+++ /dev/null
@@ -1,653 +0,0 @@
-;;; org-faces.el --- Face definitions -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the face definitions for Org.
-
-;;; Code:
-
-(defgroup org-faces nil
- "Faces in Org mode."
- :tag "Org Faces"
- :group 'org-appearance)
-
-(defface org-default '((t :inherit default))
- "Face used for default text."
- :group 'org-faces)
-
-(defface org-hide
- '((((background light)) (:foreground "white"))
- (((background dark)) (:foreground "black")))
- "Face used to hide leading stars in headlines.
-The foreground color of this face should be equal to the background
-color of the frame."
- :group 'org-faces)
-
-(defface org-level-1 '((t :inherit outline-1))
- "Face used for level 1 headlines."
- :group 'org-faces)
-
-(defface org-level-2 '((t :inherit outline-2))
- "Face used for level 2 headlines."
- :group 'org-faces)
-
-(defface org-level-3 '((t :inherit outline-3))
- "Face used for level 3 headlines."
- :group 'org-faces)
-
-(defface org-level-4 '((t :inherit outline-4))
- "Face used for level 4 headlines."
- :group 'org-faces)
-
-(defface org-level-5 '((t :inherit outline-5))
- "Face used for level 5 headlines."
- :group 'org-faces)
-
-(defface org-level-6 '((t :inherit outline-6))
- "Face used for level 6 headlines."
- :group 'org-faces)
-
-(defface org-level-7 '((t :inherit outline-7))
- "Face used for level 7 headlines."
- :group 'org-faces)
-
-(defface org-level-8 '((t :inherit outline-8))
- "Face used for level 8 headlines."
- :group 'org-faces)
-
-(defface org-special-keyword '((t :inherit font-lock-keyword-face))
- "Face used for special keywords."
- :group 'org-faces)
-
-(defface org-drawer ;Copied from `font-lock-function-name-face'
- '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
- (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
- (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
- (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
- (((class color) (min-colors 8)) (:foreground "blue" :bold t))
- (t (:bold t)))
- "Face used for drawers."
- :group 'org-faces)
-
-(defface org-property-value nil
- "Face used for the value of a property."
- :group 'org-faces)
-
-(defface org-column
- '((((class color) (min-colors 16) (background light))
- (:background "grey90" :weight normal :slant normal :strike-through nil
- :underline nil))
- (((class color) (min-colors 16) (background dark))
- (:background "grey30" :weight normal :slant normal :strike-through nil
- :underline nil))
- (((class color) (min-colors 8))
- (:background "cyan" :foreground "black"
- :weight normal :slant normal :strike-through nil
- :underline nil))
- (t (:inverse-video t)))
- "Face for column display of entry properties.
-This is actually only part of the face definition for the text in column view.
-The following faces apply, with this priority.
-
-1. The color of the reference face. This is normally the level fact that
- is used in the outline. In agenda-mode, it will be the face of the
- first character in the line. The color is explicitly retained to
- make sure that the column line still looks a bit like the structure
- line it is masking.
-
-2. The `org-column' face.
-
-3. The remaining properties of the reference face.
-
-Since column view works by putting overlays with a display property
-over individual characters in the buffer, the face of the underlining
-character (this might for example be the a TODO keyword) might still
-shine through in some properties. So when your column view looks
-funny, with \"random\" colors, weight, strike-through, try to explicitly
-set the properties in the `org-column' face. For example, set
-:underline to nil, or the :slant to `normal'."
- :group 'org-faces)
-
-(defface org-column-title
- '((((class color) (min-colors 16) (background light))
- (:background "grey90" :underline t :weight bold))
- (((class color) (min-colors 16) (background dark))
- (:background "grey30" :underline t :weight bold))
- (((class color) (min-colors 8))
- (:background "cyan" :foreground "black" :underline t :weight bold))
- (t (:inverse-video t)))
- "Face for column display of entry properties."
- :group 'org-faces)
-
-(defface org-agenda-column-dateline '((t :inherit org-column))
- "Face used in agenda column view for datelines with summaries."
- :group 'org-faces)
-
-(defface org-warning '((t :inherit font-lock-warning-face))
- "Face for deadlines and TODO keywords."
- :group 'org-faces)
-
-(defface org-archived '((t :inherit shadow))
- "Face for headline with the ARCHIVE tag."
- :group 'org-faces)
-
-(defface org-link '((t :inherit link))
- "Face for links."
- :group 'org-faces)
-
-(defface org-footnote
- '((((class color) (background light)) (:foreground "Purple" :underline t))
- (((class color) (background dark)) (:foreground "Cyan" :underline t))
- (t (:underline t)))
- "Face for footnotes."
- :group 'org-faces)
-
-(defface org-ellipsis
- '((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t))
- (((class color) (background dark)) (:foreground "LightGoldenrod" :underline t))
- (t (:strike-through t)))
- "Face for the ellipsis in folded text."
- :group 'org-faces)
-
-(defface org-target
- '((((class color) (background light)) (:underline t))
- (((class color) (background dark)) (:underline t))
- (t (:underline t)))
- "Face for link targets."
- :group 'org-faces)
-
-(defface org-date
- '((((class color) (background light)) (:foreground "Purple" :underline t))
- (((class color) (background dark)) (:foreground "Cyan" :underline t))
- (t (:underline t)))
- "Face for date/time stamps."
- :group 'org-faces)
-
-(defface org-date-selected
- '((((class color) (min-colors 16) (background light)) (:foreground "Red1" :inverse-video t))
- (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :inverse-video t))
- (((class color) (min-colors 8) (background light)) (:foreground "red" :inverse-video t))
- (((class color) (min-colors 8) (background dark)) (:foreground "red" :inverse-video t))
- (t (:inverse-video t)))
- "Face for highlighting the calendar day when using `org-read-date'.
-Using a bold face here might cause discrepancies while displaying the
-calendar."
- :group 'org-faces)
-
-(defface org-sexp-date
- '((((class color) (background light)) (:foreground "Purple"))
- (((class color) (background dark)) (:foreground "Cyan"))
- (t (:underline t)))
- "Face for diary-like sexp date specifications."
- :group 'org-faces)
-
-(defface org-tag '((t (:bold t)))
- "Default face for tags.
-Note that the variable `org-tag-faces' can be used to overrule this face for
-specific tags."
- :group 'org-faces)
-
-(defface org-list-dt '((t (:bold t)))
- "Default face for definition terms in lists."
- :group 'org-faces)
-
-(defface org-todo ;Copied from `font-lock-warning-face'
- '((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold t))
- (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :bold t))
- (((class color) (min-colors 8) (background light)) (:foreground "red" :bold t))
- (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t))
- (t (:inverse-video t :bold t)))
- "Face for TODO keywords."
- :group 'org-faces)
-
-(defface org-done ;Copied from `font-lock-type-face'
- '((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen" :bold t))
- (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen" :bold t))
- (((class color) (min-colors 8)) (:foreground "green"))
- (t (:bold t)))
- "Face used for todo keywords that indicate DONE items."
- :group 'org-faces)
-
-(defface org-agenda-done ;Copied from `font-lock-type-face'
- '((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen"))
- (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen"))
- (((class color) (min-colors 8)) (:foreground "green"))
- (t (:bold nil)))
- "Face used in agenda, to indicate lines switched to DONE.
-This face is used to de-emphasize items that where brightly colored in the
-agenda because they were things to do, or overdue. The DONE state itself
-is of course immediately visible, but for example a passed deadline is
-\(by default) very bright read. This face could be simply the default face
-of the frame, for example."
- :group 'org-faces)
-
-(defface org-headline-done ;Copied from `font-lock-string-face'
- '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown"))
- (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon"))
- (((class color) (min-colors 8) (background light)) (:bold nil)))
- "Face used to indicate that a headline is DONE.
-This face is only used if `org-fontify-done-headline' is set. If applies
-to the part of the headline after the DONE keyword."
- :group 'org-faces)
-
-(defcustom org-faces-easy-properties
- '((todo . :foreground) (tag . :foreground) (priority . :foreground))
- "The property changes by easy faces.
-This is an alist, the keys show the area of application, the values
-can be `:foreground' or `:background'. A color string for special
-keywords will then be interpreted as either foreground or background
-color."
- :group 'org-faces
- :group 'org-todo
- :version "24.1"
- :type '(repeat
- (cons (choice (const todo) (const tag) (const priority))
- (choice (const :foreground) (const :background)))))
-
-(defcustom org-todo-keyword-faces nil
- "Faces for specific TODO keywords.
-This is a list of cons cells, with TODO keywords in the car
-and faces in the cdr. The face can be a symbol, a color
-as a string (in which case the rest is inherited from the `org-todo' face),
-or a property list of attributes, like
- (:foreground \"blue\" :weight bold :underline t).
-If it is a color string, the variable `org-faces-easy-properties'
-determines if it is a foreground or a background color."
- :group 'org-faces
- :group 'org-todo
- :type '(repeat
- (cons
- (string :tag "Keyword")
- (choice :tag "Face "
- (string :tag "Color")
- (sexp :tag "Face")))))
-
-(defface org-priority '((t :inherit font-lock-keyword-face))
- "Face used for priority cookies."
- :group 'org-faces)
-
-(defcustom org-priority-faces nil
- "Faces for specific Priorities.
-This is a list of cons cells, with priority character in the car
-and faces in the cdr. The face can be a symbol, a color
-as a string, or a property list of attributes, like
- (:foreground \"blue\" :weight bold :underline t).
-If it is a color string, the variable `org-faces-easy-properties'
-determines if it is a foreground or a background color."
- :group 'org-faces
- :group 'org-todo
- :type '(repeat
- (cons
- (character :tag "Priority")
- (choice :tag "Face "
- (string :tag "Color")
- (sexp :tag "Face")))))
-
-(defvar org-tags-special-faces-re nil)
-(defun org-set-tag-faces (var value)
- (set var value)
- (if (not value)
- (setq org-tags-special-faces-re nil)
- (setq org-tags-special-faces-re
- (concat ":\\(" (mapconcat 'car value "\\|") "\\):"))))
-
-(defface org-checkbox '((t :inherit bold))
- "Face for checkboxes."
- :group 'org-faces)
-
-(defface org-checkbox-statistics-todo '((t (:inherit org-todo)))
- "Face used for unfinished checkbox statistics."
- :group 'org-faces)
-
-(defface org-checkbox-statistics-done '((t (:inherit org-done)))
- "Face used for finished checkbox statistics."
- :group 'org-faces)
-
-(defcustom org-tag-faces nil
- "Faces for specific tags.
-This is a list of cons cells, with tags in the car and faces in the cdr.
-The face can be a symbol, a foreground color (in which case the rest is
-inherited from the `org-tag' face) or a property list of attributes,
-like (:foreground \"blue\" :weight bold :underline t).
-If you set this variable through customize, it will immediately be effective
-in new buffers and in modified lines.
-If you set it with Lisp, a restart of Emacs is required to activate the
-changes."
- :group 'org-faces
- :group 'org-tags
- :set 'org-set-tag-faces
- :type '(repeat
- (cons
- (string :tag "Tag ")
- (choice :tag "Face"
- (string :tag "Foreground color")
- (sexp :tag "Face")))))
-
-(defface org-table ;Copied from `font-lock-function-name-face'
- '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
- (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
- (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
- (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
- (((class color) (min-colors 8) (background light)) (:foreground "blue"))
- (((class color) (min-colors 8) (background dark))))
- "Face used for tables."
- :group 'org-faces)
-
-(defface org-formula
- '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
- (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1"))
- (((class color) (min-colors 8) (background light)) (:foreground "red"))
- (((class color) (min-colors 8) (background dark)) (:foreground "red"))
- (t (:bold t :italic t)))
- "Face for formulas."
- :group 'org-faces)
-
-(defface org-code '((t :inherit shadow))
- "Face for fixed-width text like code snippets."
- :group 'org-faces
- :version "22.1")
-
-(defface org-meta-line '((t :inherit font-lock-comment-face))
- "Face for meta lines starting with \"#+\"."
- :group 'org-faces
- :version "22.1")
-
-(defface org-document-title
- '((((class color) (background light)) (:foreground "midnight blue" :weight bold))
- (((class color) (background dark)) (:foreground "pale turquoise" :weight bold))
- (t (:weight bold)))
- "Face for document title, i.e. that which follows the #+TITLE: keyword."
- :group 'org-faces)
-
-(defface org-document-info
- '((((class color) (background light)) (:foreground "midnight blue"))
- (((class color) (background dark)) (:foreground "pale turquoise"))
- (t nil))
- "Face for document date, author and email; i.e. that which
-follows a #+DATE:, #+AUTHOR: or #+EMAIL: keyword."
- :group 'org-faces)
-
-(defface org-document-info-keyword '((t :inherit shadow))
- "Face for #+TITLE:, #+AUTHOR:, #+EMAIL: and #+DATE: keywords."
- :group 'org-faces)
-
-(defface org-block '((t :inherit shadow))
- "Face text in #+begin ... #+end blocks.
-For source-blocks `org-src-block-faces' takes precedence.
-See also `org-fontify-quote-and-verse-blocks'."
- :group 'org-faces
- :version "26.1")
-
-(defface org-block-begin-line '((t (:inherit org-meta-line)))
- "Face used for the line delimiting the begin of source blocks."
- :group 'org-faces)
-
-(defface org-block-end-line '((t (:inherit org-block-begin-line)))
- "Face used for the line delimiting the end of source blocks."
- :group 'org-faces)
-
-(defface org-verbatim '((t (:inherit shadow)))
- "Face for fixed-with text like code snippets"
- :group 'org-faces
- :version "22.1")
-
-(defface org-quote '((t (:inherit org-block)))
- "Face for #+BEGIN_QUOTE ... #+END_QUOTE blocks."
- :group 'org-faces)
-
-(defface org-verse '((t (:inherit org-block)))
- "Face for #+BEGIN_VERSE ... #+END_VERSE blocks."
- :group 'org-faces)
-
-(defcustom org-fontify-quote-and-verse-blocks nil
- "Non-nil means, add a special face to #+begin_quote and #+begin_verse block.
-When nil, format these as normal Org. This is the default, because the
-content of these blocks will still be treated as Org syntax."
- :group 'org-faces
- :version "24.1"
- :type 'boolean)
-
-(defface org-clock-overlay ;Copied from `secondary-selection'
- '((((class color) (min-colors 88) (background light))
- (:background "LightGray" :foreground "black"))
- (((class color) (min-colors 88) (background dark))
- (:background "SkyBlue4" :foreground "white"))
- (((class color) (min-colors 16) (background light))
- (:background "gray" :foreground "black"))
- (((class color) (min-colors 16) (background dark))
- (:background "SkyBlue4" :foreground "white"))
- (((class color) (min-colors 8))
- (:background "cyan" :foreground "black"))
- (t (:inverse-video t)))
- "Basic face for displaying the secondary selection."
- :group 'org-faces)
-
-(defface org-agenda-structure ;Copied from `font-lock-function-name-face'
- '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
- (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
- (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
- (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
- (((class color) (min-colors 8)) (:foreground "blue" :bold t))
- (t (:bold t)))
- "Face used in agenda for captions and dates."
- :group 'org-faces)
-
-(defface org-agenda-date '((t (:inherit org-agenda-structure)))
- "Face used in agenda for normal days."
- :group 'org-faces)
-
-(defface org-agenda-date-today
- '((t (:inherit org-agenda-date :weight bold :italic t)))
- "Face used in agenda for today."
- :group 'org-faces)
-
-(defface org-agenda-clocking '((t (:inherit secondary-selection)))
- "Face marking the current clock item in the agenda."
- :group 'org-faces)
-
-(defface org-agenda-date-weekend '((t (:inherit org-agenda-date :weight bold)))
- "Face used in agenda for weekend days.
-
-See the variable `org-agenda-weekend-days' for a definition of
-which days belong to the weekend."
- :group 'org-faces)
-
-(defface org-scheduled
- '((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen"))
- (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen"))
- (((class color) (min-colors 8)) (:foreground "green"))
- (t (:bold t :italic t)))
- "Face for items scheduled for a certain day."
- :group 'org-faces)
-
-(defface org-scheduled-today
- '((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen"))
- (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen"))
- (((class color) (min-colors 8)) (:foreground "green"))
- (t (:bold t :italic t)))
- "Face for items scheduled for a certain day."
- :group 'org-faces)
-
-(defface org-agenda-dimmed-todo-face
- '((((background light)) (:foreground "grey50"))
- (((background dark)) (:foreground "grey50")))
- "Face used to dim blocked tasks in the agenda."
- :group 'org-faces)
-
-(defface org-scheduled-previously
- '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
- (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1"))
- (((class color) (min-colors 8) (background light)) (:foreground "red"))
- (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t))
- (t (:bold t)))
- "Face for items scheduled previously, and not yet done."
- :group 'org-faces)
-
-(defface org-upcoming-deadline
- '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
- (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1"))
- (((class color) (min-colors 8) (background light)) (:foreground "red"))
- (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t))
- (t (:bold t)))
- "Face for items scheduled previously, and not yet done."
- :group 'org-faces)
-
-(defcustom org-agenda-deadline-faces
- '((1.0 . org-warning)
- (0.5 . org-upcoming-deadline)
- (0.0 . default))
- "Faces for showing deadlines in the agenda.
-This is a list of cons cells. The cdr of each cell is a face to be used,
-and it can also just be like \\='(:foreground \"yellow\").
-Each car is a fraction of the head-warning time that must have passed for
-this the face in the cdr to be used for display. The numbers must be
-given in descending order. The head-warning time is normally taken
-from `org-deadline-warning-days', but can also be specified in the deadline
-timestamp itself, like this:
-
- DEADLINE: <2007-08-13 Mon -8d>
-
-You may use d for days, w for weeks, m for months and y for years. Months
-and years will only be treated in an approximate fashion (30.4 days for a
-month and 365.24 days for a year)."
- :group 'org-faces
- :group 'org-agenda-daily/weekly
- :type '(repeat
- (cons
- (number :tag "Fraction of head-warning time passed")
- (sexp :tag "Face"))))
-
-(defface org-agenda-restriction-lock
- '((((class color) (min-colors 88) (background light)) (:background "#eeeeee"))
- (((class color) (min-colors 88) (background dark)) (:background "#1C1C1C"))
- (((class color) (min-colors 16) (background light)) (:background "#eeeeee"))
- (((class color) (min-colors 16) (background dark)) (:background "#1C1C1C"))
- (((class color) (min-colors 8)) (:background "cyan" :foreground "black"))
- (t (:inverse-video t)))
- "Face for showing the agenda restriction lock."
- :group 'org-faces)
-
-(defface org-agenda-filter-tags '((t :inherit mode-line))
- "Face for tag(s) in the mode-line when filtering the agenda."
- :group 'org-faces)
-
-(defface org-agenda-filter-regexp '((t :inherit mode-line))
- "Face for regexp(s) in the mode-line when filtering the agenda."
- :group 'org-faces)
-
-(defface org-agenda-filter-category '((t :inherit mode-line))
- "Face for categories in the mode-line when filtering the agenda."
- :group 'org-faces)
-
-(defface org-agenda-filter-effort '((t :inherit mode-line))
- "Face for effort in the mode-line when filtering the agenda."
- :group 'org-faces)
-
-(defface org-time-grid ;Copied from `font-lock-variable-name-face'
- '((((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod"))
- (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod"))
- (((class color) (min-colors 8)) (:foreground "yellow" :weight light)))
- "Face used for time grids."
- :group 'org-faces)
-
-(defface org-agenda-current-time '((t (:inherit org-time-grid)))
- "Face used to show the current time in the time grid."
- :group 'org-faces)
-
-(defface org-agenda-diary '((t :inherit default))
- "Face used for agenda entries that come from the Emacs diary."
- :group 'org-faces)
-
-(defface org-agenda-calendar-event '((t :inherit default))
- "Face used to show events and appointments in the agenda."
- :group 'org-faces)
-
-(defface org-agenda-calendar-sexp '((t :inherit default))
- "Face used to show events computed from a S-expression."
- :group 'org-faces)
-
-(defconst org-level-faces
- '(org-level-1 org-level-2 org-level-3 org-level-4
- org-level-5 org-level-6 org-level-7 org-level-8))
-
-(defcustom org-n-level-faces (length org-level-faces)
- "The number of different faces to be used for headlines.
-Org mode defines 8 different headline faces, so this can be at most 8.
-If it is less than 8, the level-1 face gets re-used for level N+1 etc."
- :type 'integer
- :group 'org-faces)
-
-(defcustom org-cycle-level-faces t
- "Non-nil means level styles cycle after level `org-n-level-faces'.
-Then so level org-n-level-faces+1 is styled like level 1.
-If nil, then all levels >=org-n-level-faces are styled like
-level org-n-level-faces"
- :group 'org-appearance
- :group 'org-faces
- :version "24.1"
- :type 'boolean)
-
-(defface org-latex-and-related
- (let ((font (cond ((assq :inherit custom-face-attributes)
- '(:inherit underline))
- (t '(:underline t)))))
- `((((class grayscale) (background light))
- (:foreground "DimGray" ,@font))
- (((class grayscale) (background dark))
- (:foreground "LightGray" ,@font))
- (((class color) (background light))
- (:foreground "SaddleBrown"))
- (((class color) (background dark))
- (:foreground "burlywood"))
- (t (,@font))))
- "Face used to highlight LaTeX data, entities and sub/superscript."
- :group 'org-faces
- :version "24.4"
- :package-version '(Org . "8.0"))
-
-(defface org-macro '((t :inherit org-latex-and-related))
- "Face for macros."
- :group 'org-faces
- :version "24.4"
- :package-version '(Org . "8.0"))
-
-(defface org-tag-group '((t :inherit org-tag))
- "Face for group tags."
- :group 'org-faces
- :version "24.4"
- :package-version '(Org . "8.0"))
-
-(defface org-mode-line-clock '((t (:inherit mode-line)))
- "Face used for clock display in mode line."
- :group 'org-faces)
-
-(defface org-mode-line-clock-overrun
- '((t (:inherit mode-line :background "red")))
- "Face used for clock display for overrun tasks in mode line."
- :group 'org-faces)
-
-(provide 'org-faces)
-
-;;; org-faces.el ends here
diff --git a/elpa/org-9.1.14/org-faces.elc b/elpa/org-9.1.14/org-faces.elc
deleted file mode 100644
index bd927ad..0000000
--- a/elpa/org-9.1.14/org-faces.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-feed.el b/elpa/org-9.1.14/org-feed.el
deleted file mode 100644
index fde19e6..0000000
--- a/elpa/org-9.1.14/org-feed.el
+++ /dev/null
@@ -1,720 +0,0 @@
-;;; org-feed.el --- Add RSS feed items to Org files -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-;;
-;; This module allows entries to be created and changed in an Org mode
-;; file triggered by items in an RSS feed. The basic functionality
-;; is geared toward simply adding new items found in a feed as
-;; outline nodes to an Org file. Using hooks, arbitrary actions can
-;; be triggered for new or changed items.
-;;
-;; Selecting feeds and target locations
-;; ------------------------------------
-;;
-;; This module is configured through a single variable, `org-feed-alist'.
-;; Here is an example, using a notes/tasks feed from reQall.com.
-;;
-;; (setq org-feed-alist
-;; '(("ReQall"
-;; "http://www.reqall.com/user/feeds/rss/a1b2c3....."
-;; "~/org/feeds.org" "ReQall Entries")
-;;
-;; With this setup, the command `M-x org-feed-update-all' will
-;; collect new entries in the feed at the given URL and create
-;; entries as subheadings under the "ReQall Entries" heading in the
-;; file "~/org/feeds.org". Each feed should normally have its own
-;; heading - however see the `:drawer' parameter.
-;;
-;; Besides these standard elements that need to be specified for each
-;; feed, keyword-value pairs can set additional options. For example,
-;; to de-select transitional entries with a title containing
-;;
-;; "reQall is typing what you said",
-;;
-;; you could use the `:filter' argument:
-;;
-;; (setq org-feed-alist
-;; '(("ReQall"
-;; "http://www.reqall.com/user/feeds/rss/a1b2c3....."
-;; "~/org/feeds.org" "ReQall Entries"
-;; :filter my-reqall-filter)))
-;;
-;; (defun my-reqall-filter (e)
-;; (if (string-match "reQall is typing what you said"
-;; (plist-get e :title))
-;; nil
-;; e))
-;;
-;; See the docstring for `org-feed-alist' for more details.
-;;
-;;
-;; Keeping track of previously added entries
-;; -----------------------------------------
-;;
-;; Since Org allows you to delete, archive, or move outline nodes,
-;; org-feed.el needs to keep track of which feed items have been handled
-;; before, so that they will not be handled again. For this, org-feed.el
-;; stores information in a special drawer, FEEDSTATUS, under the heading
-;; that received the input of the feed.
-;;
-;;
-;; Acknowledgments
-;; ---------------
-;;
-;; org-feed.el is based on ideas by Brad Bozarth who implemented a
-;; similar mechanism using shell and awk scripts.
-
-;;; Code:
-
-(require 'org)
-(require 'sha1)
-
-(declare-function url-retrieve-synchronously "url"
- (url &optional silent inhibit-cookies timeout))
-(declare-function xml-node-children "xml" (node))
-(declare-function xml-get-children "xml" (node child-name))
-(declare-function xml-get-attribute "xml" (node attribute))
-(declare-function xml-get-attribute-or-nil "xml" (node attribute))
-(declare-function xml-substitute-special "xml" (string))
-
-(declare-function org-capture-escaped-% "org-capture" ())
-(declare-function org-capture-expand-embedded-elisp "org-capture" (&optional mark))
-(declare-function org-capture-inside-embedded-elisp-p "org-capture" ())
-
-(defgroup org-feed nil
- "Options concerning RSS feeds as inputs for Org files."
- :tag "Org Feed"
- :group 'org)
-
-(defcustom org-feed-alist nil
- "Alist specifying RSS feeds that should create inputs for Org.
-Each entry in this list specified an RSS feed tat should be queried
-to create inbox items in Org. Each entry is a list with the following items:
-
-name a custom name for this feed
-URL the Feed URL
-file the target Org file where entries should be listed, when
- nil the target becomes the current buffer (may be an
- indirect buffer) each time the feed update is invoked
-headline the headline under which entries should be listed
-
-Additional arguments can be given using keyword-value pairs. Many of these
-specify functions that receive one or a list of \"entries\" as their single
-argument. An entry is a property list that describes a feed item. The
-property list has properties for each field in the item, for example `:title'
-for the `<title>' field and `:pubDate' for the publication date. In addition,
-it contains the following properties:
-
-`:item-full-text' the full text in the <item> tag
-`:guid-permalink' t when the guid property is a permalink
-
-Here are the keyword-value pair allows in `org-feed-alist'.
-
-:drawer drawer-name
- The name of the drawer for storing feed information. The default is
- \"FEEDSTATUS\". Using different drawers for different feeds allows
- several feeds to target the same inbox heading.
-
-:filter filter-function
- A function to select interesting entries in the feed. It gets a single
- entry as parameter. It should return the entry if it is relevant, or
- nil if it is not.
-
-:template template-string
- The default action on new items in the feed is to add them as children
- under the headline for the feed. The template describes how the entry
- should be formatted. If not given, it defaults to
- `org-feed-default-template'.
-
-:formatter formatter-function
- Instead of relying on a template, you may specify a function to format
- the outline node to be inserted as a child. This function gets passed
- a property list describing a single feed item, and it should return a
- string that is a properly formatted Org outline node of level 1.
-
-:new-handler function
- If adding new items as children to the outline is not what you want
- to do with new items, define a handler function that is called with
- a list of all new items in the feed, each one represented as a property
- list. The handler should do what needs to be done, and org-feed will
- mark all items given to this handler as \"handled\", i.e. they will not
- be passed to this handler again in future readings of the feed.
- When the handler is called, point will be at the feed headline.
-
-:changed-handler function
- This function gets passed a list of all entries that have been
- handled before, but are now still in the feed and have *changed*
- since last handled (as evidenced by a different sha1 hash).
- When the handler is called, point will be at the feed headline.
-
-:parse-feed function
- This function gets passed a buffer, and should return a list
- of entries, each being a property list containing the
- `:guid' and `:item-full-text' keys. The default is
- `org-feed-parse-rss-feed'; `org-feed-parse-atom-feed' is an
- alternative.
-
-:parse-entry function
- This function gets passed an entry as returned by the parse-feed
- function, and should return the entry with interesting properties added.
- The default is `org-feed-parse-rss-entry'; `org-feed-parse-atom-entry'
- is an alternative."
- :group 'org-feed
- :type '(repeat
- (list :value ("" "http://" "" "")
- (string :tag "Name")
- (string :tag "Feed URL")
- (file :tag "File for inbox")
- (string :tag "Headline for inbox")
- (repeat :inline t
- (choice
- (list :inline t :tag "Filter"
- (const :filter)
- (symbol :tag "Filter Function"))
- (list :inline t :tag "Template"
- (const :template)
- (string :tag "Template"))
- (list :inline t :tag "Formatter"
- (const :formatter)
- (symbol :tag "Formatter Function"))
- (list :inline t :tag "New items handler"
- (const :new-handler)
- (symbol :tag "Handler Function"))
- (list :inline t :tag "Changed items"
- (const :changed-handler)
- (symbol :tag "Handler Function"))
- (list :inline t :tag "Parse Feed"
- (const :parse-feed)
- (symbol :tag "Parse Feed Function"))
- (list :inline t :tag "Parse Entry"
- (const :parse-entry)
- (symbol :tag "Parse Entry Function"))
- )))))
-
-(defcustom org-feed-drawer "FEEDSTATUS"
- "The name of the drawer for feed status information.
-Each feed may also specify its own drawer name using the `:drawer'
-parameter in `org-feed-alist'."
- :group 'org-feed
- :type '(string :tag "Drawer Name"))
-
-(defcustom org-feed-default-template "\n* %h\n %U\n %description\n %a\n"
- "Template for the Org node created from RSS feed items.
-This is just the default, each feed can specify its own.
-Any fields from the feed item can be interpolated into the template with
-%name, for example %title, %description, %pubDate etc. In addition, the
-following special escapes are valid as well:
-
-%h The title, or the first line of the description
-%t The date as a stamp, either from <pubDate> (if present), or
- the current date
-%T Date and time
-%u,%U Like %t,%T, but inactive time stamps
-%a A link, from <guid> if that is a permalink, else from <link>
-%(sexp) Evaluate elisp `(sexp)' and replace with the result, the simple
- %-escapes above can be used as arguments, e.g. %(capitalize \\\"%h\\\")"
- :group 'org-feed
- :type '(string :tag "Template"))
-
-(defcustom org-feed-save-after-adding t
- "Non-nil means save buffer after adding new feed items."
- :group 'org-feed
- :type 'boolean)
-
-(defcustom org-feed-retrieve-method 'url-retrieve-synchronously
- "The method to be used to retrieve a feed URL.
-This can be `curl' or `wget' to call these external programs, or it can be
-an Emacs Lisp function that will return a buffer containing the content
-of the file pointed to by the URL."
- :group 'org-feed
- :type '(choice
- (const :tag "Internally with url.el" url-retrieve-synchronously)
- (const :tag "Externally with curl" curl)
- (const :tag "Externally with wget" wget)
- (function :tag "Function")))
-
-(defcustom org-feed-before-adding-hook nil
- "Hook that is run before adding new feed items to a file.
-You might want to commit the file in its current state to version control,
-for example."
- :group 'org-feed
- :type 'hook)
-
-(defcustom org-feed-after-adding-hook nil
- "Hook that is run after new items have been added to a file.
-Depending on `org-feed-save-after-adding', the buffer will already
-have been saved."
- :group 'org-feed
- :type 'hook)
-
-(defvar org-feed-buffer "*Org feed*"
- "The buffer used to retrieve a feed.")
-
-;;;###autoload
-(defun org-feed-update-all ()
- "Get inbox items from all feeds in `org-feed-alist'."
- (interactive)
- (let ((entries 0)
- (errors 0)
- (total-feeds (length org-feed-alist)))
- (dolist (feed org-feed-alist)
- (let ((items (ignore-errors (org-feed-update feed))))
- (if items (cl-incf entries items)
- (cl-incf errors))))
- (message "%s from %d %s%s"
- (pcase entries
- (0 "No new entries")
- (1 "1 new entry")
- (_ (format "%d new entries" entries)))
- total-feeds
- (if (= total-feeds 1) "feed" "feeds")
- (if (= 0 errors) "" (format " (unavailable feeds: %d)" errors)))))
-
-;;;###autoload
-(defun org-feed-update (feed &optional retrieve-only)
- "Get inbox items from FEED.
-FEED can be a string with an association in `org-feed-alist', or
-it can be a list structured like an entry in `org-feed-alist'."
- (interactive (list (org-completing-read "Feed name: " org-feed-alist)))
- (if (stringp feed) (setq feed (assoc feed org-feed-alist)))
- (unless feed
- (error "No such feed in `org-feed-alist"))
- (catch 'exit
- (let ((name (car feed))
- (url (nth 1 feed))
- (file (or (nth 2 feed) (buffer-file-name (or (buffer-base-buffer)
- (current-buffer)))))
- (headline (nth 3 feed))
- (filter (nth 1 (memq :filter feed)))
- (formatter (nth 1 (memq :formatter feed)))
- (new-handler (nth 1 (memq :new-handler feed)))
- (changed-handler (nth 1 (memq :changed-handler feed)))
- (template (or (nth 1 (memq :template feed))
- org-feed-default-template))
- (drawer (or (nth 1 (memq :drawer feed))
- org-feed-drawer))
- (parse-feed (or (nth 1 (memq :parse-feed feed))
- 'org-feed-parse-rss-feed))
- (parse-entry (or (nth 1 (memq :parse-entry feed))
- 'org-feed-parse-rss-entry))
- feed-buffer inbox-pos new-formatted
- entries old-status status new changed guid-alist guid olds)
- (setq feed-buffer (org-feed-get-feed url))
- (unless (and feed-buffer (bufferp (get-buffer feed-buffer)))
- (error "Cannot get feed %s" name))
- (when retrieve-only
- (throw 'exit feed-buffer))
- (setq entries (funcall parse-feed feed-buffer))
- (ignore-errors (kill-buffer feed-buffer))
- (save-excursion
- (save-window-excursion
- (setq inbox-pos (org-feed-goto-inbox-internal file headline))
- (setq old-status (org-feed-read-previous-status inbox-pos drawer))
- ;; Add the "handled" status to the appropriate entries
- (setq entries (mapcar (lambda (e)
- (setq e
- (plist-put e :handled
- (nth 1 (assoc
- (plist-get e :guid)
- old-status)))))
- entries))
- ;; Find out which entries are new and which are changed
- (dolist (e entries)
- (if (not (plist-get e :handled))
- (push e new)
- (setq olds (nth 2 (assoc (plist-get e :guid) old-status)))
- (if (and olds
- (not (string= (sha1
- (plist-get e :item-full-text))
- olds)))
- (push e changed))))
-
- ;; Parse the relevant entries fully
- (setq new (mapcar parse-entry new)
- changed (mapcar parse-entry changed))
-
- ;; Run the filter
- (when filter
- (setq new (delq nil (mapcar filter new))
- changed (delq nil (mapcar filter new))))
-
- (when (not (or new changed))
- (message "No new items in feed %s" name)
- (throw 'exit 0))
-
- ;; Get alist based on guid, to look up entries
- (setq guid-alist
- (append
- (mapcar (lambda (e) (list (plist-get e :guid) e)) new)
- (mapcar (lambda (e) (list (plist-get e :guid) e)) changed)))
-
- ;; Construct the new status
- (setq status
- (mapcar
- (lambda (e)
- (setq guid (plist-get e :guid))
- (list guid
- ;; things count as handled if we handle them now,
- ;; or if they were handled previously
- (if (assoc guid guid-alist) t (plist-get e :handled))
- ;; A hash, to detect changes
- (sha1 (plist-get e :item-full-text))))
- entries))
-
- ;; Handle new items in the feed
- (when new
- (if new-handler
- (progn
- (goto-char inbox-pos)
- (funcall new-handler new))
- ;; No custom handler, do the default adding
- ;; Format the new entries into an alist with GUIDs in the car
- (setq new-formatted
- (mapcar
- (lambda (e) (org-feed-format-entry e template formatter))
- new)))
-
- ;; Insert the new items
- (org-feed-add-items inbox-pos new-formatted))
-
- ;; Handle changed items in the feed
- (when (and changed-handler changed)
- (goto-char inbox-pos)
- (funcall changed-handler changed))
-
- ;; Write the new status
- ;; We do this only now, in case something goes wrong above, so
- ;; that would would end up with a status that does not reflect
- ;; which items truely have been handled
- (org-feed-write-status inbox-pos drawer status)
-
- ;; Normalize the visibility of the inbox tree
- (goto-char inbox-pos)
- (outline-hide-subtree)
- (org-show-children)
- (org-cycle-hide-drawers 'children)
-
- ;; Hooks and messages
- (when org-feed-save-after-adding (save-buffer))
- (message "Added %d new item%s from feed %s to file %s, heading %s"
- (length new) (if (> (length new) 1) "s" "")
- name
- (file-name-nondirectory file) headline)
- (run-hooks 'org-feed-after-adding-hook)
- (length new))))))
-
-;;;###autoload
-(defun org-feed-goto-inbox (feed)
- "Go to the inbox that captures the feed named FEED."
- (interactive
- (list (if (= (length org-feed-alist) 1)
- (car org-feed-alist)
- (org-completing-read "Feed name: " org-feed-alist))))
- (if (stringp feed) (setq feed (assoc feed org-feed-alist)))
- (unless feed
- (error "No such feed in `org-feed-alist"))
- (org-feed-goto-inbox-internal (nth 2 feed) (nth 3 feed)))
-
-;;;###autoload
-(defun org-feed-show-raw-feed (feed)
- "Show the raw feed buffer of a feed."
- (interactive
- (list (if (= (length org-feed-alist) 1)
- (car org-feed-alist)
- (org-completing-read "Feed name: " org-feed-alist))))
- (if (stringp feed) (setq feed (assoc feed org-feed-alist)))
- (unless feed
- (error "No such feed in `org-feed-alist"))
- (pop-to-buffer-same-window
- (org-feed-update feed 'retrieve-only))
- (goto-char (point-min)))
-
-(defun org-feed-goto-inbox-internal (file heading)
- "Find or create HEADING in FILE.
-Switch to that buffer, and return the position of that headline."
- (find-file file)
- (widen)
- (goto-char (point-min))
- (if (re-search-forward
- (concat "^\\*+[ \t]+" heading "[ \t]*\\(:.*?:[ \t]*\\)?$")
- nil t)
- (goto-char (match-beginning 0))
- (goto-char (point-max))
- (insert "\n\n* " heading "\n\n")
- (org-back-to-heading t))
- (point))
-
-(defun org-feed-read-previous-status (pos drawer)
- "Get the alist of old GUIDs from the entry at POS.
-This will find DRAWER and extract the alist."
- (save-excursion
- (goto-char pos)
- (let ((end (save-excursion (org-end-of-subtree t t))))
- (if (re-search-forward
- (concat "^[ \t]*:" drawer ":[ \t]*\n\\([^\000]*?\\)\n[ \t]*:END:")
- end t)
- (read (match-string 1))
- nil))))
-
-(defun org-feed-write-status (pos drawer status)
- "Write the feed STATUS to DRAWER in entry at POS."
- (save-excursion
- (goto-char pos)
- (let ((end (save-excursion (org-end-of-subtree t t))))
- (if (re-search-forward (concat "^[ \t]*:" drawer ":[ \t]*\n")
- end t)
- (progn
- (goto-char (match-end 0))
- (delete-region (point)
- (save-excursion
- (and (re-search-forward "^[ \t]*:END:" nil t)
- (match-beginning 0)))))
- (outline-next-heading)
- (insert " :" drawer ":\n :END:\n")
- (beginning-of-line 0))
- (insert (pp-to-string status)))))
-
-(defun org-feed-add-items (pos entries)
- "Add the formatted items to the headline as POS."
- (let (entry level)
- (save-excursion
- (goto-char pos)
- (unless (looking-at org-complex-heading-regexp)
- (error "Wrong position"))
- (setq level (org-get-valid-level (length (match-string 1)) 1))
- (org-end-of-subtree t t)
- (skip-chars-backward " \t\n")
- (beginning-of-line 2)
- (setq pos (point))
- (while (setq entry (pop entries))
- (org-paste-subtree level entry 'yank))
- (org-mark-ring-push pos))))
-
-(defun org-feed-format-entry (entry template formatter)
- "Format ENTRY so that it can be inserted into an Org file.
-ENTRY is a property list. This function adds a `:formatted-for-org' property
-and returns the full property list.
-If that property is already present, nothing changes."
- (require 'org-capture)
- (if formatter (funcall formatter entry)
- (let* ((dlines
- (org-split-string (or (plist-get entry :description) "???")
- "\n"))
- (time (or (if (plist-get entry :pubDate)
- (org-read-date t t (plist-get entry :pubDate)))
- (current-time)))
- (v-h (or (plist-get entry :title) (car dlines) "???"))
- (v-t (format-time-string (org-time-stamp-format nil nil) time))
- (v-T (format-time-string (org-time-stamp-format t nil) time))
- (v-u (format-time-string (org-time-stamp-format nil t) time))
- (v-U (format-time-string (org-time-stamp-format t t) time))
- (v-a (let ((tmp (or (and (plist-get entry :guid-permalink)
- (plist-get entry :guid))
- (plist-get entry :link))))
- (if tmp (format "[[%s]]\n" tmp ) ""))))
- (with-temp-buffer
- (insert template)
- (goto-char (point-min))
-
- ;; Mark %() embedded elisp for later evaluation.
- (org-capture-expand-embedded-elisp 'mark)
-
- ;; Simple %-escapes. `org-capture-escaped-%' may modify
- ;; buffer and cripple match-data. Use markers instead.
- (while (re-search-forward "%\\([a-zA-Z]+\\)" nil t)
- (let ((key (match-string 1))
- (beg (copy-marker (match-beginning 0)))
- (end (copy-marker (match-end 0))))
- (unless (org-capture-escaped-%)
- (delete-region beg end)
- (set-marker beg nil)
- (set-marker end nil)
- (let ((replacement
- (pcase key
- ("h" v-h)
- ("t" v-t)
- ("T" v-T)
- ("u" v-u)
- ("U" v-U)
- ("a" v-a)
- (name
- (let ((v (plist-get entry (intern (concat ":" name)))))
- (save-excursion
- (save-match-data
- (beginning-of-line)
- (if (looking-at
- (concat "^\\([ \t]*\\)%" name "[ \t]*$"))
- (org-feed-make-indented-block
- v (org-get-indentation))
- v))))))))
- (when replacement
- (insert
- ;; Escape string delimiters within embedded lisp.
- (if (org-capture-inside-embedded-elisp-p)
- (replace-regexp-in-string "\"" "\\\\\"" replacement)
- replacement)))))))
-
- ;; %() embedded elisp
- (org-capture-expand-embedded-elisp)
-
- (decode-coding-string
- (buffer-string) (detect-coding-region (point-min) (point-max) t))))))
-
-(defun org-feed-make-indented-block (s n)
- "Add indentation of N spaces to a multiline string S."
- (if (not (string-match "\n" s))
- s
- (mapconcat 'identity
- (org-split-string s "\n")
- (concat "\n" (make-string n ?\ )))))
-
-(defun org-feed-skip-http-headers (buffer)
- "Remove HTTP headers from BUFFER, and return it.
-Assumes headers are indeed present!"
- (with-current-buffer buffer
- (widen)
- (goto-char (point-min))
- (search-forward "\n\n")
- (delete-region (point-min) (point))
- buffer))
-
-(defun org-feed-get-feed (url)
- "Get the RSS feed file at URL and return the buffer."
- (cond
- ((eq org-feed-retrieve-method 'url-retrieve-synchronously)
- (org-feed-skip-http-headers (url-retrieve-synchronously url)))
- ((eq org-feed-retrieve-method 'curl)
- (ignore-errors (kill-buffer org-feed-buffer))
- (call-process "curl" nil org-feed-buffer nil "--silent" url)
- org-feed-buffer)
- ((eq org-feed-retrieve-method 'wget)
- (ignore-errors (kill-buffer org-feed-buffer))
- (call-process "wget" nil org-feed-buffer nil "-q" "-O" "-" url)
- org-feed-buffer)
- ((functionp org-feed-retrieve-method)
- (funcall org-feed-retrieve-method url))))
-
-(defun org-feed-parse-rss-feed (buffer)
- "Parse BUFFER for RSS feed entries.
-Returns a list of entries, with each entry a property list,
-containing the properties `:guid' and `:item-full-text'."
- (require 'xml)
- (let ((case-fold-search t)
- entries beg end item guid entry)
- (with-current-buffer buffer
- (widen)
- (goto-char (point-min))
- (while (re-search-forward "<item\\>.*?>" nil t)
- (setq beg (point)
- end (and (re-search-forward "</item>" nil t)
- (match-beginning 0)))
- (setq item (buffer-substring beg end)
- guid (if (string-match "<guid\\>.*?>\\([^\000]*?\\)</guid>" item)
- (xml-substitute-special (match-string-no-properties 1 item))))
- (setq entry (list :guid guid :item-full-text item))
- (push entry entries)
- (widen)
- (goto-char end))
- (nreverse entries))))
-
-(defun org-feed-parse-rss-entry (entry)
- "Parse the `:item-full-text' field for xml tags and create new properties."
- (require 'xml)
- (with-temp-buffer
- (insert (plist-get entry :item-full-text))
- (goto-char (point-min))
- (while (re-search-forward "<\\([a-zA-Z]+\\>\\).*?>\\([^\000]*?\\)</\\1>"
- nil t)
- (setq entry (plist-put entry
- (intern (concat ":" (match-string 1)))
- (xml-substitute-special (match-string 2)))))
- (goto-char (point-min))
- (unless (re-search-forward "isPermaLink[ \t]*=[ \t]*\"false\"" nil t)
- (setq entry (plist-put entry :guid-permalink t))))
- entry)
-
-(defun org-feed-parse-atom-feed (buffer)
- "Parse BUFFER for Atom feed entries.
-Returns a list of entries, with each entry a property list,
-containing the properties `:guid' and `:item-full-text'.
-
-The `:item-full-text' property actually contains the sexp
-formatted as a string, not the original XML data."
- (require 'xml)
- (with-current-buffer buffer
- (widen)
- (let ((feed (car (xml-parse-region (point-min) (point-max)))))
- (mapcar
- (lambda (entry)
- (list
- :guid (car (xml-node-children (car (xml-get-children entry 'id))))
- :item-full-text (prin1-to-string entry)))
- (xml-get-children feed 'entry)))))
-
-(defun org-feed-parse-atom-entry (entry)
- "Parse the `:item-full-text' as a sexp and create new properties."
- (let ((xml (car (read-from-string (plist-get entry :item-full-text)))))
- ;; Get first <link href='foo'/>.
- (setq entry (plist-put entry :link
- (xml-get-attribute
- (car (xml-get-children xml 'link))
- 'href)))
- ;; Add <title/> as :title.
- (setq entry (plist-put entry :title
- (xml-substitute-special
- (car (xml-node-children
- (car (xml-get-children xml 'title)))))))
- (let* ((content (car (xml-get-children xml 'content)))
- (type (xml-get-attribute-or-nil content 'type)))
- (when content
- (cond
- ((string= type "text")
- ;; We like plain text.
- (setq entry (plist-put entry :description
- (xml-substitute-special
- (car (xml-node-children content))))))
- ((string= type "html")
- ;; TODO: convert HTML to Org markup.
- (setq entry (plist-put entry :description
- (xml-substitute-special
- (car (xml-node-children content))))))
- ((string= type "xhtml")
- ;; TODO: convert XHTML to Org markup.
- (setq entry (plist-put entry :description
- (prin1-to-string
- (xml-node-children content)))))
- (t
- (setq entry (plist-put entry :description
- (format-message
- "Unknown `%s' content." type)))))))
- entry))
-
-(provide 'org-feed)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-feed.el ends here
diff --git a/elpa/org-9.1.14/org-feed.elc b/elpa/org-9.1.14/org-feed.elc
deleted file mode 100644
index 1a2bdbf..0000000
--- a/elpa/org-9.1.14/org-feed.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-footnote.el b/elpa/org-9.1.14/org-footnote.el
deleted file mode 100644
index c6376ca..0000000
--- a/elpa/org-9.1.14/org-footnote.el
+++ /dev/null
@@ -1,1005 +0,0 @@
-;;; org-footnote.el --- Footnote support in Org -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the code dealing with footnotes in Org mode.
-
-;;; Code:
-
-;;;; Declarations
-
-(require 'cl-lib)
-(require 'org-macs)
-(require 'org-compat)
-
-(declare-function org-at-comment-p "org" ())
-(declare-function org-at-heading-p "org" (&optional ignored))
-(declare-function org-back-over-empty-lines "org" ())
-(declare-function org-edit-footnote-reference "org-src" ())
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-class "org-element" (datum &optional parent))
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-lineage "org-element" (blob &optional types with-self))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-end-of-subtree "org" (&optional invisible-ok to-heading))
-(declare-function org-fill-paragraph "org" (&optional justify region))
-(declare-function org-in-block-p "org" (names))
-(declare-function org-in-regexp "org" (re &optional nlines visually))
-(declare-function org-in-verbatim-emphasis "org" ())
-(declare-function org-inside-LaTeX-fragment-p "org" ())
-(declare-function org-inside-latex-macro-p "org" ())
-(declare-function org-mark-ring-push "org" (&optional pos buffer))
-(declare-function org-show-context "org" (&optional key))
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function outline-next-heading "outline")
-
-(defvar electric-indent-mode)
-(defvar org-blank-before-new-entry) ; defined in org.el
-(defvar org-bracket-link-regexp) ; defined in org.el
-(defvar org-complex-heading-regexp) ; defined in org.el
-(defvar org-odd-levels-only) ; defined in org.el
-(defvar org-outline-regexp) ; defined in org.el
-(defvar org-outline-regexp-bol) ; defined in org.el
-
-
-;;;; Constants
-
-(defconst org-footnote-re
- "\\[fn:\\(?:\\(?1:[-_[:word:]]+\\)?\\(:\\)\\|\\(?1:[-_[:word:]]+\\)\\]\\)"
- "Regular expression for matching footnotes.
-Match group 1 contains footnote's label. It is nil for anonymous
-footnotes. Match group 2 is non-nil only when footnote is
-inline, i.e., it contains its own definition.")
-
-(defconst org-footnote-definition-re "^\\[fn:\\([-_[:word:]]+\\)\\]"
- "Regular expression matching the definition of a footnote.
-Match group 1 contains definition's label.")
-
-(defconst org-footnote-forbidden-blocks '("comment" "example" "export" "src")
- "Names of blocks where footnotes are not allowed.")
-
-
-;;;; Customization
-
-(defgroup org-footnote nil
- "Footnotes in Org mode."
- :tag "Org Footnote"
- :group 'org)
-
-(defcustom org-footnote-section "Footnotes"
- "Outline heading containing footnote definitions.
-
-This can be nil, to place footnotes locally at the end of the
-current outline node. If can also be the name of a special
-outline heading under which footnotes should be put.
-
-This variable defines the place where Org puts the definition
-automatically, i.e. when creating the footnote, and when sorting
-the notes. However, by hand you may place definitions
-*anywhere*.
-
-If this is a string, during export, all subtrees starting with
-this heading will be ignored.
-
-If you don't use the customize interface to change this variable,
-you will need to run the following command after the change:
-
- `\\[universal-argument] \\[org-element-cache-reset]'"
- :group 'org-footnote
- :initialize 'custom-initialize-default
- :set (lambda (var val)
- (set var val)
- (when (fboundp 'org-element-cache-reset)
- (org-element-cache-reset 'all)))
- :type '(choice
- (string :tag "Collect footnotes under heading")
- (const :tag "Define footnotes locally" nil)))
-
-(defcustom org-footnote-define-inline nil
- "Non-nil means define footnotes inline, at reference location.
-When nil, footnotes will be defined in a special section near
-the end of the document. When t, the [fn:label:definition] notation
-will be used to define the footnote at the reference position."
- :group 'org-footnote
- :type 'boolean)
-
-(defcustom org-footnote-auto-label t
- "Non-nil means define automatically new labels for footnotes.
-Possible values are:
-
-nil Prompt the user for each label.
-t Create unique labels of the form [fn:1], [fn:2], etc.
-confirm Like t, but let the user edit the created value.
- The label can be removed from the minibuffer to create
- an anonymous footnote.
-random Automatically generate a unique, random label."
- :group 'org-footnote
- :type '(choice
- (const :tag "Prompt for label" nil)
- (const :tag "Create automatic [fn:N]" t)
- (const :tag "Offer automatic [fn:N] for editing" confirm)
- (const :tag "Create a random label" random)))
-
-(defcustom org-footnote-auto-adjust nil
- "Non-nil means automatically adjust footnotes after insert/delete.
-When this is t, after each insertion or deletion of a footnote,
-simple fn:N footnotes will be renumbered, and all footnotes will be sorted.
-If you want to have just sorting or just renumbering, set this variable
-to `sort' or `renumber'.
-
-The main values of this variable can be set with in-buffer options:
-
-#+STARTUP: fnadjust
-#+STARTUP: nofnadjust"
- :group 'org-footnote
- :type '(choice
- (const :tag "No adjustment" nil)
- (const :tag "Renumber" renumber)
- (const :tag "Sort" sort)
- (const :tag "Renumber and Sort" t)))
-
-(defcustom org-footnote-fill-after-inline-note-extraction nil
- "Non-nil means fill paragraphs after extracting footnotes.
-When extracting inline footnotes, the lengths of lines can change a lot.
-When this option is set, paragraphs from which an inline footnote has been
-extracted will be filled again."
- :group 'org-footnote
- :type 'boolean)
-
-
-;;;; Predicates
-
-(defun org-footnote-in-valid-context-p ()
- "Is point in a context where footnotes are allowed?"
- (save-match-data
- (not (or (org-at-comment-p)
- (org-inside-LaTeX-fragment-p)
- ;; Avoid literal example.
- (org-in-verbatim-emphasis)
- (save-excursion
- (beginning-of-line)
- (looking-at "[ \t]*:[ \t]+"))
- ;; Avoid forbidden blocks.
- (org-in-block-p org-footnote-forbidden-blocks)))))
-
-(defun org-footnote-at-reference-p ()
- "Is the cursor at a footnote reference?
-
-If so, return a list containing its label, beginning and ending
-positions, and the definition, when inlined."
- (when (and (org-footnote-in-valid-context-p)
- (or (looking-at org-footnote-re)
- (org-in-regexp org-footnote-re)
- (save-excursion (re-search-backward org-footnote-re nil t)))
- (/= (match-beginning 0) (line-beginning-position)))
- (let* ((beg (match-beginning 0))
- (label (match-string-no-properties 1))
- ;; Inline footnotes don't end at (match-end 0) as
- ;; `org-footnote-re' stops just after the second colon.
- ;; Find the real ending with `scan-sexps', so Org doesn't
- ;; get fooled by unrelated closing square brackets.
- (end (ignore-errors (scan-sexps beg 1))))
- ;; Point is really at a reference if it's located before true
- ;; ending of the footnote.
- (when (and end
- (< (point) end)
- ;; Verify match isn't a part of a link.
- (not (save-excursion
- (goto-char beg)
- (let ((linkp
- (save-match-data
- (org-in-regexp org-bracket-link-regexp))))
- (and linkp (< (point) (cdr linkp))))))
- ;; Verify point doesn't belong to a LaTeX macro.
- (not (org-inside-latex-macro-p)))
- (list label beg end
- ;; Definition: ensure this is an inline footnote first.
- (and (match-end 2)
- (org-trim
- (buffer-substring-no-properties
- (match-end 0) (1- end)))))))))
-
-(defun org-footnote-at-definition-p ()
- "Is point within a footnote definition?
-
-This matches only pure definitions like [1] or [fn:name] at the
-beginning of a line. It does not match references like
-\[fn:name:definition], where the footnote text is included and
-defined locally.
-
-The return value will be nil if not at a footnote definition, and
-a list with label, start, end and definition of the footnote
-otherwise."
- (when (save-excursion (beginning-of-line) (org-footnote-in-valid-context-p))
- (save-excursion
- (end-of-line)
- ;; Footnotes definitions are separated by new headlines, another
- ;; footnote definition or 2 blank lines.
- (let ((lim (save-excursion
- (re-search-backward
- (concat org-outline-regexp-bol
- "\\|^\\([ \t]*\n\\)\\{2,\\}") nil t))))
- (when (re-search-backward org-footnote-definition-re lim t)
- (let ((label (match-string-no-properties 1))
- (beg (match-beginning 0))
- (beg-def (match-end 0))
- (end (if (progn
- (end-of-line)
- (re-search-forward
- (concat org-outline-regexp-bol "\\|"
- org-footnote-definition-re "\\|"
- "^\\([ \t]*\n\\)\\{2,\\}") nil 'move))
- (match-beginning 0)
- (point))))
- (list label beg end
- (org-trim (buffer-substring-no-properties beg-def end)))))))))
-
-
-;;;; Internal functions
-
-(defun org-footnote--allow-reference-p ()
- "Non-nil when a footnote reference can be inserted at point."
- ;; XXX: This is similar to `org-footnote-in-valid-context-p' but
- ;; more accurate and usually faster, except in some corner cases.
- ;; It may replace it after doing proper benchmarks as it would be
- ;; used in fontification.
- (unless (bolp)
- (let* ((context (org-element-context))
- (type (org-element-type context)))
- (cond
- ;; No footnote reference in attributes.
- ((let ((post (org-element-property :post-affiliated context)))
- (and post (< (point) post)))
- nil)
- ;; Paragraphs and blank lines at top of document are fine.
- ((memq type '(nil paragraph)))
- ;; So are contents of verse blocks.
- ((eq type 'verse-block)
- (and (>= (point) (org-element-property :contents-begin context))
- (< (point) (org-element-property :contents-end context))))
- ;; In an headline or inlinetask, point must be either on the
- ;; heading itself or on the blank lines below.
- ((memq type '(headline inlinetask))
- (or (not (org-at-heading-p))
- (and (save-excursion
- (beginning-of-line)
- (and (let ((case-fold-search t))
- (not (looking-at-p "\\*+ END[ \t]*$")))
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))))
- (match-beginning 4)
- (>= (point) (match-beginning 4))
- (or (not (match-beginning 5))
- (< (point) (match-beginning 5))))))
- ;; White spaces after an object or blank lines after an element
- ;; are OK.
- ((>= (point)
- (save-excursion (goto-char (org-element-property :end context))
- (skip-chars-backward " \r\t\n")
- (if (eq (org-element-class context) 'object) (point)
- (1+ (line-beginning-position 2))))))
- ;; Other elements are invalid.
- ((eq (org-element-class context) 'element) nil)
- ;; Just before object is fine.
- ((= (point) (org-element-property :begin context)))
- ;; Within recursive object too, but not in a link.
- ((eq type 'link) nil)
- ((let ((cbeg (org-element-property :contents-begin context))
- (cend (org-element-property :contents-end context)))
- (and cbeg (>= (point) cbeg) (<= (point) cend))))))))
-
-(defun org-footnote--clear-footnote-section ()
- "Remove all footnote sections in buffer and create a new one.
-New section is created at the end of the buffer, before any file
-local variable definition. Leave point within the new section."
- (when org-footnote-section
- (goto-char (point-min))
- (let ((regexp
- (format "^\\*+ +%s[ \t]*$"
- (regexp-quote org-footnote-section))))
- (while (re-search-forward regexp nil t)
- (delete-region
- (match-beginning 0)
- (progn (org-end-of-subtree t t)
- (if (not (eobp)) (point)
- (org-footnote--goto-local-insertion-point)
- (skip-chars-forward " \t\n")
- (if (eobp) (point) (line-beginning-position)))))))
- (goto-char (point-max))
- (org-footnote--goto-local-insertion-point)
- (when (and (cdr (assq 'heading org-blank-before-new-entry))
- (zerop (save-excursion (org-back-over-empty-lines))))
- (insert "\n"))
- (insert "* " org-footnote-section "\n")))
-
-(defun org-footnote--set-label (label)
- "Set label of footnote at point to string LABEL.
-Assume point is at the beginning of the reference or definition
-to rename."
- (forward-char 4)
- (cond ((eq (char-after) ?:) (insert label))
- ((looking-at "\\([-_[:word:]]+\\)") (replace-match label nil nil nil 1))
- (t nil)))
-
-(defun org-footnote--collect-references (&optional anonymous)
- "Collect all labeled footnote references in current buffer.
-
-Return an alist where associations follow the pattern
-
- (LABEL MARKER TOP-LEVEL SIZE)
-
-with
-
- LABEL the label of the of the definition,
- MARKER a marker pointing to its beginning,
- TOP-LEVEL a boolean, nil when the footnote is contained within
- another one,
- SIZE the length of the inline definition, in characters,
- or nil for non-inline references.
-
-When optional ANONYMOUS is non-nil, also collect anonymous
-references. In such cases, LABEL is nil.
-
-References are sorted according to a deep-reading order."
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((regexp (if anonymous org-footnote-re "\\[fn:[-_[:word:]]+[]:]"))
- references nested)
- (save-excursion
- (while (re-search-forward regexp nil t)
- ;; Ignore definitions.
- (unless (and (eq (char-before) ?\])
- (= (line-beginning-position) (match-beginning 0)))
- ;; Ensure point is within the reference before parsing it.
- (backward-char)
- (let ((object (org-element-context)))
- (when (eq (org-element-type object) 'footnote-reference)
- (let* ((label (org-element-property :label object))
- (begin (org-element-property :begin object))
- (size
- (and (eq (org-element-property :type object) 'inline)
- (- (org-element-property :contents-end object)
- (org-element-property :contents-begin object)))))
- (let ((d (org-element-lineage object '(footnote-definition))))
- (push (list label (copy-marker begin) (not d) size)
- references)
- (when d
- ;; Nested references are stored in alist NESTED.
- ;; Associations there follow the pattern
- ;;
- ;; (DEFINITION-LABEL . REFERENCES)
- (let* ((def-label (org-element-property :label d))
- (labels (assoc def-label nested)))
- (if labels (push label (cdr labels))
- (push (list def-label label) nested)))))))))))
- ;; Sort the list of references. Nested footnotes have priority
- ;; over top-level ones.
- (letrec ((ordered nil)
- (add-reference
- (lambda (ref allow-nested)
- (when (or allow-nested (nth 2 ref))
- (push ref ordered)
- (dolist (r (mapcar (lambda (l) (assoc l references))
- (reverse
- (cdr (assoc (nth 0 ref) nested)))))
- (funcall add-reference r t))))))
- (dolist (r (reverse references) (nreverse ordered))
- (funcall add-reference r nil))))))
-
-(defun org-footnote--collect-definitions (&optional delete)
- "Collect all footnote definitions in current buffer.
-
-Return an alist where associations follow the pattern
-
- (LABEL . DEFINITION)
-
-with LABEL and DEFINITION being, respectively, the label and the
-definition of the footnote, as strings.
-
-When optional argument DELETE is non-nil, delete the definition
-while collecting them."
- (org-with-wide-buffer
- (goto-char (point-min))
- (let (definitions seen)
- (while (re-search-forward org-footnote-definition-re nil t)
- (backward-char)
- (let ((element (org-element-at-point)))
- (let ((label (org-element-property :label element)))
- (when (and (eq (org-element-type element) 'footnote-definition)
- (not (member label seen)))
- (push label seen)
- (let* ((beg (progn
- (goto-char (org-element-property :begin element))
- (skip-chars-backward " \r\t\n")
- (if (bobp) (point) (line-beginning-position 2))))
- (end (progn
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2)))
- (def (org-trim (buffer-substring-no-properties beg end))))
- (push (cons label def) definitions)
- (when delete (delete-region beg end)))))))
- definitions)))
-
-(defun org-footnote--goto-local-insertion-point ()
- "Find insertion point for footnote, just before next outline heading.
-Assume insertion point is within currently accessible part of the buffer."
- (org-with-limited-levels (outline-next-heading))
- ;; Skip file local variables. See `modify-file-local-variable'.
- (when (eobp)
- (let ((case-fold-search t))
- (re-search-backward "^[ \t]*# +Local Variables:"
- (max (- (point-max) 3000) (point-min))
- t)))
- (skip-chars-backward " \t\n")
- (forward-line)
- (unless (bolp) (insert "\n")))
-
-
-;;;; Navigation
-
-(defun org-footnote-get-next-reference (&optional label backward limit)
- "Return complete reference of the next footnote.
-
-If LABEL is provided, get the next reference of that footnote. If
-BACKWARD is non-nil, find previous reference instead. LIMIT is
-the buffer position bounding the search.
-
-Return value is a list like those provided by `org-footnote-at-reference-p'.
-If no footnote is found, return nil."
- (save-excursion
- (let* ((label-fmt (if label (format "\\[fn:%s[]:]" label) org-footnote-re)))
- (catch 'exit
- (while t
- (unless (funcall (if backward #'re-search-backward #'re-search-forward)
- label-fmt limit t)
- (throw 'exit nil))
- (unless backward (backward-char))
- (let ((ref (org-footnote-at-reference-p)))
- (when ref (throw 'exit ref))))))))
-
-(defun org-footnote-next-reference-or-definition (limit)
- "Move point to next footnote reference or definition.
-
-LIMIT is the buffer position bounding the search.
-
-Return value is a list like those provided by
-`org-footnote-at-reference-p' or `org-footnote-at-definition-p'.
-If no footnote is found, return nil."
- (let* (ref (origin (point)))
- (catch 'exit
- (while t
- (unless (re-search-forward org-footnote-re limit t)
- (goto-char origin)
- (throw 'exit nil))
- ;; Beware: with non-inline footnotes point will be just after
- ;; the closing square bracket.
- (backward-char)
- (cond
- ((setq ref (org-footnote-at-reference-p))
- (throw 'exit ref))
- ;; Definition: also grab the last square bracket, matched in
- ;; `org-footnote-re' for non-inline footnotes.
- ((save-match-data (org-footnote-at-definition-p))
- (let ((end (match-end 0)))
- (throw 'exit
- (list nil (match-beginning 0)
- (if (eq (char-before end) ?\]) end (1+ end)))))))))))
-
-(defun org-footnote-goto-definition (label &optional location)
- "Move point to the definition of the footnote LABEL.
-
-LOCATION, when non-nil specifies the buffer position of the
-definition.
-
-Throw an error if there is no definition or if it cannot be
-reached from current narrowed part of buffer. Return a non-nil
-value if point was successfully moved."
- (interactive "sLabel: ")
- (let* ((label (org-footnote-normalize-label label))
- (def-start (or location (nth 1 (org-footnote-get-definition label)))))
- (cond
- ((not def-start)
- (user-error "Cannot find definition of footnote %s" label))
- ((or (> def-start (point-max)) (< def-start (point-min)))
- (user-error "Definition is outside narrowed part of buffer")))
- (org-mark-ring-push)
- (goto-char def-start)
- (looking-at (format "\\[fn:%s[]:] ?" (regexp-quote label)))
- (goto-char (match-end 0))
- (org-show-context 'link-search)
- (when (derived-mode-p 'org-mode)
- (message "%s" (substitute-command-keys
- "Edit definition and go back with \
-`\\[org-mark-ring-goto]' or, if unique, with `\\[org-ctrl-c-ctrl-c]'.")))
- t))
-
-(defun org-footnote-goto-previous-reference (label)
- "Find the first closest (to point) reference of footnote with label LABEL."
- (interactive "sLabel: ")
- (org-mark-ring-push)
- (let ((label (org-footnote-normalize-label label))
- ref)
- (save-excursion
- (setq ref (or (org-footnote-get-next-reference label t)
- (org-footnote-get-next-reference label)
- (save-restriction
- (widen)
- (or
- (org-footnote-get-next-reference label t)
- (org-footnote-get-next-reference label))))))
- (if (not ref)
- (error "Cannot find reference of footnote %s" label)
- (goto-char (nth 1 ref))
- (org-show-context 'link-search))))
-
-
-;;;; Getters
-
-(defun org-footnote-normalize-label (label)
- "Return LABEL without \"fn:\" prefix.
-If LABEL is the empty string or constituted of white spaces only,
-return nil instead."
- (pcase (org-trim label)
- ("" nil)
- ((pred (string-prefix-p "fn:")) (substring label 3))
- (_ label)))
-
-(defun org-footnote-get-definition (label)
- "Return label, boundaries and definition of the footnote LABEL."
- (let* ((label (regexp-quote (org-footnote-normalize-label label)))
- (re (format "^\\[fn:%s\\]\\|.\\[fn:%s:" label label)))
- (org-with-wide-buffer
- (goto-char (point-min))
- (catch 'found
- (while (re-search-forward re nil t)
- (let* ((datum (progn (backward-char) (org-element-context)))
- (type (org-element-type datum)))
- (when (memq type '(footnote-definition footnote-reference))
- (throw 'found
- (list
- label
- (org-element-property :begin datum)
- (org-element-property :end datum)
- (let ((cbeg (org-element-property :contents-begin datum)))
- (if (not cbeg) ""
- (replace-regexp-in-string
- "[ \t\n]*\\'"
- ""
- (buffer-substring-no-properties
- cbeg
- (org-element-property :contents-end datum))))))))))
- nil))))
-
-(defun org-footnote-all-labels ()
- "List all defined footnote labels used throughout the buffer.
-This function ignores narrowing, if any."
- (org-with-wide-buffer
- (goto-char (point-min))
- (let (all)
- (while (re-search-forward org-footnote-re nil t)
- (backward-char)
- (let ((context (org-element-context)))
- (when (memq (org-element-type context)
- '(footnote-definition footnote-reference))
- (let ((label (org-element-property :label context)))
- (when label (cl-pushnew label all :test #'equal))))))
- all)))
-
-(defun org-footnote-unique-label (&optional current)
- "Return a new unique footnote label.
-
-The function returns the first numeric label currently unused.
-
-Optional argument CURRENT is the list of labels active in the
-buffer."
- (let ((current (or current (org-footnote-all-labels))))
- (let ((count 1))
- (while (member (number-to-string count) current)
- (cl-incf count))
- (number-to-string count))))
-
-
-;;;; Adding, Deleting Footnotes
-
-(defun org-footnote-new ()
- "Insert a new footnote.
-This command prompts for a label. If this is a label referencing an
-existing label, only insert the label. If the footnote label is empty
-or new, let the user edit the definition of the footnote."
- (interactive)
- (unless (org-footnote--allow-reference-p)
- (user-error "Cannot insert a footnote here"))
- (let* ((all (org-footnote-all-labels))
- (label
- (if (eq org-footnote-auto-label 'random)
- (format "%x" (random most-positive-fixnum))
- (org-footnote-normalize-label
- (let ((propose (org-footnote-unique-label all)))
- (if (eq org-footnote-auto-label t) propose
- (completing-read
- "Label (leave empty for anonymous): "
- (mapcar #'list all) nil nil
- (and (eq org-footnote-auto-label 'confirm) propose))))))))
- (cond ((not label)
- (insert "[fn::]")
- (backward-char 1))
- ((member label all)
- (insert "[fn:" label "]")
- (message "New reference to existing note"))
- (org-footnote-define-inline
- (insert "[fn:" label ":]")
- (backward-char 1)
- (org-footnote-auto-adjust-maybe))
- (t
- (insert "[fn:" label "]")
- (let ((p (org-footnote-create-definition label)))
- ;; `org-footnote-goto-definition' needs to be called
- ;; after `org-footnote-auto-adjust-maybe'. Otherwise
- ;; both label and location of the definition are lost.
- ;; On the contrary, it needs to be called before
- ;; `org-edit-footnote-reference' so that the remote
- ;; editing buffer can display the correct label.
- (if (ignore-errors (org-footnote-goto-definition label p))
- (org-footnote-auto-adjust-maybe)
- ;; Definition was created outside current scope: edit
- ;; it remotely.
- (org-footnote-auto-adjust-maybe)
- (org-edit-footnote-reference)))))))
-
-(defun org-footnote-create-definition (label)
- "Start the definition of a footnote with label LABEL.
-Return buffer position at the beginning of the definition. This
-function doesn't move point."
- (let ((label (org-footnote-normalize-label label))
- electric-indent-mode) ; Prevent wrong indentation.
- (org-with-wide-buffer
- (cond
- ((not org-footnote-section) (org-footnote--goto-local-insertion-point))
- ((save-excursion
- (goto-char (point-min))
- (re-search-forward
- (concat "^\\*+[ \t]+" (regexp-quote org-footnote-section) "[ \t]*$")
- nil t))
- (goto-char (match-end 0))
- (forward-line)
- (unless (bolp) (insert "\n")))
- (t (org-footnote--clear-footnote-section)))
- (when (zerop (org-back-over-empty-lines)) (insert "\n"))
- (insert "[fn:" label "] \n")
- (line-beginning-position 0))))
-
-(defun org-footnote-delete-references (label)
- "Delete every reference to footnote LABEL.
-Return the number of footnotes removed."
- (save-excursion
- (goto-char (point-min))
- (let (ref (nref 0))
- (while (setq ref (org-footnote-get-next-reference label))
- (goto-char (nth 1 ref))
- (delete-region (nth 1 ref) (nth 2 ref))
- (cl-incf nref))
- nref)))
-
-(defun org-footnote-delete-definitions (label)
- "Delete every definition of the footnote LABEL.
-Return the number of footnotes removed."
- (save-excursion
- (goto-char (point-min))
- (let ((def-re (format "^\\[fn:%s\\]" (regexp-quote label)))
- (ndef 0))
- (while (re-search-forward def-re nil t)
- (pcase (org-footnote-at-definition-p)
- (`(,_ ,start ,end ,_)
- ;; Remove the footnote, and all blank lines before it.
- (delete-region (progn
- (goto-char start)
- (skip-chars-backward " \r\t\n")
- (if (bobp) (point) (line-beginning-position 2)))
- (progn
- (goto-char end)
- (skip-chars-backward " \r\t\n")
- (if (bobp) (point) (line-beginning-position 2))))
- (cl-incf ndef))))
- ndef)))
-
-(defun org-footnote-delete (&optional label)
- "Delete the footnote at point.
-This will remove the definition (even multiple definitions if they exist)
-and all references of a footnote label.
-
-If LABEL is non-nil, delete that footnote instead."
- (catch 'done
- (let* ((nref 0) (ndef 0) x
- ;; 1. Determine LABEL of footnote at point.
- (label (cond
- ;; LABEL is provided as argument.
- (label)
- ;; Footnote reference at point. If the footnote is
- ;; anonymous, delete it and exit instead.
- ((setq x (org-footnote-at-reference-p))
- (or (car x)
- (progn
- (delete-region (nth 1 x) (nth 2 x))
- (message "Anonymous footnote removed")
- (throw 'done t))))
- ;; Footnote definition at point.
- ((setq x (org-footnote-at-definition-p))
- (car x))
- (t (error "Don't know which footnote to remove")))))
- ;; 2. Now that LABEL is non-nil, find every reference and every
- ;; definition, and delete them.
- (setq nref (org-footnote-delete-references label)
- ndef (org-footnote-delete-definitions label))
- ;; 3. Verify consistency of footnotes and notify user.
- (org-footnote-auto-adjust-maybe)
- (message "%d definition(s) of and %d reference(s) of footnote %s removed"
- ndef nref label))))
-
-
-;;;; Sorting, Renumbering, Normalizing
-
-(defun org-footnote-renumber-fn:N ()
- "Order numbered footnotes into a sequence in the document."
- (interactive)
- (let ((references (org-footnote--collect-references)))
- (unwind-protect
- (let* ((c 0)
- (references (cl-remove-if-not
- (lambda (r) (string-match-p "\\`[0-9]+\\'" (car r)))
- references))
- (alist (mapcar (lambda (l) (cons l (number-to-string (cl-incf c))))
- (delete-dups (mapcar #'car references)))))
- (org-with-wide-buffer
- ;; Re-number references.
- (dolist (ref references)
- (goto-char (nth 1 ref))
- (org-footnote--set-label (cdr (assoc (nth 0 ref) alist))))
- ;; Re-number definitions.
- (goto-char (point-min))
- (while (re-search-forward "^\\[fn:\\([0-9]+\\)\\]" nil t)
- (replace-match (or (cdr (assoc (match-string 1) alist))
- ;; Un-referenced definitions get
- ;; higher numbers.
- (number-to-string (cl-incf c)))
- nil nil nil 1))))
- (dolist (r references) (set-marker (nth 1 r) nil)))))
-
-(defun org-footnote-sort ()
- "Rearrange footnote definitions in the current buffer.
-Sort footnote definitions so they match order of footnote
-references. Also relocate definitions at the end of their
-relative section or within a single footnote section, according
-to `org-footnote-section'. Inline definitions are ignored."
- (let ((references (org-footnote--collect-references)))
- (unwind-protect
- (let ((definitions (org-footnote--collect-definitions 'delete)))
- (org-with-wide-buffer
- (org-footnote--clear-footnote-section)
- ;; Insert footnote definitions at the appropriate location,
- ;; separated by a blank line. Each definition is inserted
- ;; only once throughout the buffer.
- (let (inserted)
- (dolist (cell references)
- (let ((label (car cell))
- (nested (not (nth 2 cell)))
- (inline (nth 3 cell)))
- (unless (or (member label inserted) inline)
- (push label inserted)
- (unless (or org-footnote-section nested)
- ;; If `org-footnote-section' is non-nil, or
- ;; reference is nested, point is already at the
- ;; correct position. Otherwise, move at the
- ;; appropriate location within the section
- ;; containing the reference.
- (goto-char (nth 1 cell))
- (org-footnote--goto-local-insertion-point))
- (insert "\n"
- (or (cdr (assoc label definitions))
- (format "[fn:%s] DEFINITION NOT FOUND." label))
- "\n"))))
- ;; Insert un-referenced footnote definitions at the end.
- (let ((unreferenced
- (cl-remove-if (lambda (d) (member (car d) inserted))
- definitions)))
- (dolist (d unreferenced) (insert "\n" (cdr d) "\n"))))))
- ;; Clear dangling markers in the buffer.
- (dolist (r references) (set-marker (nth 1 r) nil)))))
-
-(defun org-footnote-normalize ()
- "Turn every footnote in buffer into a numbered one."
- (interactive)
- (let ((references (org-footnote--collect-references 'anonymous)))
- (unwind-protect
- (let ((n 0)
- (translations nil)
- (definitions nil))
- (org-with-wide-buffer
- ;; Update label for reference. We need to do this before
- ;; clearing definitions in order to rename nested footnotes
- ;; before they are deleted.
- (dolist (cell references)
- (let* ((label (car cell))
- (anonymous (not label))
- (new
- (cond
- ;; In order to differentiate anonymous
- ;; references from regular ones, set their
- ;; labels to integers, not strings.
- (anonymous (setcar cell (cl-incf n)))
- ((cdr (assoc label translations)))
- (t (let ((l (number-to-string (cl-incf n))))
- (push (cons label l) translations)
- l)))))
- (goto-char (nth 1 cell)) ; Move to reference's start.
- (org-footnote--set-label
- (if anonymous (number-to-string new) new))
- (let ((size (nth 3 cell)))
- ;; Transform inline footnotes into regular references
- ;; and retain their definition for later insertion as
- ;; a regular footnote definition.
- (when size
- (let ((def (concat
- (format "[fn:%s] " new)
- (org-trim
- (substring
- (delete-and-extract-region
- (point) (+ (point) size 1))
- 1)))))
- (push (cons (if anonymous new label) def) definitions)
- (when org-footnote-fill-after-inline-note-extraction
- (org-fill-paragraph)))))))
- ;; Collect definitions. Update labels according to ALIST.
- (let ((definitions
- (nconc definitions
- (org-footnote--collect-definitions 'delete)))
- (inserted))
- (org-footnote--clear-footnote-section)
- (dolist (cell references)
- (let* ((label (car cell))
- (anonymous (integerp label))
- (pos (nth 1 cell)))
- ;; Move to appropriate location, if required. When
- ;; there is a footnote section or reference is
- ;; nested, point is already at the expected location.
- (unless (or org-footnote-section (not (nth 2 cell)))
- (goto-char pos)
- (org-footnote--goto-local-insertion-point))
- ;; Insert new definition once label is updated.
- (unless (member label inserted)
- (push label inserted)
- (let ((stored (cdr (assoc label definitions)))
- ;; Anonymous footnotes' label is already
- ;; up-to-date.
- (new (if anonymous label
- (cdr (assoc label translations)))))
- (insert "\n"
- (cond
- ((not stored)
- (format "[fn:%s] DEFINITION NOT FOUND." new))
- (anonymous stored)
- (t
- (replace-regexp-in-string
- "\\`\\[fn:\\(.*?\\)\\]" new stored nil nil 1)))
- "\n")))))
- ;; Insert un-referenced footnote definitions at the end.
- (let ((unreferenced
- (cl-remove-if (lambda (d) (member (car d) inserted))
- definitions)))
- (dolist (d unreferenced)
- (insert "\n"
- (replace-regexp-in-string
- org-footnote-definition-re
- (format "[fn:%d]" (cl-incf n))
- (cdr d))
- "\n"))))))
- ;; Clear dangling markers.
- (dolist (r references) (set-marker (nth 1 r) nil)))))
-
-(defun org-footnote-auto-adjust-maybe ()
- "Renumber and/or sort footnotes according to user settings."
- (when (memq org-footnote-auto-adjust '(t renumber))
- (org-footnote-renumber-fn:N))
- (when (memq org-footnote-auto-adjust '(t sort))
- (let ((label (car (org-footnote-at-definition-p))))
- (org-footnote-sort)
- (when label
- (goto-char (point-min))
- (and (re-search-forward (format "^\\[fn:%s\\]" (regexp-quote label))
- nil t)
- (progn (insert " ")
- (just-one-space)))))))
-
-
-;;;; End-user interface
-
-;;;###autoload
-(defun org-footnote-action (&optional special)
- "Do the right thing for footnotes.
-
-When at a footnote reference, jump to the definition.
-
-When at a definition, jump to the references if they exist, offer
-to create them otherwise.
-
-When neither at definition or reference, create a new footnote,
-interactively if possible.
-
-With prefix arg SPECIAL, or when no footnote can be created,
-offer additional commands in a menu."
- (interactive "P")
- (let* ((context (and (not special) (org-element-context)))
- (type (org-element-type context)))
- (cond
- ;; On white space after element, insert a new footnote.
- ((and context
- (> (point)
- (save-excursion
- (goto-char (org-element-property :end context))
- (skip-chars-backward " \t")
- (point))))
- (org-footnote-new))
- ((eq type 'footnote-reference)
- (let ((label (org-element-property :label context)))
- (cond
- ;; Anonymous footnote: move point at the beginning of its
- ;; definition.
- ((not label)
- (goto-char (org-element-property :contents-begin context)))
- ;; Check if a definition exists: then move to it.
- ((let ((p (nth 1 (org-footnote-get-definition label))))
- (when p (org-footnote-goto-definition label p))))
- ;; No definition exists: offer to create it.
- ((yes-or-no-p (format "No definition for %s. Create one? " label))
- (let ((p (org-footnote-create-definition label)))
- (or (ignore-errors (org-footnote-goto-definition label p))
- ;; Since definition was created outside current scope,
- ;; edit it remotely.
- (org-edit-footnote-reference)))))))
- ((eq type 'footnote-definition)
- (org-footnote-goto-previous-reference
- (org-element-property :label context)))
- ((or special (not (org-footnote--allow-reference-p)))
- (message "Footnotes: [s]ort | [r]enumber fn:N | [S]=r+s | [n]ormalize | \
-\[d]elete")
- (pcase (read-char-exclusive)
- (?s (org-footnote-sort))
- (?r (org-footnote-renumber-fn:N))
- (?S (org-footnote-renumber-fn:N)
- (org-footnote-sort))
- (?n (org-footnote-normalize))
- (?d (org-footnote-delete))
- (char (error "No such footnote command %c" char))))
- (t (org-footnote-new)))))
-
-
-(provide 'org-footnote)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-footnote.el ends here
diff --git a/elpa/org-9.1.14/org-footnote.elc b/elpa/org-9.1.14/org-footnote.elc
deleted file mode 100644
index b7fce74..0000000
--- a/elpa/org-9.1.14/org-footnote.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-gnus.el b/elpa/org-9.1.14/org-gnus.el
deleted file mode 100644
index a53b343..0000000
--- a/elpa/org-9.1.14/org-gnus.el
+++ /dev/null
@@ -1,268 +0,0 @@
-;;; org-gnus.el --- Support for Links to Gnus Groups and Messages -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Tassilo Horn <tassilo at member dot fsf dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements links to Gnus groups and messages from within Org.
-;; Org mode loads this module by default - if this is not what you want,
-;; configure the variable `org-modules'.
-
-;;; Code:
-
-(require 'gnus-sum)
-(require 'gnus-util)
-(require 'nnheader)
-(require 'nnir)
-(require 'org)
-
-
-;;; Declare external functions and variables
-
-(declare-function gnus-activate-group "gnus-start" (group &optional scan dont-check method dont-sub-check))
-(declare-function gnus-find-method-for-group "gnus" (group &optional info))
-(declare-function gnus-article-show-summary "gnus-art" ())
-(declare-function gnus-group-group-name "gnus-group")
-(declare-function gnus-group-jump-to-group "gnus-group" (group &optional prompt))
-(declare-function gnus-group-read-group "gnus-group" (&optional all no-article group select-articles))
-(declare-function message-fetch-field "message" (header &optional not-all))
-(declare-function message-generate-headers "message" (headers))
-(declare-function message-narrow-to-headers "message")
-(declare-function message-tokenize-header "message" (header &optional separator))
-(declare-function message-unquote-tokens "message" (elems))
-(declare-function nnvirtual-map-article "nnvirtual" (article))
-
-(defvar gnus-newsgroup-name)
-(defvar gnus-summary-buffer)
-(defvar gnus-other-frame-object)
-
-
-;;; Customization variables
-
-(defcustom org-gnus-prefer-web-links nil
- "If non-nil, `org-store-link' creates web links to Google groups or Gmane.
-\\<org-mode-map>When nil, Gnus will be used for such links.
-Using a prefix argument to the command `\\[org-store-link]' (`org-store-link')
-negates this setting for the duration of the command."
- :group 'org-link-store
- :type 'boolean)
-
-(defcustom org-gnus-no-server nil
- "Should Gnus be started using `gnus-no-server'?"
- :group 'org-gnus
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-
-;;; Install the link type
-
-(org-link-set-parameters "gnus"
- :follow #'org-gnus-open
- :store #'org-gnus-store-link)
-
-;;; Implementation
-
-(defun org-gnus-group-link (group)
- "Create a link to the Gnus group GROUP.
-If GROUP is a newsgroup and `org-gnus-prefer-web-links' is
-non-nil, create a link to groups.google.com or gmane.org.
-Otherwise create a link to the group inside Gnus.
-
-If `org-store-link' was called with a prefix arg the meaning of
-`org-gnus-prefer-web-links' is reversed."
- (let ((unprefixed-group (replace-regexp-in-string "^[^:]+:" "" group)))
- (if (and (string-prefix-p "nntp" group) ;; Only for nntp groups
- (org-xor current-prefix-arg
- org-gnus-prefer-web-links))
- (concat (if (string-match "gmane" unprefixed-group)
- "http://news.gmane.org/"
- "http://groups.google.com/group/")
- unprefixed-group)
- (concat "gnus:" group))))
-
-(defun org-gnus-article-link (group newsgroups message-id x-no-archive)
- "Create a link to a Gnus article.
-The article is specified by its MESSAGE-ID. Additional
-parameters are the Gnus GROUP, the NEWSGROUPS the article was
-posted to and the X-NO-ARCHIVE header value of that article.
-
-If GROUP is a newsgroup and `org-gnus-prefer-web-links' is
-non-nil, create a link to groups.google.com or gmane.org.
-Otherwise create a link to the article inside Gnus.
-
-If `org-store-link' was called with a prefix arg the meaning of
-`org-gnus-prefer-web-links' is reversed."
- (if (and (org-xor current-prefix-arg org-gnus-prefer-web-links)
- newsgroups ;; Make web links only for nntp groups
- (not x-no-archive)) ;; and if X-No-Archive isn't set.
- (format (if (string-match "gmane\\." newsgroups)
- "http://mid.gmane.org/%s"
- "http://groups.google.com/groups/search?as_umsgid=%s")
- (org-fixup-message-id-for-http message-id))
- (concat "gnus:" group "#" message-id)))
-
-(defun org-gnus-store-link ()
- "Store a link to a Gnus folder or message."
- (pcase major-mode
- (`gnus-group-mode
- (let ((group (gnus-group-group-name)))
- (when group
- (org-store-link-props :type "gnus" :group group)
- (let ((description (org-gnus-group-link group)))
- (org-add-link-props :link description :description description)
- description))))
- ((or `gnus-summary-mode `gnus-article-mode)
- (let* ((group
- (pcase (gnus-find-method-for-group gnus-newsgroup-name)
- (`(nnvirtual . ,_)
- (save-excursion
- (car (nnvirtual-map-article (gnus-summary-article-number)))))
- (`(nnir . ,_)
- (save-excursion
- (nnir-article-group (gnus-summary-article-number))))
- (_ gnus-newsgroup-name)))
- (header (if (eq major-mode 'gnus-article-mode)
- ;; When in an article, first move to summary
- ;; buffer, with point on the summary of the
- ;; current article before extracting headers.
- (save-window-excursion
- (save-excursion
- (gnus-article-show-summary)
- (gnus-summary-article-header)))
- (gnus-summary-article-header)))
- (from (mail-header-from header))
- (message-id (org-unbracket-string "<" ">" (mail-header-id header)))
- (date (org-trim (mail-header-date header)))
- ;; Remove text properties of subject string to avoid Emacs
- ;; bug #3506.
- (subject (org-no-properties
- (copy-sequence (mail-header-subject header))))
- (to (cdr (assq 'To (mail-header-extra header))))
- newsgroups x-no-archive)
- ;; Fetching an article is an expensive operation; newsgroup and
- ;; x-no-archive are only needed for web links.
- (when (org-xor current-prefix-arg org-gnus-prefer-web-links)
- ;; Make sure the original article buffer is up-to-date.
- (save-window-excursion (gnus-summary-select-article))
- (setq to (or to (gnus-fetch-original-field "To")))
- (setq newsgroups (gnus-fetch-original-field "Newsgroups"))
- (setq x-no-archive (gnus-fetch-original-field "x-no-archive")))
- (org-store-link-props :type "gnus" :from from :date date :subject subject
- :message-id message-id :group group :to to)
- (let ((link (org-gnus-article-link
- group newsgroups message-id x-no-archive))
- (description (org-email-link-description)))
- (org-add-link-props :link link :description description)
- link)))
- (`message-mode
- (setq org-store-link-plist nil) ;reset
- (save-excursion
- (save-restriction
- (message-narrow-to-headers)
- (unless (message-fetch-field "Message-ID")
- (message-generate-headers '(Message-ID)))
- (goto-char (point-min))
- (re-search-forward "^Message-ID:" nil t)
- (put-text-property (line-beginning-position) (line-end-position)
- 'message-deletable nil)
- (let ((gcc (org-last (message-unquote-tokens
- (message-tokenize-header
- (mail-fetch-field "gcc" nil t) " ,"))))
- (id (org-unbracket-string "<" ">"
- (mail-fetch-field "Message-ID")))
- (to (mail-fetch-field "To"))
- (from (mail-fetch-field "From"))
- (subject (mail-fetch-field "Subject"))
- newsgroup xarchive) ;those are always nil for gcc
- (unless gcc (error "Can not create link: No Gcc header found"))
- (org-store-link-props :type "gnus" :from from :subject subject
- :message-id id :group gcc :to to)
- (let ((link (org-gnus-article-link gcc newsgroup id xarchive))
- (description (org-email-link-description)))
- (org-add-link-props :link link :description description)
- link)))))))
-
-(defun org-gnus-open-nntp (path)
- "Follow the nntp: link specified by PATH."
- (let* ((spec (split-string path "/"))
- (server (split-string (nth 2 spec) "@"))
- (group (nth 3 spec))
- (article (nth 4 spec)))
- (org-gnus-follow-link
- (format "nntp+%s:%s" (or (cdr server) (car server)) group)
- article)))
-
-(defun org-gnus-open (path)
- "Follow the Gnus message or folder link specified by PATH."
- (unless (string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" path)
- (error "Error in Gnus link %S" path))
- (let ((group (match-string-no-properties 1 path))
- (article (match-string-no-properties 3 path)))
- (org-gnus-follow-link group article)))
-
-(defun org-gnus-follow-link (&optional group article)
- "Follow a Gnus link to GROUP and ARTICLE."
- (require 'gnus)
- (funcall (cdr (assq 'gnus org-link-frame-setup)))
- (when gnus-other-frame-object (select-frame gnus-other-frame-object))
- (let ((group (org-no-properties group))
- (article (org-no-properties article)))
- (cond
- ((and group article)
- (gnus-activate-group group)
- (condition-case nil
- (let ((msg "Couldn't follow Gnus link. Summary couldn't be opened."))
- (pcase (gnus-find-method-for-group group)
- (`(nndoc . ,_)
- (if (gnus-group-read-group t nil group)
- (gnus-summary-goto-article article nil t)
- (message msg)))
- (_
- (let ((articles 1)
- group-opened)
- (while (and (not group-opened)
- ;; Stop on integer overflows.
- (> articles 0))
- (setq group-opened (gnus-group-read-group articles t group))
- (setq articles (if (< articles 16)
- (1+ articles)
- (* articles 2))))
- (if group-opened
- (gnus-summary-goto-article article nil t)
- (message msg))))))
- (quit
- (message "Couldn't follow Gnus link. The linked group is empty."))))
- (group (gnus-group-jump-to-group group)))))
-
-(defun org-gnus-no-new-news ()
- "Like `\\[gnus]' but doesn't check for new news."
- (cond ((gnus-alive-p) nil)
- (org-gnus-no-server (gnus-no-server))
- (t (gnus))))
-
-(provide 'org-gnus)
-
-
-;;; org-gnus.el ends here
diff --git a/elpa/org-9.1.14/org-gnus.elc b/elpa/org-9.1.14/org-gnus.elc
deleted file mode 100644
index 490ddbe..0000000
--- a/elpa/org-9.1.14/org-gnus.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-habit.el b/elpa/org-9.1.14/org-habit.el
deleted file mode 100644
index 375714e..0000000
--- a/elpa/org-9.1.14/org-habit.el
+++ /dev/null
@@ -1,442 +0,0 @@
-;;; org-habit.el --- The habit tracking code for Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-
-;; Author: John Wiegley <johnw at gnu dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the habit tracking code for Org mode
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-(require 'org-agenda)
-
-(defgroup org-habit nil
- "Options concerning habit tracking in Org mode."
- :tag "Org Habit"
- :group 'org-progress)
-
-(defcustom org-habit-graph-column 40
- "The absolute column at which to insert habit consistency graphs.
-Note that consistency graphs will overwrite anything else in the buffer."
- :group 'org-habit
- :type 'integer)
-
-(defcustom org-habit-preceding-days 21
- "Number of days before today to appear in consistency graphs."
- :group 'org-habit
- :type 'integer)
-
-(defcustom org-habit-following-days 7
- "Number of days after today to appear in consistency graphs."
- :group 'org-habit
- :type 'integer)
-
-(defcustom org-habit-show-habits t
- "If non-nil, show habits in agenda buffers."
- :group 'org-habit
- :type 'boolean)
-
-(defcustom org-habit-show-habits-only-for-today t
- "If non-nil, only show habits on today's agenda, and not for future days.
-Note that even when shown for future days, the graph is always
-relative to the current effective date."
- :group 'org-habit
- :type 'boolean)
-
-(defcustom org-habit-show-all-today nil
- "If non-nil, will show the consistency graph of all habits on
-today's agenda, even if they are not scheduled."
- :group 'org-habit
- :type 'boolean)
-
-(defcustom org-habit-today-glyph ?!
- "Glyph character used to identify today."
- :group 'org-habit
- :version "24.1"
- :type 'character)
-
-(defcustom org-habit-completed-glyph ?*
- "Glyph character used to show completed days on which a task was done."
- :group 'org-habit
- :version "24.1"
- :type 'character)
-
-(defcustom org-habit-show-done-always-green nil
- "Non-nil means DONE days will always be green in the consistency graph.
-It will be green even if it was done after the deadline."
- :group 'org-habit
- :type 'boolean)
-
-(defface org-habit-clear-face
- '((((background light)) (:background "#8270f9"))
- (((background dark)) (:background "blue")))
- "Face for days on which a task shouldn't be done yet."
- :group 'org-habit
- :group 'org-faces)
-(defface org-habit-clear-future-face
- '((((background light)) (:background "#d6e4fc"))
- (((background dark)) (:background "midnightblue")))
- "Face for future days on which a task shouldn't be done yet."
- :group 'org-habit
- :group 'org-faces)
-
-(defface org-habit-ready-face
- '((((background light)) (:background "#4df946"))
- (((background dark)) (:background "forestgreen")))
- "Face for days on which a task should start to be done."
- :group 'org-habit
- :group 'org-faces)
-(defface org-habit-ready-future-face
- '((((background light)) (:background "#acfca9"))
- (((background dark)) (:background "darkgreen")))
- "Face for days on which a task should start to be done."
- :group 'org-habit
- :group 'org-faces)
-
-(defface org-habit-alert-face
- '((((background light)) (:background "#f5f946"))
- (((background dark)) (:background "gold")))
- "Face for days on which a task is due."
- :group 'org-habit
- :group 'org-faces)
-(defface org-habit-alert-future-face
- '((((background light)) (:background "#fafca9"))
- (((background dark)) (:background "darkgoldenrod")))
- "Face for days on which a task is due."
- :group 'org-habit
- :group 'org-faces)
-
-(defface org-habit-overdue-face
- '((((background light)) (:background "#f9372d"))
- (((background dark)) (:background "firebrick")))
- "Face for days on which a task is overdue."
- :group 'org-habit
- :group 'org-faces)
-(defface org-habit-overdue-future-face
- '((((background light)) (:background "#fc9590"))
- (((background dark)) (:background "darkred")))
- "Face for days on which a task is overdue."
- :group 'org-habit
- :group 'org-faces)
-
-(defun org-habit-duration-to-days (ts)
- (if (string-match "\\([0-9]+\\)\\([dwmy]\\)" ts)
- ;; lead time is specified.
- (floor (* (string-to-number (match-string 1 ts))
- (cdr (assoc (match-string 2 ts)
- '(("d" . 1) ("w" . 7)
- ("m" . 30.4) ("y" . 365.25))))))
- (error "Invalid duration string: %s" ts)))
-
-(defun org-is-habit-p (&optional pom)
- "Is the task at POM or point a habit?"
- (string= "habit" (org-entry-get (or pom (point)) "STYLE")))
-
-(defun org-habit-parse-todo (&optional pom)
- "Parse the TODO surrounding point for its habit-related data.
-Returns a list with the following elements:
-
- 0: Scheduled date for the habit (may be in the past)
- 1: \".+\"-style repeater for the schedule, in days
- 2: Optional deadline (nil if not present)
- 3: If deadline, the repeater for the deadline, otherwise nil
- 4: A list of all the past dates this todo was mark closed
- 5: Repeater type as a string
-
-This list represents a \"habit\" for the rest of this module."
- (save-excursion
- (if pom (goto-char pom))
- (cl-assert (org-is-habit-p (point)))
- (let* ((scheduled (org-get-scheduled-time (point)))
- (scheduled-repeat (org-get-repeat (org-entry-get (point) "SCHEDULED")))
- (end (org-entry-end-position))
- (habit-entry (org-no-properties (nth 4 (org-heading-components))))
- closed-dates deadline dr-days sr-days sr-type)
- (if scheduled
- (setq scheduled (time-to-days scheduled))
- (error "Habit %s has no scheduled date" habit-entry))
- (unless scheduled-repeat
- (error
- "Habit `%s' has no scheduled repeat period or has an incorrect one"
- habit-entry))
- (setq sr-days (org-habit-duration-to-days scheduled-repeat)
- sr-type (progn (string-match "[\\.+]?\\+" scheduled-repeat)
- (match-string-no-properties 0 scheduled-repeat)))
- (unless (> sr-days 0)
- (error "Habit %s scheduled repeat period is less than 1d" habit-entry))
- (when (string-match "/\\([0-9]+[dwmy]\\)" scheduled-repeat)
- (setq dr-days (org-habit-duration-to-days
- (match-string-no-properties 1 scheduled-repeat)))
- (if (<= dr-days sr-days)
- (error "Habit %s deadline repeat period is less than or equal to scheduled (%s)"
- habit-entry scheduled-repeat))
- (setq deadline (+ scheduled (- dr-days sr-days))))
- (org-back-to-heading t)
- (let* ((maxdays (+ org-habit-preceding-days org-habit-following-days))
- (reversed org-log-states-order-reversed)
- (search (if reversed 're-search-forward 're-search-backward))
- (limit (if reversed end (point)))
- (count 0)
- (re (format
- "^[ \t]*-[ \t]+\\(?:State \"%s\".*%s%s\\)"
- (regexp-opt org-done-keywords)
- org-ts-regexp-inactive
- (let ((value (cdr (assq 'done org-log-note-headings))))
- (if (not value) ""
- (concat "\\|"
- (org-replace-escapes
- (regexp-quote value)
- `(("%d" . ,org-ts-regexp-inactive)
- ("%D" . ,org-ts-regexp)
- ("%s" . "\"\\S-+\"")
- ("%S" . "\"\\S-+\"")
- ("%t" . ,org-ts-regexp-inactive)
- ("%T" . ,org-ts-regexp)
- ("%u" . ".*?")
- ("%U" . ".*?")))))))))
- (unless reversed (goto-char end))
- (while (and (< count maxdays) (funcall search re limit t))
- (push (time-to-days
- (org-time-string-to-time
- (or (match-string-no-properties 1)
- (match-string-no-properties 2))))
- closed-dates)
- (setq count (1+ count))))
- (list scheduled sr-days deadline dr-days closed-dates sr-type))))
-
-(defsubst org-habit-scheduled (habit)
- (nth 0 habit))
-(defsubst org-habit-scheduled-repeat (habit)
- (nth 1 habit))
-(defsubst org-habit-deadline (habit)
- (let ((deadline (nth 2 habit)))
- (or deadline
- (if (nth 3 habit)
- (+ (org-habit-scheduled habit)
- (1- (org-habit-scheduled-repeat habit)))
- (org-habit-scheduled habit)))))
-(defsubst org-habit-deadline-repeat (habit)
- (or (nth 3 habit)
- (org-habit-scheduled-repeat habit)))
-(defsubst org-habit-done-dates (habit)
- (nth 4 habit))
-(defsubst org-habit-repeat-type (habit)
- (nth 5 habit))
-
-(defsubst org-habit-get-priority (habit &optional moment)
- "Determine the relative priority of a habit.
-This must take into account not just urgency, but consistency as well."
- (let ((pri 1000)
- (now (if moment (time-to-days moment) (org-today)))
- (scheduled (org-habit-scheduled habit))
- (deadline (org-habit-deadline habit)))
- ;; add 10 for every day past the scheduled date, and subtract for every
- ;; day before it
- (setq pri (+ pri (* (- now scheduled) 10)))
- ;; add 50 if the deadline is today
- (if (and (/= scheduled deadline)
- (= now deadline))
- (setq pri (+ pri 50)))
- ;; add 100 for every day beyond the deadline date, and subtract 10 for
- ;; every day before it
- (let ((slip (- now (1- deadline))))
- (if (> slip 0)
- (setq pri (+ pri (* slip 100)))
- (setq pri (+ pri (* slip 10)))))
- pri))
-
-(defun org-habit-get-faces (habit &optional now-days scheduled-days donep)
- "Return faces for HABIT relative to NOW-DAYS and SCHEDULED-DAYS.
-NOW-DAYS defaults to the current time's days-past-the-epoch if nil.
-SCHEDULED-DAYS defaults to the habit's actual scheduled days if nil.
-
-Habits are assigned colors on the following basis:
- Blue Task is before the scheduled date.
- Green Task is on or after scheduled date, but before the
- end of the schedule's repeat period.
- Yellow If the task has a deadline, then it is after schedule's
- repeat period, but before the deadline.
- Orange The task has reached the deadline day, or if there is
- no deadline, the end of the schedule's repeat period.
- Red The task has gone beyond the deadline day or the
- schedule's repeat period."
- (let* ((scheduled (or scheduled-days (org-habit-scheduled habit)))
- (s-repeat (org-habit-scheduled-repeat habit))
- (d-repeat (org-habit-deadline-repeat habit))
- (deadline (if scheduled-days
- (+ scheduled-days (- d-repeat s-repeat))
- (org-habit-deadline habit)))
- (m-days (or now-days (time-to-days (current-time)))))
- (cond
- ((< m-days scheduled)
- '(org-habit-clear-face . org-habit-clear-future-face))
- ((< m-days deadline)
- '(org-habit-ready-face . org-habit-ready-future-face))
- ((= m-days deadline)
- (if donep
- '(org-habit-ready-face . org-habit-ready-future-face)
- '(org-habit-alert-face . org-habit-alert-future-face)))
- ((and org-habit-show-done-always-green donep)
- '(org-habit-ready-face . org-habit-ready-future-face))
- (t '(org-habit-overdue-face . org-habit-overdue-future-face)))))
-
-(defun org-habit-build-graph (habit starting current ending)
- "Build a graph for the given HABIT, from STARTING to ENDING.
-CURRENT gives the current time between STARTING and ENDING, for
-the purpose of drawing the graph. It need not be the actual
-current time."
- (let* ((all-done-dates (sort (org-habit-done-dates habit) #'<))
- (done-dates all-done-dates)
- (scheduled (org-habit-scheduled habit))
- (s-repeat (org-habit-scheduled-repeat habit))
- (start (time-to-days starting))
- (now (time-to-days current))
- (end (time-to-days ending))
- (graph (make-string (1+ (- end start)) ?\s))
- (index 0)
- last-done-date)
- (while (and done-dates (< (car done-dates) start))
- (setq last-done-date (car done-dates)
- done-dates (cdr done-dates)))
- (while (< start end)
- (let* ((in-the-past-p (< start now))
- (todayp (= start now))
- (donep (and done-dates (= start (car done-dates))))
- (faces
- (if (and in-the-past-p
- (not last-done-date)
- (not (< scheduled now)))
- '(org-habit-clear-face . org-habit-clear-future-face)
- (org-habit-get-faces
- habit start
- (and in-the-past-p
- last-done-date
- ;; Compute scheduled time for habit at the time
- ;; START was current.
- (let ((type (org-habit-repeat-type habit)))
- (cond
- ;; At the last done date, use current
- ;; scheduling in all cases.
- ((null done-dates) scheduled)
- ((equal type ".+") (+ last-done-date s-repeat))
- ((equal type "+")
- ;; Since LAST-DONE-DATE, each done mark
- ;; shifted scheduled date by S-REPEAT.
- (- scheduled (* (length done-dates) s-repeat)))
- (t
- ;; Compute the scheduled time after the
- ;; first repeat. This is the closest time
- ;; past FIRST-DONE which can reach SCHEDULED
- ;; by a number of S-REPEAT hops.
- ;;
- ;; Then, play TODO state change history from
- ;; the beginning in order to find current
- ;; scheduled time.
- (let* ((first-done (car all-done-dates))
- (s (let ((shift (mod (- scheduled first-done)
- s-repeat)))
- (+ (if (= shift 0) s-repeat shift)
- first-done))))
- (if (= first-done last-done-date) s
- (catch :exit
- (dolist (done (cdr all-done-dates) s)
- ;; Each repeat shifts S by any
- ;; number of S-REPEAT hops it takes
- ;; to get past DONE, with a minimum
- ;; of one hop.
- (cl-incf s (* (1+ (/ (max (- done s) 0)
- s-repeat))
- s-repeat))
- (when (= done last-done-date)
- (throw :exit s))))))))))
- donep)))
- markedp face)
- (if donep
- (let ((done-time (time-add
- starting
- (days-to-time
- (- start (time-to-days starting))))))
-
- (aset graph index org-habit-completed-glyph)
- (setq markedp t)
- (put-text-property
- index (1+ index) 'help-echo
- (format-time-string (org-time-stamp-format) done-time) graph)
- (while (and done-dates
- (= start (car done-dates)))
- (setq last-done-date (car done-dates)
- done-dates (cdr done-dates))))
- (if todayp
- (aset graph index org-habit-today-glyph)))
- (setq face (if (or in-the-past-p todayp)
- (car faces)
- (cdr faces)))
- (if (and in-the-past-p
- (not (eq face 'org-habit-overdue-face))
- (not markedp))
- (setq face (cdr faces)))
- (put-text-property index (1+ index) 'face face graph))
- (setq start (1+ start)
- index (1+ index)))
- graph))
-
-(defun org-habit-insert-consistency-graphs (&optional line)
- "Insert consistency graph for any habitual tasks."
- (let ((inhibit-read-only t)
- (buffer-invisibility-spec '(org-link))
- (moment (time-subtract (current-time)
- (list 0 (* 3600 org-extend-today-until) 0))))
- (save-excursion
- (goto-char (if line (point-at-bol) (point-min)))
- (while (not (eobp))
- (let ((habit (get-text-property (point) 'org-habit-p)))
- (when habit
- (move-to-column org-habit-graph-column t)
- (delete-char (min (+ 1 org-habit-preceding-days
- org-habit-following-days)
- (- (line-end-position) (point))))
- (insert-before-markers
- (org-habit-build-graph
- habit
- (time-subtract moment (days-to-time org-habit-preceding-days))
- moment
- (time-add moment (days-to-time org-habit-following-days))))))
- (forward-line)))))
-
-(defun org-habit-toggle-habits ()
- "Toggle display of habits in an agenda buffer."
- (interactive)
- (org-agenda-check-type t 'agenda)
- (setq org-habit-show-habits (not org-habit-show-habits))
- (org-agenda-redo)
- (org-agenda-set-mode-name)
- (message "Habits turned %s"
- (if org-habit-show-habits "on" "off")))
-
-(org-defkey org-agenda-mode-map "K" 'org-habit-toggle-habits)
-
-(provide 'org-habit)
-
-;;; org-habit.el ends here
diff --git a/elpa/org-9.1.14/org-habit.elc b/elpa/org-9.1.14/org-habit.elc
deleted file mode 100644
index 66c4c95..0000000
--- a/elpa/org-9.1.14/org-habit.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-id.el b/elpa/org-9.1.14/org-id.el
deleted file mode 100644
index 26b203f..0000000
--- a/elpa/org-9.1.14/org-id.el
+++ /dev/null
@@ -1,684 +0,0 @@
-;;; org-id.el --- Global identifiers for Org entries -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2008-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements globally unique identifiers for Org entries.
-;; Identifiers are stored in the entry as an :ID: property. Functions
-;; are provided that create and retrieve such identifiers, and that find
-;; entries based on the identifier.
-
-;; Identifiers consist of a prefix (default "Org" given by the variable
-;; `org-id-prefix') and a unique part that can be created by a number
-;; of different methods, see the variable `org-id-method'.
-;; Org has a builtin method that uses a compact encoding of the creation
-;; time of the ID, with microsecond accuracy. This virtually
-;; guarantees globally unique identifiers, even if several people are
-;; creating IDs at the same time in files that will eventually be used
-;; together.
-;;
-;; By default Org uses UUIDs as global unique identifiers.
-;;
-;; This file defines the following API:
-;;
-;; org-id-get-create
-;; Create an ID for the entry at point if it does not yet have one.
-;; Returns the ID (old or new). This function can be used
-;; interactively, with prefix argument the creation of a new ID is
-;; forced, even if there was an old one.
-;;
-;; org-id-get
-;; Get the ID property of an entry. Using appropriate arguments
-;; to the function, it can also create the ID for this entry.
-;;
-;; org-id-goto
-;; Command to go to a specific ID, this command can be used
-;; interactively.
-;;
-;; org-id-get-with-outline-path-completion
-;; Retrieve the ID of an entry, using outline path completion.
-;; This function can work for multiple files.
-;;
-;; org-id-get-with-outline-drilling
-;; Retrieve the ID of an entry, using outline path completion.
-;; This function only works for the current file.
-;;
-;; org-id-find
-;; Find the location of an entry with specific id.
-;;
-
-;;; Code:
-
-(require 'org)
-
-(declare-function message-make-fqdn "message" ())
-
-;;; Customization
-
-(defgroup org-id nil
- "Options concerning global entry identifiers in Org mode."
- :tag "Org ID"
- :group 'org)
-
-(defcustom org-id-link-to-org-use-id nil
- "Non-nil means storing a link to an Org file will use entry IDs.
-\\<org-mode-map>\
-
-The variable can have the following values:
-
-t Create an ID if needed to make a link to the current entry.
-
-create-if-interactive
- If `org-store-link' is called directly (interactively, as a user
- command), do create an ID to support the link. But when doing the
- job for capture, only use the ID if it already exists. The
- purpose of this setting is to avoid proliferation of unwanted
- IDs, just because you happen to be in an Org file when you
- call `org-capture' that automatically and preemptively creates a
- link. If you do want to get an ID link in a capture template to
- an entry not having an ID, create it first by explicitly creating
- a link to it, using `\\[org-store-link]' first.
-
-create-if-interactive-and-no-custom-id
- Like create-if-interactive, but do not create an ID if there is
- a CUSTOM_ID property defined in the entry.
-
-use-existing
- Use existing ID, do not create one.
-
-nil Never use an ID to make a link, instead link using a text search for
- the headline text."
- :group 'org-link-store
- :group 'org-id
- :version "24.3"
- :type '(choice
- (const :tag "Create ID to make link" t)
- (const :tag "Create if storing link interactively"
- create-if-interactive)
- (const :tag "Create if storing link interactively and no CUSTOM_ID is present"
- create-if-interactive-and-no-custom-id)
- (const :tag "Only use existing" use-existing)
- (const :tag "Do not use ID to create link" nil)))
-
-(defcustom org-id-uuid-program "uuidgen"
- "The uuidgen program."
- :group 'org-id
- :type 'string)
-
-(defcustom org-id-method 'uuid
- "The method that should be used to create new IDs.
-
-An ID will consist of the optional prefix specified in `org-id-prefix',
-and a unique part created by the method this variable specifies.
-
-Allowed values are:
-
-org Org's own internal method, using an encoding of the current time to
- microsecond accuracy, and optionally the current domain of the
- computer. See the variable `org-id-include-domain'.
-
-uuid Create random (version 4) UUIDs. If the program defined in
- `org-id-uuid-program' is available it is used to create the ID.
- Otherwise an internal functions is used."
- :group 'org-id
- :type '(choice
- (const :tag "Org's internal method" org)
- (const :tag "external: uuidgen" uuid)))
-
-(defcustom org-id-prefix nil
- "The prefix for IDs.
-
-This may be a string, or it can be nil to indicate that no prefix is required.
-When a string, the string should have no space characters as IDs are expected
-to have no space characters in them."
- :group 'org-id
- :type '(choice
- (const :tag "No prefix")
- (string :tag "Prefix")))
-
-(defcustom org-id-include-domain nil
- "Non-nil means add the domain name to new IDs.
-This ensures global uniqueness of IDs, and is also suggested by
-RFC 2445 in combination with RFC 822. This is only relevant if
-`org-id-method' is `org'. When uuidgen is used, the domain will never
-be added.
-The default is to not use this because we have no really good way to get
-the true domain, and Org entries will normally not be shared with enough
-people to make this necessary."
- :group 'org-id
- :type 'boolean)
-
-(defcustom org-id-track-globally t
- "Non-nil means track IDs through files, so that links work globally.
-This work by maintaining a hash table for IDs and writing this table
-to disk when exiting Emacs. Because of this, it works best if you use
-a single Emacs process, not many.
-
-When nil, IDs are not tracked. Links to IDs will still work within
-a buffer, but not if the entry is located in another file.
-IDs can still be used if the entry with the id is in the same file as
-the link."
- :group 'org-id
- :type 'boolean)
-
-(defcustom org-id-locations-file (convert-standard-filename
- (concat user-emacs-directory ".org-id-locations"))
- "The file for remembering in which file an ID was defined.
-This variable is only relevant when `org-id-track-globally' is set."
- :group 'org-id
- :type 'file)
-
-(defvar org-id-locations nil
- "List of files with IDs in those files.")
-
-(defvar org-id-files nil
- "List of files that contain IDs.")
-
-(defcustom org-id-extra-files 'org-agenda-text-search-extra-files
- "Files to be searched for IDs, besides the agenda files.
-When Org reparses files to remake the list of files and IDs it is tracking,
-it will normally scan the agenda files, the archives related to agenda files,
-any files that are listed as ID containing in the current register, and
-any Org file currently visited by Emacs.
-You can list additional files here.
-This variable is only relevant when `org-id-track-globally' is set."
- :group 'org-id
- :type
- '(choice
- (symbol :tag "Variable")
- (repeat :tag "List of files"
- (file))))
-
-(defcustom org-id-search-archives t
- "Non-nil means search also the archive files of agenda files for entries.
-This is a possibility to reduce overhead, but it means that entries moved
-to the archives can no longer be found by ID.
-This variable is only relevant when `org-id-track-globally' is set."
- :group 'org-id
- :type 'boolean)
-
-;;; The API functions
-
-;;;###autoload
-(defun org-id-get-create (&optional force)
- "Create an ID for the current entry and return it.
-If the entry already has an ID, just return it.
-With optional argument FORCE, force the creation of a new ID."
- (interactive "P")
- (when force
- (org-entry-put (point) "ID" nil))
- (org-id-get (point) 'create))
-
-;;;###autoload
-(defun org-id-copy ()
- "Copy the ID of the entry at point to the kill ring.
-Create an ID if necessary."
- (interactive)
- (org-kill-new (org-id-get nil 'create)))
-
-;;;###autoload
-(defun org-id-get (&optional pom create prefix)
- "Get the ID property of the entry at point-or-marker POM.
-If POM is nil, refer to the entry at point.
-If the entry does not have an ID, the function returns nil.
-However, when CREATE is non nil, create an ID if none is present already.
-PREFIX will be passed through to `org-id-new'.
-In any case, the ID of the entry is returned."
- (org-with-point-at pom
- (let ((id (org-entry-get nil "ID")))
- (cond
- ((and id (stringp id) (string-match "\\S-" id))
- id)
- (create
- (setq id (org-id-new prefix))
- (org-entry-put pom "ID" id)
- (org-id-add-location id (buffer-file-name (buffer-base-buffer)))
- id)))))
-
-;;;###autoload
-(defun org-id-get-with-outline-path-completion (&optional targets)
- "Use `outline-path-completion' to retrieve the ID of an entry.
-TARGETS may be a setting for `org-refile-targets' to define
-eligible headlines. When omitted, all headlines in the current
-file are eligible. This function returns the ID of the entry.
-If necessary, the ID is created."
- (let* ((org-refile-targets (or targets '((nil . (:maxlevel . 10)))))
- (org-refile-use-outline-path
- (if (caar org-refile-targets) 'file t))
- (org-refile-target-verify-function nil)
- (spos (org-refile-get-location "Entry"))
- (pom (and spos (move-marker (make-marker) (nth 3 spos)
- (get-file-buffer (nth 1 spos))))))
- (prog1 (org-id-get pom 'create)
- (move-marker pom nil))))
-
-;;;###autoload
-(defun org-id-get-with-outline-drilling ()
- "Use an outline-cycling interface to retrieve the ID of an entry.
-This only finds entries in the current buffer, using `org-get-location'.
-It returns the ID of the entry. If necessary, the ID is created."
- (let* ((spos (org-get-location (current-buffer) org-goto-help))
- (pom (and spos (move-marker (make-marker) (car spos)))))
- (prog1 (org-id-get pom 'create)
- (move-marker pom nil))))
-
-;;;###autoload
-(defun org-id-goto (id)
- "Switch to the buffer containing the entry with id ID.
-Move the cursor to that entry in that buffer."
- (interactive "sID: ")
- (let ((m (org-id-find id 'marker)))
- (unless m
- (error "Cannot find entry with ID \"%s\"" id))
- (pop-to-buffer-same-window (marker-buffer m))
- (goto-char m)
- (move-marker m nil)
- (org-show-context)))
-
-;;;###autoload
-(defun org-id-find (id &optional markerp)
- "Return the location of the entry with the id ID.
-The return value is a cons cell (file-name . position), or nil
-if there is no entry with that ID.
-With optional argument MARKERP, return the position as a new marker."
- (cond
- ((symbolp id) (setq id (symbol-name id)))
- ((numberp id) (setq id (number-to-string id))))
- (let ((file (org-id-find-id-file id))
- org-agenda-new-buffers where)
- (when file
- (setq where (org-id-find-id-in-file id file markerp)))
- (unless where
- (org-id-update-id-locations nil t)
- (setq file (org-id-find-id-file id))
- (when file
- (setq where (org-id-find-id-in-file id file markerp))))
- where))
-
-;;; Internal functions
-
-;; Creating new IDs
-
-;;;###autoload
-(defun org-id-new (&optional prefix)
- "Create a new globally unique ID.
-
-An ID consists of two parts separated by a colon:
-- a prefix
-- a unique part that will be created according to `org-id-method'.
-
-PREFIX can specify the prefix, the default is given by the variable
-`org-id-prefix'. However, if PREFIX is the symbol `none', don't use any
-prefix even if `org-id-prefix' specifies one.
-
-So a typical ID could look like \"Org:4nd91V40HI\"."
- (let* ((prefix (if (eq prefix 'none)
- ""
- (concat (or prefix org-id-prefix) ":")))
- unique)
- (if (equal prefix ":") (setq prefix ""))
- (cond
- ((memq org-id-method '(uuidgen uuid))
- (setq unique (org-trim (shell-command-to-string org-id-uuid-program)))
- (unless (org-uuidgen-p unique)
- (setq unique (org-id-uuid))))
- ((eq org-id-method 'org)
- (let* ((etime (org-reverse-string (org-id-time-to-b36)))
- (postfix (if org-id-include-domain
- (progn
- (require 'message)
- (concat "@" (message-make-fqdn))))))
- (setq unique (concat etime postfix))))
- (t (error "Invalid `org-id-method'")))
- (concat prefix unique)))
-
-(defun org-id-uuid ()
- "Return string with random (version 4) UUID."
- (let ((rnd (md5 (format "%s%s%s%s%s%s%s"
- (random)
- (current-time)
- (user-uid)
- (emacs-pid)
- (user-full-name)
- user-mail-address
- (recent-keys)))))
- (format "%s-%s-4%s-%s%s-%s"
- (substring rnd 0 8)
- (substring rnd 8 12)
- (substring rnd 13 16)
- (format "%x"
- (logior
- #b10000000
- (logand
- #b10111111
- (string-to-number
- (substring rnd 16 18) 16))))
- (substring rnd 18 20)
- (substring rnd 20 32))))
-
-(defun org-id-int-to-b36-one-digit (i)
- "Turn an integer between 0 and 61 into a single character 0..9, A..Z, a..z."
- (cond
- ((< i 10) (+ ?0 i))
- ((< i 36) (+ ?a i -10))
- (t (error "Larger that 35"))))
-
-(defun org-id-b36-to-int-one-digit (i)
- "Turn a character 0..9, A..Z, a..z into a number 0..61.
-The input I may be a character, or a single-letter string."
- (and (stringp i) (setq i (string-to-char i)))
- (cond
- ((and (>= i ?0) (<= i ?9)) (- i ?0))
- ((and (>= i ?a) (<= i ?z)) (+ (- i ?a) 10))
- (t (error "Invalid b36 letter"))))
-
-(defun org-id-int-to-b36 (i &optional length)
- "Convert an integer to a base-36 number represented as a string."
- (let ((s ""))
- (while (> i 0)
- (setq s (concat (char-to-string
- (org-id-int-to-b36-one-digit (mod i 36))) s)
- i (/ i 36)))
- (setq length (max 1 (or length 1)))
- (if (< (length s) length)
- (setq s (concat (make-string (- length (length s)) ?0) s)))
- s))
-
-(defun org-id-b36-to-int (s)
- "Convert a base-36 string into the corresponding integer."
- (let ((r 0))
- (mapc (lambda (i) (setq r (+ (* r 36) (org-id-b36-to-int-one-digit i))))
- s)
- r))
-
-(defun org-id-time-to-b36 (&optional time)
- "Encode TIME as a 10-digit string.
-This string holds the time to micro-second accuracy, and can be decoded
-using `org-id-decode'."
- (setq time (or time (current-time)))
- (concat (org-id-int-to-b36 (nth 0 time) 4)
- (org-id-int-to-b36 (nth 1 time) 4)
- (org-id-int-to-b36 (or (nth 2 time) 0) 4)))
-
-(defun org-id-decode (id)
- "Split ID into the prefix and the time value that was used to create it.
-The return value is (prefix . time) where PREFIX is nil or a string,
-and time is the usual three-integer representation of time."
- (let (prefix time parts)
- (setq parts (org-split-string id ":"))
- (if (= 2 (length parts))
- (setq prefix (car parts) time (nth 1 parts))
- (setq prefix nil time (nth 0 parts)))
- (setq time (org-reverse-string time))
- (setq time (list (org-id-b36-to-int (substring time 0 4))
- (org-id-b36-to-int (substring time 4 8))
- (org-id-b36-to-int (substring time 8 12))))
- (cons prefix time)))
-
-;; Storing ID locations (files)
-
-;;;###autoload
-(defun org-id-update-id-locations (&optional files silent)
- "Scan relevant files for IDs.
-Store the relation between files and corresponding IDs.
-This will scan all agenda files, all associated archives, and all
-files currently mentioned in `org-id-locations'.
-When FILES is given, scan these files instead."
- (interactive)
- (if (not org-id-track-globally)
- (error "Please turn on `org-id-track-globally' if you want to track IDs")
- (let* ((org-id-search-archives
- (or org-id-search-archives
- (and (symbolp org-id-extra-files)
- (symbol-value org-id-extra-files)
- (member 'agenda-archives org-id-extra-files))))
- (files
- (or files
- (append
- ;; Agenda files and all associated archives
- (org-agenda-files t org-id-search-archives)
- ;; Explicit extra files
- (if (symbolp org-id-extra-files)
- (symbol-value org-id-extra-files)
- org-id-extra-files)
- ;; Files associated with live Org buffers
- (delq nil
- (mapcar (lambda (b)
- (with-current-buffer b
- (and (derived-mode-p 'org-mode) (buffer-file-name))))
- (buffer-list)))
- ;; All files known to have IDs
- org-id-files)))
- org-agenda-new-buffers
- file nfiles tfile ids reg found id seen (ndup 0))
- (when (member 'agenda-archives files)
- (setq files (delq 'agenda-archives (copy-sequence files))))
- (setq nfiles (length files))
- (while (setq file (pop files))
- (unless silent
- (message "Finding ID locations (%d/%d files): %s"
- (- nfiles (length files)) nfiles file))
- (setq tfile (file-truename file))
- (when (and (file-exists-p file) (not (member tfile seen)))
- (push tfile seen)
- (setq ids nil)
- (with-current-buffer (org-get-agenda-file-buffer file)
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (while (re-search-forward "^[ \t]*:ID:[ \t]+\\(\\S-+\\)[ \t]*$"
- nil t)
- (setq id (match-string-no-properties 1))
- (if (member id found)
- (progn
- (message "Duplicate ID \"%s\", also in file %s"
- id (or (car (delq
- nil
- (mapcar
- (lambda (x)
- (if (member id (cdr x))
- (car x)))
- reg)))
- (buffer-file-name)))
- (when (= ndup 0)
- (ding)
- (sit-for 2))
- (setq ndup (1+ ndup)))
- (push id found)
- (push id ids)))
- (push (cons (abbreviate-file-name file) ids) reg))))))
- (org-release-buffers org-agenda-new-buffers)
- (setq org-agenda-new-buffers nil)
- (setq org-id-locations reg)
- (setq org-id-files (mapcar 'car org-id-locations))
- (org-id-locations-save) ;; this function can also handle the alist form
- ;; now convert to a hash
- (setq org-id-locations (org-id-alist-to-hash org-id-locations))
- (if (> ndup 0)
- (message "WARNING: %d duplicate IDs found, check *Messages* buffer" ndup)
- (message "%d unique files scanned for IDs" (length org-id-files)))
- org-id-locations)))
-
-(defun org-id-locations-save ()
- "Save `org-id-locations' in `org-id-locations-file'."
- (when (and org-id-track-globally org-id-locations)
- (let ((out (if (hash-table-p org-id-locations)
- (org-id-hash-to-alist org-id-locations)
- org-id-locations)))
- (with-temp-file org-id-locations-file
- (let ((print-level nil)
- (print-length nil))
- (print out (current-buffer)))))))
-
-(defun org-id-locations-load ()
- "Read the data from `org-id-locations-file'."
- (setq org-id-locations nil)
- (when org-id-track-globally
- (with-temp-buffer
- (condition-case nil
- (progn
- (insert-file-contents org-id-locations-file)
- (setq org-id-locations (read (current-buffer))))
- (error
- (message "Could not read org-id-values from %s. Setting it to nil."
- org-id-locations-file))))
- (setq org-id-files (mapcar 'car org-id-locations))
- (setq org-id-locations (org-id-alist-to-hash org-id-locations))))
-
-(defun org-id-add-location (id file)
- "Add the ID with location FILE to the database of ID locations."
- ;; Only if global tracking is on, and when the buffer has a file
- (when (and org-id-track-globally id file)
- (unless org-id-locations (org-id-locations-load))
- (puthash id (abbreviate-file-name file) org-id-locations)
- (add-to-list 'org-id-files (abbreviate-file-name file))))
-
-(unless noninteractive
- (add-hook 'kill-emacs-hook 'org-id-locations-save))
-
-(defun org-id-hash-to-alist (hash)
- "Turn an org-id hash into an alist, so that it can be written to a file."
- (let (res x)
- (maphash
- (lambda (k v)
- (if (setq x (member v res))
- (setcdr x (cons k (cdr x)))
- (push (list v k) res)))
- hash)
- res))
-
-(defun org-id-alist-to-hash (list)
- "Turn an org-id location list into a hash table."
- (let ((res (make-hash-table
- :test 'equal
- :size (apply '+ (mapcar 'length list))))
- f)
- (mapc
- (lambda (x)
- (setq f (car x))
- (mapc (lambda (i) (puthash i f res)) (cdr x)))
- list)
- res))
-
-(defun org-id-paste-tracker (txt &optional buffer-or-file)
- "Update any IDs in TXT and assign BUFFER-OR-FILE to them."
- (when org-id-track-globally
- (save-match-data
- (setq buffer-or-file (or buffer-or-file (current-buffer)))
- (when (bufferp buffer-or-file)
- (setq buffer-or-file (or (buffer-base-buffer buffer-or-file)
- buffer-or-file))
- (setq buffer-or-file (buffer-file-name buffer-or-file)))
- (when buffer-or-file
- (let ((fname (abbreviate-file-name buffer-or-file))
- (s 0))
- (while (string-match "^[ \t]*:ID:[ \t]+\\([^ \t\n\r]+\\)" txt s)
- (setq s (match-end 0))
- (org-id-add-location (match-string 1 txt) fname)))))))
-
-;; Finding entries with specified id
-
-;;;###autoload
-(defun org-id-find-id-file (id)
- "Query the id database for the file in which this ID is located."
- (unless org-id-locations (org-id-locations-load))
- (or (and org-id-locations
- (hash-table-p org-id-locations)
- (gethash id org-id-locations))
- ;; ball back on current buffer
- (buffer-file-name (or (buffer-base-buffer (current-buffer))
- (current-buffer)))))
-
-(defun org-id-find-id-in-file (id file &optional markerp)
- "Return the position of the entry ID in FILE.
-If that files does not exist, or if it does not contain this ID,
-return nil.
-The position is returned as a cons cell (file-name . position). With
-optional argument MARKERP, return the position as a new marker."
- (let (org-agenda-new-buffers buf pos)
- (cond
- ((not file) nil)
- ((not (file-exists-p file)) nil)
- (t (with-current-buffer (setq buf (org-get-agenda-file-buffer file))
- (setq pos (org-find-entry-with-id id))
- (when pos
- (if markerp
- (move-marker (make-marker) pos buf)
- (cons file pos))))))))
-
-;; id link type
-
-;; Calling the following function is hard-coded into `org-store-link',
-;; so we do have to add it to `org-store-link-functions'.
-
-;;;###autoload
-(defun org-id-store-link ()
- "Store a link to the current entry, using its ID."
- (interactive)
- (when (and (buffer-file-name (buffer-base-buffer)) (derived-mode-p 'org-mode))
- (let* ((link (concat "id:" (org-id-get-create)))
- (case-fold-search nil)
- (desc (save-excursion
- (org-back-to-heading t)
- (or (and (looking-at org-complex-heading-regexp)
- (if (match-end 4)
- (match-string 4)
- (match-string 0)))
- link))))
- (org-store-link-props :link link :description desc :type "id")
- link)))
-
-(defun org-id-open (id)
- "Go to the entry with id ID."
- (org-mark-ring-push)
- (let ((m (org-id-find id 'marker))
- cmd)
- (unless m
- (error "Cannot find entry with ID \"%s\"" id))
- ;; Use a buffer-switching command in analogy to finding files
- (setq cmd
- (or
- (cdr
- (assq
- (cdr (assq 'file org-link-frame-setup))
- '((find-file . switch-to-buffer)
- (find-file-other-window . switch-to-buffer-other-window)
- (find-file-other-frame . switch-to-buffer-other-frame))))
- 'switch-to-buffer-other-window))
- (if (not (equal (current-buffer) (marker-buffer m)))
- (funcall cmd (marker-buffer m)))
- (goto-char m)
- (move-marker m nil)
- (org-show-context)))
-
-(org-link-set-parameters "id" :follow #'org-id-open)
-
-(provide 'org-id)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-id.el ends here
diff --git a/elpa/org-9.1.14/org-id.elc b/elpa/org-9.1.14/org-id.elc
deleted file mode 100644
index 9f331dc..0000000
--- a/elpa/org-9.1.14/org-id.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-indent.el b/elpa/org-9.1.14/org-indent.el
deleted file mode 100644
index 84bac2a..0000000
--- a/elpa/org-9.1.14/org-indent.el
+++ /dev/null
@@ -1,412 +0,0 @@
-;;; org-indent.el --- Dynamic indentation for Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-;;
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This is an implementation of dynamic virtual indentation. It works
-;; by adding text properties to a buffer to make sure lines are
-;; indented according to outline structure.
-;;
-;; The process is synchronous, toggled at every buffer modification.
-;; Though, the initialization (indentation of text already in the
-;; buffer), which can take a few seconds in large buffers, happens on
-;; idle time.
-;;
-;;; Code:
-
-(require 'org-macs)
-(require 'org-compat)
-(require 'org)
-
-(require 'cl-lib)
-
-(declare-function org-inlinetask-get-task-level "org-inlinetask" ())
-(declare-function org-inlinetask-in-task-p "org-inlinetask" ())
-(declare-function org-list-item-body-column "org-list" (item))
-(defvar org-inlinetask-show-first-star)
-
-(defgroup org-indent nil
- "Options concerning dynamic virtual outline indentation."
- :tag "Org Indent"
- :group 'org)
-
-(defvar org-indent-inlinetask-first-star (org-add-props "*" '(face org-warning))
- "First star of inline tasks, with correct face.")
-(defvar org-indent-agent-timer nil
- "Timer running the initialize agent.")
-(defvar org-indent-agentized-buffers nil
- "List of buffers watched by the initialize agent.")
-(defvar org-indent-agent-resume-timer nil
- "Timer to reschedule agent after switching to other idle processes.")
-(defvar org-indent-agent-active-delay '(0 2 0)
- "Time to run agent before switching to other idle processes.
-Delay used when the buffer to initialize is current.")
-(defvar org-indent-agent-passive-delay '(0 0 400000)
- "Time to run agent before switching to other idle processes.
-Delay used when the buffer to initialize isn't current.")
-(defvar org-indent-agent-resume-delay '(0 0 100000)
- "Minimal time for other idle processes before switching back to agent.")
-(defvar org-indent--initial-marker nil
- "Position of initialization before interrupt.
-This is used locally in each buffer being initialized.")
-(defvar org-hide-leading-stars-before-indent-mode nil
- "Used locally.")
-(defvar org-indent-modified-headline-flag nil
- "Non-nil means the last deletion operated on a headline.
-It is modified by `org-indent-notify-modified-headline'.")
-
-
-(defcustom org-indent-boundary-char ?\s
- "The end of the virtual indentation strings, a single-character string.
-The default is just a space, but if you wish, you can use \"|\" or so.
-This can be useful on a terminal window - under a windowing system,
-it may be prettier to customize the `org-indent' face."
- :group 'org-indent
- :type 'character)
-
-(defcustom org-indent-mode-turns-off-org-adapt-indentation t
- "Non-nil means setting the variable `org-indent-mode' will \
-turn off indentation adaptation.
-For details see the variable `org-adapt-indentation'."
- :group 'org-indent
- :type 'boolean)
-
-(defcustom org-indent-mode-turns-on-hiding-stars t
- "Non-nil means setting the variable `org-indent-mode' will \
-turn on `org-hide-leading-stars'."
- :group 'org-indent
- :type 'boolean)
-
-(defcustom org-indent-indentation-per-level 2
- "Indentation per level in number of characters."
- :group 'org-indent
- :type 'integer)
-
-(defface org-indent '((t (:inherit org-hide)))
- "Face for outline indentation.
-The default is to make it look like whitespace. But you may find it
-useful to make it ever so slightly different."
- :group 'org-faces)
-
-(defvar org-indent--text-line-prefixes nil
- "Vector containing line prefixes strings for regular text.")
-
-(defvar org-indent--heading-line-prefixes nil
- "Vector containing line prefix strings for headlines.")
-
-(defvar org-indent--inlinetask-line-prefixes nil
- "Vector containing line prefix strings for inline tasks.")
-
-(defconst org-indent--deepest-level 50
- "Maximum theoretical headline depth.")
-
-(defun org-indent--compute-prefixes ()
- "Compute prefix strings for regular text and headlines."
- (setq org-indent--heading-line-prefixes
- (make-vector org-indent--deepest-level nil))
- (setq org-indent--inlinetask-line-prefixes
- (make-vector org-indent--deepest-level nil))
- (setq org-indent--text-line-prefixes
- (make-vector org-indent--deepest-level nil))
- (dotimes (n org-indent--deepest-level)
- (let ((indentation (if (<= n 1) 0
- (* (1- org-indent-indentation-per-level)
- (1- n)))))
- ;; Headlines line prefixes.
- (let ((heading-prefix (make-string indentation ?*)))
- (aset org-indent--heading-line-prefixes
- n
- (org-add-props heading-prefix nil 'face 'org-indent))
- ;; Inline tasks line prefixes
- (aset org-indent--inlinetask-line-prefixes
- n
- (cond ((<= n 1) "")
- ((bound-and-true-p org-inlinetask-show-first-star)
- (concat org-indent-inlinetask-first-star
- (substring heading-prefix 1)))
- (t (org-add-props heading-prefix nil 'face 'org-indent)))))
- ;; Text line prefixes.
- (aset org-indent--text-line-prefixes
- n
- (concat (org-add-props (make-string (+ n indentation) ?\s)
- nil 'face 'org-indent)
- (and (> n 0)
- (char-to-string org-indent-boundary-char)))))))
-
-(defsubst org-indent-remove-properties (beg end)
- "Remove indentations between BEG and END."
- (org-with-silent-modifications
- (remove-text-properties beg end '(line-prefix nil wrap-prefix nil))))
-
-;;;###autoload
-(define-minor-mode org-indent-mode
- "When active, indent text according to outline structure.
-
-Internally this works by adding `line-prefix' and `wrap-prefix'
-properties, after each buffer modification, on the modified zone.
-
-The process is synchronous. Though, initial indentation of
-buffer, which can take a few seconds on large buffers, is done
-during idle time."
- nil " Ind" nil
- (cond
- (org-indent-mode
- ;; mode was turned on.
- (setq-local indent-tabs-mode nil)
- (setq-local org-indent--initial-marker (copy-marker 1))
- (when org-indent-mode-turns-off-org-adapt-indentation
- (setq-local org-adapt-indentation nil))
- (when org-indent-mode-turns-on-hiding-stars
- (setq-local org-hide-leading-stars-before-indent-mode
- org-hide-leading-stars)
- (setq-local org-hide-leading-stars t))
- (org-indent--compute-prefixes)
- (add-hook 'filter-buffer-substring-functions
- (lambda (fun start end delete)
- (org-indent-remove-properties-from-string
- (funcall fun start end delete)))
- nil t)
- (add-hook 'after-change-functions 'org-indent-refresh-maybe nil 'local)
- (add-hook 'before-change-functions
- 'org-indent-notify-modified-headline nil 'local)
- (and font-lock-mode (org-restart-font-lock))
- (org-indent-remove-properties (point-min) (point-max))
- ;; Submit current buffer to initialize agent. If it's the first
- ;; buffer submitted, also start the agent. Current buffer is
- ;; pushed in both cases to avoid a race condition.
- (if org-indent-agentized-buffers
- (push (current-buffer) org-indent-agentized-buffers)
- (push (current-buffer) org-indent-agentized-buffers)
- (setq org-indent-agent-timer
- (run-with-idle-timer 0.2 t #'org-indent-initialize-agent))))
- (t
- ;; mode was turned off (or we refused to turn it on)
- (kill-local-variable 'org-adapt-indentation)
- (setq org-indent-agentized-buffers
- (delq (current-buffer) org-indent-agentized-buffers))
- (when (markerp org-indent--initial-marker)
- (set-marker org-indent--initial-marker nil))
- (when (boundp 'org-hide-leading-stars-before-indent-mode)
- (setq-local org-hide-leading-stars
- org-hide-leading-stars-before-indent-mode))
- (remove-hook 'filter-buffer-substring-functions
- (lambda (fun start end delete)
- (org-indent-remove-properties-from-string
- (funcall fun start end delete))))
- (remove-hook 'after-change-functions 'org-indent-refresh-maybe 'local)
- (remove-hook 'before-change-functions
- 'org-indent-notify-modified-headline 'local)
- (org-with-wide-buffer
- (org-indent-remove-properties (point-min) (point-max)))
- (and font-lock-mode (org-restart-font-lock))
- (redraw-display))))
-
-(defun org-indent-indent-buffer ()
- "Add indentation properties to the accessible part of the buffer."
- (interactive)
- (if (not (derived-mode-p 'org-mode))
- (error "Not in Org mode")
- (message "Setting buffer indentation. It may take a few seconds...")
- (org-indent-remove-properties (point-min) (point-max))
- (org-indent-add-properties (point-min) (point-max))
- (message "Indentation of buffer set.")))
-
-(defun org-indent-remove-properties-from-string (string)
- "Remove indentation properties from STRING."
- (remove-text-properties 0 (length string)
- '(line-prefix nil wrap-prefix nil) string)
- string)
-
-(defun org-indent-initialize-agent ()
- "Start or resume current buffer initialization.
-Only buffers in `org-indent-agentized-buffers' trigger an action.
-When no more buffer is being watched, the agent suppress itself."
- (when org-indent-agent-resume-timer
- (cancel-timer org-indent-agent-resume-timer))
- (setq org-indent-agentized-buffers
- (cl-remove-if-not #'buffer-live-p org-indent-agentized-buffers))
- (cond
- ;; Job done: kill agent.
- ((not org-indent-agentized-buffers) (cancel-timer org-indent-agent-timer))
- ;; Current buffer is agentized: start/resume initialization
- ;; somewhat aggressively.
- ((memq (current-buffer) org-indent-agentized-buffers)
- (org-indent-initialize-buffer (current-buffer)
- org-indent-agent-active-delay))
- ;; Else, start/resume initialization of the last agentized buffer,
- ;; softly.
- (t (org-indent-initialize-buffer (car org-indent-agentized-buffers)
- org-indent-agent-passive-delay))))
-
-(defun org-indent-initialize-buffer (buffer delay)
- "Set virtual indentation for the buffer BUFFER, asynchronously.
-Give hand to other idle processes if it takes longer than DELAY,
-a time value."
- (with-current-buffer buffer
- (when org-indent-mode
- (org-with-wide-buffer
- (let ((interruptp
- ;; Always nil unless interrupted.
- (catch 'interrupt
- (and org-indent--initial-marker
- (marker-position org-indent--initial-marker)
- (equal (marker-buffer org-indent--initial-marker)
- buffer)
- (org-indent-add-properties org-indent--initial-marker
- (point-max)
- delay)
- nil))))
- (move-marker org-indent--initial-marker interruptp)
- ;; Job is complete: un-agentize buffer.
- (unless interruptp
- (setq org-indent-agentized-buffers
- (delq buffer org-indent-agentized-buffers))))))))
-
-(defun org-indent-set-line-properties (level indentation &optional heading)
- "Set prefix properties on current line an move to next one.
-
-LEVEL is the current level of heading. INDENTATION is the
-expected indentation when wrapping line.
-
-When optional argument HEADING is non-nil, assume line is at
-a heading. Moreover, if is is `inlinetask', the first star will
-have `org-warning' face."
- (let* ((line (aref (pcase heading
- (`nil org-indent--text-line-prefixes)
- (`inlinetask org-indent--inlinetask-line-prefixes)
- (_ org-indent--heading-line-prefixes))
- level))
- (wrap
- (org-add-props
- (concat line
- (if heading (concat (make-string level ?*) " ")
- (make-string indentation ?\s)))
- nil 'face 'org-indent)))
- ;; Add properties down to the next line to indent empty lines.
- (add-text-properties (line-beginning-position) (line-beginning-position 2)
- `(line-prefix ,line wrap-prefix ,wrap)))
- (forward-line))
-
-(defun org-indent-add-properties (beg end &optional delay)
- "Add indentation properties between BEG and END.
-
-When DELAY is non-nil, it must be a time value. In that case,
-the process is asynchronous and can be interrupted, either by
-user request, or after DELAY. This is done by throwing the
-`interrupt' tag along with the buffer position where the process
-stopped."
- (save-match-data
- (org-with-wide-buffer
- (goto-char beg)
- (beginning-of-line)
- ;; Initialize prefix at BEG, according to current entry's level.
- (let* ((case-fold-search t)
- (limited-re (org-get-limited-outline-regexp))
- (level (or (org-current-level) 0))
- (time-limit (and delay (time-add (current-time) delay))))
- ;; For each line, set `line-prefix' and `wrap-prefix'
- ;; properties depending on the type of line (headline, inline
- ;; task, item or other).
- (org-with-silent-modifications
- (while (and (<= (point) end) (not (eobp)))
- (cond
- ;; When in asynchronous mode, check if interrupt is
- ;; required.
- ((and delay (input-pending-p)) (throw 'interrupt (point)))
- ;; In asynchronous mode, take a break of
- ;; `org-indent-agent-resume-delay' every DELAY to avoid
- ;; blocking any other idle timer or process output.
- ((and delay (time-less-p time-limit (current-time)))
- (setq org-indent-agent-resume-timer
- (run-with-idle-timer
- (time-add (current-idle-time) org-indent-agent-resume-delay)
- nil #'org-indent-initialize-agent))
- (throw 'interrupt (point)))
- ;; Headline or inline task.
- ((looking-at org-outline-regexp)
- (let* ((nstars (- (match-end 0) (match-beginning 0) 1))
- (type (or (looking-at-p limited-re) 'inlinetask)))
- (org-indent-set-line-properties nstars 0 type)
- ;; At an headline, define new value for LEVEL.
- (unless (eq type 'inlinetask) (setq level nstars))))
- ;; List item: `wrap-prefix' is set where body starts.
- ((org-at-item-p)
- (org-indent-set-line-properties
- level (org-list-item-body-column (point))))
- ;; Regular line.
- (t
- (org-indent-set-line-properties level (org-get-indentation))))))))))
-
-(defun org-indent-notify-modified-headline (beg end)
- "Set `org-indent-modified-headline-flag' depending on context.
-
-BEG and END are the positions of the beginning and end of the
-range of deleted text.
-
-This function is meant to be called by `before-change-functions'.
-Flag will be non-nil if command is going to modify or delete an
-headline."
- (when org-indent-mode
- (setq org-indent-modified-headline-flag
- (org-with-wide-buffer
- (goto-char beg)
- (save-match-data
- (or (and (org-at-heading-p) (< beg (match-end 0)))
- (re-search-forward
- (org-with-limited-levels org-outline-regexp-bol) end t)))))))
-
-(defun org-indent-refresh-maybe (beg end _)
- "Refresh indentation properties in an adequate portion of buffer.
-BEG and END are the positions of the beginning and end of the
-range of inserted text. DUMMY is an unused argument.
-
-This function is meant to be called by `after-change-functions'."
- (when org-indent-mode
- (save-match-data
- ;; If a headline was modified or inserted, set properties until
- ;; next headline.
- (org-with-wide-buffer
- (if (or org-indent-modified-headline-flag
- (save-excursion
- (goto-char beg)
- (beginning-of-line)
- (re-search-forward
- (org-with-limited-levels org-outline-regexp-bol) end t)))
- (let ((end (save-excursion
- (goto-char end)
- (org-with-limited-levels (outline-next-heading))
- (point))))
- (setq org-indent-modified-headline-flag nil)
- (org-indent-add-properties beg end))
- ;; Otherwise, only set properties on modified area.
- (org-indent-add-properties beg end))))))
-
-(provide 'org-indent)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-indent.el ends here
diff --git a/elpa/org-9.1.14/org-indent.elc b/elpa/org-9.1.14/org-indent.elc
deleted file mode 100644
index 90107c4..0000000
--- a/elpa/org-9.1.14/org-indent.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-info.el b/elpa/org-9.1.14/org-info.el
deleted file mode 100644
index 6dde36c..0000000
--- a/elpa/org-9.1.14/org-info.el
+++ /dev/null
@@ -1,148 +0,0 @@
-;;; org-info.el --- Support for Links to Info Nodes -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements links to Info nodes from within Org mode.
-;; Org mode loads this module by default - if this is not what you want,
-;; configure the variable `org-modules'.
-
-;;; Code:
-
-(require 'org)
-
-;; Declare external functions and variables
-
-(declare-function Info-find-node "info"
- (filename nodename &optional no-going-back strict-case))
-(defvar Info-current-file)
-(defvar Info-current-node)
-
-;; Install the link type
-(org-link-set-parameters "info"
- :follow #'org-info-open
- :export #'org-info-export
- :store #'org-info-store-link)
-
-;; Implementation
-(defun org-info-store-link ()
- "Store a link to an Info file and node."
- (when (eq major-mode 'Info-mode)
- (let ((link (concat "info:"
- (file-name-nondirectory Info-current-file)
- "#" Info-current-node))
- (desc (concat (file-name-nondirectory Info-current-file)
- "#" Info-current-node)))
- (org-store-link-props :type "info" :file Info-current-file
- :node Info-current-node
- :link link :desc desc)
- link)))
-
-(defun org-info-open (path)
- "Follow an Info file and node link specified by PATH."
- (org-info-follow-link path))
-
-
-(defun org-info-follow-link (name)
- "Follow an Info file and node link specified by NAME."
- (if (or (string-match "\\(.*\\)[#:]:?\\(.*\\)" name)
- (string-match "\\(.*\\)" name))
- (let ((filename (match-string 1 name))
- (nodename-or-index (or (match-string 2 name) "Top")))
- (require 'info)
- ;; If nodename-or-index is invalid node name, then look it up
- ;; in the index.
- (condition-case nil
- (Info-find-node filename nodename-or-index)
- (user-error (Info-find-node filename "Top")
- (condition-case nil
- (Info-index nodename-or-index)
- (user-error "Could not find '%s' node or index entry"
- nodename-or-index)))))
- (user-error "Could not open: %s" name)))
-
-(defconst org-info-emacs-documents
- '("ada-mode" "auth" "autotype" "bovine" "calc" "ccmode" "cl" "dbus" "dired-x"
- "ebrowse" "ede" "ediff" "edt" "efaq-w32" "efaq" "eieio" "eintr" "elisp"
- "emacs-gnutls" "emacs-mime" "emacs" "epa" "erc" "ert" "eshell" "eudc" "eww"
- "flymake" "forms" "gnus" "htmlfontify" "idlwave" "ido" "info" "mairix-el"
- "message" "mh-e" "newsticker" "nxml-mode" "octave-mode" "org" "pcl-cvs"
- "pgg" "rcirc" "reftex" "remember" "sasl" "sc" "semantic" "ses" "sieve"
- "smtpmail" "speedbar" "srecode" "todo-mode" "tramp" "url" "vip" "viper"
- "widget" "wisent" "woman")
- "List of emacs documents available.
-Taken from <https://www.gnu.org/software/emacs/manual/html_mono/.>")
-
-(defconst org-info-other-documents
- '(("libc" . "https://www.gnu.org/software/libc/manual/html_mono/libc.html")
- ("make" . "https://www.gnu.org/software/make/manual/make.html"))
- "Alist of documents generated from Texinfo source.
-When converting info links to HTML, links to any one of these manuals are
-converted to use these URL.")
-
-(defun org-info-map-html-url (filename)
- "Return URL or HTML file associated to Info FILENAME.
-If FILENAME refers to an official GNU document, return a URL pointing to
-the official page for that document, e.g., use \"gnu.org\" for all Emacs
-related documents. Otherwise, append \".html\" extension to FILENAME.
-See `org-info-emacs-documents' and `org-info-other-documents' for details."
- (cond ((member filename org-info-emacs-documents)
- (format "https://www.gnu.org/software/emacs/manual/html_mono/%s.html"
- filename))
- ((cdr (assoc filename org-info-other-documents)))
- (t (concat filename ".html"))))
-
-(defun org-info--expand-node-name (node)
- "Expand Info NODE to HTML cross reference."
- ;; See (info "(texinfo) HTML Xref Node Name Expansion") for the
- ;; expansion rule.
- (let ((node (replace-regexp-in-string
- "\\([ \t\n\r]+\\)\\|\\([^a-zA-Z0-9]\\)"
- (lambda (m)
- (if (match-end 1) "-" (format "_%04x" (string-to-char m))))
- (org-trim node))))
- (cond ((string= node "") "")
- ((string-match-p "\\`[0-9]" node) (concat "g_t" node))
- (t node))))
-
-(defun org-info-export (path desc format)
- "Export an info link.
-See `org-link-parameters' for details about PATH, DESC and FORMAT."
- (let* ((parts (split-string path "[#:]:?"))
- (manual (car parts))
- (node (or (nth 1 parts) "Top")))
- (pcase format
- (`html
- (format "<a href=\"%s#%s\">%s</a>"
- (org-info-map-html-url manual)
- (org-info--expand-node-name node)
- (or desc path)))
- (`texinfo
- (let ((title (or desc "")))
- (format "@ref{%s,%s,,%s,}" node title manual)))
- (_ nil))))
-
-(provide 'org-info)
-
-;;; org-info.el ends here
diff --git a/elpa/org-9.1.14/org-info.elc b/elpa/org-9.1.14/org-info.elc
deleted file mode 100644
index d15ccd3..0000000
--- a/elpa/org-9.1.14/org-info.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-inlinetask.el b/elpa/org-9.1.14/org-inlinetask.el
deleted file mode 100644
index d95db32..0000000
--- a/elpa/org-9.1.14/org-inlinetask.el
+++ /dev/null
@@ -1,353 +0,0 @@
-;;; org-inlinetask.el --- Tasks Independent of Outline Hierarchy -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-;;
-;; This module implements inline tasks in Org mode. Inline tasks are
-;; tasks that have all the properties of normal outline nodes,
-;; including the ability to store meta data like scheduling dates,
-;; TODO state, tags and properties. However, these nodes are treated
-;; specially by the visibility cycling.
-;;
-;; Visibility cycling exempts these nodes from cycling. So whenever
-;; their parent is opened, so are these tasks. This will only work
-;; with `org-cycle', so if you are also using other commands to
-;; show/hide entries, you will occasionally find these tasks to behave
-;; like all other outline nodes, seemingly splitting the text of the
-;; parent into children.
-;;
-;; Special fontification of inline tasks, so that they can be
-;; immediately recognized. From the stars of the headline, only the
-;; first and the last two will be visible, the others will be hidden
-;; using the `org-hide' face.
-;;
-;; An inline task is identified solely by a minimum outline level,
-;; given by the variable `org-inlinetask-min-level', default 15.
-;;
-;; If you need to have a time planning line (DEADLINE etc), drawers,
-;; for example LOGBOOK of PROPERTIES, or even normal text as part of
-;; the inline task, you must add an "END" headline with the same
-;; number of stars.
-;;
-;; As an example, here are two valid inline tasks:
-;;
-;; **************** TODO a small task
-;;
-;; and
-;;
-;; **************** TODO another small task
-;; DEADLINE: <2009-03-30 Mon>
-;; :PROPERTIES:
-;; :SOMETHING: or other
-;; :END:
-;; And here is some extra text
-;; **************** END
-;;
-;; Also, if you want to use refiling and archiving for inline tasks,
-;; The END line must be present to make things work properly.
-;;
-;; Note that you should not try to use inline tasks within plain list,
-;; visibility cycling is known to be problematic when doing so.
-;;
-;; This package installs one new command:
-;;
-;; C-c C-x t Insert a new inline task with END line
-
-;;; Code:
-
-(require 'org)
-
-(defgroup org-inlinetask nil
- "Options concerning inline tasks in Org mode."
- :tag "Org Inline Tasks"
- :group 'org-structure)
-
-(defcustom org-inlinetask-min-level 15
- "Minimum level a headline must have before it is treated as an inline task.
-Don't set it to something higher than `29' or clocking will break since this
-is the hardcoded maximum number of stars `org-clock-sum' will work with.
-
-It is strongly recommended that you set `org-cycle-max-level' not at all,
-or to a number smaller than this one. In fact, when `org-cycle-max-level' is
-not set, it will be assumed to be one less than the value of smaller than
-the value of this variable."
- :group 'org-inlinetask
- :type '(choice
- (const :tag "Off" nil)
- (integer)))
-
-(defcustom org-inlinetask-show-first-star nil
- "Non-nil means display the first star of an inline task as additional marker.
-When nil, the first star is not shown."
- :tag "Org Inline Tasks"
- :group 'org-structure
- :type 'boolean)
-
-(defvar org-odd-levels-only)
-(defvar org-keyword-time-regexp)
-(defvar org-complex-heading-regexp)
-(defvar org-property-end-re)
-
-(defcustom org-inlinetask-default-state nil
- "Non-nil means make inline tasks have a TODO keyword initially.
-This should be the state `org-inlinetask-insert-task' should use by
-default, or nil if no state should be assigned."
- :group 'org-inlinetask
- :version "24.1"
- :type '(choice
- (const :tag "No state" nil)
- (string :tag "Specific state")))
-
-(defun org-inlinetask-insert-task (&optional no-state)
- "Insert an inline task.
-If prefix arg NO-STATE is set, ignore `org-inlinetask-default-state'."
- (interactive "P")
- ;; Error when inside an inline task, except if point was at its very
- ;; beginning, in which case the new inline task will be inserted
- ;; before this one.
- (when (and (org-inlinetask-in-task-p)
- (not (and (org-inlinetask-at-task-p) (bolp))))
- (error "Cannot nest inline tasks"))
- (or (bolp) (newline))
- (let* ((indent (if org-odd-levels-only
- (1- (* 2 org-inlinetask-min-level))
- org-inlinetask-min-level))
- (indent-string (concat (make-string indent ?*) " ")))
- (insert indent-string
- (if (or no-state (not org-inlinetask-default-state))
- "\n"
- (concat org-inlinetask-default-state " \n"))
- indent-string "END\n"))
- (end-of-line -1))
-(define-key org-mode-map "\C-c\C-xt" 'org-inlinetask-insert-task)
-
-(defun org-inlinetask-outline-regexp ()
- "Return string matching an inline task heading.
-The number of levels is controlled by `org-inlinetask-min-level'."
- (let ((nstars (if org-odd-levels-only
- (1- (* org-inlinetask-min-level 2))
- org-inlinetask-min-level)))
- (format "^\\(\\*\\{%d,\\}\\)[ \t]+" nstars)))
-
-(defun org-inlinetask-end-p ()
- "Return a non-nil value if point is on inline task's END part."
- (let ((case-fold-search t))
- (org-match-line (concat (org-inlinetask-outline-regexp) "END[ \t]*$"))))
-
-(defun org-inlinetask-at-task-p ()
- "Return non-nil if point is at beginning of an inline task."
- (and (org-match-line (concat (org-inlinetask-outline-regexp) "\\(.*\\)"))
- (not (org-inlinetask-end-p))))
-
-(defun org-inlinetask-in-task-p ()
- "Return true if point is inside an inline task."
- (save-excursion
- (beginning-of-line)
- (let ((case-fold-search t))
- (or (looking-at-p (concat (org-inlinetask-outline-regexp) "\\(?:.*\\)"))
- (and (re-search-forward "^\\*+[ \t]+" nil t)
- (org-inlinetask-end-p))))))
-
-(defun org-inlinetask-goto-beginning ()
- "Go to the beginning of the inline task at point."
- (end-of-line)
- (let ((case-fold-search t)
- (inlinetask-re (org-inlinetask-outline-regexp)))
- (re-search-backward inlinetask-re nil t)
- (when (org-inlinetask-end-p)
- (re-search-backward inlinetask-re nil t))))
-
-(defun org-inlinetask-goto-end ()
- "Go to the end of the inline task at point.
- Return point."
- (save-match-data
- (beginning-of-line)
- (let ((case-fold-search t)
- (inlinetask-re (org-inlinetask-outline-regexp)))
- (cond
- ((org-inlinetask-end-p)
- (forward-line))
- ((looking-at-p inlinetask-re)
- (forward-line)
- (cond
- ((org-inlinetask-end-p) (forward-line))
- ((looking-at-p inlinetask-re))
- ((org-inlinetask-in-task-p)
- (re-search-forward inlinetask-re nil t)
- (forward-line))
- (t nil)))
- (t
- (re-search-forward inlinetask-re nil t)
- (forward-line)))))
- (point))
-
-(defun org-inlinetask-get-task-level ()
- "Get the level of the inline task around.
-This assumes the point is inside an inline task."
- (save-excursion
- (end-of-line)
- (re-search-backward (org-inlinetask-outline-regexp) nil t)
- (- (match-end 1) (match-beginning 1))))
-
-(defun org-inlinetask-promote ()
- "Promote the inline task at point.
-If the task has an end part, promote it. Also, prevents level from
-going below `org-inlinetask-min-level'."
- (interactive)
- (if (not (org-inlinetask-in-task-p))
- (error "Not in an inline task")
- (save-excursion
- (let* ((lvl (org-inlinetask-get-task-level))
- (next-lvl (org-get-valid-level lvl -1))
- (diff (- next-lvl lvl))
- (down-task (concat (make-string next-lvl ?*)))
- beg)
- (if (< next-lvl org-inlinetask-min-level)
- (error "Cannot promote an inline task at minimum level")
- (org-inlinetask-goto-beginning)
- (setq beg (point))
- (replace-match down-task nil t nil 1)
- (org-inlinetask-goto-end)
- (if (eobp) (beginning-of-line) (forward-line -1))
- (unless (= (point) beg)
- (replace-match down-task nil t nil 1)
- (when org-adapt-indentation
- (goto-char beg)
- (org-fixup-indentation diff))))))))
-
-(defun org-inlinetask-demote ()
- "Demote the inline task at point.
-If the task has an end part, also demote it."
- (interactive)
- (if (not (org-inlinetask-in-task-p))
- (error "Not in an inline task")
- (save-excursion
- (let* ((lvl (org-inlinetask-get-task-level))
- (next-lvl (org-get-valid-level lvl 1))
- (diff (- next-lvl lvl))
- (down-task (concat (make-string next-lvl ?*)))
- beg)
- (org-inlinetask-goto-beginning)
- (setq beg (point))
- (replace-match down-task nil t nil 1)
- (org-inlinetask-goto-end)
- (if (eobp) (beginning-of-line) (forward-line -1))
- (unless (= (point) beg)
- (replace-match down-task nil t nil 1)
- (when org-adapt-indentation
- (goto-char beg)
- (org-fixup-indentation diff)))))))
-
-(defun org-inlinetask-get-current-indentation ()
- "Get the indentation of the last non-while line above this one."
- (save-excursion
- (beginning-of-line 1)
- (skip-chars-backward " \t\n")
- (beginning-of-line 1)
- (or (org-at-item-p)
- (looking-at "[ \t]*"))
- (goto-char (match-end 0))
- (current-column)))
-
-(defvar org-indent-indentation-per-level) ; defined in org-indent.el
-
-(defface org-inlinetask '((t :inherit shadow))
- "Face for inlinetask headlines."
- :group 'org-faces)
-
-(defun org-inlinetask-fontify (limit)
- "Fontify the inline tasks down to LIMIT."
- (let* ((nstars (if org-odd-levels-only
- (1- (* 2 (or org-inlinetask-min-level 200)))
- (or org-inlinetask-min-level 200)))
- (re (concat "^\\(\\*\\)\\(\\*\\{"
- (format "%d" (- nstars 3))
- ",\\}\\)\\(\\*\\* .*\\)"))
- ;; Virtual indentation will add the warning face on the first
- ;; star. Thus, in that case, only hide it.
- (start-face (if (and (bound-and-true-p org-indent-mode)
- (> org-indent-indentation-per-level 1))
- 'org-hide
- 'org-warning)))
- (while (re-search-forward re limit t)
- (if org-inlinetask-show-first-star
- (add-text-properties (match-beginning 1) (match-end 1)
- `(face ,start-face font-lock-fontified t)))
- (add-text-properties (match-beginning
- (if org-inlinetask-show-first-star 2 1))
- (match-end 2)
- '(face org-hide font-lock-fontified t))
- (add-text-properties (match-beginning 3) (match-end 3)
- '(face org-inlinetask font-lock-fontified t)))))
-
-(defun org-inlinetask-toggle-visibility ()
- "Toggle visibility of inline task at point."
- (let ((end (save-excursion
- (org-inlinetask-goto-end)
- (if (bolp) (1- (point)) (point))))
- (start (save-excursion
- (org-inlinetask-goto-beginning)
- (point-at-eol))))
- (cond
- ;; Nothing to show/hide.
- ((= end start))
- ;; Inlinetask was folded: expand it.
- ((eq (get-char-property (1+ start) 'invisible) 'outline)
- (outline-flag-region start end nil)
- (org-cycle-hide-drawers 'children))
- (t (outline-flag-region start end t)))))
-
-(defun org-inlinetask-hide-tasks (state)
- "Hide inline tasks in buffer when STATE is `contents' or `children'.
-This function is meant to be used in `org-cycle-hook'."
- (pcase state
- (`contents
- (let ((regexp (org-inlinetask-outline-regexp)))
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (org-inlinetask-toggle-visibility)
- (org-inlinetask-goto-end)))))
- (`children
- (save-excursion
- (while
- (or (org-inlinetask-at-task-p)
- (and (outline-next-heading) (org-inlinetask-at-task-p)))
- (org-inlinetask-toggle-visibility)
- (org-inlinetask-goto-end))))))
-
-(defun org-inlinetask-remove-END-maybe ()
- "Remove an END line when present."
- (when (looking-at (format "\\([ \t]*\n\\)*\\*\\{%d,\\}[ \t]+END[ \t]*$"
- org-inlinetask-min-level))
- (replace-match "")))
-
-(add-hook 'org-font-lock-hook 'org-inlinetask-fontify)
-(add-hook 'org-cycle-hook 'org-inlinetask-hide-tasks)
-
-(provide 'org-inlinetask)
-
-;;; org-inlinetask.el ends here
diff --git a/elpa/org-9.1.14/org-inlinetask.elc b/elpa/org-9.1.14/org-inlinetask.elc
deleted file mode 100644
index 5de4198..0000000
--- a/elpa/org-9.1.14/org-inlinetask.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-install.el b/elpa/org-9.1.14/org-install.el
deleted file mode 100644
index 5835959..0000000
--- a/elpa/org-9.1.14/org-install.el
+++ /dev/null
@@ -1,17 +0,0 @@
-;;; org-install.el --- backward compatibility file for obsolete configuration
-;;
-;;; Code:
-;;
-;; The file org-install is obsolete.
-;;
-;; It is provided here so that (require 'org-install) does not
-;; trigger an error for users with obsolete Emacs configuration.
-;; You can safely remove (require 'org-install) from your config."
-
-(provide 'org-install)
-
-;; Local Variables:
-;; no-byte-compile: t
-;; coding: utf-8
-;; End:
-;;; org-install.el ends here
diff --git a/elpa/org-9.1.14/org-irc.el b/elpa/org-9.1.14/org-irc.el
deleted file mode 100644
index 8901956..0000000
--- a/elpa/org-9.1.14/org-irc.el
+++ /dev/null
@@ -1,256 +0,0 @@
-;;; org-irc.el --- Store Links to IRC Sessions -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2008-2018 Free Software Foundation, Inc.
-;;
-;; Author: Philip Jackson <emacs@shellarchive.co.uk>
-;; Keywords: erc, irc, link, org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This file implements links to an IRC session from within Org mode.
-;; Org mode loads this module by default - if this is not what you want,
-;; configure the variable `org-modules'.
-;;
-;; Please customize the variable `org-modules' to select
-;; extensions you would like to use, and to deselect those which you don't
-;; want.
-;;
-;; Please note that at the moment only ERC is supported. Other clients
-;; shouldn't be difficult to add though.
-;;
-;; Then set `org-irc-link-to-logs' to non-nil if you would like a
-;; file:/ type link to be created to the current line in the logs or
-;; to t if you would like to create an irc:/ style link.
-;;
-;; Links within an org buffer might look like this:
-;;
-;; [[irc:/irc.freenode.net/#emacs/bob][chat with bob in #emacs on freenode]]
-;; [[irc:/irc.freenode.net/#emacs][#emacs on freenode]]
-;; [[irc:/irc.freenode.net/]]
-;;
-;; If, when the resulting link is visited, there is no connection to a
-;; requested server then one will be created.
-
-;;; Code:
-
-(require 'org)
-
-(declare-function erc-buffer-filter "erc" (predicate &optional proc))
-(declare-function erc-channel-p "erc" (channel))
-(declare-function erc-cmd-JOIN "erc" (channel &optional key))
-(declare-function erc-current-logfile "erc-log" (&optional buffer))
-(declare-function erc-default-target "erc" ())
-(declare-function erc-get-server-nickname-list "erc" ())
-(declare-function erc-logging-enabled "erc-log" (&optional buffer))
-(declare-function erc-prompt "erc" ())
-(declare-function erc-save-buffer-in-logs "erc-log" (&optional buffer))
-(declare-function erc-server-buffer "erc" ())
-
-(defvar org-irc-client 'erc
- "The IRC client to act on.")
-
-(defvar org-irc-link-to-logs nil
- "Non-nil will store a link to the logs, nil will store an irc: style link.")
-
-(defvar erc-default-port) ; dynamically scoped from erc.el
-(defvar erc-session-port) ; dynamically scoped form erc-backend.el
-(defvar erc-session-server) ; dynamically scoped form erc-backend.el
-
-;; Generic functions/config (extend these for other clients)
-
-(org-link-set-parameters "irc" :follow #'org-irc-visit :store #'org-irc-store-link)
-
-(defun org-irc-visit (link)
- "Parse LINK and dispatch to the correct function based on the client found."
- (let ((link (org-irc-parse-link link)))
- (cond
- ((eq org-irc-client 'erc)
- (org-irc-visit-erc link))
- (t
- (error "ERC only known client")))))
-
-(defun org-irc-parse-link (link)
- "Parse an IRC LINK and return the attributes found.
-Parse a LINK that looks like server:port/chan/user (port, chan
-and user being optional) and return any of the port, channel or user
-attributes that are found."
- (let* ((parts (split-string link "/" t))
- (len (length parts)))
- (when (or (< len 1) (> len 3))
- (error "Failed to parse link needed 1-3 parts, got %d" len))
- (setcar parts (split-string (car parts) ":" t))
- parts))
-
-;;;###autoload
-(defun org-irc-store-link ()
- "Dispatch to the appropriate function to store a link to an IRC session."
- (cond
- ((eq major-mode 'erc-mode)
- (org-irc-erc-store-link))))
-
-(defun org-irc-ellipsify-description (string &optional after)
- "Remove unnecessary white space from STRING and add ellipses if necessary.
-Strip starting and ending white space from STRING and replace any
-chars that the value AFTER with `...'"
- (let* ((after (number-to-string (or after 30)))
- (replace-map (list (cons "^[ \t]*" "")
- (cons "[ \t]*$" "")
- (cons (concat "^\\(.\\{" after
- "\\}\\).*") "\\1..."))))
- (dolist (x replace-map string)
- (when (string-match (car x) string)
- (setq string (replace-match (cdr x) nil nil string))))))
-
-;; ERC specific functions
-
-(defun org-irc-erc-get-line-from-log (erc-line)
- "Find the best line to link to from the ERC logs given ERC-LINE as a start.
-If the user is on the ERC-prompt then search backward for the
-first non-blank line, otherwise return the current line. The
-result is a cons of the filename and search string."
- (erc-save-buffer-in-logs)
- (require 'erc-log)
- (with-current-buffer (find-file-noselect (erc-current-logfile))
- (goto-char (point-max))
- (list
- (abbreviate-file-name buffer-file-name)
- ;; can we get a '::' part?
- (if (string= erc-line (erc-prompt))
- (progn
- (goto-char (point-at-bol))
- (when (search-backward-regexp "^[^ ]" nil t)
- (buffer-substring-no-properties (point-at-bol)
- (point-at-eol))))
- (when (search-backward erc-line nil t)
- (buffer-substring-no-properties (point-at-bol)
- (point-at-eol)))))))
-
-(defun org-irc-erc-store-link ()
- "Store a link to the IRC log file or the session itself.
-Depending on the variable `org-irc-link-to-logs' store either a
-link to the log file for the current session or an irc: link to
-the session itself."
- (require 'erc-log)
- (if org-irc-link-to-logs
- (let* ((erc-line (buffer-substring-no-properties
- (point-at-bol) (point-at-eol)))
- (parsed-line (org-irc-erc-get-line-from-log erc-line)))
- (if (erc-logging-enabled nil)
- (progn
- (org-store-link-props
- :type "file"
- :description (concat "'" (org-irc-ellipsify-description
- (cadr parsed-line) 20)
- "' from an IRC conversation")
- :link (concat "file:" (car parsed-line) "::"
- (cadr parsed-line)))
- t)
- (error "This ERC session is not being logged")))
- (let* ((link-text (org-irc-get-erc-link))
- (link (org-irc-parse-link link-text)))
- (if link-text
- (progn
- (org-store-link-props
- :type "irc"
- :link (concat "irc:/" link-text)
- :description (concat "irc session `" link-text "'")
- :server (car (car link))
- :port (or (string-to-number (cadr (pop link))) erc-default-port)
- :nick (pop link))
- t)
- (error "Failed to create ('irc:/' style) ERC link")))))
-
-(defun org-irc-get-erc-link ()
- "Return an org compatible irc:/ link from an ERC buffer."
- (let* ((session-port (if (numberp erc-session-port)
- (number-to-string erc-session-port)
- erc-session-port))
- (link (concat erc-session-server ":" session-port)))
- (concat link "/"
- (if (and (erc-default-target)
- (erc-channel-p (erc-default-target))
- (car (get-text-property (point) 'erc-data)))
- ;; we can get a nick
- (let ((nick (car (get-text-property (point) 'erc-data))))
- (concat (erc-default-target) "/" nick))
- (erc-default-target)))))
-
-(defun org-irc-get-current-erc-port ()
- "Return the current port as a number.
-Return the current port number or, if none is set, return the ERC
-default."
- (cond
- ((stringp erc-session-port)
- (string-to-number erc-session-port))
- ((numberp erc-session-port)
- erc-session-port)
- (t
- erc-default-port)))
-
-(defun org-irc-visit-erc (link)
- "Visit an ERC buffer based on criteria found in LINK."
- (require 'erc)
- (require 'erc-log)
- (let* ((server (car (car link)))
- (port (let ((p (cadr (pop link))))
- (if p (string-to-number p) erc-default-port)))
- (server-buffer)
- (buffer-list
- (erc-buffer-filter
- (lambda nil
- (let ((tmp-server-buf (erc-server-buffer)))
- (and tmp-server-buf
- (with-current-buffer tmp-server-buf
- (and
- (eq (org-irc-get-current-erc-port) port)
- (string= erc-session-server server)
- (setq server-buffer tmp-server-buf)))))))))
- (if buffer-list
- (let ((chan-name (pop link)))
- ;; if we got a channel name then switch to it or join it
- (if chan-name
- (let ((chan-buf (catch 'found
- (dolist (x buffer-list)
- (if (string= (buffer-name x) chan-name)
- (throw 'found x))))))
- (if chan-buf
- (progn
- (pop-to-buffer-same-window chan-buf)
- ;; if we got a nick, and they're in the chan,
- ;; then start a chat with them
- (let ((nick (pop link)))
- (when nick
- (if (member nick (erc-get-server-nickname-list))
- (progn
- (goto-char (point-max))
- (insert (concat nick ": ")))
- (error "%s not found in %s" nick chan-name)))))
- (progn
- (pop-to-buffer-same-window server-buffer)
- (erc-cmd-JOIN chan-name))))
- (pop-to-buffer-same-window server-buffer)))
- ;; no server match, make new connection
- (erc-select :server server :port port))))
-
-(provide 'org-irc)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-irc.el ends here
diff --git a/elpa/org-9.1.14/org-irc.elc b/elpa/org-9.1.14/org-irc.elc
deleted file mode 100644
index 2fa4ba1..0000000
--- a/elpa/org-9.1.14/org-irc.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-lint.el b/elpa/org-9.1.14/org-lint.el
deleted file mode 100644
index 9fcb17a..0000000
--- a/elpa/org-9.1.14/org-lint.el
+++ /dev/null
@@ -1,1242 +0,0 @@
-;;; org-lint.el --- Linting for Org documents -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015-2018 Free Software Foundation, Inc.
-
-;; Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
-;; Keywords: outlines, hypermedia, calendar, wp
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements linting for Org syntax. The sole public
-;; function is `org-lint', which see.
-
-;; Internally, the library defines a new structure:
-;; `org-lint-checker', with the following slots:
-
-;; - NAME: Unique check identifier, as a non-nil symbol that doesn't
-;; start with an hyphen.
-;;
-;; The check is done calling the function `org-lint-NAME' with one
-;; mandatory argument, the parse tree describing the current Org
-;; buffer. Such function calls are wrapped within
-;; a `save-excursion' and point is always at `point-min'. Its
-;; return value has to be an alist (POSITION MESSAGE) when
-;; POSITION refer to the buffer position of the error, as an
-;; integer, and MESSAGE is a string describing the error.
-
-;; - DESCRIPTION: Summary about the check, as a string.
-
-;; - CATEGORIES: Categories relative to the check, as a list of
-;; symbol. They are used for filtering when calling `org-lint'.
-;; Checkers not explicitly associated to a category are collected
-;; in the `default' one.
-
-;; - TRUST: The trust level one can have in the check. It is either
-;; `low' or `high', depending on the heuristics implemented and
-;; the nature of the check. This has an indicative value only and
-;; is displayed along reports.
-
-;; All checks have to be listed in `org-lint--checkers'.
-
-;; Results are displayed in a special "*Org Lint*" buffer with
-;; a dedicated major mode, derived from `tabulated-list-mode'.
-;;
-;; In addition to the usual key-bindings inherited from it, "C-j" and
-;; "TAB" display problematic line reported under point whereas "RET"
-;; jumps to it. Also, "h" hides all reports similar to the current
-;; one. Additionally, "i" removes them from subsequent reports.
-
-;; Checks currently implemented are:
-
-;; - duplicate CUSTOM_ID properties
-;; - duplicate NAME values
-;; - duplicate targets
-;; - duplicate footnote definitions
-;; - orphaned affiliated keywords
-;; - obsolete affiliated keywords
-;; - missing language in src blocks
-;; - missing back-end in export blocks
-;; - invalid Babel call blocks
-;; - NAME values with a colon
-;; - deprecated export block syntax
-;; - deprecated Babel header properties
-;; - wrong header arguments in src blocks
-;; - misuse of CATEGORY keyword
-;; - "coderef" links with unknown destination
-;; - "custom-id" links with unknown destination
-;; - "fuzzy" links with unknown destination
-;; - "id" links with unknown destination
-;; - links to non-existent local files
-;; - SETUPFILE keywords with non-existent file parameter
-;; - INCLUDE keywords with wrong link parameter
-;; - obsolete markup in INCLUDE keyword
-;; - unknown items in OPTIONS keyword
-;; - spurious macro arguments or invalid macro templates
-;; - special properties in properties drawer
-;; - obsolete syntax for PROPERTIES drawers
-;; - Invalid EFFORT property value
-;; - missing definition for footnote references
-;; - missing reference for footnote definitions
-;; - non-footnote definitions in footnote section
-;; - probable invalid keywords
-;; - invalid blocks
-;; - misplaced planning info line
-;; - incomplete drawers
-;; - indented diary-sexps
-;; - obsolete QUOTE section
-;; - obsolete "file+application" link
-;; - blank headlines with tags
-
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org-element)
-(require 'org-macro)
-(require 'ox)
-(require 'ob)
-
-
-;;; Checkers
-
-(cl-defstruct (org-lint-checker (:copier nil))
- (name 'missing-checker-name)
- (description "")
- (categories '(default))
- (trust 'high)) ; `low' or `high'
-
-(defun org-lint-missing-checker-name (_)
- (error
- "`A checker has no `:name' property. Please verify `org-lint--checkers'"))
-
-(defconst org-lint--checkers
- (list
- (make-org-lint-checker
- :name 'duplicate-custom-id
- :description "Report duplicates CUSTOM_ID properties"
- :categories '(link))
- (make-org-lint-checker
- :name 'duplicate-name
- :description "Report duplicate NAME values"
- :categories '(babel link))
- (make-org-lint-checker
- :name 'duplicate-target
- :description "Report duplicate targets"
- :categories '(link))
- (make-org-lint-checker
- :name 'duplicate-footnote-definition
- :description "Report duplicate footnote definitions"
- :categories '(footnote))
- (make-org-lint-checker
- :name 'orphaned-affiliated-keywords
- :description "Report orphaned affiliated keywords"
- :trust 'low)
- (make-org-lint-checker
- :name 'obsolete-affiliated-keywords
- :description "Report obsolete affiliated keywords"
- :categories '(obsolete))
- (make-org-lint-checker
- :name 'deprecated-export-blocks
- :description "Report deprecated export block syntax"
- :categories '(obsolete export)
- :trust 'low)
- (make-org-lint-checker
- :name 'deprecated-header-syntax
- :description "Report deprecated Babel header syntax"
- :categories '(obsolete babel)
- :trust 'low)
- (make-org-lint-checker
- :name 'missing-language-in-src-block
- :description "Report missing language in src blocks"
- :categories '(babel))
- (make-org-lint-checker
- :name 'missing-backend-in-export-block
- :description "Report missing back-end in export blocks"
- :categories '(export))
- (make-org-lint-checker
- :name 'invalid-babel-call-block
- :description "Report invalid Babel call blocks"
- :categories '(babel))
- (make-org-lint-checker
- :name 'colon-in-name
- :description "Report NAME values with a colon"
- :categories '(babel))
- (make-org-lint-checker
- :name 'wrong-header-argument
- :description "Report wrong babel headers"
- :categories '(babel))
- (make-org-lint-checker
- :name 'wrong-header-value
- :description "Report invalid value in babel headers"
- :categories '(babel)
- :trust 'low)
- (make-org-lint-checker
- :name 'deprecated-category-setup
- :description "Report misuse of CATEGORY keyword"
- :categories '(obsolete))
- (make-org-lint-checker
- :name 'invalid-coderef-link
- :description "Report \"coderef\" links with unknown destination"
- :categories '(link))
- (make-org-lint-checker
- :name 'invalid-custom-id-link
- :description "Report \"custom-id\" links with unknown destination"
- :categories '(link))
- (make-org-lint-checker
- :name 'invalid-fuzzy-link
- :description "Report \"fuzzy\" links with unknown destination"
- :categories '(link))
- (make-org-lint-checker
- :name 'invalid-id-link
- :description "Report \"id\" links with unknown destination"
- :categories '(link))
- (make-org-lint-checker
- :name 'link-to-local-file
- :description "Report links to non-existent local files"
- :categories '(link)
- :trust 'low)
- (make-org-lint-checker
- :name 'non-existent-setupfile-parameter
- :description "Report SETUPFILE keywords with non-existent file parameter"
- :trust 'low)
- (make-org-lint-checker
- :name 'wrong-include-link-parameter
- :description "Report INCLUDE keywords with misleading link parameter"
- :categories '(export)
- :trust 'low)
- (make-org-lint-checker
- :name 'obsolete-include-markup
- :description "Report obsolete markup in INCLUDE keyword"
- :categories '(obsolete export)
- :trust 'low)
- (make-org-lint-checker
- :name 'unknown-options-item
- :description "Report unknown items in OPTIONS keyword"
- :categories '(export)
- :trust 'low)
- (make-org-lint-checker
- :name 'invalid-macro-argument-and-template
- :description "Report spurious macro arguments or invalid macro templates"
- :categories '(export)
- :trust 'low)
- (make-org-lint-checker
- :name 'special-property-in-properties-drawer
- :description "Report special properties in properties drawers"
- :categories '(properties))
- (make-org-lint-checker
- :name 'obsolete-properties-drawer
- :description "Report obsolete syntax for properties drawers"
- :categories '(obsolete properties))
- (make-org-lint-checker
- :name 'invalid-effort-property
- :description "Report invalid duration in EFFORT property"
- :categories '(properties))
- (make-org-lint-checker
- :name 'undefined-footnote-reference
- :description "Report missing definition for footnote references"
- :categories '(footnote))
- (make-org-lint-checker
- :name 'unreferenced-footnote-definition
- :description "Report missing reference for footnote definitions"
- :categories '(footnote))
- (make-org-lint-checker
- :name 'extraneous-element-in-footnote-section
- :description "Report non-footnote definitions in footnote section"
- :categories '(footnote))
- (make-org-lint-checker
- :name 'invalid-keyword-syntax
- :description "Report probable invalid keywords"
- :trust 'low)
- (make-org-lint-checker
- :name 'invalid-block
- :description "Report invalid blocks"
- :trust 'low)
- (make-org-lint-checker
- :name 'misplaced-planning-info
- :description "Report misplaced planning info line"
- :trust 'low)
- (make-org-lint-checker
- :name 'incomplete-drawer
- :description "Report probable incomplete drawers"
- :trust 'low)
- (make-org-lint-checker
- :name 'indented-diary-sexp
- :description "Report probable indented diary-sexps"
- :trust 'low)
- (make-org-lint-checker
- :name 'quote-section
- :description "Report obsolete QUOTE section"
- :categories '(obsolete)
- :trust 'low)
- (make-org-lint-checker
- :name 'file-application
- :description "Report obsolete \"file+application\" link"
- :categories '(link obsolete))
- (make-org-lint-checker
- :name 'empty-headline-with-tags
- :description "Report ambiguous empty headlines with tags"
- :categories '(headline)
- :trust 'low))
- "List of all available checkers.")
-
-(defun org-lint--collect-duplicates
- (ast type extract-key extract-position build-message)
- "Helper function to collect duplicates in parse tree AST.
-
-EXTRACT-KEY is a function extracting key. It is called with
-a single argument: the element or object. Comparison is done
-with `equal'.
-
-EXTRACT-POSITION is a function returning position for the report.
-It is called with two arguments, the object or element, and the
-key.
-
-BUILD-MESSAGE is a function creating the report message. It is
-called with one argument, the key used for comparison."
- (let* (keys
- originals
- reports
- (make-report
- (lambda (position value)
- (push (list position (funcall build-message value)) reports))))
- (org-element-map ast type
- (lambda (datum)
- (let ((key (funcall extract-key datum)))
- (cond
- ((not key))
- ((assoc key keys) (cl-pushnew (assoc key keys) originals)
- (funcall make-report (funcall extract-position datum key) key))
- (t (push (cons key (funcall extract-position datum key)) keys))))))
- (dolist (e originals reports) (funcall make-report (cdr e) (car e)))))
-
-(defun org-lint-duplicate-custom-id (ast)
- (org-lint--collect-duplicates
- ast
- 'node-property
- (lambda (property)
- (and (eq (compare-strings "CUSTOM_ID" nil nil
- (org-element-property :key property) nil nil
- t)
- t)
- (org-element-property :value property)))
- (lambda (property _) (org-element-property :begin property))
- (lambda (key) (format "Duplicate CUSTOM_ID property \"%s\"" key))))
-
-(defun org-lint-duplicate-name (ast)
- (org-lint--collect-duplicates
- ast
- org-element-all-elements
- (lambda (datum) (org-element-property :name datum))
- (lambda (datum name)
- (goto-char (org-element-property :begin datum))
- (re-search-forward
- (format "^[ \t]*#\\+[A-Za-z]+: +%s *$" (regexp-quote name)))
- (match-beginning 0))
- (lambda (key) (format "Duplicate NAME \"%s\"" key))))
-
-(defun org-lint-duplicate-target (ast)
- (org-lint--collect-duplicates
- ast
- 'target
- (lambda (target) (split-string (org-element-property :value target)))
- (lambda (target _) (org-element-property :begin target))
- (lambda (key)
- (format "Duplicate target <<%s>>" (mapconcat #'identity key " ")))))
-
-(defun org-lint-duplicate-footnote-definition (ast)
- (org-lint--collect-duplicates
- ast
- 'footnote-definition
- (lambda (definition) (org-element-property :label definition))
- (lambda (definition _) (org-element-property :post-affiliated definition))
- (lambda (key) (format "Duplicate footnote definition \"%s\"" key))))
-
-(defun org-lint-orphaned-affiliated-keywords (ast)
- ;; Ignore orphan RESULTS keywords, which could be generated from
- ;; a source block returning no value.
- (let ((keywords (cl-set-difference org-element-affiliated-keywords
- '("RESULT" "RESULTS")
- :test #'equal)))
- (org-element-map ast 'keyword
- (lambda (k)
- (let ((key (org-element-property :key k)))
- (and (or (let ((case-fold-search t))
- (string-match-p "\\`ATTR_[-_A-Za-z0-9]+\\'" key))
- (member key keywords))
- (list (org-element-property :post-affiliated k)
- (format "Orphaned affiliated keyword: \"%s\"" key))))))))
-
-(defun org-lint-obsolete-affiliated-keywords (_)
- (let ((regexp (format "^[ \t]*#\\+%s:"
- (regexp-opt '("DATA" "LABEL" "RESNAME" "SOURCE"
- "SRCNAME" "TBLNAME" "RESULT" "HEADERS")
- t)))
- reports)
- (while (re-search-forward regexp nil t)
- (let ((key (upcase (match-string-no-properties 1))))
- (when (< (point)
- (org-element-property :post-affiliated (org-element-at-point)))
- (push
- (list (line-beginning-position)
- (format
- "Obsolete affiliated keyword: \"%s\". Use \"%s\" instead"
- key
- (pcase key
- ("HEADERS" "HEADER")
- ("RESULT" "RESULTS")
- (_ "NAME"))))
- reports))))
- reports))
-
-(defun org-lint-deprecated-export-blocks (ast)
- (let ((deprecated '("ASCII" "BEAMER" "HTML" "LATEX" "MAN" "MARKDOWN" "MD"
- "ODT" "ORG" "TEXINFO")))
- (org-element-map ast 'special-block
- (lambda (b)
- (let ((type (org-element-property :type b)))
- (when (member-ignore-case type deprecated)
- (list
- (org-element-property :post-affiliated b)
- (format
- "Deprecated syntax for export block. Use \"BEGIN_EXPORT %s\" \
-instead"
- type))))))))
-
-(defun org-lint-deprecated-header-syntax (ast)
- (let* ((deprecated-babel-properties
- (mapcar (lambda (arg) (symbol-name (car arg)))
- org-babel-common-header-args-w-values))
- (deprecated-re
- (format "\\`%s[ \t]" (regexp-opt deprecated-babel-properties t))))
- (org-element-map ast '(keyword node-property)
- (lambda (datum)
- (let ((key (org-element-property :key datum)))
- (pcase (org-element-type datum)
- (`keyword
- (let ((value (org-element-property :value datum)))
- (and (string= key "PROPERTY")
- (string-match deprecated-re value)
- (list (org-element-property :begin datum)
- (format "Deprecated syntax for \"%s\". \
-Use header-args instead"
- (match-string-no-properties 1 value))))))
- (`node-property
- (and (member-ignore-case key deprecated-babel-properties)
- (list
- (org-element-property :begin datum)
- (format "Deprecated syntax for \"%s\". \
-Use :header-args: instead"
- key))))))))))
-
-(defun org-lint-missing-language-in-src-block (ast)
- (org-element-map ast 'src-block
- (lambda (b)
- (unless (org-element-property :language b)
- (list (org-element-property :post-affiliated b)
- "Missing language in source block")))))
-
-(defun org-lint-missing-backend-in-export-block (ast)
- (org-element-map ast 'export-block
- (lambda (b)
- (unless (org-element-property :type b)
- (list (org-element-property :post-affiliated b)
- "Missing back-end in export block")))))
-
-(defun org-lint-invalid-babel-call-block (ast)
- (org-element-map ast 'babel-call
- (lambda (b)
- (cond
- ((not (org-element-property :call b))
- (list (org-element-property :post-affiliated b)
- "Invalid syntax in babel call block"))
- ((let ((h (org-element-property :end-header b)))
- (and h (string-match-p "\\`\\[.*\\]\\'" h)))
- (list
- (org-element-property :post-affiliated b)
- "Babel call's end header must not be wrapped within brackets"))))))
-
-(defun org-lint-deprecated-category-setup (ast)
- (org-element-map ast 'keyword
- (let (category-flag)
- (lambda (k)
- (cond
- ((not (string= (org-element-property :key k) "CATEGORY")) nil)
- (category-flag
- (list (org-element-property :post-affiliated k)
- "Spurious CATEGORY keyword. Set :CATEGORY: property instead"))
- (t (setf category-flag t) nil))))))
-
-(defun org-lint-invalid-coderef-link (ast)
- (let ((info (list :parse-tree ast)))
- (org-element-map ast 'link
- (lambda (link)
- (let ((ref (org-element-property :path link)))
- (and (equal (org-element-property :type link) "coderef")
- (not (ignore-errors (org-export-resolve-coderef ref info)))
- (list (org-element-property :begin link)
- (format "Unknown coderef \"%s\"" ref))))))))
-
-(defun org-lint-invalid-custom-id-link (ast)
- (let ((info (list :parse-tree ast)))
- (org-element-map ast 'link
- (lambda (link)
- (and (equal (org-element-property :type link) "custom-id")
- (not (ignore-errors (org-export-resolve-id-link link info)))
- (list (org-element-property :begin link)
- (format "Unknown custom ID \"%s\""
- (org-element-property :path link))))))))
-
-(defun org-lint-invalid-fuzzy-link (ast)
- (let ((info (list :parse-tree ast)))
- (org-element-map ast 'link
- (lambda (link)
- (and (equal (org-element-property :type link) "fuzzy")
- (not (ignore-errors (org-export-resolve-fuzzy-link link info)))
- (list (org-element-property :begin link)
- (format "Unknown fuzzy location \"%s\""
- (let ((path (org-element-property :path link)))
- (if (string-prefix-p "*" path)
- (substring path 1)
- path)))))))))
-
-(defun org-lint-invalid-id-link (ast)
- (org-element-map ast 'link
- (lambda (link)
- (let ((id (org-element-property :path link)))
- (and (equal (org-element-property :type link) "id")
- (not (org-id-find id))
- (list (org-element-property :begin link)
- (format "Unknown ID \"%s\"" id)))))))
-
-(defun org-lint-special-property-in-properties-drawer (ast)
- (org-element-map ast 'node-property
- (lambda (p)
- (let ((key (org-element-property :key p)))
- (and (member-ignore-case key org-special-properties)
- (list (org-element-property :begin p)
- (format
- "Special property \"%s\" found in a properties drawer"
- key)))))))
-
-(defun org-lint-obsolete-properties-drawer (ast)
- (org-element-map ast 'drawer
- (lambda (d)
- (when (equal (org-element-property :drawer-name d) "PROPERTIES")
- (let ((section (org-element-lineage d '(section))))
- (unless (org-element-map section 'property-drawer #'identity nil t)
- (list (org-element-property :post-affiliated d)
- (if (save-excursion
- (goto-char (org-element-property :post-affiliated d))
- (forward-line -1)
- (or (org-at-heading-p) (org-at-planning-p)))
- "Incorrect contents for PROPERTIES drawer"
- "Incorrect location for PROPERTIES drawer"))))))))
-
-(defun org-lint-invalid-effort-property (ast)
- (org-element-map ast 'node-property
- (lambda (p)
- (when (equal "EFFORT" (org-element-property :key p))
- (let ((value (org-element-property :value p)))
- (and (org-string-nw-p value)
- (not (org-duration-p value))
- (list (org-element-property :begin p)
- (format "Invalid effort duration format: %S" value))))))))
-
-(defun org-lint-link-to-local-file (ast)
- (org-element-map ast 'link
- (lambda (l)
- (when (equal (org-element-property :type l) "file")
- (let ((file (org-link-unescape (org-element-property :path l))))
- (and (not (file-remote-p file))
- (not (file-exists-p file))
- (list (org-element-property :begin l)
- (format (if (org-element-lineage l '(link))
- "Link to non-existent image file \"%s\"\
- in link description"
- "Link to non-existent local file \"%s\"")
- file))))))))
-
-(defun org-lint-non-existent-setupfile-parameter (ast)
- (org-element-map ast 'keyword
- (lambda (k)
- (when (equal (org-element-property :key k) "SETUPFILE")
- (let ((file (org-unbracket-string
- "\"" "\""
- (org-element-property :value k))))
- (and (not (file-remote-p file))
- (not (file-exists-p file))
- (list (org-element-property :begin k)
- (format "Non-existent setup file \"%s\"" file))))))))
-
-(defun org-lint-wrong-include-link-parameter (ast)
- (org-element-map ast 'keyword
- (lambda (k)
- (when (equal (org-element-property :key k) "INCLUDE")
- (let* ((value (org-element-property :value k))
- (path
- (and (string-match "^\\(\".+\"\\|\\S-+\\)[ \t]*" value)
- (save-match-data
- (org-unbracket-string "\"" "\"" (match-string 1 value))))))
- (if (not path)
- (list (org-element-property :post-affiliated k)
- "Missing location argument in INCLUDE keyword")
- (let* ((file (org-string-nw-p
- (if (string-match "::\\(.*\\)\\'" path)
- (substring path 0 (match-beginning 0))
- path)))
- (search (and (not (equal file path))
- (org-string-nw-p (match-string 1 path)))))
- (if (and file
- (not (file-remote-p file))
- (not (file-exists-p file)))
- (list (org-element-property :post-affiliated k)
- "Non-existent file argument in INCLUDE keyword")
- (let* ((visiting (if file (find-buffer-visiting file)
- (current-buffer)))
- (buffer (or visiting (find-file-noselect file))))
- (unwind-protect
- (with-current-buffer buffer
- (when (and search
- (not
- (ignore-errors
- (let ((org-link-search-inhibit-query t))
- (org-link-search search nil t)))))
- (list (org-element-property :post-affiliated k)
- (format
- "Invalid search part \"%s\" in INCLUDE keyword"
- search))))
- (unless visiting (kill-buffer buffer))))))))))))
-
-(defun org-lint-obsolete-include-markup (ast)
- (let ((regexp (format "\\`\\(?:\".+\"\\|\\S-+\\)[ \t]+%s"
- (regexp-opt
- '("ASCII" "BEAMER" "HTML" "LATEX" "MAN" "MARKDOWN" "MD"
- "ODT" "ORG" "TEXINFO")
- t))))
- (org-element-map ast 'keyword
- (lambda (k)
- (when (equal (org-element-property :key k) "INCLUDE")
- (let ((case-fold-search t)
- (value (org-element-property :value k)))
- (when (string-match regexp value)
- (let ((markup (match-string-no-properties 1 value)))
- (list (org-element-property :post-affiliated k)
- (format "Obsolete markup \"%s\" in INCLUDE keyword. \
-Use \"export %s\" instead"
- markup
- markup))))))))))
-
-(defun org-lint-unknown-options-item (ast)
- (let ((allowed (delq nil
- (append
- (mapcar (lambda (o) (nth 2 o)) org-export-options-alist)
- (cl-mapcan
- (lambda (b)
- (mapcar (lambda (o) (nth 2 o))
- (org-export-backend-options b)))
- org-export-registered-backends))))
- reports)
- (org-element-map ast 'keyword
- (lambda (k)
- (when (string= (org-element-property :key k) "OPTIONS")
- (let ((value (org-element-property :value k))
- (start 0))
- (while (string-match "\\(.+?\\):\\((.*?)\\|\\S-*\\)[ \t]*"
- value
- start)
- (setf start (match-end 0))
- (let ((item (match-string 1 value)))
- (unless (member item allowed)
- (push (list (org-element-property :post-affiliated k)
- (format "Unknown OPTIONS item \"%s\"" item))
- reports))))))))
- reports))
-
-(defun org-lint-invalid-macro-argument-and-template (ast)
- (let ((extract-placeholders
- (lambda (template)
- (let ((start 0)
- args)
- (while (string-match "\\$\\([1-9][0-9]*\\)" template start)
- (setf start (match-end 0))
- (push (string-to-number (match-string 1 template)) args))
- (sort (org-uniquify args) #'<))))
- reports)
- ;; Check arguments for macro templates.
- (org-element-map ast 'keyword
- (lambda (k)
- (when (string= (org-element-property :key k) "MACRO")
- (let* ((value (org-element-property :value k))
- (name (and (string-match "^\\S-+" value)
- (match-string 0 value)))
- (template (and name
- (org-trim (substring value (match-end 0))))))
- (cond
- ((not name)
- (push (list (org-element-property :post-affiliated k)
- "Missing name in MACRO keyword")
- reports))
- ((not (org-string-nw-p template))
- (push (list (org-element-property :post-affiliated k)
- "Missing template in macro \"%s\"" name)
- reports))
- (t
- (unless (let ((args (funcall extract-placeholders template)))
- (equal (number-sequence 1 (or (org-last args) 0)) args))
- (push (list (org-element-property :post-affiliated k)
- (format "Unused placeholders in macro \"%s\""
- name))
- reports))))))))
- ;; Check arguments for macros.
- (org-macro-initialize-templates)
- (let ((templates (append
- (mapcar (lambda (m) (cons m "$1"))
- '("author" "date" "email" "title" "results"))
- org-macro-templates)))
- (org-element-map ast 'macro
- (lambda (macro)
- (let* ((name (org-element-property :key macro))
- (template (cdr (assoc-string name templates t))))
- (if (not template)
- (push (list (org-element-property :begin macro)
- (format "Undefined macro \"%s\"" name))
- reports)
- (let ((arg-numbers (funcall extract-placeholders template)))
- (when arg-numbers
- (let ((spurious-args
- (nthcdr (apply #'max arg-numbers)
- (org-element-property :args macro))))
- (when spurious-args
- (push
- (list (org-element-property :begin macro)
- (format "Unused argument%s in macro \"%s\": %s"
- (if (> (length spurious-args) 1) "s" "")
- name
- (mapconcat (lambda (a) (format "\"%s\"" a))
- spurious-args
- ", ")))
- reports))))))))))
- reports))
-
-(defun org-lint-undefined-footnote-reference (ast)
- (let ((definitions (org-element-map ast 'footnote-definition
- (lambda (f) (org-element-property :label f)))))
- (org-element-map ast 'footnote-reference
- (lambda (f)
- (let ((label (org-element-property :label f)))
- (and (eq 'standard (org-element-property :type f))
- (not (member label definitions))
- (list (org-element-property :begin f)
- (format "Missing definition for footnote [%s]"
- label))))))))
-
-(defun org-lint-unreferenced-footnote-definition (ast)
- (let ((references (org-element-map ast 'footnote-reference
- (lambda (f) (org-element-property :label f)))))
- (org-element-map ast 'footnote-definition
- (lambda (f)
- (let ((label (org-element-property :label f)))
- (and label
- (not (member label references))
- (list (org-element-property :post-affiliated f)
- (format "No reference for footnote definition [%s]"
- label))))))))
-
-(defun org-lint-colon-in-name (ast)
- (org-element-map ast org-element-all-elements
- (lambda (e)
- (let ((name (org-element-property :name e)))
- (and name
- (string-match-p ":" name)
- (list (progn
- (goto-char (org-element-property :begin e))
- (re-search-forward
- (format "^[ \t]*#\\+\\w+: +%s *$" (regexp-quote name)))
- (match-beginning 0))
- (format
- "Name \"%s\" contains a colon; Babel cannot use it as input"
- name)))))))
-
-(defun org-lint-misplaced-planning-info (_)
- (let ((case-fold-search t)
- reports)
- (while (re-search-forward org-planning-line-re nil t)
- (unless (memq (org-element-type (org-element-at-point))
- '(comment-block example-block export-block planning
- src-block verse-block))
- (push (list (line-beginning-position) "Misplaced planning info line")
- reports)))
- reports))
-
-(defun org-lint-incomplete-drawer (_)
- (let (reports)
- (while (re-search-forward org-drawer-regexp nil t)
- (let ((name (org-trim (match-string-no-properties 0)))
- (element (org-element-at-point)))
- (pcase (org-element-type element)
- ((or `drawer `property-drawer)
- (goto-char (org-element-property :end element))
- nil)
- ((or `comment-block `example-block `export-block `src-block
- `verse-block)
- nil)
- (_
- (push (list (line-beginning-position)
- (format "Possible incomplete drawer \"%s\"" name))
- reports)))))
- reports))
-
-(defun org-lint-indented-diary-sexp (_)
- (let (reports)
- (while (re-search-forward "^[ \t]+%%(" nil t)
- (unless (memq (org-element-type (org-element-at-point))
- '(comment-block diary-sexp example-block export-block
- src-block verse-block))
- (push (list (line-beginning-position) "Possible indented diary-sexp")
- reports)))
- reports))
-
-(defun org-lint-invalid-block (_)
- (let ((case-fold-search t)
- (regexp "^[ \t]*#\\+\\(BEGIN\\|END\\)\\(?::\\|_[^[:space:]]*\\)?[ \t]*")
- reports)
- (while (re-search-forward regexp nil t)
- (let ((name (org-trim (buffer-substring-no-properties
- (line-beginning-position) (line-end-position)))))
- (cond
- ((and (string-prefix-p "END" (match-string 1) t)
- (not (eolp)))
- (push (list (line-beginning-position)
- (format "Invalid block closing line \"%s\"" name))
- reports))
- ((not (memq (org-element-type (org-element-at-point))
- '(center-block comment-block dynamic-block example-block
- export-block quote-block special-block
- src-block verse-block)))
- (push (list (line-beginning-position)
- (format "Possible incomplete block \"%s\""
- name))
- reports)))))
- reports))
-
-(defun org-lint-invalid-keyword-syntax (_)
- (let ((regexp "^[ \t]*#\\+\\([^[:space:]:]*\\)\\(?: \\|$\\)")
- (exception-re
- (format "[ \t]*#\\+%s\\(\\[.*\\]\\)?:\\(?: \\|$\\)"
- (regexp-opt org-element-dual-keywords)))
- reports)
- (while (re-search-forward regexp nil t)
- (let ((name (match-string-no-properties 1)))
- (unless (or (string-prefix-p "BEGIN" name t)
- (string-prefix-p "END" name t)
- (save-excursion
- (beginning-of-line)
- (let ((case-fold-search t)) (looking-at exception-re))))
- (push (list (match-beginning 0)
- (format "Possible missing colon in keyword \"%s\"" name))
- reports))))
- reports))
-
-(defun org-lint-extraneous-element-in-footnote-section (ast)
- (org-element-map ast 'headline
- (lambda (h)
- (and (org-element-property :footnote-section-p h)
- (org-element-map (org-element-contents h)
- (cl-remove-if
- (lambda (e)
- (memq e '(comment comment-block footnote-definition
- property-drawer section)))
- org-element-all-elements)
- (lambda (e)
- (not (and (eq (org-element-type e) 'headline)
- (org-element-property :commentedp e))))
- nil t '(footnote-definition property-drawer))
- (list (org-element-property :begin h)
- "Extraneous elements in footnote section are not exported")))))
-
-(defun org-lint-quote-section (ast)
- (org-element-map ast '(headline inlinetask)
- (lambda (h)
- (let ((title (org-element-property :raw-value h)))
- (and (or (string-prefix-p "QUOTE " title)
- (string-prefix-p (concat org-comment-string " QUOTE ") title))
- (list (org-element-property :begin h)
- "Deprecated QUOTE section"))))))
-
-(defun org-lint-file-application (ast)
- (org-element-map ast 'link
- (lambda (l)
- (let ((app (org-element-property :application l)))
- (and app
- (list (org-element-property :begin l)
- (format "Deprecated \"file+%s\" link type" app)))))))
-
-(defun org-lint-wrong-header-argument (ast)
- (let* ((reports)
- (verify
- (lambda (datum language headers)
- (let ((allowed
- ;; If LANGUAGE is specified, restrict allowed
- ;; headers to both LANGUAGE-specific and default
- ;; ones. Otherwise, accept headers from any loaded
- ;; language.
- (append
- org-babel-header-arg-names
- (cl-mapcan
- (lambda (l)
- (let ((v (intern (format "org-babel-header-args:%s" l))))
- (and (boundp v) (mapcar #'car (symbol-value v)))))
- (if language (list language)
- (mapcar #'car org-babel-load-languages))))))
- (dolist (header headers)
- (let ((h (symbol-name (car header)))
- (p (or (org-element-property :post-affiliated datum)
- (org-element-property :begin datum))))
- (cond
- ((not (string-prefix-p ":" h))
- (push
- (list p
- (format "Missing colon in header argument \"%s\"" h))
- reports))
- ((assoc-string (substring h 1) allowed))
- (t (push (list p (format "Unknown header argument \"%s\"" h))
- reports)))))))))
- (org-element-map ast '(babel-call inline-babel-call inline-src-block keyword
- node-property src-block)
- (lambda (datum)
- (pcase (org-element-type datum)
- ((or `babel-call `inline-babel-call)
- (funcall verify
- datum
- nil
- (cl-mapcan #'org-babel-parse-header-arguments
- (list
- (org-element-property :inside-header datum)
- (org-element-property :end-header datum)))))
- (`inline-src-block
- (funcall verify
- datum
- (org-element-property :language datum)
- (org-babel-parse-header-arguments
- (org-element-property :parameters datum))))
- (`keyword
- (when (string= (org-element-property :key datum) "PROPERTY")
- (let ((value (org-element-property :value datum)))
- (when (string-match "\\`header-args\\(?::\\(\\S-+\\)\\)?\\+? *"
- value)
- (funcall verify
- datum
- (match-string 1 value)
- (org-babel-parse-header-arguments
- (substring value (match-end 0))))))))
- (`node-property
- (let ((key (org-element-property :key datum)))
- (when (let ((case-fold-search t))
- (string-match "\\`HEADER-ARGS\\(?::\\(\\S-+\\)\\)?\\+?"
- key))
- (funcall verify
- datum
- (match-string 1 key)
- (org-babel-parse-header-arguments
- (org-element-property :value datum))))))
- (`src-block
- (funcall verify
- datum
- (org-element-property :language datum)
- (cl-mapcan #'org-babel-parse-header-arguments
- (cons (org-element-property :parameters datum)
- (org-element-property :header datum))))))))
- reports))
-
-(defun org-lint-wrong-header-value (ast)
- (let (reports)
- (org-element-map ast
- '(babel-call inline-babel-call inline-src-block src-block)
- (lambda (datum)
- (let* ((type (org-element-type datum))
- (language (org-element-property :language datum))
- (allowed-header-values
- (append (and language
- (let ((v (intern (concat "org-babel-header-args:"
- language))))
- (and (boundp v) (symbol-value v))))
- org-babel-common-header-args-w-values))
- (datum-header-values
- (org-babel-parse-header-arguments
- (org-trim
- (pcase type
- (`src-block
- (mapconcat
- #'identity
- (cons (org-element-property :parameters datum)
- (org-element-property :header datum))
- " "))
- (`inline-src-block
- (or (org-element-property :parameters datum) ""))
- (_
- (concat
- (org-element-property :inside-header datum)
- " "
- (org-element-property :end-header datum))))))))
- (dolist (header datum-header-values)
- (let ((allowed-values
- (cdr (assoc-string (substring (symbol-name (car header)) 1)
- allowed-header-values))))
- (unless (memq allowed-values '(:any nil))
- (let ((values (cdr header))
- groups-alist)
- (dolist (v (if (stringp values) (split-string values)
- (list values)))
- (let ((valid-value nil))
- (catch 'exit
- (dolist (group allowed-values)
- (cond
- ((not (funcall
- (if (stringp v) #'assoc-string #'assoc)
- v group))
- (when (memq :any group)
- (setf valid-value t)
- (push (cons group v) groups-alist)))
- ((assq group groups-alist)
- (push
- (list
- (or (org-element-property :post-affiliated datum)
- (org-element-property :begin datum))
- (format
- "Forbidden combination in header \"%s\": %s, %s"
- (car header)
- (cdr (assq group groups-alist))
- v))
- reports)
- (throw 'exit nil))
- (t (push (cons group v) groups-alist)
- (setf valid-value t))))
- (unless valid-value
- (push
- (list
- (or (org-element-property :post-affiliated datum)
- (org-element-property :begin datum))
- (format "Unknown value \"%s\" for header \"%s\""
- v
- (car header)))
- reports))))))))))))
- reports))
-
-(defun org-lint-empty-headline-with-tags (ast)
- (org-element-map ast '(headline inlinetask)
- (lambda (h)
- (let ((title (org-element-property :raw-value h)))
- (and (string-match-p "\\`:[[:alnum:]_@#%:]+:\\'" title)
- (list (org-element-property :begin h)
- (format "Headline containing only tags is ambiguous: %S"
- title)))))))
-
-
-;;; Reports UI
-
-(defvar org-lint--report-mode-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map tabulated-list-mode-map)
- (define-key map (kbd "RET") 'org-lint--jump-to-source)
- (define-key map (kbd "TAB") 'org-lint--show-source)
- (define-key map (kbd "C-j") 'org-lint--show-source)
- (define-key map (kbd "h") 'org-lint--hide-checker)
- (define-key map (kbd "i") 'org-lint--ignore-checker)
- map)
- "Local keymap for `org-lint--report-mode' buffers.")
-
-(define-derived-mode org-lint--report-mode tabulated-list-mode "OrgLint"
- "Major mode used to display reports emitted during linting.
-\\{org-lint--report-mode-map}"
- (setf tabulated-list-format
- `[("Line" 6
- (lambda (a b)
- (< (string-to-number (aref (cadr a) 0))
- (string-to-number (aref (cadr b) 0))))
- :right-align t)
- ("Trust" 5 t)
- ("Warning" 0 t)])
- (tabulated-list-init-header))
-
-(defun org-lint--generate-reports (buffer checkers)
- "Generate linting report for BUFFER.
-
-CHECKERS is the list of checkers used.
-
-Return an alist (ID [LINE TRUST DESCRIPTION CHECKER]), suitable
-for `tabulated-list-printer'."
- (with-current-buffer buffer
- (save-excursion
- (goto-char (point-min))
- (let ((ast (org-element-parse-buffer))
- (id 0)
- (last-line 1)
- (last-pos 1))
- ;; Insert unique ID for each report. Replace buffer positions
- ;; with line numbers.
- (mapcar
- (lambda (report)
- (list
- (cl-incf id)
- (apply #'vector
- (cons
- (progn
- (goto-char (car report))
- (beginning-of-line)
- (prog1 (number-to-string
- (cl-incf last-line
- (count-lines last-pos (point))))
- (setf last-pos (point))))
- (cdr report)))))
- ;; Insert trust level in generated reports. Also sort them
- ;; by buffer position in order to optimize lines computation.
- (sort (cl-mapcan
- (lambda (c)
- (let ((trust (symbol-name (org-lint-checker-trust c))))
- (mapcar
- (lambda (report)
- (list (car report) trust (nth 1 report) c))
- (save-excursion
- (funcall
- (intern (format "org-lint-%s"
- (org-lint-checker-name c)))
- ast)))))
- checkers)
- #'car-less-than-car))))))
-
-(defvar-local org-lint--source-buffer nil
- "Source buffer associated to current report buffer.")
-
-(defvar-local org-lint--local-checkers nil
- "List of checkers used to build current report.")
-
-(defun org-lint--refresh-reports ()
- (setq tabulated-list-entries
- (org-lint--generate-reports org-lint--source-buffer
- org-lint--local-checkers))
- (tabulated-list-print))
-
-(defun org-lint--current-line ()
- "Return current report line, as a number."
- (string-to-number (aref (tabulated-list-get-entry) 0)))
-
-(defun org-lint--current-checker (&optional entry)
- "Return current report checker.
-When optional argument ENTRY is non-nil, use this entry instead
-of current one."
- (aref (if entry (nth 1 entry) (tabulated-list-get-entry)) 3))
-
-(defun org-lint--display-reports (source checkers)
- "Display linting reports for buffer SOURCE.
-CHECKERS is the list of checkers used."
- (let ((buffer (get-buffer-create "*Org Lint*")))
- (with-current-buffer buffer
- (org-lint--report-mode)
- (setf org-lint--source-buffer source)
- (setf org-lint--local-checkers checkers)
- (org-lint--refresh-reports)
- (tabulated-list-print)
- (add-hook 'tabulated-list-revert-hook #'org-lint--refresh-reports nil t))
- (pop-to-buffer buffer)))
-
-(defun org-lint--jump-to-source ()
- "Move to source line that generated the report at point."
- (interactive)
- (let ((l (org-lint--current-line)))
- (switch-to-buffer-other-window org-lint--source-buffer)
- (org-goto-line l)
- (org-show-set-visibility 'local)
- (recenter)))
-
-(defun org-lint--show-source ()
- "Show source line that generated the report at point."
- (interactive)
- (let ((buffer (current-buffer)))
- (org-lint--jump-to-source)
- (switch-to-buffer-other-window buffer)))
-
-(defun org-lint--hide-checker ()
- "Hide all reports from checker that generated the report at point."
- (interactive)
- (let ((c (org-lint--current-checker)))
- (setf tabulated-list-entries
- (cl-remove-if (lambda (e) (equal c (org-lint--current-checker e)))
- tabulated-list-entries))
- (tabulated-list-print)))
-
-(defun org-lint--ignore-checker ()
- "Ignore all reports from checker that generated the report at point.
-Checker will also be ignored in all subsequent reports."
- (interactive)
- (setf org-lint--local-checkers
- (remove (org-lint--current-checker) org-lint--local-checkers))
- (org-lint--hide-checker))
-
-
-;;; Public function
-
-;;;###autoload
-(defun org-lint (&optional arg)
- "Check current Org buffer for syntax mistakes.
-
-By default, run all checkers. With a `\\[universal-argument]' prefix ARG, \
-select one
-category of checkers only. With a `\\[universal-argument] \
-\\[universal-argument]' prefix, run one precise
-checker by its name.
-
-ARG can also be a list of checker names, as symbols, to run."
- (interactive "P")
- (unless (derived-mode-p 'org-mode) (user-error "Not in an Org buffer"))
- (when (called-interactively-p 'any)
- (message "Org linting process starting..."))
- (let ((checkers
- (pcase arg
- (`nil org-lint--checkers)
- (`(4)
- (let ((category
- (completing-read
- "Checker category: "
- (mapcar #'org-lint-checker-categories org-lint--checkers)
- nil t)))
- (cl-remove-if-not
- (lambda (c)
- (assoc-string (org-lint-checker-categories c) category))
- org-lint--checkers)))
- (`(16)
- (list
- (let ((name (completing-read
- "Checker name: "
- (mapcar #'org-lint-checker-name org-lint--checkers)
- nil t)))
- (catch 'exit
- (dolist (c org-lint--checkers)
- (when (string= (org-lint-checker-name c) name)
- (throw 'exit c)))))))
- ((pred consp)
- (cl-remove-if-not (lambda (c) (memq (org-lint-checker-name c) arg))
- org-lint--checkers))
- (_ (user-error "Invalid argument `%S' for `org-lint'" arg)))))
- (if (not (called-interactively-p 'any))
- (org-lint--generate-reports (current-buffer) checkers)
- (org-lint--display-reports (current-buffer) checkers)
- (message "Org linting process completed"))))
-
-
-(provide 'org-lint)
-;;; org-lint.el ends here
diff --git a/elpa/org-9.1.14/org-lint.elc b/elpa/org-9.1.14/org-lint.elc
deleted file mode 100644
index f83629e..0000000
--- a/elpa/org-9.1.14/org-lint.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-list.el b/elpa/org-9.1.14/org-list.el
deleted file mode 100644
index 5e5e7c4..0000000
--- a/elpa/org-9.1.14/org-list.el
+++ /dev/null
@@ -1,3613 +0,0 @@
-;;; org-list.el --- Plain lists for Org -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Bastien Guerry <bzg@gnu.org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the code dealing with plain lists in Org mode.
-
-;; The core concept behind lists is their structure. A structure is
-;; a snapshot of the list, in the shape of a data tree (see
-;; `org-list-struct').
-
-;; Once the list structure is stored, it is possible to make changes
-;; on it that will be mirrored to the real list or to get information
-;; about the list, using accessors and methods provided in the
-;; library. Most of them require the use of one or two helper
-;; functions, namely `org-list-parents-alist' and
-;; `org-list-prevs-alist'.
-
-;; Structure is eventually applied to the buffer with
-;; `org-list-write-struct'. This function repairs (bullets,
-;; indentation, checkboxes) the list in the process. It should be
-;; called near the end of any function working on structures.
-
-;; Thus, a function applying to lists should usually follow this
-;; template:
-
-;; 1. Verify point is in a list and grab item beginning (with the same
-;; function `org-in-item-p'). If the function requires the cursor
-;; to be at item's bullet, `org-at-item-p' is more selective. It
-;; is also possible to move point to the closest item with
-;; `org-list-search-backward', or `org-list-search-forward',
-;; applied to the function `org-item-beginning-re'.
-
-;; 2. Get list structure with `org-list-struct'.
-
-;; 3. Compute one, or both, helper functions,
-;; (`org-list-parents-alist', `org-list-prevs-alist') depending on
-;; needed accessors.
-
-;; 4. Proceed with the modifications, using methods and accessors.
-
-;; 5. Verify and apply structure to buffer, using
-;; `org-list-write-struct'.
-
-;; 6. If changes made to the list might have modified check-boxes,
-;; call `org-update-checkbox-count-maybe'.
-
-;; Computing a structure can be a costly operation on huge lists (a
-;; few thousand lines long). Thus, code should follow the rule:
-;; "collect once, use many". As a corollary, it is usually a bad idea
-;; to use directly an interactive function inside the code, as those,
-;; being independent entities, read the whole list structure another
-;; time.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org-macs)
-(require 'org-compat)
-
-(defvar org-M-RET-may-split-line)
-(defvar org-auto-align-tags)
-(defvar org-blank-before-new-entry)
-(defvar org-clock-string)
-(defvar org-closed-string)
-(defvar org-deadline-string)
-(defvar org-description-max-indent)
-(defvar org-done-keywords)
-(defvar org-drawer-regexp)
-(defvar org-element-all-objects)
-(defvar org-inhibit-startup)
-(defvar org-odd-levels-only)
-(defvar org-outline-regexp-bol)
-(defvar org-scheduled-string)
-(defvar org-todo-line-regexp)
-(defvar org-ts-regexp)
-(defvar org-ts-regexp-both)
-
-(declare-function org-at-heading-p "org" (&optional invisible-ok))
-(declare-function org-back-to-heading "org" (&optional invisible-ok))
-(declare-function org-before-first-heading-p "org" ())
-(declare-function org-combine-plists "org" (&rest plists))
-(declare-function org-current-level "org" ())
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-interpret-data "org-element" (data))
-(declare-function
- org-element-lineage "org-element" (blob &optional types with-self))
-(declare-function org-element-macro-interpreter "org-element" (macro ##))
-(declare-function
- org-element-map "org-element"
- (data types fun &optional info first-match no-recursion with-affiliated))
-(declare-function org-element-normalize-string "org-element" (s))
-(declare-function org-element-parse-buffer "org-element"
- (&optional granularity visible-only))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-put-property "org-element"
- (element property value))
-(declare-function org-element-set-element "org-element" (old new))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-element-update-syntax "org-element" ())
-(declare-function org-end-of-meta-data "org" (&optional full))
-(declare-function org-entry-get "org"
- (pom property &optional inherit literal-nil))
-(declare-function org-export-create-backend "ox" (&rest rest) t)
-(declare-function org-export-data-with-backend "ox" (data backend info))
-(declare-function org-export-get-backend "ox" (name))
-(declare-function org-export-get-environment "ox"
- (&optional backend subtreep ext-plist))
-(declare-function org-export-get-next-element "ox"
- (blob info &optional n))
-(declare-function org-export-with-backend "ox"
- (backend data &optional contents info))
-(declare-function org-fix-tags-on-the-fly "org" ())
-(declare-function org-get-indentation "org" (&optional line))
-(declare-function org-get-todo-state "org" ())
-(declare-function org-in-block-p "org" (names))
-(declare-function org-in-regexp "org" (re &optional nlines visually))
-(declare-function org-inlinetask-goto-beginning "org-inlinetask" ())
-(declare-function org-inlinetask-goto-end "org-inlinetask" ())
-(declare-function org-inlinetask-in-task-p "org-inlinetask" ())
-(declare-function org-inlinetask-outline-regexp "org-inlinetask" ())
-(declare-function org-level-increment "org" ())
-(declare-function org-narrow-to-subtree "org" ())
-(declare-function org-outline-level "org" ())
-(declare-function org-previous-line-empty-p "org" ())
-(declare-function org-reduced-level "org" (L))
-(declare-function org-remove-indentation "org" (code &optional n))
-(declare-function org-show-subtree "org" ())
-(declare-function org-sort-remove-invisible "org" (S))
-(declare-function org-time-string-to-seconds "org" (s))
-(declare-function org-timer-hms-to-secs "org-timer" (hms))
-(declare-function org-timer-item "org-timer" (&optional arg))
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function org-uniquify "org" (list))
-(declare-function org-invisible-p "org" (&optional pos))
-(declare-function outline-flag-region "outline" (from to flag))
-(declare-function outline-next-heading "outline" ())
-(declare-function outline-previous-heading "outline" ())
-
-
-
-;;; Configuration variables
-
-(defgroup org-plain-lists nil
- "Options concerning plain lists in Org mode."
- :tag "Org Plain lists"
- :group 'org-structure)
-
-(defcustom org-cycle-include-plain-lists t
- "When t, make TAB cycle visibility on plain list items.
-Cycling plain lists works only when the cursor is on a plain list
-item. When the cursor is on an outline heading, plain lists are
-treated as text. This is the most stable way of handling this,
-which is why it is the default.
-
-When this is the symbol `integrate', then integrate plain list
-items when cycling, as if they were children of outline headings.
-
-This setting can lead to strange effects when switching visibility
-to `children', because the first \"child\" in a subtree decides
-what children should be listed. If that first \"child\" is a
-plain list item with an implied large level number, all true
-children and grand children of the outline heading will be
-exposed in a children' view."
- :group 'org-plain-lists
- :group 'org-cycle
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "With cursor in plain list (recommended)" t)
- (const :tag "As children of outline headings" integrate)))
-
-(defcustom org-list-demote-modify-bullet nil
- "Default bullet type installed when demoting an item.
-This is an association list, for each bullet type, this alist will point
-to the bullet that should be used when this item is demoted.
-For example,
-
- (setq org-list-demote-modify-bullet
- \\='((\"+\" . \"-\") (\"-\" . \"+\") (\"*\" . \"+\")))
-
-will make
-
- + Movies
- + Silence of the Lambs
- + My Cousin Vinny
- + Books
- + The Hunt for Red October
- + The Road to Omaha
-
-into
-
- + Movies
- - Silence of the Lambs
- - My Cousin Vinny
- + Books
- - The Hunt for Red October
- - The Road to Omaha"
- :group 'org-plain-lists
- :type '(repeat
- (cons
- (choice :tag "If the current bullet is "
- (const "-")
- (const "+")
- (const "*")
- (const "1.")
- (const "1)"))
- (choice :tag "demotion will change it to"
- (const "-")
- (const "+")
- (const "*")
- (const "1.")
- (const "1)")))))
-
-(defcustom org-plain-list-ordered-item-terminator t
- "The character that makes a line with leading number an ordered list item.
-Valid values are ?. and ?\). To get both terminators, use t.
-
-This variable needs to be set before org.el is loaded. If you
-need to make a change while Emacs is running, use the customize
-interface or run the following code after updating it:
-
- `\\[org-element-update-syntax]'"
- :group 'org-plain-lists
- :type '(choice (const :tag "dot like in \"2.\"" ?.)
- (const :tag "paren like in \"2)\"" ?\))
- (const :tag "both" t))
- :set (lambda (var val) (set var val)
- (when (featurep 'org-element) (org-element-update-syntax))))
-
-(defcustom org-list-allow-alphabetical nil
- "Non-nil means single character alphabetical bullets are allowed.
-
-Both uppercase and lowercase are handled. Lists with more than
-26 items will fallback to standard numbering. Alphabetical
-counters like \"[@c]\" will be recognized.
-
-This variable needs to be set before org.el is loaded. If you
-need to make a change while Emacs is running, use the customize
-interface or run the following code after updating it:
-
- `\\[org-element-update-syntax]'"
- :group 'org-plain-lists
- :version "24.1"
- :type 'boolean
- :set (lambda (var val) (set var val)
- (when (featurep 'org-element) (org-element-update-syntax))))
-
-(defcustom org-list-two-spaces-after-bullet-regexp nil
- "A regular expression matching bullets that should have 2 spaces after them.
-When nil, no bullet will have two spaces after them. When
-a string, it will be used as a regular expression. When the
-bullet type of a list is changed, the new bullet type will be
-matched against this regexp. If it matches, there will be two
-spaces instead of one after the bullet in each item of the list."
- :group 'org-plain-lists
- :type '(choice
- (const :tag "never" nil)
- (regexp)))
-
-(defcustom org-list-automatic-rules '((checkbox . t)
- (indent . t))
- "Non-nil means apply set of rules when acting on lists.
-\\<org-mode-map>
-By default, automatic actions are taken when using
- `\\[org-meta-return]',
- `\\[org-metaright]',
- `\\[org-metaleft]',
- `\\[org-shiftmetaright]',
- `\\[org-shiftmetaleft]',
- `\\[org-ctrl-c-minus]',
- `\\[org-toggle-checkbox]',
- `\\[org-insert-todo-heading]'.
-
-You can disable individually these rules by setting them to nil.
-Valid rules are:
-
-checkbox when non-nil, checkbox statistics is updated each time
- you either insert a new checkbox or toggle a checkbox.
-indent when non-nil, indenting or outdenting list top-item
- with its subtree will move the whole list and
- outdenting a list whose bullet is * to column 0 will
- change that bullet to \"-\"."
- :group 'org-plain-lists
- :version "24.1"
- :type '(alist :tag "Sets of rules"
- :key-type
- (choice
- (const :tag "Checkbox" checkbox)
- (const :tag "Indent" indent))
- :value-type
- (boolean :tag "Activate" :value t)))
-
-(defcustom org-list-use-circular-motion nil
- "Non-nil means commands implying motion in lists should be cyclic.
-\\<org-mode-map>
-In that case, the item following the last item is the first one,
-and the item preceding the first item is the last one.
-
-This affects the behavior of
- `\\[org-move-item-up]',
- `\\[org-move-item-down]',
- `\\[org-next-item]',
- `\\[org-previous-item]'."
- :group 'org-plain-lists
- :version "24.1"
- :type 'boolean)
-
-(defvar org-checkbox-statistics-hook nil
- "Hook that is run whenever Org thinks checkbox statistics should be updated.
-This hook runs even if checkbox rule in
-`org-list-automatic-rules' does not apply, so it can be used to
-implement alternative ways of collecting statistics
-information.")
-
-(defcustom org-checkbox-hierarchical-statistics t
- "Non-nil means checkbox statistics counts only the state of direct children.
-When nil, all boxes below the cookie are counted.
-This can be set to nil on a per-node basis using a COOKIE_DATA property
-with the word \"recursive\" in the value."
- :group 'org-plain-lists
- :type 'boolean)
-
-(defcustom org-list-description-max-indent 20
- "Maximum indentation for the second line of a description list.
-When the indentation would be larger than this, it will become
-5 characters instead."
- :group 'org-plain-lists
- :type 'integer)
-
-(defcustom org-list-indent-offset 0
- "Additional indentation for sub-items in a list.
-By setting this to a small number, usually 1 or 2, one can more
-clearly distinguish sub-items in a list."
- :group 'org-plain-lists
- :version "24.1"
- :type 'integer)
-
-(defcustom org-list-radio-list-templates
- '((latex-mode "% BEGIN RECEIVE ORGLST %n
-% END RECEIVE ORGLST %n
-\\begin{comment}
-#+ORGLST: SEND %n org-list-to-latex
--
-\\end{comment}\n")
- (texinfo-mode "@c BEGIN RECEIVE ORGLST %n
-@c END RECEIVE ORGLST %n
-@ignore
-#+ORGLST: SEND %n org-list-to-texinfo
--
-@end ignore\n")
- (html-mode "<!-- BEGIN RECEIVE ORGLST %n -->
-<!-- END RECEIVE ORGLST %n -->
-<!--
-#+ORGLST: SEND %n org-list-to-html
--
--->\n"))
- "Templates for radio lists in different major modes.
-All occurrences of %n in a template will be replaced with the name of the
-list, obtained by prompting the user."
- :group 'org-plain-lists
- :type '(repeat
- (list (symbol :tag "Major mode")
- (string :tag "Format"))))
-
-(defvar org-list-forbidden-blocks '("example" "verse" "src" "export")
- "Names of blocks where lists are not allowed.
-Names must be in lower case.")
-
-(defvar org-list-export-context '(block inlinetask)
- "Context types where lists will be interpreted during export.
-
-Valid types are `drawer', `inlinetask' and `block'. More
-specifically, type `block' is determined by the variable
-`org-list-forbidden-blocks'.")
-
-
-
-;;; Predicates and regexps
-
-(defconst org-list-end-re "^[ \t]*\n[ \t]*\n"
- "Regex matching the end of a plain list.")
-
-(defconst org-list-full-item-re
- (concat "^[ \t]*\\(\\(?:[-+*]\\|\\(?:[0-9]+\\|[A-Za-z]\\)[.)]\\)\\(?:[ \t]+\\|$\\)\\)"
- "\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ \t]*\\)?"
- "\\(?:\\(\\[[ X-]\\]\\)\\(?:[ \t]+\\|$\\)\\)?"
- "\\(?:\\(.*\\)[ \t]+::\\(?:[ \t]+\\|$\\)\\)?")
- "Matches a list item and puts everything into groups:
-group 1: bullet
-group 2: counter
-group 3: checkbox
-group 4: description tag")
-
-(defun org-item-re ()
- "Return the correct regular expression for plain lists."
- (let ((term (cond
- ((eq org-plain-list-ordered-item-terminator t) "[.)]")
- ((= org-plain-list-ordered-item-terminator ?\)) ")")
- ((= org-plain-list-ordered-item-terminator ?.) "\\.")
- (t "[.)]")))
- (alpha (if org-list-allow-alphabetical "\\|[A-Za-z]" "")))
- (concat "\\([ \t]*\\([-+]\\|\\(\\([0-9]+" alpha "\\)" term
- "\\)\\)\\|[ \t]+\\*\\)\\([ \t]+\\|$\\)")))
-
-(defsubst org-item-beginning-re ()
- "Regexp matching the beginning of a plain list item."
- (concat "^" (org-item-re)))
-
-(defun org-list-at-regexp-after-bullet-p (regexp)
- "Is point at a list item with REGEXP after bullet?"
- (and (org-at-item-p)
- (save-excursion
- (goto-char (match-end 0))
- (let ((counter-re (concat "\\(?:\\[@\\(?:start:\\)?"
- (if org-list-allow-alphabetical
- "\\([0-9]+\\|[A-Za-z]\\)"
- "[0-9]+")
- "\\][ \t]*\\)")))
- ;; Ignore counter if any
- (when (looking-at counter-re) (goto-char (match-end 0))))
- (looking-at regexp))))
-
-(defun org-list-in-valid-context-p ()
- "Is point in a context where lists are allowed?"
- (not (org-in-block-p org-list-forbidden-blocks)))
-
-(defun org-in-item-p ()
- "Return item beginning position when in a plain list, nil otherwise."
- (save-excursion
- (beginning-of-line)
- (let* ((case-fold-search t)
- (context (org-list-context))
- (lim-up (car context))
- (inlinetask-re (and (featurep 'org-inlinetask)
- (org-inlinetask-outline-regexp)))
- (item-re (org-item-re))
- ;; Indentation isn't meaningful when point starts at an empty
- ;; line or an inline task.
- (ind-ref (if (or (looking-at "^[ \t]*$")
- (and inlinetask-re (looking-at inlinetask-re)))
- 10000
- (org-get-indentation))))
- (cond
- ((eq (nth 2 context) 'invalid) nil)
- ((looking-at item-re) (point))
- (t
- ;; Detect if cursor in amidst `org-list-end-re'. First, count
- ;; number HL of hard lines it takes, then call `org-in-regexp'
- ;; to compute its boundaries END-BOUNDS. When point is
- ;; in-between, move cursor before regexp beginning.
- (let ((hl 0) (i -1) end-bounds)
- (when (and (progn
- (while (setq i (string-match
- "[\r\n]" org-list-end-re (1+ i)))
- (setq hl (1+ hl)))
- (setq end-bounds (org-in-regexp org-list-end-re hl)))
- (>= (point) (car end-bounds))
- (< (point) (cdr end-bounds)))
- (goto-char (car end-bounds))
- (forward-line -1)))
- ;; Look for an item, less indented that reference line.
- (catch 'exit
- (while t
- (let ((ind (org-get-indentation)))
- (cond
- ;; This is exactly what we want.
- ((and (looking-at item-re) (< ind ind-ref))
- (throw 'exit (point)))
- ;; At upper bound of search or looking at the end of a
- ;; previous list: search is over.
- ((<= (point) lim-up) (throw 'exit nil))
- ((looking-at org-list-end-re) (throw 'exit nil))
- ;; Skip blocks, drawers, inline-tasks, blank lines
- ((and (looking-at "^[ \t]*#\\+end_")
- (re-search-backward "^[ \t]*#\\+begin_" lim-up t)))
- ((and (looking-at "^[ \t]*:END:")
- (re-search-backward org-drawer-regexp lim-up t))
- (beginning-of-line))
- ((and inlinetask-re (looking-at inlinetask-re))
- (org-inlinetask-goto-beginning)
- (forward-line -1))
- ((looking-at "^[ \t]*$") (forward-line -1))
- ;; Text at column 0 cannot belong to a list: stop.
- ((zerop ind) (throw 'exit nil))
- ;; Normal text less indented than reference line, take
- ;; it as new reference.
- ((< ind ind-ref)
- (setq ind-ref ind)
- (forward-line -1))
- (t (forward-line -1)))))))))))
-
-(defun org-at-item-p ()
- "Is point in a line starting a hand-formatted item?"
- (save-excursion
- (beginning-of-line)
- (and (looking-at (org-item-re)) (org-list-in-valid-context-p))))
-
-(defun org-at-item-bullet-p ()
- "Is point at the bullet of a plain list item?"
- (and (org-at-item-p)
- (not (member (char-after) '(?\ ?\t)))
- (< (point) (match-end 0))))
-
-(defun org-at-item-timer-p ()
- "Is point at a line starting a plain list item with a timer?"
- (org-list-at-regexp-after-bullet-p
- "\\([0-9]+:[0-9]+:[0-9]+\\)[ \t]+::[ \t]+"))
-
-(defun org-at-item-description-p ()
- "Is point at a description list item?"
- (org-list-at-regexp-after-bullet-p "\\(\\S-.+\\)[ \t]+::\\([ \t]+\\|$\\)"))
-
-(defun org-at-item-checkbox-p ()
- "Is point at a line starting a plain-list item with a checklet?"
- (org-list-at-regexp-after-bullet-p "\\(\\[[- X]\\]\\)[ \t]+"))
-
-(defun org-at-item-counter-p ()
- "Is point at a line starting a plain-list item with a counter?"
- (and (org-at-item-p)
- (looking-at org-list-full-item-re)
- (match-string 2)))
-
-
-
-;;; Structures and helper functions
-
-(defun org-list-context ()
- "Determine context, and its boundaries, around point.
-
-Context will be a cell like (MIN MAX CONTEXT) where MIN and MAX
-are boundaries and CONTEXT is a symbol among `drawer', `block',
-`invalid', `inlinetask' and nil.
-
-Contexts `block' and `invalid' refer to `org-list-forbidden-blocks'."
- (save-match-data
- (save-excursion
- (org-with-limited-levels
- (beginning-of-line)
- (let ((case-fold-search t) (pos (point)) beg end context-type
- ;; Get positions of surrounding headings. This is the
- ;; default context.
- (lim-up (or (save-excursion (and (ignore-errors (org-back-to-heading t))
- (point)))
- (point-min)))
- (lim-down (or (save-excursion (outline-next-heading)) (point-max))))
- ;; Is point inside a drawer?
- (let ((end-re "^[ \t]*:END:")
- (beg-re org-drawer-regexp))
- (when (save-excursion
- (and (not (looking-at beg-re))
- (not (looking-at end-re))
- (setq beg (and (re-search-backward beg-re lim-up t)
- (1+ (point-at-eol))))
- (setq end (or (and (re-search-forward end-re lim-down t)
- (1- (match-beginning 0)))
- lim-down))
- (>= end pos)))
- (setq lim-up beg lim-down end context-type 'drawer)))
- ;; Is point strictly in a block, and of which type?
- (let ((block-re "^[ \t]*#\\+\\(begin\\|end\\)_") type)
- (when (save-excursion
- (and (not (looking-at block-re))
- (setq beg (and (re-search-backward block-re lim-up t)
- (1+ (point-at-eol))))
- (looking-at "^[ \t]*#\\+begin_\\(\\S-+\\)")
- (setq type (downcase (match-string 1)))
- (goto-char beg)
- (setq end (or (and (re-search-forward block-re lim-down t)
- (1- (point-at-bol)))
- lim-down))
- (>= end pos)
- (equal (downcase (match-string 1)) "end")))
- (setq lim-up beg lim-down end
- context-type (if (member type org-list-forbidden-blocks)
- 'invalid 'block))))
- ;; Is point in an inlinetask?
- (when (and (featurep 'org-inlinetask)
- (save-excursion
- (let* ((beg-re (org-inlinetask-outline-regexp))
- (end-re (concat beg-re "END[ \t]*$")))
- (and (not (looking-at "^\\*+"))
- (setq beg (and (re-search-backward beg-re lim-up t)
- (1+ (point-at-eol))))
- (not (looking-at end-re))
- (setq end (and (re-search-forward end-re lim-down t)
- (1- (match-beginning 0))))
- (> (point) pos)))))
- (setq lim-up beg lim-down end context-type 'inlinetask))
- ;; Return context boundaries and type.
- (list lim-up lim-down context-type))))))
-
-(defun org-list-struct ()
- "Return structure of list at point.
-
-A list structure is an alist where key is point at item, and
-values are:
-1. indentation,
-2. bullet with trailing whitespace,
-3. bullet counter, if any,
-4. checkbox, if any,
-5. description tag, if any,
-6. position at item end.
-
-Thus the following list, where numbers in parens are
-point-at-bol:
-
-- [X] first item (1)
- 1. sub-item 1 (18)
- 5. [@5] sub-item 2 (34)
- some other text belonging to first item (55)
-- last item (97)
- + tag :: description (109)
- (131)
-
-will get the following structure:
-
- ((1 0 \"- \" nil \"[X]\" nil 97)
- (18 2 \"1. \" nil nil nil 34)
- (34 2 \"5. \" \"5\" nil nil 55)
- (97 0 \"- \" nil nil nil 131)
- (109 2 \"+ \" nil nil \"tag\" 131))
-
-Assume point is at an item."
- (save-excursion
- (beginning-of-line)
- (let* ((case-fold-search t)
- (context (org-list-context))
- (lim-up (car context))
- (lim-down (nth 1 context))
- (text-min-ind 10000)
- (item-re (org-item-re))
- (inlinetask-re (and (featurep 'org-inlinetask)
- (org-inlinetask-outline-regexp)))
- (beg-cell (cons (point) (org-get-indentation)))
- itm-lst itm-lst-2 end-lst end-lst-2 struct
- (assoc-at-point
- (function
- ;; Return association at point.
- (lambda (ind)
- (looking-at org-list-full-item-re)
- (let ((bullet (match-string-no-properties 1)))
- (list (point)
- ind
- bullet
- (match-string-no-properties 2) ; counter
- (match-string-no-properties 3) ; checkbox
- ;; Description tag.
- (and (string-match-p "[-+*]" bullet)
- (match-string-no-properties 4)))))))
- (end-before-blank
- (function
- ;; Ensure list ends at the first blank line.
- (lambda ()
- (skip-chars-backward " \r\t\n")
- (min (1+ (point-at-eol)) lim-down)))))
- ;; 1. Read list from starting item to its beginning, and save
- ;; top item position and indentation in BEG-CELL. Also store
- ;; ending position of items in END-LST.
- (save-excursion
- (catch 'exit
- (while t
- (let ((ind (org-get-indentation)))
- (cond
- ((<= (point) lim-up)
- ;; At upward limit: if we ended at an item, store it,
- ;; else dismiss useless data recorded above BEG-CELL.
- ;; Jump to part 2.
- (throw 'exit
- (setq itm-lst
- (if (not (looking-at item-re))
- (memq (assq (car beg-cell) itm-lst) itm-lst)
- (setq beg-cell (cons (point) ind))
- (cons (funcall assoc-at-point ind) itm-lst)))))
- ;; Looking at a list ending regexp. Dismiss useless
- ;; data recorded above BEG-CELL. Jump to part 2.
- ((looking-at org-list-end-re)
- (throw 'exit
- (setq itm-lst
- (memq (assq (car beg-cell) itm-lst) itm-lst))))
- ;; Point is at an item. Add data to ITM-LST. It may
- ;; also end a previous item: save it in END-LST. If
- ;; ind is less or equal than BEG-CELL and there is no
- ;; end at this ind or lesser, this item becomes the new
- ;; BEG-CELL.
- ((looking-at item-re)
- (push (funcall assoc-at-point ind) itm-lst)
- (push (cons ind (point)) end-lst)
- (when (< ind text-min-ind) (setq beg-cell (cons (point) ind)))
- (forward-line -1))
- ;; Skip blocks, drawers, inline tasks, blank lines.
- ((and (looking-at "^[ \t]*#\\+end_")
- (re-search-backward "^[ \t]*#\\+begin_" lim-up t)))
- ((and (looking-at "^[ \t]*:END:")
- (re-search-backward org-drawer-regexp lim-up t))
- (beginning-of-line))
- ((and inlinetask-re (looking-at inlinetask-re))
- (org-inlinetask-goto-beginning)
- (forward-line -1))
- ((looking-at "^[ \t]*$")
- (forward-line -1))
- ;; From there, point is not at an item. Interpret
- ;; line's indentation:
- ;; - text at column 0 is necessarily out of any list.
- ;; Dismiss data recorded above BEG-CELL. Jump to
- ;; part 2.
- ;; - any other case may be an ending position for an
- ;; hypothetical item above. Store it and proceed.
- ((zerop ind)
- (throw 'exit
- (setq itm-lst
- (memq (assq (car beg-cell) itm-lst) itm-lst))))
- (t
- (when (< ind text-min-ind) (setq text-min-ind ind))
- (push (cons ind (point)) end-lst)
- (forward-line -1)))))))
- ;; 2. Read list from starting point to its end, that is until we
- ;; get out of context, or that a non-item line is less or
- ;; equally indented than BEG-CELL's cdr. Also, store ending
- ;; position of items in END-LST-2.
- (catch 'exit
- (while t
- (let ((ind (org-get-indentation)))
- (cond
- ((>= (point) lim-down)
- ;; At downward limit: this is de facto the end of the
- ;; list. Save point as an ending position, and jump to
- ;; part 3.
- (throw 'exit
- (push (cons 0 (funcall end-before-blank)) end-lst-2)))
- ;; Looking at a list ending regexp. Save point as an
- ;; ending position and jump to part 3.
- ((looking-at org-list-end-re)
- (throw 'exit (push (cons 0 (point)) end-lst-2)))
- ((looking-at item-re)
- ;; Point is at an item. Add data to ITM-LST-2. It may
- ;; also end a previous item, so save it in END-LST-2.
- (push (funcall assoc-at-point ind) itm-lst-2)
- (push (cons ind (point)) end-lst-2)
- (forward-line 1))
- ;; Skip inline tasks and blank lines along the way
- ((and inlinetask-re (looking-at inlinetask-re))
- (org-inlinetask-goto-end))
- ((looking-at "^[ \t]*$")
- (forward-line 1))
- ;; Ind is lesser or equal than BEG-CELL's. The list is
- ;; over: store point as an ending position and jump to
- ;; part 3.
- ((<= ind (cdr beg-cell))
- (throw 'exit
- (push (cons 0 (funcall end-before-blank)) end-lst-2)))
- ;; Else, if ind is lesser or equal than previous item's,
- ;; this is an ending position: store it. In any case,
- ;; skip block or drawer at point, and move to next line.
- (t
- (when (<= ind (nth 1 (car itm-lst-2)))
- (push (cons ind (point)) end-lst-2))
- (cond
- ((and (looking-at "^[ \t]*#\\+begin_")
- (re-search-forward "^[ \t]*#\\+end_" lim-down t)))
- ((and (looking-at org-drawer-regexp)
- (re-search-forward "^[ \t]*:END:" lim-down t))))
- (forward-line 1))))))
- (setq struct (append itm-lst (cdr (nreverse itm-lst-2)))
- end-lst (append end-lst (cdr (nreverse end-lst-2))))
- ;; 3. Associate each item to its end position.
- (org-list-struct-assoc-end struct end-lst)
- ;; 4. Return STRUCT
- struct)))
-
-(defun org-list-struct-assoc-end (struct end-list)
- "Associate proper ending point to items in STRUCT.
-
-END-LIST is a pseudo-alist where car is indentation and cdr is
-ending position.
-
-This function modifies STRUCT."
- (let ((endings end-list))
- (mapc
- (lambda (elt)
- (let ((pos (car elt))
- (ind (nth 1 elt)))
- ;; Remove end candidates behind current item.
- (while (or (<= (cdar endings) pos))
- (pop endings))
- ;; Add end position to item assoc.
- (let ((old-end (nthcdr 6 elt))
- (new-end (assoc-default ind endings '<=)))
- (if old-end
- (setcar old-end new-end)
- (setcdr elt (append (cdr elt) (list new-end)))))))
- struct)))
-
-(defun org-list-prevs-alist (struct)
- "Return alist between item and previous item in STRUCT."
- (let ((item-end-alist (mapcar (lambda (e) (cons (car e) (nth 6 e)))
- struct)))
- (mapcar (lambda (e)
- (let ((prev (car (rassq (car e) item-end-alist))))
- (cons (car e) prev)))
- struct)))
-
-(defun org-list-parents-alist (struct)
- "Return alist between item and parent in STRUCT."
- (let* ((ind-to-ori (list (list (nth 1 (car struct)))))
- (top-item (org-list-get-top-point struct))
- (prev-pos (list top-item)))
- (cons prev-pos
- (mapcar (lambda (item)
- (let ((pos (car item))
- (ind (nth 1 item))
- (prev-ind (caar ind-to-ori)))
- (push pos prev-pos)
- (cond
- ((> prev-ind ind)
- ;; A sub-list is over. Find the associated
- ;; origin in IND-TO-ORI. If it cannot be
- ;; found (ill-formed list), set its parent as
- ;; the first item less indented. If there is
- ;; none, make it a top-level item.
- (setq ind-to-ori
- (or (member (assq ind ind-to-ori) ind-to-ori)
- (catch 'exit
- (mapc
- (lambda (e)
- (when (< (car e) ind)
- (throw 'exit (member e ind-to-ori))))
- ind-to-ori)
- (list (list ind)))))
- (cons pos (cdar ind-to-ori)))
- ;; A sub-list starts. Every item at IND will
- ;; have previous item as its parent.
- ((< prev-ind ind)
- (let ((origin (nth 1 prev-pos)))
- (push (cons ind origin) ind-to-ori)
- (cons pos origin)))
- ;; Another item in the same sub-list: it shares
- ;; the same parent as the previous item.
- (t (cons pos (cdar ind-to-ori))))))
- (cdr struct)))))
-
-
-
-;;; Accessors
-
-(defsubst org-list-get-nth (n key struct)
- "Return the Nth value of KEY in STRUCT."
- (nth n (assq key struct)))
-
-(defun org-list-set-nth (n key struct new)
- "Set the Nth value of KEY in STRUCT to NEW.
-\nThis function modifies STRUCT."
- (setcar (nthcdr n (assq key struct)) new))
-
-(defsubst org-list-get-ind (item struct)
- "Return indentation of ITEM in STRUCT."
- (org-list-get-nth 1 item struct))
-
-(defun org-list-set-ind (item struct ind)
- "Set indentation of ITEM in STRUCT to IND.
-\nThis function modifies STRUCT."
- (org-list-set-nth 1 item struct ind))
-
-(defsubst org-list-get-bullet (item struct)
- "Return bullet of ITEM in STRUCT."
- (org-list-get-nth 2 item struct))
-
-(defun org-list-set-bullet (item struct bullet)
- "Set bullet of ITEM in STRUCT to BULLET.
-\nThis function modifies STRUCT."
- (org-list-set-nth 2 item struct bullet))
-
-(defsubst org-list-get-counter (item struct)
- "Return counter of ITEM in STRUCT."
- (org-list-get-nth 3 item struct))
-
-(defsubst org-list-get-checkbox (item struct)
- "Return checkbox of ITEM in STRUCT or nil."
- (org-list-get-nth 4 item struct))
-
-(defun org-list-set-checkbox (item struct checkbox)
- "Set checkbox of ITEM in STRUCT to CHECKBOX.
-\nThis function modifies STRUCT."
- (org-list-set-nth 4 item struct checkbox))
-
-(defsubst org-list-get-tag (item struct)
- "Return end position of ITEM in STRUCT."
- (org-list-get-nth 5 item struct))
-
-(defun org-list-get-item-end (item struct)
- "Return end position of ITEM in STRUCT."
- (org-list-get-nth 6 item struct))
-
-(defun org-list-get-item-end-before-blank (item struct)
- "Return point at end of ITEM in STRUCT, before any blank line.
-Point returned is at end of line."
- (save-excursion
- (goto-char (org-list-get-item-end item struct))
- (skip-chars-backward " \r\t\n")
- (point-at-eol)))
-
-(defun org-list-get-parent (item struct parents)
- "Return parent of ITEM or nil.
-STRUCT is the list structure. PARENTS is the alist of parents,
-as returned by `org-list-parents-alist'."
- (let ((parents (or parents (org-list-parents-alist struct))))
- (cdr (assq item parents))))
-
-(defun org-list-has-child-p (item struct)
- "Non-nil if ITEM has a child.
-
-STRUCT is the list structure.
-
-Value returned is the position of the first child of ITEM."
- (let ((ind (org-list-get-ind item struct))
- (child-maybe (car (nth 1 (member (assq item struct) struct)))))
- (when (and child-maybe
- (< ind (org-list-get-ind child-maybe struct)))
- child-maybe)))
-
-(defun org-list-get-next-item (item _struct prevs)
- "Return next item in same sub-list as ITEM, or nil.
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'."
- (car (rassq item prevs)))
-
-(defun org-list-get-prev-item (item _struct prevs)
- "Return previous item in same sub-list as ITEM, or nil.
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'."
- (cdr (assq item prevs)))
-
-(defun org-list-get-subtree (item struct)
- "List all items having ITEM as a common ancestor, or nil.
-STRUCT is the list structure."
- (let* ((item-end (org-list-get-item-end item struct))
- (sub-struct (cdr (member (assq item struct) struct)))
- subtree)
- (catch 'exit
- (mapc (lambda (e)
- (let ((pos (car e)))
- (if (< pos item-end) (push pos subtree) (throw 'exit nil))))
- sub-struct))
- (nreverse subtree)))
-
-(defun org-list-get-all-items (item struct prevs)
- "List all items in the same sub-list as ITEM.
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'."
- (let ((prev-item item)
- (next-item item)
- before-item after-item)
- (while (setq prev-item (org-list-get-prev-item prev-item struct prevs))
- (push prev-item before-item))
- (while (setq next-item (org-list-get-next-item next-item struct prevs))
- (push next-item after-item))
- (append before-item (list item) (nreverse after-item))))
-
-(defun org-list-get-children (item _struct parents)
- "List all children of ITEM, or nil.
-STRUCT is the list structure. PARENTS is the alist of parents,
-as returned by `org-list-parents-alist'."
- (let (all child)
- (while (setq child (car (rassq item parents)))
- (setq parents (cdr (member (assq child parents) parents)))
- (push child all))
- (nreverse all)))
-
-(defun org-list-get-top-point (struct)
- "Return point at beginning of list.
-STRUCT is the list structure."
- (caar struct))
-
-(defun org-list-get-bottom-point (struct)
- "Return point at bottom of list.
-STRUCT is the list structure."
- (apply #'max
- (mapcar (lambda (e) (org-list-get-item-end (car e) struct)) struct)))
-
-(defun org-list-get-list-begin (item struct prevs)
- "Return point at beginning of sub-list ITEM belongs.
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'."
- (let ((first-item item) prev-item)
- (while (setq prev-item (org-list-get-prev-item first-item struct prevs))
- (setq first-item prev-item))
- first-item))
-
-(defalias 'org-list-get-first-item 'org-list-get-list-begin)
-
-(defun org-list-get-last-item (item struct prevs)
- "Return point at last item of sub-list ITEM belongs.
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'."
- (let ((last-item item) next-item)
- (while (setq next-item (org-list-get-next-item last-item struct prevs))
- (setq last-item next-item))
- last-item))
-
-(defun org-list-get-list-end (item struct prevs)
- "Return point at end of sub-list ITEM belongs.
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'."
- (org-list-get-item-end (org-list-get-last-item item struct prevs) struct))
-
-(defun org-list-get-list-type (item struct prevs)
- "Return the type of the list containing ITEM, as a symbol.
-
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'.
-
-Possible types are `descriptive', `ordered' and `unordered'. The
-type is determined by the first item of the list."
- (let ((first (org-list-get-list-begin item struct prevs)))
- (cond
- ((string-match-p "[[:alnum:]]" (org-list-get-bullet first struct)) 'ordered)
- ((org-list-get-tag first struct) 'descriptive)
- (t 'unordered))))
-
-(defun org-list-get-item-number (item struct prevs parents)
- "Return ITEM's sequence number.
-
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'. PARENTS is the
-alist of ancestors, as returned by `org-list-parents-alist'.
-
-Return value is a list of integers. Counters have an impact on
-that value."
- (let ((get-relative-number
- (function
- (lambda (item struct prevs)
- ;; Return relative sequence number of ITEM in the sub-list
- ;; it belongs. STRUCT is the list structure. PREVS is
- ;; the alist of previous items.
- (let ((seq 0) (pos item) counter)
- (while (and (not (setq counter (org-list-get-counter pos struct)))
- (setq pos (org-list-get-prev-item pos struct prevs)))
- (cl-incf seq))
- (if (not counter) (1+ seq)
- (cond
- ((string-match "[A-Za-z]" counter)
- (+ (- (string-to-char (upcase (match-string 0 counter))) 64)
- seq))
- ((string-match "[0-9]+" counter)
- (+ (string-to-number (match-string 0 counter)) seq))
- (t (1+ seq)))))))))
- ;; Cons each parent relative number into return value (OUT).
- (let ((out (list (funcall get-relative-number item struct prevs)))
- (parent item))
- (while (setq parent (org-list-get-parent parent struct parents))
- (push (funcall get-relative-number parent struct prevs) out))
- ;; Return value.
- out)))
-
-
-
-;;; Searching
-
-(defun org-list-search-generic (search re bound noerr)
- "Search a string in valid contexts for lists.
-Arguments SEARCH, RE, BOUND and NOERR are similar to those used
-in `re-search-forward'."
- (catch 'exit
- (let ((origin (point)))
- (while t
- ;; 1. No match: return to origin or bound, depending on NOERR.
- (unless (funcall search re bound noerr)
- (throw 'exit (and (goto-char (if (memq noerr '(t nil)) origin bound))
- nil)))
- ;; 2. Match in valid context: return point. Else, continue
- ;; searching.
- (when (org-list-in-valid-context-p) (throw 'exit (point)))))))
-
-(defun org-list-search-backward (regexp &optional bound noerror)
- "Like `re-search-backward' but stop only where lists are recognized.
-Arguments REGEXP, BOUND and NOERROR are similar to those used in
-`re-search-backward'."
- (org-list-search-generic #'re-search-backward
- regexp (or bound (point-min)) noerror))
-
-(defun org-list-search-forward (regexp &optional bound noerror)
- "Like `re-search-forward' but stop only where lists are recognized.
-Arguments REGEXP, BOUND and NOERROR are similar to those used in
-`re-search-forward'."
- (org-list-search-generic #'re-search-forward
- regexp (or bound (point-max)) noerror))
-
-
-
-;;; Methods on structures
-
-(defsubst org-list-bullet-string (bullet)
- "Return BULLET with the correct number of whitespaces.
-It determines the number of whitespaces to append by looking at
-`org-list-two-spaces-after-bullet-regexp'."
- (save-match-data
- (let ((spaces (if (and org-list-two-spaces-after-bullet-regexp
- (string-match
- org-list-two-spaces-after-bullet-regexp bullet))
- " "
- " ")))
- (if (string-match "\\S-+\\([ \t]*\\)" bullet)
- (replace-match spaces nil nil bullet 1)
- bullet))))
-
-(defun org-list-swap-items (beg-A beg-B struct)
- "Swap item starting at BEG-A with item starting at BEG-B in STRUCT.
-
-Blank lines at the end of items are left in place. Item
-visibility is preserved. Return the new structure after the
-changes.
-
-Assume BEG-A is lesser than BEG-B and that BEG-A and BEG-B belong
-to the same sub-list.
-
-This function modifies STRUCT."
- (save-excursion
- (let* ((end-A-no-blank (org-list-get-item-end-before-blank beg-A struct))
- (end-B-no-blank (org-list-get-item-end-before-blank beg-B struct))
- (end-A (org-list-get-item-end beg-A struct))
- (end-B (org-list-get-item-end beg-B struct))
- (size-A (- end-A-no-blank beg-A))
- (size-B (- end-B-no-blank beg-B))
- (body-A (buffer-substring beg-A end-A-no-blank))
- (body-B (buffer-substring beg-B end-B-no-blank))
- (between-A-no-blank-and-B (buffer-substring end-A-no-blank beg-B))
- (sub-A (cons beg-A (org-list-get-subtree beg-A struct)))
- (sub-B (cons beg-B (org-list-get-subtree beg-B struct)))
- ;; Store overlays responsible for visibility status. We
- ;; also need to store their boundaries as they will be
- ;; removed from buffer.
- (overlays
- (cons
- (delq nil
- (mapcar (lambda (o)
- (and (>= (overlay-start o) beg-A)
- (<= (overlay-end o) end-A)
- (list o (overlay-start o) (overlay-end o))))
- (overlays-in beg-A end-A)))
- (delq nil
- (mapcar (lambda (o)
- (and (>= (overlay-start o) beg-B)
- (<= (overlay-end o) end-B)
- (list o (overlay-start o) (overlay-end o))))
- (overlays-in beg-B end-B))))))
- ;; 1. Move effectively items in buffer.
- (goto-char beg-A)
- (delete-region beg-A end-B-no-blank)
- (insert (concat body-B between-A-no-blank-and-B body-A))
- ;; 2. Now modify struct. No need to re-read the list, the
- ;; transformation is just a shift of positions. Some special
- ;; attention is required for items ending at END-A and END-B
- ;; as empty spaces are not moved there. In others words,
- ;; item BEG-A will end with whitespaces that were at the end
- ;; of BEG-B and the same applies to BEG-B.
- (dolist (e struct)
- (let ((pos (car e)))
- (cond
- ((< pos beg-A))
- ((memq pos sub-A)
- (let ((end-e (nth 6 e)))
- (setcar e (+ pos (- end-B-no-blank end-A-no-blank)))
- (setcar (nthcdr 6 e)
- (+ end-e (- end-B-no-blank end-A-no-blank)))
- (when (= end-e end-A) (setcar (nthcdr 6 e) end-B))))
- ((memq pos sub-B)
- (let ((end-e (nth 6 e)))
- (setcar e (- (+ pos beg-A) beg-B))
- (setcar (nthcdr 6 e) (+ end-e (- beg-A beg-B)))
- (when (= end-e end-B)
- (setcar (nthcdr 6 e)
- (+ beg-A size-B (- end-A end-A-no-blank))))))
- ((< pos beg-B)
- (let ((end-e (nth 6 e)))
- (setcar e (+ pos (- size-B size-A)))
- (setcar (nthcdr 6 e) (+ end-e (- size-B size-A))))))))
- (setq struct (sort struct #'car-less-than-car))
- ;; Restore visibility status, by moving overlays to their new
- ;; position.
- (dolist (ov (car overlays))
- (move-overlay
- (car ov)
- (+ (nth 1 ov) (- (+ beg-B (- size-B size-A)) beg-A))
- (+ (nth 2 ov) (- (+ beg-B (- size-B size-A)) beg-A))))
- (dolist (ov (cdr overlays))
- (move-overlay (car ov)
- (+ (nth 1 ov) (- beg-A beg-B))
- (+ (nth 2 ov) (- beg-A beg-B))))
- ;; Return structure.
- struct)))
-
-(defun org-list-separating-blank-lines-number (pos struct prevs)
- "Return number of blank lines that should separate items in list.
-
-POS is the position of point where `org-list-insert-item' was called.
-
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'.
-
-Assume point is at item's beginning. If the item is alone, apply
-some heuristics to guess the result."
- (save-excursion
- (let ((item (point))
- (insert-blank-p
- (cdr (assq 'plain-list-item org-blank-before-new-entry)))
- usr-blank
- (count-blanks
- (function
- (lambda ()
- ;; Count blank lines above beginning of line.
- (save-excursion
- (count-lines (goto-char (point-at-bol))
- (progn (skip-chars-backward " \r\t\n")
- (forward-line)
- (point))))))))
- (cond
- ;; Trivial cases where there should be none.
- ((not insert-blank-p) 0)
- ;; When `org-blank-before-new-entry' says so, it is 1.
- ((eq insert-blank-p t) 1)
- ;; `plain-list-item' is 'auto. Count blank lines separating
- ;; neighbors' items in list.
- (t (let ((next-p (org-list-get-next-item item struct prevs)))
- (cond
- ;; Is there a next item?
- (next-p (goto-char next-p)
- (funcall count-blanks))
- ;; Is there a previous item?
- ((org-list-get-prev-item item struct prevs)
- (funcall count-blanks))
- ;; User inserted blank lines, trust him.
- ((and (> pos (org-list-get-item-end-before-blank item struct))
- (> (save-excursion (goto-char pos)
- (setq usr-blank (funcall count-blanks)))
- 0))
- usr-blank)
- ;; Are there blank lines inside the list so far?
- ((save-excursion
- (goto-char (org-list-get-top-point struct))
- ;; Do not use `org-list-search-forward' so blank lines
- ;; in blocks can be counted in.
- (re-search-forward
- "^[ \t]*$" (org-list-get-item-end-before-blank item struct) t))
- 1)
- ;; Default choice: no blank line.
- (t 0))))))))
-
-(defun org-list-insert-item (pos struct prevs &optional checkbox after-bullet)
- "Insert a new list item at POS and return the new structure.
-If POS is before first character after bullet of the item, the
-new item will be created before the current one.
-
-STRUCT is the list structure. PREVS is the alist of previous
-items, as returned by `org-list-prevs-alist'.
-
-Insert a checkbox if CHECKBOX is non-nil, and string AFTER-BULLET
-after the bullet. Cursor will be after this text once the
-function ends.
-
-This function modifies STRUCT."
- (let ((case-fold-search t))
- ;; 1. Get information about list: position of point with regards
- ;; to item start (BEFOREP), blank lines number separating items
- ;; (BLANK-NB), if we're allowed to (SPLIT-LINE-P).
- (let* ((item (progn (goto-char pos) (goto-char (org-list-get-item-begin))))
- (item-end (org-list-get-item-end item struct))
- (item-end-no-blank (org-list-get-item-end-before-blank item struct))
- (beforep
- (progn
- (looking-at org-list-full-item-re)
- (<= pos
- (cond
- ((not (match-beginning 4)) (match-end 0))
- ;; Ignore tag in a non-descriptive list.
- ((save-match-data (string-match "[.)]" (match-string 1)))
- (match-beginning 4))
- (t (save-excursion
- (goto-char (match-end 4))
- (skip-chars-forward " \t")
- (point)))))))
- (split-line-p (org-get-alist-option org-M-RET-may-split-line 'item))
- (blank-nb (org-list-separating-blank-lines-number
- pos struct prevs))
- ;; 2. Build the new item to be created. Concatenate same
- ;; bullet as item, checkbox, text AFTER-BULLET if
- ;; provided, and text cut from point to end of item
- ;; (TEXT-CUT) to form item's BODY. TEXT-CUT depends on
- ;; BEFOREP and SPLIT-LINE-P. The difference of size
- ;; between what was cut and what was inserted in buffer
- ;; is stored in SIZE-OFFSET.
- (ind (org-list-get-ind item struct))
- (ind-size (if indent-tabs-mode
- (+ (/ ind tab-width) (mod ind tab-width))
- ind))
- (bullet (org-list-bullet-string (org-list-get-bullet item struct)))
- (box (when checkbox "[ ]"))
- (text-cut
- (and (not beforep) split-line-p
- (progn
- (goto-char pos)
- ;; If POS is greater than ITEM-END, then point is
- ;; in some white lines after the end of the list.
- ;; Those must be removed, or they will be left,
- ;; stacking up after the list.
- (when (< item-end pos)
- (delete-region (1- item-end) (point-at-eol)))
- (skip-chars-backward " \r\t\n")
- (setq pos (point))
- (delete-and-extract-region pos item-end-no-blank))))
- (body (concat bullet (when box (concat box " ")) after-bullet
- (and text-cut
- (if (string-match "\\`[ \t]+" text-cut)
- (replace-match "" t t text-cut)
- text-cut))))
- (item-sep (make-string (1+ blank-nb) ?\n))
- (item-size (+ ind-size (length body) (length item-sep)))
- (size-offset (- item-size (length text-cut))))
- ;; 4. Insert effectively item into buffer.
- (goto-char item)
- (indent-to-column ind)
- (insert body item-sep)
- ;; 5. Add new item to STRUCT.
- (mapc (lambda (e)
- (let ((p (car e)) (end (nth 6 e)))
- (cond
- ;; Before inserted item, positions don't change but
- ;; an item ending after insertion has its end shifted
- ;; by SIZE-OFFSET.
- ((< p item)
- (when (> end item) (setcar (nthcdr 6 e) (+ end size-offset))))
- ;; Trivial cases where current item isn't split in
- ;; two. Just shift every item after new one by
- ;; ITEM-SIZE.
- ((or beforep (not split-line-p))
- (setcar e (+ p item-size))
- (setcar (nthcdr 6 e) (+ end item-size)))
- ;; Item is split in two: elements before POS are just
- ;; shifted by ITEM-SIZE. In the case item would end
- ;; after split POS, ending is only shifted by
- ;; SIZE-OFFSET.
- ((< p pos)
- (setcar e (+ p item-size))
- (if (< end pos)
- (setcar (nthcdr 6 e) (+ end item-size))
- (setcar (nthcdr 6 e) (+ end size-offset))))
- ;; Elements after POS are moved into new item.
- ;; Length of ITEM-SEP has to be removed as ITEM-SEP
- ;; doesn't appear in buffer yet.
- ((< p item-end)
- (setcar e (+ p size-offset (- item pos (length item-sep))))
- (if (= end item-end)
- (setcar (nthcdr 6 e) (+ item item-size))
- (setcar (nthcdr 6 e)
- (+ end size-offset
- (- item pos (length item-sep))))))
- ;; Elements at ITEM-END or after are only shifted by
- ;; SIZE-OFFSET.
- (t (setcar e (+ p size-offset))
- (setcar (nthcdr 6 e) (+ end size-offset))))))
- struct)
- (push (list item ind bullet nil box nil (+ item item-size)) struct)
- (setq struct (sort struct (lambda (e1 e2) (< (car e1) (car e2)))))
- ;; 6. If not BEFOREP, new item must appear after ITEM, so
- ;; exchange ITEM with the next item in list. Position cursor
- ;; after bullet, counter, checkbox, and label.
- (if beforep
- (goto-char item)
- (setq struct (org-list-swap-items item (+ item item-size) struct))
- (goto-char (org-list-get-next-item
- item struct (org-list-prevs-alist struct))))
- struct)))
-
-(defun org-list-delete-item (item struct)
- "Remove ITEM from the list and return the new structure.
-
-STRUCT is the list structure."
- (let* ((end (org-list-get-item-end item struct))
- (beg (if (= (org-list-get-bottom-point struct) end)
- ;; If ITEM ends with the list, delete blank lines
- ;; before it.
- (save-excursion
- (goto-char item)
- (skip-chars-backward " \r\t\n")
- (min (1+ (point-at-eol)) (point-max)))
- item)))
- ;; Remove item from buffer.
- (delete-region beg end)
- ;; Remove item from structure and shift others items accordingly.
- ;; Don't forget to shift also ending position when appropriate.
- (let ((size (- end beg)))
- (delq nil (mapcar (lambda (e)
- (let ((pos (car e)))
- (cond
- ((< pos item)
- (let ((end-e (nth 6 e)))
- (cond
- ((< end-e item) e)
- ((= end-e item)
- (append (butlast e) (list beg)))
- (t
- (append (butlast e) (list (- end-e size)))))))
- ((< pos end) nil)
- (t
- (cons (- pos size)
- (append (butlast (cdr e))
- (list (- (nth 6 e) size))))))))
- struct)))))
-
-(defun org-list-send-item (item dest struct)
- "Send ITEM to destination DEST.
-
-STRUCT is the list structure.
-
-DEST can have various values.
-
-If DEST is a buffer position, the function will assume it points
-to another item in the same list as ITEM, and will move the
-latter just before the former.
-
-If DEST is `begin' (respectively `end'), ITEM will be moved at
-the beginning (respectively end) of the list it belongs to.
-
-If DEST is a string like \"N\", where N is an integer, ITEM will
-be moved at the Nth position in the list.
-
-If DEST is `kill', ITEM will be deleted and its body will be
-added to the kill-ring.
-
-If DEST is `delete', ITEM will be deleted.
-
-Visibility of item is preserved.
-
-This function returns, destructively, the new list structure."
- (let* ((prevs (org-list-prevs-alist struct))
- (item-end (org-list-get-item-end item struct))
- ;; Grab full item body minus its bullet.
- (body (org-trim
- (buffer-substring
- (save-excursion
- (goto-char item)
- (looking-at
- (concat "[ \t]*"
- (regexp-quote (org-list-get-bullet item struct))))
- (match-end 0))
- item-end)))
- ;; Change DEST into a buffer position. A trick is needed
- ;; when ITEM is meant to be sent at the end of the list.
- ;; Indeed, by setting locally `org-M-RET-may-split-line' to
- ;; nil and insertion point (INS-POINT) to the first line's
- ;; end of the last item, we ensure the new item will be
- ;; inserted after the last item, and not after any of its
- ;; hypothetical sub-items.
- (ins-point (cond
- ((or (eq dest 'kill) (eq dest 'delete)))
- ((eq dest 'begin)
- (setq dest (org-list-get-list-begin item struct prevs)))
- ((eq dest 'end)
- (setq dest (org-list-get-list-end item struct prevs))
- (save-excursion
- (goto-char (org-list-get-last-item item struct prevs))
- (point-at-eol)))
- ((string-match-p "\\`[0-9]+\\'" dest)
- (let* ((all (org-list-get-all-items item struct prevs))
- (len (length all))
- (index (mod (string-to-number dest) len)))
- (if (not (zerop index))
- (setq dest (nth (1- index) all))
- ;; Send ITEM at the end of the list.
- (setq dest (org-list-get-list-end item struct prevs))
- (save-excursion
- (goto-char
- (org-list-get-last-item item struct prevs))
- (point-at-eol)))))
- (t dest)))
- (org-M-RET-may-split-line nil)
- ;; Store inner overlays (to preserve visibility).
- (overlays (cl-remove-if (lambda (o) (or (< (overlay-start o) item)
- (> (overlay-end o) item)))
- (overlays-in item item-end))))
- (cond
- ((eq dest 'delete) (org-list-delete-item item struct))
- ((eq dest 'kill)
- (kill-new body)
- (org-list-delete-item item struct))
- ((and (integerp dest) (/= item ins-point))
- (setq item (copy-marker item))
- (setq struct (org-list-insert-item ins-point struct prevs nil body))
- ;; 1. Structure returned by `org-list-insert-item' may not be
- ;; accurate, as it cannot see sub-items included in BODY.
- ;; Thus, first compute the real structure so far.
- (let ((moved-items
- (cons (marker-position item)
- (org-list-get-subtree (marker-position item) struct)))
- (new-end (org-list-get-item-end (point) struct))
- (old-end (org-list-get-item-end (marker-position item) struct))
- (new-item (point))
- (shift (- (point) item)))
- ;; 1.1. Remove the item just created in structure.
- (setq struct (delete (assq new-item struct) struct))
- ;; 1.2. Copy ITEM and any of its sub-items at NEW-ITEM.
- (setq struct (sort
- (append
- struct
- (mapcar (lambda (e)
- (let* ((cell (assq e struct))
- (pos (car cell))
- (end (nth 6 cell)))
- (cons (+ pos shift)
- (append (butlast (cdr cell))
- (list (if (= end old-end)
- new-end
- (+ end shift)))))))
- moved-items))
- #'car-less-than-car)))
- ;; 2. Restore inner overlays.
- (dolist (o overlays)
- (move-overlay o
- (+ (overlay-start o) (- (point) item))
- (+ (overlay-end o) (- (point) item))))
- ;; 3. Eventually delete extra copy of the item and clean marker.
- (prog1 (org-list-delete-item (marker-position item) struct)
- (move-marker item nil)))
- (t struct))))
-
-(defun org-list-struct-outdent (start end struct parents)
- "Outdent items between positions START and END.
-
-STRUCT is the list structure. PARENTS is the alist of items'
-parents, as returned by `org-list-parents-alist'.
-
-START is included, END excluded."
- (let* (acc
- (out (lambda (cell)
- (let* ((item (car cell))
- (parent (cdr cell)))
- (cond
- ;; Item not yet in zone: keep association.
- ((< item start) cell)
- ;; Item out of zone: follow associations in ACC.
- ((>= item end)
- (let ((convert (and parent (assq parent acc))))
- (if convert (cons item (cdr convert)) cell)))
- ;; Item has no parent: error
- ((not parent)
- (error "Cannot outdent top-level items"))
- ;; Parent is outdented: keep association.
- ((>= parent start)
- (push (cons parent item) acc) cell)
- (t
- ;; Parent isn't outdented: reparent to grand-parent.
- (let ((grand-parent (org-list-get-parent
- parent struct parents)))
- (push (cons parent item) acc)
- (cons item grand-parent))))))))
- (mapcar out parents)))
-
-(defun org-list-struct-indent (start end struct parents prevs)
- "Indent items between positions START and END.
-
-STRUCT is the list structure. PARENTS is the alist of parents
-and PREVS is the alist of previous items, returned by,
-respectively, `org-list-parents-alist' and
-`org-list-prevs-alist'.
-
-START is included and END excluded.
-
-STRUCT may be modified if `org-list-demote-modify-bullet' matches
-bullets between START and END."
- (let* (acc
- (set-assoc (lambda (cell) (push cell acc) cell))
- (change-bullet-maybe
- (function
- (lambda (item)
- (let ((new-bul-p
- (cdr (assoc
- ;; Normalize ordered bullets.
- (let ((bul (org-trim
- (org-list-get-bullet item struct))))
- (cond ((string-match "[A-Z]\\." bul) "A.")
- ((string-match "[A-Z])" bul) "A)")
- ((string-match "[a-z]\\." bul) "a.")
- ((string-match "[a-z])" bul) "a)")
- ((string-match "[0-9]\\." bul) "1.")
- ((string-match "[0-9])" bul) "1)")
- (t bul)))
- org-list-demote-modify-bullet))))
- (when new-bul-p (org-list-set-bullet item struct new-bul-p))))))
- (ind
- (lambda (cell)
- (let* ((item (car cell))
- (parent (cdr cell)))
- (cond
- ;; Item not yet in zone: keep association.
- ((< item start) cell)
- ((>= item end)
- ;; Item out of zone: follow associations in ACC.
- (let ((convert (assq parent acc)))
- (if convert (cons item (cdr convert)) cell)))
- (t
- ;; Item is in zone...
- (let ((prev (org-list-get-prev-item item struct prevs)))
- ;; Check if bullet needs to be changed.
- (funcall change-bullet-maybe item)
- (cond
- ;; First item indented but not parent: error
- ((and (not prev) (or (not parent) (< parent start)))
- (user-error "Cannot indent the first item of a list"))
- ;; First item and parent indented: keep same
- ;; parent.
- ((not prev) (funcall set-assoc cell))
- ;; Previous item not indented: reparent to it.
- ((< prev start) (funcall set-assoc (cons item prev)))
- ;; Previous item indented: reparent like it.
- (t
- (funcall set-assoc
- (cons item (cdr (assq prev acc)))))))))))))
- (mapcar ind parents)))
-
-
-
-;;; Repairing structures
-
-(defun org-list-use-alpha-bul-p (first struct prevs)
- "Non-nil if list starting at FIRST can have alphabetical bullets.
-
-STRUCT is list structure. PREVS is the alist of previous items,
-as returned by `org-list-prevs-alist'."
- (and org-list-allow-alphabetical
- (catch 'exit
- (let ((item first) (ascii 64) (case-fold-search nil))
- ;; Pretend that bullets are uppercase and check if alphabet
- ;; is sufficient, taking counters into account.
- (while item
- (let ((count (org-list-get-counter item struct)))
- ;; Virtually determine current bullet
- (if (and count (string-match-p "[a-zA-Z]" count))
- ;; Counters are not case-sensitive.
- (setq ascii (string-to-char (upcase count)))
- (setq ascii (1+ ascii)))
- ;; Test if bullet would be over z or Z.
- (if (> ascii 90)
- (throw 'exit nil)
- (setq item (org-list-get-next-item item struct prevs)))))
- ;; All items checked. All good.
- t))))
-
-(defun org-list-inc-bullet-maybe (bullet)
- "Increment BULLET if applicable."
- (let ((case-fold-search nil))
- (cond
- ;; Num bullet: increment it.
- ((string-match "[0-9]+" bullet)
- (replace-match
- (number-to-string (1+ (string-to-number (match-string 0 bullet))))
- nil nil bullet))
- ;; Alpha bullet: increment it.
- ((string-match "[A-Za-z]" bullet)
- (replace-match
- (char-to-string (1+ (string-to-char (match-string 0 bullet))))
- nil nil bullet))
- ;; Unordered bullet: leave it.
- (t bullet))))
-
-(defun org-list-struct-fix-bul (struct prevs)
- "Verify and correct bullets in STRUCT.
-PREVS is the alist of previous items, as returned by
-`org-list-prevs-alist'.
-
-This function modifies STRUCT."
- (let ((case-fold-search nil)
- (fix-bul
- (function
- ;; Set bullet of ITEM in STRUCT, depending on the type of
- ;; first item of the list, the previous bullet and counter
- ;; if any.
- (lambda (item)
- (let* ((prev (org-list-get-prev-item item struct prevs))
- (prev-bul (and prev (org-list-get-bullet prev struct)))
- (counter (org-list-get-counter item struct))
- (bullet (org-list-get-bullet item struct))
- (alphap (and (not prev)
- (org-list-use-alpha-bul-p item struct prevs))))
- (org-list-set-bullet
- item struct
- (org-list-bullet-string
- (cond
- ;; Alpha counter in alpha list: use counter.
- ((and prev counter
- (string-match "[a-zA-Z]" counter)
- (string-match "[a-zA-Z]" prev-bul))
- ;; Use cond to be sure `string-match' is used in
- ;; both cases.
- (let ((real-count
- (cond
- ((string-match "[a-z]" prev-bul) (downcase counter))
- ((string-match "[A-Z]" prev-bul) (upcase counter)))))
- (replace-match real-count nil nil prev-bul)))
- ;; Num counter in a num list: use counter.
- ((and prev counter
- (string-match "[0-9]+" counter)
- (string-match "[0-9]+" prev-bul))
- (replace-match counter nil nil prev-bul))
- ;; No counter: increase, if needed, previous bullet.
- (prev
- (org-list-inc-bullet-maybe (org-list-get-bullet prev struct)))
- ;; Alpha counter at first item: use counter.
- ((and counter (org-list-use-alpha-bul-p item struct prevs)
- (string-match "[A-Za-z]" counter)
- (string-match "[A-Za-z]" bullet))
- (let ((real-count
- (cond
- ((string-match "[a-z]" bullet) (downcase counter))
- ((string-match "[A-Z]" bullet) (upcase counter)))))
- (replace-match real-count nil nil bullet)))
- ;; Num counter at first item: use counter.
- ((and counter
- (string-match "[0-9]+" counter)
- (string-match "[0-9]+" bullet))
- (replace-match counter nil nil bullet))
- ;; First bullet is alpha uppercase: use "A".
- ((and alphap (string-match "[A-Z]" bullet))
- (replace-match "A" nil nil bullet))
- ;; First bullet is alpha lowercase: use "a".
- ((and alphap (string-match "[a-z]" bullet))
- (replace-match "a" nil nil bullet))
- ;; First bullet is num: use "1".
- ((string-match "\\([0-9]+\\|[A-Za-z]\\)" bullet)
- (replace-match "1" nil nil bullet))
- ;; Not an ordered list: keep bullet.
- (t bullet)))))))))
- (mapc fix-bul (mapcar #'car struct))))
-
-(defun org-list-struct-fix-ind (struct parents &optional bullet-size)
- "Verify and correct indentation in STRUCT.
-
-PARENTS is the alist of parents, as returned by
-`org-list-parents-alist'.
-
-If numeric optional argument BULLET-SIZE is set, assume all
-bullets in list have this length to determine new indentation.
-
-This function modifies STRUCT."
- (let* ((ancestor (org-list-get-top-point struct))
- (top-ind (org-list-get-ind ancestor struct))
- (new-ind
- (lambda (item)
- (let ((parent (org-list-get-parent item struct parents)))
- (if parent
- ;; Indent like parent + length of parent's bullet +
- ;; sub-list offset.
- (org-list-set-ind
- item struct (+ (or bullet-size
- (length
- (org-list-get-bullet parent struct)))
- (org-list-get-ind parent struct)
- org-list-indent-offset))
- ;; If no parent, indent like top-point.
- (org-list-set-ind item struct top-ind))))))
- (mapc new-ind (mapcar #'car (cdr struct)))))
-
-(defun org-list-struct-fix-box (struct parents prevs &optional ordered)
- "Verify and correct checkboxes in STRUCT.
-
-PARENTS is the alist of parents and PREVS is the alist of
-previous items, as returned by, respectively,
-`org-list-parents-alist' and `org-list-prevs-alist'.
-
-If ORDERED is non-nil, a checkbox can only be checked when every
-checkbox before it is checked too. If there was an attempt to
-break this rule, the function will return the blocking item. In
-all others cases, the return value will be nil.
-
-This function modifies STRUCT."
- (let ((all-items (mapcar #'car struct))
- (set-parent-box
- (function
- (lambda (item)
- (let* ((box-list
- (mapcar (lambda (child)
- (org-list-get-checkbox child struct))
- (org-list-get-children item struct parents))))
- (org-list-set-checkbox
- item struct
- (cond
- ((and (member "[ ]" box-list) (member "[X]" box-list)) "[-]")
- ((member "[-]" box-list) "[-]")
- ((member "[X]" box-list) "[X]")
- ((member "[ ]" box-list) "[ ]")
- ;; Parent has no boxed child: leave box as-is.
- (t (org-list-get-checkbox item struct))))))))
- parent-list)
- ;; 1. List all parents with a checkbox.
- (mapc
- (lambda (e)
- (let* ((parent (org-list-get-parent e struct parents))
- (parent-box-p (org-list-get-checkbox parent struct)))
- (when (and parent-box-p (not (memq parent parent-list)))
- (push parent parent-list))))
- all-items)
- ;; 2. Sort those parents by decreasing indentation.
- (setq parent-list (sort parent-list
- (lambda (e1 e2)
- (> (org-list-get-ind e1 struct)
- (org-list-get-ind e2 struct)))))
- ;; 3. For each parent, get all children's checkboxes to determine
- ;; and set its checkbox accordingly.
- (mapc set-parent-box parent-list)
- ;; 4. If ORDERED is set, see if we need to uncheck some boxes.
- (when ordered
- (let* ((box-list
- (mapcar (lambda (e) (org-list-get-checkbox e struct)) all-items))
- (after-unchecked (member "[ ]" box-list)))
- ;; There are boxes checked after an unchecked one: fix that.
- (when (member "[X]" after-unchecked)
- (let ((index (- (length struct) (length after-unchecked))))
- (mapc (lambda (e)
- (when (org-list-get-checkbox e struct)
- (org-list-set-checkbox e struct "[ ]")))
- (nthcdr index all-items))
- ;; Verify once again the structure, without ORDERED.
- (org-list-struct-fix-box struct parents prevs nil)
- ;; Return blocking item.
- (nth index all-items)))))))
-
-(defun org-list-struct-fix-item-end (struct)
- "Verify and correct each item end position in STRUCT.
-
-This function modifies STRUCT."
- (let (end-list acc-end)
- (mapc (lambda (e)
- (let* ((pos (car e))
- (ind-pos (org-list-get-ind pos struct))
- (end-pos (org-list-get-item-end pos struct)))
- (unless (assq end-pos struct)
- ;; To determine real ind of an ending position that is
- ;; not at an item, we have to find the item it belongs
- ;; to: it is the last item (ITEM-UP), whose ending is
- ;; further than the position we're interested in.
- (let ((item-up (assoc-default end-pos acc-end '>)))
- (push (cons
- ;; Else part is for the bottom point.
- (if item-up (+ (org-list-get-ind item-up struct) 2) 0)
- end-pos)
- end-list)))
- (push (cons ind-pos pos) end-list)
- (push (cons end-pos pos) acc-end)))
- struct)
- (setq end-list (sort end-list (lambda (e1 e2) (< (cdr e1) (cdr e2)))))
- (org-list-struct-assoc-end struct end-list)))
-
-(defun org-list-struct-apply-struct (struct old-struct)
- "Apply set difference between STRUCT and OLD-STRUCT to the buffer.
-
-OLD-STRUCT is the structure before any modifications, and STRUCT
-the structure to be applied. The function will only modify parts
-of the list which have changed.
-
-Initial position of cursor is restored after the changes."
- (let* ((origin (point-marker))
- (inlinetask-re (and (featurep 'org-inlinetask)
- (org-inlinetask-outline-regexp)))
- (item-re (org-item-re))
- (shift-body-ind
- (function
- ;; Shift the indentation between END and BEG by DELTA.
- ;; Start from the line before END.
- (lambda (end beg delta)
- (goto-char end)
- (skip-chars-backward " \r\t\n")
- (beginning-of-line)
- (while (or (> (point) beg)
- (and (= (point) beg)
- (not (looking-at item-re))))
- (cond
- ;; Skip inline tasks.
- ((and inlinetask-re (looking-at inlinetask-re))
- (org-inlinetask-goto-beginning))
- ;; Shift only non-empty lines.
- ((looking-at-p "^[ \t]*\\S-")
- (indent-line-to (+ (org-get-indentation) delta))))
- (forward-line -1)))))
- (modify-item
- (function
- ;; Replace ITEM first line elements with new elements from
- ;; STRUCT, if appropriate.
- (lambda (item)
- (goto-char item)
- (let* ((new-ind (org-list-get-ind item struct))
- (old-ind (org-get-indentation))
- (new-bul (org-list-bullet-string
- (org-list-get-bullet item struct)))
- (old-bul (org-list-get-bullet item old-struct))
- (new-box (org-list-get-checkbox item struct)))
- (looking-at org-list-full-item-re)
- ;; a. Replace bullet
- (unless (equal old-bul new-bul)
- (replace-match new-bul nil nil nil 1))
- ;; b. Replace checkbox.
- (cond
- ((equal (match-string 3) new-box))
- ((and (match-string 3) new-box)
- (replace-match new-box nil nil nil 3))
- ((match-string 3)
- (looking-at ".*?\\([ \t]*\\[[ X-]\\]\\)")
- (replace-match "" nil nil nil 1))
- (t (let ((counterp (match-end 2)))
- (goto-char (if counterp (1+ counterp) (match-end 1)))
- (insert (concat new-box (unless counterp " "))))))
- ;; c. Indent item to appropriate column.
- (unless (= new-ind old-ind)
- (delete-region (goto-char (point-at-bol))
- (progn (skip-chars-forward " \t") (point)))
- (indent-to new-ind)))))))
- ;; 1. First get list of items and position endings. We maintain
- ;; two alists: ITM-SHIFT, determining indentation shift needed
- ;; at item, and END-LIST, a pseudo-alist where key is ending
- ;; position and value point.
- (let (end-list acc-end itm-shift all-ends sliced-struct)
- (dolist (e old-struct)
- (let* ((pos (car e))
- (ind-pos (org-list-get-ind pos struct))
- (ind-old (org-list-get-ind pos old-struct))
- (bul-pos (org-list-get-bullet pos struct))
- (bul-old (org-list-get-bullet pos old-struct))
- (ind-shift (- (+ ind-pos (length bul-pos))
- (+ ind-old (length bul-old))))
- (end-pos (org-list-get-item-end pos old-struct)))
- (push (cons pos ind-shift) itm-shift)
- (unless (assq end-pos old-struct)
- ;; To determine real ind of an ending position that
- ;; is not at an item, we have to find the item it
- ;; belongs to: it is the last item (ITEM-UP), whose
- ;; ending is further than the position we're
- ;; interested in.
- (let ((item-up (assoc-default end-pos acc-end #'>)))
- (push (cons end-pos item-up) end-list)))
- (push (cons end-pos pos) acc-end)))
- ;; 2. Slice the items into parts that should be shifted by the
- ;; same amount of indentation. Each slice follow the pattern
- ;; (END BEG DELTA). Slices are returned in reverse order.
- (setq all-ends (sort (append (mapcar #'car itm-shift)
- (org-uniquify (mapcar #'car end-list)))
- #'<)
- acc-end (nreverse acc-end))
- (while (cdr all-ends)
- (let* ((up (pop all-ends))
- (down (car all-ends))
- (itemp (assq up struct))
- (delta
- (if itemp (cdr (assq up itm-shift))
- ;; If we're not at an item, there's a child of the
- ;; item point belongs to above. Make sure the less
- ;; indented line in this slice has the same column
- ;; as that child.
- (let* ((child (cdr (assq up acc-end)))
- (ind (org-list-get-ind child struct))
- (min-ind most-positive-fixnum))
- (save-excursion
- (goto-char up)
- (while (< (point) down)
- ;; Ignore empty lines. Also ignore blocks and
- ;; drawers contents.
- (unless (looking-at-p "[ \t]*$")
- (setq min-ind (min (org-get-indentation) min-ind))
- (cond
- ((and (looking-at "#\\+BEGIN\\(:\\|_\\S-+\\)")
- (re-search-forward
- (format "^[ \t]*#\\+END%s[ \t]*$"
- (match-string 1))
- down t)))
- ((and (looking-at org-drawer-regexp)
- (re-search-forward "^[ \t]*:END:[ \t]*$"
- down t)))))
- (forward-line)))
- (- ind min-ind)))))
- (push (list down up delta) sliced-struct)))
- ;; 3. Shift each slice in buffer, provided delta isn't 0, from
- ;; end to beginning. Take a special action when beginning is
- ;; at item bullet.
- (dolist (e sliced-struct)
- (unless (zerop (nth 2 e)) (apply shift-body-ind e))
- (let* ((beg (nth 1 e))
- (cell (assq beg struct)))
- (unless (or (not cell) (equal cell (assq beg old-struct)))
- (funcall modify-item beg)))))
- ;; 4. Go back to initial position and clean marker.
- (goto-char origin)
- (move-marker origin nil)))
-
-(defun org-list-write-struct (struct parents &optional old-struct)
- "Correct bullets, checkboxes and indentation in list at point.
-
-STRUCT is the list structure. PARENTS is the alist of parents,
-as returned by `org-list-parents-alist'.
-
-When non-nil, optional argument OLD-STRUCT is the reference
-structure of the list. It should be provided whenever STRUCT
-doesn't correspond anymore to the real list in buffer."
- ;; Order of functions matters here: checkboxes and endings need
- ;; correct indentation to be set, and indentation needs correct
- ;; bullets.
- ;;
- ;; 0. Save a copy of structure before modifications
- (let ((old-struct (or old-struct (copy-tree struct))))
- ;; 1. Set a temporary, but coherent with PARENTS, indentation in
- ;; order to get items endings and bullets properly
- (org-list-struct-fix-ind struct parents 2)
- ;; 2. Fix each item end to get correct prevs alist.
- (org-list-struct-fix-item-end struct)
- ;; 3. Get bullets right.
- (let ((prevs (org-list-prevs-alist struct)))
- (org-list-struct-fix-bul struct prevs)
- ;; 4. Now get real indentation.
- (org-list-struct-fix-ind struct parents)
- ;; 5. Eventually fix checkboxes.
- (org-list-struct-fix-box struct parents prevs))
- ;; 6. Apply structure modifications to buffer.
- (org-list-struct-apply-struct struct old-struct)))
-
-
-
-;;; Misc Tools
-
-(defun org-apply-on-list (function init-value &rest args)
- "Call FUNCTION on each item of the list at point.
-FUNCTION must be called with at least one argument: INIT-VALUE,
-that will contain the value returned by the function at the
-previous item, plus ARGS extra arguments.
-
-FUNCTION is applied on items in reverse order.
-
-As an example, \(org-apply-on-list \(lambda \(result) \(1+ result)) 0)
-will return the number of items in the current list.
-
-Sublists of the list are skipped. Cursor is always at the
-beginning of the item."
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (item (copy-marker (point-at-bol)))
- (all (org-list-get-all-items (marker-position item) struct prevs))
- (value init-value))
- (mapc (lambda (e)
- (goto-char e)
- (setq value (apply function value args)))
- (nreverse all))
- (goto-char item)
- (move-marker item nil)
- value))
-
-(defun org-list-set-item-visibility (item struct view)
- "Set visibility of ITEM in STRUCT to VIEW.
-
-Possible values are: `folded', `children' or `subtree'. See
-`org-cycle' for more information."
- (cond
- ((eq view 'folded)
- (let ((item-end (org-list-get-item-end-before-blank item struct)))
- ;; Hide from eol
- (outline-flag-region (save-excursion (goto-char item) (point-at-eol))
- item-end t)))
- ((eq view 'children)
- ;; First show everything.
- (org-list-set-item-visibility item struct 'subtree)
- ;; Then fold every child.
- (let* ((parents (org-list-parents-alist struct))
- (children (org-list-get-children item struct parents)))
- (mapc (lambda (e)
- (org-list-set-item-visibility e struct 'folded))
- children)))
- ((eq view 'subtree)
- ;; Show everything
- (let ((item-end (org-list-get-item-end item struct)))
- (outline-flag-region item item-end nil)))))
-
-(defun org-list-item-body-column (item)
- "Return column at which body of ITEM should start."
- (save-excursion
- (goto-char item)
- (if (save-excursion
- (end-of-line)
- (re-search-backward
- "[ \t]::\\([ \t]\\|$\\)" (line-beginning-position) t))
- ;; Descriptive list item. Body starts after item's tag, if
- ;; possible.
- (let ((start (1+ (- (match-beginning 1) (line-beginning-position))))
- (ind (org-get-indentation)))
- (if (> start (+ ind org-list-description-max-indent))
- (+ ind 5)
- start))
- ;; Regular item. Body starts after bullet.
- (looking-at "[ \t]*\\(\\S-+\\)")
- (+ (progn (goto-char (match-end 1)) (current-column))
- (if (and org-list-two-spaces-after-bullet-regexp
- (string-match-p org-list-two-spaces-after-bullet-regexp
- (match-string 1)))
- 2
- 1)))))
-
-
-
-;;; Interactive functions
-
-(defalias 'org-list-get-item-begin 'org-in-item-p)
-
-(defun org-beginning-of-item ()
- "Go to the beginning of the current item.
-Throw an error when not in a list."
- (interactive)
- (let ((begin (org-in-item-p)))
- (if begin (goto-char begin) (error "Not in an item"))))
-
-(defun org-beginning-of-item-list ()
- "Go to the beginning item of the current list or sublist.
-Throw an error when not in a list."
- (interactive)
- (let ((begin (org-in-item-p)))
- (if (not begin)
- (error "Not in an item")
- (goto-char begin)
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct)))
- (goto-char (org-list-get-list-begin begin struct prevs))))))
-
-(defun org-end-of-item-list ()
- "Go to the end of the current list or sublist.
-Throw an error when not in a list."
- (interactive)
- (let ((begin (org-in-item-p)))
- (if (not begin)
- (error "Not in an item")
- (goto-char begin)
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct)))
- (goto-char (org-list-get-list-end begin struct prevs))))))
-
-(defun org-end-of-item ()
- "Go to the end of the current item.
-Throw an error when not in a list."
- (interactive)
- (let ((begin (org-in-item-p)))
- (if (not begin)
- (error "Not in an item")
- (goto-char begin)
- (let ((struct (org-list-struct)))
- (goto-char (org-list-get-item-end begin struct))))))
-
-(defun org-previous-item ()
- "Move to the beginning of the previous item.
-Throw an error when not in a list. Also throw an error when at
-first item, unless `org-list-use-circular-motion' is non-nil."
- (interactive)
- (let ((item (org-in-item-p)))
- (if (not item)
- (error "Not in an item")
- (goto-char item)
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (prevp (org-list-get-prev-item item struct prevs)))
- (cond
- (prevp (goto-char prevp))
- (org-list-use-circular-motion
- (goto-char (org-list-get-last-item item struct prevs)))
- (t (error "On first item")))))))
-
-(defun org-next-item ()
- "Move to the beginning of the next item.
-Throw an error when not in a list. Also throw an error when at
-last item, unless `org-list-use-circular-motion' is non-nil."
- (interactive)
- (let ((item (org-in-item-p)))
- (if (not item)
- (error "Not in an item")
- (goto-char item)
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (prevp (org-list-get-next-item item struct prevs)))
- (cond
- (prevp (goto-char prevp))
- (org-list-use-circular-motion
- (goto-char (org-list-get-first-item item struct prevs)))
- (t (error "On last item")))))))
-
-(defun org-move-item-down ()
- "Move the item at point down, i.e. swap with following item.
-Sub-items (items with larger indentation) are considered part of
-the item, so this really moves item trees."
- (interactive)
- (unless (org-at-item-p) (error "Not at an item"))
- (let* ((col (current-column))
- (item (point-at-bol))
- (struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (next-item (org-list-get-next-item (point-at-bol) struct prevs)))
- (unless (or next-item org-list-use-circular-motion)
- (user-error "Cannot move this item further down"))
- (if (not next-item)
- (setq struct (org-list-send-item item 'begin struct))
- (setq struct (org-list-swap-items item next-item struct))
- (goto-char
- (org-list-get-next-item item struct (org-list-prevs-alist struct))))
- (org-list-write-struct struct (org-list-parents-alist struct))
- (org-move-to-column col)))
-
-(defun org-move-item-up ()
- "Move the item at point up, i.e. swap with previous item.
-Sub-items (items with larger indentation) are considered part of
-the item, so this really moves item trees."
- (interactive)
- (unless (org-at-item-p) (error "Not at an item"))
- (let* ((col (current-column))
- (item (point-at-bol))
- (struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (prev-item (org-list-get-prev-item (point-at-bol) struct prevs)))
- (unless (or prev-item org-list-use-circular-motion)
- (user-error "Cannot move this item further up"))
- (if (not prev-item)
- (setq struct (org-list-send-item item 'end struct))
- (setq struct (org-list-swap-items prev-item item struct)))
- (org-list-write-struct struct (org-list-parents-alist struct))
- (org-move-to-column col)))
-
-(defun org-insert-item (&optional checkbox)
- "Insert a new item at the current level.
-If cursor is before first character after bullet of the item, the
-new item will be created before the current one.
-
-If CHECKBOX is non-nil, add a checkbox next to the bullet.
-
-Return t when things worked, nil when we are not in an item, or
-item is invisible."
- (interactive "P")
- (let ((itemp (org-in-item-p))
- (pos (point)))
- ;; If cursor isn't is a list or if list is invisible, return nil.
- (unless (or (not itemp)
- (save-excursion
- (goto-char itemp)
- (org-invisible-p)))
- (if (save-excursion
- (goto-char itemp)
- (org-at-item-timer-p))
- ;; Timer list: delegate to `org-timer-item'.
- (progn (org-timer-item) t)
- (let* ((struct (save-excursion (goto-char itemp)
- (org-list-struct)))
- (prevs (org-list-prevs-alist struct))
- ;; If we're in a description list, ask for the new term.
- (desc (when (eq (org-list-get-list-type itemp struct prevs)
- 'descriptive)
- " :: ")))
- (setq struct (org-list-insert-item pos struct prevs checkbox desc))
- (org-list-write-struct struct (org-list-parents-alist struct))
- (when checkbox (org-update-checkbox-count-maybe))
- (looking-at org-list-full-item-re)
- (goto-char (if (and (match-beginning 4)
- (save-match-data
- (string-match "[.)]" (match-string 1))))
- (match-beginning 4)
- (match-end 0)))
- (if desc (backward-char 1))
- t)))))
-
-(defun org-list-repair ()
- "Fix indentation, bullets and checkboxes in the list at point."
- (interactive)
- (unless (org-at-item-p) (error "This is not a list"))
- (let* ((struct (org-list-struct))
- (parents (org-list-parents-alist struct)))
- (org-list-write-struct struct parents)))
-
-(defun org-cycle-list-bullet (&optional which)
- "Cycle through the different itemize/enumerate bullets.
-This cycle the entire list level through the sequence:
-
- `-' -> `+' -> `*' -> `1.' -> `1)'
-
-If WHICH is a valid string, use that as the new bullet. If WHICH
-is an integer, 0 means `-', 1 means `+' etc. If WHICH is
-`previous', cycle backwards."
- (interactive "P")
- (unless (org-at-item-p) (error "Not at an item"))
- (save-excursion
- (beginning-of-line)
- (let* ((struct (org-list-struct))
- (parents (org-list-parents-alist struct))
- (prevs (org-list-prevs-alist struct))
- (list-beg (org-list-get-first-item (point) struct prevs))
- (bullet (org-list-get-bullet list-beg struct))
- (alpha-p (org-list-use-alpha-bul-p list-beg struct prevs))
- (case-fold-search nil)
- (current (cond
- ((string-match "[a-z]\\." bullet) "a.")
- ((string-match "[a-z])" bullet) "a)")
- ((string-match "[A-Z]\\." bullet) "A.")
- ((string-match "[A-Z])" bullet) "A)")
- ((string-match "\\." bullet) "1.")
- ((string-match ")" bullet) "1)")
- (t (org-trim bullet))))
- ;; Compute list of possible bullets, depending on context.
- (bullet-list
- (append '("-" "+" )
- ;; *-bullets are not allowed at column 0.
- (unless (looking-at "\\S-") '("*"))
- ;; Description items cannot be numbered.
- (unless (or (eq org-plain-list-ordered-item-terminator ?\))
- (org-at-item-description-p))
- '("1."))
- (unless (or (eq org-plain-list-ordered-item-terminator ?.)
- (org-at-item-description-p))
- '("1)"))
- (unless (or (not alpha-p)
- (eq org-plain-list-ordered-item-terminator ?\))
- (org-at-item-description-p))
- '("a." "A."))
- (unless (or (not alpha-p)
- (eq org-plain-list-ordered-item-terminator ?.)
- (org-at-item-description-p))
- '("a)" "A)"))))
- (len (length bullet-list))
- (item-index (- len (length (member current bullet-list))))
- (get-value (lambda (index) (nth (mod index len) bullet-list)))
- (new (cond
- ((member which bullet-list) which)
- ((numberp which) (funcall get-value which))
- ((eq 'previous which) (funcall get-value (1- item-index)))
- (t (funcall get-value (1+ item-index))))))
- ;; Use a short variation of `org-list-write-struct' as there's
- ;; no need to go through all the steps.
- (let ((old-struct (copy-tree struct)))
- (org-list-set-bullet list-beg struct (org-list-bullet-string new))
- (org-list-struct-fix-bul struct prevs)
- (org-list-struct-fix-ind struct parents)
- (org-list-struct-apply-struct struct old-struct)))))
-
-(defun org-toggle-checkbox (&optional toggle-presence)
- "Toggle the checkbox in the current line.
-
-With prefix argument TOGGLE-PRESENCE, add or remove checkboxes.
-With a double prefix argument, set the checkbox to \"[-]\".
-
-When there is an active region, toggle status or presence of the
-first checkbox there, and make every item inside have the same
-status or presence, respectively.
-
-If point is on a headline, apply this to all checkbox items in
-the text below the heading, taking as reference the first item in
-subtree, ignoring planning line and any drawer following it."
- (interactive "P")
- (save-excursion
- (let* (singlep
- block-item
- lim-up
- lim-down
- (orderedp (org-entry-get nil "ORDERED"))
- (_bounds
- ;; In a region, start at first item in region.
- (cond
- ((org-region-active-p)
- (let ((limit (region-end)))
- (goto-char (region-beginning))
- (if (org-list-search-forward (org-item-beginning-re) limit t)
- (setq lim-up (point-at-bol))
- (error "No item in region"))
- (setq lim-down (copy-marker limit))))
- ((org-at-heading-p)
- ;; On a heading, start at first item after drawers and
- ;; time-stamps (scheduled, etc.).
- (let ((limit (save-excursion (outline-next-heading) (point))))
- (org-end-of-meta-data t)
- (if (org-list-search-forward (org-item-beginning-re) limit t)
- (setq lim-up (point-at-bol))
- (error "No item in subtree"))
- (setq lim-down (copy-marker limit))))
- ;; Just one item: set SINGLEP flag.
- ((org-at-item-p)
- (setq singlep t)
- (setq lim-up (point-at-bol)
- lim-down (copy-marker (point-at-eol))))
- (t (error "Not at an item or heading, and no active region"))))
- ;; Determine the checkbox going to be applied to all items
- ;; within bounds.
- (ref-checkbox
- (progn
- (goto-char lim-up)
- (let ((cbox (and (org-at-item-checkbox-p) (match-string 1))))
- (cond
- ((equal toggle-presence '(16)) "[-]")
- ((equal toggle-presence '(4))
- (unless cbox "[ ]"))
- ((equal "[X]" cbox) "[ ]")
- (t "[X]"))))))
- ;; When an item is found within bounds, grab the full list at
- ;; point structure, then: (1) set check-box of all its items
- ;; within bounds to REF-CHECKBOX, (2) fix check-boxes of the
- ;; whole list, (3) move point after the list.
- (goto-char lim-up)
- (while (and (< (point) lim-down)
- (org-list-search-forward (org-item-beginning-re)
- lim-down 'move))
- (let* ((struct (org-list-struct))
- (struct-copy (copy-tree struct))
- (parents (org-list-parents-alist struct))
- (prevs (org-list-prevs-alist struct))
- (bottom (copy-marker (org-list-get-bottom-point struct)))
- (items-to-toggle (cl-remove-if
- (lambda (e) (or (< e lim-up) (> e lim-down)))
- (mapcar #'car struct))))
- (mapc (lambda (e) (org-list-set-checkbox
- e struct
- ;; If there is no box at item, leave as-is
- ;; unless function was called with C-u prefix.
- (let ((cur-box (org-list-get-checkbox e struct)))
- (if (or cur-box (equal toggle-presence '(4)))
- ref-checkbox
- cur-box))))
- items-to-toggle)
- (setq block-item (org-list-struct-fix-box
- struct parents prevs orderedp))
- ;; Report some problems due to ORDERED status of subtree.
- ;; If only one box was being checked, throw an error, else,
- ;; only signal problems.
- (cond
- ((and singlep block-item (> lim-up block-item))
- (error
- "Checkbox blocked because of unchecked box at line %d"
- (org-current-line block-item)))
- (block-item
- (message
- "Checkboxes were removed due to unchecked box at line %d"
- (org-current-line block-item))))
- (goto-char bottom)
- (move-marker bottom nil)
- (org-list-struct-apply-struct struct struct-copy)))
- (move-marker lim-down nil)))
- (org-update-checkbox-count-maybe))
-
-(defun org-reset-checkbox-state-subtree ()
- "Reset all checkboxes in an entry subtree."
- (interactive "*")
- (if (org-before-first-heading-p)
- (error "Not inside a tree")
- (save-restriction
- (save-excursion
- (org-narrow-to-subtree)
- (org-show-subtree)
- (goto-char (point-min))
- (let ((end (point-max)))
- (while (< (point) end)
- (when (org-at-item-checkbox-p)
- (replace-match "[ ]" t t nil 1))
- (beginning-of-line 2)))
- (org-update-checkbox-count-maybe 'all)))))
-
-(defun org-update-checkbox-count (&optional all)
- "Update the checkbox statistics in the current section.
-
-This will find all statistic cookies like [57%] and [6/12] and
-update them with the current numbers.
-
-With optional prefix argument ALL, do this for the whole buffer."
- (interactive "P")
- (org-with-wide-buffer
- (let* ((cookie-re "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)")
- (box-re "^[ \t]*\\([-+*]\\|\\([0-9]+\\|[A-Za-z]\\)[.)]\\)[ \t]+\
-\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ \t]*\\)?\\(\\[[- X]\\]\\)")
- (recursivep
- (or (not org-checkbox-hierarchical-statistics)
- (string-match "\\<recursive\\>"
- (or (org-entry-get nil "COOKIE_DATA") ""))))
- (within-inlinetask (and (not all)
- (featurep 'org-inlinetask)
- (org-inlinetask-in-task-p)))
- (end (cond (all (point-max))
- (within-inlinetask
- (save-excursion (outline-next-heading) (point)))
- (t (save-excursion
- (org-with-limited-levels (outline-next-heading))
- (point)))))
- (count-boxes
- (lambda (item structs recursivep)
- ;; Return number of checked boxes and boxes of all types
- ;; in all structures in STRUCTS. If RECURSIVEP is
- ;; non-nil, also count boxes in sub-lists. If ITEM is
- ;; nil, count across the whole structure, else count only
- ;; across subtree whose ancestor is ITEM.
- (let ((c-on 0) (c-all 0))
- (dolist (s structs (list c-on c-all))
- (let* ((pre (org-list-prevs-alist s))
- (par (org-list-parents-alist s))
- (items
- (cond
- ((and recursivep item) (org-list-get-subtree item s))
- (recursivep (mapcar #'car s))
- (item (org-list-get-children item s par))
- (t (org-list-get-all-items
- (org-list-get-top-point s) s pre))))
- (cookies (delq nil (mapcar
- (lambda (e)
- (org-list-get-checkbox e s))
- items))))
- (cl-incf c-all (length cookies))
- (cl-incf c-on (cl-count "[X]" cookies :test #'equal)))))))
- cookies-list cache)
- ;; Move to start.
- (cond (all (goto-char (point-min)))
- (within-inlinetask (org-back-to-heading t))
- (t (org-with-limited-levels (outline-previous-heading))))
- ;; Build an alist for each cookie found. The key is the position
- ;; at beginning of cookie and values ending position, format of
- ;; cookie, number of checked boxes to report and total number of
- ;; boxes.
- (while (re-search-forward cookie-re end t)
- (let ((context (save-excursion (backward-char)
- (save-match-data (org-element-context)))))
- (when (eq (org-element-type context) 'statistics-cookie)
- (push
- (append
- (list (match-beginning 1) (match-end 1) (match-end 2))
- (let* ((container
- (org-element-lineage
- context
- '(drawer center-block dynamic-block inlinetask item
- quote-block special-block verse-block)))
- (beg (if container
- (org-element-property :contents-begin container)
- (save-excursion
- (org-with-limited-levels
- (outline-previous-heading))
- (point)))))
- (or (cdr (assq beg cache))
- (save-excursion
- (goto-char beg)
- (let ((end
- (if container
- (org-element-property :contents-end container)
- (save-excursion
- (org-with-limited-levels (outline-next-heading))
- (point))))
- structs)
- (while (re-search-forward box-re end t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'item)
- (push (org-element-property :structure element)
- structs)
- ;; Skip whole list since we have its
- ;; structure anyway.
- (while (setq element (org-element-lineage
- element '(plain-list)))
- (goto-char
- (min (org-element-property :end element)
- end))))))
- ;; Cache count for cookies applying to the same
- ;; area. Then return it.
- (let ((count
- (funcall count-boxes
- (and (eq (org-element-type container)
- 'item)
- (org-element-property
- :begin container))
- structs
- recursivep)))
- (push (cons beg count) cache)
- count))))))
- cookies-list))))
- ;; Apply alist to buffer.
- (dolist (cookie cookies-list)
- (let* ((beg (car cookie))
- (end (nth 1 cookie))
- (percent (nth 2 cookie))
- (checked (nth 3 cookie))
- (total (nth 4 cookie)))
- (goto-char beg)
- (insert
- (if percent (format "[%d%%]" (floor (* 100.0 checked)
- (max 1 total)))
- (format "[%d/%d]" checked total)))
- (delete-region (point) (+ (point) (- end beg)))
- (when org-auto-align-tags (org-fix-tags-on-the-fly)))))))
-
-(defun org-get-checkbox-statistics-face ()
- "Select the face for checkbox statistics.
-The face will be `org-done' when all relevant boxes are checked.
-Otherwise it will be `org-todo'."
- (if (match-end 1)
- (if (equal (match-string 1) "100%")
- 'org-checkbox-statistics-done
- 'org-checkbox-statistics-todo)
- (if (and (> (match-end 2) (match-beginning 2))
- (equal (match-string 2) (match-string 3)))
- 'org-checkbox-statistics-done
- 'org-checkbox-statistics-todo)))
-
-(defun org-update-checkbox-count-maybe (&optional all)
- "Update checkbox statistics unless turned off by user.
-With an optional argument ALL, update them in the whole buffer."
- (when (cdr (assq 'checkbox org-list-automatic-rules))
- (org-update-checkbox-count all))
- (run-hooks 'org-checkbox-statistics-hook))
-
-(defvar org-last-indent-begin-marker (make-marker))
-(defvar org-last-indent-end-marker (make-marker))
-(defun org-list-indent-item-generic (arg no-subtree struct)
- "Indent a local list item including its children.
-When number ARG is a negative, item will be outdented, otherwise
-it will be indented.
-
-If a region is active, all items inside will be moved.
-
-If NO-SUBTREE is non-nil, only indent the item itself, not its
-children.
-
-STRUCT is the list structure.
-
-Return t if successful."
- (save-excursion
- (let* ((regionp (org-region-active-p))
- (rbeg (and regionp (region-beginning)))
- (rend (and regionp (region-end)))
- (top (org-list-get-top-point struct))
- (parents (org-list-parents-alist struct))
- (prevs (org-list-prevs-alist struct))
- ;; Are we going to move the whole list?
- (specialp
- (and (not regionp)
- (= top (point-at-bol))
- (cdr (assq 'indent org-list-automatic-rules))
- (if no-subtree
- (user-error
- "At first item: use S-M-<left/right> to move the whole list")
- t))))
- ;; Determine begin and end points of zone to indent. If moving
- ;; more than one item, save them for subsequent moves.
- (unless (and (memq last-command '(org-shiftmetaright org-shiftmetaleft))
- (memq this-command '(org-shiftmetaright org-shiftmetaleft)))
- (if regionp
- (progn
- (set-marker org-last-indent-begin-marker rbeg)
- (set-marker org-last-indent-end-marker rend))
- (set-marker org-last-indent-begin-marker (point-at-bol))
- (set-marker org-last-indent-end-marker
- (cond
- (specialp (org-list-get-bottom-point struct))
- (no-subtree (1+ (point-at-bol)))
- (t (org-list-get-item-end (point-at-bol) struct))))))
- (let* ((beg (marker-position org-last-indent-begin-marker))
- (end (marker-position org-last-indent-end-marker)))
- (cond
- ;; Special case: moving top-item with indent rule.
- (specialp
- (let* ((level-skip (org-level-increment))
- (offset (if (< arg 0) (- level-skip) level-skip))
- (top-ind (org-list-get-ind beg struct))
- (old-struct (copy-tree struct)))
- (if (< (+ top-ind offset) 0)
- (error "Cannot outdent beyond margin")
- ;; Change bullet if necessary.
- (when (and (= (+ top-ind offset) 0)
- (string-match "*"
- (org-list-get-bullet beg struct)))
- (org-list-set-bullet beg struct
- (org-list-bullet-string "-")))
- ;; Shift every item by OFFSET and fix bullets. Then
- ;; apply changes to buffer.
- (mapc (lambda (e)
- (let ((ind (org-list-get-ind (car e) struct)))
- (org-list-set-ind (car e) struct (+ ind offset))))
- struct)
- (org-list-struct-fix-bul struct prevs)
- (org-list-struct-apply-struct struct old-struct))))
- ;; Forbidden move:
- ((and (< arg 0)
- ;; If only one item is moved, it mustn't have a child.
- (or (and no-subtree
- (not regionp)
- (org-list-has-child-p beg struct))
- ;; If a subtree or region is moved, the last item
- ;; of the subtree mustn't have a child.
- (let ((last-item (caar
- (reverse
- (cl-remove-if
- (lambda (e) (>= (car e) end))
- struct)))))
- (org-list-has-child-p last-item struct))))
- (error "Cannot outdent an item without its children"))
- ;; Normal shifting
- (t
- (let* ((new-parents
- (if (< arg 0)
- (org-list-struct-outdent beg end struct parents)
- (org-list-struct-indent beg end struct parents prevs))))
- (org-list-write-struct struct new-parents))
- (org-update-checkbox-count-maybe))))))
- t)
-
-(defun org-outdent-item ()
- "Outdent a local list item, but not its children.
-If a region is active, all items inside will be moved."
- (interactive)
- (let ((regionp (org-region-active-p)))
- (cond
- ((or (org-at-item-p)
- (and regionp
- (save-excursion (goto-char (region-beginning))
- (org-at-item-p))))
- (let ((struct (if (not regionp) (org-list-struct)
- (save-excursion (goto-char (region-beginning))
- (org-list-struct)))))
- (org-list-indent-item-generic -1 t struct)))
- (regionp (error "Region not starting at an item"))
- (t (error "Not at an item")))))
-
-(defun org-indent-item ()
- "Indent a local list item, but not its children.
-If a region is active, all items inside will be moved."
- (interactive)
- (let ((regionp (org-region-active-p)))
- (cond
- ((or (org-at-item-p)
- (and regionp
- (save-excursion (goto-char (region-beginning))
- (org-at-item-p))))
- (let ((struct (if (not regionp) (org-list-struct)
- (save-excursion (goto-char (region-beginning))
- (org-list-struct)))))
- (org-list-indent-item-generic 1 t struct)))
- (regionp (error "Region not starting at an item"))
- (t (error "Not at an item")))))
-
-(defun org-outdent-item-tree ()
- "Outdent a local list item including its children.
-If a region is active, all items inside will be moved."
- (interactive)
- (let ((regionp (org-region-active-p)))
- (cond
- ((or (org-at-item-p)
- (and regionp
- (save-excursion (goto-char (region-beginning))
- (org-at-item-p))))
- (let ((struct (if (not regionp) (org-list-struct)
- (save-excursion (goto-char (region-beginning))
- (org-list-struct)))))
- (org-list-indent-item-generic -1 nil struct)))
- (regionp (error "Region not starting at an item"))
- (t (error "Not at an item")))))
-
-(defun org-indent-item-tree ()
- "Indent a local list item including its children.
-If a region is active, all items inside will be moved."
- (interactive)
- (let ((regionp (org-region-active-p)))
- (cond
- ((or (org-at-item-p)
- (and regionp
- (save-excursion (goto-char (region-beginning))
- (org-at-item-p))))
- (let ((struct (if (not regionp) (org-list-struct)
- (save-excursion (goto-char (region-beginning))
- (org-list-struct)))))
- (org-list-indent-item-generic 1 nil struct)))
- (regionp (error "Region not starting at an item"))
- (t (error "Not at an item")))))
-
-(defvar org-tab-ind-state)
-(defvar org-adapt-indentation)
-(defun org-cycle-item-indentation ()
- "Cycle levels of indentation of an empty item.
-The first run indents the item, if applicable. Subsequent runs
-outdent it at meaningful levels in the list. When done, item is
-put back at its original position with its original bullet.
-
-Return t at each successful move."
- (when (org-at-item-p)
- (let* ((org-adapt-indentation nil)
- (struct (org-list-struct))
- (ind (org-list-get-ind (point-at-bol) struct))
- (bullet (org-trim (buffer-substring (point-at-bol) (point-at-eol)))))
- ;; Accept empty items or if cycle has already started.
- (when (or (eq last-command 'org-cycle-item-indentation)
- (and (save-excursion
- (beginning-of-line)
- (looking-at org-list-full-item-re))
- (>= (match-end 0) (save-excursion
- (goto-char (org-list-get-item-end
- (point-at-bol) struct))
- (skip-chars-backward " \r\t\n")
- (point)))))
- (setq this-command 'org-cycle-item-indentation)
- ;; When in the middle of the cycle, try to outdent first. If
- ;; it fails, and point is still at initial position, indent.
- ;; Else, re-create it at its original position.
- (if (eq last-command 'org-cycle-item-indentation)
- (cond
- ((ignore-errors (org-list-indent-item-generic -1 t struct)))
- ((and (= ind (car org-tab-ind-state))
- (ignore-errors (org-list-indent-item-generic 1 t struct))))
- (t (delete-region (point-at-bol) (point-at-eol))
- (indent-to-column (car org-tab-ind-state))
- (insert (cdr org-tab-ind-state) " ")
- ;; Break cycle
- (setq this-command 'identity)))
- ;; If a cycle is starting, remember indentation and bullet,
- ;; then try to indent. If it fails, try to outdent.
- (setq org-tab-ind-state (cons ind bullet))
- (cond
- ((ignore-errors (org-list-indent-item-generic 1 t struct)))
- ((ignore-errors (org-list-indent-item-generic -1 t struct)))
- (t (user-error "Cannot move item"))))
- t))))
-
-(defun org-sort-list
- (&optional with-case sorting-type getkey-func compare-func interactive?)
- "Sort list items.
-The cursor may be at any item of the list that should be sorted.
-Sublists are not sorted. Checkboxes, if any, are ignored.
-
-Sorting can be alphabetically, numerically, by date/time as given
-by a time stamp, by a property or by priority.
-
-Comparing entries ignores case by default. However, with an
-optional argument WITH-CASE, the sorting considers case as well.
-
-The command prompts for the sorting type unless it has been given
-to the function through the SORTING-TYPE argument, which needs to
-be a character, \(?n ?N ?a ?A ?t ?T ?f ?F ?x ?X). Here is the
-detailed meaning of each character:
-
-n Numerically, by converting the beginning of the item to a number.
-a Alphabetically. Only the first line of item is checked.
-t By date/time, either the first active time stamp in the entry, if
- any, or by the first inactive one. In a timer list, sort the timers.
-x By \"checked\" status of a check list.
-
-Capital letters will reverse the sort order.
-
-If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies
-a function to be called with point at the beginning of the
-record. It must return a value that is compatible with COMPARE-FUNC,
-the function used to compare entries.
-
-Sorting is done against the visible part of the headlines, it
-ignores hidden links.
-
-A non-nil value for INTERACTIVE? is used to signal that this
-function is being called interactively."
- (interactive (list current-prefix-arg nil nil nil t))
- (let* ((case-func (if with-case 'identity 'downcase))
- (struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (start (org-list-get-list-begin (point-at-bol) struct prevs))
- (end (org-list-get-list-end (point-at-bol) struct prevs))
- (sorting-type
- (or sorting-type
- (progn
- (message
- "Sort plain list: [a]lpha [n]umeric [t]ime [f]unc [x]checked A/N/T/F/X means reversed:")
- (read-char-exclusive))))
- (dcst (downcase sorting-type))
- (getkey-func
- (and (= dcst ?f)
- (or getkey-func
- (and interactive?
- (org-read-function "Function for extracting keys: "))
- (error "Missing key extractor"))))
- (sort-func
- (cond
- ((= dcst ?a) #'string<)
- ((= dcst ?f)
- (or compare-func
- (and interactive?
- (org-read-function
- (concat "Function for comparing keys "
- "(empty for default `sort-subr' predicate): ")
- 'allow-empty))))
- ((= dcst ?t) #'<)
- ((= dcst ?x) #'string<))))
- (message "Sorting items...")
- (save-restriction
- (narrow-to-region start end)
- (goto-char (point-min))
- (let* ((case-fold-search nil)
- (now (current-time))
- (next-record (lambda ()
- (skip-chars-forward " \r\t\n")
- (or (eobp) (beginning-of-line))))
- (end-record (lambda ()
- (goto-char (org-list-get-item-end-before-blank
- (point) struct))))
- (value-to-sort
- (lambda ()
- (when (looking-at "[ \t]*[-+*0-9.)]+\\([ \t]+\\[[- X]\\]\\)?[ \t]+")
- (cond
- ((= dcst ?n)
- (string-to-number
- (org-sort-remove-invisible
- (buffer-substring (match-end 0) (point-at-eol)))))
- ((= dcst ?a)
- (funcall case-func
- (org-sort-remove-invisible
- (buffer-substring
- (match-end 0) (point-at-eol)))))
- ((= dcst ?t)
- (cond
- ;; If it is a timer list, convert timer to seconds
- ((org-at-item-timer-p)
- (org-timer-hms-to-secs (match-string 1)))
- ((or (save-excursion
- (re-search-forward org-ts-regexp (point-at-eol) t))
- (save-excursion (re-search-forward org-ts-regexp-both
- (point-at-eol) t)))
- (org-time-string-to-seconds (match-string 0)))
- (t (float-time now))))
- ((= dcst ?x) (or (and (stringp (match-string 1))
- (match-string 1))
- ""))
- ((= dcst ?f)
- (if getkey-func
- (let ((value (funcall getkey-func)))
- (if (stringp value)
- (funcall case-func value)
- value))
- (error "Invalid key function `%s'" getkey-func)))
- (t (error "Invalid sorting type `%c'" sorting-type)))))))
- (sort-subr (/= dcst sorting-type)
- next-record
- end-record
- value-to-sort
- nil
- sort-func)
- ;; Read and fix list again, as `sort-subr' probably destroyed
- ;; its structure.
- (org-list-repair)
- (run-hooks 'org-after-sorting-entries-or-items-hook)
- (message "Sorting items...done")))))
-
-(defun org-toggle-item (arg)
- "Convert headings or normal lines to items, items to normal lines.
-If there is no active region, only the current line is considered.
-
-If the first non blank line in the region is a headline, convert
-all headlines to items, shifting text accordingly.
-
-If it is an item, convert all items to normal lines.
-
-If it is normal text, change region into a list of items.
-With a prefix argument ARG, change the region in a single item."
- (interactive "P")
- (let ((shift-text
- (lambda (ind end)
- ;; Shift text in current section to IND, from point to END.
- ;; The function leaves point to END line.
- (let ((min-i 1000) (end (copy-marker end)))
- ;; First determine the minimum indentation (MIN-I) of
- ;; the text.
- (save-excursion
- (catch 'exit
- (while (< (point) end)
- (let ((i (org-get-indentation)))
- (cond
- ;; Skip blank lines and inline tasks.
- ((looking-at "^[ \t]*$"))
- ((looking-at org-outline-regexp-bol))
- ;; We can't find less than 0 indentation.
- ((zerop i) (throw 'exit (setq min-i 0)))
- ((< i min-i) (setq min-i i))))
- (forward-line))))
- ;; Then indent each line so that a line indented to
- ;; MIN-I becomes indented to IND. Ignore blank lines
- ;; and inline tasks in the process.
- (let ((delta (- ind min-i)))
- (while (< (point) end)
- (unless (or (looking-at "^[ \t]*$")
- (looking-at org-outline-regexp-bol))
- (indent-line-to (+ (org-get-indentation) delta)))
- (forward-line))))))
- (skip-blanks
- (lambda (pos)
- ;; Return beginning of first non-blank line, starting from
- ;; line at POS.
- (save-excursion
- (goto-char pos)
- (skip-chars-forward " \r\t\n")
- (point-at-bol))))
- beg end)
- ;; Determine boundaries of changes.
- (if (org-region-active-p)
- (setq beg (funcall skip-blanks (region-beginning))
- end (copy-marker (region-end)))
- (setq beg (funcall skip-blanks (point-at-bol))
- end (copy-marker (point-at-eol))))
- ;; Depending on the starting line, choose an action on the text
- ;; between BEG and END.
- (org-with-limited-levels
- (save-excursion
- (goto-char beg)
- (cond
- ;; Case 1. Start at an item: de-itemize. Note that it only
- ;; happens when a region is active: `org-ctrl-c-minus'
- ;; would call `org-cycle-list-bullet' otherwise.
- ((org-at-item-p)
- (while (< (point) end)
- (when (org-at-item-p)
- (skip-chars-forward " \t")
- (delete-region (point) (match-end 0)))
- (forward-line)))
- ;; Case 2. Start at an heading: convert to items.
- ((org-at-heading-p)
- (let* ((bul (org-list-bullet-string "-"))
- (bul-len (length bul))
- ;; Indentation of the first heading. It should be
- ;; relative to the indentation of its parent, if any.
- (start-ind (save-excursion
- (cond
- ((not org-adapt-indentation) 0)
- ((not (outline-previous-heading)) 0)
- (t (length (match-string 0))))))
- ;; Level of first heading. Further headings will be
- ;; compared to it to determine hierarchy in the list.
- (ref-level (org-reduced-level (org-outline-level))))
- (while (< (point) end)
- (let* ((level (org-reduced-level (org-outline-level)))
- (delta (max 0 (- level ref-level)))
- (todo-state (org-get-todo-state)))
- ;; If current headline is less indented than the first
- ;; one, set it as reference, in order to preserve
- ;; subtrees.
- (when (< level ref-level) (setq ref-level level))
- ;; Remove stars and TODO keyword.
- (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
- (delete-region (point) (or (match-beginning 3)
- (line-end-position)))
- (insert bul)
- (indent-line-to (+ start-ind (* delta bul-len)))
- ;; Turn TODO keyword into a check box.
- (when todo-state
- (let* ((struct (org-list-struct))
- (old (copy-tree struct)))
- (org-list-set-checkbox
- (line-beginning-position)
- struct
- (if (member todo-state org-done-keywords)
- "[X]"
- "[ ]"))
- (org-list-write-struct struct
- (org-list-parents-alist struct)
- old)))
- ;; Ensure all text down to END (or SECTION-END) belongs
- ;; to the newly created item.
- (let ((section-end (save-excursion
- (or (outline-next-heading) (point)))))
- (forward-line)
- (funcall shift-text
- (+ start-ind (* (1+ delta) bul-len))
- (min end section-end)))))))
- ;; Case 3. Normal line with ARG: make the first line of region
- ;; an item, and shift indentation of others lines to
- ;; set them as item's body.
- (arg (let* ((bul (org-list-bullet-string "-"))
- (bul-len (length bul))
- (ref-ind (org-get-indentation)))
- (skip-chars-forward " \t")
- (insert bul)
- (forward-line)
- (while (< (point) end)
- ;; Ensure that lines less indented than first one
- ;; still get included in item body.
- (funcall shift-text
- (+ ref-ind bul-len)
- (min end (save-excursion (or (outline-next-heading)
- (point)))))
- (forward-line))))
- ;; Case 4. Normal line without ARG: turn each non-item line
- ;; into an item.
- (t
- (while (< (point) end)
- (unless (or (org-at-heading-p) (org-at-item-p))
- (when (looking-at "\\([ \t]*\\)\\(\\S-\\)")
- (replace-match
- (concat "\\1" (org-list-bullet-string "-") "\\2"))))
- (forward-line))))))))
-
-
-;;; Send and receive lists
-
-(defun org-list-to-lisp (&optional delete)
- "Parse the list at point and maybe DELETE it.
-
-Return a list whose car is a symbol of list type, among
-`ordered', `unordered' and `descriptive'. Then, each item is
-a list of strings and other sub-lists.
-
-For example, the following list:
-
- 1. first item
- + sub-item one
- + [X] sub-item two
- more text in first item
- 2. [@3] last item
-
-is parsed as
-
- (ordered
- (\"first item\"
- (unordered
- (\"sub-item one\")
- (\"[X] sub-item two\"))
- \"more text in first item\")
- (\"[@3] last item\"))
-
-Point is left at list's end."
- (letrec ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (parents (org-list-parents-alist struct))
- (top (org-list-get-top-point struct))
- (bottom (org-list-get-bottom-point struct))
- (trim
- (lambda (text)
- ;; Remove indentation and final newline from TEXT.
- (org-remove-indentation
- (if (string-match-p "\n\\'" text)
- (substring text 0 -1)
- text))))
- (parse-sublist
- (lambda (e)
- ;; Return a list whose car is list type and cdr a list
- ;; of items' body.
- (cons (org-list-get-list-type (car e) struct prevs)
- (mapcar parse-item e))))
- (parse-item
- (lambda (e)
- ;; Return a list containing counter of item, if any,
- ;; text and any sublist inside it.
- (let* ((end (org-list-get-item-end e struct))
- (children (org-list-get-children e struct parents))
- (body
- (save-excursion
- (goto-char e)
- (looking-at "[ \t]*\\S-+[ \t]*")
- (list
- (funcall
- trim
- (concat
- (make-string (string-width (match-string 0)) ?\s)
- (buffer-substring-no-properties
- (match-end 0) (or (car children) end))))))))
- (while children
- (let* ((child (car children))
- (sub (org-list-get-all-items child struct prevs))
- (last-in-sub (car (last sub))))
- (push (funcall parse-sublist sub) body)
- ;; Remove whole sub-list from children.
- (setq children (cdr (memq last-in-sub children)))
- ;; There is a chunk of text belonging to the item
- ;; if last child doesn't end where next child
- ;; starts or where item ends.
- (let ((sub-end (org-list-get-item-end last-in-sub struct))
- (next (or (car children) end)))
- (when (/= sub-end next)
- (push (funcall
- trim
- (buffer-substring-no-properties sub-end next))
- body)))))
- (nreverse body)))))
- ;; Store output, take care of cursor position and deletion of
- ;; list, then return output.
- (prog1 (funcall parse-sublist (org-list-get-all-items top struct prevs))
- (goto-char top)
- (when delete
- (delete-region top bottom)
- (when (and (not (looking-at "[ \t]*$")) (looking-at org-list-end-re))
- (replace-match ""))))))
-
-(defun org-list-make-subtree ()
- "Convert the plain list at point into a subtree."
- (interactive)
- (if (not (ignore-errors (goto-char (org-in-item-p))))
- (error "Not in a list")
- (let ((list (save-excursion (org-list-to-lisp t))))
- (insert (org-list-to-subtree list)))))
-
-(defun org-list-insert-radio-list ()
- "Insert a radio list template appropriate for this major mode."
- (interactive)
- (let* ((e (cl-assoc-if #'derived-mode-p org-list-radio-list-templates))
- (txt (nth 1 e))
- name pos)
- (unless e (error "No radio list setup defined for %s" major-mode))
- (setq name (read-string "List name: "))
- (while (string-match "%n" txt)
- (setq txt (replace-match name t t txt)))
- (or (bolp) (insert "\n"))
- (setq pos (point))
- (insert txt)
- (goto-char pos)))
-
-(defun org-list-send-list (&optional maybe)
- "Send a transformed version of this list to the receiver position.
-With argument MAYBE, fail quietly if no transformation is defined
-for this list."
- (interactive)
- (catch 'exit
- (unless (org-at-item-p) (error "Not at a list item"))
- (save-excursion
- (let ((case-fold-search t))
- (re-search-backward "^[ \t]*#\\+ORGLST:" nil t)
- (unless (looking-at
- "[ \t]*#\\+ORGLST:[ \t]+SEND[ \t]+\\(\\S-+\\)[ \t]+\\([^ \t\n]+\\)")
- (if maybe (throw 'exit nil)
- (error "Don't know how to transform this list")))))
- (let* ((name (regexp-quote (match-string 1)))
- (transform (intern (match-string 2)))
- (bottom-point
- (save-excursion
- (re-search-forward
- "\\(\\\\end{comment}\\|@end ignore\\|-->\\)" nil t)
- (match-beginning 0)))
- (top-point
- (progn
- (re-search-backward "#\\+ORGLST" nil t)
- (re-search-forward (org-item-beginning-re) bottom-point t)
- (match-beginning 0)))
- (plain-list (save-excursion
- (goto-char top-point)
- (org-list-to-lisp))))
- (unless (fboundp transform)
- (error "No such transformation function %s" transform))
- (let ((txt (funcall transform plain-list)))
- ;; Find the insertion(s) place(s).
- (save-excursion
- (goto-char (point-min))
- (let ((receiver-count 0)
- (begin-re (format "BEGIN +RECEIVE +ORGLST +%s\\([ \t]\\|$\\)"
- name))
- (end-re (format "END +RECEIVE +ORGLST +%s\\([ \t]\\|$\\)"
- name)))
- (while (re-search-forward begin-re nil t)
- (cl-incf receiver-count)
- (let ((beg (line-beginning-position 2)))
- (unless (re-search-forward end-re nil t)
- (user-error "Cannot find end of receiver location at %d" beg))
- (beginning-of-line)
- (delete-region beg (point))
- (insert txt "\n")))
- (cond
- ((> receiver-count 1)
- (message "List converted and installed at receiver locations"))
- ((= receiver-count 1)
- (message "List converted and installed at receiver location"))
- (t (user-error "No valid receiver location found")))))))))
-
-(defun org-list-to-generic (list params)
- "Convert a LIST parsed through `org-list-to-lisp' to a custom format.
-
-LIST is a list as returned by `org-list-to-lisp', which see.
-PARAMS is a property list of parameters used to tweak the output
-format.
-
-Valid parameters are:
-
-:backend, :raw
-
- Export back-end used as a basis to transcode elements of the
- list, when no specific parameter applies to it. It is also
- used to translate its contents. You can prevent this by
- setting :raw property to a non-nil value.
-
-:splice
-
- When non-nil, only export the contents of the top most plain
- list, effectively ignoring its opening and closing lines.
-
-:ustart, :uend
-
- Strings to start and end an unordered list. They can also be
- set to a function returning a string or nil, which will be
- called with the depth of the list, counting from 1.
-
-:ostart, :oend
-
- Strings to start and end an ordered list. They can also be set
- to a function returning a string or nil, which will be called
- with the depth of the list, counting from 1.
-
-:dstart, :dend
-
- Strings to start and end a descriptive list. They can also be
- set to a function returning a string or nil, which will be
- called with the depth of the list, counting from 1.
-
-:dtstart, :dtend, :ddstart, :ddend
-
- Strings to start and end a descriptive term.
-
-:istart, :iend
-
- Strings to start or end a list item, and to start a list item
- with a counter. They can also be set to a function returning
- a string or nil, which will be called with two arguments: the
- type of list and the depth of the item, counting from 1.
-
-:icount
-
- Strings to start a list item with a counter. It can also be
- set to a function returning a string or nil, which will be
- called with three arguments: the type of list, the depth of the
- item, counting from 1, and the counter. Its value, when
- non-nil, has precedence over `:istart'.
-
-:isep
-
- String used to separate items. It can also be set to
- a function returning a string or nil, which will be called with
- two arguments: the type of list and the depth of the item,
- counting from 1. It always start on a new line.
-
-:ifmt
-
- Function to be applied to the contents of every item. It is
- called with two arguments: the type of list and the contents.
-
-:cbon, :cboff, :cbtrans
-
- String to insert, respectively, an un-checked check-box,
- a checked check-box and a check-box in transitional state."
- (require 'ox)
- (let* ((backend (plist-get params :backend))
- (custom-backend
- (org-export-create-backend
- :parent (or backend 'org)
- :transcoders
- `((plain-list . ,(org-list--to-generic-plain-list params))
- (item . ,(org-list--to-generic-item params))
- (macro . (lambda (m c i) (org-element-macro-interpreter m nil))))))
- data info)
- ;; Write LIST back into Org syntax and parse it.
- (with-temp-buffer
- (let ((org-inhibit-startup t)) (org-mode))
- (letrec ((insert-list
- (lambda (l)
- (dolist (i (cdr l))
- (funcall insert-item i (car l)))))
- (insert-item
- (lambda (i type)
- (let ((start (point)))
- (insert (if (eq type 'ordered) "1. " "- "))
- (dolist (e i)
- (if (consp e) (funcall insert-list e)
- (insert e)
- (insert "\n")))
- (beginning-of-line)
- (save-excursion
- (let ((ind (if (eq type 'ordered) 3 2)))
- (while (> (point) start)
- (unless (looking-at-p "[ \t]*$")
- (indent-to ind))
- (forward-line -1))))))))
- (funcall insert-list list))
- (setf data
- (org-element-map (org-element-parse-buffer) 'plain-list
- #'identity nil t))
- (setf info (org-export-get-environment backend nil params)))
- (when (and backend (symbolp backend) (not (org-export-get-backend backend)))
- (user-error "Unknown :backend value"))
- (unless backend (require 'ox-org))
- ;; When`:raw' property has a non-nil value, turn all objects back
- ;; into Org syntax.
- (when (and backend (plist-get params :raw))
- (org-element-map data org-element-all-objects
- (lambda (object)
- (org-element-set-element
- object (org-element-interpret-data object)))))
- ;; We use a low-level mechanism to export DATA so as to skip all
- ;; usual pre-processing and post-processing, i.e., hooks, filters,
- ;; Babel code evaluation, include keywords and macro expansion,
- ;; and filters.
- (let ((output (org-export-data-with-backend data custom-backend info)))
- ;; Remove final newline.
- (if (org-string-nw-p output) (substring-no-properties output 0 -1) ""))))
-
-(defun org-list--depth (element)
- "Return the level of ELEMENT within current plain list.
-ELEMENT is either an item or a plain list."
- (cl-count-if (lambda (ancestor) (eq (org-element-type ancestor) 'plain-list))
- (org-element-lineage element nil t)))
-
-(defun org-list--trailing-newlines (string)
- "Return the number of trailing newlines in STRING."
- (with-temp-buffer
- (insert string)
- (skip-chars-backward " \t\n")
- (count-lines (line-beginning-position 2) (point-max))))
-
-(defun org-list--generic-eval (value &rest args)
- "Evaluate VALUE according to its type.
-VALUE is either nil, a string or a function. In the latter case,
-it is called with arguments ARGS."
- (cond ((null value) nil)
- ((stringp value) value)
- ((functionp value) (apply value args))
- (t (error "Wrong value: %s" value))))
-
-(defun org-list--to-generic-plain-list (params)
- "Return a transcoder for `plain-list' elements.
-PARAMS is a plist used to tweak the behavior of the transcoder."
- (let ((ustart (plist-get params :ustart))
- (uend (plist-get params :uend))
- (ostart (plist-get params :ostart))
- (oend (plist-get params :oend))
- (dstart (plist-get params :dstart))
- (dend (plist-get params :dend))
- (splice (plist-get params :splice))
- (backend (plist-get params :backend)))
- (lambda (plain-list contents info)
- (let* ((type (org-element-property :type plain-list))
- (depth (org-list--depth plain-list))
- (start (and (not splice)
- (org-list--generic-eval
- (pcase type
- (`ordered ostart)
- (`unordered ustart)
- (_ dstart))
- depth)))
- (end (and (not splice)
- (org-list--generic-eval
- (pcase type
- (`ordered oend)
- (`unordered uend)
- (_ dend))
- depth))))
- ;; Make sure trailing newlines in END appear in the output by
- ;; setting `:post-blank' property to their number.
- (when end
- (org-element-put-property
- plain-list :post-blank (org-list--trailing-newlines end)))
- ;; Build output.
- (concat (and start (concat start "\n"))
- (if (or start end splice (not backend))
- contents
- (org-export-with-backend backend plain-list contents info))
- end)))))
-
-(defun org-list--to-generic-item (params)
- "Return a transcoder for `item' elements.
-PARAMS is a plist used to tweak the behavior of the transcoder."
- (let ((backend (plist-get params :backend))
- (istart (plist-get params :istart))
- (iend (plist-get params :iend))
- (isep (plist-get params :isep))
- (icount (plist-get params :icount))
- (ifmt (plist-get params :ifmt))
- (cboff (plist-get params :cboff))
- (cbon (plist-get params :cbon))
- (cbtrans (plist-get params :cbtrans))
- (dtstart (plist-get params :dtstart))
- (dtend (plist-get params :dtend))
- (ddstart (plist-get params :ddstart))
- (ddend (plist-get params :ddend)))
- (lambda (item contents info)
- (let* ((type
- (org-element-property :type (org-element-property :parent item)))
- (tag (org-element-property :tag item))
- (depth (org-list--depth item))
- (separator (and (org-export-get-next-element item info)
- (org-list--generic-eval isep type depth)))
- (closing (pcase (org-list--generic-eval iend type depth)
- ((or `nil "") "\n")
- ((and (guard separator) s)
- (if (equal (substring s -1) "\n") s (concat s "\n")))
- (s s))))
- ;; When a closing line or a separator is provided, make sure
- ;; its trailing newlines are taken into account when building
- ;; output. This is done by setting `:post-blank' property to
- ;; the number of such lines in the last line to be added.
- (let ((last-string (or separator closing)))
- (when last-string
- (org-element-put-property
- item
- :post-blank
- (max (1- (org-list--trailing-newlines last-string)) 0))))
- ;; Build output.
- (concat
- (let ((c (org-element-property :counter item)))
- (if (and c icount) (org-list--generic-eval icount type depth c)
- (org-list--generic-eval istart type depth)))
- (let ((body
- (if (or istart iend icount ifmt cbon cboff cbtrans (not backend)
- (and (eq type 'descriptive)
- (or dtstart dtend ddstart ddend)))
- (concat
- (pcase (org-element-property :checkbox item)
- (`on cbon)
- (`off cboff)
- (`trans cbtrans))
- (and tag
- (concat dtstart
- (if backend
- (org-export-data-with-backend
- tag backend info)
- (org-element-interpret-data tag))
- dtend))
- (and tag ddstart)
- (let ((contents
- (if (= (length contents) 0) ""
- (substring contents 0 -1))))
- (if ifmt (org-list--generic-eval ifmt type contents)
- contents))
- (and tag ddend))
- (org-export-with-backend backend item contents info))))
- ;; Remove final newline.
- (if (equal body "") ""
- (substring (org-element-normalize-string body) 0 -1)))
- closing
- separator)))))
-
-(defun org-list-to-latex (list &optional params)
- "Convert LIST into a LaTeX list.
-LIST is a parsed plain list, as returned by `org-list-to-lisp'.
-PARAMS is a property list with overruling parameters for
-`org-list-to-generic'. Return converted list as a string."
- (require 'ox-latex)
- (org-list-to-generic list (org-combine-plists '(:backend latex) params)))
-
-(defun org-list-to-html (list &optional params)
- "Convert LIST into a HTML list.
-LIST is a parsed plain list, as returned by `org-list-to-lisp'.
-PARAMS is a property list with overruling parameters for
-`org-list-to-generic'. Return converted list as a string."
- (require 'ox-html)
- (org-list-to-generic list (org-combine-plists '(:backend html) params)))
-
-(defun org-list-to-texinfo (list &optional params)
- "Convert LIST into a Texinfo list.
-LIST is a parsed plain list, as returned by `org-list-to-lisp'.
-PARAMS is a property list with overruling parameters for
-`org-list-to-generic'. Return converted list as a string."
- (require 'ox-texinfo)
- (org-list-to-generic list (org-combine-plists '(:backend texinfo) params)))
-
-(defun org-list-to-org (list &optional params)
- "Convert LIST into an Org plain list.
-LIST is as returned by `org-list-parse-list'. PARAMS is a property list
-with overruling parameters for `org-list-to-generic'."
- (let* ((make-item
- (lambda (type _depth &optional c)
- (concat (if (eq type 'ordered) "1. " "- ")
- (and c (format "[@%d] " c)))))
- (defaults
- (list :istart make-item
- :icount make-item
- :ifmt (lambda (_type contents)
- (replace-regexp-in-string "\n" "\n " contents))
- :dtend " :: "
- :cbon "[X] "
- :cboff "[ ] "
- :cbtrans "[-] ")))
- (org-list-to-generic list (org-combine-plists defaults params))))
-
-(defun org-list-to-subtree (list &optional params)
- "Convert LIST into an Org subtree.
-LIST is as returned by `org-list-to-lisp'. PARAMS is a property
-list with overruling parameters for `org-list-to-generic'."
- (let* ((blank (pcase (cdr (assq 'heading org-blank-before-new-entry))
- (`t t)
- (`auto (save-excursion
- (org-with-limited-levels (outline-previous-heading))
- (org-previous-line-empty-p)))))
- (level (org-reduced-level (or (org-current-level) 0)))
- (make-stars
- (lambda (_type depth &optional _count)
- ;; Return the string for the heading, depending on DEPTH
- ;; of current sub-list.
- (let ((oddeven-level (+ level depth)))
- (concat (make-string (if org-odd-levels-only
- (1- (* 2 oddeven-level))
- oddeven-level)
- ?*)
- " ")))))
- (org-list-to-generic
- list
- (org-combine-plists
- (list :splice t
- :istart make-stars
- :icount make-stars
- :dtstart " " :dtend " "
- :isep (if blank "\n\n" "\n")
- :cbon "DONE " :cboff "TODO " :cbtrans "TODO ")
- params))))
-
-(provide 'org-list)
-
-;;; org-list.el ends here
diff --git a/elpa/org-9.1.14/org-list.elc b/elpa/org-9.1.14/org-list.elc
deleted file mode 100644
index 71af988..0000000
--- a/elpa/org-9.1.14/org-list.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-loaddefs.el b/elpa/org-9.1.14/org-loaddefs.el
deleted file mode 100644
index ec6e5de..0000000
--- a/elpa/org-9.1.14/org-loaddefs.el
+++ /dev/null
@@ -1,3565 +0,0 @@
-;;; org-loaddefs.el --- autogenerated file, do not edit
-;;
-;;; Code:
-
-;;;### (autoloads nil "ob-core" "ob-core.el" "2360a439d4b3b494bbdc436ee6d6976d")
-;;; Generated autoloads from ob-core.el
-
-(autoload 'org-babel-execute-safely-maybe "ob-core" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'org-babel-execute-maybe "ob-core" "\
-
-
-\(fn)" t nil)
-
-(autoload 'org-babel-view-src-block-info "ob-core" "\
-Display information on the current source block.
-This includes header arguments, language and name, and is largely
-a window into the `org-babel-get-src-block-info' function.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-expand-src-block-maybe "ob-core" "\
-Conditionally expand a source block.
-Detect if this is context for an org-babel src-block and if so
-then run `org-babel-expand-src-block'.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-load-in-session-maybe "ob-core" "\
-Conditionally load a source block in a session.
-Detect if this is context for an org-babel src-block and if so
-then run `org-babel-load-in-session'.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-pop-to-session-maybe "ob-core" "\
-Conditionally pop to a session.
-Detect if this is context for an org-babel src-block and if so
-then run `org-babel-switch-to-session'.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-execute-src-block "ob-core" "\
-Execute the current source code block.
-Insert the results of execution into the buffer. Source code
-execution and the collection and formatting of results can be
-controlled through a variety of header arguments.
-
-With prefix argument ARG, force re-execution even if an existing
-result cached in the buffer would otherwise have been returned.
-
-Optionally supply a value for INFO in the form returned by
-`org-babel-get-src-block-info'.
-
-Optionally supply a value for PARAMS which will be merged with
-the header arguments specified at the front of the source code
-block.
-
-\(fn &optional ARG INFO PARAMS)" t nil)
-
-(autoload 'org-babel-expand-src-block "ob-core" "\
-Expand the current source code block.
-Expand according to the source code block's header
-arguments and pop open the results in a preview buffer.
-
-\(fn &optional ARG INFO PARAMS)" t nil)
-
-(autoload 'org-babel-check-src-block "ob-core" "\
-Check for misspelled header arguments in the current code block.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-insert-header-arg "ob-core" "\
-Insert a header argument selecting from lists of common args and values.
-
-\(fn &optional HEADER-ARG VALUE)" t nil)
-
-(autoload 'org-babel-load-in-session "ob-core" "\
-Load the body of the current source-code block.
-Evaluate the header arguments for the source block before
-entering the session. After loading the body this pops open the
-session.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-initiate-session "ob-core" "\
-Initiate session for current code block.
-If called with a prefix argument then resolve any variable
-references in the header arguments and assign these variables in
-the session. Copy the body of the code block to the kill ring.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-switch-to-session "ob-core" "\
-Switch to the session of the current code block.
-Uses `org-babel-initiate-session' to start the session. If called
-with a prefix argument then this is passed on to
-`org-babel-initiate-session'.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-switch-to-session-with-code "ob-core" "\
-Switch to code buffer and display session.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-do-in-edit-buffer "ob-core" "\
-Evaluate BODY in edit buffer if there is a code block at point.
-Return t if a code block was found at point, nil otherwise.
-
-\(fn &rest BODY)" nil t)
-
-(autoload 'org-babel-open-src-block-result "ob-core" "\
-If `point' is on a src block then open the results of the
-source code block, otherwise return nil. With optional prefix
-argument RE-RUN the source-code block is evaluated even if
-results already exist.
-
-\(fn &optional RE-RUN)" t nil)
-
-(autoload 'org-babel-map-src-blocks "ob-core" "\
-Evaluate BODY forms on each source-block in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer. During evaluation of BODY the following local variables
-are set relative to the currently matched code block.
-
-full-block ------- string holding the entirety of the code block
-beg-block -------- point at the beginning of the code block
-end-block -------- point at the end of the matched code block
-lang ------------- string holding the language of the code block
-beg-lang --------- point at the beginning of the lang
-end-lang --------- point at the end of the lang
-switches --------- string holding the switches
-beg-switches ----- point at the beginning of the switches
-end-switches ----- point at the end of the switches
-header-args ------ string holding the header-args
-beg-header-args -- point at the beginning of the header-args
-end-header-args -- point at the end of the header-args
-body ------------- string holding the body of the code block
-beg-body --------- point at the beginning of the body
-end-body --------- point at the end of the body
-
-\(fn FILE &rest BODY)" nil t)
-
-(function-put 'org-babel-map-src-blocks 'lisp-indent-function '1)
-
-(autoload 'org-babel-map-inline-src-blocks "ob-core" "\
-Evaluate BODY forms on each inline source block in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer.
-
-\(fn FILE &rest BODY)" nil t)
-
-(function-put 'org-babel-map-inline-src-blocks 'lisp-indent-function '1)
-
-(autoload 'org-babel-map-call-lines "ob-core" "\
-Evaluate BODY forms on each call line in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer.
-
-\(fn FILE &rest BODY)" nil t)
-
-(function-put 'org-babel-map-call-lines 'lisp-indent-function '1)
-
-(autoload 'org-babel-map-executables "ob-core" "\
-Evaluate BODY forms on each active Babel code in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer.
-
-\(fn FILE &rest BODY)" nil t)
-
-(function-put 'org-babel-map-executables 'lisp-indent-function '1)
-
-(autoload 'org-babel-execute-buffer "ob-core" "\
-Execute source code blocks in a buffer.
-Call `org-babel-execute-src-block' on every source block in
-the current buffer.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-execute-subtree "ob-core" "\
-Execute source code blocks in a subtree.
-Call `org-babel-execute-src-block' on every source block in
-the current subtree.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-sha1-hash "ob-core" "\
-Generate an sha1 hash based on the value of info.
-
-\(fn &optional INFO)" t nil)
-
-(autoload 'org-babel-hide-result-toggle-maybe "ob-core" "\
-Toggle visibility of result at point.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-goto-src-block-head "ob-core" "\
-Go to the beginning of the current code block.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-goto-named-src-block "ob-core" "\
-Go to a named source-code block.
-
-\(fn NAME)" t nil)
-
-(autoload 'org-babel-goto-named-result "ob-core" "\
-Go to a named result.
-
-\(fn NAME)" t nil)
-
-(autoload 'org-babel-next-src-block "ob-core" "\
-Jump to the next source block.
-With optional prefix argument ARG, jump forward ARG many source blocks.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-previous-src-block "ob-core" "\
-Jump to the previous source block.
-With optional prefix argument ARG, jump backward ARG many source blocks.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-mark-block "ob-core" "\
-Mark current src block.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ob-keys" "ob-keys.el" "22ff8882b2f215251464dafb29893479")
-;;; Generated autoloads from ob-keys.el
-
-(autoload 'org-babel-describe-bindings "ob-keys" "\
-Describe all keybindings behind `org-babel-key-prefix'.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ob-lob" "ob-lob.el" "c7b7a7fd9c121e0d73709dd5a4821194")
-;;; Generated autoloads from ob-lob.el
-
-(autoload 'org-babel-lob-execute-maybe "ob-lob" "\
-Execute a Library of Babel source block, if appropriate.
-Detect if this is context for a Library Of Babel source block and
-if so then run the appropriate source block from the Library.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-lob-get-info "ob-lob" "\
-Return internal representation for Library of Babel function call.
-
-Consider DATUM, when provided, or element at point otherwise.
-
-Return nil when not on an appropriate location. Otherwise return
-a list compatible with `org-babel-get-src-block-info', which
-see.
-
-\(fn &optional DATUM)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "ob-tangle" "ob-tangle.el" "6f42a8d7a0ef762480d9e747e6ab033a")
-;;; Generated autoloads from ob-tangle.el
-
-(autoload 'org-babel-tangle-file "ob-tangle" "\
-Extract the bodies of source code blocks in FILE.
-Source code blocks are extracted with `org-babel-tangle'.
-Optional argument TARGET-FILE can be used to specify a default
-export file for all source blocks. Optional argument LANG can be
-used to limit the exported source code blocks by language.
-Return a list whose CAR is the tangled file name.
-
-\(fn FILE &optional TARGET-FILE LANG)" t nil)
-
-(autoload 'org-babel-tangle "ob-tangle" "\
-Write code blocks to source-specific files.
-Extract the bodies of all source code blocks from the current
-file into their own source-specific files.
-With one universal prefix argument, only tangle the block at point.
-When two universal prefix arguments, only tangle blocks for the
-tangle file of the block at point.
-Optional argument TARGET-FILE can be used to specify a default
-export file for all source blocks. Optional argument LANG can be
-used to limit the exported source code blocks by language.
-
-\(fn &optional ARG TARGET-FILE LANG)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-agenda" "org-agenda.el" (23266 31379 196273
-;;;;;; 327000))
-;;; Generated autoloads from org-agenda.el
-
-(autoload 'org-toggle-sticky-agenda "org-agenda" "\
-Toggle `org-agenda-sticky'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-agenda "org-agenda" "\
-Dispatch agenda commands to collect entries to the agenda buffer.
-Prompts for a command to execute. Any prefix arg will be passed
-on to the selected command. The default selections are:
-
-a Call `org-agenda-list' to display the agenda for current day or week.
-t Call `org-todo-list' to display the global todo list.
-T Call `org-todo-list' to display the global todo list, select only
- entries with a specific TODO keyword (the user gets a prompt).
-m Call `org-tags-view' to display headlines with tags matching
- a condition (the user is prompted for the condition).
-M Like `m', but select only TODO entries, no ordinary headlines.
-e Export views to associated files.
-s Search entries for keywords.
-S Search entries for keywords, only with TODO keywords.
-/ Multi occur across all agenda files and also files listed
- in `org-agenda-text-search-extra-files'.
-< Restrict agenda commands to buffer, subtree, or region.
- Press several times to get the desired effect.
-> Remove a previous restriction.
-# List \"stuck\" projects.
-! Configure what \"stuck\" means.
-C Configure custom agenda commands.
-
-More commands can be added by configuring the variable
-`org-agenda-custom-commands'. In particular, specific tags and TODO keyword
-searches can be pre-defined in this way.
-
-If the current buffer is in Org mode and visiting a file, you can also
-first press `<' once to indicate that the agenda should be temporarily
-\(until the next use of `\\[org-agenda]') restricted to the current file.
-Pressing `<' twice means to restrict to the current subtree or region
-\(if active).
-
-\(fn &optional ARG ORG-KEYS RESTRICTION)" t nil)
-
-(autoload 'org-batch-agenda "org-agenda" "\
-Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command.
-
-\(fn CMD-KEY &rest PARAMETERS)" nil t)
-
-(autoload 'org-batch-agenda-csv "org-agenda" "\
-Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command.
-
-The output gives a line for each selected agenda item. Each
-item is a list of comma-separated values, like this:
-
-category,head,type,todo,tags,date,time,extra,priority-l,priority-n
-
-category The category of the item
-head The headline, without TODO kwd, TAGS and PRIORITY
-type The type of the agenda entry, can be
- todo selected in TODO match
- tagsmatch selected in tags match
- diary imported from diary
- deadline a deadline on given date
- scheduled scheduled on given date
- timestamp entry has timestamp on given date
- closed entry was closed on given date
- upcoming-deadline warning about deadline
- past-scheduled forwarded scheduled item
- block entry has date block including g. date
-todo The todo keyword, if any
-tags All tags including inherited ones, separated by colons
-date The relevant date, like 2007-2-14
-time The time, like 15:00-16:50
-extra Sting with extra planning info
-priority-l The priority letter if any was given
-priority-n The computed numerical priority
-agenda-day The day in the agenda where this is listed
-
-\(fn CMD-KEY &rest PARAMETERS)" nil t)
-
-(autoload 'org-store-agenda-views "org-agenda" "\
-Store agenda views.
-
-\(fn &rest PARAMETERS)" t nil)
-
-(autoload 'org-batch-store-agenda-views "org-agenda" "\
-Run all custom agenda commands that have a file argument.
-
-\(fn &rest PARAMETERS)" nil t)
-
-(autoload 'org-agenda-list "org-agenda" "\
-Produce a daily/weekly view from all files in variable `org-agenda-files'.
-The view will be for the current day or week, but from the overview buffer
-you will be able to go to other days/weeks.
-
-With a numeric prefix argument in an interactive call, the agenda will
-span ARG days. Lisp programs should instead specify SPAN to change
-the number of days. SPAN defaults to `org-agenda-span'.
-
-START-DAY defaults to TODAY, or to the most recent match for the weekday
-given in `org-agenda-start-on-weekday'.
-
-When WITH-HOUR is non-nil, only include scheduled and deadline
-items if they have an hour specification like [h]h:mm.
-
-\(fn &optional ARG START-DAY SPAN WITH-HOUR)" t nil)
-
-(autoload 'org-search-view "org-agenda" "\
-Show all entries that contain a phrase or words or regular expressions.
-
-With optional prefix argument TODO-ONLY, only consider entries that are
-TODO entries. The argument STRING can be used to pass a default search
-string into this function. If EDIT-AT is non-nil, it means that the
-user should get a chance to edit this string, with cursor at position
-EDIT-AT.
-
-The search string can be viewed either as a phrase that should be found as
-is, or it can be broken into a number of snippets, each of which must match
-in a Boolean way to select an entry. The default depends on the variable
-`org-agenda-search-view-always-boolean'.
-Even if this is turned off (the default) you can always switch to
-Boolean search dynamically by preceding the first word with \"+\" or \"-\".
-
-The default is a direct search of the whole phrase, where each space in
-the search string can expand to an arbitrary amount of whitespace,
-including newlines.
-
-If using a Boolean search, the search string is split on whitespace and
-each snippet is searched separately, with logical AND to select an entry.
-Words prefixed with a minus must *not* occur in the entry. Words without
-a prefix or prefixed with a plus must occur in the entry. Matching is
-case-insensitive. Words are enclosed by word delimiters (i.e. they must
-match whole words, not parts of a word) if
-`org-agenda-search-view-force-full-words' is set (default is nil).
-
-Boolean search snippets enclosed by curly braces are interpreted as
-regular expressions that must or (when preceded with \"-\") must not
-match in the entry. Snippets enclosed into double quotes will be taken
-as a whole, to include whitespace.
-
-- If the search string starts with an asterisk, search only in headlines.
-- If (possibly after the leading star) the search string starts with an
- exclamation mark, this also means to look at TODO entries only, an effect
- that can also be achieved with a prefix argument.
-- If (possibly after star and exclamation mark) the search string starts
- with a colon, this will mean that the (non-regexp) snippets of the
- Boolean search must match as full words.
-
-This command searches the agenda files, and in addition the files
-listed in `org-agenda-text-search-extra-files' unless a restriction lock
-is active.
-
-\(fn &optional TODO-ONLY STRING EDIT-AT)" t nil)
-
-(autoload 'org-todo-list "org-agenda" "\
-Show all (not done) TODO entries from all agenda file in a single list.
-The prefix arg can be used to select a specific TODO keyword and limit
-the list to these. When using `\\[universal-argument]', you will be prompted
-for a keyword. A numeric prefix directly selects the Nth keyword in
-`org-todo-keywords-1'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-tags-view "org-agenda" "\
-Show all headlines for all `org-agenda-files' matching a TAGS criterion.
-The prefix arg TODO-ONLY limits the search to TODO entries.
-
-\(fn &optional TODO-ONLY MATCH)" t nil)
-
-(autoload 'org-agenda-list-stuck-projects "org-agenda" "\
-Create agenda view for projects that are stuck.
-Stuck projects are project that have no next actions. For the definitions
-of what a project is and how to check if it stuck, customize the variable
-`org-stuck-projects'.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'org-diary "org-agenda" "\
-Return diary information from org files.
-This function can be used in a \"sexp\" diary entry in the Emacs calendar.
-It accesses org files and extracts information from those files to be
-listed in the diary. The function accepts arguments specifying what
-items should be listed. For a list of arguments allowed here, see the
-variable `org-agenda-entry-types'.
-
-The call in the diary file should look like this:
-
- &%%(org-diary) ~/path/to/some/orgfile.org
-
-Use a separate line for each org file to check. Or, if you omit the file name,
-all files listed in `org-agenda-files' will be checked automatically:
-
- &%%(org-diary)
-
-If you don't give any arguments (as in the example above), the default value
-of `org-agenda-entry-types' is used: (:deadline :scheduled :timestamp :sexp).
-So the example above may also be written as
-
- &%%(org-diary :deadline :timestamp :sexp :scheduled)
-
-The function expects the lisp variables `entry' and `date' to be provided
-by the caller, because this is how the calendar works. Don't use this
-function from a program - use `org-agenda-get-day-entries' instead.
-
-\(fn &rest ARGS)" nil nil)
-
-(autoload 'org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item "org-agenda" "\
-Do we have a reason to ignore this TODO entry because it has a time stamp?
-
-\(fn &optional END)" nil nil)
-
-(autoload 'org-agenda-set-restriction-lock "org-agenda" "\
-Set restriction lock for agenda, to current subtree or file.
-Restriction will be the file if TYPE is `file', or if type is the
-universal prefix \\='(4), or if the cursor is before the first headline
-in the file. Otherwise, restriction will be to the current subtree.
-
-\(fn &optional TYPE)" t nil)
-
-(autoload 'org-calendar-goto-agenda "org-agenda" "\
-Compute the Org agenda for the calendar date displayed at the cursor.
-This is a command that has to be installed in `calendar-mode-map'.
-
-\(fn)" t nil)
-
-(autoload 'org-agenda-to-appt "org-agenda" "\
-Activate appointments found in `org-agenda-files'.
-
-With a `\\[universal-argument]' prefix, refresh the list of appointments.
-
-If FILTER is t, interactively prompt the user for a regular
-expression, and filter out entries that don't match it.
-
-If FILTER is a string, use this string as a regular expression
-for filtering entries out.
-
-If FILTER is a function, filter out entries against which
-calling the function returns nil. This function takes one
-argument: an entry from `org-agenda-get-day-entries'.
-
-FILTER can also be an alist with the car of each cell being
-either `headline' or `category'. For example:
-
- \\='((headline \"IMPORTANT\")
- (category \"Work\"))
-
-will only add headlines containing IMPORTANT or headlines
-belonging to the \"Work\" category.
-
-ARGS are symbols indicating what kind of entries to consider.
-By default `org-agenda-to-appt' will use :deadline*, :scheduled*
-\(i.e., deadlines and scheduled items with a hh:mm specification)
-and :timestamp entries. See the docstring of `org-diary' for
-details and examples.
-
-If an entry has a APPT_WARNTIME property, its value will be used
-to override `appt-message-warning-time'.
-
-\(fn &optional REFRESH FILTER &rest ARGS)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-archive" "org-archive.el" "b46ec348f237e44615caaa99e48ff324")
-;;; Generated autoloads from org-archive.el
-
-(autoload 'org-add-archive-files "org-archive" "\
-Splice the archive files into the list of files.
-This implies visiting all these files and finding out what the
-archive file is.
-
-\(fn FILES)" nil nil)
-
-(autoload 'org-archive-subtree "org-archive" "\
-Move the current subtree to the archive.
-The archive can be a certain top-level heading in the current
-file, or in a different file. The tree will be moved to that
-location, the subtree heading be marked DONE, and the current
-time will be added.
-
-When called with a single prefix argument FIND-DONE, find whole
-trees without any open TODO items and archive them (after getting
-confirmation from the user). When called with a double prefix
-argument, find whole trees with timestamps before today and
-archive them (after getting confirmation from the user). If the
-cursor is not at a headline when these commands are called, try
-all level 1 trees. If the cursor is on a headline, only try the
-direct children of this heading.
-
-\(fn &optional FIND-DONE)" t nil)
-
-(autoload 'org-archive-to-archive-sibling "org-archive" "\
-Archive the current heading by moving it under the archive sibling.
-
-The archive sibling is a sibling of the heading with the heading name
-`org-archive-sibling-heading' and an `org-archive-tag' tag. If this
-sibling does not exist, it will be created at the end of the subtree.
-
-Archiving time is retained in the ARCHIVE_TIME node property.
-
-\(fn)" t nil)
-
-(autoload 'org-toggle-archive-tag "org-archive" "\
-Toggle the archive tag for the current headline.
-With prefix ARG, check all children of current headline and offer tagging
-the children that do not contain any open TODO items.
-
-\(fn &optional FIND-DONE)" t nil)
-
-(autoload 'org-archive-subtree-default "org-archive" "\
-Archive the current subtree with the default command.
-This command is set with the variable `org-archive-default-command'.
-
-\(fn)" t nil)
-
-(autoload 'org-archive-subtree-default-with-confirmation "org-archive" "\
-Archive the current subtree with the default command.
-This command is set with the variable `org-archive-default-command'.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-attach" "org-attach.el" "649a2308d04a53d6af3d987342905a97")
-;;; Generated autoloads from org-attach.el
-
-(autoload 'org-attach "org-attach" "\
-The dispatcher for attachment commands.
-Shows a list of commands and prompts for another key to execute a command.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-bbdb" "org-bbdb.el" "fa404717dfcbde54e13812132d9d4850")
-;;; Generated autoloads from org-bbdb.el
-
-(autoload 'org-bbdb-anniversaries "org-bbdb" "\
-Extract anniversaries from BBDB for display in the agenda.
-
-\(fn)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "org-capture" "org-capture.el" (23260 10064
-;;;;;; 718296 919000))
-;;; Generated autoloads from org-capture.el
-
-(autoload 'org-capture-string "org-capture" "\
-Capture STRING with the template selected by KEYS.
-
-\(fn STRING &optional KEYS)" t nil)
-
-(autoload 'org-capture "org-capture" "\
-Capture something.
-\\<org-capture-mode-map>
-This will let you select a template from `org-capture-templates', and
-then file the newly captured information. The text is immediately
-inserted at the target location, and an indirect buffer is shown where
-you can edit it. Pressing `\\[org-capture-finalize]' brings you back to the previous
-state of Emacs, so that you can continue your work.
-
-When called interactively with a `\\[universal-argument]' prefix argument GOTO, don't
-capture anything, just go to the file/headline where the selected
-template stores its notes.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix argument, go to the last note stored.
-
-When called with a `C-0' (zero) prefix, insert a template at point.
-
-When called with a `C-1' (one) prefix, force prompting for a date when
-a datetree entry is made.
-
-ELisp programs can set KEYS to a string associated with a template
-in `org-capture-templates'. In this case, interactive selection
-will be bypassed.
-
-If `org-capture-use-agenda-date' is non-nil, capturing from the
-agenda will use the date at point as the default date. Then, a
-`C-1' prefix will tell the capture process to use the HH:MM time
-of the day at point (if any) or the current HH:MM time.
-
-\(fn &optional GOTO KEYS)" t nil)
-
-(autoload 'org-capture-import-remember-templates "org-capture" "\
-Set `org-capture-templates' to be similar to `org-remember-templates'.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-clock" "org-clock.el" "731d09f8ca5acf7266b16282a1e05671")
-;;; Generated autoloads from org-clock.el
-
-(autoload 'org-resolve-clocks "org-clock" "\
-Resolve all currently open Org clocks.
-If `only-dangling-p' is non-nil, only ask to resolve dangling
-\(i.e., not currently open and valid) clocks.
-
-\(fn &optional ONLY-DANGLING-P PROMPT-FN LAST-VALID)" t nil)
-
-(autoload 'org-clock-in "org-clock" "\
-Start the clock on the current item.
-
-If necessary, clock-out of the currently active clock.
-
-With a `\\[universal-argument]' prefix argument SELECT, offer a list of recently clocked
-tasks to clock into.
-
-When SELECT is `\\[universal-argument] \\[universal-argument]', clock into the current task and mark it as
-the default task, a special task that will always be offered in the
-clocking selection, associated with the letter `d'.
-
-When SELECT is `\\[universal-argument] \\[universal-argument] \\[universal-argument]', clock in by using the last clock-out
-time as the start time. See `org-clock-continuously' to make this
-the default behavior.
-
-\(fn &optional SELECT START-TIME)" t nil)
-
-(autoload 'org-clock-in-last "org-clock" "\
-Clock in the last closed clocked item.
-When already clocking in, send a warning.
-With a universal prefix argument, select the task you want to
-clock in from the last clocked in tasks.
-With two universal prefix arguments, start clocking using the
-last clock-out time, if any.
-With three universal prefix arguments, interactively prompt
-for a todo state to switch to, overriding the existing value
-`org-clock-in-switch-to-state'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-clock-out "org-clock" "\
-Stop the currently running clock.
-Throw an error if there is no running clock and FAIL-QUIETLY is nil.
-With a universal prefix, prompt for a state to switch the clocked out task
-to, overriding the existing value of `org-clock-out-switch-to-state'.
-
-\(fn &optional SWITCH-TO-STATE FAIL-QUIETLY AT-TIME)" t nil)
-
-(autoload 'org-clock-cancel "org-clock" "\
-Cancel the running clock by removing the start timestamp.
-
-\(fn)" t nil)
-
-(autoload 'org-clock-goto "org-clock" "\
-Go to the currently clocked-in entry, or to the most recently clocked one.
-With prefix arg SELECT, offer recently clocked tasks for selection.
-
-\(fn &optional SELECT)" t nil)
-
-(autoload 'org-clock-sum-today "org-clock" "\
-Sum the times for each subtree for today.
-
-\(fn &optional HEADLINE-FILTER)" nil nil)
-
-(autoload 'org-clock-sum "org-clock" "\
-Sum the times for each subtree.
-Puts the resulting times in minutes as a text property on each headline.
-TSTART and TEND can mark a time range to be considered.
-HEADLINE-FILTER is a zero-arg function that, if specified, is called for
-each headline in the time range with point at the headline. Headlines for
-which HEADLINE-FILTER returns nil are excluded from the clock summation.
-PROPNAME lets you set a custom text property instead of :org-clock-minutes.
-
-\(fn &optional TSTART TEND HEADLINE-FILTER PROPNAME)" nil nil)
-
-(autoload 'org-clock-display "org-clock" "\
-Show subtree times in the entire buffer.
-
-By default, show the total time for the range defined in
-`org-clock-display-default-range'. With `\\[universal-argument]' prefix, show
-the total time for today instead.
-
-With `\\[universal-argument] \\[universal-argument]' prefix, use a custom range, entered at prompt.
-
-With `\\[universal-argument] \\[universal-argument] \\[universal-argument]' prefix, display the total time in the
-echo area.
-
-Use `\\[org-clock-remove-overlays]' to remove the subtree times.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-clock-remove-overlays "org-clock" "\
-Remove the occur highlights from the buffer.
-If NOREMOVE is nil, remove this function from the
-`before-change-functions' in the current buffer.
-
-\(fn &optional BEG END NOREMOVE)" t nil)
-
-(autoload 'org-clock-get-clocktable "org-clock" "\
-Get a formatted clocktable with parameters according to PROPS.
-The table is created in a temporary buffer, fully formatted and
-fontified, and then returned.
-
-\(fn &rest PROPS)" nil nil)
-
-(autoload 'org-clock-report "org-clock" "\
-Update or create a table containing a report about clocked time.
-
-If point is inside an existing clocktable block, update it.
-Otherwise, insert a new one.
-
-The new table inherits its properties from the variable
-`org-clock-clocktable-default-properties'. The scope of the
-clocktable, when not specified in the previous variable, is
-`subtree' when the function is called from within a subtree, and
-`file' elsewhere.
-
-When called with a prefix argument, move to the first clock table
-in the buffer and update it.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-clocktable-shift "org-clock" "\
-Try to shift the :block date of the clocktable at point.
-Point must be in the #+BEGIN: line of a clocktable, or this function
-will throw an error.
-DIR is a direction, a symbol `left', `right', `up', or `down'.
-Both `left' and `down' shift the block toward the past, `up' and `right'
-push it toward the future.
-N is the number of shift steps to take. The size of the step depends on
-the currently selected interval size.
-
-\(fn DIR N)" nil nil)
-
-(autoload 'org-dblock-write:clocktable "org-clock" "\
-Write the standard clocktable.
-
-\(fn PARAMS)" nil nil)
-
-(autoload 'org-clock-update-time-maybe "org-clock" "\
-If this is a CLOCK line, update it and return t.
-Otherwise, return nil.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-colview" "org-colview.el" (23195 45027
-;;;;;; 389190 102000))
-;;; Generated autoloads from org-colview.el
-
-(autoload 'org-columns-remove-overlays "org-colview" "\
-Remove all currently active column overlays.
-
-\(fn)" t nil)
-
-(autoload 'org-columns-get-format-and-top-level "org-colview" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'org-columns "org-colview" "\
-Turn on column view on an Org mode file.
-
-Column view applies to the whole buffer if point is before the
-first headline. Otherwise, it applies to the first ancestor
-setting \"COLUMNS\" property. If there is none, it defaults to
-the current headline. With a `\\[universal-argument]' prefix argument, turn on column
-view for the whole buffer unconditionally.
-
-When COLUMNS-FMT-STRING is non-nil, use it as the column format.
-
-\(fn &optional GLOBAL COLUMNS-FMT-STRING)" t nil)
-
-(autoload 'org-columns-compute "org-colview" "\
-Summarize the values of PROPERTY hierarchically.
-Also update existing values for PROPERTY according to the first
-column specification.
-
-\(fn PROPERTY)" t nil)
-
-(autoload 'org-dblock-write:columnview "org-colview" "\
-Write the column view table.
-PARAMS is a property list of parameters:
-
-:id the :ID: property of the entry where the columns view
- should be built. When the symbol `local', call locally.
- When `global' call column view with the cursor at the beginning
- of the buffer (usually this means that the whole buffer switches
- to column view). When \"file:path/to/file.org\", invoke column
- view at the start of that file. Otherwise, the ID is located
- using `org-id-find'.
-:hlines When t, insert a hline before each item. When a number, insert
- a hline before each level <= that number.
-:indent When non-nil, indent each ITEM field according to its level.
-:vlines When t, make each column a colgroup to enforce vertical lines.
-:maxlevel When set to a number, don't capture headlines below this level.
-:skip-empty-rows
- When t, skip rows where all specifiers other than ITEM are empty.
-:width apply widths specified in columns format using <N> specifiers.
-:format When non-nil, specify the column view format to use.
-
-\(fn PARAMS)" nil nil)
-
-(autoload 'org-columns-insert-dblock "org-colview" "\
-Create a dynamic block capturing a column view table.
-
-\(fn)" t nil)
-
-(autoload 'org-agenda-columns "org-colview" "\
-Turn on or update column view in the agenda.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-compat" "org-compat.el" (23195 45027 389190
-;;;;;; 102000))
-;;; Generated autoloads from org-compat.el
-
-(autoload 'org-check-version "org-compat" "\
-Try very hard to provide sensible version strings.
-
-\(fn)" nil t)
-
-;;;***
-
-;;;### (autoloads nil "org-datetree" "org-datetree.el" "ba966f278edd387a7bef6fe54c90b123")
-;;; Generated autoloads from org-datetree.el
-
-(autoload 'org-datetree-find-date-create "org-datetree" "\
-Find or create an entry for date D.
-If KEEP-RESTRICTION is non-nil, do not widen the buffer.
-When it is nil, the buffer will be widened to make sure an existing date
-tree can be found. If it is the symbol `subtree-at-point', then the tree
-will be built under the headline at point.
-
-\(fn D &optional KEEP-RESTRICTION)" nil nil)
-
-(autoload 'org-datetree-find-iso-week-create "org-datetree" "\
-Find or create an ISO week entry for date D.
-Compared to `org-datetree-find-date-create' this function creates
-entries ordered by week instead of months.
-When it is nil, the buffer will be widened to make sure an existing date
-tree can be found. If it is the symbol `subtree-at-point', then the tree
-will be built under the headline at point.
-
-\(fn D &optional KEEP-RESTRICTION)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "org-duration" "org-duration.el" (23122 46211
-;;;;;; 557086 433000))
-;;; Generated autoloads from org-duration.el
-
-(autoload 'org-duration-set-regexps "org-duration" "\
-Set duration related regexps.
-
-\(fn)" t nil)
-
-(autoload 'org-duration-p "org-duration" "\
-Non-nil when string S is a time duration.
-
-\(fn S)" nil nil)
-
-(autoload 'org-duration-to-minutes "org-duration" "\
-Return number of minutes of DURATION string.
-
-When optional argument CANONICAL is non-nil, ignore
-`org-duration-units' and use standard time units value.
-
-A bare number is translated into minutes. The empty string is
-translated into 0.0.
-
-Return value as a float. Raise an error if duration format is
-not recognized.
-
-\(fn DURATION &optional CANONICAL)" nil nil)
-
-(autoload 'org-duration-from-minutes "org-duration" "\
-Return duration string for a given number of MINUTES.
-
-Format duration according to `org-duration-format' or FMT, when
-non-nil.
-
-When optional argument CANONICAL is non-nil, ignore
-`org-duration-units' and use standard time units value.
-
-Raise an error if expected format is unknown.
-
-\(fn MINUTES &optional FMT CANONICAL)" nil nil)
-
-(autoload 'org-duration-h:mm-only-p "org-duration" "\
-Non-nil when every duration in TIMES has \"H:MM\" or \"H:MM:SS\" format.
-
-TIMES is a list of duration strings.
-
-Return nil if any duration is expressed with units, as defined in
-`org-duration-units'. Otherwise, if any duration is expressed
-with \"H:MM:SS\" format, return `h:mm:ss'. Otherwise, return
-`h:mm'.
-
-\(fn TIMES)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "org-element" "org-element.el" "9884bb79ba81b08be137ab07c79303a1")
-;;; Generated autoloads from org-element.el
-
-(autoload 'org-element-update-syntax "org-element" "\
-Update parser internals.
-
-\(fn)" t nil)
-
-(autoload 'org-element-interpret-data "org-element" "\
-Interpret DATA as Org syntax.
-DATA is a parse tree, an element, an object or a secondary string
-to interpret. Return Org syntax as a string.
-
-\(fn DATA)" nil nil)
-
-(autoload 'org-element-cache-reset "org-element" "\
-Reset cache in current buffer.
-When optional argument ALL is non-nil, reset cache in all Org
-buffers.
-
-\(fn &optional ALL)" t nil)
-
-(autoload 'org-element-cache-refresh "org-element" "\
-Refresh cache at position POS.
-
-\(fn POS)" nil nil)
-
-(autoload 'org-element-at-point "org-element" "\
-Determine closest element around point.
-
-Return value is a list like (TYPE PROPS) where TYPE is the type
-of the element and PROPS a plist of properties associated to the
-element.
-
-Possible types are defined in `org-element-all-elements'.
-Properties depend on element or object type, but always include
-`:begin', `:end', `:parent' and `:post-blank' properties.
-
-As a special case, if point is at the very beginning of the first
-item in a list or sub-list, returned element will be that list
-instead of the item. Likewise, if point is at the beginning of
-the first row of a table, returned element will be the table
-instead of the first row.
-
-When point is at the end of the buffer, return the innermost
-element ending there.
-
-\(fn)" nil nil)
-
-(autoload 'org-element-context "org-element" "\
-Return smallest element or object around point.
-
-Return value is a list like (TYPE PROPS) where TYPE is the type
-of the element or object and PROPS a plist of properties
-associated to it.
-
-Possible types are defined in `org-element-all-elements' and
-`org-element-all-objects'. Properties depend on element or
-object type, but always include `:begin', `:end', `:parent' and
-`:post-blank'.
-
-As a special case, if point is right after an object and not at
-the beginning of any other object, return that object.
-
-Optional argument ELEMENT, when non-nil, is the closest element
-containing point, as returned by `org-element-at-point'.
-Providing it allows for quicker computation.
-
-\(fn &optional ELEMENT)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "org-feed" "org-feed.el" "cc9d7655449e79a01a0a7b58bd1d9ca1")
-;;; Generated autoloads from org-feed.el
-
-(autoload 'org-feed-update-all "org-feed" "\
-Get inbox items from all feeds in `org-feed-alist'.
-
-\(fn)" t nil)
-
-(autoload 'org-feed-update "org-feed" "\
-Get inbox items from FEED.
-FEED can be a string with an association in `org-feed-alist', or
-it can be a list structured like an entry in `org-feed-alist'.
-
-\(fn FEED &optional RETRIEVE-ONLY)" t nil)
-
-(autoload 'org-feed-goto-inbox "org-feed" "\
-Go to the inbox that captures the feed named FEED.
-
-\(fn FEED)" t nil)
-
-(autoload 'org-feed-show-raw-feed "org-feed" "\
-Show the raw feed buffer of a feed.
-
-\(fn FEED)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-footnote" "org-footnote.el" "e9ce16dcb970cce6c642f3b7f07bbbc8")
-;;; Generated autoloads from org-footnote.el
-
-(autoload 'org-footnote-action "org-footnote" "\
-Do the right thing for footnotes.
-
-When at a footnote reference, jump to the definition.
-
-When at a definition, jump to the references if they exist, offer
-to create them otherwise.
-
-When neither at definition or reference, create a new footnote,
-interactively if possible.
-
-With prefix arg SPECIAL, or when no footnote can be created,
-offer additional commands in a menu.
-
-\(fn &optional SPECIAL)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-id" "org-id.el" "3a6cfd2d05c88ba07781cd0a2d1078f3")
-;;; Generated autoloads from org-id.el
-
-(autoload 'org-id-get-create "org-id" "\
-Create an ID for the current entry and return it.
-If the entry already has an ID, just return it.
-With optional argument FORCE, force the creation of a new ID.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'org-id-copy "org-id" "\
-Copy the ID of the entry at point to the kill ring.
-Create an ID if necessary.
-
-\(fn)" t nil)
-
-(autoload 'org-id-get "org-id" "\
-Get the ID property of the entry at point-or-marker POM.
-If POM is nil, refer to the entry at point.
-If the entry does not have an ID, the function returns nil.
-However, when CREATE is non nil, create an ID if none is present already.
-PREFIX will be passed through to `org-id-new'.
-In any case, the ID of the entry is returned.
-
-\(fn &optional POM CREATE PREFIX)" nil nil)
-
-(autoload 'org-id-get-with-outline-path-completion "org-id" "\
-Use `outline-path-completion' to retrieve the ID of an entry.
-TARGETS may be a setting for `org-refile-targets' to define
-eligible headlines. When omitted, all headlines in the current
-file are eligible. This function returns the ID of the entry.
-If necessary, the ID is created.
-
-\(fn &optional TARGETS)" nil nil)
-
-(autoload 'org-id-get-with-outline-drilling "org-id" "\
-Use an outline-cycling interface to retrieve the ID of an entry.
-This only finds entries in the current buffer, using `org-get-location'.
-It returns the ID of the entry. If necessary, the ID is created.
-
-\(fn)" nil nil)
-
-(autoload 'org-id-goto "org-id" "\
-Switch to the buffer containing the entry with id ID.
-Move the cursor to that entry in that buffer.
-
-\(fn ID)" t nil)
-
-(autoload 'org-id-find "org-id" "\
-Return the location of the entry with the id ID.
-The return value is a cons cell (file-name . position), or nil
-if there is no entry with that ID.
-With optional argument MARKERP, return the position as a new marker.
-
-\(fn ID &optional MARKERP)" nil nil)
-
-(autoload 'org-id-new "org-id" "\
-Create a new globally unique ID.
-
-An ID consists of two parts separated by a colon:
-- a prefix
-- a unique part that will be created according to `org-id-method'.
-
-PREFIX can specify the prefix, the default is given by the variable
-`org-id-prefix'. However, if PREFIX is the symbol `none', don't use any
-prefix even if `org-id-prefix' specifies one.
-
-So a typical ID could look like \"Org:4nd91V40HI\".
-
-\(fn &optional PREFIX)" nil nil)
-
-(autoload 'org-id-update-id-locations "org-id" "\
-Scan relevant files for IDs.
-Store the relation between files and corresponding IDs.
-This will scan all agenda files, all associated archives, and all
-files currently mentioned in `org-id-locations'.
-When FILES is given, scan these files instead.
-
-\(fn &optional FILES SILENT)" t nil)
-
-(autoload 'org-id-find-id-file "org-id" "\
-Query the id database for the file in which this ID is located.
-
-\(fn ID)" nil nil)
-
-(autoload 'org-id-store-link "org-id" "\
-Store a link to the current entry, using its ID.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-indent" "org-indent.el" "a1b3a5cb538d830f8686ef38fac39a3f")
-;;; Generated autoloads from org-indent.el
-
-(autoload 'org-indent-mode "org-indent" "\
-When active, indent text according to outline structure.
-
-Internally this works by adding `line-prefix' and `wrap-prefix'
-properties, after each buffer modification, on the modified zone.
-
-The process is synchronous. Though, initial indentation of
-buffer, which can take a few seconds on large buffers, is done
-during idle time.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-irc" "org-irc.el" "4c557982f1eec29419c881a776b4c7bf")
-;;; Generated autoloads from org-irc.el
-
-(autoload 'org-irc-store-link "org-irc" "\
-Dispatch to the appropriate function to store a link to an IRC session.
-
-\(fn)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "org-lint" "org-lint.el" (23122 46211 569086
-;;;;;; 279000))
-;;; Generated autoloads from org-lint.el
-
-(autoload 'org-lint "org-lint" "\
-Check current Org buffer for syntax mistakes.
-
-By default, run all checkers. With a `\\[universal-argument]' prefix ARG, select one
-category of checkers only. With a `\\[universal-argument] \\[universal-argument]' prefix, run one precise
-checker by its name.
-
-ARG can also be a list of checker names, as symbols, to run.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-macs" "org-macs.el" (23195 45027 401189
-;;;;;; 958000))
-;;; Generated autoloads from org-macs.el
-
-(autoload 'org-load-noerror-mustsuffix "org-macs" "\
-Load FILE with optional arguments NOERROR and MUSTSUFFIX.
-
-\(fn FILE)" nil t)
-
-;;;***
-
-;;;### (autoloads nil "org-mobile" "org-mobile.el" "e005b7accde48f9f5da5855f7bb547ec")
-;;; Generated autoloads from org-mobile.el
-
-(autoload 'org-mobile-push "org-mobile" "\
-Push the current state of Org affairs to the target directory.
-This will create the index file, copy all agenda files there, and also
-create all custom agenda views, for upload to the mobile phone.
-
-\(fn)" t nil)
-
-(autoload 'org-mobile-pull "org-mobile" "\
-Pull the contents of `org-mobile-capture-file' and integrate them.
-Apply all flagged actions, flag entries to be flagged and then call an
-agenda view showing the flagged items.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-plot" "org-plot.el" "85b14ab93a67abe34c254eb6c55bd79c")
-;;; Generated autoloads from org-plot.el
-
-(autoload 'org-plot/gnuplot "org-plot" "\
-Plot table using gnuplot. Gnuplot options can be specified with PARAMS.
-If not given options will be taken from the +PLOT
-line directly before or after the table.
-
-\(fn &optional PARAMS)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-table" "org-table.el" "655b68fb9b54da75d23bcfc26f39e1d3")
-;;; Generated autoloads from org-table.el
-
-(autoload 'org-table-create-with-table\.el "org-table" "\
-Use the table.el package to insert a new table.
-If there is already a table at point, convert between Org tables
-and table.el tables.
-
-\(fn)" t nil)
-
-(autoload 'org-table-create-or-convert-from-region "org-table" "\
-Convert region to table, or create an empty table.
-If there is an active region, convert it to a table, using the function
-`org-table-convert-region'. See the documentation of that function
-to learn how the prefix argument is interpreted to determine the field
-separator.
-If there is no such region, create an empty table with `org-table-create'.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-create "org-table" "\
-Query for a size and insert a table skeleton.
-SIZE is a string Columns x Rows like for example \"3x2\".
-
-\(fn &optional SIZE)" t nil)
-
-(autoload 'org-table-convert-region "org-table" "\
-Convert region to a table.
-
-The region goes from BEG0 to END0, but these borders will be moved
-slightly, to make sure a beginning of line in the first line is included.
-
-SEPARATOR specifies the field separator in the lines. It can have the
-following values:
-
-\(4) Use the comma as a field separator
-\(16) Use a TAB as field separator
-\(64) Prompt for a regular expression as field separator
-integer When a number, use that many spaces, or a TAB, as field separator
-regexp When a regular expression, use it to match the separator
-nil When nil, the command tries to be smart and figure out the
- separator in the following way:
- - when each line contains a TAB, assume TAB-separated material
- - when each line contains a comma, assume CSV material
- - else, assume one or more SPACE characters as separator.
-
-\(fn BEG0 END0 &optional SEPARATOR)" t nil)
-
-(autoload 'org-table-import "org-table" "\
-Import FILE as a table.
-
-The command tries to be smart and figure out the separator in the
-following way:
-
- - when each line contains a TAB, assume TAB-separated material
- - when each line contains a comma, assume CSV material
- - else, assume one or more SPACE characters as separator.
-
-When non-nil, SEPARATOR specifies the field separator in the
-lines. It can have the following values:
-
-\(4) Use the comma as a field separator
-\(16) Use a TAB as field separator
-\(64) Prompt for a regular expression as field separator
-integer When a number, use that many spaces, or a TAB, as field separator
-regexp When a regular expression, use it to match the separator.
-
-\(fn FILE SEPARATOR)" t nil)
-
-(autoload 'org-table-export "org-table" "\
-Export table to a file, with configurable format.
-Such a file can be imported into usual spreadsheet programs.
-
-FILE can be the output file name. If not given, it will be taken
-from a TABLE_EXPORT_FILE property in the current entry or higher
-up in the hierarchy, or the user will be prompted for a file
-name. FORMAT can be an export format, of the same kind as it
-used when `orgtbl-mode' sends a table in a different format.
-
-The command suggests a format depending on TABLE_EXPORT_FORMAT,
-whether it is set locally or up in the hierarchy, then on the
-extension of the given file name, and finally on the variable
-`org-table-export-default-format'.
-
-\(fn &optional FILE FORMAT)" t nil)
-
-(autoload 'org-table-align "org-table" "\
-Align the table at point by aligning all vertical bars.
-
-\(fn)" t nil)
-
-(autoload 'org-table-begin "org-table" "\
-Find the beginning of the table and return its position.
-With a non-nil optional argument TABLE-TYPE, return the beginning
-of a table.el-type table. This function assumes point is on
-a table.
-
-\(fn &optional TABLE-TYPE)" nil nil)
-
-(autoload 'org-table-end "org-table" "\
-Find the end of the table and return its position.
-With a non-nil optional argument TABLE-TYPE, return the end of
-a table.el-type table. This function assumes point is on
-a table.
-
-\(fn &optional TABLE-TYPE)" nil nil)
-
-(autoload 'org-table-justify-field-maybe "org-table" "\
-Justify the current field, text to left, number to right.
-Optional argument NEW may specify text to replace the current field content.
-
-\(fn &optional NEW)" nil nil)
-
-(autoload 'org-table-next-field "org-table" "\
-Go to the next field in the current table, creating new lines as needed.
-Before doing so, re-align the table if necessary.
-
-\(fn)" t nil)
-
-(autoload 'org-table-previous-field "org-table" "\
-Go to the previous field in the table.
-Before doing so, re-align the table if necessary.
-
-\(fn)" t nil)
-
-(autoload 'org-table-next-row "org-table" "\
-Go to the next row (same column) in the current table.
-Before doing so, re-align the table if necessary.
-
-\(fn)" t nil)
-
-(autoload 'org-table-copy-down "org-table" "\
-Copy the value of the current field one row below.
-
-If the field at the cursor is empty, copy the content of the
-nearest non-empty field above. With argument N, use the Nth
-non-empty field.
-
-If the current field is not empty, it is copied down to the next
-row, and the cursor is moved with it. Therefore, repeating this
-command causes the column to be filled row-by-row.
-
-If the variable `org-table-copy-increment' is non-nil and the
-field is an integer or a timestamp, it will be incremented while
-copying. By default, increment by the difference between the
-value in the current field and the one in the field above. To
-increment using a fixed integer, set `org-table-copy-increment'
-to a number. In the case of a timestamp, increment by days.
-
-\(fn N)" t nil)
-
-(autoload 'org-table-blank-field "org-table" "\
-Blank the current table field or active region.
-
-\(fn)" t nil)
-
-(autoload 'org-table-field-info "org-table" "\
-Show info about the current field, and highlight any reference at point.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-goto-column "org-table" "\
-Move the cursor to the Nth column in the current table line.
-With optional argument ON-DELIM, stop with point before the left delimiter
-of the field.
-If there are less than N fields, just go to after the last delimiter.
-However, when FORCE is non-nil, create new columns if necessary.
-
-\(fn N &optional ON-DELIM FORCE)" t nil)
-
-(autoload 'org-table-insert-column "org-table" "\
-Insert a new column into the table.
-
-\(fn)" t nil)
-
-(autoload 'org-table-delete-column "org-table" "\
-Delete a column from the table.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-column-right "org-table" "\
-Move column to the right.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-column-left "org-table" "\
-Move column to the left.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-column "org-table" "\
-Move the current column to the right. With arg LEFT, move to the left.
-
-\(fn &optional LEFT)" t nil)
-
-(autoload 'org-table-move-row-down "org-table" "\
-Move table row down.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-row-up "org-table" "\
-Move table row up.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-row "org-table" "\
-Move the current table line down. With arg UP, move it up.
-
-\(fn &optional UP)" t nil)
-
-(autoload 'org-table-insert-row "org-table" "\
-Insert a new row above the current line into the table.
-With prefix ARG, insert below the current line.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-table-insert-hline "org-table" "\
-Insert a horizontal-line below the current line into the table.
-With prefix ABOVE, insert above the current line.
-
-\(fn &optional ABOVE)" t nil)
-
-(autoload 'org-table-hline-and-move "org-table" "\
-Insert a hline and move to the row below that line.
-
-\(fn &optional SAME-COLUMN)" t nil)
-
-(autoload 'org-table-kill-row "org-table" "\
-Delete the current row or horizontal line from the table.
-
-\(fn)" t nil)
-
-(autoload 'org-table-sort-lines "org-table" "\
-Sort table lines according to the column at point.
-
-The position of point indicates the column to be used for
-sorting, and the range of lines is the range between the nearest
-horizontal separator lines, or the entire table of no such lines
-exist. If point is before the first column, you will be prompted
-for the sorting column. If there is an active region, the mark
-specifies the first line and the sorting column, while point
-should be in the last line to be included into the sorting.
-
-The command then prompts for the sorting type which can be
-alphabetically, numerically, or by time (as given in a time stamp
-in the field, or as a HH:MM value). Sorting in reverse order is
-also possible.
-
-With prefix argument WITH-CASE, alphabetic sorting will be case-sensitive.
-
-If SORTING-TYPE is specified when this function is called from a Lisp
-program, no prompting will take place. SORTING-TYPE must be a character,
-any of (?a ?A ?n ?N ?t ?T ?f ?F) where the capital letters indicate that
-sorting should be done in reverse order.
-
-If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies
-a function to be called to extract the key. It must return a value
-that is compatible with COMPARE-FUNC, the function used to compare
-entries.
-
-A non-nil value for INTERACTIVE? is used to signal that this
-function is being called interactively.
-
-\(fn &optional WITH-CASE SORTING-TYPE GETKEY-FUNC COMPARE-FUNC INTERACTIVE\\=\\?)" t nil)
-
-(autoload 'org-table-cut-region "org-table" "\
-Copy region in table to the clipboard and blank all relevant fields.
-If there is no active region, use just the field at point.
-
-\(fn BEG END)" t nil)
-
-(autoload 'org-table-copy-region "org-table" "\
-Copy rectangular region in table to clipboard.
-A special clipboard is used which can only be accessed
-with `org-table-paste-rectangle'.
-
-\(fn BEG END &optional CUT)" t nil)
-
-(autoload 'org-table-paste-rectangle "org-table" "\
-Paste a rectangular region into a table.
-The upper right corner ends up in the current field. All involved fields
-will be overwritten. If the rectangle does not fit into the present table,
-the table is enlarged as needed. The process ignores horizontal separator
-lines.
-
-\(fn)" t nil)
-
-(autoload 'org-table-convert "org-table" "\
-Convert from `org-mode' table to table.el and back.
-Obviously, this only works within limits. When an Org table is converted
-to table.el, all horizontal separator lines get lost, because table.el uses
-these as cell boundaries and has no notion of horizontal lines. A table.el
-table can be converted to an Org table only if it does not do row or column
-spanning. Multiline cells will become multiple cells. Beware, Org mode
-does not test if the table can be successfully converted - it blindly
-applies a recipe that works for simple tables.
-
-\(fn)" t nil)
-
-(autoload 'org-table-wrap-region "org-table" "\
-Wrap several fields in a column like a paragraph.
-This is useful if you'd like to spread the contents of a field over several
-lines, in order to keep the table compact.
-
-If there is an active region, and both point and mark are in the same column,
-the text in the column is wrapped to minimum width for the given number of
-lines. Generally, this makes the table more compact. A prefix ARG may be
-used to change the number of desired lines. For example, `C-2 \\[org-table-wrap-region]'
-formats the selected text to two lines. If the region was longer than two
-lines, the remaining lines remain empty. A negative prefix argument reduces
-the current number of lines by that amount. The wrapped text is pasted back
-into the table. If you formatted it to more lines than it was before, fields
-further down in the table get overwritten - so you might need to make space in
-the table first.
-
-If there is no region, the current field is split at the cursor position and
-the text fragment to the right of the cursor is prepended to the field one
-line down.
-
-If there is no region, but you specify a prefix ARG, the current field gets
-blank, and the content is appended to the field above.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-edit-field "org-table" "\
-Edit table field in a different window.
-This is mainly useful for fields that contain hidden parts.
-
-When called with a `\\[universal-argument]' prefix, just make the full field
-visible so that it can be edited in place.
-
-When called with a `\\[universal-argument] \\[universal-argument]' prefix, toggle `org-table-follow-field-mode'.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-sum "org-table" "\
-Sum numbers in region of current table column.
-The result will be displayed in the echo area, and will be available
-as kill to be inserted with \\[yank].
-
-If there is an active region, it is interpreted as a rectangle and all
-numbers in that rectangle will be summed. If there is no active
-region and point is located in a table column, sum all numbers in that
-column.
-
-If at least one number looks like a time HH:MM or HH:MM:SS, all other
-numbers are assumed to be times as well (in decimal hours) and the
-numbers are added as such.
-
-If NLAST is a number, only the NLAST fields will actually be summed.
-
-\(fn &optional BEG END NLAST)" t nil)
-
-(autoload 'org-table-get-stored-formulas "org-table" "\
-Return an alist with the stored formulas directly after current table.
-By default, only return active formulas, i.e., formulas located
-on the first line after the table. However, if optional argument
-LOCATION is a buffer position, consider the formulas there.
-
-\(fn &optional NOERROR LOCATION)" nil nil)
-
-(autoload 'org-table-maybe-eval-formula "org-table" "\
-Check if the current field starts with \"=\" or \":=\".
-If yes, store the formula and apply it.
-
-\(fn)" nil nil)
-
-(autoload 'org-table-rotate-recalc-marks "org-table" "\
-Rotate the recalculation mark in the first column.
-If in any row, the first field is not consistent with a mark,
-insert a new column for the markers.
-When there is an active region, change all the lines in the region,
-after prompting for the marking character.
-After each change, a message will be displayed indicating the meaning
-of the new mark.
-
-\(fn &optional NEWCHAR)" t nil)
-
-(autoload 'org-table-analyze "org-table" "\
-Analyze table at point and store results.
-
-This function sets up the following dynamically scoped variables:
-
- `org-table-column-name-regexp',
- `org-table-column-names',
- `org-table-current-begin-pos',
- `org-table-current-line-types',
- `org-table-current-ncol',
- `org-table-dlines',
- `org-table-hlines',
- `org-table-local-parameters',
- `org-table-named-field-locations'.
-
-\(fn)" nil nil)
-
-(autoload 'org-table-maybe-recalculate-line "org-table" "\
-Recompute the current line if marked for it, and if we haven't just done it.
-
-\(fn)" t nil)
-
-(autoload 'org-table-eval-formula "org-table" "\
-Replace the table field value at the cursor by the result of a calculation.
-
-In a table, this command replaces the value in the current field with the
-result of a formula. It also installs the formula as the \"current\" column
-formula, by storing it in a special line below the table. When called
-with a `\\[universal-argument]' prefix the formula is installed as a field formula.
-
-When called with a `\\[universal-argument] \\[universal-argument]' prefix, insert the active equation for the field
-back into the current field, so that it can be edited there. This is useful
-in order to use \\<org-table-fedit-map>`\\[org-table-show-reference]' to check the referenced fields.
-
-When called, the command first prompts for a formula, which is read in
-the minibuffer. Previously entered formulas are available through the
-history list, and the last used formula is offered as a default.
-These stored formulas are adapted correctly when moving, inserting, or
-deleting columns with the corresponding commands.
-
-The formula can be any algebraic expression understood by the Calc package.
-For details, see the Org mode manual.
-
-This function can also be called from Lisp programs and offers
-additional arguments: EQUATION can be the formula to apply. If this
-argument is given, the user will not be prompted.
-
-SUPPRESS-ALIGN is used to speed-up recursive calls by by-passing
-unnecessary aligns.
-
-SUPPRESS-CONST suppresses the interpretation of constants in the
-formula, assuming that this has been done already outside the
-function.
-
-SUPPRESS-STORE means the formula should not be stored, either
-because it is already stored, or because it is a modified
-equation that should not overwrite the stored one.
-
-SUPPRESS-ANALYSIS prevents analyzing the table and checking
-location of point.
-
-\(fn &optional ARG EQUATION SUPPRESS-ALIGN SUPPRESS-CONST SUPPRESS-STORE SUPPRESS-ANALYSIS)" t nil)
-
-(autoload 'org-table-recalculate "org-table" "\
-Recalculate the current table line by applying all stored formulas.
-
-With prefix arg ALL, do this for all lines in the table.
-
-When called with a `\\[universal-argument] \\[universal-argument]' prefix, or if ALL is the symbol `iterate',
-recompute the table until it no longer changes.
-
-If NOALIGN is not nil, do not re-align the table after the computations
-are done. This is typically used internally to save time, if it is
-known that the table will be realigned a little later anyway.
-
-\(fn &optional ALL NOALIGN)" t nil)
-
-(autoload 'org-table-iterate "org-table" "\
-Recalculate the table until it does not change anymore.
-The maximum number of iterations is 10, but you can choose a different value
-with the prefix ARG.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-table-recalculate-buffer-tables "org-table" "\
-Recalculate all tables in the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'org-table-iterate-buffer-tables "org-table" "\
-Iterate all tables in the buffer, to converge inter-table dependencies.
-
-\(fn)" t nil)
-
-(autoload 'org-table-edit-formulas "org-table" "\
-Edit the formulas of the current table in a separate buffer.
-
-\(fn)" t nil)
-
-(autoload 'org-table-toggle-coordinate-overlays "org-table" "\
-Toggle the display of Row/Column numbers in tables.
-
-\(fn)" t nil)
-
-(autoload 'org-table-toggle-formula-debugger "org-table" "\
-Toggle the formula debugger in tables.
-
-\(fn)" t nil)
-
-(autoload 'orgtbl-mode "org-table" "\
-The Org mode table editor as a minor mode for use in other modes.
-
-\(fn &optional ARG)" t nil)
-
-(defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$" "\
-Regular expression matching exponentials as produced by calc.")
-
-(autoload 'org-table-to-lisp "org-table" "\
-Convert the table at point to a Lisp structure.
-The structure will be a list. Each item is either the symbol `hline'
-for a horizontal separator line, or a list of field values as strings.
-The table is taken from the parameter TXT, or from the buffer at point.
-
-\(fn &optional TXT)" nil nil)
-
-(autoload 'orgtbl-to-generic "org-table" "\
-Convert the orgtbl-mode TABLE to some other format.
-
-This generic routine can be used for many standard cases.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that
-line. PARAMS is a property list of parameters that can
-influence the conversion.
-
-Valid parameters are:
-
-:backend, :raw
-
- Export back-end used as a basis to transcode elements of the
- table, when no specific parameter applies to it. It is also
- used to translate cells contents. You can prevent this by
- setting :raw property to a non-nil value.
-
-:splice
-
- When non-nil, only convert rows, not the table itself. This is
- equivalent to setting to the empty string both :tstart
- and :tend, which see.
-
-:skip
-
- When set to an integer N, skip the first N lines of the table.
- Horizontal separation lines do count for this parameter!
-
-:skipcols
-
- List of columns that should be skipped. If the table has
- a column with calculation marks, that column is automatically
- discarded beforehand.
-
-:hline
-
- String to be inserted on horizontal separation lines. May be
- nil to ignore these lines altogether.
-
-:sep
-
- Separator between two fields, as a string.
-
-Each in the following group may be either a string or a function
-of no arguments returning a string:
-
-:tstart, :tend
-
- Strings to start and end the table. Ignored when :splice is t.
-
-:lstart, :lend
-
- Strings to start and end a new table line.
-
-:llstart, :llend
-
- Strings to start and end the last table line. Default,
- respectively, to :lstart and :lend.
-
-Each in the following group may be a string or a function of one
-argument (either the cells in the current row, as a list of
-strings, or the current cell) returning a string:
-
-:lfmt
-
- Format string for an entire row, with enough %s to capture all
- fields. When non-nil, :lstart, :lend, and :sep are ignored.
-
-:llfmt
-
- Format for the entire last line, defaults to :lfmt.
-
-:fmt
-
- A format to be used to wrap the field, should contain %s for
- the original field value. For example, to wrap everything in
- dollars, you could use :fmt \"$%s$\". This may also be
- a property list with column numbers and format strings, or
- functions, e.g.,
-
- (:fmt (2 \"$%s$\" 4 (lambda (c) (format \"$%s$\" c))))
-
-:hlstart :hllstart :hlend :hllend :hsep :hlfmt :hllfmt :hfmt
-
- Same as above, specific for the header lines in the table.
- All lines before the first hline are treated as header. If
- any of these is not present, the data line value is used.
-
-This may be either a string or a function of two arguments:
-
-:efmt
-
- Use this format to print numbers with exponential. The format
- should have %s twice for inserting mantissa and exponent, for
- example \"%s\\\\times10^{%s}\". This may also be a property
- list with column numbers and format strings or functions.
- :fmt will still be applied after :efmt.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-tsv "org-table" "\
-Convert the orgtbl-mode table to TAB separated material.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-csv "org-table" "\
-Convert the orgtbl-mode table to CSV material.
-This does take care of the proper quoting of fields with comma or quotes.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-latex "org-table" "\
-Convert the orgtbl-mode TABLE to LaTeX.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported. It is also possible to use the following ones:
-
-:booktabs
-
- When non-nil, use formal \"booktabs\" style.
-
-:environment
-
- Specify environment to use, as a string. If you use
- \"longtable\", you may also want to specify :language property,
- as a string, to get proper continuation strings.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-html "org-table" "\
-Convert the orgtbl-mode TABLE to HTML.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported. It is also possible to use the following one:
-
-:attributes
-
- Attributes and values, as a plist, which will be used in
- <table> tag.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-texinfo "org-table" "\
-Convert the orgtbl-mode TABLE to Texinfo.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported. It is also possible to use the following one:
-
-:columns
-
- Column widths, as a string. When providing column fractions,
- \"@columnfractions\" command can be omitted.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-orgtbl "org-table" "\
-Convert the orgtbl-mode TABLE into another orgtbl-mode table.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported.
-
-Useful when slicing one table into many. The :hline, :sep,
-:lstart, and :lend provide orgtbl framing. :tstart and :tend can
-be set to provide ORGTBL directives for the generated table.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-ascii-plot "org-table" "\
-Draw an ASCII bar plot in a column.
-
-With cursor in a column containing numerical values, this function
-will draw a plot in a new column.
-
-ASK, if given, is a numeric prefix to override the default 12
-characters width of the plot. ASK may also be the `\\[universal-argument]' prefix,
-which will prompt for the width.
-
-\(fn &optional ASK)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-timer" "org-timer.el" "df503e638f325920ee58c88d4d825ad2")
-;;; Generated autoloads from org-timer.el
-
-(autoload 'org-timer-start "org-timer" "\
-Set the starting time for the relative timer to now.
-When called with prefix argument OFFSET, prompt the user for an offset time,
-with the default taken from a timer stamp at point, if any.
-If OFFSET is a string or an integer, it is directly taken to be the offset
-without user interaction.
-When called with a double prefix arg, all timer strings in the active
-region will be shifted by a specific amount. You will be prompted for
-the amount, with the default to make the first timer string in
-the region 0:00:00.
-
-\(fn &optional OFFSET)" t nil)
-
-(autoload 'org-timer "org-timer" "\
-Insert a H:MM:SS string from the timer into the buffer.
-The first time this command is used, the timer is started.
-
-When used with a `\\[universal-argument]' prefix, force restarting the timer.
-
-When used with a `\\[universal-argument] \\[universal-argument]' prefix, change all the timer strings
-in the region by a fixed amount. This can be used to re-calibrate
-a timer that was not started at the correct moment.
-
-If NO-INSERT is non-nil, return the string instead of inserting
-it in the buffer.
-
-\(fn &optional RESTART NO-INSERT)" t nil)
-
-(autoload 'org-timer-change-times-in-region "org-timer" "\
-Change all h:mm:ss time in region by a DELTA.
-
-\(fn BEG END DELTA)" t nil)
-
-(autoload 'org-timer-item "org-timer" "\
-Insert a description-type item with the current timer value.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-timer-set-timer "org-timer" "\
-Prompt for a duration in minutes or hh:mm:ss and set a timer.
-
-If `org-timer-default-timer' is not \"0\", suggest this value as
-the default duration for the timer. If a timer is already set,
-prompt the user if she wants to replace it.
-
-Called with a numeric prefix argument, use this numeric value as
-the duration of the timer in minutes.
-
-Called with a `C-u' prefix arguments, use `org-timer-default-timer'
-without prompting the user for a duration.
-
-With two `C-u' prefix arguments, use `org-timer-default-timer'
-without prompting the user for a duration and automatically
-replace any running timer.
-
-By default, the timer duration will be set to the number of
-minutes in the Effort property, if any. You can ignore this by
-using three `C-u' prefix arguments.
-
-\(fn &optional OPT)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "org-version" "org-version.el" (23427 16140
-;;;;;; 563457 533000))
-;;; Generated autoloads from org-version.el
-
-(autoload 'org-release "org-version" "\
-The release version of Org.
-Inserted by installing Org mode or when a release is made.
-
-\(fn)" nil nil)
-
-(autoload 'org-git-version "org-version" "\
-The Git version of Org mode.
-Inserted by installing Org or when a release is made.
-
-\(fn)" nil nil)
-
-(defvar org-odt-data-dir "/usr/share/emacs/etc/org" "\
-The location of ODT styles.")
-
-;;;***
-
-;;;### (autoloads nil "org" "org.el" (23427 16131 247531 494000))
-;;; Generated autoloads from org.el
-
-(autoload 'org-babel-do-load-languages "org" "\
-Load the languages defined in `org-babel-load-languages'.
-
-\(fn SYM VALUE)" nil nil)
-
-(autoload 'org-babel-load-file "org" "\
-Load Emacs Lisp source code blocks in the Org FILE.
-This function exports the source code using `org-babel-tangle'
-and then loads the resulting file using `load-file'. With prefix
-arg (noninteractively: 2nd arg) COMPILE the tangled Emacs Lisp
-file to byte-code before it is loaded.
-
-\(fn FILE &optional COMPILE)" t nil)
-
-(autoload 'org-version "org" "\
-Show the Org version.
-Interactively, or when MESSAGE is non-nil, show it in echo area.
-With prefix argument, or when HERE is non-nil, insert it at point.
-In non-interactive uses, a reduced version string is output unless
-FULL is given.
-
-\(fn &optional HERE FULL MESSAGE)" t nil)
-
-(autoload 'turn-on-orgtbl "org" "\
-Unconditionally turn on `orgtbl-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'org-clock-persistence-insinuate "org" "\
-Set up hooks for clock persistence.
-
-\(fn)" nil nil)
-
-(autoload 'org-mode "org" "\
-Outline-based notes management and organizer, alias
-\"Carsten's outline-mode for keeping track of everything.\"
-
-Org mode develops organizational tasks around a NOTES file which
-contains information about projects as plain text. Org mode is
-implemented on top of Outline mode, which is ideal to keep the content
-of large files well structured. It supports ToDo items, deadlines and
-time stamps, which magically appear in the diary listing of the Emacs
-calendar. Tables are easily created with a built-in table editor.
-Plain text URL-like links connect to websites, emails (VM), Usenet
-messages (Gnus), BBDB entries, and any files related to the project.
-For printing and sharing of notes, an Org file (or a part of it)
-can be exported as a structured ASCII or HTML file.
-
-The following commands are available:
-
-\\{org-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'org-cycle "org" "\
-TAB-action and visibility cycling for Org mode.
-
-This is the command invoked in Org mode by the `TAB' key. Its main
-purpose is outline visibility cycling, but it also invokes other actions
-in special contexts.
-
-When this function is called with a `\\[universal-argument]' prefix, rotate the entire
-buffer through 3 states (global cycling)
- 1. OVERVIEW: Show only top-level headlines.
- 2. CONTENTS: Show all headlines of all levels, but no body text.
- 3. SHOW ALL: Show everything.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix argument, switch to the startup visibility,
-determined by the variable `org-startup-folded', and by any VISIBILITY
-properties in the buffer.
-
-With a `\\[universal-argument] \\[universal-argument] \\[universal-argument]' prefix argument, show the entire buffer, including
-any drawers.
-
-When inside a table, re-align the table and move to the next field.
-
-When point is at the beginning of a headline, rotate the subtree started
-by this line through 3 different states (local cycling)
- 1. FOLDED: Only the main headline is shown.
- 2. CHILDREN: The main headline and the direct children are shown.
- From this state, you can move to one of the children
- and zoom in further.
- 3. SUBTREE: Show the entire subtree, including body text.
-If there is no subtree, switch directly from CHILDREN to FOLDED.
-
-When point is at the beginning of an empty headline and the variable
-`org-cycle-level-after-item/entry-creation' is set, cycle the level
-of the headline by demoting and promoting it to likely levels. This
-speeds up creation document structure by pressing `TAB' once or several
-times right after creating a new headline.
-
-When there is a numeric prefix, go up to a heading with level ARG, do
-a `show-subtree' and return to the previous cursor position. If ARG
-is negative, go up that many levels.
-
-When point is not at the beginning of a headline, execute the global
-binding for `TAB', which is re-indenting the line. See the option
-`org-cycle-emulate-tab' for details.
-
-As a special case, if point is at the beginning of the buffer and there is
-no headline in line 1, this function will act as if called with prefix arg
-\(`\\[universal-argument] TAB', same as `S-TAB') also when called without prefix arg, but only
-if the variable `org-cycle-global-at-bob' is t.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-global-cycle "org" "\
-Cycle the global visibility. For details see `org-cycle'.
-With `\\[universal-argument]' prefix ARG, switch to startup visibility.
-With a numeric prefix, show all headlines up to that level.
-
-\(fn &optional ARG)" t nil)
-(put 'orgstruct-heading-prefix-regexp 'safe-local-variable 'stringp)
-
-(autoload 'orgstruct-mode "org" "\
-Toggle the minor mode `orgstruct-mode'.
-This mode is for using Org mode structure commands in other
-modes. The following keys behave as if Org mode were active, if
-the cursor is on a headline, or on a plain list item (both as
-defined by Org mode).
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-orgstruct "org" "\
-Unconditionally turn on `orgstruct-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'turn-on-orgstruct++ "org" "\
-Unconditionally turn on `orgstruct++-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'org-run-like-in-org-mode "org" "\
-Run a command, pretending that the current buffer is in Org mode.
-This will temporarily bind local variables that are typically bound in
-Org mode to the values they have in Org mode, and then interactively
-call CMD.
-
-\(fn CMD)" nil nil)
-
-(autoload 'org-store-link "org" "\
-Store an org-link to the current location.
-\\<org-mode-map>
-This link is added to `org-stored-links' and can later be inserted
-into an Org buffer with `org-insert-link' (`\\[org-insert-link]').
-
-For some link types, a `\\[universal-argument]' prefix ARG is interpreted. A single
-`\\[universal-argument]' negates `org-context-in-file-links' for file links or
-`org-gnus-prefer-web-links' for links to Usenet articles.
-
-A `\\[universal-argument] \\[universal-argument]' prefix ARG forces skipping storing functions that are not
-part of Org core.
-
-A `\\[universal-argument] \\[universal-argument] \\[universal-argument]' prefix ARG forces storing a link for each line in the
-active region.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-insert-link-global "org" "\
-Insert a link like Org mode does.
-This command can be called in any mode to insert a link in Org syntax.
-
-\(fn)" t nil)
-
-(autoload 'org-open-at-point-global "org" "\
-Follow a link or time-stamp like Org mode does.
-This command can be called in any mode to follow an external link
-or a time-stamp that has Org mode syntax. Its behavior is
-undefined when called on internal links (e.g., fuzzy links).
-Raise an error when there is nothing to follow.
-
-\(fn)" t nil)
-
-(autoload 'org-open-link-from-string "org" "\
-Open a link in the string S, as if it was in Org mode.
-
-\(fn S &optional ARG REFERENCE-BUFFER)" t nil)
-
-(autoload 'org-switchb "org" "\
-Switch between Org buffers.
-
-With `\\[universal-argument]' prefix, restrict available buffers to files.
-
-With `\\[universal-argument] \\[universal-argument]' prefix, restrict available buffers to agenda files.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-cycle-agenda-files "org" "\
-Cycle through the files in `org-agenda-files'.
-If the current buffer visits an agenda file, find the next one in the list.
-If the current buffer does not, find the first agenda file.
-
-\(fn)" t nil)
-
-(autoload 'org-submit-bug-report "org" "\
-Submit a bug report on Org via mail.
-
-Don't hesitate to report any problems or inaccurate documentation.
-
-If you don't have setup sending mail from (X)Emacs, please copy the
-output buffer into your mail program, as it gives us important
-information about your Org version and configuration.
-
-\(fn)" t nil)
-
-(autoload 'org-reload "org" "\
-Reload all Org Lisp files.
-With prefix arg UNCOMPILED, load the uncompiled versions.
-
-\(fn &optional UNCOMPILED)" t nil)
-
-(autoload 'org-customize "org" "\
-Call the customize function with org as argument.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ox" "ox.el" "72daa607ccab31f421d02552b327a7c8")
-;;; Generated autoloads from ox.el
-
-(autoload 'org-export-get-backend "ox" "\
-Return export back-end named after NAME.
-NAME is a symbol. Return nil if no such back-end is found.
-
-\(fn NAME)" nil nil)
-
-(autoload 'org-export-get-environment "ox" "\
-Collect export options from the current buffer.
-
-Optional argument BACKEND is an export back-end, as returned by
-`org-export-create-backend'.
-
-When optional argument SUBTREEP is non-nil, assume the export is
-done against the current sub-tree.
-
-Third optional argument EXT-PLIST is a property list with
-external parameters overriding Org default settings, but still
-inferior to file-local settings.
-
-\(fn &optional BACKEND SUBTREEP EXT-PLIST)" nil nil)
-
-(autoload 'org-export-as "ox" "\
-Transcode current Org buffer into BACKEND code.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-If narrowing is active in the current buffer, only transcode its
-narrowed part.
-
-If a region is active, transcode that region.
-
-When optional argument SUBTREEP is non-nil, transcode the
-sub-tree at point, extracting information from the headline
-properties first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only return body
-code, without surrounding template.
-
-Optional argument EXT-PLIST, when provided, is a property list
-with external parameters overriding Org default settings, but
-still inferior to file-local settings.
-
-Return code as a string.
-
-\(fn BACKEND &optional SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" nil nil)
-
-(autoload 'org-export-string-as "ox" "\
-Transcode STRING into BACKEND code.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-When optional argument BODY-ONLY is non-nil, only return body
-code, without preamble nor postamble.
-
-Optional argument EXT-PLIST, when provided, is a property list
-with external parameters overriding Org default settings, but
-still inferior to file-local settings.
-
-Return code as a string.
-
-\(fn STRING BACKEND &optional BODY-ONLY EXT-PLIST)" nil nil)
-
-(autoload 'org-export-replace-region-by "ox" "\
-Replace the active region by its export to BACKEND.
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-\(fn BACKEND)" nil nil)
-
-(autoload 'org-export-insert-default-template "ox" "\
-Insert all export keywords with default values at beginning of line.
-
-BACKEND is a symbol referring to the name of a registered export
-back-end, for which specific export options should be added to
-the template, or `default' for default template. When it is nil,
-the user will be prompted for a category.
-
-If SUBTREEP is non-nil, export configuration will be set up
-locally for the subtree through node properties.
-
-\(fn &optional BACKEND SUBTREEP)" t nil)
-
-(autoload 'org-export-to-buffer "ox" "\
-Call `org-export-as' with output to a specified buffer.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-BUFFER is the name of the output buffer. If it already exists,
-it will be erased first, otherwise, it will be created.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should then be accessible
-through the `org-export-stack' interface. When ASYNC is nil, the
-buffer is displayed if `org-export-show-temporary-export-buffer'
-is non-nil.
-
-Optional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and
-EXT-PLIST are similar to those used in `org-export-as', which
-see.
-
-Optional argument POST-PROCESS is a function which should accept
-no argument. It is always called within the current process,
-from BUFFER, with point at its beginning. Export back-ends can
-use it to set a major mode there, e.g,
-
- (defun org-latex-export-as-latex
- (&optional async subtreep visible-only body-only ext-plist)
- (interactive)
- (org-export-to-buffer \\='latex \"*Org LATEX Export*\"
- async subtreep visible-only body-only ext-plist (lambda () (LaTeX-mode))))
-
-This function returns BUFFER.
-
-\(fn BACKEND BUFFER &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST POST-PROCESS)" nil nil)
-
-(function-put 'org-export-to-buffer 'lisp-indent-function '2)
-
-(autoload 'org-export-to-file "ox" "\
-Call `org-export-as' with output to a specified file.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end. FILE is the name of the output file, as
-a string.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer will then be accessible
-through the `org-export-stack' interface.
-
-Optional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and
-EXT-PLIST are similar to those used in `org-export-as', which
-see.
-
-Optional argument POST-PROCESS is called with FILE as its
-argument and happens asynchronously when ASYNC is non-nil. It
-has to return a file name, or nil. Export back-ends can use this
-to send the output file through additional processing, e.g,
-
- (defun org-latex-export-to-latex
- (&optional async subtreep visible-only body-only ext-plist)
- (interactive)
- (let ((outfile (org-export-output-file-name \".tex\" subtreep)))
- (org-export-to-file \\='latex outfile
- async subtreep visible-only body-only ext-plist
- (lambda (file) (org-latex-compile file)))
-
-The function returns either a file name returned by POST-PROCESS,
-or FILE.
-
-\(fn BACKEND FILE &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST POST-PROCESS)" nil nil)
-
-(function-put 'org-export-to-file 'lisp-indent-function '2)
-
-(autoload 'org-export-dispatch "ox" "\
-Export dispatcher for Org mode.
-
-It provides an access to common export related tasks in a buffer.
-Its interface comes in two flavors: standard and expert.
-
-While both share the same set of bindings, only the former
-displays the valid keys associations in a dedicated buffer.
-Scrolling (resp. line-wise motion) in this buffer is done with
-SPC and DEL (resp. C-n and C-p) keys.
-
-Set variable `org-export-dispatch-use-expert-ui' to switch to one
-flavor or the other.
-
-When ARG is `\\[universal-argument]', repeat the last export action, with the same
-set of options used back then, on the current buffer.
-
-When ARG is `\\[universal-argument] \\[universal-argument]', display the asynchronous export stack.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-ascii" "ox-ascii.el" "4a772695edb7dedf932be8995d9c407a")
-;;; Generated autoloads from ox-ascii.el
-
-(autoload 'org-ascii-export-as-ascii "ox-ascii" "\
-Export current buffer to a text buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, strip title and
-table of contents from output.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Export is done in a buffer named \"*Org ASCII Export*\", which
-will be displayed when `org-export-show-temporary-export-buffer'
-is non-nil.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-ascii-export-to-ascii "ox-ascii" "\
-Export current buffer to a text file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, strip title and
-table of contents from output.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-ascii-publish-to-ascii "ox-ascii" "\
-Publish an Org file to ASCII.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-(autoload 'org-ascii-publish-to-latin1 "ox-ascii" "\
-Publish an Org file to Latin-1.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-(autoload 'org-ascii-publish-to-utf8 "ox-ascii" "\
-Publish an org file to UTF-8.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-beamer" "ox-beamer.el" "d99129f12ce947bce4b46176eeaf2a40")
-;;; Generated autoloads from ox-beamer.el
-
-(autoload 'org-beamer-mode "ox-beamer" "\
-Support for editing Beamer oriented Org mode files.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-beamer-export-as-latex "ox-beamer" "\
-Export current buffer as a Beamer buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Export is done in a buffer named \"*Org BEAMER Export*\", which
-will be displayed when `org-export-show-temporary-export-buffer'
-is non-nil.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-beamer-export-to-latex "ox-beamer" "\
-Export current buffer as a Beamer presentation (tex).
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-beamer-export-to-pdf "ox-beamer" "\
-Export current buffer as a Beamer presentation (PDF).
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return PDF file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-beamer-select-environment "ox-beamer" "\
-Select the environment to be used by beamer for this entry.
-While this uses (for convenience) a tag selection interface, the
-result of this command will be that the BEAMER_env *property* of
-the entry is set.
-
-In addition to this, the command will also set a tag as a visual
-aid, but the tag does not have any semantic meaning.
-
-\(fn)" t nil)
-
-(autoload 'org-beamer-publish-to-latex "ox-beamer" "\
-Publish an Org file to a Beamer presentation (LaTeX).
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-(autoload 'org-beamer-publish-to-pdf "ox-beamer" "\
-Publish an Org file to a Beamer presentation (PDF, via LaTeX).
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-html" "ox-html.el" "b2b303489000b91b8507671209cc2924")
-;;; Generated autoloads from ox-html.el
-
-(put 'org-html-head-include-default-style 'safe-local-variable 'booleanp)
-
-(put 'org-html-head 'safe-local-variable 'stringp)
-
-(put 'org-html-head-extra 'safe-local-variable 'stringp)
-
-(autoload 'org-html-htmlize-generate-css "ox-html" "\
-Create the CSS for all font definitions in the current Emacs session.
-Use this to create face definitions in your CSS style file that can then
-be used by code snippets transformed by htmlize.
-This command just produces a buffer that contains class definitions for all
-faces used in the current Emacs session. You can copy and paste the ones you
-need into your CSS file.
-
-If you then set `org-html-htmlize-output-type' to `css', calls
-to the function `org-html-htmlize-region-for-paste' will
-produce code that uses these same face definitions.
-
-\(fn)" t nil)
-
-(autoload 'org-html-export-as-html "ox-html" "\
-Export current buffer to an HTML buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"<body>\" and \"</body>\" tags.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Export is done in a buffer named \"*Org HTML Export*\", which
-will be displayed when `org-export-show-temporary-export-buffer'
-is non-nil.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-html-convert-region-to-html "ox-html" "\
-Assume the current region has Org syntax, and convert it to HTML.
-This can be used in any buffer. For example, you can write an
-itemized list in Org syntax in an HTML buffer and use this command
-to convert it.
-
-\(fn)" t nil)
-
-(autoload 'org-html-export-to-html "ox-html" "\
-Export current buffer to a HTML file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"<body>\" and \"</body>\" tags.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-html-publish-to-html "ox-html" "\
-Publish an org file to HTML.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-icalendar" "ox-icalendar.el" "9d179af5b2a082e77567ef226b3b132b")
-;;; Generated autoloads from ox-icalendar.el
-
-(autoload 'org-icalendar-export-to-ics "ox-icalendar" "\
-Export current buffer to an iCalendar file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"BEGIN:VCALENDAR\" and \"END:VCALENDAR\".
-
-Return ICS file name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY)" t nil)
-
-(autoload 'org-icalendar-export-agenda-files "ox-icalendar" "\
-Export all agenda files to iCalendar files.
-When optional argument ASYNC is non-nil, export happens in an
-external process.
-
-\(fn &optional ASYNC)" t nil)
-
-(autoload 'org-icalendar-combine-agenda-files "ox-icalendar" "\
-Combine all agenda files into a single iCalendar file.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-The file is stored under the name chosen in
-`org-icalendar-combined-agenda-file'.
-
-\(fn &optional ASYNC)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-latex" "ox-latex.el" "62b465cef63a59a8fa6b5db9fc12558c")
-;;; Generated autoloads from ox-latex.el
-
-(autoload 'org-latex-make-preamble "ox-latex" "\
-Return a formatted LaTeX preamble.
-INFO is a plist used as a communication channel. Optional
-argument TEMPLATE, when non-nil, is the header template string,
-as expected by `org-splice-latex-header'. When SNIPPET? is
-non-nil, only includes packages relevant to image generation, as
-specified in `org-latex-default-packages-alist' or
-`org-latex-packages-alist'.
-
-\(fn INFO &optional TEMPLATE SNIPPET\\=\\?)" nil nil)
-
-(autoload 'org-latex-export-as-latex "ox-latex" "\
-Export current buffer as a LaTeX buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Export is done in a buffer named \"*Org LATEX Export*\", which
-will be displayed when `org-export-show-temporary-export-buffer'
-is non-nil.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-latex-convert-region-to-latex "ox-latex" "\
-Assume the current region has Org syntax, and convert it to LaTeX.
-This can be used in any buffer. For example, you can write an
-itemized list in Org syntax in an LaTeX buffer and use this
-command to convert it.
-
-\(fn)" t nil)
-
-(autoload 'org-latex-export-to-latex "ox-latex" "\
-Export current buffer to a LaTeX file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-latex-export-to-pdf "ox-latex" "\
-Export current buffer to LaTeX then process through to PDF.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return PDF file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-latex-publish-to-latex "ox-latex" "\
-Publish an Org file to LaTeX.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-(autoload 'org-latex-publish-to-pdf "ox-latex" "\
-Publish an Org file to PDF (via LaTeX).
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-md" "ox-md.el" "68551e4d17f879632900749c3d173d5d")
-;;; Generated autoloads from ox-md.el
-
-(autoload 'org-md-export-as-markdown "ox-md" "\
-Export current buffer to a Markdown buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-Export is done in a buffer named \"*Org MD Export*\", which will
-be displayed when `org-export-show-temporary-export-buffer' is
-non-nil.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY)" t nil)
-
-(autoload 'org-md-convert-region-to-md "ox-md" "\
-Assume the current region has Org syntax, and convert it to Markdown.
-This can be used in any buffer. For example, you can write an
-itemized list in Org syntax in a Markdown buffer and use
-this command to convert it.
-
-\(fn)" t nil)
-
-(autoload 'org-md-export-to-markdown "ox-md" "\
-Export current buffer to a Markdown file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-Return output file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY)" t nil)
-
-(autoload 'org-md-publish-to-md "ox-md" "\
-Publish an org file to Markdown.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-odt" "ox-odt.el" "07f96439ecf6e83d08d1acc3b3a85023")
-;;; Generated autoloads from ox-odt.el
-
-(put 'org-odt-preferred-output-format 'safe-local-variable 'stringp)
-
-(autoload 'org-odt-export-as-odf "ox-odt" "\
-Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
-Use `org-create-math-formula' to convert LATEX-FRAG first to
-MathML. When invoked as an interactive command, use
-`org-latex-regexps' to infer LATEX-FRAG from currently active
-region. If no LaTeX fragments are found, prompt for it. Push
-MathML source to kill ring depending on the value of
-`org-export-copy-to-kill-ring'.
-
-\(fn LATEX-FRAG &optional ODF-FILE)" t nil)
-
-(autoload 'org-odt-export-as-odf-and-open "ox-odt" "\
-Export LaTeX fragment as OpenDocument formula and immediately open it.
-Use `org-odt-export-as-odf' to read LaTeX fragment and OpenDocument
-formula file.
-
-\(fn)" t nil)
-
-(autoload 'org-odt-export-to-odt "ox-odt" "\
-Export current buffer to a ODT file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-odt-convert "ox-odt" "\
-Convert IN-FILE to format OUT-FMT using a command line converter.
-IN-FILE is the file to be converted. If unspecified, it defaults
-to variable `buffer-file-name'. OUT-FMT is the desired output
-format. Use `org-odt-convert-process' as the converter. If OPEN
-is non-nil then the newly converted file is opened using
-`org-open-file'.
-
-\(fn &optional IN-FILE OUT-FMT OPEN)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-org" "ox-org.el" "49bbdfb54542fbea3d9e2c956bb0d56b")
-;;; Generated autoloads from ox-org.el
-
-(autoload 'org-org-export-as-org "ox-org" "\
-Export current buffer to an Org buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, strip document
-keywords from output.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Export is done in a buffer named \"*Org ORG Export*\", which will
-be displayed when `org-export-show-temporary-export-buffer' is
-non-nil.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-org-export-to-org "ox-org" "\
-Export current buffer to an org file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, strip document
-keywords from output.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-org-publish-to-org "ox-org" "\
-Publish an org file to org.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-publish" "ox-publish.el" "5920e1273f48b9bead560af7f30c3537")
-;;; Generated autoloads from ox-publish.el
-
-(defalias 'org-publish-project 'org-publish)
-
-(autoload 'org-publish "ox-publish" "\
-Publish PROJECT.
-
-PROJECT is either a project name, as a string, or a project
-alist (see `org-publish-project-alist' variable).
-
-When optional argument FORCE is non-nil, force publishing all
-files in PROJECT. With a non-nil optional argument ASYNC,
-publishing will be done asynchronously, in another process.
-
-\(fn PROJECT &optional FORCE ASYNC)" t nil)
-
-(autoload 'org-publish-all "ox-publish" "\
-Publish all projects.
-With prefix argument FORCE, remove all files in the timestamp
-directory and force publishing all projects. With a non-nil
-optional argument ASYNC, publishing will be done asynchronously,
-in another process.
-
-\(fn &optional FORCE ASYNC)" t nil)
-
-(autoload 'org-publish-current-file "ox-publish" "\
-Publish the current file.
-With prefix argument FORCE, force publish the file. When
-optional argument ASYNC is non-nil, publishing will be done
-asynchronously, in another process.
-
-\(fn &optional FORCE ASYNC)" t nil)
-
-(autoload 'org-publish-current-project "ox-publish" "\
-Publish the project associated with the current file.
-With a prefix argument, force publishing of all files in
-the project.
-
-\(fn &optional FORCE ASYNC)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ox-texinfo" "ox-texinfo.el" "fa6ddaec0cc36a7edd90b629e42b6fdd")
-;;; Generated autoloads from ox-texinfo.el
-
-(autoload 'org-texinfo-export-to-texinfo "ox-texinfo" "\
-Export current buffer to a Texinfo file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-texinfo-export-to-info "ox-texinfo" "\
-Export current buffer to Texinfo then process through to INFO.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-When optional argument PUB-DIR is set, use it as the publishing
-directory.
-
-Return INFO file's name.
-
-\(fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" t nil)
-
-(autoload 'org-texinfo-publish-to-texinfo "ox-texinfo" "\
-Publish an org file to Texinfo.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name.
-
-\(fn PLIST FILENAME PUB-DIR)" nil nil)
-
-(autoload 'org-texinfo-convert-region-to-texinfo "ox-texinfo" "\
-Assume the current region has Org syntax, and convert it to Texinfo.
-This can be used in any buffer. For example, you can write an
-itemized list in Org syntax in an Texinfo buffer and use this
-command to convert it.
-
-\(fn)" t nil)
-
-;;;***
-
-;;;### (autoloads nil "ox" "ox.el" (23195 45027 425189 671000))
-;;; Generated autoloads from ox.el
-
-(autoload 'org-export-get-backend "ox" "\
-Return export back-end named after NAME.
-NAME is a symbol. Return nil if no such back-end is found.
-
-\(fn NAME)" nil nil)
-
-(autoload 'org-export-get-environment "ox" "\
-Collect export options from the current buffer.
-
-Optional argument BACKEND is an export back-end, as returned by
-`org-export-create-backend'.
-
-When optional argument SUBTREEP is non-nil, assume the export is
-done against the current sub-tree.
-
-Third optional argument EXT-PLIST is a property list with
-external parameters overriding Org default settings, but still
-inferior to file-local settings.
-
-\(fn &optional BACKEND SUBTREEP EXT-PLIST)" nil nil)
-
-(autoload 'org-export-as "ox" "\
-Transcode current Org buffer into BACKEND code.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-If narrowing is active in the current buffer, only transcode its
-narrowed part.
-
-If a region is active, transcode that region.
-
-When optional argument SUBTREEP is non-nil, transcode the
-sub-tree at point, extracting information from the headline
-properties first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only return body
-code, without surrounding template.
-
-Optional argument EXT-PLIST, when provided, is a property list
-with external parameters overriding Org default settings, but
-still inferior to file-local settings.
-
-Return code as a string.
-
-\(fn BACKEND &optional SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST)" nil nil)
-
-(autoload 'org-export-string-as "ox" "\
-Transcode STRING into BACKEND code.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-When optional argument BODY-ONLY is non-nil, only return body
-code, without preamble nor postamble.
-
-Optional argument EXT-PLIST, when provided, is a property list
-with external parameters overriding Org default settings, but
-still inferior to file-local settings.
-
-Return code as a string.
-
-\(fn STRING BACKEND &optional BODY-ONLY EXT-PLIST)" nil nil)
-
-(autoload 'org-export-replace-region-by "ox" "\
-Replace the active region by its export to BACKEND.
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-\(fn BACKEND)" nil nil)
-
-(autoload 'org-export-insert-default-template "ox" "\
-Insert all export keywords with default values at beginning of line.
-
-BACKEND is a symbol referring to the name of a registered export
-back-end, for which specific export options should be added to
-the template, or `default' for default template. When it is nil,
-the user will be prompted for a category.
-
-If SUBTREEP is non-nil, export configuration will be set up
-locally for the subtree through node properties.
-
-\(fn &optional BACKEND SUBTREEP)" t nil)
-
-(autoload 'org-export-to-buffer "ox" "\
-Call `org-export-as' with output to a specified buffer.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end.
-
-BUFFER is the name of the output buffer. If it already exists,
-it will be erased first, otherwise, it will be created.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should then be accessible
-through the `org-export-stack' interface. When ASYNC is nil, the
-buffer is displayed if `org-export-show-temporary-export-buffer'
-is non-nil.
-
-Optional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and
-EXT-PLIST are similar to those used in `org-export-as', which
-see.
-
-Optional argument POST-PROCESS is a function which should accept
-no argument. It is always called within the current process,
-from BUFFER, with point at its beginning. Export back-ends can
-use it to set a major mode there, e.g,
-
- (defun org-latex-export-as-latex
- (&optional async subtreep visible-only body-only ext-plist)
- (interactive)
- (org-export-to-buffer \\='latex \"*Org LATEX Export*\"
- async subtreep visible-only body-only ext-plist (lambda () (LaTeX-mode))))
-
-This function returns BUFFER.
-
-\(fn BACKEND BUFFER &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST POST-PROCESS)" nil nil)
-
-(function-put 'org-export-to-buffer 'lisp-indent-function '2)
-
-(autoload 'org-export-to-file "ox" "\
-Call `org-export-as' with output to a specified file.
-
-BACKEND is either an export back-end, as returned by, e.g.,
-`org-export-create-backend', or a symbol referring to
-a registered back-end. FILE is the name of the output file, as
-a string.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer will then be accessible
-through the `org-export-stack' interface.
-
-Optional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and
-EXT-PLIST are similar to those used in `org-export-as', which
-see.
-
-Optional argument POST-PROCESS is called with FILE as its
-argument and happens asynchronously when ASYNC is non-nil. It
-has to return a file name, or nil. Export back-ends can use this
-to send the output file through additional processing, e.g,
-
- (defun org-latex-export-to-latex
- (&optional async subtreep visible-only body-only ext-plist)
- (interactive)
- (let ((outfile (org-export-output-file-name \".tex\" subtreep)))
- (org-export-to-file \\='latex outfile
- async subtreep visible-only body-only ext-plist
- (lambda (file) (org-latex-compile file)))
-
-The function returns either a file name returned by POST-PROCESS,
-or FILE.
-
-\(fn BACKEND FILE &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST POST-PROCESS)" nil nil)
-
-(function-put 'org-export-to-file 'lisp-indent-function '2)
-
-(autoload 'org-export-dispatch "ox" "\
-Export dispatcher for Org mode.
-
-It provides an access to common export related tasks in a buffer.
-Its interface comes in two flavors: standard and expert.
-
-While both share the same set of bindings, only the former
-displays the valid keys associations in a dedicated buffer.
-Scrolling (resp. line-wise motion) in this buffer is done with
-SPC and DEL (resp. C-n and C-p) keys.
-
-Set variable `org-export-dispatch-use-expert-ui' to switch to one
-flavor or the other.
-
-When ARG is `\\[universal-argument]', repeat the last export action, with the same
-set of options used back then, on the current buffer.
-
-When ARG is `\\[universal-argument] \\[universal-argument]', display the asynchronous export stack.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-
-(provide 'org-loaddefs)
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; org-loaddefs.el ends here
diff --git a/elpa/org-9.1.14/org-macro.el b/elpa/org-9.1.14/org-macro.el
deleted file mode 100644
index 1033db2..0000000
--- a/elpa/org-9.1.14/org-macro.el
+++ /dev/null
@@ -1,355 +0,0 @@
-;;; org-macro.el --- Macro Replacement Code for Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013-2018 Free Software Foundation, Inc.
-
-;; Author: Nicolas Goaziou <n.goaziou@gmail.com>
-;; Keywords: outlines, hypermedia, calendar, wp
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Macros are expanded with `org-macro-replace-all', which relies
-;; internally on `org-macro-expand'.
-
-;; Default templates for expansion are stored in the buffer-local
-;; variable `org-macro-templates'. This variable is updated by
-;; `org-macro-initialize-templates', which recursively calls
-;; `org-macro--collect-macros' in order to read setup files.
-
-;; Argument in macros are separated with commas. Proper escaping rules
-;; are implemented in `org-macro-escape-arguments' and arguments can
-;; be extracted from a string with `org-macro-extract-arguments'.
-
-;; Along with macros defined through #+MACRO: keyword, default
-;; templates include the following hard-coded macros:
-;; {{{time(format-string)}}},
-;; {{{property(node-property)}}},
-;; {{{input-file}}},
-;; {{{modification-time(format-string)}}},
-;; {{{n(counter,action}}}.
-
-;; Upon exporting, "ox.el" will also provide {{{author}}}, {{{date}}},
-;; {{{email}}} and {{{title}}} macros.
-
-;;; Code:
-(require 'cl-lib)
-(require 'org-macs)
-(require 'org-compat)
-
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-macro-parser "org-element" ())
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-file-contents "org" (file &optional noerror nocache))
-(declare-function org-file-url-p "org" (file))
-(declare-function org-in-commented-heading-p "org" (&optional no-inheritance))
-(declare-function org-mode "org" ())
-(declare-function org-trim "org" (s &optional keep-lead))
-(declare-function vc-backend "vc-hooks" (f))
-(declare-function vc-call "vc-hooks" (fun file &rest args) t)
-(declare-function vc-exec-after "vc-dispatcher" (code))
-
-;;; Variables
-
-(defvar-local org-macro-templates nil
- "Alist containing all macro templates in current buffer.
-Associations are in the shape of (NAME . TEMPLATE) where NAME
-stands for macro's name and template for its replacement value,
-both as strings. This is an internal variable. Do not set it
-directly, use instead:
-
- #+MACRO: name template")
-
-;;; Functions
-
-(defun org-macro--collect-macros ()
- "Collect macro definitions in current buffer and setup files.
-Return an alist containing all macro templates found."
- (letrec ((collect-macros
- (lambda (files templates)
- ;; Return an alist of macro templates. FILES is a list
- ;; of setup files names read so far, used to avoid
- ;; circular dependencies. TEMPLATES is the alist
- ;; collected so far.
- (let ((case-fold-search t))
- (org-with-wide-buffer
- (goto-char (point-min))
- (while (re-search-forward
- "^[ \t]*#\\+\\(MACRO\\|SETUPFILE\\):" nil t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'keyword)
- (let ((val (org-element-property :value element)))
- (if (equal (org-element-property :key element) "MACRO")
- ;; Install macro in TEMPLATES.
- (when (string-match
- "^\\(.*?\\)\\(?:\\s-+\\(.*\\)\\)?\\s-*$" val)
- (let* ((name (match-string 1 val))
- (template (or (match-string 2 val) ""))
- (old-cell (assoc name templates)))
- (if old-cell (setcdr old-cell template)
- (push (cons name template) templates))))
- ;; Enter setup file.
- (let* ((uri (org-unbracket-string "\"" "\"" (org-trim val)))
- (uri-is-url (org-file-url-p uri))
- (uri (if uri-is-url
- uri
- (expand-file-name uri))))
- ;; Avoid circular dependencies.
- (unless (member uri files)
- (with-temp-buffer
- (unless uri-is-url
- (setq default-directory
- (file-name-directory uri)))
- (org-mode)
- (insert (org-file-contents uri 'noerror))
- (setq templates
- (funcall collect-macros (cons uri files)
- templates)))))))))))
- templates))))
- (funcall collect-macros nil nil)))
-
-(defun org-macro-initialize-templates ()
- "Collect macro templates defined in current buffer.
-Templates are stored in buffer-local variable
-`org-macro-templates'. In addition to buffer-defined macros, the
-function installs the following ones: \"property\",
-\"time\". and, if the buffer is associated to a file,
-\"input-file\" and \"modification-time\"."
- (let* ((templates nil)
- (update-templates
- (lambda (cell)
- (let ((old-template (assoc (car cell) templates)))
- (if old-template (setcdr old-template (cdr cell))
- (push cell templates))))))
- ;; Install "property", "time" macros.
- (mapc update-templates
- (list (cons "property"
- "(eval (save-excursion
- (let ((l \"$2\"))
- (when (org-string-nw-p l)
- (condition-case _
- (let ((org-link-search-must-match-exact-headline t))
- (org-link-search l nil t))
- (error
- (error \"Macro property failed: cannot find location %s\"
- l)))))
- (org-entry-get nil \"$1\" 'selective)))")
- (cons "time" "(eval (format-time-string \"$1\"))")))
- ;; Install "input-file", "modification-time" macros.
- (let ((visited-file (buffer-file-name (buffer-base-buffer))))
- (when (and visited-file (file-exists-p visited-file))
- (mapc update-templates
- (list (cons "input-file" (file-name-nondirectory visited-file))
- (cons "modification-time"
- (format "(eval (format-time-string \"$1\" (or (and (org-string-nw-p \"$2\") (org-macro--vc-modified-time %s)) '%s)))"
- (prin1-to-string visited-file)
- (prin1-to-string
- (nth 5 (file-attributes visited-file)))))))))
- ;; Initialize and install "n" macro.
- (org-macro--counter-initialize)
- (funcall update-templates
- (cons "n" "(eval (org-macro--counter-increment \"$1\" \"$2\"))"))
- (setq org-macro-templates (nconc (org-macro--collect-macros) templates))))
-
-(defun org-macro-expand (macro templates)
- "Return expanded MACRO, as a string.
-MACRO is an object, obtained, for example, with
-`org-element-context'. TEMPLATES is an alist of templates used
-for expansion. See `org-macro-templates' for a buffer-local
-default value. Return nil if no template was found."
- (let ((template
- ;; Macro names are case-insensitive.
- (cdr (assoc-string (org-element-property :key macro) templates t))))
- (when template
- (let ((value (replace-regexp-in-string
- "\\$[0-9]+"
- (lambda (arg)
- (or (nth (1- (string-to-number (substring arg 1)))
- (org-element-property :args macro))
- ;; No argument: remove place-holder.
- ""))
- template nil 'literal)))
- ;; VALUE starts with "(eval": it is a s-exp, `eval' it.
- (when (string-match "\\`(eval\\>" value)
- (setq value (eval (read value))))
- ;; Return string.
- (format "%s" (or value ""))))))
-
-(defun org-macro-replace-all (templates &optional finalize keywords)
- "Replace all macros in current buffer by their expansion.
-
-TEMPLATES is an alist of templates used for expansion. See
-`org-macro-templates' for a buffer-local default value.
-
-If optional arg FINALIZE is non-nil, raise an error if a macro is
-found in the buffer with no definition in TEMPLATES.
-
-Optional argument KEYWORDS, when non-nil is a list of keywords,
-as strings, where macro expansion is allowed."
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((properties-regexp (format "\\`EXPORT_%s\\+?\\'"
- (regexp-opt keywords)))
- record)
- (while (re-search-forward "{{{[-A-Za-z0-9_]" nil t)
- (unless (save-match-data (org-in-commented-heading-p))
- (let* ((datum (save-match-data (org-element-context)))
- (type (org-element-type datum))
- (macro
- (cond
- ((eq type 'macro) datum)
- ;; In parsed keywords and associated node
- ;; properties, force macro recognition.
- ((or (and (eq type 'keyword)
- (member (org-element-property :key datum) keywords))
- (and (eq type 'node-property)
- (string-match-p properties-regexp
- (org-element-property :key datum))))
- (save-excursion
- (goto-char (match-beginning 0))
- (org-element-macro-parser))))))
- (when macro
- (let* ((value (org-macro-expand macro templates))
- (begin (org-element-property :begin macro))
- (signature (list begin
- macro
- (org-element-property :args macro))))
- ;; Avoid circular dependencies by checking if the same
- ;; macro with the same arguments is expanded at the
- ;; same position twice.
- (cond ((member signature record)
- (error "Circular macro expansion: %s"
- (org-element-property :key macro)))
- (value
- (push signature record)
- (delete-region
- begin
- ;; Preserve white spaces after the macro.
- (progn (goto-char (org-element-property :end macro))
- (skip-chars-backward " \t")
- (point)))
- ;; Leave point before replacement in case of
- ;; recursive expansions.
- (save-excursion (insert value)))
- (finalize
- (error "Undefined Org macro: %s; aborting"
- (org-element-property :key macro))))))))))))
-
-(defun org-macro-escape-arguments (&rest args)
- "Build macro's arguments string from ARGS.
-ARGS are strings. Return value is a string with arguments
-properly escaped and separated with commas. This is the opposite
-of `org-macro-extract-arguments'."
- (let ((s ""))
- (dolist (arg (reverse args) (substring s 1))
- (setq s
- (concat
- ","
- (replace-regexp-in-string
- "\\(\\\\*\\),"
- (lambda (m)
- (concat (make-string (1+ (* 2 (length (match-string 1 m)))) ?\\)
- ","))
- ;; If a non-terminal argument ends on backslashes, make
- ;; sure to also escape them as they will be followed by
- ;; a comma.
- (concat arg (and (not (equal s ""))
- (string-match "\\\\+\\'" arg)
- (match-string 0 arg)))
- nil t)
- s)))))
-
-(defun org-macro-extract-arguments (s)
- "Extract macro arguments from string S.
-S is a string containing comma separated values properly escaped.
-Return a list of arguments, as strings. This is the opposite of
-`org-macro-escape-arguments'."
- ;; Do not use `org-split-string' since empty strings are
- ;; meaningful here.
- (split-string
- (replace-regexp-in-string
- "\\(\\\\*\\),"
- (lambda (str)
- (let ((len (length (match-string 1 str))))
- (concat (make-string (/ len 2) ?\\)
- (if (zerop (mod len 2)) "\000" ","))))
- s nil t)
- "\000"))
-
-
-;;; Helper functions and variables for internal macros
-
-(defun org-macro--vc-modified-time (file)
- (save-window-excursion
- (when (vc-backend file)
- (let ((buf (get-buffer-create " *org-vc*"))
- (case-fold-search t)
- date)
- (unwind-protect
- (progn
- (vc-call print-log file buf nil nil 1)
- (with-current-buffer buf
- (vc-exec-after
- (lambda ()
- (goto-char (point-min))
- (when (re-search-forward "Date:?[ \t]*" nil t)
- (let ((time (parse-time-string
- (buffer-substring
- (point) (line-end-position)))))
- (when (cl-some #'identity time)
- (setq date (apply #'encode-time time))))))))
- (let ((proc (get-buffer-process buf)))
- (while (and proc (accept-process-output proc .5 nil t)))))
- (kill-buffer buf))
- date))))
-
-(defvar org-macro--counter-table nil
- "Hash table containing counter value per name.")
-
-(defun org-macro--counter-initialize ()
- "Initialize `org-macro--counter-table'."
- (setq org-macro--counter-table (make-hash-table :test #'equal)))
-
-(defun org-macro--counter-increment (name &optional action)
- "Increment counter NAME.
-NAME is a string identifying the counter.
-
-When non-nil, optional argument ACTION is a string.
-
-If the string is \"-\", keep the NAME counter at its current
-value, i.e. do not increment.
-
-If the string represents an integer, set the counter to this number.
-
-Any other non-empty string resets the counter to 1."
- (let ((name-trimmed (org-trim name))
- (action-trimmed (when (org-string-nw-p action)
- (org-trim action))))
- (puthash name-trimmed
- (cond ((not (org-string-nw-p action-trimmed))
- (1+ (gethash name-trimmed org-macro--counter-table 0)))
- ((string= "-" action-trimmed)
- (gethash name-trimmed org-macro--counter-table 1))
- ((string-match-p "\\`[0-9]+\\'" action-trimmed)
- (string-to-number action-trimmed))
- (t 1))
- org-macro--counter-table)))
-
-
-(provide 'org-macro)
-;;; org-macro.el ends here
diff --git a/elpa/org-9.1.14/org-macro.elc b/elpa/org-9.1.14/org-macro.elc
deleted file mode 100644
index 2491103..0000000
--- a/elpa/org-9.1.14/org-macro.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-macs.el b/elpa/org-9.1.14/org-macs.el
deleted file mode 100644
index 510ece1..0000000
--- a/elpa/org-9.1.14/org-macs.el
+++ /dev/null
@@ -1,429 +0,0 @@
-;;; org-macs.el --- Top-level Definitions for Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains macro definitions, defsubst definitions, other
-;; stuff needed for compilation and top-level forms in Org mode, as
-;; well lots of small functions that are not Org mode specific but
-;; simply generally useful stuff.
-
-;;; Code:
-
-(defmacro org-with-gensyms (symbols &rest body)
- (declare (debug (sexp body)) (indent 1))
- `(let ,(mapcar (lambda (s)
- `(,s (make-symbol (concat "--" (symbol-name ',s)))))
- symbols)
- ,@body))
-
-(defun org-string-nw-p (s)
- "Return S if S is a string containing a non-blank character.
-Otherwise, return nil."
- (and (stringp s)
- (string-match-p "[^ \r\t\n]" s)
- s))
-
-(defun org-split-string (string &optional separators)
- "Splits STRING into substrings at SEPARATORS.
-
-SEPARATORS is a regular expression. When nil, it defaults to
-\"[ \f\t\n\r\v]+\".
-
-Unlike `split-string', matching SEPARATORS at the beginning and
-end of string are ignored."
- (let ((separators (or separators "[ \f\t\n\r\v]+")))
- (when (string-match (concat "\\`" separators) string)
- (setq string (replace-match "" nil nil string)))
- (when (string-match (concat separators "\\'") string)
- (setq string (replace-match "" nil nil string)))
- (split-string string separators)))
-
-(defun org-string-display (string)
- "Return STRING as it is displayed in the current buffer.
-This function takes into consideration `invisible' and `display'
-text properties."
- (let* ((build-from-parts
- (lambda (s property filter)
- ;; Build a new string out of string S. On every group of
- ;; contiguous characters with the same PROPERTY value,
- ;; call FILTER on the properties list at the beginning of
- ;; the group. If it returns a string, replace the
- ;; characters in the group with it. Otherwise, preserve
- ;; those characters.
- (let ((len (length s))
- (new "")
- (i 0)
- (cursor 0))
- (while (setq i (text-property-not-all i len property nil s))
- (let ((end (next-single-property-change i property s len))
- (value (funcall filter (text-properties-at i s))))
- (when value
- (setq new (concat new (substring s cursor i) value))
- (setq cursor end))
- (setq i end)))
- (concat new (substring s cursor)))))
- (prune-invisible
- (lambda (s)
- (funcall build-from-parts s 'invisible
- (lambda (props)
- ;; If `invisible' property in PROPS means text
- ;; is to be invisible, return the empty string.
- ;; Otherwise return nil so that the part is
- ;; skipped.
- (and (or (eq t buffer-invisibility-spec)
- (assoc-string (plist-get props 'invisible)
- buffer-invisibility-spec))
- "")))))
- (replace-display
- (lambda (s)
- (funcall build-from-parts s 'display
- (lambda (props)
- ;; If there is any string specification in
- ;; `display' property return it. Also attach
- ;; other text properties on the part to that
- ;; string (face...).
- (let* ((display (plist-get props 'display))
- (value (if (stringp display) display
- (cl-some #'stringp display))))
- (when value
- (apply #'propertize
- ;; Displayed string could contain
- ;; invisible parts, but no nested
- ;; display.
- (funcall prune-invisible value)
- 'display
- (and (not (stringp display))
- (cl-remove-if #'stringp display))
- props))))))))
- ;; `display' property overrides `invisible' one. So we first
- ;; replace characters with `display' property. Then we remove
- ;; invisible characters.
- (funcall prune-invisible (funcall replace-display string))))
-
-(defun org-string-width (string)
- "Return width of STRING when displayed in the current buffer.
-Unlike `string-width', this function takes into consideration
-`invisible' and `display' text properties."
- (string-width (org-string-display string)))
-
-(defun org-not-nil (v)
- "If V not nil, and also not the string \"nil\", then return V.
-Otherwise return nil."
- (and v (not (equal v "nil")) v))
-
-(defmacro org-preserve-lc (&rest body)
- (declare (debug (body)))
- (org-with-gensyms (line col)
- `(let ((,line (org-current-line))
- (,col (current-column)))
- (unwind-protect
- (progn ,@body)
- (org-goto-line ,line)
- (org-move-to-column ,col)))))
-
-;; Use `org-with-silent-modifications' to ignore cosmetic changes and
-;; `org-unmodified' to ignore real text modifications
-(defmacro org-unmodified (&rest body)
- "Run BODY while preserving the buffer's `buffer-modified-p' state."
- (declare (debug (body)))
- (org-with-gensyms (was-modified)
- `(let ((,was-modified (buffer-modified-p)))
- (unwind-protect
- (let ((buffer-undo-list t)
- (inhibit-modification-hooks t))
- ,@body)
- (set-buffer-modified-p ,was-modified)))))
-
-(defmacro org-without-partial-completion (&rest body)
- (declare (debug (body)))
- `(if (and (boundp 'partial-completion-mode)
- partial-completion-mode
- (fboundp 'partial-completion-mode))
- (unwind-protect
- (progn
- (partial-completion-mode -1)
- ,@body)
- (partial-completion-mode 1))
- ,@body))
-
-(defmacro org-with-point-at (pom &rest body)
- "Move to buffer and point of point-or-marker POM for the duration of BODY."
- (declare (debug (form body)) (indent 1))
- (org-with-gensyms (mpom)
- `(let ((,mpom ,pom))
- (save-excursion
- (if (markerp ,mpom) (set-buffer (marker-buffer ,mpom)))
- (org-with-wide-buffer
- (goto-char (or ,mpom (point)))
- ,@body)))))
-
-(defmacro org-with-remote-undo (buffer &rest body)
- "Execute BODY while recording undo information in two buffers."
- (declare (debug (form body)) (indent 1))
- (org-with-gensyms (cline cmd buf1 buf2 undo1 undo2 c1 c2)
- `(let ((,cline (org-current-line))
- (,cmd this-command)
- (,buf1 (current-buffer))
- (,buf2 ,buffer)
- (,undo1 buffer-undo-list)
- (,undo2 (with-current-buffer ,buffer buffer-undo-list))
- ,c1 ,c2)
- ,@body
- (when org-agenda-allow-remote-undo
- (setq ,c1 (org-verify-change-for-undo
- ,undo1 (with-current-buffer ,buf1 buffer-undo-list))
- ,c2 (org-verify-change-for-undo
- ,undo2 (with-current-buffer ,buf2 buffer-undo-list)))
- (when (or ,c1 ,c2)
- ;; make sure there are undo boundaries
- (and ,c1 (with-current-buffer ,buf1 (undo-boundary)))
- (and ,c2 (with-current-buffer ,buf2 (undo-boundary)))
- ;; remember which buffer to undo
- (push (list ,cmd ,cline ,buf1 ,c1 ,buf2 ,c2)
- org-agenda-undo-list))))))
-
-(defmacro org-no-read-only (&rest body)
- "Inhibit read-only for BODY."
- (declare (debug (body)))
- `(let ((inhibit-read-only t)) ,@body))
-
-(defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t
- rear-nonsticky t mouse-map t fontified t
- org-emphasis t)
- "Properties to remove when a string without properties is wanted.")
-
-(defsubst org-no-properties (s &optional restricted)
- "Remove all text properties from string S.
-When RESTRICTED is non-nil, only remove the properties listed
-in `org-rm-props'."
- (if restricted (remove-text-properties 0 (length s) org-rm-props s)
- (set-text-properties 0 (length s) nil s))
- s)
-
-(defsubst org-get-alist-option (option key)
- (cond ((eq key t) t)
- ((eq option t) t)
- ((assoc key option) (cdr (assoc key option)))
- (t (let ((r (cdr (assq 'default option))))
- (if (listp r) (delq nil r) r)))))
-
-(defsubst org-check-external-command (cmd &optional use no-error)
- "Check if external program CMD for USE exists, error if not.
-When the program does exist, return its path.
-When it does not exist and NO-ERROR is set, return nil.
-Otherwise, throw an error. The optional argument USE can describe what this
-program is needed for, so that the error message can be more informative."
- (or (executable-find cmd)
- (if no-error
- nil
- (error "Can't find `%s'%s" cmd
- (if use (format " (%s)" use) "")))))
-
-(defsubst org-last (list)
- "Return the last element of LIST."
- (car (last list)))
-
-(defun org-let (list &rest body)
- (eval (cons 'let (cons list body))))
-(put 'org-let 'lisp-indent-function 1)
-
-(defun org-let2 (list1 list2 &rest body)
- (eval (cons 'let (cons list1 (list (cons 'let (cons list2 body)))))))
-(put 'org-let2 'lisp-indent-function 2)
-
-(defsubst org-call-with-arg (command arg)
- "Call COMMAND interactively, but pretend prefix arg was ARG."
- (let ((current-prefix-arg arg)) (call-interactively command)))
-
-(defsubst org-current-line (&optional pos)
- (save-excursion
- (and pos (goto-char pos))
- ;; works also in narrowed buffer, because we start at 1, not point-min
- (+ (if (bolp) 1 0) (count-lines 1 (point)))))
-
-(defsubst org-goto-line (N)
- (save-restriction
- (widen)
- (goto-char (point-min))
- (forward-line (1- N))))
-
-(defsubst org-current-line-string (&optional to-here)
- (buffer-substring (point-at-bol) (if to-here (point) (point-at-eol))))
-
-(defsubst org-pos-in-match-range (pos n)
- (and (match-beginning n)
- (<= (match-beginning n) pos)
- (>= (match-end n) pos)))
-
-(defun org-match-line (regexp)
- "Match REGEXP at the beginning of the current line."
- (save-excursion
- (beginning-of-line)
- (looking-at regexp)))
-
-(defun org-plist-delete (plist property)
- "Delete PROPERTY from PLIST.
-This is in contrast to merely setting it to 0."
- (let (p)
- (while plist
- (if (not (eq property (car plist)))
- (setq p (plist-put p (car plist) (nth 1 plist))))
- (setq plist (cddr plist)))
- p))
-
-(defmacro org-save-outline-visibility (use-markers &rest body)
- "Save and restore outline visibility around BODY.
-If USE-MARKERS is non-nil, use markers for the positions.
-This means that the buffer may change while running BODY,
-but it also means that the buffer should stay alive
-during the operation, because otherwise all these markers will
-point nowhere."
- (declare (debug (form body)) (indent 1))
- (org-with-gensyms (data)
- `(let ((,data (org-outline-overlay-data ,use-markers)))
- (unwind-protect
- (prog1 (progn ,@body)
- (org-set-outline-overlay-data ,data))
- (when ,use-markers
- (dolist (c ,data)
- (when (markerp (car c)) (move-marker (car c) nil))
- (when (markerp (cdr c)) (move-marker (cdr c) nil))))))))
-
-(defmacro org-with-wide-buffer (&rest body)
- "Execute body while temporarily widening the buffer."
- (declare (debug (body)))
- `(save-excursion
- (save-restriction
- (widen)
- ,@body)))
-
-(defmacro org-with-limited-levels (&rest body)
- "Execute BODY with limited number of outline levels."
- (declare (debug (body)))
- `(progn
- (defvar org-called-with-limited-levels)
- (defvar org-outline-regexp)
- (defvar outline-regexp)
- (defvar org-outline-regexp-bol)
- (let* ((org-called-with-limited-levels t)
- (org-outline-regexp (org-get-limited-outline-regexp))
- (outline-regexp org-outline-regexp)
- (org-outline-regexp-bol (concat "^" org-outline-regexp)))
- ,@body)))
-
-(defvar org-outline-regexp) ; defined in org.el
-(defvar org-odd-levels-only) ; defined in org.el
-(defvar org-inlinetask-min-level) ; defined in org-inlinetask.el
-(defun org-get-limited-outline-regexp ()
- "Return outline-regexp with limited number of levels.
-The number of levels is controlled by `org-inlinetask-min-level'"
- (cond ((not (derived-mode-p 'org-mode))
- outline-regexp)
- ((not (featurep 'org-inlinetask))
- org-outline-regexp)
- (t
- (let* ((limit-level (1- org-inlinetask-min-level))
- (nstars (if org-odd-levels-only
- (1- (* limit-level 2))
- limit-level)))
- (format "\\*\\{1,%d\\} " nstars)))))
-
-(defmacro org-eval-in-environment (environment form)
- (declare (debug (form form)) (indent 1))
- `(eval (list 'let ,environment ',form)))
-
-(defun org-make-parameter-alist (flat)
- "Return alist based on FLAT.
-FLAT is a list with alternating symbol names and values. The
-returned alist is a list of lists with the symbol name in car and
-the value in cdr."
- (when flat
- (cons (list (car flat) (cadr flat))
- (org-make-parameter-alist (cddr flat)))))
-
-;;;###autoload
-(defmacro org-load-noerror-mustsuffix (file)
- "Load FILE with optional arguments NOERROR and MUSTSUFFIX."
- `(load ,file 'noerror nil nil 'mustsuffix))
-
-(defun org-unbracket-string (pre post string)
- "Remove PRE/POST from the beginning/end of STRING.
-Both PRE and POST must be pre-/suffixes of STRING, or neither is
-removed."
- (if (and (string-prefix-p pre string)
- (string-suffix-p post string))
- (substring string (length pre) (- (length post)))
- string))
-
-(defun org-read-function (prompt &optional allow-empty?)
- "Prompt for a function.
-If ALLOW-EMPTY? is non-nil, return nil rather than raising an
-error when the user input is empty."
- (let ((func (completing-read prompt obarray #'fboundp t)))
- (cond ((not (string= func ""))
- (intern func))
- (allow-empty? nil)
- (t (user-error "Empty input is not valid")))))
-
-(defconst org-unique-local-variables
- '(org-element--cache
- org-element--cache-objects
- org-element--cache-sync-keys
- org-element--cache-sync-requests
- org-element--cache-sync-timer)
- "List of local variables that cannot be transferred to another buffer.")
-
-(defun org-get-local-variables ()
- "Return a list of all local variables in an Org mode buffer."
- (delq nil
- (mapcar
- (lambda (x)
- (let* ((binding (if (symbolp x) (list x) (list (car x) (cdr x))))
- (name (car binding)))
- (and (not (get name 'org-state))
- (not (memq name org-unique-local-variables))
- (string-match-p
- "\\`\\(org-\\|orgtbl-\\|outline-\\|comment-\\|paragraph-\\|\
-auto-fill\\|normal-auto-fill\\|fill-paragraph\\|indent-\\)"
- (symbol-name name))
- binding)))
- (with-temp-buffer
- (org-mode)
- (buffer-local-variables)))))
-
-(defun org-clone-local-variables (from-buffer &optional regexp)
- "Clone local variables from FROM-BUFFER.
-Optional argument REGEXP selects variables to clone."
- (dolist (pair (buffer-local-variables from-buffer))
- (pcase pair
- (`(,name . ,value) ;ignore unbound variables
- (when (and (not (memq name org-unique-local-variables))
- (or (null regexp) (string-match-p regexp (symbol-name name))))
- (ignore-errors (set (make-local-variable name) value)))))))
-
-
-(provide 'org-macs)
-
-;;; org-macs.el ends here
diff --git a/elpa/org-9.1.14/org-macs.elc b/elpa/org-9.1.14/org-macs.elc
deleted file mode 100644
index f2d0621..0000000
--- a/elpa/org-9.1.14/org-macs.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-mhe.el b/elpa/org-9.1.14/org-mhe.el
deleted file mode 100644
index e74a9ee..0000000
--- a/elpa/org-9.1.14/org-mhe.el
+++ /dev/null
@@ -1,219 +0,0 @@
-;;; org-mhe.el --- Support for Links to MH-E Messages -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Thomas Baumann <thomas dot baumann at ch dot tum dot de>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements links to MH-E messages from within Org.
-;; Org mode loads this module by default - if this is not what you want,
-;; configure the variable `org-modules'.
-
-;;; Code:
-
-(require 'org-macs)
-(require 'org)
-
-;; Customization variables
-
-(defcustom org-mhe-search-all-folders nil
- "Non-nil means the search for the mh-message may extend to all folders.
-When non-nil, the search for a message will extend to all other
-folders if it cannot be found in the folder given in the link.
-Searching all folders may be slow with the default pick based
-search but is very efficient with one of the other search engines
-supported by MH-E."
- :group 'org-link-follow
- :type 'boolean)
-
-;; Declare external functions and variables
-(declare-function mh-display-msg "mh-show" (msg-num folder-name))
-(declare-function mh-find-path "mh-utils" ())
-(declare-function mh-get-header-field "mh-utils" (field))
-(declare-function mh-get-msg-num "mh-utils" (error-if-no-message))
-(declare-function mh-header-display "mh-show" ())
-(declare-function mh-index-previous-folder "mh-search" ())
-(declare-function mh-normalize-folder-name "mh-utils"
- (folder &optional empty-string-okay dont-remove-trailing-slash
- return-nil-if-folder-empty))
-(declare-function mh-search "mh-search"
- (folder search-regexp &optional redo-search-flag
- window-config))
-(declare-function mh-search-choose "mh-search" (&optional searcher))
-(declare-function mh-show "mh-show" (&optional message redisplay-flag))
-(declare-function mh-show-buffer-message-number "mh-comp" (&optional buffer))
-(declare-function mh-show-header-display "mh-show" t t)
-(declare-function mh-show-msg "mh-show" (msg))
-(declare-function mh-show-show "mh-show" t t)
-(declare-function mh-visit-folder "mh-folder" (folder &optional
- range index-data))
-(defvar mh-progs)
-(defvar mh-current-folder)
-(defvar mh-show-folder-buffer)
-(defvar mh-index-folder)
-(defvar mh-searcher)
-(defvar mh-search-regexp-builder)
-
-;; Install the link type
-(org-link-set-parameters "mhe" :follow #'org-mhe-open :store #'org-mhe-store-link)
-
-;; Implementation
-(defun org-mhe-store-link ()
- "Store a link to an MH-E folder or message."
- (when (or (eq major-mode 'mh-folder-mode)
- (eq major-mode 'mh-show-mode))
- (save-window-excursion
- (let* ((from (org-mhe-get-header "From:"))
- (to (org-mhe-get-header "To:"))
- (message-id (org-mhe-get-header "Message-Id:"))
- (subject (org-mhe-get-header "Subject:"))
- (date (org-mhe-get-header "Date:"))
- link desc)
- (org-store-link-props :type "mh" :from from :to to :date date
- :subject subject :message-id message-id)
- (setq desc (org-email-link-description))
- (setq link (concat "mhe:" (org-mhe-get-message-real-folder) "#"
- (org-unbracket-string "<" ">" message-id)))
- (org-add-link-props :link link :description desc)
- link))))
-
-(defun org-mhe-open (path)
- "Follow an MH-E message link specified by PATH."
- (let (folder article)
- (if (not (string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" path))
- (error "Error in MH-E link"))
- (setq folder (match-string 1 path)
- article (match-string 3 path))
- (org-mhe-follow-link folder article)))
-
-;;; mh-e integration based on planner-mode
-(defun org-mhe-get-message-real-folder ()
- "Return the name of the real folder for the current message.
-So if you use sequences, it will now work."
- (save-excursion
- (let* ((folder
- (if (eq major-mode 'mh-folder-mode)
- mh-current-folder
- ;; Refer to the show buffer
- mh-show-folder-buffer))
- (end-index
- (if (boundp 'mh-index-folder)
- (min (length mh-index-folder) (length folder))))
- )
- ;; a simple test on mh-index-data does not work, because
- ;; mh-index-data is always nil in a show buffer.
- (if (and (boundp 'mh-index-folder)
- (string= mh-index-folder (substring folder 0 end-index)))
- (if (eq major-mode 'mh-show-mode)
- (save-window-excursion
- (let (pop-up-frames)
- (when (buffer-live-p (get-buffer folder))
- (progn
- (pop-to-buffer folder)
- (org-mhe-get-message-folder-from-index)
- )
- )))
- (org-mhe-get-message-folder-from-index)
- )
- folder
- )
- )))
-
-(defun org-mhe-get-message-folder-from-index ()
- "Return the name of the message folder in an index folder buffer."
- (save-excursion
- (mh-index-previous-folder)
- (if (re-search-forward "^\\(+.*\\)$" nil t)
- (message "%s" (match-string 1)))))
-
-(defun org-mhe-get-message-folder ()
- "Return the name of the current message folder.
-Be careful if you use sequences."
- (save-excursion
- (if (eq major-mode 'mh-folder-mode)
- mh-current-folder
- ;; Refer to the show buffer
- mh-show-folder-buffer)))
-
-(defun org-mhe-get-message-num ()
- "Return the number of the current message.
-Be careful if you use sequences."
- (save-excursion
- (if (eq major-mode 'mh-folder-mode)
- (mh-get-msg-num nil)
- ;; Refer to the show buffer
- (mh-show-buffer-message-number))))
-
-(defun org-mhe-get-header (header)
- "Return the field for HEADER of the message in folder mode.
-This will create a show buffer for the corresponding message. If
-you have a better idea of how to do this then please let us know."
- (let* ((folder (org-mhe-get-message-folder))
- (num (org-mhe-get-message-num))
- (buffer (get-buffer-create (concat "show-" folder)))
- (header-field))
- (with-current-buffer buffer
- (mh-display-msg num folder)
- (if (eq major-mode 'mh-folder-mode)
- (mh-header-display)
- (mh-show-header-display))
- (set-buffer buffer)
- (setq header-field (mh-get-header-field header))
- (if (eq major-mode 'mh-folder-mode)
- (mh-show)
- (mh-show-show))
- (org-trim header-field))))
-
-(defun org-mhe-follow-link (folder article)
- "Follow an MH-E link to FOLDER and ARTICLE.
-If ARTICLE is nil FOLDER is shown. If the configuration variable
-`org-mhe-search-all-folders' is t and `mh-searcher' is pick,
-ARTICLE is searched in all folders. Indexed searches (swish++,
-namazu, and others supported by MH-E) will always search in all
-folders."
- (require 'mh-e)
- (require 'mh-search)
- (require 'mh-utils)
- (mh-find-path)
- (if (not article)
- (mh-visit-folder (mh-normalize-folder-name folder))
- (mh-search-choose)
- (if (eq mh-searcher 'pick)
- (progn
- (setq article (org-add-angle-brackets article))
- (mh-search folder (list "--message-id" article))
- (when (and org-mhe-search-all-folders
- (not (org-mhe-get-message-real-folder)))
- (kill-buffer)
- (mh-search "+" (list "--message-id" article))))
- (if mh-search-regexp-builder
- (mh-search "+" (funcall mh-search-regexp-builder
- (list (cons 'message-id article))))
- (mh-search "+" article)))
- (if (org-mhe-get-message-real-folder)
- (mh-show-msg 1)
- (kill-buffer)
- (error "Message not found"))))
-
-(provide 'org-mhe)
-
-;;; org-mhe.el ends here
diff --git a/elpa/org-9.1.14/org-mhe.elc b/elpa/org-9.1.14/org-mhe.elc
deleted file mode 100644
index c76dc89..0000000
--- a/elpa/org-9.1.14/org-mhe.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-mobile.el b/elpa/org-9.1.14/org-mobile.el
deleted file mode 100644
index cbf169f..0000000
--- a/elpa/org-9.1.14/org-mobile.el
+++ /dev/null
@@ -1,1115 +0,0 @@
-;;; org-mobile.el --- Code for Asymmetric Sync With a Mobile Device -*- lexical-binding: t; -*-
-;; Copyright (C) 2009-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-;;
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-;;
-;; This file contains the code to interact with Richard Moreland's
-;; iPhone application MobileOrg, as well as with the Android version
-;; by Matthew Jones. This code is documented in Appendix B of the Org
-;; manual. The code is not specific for the iPhone and Android - any
-;; external viewer/flagging/editing application that uses the same
-;; conventions could be used.
-
-(require 'org)
-(require 'org-agenda)
-(require 'cl-lib)
-
-(defvar org-agenda-keep-restricted-file-list)
-
-;;; Code:
-
-(defgroup org-mobile nil
- "Options concerning support for a viewer/editor on a mobile device."
- :tag "Org Mobile"
- :group 'org)
-
-(defcustom org-mobile-files '(org-agenda-files)
- "Files to be staged for MobileOrg.
-This is basically a list of files and directories. Files will be staged
-directly. Directories will be search for files with the extension `.org'.
-In addition to this, the list may also contain the following symbols:
-
-org-agenda-files
- This means include the complete, unrestricted list of files given in
- the variable `org-agenda-files'.
-org-agenda-text-search-extra-files
- Include the files given in the variable
- `org-agenda-text-search-extra-files'"
- :group 'org-mobile
- :type '(list :greedy t
- (option (const :tag "org-agenda-files" org-agenda-files))
- (option (const :tag "org-agenda-text-search-extra-files"
- org-agenda-text-search-extra-files))
- (repeat :inline t :tag "Additional files"
- (file))))
-
-(defcustom org-mobile-files-exclude-regexp ""
- "A regexp to exclude files from `org-mobile-files'."
- :group 'org-mobile
- :version "24.1"
- :type 'regexp)
-
-(defcustom org-mobile-directory ""
- "The WebDAV directory where the interaction with the mobile takes place."
- :group 'org-mobile
- :type 'directory)
-
-(defcustom org-mobile-allpriorities "A B C"
- "Default set of priority cookies for the index file."
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string
- :group 'org-mobile)
-
-(defcustom org-mobile-use-encryption nil
- "Non-nil means keep only encrypted files on the WebDAV server.
-Encryption uses AES-256, with a password given in
-`org-mobile-encryption-password'.
-When nil, plain files are kept on the server.
-Turning on encryption requires setting the same password in the MobileOrg
-application. Before turning this on, check of MobileOrg does already
-support it - at the time of this writing it did not yet."
- :group 'org-mobile
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-mobile-encryption-tempfile "~/orgtmpcrypt"
- "File that is being used as a temporary file for encryption.
-This must be local file on your local machine (not on the WebDAV server).
-You might want to put this file into a directory where only you have access."
- :group 'org-mobile
- :version "24.1"
- :type 'directory)
-
-(defcustom org-mobile-encryption-password ""
- "Password for encrypting files uploaded to the server.
-This is a single password which is used for AES-256 encryption. The same
-password must also be set in the MobileOrg application. All Org files,
-including mobileorg.org will be encrypted using this password.
-
-SECURITY CONSIDERATIONS:
-
-Note that, when Org runs the encryption commands, the password could
-be visible briefly on your system with the `ps' command. So this method is
-only intended to keep the files secure on the server, not on your own machine.
-
-Also, if you set this variable in an init file (.emacs or .emacs.d/init.el
-or custom.el...) and if that file is stored in a way so that other can read
-it, this also limits the security of this approach. You can also leave
-this variable empty - Org will then ask for the password once per Emacs
-session."
- :group 'org-mobile
- :version "24.1"
- :type '(string :tag "Password"))
-
-(defvar org-mobile-encryption-password-session nil)
-
-(defun org-mobile-encryption-password ()
- (or (org-string-nw-p org-mobile-encryption-password)
- (org-string-nw-p org-mobile-encryption-password-session)
- (setq org-mobile-encryption-password-session
- (read-passwd "Password for MobileOrg: " t))))
-
-(defcustom org-mobile-inbox-for-pull "~/org/from-mobile.org"
- "The file where captured notes and flags will be appended to.
-During the execution of `org-mobile-pull', the file
-`org-mobile-capture-file' will be emptied it's contents have
-been appended to the file given here. This file should be in
-`org-directory', and not in the staging area or on the web server."
- :group 'org-mobile
- :type 'file)
-
-(defconst org-mobile-capture-file "mobileorg.org"
- "The capture file where the mobile stores captured notes and flags.
-This should not be changed, because MobileOrg assumes this name.")
-
-(defcustom org-mobile-index-file "index.org"
- "The index file with links to all Org files that should be loaded by MobileOrg.
-Relative to `org-mobile-directory'. The Address field in the MobileOrg setup
-should point to this file."
- :group 'org-mobile
- :type 'file)
-
-(defcustom org-mobile-agendas 'all
- "The agendas that should be pushed to MobileOrg.
-Allowed values:
-
-default the weekly agenda and the global TODO list
-custom all custom agendas defined by the user
-all the custom agendas and the default ones
-list a list of selection key(s) as string."
- :group 'org-mobile
- :version "24.1"
- :type '(choice
- (const :tag "Default Agendas" default)
- (const :tag "Custom Agendas" custom)
- (const :tag "Default and Custom Agendas" all)
- (repeat :tag "Selected"
- (string :tag "Selection Keys"))))
-
-(defcustom org-mobile-force-id-on-agenda-items t
- "Non-nil means make all agenda items carry an ID."
- :group 'org-mobile
- :type 'boolean)
-
-(defcustom org-mobile-force-mobile-change nil
- "Non-nil means force the change made on the mobile device.
-So even if there have been changes to the computer version of the entry,
-force the new value set on the mobile.
-When nil, mark the entry from the mobile with an error message.
-Instead of nil or t, this variable can also be a list of symbols, indicating
-the editing types for which the mobile version should always dominate."
- :group 'org-mobile
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (set :greedy t :tag "Specify"
- (const todo)
- (const tags)
- (const priority)
- (const heading)
- (const body))))
-
-(defcustom org-mobile-checksum-binary (or (executable-find "shasum")
- (executable-find "sha1sum")
- (executable-find "md5sum")
- (executable-find "md5"))
- "Executable used for computing checksums of agenda files."
- :group 'org-mobile
- :type 'string)
-
-(defvar org-mobile-pre-push-hook nil
- "Hook run before running `org-mobile-push'.
-This could be used to clean up `org-mobile-directory', for example to
-remove files that used to be included in the agenda but no longer are.
-The presence of such files would not really be a problem, but after time
-they may accumulate.")
-
-(defvar org-mobile-post-push-hook nil
- "Hook run after running `org-mobile-push'.
-If Emacs does not have direct write access to the WebDAV directory used
-by the mobile device, this hook should be used to copy all files from the
-local staging directory `org-mobile-directory' to the WebDAV directory,
-for example using `rsync' or `scp'.")
-
-(defvar org-mobile-pre-pull-hook nil
- "Hook run before executing `org-mobile-pull'.
-If Emacs does not have direct write access to the WebDAV directory used
-by the mobile device, this hook should be used to copy the capture file
-`mobileorg.org' from the WebDAV location to the local staging
-directory `org-mobile-directory'.")
-
-(defvar org-mobile-post-pull-hook nil
- "Hook run after running `org-mobile-pull', only if new items were found.
-If Emacs does not have direct write access to the WebDAV directory used
-by the mobile device, this hook should be used to copy the emptied
-capture file `mobileorg.org' back to the WebDAV directory, for example
-using `rsync' or `scp'.")
-
-(defconst org-mobile-action-alist '(("edit" . org-mobile-edit))
- "Alist with flags and actions for mobile sync.
-When flagging an entry, MobileOrg will create entries that look like
-
- * F(action:data) [[id:entry-id][entry title]]
-
-This alist defines that the ACTION in the parentheses of F()
-should mean, i.e. what action should be taken. The :data part in
-the parenthesis is optional. If present, the string after the
-colon will be passed to the action function as the first argument
-variable.
-
-The car of each elements of the alist is an actions string. The
-cdr is a function that is called with the cursor on the headline
-of that entry. It should accept three arguments, the :data part,
-the old and new values for the entry.")
-
-(defvar org-mobile-last-flagged-files nil
- "List of files containing entries flagged in the latest pull.")
-
-(defvar org-mobile-files-alist nil)
-(defvar org-mobile-checksum-files nil)
-
-(defun org-mobile-prepare-file-lists ()
- (setq org-mobile-files-alist (org-mobile-files-alist))
- (setq org-mobile-checksum-files nil))
-
-(defun org-mobile-files-alist ()
- "Expand the list in `org-mobile-files' to a list of existing files.
-Also exclude files matching `org-mobile-files-exclude-regexp'."
- (let* ((include-archives
- (and (member 'org-agenda-text-search-extra-files org-mobile-files)
- (member 'agenda-archives org-agenda-text-search-extra-files)
- t))
- (files
- (apply 'append
- (mapcar
- (lambda (f)
- (cond
- ((eq f 'org-agenda-files)
- (org-agenda-files t include-archives))
- ((eq f 'org-agenda-text-search-extra-files)
- (delq 'agenda-archives
- (copy-sequence
- org-agenda-text-search-extra-files)))
- ((and (stringp f) (file-directory-p f))
- (directory-files f 'full "\\.org\\'"))
- ((and (stringp f) (file-exists-p f))
- (list f))
- (t nil)))
- org-mobile-files)))
- (files (delq
- nil
- (mapcar (lambda (f)
- (unless (and (not (string= org-mobile-files-exclude-regexp ""))
- (string-match org-mobile-files-exclude-regexp f))
- (identity f)))
- files)))
- (orgdir-uname (file-name-as-directory (file-truename org-directory)))
- (orgdir-re (concat "\\`" (regexp-quote orgdir-uname)))
- uname seen rtn file link-name)
- ;; Make the files unique, and determine the name under which they will
- ;; be listed.
- (while (setq file (pop files))
- (if (not (file-name-absolute-p file))
- (setq file (expand-file-name file org-directory)))
- (setq uname (file-truename file))
- (unless (member uname seen)
- (push uname seen)
- (if (string-match orgdir-re uname)
- (setq link-name (substring uname (match-end 0)))
- (setq link-name (file-name-nondirectory uname)))
- (push (cons file link-name) rtn)))
- (nreverse rtn)))
-
-;;;###autoload
-(defun org-mobile-push ()
- "Push the current state of Org affairs to the target directory.
-This will create the index file, copy all agenda files there, and also
-create all custom agenda views, for upload to the mobile phone."
- (interactive)
- (let ((org-agenda-buffer-name "*SUMO*")
- (org-agenda-tag-filter org-agenda-tag-filter)
- (org-agenda-redo-command org-agenda-redo-command))
- (save-excursion
- (save-restriction
- (save-window-excursion
- (run-hooks 'org-mobile-pre-push-hook)
- (org-mobile-check-setup)
- (org-mobile-prepare-file-lists)
- (message "Creating agendas...")
- (let ((inhibit-redisplay t)
- (org-agenda-files (mapcar 'car org-mobile-files-alist)))
- (org-mobile-create-sumo-agenda))
- (message "Creating agendas...done")
- (org-save-all-org-buffers) ; to save any IDs created by this process
- (message "Copying files...")
- (org-mobile-copy-agenda-files)
- (message "Writing index file...")
- (org-mobile-create-index-file)
- (message "Writing checksums...")
- (org-mobile-write-checksums)
- (run-hooks 'org-mobile-post-push-hook)))))
- (org-agenda-maybe-redo)
- (message "Files for mobile viewer staged"))
-
-(defvar org-mobile-before-process-capture-hook nil
- "Hook that is run after content was moved to `org-mobile-inbox-for-pull'.
-The inbox file is visited by the current buffer, and the buffer is
-narrowed to the newly captured data.")
-
-;;;###autoload
-(defun org-mobile-pull ()
- "Pull the contents of `org-mobile-capture-file' and integrate them.
-Apply all flagged actions, flag entries to be flagged and then call an
-agenda view showing the flagged items."
- (interactive)
- (org-mobile-check-setup)
- (run-hooks 'org-mobile-pre-pull-hook)
- (let ((insertion-marker (org-mobile-move-capture)))
- (if (not (markerp insertion-marker))
- (message "No new items")
- (org-with-point-at insertion-marker
- (save-restriction
- (narrow-to-region (point) (point-max))
- (run-hooks 'org-mobile-before-process-capture-hook)))
- (org-with-point-at insertion-marker
- (org-mobile-apply (point) (point-max)))
- (move-marker insertion-marker nil)
- (run-hooks 'org-mobile-post-pull-hook)
- (when org-mobile-last-flagged-files
- ;; Make an agenda view of flagged entries, but only in the files
- ;; where stuff has been added.
- (put 'org-agenda-files 'org-restrict org-mobile-last-flagged-files)
- (let ((org-agenda-keep-restricted-file-list t))
- (org-agenda nil "?"))))))
-
-(defun org-mobile-check-setup ()
- "Check if org-mobile-directory has been set up."
- (org-mobile-cleanup-encryption-tempfile)
- (unless (and org-directory
- (stringp org-directory)
- (string-match "\\S-" org-directory)
- (file-exists-p org-directory)
- (file-directory-p org-directory))
- (error
- "Please set `org-directory' to the directory where your org files live"))
- (unless (and org-mobile-directory
- (stringp org-mobile-directory)
- (string-match "\\S-" org-mobile-directory)
- (file-exists-p org-mobile-directory)
- (file-directory-p org-mobile-directory))
- (error
- "Variable `org-mobile-directory' must point to an existing directory"))
- (unless (and org-mobile-inbox-for-pull
- (stringp org-mobile-inbox-for-pull)
- (string-match "\\S-" org-mobile-inbox-for-pull)
- (file-exists-p
- (file-name-directory org-mobile-inbox-for-pull)))
- (error
- "Variable `org-mobile-inbox-for-pull' must point to a file in an existing directory"))
- (unless (and org-mobile-checksum-binary
- (string-match "\\S-" org-mobile-checksum-binary))
- (error "No executable found to compute checksums"))
- (when org-mobile-use-encryption
- (unless (string-match "\\S-" (org-mobile-encryption-password))
- (error
- "To use encryption, you must set `org-mobile-encryption-password'"))
- (unless (file-writable-p org-mobile-encryption-tempfile)
- (error "Cannot write to encryption tempfile %s"
- org-mobile-encryption-tempfile))
- (unless (executable-find "openssl")
- (error "OpenSSL is needed to encrypt files"))))
-
-(defun org-mobile-create-index-file ()
- "Write the index file in the WebDAV directory."
- (let ((files-alist (sort (copy-sequence org-mobile-files-alist)
- (lambda (a b) (string< (cdr a) (cdr b)))))
- (def-todo (default-value 'org-todo-keywords))
- (def-tags org-tag-alist)
- (target-file (expand-file-name org-mobile-index-file
- org-mobile-directory))
- todo-kwds done-kwds tags)
- (when (stringp (car def-todo))
- (setq def-todo (list (cons 'sequence def-todo))))
- (org-agenda-prepare-buffers (mapcar 'car files-alist))
- (setq done-kwds (org-uniquify org-done-keywords-for-agenda))
- (setq todo-kwds (org-delete-all
- done-kwds
- (org-uniquify org-todo-keywords-for-agenda)))
- (setq tags (mapcar 'car (org-global-tags-completion-table
- (mapcar 'car files-alist))))
- (with-temp-file (if org-mobile-use-encryption org-mobile-encryption-tempfile
- target-file)
- (insert "#+READONLY\n")
- (dolist (entry def-todo)
- (let ((kwds (mapcar (lambda (x)
- (if (string-match "(" x)
- (substring x 0 (match-beginning 0))
- x))
- (cdr entry))))
- (insert "#+TODO: " (mapconcat #'identity kwds " ") "\n")
- (let* ((dwds (or (member "|" kwds) (last kwds)))
- (twds (org-delete-all dwds kwds)))
- (setq todo-kwds (org-delete-all twds todo-kwds))
- (setq done-kwds (org-delete-all dwds done-kwds)))))
- (when (or todo-kwds done-kwds)
- (insert "#+TODO: " (mapconcat 'identity todo-kwds " ") " | "
- (mapconcat 'identity done-kwds " ") "\n"))
- (setq def-tags (split-string (org-tag-alist-to-string def-tags t)))
- (setq tags (org-delete-all def-tags tags))
- (setq tags (sort tags (lambda (a b) (string< (downcase a) (downcase b)))))
- (setq tags (append def-tags tags nil))
- (insert "#+TAGS: " (mapconcat 'identity tags " ") "\n")
- (insert "#+ALLPRIORITIES: " org-mobile-allpriorities "\n")
- (when (file-exists-p (expand-file-name
- org-mobile-directory "agendas.org"))
- (insert "* [[file:agendas.org][Agenda Views]]\n"))
- (pcase-dolist (`(,_ . ,link-name) files-alist)
- (insert (format "* [[file:%s][%s]]\n" link-name link-name)))
- (push (cons org-mobile-index-file (md5 (buffer-string)))
- org-mobile-checksum-files))
- (when org-mobile-use-encryption
- (org-mobile-encrypt-and-move org-mobile-encryption-tempfile
- target-file)
- (org-mobile-cleanup-encryption-tempfile))))
-
-(defun org-mobile-copy-agenda-files ()
- "Copy all agenda files to the stage or WebDAV directory."
- (let ((files-alist org-mobile-files-alist)
- file buf entry link-name target-path target-dir check)
- (while (setq entry (pop files-alist))
- (setq file (car entry) link-name (cdr entry))
- (when (file-exists-p file)
- (setq target-path (expand-file-name link-name org-mobile-directory)
- target-dir (file-name-directory target-path))
- (unless (file-directory-p target-dir)
- (make-directory target-dir 'parents))
- (if org-mobile-use-encryption
- (org-mobile-encrypt-and-move file target-path)
- (copy-file file target-path 'ok-if-already-exists))
- (setq check (shell-command-to-string
- (concat (shell-quote-argument org-mobile-checksum-binary)
- " "
- (shell-quote-argument (expand-file-name file)))))
- (when (string-match "[a-fA-F0-9]\\{30,40\\}" check)
- (push (cons link-name (match-string 0 check))
- org-mobile-checksum-files))))
-
- (setq file (expand-file-name org-mobile-capture-file
- org-mobile-directory))
- (save-excursion
- (setq buf (find-file file))
- (when (and (= (point-min) (point-max)))
- (insert "\n")
- (save-buffer)
- (when org-mobile-use-encryption
- (write-file org-mobile-encryption-tempfile)
- (org-mobile-encrypt-and-move org-mobile-encryption-tempfile file)))
- (push (cons org-mobile-capture-file (md5 (buffer-string)))
- org-mobile-checksum-files))
- (org-mobile-cleanup-encryption-tempfile)
- (kill-buffer buf)))
-
-(defun org-mobile-write-checksums ()
- "Create checksums for all files in `org-mobile-directory'.
-The table of checksums is written to the file mobile-checksums."
- (let ((sumfile (expand-file-name "checksums.dat" org-mobile-directory))
- (files org-mobile-checksum-files)
- entry file sum)
- (with-temp-file sumfile
- (set-buffer-file-coding-system 'undecided-unix nil)
- (while (setq entry (pop files))
- (setq file (car entry) sum (cdr entry))
- (insert (format "%s %s\n" sum file))))))
-
-(defun org-mobile-sumo-agenda-command ()
- "Return an agenda custom command that comprises all custom commands."
- (let ((custom-list
- ;; normalize different versions
- (delq nil
- (mapcar
- (lambda (x)
- (cond ((stringp (cdr x)) nil)
- ((stringp (nth 1 x)) x)
- ((not (nth 1 x)) (cons (car x) (cons "" (cddr x))))
- (t (cons (car x) (cons "" (cdr x))))))
- org-agenda-custom-commands)))
- (default-list '(("a" "Agenda" agenda) ("t" "All TODO" alltodo)))
- thelist atitle new e key desc type match settings cmds gkey gdesc gsettings cnt)
- (cond
- ((eq org-mobile-agendas 'custom)
- (setq thelist custom-list))
- ((eq org-mobile-agendas 'default)
- (setq thelist default-list))
- ((eq org-mobile-agendas 'all)
- (setq thelist custom-list)
- (unless (assoc "t" thelist) (push '("t" "ALL TODO" alltodo) thelist))
- (unless (assoc "a" thelist) (push '("a" "Agenda" agenda) thelist)))
- ((listp org-mobile-agendas)
- (setq thelist (append custom-list default-list))
- (setq thelist (delq nil (mapcar (lambda (k) (assoc k thelist))
- org-mobile-agendas)))))
- (while (setq e (pop thelist))
- (cond
- ((stringp (cdr e))
- ;; this is a description entry - skip it
- )
- ((eq (nth 2 e) 'search)
- ;; Search view is interactive, skip
- )
- ((memq (nth 2 e) '(todo-tree tags-tree occur-tree))
- ;; These are trees, not really agenda commands
- )
- ((and (memq (nth 2 e) '(todo tags tags-todo))
- (or (null (nth 3 e))
- (not (string-match "\\S-" (nth 3 e)))))
- ;; These would be interactive because the match string is empty
- )
- ((memq (nth 2 e) '(agenda alltodo todo tags tags-todo))
- ;; a normal command
- (setq key (car e) desc (nth 1 e) type (nth 2 e) match (nth 3 e)
- settings (nth 4 e))
- (setq settings
- (cons (list 'org-agenda-title-append
- (concat "<after>KEYS=" key " TITLE: "
- (if (and (stringp desc) (> (length desc) 0))
- desc (symbol-name type))
- "</after>"))
- settings))
- (push (list type match settings) new))
- ((or (functionp (nth 2 e)) (symbolp (nth 2 e)))
- ;; A user-defined function, which can do anything, so simply
- ;; ignore it.
- )
- (t
- ;; a block agenda
- (setq gkey (car e) gdesc (nth 1 e) gsettings (nth 3 e) cmds (nth 2 e))
- (setq cnt 0)
- (while (setq e (pop cmds))
- (setq type (car e) match (nth 1 e) settings (nth 2 e))
- (setq atitle (if (string= "" gdesc) match gdesc))
- (setq settings (append gsettings settings))
- (setq settings
- (cons (list 'org-agenda-title-append
- (concat "<after>KEYS=" gkey "#" (number-to-string
- (setq cnt (1+ cnt)))
- " TITLE: " atitle "</after>"))
- settings))
- (push (list type match settings) new)))))
- (and new (list "X" "SUMO" (reverse new)
- '((org-agenda-compact-blocks nil))))))
-
-(defvar org-mobile-creating-agendas nil)
-(defun org-mobile-write-agenda-for-mobile (file)
- (let ((all (buffer-string)) in-date id pl prefix line app short m sexp)
- (with-temp-file file
- (org-mode)
- (insert "#+READONLY\n")
- (insert all)
- (goto-char (point-min))
- (while (not (eobp))
- (cond
- ((looking-at "[ \t]*$")) ; keep empty lines
- ((looking-at "=+$")
- ;; remove underlining
- (delete-region (point) (point-at-eol)))
- ((get-text-property (point) 'org-agenda-structural-header)
- (setq in-date nil)
- (setq app (get-text-property (point) 'org-agenda-title-append))
- (setq short (get-text-property (point) 'short-heading))
- (when (and short (looking-at ".+"))
- (replace-match short nil t)
- (beginning-of-line 1))
- (when app
- (end-of-line 1)
- (insert app)
- (beginning-of-line 1))
- (insert "* "))
- ((get-text-property (point) 'org-agenda-date-header)
- (setq in-date t)
- (insert "** "))
- ((setq m (or (get-text-property (point) 'org-hd-marker)
- (get-text-property (point) 'org-marker)))
- (setq sexp (member (get-text-property (point) 'type)
- '("diary" "sexp")))
- (if (setq pl (text-property-any (point) (point-at-eol) 'org-heading t))
- (progn
- (setq prefix (org-trim (buffer-substring
- (point) pl))
- line (org-trim (buffer-substring
- pl
- (point-at-eol))))
- (delete-region (point-at-bol) (point-at-eol))
- (insert line "<before>" prefix "</before>")
- (beginning-of-line 1))
- (and (looking-at "[ \t]+") (replace-match "")))
- (insert (if in-date "*** " "** "))
- (end-of-line 1)
- (insert "\n")
- (unless sexp
- (insert (org-agenda-get-some-entry-text
- m 10 " " 'planning)
- "\n")
- (when (setq id
- (if (bound-and-true-p
- org-mobile-force-id-on-agenda-items)
- (org-id-get m 'create)
- (or (org-entry-get m "ID")
- (org-mobile-get-outline-path-link m))))
- (insert " :PROPERTIES:\n :ORIGINAL_ID: " id
- "\n :END:\n")))))
- (beginning-of-line 2))
- (push (cons "agendas.org" (md5 (buffer-string)))
- org-mobile-checksum-files))
- (message "Agenda written to Org file %s" file)))
-
-(defun org-mobile-get-outline-path-link (pom)
- (org-with-point-at pom
- (concat "olp:"
- (org-mobile-escape-olp (file-name-nondirectory buffer-file-name))
- ":"
- (mapconcat 'org-mobile-escape-olp
- (org-get-outline-path)
- "/")
- "/"
- (org-mobile-escape-olp (nth 4 (org-heading-components))))))
-
-(defun org-mobile-escape-olp (s)
- (let ((table '(?: ?/)))
- (org-link-escape s table)))
-
-(defun org-mobile-create-sumo-agenda ()
- "Create a file that contains all custom agenda views."
- (interactive)
- (let* ((file (expand-file-name "agendas.org"
- org-mobile-directory))
- (file1 (if org-mobile-use-encryption
- org-mobile-encryption-tempfile
- file))
- (sumo (org-mobile-sumo-agenda-command))
- (org-agenda-custom-commands
- (list (append sumo (list (list file1)))))
- (org-mobile-creating-agendas t))
- (unless (file-writable-p file1)
- (error "Cannot write to file %s" file1))
- (when sumo
- (org-store-agenda-views))
- (when org-mobile-use-encryption
- (org-mobile-encrypt-and-move file1 file)
- (delete-file file1)
- (org-mobile-cleanup-encryption-tempfile))))
-
-(defun org-mobile-encrypt-and-move (infile outfile)
- "Encrypt INFILE locally to INFILE_enc, then move it to OUTFILE.
-We do this in two steps so that remote paths will work, even if the
-encryption program does not understand them."
- (let ((encfile (concat infile "_enc")))
- (org-mobile-encrypt-file infile encfile)
- (when outfile
- (copy-file encfile outfile 'ok-if-already-exists)
- (delete-file encfile))))
-
-(defun org-mobile-encrypt-file (infile outfile)
- "Encrypt INFILE to OUTFILE, using `org-mobile-encryption-password'."
- (shell-command
- (format "openssl enc -md md5 -aes-256-cbc -salt -pass %s -in %s -out %s"
- (shell-quote-argument (concat "pass:"
- (org-mobile-encryption-password)))
- (shell-quote-argument (expand-file-name infile))
- (shell-quote-argument (expand-file-name outfile)))))
-
-(defun org-mobile-decrypt-file (infile outfile)
- "Decrypt INFILE to OUTFILE, using `org-mobile-encryption-password'."
- (shell-command
- (format "openssl enc -md md5 -d -aes-256-cbc -salt -pass %s -in %s -out %s"
- (shell-quote-argument (concat "pass:"
- (org-mobile-encryption-password)))
- (shell-quote-argument (expand-file-name infile))
- (shell-quote-argument (expand-file-name outfile)))))
-
-(defun org-mobile-cleanup-encryption-tempfile ()
- "Remove the encryption tempfile if it exists."
- (and (stringp org-mobile-encryption-tempfile)
- (file-exists-p org-mobile-encryption-tempfile)
- (delete-file org-mobile-encryption-tempfile)))
-
-(defun org-mobile-move-capture ()
- "Move the contents of the capture file to the inbox file.
-Return a marker to the location where the new content has been added.
-If nothing new has been added, return nil."
- (interactive)
- (let* ((encfile nil)
- (capture-file (expand-file-name org-mobile-capture-file
- org-mobile-directory))
- (inbox-buffer (find-file-noselect org-mobile-inbox-for-pull))
- (capture-buffer
- (if (not org-mobile-use-encryption)
- (find-file-noselect capture-file)
- (org-mobile-cleanup-encryption-tempfile)
- (setq encfile (concat org-mobile-encryption-tempfile "_enc"))
- (copy-file capture-file encfile)
- (org-mobile-decrypt-file encfile org-mobile-encryption-tempfile)
- (find-file-noselect org-mobile-encryption-tempfile)))
- (insertion-point (make-marker))
- not-empty content)
- (with-current-buffer capture-buffer
- (setq content (buffer-string))
- (setq not-empty (string-match "\\S-" content))
- (when not-empty
- (set-buffer inbox-buffer)
- (widen)
- (goto-char (point-max))
- (or (bolp) (newline))
- (move-marker insertion-point
- (prog1 (point) (insert content)))
- (save-buffer)
- (set-buffer capture-buffer)
- (erase-buffer)
- (save-buffer)
- (org-mobile-update-checksum-for-capture-file (buffer-string))))
- (kill-buffer capture-buffer)
- (when org-mobile-use-encryption
- (org-mobile-encrypt-and-move org-mobile-encryption-tempfile
- capture-file)
- (org-mobile-cleanup-encryption-tempfile))
- (if not-empty insertion-point)))
-
-(defun org-mobile-update-checksum-for-capture-file (buffer-string)
- "Find the checksum line and modify it to match BUFFER-STRING."
- (let* ((file (expand-file-name "checksums.dat" org-mobile-directory))
- (buffer (find-file-noselect file)))
- (when buffer
- (with-current-buffer buffer
- (when (re-search-forward (concat "\\([0-9a-fA-F]\\{30,\\}\\).*?"
- (regexp-quote org-mobile-capture-file)
- "[ \t]*$") nil t)
- (goto-char (match-beginning 1))
- (delete-region (match-beginning 1) (match-end 1))
- (insert (md5 buffer-string))
- (save-buffer)))
- (kill-buffer buffer))))
-
-(defun org-mobile-apply (&optional beg end)
- "Apply all change requests in the current buffer.
-If BEG and END are given, only do this in that region."
- (interactive)
- (require 'org-archive)
- (setq org-mobile-last-flagged-files nil)
- (setq beg (or beg (point-min)) end (or end (point-max)))
-
- ;; Remove all Note IDs
- (goto-char beg)
- (while (re-search-forward "^\\*\\* Note ID: [-0-9A-F]+[ \t]*\n" end t)
- (replace-match ""))
-
- ;; Find all the referenced entries, without making any changes yet
- (let ((marker (make-marker))
- (bos-marker (make-marker))
- (end (move-marker (make-marker) end))
- (cnt-new 0)
- (cnt-edit 0)
- (cnt-flag 0)
- (cnt-error 0)
- buf-list
- org-mobile-error)
-
- ;; Count the new captures
- (goto-char beg)
- (while (re-search-forward "^\\* \\(.*\\)" end t)
- (and (>= (- (match-end 1) (match-beginning 1)) 2)
- (not (equal (downcase (substring (match-string 1) 0 2)) "f("))
- (cl-incf cnt-new)))
-
- ;; Find and apply the edits
- (goto-char beg)
- (while (re-search-forward
- "^\\*+[ \t]+F(\\([^():\n]*\\)\\(:\\([^()\n]*\\)\\)?)[ \t]+\\[\\[\\(\\(id\\|olp\\):\\([^]\n]+\\)\\)" end t)
- (catch 'next
- (let* ((action (match-string 1))
- (data (and (match-end 3) (match-string 3)))
- (id-pos (condition-case msg
- (org-mobile-locate-entry (match-string 4))
- (error (nth 1 msg))))
- (bos (line-beginning-position))
- (eos (save-excursion (org-end-of-subtree t t)))
- (cmd (if (equal action "")
- (let ((note (buffer-substring-no-properties
- (line-beginning-position 2) eos)))
- (lambda (_data _old _new)
- (cl-incf cnt-flag)
- (org-toggle-tag "FLAGGED" 'on)
- (org-entry-put
- nil "THEFLAGGINGNOTE"
- (replace-regexp-in-string "\n" "\\\\n" note))))
- (cl-incf cnt-edit)
- (cdr (assoc action org-mobile-action-alist))))
- ;; Do not take notes interactively.
- (org-inhibit-logging 'note)
- old new)
-
- (goto-char bos)
- (when (and (markerp id-pos)
- (not (member (marker-buffer id-pos) buf-list)))
- (org-mobile-timestamp-buffer (marker-buffer id-pos))
- (push (marker-buffer id-pos) buf-list))
- (unless (markerp id-pos)
- (goto-char (+ 2 (point-at-bol)))
- (if (stringp id-pos)
- (insert id-pos " ")
- (insert "BAD REFERENCE "))
- (cl-incf cnt-error)
- (throw 'next t))
- (unless cmd
- (insert "BAD FLAG ")
- (cl-incf cnt-error)
- (throw 'next t))
- (move-marker bos-marker (point))
- (if (re-search-forward "^** Old value[ \t]*$" eos t)
- (setq old (buffer-substring
- (1+ (match-end 0))
- (progn (outline-next-heading) (point)))))
- (if (re-search-forward "^** New value[ \t]*$" eos t)
- (setq new (buffer-substring
- (1+ (match-end 0))
- (progn (outline-next-heading)
- (if (eobp) (org-back-over-empty-lines))
- (point)))))
- (setq old (org-string-nw-p old))
- (setq new (org-string-nw-p new))
- (unless (equal data "body")
- (setq new (and new (org-trim new)))
- (setq old (and old (org-trim old))))
- (goto-char (+ 2 bos-marker))
- ;; Remember this place so that we can return
- (move-marker marker (point))
- (setq org-mobile-error nil)
- (condition-case msg
- (org-with-point-at id-pos
- (funcall cmd data old new)
- (unless (member data '("delete" "archive" "archive-sibling"
- "addheading"))
- (when (member "FLAGGED" (org-get-tags))
- (add-to-list 'org-mobile-last-flagged-files
- (buffer-file-name)))))
- (error (setq org-mobile-error msg)))
- (when org-mobile-error
- (pop-to-buffer-same-window (marker-buffer marker))
- (goto-char marker)
- (cl-incf cnt-error)
- (insert (if (stringp (nth 1 org-mobile-error))
- (nth 1 org-mobile-error)
- "EXECUTION FAILED")
- " ")
- (throw 'next t))
- ;; If we get here, the action has been applied successfully
- ;; So remove the entry
- (goto-char bos-marker)
- (delete-region (point) (org-end-of-subtree t t)))))
- (save-buffer)
- (move-marker marker nil)
- (move-marker end nil)
- (message "%d new, %d edits, %d flags, %d errors"
- cnt-new cnt-edit cnt-flag cnt-error)
- (sit-for 1)))
-
-(defun org-mobile-timestamp-buffer (buf)
- "Time stamp buffer BUF, just to make sure its checksum will change."
- (with-current-buffer buf
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (if (re-search-forward
- "^\\([ \t]*\\)#\\+LAST_MOBILE_CHANGE:.*\n?" nil t)
- (progn
- (goto-char (match-end 1))
- (delete-region (point) (match-end 0)))
- (if (looking-at ".*?-\\*-.*-\\*-")
- (forward-line 1)))
- (insert "#+LAST_MOBILE_CHANGE: "
- (format-time-string "%Y-%m-%d %T") "\n")))))
-
-(defun org-mobile-smart-read ()
- "Parse the entry at point for shortcuts and expand them.
-These shortcuts are meant for fast and easy typing on the limited
-keyboards of a mobile device. Below we show a list of the shortcuts
-currently implemented.
-
-The entry is expected to contain an inactive time stamp indicating when
-the entry was created. When setting dates and
-times (for example for deadlines), the time strings are interpreted
-relative to that creation date.
-Abbreviations are expected to take up entire lines, just because it is so
-easy to type RET on a mobile device. Abbreviations start with one or two
-letters, followed immediately by a dot and then additional information.
-Generally the entire shortcut line is removed after action have been taken.
-Time stamps will be constructed using `org-read-date'. So for example a
-line \"dd. 2tue\" will set a deadline on the second Tuesday after the
-creation date.
-
-Here are the shortcuts currently implemented:
-
-dd. string set deadline
-ss. string set scheduling
-tt. string set time tamp, here.
-ti. string set inactive time
-
-tg. tag1 tag2 tag3 set all these tags, change case where necessary
-td. kwd set this todo keyword, change case where necessary
-
-FIXME: Hmmm, not sure if we can make his work against the
-auto-correction feature. Needs a bit more thinking. So this function
-is currently a noop.")
-
-(defun org-mobile-locate-entry (link)
- (if (string-match "\\`id:\\(.*\\)$" link)
- (org-id-find (match-string 1 link) 'marker)
- (if (not (string-match "\\`olp:\\(.*?\\):\\(.*\\)$" link))
- ; not found with path, but maybe it is to be inserted
- ; in top level of the file?
- (if (not (string-match "\\`olp:\\(.*?\\)$" link))
- nil
- (let ((file (match-string 1 link)))
- (setq file (org-link-unescape file))
- (setq file (expand-file-name file org-directory))
- (save-excursion
- (find-file file)
- (goto-char (point-max))
- (newline)
- (goto-char (point-max))
- (point-marker))))
- (let ((file (match-string 1 link))
- (path (match-string 2 link)))
- (setq file (org-link-unescape file))
- (setq file (expand-file-name file org-directory))
- (setq path (mapcar 'org-link-unescape
- (org-split-string path "/")))
- (org-find-olp (cons file path))))))
-
-(defun org-mobile-edit (what old new)
- "Edit item WHAT in the current entry by replacing OLD with NEW.
-WHAT can be \"heading\", \"todo\", \"tags\", \"priority\", or \"body\".
-The edit only takes place if the current value is equal (except for
-white space) the OLD. If this is so, OLD will be replace by NEW
-and the command will return t. If something goes wrong, a string will
-be returned that indicates what went wrong."
- (let (current old1 new1 level)
- (if (stringp what) (setq what (intern what)))
-
- (cond
-
- ((memq what '(todo todostate))
- (setq current (org-get-todo-state))
- (cond
- ((equal new "DONEARCHIVE")
- (org-todo 'done)
- (org-archive-subtree-default))
- ((equal new current) t) ; nothing needs to be done
- ((or (equal current old)
- (eq org-mobile-force-mobile-change t)
- (memq 'todo org-mobile-force-mobile-change))
- (org-todo (or new 'none)) t)
- (t (error "State before change was expected as \"%s\", but is \"%s\""
- old current))))
-
- ((eq what 'tags)
- (setq current (org-get-tags)
- new1 (and new (org-split-string new ":+"))
- old1 (and old (org-split-string old ":+")))
- (cond
- ((org-mobile-tags-same-p current new1) t) ; no change needed
- ((or (org-mobile-tags-same-p current old1)
- (eq org-mobile-force-mobile-change t)
- (memq 'tags org-mobile-force-mobile-change))
- (org-set-tags-to new1) t)
- (t (error "Tags before change were expected as \"%s\", but are \"%s\""
- (or old "") (or current "")))))
-
- ((eq what 'priority)
- (let ((case-fold-search nil))
- (when (looking-at org-complex-heading-regexp)
- (let ((current (and (match-end 3) (substring (match-string 3) 2 3))))
- (cond
- ((equal current new) t) ;no action required
- ((or (equal current old)
- (eq org-mobile-force-mobile-change t)
- (memq 'tags org-mobile-force-mobile-change))
- (org-priority (and new (string-to-char new))))
- (t (error "Priority was expected to be %s, but is %s"
- old current)))))))
-
- ((eq what 'heading)
- (let ((case-fold-search nil))
- (when (looking-at org-complex-heading-regexp)
- (let ((current (match-string 4)))
- (cond
- ((equal current new) t) ;no action required
- ((or (equal current old)
- (eq org-mobile-force-mobile-change t)
- (memq 'heading org-mobile-force-mobile-change))
- (goto-char (match-beginning 4))
- (insert new)
- (delete-region (point) (+ (point) (length current)))
- (org-set-tags nil 'align))
- (t (error "Heading changed in MobileOrg and on the computer")))))))
-
- ((eq what 'addheading)
- (if (org-at-heading-p) ; if false we are in top-level of file
- (progn
- ;; Workaround a `org-insert-heading-respect-content' bug
- ;; which prevents correct insertion when point is invisible
- (org-show-subtree)
- (end-of-line 1)
- (org-insert-heading-respect-content t)
- (org-demote))
- (beginning-of-line)
- (insert "* "))
- (insert new))
-
- ((eq what 'refile)
- (org-copy-subtree)
- (org-with-point-at (org-mobile-locate-entry new)
- (if (org-at-heading-p) ; if false we are in top-level of file
- (progn
- (setq level (org-get-valid-level (funcall outline-level) 1))
- (org-end-of-subtree t t)
- (org-paste-subtree level))
- (org-paste-subtree 1)))
- (org-cut-subtree))
-
- ((eq what 'delete)
- (org-cut-subtree))
-
- ((eq what 'archive)
- (org-archive-subtree))
-
- ((eq what 'archive-sibling)
- (org-archive-to-archive-sibling))
-
- ((eq what 'body)
- (setq current (buffer-substring (min (1+ (point-at-eol)) (point-max))
- (save-excursion (outline-next-heading)
- (point))))
- (if (not (string-match "\\S-" current)) (setq current nil))
- (cond
- ((org-mobile-bodies-same-p current new) t) ; no action necessary
- ((or (org-mobile-bodies-same-p current old)
- (eq org-mobile-force-mobile-change t)
- (memq 'body org-mobile-force-mobile-change))
- (save-excursion
- (end-of-line 1)
- (insert "\n" new)
- (or (bolp) (insert "\n"))
- (delete-region (point) (progn (org-back-to-heading t)
- (outline-next-heading)
- (point))))
- t)
- (t (error "Body was changed in MobileOrg and on the computer")))))))
-
-(defun org-mobile-tags-same-p (list1 list2)
- "Are the two tag lists the same?"
- (not (or (org-delete-all list1 list2)
- (org-delete-all list2 list1))))
-
-(defun org-mobile-bodies-same-p (a b)
- "Compare if A and B are visually equal strings.
-We first remove leading and trailing white space from the entire strings.
-Then we split the strings into lines and remove leading/trailing whitespace
-from each line. Then we compare.
-A and B must be strings or nil."
- (cond
- ((and (not a) (not b)) t)
- ((or (not a) (not b)) nil)
- (t (setq a (org-trim a) b (org-trim b))
- (setq a (mapconcat 'identity (org-split-string a "[ \t]*\n[ \t]*") "\n"))
- (setq b (mapconcat 'identity (org-split-string b "[ \t]*\n[ \t]*") "\n"))
- (equal a b))))
-
-(provide 'org-mobile)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-mobile.el ends here
diff --git a/elpa/org-9.1.14/org-mobile.elc b/elpa/org-9.1.14/org-mobile.elc
deleted file mode 100644
index 242572b..0000000
--- a/elpa/org-9.1.14/org-mobile.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-mouse.el b/elpa/org-9.1.14/org-mouse.el
deleted file mode 100644
index 5a10b59..0000000
--- a/elpa/org-9.1.14/org-mouse.el
+++ /dev/null
@@ -1,1110 +0,0 @@
-;;; org-mouse.el --- Better mouse support for Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2006-2018 Free Software Foundation, Inc.
-
-;; Author: Piotr Zielinski <piotr dot zielinski at gmail dot com>
-;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Org-mouse provides mouse support for org-mode.
-;;
-;; https://orgmode.org
-;;
-;; Org mouse implements the following features:
-;; * following links with the left mouse button
-;; * subtree expansion/collapse (org-cycle) with the left mouse button
-;; * several context menus on the right mouse button:
-;; + general text
-;; + headlines
-;; + timestamps
-;; + priorities
-;; + links
-;; + tags
-;; * promoting/demoting/moving subtrees with mouse-3
-;; + if the drag starts and ends in the same line then promote/demote
-;; + otherwise move the subtree
-;;
-;; Use
-;; ---
-;;
-;; To use this package, put the following line in your .emacs:
-;;
-;; (require 'org-mouse)
-;;
-
-;; FIXME:
-;; + deal with folding / unfolding issues
-
-;; TODO (This list is only theoretical, if you'd like to have some
-;; feature implemented or a bug fix please send me an email, even if
-;; something similar appears in the list below. This will help me get
-;; the priorities right.):
-;;
-;; + org-store-link, insert link
-;; + org tables
-;; + occur with the current word/tag (same menu item)
-;; + ctrl-c ctrl-c, for example, renumber the current list
-;; + internal links
-
-;; Please email the maintainer with new feature suggestions / bugs
-
-;; History:
-;;
-;; Since version 5.10: Changes are listed in the general Org docs.
-;;
-;; Version 5.09;; + Version number synchronization with Org mode.
-;;
-;; Version 0.25
-;; + made compatible with Org 4.70 (thanks to Carsten for the patch)
-;;
-;; Version 0.24
-;; + minor changes to the table menu
-;;
-;; Version 0.23
-;; + preliminary support for tables and calculation marks
-;; + context menu support for org-agenda-undo & org-sort-entries
-;;
-;; Version 0.22
-;; + handles undo support for the agenda buffer (requires Org >=4.58)
-;;
-;; Version 0.21
-;; + selected text activates its context menu
-;; + shift-middleclick or right-drag inserts the text from the clipboard in the form of a link
-;;
-;; Version 0.20
-;; + the new "TODO Status" submenu replaces the "Cycle TODO" menu item
-;; + the TODO menu can now list occurrences of a specific TODO keyword
-;; + #+STARTUP line is now recognized
-;;
-;; Version 0.19
-;; + added support for dragging URLs to the org-buffer
-;;
-;; Version 0.18
-;; + added support for agenda blocks
-;;
-;; Version 0.17
-;; + toggle checkboxes with a single click
-;;
-;; Version 0.16
-;; + added support for checkboxes
-;;
-;; Version 0.15
-;; + Org now works with the Agenda buffer as well
-;;
-;; Version 0.14
-;; + added a menu option that converts plain list items to outline items
-;;
-;; Version 0.13
-;; + "Insert Heading" now inserts a sibling heading if the point is
-;; on "***" and a child heading otherwise
-;;
-;; Version 0.12
-;; + compatible with Emacs 21
-;; + custom agenda commands added to the main menu
-;; + moving trees should now work between windows in the same frame
-;;
-;; Version 0.11
-;; + fixed org-mouse-at-link (thanks to Carsten)
-;; + removed [follow-link] bindings
-;;
-;; Version 0.10
-;; + added a menu option to remove highlights
-;; + compatible with Org 4.21 now
-;;
-;; Version 0.08:
-;; + trees can be moved/promoted/demoted by dragging with the right
-;; mouse button (mouse-3)
-;; + small changes in the above function
-;;
-;; Versions 0.01 -- 0.07: (I don't remember)
-
-;;; Code:
-
-(require 'org)
-(require 'cl-lib)
-
-(defvar org-agenda-allow-remote-undo)
-(defvar org-agenda-undo-list)
-(defvar org-agenda-custom-commands)
-(declare-function org-agenda-change-all-lines "org-agenda"
- (newhead hdmarker &optional fixface just-this))
-(declare-function org-verify-change-for-undo "org-agenda" (l1 l2))
-(declare-function org-apply-on-list "org-list" (function init-value &rest args))
-(declare-function org-agenda-earlier "org-agenda" (arg))
-(declare-function org-agenda-later "org-agenda" (arg))
-
-(defvar org-mouse-main-buffer nil
- "Active buffer for mouse operations.")
-(defvar org-mouse-plain-list-regexp "\\([ \t]*\\)\\([-+*]\\|[0-9]+[.)]\\) "
- "Regular expression that matches a plain list.")
-(defvar org-mouse-direct t
- "Internal variable indicating whether the current action is direct.
-
-If t, then the current action has been invoked directly through the buffer
-it is intended to operate on. If nil, then the action has been invoked
-indirectly, for example, through the agenda buffer.")
-
-(defgroup org-mouse nil
- "Mouse support for org-mode."
- :tag "Org Mouse"
- :group 'org)
-
-(defcustom org-mouse-punctuation ":"
- "Punctuation used when inserting text by drag and drop."
- :group 'org-mouse
- :type 'string)
-
-(defcustom org-mouse-features
- '(context-menu yank-link activate-stars activate-bullets activate-checkboxes)
- "The features of org-mouse that should be activated.
-Changing this variable requires a restart of Emacs to get activated."
- :group 'org-mouse
- :type '(set :greedy t
- (const :tag "Mouse-3 shows context menu" context-menu)
- (const :tag "C-mouse-1 and mouse-3 move trees" move-tree)
- (const :tag "S-mouse-2 and drag-mouse-3 yank link" yank-link)
- (const :tag "Activate headline stars" activate-stars)
- (const :tag "Activate item bullets" activate-bullets)
- (const :tag "Activate checkboxes" activate-checkboxes)))
-
-(defun org-mouse-re-search-line (regexp)
- "Search the current line for a given regular expression."
- (beginning-of-line)
- (re-search-forward regexp (point-at-eol) t))
-
-(defun org-mouse-end-headline ()
- "Go to the end of current headline (ignoring tags)."
- (interactive)
- (end-of-line)
- (skip-chars-backward "\t ")
- (when (looking-back ":[A-Za-z]+:" (line-beginning-position))
- (skip-chars-backward ":A-Za-z")
- (skip-chars-backward "\t ")))
-
-(defvar-local org-mouse-context-menu-function nil
- "Function to create the context menu.
-The value of this variable is the function invoked by
-`org-mouse-context-menu' as the context menu.")
-
-(defun org-mouse-show-context-menu (event prefix)
- "Invoke the context menu.
-
-If the value of `org-mouse-context-menu-function' is a function, then
-this function is called. Otherwise, the current major mode menu is used."
- (interactive "@e \nP")
- (if (and (= (event-click-count event) 1)
- (or (not mark-active)
- (sit-for (/ double-click-time 1000.0))))
- (progn
- (select-window (posn-window (event-start event)))
- (when (not (org-mouse-mark-active))
- (goto-char (posn-point (event-start event)))
- (when (not (eolp)) (save-excursion (run-hooks 'post-command-hook)))
- (sit-for 0))
- (if (functionp org-mouse-context-menu-function)
- (funcall org-mouse-context-menu-function event)
- (if (fboundp 'mouse-menu-major-mode-map)
- (popup-menu (mouse-menu-major-mode-map) event prefix)
- (with-no-warnings ; don't warn about fallback, obsolete since 23.1
- (mouse-major-mode-menu event prefix)))))
- (setq this-command 'mouse-save-then-kill)
- (mouse-save-then-kill event)))
-
-(defun org-mouse-line-position ()
- "Return `:beginning' or `:middle' or `:end', depending on the point position.
-
-If the point is at the end of the line, return `:end'.
-If the point is separated from the beginning of the line only by white
-space and *'s (`org-mouse-bolp'), return `:beginning'. Otherwise,
-return `:middle'."
- (cond
- ((eolp) :end)
- ((org-mouse-bolp) :beginning)
- (t :middle)))
-
-(defun org-mouse-empty-line ()
- "Return non-nil iff the line contains only white space."
- (save-excursion (beginning-of-line) (looking-at "[ \t]*$")))
-
-(defun org-mouse-next-heading ()
- "Go to the next heading.
-If there is none, ensure that the point is at the beginning of an empty line."
- (unless (outline-next-heading)
- (beginning-of-line)
- (unless (org-mouse-empty-line)
- (end-of-line)
- (newline))))
-
-(defun org-mouse-insert-heading ()
- "Insert a new heading, as `org-insert-heading'.
-
-If the point is at the :beginning (`org-mouse-line-position') of the line,
-insert the new heading before the current line. Otherwise, insert it
-after the current heading."
- (interactive)
- (cl-case (org-mouse-line-position)
- (:beginning (beginning-of-line)
- (org-insert-heading))
- (t (org-mouse-next-heading)
- (org-insert-heading))))
-
-(defun org-mouse-timestamp-today (&optional shift units)
- "Change the timestamp into SHIFT UNITS in the future.
-
-For the acceptable UNITS, see `org-timestamp-change'."
- (interactive)
- (org-time-stamp nil)
- (when shift (org-timestamp-change shift units)))
-
-(defun org-mouse-keyword-menu (keywords function &optional selected itemformat)
- "A helper function.
-
-Returns a menu fragment consisting of KEYWORDS. When a keyword
-is selected by the user, FUNCTION is called with the selected
-keyword as the only argument.
-
-If SELECTED is nil, then all items are normal menu items. If
-SELECTED is a function, then each item is a checkbox, which is
-enabled for a given keyword iff (funcall SELECTED keyword) return
-non-nil. If SELECTED is neither nil nor a function, then the
-items are radio buttons. A radio button is enabled for the
-keyword `equal' to SELECTED.
-
-ITEMFORMAT governs formatting of the elements of KEYWORDS. If it
-is a function, it is invoked with the keyword as the only
-argument. If it is a string, it is interpreted as the format
-string to (format ITEMFORMAT keyword). If it is neither a string
-nor a function, elements of KEYWORDS are used directly."
- (mapcar
- `(lambda (keyword)
- (vector (cond
- ((functionp ,itemformat) (funcall ,itemformat keyword))
- ((stringp ,itemformat) (format ,itemformat keyword))
- (t keyword))
- (list 'funcall ,function keyword)
- :style (cond
- ((null ,selected) t)
- ((functionp ,selected) 'toggle)
- (t 'radio))
- :selected (if (functionp ,selected)
- (and (funcall ,selected keyword) t)
- (equal ,selected keyword))))
- keywords))
-
-(defun org-mouse-remove-match-and-spaces ()
- "Remove the match, make just one space around the point."
- (interactive)
- (replace-match "")
- (just-one-space))
-
-(defvar org-mouse-rest)
-(defun org-mouse-replace-match-and-surround
- (_newtext &optional _fixedcase _literal _string subexp)
- "The same as `replace-match', but surrounds the replacement with spaces."
- (apply #'replace-match org-mouse-rest)
- (save-excursion
- (goto-char (match-beginning (or subexp 0)))
- (just-one-space)
- (goto-char (match-end (or subexp 0)))
- (just-one-space)))
-
-(defun org-mouse-keyword-replace-menu (keywords &optional group itemformat
- nosurround)
- "A helper function.
-
-Returns a menu fragment consisting of KEYWORDS. When a keyword
-is selected, group GROUP of the current match is replaced by the
-keyword. The method ensures that both ends of the replacement
-are separated from the rest of the text in the buffer by
-individual spaces (unless NOSURROUND is non-nil).
-
-The final entry of the menu is always \"None\", which removes the
-match.
-
-ITEMFORMAT governs formatting of the elements of KEYWORDS. If it
-is a function, it is invoked with the keyword as the only
-argument. If it is a string, it is interpreted as the format
-string to (format ITEMFORMAT keyword). If it is neither a string
-nor a function, elements of KEYWORDS are used directly."
- (setq group (or group 0))
- (let ((replace (org-mouse-match-closure
- (if nosurround 'replace-match
- 'org-mouse-replace-match-and-surround))))
- (append
- (org-mouse-keyword-menu
- keywords
- `(lambda (keyword) (funcall ,replace keyword t t nil ,group))
- (match-string group)
- itemformat)
- `(["None" org-mouse-remove-match-and-spaces
- :style radio
- :selected ,(not (member (match-string group) keywords))]))))
-
-(defun org-mouse-show-headlines ()
- "Change the visibility of the current org buffer to only show headlines."
- (interactive)
- (let ((this-command 'org-cycle)
- (last-command 'org-cycle)
- (org-cycle-global-status nil))
- (org-cycle '(4))
- (org-cycle '(4))))
-
-(defun org-mouse-show-overview ()
- "Change visibility of current org buffer to first-level headlines only."
- (interactive)
- (let ((org-cycle-global-status nil))
- (org-cycle '(4))))
-
-(defun org-mouse-set-priority (priority)
- "Set the priority of the current headline to PRIORITY."
- (org-priority priority))
-
-(defvar org-mouse-priority-regexp "\\[#\\([A-Z]\\)\\]"
- "Regular expression matching the priority indicator.
-Differs from `org-priority-regexp' in that it doesn't contain the
-leading `.*?'.")
-
-(defun org-mouse-get-priority (&optional default)
- "Return the priority of the current headline.
-DEFAULT is returned if no priority is given in the headline."
- (save-excursion
- (if (org-mouse-re-search-line org-mouse-priority-regexp)
- (match-string 1)
- (when default (char-to-string org-default-priority)))))
-
-(defun org-mouse-delete-timestamp ()
- "Deletes the current timestamp as well as the preceding keyword.
-SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
- (when (or (org-at-date-range-p) (org-at-timestamp-p 'lax))
- (replace-match "") ;delete the timestamp
- (skip-chars-backward " :A-Z")
- (when (looking-at " *[A-Z][A-Z]+:")
- (replace-match ""))))
-
-(defun org-mouse-looking-at (regexp skipchars &optional movechars)
- (save-excursion
- (let ((point (point)))
- (if (looking-at regexp) t
- (skip-chars-backward skipchars)
- (forward-char (or movechars 0))
- (when (looking-at regexp)
- (> (match-end 0) point))))))
-
-(defun org-mouse-priority-list ()
- (cl-loop for priority from ?A to org-lowest-priority
- collect (char-to-string priority)))
-
-(defun org-mouse-todo-menu (state)
- "Create the menu with TODO keywords."
- (append
- (let ((kwds org-todo-keywords-1))
- (org-mouse-keyword-menu
- kwds
- `(lambda (kwd) (org-todo kwd))
- (lambda (kwd) (equal state kwd))))))
-
-(defun org-mouse-tag-menu () ;todo
- "Create the tags menu."
- (append
- (let ((tags (org-get-tags)))
- (org-mouse-keyword-menu
- (sort (mapcar 'car (org-get-buffer-tags)) 'string-lessp)
- `(lambda (tag)
- (org-mouse-set-tags
- (sort (if (member tag (quote ,tags))
- (delete tag (quote ,tags))
- (cons tag (quote ,tags)))
- 'string-lessp)))
- `(lambda (tag) (member tag (quote ,tags)))
- ))
- '("--"
- ["Align Tags Here" (org-set-tags nil t) t]
- ["Align Tags in Buffer" (org-set-tags t t) t]
- ["Set Tags ..." (org-set-tags) t])))
-
-(defun org-mouse-set-tags (tags)
- (save-excursion
- ;; remove existing tags first
- (beginning-of-line)
- (when (org-mouse-re-search-line ":\\(\\([A-Za-z_]+:\\)+\\)")
- (replace-match ""))
-
- ;; set new tags if any
- (when tags
- (end-of-line)
- (insert " :" (mapconcat 'identity tags ":") ":")
- (org-set-tags nil t))))
-
-(defun org-mouse-insert-checkbox ()
- (interactive)
- (and (org-at-item-p)
- (goto-char (match-end 0))
- (unless (org-at-item-checkbox-p)
- (delete-horizontal-space)
- (insert " [ ] "))))
-
-(defun org-mouse-agenda-type (type)
- (pcase type
- (`tags "Tags: ")
- (`todo "TODO: ")
- (`tags-tree "Tags tree: ")
- (`todo-tree "TODO tree: ")
- (`occur-tree "Occur tree: ")
- (_ "Agenda command ???")))
-
-(defun org-mouse-list-options-menu (alloptions &optional function)
- (let ((options (save-match-data
- (split-string (match-string-no-properties 1)))))
- (print options)
- (cl-loop for name in alloptions
- collect
- (vector name
- `(progn
- (replace-match
- (mapconcat 'identity
- (sort (if (member ',name ',options)
- (delete ',name ',options)
- (cons ',name ',options))
- 'string-lessp)
- " ")
- nil nil nil 1)
- (when (functionp ',function) (funcall ',function)))
- :style 'toggle
- :selected (and (member name options) t)))))
-
-(defun org-mouse-clip-text (text maxlength)
- (if (> (length text) maxlength)
- (concat (substring text 0 (- maxlength 3)) "...")
- text))
-
-(defun org-mouse-popup-global-menu ()
- (popup-menu
- `("Main Menu"
- ["Show Overview" org-mouse-show-overview t]
- ["Show Headlines" org-mouse-show-headlines t]
- ["Show All" outline-show-all t]
- ["Remove Highlights" org-remove-occur-highlights
- :visible org-occur-highlights]
- "--"
- ["Check Deadlines"
- (if (functionp 'org-check-deadlines-and-todos)
- (org-check-deadlines-and-todos org-deadline-warning-days)
- (org-check-deadlines org-deadline-warning-days)) t]
- ["Check TODOs" org-show-todo-tree t]
- ("Check Tags"
- ,@(org-mouse-keyword-menu
- (sort (mapcar 'car (org-get-buffer-tags)) 'string-lessp)
- #'(lambda (tag) (org-tags-sparse-tree nil tag)))
- "--"
- ["Custom Tag ..." org-tags-sparse-tree t])
- ["Check Phrase ..." org-occur]
- "--"
- ["Display Agenda" org-agenda-list t]
- ["Display TODO List" org-todo-list t]
- ("Display Tags"
- ,@(org-mouse-keyword-menu
- (sort (mapcar 'car (org-get-buffer-tags)) 'string-lessp)
- #'(lambda (tag) (org-tags-view nil tag)))
- "--"
- ["Custom Tag ..." org-tags-view t])
- ["Display Calendar" org-goto-calendar t]
- "--"
- ,@(org-mouse-keyword-menu
- (mapcar 'car org-agenda-custom-commands)
- #'(lambda (key)
- (eval `(org-agenda nil (string-to-char ,key))))
- nil
- #'(lambda (key)
- (let ((entry (assoc key org-agenda-custom-commands)))
- (org-mouse-clip-text
- (cond
- ((stringp (nth 1 entry)) (nth 1 entry))
- ((stringp (nth 2 entry))
- (concat (org-mouse-agenda-type (nth 1 entry))
- (nth 2 entry)))
- (t "Agenda Command `%s'"))
- 30))))
- "--"
- ["Delete Blank Lines" delete-blank-lines
- :visible (org-mouse-empty-line)]
- ["Insert Checkbox" org-mouse-insert-checkbox
- :visible (and (org-at-item-p) (not (org-at-item-checkbox-p)))]
- ["Insert Checkboxes"
- (org-mouse-for-each-item 'org-mouse-insert-checkbox)
- :visible (and (org-at-item-p) (not (org-at-item-checkbox-p)))]
- ["Plain List to Outline" org-mouse-transform-to-outline
- :visible (org-at-item-p)])))
-
-(defun org-mouse-get-context (contextlist context)
- (let ((contextdata (assq context contextlist)))
- (when contextdata
- (save-excursion
- (goto-char (nth 1 contextdata))
- (re-search-forward ".*" (nth 2 contextdata))))))
-
-(defun org-mouse-for-each-item (funct)
- ;; Functions called by `org-apply-on-list' need an argument.
- (let ((wrap-fun (lambda (_) (funcall funct))))
- (when (ignore-errors (goto-char (org-in-item-p)))
- (save-excursion (org-apply-on-list wrap-fun nil)))))
-
-(defun org-mouse-bolp ()
- "Return true if there only spaces, tabs, and `*' before point.
-This means, between the beginning of line and the point."
- (save-excursion
- (skip-chars-backward " \t*") (bolp)))
-
-(defun org-mouse-insert-item (text)
- (cl-case (org-mouse-line-position)
- (:beginning ; insert before
- (beginning-of-line)
- (looking-at "[ \t]*")
- (open-line 1)
- (indent-to-column (- (match-end 0) (match-beginning 0)))
- (insert "+ "))
- (:middle ; insert after
- (end-of-line)
- (newline t)
- (indent-relative)
- (insert "+ "))
- (:end ; insert text here
- (skip-chars-backward " \t")
- (kill-region (point) (point-at-eol))
- (unless (looking-back org-mouse-punctuation (line-beginning-position))
- (insert (concat org-mouse-punctuation " ")))))
- (insert text)
- (beginning-of-line))
-
-(defadvice dnd-insert-text (around org-mouse-dnd-insert-text activate)
- (if (derived-mode-p 'org-mode)
- (org-mouse-insert-item text)
- ad-do-it))
-
-(defadvice dnd-open-file (around org-mouse-dnd-open-file activate)
- (if (derived-mode-p 'org-mode)
- (org-mouse-insert-item uri)
- ad-do-it))
-
-(defun org-mouse-match-closure (function)
- (let ((match (match-data t)))
- `(lambda (&rest rest)
- (save-match-data
- (set-match-data ',match)
- (apply ',function rest)))))
-
-(defun org-mouse-yank-link (click)
- (interactive "e")
- ;; Give temporary modes such as isearch a chance to turn off.
- (run-hooks 'mouse-leave-buffer-hook)
- (mouse-set-point click)
- (setq mouse-selection-click-count 0)
- (delete-horizontal-space)
- (insert-for-yank (concat " [[" (current-kill 0) "]] ")))
-
-(defun org-mouse-context-menu (&optional event)
- (let* ((stamp-prefixes (list org-deadline-string org-scheduled-string))
- (contextlist (org-context))
- (get-context (lambda (context) (org-mouse-get-context contextlist context))))
- (cond
- ((org-mouse-mark-active)
- (let ((region-string (buffer-substring (region-beginning) (region-end))))
- (popup-menu
- `(nil
- ["Sparse Tree" (org-occur ',region-string)]
- ["Find in Buffer" (occur ',region-string)]
- ["Grep in Current Dir"
- (grep (format "grep -rnH -e '%s' *" ',region-string))]
- ["Grep in Parent Dir"
- (grep (format "grep -rnH -e '%s' ../*" ',region-string))]
- "--"
- ["Convert to Link"
- (progn (save-excursion (goto-char (region-beginning)) (insert "[["))
- (save-excursion (goto-char (region-end)) (insert "]]")))]
- ["Insert Link Here" (org-mouse-yank-link ',event)]))))
- ((save-excursion (beginning-of-line) (looking-at "[ \t]*#\\+STARTUP: \\(.*\\)"))
- (popup-menu
- `(nil
- ,@(org-mouse-list-options-menu (mapcar 'car org-startup-options)
- 'org-mode-restart))))
- ((or (eolp)
- (and (looking-at "\\( \\|\t\\)\\(+:[0-9a-zA-Z_:]+\\)?\\( \\|\t\\)+$")
- (looking-back " \\|\t" (- (point) 2)
- (line-beginning-position))))
- (org-mouse-popup-global-menu))
- ((funcall get-context :checkbox)
- (popup-menu
- '(nil
- ["Toggle" org-toggle-checkbox t]
- ["Remove" org-mouse-remove-match-and-spaces t]
- ""
- ["All Clear" (org-mouse-for-each-item
- (lambda ()
- (when (save-excursion (org-at-item-checkbox-p))
- (replace-match "[ ] "))))]
- ["All Set" (org-mouse-for-each-item
- (lambda ()
- (when (save-excursion (org-at-item-checkbox-p))
- (replace-match "[X] "))))]
- ["All Toggle" (org-mouse-for-each-item 'org-toggle-checkbox) t]
- ["All Remove" (org-mouse-for-each-item
- (lambda ()
- (when (save-excursion (org-at-item-checkbox-p))
- (org-mouse-remove-match-and-spaces))))]
- )))
- ((and (org-mouse-looking-at "\\b\\w+" "a-zA-Z0-9_")
- (member (match-string 0) org-todo-keywords-1))
- (popup-menu
- `(nil
- ,@(org-mouse-todo-menu (match-string 0))
- "--"
- ["Check TODOs" org-show-todo-tree t]
- ["List all TODO keywords" org-todo-list t]
- [,(format "List only %s" (match-string 0))
- (org-todo-list (match-string 0)) t]
- )))
- ((and (org-mouse-looking-at "\\b[A-Z]+:" "A-Z")
- (member (match-string 0) stamp-prefixes))
- (popup-menu
- `(nil
- ,@(org-mouse-keyword-replace-menu stamp-prefixes)
- "--"
- ["Check Deadlines" org-check-deadlines t]
- )))
- ((org-mouse-looking-at org-mouse-priority-regexp "[]A-Z#") ; priority
- (popup-menu `(nil ,@(org-mouse-keyword-replace-menu
- (org-mouse-priority-list) 1 "Priority %s" t))))
- ((funcall get-context :link)
- (popup-menu
- '(nil
- ["Open" org-open-at-point t]
- ["Open in Emacs" (org-open-at-point t) t]
- "--"
- ["Copy link" (org-kill-new (match-string 0))]
- ["Cut link"
- (progn
- (kill-region (match-beginning 0) (match-end 0))
- (just-one-space))]
- "--"
- ["Grep for TODOs"
- (grep (format "grep -nH -i 'todo\\|fixme' %s*" (match-string 2)))]
- ; ["Paste file link" ((insert "file:") (yank))]
- )))
- ((org-mouse-looking-at ":\\([A-Za-z0-9_]+\\):" "A-Za-z0-9_" -1) ;tags
- (popup-menu
- `(nil
- [,(format-message "Display `%s'" (match-string 1))
- (org-tags-view nil ,(match-string 1))]
- [,(format-message "Sparse Tree `%s'" (match-string 1))
- (org-tags-sparse-tree nil ,(match-string 1))]
- "--"
- ,@(org-mouse-tag-menu))))
- ((org-at-timestamp-p 'lax)
- (popup-menu
- '(nil
- ["Show Day" org-open-at-point t]
- ["Change Timestamp" org-time-stamp t]
- ["Delete Timestamp" (org-mouse-delete-timestamp) t]
- ["Compute Time Range" org-evaluate-time-range (org-at-date-range-p)]
- "--"
- ["Set for Today" org-mouse-timestamp-today]
- ["Set for Tomorrow" (org-mouse-timestamp-today 1 'day)]
- ["Set in 1 Week" (org-mouse-timestamp-today 7 'day)]
- ["Set in 2 Weeks" (org-mouse-timestamp-today 14 'day)]
- ["Set in a Month" (org-mouse-timestamp-today 1 'month)]
- "--"
- ["+ 1 Day" (org-timestamp-change 1 'day)]
- ["+ 1 Week" (org-timestamp-change 7 'day)]
- ["+ 1 Month" (org-timestamp-change 1 'month)]
- "--"
- ["- 1 Day" (org-timestamp-change -1 'day)]
- ["- 1 Week" (org-timestamp-change -7 'day)]
- ["- 1 Month" (org-timestamp-change -1 'month)])))
- ((funcall get-context :table-special)
- (let ((mdata (match-data)))
- (cl-incf (car mdata) 2)
- (store-match-data mdata))
- (message "match: %S" (match-string 0))
- (popup-menu `(nil ,@(org-mouse-keyword-replace-menu
- '(" " "!" "^" "_" "$" "#" "*" "'") 0
- (lambda (mark)
- (cl-case (string-to-char mark)
- (? "( ) Nothing Special")
- (?! "(!) Column Names")
- (?^ "(^) Field Names Above")
- (?_ "(^) Field Names Below")
- (?$ "($) Formula Parameters")
- (?# "(#) Recalculation: Auto")
- (?* "(*) Recalculation: Manual")
- (?' "(') Recalculation: None"))) t))))
- ((assq :table contextlist)
- (popup-menu
- '(nil
- ["Align Table" org-ctrl-c-ctrl-c]
- ["Blank Field" org-table-blank-field]
- ["Edit Field" org-table-edit-field]
- "--"
- ("Column"
- ["Move Column Left" org-metaleft]
- ["Move Column Right" org-metaright]
- ["Delete Column" org-shiftmetaleft]
- ["Insert Column" org-shiftmetaright]
- "--"
- ["Enable Narrowing" (setq org-table-limit-column-width (not org-table-limit-column-width)) :selected org-table-limit-column-width :style toggle])
- ("Row"
- ["Move Row Up" org-metaup]
- ["Move Row Down" org-metadown]
- ["Delete Row" org-shiftmetaup]
- ["Insert Row" org-shiftmetadown]
- ["Sort lines in region" org-table-sort-lines (org-at-table-p)]
- "--"
- ["Insert Hline" org-table-insert-hline])
- ("Rectangle"
- ["Copy Rectangle" org-copy-special]
- ["Cut Rectangle" org-cut-special]
- ["Paste Rectangle" org-paste-special]
- ["Fill Rectangle" org-table-wrap-region])
- "--"
- ["Set Column Formula" org-table-eval-formula]
- ["Set Field Formula" (org-table-eval-formula '(4))]
- ["Edit Formulas" org-table-edit-formulas]
- "--"
- ["Recalculate Line" org-table-recalculate]
- ["Recalculate All" (org-table-recalculate '(4))]
- ["Iterate All" (org-table-recalculate '(16))]
- "--"
- ["Toggle Recalculate Mark" org-table-rotate-recalc-marks]
- ["Sum Column/Rectangle" org-table-sum
- :active (or (org-at-table-p) (org-region-active-p))]
- ["Field Info" org-table-field-info]
- ["Debug Formulas"
- (setq org-table-formula-debug (not org-table-formula-debug))
- :style toggle :selected org-table-formula-debug]
- )))
- ((and (assq :headline contextlist) (not (eolp)))
- (let ((priority (org-mouse-get-priority t)))
- (popup-menu
- `("Headline Menu"
- ("Tags and Priorities"
- ,@(org-mouse-keyword-menu
- (org-mouse-priority-list)
- #'(lambda (keyword)
- (org-mouse-set-priority (string-to-char keyword)))
- priority "Priority %s")
- "--"
- ,@(org-mouse-tag-menu))
- ("TODO Status"
- ,@(org-mouse-todo-menu (org-get-todo-state)))
- ["Show Tags"
- (with-current-buffer org-mouse-main-buffer (org-agenda-show-tags))
- :visible (not org-mouse-direct)]
- ["Show Priority"
- (with-current-buffer org-mouse-main-buffer (org-agenda-show-priority))
- :visible (not org-mouse-direct)]
- ,@(if org-mouse-direct '("--") nil)
- ["New Heading" org-mouse-insert-heading :visible org-mouse-direct]
- ["Set Deadline"
- (progn (org-mouse-end-headline) (insert " ") (org-deadline))
- :active (not (save-excursion
- (org-mouse-re-search-line org-deadline-regexp)))]
- ["Schedule Task"
- (progn (org-mouse-end-headline) (insert " ") (org-schedule))
- :active (not (save-excursion
- (org-mouse-re-search-line org-scheduled-regexp)))]
- ["Insert Timestamp"
- (progn (org-mouse-end-headline) (insert " ") (org-time-stamp nil)) t]
- ; ["Timestamp (inactive)" org-time-stamp-inactive t]
- "--"
- ["Archive Subtree" org-archive-subtree]
- ["Cut Subtree" org-cut-special]
- ["Copy Subtree" org-copy-special]
- ["Paste Subtree" org-paste-special :visible org-mouse-direct]
- ("Sort Children"
- ["Alphabetically" (org-sort-entries nil ?a)]
- ["Numerically" (org-sort-entries nil ?n)]
- ["By Time/Date" (org-sort-entries nil ?t)]
- "--"
- ["Reverse Alphabetically" (org-sort-entries nil ?A)]
- ["Reverse Numerically" (org-sort-entries nil ?N)]
- ["Reverse By Time/Date" (org-sort-entries nil ?T)])
- "--"
- ["Move Trees" org-mouse-move-tree :active nil]
- ))))
- (t
- (org-mouse-popup-global-menu)))))
-
-(defun org-mouse-mark-active ()
- (and mark-active transient-mark-mode))
-
-(defun org-mouse-in-region-p (pos)
- (and (org-mouse-mark-active)
- (>= pos (region-beginning))
- (< pos (region-end))))
-
-(defun org-mouse-down-mouse (event)
- (interactive "e")
- (setq this-command last-command)
- (unless (and (= 1 (event-click-count event))
- (org-mouse-in-region-p (posn-point (event-start event))))
- (mouse-drag-region event)))
-
-(add-hook 'org-mode-hook
- #'(lambda ()
- (setq org-mouse-context-menu-function 'org-mouse-context-menu)
-
- (when (memq 'context-menu org-mouse-features)
- (org-defkey org-mouse-map [mouse-3] nil)
- (org-defkey org-mode-map [mouse-3] 'org-mouse-show-context-menu))
- (org-defkey org-mode-map [down-mouse-1] 'org-mouse-down-mouse)
- (when (memq 'context-menu org-mouse-features)
- (org-defkey org-mouse-map [C-drag-mouse-1] 'org-mouse-move-tree)
- (org-defkey org-mouse-map [C-down-mouse-1] 'org-mouse-move-tree-start))
- (when (memq 'yank-link org-mouse-features)
- (org-defkey org-mode-map [S-mouse-2] 'org-mouse-yank-link)
- (org-defkey org-mode-map [drag-mouse-3] 'org-mouse-yank-link))
- (when (memq 'move-tree org-mouse-features)
- (org-defkey org-mouse-map [drag-mouse-3] 'org-mouse-move-tree)
- (org-defkey org-mouse-map [down-mouse-3] 'org-mouse-move-tree-start))
-
- (when (memq 'activate-stars org-mouse-features)
- (font-lock-add-keywords
- nil
- `((,org-outline-regexp
- 0 `(face org-link mouse-face highlight keymap ,org-mouse-map)
- 'prepend))
- t))
-
- (when (memq 'activate-bullets org-mouse-features)
- (font-lock-add-keywords
- nil
- `(("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +"
- (1 `(face org-link keymap ,org-mouse-map mouse-face highlight)
- 'prepend)))
- t))
-
- (when (memq 'activate-checkboxes org-mouse-features)
- (font-lock-add-keywords
- nil
- `(("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
- (2 `(face bold keymap ,org-mouse-map mouse-face highlight) t)))
- t))
-
- (defadvice org-open-at-point (around org-mouse-open-at-point activate)
- (let ((context (org-context)))
- (cond
- ((assq :headline-stars context) (org-cycle))
- ((assq :checkbox context) (org-toggle-checkbox))
- ((assq :item-bullet context)
- (let ((org-cycle-include-plain-lists t)) (org-cycle)))
- ((org-footnote-at-reference-p) nil)
- (t ad-do-it))))))
-
-(defun org-mouse-move-tree-start (_event)
- (interactive "e")
- (message "Same line: promote/demote, (***):move before, (text): make a child"))
-
-
-(defun org-mouse-make-marker (position)
- (with-current-buffer (window-buffer (posn-window position))
- (copy-marker (posn-point position))))
-
-(defun org-mouse-move-tree (event)
- ;; todo: handle movements between different buffers
- (interactive "e")
- (save-excursion
- (let* ((start (org-mouse-make-marker (event-start event)))
- (end (org-mouse-make-marker (event-end event)))
- (sbuf (marker-buffer start))
- (ebuf (marker-buffer end)))
-
- (when (and sbuf ebuf)
- (set-buffer sbuf)
- (goto-char start)
- (org-back-to-heading)
- (if (and (eq sbuf ebuf)
- (equal
- (point)
- (save-excursion (goto-char end) (org-back-to-heading) (point))))
- ;; if the same line then promote/demote
- (if (>= end start) (org-demote-subtree) (org-promote-subtree))
- ;; if different lines then move
- (org-cut-subtree)
-
- (set-buffer ebuf)
- (goto-char end)
- (org-back-to-heading)
- (when (and (eq sbuf ebuf)
- (equal
- (point)
- (save-excursion (goto-char start)
- (org-back-to-heading) (point))))
- (progn (org-end-of-subtree nil t)
- (unless (eobp) (backward-char)))
- (end-of-line)
- (if (eobp) (newline) (forward-char)))
-
- (when (looking-at org-outline-regexp)
- (let ((level (- (match-end 0) (match-beginning 0))))
- (when (> end (match-end 0))
- (progn (org-end-of-subtree nil t)
- (unless (eobp) (backward-char)))
- (end-of-line)
- (if (eobp) (newline) (forward-char))
- (setq level (1+ level)))
- (org-paste-subtree level)
- (save-excursion
- (progn (org-end-of-subtree nil t)
- (unless (eobp) (backward-char)))
- (when (bolp) (delete-char -1))))))))))
-
-
-(defun org-mouse-transform-to-outline ()
- (interactive)
- (org-back-to-heading)
- (let ((minlevel 1000)
- (replace-text (concat (match-string 0) "* ")))
- (beginning-of-line 2)
- (save-excursion
- (while (not (or (eobp) (looking-at org-outline-regexp)))
- (when (looking-at org-mouse-plain-list-regexp)
- (setq minlevel (min minlevel (- (match-end 1) (match-beginning 1)))))
- (forward-line)))
- (while (not (or (eobp) (looking-at org-outline-regexp)))
- (when (and (looking-at org-mouse-plain-list-regexp)
- (eq minlevel (- (match-end 1) (match-beginning 1))))
- (replace-match replace-text))
- (forward-line))))
-
-(defvar org-mouse-cmd) ;dynamically scoped from `org-with-remote-undo'.
-
-(defun org-mouse-do-remotely (command)
- ;; (org-agenda-check-no-diary)
- (when (get-text-property (point) 'org-marker)
- (let* ((anticol (- (point-at-eol) (point)))
- (marker (get-text-property (point) 'org-marker))
- (buffer (marker-buffer marker))
- (pos (marker-position marker))
- (hdmarker (get-text-property (point) 'org-hd-marker))
- (buffer-read-only nil)
- (newhead "--- removed ---")
- (org-mouse-direct nil)
- (org-mouse-main-buffer (current-buffer)))
- (when (eq (with-current-buffer buffer major-mode) 'org-mode)
- (let ((endmarker (with-current-buffer buffer
- (org-end-of-subtree nil t)
- (unless (eobp) (forward-char 1))
- (point-marker))))
- (org-with-remote-undo buffer
- (with-current-buffer buffer
- (widen)
- (goto-char pos)
- (org-show-hidden-entry)
- (save-excursion
- (and (outline-next-heading)
- (org-flag-heading nil))) ; show the next heading
- (org-back-to-heading)
- (setq marker (point-marker))
- (goto-char (max (point-at-bol) (- (point-at-eol) anticol)))
- (funcall command)
- (message "_cmd: %S" org-mouse-cmd)
- (message "this-command: %S" this-command)
- (unless (eq (marker-position marker) (marker-position endmarker))
- (setq newhead (org-get-heading))))
-
- (beginning-of-line 1)
- (save-excursion
- (org-agenda-change-all-lines newhead hdmarker 'fixface))))
- t))))
-
-(defun org-mouse-agenda-context-menu (&optional _event)
- (or (org-mouse-do-remotely 'org-mouse-context-menu)
- (popup-menu
- '("Agenda"
- ("Agenda Files")
- "--"
- ["Undo" (progn (message "last command: %S" last-command) (setq this-command 'org-agenda-undo) (org-agenda-undo))
- :visible (if (eq last-command 'org-agenda-undo)
- org-agenda-pending-undo-list
- org-agenda-undo-list)]
- ["Rebuild Buffer" org-agenda-redo t]
- ["New Diary Entry"
- org-agenda-diary-entry (org-agenda-check-type nil 'agenda) t]
- "--"
- ["Goto Today" org-agenda-goto-today
- (org-agenda-check-type nil 'agenda) t]
- ["Display Calendar" org-agenda-goto-calendar
- (org-agenda-check-type nil 'agenda) t]
- ("Calendar Commands"
- ["Phases of the Moon" org-agenda-phases-of-moon
- (org-agenda-check-type nil 'agenda)]
- ["Sunrise/Sunset" org-agenda-sunrise-sunset
- (org-agenda-check-type nil 'agenda)]
- ["Holidays" org-agenda-holidays
- (org-agenda-check-type nil 'agenda)]
- ["Convert" org-agenda-convert-date
- (org-agenda-check-type nil 'agenda)]
- "--"
- ["Create iCalendar file" org-icalendar-combine-agenda-files t])
- "--"
- ["Day View" org-agenda-day-view
- :active (org-agenda-check-type nil 'agenda)
- :style radio :selected (eq org-agenda-current-span 'day)]
- ["Week View" org-agenda-week-view
- :active (org-agenda-check-type nil 'agenda)
- :style radio :selected (eq org-agenda-current-span 'week)]
- "--"
- ["Show Logbook entries" org-agenda-log-mode
- :style toggle :selected org-agenda-show-log
- :active (org-agenda-check-type nil 'agenda)]
- ["Include Diary" org-agenda-toggle-diary
- :style toggle :selected org-agenda-include-diary
- :active (org-agenda-check-type nil 'agenda)]
- ["Use Time Grid" org-agenda-toggle-time-grid
- :style toggle :selected org-agenda-use-time-grid
- :active (org-agenda-check-type nil 'agenda)]
- ["Follow Mode" org-agenda-follow-mode
- :style toggle :selected org-agenda-follow-mode]
- "--"
- ["Quit" org-agenda-quit t]
- ["Exit and Release Buffers" org-agenda-exit t]
- ))))
-
-(defun org-mouse-get-gesture (event)
- (let ((startxy (posn-x-y (event-start event)))
- (endxy (posn-x-y (event-end event))))
- (if (< (car startxy) (car endxy)) :right :left)))
-
-
- ; (setq org-agenda-mode-hook nil)
-(defvar org-agenda-mode-map)
-(add-hook 'org-agenda-mode-hook
- (lambda ()
- (setq org-mouse-context-menu-function 'org-mouse-agenda-context-menu)
- (org-defkey org-agenda-mode-map [mouse-3] 'org-mouse-show-context-menu)
- (org-defkey org-agenda-mode-map [down-mouse-3] 'org-mouse-move-tree-start)
- (org-defkey org-agenda-mode-map [C-mouse-4] 'org-agenda-earlier)
- (org-defkey org-agenda-mode-map [C-mouse-5] 'org-agenda-later)
- (org-defkey org-agenda-mode-map [drag-mouse-3]
- (lambda (event) (interactive "e")
- (cl-case (org-mouse-get-gesture event)
- (:left (org-agenda-earlier 1))
- (:right (org-agenda-later 1)))))))
-
-(provide 'org-mouse)
-
-;;; org-mouse.el ends here
diff --git a/elpa/org-9.1.14/org-mouse.elc b/elpa/org-9.1.14/org-mouse.elc
deleted file mode 100644
index c09b7f3..0000000
--- a/elpa/org-9.1.14/org-mouse.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-pcomplete.el b/elpa/org-9.1.14/org-pcomplete.el
deleted file mode 100644
index 88a2e10..0000000
--- a/elpa/org-9.1.14/org-pcomplete.el
+++ /dev/null
@@ -1,386 +0,0 @@
-;;; org-pcomplete.el --- In-buffer Completion Code -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; John Wiegley <johnw at gnu dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Code:
-
-;;;; Require other packages
-
-(require 'org-macs)
-(require 'org-compat)
-(require 'pcomplete)
-
-(declare-function org-make-org-heading-search-string "org" (&optional string))
-(declare-function org-get-buffer-tags "org" ())
-(declare-function org-get-tags "org" ())
-(declare-function org-buffer-property-keys "org"
- (&optional specials defaults columns ignore-malformed))
-(declare-function org-entry-properties "org" (&optional pom which))
-(declare-function org-tag-alist-to-string "org" (alist &optional skip-key))
-
-;;;; Customization variables
-
-(defvar org-drawer-regexp)
-(defvar org-property-re)
-(defvar org-current-tag-alist)
-
-(defun org-thing-at-point ()
- "Examine the thing at point and let the caller know what it is.
-The return value is a string naming the thing at point."
- (let ((beg1 (save-excursion
- (skip-chars-backward "[:alnum:]-_@")
- (point)))
- (beg (save-excursion
- (skip-chars-backward "a-zA-Z0-9-_:$")
- (point)))
- (line-to-here (buffer-substring (point-at-bol) (point))))
- (cond
- ((string-match "\\`[ \t]*#\\+begin: clocktable[ \t]+" line-to-here)
- (cons "block-option" "clocktable"))
- ((string-match "\\`[ \t]*#\\+begin_src[ \t]+" line-to-here)
- (cons "block-option" "src"))
- ((save-excursion
- (re-search-backward "^[ \t]*#\\+\\([A-Z_]+\\):.*"
- (line-beginning-position) t))
- (cons "file-option" (match-string-no-properties 1)))
- ((string-match "\\`[ \t]*#\\+[a-zA-Z_]*\\'" line-to-here)
- (cons "file-option" nil))
- ((equal (char-before beg) ?\[)
- (cons "link" nil))
- ((equal (char-before beg) ?\\)
- (cons "tex" nil))
- ((string-match "\\`\\*+[ \t]+\\'"
- (buffer-substring (point-at-bol) beg))
- (cons "todo" nil))
- ((equal (char-before beg) ?*)
- (cons "searchhead" nil))
- ((and (equal (char-before beg1) ?:)
- (equal (char-after (point-at-bol)) ?*))
- (cons "tag" nil))
- ((and (equal (char-before beg1) ?:)
- (not (equal (char-after (point-at-bol)) ?*))
- (save-excursion
- (move-beginning-of-line 1)
- (skip-chars-backward "[ \t\n]")
- ;; org-drawer-regexp matches a whole line but while
- ;; looking-back, we just ignore trailing whitespaces
- (or (looking-back (substring org-drawer-regexp 0 -1)
- (line-beginning-position))
- (looking-back org-property-re
- (line-beginning-position)))))
- (cons "prop" nil))
- ((and (equal (char-before beg1) ?:)
- (not (equal (char-after (point-at-bol)) ?*)))
- (cons "drawer" nil))
- (t nil))))
-
-(defun org-command-at-point ()
- "Return the qualified name of the Org completion entity at point.
-When completing for #+STARTUP, for example, this function returns
-\"file-option/startup\"."
- (let ((thing (org-thing-at-point)))
- (cond
- ((string= "file-option" (car thing))
- (concat (car thing)
- (and (cdr thing) (concat "/" (downcase (cdr thing))))))
- ((string= "block-option" (car thing))
- (concat (car thing) "/" (downcase (cdr thing))))
- (t (car thing)))))
-
-(defun org-parse-arguments ()
- "Parse whitespace separated arguments in the current region."
- (let ((begin (line-beginning-position))
- (end (line-end-position))
- begins args)
- (save-restriction
- (narrow-to-region begin end)
- (save-excursion
- (goto-char (point-min))
- (while (not (eobp))
- (skip-chars-forward " \t\n[")
- (setq begins (cons (point) begins))
- (skip-chars-forward "^ \t\n[")
- (setq args (cons (buffer-substring-no-properties
- (car begins) (point))
- args)))
- (cons (reverse args) (reverse begins))))))
-
-(defun org-pcomplete-initial ()
- "Calls the right completion function for first argument completions."
- (ignore
- (funcall (or (pcomplete-find-completion-function
- (car (org-thing-at-point)))
- pcomplete-default-completion-function))))
-
-(defvar org-options-keywords) ; From org.el
-(defvar org-element-affiliated-keywords) ; From org-element.el
-(declare-function org-get-export-keywords "org" ())
-(defun pcomplete/org-mode/file-option ()
- "Complete against all valid file options."
- (require 'org-element)
- (pcomplete-here
- (org-pcomplete-case-double
- (append (mapcar (lambda (keyword) (concat keyword " "))
- org-options-keywords)
- (mapcar (lambda (keyword) (concat keyword ": "))
- org-element-affiliated-keywords)
- (let (block-names)
- (dolist (name
- '("CENTER" "COMMENT" "EXAMPLE" "EXPORT" "QUOTE" "SRC"
- "VERSE")
- block-names)
- (push (format "END_%s" name) block-names)
- (push (concat "BEGIN_"
- name
- ;; Since language is compulsory in
- ;; export blocks source blocks, add
- ;; a space.
- (and (member name '("EXPORT" "SRC")) " "))
- block-names)
- (push (format "ATTR_%s: " name) block-names)))
- (mapcar (lambda (keyword) (concat keyword ": "))
- (org-get-export-keywords))))
- (substring pcomplete-stub 2)))
-
-(defun pcomplete/org-mode/file-option/author ()
- "Complete arguments for the #+AUTHOR file option."
- (pcomplete-here (list user-full-name)))
-
-(defvar org-time-stamp-formats)
-(defun pcomplete/org-mode/file-option/date ()
- "Complete arguments for the #+DATE file option."
- (pcomplete-here (list (format-time-string (car org-time-stamp-formats)))))
-
-(defun pcomplete/org-mode/file-option/email ()
- "Complete arguments for the #+EMAIL file option."
- (pcomplete-here (list user-mail-address)))
-
-(defvar org-export-exclude-tags)
-(defun pcomplete/org-mode/file-option/exclude_tags ()
- "Complete arguments for the #+EXCLUDE_TAGS file option."
- (require 'ox)
- (pcomplete-here
- (and org-export-exclude-tags
- (list (mapconcat 'identity org-export-exclude-tags " ")))))
-
-(defvar org-file-tags)
-(defun pcomplete/org-mode/file-option/filetags ()
- "Complete arguments for the #+FILETAGS file option."
- (pcomplete-here (and org-file-tags (mapconcat 'identity org-file-tags " "))))
-
-(defvar org-export-default-language)
-(defun pcomplete/org-mode/file-option/language ()
- "Complete arguments for the #+LANGUAGE file option."
- (require 'ox)
- (pcomplete-here
- (pcomplete-uniqify-list
- (list org-export-default-language "en"))))
-
-(defvar org-default-priority)
-(defvar org-highest-priority)
-(defvar org-lowest-priority)
-(defun pcomplete/org-mode/file-option/priorities ()
- "Complete arguments for the #+PRIORITIES file option."
- (pcomplete-here (list (format "%c %c %c"
- org-highest-priority
- org-lowest-priority
- org-default-priority))))
-
-(defvar org-export-select-tags)
-(defun pcomplete/org-mode/file-option/select_tags ()
- "Complete arguments for the #+SELECT_TAGS file option."
- (require 'ox)
- (pcomplete-here
- (and org-export-select-tags
- (list (mapconcat 'identity org-export-select-tags " ")))))
-
-(defvar org-startup-options)
-(defun pcomplete/org-mode/file-option/startup ()
- "Complete arguments for the #+STARTUP file option."
- (while (pcomplete-here
- (let ((opts (pcomplete-uniqify-list
- (mapcar 'car org-startup-options))))
- ;; Some options are mutually exclusive, and shouldn't be completed
- ;; against if certain other options have already been seen.
- (dolist (arg pcomplete-args)
- (cond
- ((string= arg "hidestars")
- (setq opts (delete "showstars" opts)))))
- opts))))
-
-(defun pcomplete/org-mode/file-option/tags ()
- "Complete arguments for the #+TAGS file option."
- (pcomplete-here
- (list (org-tag-alist-to-string org-current-tag-alist))))
-
-(defun pcomplete/org-mode/file-option/title ()
- "Complete arguments for the #+TITLE file option."
- (pcomplete-here
- (let ((visited-file (buffer-file-name (buffer-base-buffer))))
- (list (or (and visited-file
- (file-name-sans-extension
- (file-name-nondirectory visited-file)))
- (buffer-name (buffer-base-buffer)))))))
-
-
-(declare-function org-export-backend-options "ox" (cl-x) t)
-(defun pcomplete/org-mode/file-option/options ()
- "Complete arguments for the #+OPTIONS file option."
- (while (pcomplete-here
- (pcomplete-uniqify-list
- (append
- ;; Hard-coded OPTION items always available.
- '("H:" "\\n:" "num:" "timestamp:" "arch:" "author:" "c:"
- "creator:" "date:" "d:" "email:" "*:" "e:" "::" "f:"
- "inline:" "tex:" "p:" "pri:" "':" "-:" "stat:" "^:" "toc:"
- "|:" "tags:" "tasks:" "<:" "todo:")
- ;; OPTION items from registered back-ends.
- (let (items)
- (dolist (backend (bound-and-true-p
- org-export-registered-backends))
- (dolist (option (org-export-backend-options backend))
- (let ((item (nth 2 option)))
- (when item (push (concat item ":") items)))))
- items))))))
-
-(defun pcomplete/org-mode/file-option/infojs_opt ()
- "Complete arguments for the #+INFOJS_OPT file option."
- (while (pcomplete-here
- (pcomplete-uniqify-list
- (mapcar (lambda (item) (format "%s:" (car item)))
- (bound-and-true-p org-html-infojs-opts-table))))))
-
-(defun pcomplete/org-mode/file-option/bind ()
- "Complete arguments for the #+BIND file option, which are variable names."
- (let (vars)
- (mapatoms
- (lambda (a) (if (boundp a) (setq vars (cons (symbol-name a) vars)))))
- (pcomplete-here vars)))
-
-(defvar org-link-abbrev-alist-local)
-(defvar org-link-abbrev-alist)
-(defun pcomplete/org-mode/link ()
- "Complete against defined #+LINK patterns."
- (pcomplete-here
- (pcomplete-uniqify-list
- (copy-sequence
- (append (mapcar 'car org-link-abbrev-alist-local)
- (mapcar 'car org-link-abbrev-alist))))))
-
-(defvar org-entities)
-(defun pcomplete/org-mode/tex ()
- "Complete against TeX-style HTML entity names."
- (require 'org-entities)
- (while (pcomplete-here
- (pcomplete-uniqify-list (remove nil (mapcar 'car-safe org-entities)))
- (substring pcomplete-stub 1))))
-
-(defvar org-todo-keywords-1)
-(defun pcomplete/org-mode/todo ()
- "Complete against known TODO keywords."
- (pcomplete-here (pcomplete-uniqify-list (copy-sequence org-todo-keywords-1))))
-
-(defvar org-todo-line-regexp)
-(defun pcomplete/org-mode/searchhead ()
- "Complete against all headings.
-This needs more work, to handle headings with lots of spaces in them."
- (while
- (pcomplete-here
- (save-excursion
- (goto-char (point-min))
- (let (tbl)
- (let ((case-fold-search nil))
- (while (re-search-forward org-todo-line-regexp nil t)
- (push (org-make-org-heading-search-string
- (match-string-no-properties 3))
- tbl)))
- (pcomplete-uniqify-list tbl)))
- (substring pcomplete-stub 1))))
-
-(defun pcomplete/org-mode/tag ()
- "Complete a tag name. Omit tags already set."
- (while (pcomplete-here
- (mapcar (lambda (x) (concat x ":"))
- (let ((lst (pcomplete-uniqify-list
- (or (remq
- nil
- (mapcar (lambda (x) (org-string-nw-p (car x)))
- org-current-tag-alist))
- (mapcar #'car (org-get-buffer-tags))))))
- (dolist (tag (org-get-tags))
- (setq lst (delete tag lst)))
- lst))
- (and (string-match ".*:" pcomplete-stub)
- (substring pcomplete-stub (match-end 0))))))
-
-(defun pcomplete/org-mode/prop ()
- "Complete a property name. Omit properties already set."
- (pcomplete-here
- (mapcar (lambda (x)
- (concat x ": "))
- (let ((lst (pcomplete-uniqify-list
- (copy-sequence
- (org-buffer-property-keys nil t t t)))))
- (dolist (prop (org-entry-properties))
- (setq lst (delete (car prop) lst)))
- lst))
- (substring pcomplete-stub 1)))
-
-(defun pcomplete/org-mode/block-option/src ()
- "Complete the arguments of a begin_src block.
-Complete a language in the first field, the header arguments and switches."
- (pcomplete-here
- (mapcar
- (lambda(x) (symbol-name (nth 3 x)))
- (cdr (car (cdr (memq :key-type (plist-get
- (symbol-plist
- 'org-babel-load-languages)
- 'custom-type)))))))
- (while (pcomplete-here
- '("-n" "-r" "-l"
- ":cache" ":colnames" ":comments" ":dir" ":eval" ":exports"
- ":file" ":hlines" ":no-expand" ":noweb" ":results" ":rownames"
- ":session" ":shebang" ":tangle" ":tangle-mode" ":var"))))
-
-(defun pcomplete/org-mode/block-option/clocktable ()
- "Complete keywords in a clocktable line."
- (while (pcomplete-here '(":maxlevel" ":scope" ":lang"
- ":tstart" ":tend" ":block" ":step"
- ":stepskip0" ":fileskip0"
- ":emphasize" ":link" ":narrow" ":indent"
- ":tcolumns" ":level" ":compact" ":timestamp"
- ":formula" ":formatter" ":wstart" ":mstart"))))
-
-(defun org-pcomplete-case-double (list)
- "Return list with both upcase and downcase version of all strings in LIST."
- (let (e res)
- (while (setq e (pop list))
- (setq res (cons (downcase e) (cons (upcase e) res))))
- (nreverse res)))
-
-;;;; Finish up
-
-(provide 'org-pcomplete)
-
-;;; org-pcomplete.el ends here
diff --git a/elpa/org-9.1.14/org-pcomplete.elc b/elpa/org-9.1.14/org-pcomplete.elc
deleted file mode 100644
index 5040157..0000000
--- a/elpa/org-9.1.14/org-pcomplete.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-pkg.el b/elpa/org-9.1.14/org-pkg.el
deleted file mode 100644
index dc48174..0000000
--- a/elpa/org-9.1.14/org-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;; Generated package description from org.el
-(define-package "org" "9.1.14" "Outline-based notes management and organizer" 'nil :url "http://elpa.gnu.org/packages/org.html" :keywords '("outlines" "hypermedia" "calendar" "wp"))
diff --git a/elpa/org-9.1.14/org-pkg.elc b/elpa/org-9.1.14/org-pkg.elc
deleted file mode 100644
index bae25e0..0000000
--- a/elpa/org-9.1.14/org-pkg.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-plot.el b/elpa/org-9.1.14/org-plot.el
deleted file mode 100644
index ebd7af4..0000000
--- a/elpa/org-9.1.14/org-plot.el
+++ /dev/null
@@ -1,354 +0,0 @@
-;;; org-plot.el --- Support for Plotting from Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2008-2018 Free Software Foundation, Inc.
-;;
-;; Author: Eric Schulte <schulte dot eric at gmail dot com>
-;; Keywords: tables, plotting
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Borrows ideas and a couple of lines of code from org-exp.el.
-
-;; Thanks to the Org mailing list for testing and implementation and
-;; feature suggestions
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-(require 'org-table)
-
-(declare-function gnuplot-delchar-or-maybe-eof "ext:gnuplot" (arg))
-(declare-function gnuplot-mode "ext:gnuplot" ())
-(declare-function gnuplot-send-buffer-to-gnuplot "ext:gnuplot" ())
-
-(defvar org-plot/gnuplot-default-options
- '((:plot-type . 2d)
- (:with . lines)
- (:ind . 0))
- "Default options to gnuplot used by `org-plot/gnuplot'.")
-
-(defvar org-plot-timestamp-fmt nil)
-
-(defun org-plot/add-options-to-plist (p options)
- "Parse an OPTIONS line and set values in the property list P.
-Returns the resulting property list."
- (when options
- (let ((op '(("type" . :plot-type)
- ("script" . :script)
- ("line" . :line)
- ("set" . :set)
- ("title" . :title)
- ("ind" . :ind)
- ("deps" . :deps)
- ("with" . :with)
- ("file" . :file)
- ("labels" . :labels)
- ("map" . :map)
- ("timeind" . :timeind)
- ("timefmt" . :timefmt)))
- (multiples '("set" "line"))
- (regexp ":\\([\"][^\"]+?[\"]\\|[(][^)]+?[)]\\|[^ \t\n\r;,.]*\\)")
- (start 0))
- (dolist (o op)
- (if (member (car o) multiples) ;; keys with multiple values
- (while (string-match
- (concat (regexp-quote (car o)) regexp)
- options start)
- (setq start (match-end 0))
- (setq p (plist-put p (cdr o)
- (cons (car (read-from-string
- (match-string 1 options)))
- (plist-get p (cdr o)))))
- p)
- (if (string-match (concat (regexp-quote (car o)) regexp)
- options)
- (setq p (plist-put p (cdr o)
- (car (read-from-string
- (match-string 1 options))))))))))
- p)
-
-(defun org-plot/goto-nearest-table ()
- "Move the point forward to the beginning of nearest table.
-Return value is the point at the beginning of the table."
- (interactive) (move-beginning-of-line 1)
- (while (not (or (org-at-table-p) (< 0 (forward-line 1)))))
- (goto-char (org-table-begin)))
-
-(defun org-plot/collect-options (&optional params)
- "Collect options from an org-plot `#+Plot:' line.
-Accepts an optional property list PARAMS, to which the options
-will be added. Returns the resulting property list."
- (interactive)
- (let ((line (thing-at-point 'line)))
- (if (string-match "#\\+PLOT: +\\(.*\\)$" line)
- (org-plot/add-options-to-plist params (match-string 1 line))
- params)))
-
-(defun org-plot-quote-timestamp-field (s)
- "Convert field S from timestamp to Unix time and export to gnuplot."
- (format-time-string org-plot-timestamp-fmt (org-time-string-to-time s)))
-
-(defun org-plot-quote-tsv-field (s)
- "Quote field S for export to gnuplot."
- (if (string-match org-table-number-regexp s) s
- (if (string-match org-ts-regexp3 s)
- (org-plot-quote-timestamp-field s)
- (concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\""))))
-
-(defun org-plot/gnuplot-to-data (table data-file params)
- "Export TABLE to DATA-FILE in a format readable by gnuplot.
-Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE."
- (with-temp-file
- data-file
- (setq-local org-plot-timestamp-fmt (or
- (plist-get params :timefmt)
- "%Y-%m-%d-%H:%M:%S"))
- (insert (orgtbl-to-generic
- table
- (org-combine-plists
- '(:sep "\t" :fmt org-plot-quote-tsv-field)
- params))))
- nil)
-
-(defun org-plot/gnuplot-to-grid-data (table data-file params)
- "Export the data in TABLE to DATA-FILE for gnuplot.
-This means in a format appropriate for grid plotting by gnuplot.
-PARAMS specifies which columns of TABLE should be plotted as independent
-and dependant variables."
- (interactive)
- (let* ((ind (- (plist-get params :ind) 1))
- (deps (if (plist-member params :deps)
- (mapcar (lambda (val) (- val 1)) (plist-get params :deps))
- (let (collector)
- (dotimes (col (length (nth 0 table)))
- (setf collector (cons col collector)))
- collector)))
- (counter 0)
- row-vals)
- (when (>= ind 0) ;; collect values of ind col
- (setf row-vals (mapcar (lambda (row) (setf counter (+ 1 counter))
- (cons counter (nth ind row))) table)))
- (when (or deps (>= ind 0)) ;; remove non-plotting columns
- (setf deps (delq ind deps))
- (setf table (mapcar (lambda (row)
- (dotimes (col (length row))
- (unless (memq col deps)
- (setf (nth col row) nil)))
- (delq nil row))
- table)))
- ;; write table to gnuplot grid datafile format
- (with-temp-file data-file
- (let ((num-rows (length table)) (num-cols (length (nth 0 table)))
- (gnuplot-row (lambda (col row value)
- (setf col (+ 1 col)) (setf row (+ 1 row))
- (format "%f %f %f\n%f %f %f\n"
- col (- row 0.5) value ;; lower edge
- col (+ row 0.5) value))) ;; upper edge
- front-edge back-edge)
- (dotimes (col num-cols)
- (dotimes (row num-rows)
- (setf back-edge
- (concat back-edge
- (funcall gnuplot-row (- col 1) row
- (string-to-number (nth col (nth row table))))))
- (setf front-edge
- (concat front-edge
- (funcall gnuplot-row col row
- (string-to-number (nth col (nth row table)))))))
- ;; only insert once per row
- (insert back-edge) (insert "\n") ;; back edge
- (insert front-edge) (insert "\n") ;; front edge
- (setf back-edge "") (setf front-edge ""))))
- row-vals))
-
-(defun org-plot/gnuplot-script (data-file num-cols params &optional preface)
- "Write a gnuplot script to DATA-FILE respecting the options set in PARAMS.
-NUM-COLS controls the number of columns plotted in a 2-d plot.
-Optional argument PREFACE returns only option parameters in a
-manner suitable for prepending to a user-specified script."
- (let* ((type (plist-get params :plot-type))
- (with (if (eq type 'grid) 'pm3d (plist-get params :with)))
- (sets (plist-get params :set))
- (lines (plist-get params :line))
- (map (plist-get params :map))
- (title (plist-get params :title))
- (file (plist-get params :file))
- (ind (plist-get params :ind))
- (time-ind (plist-get params :timeind))
- (timefmt (plist-get params :timefmt))
- (text-ind (plist-get params :textind))
- (deps (if (plist-member params :deps) (plist-get params :deps)))
- (col-labels (plist-get params :labels))
- (x-labels (plist-get params :xlabels))
- (y-labels (plist-get params :ylabels))
- (plot-str "'%s' using %s%d%s with %s title '%s'")
- (plot-cmd (pcase type
- (`2d "plot")
- (`3d "splot")
- (`grid "splot")))
- (script "reset")
- ;; ats = add-to-script
- (ats (lambda (line) (setf script (concat script "\n" line))))
- plot-lines)
- (when file ; output file
- (funcall ats (format "set term %s" (file-name-extension file)))
- (funcall ats (format "set output '%s'" file)))
- (pcase type ; type
- (`2d ())
- (`3d (when map (funcall ats "set map")))
- (`grid (funcall ats (if map "set pm3d map" "set pm3d"))))
- (when title (funcall ats (format "set title '%s'" title))) ; title
- (mapc ats lines) ; line
- (dolist (el sets) (funcall ats (format "set %s" el))) ; set
- ;; Unless specified otherwise, values are TAB separated.
- (unless (string-match-p "^set datafile separator" script)
- (funcall ats "set datafile separator \"\\t\""))
- (when x-labels ; x labels (xtics)
- (funcall ats
- (format "set xtics (%s)"
- (mapconcat (lambda (pair)
- (format "\"%s\" %d" (cdr pair) (car pair)))
- x-labels ", "))))
- (when y-labels ; y labels (ytics)
- (funcall ats
- (format "set ytics (%s)"
- (mapconcat (lambda (pair)
- (format "\"%s\" %d" (cdr pair) (car pair)))
- y-labels ", "))))
- (when time-ind ; timestamp index
- (funcall ats "set xdata time")
- (funcall ats (concat "set timefmt \""
- (or timefmt ; timefmt passed to gnuplot
- "%Y-%m-%d-%H:%M:%S") "\"")))
- (unless preface
- (pcase type ; plot command
- (`2d (dotimes (col num-cols)
- (unless (and (eq type '2d)
- (or (and ind (equal (1+ col) ind))
- (and deps (not (member (1+ col) deps)))))
- (setf plot-lines
- (cons
- (format plot-str data-file
- (or (and ind (> ind 0)
- (not text-ind)
- (format "%d:" ind)) "")
- (1+ col)
- (if text-ind (format ":xticlabel(%d)" ind) "")
- with
- (or (nth col col-labels)
- (format "%d" (1+ col))))
- plot-lines)))))
- (`3d
- (setq plot-lines (list (format "'%s' matrix with %s title ''"
- data-file with))))
- (`grid
- (setq plot-lines (list (format "'%s' with %s title ''"
- data-file with)))))
- (funcall ats
- (concat plot-cmd " " (mapconcat #'identity
- (reverse plot-lines)
- ",\\\n "))))
- script))
-
-;;-----------------------------------------------------------------------------
-;; facade functions
-;;;###autoload
-(defun org-plot/gnuplot (&optional params)
- "Plot table using gnuplot. Gnuplot options can be specified with PARAMS.
-If not given options will be taken from the +PLOT
-line directly before or after the table."
- (interactive)
- (require 'gnuplot)
- (save-window-excursion
- (delete-other-windows)
- (when (get-buffer "*gnuplot*") ; reset *gnuplot* if it already running
- (with-current-buffer "*gnuplot*"
- (goto-char (point-max))))
- (org-plot/goto-nearest-table)
- ;; Set default options.
- (dolist (pair org-plot/gnuplot-default-options)
- (unless (plist-member params (car pair))
- (setf params (plist-put params (car pair) (cdr pair)))))
- ;; collect table and table information
- (let* ((data-file (make-temp-file "org-plot"))
- (table (org-table-to-lisp))
- (num-cols (length (if (eq (nth 0 table) 'hline) (nth 1 table)
- (nth 0 table)))))
- (run-with-idle-timer 0.1 nil #'delete-file data-file)
- (while (eq 'hline (car table)) (setf table (cdr table)))
- (when (eq (cadr table) 'hline)
- (setf params
- (plist-put params :labels (nth 0 table))) ; headers to labels
- (setf table (delq 'hline (cdr table)))) ; clean non-data from table
- ;; Collect options.
- (save-excursion (while (and (equal 0 (forward-line -1))
- (looking-at "[[:space:]]*#\\+"))
- (setf params (org-plot/collect-options params))))
- ;; Dump table to datafile (very different for grid).
- (pcase (plist-get params :plot-type)
- (`2d (org-plot/gnuplot-to-data table data-file params))
- (`3d (org-plot/gnuplot-to-data table data-file params))
- (`grid (let ((y-labels (org-plot/gnuplot-to-grid-data
- table data-file params)))
- (when y-labels (plist-put params :ylabels y-labels)))))
- ;; Check for timestamp ind column.
- (let ((ind (1- (plist-get params :ind))))
- (when (and (>= ind 0) (eq '2d (plist-get params :plot-type)))
- (if (= (length
- (delq 0 (mapcar
- (lambda (el)
- (if (string-match org-ts-regexp3 el) 0 1))
- (mapcar (lambda (row) (nth ind row)) table))))
- 0)
- (plist-put params :timeind t)
- ;; Check for text ind column.
- (if (or (string= (plist-get params :with) "hist")
- (> (length
- (delq 0 (mapcar
- (lambda (el)
- (if (string-match org-table-number-regexp el)
- 0 1))
- (mapcar (lambda (row) (nth ind row)) table))))
- 0))
- (plist-put params :textind t)))))
- ;; Write script.
- (with-temp-buffer
- (if (plist-get params :script) ; user script
- (progn (insert
- (org-plot/gnuplot-script data-file num-cols params t))
- (insert "\n")
- (insert-file-contents (plist-get params :script))
- (goto-char (point-min))
- (while (re-search-forward "$datafile" nil t)
- (replace-match data-file nil nil)))
- (insert (org-plot/gnuplot-script data-file num-cols params)))
- ;; Graph table.
- (gnuplot-mode)
- (gnuplot-send-buffer-to-gnuplot))
- ;; Cleanup.
- (bury-buffer (get-buffer "*gnuplot*")))))
-
-(provide 'org-plot)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-plot.el ends here
diff --git a/elpa/org-9.1.14/org-plot.elc b/elpa/org-9.1.14/org-plot.elc
deleted file mode 100644
index 3b1c91a..0000000
--- a/elpa/org-9.1.14/org-plot.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-protocol.el b/elpa/org-9.1.14/org-protocol.el
deleted file mode 100644
index 33957ee..0000000
--- a/elpa/org-9.1.14/org-protocol.el
+++ /dev/null
@@ -1,730 +0,0 @@
-;;; org-protocol.el --- Intercept Calls from Emacsclient to Trigger Custom Actions -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2008-2018 Free Software Foundation, Inc.
-;;
-;; Authors: Bastien Guerry <bzg@gnu.org>
-;; Daniel M German <dmg AT uvic DOT org>
-;; Sebastian Rose <sebastian_rose AT gmx DOT de>
-;; Ross Patterson <me AT rpatterson DOT net>
-;; Maintainer: Sebastian Rose <sebastian_rose AT gmx DOT de>
-;; Keywords: org, emacsclient, wp
-
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Commentary:
-;;
-;; Intercept calls from emacsclient to trigger custom actions.
-;;
-;; This is done by advising `server-visit-files' to scan the list of filenames
-;; for `org-protocol-the-protocol' and sub-protocols defined in
-;; `org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'.
-;;
-;; Any application that supports calling external programs with an URL
-;; as argument may be used with this functionality.
-;;
-;;
-;; Usage:
-;; ------
-;;
-;; 1.) Add this to your init file (.emacs probably):
-;;
-;; (add-to-list 'load-path "/path/to/org-protocol/")
-;; (require 'org-protocol)
-;;
-;; 3.) Ensure emacs-server is up and running.
-;; 4.) Try this from the command line (adjust the URL as needed):
-;;
-;; $ emacsclient \
-;; org-protocol://store-link?url=http:%2F%2Flocalhost%2Findex.html&title=The%20title
-;;
-;; 5.) Optionally add custom sub-protocols and handlers:
-;;
-;; (setq org-protocol-protocol-alist
-;; '(("my-protocol"
-;; :protocol "my-protocol"
-;; :function my-protocol-handler-function)))
-;;
-;; A "sub-protocol" will be found in URLs like this:
-;;
-;; org-protocol://sub-protocol?key=val&key2=val2
-;;
-;; If it works, you can now setup other applications for using this feature.
-;;
-;;
-;; As of March 2009 Firefox users follow the steps documented on
-;; http://kb.mozillazine.org/Register_protocol, Opera setup is described here:
-;; http://www.opera.com/support/kb/view/535/
-;;
-;;
-;; Documentation
-;; -------------
-;;
-;; org-protocol.el comes with and installs handlers to open sources of published
-;; online content, store and insert the browser's URLs and cite online content
-;; by clicking on a bookmark in Firefox, Opera and probably other browsers and
-;; applications:
-;;
-;; * `org-protocol-open-source' uses the sub-protocol \"open-source\" and maps
-;; URLs to local filenames defined in `org-protocol-project-alist'.
-;;
-;; * `org-protocol-store-link' stores an Org link (if Org is present) and
-;; pushes the browsers URL to the `kill-ring' for yanking. This handler is
-;; triggered through the sub-protocol \"store-link\".
-;;
-;; * Call `org-protocol-capture' by using the sub-protocol \"capture\". If
-;; Org is loaded, Emacs will pop-up a capture buffer and fill the
-;; template with the data provided. I.e. the browser's URL is inserted as an
-;; Org-link of which the page title will be the description part. If text
-;; was select in the browser, that text will be the body of the entry.
-;;
-;; You may use the same bookmark URL for all those standard handlers and just
-;; adjust the sub-protocol used:
-;;
-;; location.href='org-protocol://sub-protocol?url='+
-;; encodeURIComponent(location.href)+'&title='+
-;; encodeURIComponent(document.title)+'&body='+
-;; encodeURIComponent(window.getSelection())
-;;
-;; The handler for the sub-protocol \"capture\" detects an optional template
-;; char that, if present, triggers the use of a special template.
-;; Example:
-;;
-;; location.href='org-protocol://capture?template=x'+ ...
-;;
-;; uses template ?x.
-;;
-;; Note that using double slashes is optional from org-protocol.el's point of
-;; view because emacsclient squashes the slashes to one.
-;;
-;;
-;; provides: 'org-protocol
-;;
-;;; Code:
-
-(require 'org)
-
-(declare-function org-publish-get-project-from-filename "ox-publish"
- (filename &optional up))
-(declare-function server-edit "server" (&optional arg))
-
-(defvar org-capture-link-is-already-stored)
-
-(defgroup org-protocol nil
- "Intercept calls from emacsclient to trigger custom actions.
-
-This is done by advising `server-visit-files' to scan the list of filenames
-for `org-protocol-the-protocol' and sub-protocols defined in
-`org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'."
- :version "22.1"
- :group 'convenience
- :group 'org)
-
-
-;;; Variables:
-
-(defconst org-protocol-protocol-alist-default
- '(("org-capture" :protocol "capture" :function org-protocol-capture :kill-client t)
- ("org-store-link" :protocol "store-link" :function org-protocol-store-link)
- ("org-open-source" :protocol "open-source" :function org-protocol-open-source))
- "Default protocols to use.
-See `org-protocol-protocol-alist' for a description of this variable.")
-
-(defconst org-protocol-the-protocol "org-protocol"
- "This is the protocol to detect if org-protocol.el is loaded.
-`org-protocol-protocol-alist-default' and `org-protocol-protocol-alist' hold
-the sub-protocols that trigger the required action. You will have to define
-just one protocol handler OS-wide (MS-Windows) or per application (Linux).
-That protocol handler should call emacsclient.")
-
-;;; User variables:
-
-(defcustom org-protocol-reverse-list-of-files t
- "Non-nil means re-reverse the list of filenames passed on the command line.
-The filenames passed on the command line are passed to the emacs-server in
-reverse order. Set to t (default) to re-reverse the list, i.e. use the
-sequence on the command line. If nil, the sequence of the filenames is
-unchanged."
- :group 'org-protocol
- :type 'boolean)
-
-(defcustom org-protocol-project-alist nil
- "Map URLs to local filenames for `org-protocol-open-source' (open-source).
-
-Each element of this list must be of the form:
-
- (module-name :property value property: value ...)
-
-where module-name is an arbitrary name. All the values are strings.
-
-Possible properties are:
-
- :online-suffix - the suffix to strip from the published URLs
- :working-suffix - the replacement for online-suffix
- :base-url - the base URL, e.g. http://www.example.com/project/
- Last slash required.
- :working-directory - the local working directory. This is, what base-url will
- be replaced with.
- :redirects - A list of cons cells, each of which maps a regular
- expression to match to a path relative to :working-directory.
-
-Example:
-
- (setq org-protocol-project-alist
- \\='((\"https://orgmode.org/worg/\"
- :online-suffix \".php\"
- :working-suffix \".org\"
- :base-url \"https://orgmode.org/worg/\"
- :working-directory \"/home/user/org/Worg/\")
- (\"http://localhost/org-notes/\"
- :online-suffix \".html\"
- :working-suffix \".org\"
- :base-url \"http://localhost/org/\"
- :working-directory \"/home/user/org/\"
- :rewrites ((\"org/?$\" . \"index.php\")))
- (\"Hugo based blog\"
- :base-url \"https://www.site.com/\"
- :working-directory \"~/site/content/post/\"
- :online-suffix \".html\"
- :working-suffix \".md\"
- :rewrites ((\"\\(https://site.com/[0-9]+/[0-9]+/[0-9]+/\\)\" . \".md\")))))
-
-
- The last line tells `org-protocol-open-source' to open
- /home/user/org/index.php, if the URL cannot be mapped to an existing
- file, and ends with either \"org\" or \"org/\".
-
-Consider using the interactive functions `org-protocol-create' and
-`org-protocol-create-for-org' to help you filling this variable with valid contents."
- :group 'org-protocol
- :type 'alist)
-
-(defcustom org-protocol-protocol-alist nil
- "Register custom handlers for org-protocol.
-
-Each element of this list must be of the form:
-
- (module-name :protocol protocol :function func :kill-client nil)
-
-protocol - protocol to detect in a filename without trailing
- colon and slashes. See rfc1738 section 2.1 for more
- on this. If you define a protocol \"my-protocol\",
- `org-protocol-check-filename-for-protocol' will search
- filenames for \"org-protocol:/my-protocol\" and
- trigger your action for every match. `org-protocol'
- is defined in `org-protocol-the-protocol'. Double and
- triple slashes are compressed to one by emacsclient.
-
-function - function that handles requests with protocol and takes
- one argument. If a new-style link (key=val&key2=val2)
- is given, the argument will be a property list with
- the values from the link. If an old-style link is
- given (val1/val2), the argument will be the filename
- with all protocols stripped.
-
- If the function returns nil, emacsclient and -server
- do nothing. Any non-nil return value is considered a
- valid filename and thus passed to the server.
-
- `org-protocol.el' provides some support for handling
- old-style filenames, if you follow the conventions
- used for the standard handlers in
- `org-protocol-protocol-alist-default'. See
- `org-protocol-parse-parameters'.
-
-kill-client - If t, kill the client immediately, once the sub-protocol is
- detected. This is necessary for actions that can be interrupted by
- `C-g' to avoid dangling emacsclients. Note that all other command
- line arguments but the this one will be discarded. Greedy handlers
- still receive the whole list of arguments though.
-
-Here is an example:
-
- (setq org-protocol-protocol-alist
- \\='((\"my-protocol\"
- :protocol \"my-protocol\"
- :function my-protocol-handler-function)
- (\"your-protocol\"
- :protocol \"your-protocol\"
- :function your-protocol-handler-function)))"
- :group 'org-protocol
- :type '(alist))
-
-(defcustom org-protocol-default-template-key nil
- "The default template key to use.
-This is usually a single character string but can also be a
-string with two characters."
- :group 'org-protocol
- :type '(choice (const nil) (string)))
-
-(defcustom org-protocol-data-separator "/+\\|\\?"
- "The default data separator to use.
-This should be a single regexp string."
- :group 'org-protocol
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-;;; Helper functions:
-
-(defun org-protocol-sanitize-uri (uri)
- "Sanitize slashes to double-slashes in URI.
-Emacsclient compresses double and triple slashes."
- (when (string-match "^\\([a-z]+\\):/" uri)
- (let* ((splitparts (split-string uri "/+")))
- (setq uri (concat (car splitparts) "//" (mapconcat 'identity (cdr splitparts) "/")))))
- uri)
-
-(defun org-protocol-split-data (data &optional unhexify separator)
- "Split the DATA argument for an org-protocol handler function.
-If UNHEXIFY is non-nil, hex-decode each split part. If UNHEXIFY
-is a function, use that function to decode each split part. The
-string is split at each occurrence of SEPARATOR (regexp). If no
-SEPARATOR is specified or SEPARATOR is nil, assume \"/+\". The
-results of that splitting are returned as a list."
- (let* ((sep (or separator "/+\\|\\?"))
- (split-parts (split-string data sep)))
- (if unhexify
- (if (fboundp unhexify)
- (mapcar unhexify split-parts)
- (mapcar 'org-link-unescape split-parts))
- split-parts)))
-
-(defun org-protocol-flatten-greedy (param-list &optional strip-path replacement)
- "Transform PARAM-LIST into a flat list for greedy handlers.
-
-Greedy handlers might receive a list like this from emacsclient:
-\((\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\"))
-where \"/dir/\" is the absolute path to emacsclient's working directory. This
-function transforms it into a flat list using `org-protocol-flatten' and
-transforms the elements of that list as follows:
-
-If STRIP-PATH is non-nil, remove the \"/dir/\" prefix from all members of
-param-list.
-
-If REPLACEMENT is string, replace the \"/dir/\" prefix with it.
-
-The first parameter, the one that contains the protocols, is always changed.
-Everything up to the end of the protocols is stripped.
-
-Note, that this function will always behave as if
-`org-protocol-reverse-list-of-files' was set to t and the returned list will
-reflect that. emacsclient's first parameter will be the first one in the
-returned list."
- (let* ((l (org-protocol-flatten (if org-protocol-reverse-list-of-files
- param-list
- (reverse param-list))))
- (trigger (car l))
- (len 0)
- dir
- ret)
- (when (string-match "^\\(.*\\)\\(org-protocol:/+[a-zA-z0-9][-_a-zA-z0-9]*:/+\\)\\(.*\\)" trigger)
- (setq dir (match-string 1 trigger))
- (setq len (length dir))
- (setcar l (concat dir (match-string 3 trigger))))
- (if strip-path
- (progn
- (dolist (e l ret)
- (setq ret
- (append ret
- (list
- (if (stringp e)
- (if (stringp replacement)
- (setq e (concat replacement (substring e len)))
- (setq e (substring e len)))
- e)))))
- ret)
- l)))
-
-(defun org-protocol-flatten (list)
- "Transform LIST into a flat list.
-
-Greedy handlers might receive a list like this from emacsclient:
-\((\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\"))
-where \"/dir/\" is the absolute path to emacsclients working directory.
-This function transforms it into a flat list."
- (if (null list) ()
- (if (listp list)
- (append (org-protocol-flatten (car list)) (org-protocol-flatten (cdr list)))
- (list list))))
-
-(defun org-protocol-parse-parameters (info &optional new-style default-order)
- "Return a property list of parameters from INFO.
-If NEW-STYLE is non-nil, treat INFO as a query string (ex:
-url=URL&title=TITLE). If old-style links are used (ex:
-org-protocol://store-link/url/title), assign them to attributes
-following DEFAULT-ORDER.
-
-If no DEFAULT-ORDER is specified, return the list of values.
-
-If INFO is already a property list, return it unchanged."
- (if (listp info)
- info
- (if new-style
- (let ((data (org-protocol-convert-query-to-plist info))
- result)
- (while data
- (setq result
- (append
- result
- (list
- (pop data)
- (org-link-unescape (pop data))))))
- result)
- (let ((data (org-protocol-split-data info t org-protocol-data-separator)))
- (if default-order
- (org-protocol-assign-parameters data default-order)
- data)))))
-
-(defun org-protocol-assign-parameters (data default-order)
- "Return a property list of parameters from DATA.
-Key names are taken from DEFAULT-ORDER, which should be a list of
-symbols. If DEFAULT-ORDER is shorter than the number of values
-specified, the rest of the values are treated as :key value pairs."
- (let (result)
- (while default-order
- (setq result
- (append result
- (list (pop default-order)
- (pop data)))))
- (while data
- (setq result
- (append result
- (list (intern (concat ":" (pop data)))
- (pop data)))))
- result))
-
-;;; Standard protocol handlers:
-
-(defun org-protocol-store-link (fname)
- "Process an org-protocol://store-link style url.
-Additionally store a browser URL as an org link. Also pushes the
-link's URL to the `kill-ring'.
-
-Parameters: url, title (optional), body (optional)
-
-Old-style links such as org-protocol://store-link://URL/TITLE are
-also recognized.
-
-The location for a browser's bookmark has to look like this:
-
- javascript:location.href = \\
- \\='org-protocol://store-link?url=\\=' + \\
- encodeURIComponent(location.href) + \\='&title=\\=' + \\
- encodeURIComponent(document.title);
-
-Don't use `escape()'! Use `encodeURIComponent()' instead. The
-title of the page could contain slashes and the location
-definitely will.
-
-The sub-protocol used to reach this function is set in
-`org-protocol-protocol-alist'.
-
-FNAME should be a property list. If not, an old-style link of the
-form URL/TITLE can also be used."
- (let* ((splitparts (org-protocol-parse-parameters fname nil '(:url :title)))
- (uri (org-protocol-sanitize-uri (plist-get splitparts :url)))
- (title (plist-get splitparts :title)))
- (when (boundp 'org-stored-links)
- (push (list uri title) org-stored-links))
- (kill-new uri)
- (message "`%s' to insert new org-link, `%s' to insert `%s'"
- (substitute-command-keys "`\\[org-insert-link]'")
- (substitute-command-keys "`\\[yank]'")
- uri))
- nil)
-
-(defun org-protocol-capture (info)
- "Process an org-protocol://capture style url with INFO.
-
-The sub-protocol used to reach this function is set in
-`org-protocol-protocol-alist'.
-
-This function detects an URL, title and optional text, separated
-by `/'. The location for a browser's bookmark looks like this:
-
- javascript:location.href = \\='org-protocol://capture?url=\\='+ \\
- encodeURIComponent(location.href) + \\='&title=\\=' \\
- encodeURIComponent(document.title) + \\='&body=\\=' + \\
- encodeURIComponent(window.getSelection())
-
-By default, it uses the character `org-protocol-default-template-key',
-which should be associated with a template in `org-capture-templates'.
-You may specify the template with a template= query parameter, like this:
-
- javascript:location.href = \\='org-protocol://capture?template=b\\='+ ...
-
-Now template ?b will be used."
- (if (and (boundp 'org-stored-links)
- (org-protocol-do-capture info))
- (message "Item captured."))
- nil)
-
-(defun org-protocol-convert-query-to-plist (query)
- "Convert QUERY key=value pairs in the URL to a property list."
- (if query
- (apply 'append (mapcar (lambda (x)
- (let ((c (split-string x "=")))
- (list (intern (concat ":" (car c))) (cadr c))))
- (split-string query "&")))))
-
-(defun org-protocol-do-capture (info)
- "Perform the actual capture based on INFO."
- (let* ((temp-parts (org-protocol-parse-parameters info))
- (parts
- (cond
- ((and (listp info) (symbolp (car info))) info)
- ((= (length (car temp-parts)) 1) ;; First parameter is exactly one character long
- (org-protocol-assign-parameters temp-parts '(:template :url :title :body)))
- (t
- (org-protocol-assign-parameters temp-parts '(:url :title :body)))))
- (template (or (plist-get parts :template)
- org-protocol-default-template-key))
- (url (and (plist-get parts :url) (org-protocol-sanitize-uri (plist-get parts :url))))
- (type (and url (if (string-match "^\\([a-z]+\\):" url)
- (match-string 1 url))))
- (title (or (plist-get parts :title) ""))
- (region (or (plist-get parts :body) ""))
- (orglink (if url
- (org-make-link-string
- url (if (string-match "[^[:space:]]" title) title url))
- title))
- (org-capture-link-is-already-stored t)) ;; avoid call to org-store-link
- (setq org-stored-links
- (cons (list url title) org-stored-links))
- (org-store-link-props :type type
- :link url
- :description title
- :annotation orglink
- :initial region
- :query parts)
- (raise-frame)
- (funcall 'org-capture nil template)))
-
-(defun org-protocol-open-source (fname)
- "Process an org-protocol://open-source?url= style URL with FNAME.
-
-Change a filename by mapping URLs to local filenames as set
-in `org-protocol-project-alist'.
-
-The location for a browser's bookmark should look like this:
-
- javascript:location.href = \\='org-protocol://open-source?url=\\=' + \\
- encodeURIComponent(location.href)"
- ;; As we enter this function for a match on our protocol, the return value
- ;; defaults to nil.
- (let ((result nil)
- (f (org-protocol-sanitize-uri
- (plist-get (org-protocol-parse-parameters fname nil '(:url))
- :url))))
- (catch 'result
- (dolist (prolist org-protocol-project-alist)
- (let* ((base-url (plist-get (cdr prolist) :base-url))
- (wsearch (regexp-quote base-url)))
-
- (when (string-match wsearch f)
- (let* ((wdir (plist-get (cdr prolist) :working-directory))
- (strip-suffix (plist-get (cdr prolist) :online-suffix))
- (add-suffix (plist-get (cdr prolist) :working-suffix))
- ;; Strip "[?#].*$" if `f' is a redirect with another
- ;; ending than strip-suffix here:
- (f1 (substring f 0 (string-match "\\([\\?#].*\\)?$" f)))
- (start-pos (+ (string-match wsearch f1) (length base-url)))
- (end-pos (string-match
- (regexp-quote strip-suffix) f1))
- ;; We have to compare redirects without suffix below:
- (f2 (concat wdir (substring f1 start-pos end-pos)))
- (the-file (concat f2 add-suffix)))
-
- ;; Note: the-file may still contain `%C3' et al here because browsers
- ;; tend to encode `ä' in URLs to `%25C3' - `%25' being `%'.
- ;; So the results may vary.
-
- ;; -- start redirects --
- (unless (file-exists-p the-file)
- (message "File %s does not exist.\nTesting for rewritten URLs." the-file)
- (let ((rewrites (plist-get (cdr prolist) :rewrites)))
- (when rewrites
- (message "Rewrites found: %S" rewrites)
- (dolist (rewrite rewrites)
- ;; Try to match a rewritten URL and map it to
- ;; a real file. Compare redirects without
- ;; suffix.
- (when (string-match (car rewrite) f1)
- (let ((replacement
- (concat (directory-file-name
- (replace-match "" nil nil f1 1))
- (cdr rewrite))))
- (throw 'result (concat wdir replacement))))))))
- ;; -- end of redirects --
-
- (if (file-readable-p the-file)
- (throw 'result the-file))
- (if (file-exists-p the-file)
- (message "%s: permission denied!" the-file)
- (message "%s: no such file or directory." the-file))))))
- result)))
-
-
-;;; Core functions:
-
-(defun org-protocol-check-filename-for-protocol (fname restoffiles _client)
- "Check if `org-protocol-the-protocol' and a valid protocol are used in FNAME.
-Sub-protocols are registered in `org-protocol-protocol-alist' and
-`org-protocol-protocol-alist-default'. This is how the matching is done:
-
- (string-match \"protocol:/+sub-protocol\\\\(://\\\\|\\\\?\\\\)\" ...)
-
-protocol and sub-protocol are regexp-quoted.
-
-Old-style links such as \"protocol://sub-protocol://param1/param2\" are
-also recognized.
-
-If a matching protocol is found, the protocol is stripped from
-fname and the result is passed to the protocol function as the
-first parameter. The second parameter will be non-nil if FNAME
-uses key=val&key2=val2-type arguments, or nil if FNAME uses
-val/val2-type arguments. If the function returns nil, the
-filename is removed from the list of filenames passed from
-emacsclient to the server. If the function returns a non-nil
-value, that value is passed to the server as filename.
-
-If the handler function is greedy, RESTOFFILES will also be passed to it.
-
-CLIENT is ignored."
- (let ((sub-protocols (append org-protocol-protocol-alist
- org-protocol-protocol-alist-default)))
- (catch 'fname
- (let ((the-protocol (concat (regexp-quote org-protocol-the-protocol)
- ":/+")))
- (when (string-match the-protocol fname)
- (dolist (prolist sub-protocols)
- (let ((proto
- (concat the-protocol
- (regexp-quote (plist-get (cdr prolist) :protocol))
- "\\(:/+\\|\\?\\)")))
- (when (string-match proto fname)
- (let* ((func (plist-get (cdr prolist) :function))
- (greedy (plist-get (cdr prolist) :greedy))
- (split (split-string fname proto))
- (result (if greedy restoffiles (cadr split)))
- (new-style (string= (match-string 1 fname) "?")))
- (when (plist-get (cdr prolist) :kill-client)
- (message "Greedy org-protocol handler. Killing client.")
- (server-edit))
- (when (fboundp func)
- (unless greedy
- (throw 'fname
- (if new-style
- (funcall func (org-protocol-parse-parameters
- result new-style))
- (warn "Please update your Org Protocol handler \
-to deal with new-style links.")
- (funcall func result))))
- ;; Greedy protocol handlers are responsible for
- ;; parsing their own filenames.
- (funcall func result)
- (throw 'fname t))))))))
- fname)))
-
-(defadvice server-visit-files (before org-protocol-detect-protocol-server activate)
- "Advice server-visit-flist to call `org-protocol-modify-filename-for-protocol'."
- (let ((flist (if org-protocol-reverse-list-of-files
- (reverse (ad-get-arg 0))
- (ad-get-arg 0)))
- (client (ad-get-arg 1)))
- (catch 'greedy
- (dolist (var flist)
- ;; `\' to `/' on windows. FIXME: could this be done any better?
- (let ((fname (expand-file-name (car var))))
- (setq fname (org-protocol-check-filename-for-protocol
- fname (member var flist) client))
- (if (eq fname t) ;; greedy? We need the t return value.
- (progn
- (ad-set-arg 0 nil)
- (throw 'greedy t))
- (if (stringp fname) ;; probably filename
- (setcar var fname)
- (ad-set-arg 0 (delq var (ad-get-arg 0))))))))))
-
-;;; Org specific functions:
-
-(defun org-protocol-create-for-org ()
- "Create an Org protocol project for the current file's project.
-The visited file needs to be part of a publishing project in
-`org-publish-project-alist' for this to work. The function
-delegates most of the work to `org-protocol-create'."
- (interactive)
- (require 'ox-publish)
- (let ((all (or (org-publish-get-project-from-filename buffer-file-name))))
- (if all (org-protocol-create (cdr all))
- (message "%s"
- (substitute-command-keys
- "Not in an Org project. \
-Did you mean `\\[org-protocol-create]'?")))))
-
-(defun org-protocol-create (&optional project-plist)
- "Create a new org-protocol project interactively.
-An org-protocol project is an entry in
-`org-protocol-project-alist' which is used by
-`org-protocol-open-source'. Optionally use PROJECT-PLIST to
-initialize the defaults for this project. If PROJECT-PLIST is
-the cdr of an element in `org-publish-project-alist', reuse
-:base-directory, :html-extension and :base-extension."
- (interactive)
- (let ((working-dir (expand-file-name
- (or (plist-get project-plist :base-directory)
- default-directory)))
- (base-url "https://orgmode.org/worg/")
- (strip-suffix (or (plist-get project-plist :html-extension) ".html"))
- (working-suffix (if (plist-get project-plist :base-extension)
- (concat "." (plist-get project-plist :base-extension))
- ".org"))
- (insert-default-directory t)
- (minibuffer-allow-text-properties nil))
-
- (setq base-url (read-string "Base URL of published content: " base-url nil base-url t))
- (or (string-suffix-p "/" base-url)
- (setq base-url (concat base-url "/")))
-
- (setq working-dir
- (expand-file-name
- (read-directory-name "Local working directory: " working-dir working-dir t)))
- (or (string-suffix-p "/" working-dir)
- (setq working-dir (concat working-dir "/")))
-
- (setq strip-suffix
- (read-string
- (concat "Extension to strip from published URLs (" strip-suffix "): ")
- strip-suffix nil strip-suffix t))
-
- (setq working-suffix
- (read-string
- (concat "Extension of editable files (" working-suffix "): ")
- working-suffix nil working-suffix t))
-
- (when (yes-or-no-p "Save the new org-protocol-project to your init file? ")
- (setq org-protocol-project-alist
- (cons `(,base-url . (:base-url ,base-url
- :working-directory ,working-dir
- :online-suffix ,strip-suffix
- :working-suffix ,working-suffix))
- org-protocol-project-alist))
- (customize-save-variable 'org-protocol-project-alist org-protocol-project-alist))))
-
-(provide 'org-protocol)
-
-;;; org-protocol.el ends here
diff --git a/elpa/org-9.1.14/org-protocol.elc b/elpa/org-9.1.14/org-protocol.elc
deleted file mode 100644
index 93ac340..0000000
--- a/elpa/org-9.1.14/org-protocol.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-rmail.el b/elpa/org-9.1.14/org-rmail.el
deleted file mode 100644
index d50fd64..0000000
--- a/elpa/org-9.1.14/org-rmail.el
+++ /dev/null
@@ -1,115 +0,0 @@
-;;; org-rmail.el --- Support for Links to Rmail Messages -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements links to Rmail messages from within Org mode.
-;; Org mode loads this module by default - if this is not what you
-;; want, configure the variable `org-modules'.
-
-;;; Code:
-
-(require 'org)
-
-;; Declare external functions and variables
-(declare-function rmail-show-message "rmail" (&optional n no-summary))
-(declare-function rmail-what-message "rmail" (&optional pos))
-(declare-function rmail-toggle-header "rmail" (&optional arg))
-(declare-function rmail "rmail" (&optional file-name-arg))
-(declare-function rmail-widen "rmail" ())
-(defvar rmail-current-message) ; From rmail.el
-(defvar rmail-header-style) ; From rmail.el
-(defvar rmail-file-name) ; From rmail.el
-
-;; Install the link type
-(org-link-set-parameters "rmail" :follow #'org-rmail-open :store #'org-rmail-store-link)
-
-;; Implementation
-(defun org-rmail-store-link ()
- "Store a link to an Rmail folder or message."
- (when (or (eq major-mode 'rmail-mode)
- (eq major-mode 'rmail-summary-mode))
- (save-window-excursion
- (save-restriction
- (when (eq major-mode 'rmail-summary-mode)
- (rmail-show-message rmail-current-message))
- (when (fboundp 'rmail-narrow-to-non-pruned-header)
- (rmail-narrow-to-non-pruned-header))
- (when (eq rmail-header-style 'normal)
- (rmail-toggle-header -1))
- (let* ((folder buffer-file-name)
- (message-id (mail-fetch-field "message-id"))
- (from (mail-fetch-field "from"))
- (to (mail-fetch-field "to"))
- (subject (mail-fetch-field "subject"))
- (date (mail-fetch-field "date"))
- desc link)
- (org-store-link-props
- :type "rmail" :from from :to to :date date
- :subject subject :message-id message-id)
- (setq message-id (org-unbracket-string "<" ">" message-id))
- (setq desc (org-email-link-description))
- (setq link (concat "rmail:" folder "#" message-id))
- (org-add-link-props :link link :description desc)
- (rmail-show-message rmail-current-message)
- link)))))
-
-(defun org-rmail-open (path)
- "Follow an Rmail message link to the specified PATH."
- (let (folder article)
- (if (not (string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" path))
- (error "Error in Rmail link"))
- (setq folder (match-string 1 path)
- article (match-string 3 path))
- (org-rmail-follow-link folder article)))
-
-(defun org-rmail-follow-link (folder article)
- "Follow an Rmail link to FOLDER and ARTICLE."
- (require 'rmail)
- (cond ((null article) (setq article ""))
- ((stringp article)
- (setq article (org-add-angle-brackets article)))
- (t (user-error "Wrong RMAIL link format")))
- (let (message-number)
- (save-excursion
- (save-window-excursion
- (rmail (if (string= folder "RMAIL") rmail-file-name folder))
- (setq message-number
- (save-restriction
- (rmail-widen)
- (goto-char (point-max))
- (if (re-search-backward
- (concat "^Message-ID:\\s-+" (regexp-quote article))
- nil t)
- (rmail-what-message))))))
- (if message-number
- (progn
- (rmail (if (string= folder "RMAIL") rmail-file-name folder))
- (rmail-show-message message-number)
- message-number)
- (error "Message not found"))))
-
-(provide 'org-rmail)
-
-;;; org-rmail.el ends here
diff --git a/elpa/org-9.1.14/org-rmail.elc b/elpa/org-9.1.14/org-rmail.elc
deleted file mode 100644
index 8377803..0000000
--- a/elpa/org-9.1.14/org-rmail.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-src.el b/elpa/org-9.1.14/org-src.el
deleted file mode 100644
index 4d65a71..0000000
--- a/elpa/org-9.1.14/org-src.el
+++ /dev/null
@@ -1,1158 +0,0 @@
-;;; org-src.el --- Source code examples in Org -*- lexical-binding: t; -*-
-;;
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Bastien Guerry <bzg@gnu.org>
-;; Dan Davison <davison at stats dot ox dot ac dot uk>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the code dealing with source code examples in
-;; Org mode.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org-macs)
-(require 'org-compat)
-(require 'ob-keys)
-(require 'ob-comint)
-
-(declare-function org-base-buffer "org" (buffer))
-(declare-function org-do-remove-indentation "org" (&optional n))
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-class "org-element" (datum &optional parent))
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-lineage "org-element"
- (blob &optional types with-self))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-footnote-goto-definition "org-footnote"
- (label &optional location))
-(declare-function org-get-indentation "org" (&optional line))
-(declare-function org-switch-to-buffer-other-window "org" (&rest args))
-(declare-function org-trim "org" (s &optional keep-lead))
-
-(defvar org-inhibit-startup)
-
-(defcustom org-edit-src-turn-on-auto-save nil
- "Non-nil means turn `auto-save-mode' on when editing a source block.
-This will save the content of the source code editing buffer into
-a newly created file, not the base buffer for this source block.
-
-If you want to regularly save the base buffer instead of the source
-code editing buffer, see `org-edit-src-auto-save-idle-delay' instead."
- :group 'org-edit-structure
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-edit-src-auto-save-idle-delay 0
- "Delay before saving a source code buffer back into its base buffer.
-When a positive integer N, save after N seconds of idle time.
-When 0 (the default), don't auto-save.
-
-If you want to save the source code buffer itself, don't use this.
-Check `org-edit-src-turn-on-auto-save' instead."
- :group 'org-edit-structure
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'integer)
-
-(defcustom org-coderef-label-format "(ref:%s)"
- "The default coderef format.
-This format string will be used to search for coderef labels in literal
-examples (EXAMPLE and SRC blocks). The format can be overwritten in
-an individual literal example with the -l option, like
-
-#+BEGIN_SRC pascal +n -r -l \"((%s))\"
-...
-#+END_SRC
-
-If you want to use this for HTML export, make sure that the format does
-not introduce special font-locking, and avoid the HTML special
-characters `<', `>', and `&'. The reason for this restriction is that
-the labels are searched for only after htmlize has done its job."
- :group 'org-edit-structure ; FIXME this is not in the right group
- :type 'string)
-
-(defcustom org-edit-fixed-width-region-mode 'artist-mode
- "The mode that should be used to edit fixed-width regions.
-These are the regions where each line starts with a colon."
- :group 'org-edit-structure
- :type '(choice
- (const artist-mode)
- (const picture-mode)
- (const fundamental-mode)
- (function :tag "Other (specify)")))
-
-(defcustom org-src-preserve-indentation nil
- "If non-nil preserve leading whitespace characters on export.
-\\<org-mode-map>
-If non-nil leading whitespace characters in source code blocks
-are preserved on export, and when switching between the org
-buffer and the language mode edit buffer.
-
-When this variable is nil, after editing with `\\[org-edit-src-code]',
-the minimum (across-lines) number of leading whitespace characters
-are removed from all lines, and the code block is uniformly indented
-according to the value of `org-edit-src-content-indentation'."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-edit-src-content-indentation 2
- "Indentation for the content of a source code block.
-
-This should be the number of spaces added to the indentation of the #+begin
-line in order to compute the indentation of the block content after
-editing it with `\\[org-edit-src-code]'.
-
-It has no effect if `org-src-preserve-indentation' is non-nil."
- :group 'org-edit-structure
- :type 'integer)
-
-(defcustom org-edit-src-persistent-message t
- "Non-nil means show persistent exit help message while editing src examples.
-The message is shown in the header-line, which will be created in the
-first line of the window showing the editing buffer."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-src-ask-before-returning-to-edit-buffer t
- "Non-nil means ask before switching to an existing edit buffer.
-If nil, when `org-edit-src-code' is used on a block that already
-has an active edit buffer, it will switch to that edit buffer
-immediately; otherwise it will ask whether you want to return to
-the existing edit buffer."
- :group 'org-edit-structure
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-src-window-setup 'reorganize-frame
- "How the source code edit buffer should be displayed.
-Possible values for this option are:
-
-current-window Show edit buffer in the current window, keeping all other
- windows.
-other-window Use `switch-to-buffer-other-window' to display edit buffer.
-reorganize-frame Show only two windows on the current frame, the current
- window and the edit buffer. When exiting the edit buffer,
- return to one window.
-other-frame Use `switch-to-buffer-other-frame' to display edit buffer.
- Also, when exiting the edit buffer, kill that frame."
- :group 'org-edit-structure
- :type '(choice
- (const current-window)
- (const other-frame)
- (const other-window)
- (const reorganize-frame)))
-
-(defvar org-src-mode-hook nil
- "Hook run after Org switched a source code snippet to its Emacs mode.
-\\<org-mode-map>
-This hook will run:
-- when editing a source code snippet with `\\[org-edit-special]'
-- when formatting a source code snippet for export with htmlize.
-
-You may want to use this hook for example to turn off `outline-minor-mode'
-or similar things which you want to have when editing a source code file,
-but which mess up the display of a snippet in Org exported files.")
-
-(defcustom org-src-lang-modes
- '(("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa" . artist)
- ("asymptote" . asy) ("dot" . fundamental) ("sqlite" . sql)
- ("calc" . fundamental) ("C" . c) ("cpp" . c++) ("C++" . c++)
- ("screen" . shell-script) ("shell" . sh) ("bash" . sh))
- "Alist mapping languages to their major mode.
-The key is the language name, the value is the string that should
-be inserted as the name of the major mode. For many languages this is
-simple, but for language where this is not the case, this variable
-provides a way to simplify things on the user side.
-For example, there is no ocaml-mode in Emacs, but the mode to use is
-`tuareg-mode'."
- :group 'org-edit-structure
- :type '(repeat
- (cons
- (string "Language name")
- (symbol "Major mode"))))
-
-(defcustom org-src-block-faces nil
- "Alist of faces to be used for source-block.
-Each element is a cell of the format
-
- (\"language\" FACE)
-
-Where FACE is either a defined face or an anonymous face.
-
-For instance, the following value would color the background of
-emacs-lisp source blocks and python source blocks in purple and
-green, respectability.
-
- \\='((\"emacs-lisp\" (:background \"#EEE2FF\"))
- (\"python\" (:background \"#e5ffb8\")))"
- :group 'org-edit-structure
- :type '(repeat (list (string :tag "language")
- (choice
- (face :tag "Face")
- (sexp :tag "Anonymous face"))))
- :version "26.1"
- :package-version '(Org . "9.0"))
-
-(defcustom org-src-tab-acts-natively nil
- "If non-nil, the effect of TAB in a code block is as if it were
-issued in the language major mode buffer."
- :type 'boolean
- :version "24.1"
- :group 'org-babel)
-
-
-
-;;; Internal functions and variables
-
-(defvar-local org-src--allow-write-back t)
-(put 'org-src--allow-write-back 'permanent-local t)
-
-(defvar-local org-src--auto-save-timer nil)
-(put 'org-src--auto-save-timer 'permanent-local t)
-
-(defvar-local org-src--babel-info nil)
-(put 'org-src--babel-info 'permanent-local t)
-
-(defvar-local org-src--beg-marker nil)
-(put 'org-src--beg-marker 'permanent-local t)
-
-(defvar-local org-src--block-indentation nil)
-(put 'org-src--block-indentation 'permanent-local t)
-
-(defvar-local org-src--end-marker nil)
-(put 'org-src--end-marker 'permanent-local t)
-
-(defvar-local org-src--from-org-mode nil)
-(put 'org-src--from-org-mode 'permanent-local t)
-
-(defvar-local org-src--overlay nil)
-(put 'org-src--overlay 'permanent-local t)
-
-(defvar-local org-src--preserve-indentation nil)
-(put 'org-src--preserve-indentation 'permanent-local t)
-
-(defvar-local org-src--remote nil)
-(put 'org-src--remote 'permanent-local t)
-
-(defvar-local org-src--saved-temp-window-config nil)
-(put 'org-src--saved-temp-window-config 'permanent-local t)
-
-(defvar-local org-src--source-type nil
- "Type of element being edited, as a symbol.")
-(put 'org-src--source-type 'permanent-local t)
-
-(defvar-local org-src--tab-width nil
- "Contains `tab-width' value from Org source buffer.
-However, if `indent-tabs-mode' is nil in that buffer, its value
-is 0.")
-(put 'org-src--tab-width 'permanent-local t)
-
-(defun org-src--construct-edit-buffer-name (org-buffer-name lang)
- "Construct the buffer name for a source editing buffer."
- (concat "*Org Src " org-buffer-name "[ " lang " ]*"))
-
-(defun org-src--edit-buffer (beg end)
- "Return buffer editing area between BEG and END.
-Return nil if there is no such buffer."
- (catch 'exit
- (dolist (b (buffer-list))
- (with-current-buffer b
- (and (org-src-edit-buffer-p)
- (= beg org-src--beg-marker)
- (eq (marker-buffer beg) (marker-buffer org-src--beg-marker))
- (= end org-src--end-marker)
- (eq (marker-buffer end) (marker-buffer org-src--end-marker))
- (throw 'exit b))))))
-
-(defun org-src--source-buffer ()
- "Return source buffer edited by current buffer."
- (unless (org-src-edit-buffer-p) (error "Not in a source buffer"))
- (or (marker-buffer org-src--beg-marker)
- (error "No source buffer available for current editing session")))
-
-(defun org-src--get-lang-mode (lang)
- "Return major mode that should be used for LANG.
-LANG is a string, and the returned major mode is a symbol."
- (intern
- (concat
- (let ((l (or (cdr (assoc lang org-src-lang-modes)) lang)))
- (if (symbolp l) (symbol-name l) l))
- "-mode")))
-
-(defun org-src--coordinates (pos beg end)
- "Return coordinates of POS relatively to BEG and END.
-POS, BEG and END are buffer positions. Return value is either
-a cons cell (LINE . COLUMN) or symbol `end'. See also
-`org-src--goto-coordinates'."
- (if (>= pos end) 'end
- (org-with-wide-buffer
- (goto-char (max beg pos))
- (cons (count-lines beg (line-beginning-position))
- ;; Column is relative to the end of line to avoid problems of
- ;; comma escaping or colons appended in front of the line.
- (- (current-column)
- (progn (end-of-line) (current-column)))))))
-
-(defun org-src--goto-coordinates (coord beg end)
- "Move to coordinates COORD relatively to BEG and END.
-COORD are coordinates, as returned by `org-src--coordinates',
-which see. BEG and END are buffer positions."
- (goto-char
- (if (eq coord 'end) (max (1- end) beg)
- ;; If BEG happens to be located outside of the narrowed part of
- ;; the buffer, widen it first.
- (org-with-wide-buffer
- (goto-char beg)
- (forward-line (car coord))
- (end-of-line)
- (org-move-to-column (max (+ (current-column) (cdr coord)) 0))
- (point)))))
-
-(defun org-src--contents-area (datum)
- "Return contents boundaries of DATUM.
-DATUM is an element or object. Return a list (BEG END CONTENTS)
-where BEG and END are buffer positions and CONTENTS is a string."
- (let ((type (org-element-type datum)))
- (org-with-wide-buffer
- (cond
- ((eq type 'footnote-definition)
- (let* ((beg (progn
- (goto-char (org-element-property :post-affiliated datum))
- (search-forward "]")))
- (end (or (org-element-property :contents-end datum) beg)))
- (list beg end (buffer-substring-no-properties beg end))))
- ((eq type 'inline-src-block)
- (let ((beg (progn (goto-char (org-element-property :begin datum))
- (search-forward "{" (line-end-position) t)))
- (end (progn (goto-char (org-element-property :end datum))
- (search-backward "}" (line-beginning-position) t))))
- (list beg end (buffer-substring-no-properties beg end))))
- ((org-element-property :contents-begin datum)
- (let ((beg (org-element-property :contents-begin datum))
- (end (org-element-property :contents-end datum)))
- (list beg end (buffer-substring-no-properties beg end))))
- ((memq type '(example-block export-block src-block))
- (list (progn (goto-char (org-element-property :post-affiliated datum))
- (line-beginning-position 2))
- (progn (goto-char (org-element-property :end datum))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 1))
- (org-element-property :value datum)))
- ((memq type '(fixed-width latex-environment table))
- (let ((beg (org-element-property :post-affiliated datum))
- (end (progn (goto-char (org-element-property :end datum))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))))
- (list beg
- end
- (if (eq type 'fixed-width) (org-element-property :value datum)
- (buffer-substring-no-properties beg end)))))
- (t (error "Unsupported element or object: %s" type))))))
-
-(defun org-src--make-source-overlay (beg end edit-buffer)
- "Create overlay between BEG and END positions and return it.
-EDIT-BUFFER is the buffer currently editing area between BEG and
-END."
- (let ((overlay (make-overlay beg end)))
- (overlay-put overlay 'face 'secondary-selection)
- (overlay-put overlay 'edit-buffer edit-buffer)
- (overlay-put overlay 'help-echo
- "Click with mouse-1 to switch to buffer editing this segment")
- (overlay-put overlay 'face 'secondary-selection)
- (overlay-put overlay 'keymap
- (let ((map (make-sparse-keymap)))
- (define-key map [mouse-1] 'org-edit-src-continue)
- map))
- (let ((read-only
- (list
- (lambda (&rest _)
- (user-error
- "Cannot modify an area being edited in a dedicated buffer")))))
- (overlay-put overlay 'modification-hooks read-only)
- (overlay-put overlay 'insert-in-front-hooks read-only)
- (overlay-put overlay 'insert-behind-hooks read-only))
- overlay))
-
-(defun org-src--remove-overlay ()
- "Remove overlay from current source buffer."
- (when (overlayp org-src--overlay) (delete-overlay org-src--overlay)))
-
-(defun org-src--on-datum-p (datum)
- "Non-nil when point is on DATUM.
-DATUM is an element or an object. Consider blank lines or white
-spaces after it as being outside."
- (and (>= (point) (org-element-property :begin datum))
- (<= (point)
- (org-with-wide-buffer
- (goto-char (org-element-property :end datum))
- (skip-chars-backward " \r\t\n")
- (if (eq (org-element-class datum) 'element)
- (line-end-position)
- (point))))))
-
-(defun org-src--contents-for-write-back ()
- "Return buffer contents in a format appropriate for write back.
-Assume point is in the corresponding edit buffer."
- (let ((indentation-offset
- (if org-src--preserve-indentation 0
- (+ (or org-src--block-indentation 0)
- (if (memq org-src--source-type '(example-block src-block))
- org-edit-src-content-indentation
- 0))))
- (use-tabs? (and (> org-src--tab-width 0) t))
- (source-tab-width org-src--tab-width)
- (contents (org-with-wide-buffer (buffer-string)))
- (write-back org-src--allow-write-back))
- (with-temp-buffer
- ;; Reproduce indentation parameters from source buffer.
- (setq-local indent-tabs-mode use-tabs?)
- (when (> source-tab-width 0) (setq-local tab-width source-tab-width))
- ;; Apply WRITE-BACK function on edit buffer contents.
- (insert (org-no-properties contents))
- (goto-char (point-min))
- (when (functionp write-back) (save-excursion (funcall write-back)))
- ;; Add INDENTATION-OFFSET to every non-empty line in buffer,
- ;; unless indentation is meant to be preserved.
- (when (> indentation-offset 0)
- (while (not (eobp))
- (skip-chars-forward " \t")
- (unless (eolp) ;ignore blank lines
- (let ((i (current-column)))
- (delete-region (line-beginning-position) (point))
- (indent-to (+ i indentation-offset))))
- (forward-line)))
- (buffer-string))))
-
-(defun org-src--edit-element
- (datum name &optional initialize write-back contents remote)
- "Edit DATUM contents in a dedicated buffer NAME.
-
-INITIALIZE is a function to call upon creating the buffer.
-
-When WRITE-BACK is non-nil, assume contents will replace original
-region. Moreover, if it is a function, apply it in the edit
-buffer, from point min, before returning the contents.
-
-When CONTENTS is non-nil, display them in the edit buffer.
-Otherwise, show DATUM contents as specified by
-`org-src--contents-area'.
-
-When REMOTE is non-nil, do not try to preserve point or mark when
-moving from the edit area to the source.
-
-Leave point in edit buffer."
- (setq org-src--saved-temp-window-config (current-window-configuration))
- (let* ((area (org-src--contents-area datum))
- (beg (copy-marker (nth 0 area)))
- (end (copy-marker (nth 1 area) t))
- (old-edit-buffer (org-src--edit-buffer beg end))
- (contents (or contents (nth 2 area))))
- (if (and old-edit-buffer
- (or (not org-src-ask-before-returning-to-edit-buffer)
- (y-or-n-p "Return to existing edit buffer ([n] will revert changes)? ")))
- ;; Move to existing buffer.
- (org-src-switch-to-buffer old-edit-buffer 'return)
- ;; Discard old edit buffer.
- (when old-edit-buffer
- (with-current-buffer old-edit-buffer (org-src--remove-overlay))
- (kill-buffer old-edit-buffer))
- (let* ((org-mode-p (derived-mode-p 'org-mode))
- (source-tab-width (if indent-tabs-mode tab-width 0))
- (type (org-element-type datum))
- (ind (org-with-wide-buffer
- (goto-char (org-element-property :begin datum))
- (org-get-indentation)))
- (preserve-ind
- (and (memq type '(example-block src-block))
- (or (org-element-property :preserve-indent datum)
- org-src-preserve-indentation)))
- ;; Store relative positions of mark (if any) and point
- ;; within the edited area.
- (point-coordinates (and (not remote)
- (org-src--coordinates (point) beg end)))
- (mark-coordinates (and (not remote)
- (org-region-active-p)
- (let ((m (mark)))
- (and (>= m beg) (>= end m)
- (org-src--coordinates m beg end)))))
- ;; Generate a new edit buffer.
- (buffer (generate-new-buffer name))
- ;; Add an overlay on top of source.
- (overlay (org-src--make-source-overlay beg end buffer)))
- ;; Switch to edit buffer.
- (org-src-switch-to-buffer buffer 'edit)
- ;; Insert contents.
- (insert contents)
- (remove-text-properties (point-min) (point-max)
- '(display nil invisible nil intangible nil))
- (unless preserve-ind (org-do-remove-indentation))
- (set-buffer-modified-p nil)
- (setq buffer-file-name nil)
- ;; Initialize buffer.
- (when (functionp initialize)
- (let ((org-inhibit-startup t))
- (condition-case e
- (funcall initialize)
- (error (message "Initialization fails with: %S"
- (error-message-string e))))))
- ;; Transmit buffer-local variables for exit function. It must
- ;; be done after initializing major mode, as this operation
- ;; may reset them otherwise.
- (setq org-src--tab-width source-tab-width)
- (setq org-src--from-org-mode org-mode-p)
- (setq org-src--beg-marker beg)
- (setq org-src--end-marker end)
- (setq org-src--remote remote)
- (setq org-src--source-type type)
- (setq org-src--block-indentation ind)
- (setq org-src--preserve-indentation preserve-ind)
- (setq org-src--overlay overlay)
- (setq org-src--allow-write-back write-back)
- ;; Start minor mode.
- (org-src-mode)
- ;; Move mark and point in edit buffer to the corresponding
- ;; location.
- (if remote
- (progn
- ;; Put point at first non read-only character after
- ;; leading blank.
- (goto-char
- (or (text-property-any (point-min) (point-max) 'read-only nil)
- (point-max)))
- (skip-chars-forward " \r\t\n"))
- ;; Set mark and point.
- (when mark-coordinates
- (org-src--goto-coordinates mark-coordinates (point-min) (point-max))
- (push-mark (point) 'no-message t)
- (setq deactivate-mark nil))
- (org-src--goto-coordinates
- point-coordinates (point-min) (point-max)))))))
-
-
-
-;;; Fontification of source blocks
-
-(defun org-src-font-lock-fontify-block (lang start end)
- "Fontify code block.
-This function is called by emacs automatic fontification, as long
-as `org-src-fontify-natively' is non-nil."
- (let ((lang-mode (org-src--get-lang-mode lang)))
- (when (fboundp lang-mode)
- (let ((string (buffer-substring-no-properties start end))
- (modified (buffer-modified-p))
- (org-buffer (current-buffer)))
- (remove-text-properties start end '(face nil))
- (with-current-buffer
- (get-buffer-create
- (format " *org-src-fontification:%s*" lang-mode))
- (let ((inhibit-modification-hooks nil))
- (erase-buffer)
- ;; Add string and a final space to ensure property change.
- (insert string " "))
- (unless (eq major-mode lang-mode) (funcall lang-mode))
- (org-font-lock-ensure)
- (let ((pos (point-min)) next)
- (while (setq next (next-property-change pos))
- ;; Handle additional properties from font-lock, so as to
- ;; preserve, e.g., composition.
- (dolist (prop (cons 'face font-lock-extra-managed-props))
- (let ((new-prop (get-text-property pos prop)))
- (put-text-property
- (+ start (1- pos)) (1- (+ start next)) prop new-prop
- org-buffer)))
- (setq pos next))))
- ;; Add Org faces.
- (let ((src-face (nth 1 (assoc-string lang org-src-block-faces t))))
- (when (or (facep src-face) (listp src-face))
- (font-lock-append-text-property start end 'face src-face))
- (font-lock-append-text-property start end 'face 'org-block))
- (add-text-properties
- start end
- '(font-lock-fontified t fontified t font-lock-multiline t))
- (set-buffer-modified-p modified)))))
-
-
-;;; Escape contents
-
-(defun org-escape-code-in-region (beg end)
- "Escape lines between BEG and END.
-Escaping happens when a line starts with \"*\", \"#+\", \",*\" or
-\",#+\" by appending a comma to it."
- (interactive "r")
- (save-excursion
- (goto-char end)
- (while (re-search-backward "^[ \t]*\\(,*\\(?:\\*\\|#\\+\\)\\)" beg t)
- (save-excursion (replace-match ",\\1" nil nil nil 1)))))
-
-(defun org-escape-code-in-string (s)
- "Escape lines in string S.
-Escaping happens when a line starts with \"*\", \"#+\", \",*\" or
-\",#+\" by appending a comma to it."
- (replace-regexp-in-string "^[ \t]*\\(,*\\(?:\\*\\|#\\+\\)\\)" ",\\1"
- s nil nil 1))
-
-(defun org-unescape-code-in-region (beg end)
- "Un-escape lines between BEG and END.
-Un-escaping happens by removing the first comma on lines starting
-with \",*\", \",#+\", \",,*\" and \",,#+\"."
- (interactive "r")
- (save-excursion
- (goto-char end)
- (while (re-search-backward "^[ \t]*,*\\(,\\)\\(?:\\*\\|#\\+\\)" beg t)
- (save-excursion (replace-match "" nil nil nil 1)))))
-
-(defun org-unescape-code-in-string (s)
- "Un-escape lines in string S.
-Un-escaping happens by removing the first comma on lines starting
-with \",*\", \",#+\", \",,*\" and \",,#+\"."
- (replace-regexp-in-string
- "^[ \t]*,*\\(,\\)\\(?:\\*\\|#\\+\\)" "" s nil nil 1))
-
-
-
-;;; Org src minor mode
-
-(defvar org-src-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\C-c'" 'org-edit-src-exit)
- (define-key map "\C-c\C-k" 'org-edit-src-abort)
- (define-key map "\C-x\C-s" 'org-edit-src-save)
- map))
-
-(define-minor-mode org-src-mode
- "Minor mode for language major mode buffers generated by Org.
-\\<org-mode-map>
-This minor mode is turned on in two situations:
- - when editing a source code snippet with `\\[org-edit-special]'
- - when formatting a source code snippet for export with htmlize.
-
-\\{org-src-mode-map}
-
-See also `org-src-mode-hook'."
- nil " OrgSrc" nil
- (when org-edit-src-persistent-message
- (setq-local
- header-line-format
- (substitute-command-keys
- (if org-src--allow-write-back
- "Edit, then exit with `\\[org-edit-src-exit]' or abort with \
-`\\[org-edit-src-abort]'"
- "Exit with `\\[org-edit-src-exit]' or abort with \
-`\\[org-edit-src-abort]'"))))
- ;; Possibly activate various auto-save features (for the edit buffer
- ;; or the source buffer).
- (when org-edit-src-turn-on-auto-save
- (setq buffer-auto-save-file-name
- (concat (make-temp-name "org-src-")
- (format-time-string "-%Y-%d-%m")
- ".txt")))
- (unless (or org-src--auto-save-timer (zerop org-edit-src-auto-save-idle-delay))
- (setq org-src--auto-save-timer
- (run-with-idle-timer
- org-edit-src-auto-save-idle-delay t
- (lambda ()
- (save-excursion
- (let (edit-flag)
- (dolist (b (buffer-list))
- (with-current-buffer b
- (when (org-src-edit-buffer-p)
- (unless edit-flag (setq edit-flag t))
- (when (buffer-modified-p) (org-edit-src-save)))))
- (unless edit-flag
- (cancel-timer org-src--auto-save-timer)
- (setq org-src--auto-save-timer nil)))))))))
-
-(defun org-src-mode-configure-edit-buffer ()
- (when (bound-and-true-p org-src--from-org-mode)
- (add-hook 'kill-buffer-hook #'org-src--remove-overlay nil 'local)
- (if (bound-and-true-p org-src--allow-write-back)
- (progn
- (setq buffer-offer-save t)
- (setq buffer-file-name
- (concat (buffer-file-name (marker-buffer org-src--beg-marker))
- "[" (buffer-name) "]"))
- (setq-local write-contents-functions '(org-edit-src-save)))
- (setq buffer-read-only t))))
-
-(add-hook 'org-src-mode-hook #'org-src-mode-configure-edit-buffer)
-
-
-
-;;; Babel related functions
-
-(defun org-src-associate-babel-session (info)
- "Associate edit buffer with comint session."
- (interactive)
- (let ((session (cdr (assq :session (nth 2 info)))))
- (and session (not (string= session "none"))
- (org-babel-comint-buffer-livep session)
- (let ((f (intern (format "org-babel-%s-associate-session"
- (nth 0 info)))))
- (and (fboundp f) (funcall f session))))))
-
-(defun org-src-babel-configure-edit-buffer ()
- (when org-src--babel-info
- (org-src-associate-babel-session org-src--babel-info)))
-
-(add-hook 'org-src-mode-hook #'org-src-babel-configure-edit-buffer)
-
-
-;;; Public API
-
-(defmacro org-src-do-at-code-block (&rest body)
- "Execute BODY from an edit buffer in the Org mode buffer."
- (declare (debug (body)))
- `(let ((beg-marker org-src--beg-marker))
- (when beg-marker
- (with-current-buffer (marker-buffer beg-marker)
- (goto-char beg-marker)
- ,@body))))
-
-(defun org-src-do-key-sequence-at-code-block (&optional key)
- "Execute key sequence at code block in the source Org buffer.
-The command bound to KEY in the Org-babel key map is executed
-remotely with point temporarily at the start of the code block in
-the Org buffer.
-
-This command is not bound to a key by default, to avoid conflicts
-with language major mode bindings. To bind it to C-c @ in all
-language major modes, you could use
-
- (add-hook \\='org-src-mode-hook
- (lambda () (define-key org-src-mode-map \"\\C-c@\"
- \\='org-src-do-key-sequence-at-code-block)))
-
-In that case, for example, C-c @ t issued in code edit buffers
-would tangle the current Org code block, C-c @ e would execute
-the block and C-c @ h would display the other available
-Org-babel commands."
- (interactive "kOrg-babel key: ")
- (if (equal key (kbd "C-g")) (keyboard-quit)
- (org-edit-src-save)
- (org-src-do-at-code-block
- (call-interactively (lookup-key org-babel-map key)))))
-
-(defun org-src-edit-buffer-p (&optional buffer)
- "Non-nil when current buffer is a source editing buffer.
-If BUFFER is non-nil, test it instead."
- (let ((buffer (org-base-buffer (or buffer (current-buffer)))))
- (and (buffer-live-p buffer)
- (local-variable-p 'org-src--beg-marker buffer)
- (local-variable-p 'org-src--end-marker buffer))))
-
-(defun org-src-switch-to-buffer (buffer context)
- (pcase org-src-window-setup
- (`current-window (pop-to-buffer-same-window buffer))
- (`other-window
- (switch-to-buffer-other-window buffer))
- (`other-frame
- (pcase context
- (`exit
- (let ((frame (selected-frame)))
- (switch-to-buffer-other-frame buffer)
- (delete-frame frame)))
- (`save
- (kill-buffer (current-buffer))
- (pop-to-buffer-same-window buffer))
- (_ (switch-to-buffer-other-frame buffer))))
- (`reorganize-frame
- (when (eq context 'edit) (delete-other-windows))
- (org-switch-to-buffer-other-window buffer)
- (when (eq context 'exit) (delete-other-windows)))
- (`switch-invisibly (set-buffer buffer))
- (_
- (message "Invalid value %s for `org-src-window-setup'"
- org-src-window-setup)
- (pop-to-buffer-same-window buffer))))
-
-(defun org-src-coderef-format (&optional element)
- "Return format string for block at point.
-
-When optional argument ELEMENT is provided, use that block.
-Otherwise, assume point is either at a source block, at an
-example block.
-
-If point is in an edit buffer, retrieve format string associated
-to the remote source block."
- (cond
- ((and element (org-element-property :label-fmt element)))
- ((org-src-edit-buffer-p) (org-src-do-at-code-block (org-src-coderef-format)))
- ((org-element-property :label-fmt (org-element-at-point)))
- (t org-coderef-label-format)))
-
-(defun org-src-coderef-regexp (fmt &optional label)
- "Return regexp matching a coderef format string FMT.
-
-When optional argument LABEL is non-nil, match coderef for that
-label only.
-
-Match group 1 contains the full coderef string with surrounding
-white spaces. Match group 2 contains the same string without any
-surrounding space. Match group 3 contains the label.
-
-A coderef format regexp can only match at the end of a line."
- (format "\\([ \t]*\\(%s\\)[ \t]*\\)$"
- (replace-regexp-in-string
- "%s"
- (if label (regexp-quote label) "\\([-a-zA-Z0-9_][-a-zA-Z0-9_ ]*\\)")
- (regexp-quote fmt)
- nil t)))
-
-(defun org-edit-footnote-reference ()
- "Edit definition of footnote reference at point."
- (interactive)
- (let* ((context (org-element-context))
- (label (org-element-property :label context)))
- (unless (and (eq (org-element-type context) 'footnote-reference)
- (org-src--on-datum-p context))
- (user-error "Not on a footnote reference"))
- (unless label (user-error "Cannot edit remotely anonymous footnotes"))
- (let* ((definition (org-with-wide-buffer
- (org-footnote-goto-definition label)
- (backward-char)
- (org-element-context)))
- (inline? (eq 'footnote-reference (org-element-type definition)))
- (contents
- (org-with-wide-buffer
- (buffer-substring-no-properties
- (or (org-element-property :post-affiliated definition)
- (org-element-property :begin definition))
- (cond
- (inline? (1+ (org-element-property :contents-end definition)))
- ((org-element-property :contents-end definition))
- (t (goto-char (org-element-property :post-affiliated definition))
- (line-end-position)))))))
- (add-text-properties
- 0
- (progn (string-match (if inline? "\\`\\[fn:.*?:" "\\`.*?\\]") contents)
- (match-end 0))
- '(read-only "Cannot edit footnote label" front-sticky t rear-nonsticky t)
- contents)
- (when inline?
- (let ((l (length contents)))
- (add-text-properties
- (1- l) l
- '(read-only "Cannot edit past footnote reference"
- front-sticky nil rear-nonsticky nil)
- contents)))
- (org-src--edit-element
- definition
- (format "*Edit footnote [%s]*" label)
- (let ((source (current-buffer)))
- (lambda ()
- (org-mode)
- (org-clone-local-variables source)))
- (lambda ()
- (if (not inline?) (delete-region (point) (search-forward "]"))
- (delete-region (point) (search-forward ":" nil t 2))
- (delete-region (1- (point-max)) (point-max))
- (when (re-search-forward "\n[ \t]*\n" nil t)
- (user-error "Inline definitions cannot contain blank lines"))
- ;; If footnote reference belongs to a table, make sure to
- ;; remove any newline characters in order to preserve
- ;; table's structure.
- (when (org-element-lineage definition '(table-cell))
- (while (search-forward "\n" nil t) (replace-match "")))))
- contents
- 'remote))
- ;; Report success.
- t))
-
-(defun org-edit-table.el ()
- "Edit \"table.el\" table at point.
-\\<org-src-mode-map>
-A new buffer is created and the table is copied into it. Then
-the table is recognized with `table-recognize'. When done
-editing, exit with `\\[org-edit-src-exit]'. The edited text will \
-then replace
-the area in the Org mode buffer.
-
-Throw an error when not at such a table."
- (interactive)
- (let ((element (org-element-at-point)))
- (unless (and (eq (org-element-type element) 'table)
- (eq (org-element-property :type element) 'table.el)
- (org-src--on-datum-p element))
- (user-error "Not in a table.el table"))
- (org-src--edit-element
- element
- (org-src--construct-edit-buffer-name (buffer-name) "Table")
- #'text-mode t)
- (when (bound-and-true-p flyspell-mode) (flyspell-mode -1))
- (table-recognize)
- t))
-
-(defun org-edit-latex-environment ()
- "Edit LaTeX environment at point.
-\\<org-src-mode-map>
-The LaTeX environment is copied into a new buffer. Major mode is
-set to the one associated to \"latex\" in `org-src-lang-modes',
-or to `latex-mode' if there is none.
-
-When done, exit with `\\[org-edit-src-exit]'. The edited text \
-will then replace
-the LaTeX environment in the Org mode buffer."
- (interactive)
- (let ((element (org-element-at-point)))
- (unless (and (eq (org-element-type element) 'latex-environment)
- (org-src--on-datum-p element))
- (user-error "Not in a LaTeX environment"))
- (org-src--edit-element
- element
- (org-src--construct-edit-buffer-name (buffer-name) "LaTeX environment")
- (org-src--get-lang-mode "latex")
- t)
- t))
-
-(defun org-edit-export-block ()
- "Edit export block at point.
-\\<org-src-mode-map>
-A new buffer is created and the block is copied into it, and the
-buffer is switched into an appropriate major mode. See also
-`org-src-lang-modes'.
-
-When done, exit with `\\[org-edit-src-exit]'. The edited text \
-will then replace
-the area in the Org mode buffer.
-
-Throw an error when not at an export block."
- (interactive)
- (let ((element (org-element-at-point)))
- (unless (and (eq (org-element-type element) 'export-block)
- (org-src--on-datum-p element))
- (user-error "Not in an export block"))
- (let* ((type (downcase (or (org-element-property :type element)
- ;; Missing export-block type. Fallback
- ;; to default mode.
- "fundamental")))
- (mode (org-src--get-lang-mode type)))
- (unless (functionp mode) (error "No such language mode: %s" mode))
- (org-src--edit-element
- element
- (org-src--construct-edit-buffer-name (buffer-name) type)
- mode
- (lambda () (org-escape-code-in-region (point-min) (point-max)))))
- t))
-
-(defun org-edit-src-code (&optional code edit-buffer-name)
- "Edit the source or example block at point.
-\\<org-src-mode-map>
-The code is copied to a separate buffer and the appropriate mode
-is turned on. When done, exit with `\\[org-edit-src-exit]'. This \
-will remove the
-original code in the Org buffer, and replace it with the edited
-version. See `org-src-window-setup' to configure the display of
-windows containing the Org buffer and the code buffer.
-
-When optional argument CODE is a string, edit it in a dedicated
-buffer instead.
-
-When optional argument EDIT-BUFFER-NAME is non-nil, use it as the
-name of the sub-editing buffer."
- (interactive)
- (let* ((element (org-element-at-point))
- (type (org-element-type element)))
- (unless (and (memq type '(example-block src-block))
- (org-src--on-datum-p element))
- (user-error "Not in a source or example block"))
- (let* ((lang
- (if (eq type 'src-block) (org-element-property :language element)
- "example"))
- (lang-f (and (eq type 'src-block) (org-src--get-lang-mode lang)))
- (babel-info (and (eq type 'src-block)
- (org-babel-get-src-block-info 'light)))
- deactivate-mark)
- (when (and (eq type 'src-block) (not (functionp lang-f)))
- (error "No such language mode: %s" lang-f))
- (org-src--edit-element
- element
- (or edit-buffer-name
- (org-src--construct-edit-buffer-name (buffer-name) lang))
- lang-f
- (and (null code)
- (lambda () (org-escape-code-in-region (point-min) (point-max))))
- (and code (org-unescape-code-in-string code)))
- ;; Finalize buffer.
- (setq-local org-coderef-label-format
- (or (org-element-property :label-fmt element)
- org-coderef-label-format))
- (when (eq type 'src-block)
- (setq org-src--babel-info babel-info)
- (let ((edit-prep-func (intern (concat "org-babel-edit-prep:" lang))))
- (when (fboundp edit-prep-func)
- (funcall edit-prep-func babel-info))))
- t)))
-
-(defun org-edit-inline-src-code ()
- "Edit inline source code at point."
- (interactive)
- (let ((context (org-element-context)))
- (unless (and (eq (org-element-type context) 'inline-src-block)
- (org-src--on-datum-p context))
- (user-error "Not on inline source code"))
- (let* ((lang (org-element-property :language context))
- (lang-f (org-src--get-lang-mode lang))
- (babel-info (org-babel-get-src-block-info 'light))
- deactivate-mark)
- (unless (functionp lang-f) (error "No such language mode: %s" lang-f))
- (org-src--edit-element
- context
- (org-src--construct-edit-buffer-name (buffer-name) lang)
- lang-f
- (lambda ()
- ;; Inline src blocks are limited to one line.
- (while (re-search-forward "\n[ \t]*" nil t) (replace-match " "))
- ;; Trim contents.
- (goto-char (point-min))
- (skip-chars-forward " \t")
- (delete-region (point-min) (point))
- (goto-char (point-max))
- (skip-chars-backward " \t")
- (delete-region (point) (point-max))))
- ;; Finalize buffer.
- (setq org-src--babel-info babel-info)
- (setq org-src--preserve-indentation t)
- (let ((edit-prep-func (intern (concat "org-babel-edit-prep:" lang))))
- (when (fboundp edit-prep-func) (funcall edit-prep-func babel-info)))
- ;; Return success.
- t)))
-
-(defun org-edit-fixed-width-region ()
- "Edit the fixed-width ASCII drawing at point.
-\\<org-src-mode-map>
-This must be a region where each line starts with a colon
-followed by a space or a newline character.
-
-A new buffer is created and the fixed-width region is copied into
-it, and the buffer is switched into the major mode defined in
-`org-edit-fixed-width-region-mode', which see.
-
-When done, exit with `\\[org-edit-src-exit]'. The edited text \
-will then replace
-the area in the Org mode buffer."
- (interactive)
- (let ((element (org-element-at-point)))
- (unless (and (eq (org-element-type element) 'fixed-width)
- (org-src--on-datum-p element))
- (user-error "Not in a fixed-width area"))
- (org-src--edit-element
- element
- (org-src--construct-edit-buffer-name (buffer-name) "Fixed Width")
- org-edit-fixed-width-region-mode
- (lambda () (while (not (eobp)) (insert ": ") (forward-line))))
- ;; Return success.
- t))
-
-(defun org-edit-src-abort ()
- "Abort editing of the src code and return to the Org buffer."
- (interactive)
- (let (org-src--allow-write-back) (org-edit-src-exit)))
-
-(defun org-edit-src-continue (e)
- "Unconditionally return to buffer editing area under point.
-Throw an error if there is no such buffer."
- (interactive "e")
- (mouse-set-point e)
- (let ((buf (get-char-property (point) 'edit-buffer)))
- (if buf (org-src-switch-to-buffer buf 'continue)
- (user-error "No sub-editing buffer for area at point"))))
-
-(defun org-edit-src-save ()
- "Save parent buffer with current state source-code buffer."
- (interactive)
- (unless (org-src-edit-buffer-p) (user-error "Not in a sub-editing buffer"))
- (set-buffer-modified-p nil)
- (let ((edited-code (org-src--contents-for-write-back))
- (beg org-src--beg-marker)
- (end org-src--end-marker)
- (overlay org-src--overlay))
- (with-current-buffer (org-src--source-buffer)
- (undo-boundary)
- (goto-char beg)
- ;; Temporarily disable read-only features of OVERLAY in order to
- ;; insert new contents.
- (delete-overlay overlay)
- (delete-region beg end)
- (let ((expecting-bol (bolp)))
- (insert edited-code)
- (when (and expecting-bol (not (bolp))) (insert "\n")))
- (save-buffer)
- (move-overlay overlay beg (point))))
- ;; `write-contents-functions' requires the function to return
- ;; a non-nil value so that other functions are not called.
- t)
-
-(defun org-edit-src-exit ()
- "Kill current sub-editing buffer and return to source buffer."
- (interactive)
- (unless (org-src-edit-buffer-p) (error "Not in a sub-editing buffer"))
- (let* ((beg org-src--beg-marker)
- (end org-src--end-marker)
- (write-back org-src--allow-write-back)
- (remote org-src--remote)
- (coordinates (and (not remote)
- (org-src--coordinates (point) 1 (point-max))))
- (code (and write-back (org-src--contents-for-write-back))))
- (set-buffer-modified-p nil)
- ;; Switch to source buffer. Kill sub-editing buffer.
- (let ((edit-buffer (current-buffer))
- (source-buffer (marker-buffer beg)))
- (unless source-buffer (error "Source buffer disappeared. Aborting"))
- (org-src-switch-to-buffer source-buffer 'exit)
- (kill-buffer edit-buffer))
- ;; Insert modified code. Ensure it ends with a newline character.
- (org-with-wide-buffer
- (when (and write-back (not (equal (buffer-substring beg end) code)))
- (undo-boundary)
- (goto-char beg)
- (delete-region beg end)
- (let ((expecting-bol (bolp)))
- (insert code)
- (when (and expecting-bol (not (bolp))) (insert "\n")))))
- ;; If we are to return to source buffer, put point at an
- ;; appropriate location. In particular, if block is hidden, move
- ;; to the beginning of the block opening line.
- (unless remote
- (goto-char beg)
- (cond
- ;; Block is hidden; move at start of block.
- ((cl-some (lambda (o) (eq (overlay-get o 'invisible) 'org-hide-block))
- (overlays-at (point)))
- (beginning-of-line 0))
- (write-back (org-src--goto-coordinates coordinates beg end))))
- ;; Clean up left-over markers and restore window configuration.
- (set-marker beg nil)
- (set-marker end nil)
- (when org-src--saved-temp-window-config
- (set-window-configuration org-src--saved-temp-window-config)
- (setq org-src--saved-temp-window-config nil))))
-
-
-(provide 'org-src)
-
-;;; org-src.el ends here
diff --git a/elpa/org-9.1.14/org-src.elc b/elpa/org-9.1.14/org-src.elc
deleted file mode 100644
index 5a9d807..0000000
--- a/elpa/org-9.1.14/org-src.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-table.el b/elpa/org-9.1.14/org-table.el
deleted file mode 100644
index e451350..0000000
--- a/elpa/org-9.1.14/org-table.el
+++ /dev/null
@@ -1,5570 +0,0 @@
-;;; org-table.el --- The Table Editor for Org -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file contains the table editor and spreadsheet for Org mode.
-
-;; Watch out: Here we are talking about two different kind of tables.
-;; Most of the code is for the tables created with the Org mode table editor.
-;; Sometimes, we talk about tables created and edited with the table.el
-;; Emacs package. We call the former org-type tables, and the latter
-;; table.el-type tables.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org)
-
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-contents "org-element" (element))
-(declare-function org-element-extract-element "org-element" (element))
-(declare-function org-element-interpret-data "org-element" (data))
-(declare-function org-element-lineage "org-element"
- (blob &optional types with-self))
-(declare-function org-element-map "org-element"
- (data types fun
- &optional info first-match no-recursion with-affiliated))
-(declare-function org-element-parse-buffer "org-element"
- (&optional granularity visible-only))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-type "org-element" (element))
-
-(declare-function org-export-create-backend "ox" (&rest rest) t)
-(declare-function org-export-data-with-backend "ox" (data backend info))
-(declare-function org-export-filter-apply-functions "ox"
- (filters value info))
-(declare-function org-export-first-sibling-p "ox" (blob info))
-(declare-function org-export-get-backend "ox" (name))
-(declare-function org-export-get-environment "ox"
- (&optional backend subtreep ext-plist))
-(declare-function org-export-install-filters "ox" (info))
-(declare-function org-export-table-has-special-column-p "ox" (table))
-(declare-function org-export-table-row-is-special-p "ox" (table-row info))
-
-(declare-function calc-eval "calc" (str &optional separator &rest args))
-
-(defvar constants-unit-system)
-(defvar org-element-use-cache)
-(defvar org-export-filters-alist)
-(defvar org-table-follow-field-mode)
-(defvar orgtbl-mode) ; defined below
-(defvar orgtbl-mode-menu) ; defined when orgtbl mode get initialized
-(defvar sort-fold-case)
-
-(defvar orgtbl-after-send-table-hook nil
- "Hook for functions attaching to `C-c C-c', if the table is sent.
-This can be used to add additional functionality after the table is sent
-to the receiver position, otherwise, if table is not sent, the functions
-are not run.")
-
-(defvar org-table-TBLFM-begin-regexp "^[ \t]*|.*\n[ \t]*#\\+TBLFM: ")
-
-(defcustom orgtbl-optimized t
- "Non-nil means use the optimized table editor version for `orgtbl-mode'.
-
-In the optimized version, the table editor takes over all simple keys that
-normally just insert a character. In tables, the characters are inserted
-in a way to minimize disturbing the table structure (i.e. in overwrite mode
-for empty fields). Outside tables, the correct binding of the keys is
-restored.
-
-Changing this variable requires a restart of Emacs to become
-effective."
- :group 'org-table
- :type 'boolean)
-
-(defcustom orgtbl-radio-table-templates
- '((latex-mode "% BEGIN RECEIVE ORGTBL %n
-% END RECEIVE ORGTBL %n
-\\begin{comment}
-#+ORGTBL: SEND %n orgtbl-to-latex :splice nil :skip 0
-| | |
-\\end{comment}\n")
- (texinfo-mode "@c BEGIN RECEIVE ORGTBL %n
-@c END RECEIVE ORGTBL %n
-@ignore
-#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0
-| | |
-@end ignore\n")
- (html-mode "<!-- BEGIN RECEIVE ORGTBL %n -->
-<!-- END RECEIVE ORGTBL %n -->
-<!--
-#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0
-| | |
--->\n")
- (org-mode "#+ BEGIN RECEIVE ORGTBL %n
-#+ END RECEIVE ORGTBL %n
-
-#+ORGTBL: SEND %n orgtbl-to-orgtbl :splice nil :skip 0
-| | |
-"))
- "Templates for radio tables in different major modes.
-Each template must define lines that will be treated as a comment and that
-must contain the \"BEGIN RECEIVE ORGTBL %n\" and \"END RECEIVE ORGTBL\"
-lines where \"%n\" will be replaced with the name of the table during
-insertion of the template. The transformed table will later be inserted
-between these lines.
-
-The template should also contain a minimal table in a multiline comment.
-If multiline comments are not possible in the buffer language,
-you can pack it into a string that will not be used when the code
-is compiled or executed. Above the table will you need a line with
-the fixed string \"#+ORGTBL: SEND\", followed by instruction on how to
-convert the table into a data structure useful in the
-language of the buffer. Check the manual for the section on
-\"Translator functions\", and more generally check out
-the Info node `(org)Tables in arbitrary syntax'.
-
-All occurrences of %n in a template will be replaced with the name of the
-table, obtained by prompting the user."
- :group 'org-table
- :type '(repeat
- (list (symbol :tag "Major mode")
- (string :tag "Format"))))
-
-(defgroup org-table-settings nil
- "Settings for tables in Org mode."
- :tag "Org Table Settings"
- :group 'org-table)
-
-(defcustom org-table-default-size "5x2"
- "The default size for newly created tables, Columns x Rows."
- :group 'org-table-settings
- :type 'string)
-
-(defcustom org-table-number-regexp
- "^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|[<>]?[-+]?0[xX][0-9a-fA-F.]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$"
- "Regular expression for recognizing numbers in table columns.
-If a table column contains mostly numbers, it will be aligned to the
-right. If not, it will be aligned to the left.
-
-The default value of this option is a regular expression which allows
-anything which looks remotely like a number as used in scientific
-context. For example, all of the following will be considered a
-number:
- 12 12.2 2.4e-08 2x10^12 4.034+-0.02 2.7(10) >3.5
-
-Other options offered by the customize interface are more restrictive."
- :group 'org-table-settings
- :type '(choice
- (const :tag "Positive Integers"
- "^[0-9]+$")
- (const :tag "Integers"
- "^[-+]?[0-9]+$")
- (const :tag "Floating Point Numbers"
- "^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.[0-9]*\\)$")
- (const :tag "Floating Point Number or Integer"
- "^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.?[0-9]*\\)$")
- (const :tag "Exponential, Floating point, Integer"
- "^[-+]?[0-9.]+\\([eEdD][-+0-9]+\\)?$")
- (const :tag "Very General Number-Like, including hex and Calc radix"
- "^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][0-9a-fA-F.]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$")
- (const :tag "Very General Number-Like, including hex and Calc radix, allows comma as decimal mark"
- "^\\([<>]?[-+^.,0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][0-9a-fA-F.]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$")
- (string :tag "Regexp:")))
-
-(defcustom org-table-number-fraction 0.5
- "Fraction of numbers in a column required to make the column align right.
-In a column all non-white fields are considered. If at least
-this fraction of fields is matched by `org-table-number-regexp',
-alignment to the right border applies."
- :group 'org-table-settings
- :type 'number)
-
-(defgroup org-table-editing nil
- "Behavior of tables during editing in Org mode."
- :tag "Org Table Editing"
- :group 'org-table)
-
-(defcustom org-table-automatic-realign t
- "Non-nil means automatically re-align table when pressing TAB or RETURN.
-When nil, aligning is only done with `\\[org-table-align]', or after column
-removal/insertion."
- :group 'org-table-editing
- :type 'boolean)
-
-(defcustom org-table-auto-blank-field t
- "Non-nil means automatically blank table field when starting to type into it.
-This only happens when typing immediately after a field motion
-command (TAB, S-TAB or RET)."
- :group 'org-table-editing
- :type 'boolean)
-
-(defcustom org-table-exit-follow-field-mode-when-leaving-table t
- "Non-nil means automatically exit the follow mode.
-When nil, the follow mode will stay on and be active in any table
-the cursor enters. Since the table follow filed mode messes with the
-window configuration, it is not recommended to set this variable to nil,
-except maybe locally in a special file that has mostly tables with long
-fields."
- :group 'org-table
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-table-fix-formulas-confirm nil
- "Whether the user should confirm when Org fixes formulas."
- :group 'org-table-editing
- :version "24.1"
- :type '(choice
- (const :tag "with yes-or-no" yes-or-no-p)
- (const :tag "with y-or-n" y-or-n-p)
- (const :tag "no confirmation" nil)))
-(put 'org-table-fix-formulas-confirm
- 'safe-local-variable
- #'(lambda (x) (member x '(yes-or-no-p y-or-n-p))))
-
-(defcustom org-table-tab-jumps-over-hlines t
- "Non-nil means tab in the last column of a table with jump over a hline.
-If a horizontal separator line is following the current line,
-`org-table-next-field' can either create a new row before that line, or jump
-over the line. When this option is nil, a new line will be created before
-this line."
- :group 'org-table-editing
- :type 'boolean)
-
-(defgroup org-table-calculation nil
- "Options concerning tables in Org mode."
- :tag "Org Table Calculation"
- :group 'org-table)
-
-(defcustom org-table-use-standard-references 'from
- "Non-nil means using table references like B3 instead of @3$2.
-Possible values are:
-nil never use them
-from accept as input, do not present for editing
-t accept as input and present for editing"
- :group 'org-table-calculation
- :type '(choice
- (const :tag "Never, don't even check user input for them" nil)
- (const :tag "Always, both as user input, and when editing" t)
- (const :tag "Convert user input, don't offer during editing" from)))
-
-(defcustom org-table-copy-increment t
- "Non-nil means increment when copying current field with \
-`\\[org-table-copy-down]'."
- :group 'org-table-calculation
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(choice
- (const :tag "Use the difference between the current and the above fields" t)
- (integer :tag "Use a number" 1)
- (const :tag "Don't increment the value when copying a field" nil)))
-
-(defcustom org-calc-default-modes
- '(calc-internal-prec 12
- calc-float-format (float 8)
- calc-angle-mode deg
- calc-prefer-frac nil
- calc-symbolic-mode nil
- calc-date-format (YYYY "-" MM "-" DD " " Www (" " hh ":" mm))
- calc-display-working-message t
- )
- "List with Calc mode settings for use in `calc-eval' for table formulas.
-The list must contain alternating symbols (Calc modes variables and values).
-Don't remove any of the default settings, just change the values. Org mode
-relies on the variables to be present in the list."
- :group 'org-table-calculation
- :type 'plist)
-
-(defcustom org-table-duration-custom-format 'hours
- "Format for the output of calc computations like $1+$2;t.
-The default value is `hours', and will output the results as a
-number of hours. Other allowed values are `seconds', `minutes' and
-`days', and the output will be a fraction of seconds, minutes or
-days. `hh:mm' selects to use hours and minutes, ignoring seconds.
-The `U' flag in a table formula will select this specific format for
-a single formula."
- :group 'org-table-calculation
- :version "24.1"
- :type '(choice (symbol :tag "Seconds" 'seconds)
- (symbol :tag "Minutes" 'minutes)
- (symbol :tag "Hours " 'hours)
- (symbol :tag "Days " 'days)
- (symbol :tag "HH:MM " 'hh:mm)))
-
-(defcustom org-table-duration-hour-zero-padding t
- "Non-nil means hours in table duration computations should be zero-padded.
-So this is about 08:32:34 versus 8:33:34."
- :group 'org-table-calculation
- :version "26.1"
- :package-version '(Org . "9.1")
- :type 'boolean
- :safe #'booleanp)
-
-(defcustom org-table-formula-field-format "%s"
- "Format for fields which contain the result of a formula.
-For example, using \"~%s~\" will display the result within tilde
-characters. Beware that modifying the display can prevent the
-field from being used in another formula."
- :group 'org-table-settings
- :version "24.1"
- :type 'string)
-
-(defcustom org-table-formula-evaluate-inline t
- "Non-nil means TAB and RET evaluate a formula in current table field.
-If the current field starts with an equal sign, it is assumed to be a formula
-which should be evaluated as described in the manual and in the documentation
-string of the command `org-table-eval-formula'. This feature requires the
-Emacs calc package.
-When this variable is nil, formula calculation is only available through
-the command `\\[org-table-eval-formula]'."
- :group 'org-table-calculation
- :type 'boolean)
-
-(defcustom org-table-formula-use-constants t
- "Non-nil means interpret constants in formulas in tables.
-A constant looks like `$c' or `$Grav' and will be replaced before evaluation
-by the value given in `org-table-formula-constants', or by a value obtained
-from the `constants.el' package."
- :group 'org-table-calculation
- :type 'boolean)
-
-(defcustom org-table-formula-constants nil
- "Alist with constant names and values, for use in table formulas.
-The car of each element is a name of a constant, without the `$' before it.
-The cdr is the value as a string. For example, if you'd like to use the
-speed of light in a formula, you would configure
-
- (setq org-table-formula-constants \\='((\"c\" . \"299792458.\")))
-
-and then use it in an equation like `$1*$c'.
-
-Constants can also be defined on a per-file basis using a line like
-
-#+CONSTANTS: c=299792458. pi=3.14 eps=2.4e-6"
- :group 'org-table-calculation
- :type '(repeat
- (cons (string :tag "name")
- (string :tag "value"))))
-
-(defcustom org-table-allow-automatic-line-recalculation t
- "Non-nil means lines marked with |#| or |*| will be recomputed automatically.
-\\<org-mode-map>\
-Automatically means when `TAB' or `RET' or `\\[org-ctrl-c-ctrl-c]' \
-are pressed in the line."
- :group 'org-table-calculation
- :type 'boolean)
-
-(defcustom org-table-relative-ref-may-cross-hline t
- "Non-nil means relative formula references may cross hlines.
-Here are the allowed values:
-
-nil Relative references may not cross hlines. They will reference the
- field next to the hline instead. Coming from below, the reference
- will be to the field below the hline. Coming from above, it will be
- to the field above.
-t Relative references may cross hlines.
-error An attempt to cross a hline will throw an error.
-
-It is probably good to never set this variable to nil, for the sake of
-portability of tables."
- :group 'org-table-calculation
- :type '(choice
- (const :tag "Allow to cross" t)
- (const :tag "Stick to hline" nil)
- (const :tag "Error on attempt to cross" error)))
-
-(defcustom org-table-formula-create-columns nil
- "Non-nil means evaluation of formula can add new columns.
-When non-nil, evaluating an out-of-bounds field can insert as
-many columns as needed. When set to `warn', issue a warning when
-doing so. When set to `prompt', ask user before creating a new
-column. Otherwise, throw an error."
- :group 'org-table-calculation
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(choice
- (const :tag "Out-of-bounds field generates an error (default)" nil)
- (const :tag "Out-of-bounds field silently adds columns as needed" t)
- (const :tag "Out-of-bounds field adds columns, but issues a warning" warn)
- (const :tag "Prompt user when setting an out-of-bounds field" prompt)))
-
-(defgroup org-table-import-export nil
- "Options concerning table import and export in Org mode."
- :tag "Org Table Import Export"
- :group 'org-table)
-
-(defcustom org-table-export-default-format "orgtbl-to-tsv"
- "Default export parameters for `org-table-export'.
-These can be overridden for a specific table by setting the
-TABLE_EXPORT_FORMAT property. See the manual section on orgtbl
-radio tables for the different export transformations and
-available parameters."
- :group 'org-table-import-export
- :type 'string)
-
-(defcustom org-table-convert-region-max-lines 999
- "Max lines that `org-table-convert-region' will attempt to process.
-
-The function can be slow on larger regions; this safety feature
-prevents it from hanging emacs."
- :group 'org-table-import-export
- :type 'integer
- :version "26.1"
- :package-version '(Org . "8.3"))
-
-(defconst org-table-auto-recalculate-regexp "^[ \t]*| *# *\\(|\\|$\\)"
- "Regexp matching a line marked for automatic recalculation.")
-
-(defconst org-table-recalculate-regexp "^[ \t]*| *[#*] *\\(|\\|$\\)"
- "Regexp matching a line marked for recalculation.")
-
-(defconst org-table-calculate-mark-regexp "^[ \t]*| *[!$^_#*] *\\(|\\|$\\)"
- "Regexp matching a line marked for calculation.")
-
-(defconst org-table-border-regexp "^[ \t]*[^| \t]"
- "Regexp matching any line outside an Org table.")
-
-(defvar org-table-last-highlighted-reference nil)
-
-(defvar org-table-formula-history nil)
-
-(defvar org-table-column-names nil
- "Alist with column names, derived from the `!' line.
-This variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-column-name-regexp nil
- "Regular expression matching the current column names.
-This variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-local-parameters nil
- "Alist with parameter names, derived from the `$' line.
-This variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-named-field-locations nil
- "Alist with locations of named fields.
-Associations follow the pattern (NAME LINE COLUMN) where
- NAME is the name of the field as a string,
- LINE is the number of lines from the beginning of the table,
- COLUMN is the column of the field, as an integer.
-This variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-current-line-types nil
- "Table row types in current table.
-This variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-current-begin-pos nil
- "Current table begin position, as a marker.
-This variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-current-ncol nil
- "Number of columns in current table.
-This variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-dlines nil
- "Vector of data line line numbers in the current table.
-Line numbers are counted from the beginning of the table. This
-variable is initialized with `org-table-analyze'.")
-
-(defvar org-table-hlines nil
- "Vector of hline line numbers in the current table.
-Line numbers are counted from the beginning of the table. This
-variable is initialized with `org-table-analyze'.")
-
-(defconst org-table-range-regexp
- "@\\([-+]?I*[-+]?[0-9]*\\)?\\(\\$[-+]?[0-9]+\\)?\\(\\.\\.@?\\([-+]?I*[-+]?[0-9]*\\)?\\(\\$[-+]?[0-9]+\\)?\\)?"
- ;; 1 2 3 4 5
- "Regular expression for matching ranges in formulas.")
-
-(defconst org-table-range-regexp2
- (concat
- "\\(" "@[-0-9I$&]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\|" "\\$[a-zA-Z0-9]+" "\\)"
- "\\.\\."
- "\\(" "@?[-0-9I$&]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\|" "\\$[a-zA-Z0-9]+" "\\)")
- "Match a range for reference display.")
-
-(defconst org-table-translate-regexp
- (concat "\\(" "@[-0-9I$]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\)")
- "Match a reference that needs translation, for reference display.")
-
-(defmacro org-table-save-field (&rest body)
- "Save current field; execute BODY; restore field.
-Field is restored even in case of abnormal exit."
- (declare (debug (body)))
- (org-with-gensyms (line column)
- `(let ((,line (copy-marker (line-beginning-position)))
- (,column (org-table-current-column)))
- (unwind-protect
- (progn ,@body)
- (goto-char ,line)
- (org-table-goto-column ,column)
- (set-marker ,line nil)))))
-
-;;;###autoload
-(defun org-table-create-with-table.el ()
- "Use the table.el package to insert a new table.
-If there is already a table at point, convert between Org tables
-and table.el tables."
- (interactive)
- (require 'table)
- (cond
- ((org-at-table.el-p)
- (if (y-or-n-p "Convert table to Org table? ")
- (org-table-convert)))
- ((org-at-table-p)
- (when (y-or-n-p "Convert table to table.el table? ")
- (org-table-align)
- (org-table-convert)))
- (t (call-interactively 'table-insert))))
-
-;;;###autoload
-(defun org-table-create-or-convert-from-region (arg)
- "Convert region to table, or create an empty table.
-If there is an active region, convert it to a table, using the function
-`org-table-convert-region'. See the documentation of that function
-to learn how the prefix argument is interpreted to determine the field
-separator.
-If there is no such region, create an empty table with `org-table-create'."
- (interactive "P")
- (if (org-region-active-p)
- (org-table-convert-region (region-beginning) (region-end) arg)
- (org-table-create arg)))
-
-;;;###autoload
-(defun org-table-create (&optional size)
- "Query for a size and insert a table skeleton.
-SIZE is a string Columns x Rows like for example \"3x2\"."
- (interactive "P")
- (unless size
- (setq size (read-string
- (concat "Table size Columns x Rows [e.g. "
- org-table-default-size "]: ")
- "" nil org-table-default-size)))
-
- (let* ((pos (point))
- (indent (make-string (current-column) ?\ ))
- (split (org-split-string size " *x *"))
- (rows (string-to-number (nth 1 split)))
- (columns (string-to-number (car split)))
- (line (concat (apply 'concat indent "|" (make-list columns " |"))
- "\n")))
- (if (string-match "^[ \t]*$" (buffer-substring-no-properties
- (point-at-bol) (point)))
- (beginning-of-line 1)
- (newline))
- ;; (mapcar (lambda (x) (insert line)) (make-list rows t))
- (dotimes (_ rows) (insert line))
- (goto-char pos)
- (if (> rows 1)
- ;; Insert a hline after the first row.
- (progn
- (end-of-line 1)
- (insert "\n|-")
- (goto-char pos)))
- (org-table-align)))
-
-;;;###autoload
-(defun org-table-convert-region (beg0 end0 &optional separator)
- "Convert region to a table.
-
-The region goes from BEG0 to END0, but these borders will be moved
-slightly, to make sure a beginning of line in the first line is included.
-
-SEPARATOR specifies the field separator in the lines. It can have the
-following values:
-
-(4) Use the comma as a field separator
-(16) Use a TAB as field separator
-(64) Prompt for a regular expression as field separator
-integer When a number, use that many spaces, or a TAB, as field separator
-regexp When a regular expression, use it to match the separator
-nil When nil, the command tries to be smart and figure out the
- separator in the following way:
- - when each line contains a TAB, assume TAB-separated material
- - when each line contains a comma, assume CSV material
- - else, assume one or more SPACE characters as separator."
- (interactive "r\nP")
- (let* ((beg (min beg0 end0))
- (end (max beg0 end0))
- re)
- (if (> (count-lines beg end) org-table-convert-region-max-lines)
- (user-error "Region is longer than `org-table-convert-region-max-lines' (%s) lines; not converting"
- org-table-convert-region-max-lines)
- (if (equal separator '(64))
- (setq separator (read-regexp "Regexp for field separator")))
- (goto-char beg)
- (beginning-of-line 1)
- (setq beg (point-marker))
- (goto-char end)
- (if (bolp) (backward-char 1) (end-of-line 1))
- (setq end (point-marker))
- ;; Get the right field separator
- (unless separator
- (goto-char beg)
- (setq separator
- (cond
- ((not (re-search-forward "^[^\n\t]+$" end t)) '(16))
- ((not (re-search-forward "^[^\n,]+$" end t)) '(4))
- (t 1))))
- (goto-char beg)
- (if (equal separator '(4))
- (while (< (point) end)
- ;; parse the csv stuff
- (cond
- ((looking-at "^") (insert "| "))
- ((looking-at "[ \t]*$") (replace-match " |") (beginning-of-line 2))
- ((looking-at "[ \t]*\"\\([^\"\n]*\\)\"")
- (replace-match "\\1")
- (if (looking-at "\"") (insert "\"")))
- ((looking-at "[^,\n]+") (goto-char (match-end 0)))
- ((looking-at "[ \t]*,") (replace-match " | "))
- (t (beginning-of-line 2))))
- (setq re (cond
- ((equal separator '(4)) "^\\|\"?[ \t]*,[ \t]*\"?")
- ((equal separator '(16)) "^\\|\t")
- ((integerp separator)
- (if (< separator 1)
- (user-error "Number of spaces in separator must be >= 1")
- (format "^ *\\| *\t *\\| \\{%d,\\}" separator)))
- ((stringp separator)
- (format "^ *\\|%s" separator))
- (t (error "This should not happen"))))
- (while (re-search-forward re end t)
- (replace-match "| " t t)))
- (goto-char beg)
- (org-table-align))))
-
-;;;###autoload
-(defun org-table-import (file separator)
- "Import FILE as a table.
-
-The command tries to be smart and figure out the separator in the
-following way:
-
- - when each line contains a TAB, assume TAB-separated material
- - when each line contains a comma, assume CSV material
- - else, assume one or more SPACE characters as separator.
-
-When non-nil, SEPARATOR specifies the field separator in the
-lines. It can have the following values:
-
-(4) Use the comma as a field separator
-(16) Use a TAB as field separator
-(64) Prompt for a regular expression as field separator
-integer When a number, use that many spaces, or a TAB, as field separator
-regexp When a regular expression, use it to match the separator."
- (interactive "f\nP")
- (unless (bolp) (insert "\n"))
- (let ((beg (point))
- (pm (point-max)))
- (insert-file-contents file)
- (org-table-convert-region beg (+ (point) (- (point-max) pm)) separator)))
-
-
-;;;###autoload
-(defun org-table-export (&optional file format)
- "Export table to a file, with configurable format.
-Such a file can be imported into usual spreadsheet programs.
-
-FILE can be the output file name. If not given, it will be taken
-from a TABLE_EXPORT_FILE property in the current entry or higher
-up in the hierarchy, or the user will be prompted for a file
-name. FORMAT can be an export format, of the same kind as it
-used when `orgtbl-mode' sends a table in a different format.
-
-The command suggests a format depending on TABLE_EXPORT_FORMAT,
-whether it is set locally or up in the hierarchy, then on the
-extension of the given file name, and finally on the variable
-`org-table-export-default-format'."
- (interactive)
- (unless (org-at-table-p) (user-error "No table at point"))
- (org-table-align) ; Make sure we have everything we need.
- (let ((file (or file (org-entry-get (point) "TABLE_EXPORT_FILE" t))))
- (unless file
- (setq file (read-file-name "Export table to: "))
- (unless (or (not (file-exists-p file))
- (y-or-n-p (format "Overwrite file %s? " file)))
- (user-error "File not written")))
- (when (file-directory-p file)
- (user-error "This is a directory path, not a file"))
- (when (and (buffer-file-name (buffer-base-buffer))
- (file-equal-p
- (file-truename file)
- (file-truename (buffer-file-name (buffer-base-buffer)))))
- (user-error "Please specify a file name that is different from current"))
- (let ((fileext (concat (file-name-extension file) "$"))
- (format (or format (org-entry-get (point) "TABLE_EXPORT_FORMAT" t))))
- (unless format
- (let* ((formats '("orgtbl-to-tsv" "orgtbl-to-csv" "orgtbl-to-latex"
- "orgtbl-to-html" "orgtbl-to-generic"
- "orgtbl-to-texinfo" "orgtbl-to-orgtbl"
- "orgtbl-to-unicode"))
- (deffmt-readable
- (replace-regexp-in-string
- "\t" "\\t"
- (replace-regexp-in-string
- "\n" "\\n"
- (or (car (delq nil
- (mapcar
- (lambda (f)
- (and (string-match-p fileext f) f))
- formats)))
- org-table-export-default-format)
- t t) t t)))
- (setq format
- (org-completing-read
- "Format: " formats nil nil deffmt-readable))))
- (if (string-match "\\([^ \t\r\n]+\\)\\( +.*\\)?" format)
- (let ((transform (intern (match-string 1 format)))
- (params (and (match-end 2)
- (read (concat "(" (match-string 2 format) ")"))))
- (table (org-table-to-lisp
- (buffer-substring-no-properties
- (org-table-begin) (org-table-end)))))
- (unless (fboundp transform)
- (user-error "No such transformation function %s" transform))
- (let (buf)
- (with-current-buffer (find-file-noselect file)
- (setq buf (current-buffer))
- (erase-buffer)
- (fundamental-mode)
- (insert (funcall transform table params) "\n")
- (save-buffer))
- (kill-buffer buf))
- (message "Export done."))
- (user-error "TABLE_EXPORT_FORMAT invalid")))))
-
-(defvar org-table-aligned-begin-marker (make-marker)
- "Marker at the beginning of the table last aligned.
-Used to check if cursor still is in that table, to minimize realignment.")
-(defvar org-table-aligned-end-marker (make-marker)
- "Marker at the end of the table last aligned.
-Used to check if cursor still is in that table, to minimize realignment.")
-(defvar org-table-last-alignment nil
- "List of flags for flushright alignment, from the last re-alignment.
-This is being used to correctly align a single field after TAB or RET.")
-(defvar org-table-last-column-widths nil
- "List of max width of fields in each column.
-This is being used to correctly align a single field after TAB or RET.")
-(defvar-local org-table-formula-debug nil
- "Non-nil means debug table formulas.
-When nil, simply write \"#ERROR\" in corrupted fields.")
-(defvar-local org-table-overlay-coordinates nil
- "Overlay coordinates after each align of a table.")
-
-(defvar org-last-recalc-line nil)
-(defvar org-table-do-narrow t) ; for dynamic scoping
-(defconst org-narrow-column-arrow "=>"
- "Used as display property in narrowed table columns.")
-
-;;;###autoload
-(defun org-table-align ()
- "Align the table at point by aligning all vertical bars."
- (interactive)
- (let* ((beg (org-table-begin))
- (end (copy-marker (org-table-end))))
- (org-table-save-field
- ;; Make sure invisible characters in the table are at the right
- ;; place since column widths take them into account.
- (font-lock-fontify-region beg end)
- (move-marker org-table-aligned-begin-marker beg)
- (move-marker org-table-aligned-end-marker end)
- (goto-char beg)
- (let* ((indent (progn (looking-at "[ \t]*") (match-string 0)))
- ;; Table's rows. Separators are replaced by nil. Trailing
- ;; spaces are also removed.
- (lines (mapcar (lambda (l)
- (and (not (string-match-p "\\`[ \t]*|-" l))
- (let ((l (org-trim l)))
- (remove-text-properties
- 0 (length l) '(display t org-cwidth t) l)
- l)))
- (org-split-string (buffer-substring beg end) "\n")))
- ;; Get the data fields by splitting the lines.
- (fields (mapcar (lambda (l) (org-split-string l " *| *"))
- (remq nil lines)))
- ;; Compute number of fields in the longest line. If the
- ;; table contains no field, create a default table.
- (maxfields (if fields (apply #'max (mapcar #'length fields))
- (kill-region beg end)
- (org-table-create org-table-default-size)
- (user-error "Empty table - created default table")))
- ;; A list of empty strings to fill any short rows on output.
- (emptycells (make-list maxfields ""))
- lengths typenums)
- ;; Check for special formatting.
- (dotimes (i maxfields)
- (let ((column (mapcar (lambda (x) (or (nth i x) "")) fields))
- fmax falign)
- ;; Look for an explicit width or alignment.
- (when (save-excursion
- (or (re-search-forward "| *<[lrc][0-9]*> *\\(|\\|$\\)" end t)
- (and org-table-do-narrow
- (re-search-forward
- "| *<[lrc]?[0-9]+> *\\(|\\|$\\)" end t))))
- (catch :exit
- (dolist (cell column)
- (when (string-match "\\`<\\([lrc]\\)?\\([0-9]+\\)?>\\'" cell)
- (when (match-end 1) (setq falign (match-string 1 cell)))
- (when (and org-table-do-narrow (match-end 2))
- (setq fmax (string-to-number (match-string 2 cell))))
- (when (or falign fmax) (throw :exit nil)))))
- ;; Find fields that are wider than FMAX, and shorten them.
- (when fmax
- (dolist (x column)
- (when (> (org-string-width x) fmax)
- (org-add-props x nil
- 'help-echo
- (concat
- "Clipped table field, use `\\[org-table-edit-field]' to \
-edit. Full value is:\n"
- (substring-no-properties x)))
- (let ((l (length x))
- (f1 (min fmax
- (or (string-match org-bracket-link-regexp x)
- fmax)))
- (f2 1))
- (unless (> f1 1)
- (user-error
- "Cannot narrow field starting with wide link \"%s\""
- (match-string 0 x)))
- (if (= (org-string-width x) l) (setq f2 f1)
- (setq f2 1)
- (while (< (org-string-width (substring x 0 f2)) f1)
- (cl-incf f2)))
- (add-text-properties f2 l (list 'org-cwidth t) x)
- (add-text-properties
- (if (>= (string-width (substring x (1- f2) f2)) 2) (1- f2)
- (- f2 2))
- f2
- (list 'display org-narrow-column-arrow)
- x))))))
- ;; Get the maximum width for each column
- (push (or fmax (apply #'max 1 (mapcar #'org-string-width column)))
- lengths)
- ;; Get the fraction of numbers among non-empty cells to
- ;; decide about alignment of the column.
- (if falign (push (equal (downcase falign) "r") typenums)
- (let ((cnt 0)
- (frac 0.0))
- (dolist (x column)
- (unless (equal x "")
- (setq frac
- (/ (+ (* frac cnt)
- (if (string-match-p org-table-number-regexp x)
- 1
- 0))
- (cl-incf cnt)))))
- (push (>= frac org-table-number-fraction) typenums)))))
- (setq lengths (nreverse lengths))
- (setq typenums (nreverse typenums))
- ;; Store alignment of this table, for later editing of single
- ;; fields.
- (setq org-table-last-alignment typenums)
- (setq org-table-last-column-widths lengths)
- ;; With invisible characters, `format' does not get the field
- ;; width right So we need to make these fields wide by hand.
- ;; Invisible characters may be introduced by fontified links,
- ;; emphasis, macros or sub/superscripts.
- (when (or (text-property-any beg end 'invisible 'org-link)
- (text-property-any beg end 'invisible t))
- (dotimes (i maxfields)
- (let ((len (nth i lengths)))
- (dotimes (j (length fields))
- (let* ((c (nthcdr i (nth j fields)))
- (cell (car c)))
- (when (and
- (stringp cell)
- (let ((l (length cell)))
- (or (text-property-any 0 l 'invisible 'org-link cell)
- (text-property-any beg end 'invisible t)))
- (< (org-string-width cell) len))
- (let ((s (make-string (- len (org-string-width cell)) ?\s)))
- (setcar c (if (nth i typenums) (concat s cell)
- (concat cell s))))))))))
-
- ;; Compute the formats needed for output of the table.
- (let ((hfmt (concat indent "|"))
- (rfmt (concat indent "|"))
- (rfmt1 " %%%s%ds |")
- (hfmt1 "-%s-+"))
- (dolist (l lengths (setq hfmt (concat (substring hfmt 0 -1) "|")))
- (let ((ty (if (pop typenums) "" "-"))) ; Flush numbers right.
- (setq rfmt (concat rfmt (format rfmt1 ty l)))
- (setq hfmt (concat hfmt (format hfmt1 (make-string l ?-))))))
- ;; Replace modified lines only. Check not only contents, but
- ;; also columns' width.
- (dolist (l lines)
- (let ((line
- (if l (apply #'format rfmt (append (pop fields) emptycells))
- hfmt))
- (previous (buffer-substring (point) (line-end-position))))
- (if (and (equal previous line)
- (let ((a 0)
- (b 0))
- (while (and (progn
- (setq a (next-single-property-change
- a 'org-cwidth previous))
- (setq b (next-single-property-change
- b 'org-cwidth line)))
- (eq a b)))
- (eq a b)))
- (forward-line)
- (insert line "\n")
- (delete-region (point) (line-beginning-position 2))))))
- (when (and orgtbl-mode (not (derived-mode-p 'org-mode)))
- (goto-char org-table-aligned-begin-marker)
- (while (org-hide-wide-columns org-table-aligned-end-marker)))
- (set-marker end nil)
- (when org-table-overlay-coordinates (org-table-overlay-coordinates))
- (setq org-table-may-need-update nil)))))
-
-;;;###autoload
-(defun org-table-begin (&optional table-type)
- "Find the beginning of the table and return its position.
-With a non-nil optional argument TABLE-TYPE, return the beginning
-of a table.el-type table. This function assumes point is on
-a table."
- (cond (table-type
- (org-element-property :post-affiliated (org-element-at-point)))
- ((save-excursion
- (and (re-search-backward org-table-border-regexp nil t)
- (line-beginning-position 2))))
- (t (point-min))))
-
-;;;###autoload
-(defun org-table-end (&optional table-type)
- "Find the end of the table and return its position.
-With a non-nil optional argument TABLE-TYPE, return the end of
-a table.el-type table. This function assumes point is on
-a table."
- (save-excursion
- (cond (table-type
- (goto-char (org-element-property :end (org-element-at-point)))
- (skip-chars-backward " \t\n")
- (line-beginning-position 2))
- ((re-search-forward org-table-border-regexp nil t)
- (match-beginning 0))
- ;; When the line right after the table is the last line in
- ;; the buffer with trailing spaces but no final newline
- ;; character, be sure to catch the correct ending at its
- ;; beginning. In any other case, ending is expected to be
- ;; at point max.
- (t (goto-char (point-max))
- (skip-chars-backward " \t")
- (if (bolp) (point) (line-end-position))))))
-
-;;;###autoload
-(defun org-table-justify-field-maybe (&optional new)
- "Justify the current field, text to left, number to right.
-Optional argument NEW may specify text to replace the current field content."
- (cond
- ((and (not new) org-table-may-need-update)) ; Realignment will happen anyway
- ((org-at-table-hline-p))
- ((and (not new)
- (or (not (eq (marker-buffer org-table-aligned-begin-marker)
- (current-buffer)))
- (< (point) org-table-aligned-begin-marker)
- (>= (point) org-table-aligned-end-marker)))
- ;; This is not the same table, force a full re-align.
- (setq org-table-may-need-update t))
- (t
- ;; Realign the current field, based on previous full realign.
- (let ((pos (point))
- (col (org-table-current-column)))
- (when (> col 0)
- (skip-chars-backward "^|")
- (if (not (looking-at " *\\([^|\n]*?\\) *\\(|\\|$\\)"))
- (setq org-table-may-need-update t)
- (let* ((numbers? (nth (1- col) org-table-last-alignment))
- (cell (match-string 0))
- (field (match-string 1))
- (len (max 1 (- (org-string-width cell) 3)))
- (properly-closed? (/= (match-beginning 2) (match-end 2)))
- (fmt (format (if numbers? " %%%ds %s" " %%-%ds %s")
- len
- (if properly-closed? "|"
- (setq org-table-may-need-update t)
- "")))
- (new-cell
- (cond ((not new) (format fmt field))
- ((<= (org-string-width new) len) (format fmt new))
- (t
- (setq org-table-may-need-update t)
- (format " %s |" new)))))
- (unless (equal new-cell cell)
- (let (org-table-may-need-update)
- (replace-match new-cell t t)))
- (goto-char pos))))))))
-
-;;;###autoload
-(defun org-table-next-field ()
- "Go to the next field in the current table, creating new lines as needed.
-Before doing so, re-align the table if necessary."
- (interactive)
- (org-table-maybe-eval-formula)
- (org-table-maybe-recalculate-line)
- (if (and org-table-automatic-realign
- org-table-may-need-update)
- (org-table-align))
- (let ((end (org-table-end)))
- (if (org-at-table-hline-p)
- (end-of-line 1))
- (condition-case nil
- (progn
- (re-search-forward "|" end)
- (if (looking-at "[ \t]*$")
- (re-search-forward "|" end))
- (if (and (looking-at "-")
- org-table-tab-jumps-over-hlines
- (re-search-forward "^[ \t]*|\\([^-]\\)" end t))
- (goto-char (match-beginning 1)))
- (if (looking-at "-")
- (progn
- (beginning-of-line 0)
- (org-table-insert-row 'below))
- (if (looking-at " ") (forward-char 1))))
- (error
- (org-table-insert-row 'below)))))
-
-;;;###autoload
-(defun org-table-previous-field ()
- "Go to the previous field in the table.
-Before doing so, re-align the table if necessary."
- (interactive)
- (org-table-justify-field-maybe)
- (org-table-maybe-recalculate-line)
- (when (and org-table-automatic-realign
- org-table-may-need-update)
- (org-table-align))
- (when (org-at-table-hline-p)
- (end-of-line))
- (let ((start (org-table-begin))
- (origin (point)))
- (condition-case nil
- (progn
- (search-backward "|" start nil 2)
- (while (looking-at-p "|\\(?:-\\|[ \t]*$\\)")
- (search-backward "|" start)))
- (error
- (goto-char origin)
- (user-error "Cannot move to previous table field"))))
- (when (looking-at "| ?")
- (goto-char (match-end 0))))
-
-(defun org-table-beginning-of-field (&optional n)
- "Move to the beginning of the current table field.
-If already at or before the beginning, move to the beginning of the
-previous field.
-With numeric argument N, move N-1 fields backward first."
- (interactive "p")
- (let ((pos (point)))
- (while (> n 1)
- (setq n (1- n))
- (org-table-previous-field))
- (if (not (re-search-backward "|" (point-at-bol 0) t))
- (user-error "No more table fields before the current")
- (goto-char (match-end 0))
- (and (looking-at " ") (forward-char 1)))
- (if (>= (point) pos) (org-table-beginning-of-field 2))))
-
-(defun org-table-end-of-field (&optional n)
- "Move to the end of the current table field.
-If already at or after the end, move to the end of the next table field.
-With numeric argument N, move N-1 fields forward first."
- (interactive "p")
- (let ((pos (point)))
- (while (> n 1)
- (setq n (1- n))
- (org-table-next-field))
- (when (re-search-forward "|" (point-at-eol 1) t)
- (backward-char 1)
- (skip-chars-backward " ")
- (if (and (equal (char-before (point)) ?|) (looking-at " "))
- (forward-char 1)))
- (if (<= (point) pos) (org-table-end-of-field 2))))
-
-;;;###autoload
-(defun org-table-next-row ()
- "Go to the next row (same column) in the current table.
-Before doing so, re-align the table if necessary."
- (interactive)
- (org-table-maybe-eval-formula)
- (org-table-maybe-recalculate-line)
- (if (and org-table-automatic-realign
- org-table-may-need-update)
- (org-table-align))
- (let ((col (org-table-current-column)))
- (beginning-of-line 2)
- (when (or (not (org-at-table-p))
- (org-at-table-hline-p))
- (beginning-of-line 0)
- (org-table-insert-row 'below))
- (org-table-goto-column col)
- (skip-chars-backward "^|\n\r")
- (when (looking-at " ") (forward-char))))
-
-;;;###autoload
-(defun org-table-copy-down (n)
- "Copy the value of the current field one row below.
-
-If the field at the cursor is empty, copy the content of the
-nearest non-empty field above. With argument N, use the Nth
-non-empty field.
-
-If the current field is not empty, it is copied down to the next
-row, and the cursor is moved with it. Therefore, repeating this
-command causes the column to be filled row-by-row.
-
-If the variable `org-table-copy-increment' is non-nil and the
-field is an integer or a timestamp, it will be incremented while
-copying. By default, increment by the difference between the
-value in the current field and the one in the field above. To
-increment using a fixed integer, set `org-table-copy-increment'
-to a number. In the case of a timestamp, increment by days."
- (interactive "p")
- (let* ((colpos (org-table-current-column))
- (col (current-column))
- (field (save-excursion (org-table-get-field)))
- (field-up (or (save-excursion
- (org-table-get (1- (org-table-current-line))
- (org-table-current-column))) ""))
- (non-empty (string-match "[^ \t]" field))
- (non-empty-up (string-match "[^ \t]" field-up))
- (beg (org-table-begin))
- (orig-n n)
- txt txt-up inc)
- (org-table-check-inside-data-field)
- (if (not non-empty)
- (save-excursion
- (setq txt
- (catch 'exit
- (while (progn (beginning-of-line 1)
- (re-search-backward org-table-dataline-regexp
- beg t))
- (org-table-goto-column colpos t)
- (if (and (looking-at
- "|[ \t]*\\([^| \t][^|]*?\\)[ \t]*|")
- (<= (setq n (1- n)) 0))
- (throw 'exit (match-string 1))))))
- (setq field-up
- (catch 'exit
- (while (progn (beginning-of-line 1)
- (re-search-backward org-table-dataline-regexp
- beg t))
- (org-table-goto-column colpos t)
- (if (and (looking-at
- "|[ \t]*\\([^| \t][^|]*?\\)[ \t]*|")
- (<= (setq n (1- n)) 0))
- (throw 'exit (match-string 1))))))
- (setq non-empty-up (and field-up (string-match "[^ \t]" field-up))))
- ;; Above field was not empty, go down to the next row
- (setq txt (org-trim field))
- (org-table-next-row)
- (org-table-blank-field))
- (if non-empty-up (setq txt-up (org-trim field-up)))
- (setq inc (cond
- ((numberp org-table-copy-increment) org-table-copy-increment)
- (txt-up (cond ((and (string-match org-ts-regexp3 txt-up)
- (string-match org-ts-regexp3 txt))
- (- (org-time-string-to-absolute txt)
- (org-time-string-to-absolute txt-up)))
- ((string-match org-ts-regexp3 txt) 1)
- ((string-match "\\([-+]\\)?\\(?:[0-9]+\\)?\\(?:\.[0-9]+\\)?" txt-up)
- (- (string-to-number txt)
- (string-to-number (match-string 0 txt-up))))
- (t 1)))
- (t 1)))
- (if (not txt)
- (user-error "No non-empty field found")
- (if (and org-table-copy-increment
- (not (equal orig-n 0))
- (string-match-p "^[-+^/*0-9eE.]+$" txt)
- (< (string-to-number txt) 100000000))
- (setq txt (calc-eval (concat txt "+" (number-to-string inc)))))
- (insert txt)
- (org-move-to-column col)
- (if (and org-table-copy-increment (org-at-timestamp-p 'lax))
- (org-timestamp-up-day inc)
- (org-table-maybe-recalculate-line))
- (org-table-align)
- (org-move-to-column col))))
-
-(defun org-table-check-inside-data-field (&optional noerror)
- "Is point inside a table data field?
-I.e. not on a hline or before the first or after the last column?
-This actually throws an error, so it aborts the current command."
- (cond ((and (org-at-table-p)
- (not (save-excursion (skip-chars-backward " \t") (bolp)))
- (not (org-at-table-hline-p))
- (not (looking-at "[ \t]*$"))))
- (noerror nil)
- (t (user-error "Not in table data field"))))
-
-(defvar org-table-clip nil
- "Clipboard for table regions.")
-
-(defun org-table-get (line column)
- "Get the field in table line LINE, column COLUMN.
-If LINE is larger than the number of data lines in the table, the function
-returns nil. However, if COLUMN is too large, we will simply return an
-empty string.
-If LINE is nil, use the current line.
-If COLUMN is nil, use the current column."
- (setq column (or column (org-table-current-column)))
- (save-excursion
- (and (or (not line) (org-table-goto-line line))
- (org-trim (org-table-get-field column)))))
-
-(defun org-table-put (line column value &optional align)
- "Put VALUE into line LINE, column COLUMN.
-When ALIGN is set, also realign the table."
- (setq column (or column (org-table-current-column)))
- (prog1 (save-excursion
- (and (or (not line) (org-table-goto-line line))
- (progn (org-table-goto-column column nil 'force) t)
- (org-table-get-field column value)))
- (and align (org-table-align))))
-
-(defun org-table-current-line ()
- "Return the index of the current data line."
- (let ((pos (point)) (end (org-table-end)) (cnt 0))
- (save-excursion
- (goto-char (org-table-begin))
- (while (and (re-search-forward org-table-dataline-regexp end t)
- (setq cnt (1+ cnt))
- (< (point-at-eol) pos))))
- cnt))
-
-(defun org-table-goto-line (N)
- "Go to the Nth data line in the current table.
-Return t when the line exists, nil if it does not exist."
- (goto-char (org-table-begin))
- (let ((end (org-table-end)) (cnt 0))
- (while (and (re-search-forward org-table-dataline-regexp end t)
- (< (setq cnt (1+ cnt)) N)))
- (= cnt N)))
-
-;;;###autoload
-(defun org-table-blank-field ()
- "Blank the current table field or active region."
- (interactive)
- (org-table-check-inside-data-field)
- (if (and (called-interactively-p 'any) (org-region-active-p))
- (let (org-table-clip)
- (org-table-cut-region (region-beginning) (region-end)))
- (skip-chars-backward "^|")
- (backward-char 1)
- (if (looking-at "|[^|\n]+")
- (let* ((pos (match-beginning 0))
- (match (match-string 0))
- (len (org-string-width match)))
- (replace-match (concat "|" (make-string (1- len) ?\ )))
- (goto-char (+ 2 pos))
- (substring match 1)))))
-
-(defun org-table-get-field (&optional n replace)
- "Return the value of the field in column N of current row.
-N defaults to current column. If REPLACE is a string, replace
-field with this value. The return value is always the old
-value."
- (when n (org-table-goto-column n))
- (skip-chars-backward "^|\n")
- (if (or (bolp) (looking-at-p "[ \t]*$"))
- ;; Before first column or after last one.
- ""
- (looking-at "[^|\r\n]*")
- (let* ((pos (match-beginning 0))
- (val (buffer-substring pos (match-end 0))))
- (when replace
- (replace-match (if (equal replace "") " " replace) t t))
- (goto-char (min (line-end-position) (1+ pos)))
- val)))
-
-;;;###autoload
-(defun org-table-field-info (_arg)
- "Show info about the current field, and highlight any reference at point."
- (interactive "P")
- (unless (org-at-table-p) (user-error "Not at a table"))
- (org-table-analyze)
- (save-excursion
- (let* ((pos (point))
- (col (org-table-current-column))
- (cname (car (rassoc (int-to-string col) org-table-column-names)))
- (name (car (rassoc (list (count-lines org-table-current-begin-pos
- (line-beginning-position))
- col)
- org-table-named-field-locations)))
- (eql (org-table-expand-lhs-ranges
- (mapcar
- (lambda (e)
- (cons (org-table-formula-handle-first/last-rc (car e))
- (cdr e)))
- (org-table-get-stored-formulas))))
- (dline (org-table-current-dline))
- (ref (format "@%d$%d" dline col))
- (ref1 (org-table-convert-refs-to-an ref))
- ;; Prioritize field formulas over column formulas.
- (fequation (or (assoc name eql) (assoc ref eql)))
- (cequation (assoc (format "$%d" col) eql))
- (eqn (or fequation cequation)))
- (let ((p (and eqn (get-text-property 0 :orig-eqn (car eqn)))))
- (when p (setq eqn p)))
- (goto-char pos)
- (ignore-errors (org-table-show-reference 'local))
- (message "line @%d, col $%s%s, ref @%d$%d or %s%s%s"
- dline col
- (if cname (concat " or $" cname) "")
- dline col ref1
- (if name (concat " or $" name) "")
- ;; FIXME: formula info not correct if special table line
- (if eqn
- (concat ", formula: "
- (org-table-formula-to-user
- (concat
- (if (or (string-prefix-p "$" (car eqn))
- (string-prefix-p "@" (car eqn)))
- ""
- "$")
- (car eqn) "=" (cdr eqn))))
- "")))))
-
-(defun org-table-current-column ()
- "Find out which column we are in."
- (interactive)
- (save-excursion
- (let ((column 0) (pos (point)))
- (beginning-of-line)
- (while (search-forward "|" pos t) (cl-incf column))
- column)))
-
-(defun org-table-current-dline ()
- "Find out what table data line we are in.
-Only data lines count for this."
- (save-excursion
- (let ((c 0)
- (pos (line-beginning-position)))
- (goto-char (org-table-begin))
- (while (<= (point) pos)
- (when (looking-at org-table-dataline-regexp) (cl-incf c))
- (forward-line))
- c)))
-
-;;;###autoload
-(defun org-table-goto-column (n &optional on-delim force)
- "Move the cursor to the Nth column in the current table line.
-With optional argument ON-DELIM, stop with point before the left delimiter
-of the field.
-If there are less than N fields, just go to after the last delimiter.
-However, when FORCE is non-nil, create new columns if necessary."
- (interactive "p")
- (beginning-of-line 1)
- (when (> n 0)
- (while (and (> (setq n (1- n)) -1)
- (or (search-forward "|" (point-at-eol) t)
- (and force
- (progn (end-of-line 1)
- (skip-chars-backward "^|")
- (insert " | ")
- t)))))
- (when (and force (not (looking-at ".*|")))
- (save-excursion (end-of-line 1) (insert " | ")))
- (if on-delim
- (backward-char 1)
- (if (looking-at " ") (forward-char 1)))))
-
-;;;###autoload
-(defun org-table-insert-column ()
- "Insert a new column into the table."
- (interactive)
- (unless (org-at-table-p) (user-error "Not at a table"))
- (org-table-find-dataline)
- (let* ((col (max 1 (org-table-current-column)))
- (beg (org-table-begin))
- (end (copy-marker (org-table-end))))
- (org-table-save-field
- (goto-char beg)
- (while (< (point) end)
- (unless (org-at-table-hline-p)
- (org-table-goto-column col t)
- (insert "| "))
- (forward-line)))
- (set-marker end nil)
- (org-table-align)
- (when (or (not org-table-fix-formulas-confirm)
- (funcall org-table-fix-formulas-confirm "Fix formulas? "))
- (org-table-fix-formulas "$" nil (1- col) 1)
- (org-table-fix-formulas "$LR" nil (1- col) 1))))
-
-(defun org-table-find-dataline ()
- "Find a data line in the current table, which is needed for column commands."
- (if (and (org-at-table-p)
- (not (org-at-table-hline-p)))
- t
- (let ((col (current-column))
- (end (org-table-end)))
- (org-move-to-column col)
- (while (and (< (point) end)
- (or (not (= (current-column) col))
- (org-at-table-hline-p)))
- (beginning-of-line 2)
- (org-move-to-column col))
- (if (and (org-at-table-p)
- (not (org-at-table-hline-p)))
- t
- (user-error
- "Please position cursor in a data line for column operations")))))
-
-(defun org-table-line-to-dline (line &optional above)
- "Turn a buffer line number into a data line number.
-
-If there is no data line in this line, return nil.
-
-If there is no matching dline (most likely the reference was
-a hline), the first dline below it is used. When ABOVE is
-non-nil, the one above is used."
- (let ((min 1)
- (max (1- (length org-table-dlines))))
- (cond ((or (> (aref org-table-dlines min) line)
- (< (aref org-table-dlines max) line))
- nil)
- ((= (aref org-table-dlines max) line) max)
- (t (catch 'exit
- (while (> (- max min) 1)
- (let* ((mean (/ (+ max min) 2))
- (v (aref org-table-dlines mean)))
- (cond ((= v line) (throw 'exit mean))
- ((> v line) (setq max mean))
- (t (setq min mean)))))
- (if above min max))))))
-
-;;;###autoload
-(defun org-table-delete-column ()
- "Delete a column from the table."
- (interactive)
- (unless (org-at-table-p) (user-error "Not at a table"))
- (org-table-find-dataline)
- (org-table-check-inside-data-field)
- (let ((col (org-table-current-column))
- (beg (org-table-begin))
- (end (copy-marker (org-table-end))))
- (org-table-save-field
- (goto-char beg)
- (while (< (point) end)
- (if (org-at-table-hline-p)
- nil
- (org-table-goto-column col t)
- (and (looking-at "|[^|\n]+|")
- (replace-match "|")))
- (forward-line)))
- (set-marker end nil)
- (org-table-goto-column (max 1 (1- col)))
- (org-table-align)
- (when (or (not org-table-fix-formulas-confirm)
- (funcall org-table-fix-formulas-confirm "Fix formulas? "))
- (org-table-fix-formulas
- "$" (list (cons (number-to-string col) "INVALID")) col -1 col)
- (org-table-fix-formulas
- "$LR" (list (cons (number-to-string col) "INVALID")) col -1 col))))
-
-;;;###autoload
-(defun org-table-move-column-right ()
- "Move column to the right."
- (interactive)
- (org-table-move-column nil))
-;;;###autoload
-(defun org-table-move-column-left ()
- "Move column to the left."
- (interactive)
- (org-table-move-column 'left))
-
-;;;###autoload
-(defun org-table-move-column (&optional left)
- "Move the current column to the right. With arg LEFT, move to the left."
- (interactive "P")
- (unless (org-at-table-p) (user-error "Not at a table"))
- (org-table-find-dataline)
- (org-table-check-inside-data-field)
- (let* ((col (org-table-current-column))
- (col1 (if left (1- col) col))
- (colpos (if left (1- col) (1+ col)))
- (beg (org-table-begin))
- (end (copy-marker (org-table-end))))
- (when (and left (= col 1))
- (user-error "Cannot move column further left"))
- (when (and (not left) (looking-at "[^|\n]*|[^|\n]*$"))
- (user-error "Cannot move column further right"))
- (org-table-save-field
- (goto-char beg)
- (while (< (point) end)
- (unless (org-at-table-hline-p)
- (org-table-goto-column col1 t)
- (when (looking-at "|\\([^|\n]+\\)|\\([^|\n]+\\)|")
- (transpose-regions
- (match-beginning 1) (match-end 1)
- (match-beginning 2) (match-end 2))))
- (forward-line)))
- (set-marker end nil)
- (org-table-goto-column colpos)
- (org-table-align)
- (when (or (not org-table-fix-formulas-confirm)
- (funcall org-table-fix-formulas-confirm "Fix formulas? "))
- (org-table-fix-formulas
- "$" (list (cons (number-to-string col) (number-to-string colpos))
- (cons (number-to-string colpos) (number-to-string col))))
- (org-table-fix-formulas
- "$LR" (list (cons (number-to-string col) (number-to-string colpos))
- (cons (number-to-string colpos) (number-to-string col)))))))
-
-;;;###autoload
-(defun org-table-move-row-down ()
- "Move table row down."
- (interactive)
- (org-table-move-row nil))
-;;;###autoload
-(defun org-table-move-row-up ()
- "Move table row up."
- (interactive)
- (org-table-move-row 'up))
-
-;;;###autoload
-(defun org-table-move-row (&optional up)
- "Move the current table line down. With arg UP, move it up."
- (interactive "P")
- (let* ((col (current-column))
- (pos (point))
- (hline1p (save-excursion (beginning-of-line 1)
- (looking-at org-table-hline-regexp)))
- (dline1 (org-table-current-dline))
- (dline2 (+ dline1 (if up -1 1)))
- (tonew (if up 0 2))
- hline2p)
- (when (and up (= (point-min) (line-beginning-position)))
- (user-error "Cannot move row further"))
- (beginning-of-line tonew)
- (when (or (and (not up) (eobp)) (not (org-at-table-p)))
- (goto-char pos)
- (user-error "Cannot move row further"))
- (setq hline2p (looking-at org-table-hline-regexp))
- (goto-char pos)
- (let ((row (delete-and-extract-region (line-beginning-position)
- (line-beginning-position 2))))
- (beginning-of-line tonew)
- (unless (bolp) (insert "\n")) ;at eob without a newline
- (insert row)
- (unless (bolp) (insert "\n")) ;missing final newline in ROW
- (beginning-of-line 0)
- (org-move-to-column col)
- (unless (or hline1p hline2p
- (not (or (not org-table-fix-formulas-confirm)
- (funcall org-table-fix-formulas-confirm
- "Fix formulas? "))))
- (org-table-fix-formulas
- "@" (list
- (cons (number-to-string dline1) (number-to-string dline2))
- (cons (number-to-string dline2) (number-to-string dline1))))))))
-
-;;;###autoload
-(defun org-table-insert-row (&optional arg)
- "Insert a new row above the current line into the table.
-With prefix ARG, insert below the current line."
- (interactive "P")
- (unless (org-at-table-p) (user-error "Not at a table"))
- (let* ((line (buffer-substring (line-beginning-position) (line-end-position)))
- (new (org-table-clean-line line)))
- ;; Fix the first field if necessary
- (if (string-match "^[ \t]*| *[#$] *|" line)
- (setq new (replace-match (match-string 0 line) t t new)))
- (beginning-of-line (if arg 2 1))
- ;; Buffer may not end of a newline character, so ensure
- ;; (beginning-of-line 2) moves point to a new line.
- (unless (bolp) (insert "\n"))
- (let (org-table-may-need-update) (insert-before-markers new "\n"))
- (beginning-of-line 0)
- (re-search-forward "| ?" (line-end-position) t)
- (when (or org-table-may-need-update org-table-overlay-coordinates)
- (org-table-align))
- (when (or (not org-table-fix-formulas-confirm)
- (funcall org-table-fix-formulas-confirm "Fix formulas? "))
- (org-table-fix-formulas "@" nil (1- (org-table-current-dline)) 1))))
-
-;;;###autoload
-(defun org-table-insert-hline (&optional above)
- "Insert a horizontal-line below the current line into the table.
-With prefix ABOVE, insert above the current line."
- (interactive "P")
- (if (not (org-at-table-p))
- (user-error "Not at a table"))
- (when (eobp) (insert "\n") (backward-char 1))
- (if (not (string-match-p "|[ \t]*$" (org-current-line-string)))
- (org-table-align))
- (let ((line (org-table-clean-line
- (buffer-substring (point-at-bol) (point-at-eol))))
- (col (current-column)))
- (while (string-match "|\\( +\\)|" line)
- (setq line (replace-match
- (concat "+" (make-string (- (match-end 1) (match-beginning 1))
- ?-) "|") t t line)))
- (and (string-match "\\+" line) (setq line (replace-match "|" t t line)))
- (beginning-of-line (if above 1 2))
- (insert line "\n")
- (beginning-of-line (if above 1 -1))
- (org-move-to-column col)
- (and org-table-overlay-coordinates (org-table-align))))
-
-;;;###autoload
-(defun org-table-hline-and-move (&optional same-column)
- "Insert a hline and move to the row below that line."
- (interactive "P")
- (let ((col (org-table-current-column)))
- (org-table-maybe-eval-formula)
- (org-table-maybe-recalculate-line)
- (org-table-insert-hline)
- (end-of-line 2)
- (if (looking-at "\n[ \t]*|-")
- (progn (insert "\n|") (org-table-align))
- (org-table-next-field))
- (if same-column (org-table-goto-column col))))
-
-(defun org-table-clean-line (s)
- "Convert a table line S into a string with only \"|\" and space.
-In particular, this does handle wide and invisible characters."
- (if (string-match "^[ \t]*|-" s)
- ;; It's a hline, just map the characters
- (setq s (mapconcat (lambda (x) (if (member x '(?| ?+)) "|" " ")) s ""))
- (while (string-match "|\\([ \t]*?[^ \t\r\n|][^\r\n|]*\\)|" s)
- (setq s (replace-match
- (concat "|" (make-string (org-string-width (match-string 1 s))
- ?\ ) "|")
- t t s)))
- s))
-
-;;;###autoload
-(defun org-table-kill-row ()
- "Delete the current row or horizontal line from the table."
- (interactive)
- (if (not (org-at-table-p))
- (user-error "Not at a table"))
- (let ((col (current-column))
- (dline (and (not (org-match-line org-table-hline-regexp))
- (org-table-current-dline))))
- (kill-region (point-at-bol) (min (1+ (point-at-eol)) (point-max)))
- (if (not (org-at-table-p)) (beginning-of-line 0))
- (org-move-to-column col)
- (when (and dline
- (or (not org-table-fix-formulas-confirm)
- (funcall org-table-fix-formulas-confirm "Fix formulas? ")))
- (org-table-fix-formulas "@" (list (cons (number-to-string dline) "INVALID"))
- dline -1 dline))))
-
-;;;###autoload
-(defun org-table-sort-lines
- (&optional with-case sorting-type getkey-func compare-func interactive?)
- "Sort table lines according to the column at point.
-
-The position of point indicates the column to be used for
-sorting, and the range of lines is the range between the nearest
-horizontal separator lines, or the entire table of no such lines
-exist. If point is before the first column, you will be prompted
-for the sorting column. If there is an active region, the mark
-specifies the first line and the sorting column, while point
-should be in the last line to be included into the sorting.
-
-The command then prompts for the sorting type which can be
-alphabetically, numerically, or by time (as given in a time stamp
-in the field, or as a HH:MM value). Sorting in reverse order is
-also possible.
-
-With prefix argument WITH-CASE, alphabetic sorting will be case-sensitive.
-
-If SORTING-TYPE is specified when this function is called from a Lisp
-program, no prompting will take place. SORTING-TYPE must be a character,
-any of (?a ?A ?n ?N ?t ?T ?f ?F) where the capital letters indicate that
-sorting should be done in reverse order.
-
-If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies
-a function to be called to extract the key. It must return a value
-that is compatible with COMPARE-FUNC, the function used to compare
-entries.
-
-A non-nil value for INTERACTIVE? is used to signal that this
-function is being called interactively."
- (interactive (list current-prefix-arg nil nil nil t))
- (when (org-region-active-p) (goto-char (region-beginning)))
- ;; Point must be either within a field or before a data line.
- (save-excursion
- (skip-chars-backward " \t")
- (when (bolp) (search-forward "|" (line-end-position) t))
- (org-table-check-inside-data-field))
- ;; Set appropriate case sensitivity and column used for sorting.
- (let ((column (let ((c (org-table-current-column)))
- (cond ((> c 0) c)
- (interactive?
- (read-number "Use column N for sorting: "))
- (t 1))))
- (sorting-type
- (or sorting-type
- (read-char-exclusive "Sort Table: [a]lphabetic, [n]umeric, \
-\[t]ime, [f]unc. A/N/T/F means reversed: "))))
- (save-restriction
- ;; Narrow buffer to appropriate sorting area.
- (if (org-region-active-p)
- (progn (goto-char (region-beginning))
- (narrow-to-region
- (point)
- (save-excursion (goto-char (region-end))
- (line-beginning-position 2))))
- (let ((start (org-table-begin))
- (end (org-table-end)))
- (narrow-to-region
- (save-excursion
- (if (re-search-backward org-table-hline-regexp start t)
- (line-beginning-position 2)
- start))
- (if (save-excursion (re-search-forward org-table-hline-regexp end t))
- (match-beginning 0)
- end))))
- ;; Determine arguments for `sort-subr'. Also record original
- ;; position. `org-table-save-field' cannot help here since
- ;; sorting is too much destructive.
- (let* ((sort-fold-case (not with-case))
- (coordinates
- (cons (count-lines (point-min) (line-beginning-position))
- (current-column)))
- (extract-key-from-field
- ;; Function to be called on the contents of the field
- ;; used for sorting in the current row.
- (cl-case sorting-type
- ((?n ?N) #'string-to-number)
- ((?a ?A) #'org-sort-remove-invisible)
- ((?t ?T)
- (lambda (f)
- (cond ((string-match org-ts-regexp-both f)
- (float-time
- (org-time-string-to-time (match-string 0 f))))
- ((org-duration-p f) (org-duration-to-minutes f))
- ((string-match "\\<[0-9]+:[0-9]\\{2\\}\\>" f)
- (org-duration-to-minutes (match-string 0 f)))
- (t 0))))
- ((?f ?F)
- (or getkey-func
- (and interactive?
- (org-read-function "Function for extracting keys: "))
- (error "Missing key extractor to sort rows")))
- (t (user-error "Invalid sorting type `%c'" sorting-type))))
- (predicate
- (cl-case sorting-type
- ((?n ?N ?t ?T) #'<)
- ((?a ?A) #'string<)
- ((?f ?F)
- (or compare-func
- (and interactive?
- (org-read-function
- (concat "Function for comparing keys "
- "(empty for default `sort-subr' predicate): ")
- 'allow-empty)))))))
- (goto-char (point-min))
- (sort-subr (memq sorting-type '(?A ?N ?T ?F))
- (lambda ()
- (forward-line)
- (while (and (not (eobp))
- (not (looking-at org-table-dataline-regexp)))
- (forward-line)))
- #'end-of-line
- (lambda ()
- (funcall extract-key-from-field
- (org-trim (org-table-get-field column))))
- nil
- predicate)
- ;; Move back to initial field.
- (forward-line (car coordinates))
- (move-to-column (cdr coordinates))))))
-
-;;;###autoload
-(defun org-table-cut-region (beg end)
- "Copy region in table to the clipboard and blank all relevant fields.
-If there is no active region, use just the field at point."
- (interactive (list
- (if (org-region-active-p) (region-beginning) (point))
- (if (org-region-active-p) (region-end) (point))))
- (org-table-copy-region beg end 'cut))
-
-;;;###autoload
-(defun org-table-copy-region (beg end &optional cut)
- "Copy rectangular region in table to clipboard.
-A special clipboard is used which can only be accessed
-with `org-table-paste-rectangle'."
- (interactive (list
- (if (org-region-active-p) (region-beginning) (point))
- (if (org-region-active-p) (region-end) (point))
- current-prefix-arg))
- (goto-char (min beg end))
- (org-table-check-inside-data-field)
- (let ((beg (line-beginning-position))
- (c01 (org-table-current-column))
- region)
- (goto-char (max beg end))
- (org-table-check-inside-data-field)
- (let* ((end (copy-marker (line-end-position)))
- (c02 (org-table-current-column))
- (column-start (min c01 c02))
- (column-end (max c01 c02))
- (column-number (1+ (- column-end column-start)))
- (rpl (and cut " ")))
- (goto-char beg)
- (while (< (point) end)
- (unless (org-at-table-hline-p)
- ;; Collect every cell between COLUMN-START and COLUMN-END.
- (let (cols)
- (dotimes (c column-number)
- (push (org-table-get-field (+ c column-start) rpl) cols))
- (push (nreverse cols) region)))
- (forward-line))
- (set-marker end nil))
- (when cut (org-table-align))
- (setq org-table-clip (nreverse region))))
-
-;;;###autoload
-(defun org-table-paste-rectangle ()
- "Paste a rectangular region into a table.
-The upper right corner ends up in the current field. All involved fields
-will be overwritten. If the rectangle does not fit into the present table,
-the table is enlarged as needed. The process ignores horizontal separator
-lines."
- (interactive)
- (unless (consp org-table-clip)
- (user-error "First cut/copy a region to paste!"))
- (org-table-check-inside-data-field)
- (let* ((column (org-table-current-column))
- (org-table-automatic-realign nil))
- (org-table-save-field
- (dolist (row org-table-clip)
- (while (org-at-table-hline-p) (forward-line))
- ;; If we left the table, create a new row.
- (when (and (bolp) (not (looking-at "[ \t]*|")))
- (end-of-line 0)
- (org-table-next-field))
- (let ((c column))
- (dolist (field row)
- (org-table-goto-column c nil 'force)
- (org-table-get-field nil field)
- (cl-incf c)))
- (forward-line)))
- (org-table-align)))
-
-;;;###autoload
-(defun org-table-convert ()
- "Convert from `org-mode' table to table.el and back.
-Obviously, this only works within limits. When an Org table is converted
-to table.el, all horizontal separator lines get lost, because table.el uses
-these as cell boundaries and has no notion of horizontal lines. A table.el
-table can be converted to an Org table only if it does not do row or column
-spanning. Multiline cells will become multiple cells. Beware, Org mode
-does not test if the table can be successfully converted - it blindly
-applies a recipe that works for simple tables."
- (interactive)
- (require 'table)
- (if (org-at-table.el-p)
- ;; convert to Org table
- (let ((beg (copy-marker (org-table-begin t)))
- (end (copy-marker (org-table-end t))))
- (table-unrecognize-region beg end)
- (goto-char beg)
- (while (re-search-forward "^\\([ \t]*\\)\\+-.*\n" end t)
- (replace-match ""))
- (goto-char beg))
- (if (org-at-table-p)
- ;; convert to table.el table
- (let ((beg (copy-marker (org-table-begin)))
- (end (copy-marker (org-table-end))))
- ;; first, get rid of all horizontal lines
- (goto-char beg)
- (while (re-search-forward "^\\([ \t]*\\)|-.*\n" end t)
- (replace-match ""))
- ;; insert a hline before first
- (goto-char beg)
- (org-table-insert-hline 'above)
- (beginning-of-line -1)
- ;; insert a hline after each line
- (while (progn (beginning-of-line 3) (< (point) end))
- (org-table-insert-hline))
- (goto-char beg)
- (setq end (move-marker end (org-table-end)))
- ;; replace "+" at beginning and ending of hlines
- (while (re-search-forward "^\\([ \t]*\\)|-" end t)
- (replace-match "\\1+-"))
- (goto-char beg)
- (while (re-search-forward "-|[ \t]*$" end t)
- (replace-match "-+"))
- (goto-char beg)))))
-
-(defun org-table-transpose-table-at-point ()
- "Transpose Org table at point and eliminate hlines.
-So a table like
-
-| 1 | 2 | 4 | 5 |
-|---+---+---+---|
-| a | b | c | d |
-| e | f | g | h |
-
-will be transposed as
-
-| 1 | a | e |
-| 2 | b | f |
-| 4 | c | g |
-| 5 | d | h |
-
-Note that horizontal lines disappear."
- (interactive)
- (let* ((table (delete 'hline (org-table-to-lisp)))
- (dline_old (org-table-current-line))
- (col_old (org-table-current-column))
- (contents (mapcar (lambda (_)
- (let ((tp table))
- (mapcar
- (lambda (_)
- (prog1
- (pop (car tp))
- (setq tp (cdr tp))))
- table)))
- (car table))))
- (goto-char (org-table-begin))
- (re-search-forward "|")
- (backward-char)
- (delete-region (point) (org-table-end))
- (insert (mapconcat
- (lambda(x)
- (concat "| " (mapconcat 'identity x " | " ) " |\n" ))
- contents ""))
- (org-table-goto-line col_old)
- (org-table-goto-column dline_old))
- (org-table-align))
-
-;;;###autoload
-(defun org-table-wrap-region (arg)
- "Wrap several fields in a column like a paragraph.
-This is useful if you'd like to spread the contents of a field over several
-lines, in order to keep the table compact.
-
-If there is an active region, and both point and mark are in the same column,
-the text in the column is wrapped to minimum width for the given number of
-lines. Generally, this makes the table more compact. A prefix ARG may be
-used to change the number of desired lines. For example, \
-`C-2 \\[org-table-wrap-region]'
-formats the selected text to two lines. If the region was longer than two
-lines, the remaining lines remain empty. A negative prefix argument reduces
-the current number of lines by that amount. The wrapped text is pasted back
-into the table. If you formatted it to more lines than it was before, fields
-further down in the table get overwritten - so you might need to make space in
-the table first.
-
-If there is no region, the current field is split at the cursor position and
-the text fragment to the right of the cursor is prepended to the field one
-line down.
-
-If there is no region, but you specify a prefix ARG, the current field gets
-blank, and the content is appended to the field above."
- (interactive "P")
- (org-table-check-inside-data-field)
- (if (org-region-active-p)
- ;; There is a region: fill as a paragraph.
- (let ((start (region-beginning)))
- (org-table-cut-region (region-beginning) (region-end))
- (when (> (length (car org-table-clip)) 1)
- (user-error "Region must be limited to single column"))
- (let ((nlines (cond ((not arg) (length org-table-clip))
- ((< arg 1) (+ (length org-table-clip) arg))
- (t arg))))
- (setq org-table-clip
- (mapcar #'list
- (org-wrap (mapconcat #'car org-table-clip " ")
- nil
- nlines))))
- (goto-char start)
- (org-table-paste-rectangle))
- ;; No region, split the current field at point.
- (unless (org-get-alist-option org-M-RET-may-split-line 'table)
- (skip-chars-forward "^\r\n|"))
- (cond
- (arg ; Combine with field above.
- (let ((s (org-table-blank-field))
- (col (org-table-current-column)))
- (forward-line -1)
- (while (org-at-table-hline-p) (forward-line -1))
- (org-table-goto-column col)
- (skip-chars-forward "^|")
- (skip-chars-backward " ")
- (insert " " (org-trim s))
- (org-table-align)))
- ((looking-at "\\([^|]+\\)+|") ; Split field.
- (let ((s (match-string 1)))
- (replace-match " |")
- (goto-char (match-beginning 0))
- (org-table-next-row)
- (insert (org-trim s) " ")
- (org-table-align)))
- (t (org-table-next-row)))))
-
-(defvar org-field-marker nil)
-
-;;;###autoload
-(defun org-table-edit-field (arg)
- "Edit table field in a different window.
-This is mainly useful for fields that contain hidden parts.
-
-When called with a `\\[universal-argument]' prefix, just make the full field
-visible so that it can be edited in place.
-
-When called with a `\\[universal-argument] \\[universal-argument]' prefix, \
-toggle `org-table-follow-field-mode'."
- (interactive "P")
- (unless (org-at-table-p) (user-error "Not at a table"))
- (cond
- ((equal arg '(16))
- (org-table-follow-field-mode (if org-table-follow-field-mode -1 1)))
- (arg
- (let ((b (save-excursion (skip-chars-backward "^|") (point)))
- (e (save-excursion (skip-chars-forward "^|\r\n") (point))))
- (remove-text-properties b e '(org-cwidth t invisible t
- display t intangible t))
- (if (and (boundp 'font-lock-mode) font-lock-mode)
- (font-lock-fontify-block))))
- (t
- (let ((pos (point-marker))
- (coord
- (if (eq org-table-use-standard-references t)
- (concat (org-number-to-letters (org-table-current-column))
- (int-to-string (org-table-current-dline)))
- (concat "@" (int-to-string (org-table-current-dline))
- "$" (int-to-string (org-table-current-column)))))
- (field (org-table-get-field))
- (cw (current-window-configuration))
- p)
- (goto-char pos)
- (org-switch-to-buffer-other-window "*Org Table Edit Field*")
- (when (and (local-variable-p 'org-field-marker)
- (markerp org-field-marker))
- (move-marker org-field-marker nil))
- (erase-buffer)
- (insert "#\n# Edit field " coord " and finish with C-c C-c\n#\n")
- (let ((org-inhibit-startup t)) (org-mode))
- (auto-fill-mode -1)
- (setq truncate-lines nil)
- (setq word-wrap t)
- (goto-char (setq p (point-max)))
- (insert (org-trim field))
- (remove-text-properties p (point-max)
- '(invisible t org-cwidth t display t
- intangible t))
- (goto-char p)
- (setq-local org-finish-function 'org-table-finish-edit-field)
- (setq-local org-window-configuration cw)
- (setq-local org-field-marker pos)
- (message "Edit and finish with C-c C-c")))))
-
-(defun org-table-finish-edit-field ()
- "Finish editing a table data field.
-Remove all newline characters, insert the result into the table, realign
-the table and kill the editing buffer."
- (let ((pos org-field-marker)
- (cw org-window-configuration)
- (cb (current-buffer))
- text)
- (goto-char (point-min))
- (while (re-search-forward "^#.*\n?" nil t) (replace-match ""))
- (while (re-search-forward "\\([ \t]*\n[ \t]*\\)+" nil t)
- (replace-match " "))
- (setq text (org-trim (buffer-string)))
- (set-window-configuration cw)
- (kill-buffer cb)
- (select-window (get-buffer-window (marker-buffer pos)))
- (goto-char pos)
- (move-marker pos nil)
- (org-table-check-inside-data-field)
- (org-table-get-field nil text)
- (org-table-align)
- (message "New field value inserted")))
-
-(define-minor-mode org-table-follow-field-mode
- "Minor mode to make the table field editor window follow the cursor.
-When this mode is active, the field editor window will always show the
-current field. The mode exits automatically when the cursor leaves the
-table (but see `org-table-exit-follow-field-mode-when-leaving-table')."
- nil " TblFollow" nil
- (if org-table-follow-field-mode
- (add-hook 'post-command-hook 'org-table-follow-fields-with-editor
- 'append 'local)
- (remove-hook 'post-command-hook 'org-table-follow-fields-with-editor 'local)
- (let* ((buf (get-buffer "*Org Table Edit Field*"))
- (win (and buf (get-buffer-window buf))))
- (when win (delete-window win))
- (when buf
- (with-current-buffer buf
- (move-marker org-field-marker nil))
- (kill-buffer buf)))))
-
-(defun org-table-follow-fields-with-editor ()
- (if (and org-table-exit-follow-field-mode-when-leaving-table
- (not (org-at-table-p)))
- ;; We have left the table, exit the follow mode
- (org-table-follow-field-mode -1)
- (when (org-table-check-inside-data-field 'noerror)
- (let ((win (selected-window)))
- (org-table-edit-field nil)
- (org-fit-window-to-buffer)
- (select-window win)))))
-
-(defvar org-timecnt) ; dynamically scoped parameter
-
-;;;###autoload
-(defun org-table-sum (&optional beg end nlast)
- "Sum numbers in region of current table column.
-The result will be displayed in the echo area, and will be available
-as kill to be inserted with \\[yank].
-
-If there is an active region, it is interpreted as a rectangle and all
-numbers in that rectangle will be summed. If there is no active
-region and point is located in a table column, sum all numbers in that
-column.
-
-If at least one number looks like a time HH:MM or HH:MM:SS, all other
-numbers are assumed to be times as well (in decimal hours) and the
-numbers are added as such.
-
-If NLAST is a number, only the NLAST fields will actually be summed."
- (interactive)
- (save-excursion
- (let (col (org-timecnt 0) diff h m s org-table-clip)
- (cond
- ((and beg end)) ; beg and end given explicitly
- ((org-region-active-p)
- (setq beg (region-beginning) end (region-end)))
- (t
- (setq col (org-table-current-column))
- (goto-char (org-table-begin))
- (unless (re-search-forward "^[ \t]*|[^-]" nil t)
- (user-error "No table data"))
- (org-table-goto-column col)
- (setq beg (point))
- (goto-char (org-table-end))
- (unless (re-search-backward "^[ \t]*|[^-]" nil t)
- (user-error "No table data"))
- (org-table-goto-column col)
- (setq end (point))))
- (let* ((items (apply 'append (org-table-copy-region beg end)))
- (items1 (cond ((not nlast) items)
- ((>= nlast (length items)) items)
- (t (setq items (reverse items))
- (setcdr (nthcdr (1- nlast) items) nil)
- (nreverse items))))
- (numbers (delq nil (mapcar 'org-table-get-number-for-summing
- items1)))
- (res (apply '+ numbers))
- (sres (if (= org-timecnt 0)
- (number-to-string res)
- (setq diff (* 3600 res)
- h (floor (/ diff 3600)) diff (mod diff 3600)
- m (floor (/ diff 60)) diff (mod diff 60)
- s diff)
- (format "%.0f:%02.0f:%02.0f" h m s))))
- (kill-new sres)
- (when (called-interactively-p 'interactive)
- (message "%s" (substitute-command-keys
- (format "Sum of %d items: %-20s \
-\(\\[yank] will insert result into buffer)" (length numbers) sres))))
- sres))))
-
-(defun org-table-get-number-for-summing (s)
- (let (n)
- (if (string-match "^ *|? *" s)
- (setq s (replace-match "" nil nil s)))
- (if (string-match " *|? *$" s)
- (setq s (replace-match "" nil nil s)))
- (setq n (string-to-number s))
- (cond
- ((and (string-match "0" s)
- (string-match "\\`[-+ \t0.edED]+\\'" s)) 0)
- ((string-match "\\`[ \t]+\\'" s) nil)
- ((string-match "\\`\\([0-9]+\\):\\([0-9]+\\)\\(:\\([0-9]+\\)\\)?\\'" s)
- (let ((h (string-to-number (or (match-string 1 s) "0")))
- (m (string-to-number (or (match-string 2 s) "0")))
- (s (string-to-number (or (match-string 4 s) "0"))))
- (if (boundp 'org-timecnt) (setq org-timecnt (1+ org-timecnt)))
- (* 1.0 (+ h (/ m 60.0) (/ s 3600.0)))))
- ((equal n 0) nil)
- (t n))))
-
-(defun org-table-current-field-formula (&optional key noerror)
- "Return the formula active for the current field.
-
-Assumes that table is already analyzed. If KEY is given, return
-the key to this formula. Otherwise return the formula preceded
-with \"=\" or \":=\"."
- (let* ((line (count-lines org-table-current-begin-pos
- (line-beginning-position)))
- (row (org-table-line-to-dline line)))
- (cond
- (row
- (let* ((col (org-table-current-column))
- (name (car (rassoc (list line col)
- org-table-named-field-locations)))
- (scol (format "$%d" col))
- (ref (format "@%d$%d" (org-table-current-dline) col))
- (stored-list (org-table-get-stored-formulas noerror))
- (ass (or (assoc name stored-list)
- (assoc ref stored-list)
- (assoc scol stored-list))))
- (cond (key (car ass))
- (ass (concat (if (string-match-p "^[0-9]+$" (car ass)) "=" ":=")
- (cdr ass))))))
- (noerror nil)
- (t (error "No formula active for the current field")))))
-
-(defun org-table-get-formula (&optional equation named)
- "Read a formula from the minibuffer, offer stored formula as default.
-When NAMED is non-nil, look for a named equation."
- (let* ((stored-list (org-table-get-stored-formulas))
- (name (car (rassoc (list (count-lines org-table-current-begin-pos
- (line-beginning-position))
- (org-table-current-column))
- org-table-named-field-locations)))
- (ref (format "@%d$%d"
- (org-table-current-dline)
- (org-table-current-column)))
- (scol (cond
- ((not named) (format "$%d" (org-table-current-column)))
- ((and name (not (string-match "\\`LR[0-9]+\\'" name))) name)
- (t ref)))
- (name (or name ref))
- (org-table-may-need-update nil)
- (stored (cdr (assoc scol stored-list)))
- (eq (cond
- ((and stored equation (string-match-p "^ *=? *$" equation))
- stored)
- ((stringp equation)
- equation)
- (t (org-table-formula-from-user
- (read-string
- (org-table-formula-to-user
- (format "%s formula %s="
- (if named "Field" "Column")
- scol))
- (if stored (org-table-formula-to-user stored) "")
- 'org-table-formula-history
- )))))
- mustsave)
- (when (not (string-match "\\S-" eq))
- ;; remove formula
- (setq stored-list (delq (assoc scol stored-list) stored-list))
- (org-table-store-formulas stored-list)
- (user-error "Formula removed"))
- (if (string-match "^ *=?" eq) (setq eq (replace-match "" t t eq)))
- (if (string-match " *$" eq) (setq eq (replace-match "" t t eq)))
- (if (and name (not named))
- ;; We set the column equation, delete the named one.
- (setq stored-list (delq (assoc name stored-list) stored-list)
- mustsave t))
- (if stored
- (setcdr (assoc scol stored-list) eq)
- (setq stored-list (cons (cons scol eq) stored-list)))
- (if (or mustsave (not (equal stored eq)))
- (org-table-store-formulas stored-list))
- eq))
-
-(defun org-table-store-formulas (alist &optional location)
- "Store the list of formulas below the current table.
-If optional argument LOCATION is a buffer position, insert it at
-LOCATION instead."
- (save-excursion
- (if location
- (progn (goto-char location) (beginning-of-line))
- (goto-char (org-table-end)))
- (let ((case-fold-search t))
- (if (looking-at "\\([ \t]*\n\\)*[ \t]*\\(#\\+TBLFM:\\)\\(.*\n?\\)")
- (progn
- ;; Don't overwrite TBLFM, we might use text properties to
- ;; store stuff.
- (goto-char (match-beginning 3))
- (delete-region (match-beginning 3) (match-end 0)))
- (org-indent-line)
- (insert (or (match-string 2) "#+TBLFM:")))
- (insert " "
- (mapconcat (lambda (x) (concat (car x) "=" (cdr x)))
- (sort alist #'org-table-formula-less-p)
- "::")
- "\n"))))
-
-(defsubst org-table-formula-make-cmp-string (a)
- (when (string-match "\\`$[<>]" a)
- (let ((arrow (string-to-char (substring a 1))))
- ;; Fake a high number to make sure this is sorted at the end.
- (setq a (org-table-formula-handle-first/last-rc a))
- (setq a (format "$%d" (+ 10000
- (if (= arrow ?<) -1000 0)
- (string-to-number (substring a 1)))))))
- (when (string-match
- "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?"
- a)
- (concat
- (if (match-end 2)
- (format "@%05d" (string-to-number (match-string 2 a))) "")
- (if (match-end 4)
- (format "$%05d" (string-to-number (match-string 4 a))) "")
- (if (match-end 5)
- (concat "@@" (match-string 5 a))))))
-
-(defun org-table-formula-less-p (a b)
- "Compare two formulas for sorting."
- (let ((as (org-table-formula-make-cmp-string (car a)))
- (bs (org-table-formula-make-cmp-string (car b))))
- (and as bs (string< as bs))))
-
-;;;###autoload
-(defun org-table-get-stored-formulas (&optional noerror location)
- "Return an alist with the stored formulas directly after current table.
-By default, only return active formulas, i.e., formulas located
-on the first line after the table. However, if optional argument
-LOCATION is a buffer position, consider the formulas there."
- (save-excursion
- (if location
- (progn (goto-char location) (beginning-of-line))
- (goto-char (org-table-end)))
- (let ((case-fold-search t))
- (when (looking-at "\\([ \t]*\n\\)*[ \t]*#\\+TBLFM: *\\(.*\\)")
- (let ((strings (org-split-string (match-string-no-properties 2)
- " *:: *"))
- eq-alist seen)
- (dolist (string strings (nreverse eq-alist))
- (when (string-match "\\`\\(@[-+I<>0-9.$@]+\\|\\$\\([_a-zA-Z0-9]+\\|\
-[<>]+\\)\\) *= *\\(.*[^ \t]\\)"
- string)
- (let ((lhs
- (let ((m (match-string 1 string)))
- (cond
- ((not (match-end 2)) m)
- ;; Is it a column reference?
- ((string-match-p "\\`$\\([0-9]+\\|[<>]+\\)\\'" m) m)
- ;; Since named columns are not possible in
- ;; LHS, assume this is a named field.
- (t (match-string 2 string)))))
- (rhs (match-string 3 string)))
- (push (cons lhs rhs) eq-alist)
- (cond
- ((not (member lhs seen)) (push lhs seen))
- (noerror
- (message
- "Double definition `%s=' in TBLFM line, please fix by hand"
- lhs)
- (ding)
- (sit-for 2))
- (t
- (user-error
- "Double definition `%s=' in TBLFM line, please fix by hand"
- lhs)))))))))))
-
-(defun org-table-fix-formulas (key replace &optional limit delta remove)
- "Modify the equations after the table structure has been edited.
-KEY is \"@\" or \"$\". REPLACE is an alist of numbers to replace.
-For all numbers larger than LIMIT, shift them by DELTA."
- (save-excursion
- (goto-char (org-table-end))
- (while (let ((case-fold-search t)) (looking-at "[ \t]*#\\+tblfm:"))
- (let ((msg "The formulas in #+TBLFM have been updated")
- (re (concat key "\\([0-9]+\\)"))
- (re2
- (when remove
- (if (or (equal key "$") (equal key "$LR"))
- (format "\\(@[0-9]+\\)?%s%d=.*?\\(::\\|$\\)"
- (regexp-quote key) remove)
- (format "@%d\\$[0-9]+=.*?\\(::\\|$\\)" remove))))
- s n a)
- (when remove
- (while (re-search-forward re2 (point-at-eol) t)
- (unless (save-match-data (org-in-regexp "remote([^)]+?)"))
- (if (equal (char-before (match-beginning 0)) ?.)
- (user-error
- "Change makes TBLFM term %s invalid, use undo to recover"
- (match-string 0))
- (replace-match "")))))
- (while (re-search-forward re (point-at-eol) t)
- (unless (save-match-data (org-in-regexp "remote([^)]+?)"))
- (setq s (match-string 1) n (string-to-number s))
- (cond
- ((setq a (assoc s replace))
- (replace-match (concat key (cdr a)) t t)
- (message msg))
- ((and limit (> n limit))
- (replace-match (concat key (int-to-string (+ n delta))) t t)
- (message msg))))))
- (forward-line))))
-
-;;;###autoload
-(defun org-table-maybe-eval-formula ()
- "Check if the current field starts with \"=\" or \":=\".
-If yes, store the formula and apply it."
- ;; We already know we are in a table. Get field will only return a formula
- ;; when appropriate. It might return a separator line, but no problem.
- (when org-table-formula-evaluate-inline
- (let* ((field (org-trim (or (org-table-get-field) "")))
- named eq)
- (when (string-match "^:?=\\(.*[^=]\\)$" field)
- (setq named (equal (string-to-char field) ?:)
- eq (match-string 1 field))
- (org-table-eval-formula (and named '(4))
- (org-table-formula-from-user eq))))))
-
-(defvar org-recalc-commands nil
- "List of commands triggering the recalculation of a line.
-Will be filled automatically during use.")
-
-(defvar org-recalc-marks
- '((" " . "Unmarked: no special line, no automatic recalculation")
- ("#" . "Automatically recalculate this line upon TAB, RET, and C-c C-c in the line")
- ("*" . "Recalculate only when entire table is recalculated with `C-u C-c *'")
- ("!" . "Column name definition line. Reference in formula as $name.")
- ("$" . "Parameter definition line name=value. Reference in formula as $name.")
- ("_" . "Names for values in row below this one.")
- ("^" . "Names for values in row above this one.")))
-
-;;;###autoload
-(defun org-table-rotate-recalc-marks (&optional newchar)
- "Rotate the recalculation mark in the first column.
-If in any row, the first field is not consistent with a mark,
-insert a new column for the markers.
-When there is an active region, change all the lines in the region,
-after prompting for the marking character.
-After each change, a message will be displayed indicating the meaning
-of the new mark."
- (interactive)
- (unless (org-at-table-p) (user-error "Not at a table"))
- (let* ((region (org-region-active-p))
- (l1 (and region
- (save-excursion (goto-char (region-beginning))
- (copy-marker (line-beginning-position)))))
- (l2 (and region
- (save-excursion (goto-char (region-end))
- (copy-marker (line-beginning-position)))))
- (l (copy-marker (line-beginning-position)))
- (col (org-table-current-column))
- (newchar (if region
- (char-to-string
- (read-char-exclusive
- "Change region to what mark? Type # * ! $ or SPC: "))
- newchar))
- (no-special-column
- (save-excursion
- (goto-char (org-table-begin))
- (re-search-forward
- "^[ \t]*|[^-|][^|]*[^#!$*_^| \t][^|]*|" (org-table-end) t))))
- (when (and newchar (not (assoc newchar org-recalc-marks)))
- (user-error "Invalid character `%s' in `org-table-rotate-recalc-marks'"
- newchar))
- (when l1 (goto-char l1))
- (save-excursion
- (beginning-of-line)
- (unless (looking-at org-table-dataline-regexp)
- (user-error "Not at a table data line")))
- (when no-special-column
- (org-table-goto-column 1)
- (org-table-insert-column))
- (let ((previous-line-end (line-end-position))
- (newchar
- (save-excursion
- (beginning-of-line)
- (cond ((not (looking-at "^[ \t]*| *\\([#!$*^_ ]\\) *|")) "#")
- (newchar)
- (t (cadr (member (match-string 1)
- (append (mapcar #'car org-recalc-marks)
- '(" ")))))))))
- ;; Rotate mark in first row.
- (org-table-get-field 1 (format " %s " newchar))
- ;; Rotate marks in additional rows if a region is active.
- (when region
- (save-excursion
- (forward-line)
- (while (<= (point) l2)
- (when (looking-at org-table-dataline-regexp)
- (org-table-get-field 1 (format " %s " newchar)))
- (forward-line))))
- ;; Only align if rotation actually changed lines' length.
- (when (/= previous-line-end (line-end-position)) (org-table-align)))
- (goto-char l)
- (org-table-goto-column (if no-special-column (1+ col) col))
- (when l1 (set-marker l1 nil))
- (when l2 (set-marker l2 nil))
- (set-marker l nil)
- (when (called-interactively-p 'interactive)
- (message "%s" (cdr (assoc newchar org-recalc-marks))))))
-
-;;;###autoload
-(defun org-table-analyze ()
- "Analyze table at point and store results.
-
-This function sets up the following dynamically scoped variables:
-
- `org-table-column-name-regexp',
- `org-table-column-names',
- `org-table-current-begin-pos',
- `org-table-current-line-types',
- `org-table-current-ncol',
- `org-table-dlines',
- `org-table-hlines',
- `org-table-local-parameters',
- `org-table-named-field-locations'."
- (let ((beg (org-table-begin))
- (end (org-table-end)))
- (save-excursion
- (goto-char beg)
- ;; Extract column names.
- (setq org-table-column-names nil)
- (when (save-excursion
- (re-search-forward "^[ \t]*| *! *\\(|.*\\)" end t))
- (let ((c 1))
- (dolist (name (org-split-string (match-string 1) " *| *"))
- (cl-incf c)
- (when (string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" name)
- (push (cons name (int-to-string c)) org-table-column-names)))))
- (setq org-table-column-names (nreverse org-table-column-names))
- (setq org-table-column-name-regexp
- (format "\\$\\(%s\\)\\>"
- (regexp-opt (mapcar #'car org-table-column-names) t)))
- ;; Extract local parameters.
- (setq org-table-local-parameters nil)
- (save-excursion
- (while (re-search-forward "^[ \t]*| *\\$ *\\(|.*\\)" end t)
- (dolist (field (org-split-string (match-string 1) " *| *"))
- (when (string-match
- "\\`\\([a-zA-Z][_a-zA-Z0-9]*\\|%\\) *= *\\(.*\\)" field)
- (push (cons (match-string 1 field) (match-string 2 field))
- org-table-local-parameters)))))
- ;; Update named fields locations. We minimize `count-lines'
- ;; processing by storing last known number of lines in LAST.
- (setq org-table-named-field-locations nil)
- (save-excursion
- (let ((last (cons (point) 0)))
- (while (re-search-forward "^[ \t]*| *\\([_^]\\) *\\(|.*\\)" end t)
- (let ((c (match-string 1))
- (fields (org-split-string (match-string 2) " *| *")))
- (save-excursion
- (forward-line (if (equal c "_") 1 -1))
- (let ((fields1
- (and (looking-at "^[ \t]*|[^|]*\\(|.*\\)")
- (org-split-string (match-string 1) " *| *")))
- (line (cl-incf (cdr last) (count-lines (car last) (point))))
- (col 1))
- (setcar last (point)) ; Update last known position.
- (while (and fields fields1)
- (let ((field (pop fields))
- (v (pop fields1)))
- (cl-incf col)
- (when (and (stringp field)
- (stringp v)
- (string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'"
- field))
- (push (cons field v) org-table-local-parameters)
- (push (list field line col)
- org-table-named-field-locations))))))))))
- ;; Re-use existing markers when possible.
- (if (markerp org-table-current-begin-pos)
- (move-marker org-table-current-begin-pos (point))
- (setq org-table-current-begin-pos (point-marker)))
- ;; Analyze the line types.
- (let ((l 0) hlines dlines types)
- (while (looking-at "[ \t]*|\\(-\\)?")
- (push (if (match-end 1) 'hline 'dline) types)
- (if (match-end 1) (push l hlines) (push l dlines))
- (forward-line)
- (cl-incf l))
- (push 'hline types) ; Add an imaginary extra hline to the end.
- (setq org-table-current-line-types (apply #'vector (nreverse types)))
- (setq org-table-dlines (apply #'vector (cons nil (nreverse dlines))))
- (setq org-table-hlines (apply #'vector (cons nil (nreverse hlines)))))
- ;; Get the number of columns from the first data line in table.
- (goto-char beg)
- (forward-line (aref org-table-dlines 1))
- (let* ((fields
- (org-split-string
- (buffer-substring (line-beginning-position) (line-end-position))
- "[ \t]*|[ \t]*"))
- (nfields (length fields))
- al al2)
- (setq org-table-current-ncol nfields)
- (let ((last-dline
- (aref org-table-dlines (1- (length org-table-dlines)))))
- (dotimes (i nfields)
- (let ((column (1+ i)))
- (push (list (format "LR%d" column) last-dline column) al)
- (push (cons (format "LR%d" column) (nth i fields)) al2))))
- (setq org-table-named-field-locations
- (append org-table-named-field-locations al))
- (setq org-table-local-parameters
- (append org-table-local-parameters al2))))))
-
-(defun org-table-goto-field (ref &optional create-column-p)
- "Move point to a specific field in the current table.
-
-REF is either the name of a field its absolute reference, as
-a string. No column is created unless CREATE-COLUMN-P is
-non-nil. If it is a function, it is called with the column
-number as its argument as is used as a predicate to know if the
-column can be created.
-
-This function assumes the table is already analyzed (i.e., using
-`org-table-analyze')."
- (let* ((coordinates
- (cond
- ((cdr (assoc ref org-table-named-field-locations)))
- ((string-match "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" ref)
- (list (condition-case nil
- (aref org-table-dlines
- (string-to-number (match-string 1 ref)))
- (error (user-error "Invalid row number in %s" ref)))
- (string-to-number (match-string 2 ref))))
- (t (user-error "Unknown field: %s" ref))))
- (line (car coordinates))
- (column (nth 1 coordinates))
- (create-new-column (if (functionp create-column-p)
- (funcall create-column-p column)
- create-column-p)))
- (when coordinates
- (goto-char org-table-current-begin-pos)
- (forward-line line)
- (org-table-goto-column column nil create-new-column))))
-
-;;;###autoload
-(defun org-table-maybe-recalculate-line ()
- "Recompute the current line if marked for it, and if we haven't just done it."
- (interactive)
- (and org-table-allow-automatic-line-recalculation
- (not (and (memq last-command org-recalc-commands)
- (eq org-last-recalc-line (line-beginning-position))))
- (save-excursion (beginning-of-line 1)
- (looking-at org-table-auto-recalculate-regexp))
- (org-table-recalculate) t))
-
-(defvar org-tbl-calc-modes) ;; Dynamically bound in `org-table-eval-formula'
-(defsubst org-set-calc-mode (var &optional value)
- (if (stringp var)
- (setq var (assoc var '(("D" calc-angle-mode deg)
- ("R" calc-angle-mode rad)
- ("F" calc-prefer-frac t)
- ("S" calc-symbolic-mode t)))
- value (nth 2 var) var (nth 1 var)))
- (if (memq var org-tbl-calc-modes)
- (setcar (cdr (memq var org-tbl-calc-modes)) value)
- (cons var (cons value org-tbl-calc-modes)))
- org-tbl-calc-modes)
-
-;;;###autoload
-(defun org-table-eval-formula (&optional arg equation
- suppress-align suppress-const
- suppress-store suppress-analysis)
- "Replace the table field value at the cursor by the result of a calculation.
-
-In a table, this command replaces the value in the current field with the
-result of a formula. It also installs the formula as the \"current\" column
-formula, by storing it in a special line below the table. When called
-with a `\\[universal-argument]' prefix the formula is installed as a \
-field formula.
-
-When called with a `\\[universal-argument] \\[universal-argument]' prefix, \
-insert the active equation for the field
-back into the current field, so that it can be edited there. This is \
-useful
-in order to use \\<org-table-fedit-map>`\\[org-table-show-reference]' to \
-check the referenced fields.
-
-When called, the command first prompts for a formula, which is read in
-the minibuffer. Previously entered formulas are available through the
-history list, and the last used formula is offered as a default.
-These stored formulas are adapted correctly when moving, inserting, or
-deleting columns with the corresponding commands.
-
-The formula can be any algebraic expression understood by the Calc package.
-For details, see the Org mode manual.
-
-This function can also be called from Lisp programs and offers
-additional arguments: EQUATION can be the formula to apply. If this
-argument is given, the user will not be prompted.
-
-SUPPRESS-ALIGN is used to speed-up recursive calls by by-passing
-unnecessary aligns.
-
-SUPPRESS-CONST suppresses the interpretation of constants in the
-formula, assuming that this has been done already outside the
-function.
-
-SUPPRESS-STORE means the formula should not be stored, either
-because it is already stored, or because it is a modified
-equation that should not overwrite the stored one.
-
-SUPPRESS-ANALYSIS prevents analyzing the table and checking
-location of point."
- (interactive "P")
- (unless suppress-analysis
- (org-table-check-inside-data-field)
- (org-table-analyze))
- (if (equal arg '(16))
- (let ((eq (org-table-current-field-formula)))
- (org-table-get-field nil eq)
- (org-table-align)
- (setq org-table-may-need-update t))
- (let* (fields
- (ndown (if (integerp arg) arg 1))
- (org-table-automatic-realign nil)
- (case-fold-search nil)
- (down (> ndown 1))
- (formula (if (and equation suppress-store)
- equation
- (org-table-get-formula equation (equal arg '(4)))))
- (n0 (org-table-current-column))
- (org-tbl-calc-modes (copy-sequence org-calc-default-modes))
- (numbers nil) ; was a variable, now fixed default
- (keep-empty nil)
- n form form0 formrpl formrg bw fmt x ev orig c lispp literal
- duration duration-output-format)
- ;; Parse the format string. Since we have a lot of modes, this is
- ;; a lot of work. However, I think calc still uses most of the time.
- (if (string-match ";" formula)
- (let ((tmp (org-split-string formula ";")))
- (setq formula (car tmp)
- fmt (concat (cdr (assoc "%" org-table-local-parameters))
- (nth 1 tmp)))
- (while (string-match "\\([pnfse]\\)\\(-?[0-9]+\\)" fmt)
- (setq c (string-to-char (match-string 1 fmt))
- n (string-to-number (match-string 2 fmt)))
- (if (= c ?p)
- (setq org-tbl-calc-modes (org-set-calc-mode 'calc-internal-prec n))
- (setq org-tbl-calc-modes
- (org-set-calc-mode
- 'calc-float-format
- (list (cdr (assoc c '((?n . float) (?f . fix)
- (?s . sci) (?e . eng))))
- n))))
- (setq fmt (replace-match "" t t fmt)))
- (if (string-match "[tTU]" fmt)
- (let ((ff (match-string 0 fmt)))
- (setq duration t numbers t
- duration-output-format
- (cond ((equal ff "T") nil)
- ((equal ff "t") org-table-duration-custom-format)
- ((equal ff "U") 'hh:mm))
- fmt (replace-match "" t t fmt))))
- (if (string-match "N" fmt)
- (setq numbers t
- fmt (replace-match "" t t fmt)))
- (if (string-match "L" fmt)
- (setq literal t
- fmt (replace-match "" t t fmt)))
- (if (string-match "E" fmt)
- (setq keep-empty t
- fmt (replace-match "" t t fmt)))
- (while (string-match "[DRFS]" fmt)
- (setq org-tbl-calc-modes (org-set-calc-mode (match-string 0 fmt)))
- (setq fmt (replace-match "" t t fmt)))
- (unless (string-match "\\S-" fmt)
- (setq fmt nil))))
- (when (and (not suppress-const) org-table-formula-use-constants)
- (setq formula (org-table-formula-substitute-names formula)))
- (setq orig (or (get-text-property 1 :orig-formula formula) "?"))
- (setq formula (org-table-formula-handle-first/last-rc formula))
- (while (> ndown 0)
- (setq fields (org-split-string
- (org-trim
- (buffer-substring-no-properties
- (line-beginning-position) (line-end-position)))
- " *| *"))
- ;; replace fields with duration values if relevant
- (if duration
- (setq fields
- (mapcar (lambda (x) (org-table-time-string-to-seconds x))
- fields)))
- (if (eq numbers t)
- (setq fields (mapcar
- (lambda (x)
- (if (string-match "\\S-" x)
- (number-to-string (string-to-number x))
- x))
- fields)))
- (setq ndown (1- ndown))
- (setq form (copy-sequence formula)
- lispp (and (> (length form) 2) (equal (substring form 0 2) "'(")))
- (if (and lispp literal) (setq lispp 'literal))
-
- ;; Insert row and column number of formula result field
- (while (string-match "[@$]#" form)
- (setq form
- (replace-match
- (format "%d"
- (save-match-data
- (if (equal (substring form (match-beginning 0)
- (1+ (match-beginning 0)))
- "@")
- (org-table-current-dline)
- (org-table-current-column))))
- t t form)))
-
- ;; Check for old vertical references
- (org-table--error-on-old-row-references form)
- ;; Insert remote references
- (setq form (org-table-remote-reference-indirection form))
- (while (string-match "\\<remote([ \t]*\\([^,)]+\\)[ \t]*,[ \t]*\\([^\n)]+\\))" form)
- (setq form
- (replace-match
- (save-match-data
- (org-table-make-reference
- (let ((rmtrng (org-table-get-remote-range
- (match-string 1 form) (match-string 2 form))))
- (if duration
- (if (listp rmtrng)
- (mapcar (lambda(x) (org-table-time-string-to-seconds x)) rmtrng)
- (org-table-time-string-to-seconds rmtrng))
- rmtrng))
- keep-empty numbers lispp))
- t t form)))
- ;; Insert complex ranges
- (while (and (string-match org-table-range-regexp form)
- (> (length (match-string 0 form)) 1))
- (setq formrg
- (save-match-data
- (org-table-get-range
- (match-string 0 form) org-table-current-begin-pos n0)))
- (setq formrpl
- (save-match-data
- (org-table-make-reference
- ;; possibly handle durations
- (if duration
- (if (listp formrg)
- (mapcar (lambda(x) (org-table-time-string-to-seconds x)) formrg)
- (org-table-time-string-to-seconds formrg))
- formrg)
- keep-empty numbers lispp)))
- (if (not (save-match-data
- (string-match (regexp-quote form) formrpl)))
- (setq form (replace-match formrpl t t form))
- (user-error "Spreadsheet error: invalid reference \"%s\"" form)))
- ;; Insert simple ranges, i.e. included in the current row.
- (while (string-match
- "\\$\\(\\([-+]\\)?[0-9]+\\)\\.\\.\\$\\(\\([-+]\\)?[0-9]+\\)"
- form)
- (setq form
- (replace-match
- (save-match-data
- (org-table-make-reference
- (cl-subseq fields
- (+ (if (match-end 2) n0 0)
- (string-to-number (match-string 1 form))
- -1)
- (+ (if (match-end 4) n0 0)
- (string-to-number (match-string 3 form))))
- keep-empty numbers lispp))
- t t form)))
- (setq form0 form)
- ;; Insert the references to fields in same row
- (while (string-match "\\$\\(\\([-+]\\)?[0-9]+\\)" form)
- (setq n (+ (string-to-number (match-string 1 form))
- (if (match-end 2) n0 0))
- x (nth (1- (if (= n 0) n0 (max n 1))) fields)
- formrpl (save-match-data
- (org-table-make-reference
- x keep-empty numbers lispp)))
- (when (or (not x)
- (save-match-data
- (string-match (regexp-quote formula) formrpl)))
- (user-error "Invalid field specifier \"%s\""
- (match-string 0 form)))
- (setq form (replace-match formrpl t t form)))
-
- (if lispp
- (setq ev (condition-case nil
- (eval (eval (read form)))
- (error "#ERROR"))
- ev (if (numberp ev) (number-to-string ev) ev)
- ev (if duration (org-table-time-seconds-to-string
- (string-to-number ev)
- duration-output-format) ev))
-
- ;; Use <...> time-stamps so that Calc can handle them.
- (setq form
- (replace-regexp-in-string org-ts-regexp-inactive "<\\1>" form))
- ;; Internationalize local time-stamps by setting locale to
- ;; "C".
- (setq form
- (replace-regexp-in-string
- org-ts-regexp
- (lambda (ts)
- (let ((system-time-locale "C"))
- (format-time-string
- (org-time-stamp-format
- (string-match-p "[0-9]\\{1,2\\}:[0-9]\\{2\\}" ts))
- (apply #'encode-time
- (save-match-data (org-parse-time-string ts))))))
- form t t))
-
- (setq ev (if (and duration (string-match "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" form))
- form
- (calc-eval (cons form org-tbl-calc-modes)
- (when (and (not keep-empty) numbers) 'num)))
- ev (if duration (org-table-time-seconds-to-string
- (if (string-match "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" ev)
- (string-to-number (org-table-time-string-to-seconds ev))
- (string-to-number ev))
- duration-output-format)
- ev)))
-
- (when org-table-formula-debug
- (with-output-to-temp-buffer "*Substitution History*"
- (princ (format "Substitution history of formula
-Orig: %s
-$xyz-> %s
-@r$c-> %s
-$1-> %s\n" orig formula form0 form))
- (if (consp ev)
- (princ (format " %s^\nError: %s"
- (make-string (car ev) ?\-) (nth 1 ev)))
- (princ (format "Result: %s\nFormat: %s\nFinal: %s"
- ev (or fmt "NONE")
- (if fmt (format fmt (string-to-number ev)) ev)))))
- (setq bw (get-buffer-window "*Substitution History*"))
- (org-fit-window-to-buffer bw)
- (unless (and (called-interactively-p 'any) (not ndown))
- (unless (let (inhibit-redisplay)
- (y-or-n-p "Debugging Formula. Continue to next? "))
- (org-table-align)
- (user-error "Abort"))
- (delete-window bw)
- (message "")))
- (when (consp ev) (setq fmt nil ev "#ERROR"))
- (org-table-justify-field-maybe
- (format org-table-formula-field-format
- (cond
- ((not (stringp ev)) ev)
- (fmt (format fmt (string-to-number ev)))
- ;; Replace any active time stamp in the result with
- ;; an inactive one. Dates in tables are likely
- ;; piece of regular data, not meant to appear in the
- ;; agenda.
- (t (replace-regexp-in-string org-ts-regexp "[\\1]" ev)))))
- (if (and down (> ndown 0) (looking-at ".*\n[ \t]*|[^-]"))
- (call-interactively 'org-return)
- (setq ndown 0)))
- (and down (org-table-maybe-recalculate-line))
- (or suppress-align (and org-table-may-need-update
- (org-table-align))))))
-
-(defun org-table-put-field-property (prop value)
- (save-excursion
- (put-text-property (progn (skip-chars-backward "^|") (point))
- (progn (skip-chars-forward "^|") (point))
- prop value)))
-
-(defun org-table-get-range (desc &optional tbeg col highlight corners-only)
- "Get a calc vector from a column, according to descriptor DESC.
-
-Optional arguments TBEG and COL can give the beginning of the table and
-the current column, to avoid unnecessary parsing.
-
-HIGHLIGHT means just highlight the range.
-
-When CORNERS-ONLY is set, only return the corners of the range as
-a list (line1 column1 line2 column2) where line1 and line2 are
-line numbers relative to beginning of table, or TBEG, and column1
-and column2 are table column numbers."
- (let* ((desc (if (string-match-p "\\`\\$[0-9]+\\.\\.\\$[0-9]+\\'" desc)
- (replace-regexp-in-string "\\$" "@0$" desc)
- desc))
- (col (or col (org-table-current-column)))
- (tbeg (or tbeg (org-table-begin)))
- (thisline (count-lines tbeg (line-beginning-position))))
- (unless (string-match org-table-range-regexp desc)
- (user-error "Invalid table range specifier `%s'" desc))
- (let ((rangep (match-end 3))
- (r1 (let ((r (and (match-end 1) (match-string 1 desc))))
- (or (save-match-data
- (and (org-string-nw-p r)
- (org-table--descriptor-line r thisline)))
- thisline)))
- (r2 (let ((r (and (match-end 4) (match-string 4 desc))))
- (or (save-match-data
- (and (org-string-nw-p r)
- (org-table--descriptor-line r thisline)))
- thisline)))
- (c1 (let ((c (and (match-end 2) (substring (match-string 2 desc) 1))))
- (if (or (not c) (= (string-to-number c) 0)) col
- (+ (string-to-number c)
- (if (memq (string-to-char c) '(?- ?+)) col 0)))))
- (c2 (let ((c (and (match-end 5) (substring (match-string 5 desc) 1))))
- (if (or (not c) (= (string-to-number c) 0)) col
- (+ (string-to-number c)
- (if (memq (string-to-char c) '(?- ?+)) col 0))))))
- (save-excursion
- (if (and (not corners-only)
- (or (not rangep) (and (= r1 r2) (= c1 c2))))
- ;; Just one field.
- (progn
- (forward-line (- r1 thisline))
- (while (not (looking-at org-table-dataline-regexp))
- (forward-line))
- (prog1 (org-trim (org-table-get-field c1))
- (when highlight (org-table-highlight-rectangle))))
- ;; A range, return a vector. First sort the numbers to get
- ;; a regular rectangle.
- (let ((first-row (min r1 r2))
- (last-row (max r1 r2))
- (first-column (min c1 c2))
- (last-column (max c1 c2)))
- (if corners-only (list first-row first-column last-row last-column)
- ;; Copy the range values into a list.
- (forward-line (- first-row thisline))
- (while (not (looking-at org-table-dataline-regexp))
- (forward-line)
- (cl-incf first-row))
- (org-table-goto-column first-column)
- (let ((beg (point)))
- (forward-line (- last-row first-row))
- (while (not (looking-at org-table-dataline-regexp))
- (forward-line -1))
- (org-table-goto-column last-column)
- (let ((end (point)))
- (when highlight
- (org-table-highlight-rectangle
- beg (progn (skip-chars-forward "^|\n") (point))))
- ;; Return string representation of calc vector.
- (mapcar #'org-trim
- (apply #'append
- (org-table-copy-region beg end))))))))))))
-
-(defun org-table--descriptor-line (desc cline)
- "Return relative line number corresponding to descriptor DESC.
-The cursor is currently in relative line number CLINE."
- (if (string-match "\\`[0-9]+\\'" desc)
- (aref org-table-dlines (string-to-number desc))
- (when (or (not (string-match
- "^\\(\\([-+]\\)?\\(I+\\)\\)?\\(\\([-+]\\)?\\([0-9]+\\)\\)?"
- ;; 1 2 3 4 5 6
- desc))
- (and (not (match-end 3)) (not (match-end 6)))
- (and (match-end 3) (match-end 6) (not (match-end 5))))
- (user-error "Invalid row descriptor `%s'" desc))
- (let* ((hn (and (match-end 3) (- (match-end 3) (match-beginning 3))))
- (hdir (match-string 2 desc))
- (odir (match-string 5 desc))
- (on (and (match-end 6) (string-to-number (match-string 6 desc))))
- (rel (and (match-end 6)
- (or (and (match-end 1) (not (match-end 3)))
- (match-end 5)))))
- (when (and hn (not hdir))
- (setq cline 0)
- (setq hdir "+")
- (when (eq (aref org-table-current-line-types 0) 'hline) (cl-decf hn)))
- (when (and (not hn) on (not odir)) (user-error "Should never happen"))
- (when hn
- (setq cline
- (org-table--row-type 'hline hn cline (equal hdir "-") nil desc)))
- (when on
- (setq cline
- (org-table--row-type 'dline on cline (equal odir "-") rel desc)))
- cline)))
-
-(defun org-table--row-type (type n i backwards relative desc)
- "Return relative line of Nth row with type TYPE.
-Search starts from relative line I. When BACKWARDS in non-nil,
-look before I. When RELATIVE is non-nil, the reference is
-relative. DESC is the original descriptor that started the
-search, as a string."
- (let ((l (length org-table-current-line-types)))
- (catch :exit
- (dotimes (_ n)
- (while (and (cl-incf i (if backwards -1 1))
- (>= i 0)
- (< i l)
- (not (eq (aref org-table-current-line-types i) type))
- ;; We are going to cross a hline. Check if this is
- ;; an authorized move.
- (cond
- ((not relative))
- ((not (eq (aref org-table-current-line-types i) 'hline)))
- ((eq org-table-relative-ref-may-cross-hline t))
- ((eq org-table-relative-ref-may-cross-hline 'error)
- (user-error "Row descriptor %s crosses hline" desc))
- (t (cl-decf i (if backwards -1 1)) ; Step back.
- (throw :exit nil)))))))
- (cond ((or (< i 0) (>= i l))
- (user-error "Row descriptor %s leads outside table" desc))
- ;; The last hline doesn't exist. Instead, point to last row
- ;; in table.
- ((= i (1- l)) (1- i))
- (t i))))
-
-(defun org-table--error-on-old-row-references (s)
- (when (string-match "&[-+0-9I]" s)
- (user-error "Formula contains old &row reference, please rewrite using @-syntax")))
-
-(defun org-table-make-reference (elements keep-empty numbers lispp)
- "Convert list ELEMENTS to something appropriate to insert into formula.
-KEEP-EMPTY indicated to keep empty fields, default is to skip them.
-NUMBERS indicates that everything should be converted to numbers.
-LISPP non-nil means to return something appropriate for a Lisp
-list, `literal' is for the format specifier L."
- ;; Calc nan (not a number) is used for the conversion of the empty
- ;; field to a reference for several reasons: (i) It is accepted in a
- ;; Calc formula (e. g. "" or "()" would result in a Calc error).
- ;; (ii) In a single field (not in range) it can be distinguished
- ;; from "(nan)" which is the reference made from a single field
- ;; containing "nan".
- (if (stringp elements)
- ;; field reference
- (if lispp
- (if (eq lispp 'literal)
- elements
- (if (and (eq elements "") (not keep-empty))
- ""
- (prin1-to-string
- (if numbers (string-to-number elements) elements))))
- (if (string-match "\\S-" elements)
- (progn
- (when numbers (setq elements (number-to-string
- (string-to-number elements))))
- (concat "(" elements ")"))
- (if (or (not keep-empty) numbers) "(0)" "nan")))
- ;; range reference
- (unless keep-empty
- (setq elements
- (delq nil
- (mapcar (lambda (x) (if (string-match "\\S-" x) x nil))
- elements))))
- (setq elements (or elements '())) ; if delq returns nil then we need '()
- (if lispp
- (mapconcat
- (lambda (x)
- (if (eq lispp 'literal)
- x
- (prin1-to-string (if numbers (string-to-number x) x))))
- elements " ")
- (concat "[" (mapconcat
- (lambda (x)
- (if (string-match "\\S-" x)
- (if numbers
- (number-to-string (string-to-number x))
- x)
- (if (or (not keep-empty) numbers) "0" "nan")))
- elements
- ",") "]"))))
-
-(defun org-table-message-once-per-second (t1 &rest args)
- "If there has been more than one second since T1, display message.
-ARGS are passed as arguments to the `message' function. Returns
-current time if a message is printed, otherwise returns T1. If
-T1 is nil, always messages."
- (let ((curtime (current-time)))
- (if (or (not t1) (< 0 (nth 1 (time-subtract curtime t1))))
- (progn (apply 'message args)
- curtime)
- t1)))
-
-;;;###autoload
-(defun org-table-recalculate (&optional all noalign)
- "Recalculate the current table line by applying all stored formulas.
-
-With prefix arg ALL, do this for all lines in the table.
-
-When called with a `\\[universal-argument] \\[universal-argument]' prefix, or \
-if ALL is the symbol `iterate',
-recompute the table until it no longer changes.
-
-If NOALIGN is not nil, do not re-align the table after the computations
-are done. This is typically used internally to save time, if it is
-known that the table will be realigned a little later anyway."
- (interactive "P")
- (unless (memq this-command org-recalc-commands)
- (push this-command org-recalc-commands))
- (unless (org-at-table-p) (user-error "Not at a table"))
- (if (or (eq all 'iterate) (equal all '(16)))
- (org-table-iterate)
- (org-table-analyze)
- (let* ((eqlist (sort (org-table-get-stored-formulas)
- (lambda (a b) (string< (car a) (car b)))))
- (inhibit-redisplay (not debug-on-error))
- (line-re org-table-dataline-regexp)
- (log-first-time (current-time))
- (log-last-time log-first-time)
- (cnt 0)
- beg end eqlcol eqlfield)
- ;; Insert constants in all formulas.
- (when eqlist
- (org-table-save-field
- ;; Expand equations, then split the equation list between
- ;; column formulas and field formulas.
- (dolist (eq eqlist)
- (let* ((rhs (org-table-formula-substitute-names
- (org-table-formula-handle-first/last-rc (cdr eq))))
- (old-lhs (car eq))
- (lhs
- (org-table-formula-handle-first/last-rc
- (cond
- ((string-match "\\`@-?I+" old-lhs)
- (user-error "Can't assign to hline relative reference"))
- ((string-match "\\`$[<>]" old-lhs)
- (let ((new (org-table-formula-handle-first/last-rc
- old-lhs)))
- (when (assoc new eqlist)
- (user-error "\"%s=\" formula tries to overwrite \
-existing formula for column %s"
- old-lhs
- new))
- new))
- (t old-lhs)))))
- (if (string-match-p "\\`\\$[0-9]+\\'" lhs)
- (push (cons lhs rhs) eqlcol)
- (push (cons lhs rhs) eqlfield))))
- (setq eqlcol (nreverse eqlcol))
- ;; Expand ranges in lhs of formulas
- (setq eqlfield (org-table-expand-lhs-ranges (nreverse eqlfield)))
- ;; Get the correct line range to process.
- (if all
- (progn
- (setq end (copy-marker (org-table-end)))
- (goto-char (setq beg org-table-current-begin-pos))
- (cond
- ((re-search-forward org-table-calculate-mark-regexp end t)
- ;; This is a table with marked lines, compute selected
- ;; lines.
- (setq line-re org-table-recalculate-regexp))
- ;; Move forward to the first non-header line.
- ((and (re-search-forward org-table-dataline-regexp end t)
- (re-search-forward org-table-hline-regexp end t)
- (re-search-forward org-table-dataline-regexp end t))
- (setq beg (match-beginning 0)))
- ;; Just leave BEG at the start of the table.
- (t nil)))
- (setq beg (line-beginning-position)
- end (copy-marker (line-beginning-position 2))))
- (goto-char beg)
- ;; Mark named fields untouchable. Also check if several
- ;; field/range formulas try to set the same field.
- (remove-text-properties beg end '(:org-untouchable t))
- (let ((current-line (count-lines org-table-current-begin-pos
- (line-beginning-position)))
- seen-fields)
- (dolist (eq eqlfield)
- (let* ((name (car eq))
- (location (assoc name org-table-named-field-locations))
- (eq-line (or (nth 1 location)
- (and (string-match "\\`@\\([0-9]+\\)" name)
- (aref org-table-dlines
- (string-to-number
- (match-string 1 name))))))
- (reference
- (if location
- ;; Turn field coordinates associated to NAME
- ;; into an absolute reference.
- (format "@%d$%d"
- (org-table-line-to-dline eq-line)
- (nth 2 location))
- name)))
- (when (member reference seen-fields)
- (user-error "Several field/range formulas try to set %s"
- reference))
- (push reference seen-fields)
- (when (or all (eq eq-line current-line))
- (org-table-goto-field name)
- (org-table-put-field-property :org-untouchable t)))))
- ;; Evaluate the column formulas, but skip fields covered by
- ;; field formulas.
- (goto-char beg)
- (while (re-search-forward line-re end t)
- (unless (string-match "\\` *[_^!$/] *\\'" (org-table-get-field 1))
- ;; Unprotected line, recalculate.
- (cl-incf cnt)
- (when all
- (setq log-last-time
- (org-table-message-once-per-second
- log-last-time
- "Re-applying formulas to full table...(line %d)" cnt)))
- (if (markerp org-last-recalc-line)
- (move-marker org-last-recalc-line (line-beginning-position))
- (setq org-last-recalc-line
- (copy-marker (line-beginning-position))))
- (dolist (entry eqlcol)
- (goto-char org-last-recalc-line)
- (org-table-goto-column
- (string-to-number (substring (car entry) 1)) nil 'force)
- (unless (get-text-property (point) :org-untouchable)
- (org-table-eval-formula
- nil (cdr entry) 'noalign 'nocst 'nostore 'noanalysis)))))
- ;; Evaluate the field formulas.
- (dolist (eq eqlfield)
- (let ((reference (car eq))
- (formula (cdr eq)))
- (setq log-last-time
- (org-table-message-once-per-second
- (and all log-last-time)
- "Re-applying formula to field: %s" (car eq)))
- (org-table-goto-field
- reference
- ;; Possibly create a new column, as long as
- ;; `org-table-formula-create-columns' allows it.
- (let ((column-count (progn (end-of-line)
- (1- (org-table-current-column)))))
- (lambda (column)
- (when (> column 1000)
- (user-error "Formula column target too large"))
- (and (> column column-count)
- (or (eq org-table-formula-create-columns t)
- (and (eq org-table-formula-create-columns 'warn)
- (progn
- (org-display-warning
- "Out-of-bounds formula added columns")
- t))
- (and (eq org-table-formula-create-columns 'prompt)
- (yes-or-no-p
- "Out-of-bounds formula. Add columns? "))
- (user-error
- "Missing columns in the table. Aborting"))))))
- (org-table-eval-formula nil formula t t t t))))
- ;; Clean up markers and internal text property.
- (remove-text-properties (point-min) (point-max) '(org-untouchable t))
- (set-marker end nil)
- (unless noalign
- (when org-table-may-need-update (org-table-align))
- (when all
- (org-table-message-once-per-second
- log-first-time "Re-applying formulas to %d lines... done" cnt)))
- (org-table-message-once-per-second
- (and all log-first-time) "Re-applying formulas... done")))))
-
-;;;###autoload
-(defun org-table-iterate (&optional arg)
- "Recalculate the table until it does not change anymore.
-The maximum number of iterations is 10, but you can choose a different value
-with the prefix ARG."
- (interactive "P")
- (let ((imax (if arg (prefix-numeric-value arg) 10))
- (i 0)
- (lasttbl (buffer-substring (org-table-begin) (org-table-end)))
- thistbl)
- (catch 'exit
- (while (< i imax)
- (setq i (1+ i))
- (org-table-recalculate 'all)
- (setq thistbl (buffer-substring (org-table-begin) (org-table-end)))
- (if (not (string= lasttbl thistbl))
- (setq lasttbl thistbl)
- (if (> i 1)
- (message "Convergence after %d iterations" i)
- (message "Table was already stable"))
- (throw 'exit t)))
- (user-error "No convergence after %d iterations" i))))
-
-;;;###autoload
-(defun org-table-recalculate-buffer-tables ()
- "Recalculate all tables in the current buffer."
- (interactive)
- (org-with-wide-buffer
- (org-table-map-tables
- (lambda ()
- ;; Reason for separate `org-table-align': When repeating
- ;; (org-table-recalculate t) `org-table-may-need-update' gets in
- ;; the way.
- (org-table-recalculate t t)
- (org-table-align))
- t)))
-
-;;;###autoload
-(defun org-table-iterate-buffer-tables ()
- "Iterate all tables in the buffer, to converge inter-table dependencies."
- (interactive)
- (let* ((imax 10)
- (i imax)
- (checksum (md5 (buffer-string)))
- c1)
- (org-with-wide-buffer
- (catch 'exit
- (while (> i 0)
- (setq i (1- i))
- (org-table-map-tables (lambda () (org-table-recalculate t t)) t)
- (if (equal checksum (setq c1 (md5 (buffer-string))))
- (progn
- (org-table-map-tables #'org-table-align t)
- (message "Convergence after %d iterations" (- imax i))
- (throw 'exit t))
- (setq checksum c1)))
- (org-table-map-tables #'org-table-align t)
- (user-error "No convergence after %d iterations" imax)))))
-
-(defun org-table-calc-current-TBLFM (&optional arg)
- "Apply the #+TBLFM in the line at point to the table."
- (interactive "P")
- (unless (org-at-TBLFM-p) (user-error "Not at a #+TBLFM line"))
- (let ((formula (buffer-substring
- (line-beginning-position)
- (line-end-position))))
- (save-excursion
- ;; Insert a temporary formula at right after the table
- (goto-char (org-table-TBLFM-begin))
- (let ((s (point-marker)))
- (insert formula "\n")
- (let ((e (point-marker)))
- ;; Recalculate the table.
- (beginning-of-line 0) ; move to the inserted line
- (skip-chars-backward " \r\n\t")
- (unwind-protect
- (org-call-with-arg #'org-table-recalculate (or arg t))
- ;; Delete the formula inserted temporarily.
- (delete-region s e)
- (set-marker s nil)
- (set-marker e nil)))))))
-
-(defun org-table-TBLFM-begin ()
- "Find the beginning of the TBLFM lines and return its position.
-Return nil when the beginning of TBLFM line was not found."
- (save-excursion
- (when (progn (forward-line 1)
- (re-search-backward org-table-TBLFM-begin-regexp nil t))
- (line-beginning-position 2))))
-
-(defun org-table-expand-lhs-ranges (equations)
- "Expand list of formulas.
-If some of the RHS in the formulas are ranges or a row reference,
-expand them to individual field equations for each field. This
-function assumes the table is already analyzed (i.e., using
-`org-table-analyze')."
- (let (res)
- (dolist (e equations (nreverse res))
- (let ((lhs (car e))
- (rhs (cdr e)))
- (cond
- ((string-match-p "\\`@-?[-+0-9]+\\$-?[0-9]+\\'" lhs)
- ;; This just refers to one fixed field.
- (push e res))
- ((string-match-p "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" lhs)
- ;; This just refers to one fixed named field.
- (push e res))
- ((string-match-p "\\`\\$[0-9]+\\'" lhs)
- ;; Column formulas are treated specially and are not
- ;; expanded.
- (push e res))
- ((string-match "\\`@[0-9]+\\'" lhs)
- (dotimes (ic org-table-current-ncol)
- (push (cons (propertize (format "%s$%d" lhs (1+ ic)) :orig-eqn e)
- rhs)
- res)))
- (t
- (let* ((range (org-table-get-range
- lhs org-table-current-begin-pos 1 nil 'corners))
- (r1 (org-table-line-to-dline (nth 0 range)))
- (c1 (nth 1 range))
- (r2 (org-table-line-to-dline (nth 2 range) 'above))
- (c2 (nth 3 range)))
- (cl-loop for ir from r1 to r2 do
- (cl-loop for ic from c1 to c2 do
- (push (cons (propertize
- (format "@%d$%d" ir ic) :orig-eqn e)
- rhs)
- res))))))))))
-
-(defun org-table-formula-handle-first/last-rc (s)
- "Replace @<, @>, $<, $> with first/last row/column of the table.
-So @< and $< will always be replaced with @1 and $1, respectively.
-The advantage of these special markers are that structure editing of
-the table will not change them, while @1 and $1 will be modified
-when a line/row is swapped out of that privileged position. So for
-formulas that use a range of rows or columns, it may often be better
-to anchor the formula with \"I\" row markers, or to offset from the
-borders of the table using the @< @> $< $> makers."
- (let (n nmax len char (start 0))
- (while (string-match "\\([@$]\\)\\(<+\\|>+\\)\\|\\(remote([^)]+)\\)"
- s start)
- (if (match-end 3)
- (setq start (match-end 3))
- (setq nmax (if (equal (match-string 1 s) "@")
- (1- (length org-table-dlines))
- org-table-current-ncol)
- len (- (match-end 2) (match-beginning 2))
- char (string-to-char (match-string 2 s))
- n (if (= char ?<)
- len
- (- nmax len -1)))
- (if (or (< n 1) (> n nmax))
- (user-error "Reference \"%s\" in expression \"%s\" points outside table"
- (match-string 0 s) s))
- (setq start (match-beginning 0))
- (setq s (replace-match (format "%s%d" (match-string 1 s) n) t t s)))))
- s)
-
-(defun org-table-formula-substitute-names (f)
- "Replace $const with values in string F."
- (let ((start 0)
- (pp (/= (string-to-char f) ?'))
- (duration (string-match-p ";.*[Tt].*\\'" f))
- (new (replace-regexp-in-string ; Check for column names.
- org-table-column-name-regexp
- (lambda (m)
- (concat "$" (cdr (assoc (match-string 1 m)
- org-table-column-names))))
- f t t)))
- ;; Parameters and constants.
- (while (setq start
- (string-match
- "\\$\\([a-zA-Z][_a-zA-Z0-9]*\\)\\|\\(\\<remote([^)]*)\\)"
- new start))
- (if (match-end 2) (setq start (match-end 2))
- (cl-incf start)
- ;; When a duration is expected, convert value on the fly.
- (let ((value
- (save-match-data
- (let ((v (org-table-get-constant (match-string 1 new))))
- (if (and (org-string-nw-p v) duration)
- (org-table-time-string-to-seconds v)
- v)))))
- (when value
- (setq new (replace-match
- (concat (and pp "(") value (and pp ")")) t t new))))))
- (if org-table-formula-debug (propertize new :orig-formula f) new)))
-
-(defun org-table-get-constant (const)
- "Find the value for a parameter or constant in a formula.
-Parameters get priority."
- (or (cdr (assoc const org-table-local-parameters))
- (cdr (assoc const org-table-formula-constants-local))
- (cdr (assoc const org-table-formula-constants))
- (and (fboundp 'constants-get) (constants-get const))
- (and (string= (substring const 0 (min 5 (length const))) "PROP_")
- (org-entry-get nil (substring const 5) 'inherit))
- "#UNDEFINED_NAME"))
-
-(defvar org-table-fedit-map
- (let ((map (make-sparse-keymap)))
- (org-defkey map "\C-x\C-s" 'org-table-fedit-finish)
- (org-defkey map "\C-c\C-s" 'org-table-fedit-finish)
- (org-defkey map "\C-c\C-c" 'org-table-fedit-finish)
- (org-defkey map "\C-c'" 'org-table-fedit-finish)
- (org-defkey map "\C-c\C-q" 'org-table-fedit-abort)
- (org-defkey map "\C-c?" 'org-table-show-reference)
- (org-defkey map [(meta shift up)] 'org-table-fedit-line-up)
- (org-defkey map [(meta shift down)] 'org-table-fedit-line-down)
- (org-defkey map [(shift up)] 'org-table-fedit-ref-up)
- (org-defkey map [(shift down)] 'org-table-fedit-ref-down)
- (org-defkey map [(shift left)] 'org-table-fedit-ref-left)
- (org-defkey map [(shift right)] 'org-table-fedit-ref-right)
- (org-defkey map [(meta up)] 'org-table-fedit-scroll-down)
- (org-defkey map [(meta down)] 'org-table-fedit-scroll)
- (org-defkey map [(meta tab)] 'lisp-complete-symbol)
- (org-defkey map "\M-\C-i" 'lisp-complete-symbol)
- (org-defkey map [(tab)] 'org-table-fedit-lisp-indent)
- (org-defkey map "\C-i" 'org-table-fedit-lisp-indent)
- (org-defkey map "\C-c\C-r" 'org-table-fedit-toggle-ref-type)
- (org-defkey map "\C-c}" 'org-table-fedit-toggle-coordinates)
- map))
-
-(easy-menu-define org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu"
- '("Edit-Formulas"
- ["Finish and Install" org-table-fedit-finish t]
- ["Finish, Install, and Apply" (org-table-fedit-finish t) :keys "C-u C-c C-c"]
- ["Abort" org-table-fedit-abort t]
- "--"
- ["Pretty-Print Lisp Formula" org-table-fedit-lisp-indent t]
- ["Complete Lisp Symbol" lisp-complete-symbol t]
- "--"
- "Shift Reference at Point"
- ["Up" org-table-fedit-ref-up t]
- ["Down" org-table-fedit-ref-down t]
- ["Left" org-table-fedit-ref-left t]
- ["Right" org-table-fedit-ref-right t]
- "-"
- "Change Test Row for Column Formulas"
- ["Up" org-table-fedit-line-up t]
- ["Down" org-table-fedit-line-down t]
- "--"
- ["Scroll Table Window" org-table-fedit-scroll t]
- ["Scroll Table Window down" org-table-fedit-scroll-down t]
- ["Show Table Grid" org-table-fedit-toggle-coordinates
- :style toggle :selected (with-current-buffer (marker-buffer org-pos)
- org-table-overlay-coordinates)]
- "--"
- ["Standard Refs (B3 instead of @3$2)" org-table-fedit-toggle-ref-type
- :style toggle :selected org-table-buffer-is-an]))
-
-(defvar org-pos)
-(defvar org-table--fedit-source nil
- "Position of the TBLFM line being edited.")
-
-;;;###autoload
-(defun org-table-edit-formulas ()
- "Edit the formulas of the current table in a separate buffer."
- (interactive)
- (let ((at-tblfm (org-at-TBLFM-p)))
- (unless (or at-tblfm (org-at-table-p))
- (user-error "Not at a table"))
- (save-excursion
- ;; Move point within the table before analyzing it.
- (when at-tblfm (re-search-backward "^[ \t]*|"))
- (org-table-analyze))
- (let ((key (org-table-current-field-formula 'key 'noerror))
- (eql (sort (org-table-get-stored-formulas t (and at-tblfm (point)))
- #'org-table-formula-less-p))
- (pos (point-marker))
- (source (copy-marker (line-beginning-position)))
- (startline 1)
- (wc (current-window-configuration))
- (sel-win (selected-window))
- (titles '((column . "# Column Formulas\n")
- (field . "# Field and Range Formulas\n")
- (named . "# Named Field Formulas\n"))))
- (org-switch-to-buffer-other-window "*Edit Formulas*")
- (erase-buffer)
- ;; Keep global-font-lock-mode from turning on font-lock-mode
- (let ((font-lock-global-modes '(not fundamental-mode)))
- (fundamental-mode))
- (setq-local font-lock-global-modes (list 'not major-mode))
- (setq-local org-pos pos)
- (setq-local org-table--fedit-source source)
- (setq-local org-window-configuration wc)
- (setq-local org-selected-window sel-win)
- (use-local-map org-table-fedit-map)
- (add-hook 'post-command-hook #'org-table-fedit-post-command t t)
- (easy-menu-add org-table-fedit-menu)
- (setq startline (org-current-line))
- (dolist (entry eql)
- (let* ((type (cond
- ((string-match "\\`$\\([0-9]+\\|[<>]+\\)\\'" (car entry))
- 'column)
- ((equal (string-to-char (car entry)) ?@) 'field)
- (t 'named)))
- (title (assq type titles)))
- (when title
- (unless (bobp) (insert "\n"))
- (insert
- (org-add-props (cdr title) nil 'face font-lock-comment-face))
- (setq titles (remove title titles)))
- (when (equal key (car entry)) (setq startline (org-current-line)))
- (let ((s (concat
- (if (memq (string-to-char (car entry)) '(?@ ?$)) "" "$")
- (car entry) " = " (cdr entry) "\n")))
- (remove-text-properties 0 (length s) '(face nil) s)
- (insert s))))
- (when (eq org-table-use-standard-references t)
- (org-table-fedit-toggle-ref-type))
- (org-goto-line startline)
- (message "%s" (substitute-command-keys "\\<org-mode-map>\
-Edit formulas, finish with `\\[org-ctrl-c-ctrl-c]' or `\\[org-edit-special]'. \
-See menu for more commands.")))))
-
-(defun org-table-fedit-post-command ()
- (when (not (memq this-command '(lisp-complete-symbol)))
- (let ((win (selected-window)))
- (save-excursion
- (ignore-errors (org-table-show-reference))
- (select-window win)))))
-
-(defun org-table-formula-to-user (s)
- "Convert a formula from internal to user representation."
- (if (eq org-table-use-standard-references t)
- (org-table-convert-refs-to-an s)
- s))
-
-(defun org-table-formula-from-user (s)
- "Convert a formula from user to internal representation."
- (if org-table-use-standard-references
- (org-table-convert-refs-to-rc s)
- s))
-
-(defun org-table-convert-refs-to-rc (s)
- "Convert spreadsheet references from A7 to @7$28.
-Works for single references, but also for entire formulas and even the
-full TBLFM line."
- (let ((start 0))
- (while (string-match "\\<\\([a-zA-Z]+\\)\\([0-9]+\\>\\|&\\)\\|\\(;[^\r\n:]+\\|\\<remote([^,)]*)\\)" s start)
- (cond
- ((match-end 3)
- ;; format match, just advance
- (setq start (match-end 0)))
- ((and (> (match-beginning 0) 0)
- (equal ?. (aref s (max (1- (match-beginning 0)) 0)))
- (not (equal ?. (aref s (max (- (match-beginning 0) 2) 0)))))
- ;; 3.e5 or something like this.
- (setq start (match-end 0)))
- ((or (> (- (match-end 1) (match-beginning 1)) 2)
- ;; (member (match-string 1 s)
- ;; '("arctan" "exp" "expm" "lnp" "log" "stir"))
- )
- ;; function name, just advance
- (setq start (match-end 0)))
- (t
- (setq start (match-beginning 0)
- s (replace-match
- (if (equal (match-string 2 s) "&")
- (format "$%d" (org-letters-to-number (match-string 1 s)))
- (format "@%d$%d"
- (string-to-number (match-string 2 s))
- (org-letters-to-number (match-string 1 s))))
- t t s)))))
- s))
-
-(defun org-table-convert-refs-to-an (s)
- "Convert spreadsheet references from to @7$28 to AB7.
-Works for single references, but also for entire formulas and even the
-full TBLFM line."
- (while (string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" s)
- (setq s (replace-match
- (format "%s%d"
- (org-number-to-letters
- (string-to-number (match-string 2 s)))
- (string-to-number (match-string 1 s)))
- t t s)))
- (while (string-match "\\(^\\|[^0-9a-zA-Z]\\)\\$\\([0-9]+\\)" s)
- (setq s (replace-match (concat "\\1"
- (org-number-to-letters
- (string-to-number (match-string 2 s))) "&")
- t nil s)))
- s)
-
-(defun org-letters-to-number (s)
- "Convert a base 26 number represented by letters into an integer.
-For example: AB -> 28."
- (let ((n 0))
- (setq s (upcase s))
- (while (> (length s) 0)
- (setq n (+ (* n 26) (string-to-char s) (- ?A) 1)
- s (substring s 1)))
- n))
-
-(defun org-number-to-letters (n)
- "Convert an integer into a base 26 number represented by letters.
-For example: 28 -> AB."
- (let ((s ""))
- (while (> n 0)
- (setq s (concat (char-to-string (+ (mod (1- n) 26) ?A)) s)
- n (/ (1- n) 26)))
- s))
-
-(defun org-table-time-string-to-seconds (s)
- "Convert a time string into numerical duration in seconds.
-S can be a string matching either -?HH:MM:SS or -?HH:MM.
-If S is a string representing a number, keep this number."
- (if (equal s "")
- s
- (let (hour minus min sec res)
- (cond
- ((and (string-match "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" s))
- (setq minus (< 0 (length (match-string 1 s)))
- hour (string-to-number (match-string 2 s))
- min (string-to-number (match-string 3 s))
- sec (string-to-number (match-string 4 s)))
- (if minus
- (setq res (- (+ (* hour 3600) (* min 60) sec)))
- (setq res (+ (* hour 3600) (* min 60) sec))))
- ((and (not (string-match org-ts-regexp-both s))
- (string-match "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\)" s))
- (setq minus (< 0 (length (match-string 1 s)))
- hour (string-to-number (match-string 2 s))
- min (string-to-number (match-string 3 s)))
- (if minus
- (setq res (- (+ (* hour 3600) (* min 60))))
- (setq res (+ (* hour 3600) (* min 60)))))
- (t (setq res (string-to-number s))))
- (number-to-string res))))
-
-(defun org-table-time-seconds-to-string (secs &optional output-format)
- "Convert a number of seconds to a time string.
-If OUTPUT-FORMAT is non-nil, return a number of days, hours,
-minutes or seconds."
- (let* ((secs0 (abs secs))
- (res
- (cond ((eq output-format 'days)
- (format "%.3f" (/ (float secs0) 86400)))
- ((eq output-format 'hours)
- (format "%.2f" (/ (float secs0) 3600)))
- ((eq output-format 'minutes)
- (format "%.1f" (/ (float secs0) 60)))
- ((eq output-format 'seconds)
- (format "%d" secs0))
- ((eq output-format 'hh:mm)
- ;; Ignore seconds
- (substring (format-seconds
- (if org-table-duration-hour-zero-padding
- "%.2h:%.2m:%.2s" "%h:%.2m:%.2s")
- secs0)
- 0 -3))
- (t (format-seconds
- (if org-table-duration-hour-zero-padding
- "%.2h:%.2m:%.2s" "%h:%.2m:%.2s")
- secs0)))))
- (if (< secs 0) (concat "-" res) res)))
-
-(defun org-table-fedit-convert-buffer (function)
- "Convert all references in this buffer, using FUNCTION."
- (let ((origin (copy-marker (line-beginning-position))))
- (goto-char (point-min))
- (while (not (eobp))
- (insert (funcall function (buffer-substring (point) (line-end-position))))
- (delete-region (point) (line-end-position))
- (forward-line))
- (goto-char origin)
- (set-marker origin nil)))
-
-(defun org-table-fedit-toggle-ref-type ()
- "Convert all references in the buffer from B3 to @3$2 and back."
- (interactive)
- (setq-local org-table-buffer-is-an (not org-table-buffer-is-an))
- (org-table-fedit-convert-buffer
- (if org-table-buffer-is-an
- 'org-table-convert-refs-to-an 'org-table-convert-refs-to-rc))
- (message "Reference type switched to %s"
- (if org-table-buffer-is-an "A1 etc" "@row$column")))
-
-(defun org-table-fedit-ref-up ()
- "Shift the reference at point one row/hline up."
- (interactive)
- (org-table-fedit-shift-reference 'up))
-(defun org-table-fedit-ref-down ()
- "Shift the reference at point one row/hline down."
- (interactive)
- (org-table-fedit-shift-reference 'down))
-(defun org-table-fedit-ref-left ()
- "Shift the reference at point one field to the left."
- (interactive)
- (org-table-fedit-shift-reference 'left))
-(defun org-table-fedit-ref-right ()
- "Shift the reference at point one field to the right."
- (interactive)
- (org-table-fedit-shift-reference 'right))
-
-(defun org-table-fedit-shift-reference (dir)
- (cond
- ((org-in-regexp "\\(\\<[a-zA-Z]\\)&")
- (if (memq dir '(left right))
- (org-rematch-and-replace 1 (eq dir 'left))
- (user-error "Cannot shift reference in this direction")))
- ((org-in-regexp "\\(\\<[a-zA-Z]\\{1,2\\}\\)\\([0-9]+\\)")
- ;; A B3-like reference
- (if (memq dir '(up down))
- (org-rematch-and-replace 2 (eq dir 'up))
- (org-rematch-and-replace 1 (eq dir 'left))))
- ((org-in-regexp
- "\\(@\\|\\.\\.\\)\\([-+]?\\(I+\\>\\|[0-9]+\\)\\)\\(\\$\\([-+]?[0-9]+\\)\\)?")
- ;; An internal reference
- (if (memq dir '(up down))
- (org-rematch-and-replace 2 (eq dir 'up) (match-end 3))
- (org-rematch-and-replace 5 (eq dir 'left))))))
-
-(defun org-rematch-and-replace (n &optional decr hline)
- "Re-match the group N, and replace it with the shifted reference."
- (or (match-end n) (user-error "Cannot shift reference in this direction"))
- (goto-char (match-beginning n))
- (and (looking-at (regexp-quote (match-string n)))
- (replace-match (org-table-shift-refpart (match-string 0) decr hline)
- t t)))
-
-(defun org-table-shift-refpart (ref &optional decr hline)
- "Shift a reference part REF.
-If DECR is set, decrease the references row/column, else increase.
-If HLINE is set, this may be a hline reference, it certainly is not
-a translation reference."
- (save-match-data
- (let* ((sign (string-match "^[-+]" ref)) n)
-
- (if sign (setq sign (substring ref 0 1) ref (substring ref 1)))
- (cond
- ((and hline (string-match "^I+" ref))
- (setq n (string-to-number (concat sign (number-to-string (length ref)))))
- (setq n (+ n (if decr -1 1)))
- (if (= n 0) (setq n (+ n (if decr -1 1))))
- (if sign
- (setq sign (if (< n 0) "-" "+") n (abs n))
- (setq n (max 1 n)))
- (concat sign (make-string n ?I)))
-
- ((string-match "^[0-9]+" ref)
- (setq n (string-to-number (concat sign ref)))
- (setq n (+ n (if decr -1 1)))
- (if sign
- (concat (if (< n 0) "-" "+") (number-to-string (abs n)))
- (number-to-string (max 1 n))))
-
- ((string-match "^[a-zA-Z]+" ref)
- (org-number-to-letters
- (max 1 (+ (org-letters-to-number ref) (if decr -1 1)))))
-
- (t (user-error "Cannot shift reference"))))))
-
-(defun org-table-fedit-toggle-coordinates ()
- "Toggle the display of coordinates in the referenced table."
- (interactive)
- (let ((pos (marker-position org-pos)))
- (with-current-buffer (marker-buffer org-pos)
- (save-excursion
- (goto-char pos)
- (org-table-toggle-coordinate-overlays)))))
-
-(defun org-table-fedit-finish (&optional arg)
- "Parse the buffer for formula definitions and install them.
-With prefix ARG, apply the new formulas to the table."
- (interactive "P")
- (org-table-remove-rectangle-highlight)
- (when org-table-use-standard-references
- (org-table-fedit-convert-buffer 'org-table-convert-refs-to-rc)
- (setq org-table-buffer-is-an nil))
- (let ((pos org-pos)
- (sel-win org-selected-window)
- (source org-table--fedit-source)
- eql)
- (goto-char (point-min))
- (while (re-search-forward
- "^\\(@[-+I<>0-9.$@]+\\|@?[0-9]+\\|\\$\\([a-zA-Z0-9]+\\|[<>]+\\)\\) *= *\\(.*\\(\n[ \t]+.*$\\)*\\)"
- nil t)
- (let ((var (match-string 1))
- (form (org-trim (match-string 3))))
- (unless (equal form "")
- (while (string-match "[ \t]*\n[ \t]*" form)
- (setq form (replace-match " " t t form)))
- (when (assoc var eql)
- (user-error "Double formulas for %s" var))
- (push (cons var form) eql))))
- (set-window-configuration org-window-configuration)
- (select-window sel-win)
- (goto-char source)
- (org-table-store-formulas eql)
- (set-marker pos nil)
- (set-marker source nil)
- (kill-buffer "*Edit Formulas*")
- (if arg
- (org-table-recalculate 'all)
- (message "New formulas installed - press C-u C-c C-c to apply."))))
-
-(defun org-table-fedit-abort ()
- "Abort editing formulas, without installing the changes."
- (interactive)
- (org-table-remove-rectangle-highlight)
- (let ((pos org-pos) (sel-win org-selected-window))
- (set-window-configuration org-window-configuration)
- (select-window sel-win)
- (goto-char pos)
- (move-marker pos nil)
- (message "Formula editing aborted without installing changes")))
-
-(defun org-table-fedit-lisp-indent ()
- "Pretty-print and re-indent Lisp expressions in the Formula Editor."
- (interactive)
- (let ((pos (point)) beg end ind)
- (beginning-of-line 1)
- (cond
- ((looking-at "[ \t]")
- (goto-char pos)
- (call-interactively 'lisp-indent-line))
- ((looking-at "[$&@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos))
- ((not (fboundp 'pp-buffer))
- (user-error "Cannot pretty-print. Command `pp-buffer' is not available"))
- ((looking-at "[$&@0-9a-zA-Z]+ *= *'(")
- (goto-char (- (match-end 0) 2))
- (setq beg (point))
- (setq ind (make-string (current-column) ?\ ))
- (condition-case nil (forward-sexp 1)
- (error
- (user-error "Cannot pretty-print Lisp expression: Unbalanced parenthesis")))
- (setq end (point))
- (save-restriction
- (narrow-to-region beg end)
- (if (eq last-command this-command)
- (progn
- (goto-char (point-min))
- (setq this-command nil)
- (while (re-search-forward "[ \t]*\n[ \t]*" nil t)
- (replace-match " ")))
- (pp-buffer)
- (untabify (point-min) (point-max))
- (goto-char (1+ (point-min)))
- (while (re-search-forward "^." nil t)
- (beginning-of-line 1)
- (insert ind))
- (goto-char (point-max))
- (org-delete-backward-char 1)))
- (goto-char beg))
- (t nil))))
-
-(defvar org-show-positions nil)
-
-(defun org-table-show-reference (&optional local)
- "Show the location/value of the $ expression at point.
-When LOCAL is non-nil, show references for the table at point."
- (interactive)
- (org-table-remove-rectangle-highlight)
- (when local (org-table-analyze))
- (catch 'exit
- (let ((pos (if local (point) org-pos))
- (face2 'highlight)
- (org-inhibit-highlight-removal t)
- (win (selected-window))
- (org-show-positions nil)
- var name e what match dest)
- (setq what (cond
- ((org-in-regexp "^@[0-9]+[ \t=]")
- (setq match (concat (substring (match-string 0) 0 -1)
- "$1.."
- (substring (match-string 0) 0 -1)
- "$100"))
- 'range)
- ((or (org-in-regexp org-table-range-regexp2)
- (org-in-regexp org-table-translate-regexp)
- (org-in-regexp org-table-range-regexp))
- (setq match
- (save-match-data
- (org-table-convert-refs-to-rc (match-string 0))))
- 'range)
- ((org-in-regexp "\\$[a-zA-Z][a-zA-Z0-9]*") 'name)
- ((org-in-regexp "\\$[0-9]+") 'column)
- ((not local) nil)
- (t (user-error "No reference at point")))
- match (and what (or match (match-string 0))))
- (when (and match (not (equal (match-beginning 0) (point-at-bol))))
- (org-table-add-rectangle-overlay (match-beginning 0) (match-end 0)
- 'secondary-selection))
- (add-hook 'before-change-functions
- #'org-table-remove-rectangle-highlight)
- (when (eq what 'name) (setq var (substring match 1)))
- (when (eq what 'range)
- (unless (eq (string-to-char match) ?@) (setq match (concat "@" match)))
- (setq match (org-table-formula-substitute-names match)))
- (unless local
- (save-excursion
- (end-of-line)
- (re-search-backward "^\\S-" nil t)
- (beginning-of-line)
- (when (looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\|[a-zA-Z]+\
-\\([0-9]+\\|&\\)\\) *=")
- (setq dest
- (save-match-data
- (org-table-convert-refs-to-rc (match-string 1))))
- (org-table-add-rectangle-overlay
- (match-beginning 1) (match-end 1) face2))))
- (if (and (markerp pos) (marker-buffer pos))
- (if (get-buffer-window (marker-buffer pos))
- (select-window (get-buffer-window (marker-buffer pos)))
- (org-switch-to-buffer-other-window (get-buffer-window
- (marker-buffer pos)))))
- (goto-char pos)
- (org-table-force-dataline)
- (let ((table-start
- (if local org-table-current-begin-pos (org-table-begin))))
- (when dest
- (setq name (substring dest 1))
- (cond
- ((string-match-p "\\`\\$[a-zA-Z][a-zA-Z0-9]*" dest)
- (org-table-goto-field dest))
- ((string-match-p "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'"
- dest)
- (org-table-goto-field dest))
- (t (org-table-goto-column (string-to-number name))))
- (move-marker pos (point))
- (org-table-highlight-rectangle nil nil face2))
- (cond
- ((equal dest match))
- ((not match))
- ((eq what 'range)
- (ignore-errors (org-table-get-range match table-start nil 'highlight)))
- ((setq e (assoc var org-table-named-field-locations))
- (org-table-goto-field var)
- (org-table-highlight-rectangle)
- (message "Named field, column %d of line %d" (nth 2 e) (nth 1 e)))
- ((setq e (assoc var org-table-column-names))
- (org-table-goto-column (string-to-number (cdr e)))
- (org-table-highlight-rectangle)
- (goto-char table-start)
- (if (re-search-forward (concat "^[ \t]*| *! *.*?| *\\(" var "\\) *|")
- (org-table-end) t)
- (progn
- (goto-char (match-beginning 1))
- (org-table-highlight-rectangle)
- (message "Named column (column %s)" (cdr e)))
- (user-error "Column name not found")))
- ((eq what 'column)
- ;; Column number.
- (org-table-goto-column (string-to-number (substring match 1)))
- (org-table-highlight-rectangle)
- (message "Column %s" (substring match 1)))
- ((setq e (assoc var org-table-local-parameters))
- (goto-char table-start)
- (if (re-search-forward (concat "^[ \t]*| *\\$ *.*?| *\\(" var "=\\)") nil t)
- (progn
- (goto-char (match-beginning 1))
- (org-table-highlight-rectangle)
- (message "Local parameter."))
- (user-error "Parameter not found")))
- ((not var) (user-error "No reference at point"))
- ((setq e (assoc var org-table-formula-constants-local))
- (message "Local Constant: $%s=%s in #+CONSTANTS line."
- var (cdr e)))
- ((setq e (assoc var org-table-formula-constants))
- (message "Constant: $%s=%s in `org-table-formula-constants'."
- var (cdr e)))
- ((setq e (and (fboundp 'constants-get) (constants-get var)))
- (message "Constant: $%s=%s, from `constants.el'%s."
- var e (format " (%s units)" constants-unit-system)))
- (t (user-error "Undefined name $%s" var)))
- (goto-char pos)
- (when (and org-show-positions
- (not (memq this-command '(org-table-fedit-scroll
- org-table-fedit-scroll-down))))
- (push pos org-show-positions)
- (push table-start org-show-positions)
- (let ((min (apply 'min org-show-positions))
- (max (apply 'max org-show-positions)))
- (set-window-start (selected-window) min)
- (goto-char max)
- (or (pos-visible-in-window-p max)
- (set-window-start (selected-window) max)))))
- (select-window win))))
-
-(defun org-table-force-dataline ()
- "Make sure the cursor is in a dataline in a table."
- (unless (save-excursion
- (beginning-of-line 1)
- (looking-at org-table-dataline-regexp))
- (let* ((re org-table-dataline-regexp)
- (p1 (save-excursion (re-search-forward re nil 'move)))
- (p2 (save-excursion (re-search-backward re nil 'move))))
- (cond ((and p1 p2)
- (goto-char (if (< (abs (- p1 (point))) (abs (- p2 (point))))
- p1 p2)))
- ((or p1 p2) (goto-char (or p1 p2)))
- (t (user-error "No table dataline around here"))))))
-
-(defun org-table-fedit-line-up ()
- "Move cursor one line up in the window showing the table."
- (interactive)
- (org-table-fedit-move 'previous-line))
-
-(defun org-table-fedit-line-down ()
- "Move cursor one line down in the window showing the table."
- (interactive)
- (org-table-fedit-move 'next-line))
-
-(defun org-table-fedit-move (command)
- "Move the cursor in the window showing the table.
-Use COMMAND to do the motion, repeat if necessary to end up in a data line."
- (let ((org-table-allow-automatic-line-recalculation nil)
- (pos org-pos) (win (selected-window)) p)
- (select-window (get-buffer-window (marker-buffer org-pos)))
- (setq p (point))
- (call-interactively command)
- (while (and (org-at-table-p)
- (org-at-table-hline-p))
- (call-interactively command))
- (or (org-at-table-p) (goto-char p))
- (move-marker pos (point))
- (select-window win)))
-
-(defun org-table-fedit-scroll (N)
- (interactive "p")
- (let ((other-window-scroll-buffer (marker-buffer org-pos)))
- (scroll-other-window N)))
-
-(defun org-table-fedit-scroll-down (N)
- (interactive "p")
- (org-table-fedit-scroll (- N)))
-
-(defvar org-table-rectangle-overlays nil)
-
-(defun org-table-add-rectangle-overlay (beg end &optional face)
- "Add a new overlay."
- (let ((ov (make-overlay beg end)))
- (overlay-put ov 'face (or face 'secondary-selection))
- (push ov org-table-rectangle-overlays)))
-
-(defun org-table-highlight-rectangle (&optional beg end face)
- "Highlight rectangular region in a table.
-When buffer positions BEG and END are provided, use them to
-delimit the region to highlight. Otherwise, refer to point. Use
-FACE, when non-nil, for the highlight."
- (let* ((beg (or beg (point)))
- (end (or end (point)))
- (b (min beg end))
- (e (max beg end))
- (start-coordinates
- (save-excursion
- (goto-char b)
- (cons (line-beginning-position) (org-table-current-column))))
- (end-coordinates
- (save-excursion
- (goto-char e)
- (cons (line-beginning-position) (org-table-current-column)))))
- (when (boundp 'org-show-positions)
- (setq org-show-positions (cons b (cons e org-show-positions))))
- (goto-char (car start-coordinates))
- (let ((column-start (min (cdr start-coordinates) (cdr end-coordinates)))
- (column-end (max (cdr start-coordinates) (cdr end-coordinates)))
- (last-row (car end-coordinates)))
- (while (<= (point) last-row)
- (when (looking-at org-table-dataline-regexp)
- (org-table-goto-column column-start)
- (skip-chars-backward "^|\n")
- (let ((p (point)))
- (org-table-goto-column column-end)
- (skip-chars-forward "^|\n")
- (org-table-add-rectangle-overlay p (point) face)))
- (forward-line)))
- (goto-char (car start-coordinates)))
- (add-hook 'before-change-functions #'org-table-remove-rectangle-highlight))
-
-(defun org-table-remove-rectangle-highlight (&rest _ignore)
- "Remove the rectangle overlays."
- (unless org-inhibit-highlight-removal
- (remove-hook 'before-change-functions 'org-table-remove-rectangle-highlight)
- (mapc 'delete-overlay org-table-rectangle-overlays)
- (setq org-table-rectangle-overlays nil)))
-
-(defvar-local org-table-coordinate-overlays nil
- "Collects the coordinate grid overlays, so that they can be removed.")
-
-(defun org-table-overlay-coordinates ()
- "Add overlays to the table at point, to show row/column coordinates."
- (interactive)
- (mapc 'delete-overlay org-table-coordinate-overlays)
- (setq org-table-coordinate-overlays nil)
- (save-excursion
- (let ((id 0) (ih 0) hline eol s1 s2 str ic ov beg)
- (goto-char (org-table-begin))
- (while (org-at-table-p)
- (setq eol (point-at-eol))
- (setq ov (make-overlay (point-at-bol) (1+ (point-at-bol))))
- (push ov org-table-coordinate-overlays)
- (setq hline (looking-at org-table-hline-regexp))
- (setq str (if hline (format "I*%-2d" (setq ih (1+ ih)))
- (format "%4d" (setq id (1+ id)))))
- (org-overlay-before-string ov str 'org-special-keyword 'evaporate)
- (when hline
- (setq ic 0)
- (while (re-search-forward "[+|]\\(-+\\)" eol t)
- (setq beg (1+ (match-beginning 0))
- ic (1+ ic)
- s1 (concat "$" (int-to-string ic))
- s2 (org-number-to-letters ic)
- str (if (eq org-table-use-standard-references t) s2 s1))
- (setq ov (make-overlay beg (+ beg (length str))))
- (push ov org-table-coordinate-overlays)
- (org-overlay-display ov str 'org-special-keyword 'evaporate)))
- (beginning-of-line 2)))))
-
-;;;###autoload
-(defun org-table-toggle-coordinate-overlays ()
- "Toggle the display of Row/Column numbers in tables."
- (interactive)
- (setq org-table-overlay-coordinates (not org-table-overlay-coordinates))
- (message "Tables Row/Column numbers display turned %s"
- (if org-table-overlay-coordinates "on" "off"))
- (if (and (org-at-table-p) org-table-overlay-coordinates)
- (org-table-align))
- (unless org-table-overlay-coordinates
- (mapc 'delete-overlay org-table-coordinate-overlays)
- (setq org-table-coordinate-overlays nil)))
-
-;;;###autoload
-(defun org-table-toggle-formula-debugger ()
- "Toggle the formula debugger in tables."
- (interactive)
- (setq org-table-formula-debug (not org-table-formula-debug))
- (message "Formula debugging has been turned %s"
- (if org-table-formula-debug "on" "off")))
-
-;;; The orgtbl minor mode
-
-;; Define a minor mode which can be used in other modes in order to
-;; integrate the Org table editor.
-
-;; This is really a hack, because the Org table editor uses several
-;; keys which normally belong to the major mode, for example the TAB
-;; and RET keys. Here is how it works: The minor mode defines all the
-;; keys necessary to operate the table editor, but wraps the commands
-;; into a function which tests if the cursor is currently inside
-;; a table. If that is the case, the table editor command is
-;; executed. However, when any of those keys is used outside a table,
-;; the function uses `key-binding' to look up if the key has an
-;; associated command in another currently active keymap (minor modes,
-;; major mode, global), and executes that command. There might be
-;; problems if any of the keys used by the table editor is otherwise
-;; used as a prefix key.
-
-;; Another challenge is that the key binding for TAB can be tab or \C-i,
-;; likewise the binding for RET can be return or \C-m. Orgtbl-mode
-;; addresses this by checking explicitly for both bindings.
-
-;; The optimized version (see variable `orgtbl-optimized') takes over
-;; all keys which are bound to `self-insert-command' in the *global map*.
-;; Some modes bind other commands to simple characters, for example
-;; AUCTeX binds the double quote to `Tex-insert-quote'. With orgtbl-mode
-;; active, this binding is ignored inside tables and replaced with a
-;; modified self-insert.
-
-
-(defvar orgtbl-mode-map (make-keymap)
- "Keymap for `orgtbl-mode'.")
-
-(defvar org-old-auto-fill-inhibit-regexp nil
- "Local variable used by `orgtbl-mode'.")
-
-(defconst orgtbl-line-start-regexp
- "[ \t]*\\(|\\|#\\+\\(tblfm\\|orgtbl\\|tblname\\):\\)"
- "Matches a line belonging to an orgtbl.")
-
-(defconst orgtbl-extra-font-lock-keywords
- (list (list (concat "^" orgtbl-line-start-regexp ".*")
- 0 (quote 'org-table) 'prepend))
- "Extra `font-lock-keywords' to be added when `orgtbl-mode' is active.")
-
-;; Install it as a minor mode.
-(put 'orgtbl-mode :included t)
-(put 'orgtbl-mode :menu-tag "Org Table Mode")
-
-;;;###autoload
-(define-minor-mode orgtbl-mode
- "The Org mode table editor as a minor mode for use in other modes."
- :lighter " OrgTbl" :keymap orgtbl-mode-map
- (org-load-modules-maybe)
- (cond
- ((derived-mode-p 'org-mode)
- ;; Exit without error, in case some hook functions calls this by
- ;; accident in Org mode.
- (message "Orgtbl mode is not useful in Org mode, command ignored"))
- (orgtbl-mode
- (and (orgtbl-setup) (defun orgtbl-setup () nil)) ;; FIXME: Yuck!?!
- ;; Make sure we are first in minor-mode-map-alist
- (let ((c (assq 'orgtbl-mode minor-mode-map-alist)))
- ;; FIXME: maybe it should use emulation-mode-map-alists?
- (and c (setq minor-mode-map-alist
- (cons c (delq c minor-mode-map-alist)))))
- (setq-local org-table-may-need-update t)
- (add-hook 'before-change-functions 'org-before-change-function
- nil 'local)
- (setq-local org-old-auto-fill-inhibit-regexp
- auto-fill-inhibit-regexp)
- (setq-local auto-fill-inhibit-regexp
- (if auto-fill-inhibit-regexp
- (concat orgtbl-line-start-regexp "\\|"
- auto-fill-inhibit-regexp)
- orgtbl-line-start-regexp))
- (add-to-invisibility-spec '(org-cwidth))
- (when (fboundp 'font-lock-add-keywords)
- (font-lock-add-keywords nil orgtbl-extra-font-lock-keywords)
- (org-restart-font-lock))
- (easy-menu-add orgtbl-mode-menu))
- (t
- (setq auto-fill-inhibit-regexp org-old-auto-fill-inhibit-regexp)
- (org-table-cleanup-narrow-column-properties)
- (org-remove-from-invisibility-spec '(org-cwidth))
- (remove-hook 'before-change-functions 'org-before-change-function t)
- (when (fboundp 'font-lock-remove-keywords)
- (font-lock-remove-keywords nil orgtbl-extra-font-lock-keywords)
- (org-restart-font-lock))
- (easy-menu-remove orgtbl-mode-menu)
- (force-mode-line-update 'all))))
-
-(defun org-table-cleanup-narrow-column-properties ()
- "Remove all properties related to narrow-column invisibility."
- (let ((s (point-min)))
- (while (setq s (text-property-any s (point-max)
- 'display org-narrow-column-arrow))
- (remove-text-properties s (1+ s) '(display t)))
- (setq s (point-min))
- (while (setq s (text-property-any s (point-max) 'org-cwidth 1))
- (remove-text-properties s (1+ s) '(org-cwidth t)))
- (setq s (point-min))
- (while (setq s (text-property-any s (point-max) 'invisible 'org-cwidth))
- (remove-text-properties s (1+ s) '(invisible t)))))
-
-(defun orgtbl-make-binding (fun n &rest keys)
- "Create a function for binding in the table minor mode.
-FUN is the command to call inside a table. N is used to create a unique
-command name. KEYS are keys that should be checked in for a command
-to execute outside of tables."
- (eval
- (list 'defun
- (intern (concat "orgtbl-hijacker-command-" (int-to-string n)))
- '(arg)
- (concat "In tables, run `" (symbol-name fun) "'.\n"
- "Outside of tables, run the binding of `"
- (mapconcat #'key-description keys "' or `")
- "'.")
- '(interactive "p")
- (list 'if
- '(org-at-table-p)
- (list 'call-interactively (list 'quote fun))
- (list 'let '(orgtbl-mode)
- (list 'call-interactively
- (append '(or)
- (mapcar (lambda (k)
- (list 'key-binding k))
- keys)
- '('orgtbl-error))))))))
-
-(defun orgtbl-error ()
- "Error when there is no default binding for a table key."
- (interactive)
- (user-error "This key has no function outside tables"))
-
-(defun orgtbl-setup ()
- "Setup orgtbl keymaps."
- (let ((nfunc 0)
- (bindings
- '(([(meta shift left)] org-table-delete-column)
- ([(meta left)] org-table-move-column-left)
- ([(meta right)] org-table-move-column-right)
- ([(meta shift right)] org-table-insert-column)
- ([(meta shift up)] org-table-kill-row)
- ([(meta shift down)] org-table-insert-row)
- ([(meta up)] org-table-move-row-up)
- ([(meta down)] org-table-move-row-down)
- ("\C-c\C-w" org-table-cut-region)
- ("\C-c\M-w" org-table-copy-region)
- ("\C-c\C-y" org-table-paste-rectangle)
- ("\C-c\C-w" org-table-wrap-region)
- ("\C-c-" org-table-insert-hline)
- ("\C-c}" org-table-toggle-coordinate-overlays)
- ("\C-c{" org-table-toggle-formula-debugger)
- ("\C-m" org-table-next-row)
- ([(shift return)] org-table-copy-down)
- ("\C-c?" org-table-field-info)
- ("\C-c " org-table-blank-field)
- ("\C-c+" org-table-sum)
- ("\C-c=" org-table-eval-formula)
- ("\C-c'" org-table-edit-formulas)
- ("\C-c`" org-table-edit-field)
- ("\C-c*" org-table-recalculate)
- ("\C-c^" org-table-sort-lines)
- ("\M-a" org-table-beginning-of-field)
- ("\M-e" org-table-end-of-field)
- ([(control ?#)] org-table-rotate-recalc-marks)))
- elt key fun cmd)
- (while (setq elt (pop bindings))
- (setq nfunc (1+ nfunc))
- (setq key (org-key (car elt))
- fun (nth 1 elt)
- cmd (orgtbl-make-binding fun nfunc key))
- (org-defkey orgtbl-mode-map key cmd))
-
- ;; Special treatment needed for TAB, RET and DEL
- (org-defkey orgtbl-mode-map [(return)]
- (orgtbl-make-binding 'orgtbl-ret 100 [(return)] "\C-m"))
- (org-defkey orgtbl-mode-map "\C-m"
- (orgtbl-make-binding 'orgtbl-ret 101 "\C-m" [(return)]))
- (org-defkey orgtbl-mode-map [(tab)]
- (orgtbl-make-binding 'orgtbl-tab 102 [(tab)] "\C-i"))
- (org-defkey orgtbl-mode-map "\C-i"
- (orgtbl-make-binding 'orgtbl-tab 103 "\C-i" [(tab)]))
- (org-defkey orgtbl-mode-map [(shift tab)]
- (orgtbl-make-binding 'org-table-previous-field 104
- [(shift tab)] [(tab)] "\C-i"))
- (org-defkey orgtbl-mode-map [backspace]
- (orgtbl-make-binding 'org-delete-backward-char 109
- [backspace] (kbd "DEL")))
-
- (org-defkey orgtbl-mode-map [S-iso-lefttab]
- (orgtbl-make-binding 'org-table-previous-field 107
- [S-iso-lefttab] [backtab] [(shift tab)]
- [(tab)] "\C-i"))
-
- (org-defkey orgtbl-mode-map [backtab]
- (orgtbl-make-binding 'org-table-previous-field 108
- [backtab] [S-iso-lefttab] [(shift tab)]
- [(tab)] "\C-i"))
-
- (org-defkey orgtbl-mode-map "\M-\C-m"
- (orgtbl-make-binding 'org-table-wrap-region 105
- "\M-\C-m" [(meta return)]))
- (org-defkey orgtbl-mode-map [(meta return)]
- (orgtbl-make-binding 'org-table-wrap-region 106
- [(meta return)] "\M-\C-m"))
-
- (org-defkey orgtbl-mode-map "\C-c\C-c" 'orgtbl-ctrl-c-ctrl-c)
- (org-defkey orgtbl-mode-map "\C-c|" 'orgtbl-create-or-convert-from-region)
-
- (when orgtbl-optimized
- ;; If the user wants maximum table support, we need to hijack
- ;; some standard editing functions
- (org-remap orgtbl-mode-map
- 'self-insert-command 'orgtbl-self-insert-command
- 'delete-char 'org-delete-char
- 'delete-backward-char 'org-delete-backward-char)
- (org-defkey orgtbl-mode-map "|" 'org-force-self-insert))
- (easy-menu-define orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu"
- '("OrgTbl"
- ["Create or convert" org-table-create-or-convert-from-region
- :active (not (org-at-table-p)) :keys "C-c |" ]
- "--"
- ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p) :keys "C-c C-c"]
- ["Next Field" org-cycle :active (org-at-table-p) :keys "TAB"]
- ["Previous Field" org-shifttab :active (org-at-table-p) :keys "S-TAB"]
- ["Next Row" org-return :active (org-at-table-p) :keys "RET"]
- "--"
- ["Blank Field" org-table-blank-field :active (org-at-table-p) :keys "C-c SPC"]
- ["Edit Field" org-table-edit-field :active (org-at-table-p) :keys "C-c ` "]
- ["Copy Field from Above"
- org-table-copy-down :active (org-at-table-p) :keys "S-RET"]
- "--"
- ("Column"
- ["Move Column Left" org-metaleft :active (org-at-table-p) :keys "M-<left>"]
- ["Move Column Right" org-metaright :active (org-at-table-p) :keys "M-<right>"]
- ["Delete Column" org-shiftmetaleft :active (org-at-table-p) :keys "M-S-<left>"]
- ["Insert Column" org-shiftmetaright :active (org-at-table-p) :keys "M-S-<right>"])
- ("Row"
- ["Move Row Up" org-metaup :active (org-at-table-p) :keys "M-<up>"]
- ["Move Row Down" org-metadown :active (org-at-table-p) :keys "M-<down>"]
- ["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys "M-S-<up>"]
- ["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys "M-S-<down>"]
- ["Sort lines in region" org-table-sort-lines :active (org-at-table-p) :keys "C-c ^"]
- "--"
- ["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys "C-c -"])
- ("Rectangle"
- ["Copy Rectangle" org-copy-special :active (org-at-table-p)]
- ["Cut Rectangle" org-cut-special :active (org-at-table-p)]
- ["Paste Rectangle" org-paste-special :active (org-at-table-p)]
- ["Fill Rectangle" org-table-wrap-region :active (org-at-table-p)])
- "--"
- ("Radio tables"
- ["Insert table template" orgtbl-insert-radio-table
- (cl-assoc-if #'derived-mode-p orgtbl-radio-table-templates)]
- ["Comment/uncomment table" orgtbl-toggle-comment t])
- "--"
- ["Set Column Formula" org-table-eval-formula :active (org-at-table-p) :keys "C-c ="]
- ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
- ["Edit Formulas" org-table-edit-formulas :active (org-at-table-p) :keys "C-c '"]
- ["Recalculate line" org-table-recalculate :active (org-at-table-p) :keys "C-c *"]
- ["Recalculate all" (org-table-recalculate '(4)) :active (org-at-table-p) :keys "C-u C-c *"]
- ["Iterate all" (org-table-recalculate '(16)) :active (org-at-table-p) :keys "C-u C-u C-c *"]
- ["Toggle Recalculate Mark" org-table-rotate-recalc-marks :active (org-at-table-p) :keys "C-c #"]
- ["Sum Column/Rectangle" org-table-sum
- :active (or (org-at-table-p) (org-region-active-p)) :keys "C-c +"]
- ["Which Column?" org-table-current-column :active (org-at-table-p) :keys "C-c ?"]
- ["Debug Formulas"
- org-table-toggle-formula-debugger :active (org-at-table-p)
- :keys "C-c {"
- :style toggle :selected org-table-formula-debug]
- ["Show Col/Row Numbers"
- org-table-toggle-coordinate-overlays :active (org-at-table-p)
- :keys "C-c }"
- :style toggle :selected org-table-overlay-coordinates]
- "--"
- ("Plot"
- ["Ascii plot" orgtbl-ascii-plot :active (org-at-table-p) :keys "C-c \" a"]
- ["Gnuplot" org-plot/gnuplot :active (org-at-table-p) :keys "C-c \" g"])))
- t))
-
-(defun orgtbl-ctrl-c-ctrl-c (arg)
- "If the cursor is inside a table, realign the table.
-If it is a table to be sent away to a receiver, do it.
-With prefix arg, also recompute table."
- (interactive "P")
- (let ((case-fold-search t) (pos (point)) action)
- (save-excursion
- (beginning-of-line 1)
- (setq action (cond
- ((looking-at "[ \t]*#\\+ORGTBL:.*\n[ \t]*|") (match-end 0))
- ((looking-at "[ \t]*|") pos)
- ((looking-at "[ \t]*#\\+tblfm:") 'recalc))))
- (cond
- ((integerp action)
- (goto-char action)
- (org-table-maybe-eval-formula)
- (if arg
- (call-interactively 'org-table-recalculate)
- (org-table-maybe-recalculate-line))
- (call-interactively 'org-table-align)
- (when (orgtbl-send-table 'maybe)
- (run-hooks 'orgtbl-after-send-table-hook)))
- ((eq action 'recalc)
- (save-excursion
- (beginning-of-line 1)
- (skip-chars-backward " \r\n\t")
- (if (org-at-table-p)
- (org-call-with-arg 'org-table-recalculate t))))
- (t (let (orgtbl-mode)
- (call-interactively (key-binding "\C-c\C-c")))))))
-
-(defun orgtbl-create-or-convert-from-region (_arg)
- "Create table or convert region to table, if no conflicting binding.
-This installs the table binding `C-c |', but only if there is no
-conflicting binding to this key outside orgtbl-mode."
- (interactive "P")
- (let* (orgtbl-mode (cmd (key-binding "\C-c|")))
- (if cmd
- (call-interactively cmd)
- (call-interactively 'org-table-create-or-convert-from-region))))
-
-(defun orgtbl-tab (arg)
- "Justification and field motion for `orgtbl-mode'."
- (interactive "P")
- (if arg (org-table-edit-field t)
- (org-table-justify-field-maybe)
- (org-table-next-field)))
-
-(defun orgtbl-ret ()
- "Justification and field motion for `orgtbl-mode'."
- (interactive)
- (if (bobp)
- (newline)
- (org-table-justify-field-maybe)
- (org-table-next-row)))
-
-(defun orgtbl-self-insert-command (N)
- "Like `self-insert-command', use overwrite-mode for whitespace in tables.
-If the cursor is in a table looking at whitespace, the whitespace is
-overwritten, and the table is not marked as requiring realignment."
- (interactive "p")
- (if (and (org-at-table-p)
- (or
- (and org-table-auto-blank-field
- (member last-command
- '(orgtbl-hijacker-command-100
- orgtbl-hijacker-command-101
- orgtbl-hijacker-command-102
- orgtbl-hijacker-command-103
- orgtbl-hijacker-command-104
- orgtbl-hijacker-command-105
- yas/expand))
- (org-table-blank-field))
- t)
- (eq N 1)
- (looking-at "[^|\n]* \\( \\)|"))
- (let (org-table-may-need-update)
- (delete-region (match-beginning 1) (match-end 1))
- (self-insert-command N))
- (setq org-table-may-need-update t)
- (let* (orgtbl-mode
- a
- (cmd (or (key-binding
- (or (and (listp function-key-map)
- (setq a (assoc last-input-event function-key-map))
- (cdr a))
- (vector last-input-event)))
- 'self-insert-command)))
- (call-interactively cmd)
- (if (and org-self-insert-cluster-for-undo
- (eq cmd 'self-insert-command))
- (if (not (eq last-command 'orgtbl-self-insert-command))
- (setq org-self-insert-command-undo-counter 1)
- (if (>= org-self-insert-command-undo-counter 20)
- (setq org-self-insert-command-undo-counter 1)
- (and (> org-self-insert-command-undo-counter 0)
- buffer-undo-list
- (not (cadr buffer-undo-list)) ; remove nil entry
- (setcdr buffer-undo-list (cddr buffer-undo-list)))
- (setq org-self-insert-command-undo-counter
- (1+ org-self-insert-command-undo-counter))))))))
-
-;;;###autoload
-(defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$"
- "Regular expression matching exponentials as produced by calc.")
-
-(defun orgtbl-gather-send-defs ()
- "Gather a plist of :name, :transform, :params for each destination before
-a radio table."
- (save-excursion
- (goto-char (org-table-begin))
- (let (rtn)
- (beginning-of-line 0)
- (while (looking-at "[ \t]*#\\+ORGTBL[: \t][ \t]*SEND[ \t]+\\([^ \t\r\n]+\\)[ \t]+\\([^ \t\r\n]+\\)\\([ \t]+.*\\)?")
- (let ((name (org-no-properties (match-string 1)))
- (transform (intern (match-string 2)))
- (params (if (match-end 3)
- (read (concat "(" (match-string 3) ")")))))
- (push (list :name name :transform transform :params params)
- rtn)
- (beginning-of-line 0)))
- rtn)))
-
-(defun orgtbl-send-replace-tbl (name text)
- "Find and replace table NAME with TEXT."
- (save-excursion
- (goto-char (point-min))
- (let* ((location-flag nil)
- (name (regexp-quote name))
- (begin-re (format "BEGIN +RECEIVE +ORGTBL +%s\\([ \t]\\|$\\)" name))
- (end-re (format "END +RECEIVE +ORGTBL +%s\\([ \t]\\|$\\)" name)))
- (while (re-search-forward begin-re nil t)
- (unless location-flag (setq location-flag t))
- (let ((beg (line-beginning-position 2)))
- (unless (re-search-forward end-re nil t)
- (user-error "Cannot find end of receiver location at %d" beg))
- (beginning-of-line)
- (delete-region beg (point))
- (insert text "\n")))
- (unless location-flag
- (user-error "No valid receiver location found in the buffer")))))
-
-;;;###autoload
-(defun org-table-to-lisp (&optional txt)
- "Convert the table at point to a Lisp structure.
-The structure will be a list. Each item is either the symbol `hline'
-for a horizontal separator line, or a list of field values as strings.
-The table is taken from the parameter TXT, or from the buffer at point."
- (unless (or txt (org-at-table-p)) (user-error "No table at point"))
- (let ((txt (or txt
- (buffer-substring-no-properties (org-table-begin)
- (org-table-end)))))
- (mapcar (lambda (x)
- (if (string-match org-table-hline-regexp x) 'hline
- (org-split-string (org-trim x) "\\s-*|\\s-*")))
- (org-split-string txt "[ \t]*\n[ \t]*"))))
-
-(defun orgtbl-send-table (&optional maybe)
- "Send a transformed version of table at point to the receiver position.
-With argument MAYBE, fail quietly if no transformation is defined
-for this table."
- (interactive)
- (catch 'exit
- (unless (org-at-table-p) (user-error "Not at a table"))
- ;; when non-interactive, we assume align has just happened.
- (when (called-interactively-p 'any) (org-table-align))
- (let ((dests (orgtbl-gather-send-defs))
- (table (org-table-to-lisp
- (buffer-substring-no-properties (org-table-begin)
- (org-table-end))))
- (ntbl 0))
- (unless dests
- (if maybe (throw 'exit nil)
- (user-error "Don't know how to transform this table")))
- (dolist (dest dests)
- (let ((name (plist-get dest :name))
- (transform (plist-get dest :transform))
- (params (plist-get dest :params)))
- (unless (fboundp transform)
- (user-error "No such transformation function %s" transform))
- (orgtbl-send-replace-tbl name (funcall transform table params)))
- (cl-incf ntbl))
- (message "Table converted and installed at %d receiver location%s"
- ntbl (if (> ntbl 1) "s" ""))
- (and (> ntbl 0) ntbl))))
-
-(defun org-remove-by-index (list indices &optional i0)
- "Remove the elements in LIST with indices in INDICES.
-First element has index 0, or I0 if given."
- (if (not indices)
- list
- (if (integerp indices) (setq indices (list indices)))
- (setq i0 (1- (or i0 0)))
- (delq :rm (mapcar (lambda (x)
- (setq i0 (1+ i0))
- (if (memq i0 indices) :rm x))
- list))))
-
-(defun orgtbl-toggle-comment ()
- "Comment or uncomment the orgtbl at point."
- (interactive)
- (let* ((case-fold-search t)
- (re1 (concat "^" (regexp-quote comment-start) orgtbl-line-start-regexp))
- (re2 (concat "^" orgtbl-line-start-regexp))
- (commented (save-excursion (beginning-of-line 1)
- (cond ((looking-at re1) t)
- ((looking-at re2) nil)
- (t (user-error "Not at an org table")))))
- (re (if commented re1 re2))
- beg end)
- (save-excursion
- (beginning-of-line 1)
- (while (looking-at re) (beginning-of-line 0))
- (beginning-of-line 2)
- (setq beg (point))
- (while (looking-at re) (beginning-of-line 2))
- (setq end (point)))
- (comment-region beg end (if commented '(4) nil))))
-
-(defun orgtbl-insert-radio-table ()
- "Insert a radio table template appropriate for this major mode."
- (interactive)
- (let* ((e (cl-assoc-if #'derived-mode-p orgtbl-radio-table-templates))
- (txt (nth 1 e))
- name pos)
- (unless e (user-error "No radio table setup defined for %s" major-mode))
- (setq name (read-string "Table name: "))
- (while (string-match "%n" txt)
- (setq txt (replace-match name t t txt)))
- (or (bolp) (insert "\n"))
- (setq pos (point))
- (insert txt)
- (goto-char pos)))
-
-;;;###autoload
-(defun orgtbl-to-generic (table params)
- "Convert the orgtbl-mode TABLE to some other format.
-
-This generic routine can be used for many standard cases.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that
-line. PARAMS is a property list of parameters that can
-influence the conversion.
-
-Valid parameters are:
-
-:backend, :raw
-
- Export back-end used as a basis to transcode elements of the
- table, when no specific parameter applies to it. It is also
- used to translate cells contents. You can prevent this by
- setting :raw property to a non-nil value.
-
-:splice
-
- When non-nil, only convert rows, not the table itself. This is
- equivalent to setting to the empty string both :tstart
- and :tend, which see.
-
-:skip
-
- When set to an integer N, skip the first N lines of the table.
- Horizontal separation lines do count for this parameter!
-
-:skipcols
-
- List of columns that should be skipped. If the table has
- a column with calculation marks, that column is automatically
- discarded beforehand.
-
-:hline
-
- String to be inserted on horizontal separation lines. May be
- nil to ignore these lines altogether.
-
-:sep
-
- Separator between two fields, as a string.
-
-Each in the following group may be either a string or a function
-of no arguments returning a string:
-
-:tstart, :tend
-
- Strings to start and end the table. Ignored when :splice is t.
-
-:lstart, :lend
-
- Strings to start and end a new table line.
-
-:llstart, :llend
-
- Strings to start and end the last table line. Default,
- respectively, to :lstart and :lend.
-
-Each in the following group may be a string or a function of one
-argument (either the cells in the current row, as a list of
-strings, or the current cell) returning a string:
-
-:lfmt
-
- Format string for an entire row, with enough %s to capture all
- fields. When non-nil, :lstart, :lend, and :sep are ignored.
-
-:llfmt
-
- Format for the entire last line, defaults to :lfmt.
-
-:fmt
-
- A format to be used to wrap the field, should contain %s for
- the original field value. For example, to wrap everything in
- dollars, you could use :fmt \"$%s$\". This may also be
- a property list with column numbers and format strings, or
- functions, e.g.,
-
- (:fmt (2 \"$%s$\" 4 (lambda (c) (format \"$%s$\" c))))
-
-:hlstart :hllstart :hlend :hllend :hsep :hlfmt :hllfmt :hfmt
-
- Same as above, specific for the header lines in the table.
- All lines before the first hline are treated as header. If
- any of these is not present, the data line value is used.
-
-This may be either a string or a function of two arguments:
-
-:efmt
-
- Use this format to print numbers with exponential. The format
- should have %s twice for inserting mantissa and exponent, for
- example \"%s\\\\times10^{%s}\". This may also be a property
- list with column numbers and format strings or functions.
- :fmt will still be applied after :efmt."
- ;; Make sure `org-export-create-backend' is available.
- (require 'ox)
- (let* ((backend (plist-get params :backend))
- (custom-backend
- ;; Build a custom back-end according to PARAMS. Before
- ;; defining a translator, check if there is anything to do.
- ;; When there isn't, let BACKEND handle the element.
- (org-export-create-backend
- :parent (or backend 'org)
- :transcoders
- `((table . ,(org-table--to-generic-table params))
- (table-row . ,(org-table--to-generic-row params))
- (table-cell . ,(org-table--to-generic-cell params))
- ;; Macros are not going to be expanded. However, no
- ;; regular back-end has a transcoder for them. We
- ;; provide one so they are not ignored, but displayed
- ;; as-is instead.
- (macro . (lambda (m c i) (org-element-macro-interpreter m nil))))))
- data info)
- ;; Store TABLE as Org syntax in DATA. Tolerate non-string cells.
- ;; Initialize communication channel in INFO.
- (with-temp-buffer
- (let ((org-inhibit-startup t)) (org-mode))
- (let ((standard-output (current-buffer))
- (org-element-use-cache nil))
- (dolist (e table)
- (cond ((eq e 'hline) (princ "|--\n"))
- ((consp e)
- (princ "| ") (dolist (c e) (princ c) (princ " |"))
- (princ "\n")))))
- ;; Add back-end specific filters, but not user-defined ones. In
- ;; particular, make sure to call parse-tree filters on the
- ;; table.
- (setq info
- (let ((org-export-filters-alist nil))
- (org-export-install-filters
- (org-combine-plists
- (org-export-get-environment backend nil params)
- `(:back-end ,(org-export-get-backend backend))))))
- (setq data
- (org-export-filter-apply-functions
- (plist-get info :filter-parse-tree)
- (org-element-map (org-element-parse-buffer) 'table
- #'identity nil t)
- info)))
- (when (and backend (symbolp backend) (not (org-export-get-backend backend)))
- (user-error "Unknown :backend value"))
- (when (or (not backend) (plist-get info :raw)) (require 'ox-org))
- ;; Handle :skip parameter.
- (let ((skip (plist-get info :skip)))
- (when skip
- (unless (wholenump skip) (user-error "Wrong :skip value"))
- (let ((n 0))
- (org-element-map data 'table-row
- (lambda (row)
- (if (>= n skip) t
- (org-element-extract-element row)
- (cl-incf n)
- nil))
- nil t))))
- ;; Handle :skipcols parameter.
- (let ((skipcols (plist-get info :skipcols)))
- (when skipcols
- (unless (consp skipcols) (user-error "Wrong :skipcols value"))
- (org-element-map data 'table
- (lambda (table)
- (let ((specialp (org-export-table-has-special-column-p table)))
- (dolist (row (org-element-contents table))
- (when (eq (org-element-property :type row) 'standard)
- (let ((c 1))
- (dolist (cell (nthcdr (if specialp 1 0)
- (org-element-contents row)))
- (when (memq c skipcols)
- (org-element-extract-element cell))
- (cl-incf c))))))))))
- ;; Since we are going to export using a low-level mechanism,
- ;; ignore special column and special rows manually.
- (let ((special? (org-export-table-has-special-column-p data))
- ignore)
- (org-element-map data (if special? '(table-cell table-row) 'table-row)
- (lambda (datum)
- (when (if (eq (org-element-type datum) 'table-row)
- (org-export-table-row-is-special-p datum nil)
- (org-export-first-sibling-p datum nil))
- (push datum ignore))))
- (setq info (plist-put info :ignore-list ignore)))
- ;; We use a low-level mechanism to export DATA so as to skip all
- ;; usual pre-processing and post-processing, i.e., hooks, Babel
- ;; code evaluation, include keywords and macro expansion. Only
- ;; back-end specific filters are retained.
- (let ((output (org-export-data-with-backend data custom-backend info)))
- ;; Remove final newline.
- (if (org-string-nw-p output) (substring-no-properties output 0 -1) ""))))
-
-(defun org-table--generic-apply (value name &optional with-cons &rest args)
- (cond ((null value) nil)
- ((functionp value) `(funcall ',value ,@args))
- ((stringp value)
- (cond ((consp (car args)) `(apply #'format ,value ,@args))
- (args `(format ,value ,@args))
- (t value)))
- ((and with-cons (consp value))
- `(let ((val (cadr (memq column ',value))))
- (cond ((null val) contents)
- ((stringp val) (format val ,@args))
- ((functionp val) (funcall val ,@args))
- (t (user-error "Wrong %s value" ,name)))))
- (t (user-error "Wrong %s value" name))))
-
-(defun org-table--to-generic-table (params)
- "Return custom table transcoder according to PARAMS.
-PARAMS is a plist. See `orgtbl-to-generic' for more
-information."
- (let ((backend (plist-get params :backend))
- (splice (plist-get params :splice))
- (tstart (plist-get params :tstart))
- (tend (plist-get params :tend)))
- `(lambda (table contents info)
- (concat
- ,(and tstart (not splice)
- `(concat ,(org-table--generic-apply tstart ":tstart") "\n"))
- ,(if (or (not backend) tstart tend splice) 'contents
- `(org-export-with-backend ',backend table contents info))
- ,(org-table--generic-apply (and (not splice) tend) ":tend")))))
-
-(defun org-table--to-generic-row (params)
- "Return custom table row transcoder according to PARAMS.
-PARAMS is a plist. See `orgtbl-to-generic' for more
-information."
- (let* ((backend (plist-get params :backend))
- (lstart (plist-get params :lstart))
- (llstart (plist-get params :llstart))
- (hlstart (plist-get params :hlstart))
- (hllstart (plist-get params :hllstart))
- (lend (plist-get params :lend))
- (llend (plist-get params :llend))
- (hlend (plist-get params :hlend))
- (hllend (plist-get params :hllend))
- (lfmt (plist-get params :lfmt))
- (llfmt (plist-get params :llfmt))
- (hlfmt (plist-get params :hlfmt))
- (hllfmt (plist-get params :hllfmt)))
- `(lambda (row contents info)
- (if (eq (org-element-property :type row) 'rule)
- ,(cond
- ((plist-member params :hline)
- (org-table--generic-apply (plist-get params :hline) ":hline"))
- (backend `(org-export-with-backend ',backend row nil info)))
- (let ((headerp ,(and (or hlfmt hlstart hlend)
- '(org-export-table-row-in-header-p row info)))
- (last-header-p
- ,(and (or hllfmt hllstart hllend)
- '(org-export-table-row-ends-header-p row info)))
- (lastp (not (org-export-get-next-element row info))))
- (when contents
- ;; Check if we can apply `:lfmt', `:llfmt', `:hlfmt', or
- ;; `:hllfmt' to CONTENTS. Otherwise, fallback on
- ;; `:lstart', `:lend' and their relatives.
- ,(let ((cells
- '(org-element-map row 'table-cell
- (lambda (cell)
- ;; Export all cells, without separators.
- ;;
- ;; Use `org-export-data-with-backend'
- ;; instead of `org-export-data' to eschew
- ;; cached values, which
- ;; ignore :orgtbl-ignore-sep parameter.
- (org-export-data-with-backend
- cell
- (plist-get info :back-end)
- (org-combine-plists info '(:orgtbl-ignore-sep t))))
- info)))
- `(cond
- ,(and hllfmt
- `(last-header-p ,(org-table--generic-apply
- hllfmt ":hllfmt" nil cells)))
- ,(and hlfmt
- `(headerp ,(org-table--generic-apply
- hlfmt ":hlfmt" nil cells)))
- ,(and llfmt
- `(lastp ,(org-table--generic-apply
- llfmt ":llfmt" nil cells)))
- (t
- ,(if lfmt (org-table--generic-apply lfmt ":lfmt" nil cells)
- `(concat
- (cond
- ,(and
- (or hllstart hllend)
- `(last-header-p
- (concat
- ,(org-table--generic-apply hllstart ":hllstart")
- contents
- ,(org-table--generic-apply hllend ":hllend"))))
- ,(and
- (or hlstart hlend)
- `(headerp
- (concat
- ,(org-table--generic-apply hlstart ":hlstart")
- contents
- ,(org-table--generic-apply hlend ":hlend"))))
- ,(and
- (or llstart llend)
- `(lastp
- (concat
- ,(org-table--generic-apply llstart ":llstart")
- contents
- ,(org-table--generic-apply llend ":llend"))))
- (t
- ,(cond
- ((or lstart lend)
- `(concat
- ,(org-table--generic-apply lstart ":lstart")
- contents
- ,(org-table--generic-apply lend ":lend")))
- (backend
- `(org-export-with-backend
- ',backend row contents info))
- (t 'contents)))))))))))))))
-
-(defun org-table--to-generic-cell (params)
- "Return custom table cell transcoder according to PARAMS.
-PARAMS is a plist. See `orgtbl-to-generic' for more
-information."
- (let* ((backend (plist-get params :backend))
- (efmt (plist-get params :efmt))
- (fmt (plist-get params :fmt))
- (hfmt (plist-get params :hfmt))
- (sep (plist-get params :sep))
- (hsep (plist-get params :hsep)))
- `(lambda (cell contents info)
- ;; Make sure that contents are exported as Org data when :raw
- ;; parameter is non-nil.
- ,(when (and backend (plist-get params :raw))
- `(setq contents
- ;; Since we don't know what are the pseudo object
- ;; types defined in backend, we cannot pass them to
- ;; `org-element-interpret-data'. As a consequence,
- ;; they will be treated as pseudo elements, and will
- ;; have newlines appended instead of spaces.
- ;; Therefore, we must make sure :post-blank value is
- ;; really turned into spaces.
- (replace-regexp-in-string
- "\n" " "
- (org-trim
- (org-element-interpret-data
- (org-element-contents cell))))))
-
- (let ((headerp ,(and (or hfmt hsep)
- '(org-export-table-row-in-header-p
- (org-export-get-parent-element cell) info)))
- (column
- ;; Call costly `org-export-table-cell-address' only if
- ;; absolutely necessary, i.e., if one
- ;; of :fmt :efmt :hfmt has a "plist type" value.
- ,(and (cl-some (lambda (v) (integerp (car-safe v)))
- (list efmt hfmt fmt))
- '(1+ (cdr (org-export-table-cell-address cell info))))))
- (when contents
- ;; Check if we can apply `:efmt' on CONTENTS.
- ,(when efmt
- `(when (string-match orgtbl-exp-regexp contents)
- (let ((mantissa (match-string 1 contents))
- (exponent (match-string 2 contents)))
- (setq contents ,(org-table--generic-apply
- efmt ":efmt" t 'mantissa 'exponent)))))
- ;; Check if we can apply FMT (or HFMT) on CONTENTS.
- (cond
- ,(and hfmt `(headerp (setq contents ,(org-table--generic-apply
- hfmt ":hfmt" t 'contents))))
- ,(and fmt `(t (setq contents ,(org-table--generic-apply
- fmt ":fmt" t 'contents))))))
- ;; If a separator is provided, use it instead of BACKEND's.
- ;; Separators are ignored when LFMT (or equivalent) is
- ;; provided.
- ,(cond
- ((or hsep sep)
- `(if (or ,(and (not sep) '(not headerp))
- (plist-get info :orgtbl-ignore-sep)
- (not (org-export-get-next-element cell info)))
- ,(if (not backend) 'contents
- `(org-export-with-backend ',backend cell contents info))
- (concat contents
- ,(if (and sep hsep) `(if headerp ,hsep ,sep)
- (or hsep sep)))))
- (backend `(org-export-with-backend ',backend cell contents info))
- (t 'contents))))))
-
-;;;###autoload
-(defun orgtbl-to-tsv (table params)
- "Convert the orgtbl-mode table to TAB separated material."
- (orgtbl-to-generic table (org-combine-plists '(:sep "\t") params)))
-
-;;;###autoload
-(defun orgtbl-to-csv (table params)
- "Convert the orgtbl-mode table to CSV material.
-This does take care of the proper quoting of fields with comma or quotes."
- (orgtbl-to-generic table
- (org-combine-plists '(:sep "," :fmt org-quote-csv-field)
- params)))
-
-;;;###autoload
-(defun orgtbl-to-latex (table params)
- "Convert the orgtbl-mode TABLE to LaTeX.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported. It is also possible to use the following ones:
-
-:booktabs
-
- When non-nil, use formal \"booktabs\" style.
-
-:environment
-
- Specify environment to use, as a string. If you use
- \"longtable\", you may also want to specify :language property,
- as a string, to get proper continuation strings."
- (require 'ox-latex)
- (orgtbl-to-generic
- table
- (org-combine-plists
- ;; Provide sane default values.
- (list :backend 'latex
- :latex-default-table-mode 'table
- :latex-tables-centered nil
- :latex-tables-booktabs (plist-get params :booktabs)
- :latex-table-scientific-notation nil
- :latex-default-table-environment
- (or (plist-get params :environment) "tabular"))
- params)))
-
-;;;###autoload
-(defun orgtbl-to-html (table params)
- "Convert the orgtbl-mode TABLE to HTML.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported. It is also possible to use the following one:
-
-:attributes
-
- Attributes and values, as a plist, which will be used in
- <table> tag."
- (require 'ox-html)
- (orgtbl-to-generic
- table
- (org-combine-plists
- ;; Provide sane default values.
- (list :backend 'html
- :html-table-data-tags '("<td%s>" . "</td>")
- :html-table-use-header-tags-for-first-column nil
- :html-table-align-individual-fields t
- :html-table-row-tags '("<tr>" . "</tr>")
- :html-table-attributes
- (if (plist-member params :attributes)
- (plist-get params :attributes)
- '(:border "2" :cellspacing "0" :cellpadding "6" :rules "groups"
- :frame "hsides")))
- params)))
-
-;;;###autoload
-(defun orgtbl-to-texinfo (table params)
- "Convert the orgtbl-mode TABLE to Texinfo.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported. It is also possible to use the following one:
-
-:columns
-
- Column widths, as a string. When providing column fractions,
- \"@columnfractions\" command can be omitted."
- (require 'ox-texinfo)
- (let ((output
- (orgtbl-to-generic
- table
- (org-combine-plists
- (list :backend 'texinfo
- :texinfo-tables-verbatim nil
- :texinfo-table-scientific-notation nil)
- params)))
- (columns (let ((w (plist-get params :columns)))
- (cond ((not w) nil)
- ((string-match-p "{\\|@columnfractions " w) w)
- (t (concat "@columnfractions " w))))))
- (if (not columns) output
- (replace-regexp-in-string
- "@multitable \\(.*\\)" columns output t nil 1))))
-
-;;;###autoload
-(defun orgtbl-to-orgtbl (table params)
- "Convert the orgtbl-mode TABLE into another orgtbl-mode table.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported.
-
-Useful when slicing one table into many. The :hline, :sep,
-:lstart, and :lend provide orgtbl framing. :tstart and :tend can
-be set to provide ORGTBL directives for the generated table."
- (require 'ox-org)
- (orgtbl-to-generic table (org-combine-plists params (list :backend 'org))))
-
-(defun orgtbl-to-table.el (table params)
- "Convert the orgtbl-mode TABLE into a table.el table.
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported."
- (with-temp-buffer
- (insert (orgtbl-to-orgtbl table params))
- (org-table-align)
- (replace-regexp-in-string
- "-|" "-+"
- (replace-regexp-in-string "|-" "+-" (buffer-substring 1 (buffer-size))))))
-
-(defun orgtbl-to-unicode (table params)
- "Convert the orgtbl-mode TABLE into a table with unicode characters.
-
-TABLE is a list, each entry either the symbol `hline' for
-a horizontal separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the
-conversion. All parameters from `orgtbl-to-generic' are
-supported. It is also possible to use the following ones:
-
-:ascii-art
-
- When non-nil, use \"ascii-art-to-unicode\" package to translate
- the table. You can download it here:
- http://gnuvola.org/software/j/aa2u/ascii-art-to-unicode.el.
-
-:narrow
-
- When non-nil, narrow columns width than provided width cookie,
- using \"=>\" as an ellipsis, just like in an Org mode buffer."
- (require 'ox-ascii)
- (orgtbl-to-generic
- table
- (org-combine-plists
- (list :backend 'ascii
- :ascii-charset 'utf-8
- :ascii-table-widen-columns (not (plist-get params :narrow))
- :ascii-table-use-ascii-art (plist-get params :ascii-art))
- params)))
-
-;; Put the cursor in a column containing numerical values
-;; of an Org table,
-;; type C-c " a
-;; A new column is added with a bar plot.
-;; When the table is refreshed (C-u C-c *),
-;; the plot is updated to reflect the new values.
-
-(defun orgtbl-ascii-draw (value min max &optional width characters)
- "Draw an ascii bar in a table.
-VALUE is the value to plot, it determines the width of the bar to draw.
-MIN is the value that will be displayed as empty (zero width bar).
-MAX is the value that will draw a bar filling all the WIDTH.
-WIDTH is the span in characters from MIN to MAX.
-CHARACTERS is a string that will compose the bar, with shades of grey
-from pure white to pure black. It defaults to a 10 characters string
-of regular ascii characters."
- (let* ((width (ceiling (or width 12)))
- (characters (or characters " .:;c!lhVHW"))
- (len (1- (length characters)))
- (value (float (if (numberp value)
- value (string-to-number value))))
- (relative (/ (- value min) (- max min)))
- (steps (round (* relative width len))))
- (cond ((< steps 0) "too small")
- ((> steps (* width len)) "too large")
- (t (let* ((int-division (/ steps len))
- (remainder (- steps (* int-division len))))
- (concat (make-string int-division (elt characters len))
- (string (elt characters remainder))))))))
-
-;;;###autoload
-(defun orgtbl-ascii-plot (&optional ask)
- "Draw an ASCII bar plot in a column.
-
-With cursor in a column containing numerical values, this function
-will draw a plot in a new column.
-
-ASK, if given, is a numeric prefix to override the default 12
-characters width of the plot. ASK may also be the `\\[universal-argument]' \
-prefix,
-which will prompt for the width."
- (interactive "P")
- (let ((col (org-table-current-column))
- (min 1e999) ; 1e999 will be converted to infinity
- (max -1e999) ; which is the desired result
- (table (org-table-to-lisp))
- (length
- (cond ((consp ask)
- (read-number "Length of column " 12))
- ((numberp ask) ask)
- (t 12))))
- ;; Skip any hline a the top of table.
- (while (eq (car table) 'hline) (setq table (cdr table)))
- ;; Skip table header if any.
- (dolist (x (or (cdr (memq 'hline table)) table))
- (when (consp x)
- (setq x (nth (1- col) x))
- (when (string-match
- "^[-+]?\\([0-9]*[.]\\)?[0-9]*\\([eE][+-]?[0-9]+\\)?$"
- x)
- (setq x (string-to-number x))
- (when (> min x) (setq min x))
- (when (< max x) (setq max x)))))
- (org-table-insert-column)
- (org-table-move-column-right)
- (org-table-store-formulas
- (cons
- (cons
- (concat "$" (number-to-string (1+ col)))
- (format "'(%s $%s %s %s %s)"
- "orgtbl-ascii-draw" col min max length))
- (org-table-get-stored-formulas)))
- (org-table-recalculate t)))
-
-;; Example of extension: unicode characters
-;; Here are two examples of different styles.
-
-;; Unicode block characters are used to give a smooth effect.
-;; See http://en.wikipedia.org/wiki/Block_Elements
-;; Use one of those drawing functions
-;; - orgtbl-ascii-draw (the default ascii)
-;; - orgtbl-uc-draw-grid (unicode with a grid effect)
-;; - orgtbl-uc-draw-cont (smooth unicode)
-
-;; This is best viewed with the "DejaVu Sans Mono" font
-;; (use M-x set-frame-font).
-
-(defun orgtbl-uc-draw-grid (value min max &optional width)
- "Draw a bar in a table using block unicode characters.
-It is a variant of orgtbl-ascii-draw with Unicode block
-characters, for a smooth display. Bars appear as grids (to the
-extent the font allows)."
- ;; http://en.wikipedia.org/wiki/Block_Elements
- ;; best viewed with the "DejaVu Sans Mono" font.
- (orgtbl-ascii-draw value min max width
- " \u258F\u258E\u258D\u258C\u258B\u258A\u2589"))
-
-(defun orgtbl-uc-draw-cont (value min max &optional width)
- "Draw a bar in a table using block unicode characters.
-It is a variant of orgtbl-ascii-draw with Unicode block
-characters, for a smooth display. Bars are solid (to the extent
-the font allows)."
- (orgtbl-ascii-draw value min max width
- " \u258F\u258E\u258D\u258C\u258B\u258A\u2589\u2588"))
-
-(defun org-table-get-remote-range (name-or-id form)
- "Get a field value or a list of values in a range from table at ID.
-
-NAME-OR-ID may be the name of a table in the current file as set
-by a \"#+NAME:\" directive. The first table following this line
-will then be used. Alternatively, it may be an ID referring to
-any entry, also in a different file. In this case, the first
-table in that entry will be referenced.
-FORM is a field or range descriptor like \"@2$3\" or \"B3\" or
-\"@I$2..@II$2\". All the references must be absolute, not relative.
-
-The return value is either a single string for a single field, or a
-list of the fields in the rectangle."
- (save-match-data
- (let ((case-fold-search t) (id-loc nil)
- ;; Protect a bunch of variables from being overwritten by
- ;; the context of the remote table.
- org-table-column-names org-table-column-name-regexp
- org-table-local-parameters org-table-named-field-locations
- org-table-current-line-types
- org-table-current-begin-pos org-table-dlines
- org-table-current-ncol
- org-table-hlines org-table-last-alignment
- org-table-last-column-widths org-table-last-alignment
- org-table-last-column-widths
- buffer loc)
- (setq form (org-table-convert-refs-to-rc form))
- (org-with-wide-buffer
- (goto-char (point-min))
- (if (re-search-forward
- (concat "^[ \t]*#\\+\\(tbl\\)?name:[ \t]*"
- (regexp-quote name-or-id) "[ \t]*$")
- nil t)
- (setq buffer (current-buffer) loc (match-beginning 0))
- (setq id-loc (org-id-find name-or-id 'marker))
- (unless (and id-loc (markerp id-loc))
- (user-error "Can't find remote table \"%s\"" name-or-id))
- (setq buffer (marker-buffer id-loc)
- loc (marker-position id-loc))
- (move-marker id-loc nil))
- (with-current-buffer buffer
- (org-with-wide-buffer
- (goto-char loc)
- (forward-char 1)
- (unless (and (re-search-forward "^\\(\\*+ \\)\\|^[ \t]*|" nil t)
- (not (match-beginning 1)))
- (user-error "Cannot find a table at NAME or ID %s" name-or-id))
- (org-table-analyze)
- (setq form (org-table-formula-substitute-names
- (org-table-formula-handle-first/last-rc form)))
- (if (and (string-match org-table-range-regexp form)
- (> (length (match-string 0 form)) 1))
- (org-table-get-range
- (match-string 0 form) org-table-current-begin-pos 1)
- form)))))))
-
-(defun org-table-remote-reference-indirection (form)
- "Return formula with table remote references substituted by indirection.
-For example \"remote($1, @>$2)\" => \"remote(year_2013, @>$1)\".
-This indirection works only with the format @ROW$COLUMN. The
-format \"B3\" is not supported because it can not be
-distinguished from a plain table name or ID."
- (let ((regexp
- ;; Same as in `org-table-eval-formula'.
- (concat "\\<remote([ \t]*\\("
- ;; Allow "$1", "@<", "$-1", "@<<$1" etc.
- "[@$][^ \t,]+"
- "\\)[ \t]*,[ \t]*\\([^\n)]+\\))")))
- (replace-regexp-in-string
- regexp
- (lambda (m)
- (save-match-data
- (let ((eq (org-table-formula-handle-first/last-rc (match-string 1 m))))
- (org-table-get-range
- (if (string-match-p "\\`\\$[0-9]+\\'" eq)
- (concat "@0" eq)
- eq)))))
- form t t 1)))
-
-(defmacro org-define-lookup-function (mode)
- (let ((mode-str (symbol-name mode))
- (first-p (eq mode 'first))
- (all-p (eq mode 'all)))
- (let ((plural-str (if all-p "s" "")))
- `(defun ,(intern (format "org-lookup-%s" mode-str)) (val s-list r-list &optional predicate)
- ,(format "Find %s occurrence%s of VAL in S-LIST; return corresponding element%s of R-LIST.
-If R-LIST is nil, return matching element%s of S-LIST.
-If PREDICATE is not nil, use it instead of `equal' to match VAL.
-Matching is done by (PREDICATE VAL S), where S is an element of S-LIST.
-This function is generated by a call to the macro `org-define-lookup-function'."
- mode-str plural-str plural-str plural-str)
- (let ,(let ((lvars '((p (or predicate 'equal))
- (sl s-list)
- (rl (or r-list s-list))
- (ret nil))))
- (if first-p (cons '(match-p nil) lvars) lvars))
- (while ,(if first-p '(and (not match-p) sl) 'sl)
- (when (funcall p val (car sl))
- ,(when first-p '(setq match-p t))
- (let ((rval (car rl)))
- (setq ret ,(if all-p '(append ret (list rval)) 'rval))))
- (setq sl (cdr sl) rl (cdr rl)))
- ret)))))
-
-(org-define-lookup-function first)
-(org-define-lookup-function last)
-(org-define-lookup-function all)
-
-(provide 'org-table)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-table.el ends here
diff --git a/elpa/org-9.1.14/org-table.elc b/elpa/org-9.1.14/org-table.elc
deleted file mode 100644
index aba2148..0000000
--- a/elpa/org-9.1.14/org-table.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-timer.el b/elpa/org-9.1.14/org-timer.el
deleted file mode 100644
index d840944..0000000
--- a/elpa/org-9.1.14/org-timer.el
+++ /dev/null
@@ -1,509 +0,0 @@
-;;; org-timer.el --- Timer code for Org mode -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2008-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements two types of timers for Org buffers:
-;;
-;; - A relative timer that counts up (from 0 or a specified offset)
-;; - A countdown timer that counts down from a specified time
-;;
-;; The relative and countdown timers differ in their entry points.
-;; Use `org-timer' or `org-timer-start' to start the relative timer,
-;; and `org-timer-set-timer' to start the countdown timer.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'org-clock)
-
-(declare-function org-agenda-error "org-agenda" ())
-
-(defvar org-timer-start-time nil
- "t=0 for the running timer.")
-
-(defvar org-timer-pause-time nil
- "Time when the timer was paused.")
-
-(defvar org-timer-countdown-timer nil
- "Current countdown timer.
-This is a timer object if there is an active countdown timer,
-`paused' if there is a paused countdown timer, and nil
-otherwise.")
-
-(defvar org-timer-countdown-timer-title nil
- "Title for notification displayed when a countdown finishes.")
-
-(defconst org-timer-re "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)"
- "Regular expression used to match timer stamps.")
-
-(defcustom org-timer-format "%s "
- "The format to insert the time of the timer.
-This format must contain one instance of \"%s\" which will be replaced by
-the value of the timer."
- :group 'org-time
- :type 'string)
-
-(defcustom org-timer-default-timer "0"
- "The default timer when a timer is set, in minutes or hh:mm:ss format.
-When 0, the user is prompted for a value."
- :group 'org-time
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'string)
-
-(defcustom org-timer-display 'mode-line
- "Define where running timer is displayed, if at all.
-When a timer is running, Org can display it in the mode line
-and/or frame title. Allowed values are:
-
-both displays in both mode line and frame title
-mode-line displays only in mode line (default)
-frame-title displays only in frame title
-nil current timer is not displayed"
- :group 'org-time
- :type '(choice
- (const :tag "Mode line" mode-line)
- (const :tag "Frame title" frame-title)
- (const :tag "Both" both)
- (const :tag "None" nil)))
-
-(defvar org-timer-start-hook nil
- "Hook run after relative timer is started.")
-
-(defvar org-timer-stop-hook nil
- "Hook run before relative or countdown timer is stopped.")
-
-(defvar org-timer-pause-hook nil
- "Hook run before relative or countdown timer is paused.")
-
-(defvar org-timer-continue-hook nil
- "Hook run after relative or countdown timer is continued.")
-
-(defvar org-timer-set-hook nil
- "Hook run after countdown timer is set.")
-
-(defvar org-timer-done-hook nil
- "Hook run after countdown timer reaches zero.")
-
-;;;###autoload
-(defun org-timer-start (&optional offset)
- "Set the starting time for the relative timer to now.
-When called with prefix argument OFFSET, prompt the user for an offset time,
-with the default taken from a timer stamp at point, if any.
-If OFFSET is a string or an integer, it is directly taken to be the offset
-without user interaction.
-When called with a double prefix arg, all timer strings in the active
-region will be shifted by a specific amount. You will be prompted for
-the amount, with the default to make the first timer string in
-the region 0:00:00."
- (interactive "P")
- (cond
- ((equal offset '(16))
- (call-interactively 'org-timer-change-times-in-region))
- (org-timer-countdown-timer
- (user-error "Countdown timer is running. Cancel first"))
- (t
- (let (delta def s)
- (if (not offset)
- (setq org-timer-start-time (current-time))
- (cond
- ((integerp offset) (setq delta offset))
- ((stringp offset) (setq delta (org-timer-hms-to-secs offset)))
- (t
- (setq def (if (org-in-regexp org-timer-re)
- (match-string 0)
- "0:00:00")
- s (read-string
- (format "Restart timer with offset [%s]: " def)))
- (unless (string-match "\\S-" s) (setq s def))
- (setq delta (org-timer-hms-to-secs (org-timer-fix-incomplete s)))))
- (setq org-timer-start-time
- (seconds-to-time
- ;; Pass `current-time' result to `float-time' (instead
- ;; of calling without arguments) so that only
- ;; `current-time' has to be overridden in tests.
- (- (float-time (current-time)) delta))))
- (setq org-timer-pause-time nil)
- (org-timer-set-mode-line 'on)
- (message "Timer start time set to %s, current value is %s"
- (format-time-string "%T" org-timer-start-time)
- (org-timer-secs-to-hms (or delta 0)))
- (run-hooks 'org-timer-start-hook)))))
-
-(defun org-timer-pause-or-continue (&optional stop)
- "Pause or continue the relative or countdown timer.
-With prefix arg STOP, stop it entirely."
- (interactive "P")
- (cond
- (stop (org-timer-stop))
- ((not org-timer-start-time) (error "No timer is running"))
- (org-timer-pause-time
- (let ((start-secs (float-time org-timer-start-time))
- (pause-secs (float-time org-timer-pause-time)))
- (if org-timer-countdown-timer
- (let ((new-secs (- start-secs pause-secs)))
- (setq org-timer-countdown-timer
- (org-timer--run-countdown-timer
- new-secs org-timer-countdown-timer-title))
- (setq org-timer-start-time
- (time-add (current-time) (seconds-to-time new-secs))))
- (setq org-timer-start-time
- ;; Pass `current-time' result to `float-time' (instead
- ;; of calling without arguments) so that only
- ;; `current-time' has to be overridden in tests.
- (seconds-to-time (- (float-time (current-time))
- (- pause-secs start-secs)))))
- (setq org-timer-pause-time nil)
- (org-timer-set-mode-line 'on)
- (run-hooks 'org-timer-continue-hook)
- (message "Timer continues at %s" (org-timer-value-string))))
- (t
- ;; pause timer
- (when org-timer-countdown-timer
- (cancel-timer org-timer-countdown-timer)
- (setq org-timer-countdown-timer 'paused))
- (run-hooks 'org-timer-pause-hook)
- (setq org-timer-pause-time (current-time))
- (org-timer-set-mode-line 'paused)
- (message "Timer paused at %s" (org-timer-value-string)))))
-
-(defun org-timer-stop ()
- "Stop the relative or countdown timer."
- (interactive)
- (unless org-timer-start-time
- (user-error "No timer running"))
- (when (timerp org-timer-countdown-timer)
- (cancel-timer org-timer-countdown-timer))
- (run-hooks 'org-timer-stop-hook)
- (setq org-timer-start-time nil
- org-timer-pause-time nil
- org-timer-countdown-timer nil)
- (org-timer-set-mode-line 'off)
- (message "Timer stopped"))
-
-;;;###autoload
-(defun org-timer (&optional restart no-insert)
- "Insert a H:MM:SS string from the timer into the buffer.
-The first time this command is used, the timer is started.
-
-When used with a `\\[universal-argument]' prefix, force restarting the timer.
-
-When used with a `\\[universal-argument] \\[universal-argument]' \
-prefix, change all the timer strings
-in the region by a fixed amount. This can be used to re-calibrate
-a timer that was not started at the correct moment.
-
-If NO-INSERT is non-nil, return the string instead of inserting
-it in the buffer."
- (interactive "P")
- (if (equal restart '(16))
- (org-timer-start restart)
- (when (or (equal restart '(4)) (not org-timer-start-time))
- (org-timer-start))
- (if no-insert
- (org-timer-value-string)
- (insert (org-timer-value-string)))))
-
-(defun org-timer-value-string ()
- "Set the timer string."
- (format org-timer-format
- (org-timer-secs-to-hms
- (abs (floor (org-timer-seconds))))))
-
-(defun org-timer-seconds ()
- ;; Pass `current-time' result to `float-time' (instead of calling
- ;; without arguments) so that only `current-time' has to be
- ;; overridden in tests.
- (if org-timer-countdown-timer
- (- (float-time org-timer-start-time)
- (float-time (or org-timer-pause-time (current-time))))
- (- (float-time (or org-timer-pause-time (current-time)))
- (float-time org-timer-start-time))))
-
-;;;###autoload
-(defun org-timer-change-times-in-region (beg end delta)
- "Change all h:mm:ss time in region by a DELTA."
- (interactive
- "r\nsEnter time difference like \"-1:08:26\". Default is first time to zero: ")
- (let ((re "[-+]?[0-9]+:[0-9]\\{2\\}:[0-9]\\{2\\}") p)
- (unless (string-match "\\S-" delta)
- (save-excursion
- (goto-char beg)
- (when (re-search-forward re end t)
- (setq delta (match-string 0))
- (if (equal (string-to-char delta) ?-)
- (setq delta (substring delta 1))
- (setq delta (concat "-" delta))))))
- (setq delta (org-timer-hms-to-secs (org-timer-fix-incomplete delta)))
- (when (= delta 0) (error "No change"))
- (save-excursion
- (goto-char end)
- (while (re-search-backward re beg t)
- (setq p (point))
- (replace-match
- (save-match-data
- (org-timer-secs-to-hms (+ (org-timer-hms-to-secs (match-string 0)) delta)))
- t t)
- (goto-char p)))))
-
-;;;###autoload
-(defun org-timer-item (&optional arg)
- "Insert a description-type item with the current timer value."
- (interactive "P")
- (let ((itemp (org-in-item-p)) (pos (point)))
- (cond
- ;; In a timer list, insert with `org-list-insert-item',
- ;; then fix the list.
- ((and itemp (goto-char itemp) (org-at-item-timer-p))
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (s (concat (org-timer (when arg '(4)) t) ":: ")))
- (setq struct (org-list-insert-item pos struct prevs nil s))
- (org-list-write-struct struct (org-list-parents-alist struct))
- (looking-at org-list-full-item-re)
- (goto-char (match-end 0))))
- ;; In a list of another type, don't break anything: throw an error.
- (itemp (goto-char pos) (error "This is not a timer list"))
- ;; Else, start a new list.
- (t
- (beginning-of-line)
- (org-indent-line)
- (insert "- ")
- (org-timer (when arg '(4)))
- (insert ":: ")))))
-
-(defun org-timer-fix-incomplete (hms)
- "If hms is a H:MM:SS string with missing hour or hour and minute, fix it."
- (if (string-match "\\(?:\\([0-9]+:\\)?\\([0-9]+:\\)\\)?\\([0-9]+\\)" hms)
- (replace-match
- (format "%d:%02d:%02d"
- (if (match-end 1) (string-to-number (match-string 1 hms)) 0)
- (if (match-end 2) (string-to-number (match-string 2 hms)) 0)
- (string-to-number (match-string 3 hms)))
- t t hms)
- (error "Cannot parse HMS string \"%s\"" hms)))
-
-(defun org-timer-hms-to-secs (hms)
- "Convert h:mm:ss string to an integer time.
-If the string starts with a minus sign, the integer will be negative."
- (if (not (string-match
- "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)"
- hms))
- 0
- (let* ((h (string-to-number (match-string 1 hms)))
- (m (string-to-number (match-string 2 hms)))
- (s (string-to-number (match-string 3 hms)))
- (sign (equal (substring (match-string 1 hms) 0 1) "-")))
- (setq h (abs h))
- (* (if sign -1 1) (+ s (* 60 (+ m (* 60 h))))))))
-
-(defun org-timer-secs-to-hms (s)
- "Convert integer S into h:mm:ss.
-If the integer is negative, the string will start with \"-\"."
- (let (sign m h)
- (setq sign (if (< s 0) "-" "")
- s (abs s)
- m (/ s 60) s (- s (* 60 m))
- h (/ m 60) m (- m (* 60 h)))
- (format "%s%d:%02d:%02d" sign h m s)))
-
-(defvar org-timer-mode-line-timer nil)
-(defvar org-timer-mode-line-string nil)
-
-(defun org-timer-set-mode-line (value)
- "Set the mode-line display for relative or countdown timer.
-VALUE can be `on', `off', or `paused'."
- (when (or (eq org-timer-display 'mode-line)
- (eq org-timer-display 'both))
- (or global-mode-string (setq global-mode-string '("")))
- (or (memq 'org-timer-mode-line-string global-mode-string)
- (setq global-mode-string
- (append global-mode-string '(org-timer-mode-line-string)))))
- (when (or (eq org-timer-display 'frame-title)
- (eq org-timer-display 'both))
- (or (memq 'org-timer-mode-line-string frame-title-format)
- (setq frame-title-format
- (append frame-title-format '(org-timer-mode-line-string)))))
- (cl-case value
- (off
- (when org-timer-mode-line-timer
- (cancel-timer org-timer-mode-line-timer)
- (setq org-timer-mode-line-timer nil))
- (when (or (eq org-timer-display 'mode-line)
- (eq org-timer-display 'both))
- (setq global-mode-string
- (delq 'org-timer-mode-line-string global-mode-string)))
- (when (or (eq org-timer-display 'frame-title)
- (eq org-timer-display 'both))
- (setq frame-title-format
- (delq 'org-timer-mode-line-string frame-title-format)))
- (force-mode-line-update))
- (paused
- (when org-timer-mode-line-timer
- (cancel-timer org-timer-mode-line-timer)
- (setq org-timer-mode-line-timer nil)))
- (on
- (when (or (eq org-timer-display 'mode-line)
- (eq org-timer-display 'both))
- (or global-mode-string (setq global-mode-string '("")))
- (or (memq 'org-timer-mode-line-string global-mode-string)
- (setq global-mode-string
- (append global-mode-string '(org-timer-mode-line-string)))))
- (when (or (eq org-timer-display 'frame-title)
- (eq org-timer-display 'both))
- (or (memq 'org-timer-mode-line-string frame-title-format)
- (setq frame-title-format
- (append frame-title-format '(org-timer-mode-line-string)))))
- (org-timer-update-mode-line)
- (when org-timer-mode-line-timer
- (cancel-timer org-timer-mode-line-timer)
- (setq org-timer-mode-line-timer nil))
- (when org-timer-display
- (setq org-timer-mode-line-timer
- (run-with-timer 1 1 'org-timer-update-mode-line))))))
-
-(defun org-timer-update-mode-line ()
- "Update the timer time in the mode line."
- (if org-timer-pause-time
- nil
- (setq org-timer-mode-line-string
- (concat " <" (substring (org-timer-value-string) 0 -1) ">"))
- (force-mode-line-update)))
-
-(defun org-timer-show-remaining-time ()
- "Display the remaining time before the timer ends."
- (interactive)
- (require 'time)
- (if (not org-timer-countdown-timer)
- (message "No timer set")
- (let* ((rtime (decode-time
- (time-subtract (timer--time org-timer-countdown-timer)
- (current-time))))
- (rsecs (nth 0 rtime))
- (rmins (nth 1 rtime)))
- (message "%d minute(s) %d seconds left before next time out"
- rmins rsecs))))
-
-;;;###autoload
-(defun org-timer-set-timer (&optional opt)
- "Prompt for a duration in minutes or hh:mm:ss and set a timer.
-
-If `org-timer-default-timer' is not \"0\", suggest this value as
-the default duration for the timer. If a timer is already set,
-prompt the user if she wants to replace it.
-
-Called with a numeric prefix argument, use this numeric value as
-the duration of the timer in minutes.
-
-Called with a `C-u' prefix arguments, use `org-timer-default-timer'
-without prompting the user for a duration.
-
-With two `C-u' prefix arguments, use `org-timer-default-timer'
-without prompting the user for a duration and automatically
-replace any running timer.
-
-By default, the timer duration will be set to the number of
-minutes in the Effort property, if any. You can ignore this by
-using three `C-u' prefix arguments."
- (interactive "P")
- (when (and org-timer-start-time
- (not org-timer-countdown-timer))
- (user-error "Relative timer is running. Stop first"))
- (let* ((default-timer
- ;; `org-timer-default-timer' used to be a number, don't choke:
- (if (numberp org-timer-default-timer)
- (number-to-string org-timer-default-timer)
- org-timer-default-timer))
- (effort-minutes (ignore-errors (floor (org-get-at-eol 'effort-minutes 1))))
- (minutes (or (and (numberp opt) (number-to-string opt))
- (and (not (equal opt '(64)))
- effort-minutes
- (number-to-string effort-minutes))
- (and (consp opt) default-timer)
- (and (stringp opt) opt)
- (read-from-minibuffer
- "How much time left? (minutes or h:mm:ss) "
- (and (not (string-equal default-timer "0")) default-timer)))))
- (when (string-match "\\`[0-9]+\\'" minutes)
- (setq minutes (concat minutes ":00")))
- (if (not (string-match "[0-9]+" minutes))
- (org-timer-show-remaining-time)
- (let ((secs (org-timer-hms-to-secs (org-timer-fix-incomplete minutes))))
- (if (and org-timer-countdown-timer
- (not (or (equal opt '(16))
- (y-or-n-p "Replace current timer? "))))
- (message "No timer set")
- (when (timerp org-timer-countdown-timer)
- (cancel-timer org-timer-countdown-timer))
- (setq org-timer-countdown-timer-title
- (org-timer--get-timer-title))
- (setq org-timer-countdown-timer
- (org-timer--run-countdown-timer
- secs org-timer-countdown-timer-title))
- (run-hooks 'org-timer-set-hook)
- (setq org-timer-start-time
- (time-add (current-time) (seconds-to-time secs)))
- (setq org-timer-pause-time nil)
- (org-timer-set-mode-line 'on))))))
-
-(defun org-timer--run-countdown-timer (secs title)
- "Start countdown timer that will last SECS.
-TITLE will be appended to the notification message displayed when
-time is up."
- (let ((msg (format "%s: time out" title)))
- (run-with-timer
- secs nil `(lambda ()
- (setq org-timer-countdown-timer nil
- org-timer-start-time nil)
- (org-notify ,msg ,org-clock-sound)
- (org-timer-set-mode-line 'off)
- (run-hooks 'org-timer-done-hook)))))
-
-(defun org-timer--get-timer-title ()
- "Construct timer title from heading or file name of Org buffer."
- (cond
- ((derived-mode-p 'org-agenda-mode)
- (let* ((marker (or (get-text-property (point) 'org-marker)
- (org-agenda-error)))
- (hdmarker (or (get-text-property (point) 'org-hd-marker)
- marker)))
- (with-current-buffer (marker-buffer marker)
- (org-with-wide-buffer
- (goto-char hdmarker)
- (org-show-entry)
- (or (ignore-errors (org-get-heading))
- (buffer-name (buffer-base-buffer)))))))
- ((derived-mode-p 'org-mode)
- (or (ignore-errors (org-get-heading))
- (buffer-name (buffer-base-buffer))))
- (t (error "Not in an Org buffer"))))
-
-(provide 'org-timer)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; org-timer.el ends here
diff --git a/elpa/org-9.1.14/org-timer.elc b/elpa/org-9.1.14/org-timer.elc
deleted file mode 100644
index c9eec33..0000000
--- a/elpa/org-9.1.14/org-timer.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org-version.el b/elpa/org-9.1.14/org-version.el
deleted file mode 100644
index e62ba65..0000000
--- a/elpa/org-9.1.14/org-version.el
+++ /dev/null
@@ -1,27 +0,0 @@
-;;; org-version.el --- autogenerated file, do not edit
-;;
-;;; Code:
-;;;###autoload
-(defun org-release ()
- "The release version of Org.
-Inserted by installing Org mode or when a release is made."
- (let ((org-release "9.1.14"))
- org-release))
-;;;###autoload
-(defun org-git-version ()
- "The Git version of Org mode.
-Inserted by installing Org or when a release is made."
- (let ((org-git-version "9.1.14-1-g4931fc-elpa"))
- org-git-version))
-;;;###autoload
-(defvar org-odt-data-dir "/usr/share/emacs/etc/org"
- "The location of ODT styles.")
-
-(provide 'org-version)
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; coding: utf-8
-;; End:
-;;; org-version.el ends here
diff --git a/elpa/org-9.1.14/org-w3m.el b/elpa/org-9.1.14/org-w3m.el
deleted file mode 100644
index b2dfc77..0000000
--- a/elpa/org-9.1.14/org-w3m.el
+++ /dev/null
@@ -1,184 +0,0 @@
-;;; org-w3m.el --- Support from Copy and Paste From w3m -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2008-2018 Free Software Foundation, Inc.
-
-;; Author: Andy Stewart <lazycat dot manatee at gmail dot com>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;;
-;; This file is part of GNU Emacs.
-;;
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but 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 <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-
-;; This file implements copying HTML content from a w3m buffer and
-;; transforming the text on the fly so that it can be pasted into an
-;; Org buffer with hot links. It will also work for regions in gnus
-;; buffers that have been washed with w3m.
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Acknowledgments:
-
-;; Richard Riley <rileyrgdev at googlemail dot com>
-;;
-;; The idea of transforming the HTML content with Org syntax is
-;; proposed by Richard, I'm just coding it.
-;;
-
-;;; Code:
-
-(require 'org)
-
-(defvar w3m-current-url)
-(defvar w3m-current-title)
-
-(org-link-set-parameters "w3m" :store #'org-w3m-store-link)
-(defun org-w3m-store-link ()
- "Store a link to a w3m buffer."
- (when (eq major-mode 'w3m-mode)
- (org-store-link-props
- :type "w3m"
- :link w3m-current-url
- :url (url-view-url t)
- :description (or w3m-current-title w3m-current-url))))
-
-(defun org-w3m-copy-for-org-mode ()
- "Copy current buffer content or active region with Org style links.
-This will encode `link-title' and `link-location' with
-`org-make-link-string', and insert the transformed test into the kill ring,
-so that it can be yanked into an Org buffer with links working correctly."
- (interactive)
- (let* ((regionp (org-region-active-p))
- (transform-start (point-min))
- (transform-end (point-max))
- return-content
- link-location link-title
- temp-position out-bound)
- (when regionp
- (setq transform-start (region-beginning))
- (setq transform-end (region-end))
- ;; Deactivate mark if current mark is activate.
- (if (fboundp 'deactivate-mark) (deactivate-mark)))
- (message "Transforming links...")
- (save-excursion
- (goto-char transform-start)
- (while (and (not out-bound) ; still inside region to copy
- (not (org-w3m-no-next-link-p))) ; no next link current buffer
- ;; store current point before jump next anchor
- (setq temp-position (point))
- ;; move to next anchor when current point is not at anchor
- (or (get-text-property (point) 'w3m-href-anchor) (org-w3m-get-next-link-start))
- (if (<= (point) transform-end) ; if point is inside transform bound
- (progn
- ;; get content between two links.
- (if (> (point) temp-position)
- (setq return-content (concat return-content
- (buffer-substring
- temp-position (point)))))
- ;; get link location at current point.
- (setq link-location (get-text-property (point) 'w3m-href-anchor))
- ;; get link title at current point.
- (setq link-title (buffer-substring (point)
- (org-w3m-get-anchor-end)))
- ;; concat Org style url to `return-content'.
- (setq return-content
- (concat return-content
- (if (org-string-nw-p link-location)
- (org-make-link-string link-location link-title)
- link-title))))
- (goto-char temp-position) ; reset point before jump next anchor
- (setq out-bound t))) ; for break out `while' loop
- ;; add the rest until end of the region to be copied
- (if (< (point) transform-end)
- (setq return-content
- (concat return-content
- (buffer-substring (point) transform-end))))
- (org-kill-new return-content)
- (message "Transforming links...done, use C-y to insert text into Org file")
- (message "Copy with link transformation complete."))))
-
-(defun org-w3m-get-anchor-start ()
- "Move cursor to the start of current anchor. Return point."
- ;; get start position of anchor or current point
- (goto-char (or (previous-single-property-change (point) 'w3m-anchor-sequence)
- (point))))
-
-(defun org-w3m-get-anchor-end ()
- "Move cursor to the end of current anchor. Return point."
- ;; get end position of anchor or point
- (goto-char (or (next-single-property-change (point) 'w3m-anchor-sequence)
- (point))))
-
-(defun org-w3m-get-next-link-start ()
- "Move cursor to the start of next link. Return point."
- (catch 'reach
- (while (next-single-property-change (point) 'w3m-anchor-sequence)
- ;; jump to next anchor
- (goto-char (next-single-property-change (point) 'w3m-anchor-sequence))
- (when (get-text-property (point) 'w3m-href-anchor)
- ;; return point when current is valid link
- (throw 'reach nil))))
- (point))
-
-(defun org-w3m-get-prev-link-start ()
- "Move cursor to the start of previous link. Return point."
- (catch 'reach
- (while (previous-single-property-change (point) 'w3m-anchor-sequence)
- ;; jump to previous anchor
- (goto-char (previous-single-property-change (point) 'w3m-anchor-sequence))
- (when (get-text-property (point) 'w3m-href-anchor)
- ;; return point when current is valid link
- (throw 'reach nil))))
- (point))
-
-(defun org-w3m-no-next-link-p ()
- "Whether there is no next link after the cursor.
-Return t if there is no next link; otherwise, return nil."
- (save-excursion
- (equal (point) (org-w3m-get-next-link-start))))
-
-(defun org-w3m-no-prev-link-p ()
- "Whether there is no previous link after the cursor.
-Return t if there is no previous link; otherwise, return nil."
- (save-excursion
- (equal (point) (org-w3m-get-prev-link-start))))
-
-;; Install keys into the w3m keymap
-(defvar w3m-mode-map)
-(defvar w3m-minor-mode-map)
-(when (and (boundp 'w3m-mode-map)
- (keymapp w3m-mode-map))
- (define-key w3m-mode-map "\C-c\C-x\M-w" 'org-w3m-copy-for-org-mode)
- (define-key w3m-mode-map "\C-c\C-x\C-w" 'org-w3m-copy-for-org-mode))
-(when (and (boundp 'w3m-minor-mode-map)
- (keymapp w3m-minor-mode-map))
- (define-key w3m-minor-mode-map "\C-c\C-x\M-w" 'org-w3m-copy-for-org-mode)
- (define-key w3m-minor-mode-map "\C-c\C-x\C-w" 'org-w3m-copy-for-org-mode))
-(add-hook
- 'w3m-mode-hook
- (lambda ()
- (define-key w3m-mode-map "\C-c\C-x\M-w" 'org-w3m-copy-for-org-mode)
- (define-key w3m-mode-map "\C-c\C-x\C-w" 'org-w3m-copy-for-org-mode)))
-(add-hook
- 'w3m-minor-mode-hook
- (lambda ()
- (define-key w3m-minor-mode-map "\C-c\C-x\M-w" 'org-w3m-copy-for-org-mode)
- (define-key w3m-minor-mode-map "\C-c\C-x\C-w" 'org-w3m-copy-for-org-mode)))
-
-(provide 'org-w3m)
-
-;;; org-w3m.el ends here
diff --git a/elpa/org-9.1.14/org-w3m.elc b/elpa/org-9.1.14/org-w3m.elc
deleted file mode 100644
index bda54bb..0000000
--- a/elpa/org-9.1.14/org-w3m.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/org.el b/elpa/org-9.1.14/org.el
deleted file mode 100644
index 2cc9b6a..0000000
--- a/elpa/org-9.1.14/org.el
+++ /dev/null
@@ -1,24947 +0,0 @@
-;;; org.el --- Outline-based notes management and organizer -*- lexical-binding: t; -*-
-
-;; Carstens outline-mode for keeping track of everything.
-;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://orgmode.org
-;; Version: 9.1.14
-;;
-;; This file is part of GNU Emacs.
-;;
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-;;
-;;; Commentary:
-;;
-;; Org is a mode for keeping notes, maintaining ToDo lists, and doing
-;; project planning with a fast and effective plain-text system.
-;;
-;; Org mode develops organizational tasks around NOTES files that
-;; contain information about projects as plain text. Org mode is
-;; implemented on top of outline-mode, which makes it possible to keep
-;; the content of large files well structured. Visibility cycling and
-;; structure editing help to work with the tree. Tables are easily
-;; created with a built-in table editor. Org mode supports ToDo
-;; items, deadlines, time stamps, and scheduling. It dynamically
-;; compiles entries into an agenda that utilizes and smoothly
-;; integrates much of the Emacs calendar and diary. Plain text
-;; URL-like links connect to websites, emails, Usenet messages, BBDB
-;; entries, and any files related to the projects. For printing and
-;; sharing of notes, an Org file can be exported as a structured ASCII
-;; file, as HTML, or (todo and agenda items only) as an iCalendar
-;; file. It can also serve as a publishing tool for a set of linked
-;; webpages.
-;;
-;; Installation and Activation
-;; ---------------------------
-;; See the corresponding sections in the manual at
-;;
-;; https://orgmode.org/org.html#Installation
-;;
-;; Documentation
-;; -------------
-;; The documentation of Org mode can be found in the TeXInfo file. The
-;; distribution also contains a PDF version of it. At the homepage of
-;; Org mode, you can read the same text online as HTML. There is also an
-;; excellent reference card made by Philip Rooke. This card can be found
-;; in the doc/ directory.
-;;
-;; A list of recent changes can be found at
-;; https://orgmode.org/Changes.html
-;;
-;;; Code:
-
-(defvar org-inhibit-highlight-removal nil) ; dynamically scoped param
-(defvar-local org-table-formula-constants-local nil
- "Local version of `org-table-formula-constants'.")
-
-;;;; Require other packages
-
-(require 'cl-lib)
-
-(eval-when-compile (require 'gnus-sum))
-
-(require 'calendar)
-(require 'find-func)
-(require 'format-spec)
-
-(or (eq this-command 'eval-buffer)
- (condition-case nil
- (load (concat (file-name-directory load-file-name)
- "org-loaddefs.el")
- nil t t t)
- (error
- (message "WARNING: No org-loaddefs.el file could be found from where org.el is loaded.")
- (sit-for 3)
- (message "You need to run \"make\" or \"make autoloads\" from Org lisp directory")
- (sit-for 3))))
-
-(require 'org-macs)
-(require 'org-compat)
-
-;; `org-outline-regexp' ought to be a defconst but is let-bound in
-;; some places -- e.g. see the macro `org-with-limited-levels'.
-;;
-;; In Org buffers, the value of `outline-regexp' is that of
-;; `org-outline-regexp'. The only function still directly relying on
-;; `outline-regexp' is `org-overview' so that `org-cycle' can do its
-;; job when `orgstruct-mode' is active.
-(defvar org-outline-regexp "\\*+ "
- "Regexp to match Org headlines.")
-
-(defvar org-outline-regexp-bol "^\\*+ "
- "Regexp to match Org headlines.
-This is similar to `org-outline-regexp' but additionally makes
-sure that we are at the beginning of the line.")
-
-(defvar org-heading-regexp "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ \t]*$"
- "Matches a headline, putting stars and text into groups.
-Stars are put in group 1 and the trimmed body in group 2.")
-
-(declare-function calendar-check-holidays "holidays" (date))
-(declare-function cdlatex-environment "ext:cdlatex" (environment item))
-(declare-function isearch-no-upper-case-p "isearch" (string regexp-flag))
-(declare-function org-add-archive-files "org-archive" (files))
-(declare-function org-agenda-entry-get-agenda-timestamp "org-agenda" (pom))
-(declare-function org-agenda-list "org-agenda" (&optional arg start-day span with-hour))
-(declare-function org-agenda-redo "org-agenda" (&optional all))
-(declare-function org-babel-do-in-edit-buffer "ob-core" (&rest body) t)
-(declare-function org-babel-tangle-file "ob-tangle" (file &optional target-file lang))
-(declare-function org-beamer-mode "ox-beamer" (&optional prefix) t)
-(declare-function org-clock-get-last-clock-out-time "org-clock" ())
-(declare-function org-clock-out "org-clock" (&optional switch-to-state fail-quietly at-time))
-(declare-function org-clock-remove-overlays "org-clock" (&optional beg end noremove))
-(declare-function org-clock-sum "org-clock" (&optional tstart tend headline-filter propname))
-(declare-function org-clock-sum-current-item "org-clock" (&optional tstart))
-(declare-function org-clock-timestamps-down "org-clock" (&optional n))
-(declare-function org-clock-timestamps-up "org-clock" (&optional n))
-(declare-function org-clock-update-time-maybe "org-clock" ())
-(declare-function org-clocking-buffer "org-clock" ())
-(declare-function org-clocktable-shift "org-clock" (dir n))
-(declare-function
- org-duration-from-minutes "org-duration" (minutes &optional fmt canonical))
-(declare-function org-element-at-point "org-element" ())
-(declare-function org-element-cache-refresh "org-element" (pos))
-(declare-function org-element-cache-reset "org-element" (&optional all))
-(declare-function org-element-contents "org-element" (element))
-(declare-function org-element-context "org-element" (&optional element))
-(declare-function org-element-copy "org-element" (datum))
-(declare-function org-element-interpret-data "org-element" (data))
-(declare-function org-element-lineage "org-element" (blob &optional types with-self))
-(declare-function org-element-link-parser "org-element" ())
-(declare-function org-element-nested-p "org-element" (elem-a elem-b))
-(declare-function org-element-parse-buffer "org-element" (&optional granularity visible-only))
-(declare-function org-element-property "org-element" (property element))
-(declare-function org-element-put-property "org-element" (element property value))
-(declare-function org-element-swap-A-B "org-element" (elem-a elem-b))
-(declare-function org-element-type "org-element" (element))
-(declare-function org-element-update-syntax "org-element" ())
-(declare-function org-id-find-id-file "org-id" (id))
-(declare-function org-id-get-create "org-id" (&optional force))
-(declare-function org-inlinetask-at-task-p "org-inlinetask" ())
-(declare-function org-inlinetask-outline-regexp "org-inlinetask" ())
-(declare-function org-inlinetask-toggle-visibility "org-inlinetask" ())
-(declare-function org-plot/gnuplot "org-plot" (&optional params))
-(declare-function org-table-align "org-table" ())
-(declare-function org-table-begin "org-table" (&optional table-type))
-(declare-function org-table-beginning-of-field "org-table" (&optional n))
-(declare-function org-table-blank-field "org-table" ())
-(declare-function org-table-calc-current-TBLFM "org-table" (&optional arg))
-(declare-function org-table-copy-region "org-table" (beg end &optional cut))
-(declare-function org-table-cut-region "org-table" (beg end))
-(declare-function org-table-edit-field "org-table" (arg))
-(declare-function org-table-end "org-table" (&optional table-type))
-(declare-function org-table-end-of-field "org-table" (&optional n))
-(declare-function org-table-insert-row "org-table" (&optional arg))
-(declare-function org-table-justify-field-maybe "org-table" (&optional new))
-(declare-function org-table-maybe-eval-formula "org-table" ())
-(declare-function org-table-maybe-recalculate-line "org-table" ())
-(declare-function org-table-next-row "org-table" ())
-(declare-function org-table-paste-rectangle "org-table" ())
-(declare-function org-table-recalculate "org-table" (&optional all noalign))
-(declare-function
- org-table-sort-lines "org-table"
- (&optional with-case sorting-type getkey-func compare-func interactive?))
-(declare-function org-table-wrap-region "org-table" (arg))
-(declare-function org-tags-view "org-agenda" (&optional todo-only match))
-(declare-function orgtbl-ascii-plot "org-table" (&optional ask))
-(declare-function orgtbl-mode "org-table" (&optional arg))
-(declare-function org-export-get-backend "ox" (name))
-(declare-function org-export-get-environment "ox" (&optional backend subtreep ext-plist))
-(declare-function org-latex-make-preamble "ox-latex" (info &optional template snippet?))
-
-(defvar ffap-url-regexp)
-(defvar org-element-paragraph-separate)
-
-(defsubst org-uniquify (list)
- "Non-destructively remove duplicate elements from LIST."
- (let ((res (copy-sequence list))) (delete-dups res)))
-
-(defsubst org-get-at-bol (property)
- "Get text property PROPERTY at the beginning of line."
- (get-text-property (point-at-bol) property))
-
-(defsubst org-trim (s &optional keep-lead)
- "Remove whitespace at the beginning and the end of string S.
-When optional argument KEEP-LEAD is non-nil, removing blank lines
-at the beginning of the string does not affect leading indentation."
- (replace-regexp-in-string
- (if keep-lead "\\`\\([ \t]*\n\\)+" "\\`[ \t\n\r]+") ""
- (replace-regexp-in-string "[ \t\n\r]+\\'" "" s)))
-
-;; load languages based on value of `org-babel-load-languages'
-(defvar org-babel-load-languages)
-
-;;;###autoload
-(defun org-babel-do-load-languages (sym value)
- "Load the languages defined in `org-babel-load-languages'."
- (set-default sym value)
- (dolist (pair org-babel-load-languages)
- (let ((active (cdr pair)) (lang (symbol-name (car pair))))
- (if active
- (require (intern (concat "ob-" lang)))
- (funcall 'fmakunbound
- (intern (concat "org-babel-execute:" lang)))
- (funcall 'fmakunbound
- (intern (concat "org-babel-expand-body:" lang)))))))
-
-(declare-function org-babel-tangle-file "ob-tangle" (file &optional target-file lang))
-;;;###autoload
-(defun org-babel-load-file (file &optional compile)
- "Load Emacs Lisp source code blocks in the Org FILE.
-This function exports the source code using `org-babel-tangle'
-and then loads the resulting file using `load-file'. With prefix
-arg (noninteractively: 2nd arg) COMPILE the tangled Emacs Lisp
-file to byte-code before it is loaded."
- (interactive "fFile to load: \nP")
- (let* ((age (lambda (file)
- (float-time
- (time-subtract (current-time)
- (nth 5 (or (file-attributes (file-truename file))
- (file-attributes file)))))))
- (base-name (file-name-sans-extension file))
- (exported-file (concat base-name ".el")))
- ;; tangle if the Org file is newer than the elisp file
- (unless (and (file-exists-p exported-file)
- (> (funcall age file) (funcall age exported-file)))
- ;; Tangle-file traversal returns reversed list of tangled files
- ;; and we want to evaluate the first target.
- (setq exported-file
- (car (last (org-babel-tangle-file file exported-file "emacs-lisp")))))
- (message "%s %s"
- (if compile
- (progn (byte-compile-file exported-file 'load)
- "Compiled and loaded")
- (progn (load-file exported-file) "Loaded"))
- exported-file)))
-
-(defcustom org-babel-load-languages '((emacs-lisp . t))
- "Languages which can be evaluated in Org buffers.
-This list can be used to load support for any of the languages
-below, note that each language will depend on a different set of
-system executables and/or Emacs modes. When a language is
-\"loaded\", then code blocks in that language can be evaluated
-with `org-babel-execute-src-block' bound by default to C-c
-C-c (note the `org-babel-no-eval-on-ctrl-c-ctrl-c' variable can
-be set to remove code block evaluation from the C-c C-c
-keybinding. By default only Emacs Lisp (which has no
-requirements) is loaded."
- :group 'org-babel
- :set 'org-babel-do-load-languages
- :version "24.1"
- :type '(alist :tag "Babel Languages"
- :key-type
- (choice
- (const :tag "Awk" awk)
- (const :tag "C" C)
- (const :tag "R" R)
- (const :tag "Asymptote" asymptote)
- (const :tag "Calc" calc)
- (const :tag "Clojure" clojure)
- (const :tag "CSS" css)
- (const :tag "Ditaa" ditaa)
- (const :tag "Dot" dot)
- (const :tag "Ebnf2ps" ebnf2ps)
- (const :tag "Emacs Lisp" emacs-lisp)
- (const :tag "Forth" forth)
- (const :tag "Fortran" fortran)
- (const :tag "Gnuplot" gnuplot)
- (const :tag "Haskell" haskell)
- (const :tag "hledger" hledger)
- (const :tag "IO" io)
- (const :tag "J" J)
- (const :tag "Java" java)
- (const :tag "Javascript" js)
- (const :tag "LaTeX" latex)
- (const :tag "Ledger" ledger)
- (const :tag "Lilypond" lilypond)
- (const :tag "Lisp" lisp)
- (const :tag "Makefile" makefile)
- (const :tag "Maxima" maxima)
- (const :tag "Matlab" matlab)
- (const :tag "Mscgen" mscgen)
- (const :tag "Ocaml" ocaml)
- (const :tag "Octave" octave)
- (const :tag "Org" org)
- (const :tag "Perl" perl)
- (const :tag "Pico Lisp" picolisp)
- (const :tag "PlantUML" plantuml)
- (const :tag "Python" python)
- (const :tag "Ruby" ruby)
- (const :tag "Sass" sass)
- (const :tag "Scala" scala)
- (const :tag "Scheme" scheme)
- (const :tag "Screen" screen)
- (const :tag "Shell Script" shell)
- (const :tag "Shen" shen)
- (const :tag "Sql" sql)
- (const :tag "Sqlite" sqlite)
- (const :tag "Stan" stan)
- (const :tag "Vala" vala))
- :value-type (boolean :tag "Activate" :value t)))
-
-;;;; Customization variables
-(defcustom org-clone-delete-id nil
- "Remove ID property of clones of a subtree.
-When non-nil, clones of a subtree don't inherit the ID property.
-Otherwise they inherit the ID property with a new unique
-identifier."
- :type 'boolean
- :version "24.1"
- :group 'org-id)
-
-;;; Version
-(org-check-version)
-
-;;;###autoload
-(defun org-version (&optional here full message)
- "Show the Org version.
-Interactively, or when MESSAGE is non-nil, show it in echo area.
-With prefix argument, or when HERE is non-nil, insert it at point.
-In non-interactive uses, a reduced version string is output unless
-FULL is given."
- (interactive (list current-prefix-arg t (not current-prefix-arg)))
- (let ((org-dir (ignore-errors (org-find-library-dir "org")))
- (save-load-suffixes (when (boundp 'load-suffixes) load-suffixes))
- (load-suffixes (list ".el"))
- (org-install-dir
- (ignore-errors (org-find-library-dir "org-loaddefs"))))
- (unless (and (fboundp 'org-release) (fboundp 'org-git-version))
- (org-load-noerror-mustsuffix (concat org-dir "org-version")))
- (let* ((load-suffixes save-load-suffixes)
- (release (org-release))
- (git-version (org-git-version))
- (version (format "Org mode version %s (%s @ %s)"
- release
- git-version
- (if org-install-dir
- (if (string= org-dir org-install-dir)
- org-install-dir
- (concat "mixed installation! "
- org-install-dir
- " and "
- org-dir))
- "org-loaddefs.el can not be found!")))
- (version1 (if full version release)))
- (when here (insert version1))
- (when message (message "%s" version1))
- version1)))
-
-(defconst org-version (org-version))
-
-
-;;; Syntax Constants
-
-;;;; Block
-
-(defconst org-block-regexp
- "^[ \t]*#\\+begin_?\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_?\\1[ \t]*$"
- "Regular expression for hiding blocks.")
-
-(defconst org-dblock-start-re
- "^[ \t]*#\\+\\(?:BEGIN\\|begin\\):[ \t]+\\(\\S-+\\)\\([ \t]+\\(.*\\)\\)?"
- "Matches the start line of a dynamic block, with parameters.")
-
-(defconst org-dblock-end-re "^[ \t]*#\\+\\(?:END\\|end\\)\\([: \t\r\n]\\|$\\)"
- "Matches the end of a dynamic block.")
-
-;;;; Clock and Planning
-
-(defconst org-clock-string "CLOCK:"
- "String used as prefix for timestamps clocking work hours on an item.")
-
-(defvar org-closed-string "CLOSED:"
- "String used as the prefix for timestamps logging closing a TODO entry.")
-
-(defvar org-deadline-string "DEADLINE:"
- "String to mark deadline entries.
-\\<org-mode-map>
-A deadline is this string, followed by a time stamp. It must be
-a word, terminated by a colon. You can insert a schedule keyword
-and a timestamp with `\\[org-deadline]'.")
-
-(defvar org-scheduled-string "SCHEDULED:"
- "String to mark scheduled TODO entries.
-\\<org-mode-map>
-A schedule is this string, followed by a time stamp. It must be
-a word, terminated by a colon. You can insert a schedule keyword
-and a timestamp with `\\[org-schedule]'.")
-
-(defconst org-ds-keyword-length
- (+ 2
- (apply #'max
- (mapcar #'length
- (list org-deadline-string org-scheduled-string
- org-clock-string org-closed-string))))
- "Maximum length of the DEADLINE and SCHEDULED keywords.")
-
-(defconst org-planning-line-re
- (concat "^[ \t]*"
- (regexp-opt
- (list org-closed-string org-deadline-string org-scheduled-string)
- t))
- "Matches a line with planning info.
-Matched keyword is in group 1.")
-
-(defconst org-clock-line-re
- (concat "^[ \t]*" org-clock-string)
- "Matches a line with clock info.")
-
-(defconst org-deadline-regexp (concat "\\<" org-deadline-string)
- "Matches the DEADLINE keyword.")
-
-(defconst org-deadline-time-regexp
- (concat "\\<" org-deadline-string " *<\\([^>]+\\)>")
- "Matches the DEADLINE keyword together with a time stamp.")
-
-(defconst org-deadline-time-hour-regexp
- (concat "\\<" org-deadline-string
- " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy \t.]*\\)>")
- "Matches the DEADLINE keyword together with a time-and-hour stamp.")
-
-(defconst org-deadline-line-regexp
- (concat "\\<\\(" org-deadline-string "\\).*")
- "Matches the DEADLINE keyword and the rest of the line.")
-
-(defconst org-scheduled-regexp (concat "\\<" org-scheduled-string)
- "Matches the SCHEDULED keyword.")
-
-(defconst org-scheduled-time-regexp
- (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>")
- "Matches the SCHEDULED keyword together with a time stamp.")
-
-(defconst org-scheduled-time-hour-regexp
- (concat "\\<" org-scheduled-string
- " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy \t.]*\\)>")
- "Matches the SCHEDULED keyword together with a time-and-hour stamp.")
-
-(defconst org-closed-time-regexp
- (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]")
- "Matches the CLOSED keyword together with a time stamp.")
-
-(defconst org-keyword-time-regexp
- (concat "\\<"
- (regexp-opt
- (list org-scheduled-string org-deadline-string org-closed-string
- org-clock-string)
- t)
- " *[[<]\\([^]>]+\\)[]>]")
- "Matches any of the 4 keywords, together with the time stamp.")
-
-(defconst org-keyword-time-not-clock-regexp
- (concat
- "\\<"
- (regexp-opt
- (list org-scheduled-string org-deadline-string org-closed-string) t)
- " *[[<]\\([^]>]+\\)[]>]")
- "Matches any of the 3 keywords, together with the time stamp.")
-
-(defconst org-maybe-keyword-time-regexp
- (concat "\\(\\<"
- (regexp-opt
- (list org-scheduled-string org-deadline-string org-closed-string
- org-clock-string)
- t)
- "\\)?"
- " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]\r\n>]*?[]>]"
- "\\|"
- "<%%([^\r\n>]*>\\)")
- "Matches a timestamp, possibly preceded by a keyword.")
-
-(defconst org-all-time-keywords
- (mapcar (lambda (w) (substring w 0 -1))
- (list org-scheduled-string org-deadline-string
- org-clock-string org-closed-string))
- "List of time keywords.")
-
-;;;; Drawer
-
-(defconst org-drawer-regexp "^[ \t]*:\\(\\(?:\\w\\|[-_]\\)+\\):[ \t]*$"
- "Matches first or last line of a hidden block.
-Group 1 contains drawer's name or \"END\".")
-
-(defconst org-property-start-re "^[ \t]*:PROPERTIES:[ \t]*$"
- "Regular expression matching the first line of a property drawer.")
-
-(defconst org-property-end-re "^[ \t]*:END:[ \t]*$"
- "Regular expression matching the last line of a property drawer.")
-
-(defconst org-clock-drawer-start-re "^[ \t]*:CLOCK:[ \t]*$"
- "Regular expression matching the first line of a clock drawer.")
-
-(defconst org-clock-drawer-end-re "^[ \t]*:END:[ \t]*$"
- "Regular expression matching the last line of a clock drawer.")
-
-(defconst org-property-drawer-re
- (concat "^[ \t]*:PROPERTIES:[ \t]*\n"
- "\\(?:[ \t]*:\\S-+:\\(?: .*\\)?[ \t]*\n\\)*?"
- "[ \t]*:END:[ \t]*$")
- "Matches an entire property drawer.")
-
-(defconst org-clock-drawer-re
- (concat "\\(" org-clock-drawer-start-re "\\)[^\000]*?\\("
- org-clock-drawer-end-re "\\)\n?")
- "Matches an entire clock drawer.")
-
-;;;; Headline
-
-(defconst org-heading-keyword-regexp-format
- "^\\(\\*+\\)\\(?: +%s\\)\\(?: +\\(.*?\\)\\)?[ \t]*$"
- "Printf format for a regexp matching a headline with some keyword.
-This regexp will match the headline of any node which has the
-exact keyword that is put into the format. The keyword isn't in
-any group by default, but the stars and the body are.")
-
-(defconst org-heading-keyword-maybe-regexp-format
- "^\\(\\*+\\)\\(?: +%s\\)?\\(?: +\\(.*?\\)\\)?[ \t]*$"
- "Printf format for a regexp matching a headline, possibly with some keyword.
-This regexp can match any headline with the specified keyword, or
-without a keyword. The keyword isn't in any group by default,
-but the stars and the body are.")
-
-(defconst org-archive-tag "ARCHIVE"
- "The tag that marks a subtree as archived.
-An archived subtree does not open during visibility cycling, and does
-not contribute to the agenda listings.")
-
-(eval-and-compile
- (defconst org-comment-string "COMMENT"
- "Entries starting with this keyword will never be exported.
-\\<org-mode-map>
-An entry can be toggled between COMMENT and normal with
-`\\[org-toggle-comment]'."))
-
-
-;;;; LaTeX Environments and Fragments
-
-(defconst org-latex-regexps
- '(("begin" "^[ \t]*\\(\\\\begin{\\([a-zA-Z0-9\\*]+\\)[^\000]+?\\\\end{\\2}\\)" 1 t)
- ;; ("$" "\\([ \t(]\\|^\\)\\(\\(\\([$]\\)\\([^ \t\n,.$].*?\\(\n.*?\\)\\{0,5\\}[^ \t\n,.$]\\)\\4\\)\\)\\([ \t.,?;:'\")]\\|$\\)" 2 nil)
- ;; \000 in the following regex is needed for org-inside-LaTeX-fragment-p
- ("$1" "\\([^$]\\|^\\)\\(\\$[^ \t\r\n,;.$]\\$\\)\\(\\s.\\|\\s-\\|\\s(\\|\\s)\\|\\s\"\\|\000\\|'\\|$\\)" 2 nil)
- ("$" "\\([^$]\\|^\\)\\(\\(\\$\\([^ \t\n,;.$][^$\n\r]*?\\(\n[^$\n\r]*?\\)\\{0,2\\}[^ \t\n,.$]\\)\\$\\)\\)\\(\\s.\\|\\s-\\|\\s(\\|\\s)\\|\\s\"\\|\000\\|'\\|$\\)" 2 nil)
- ("\\(" "\\\\([^\000]*?\\\\)" 0 nil)
- ("\\[" "\\\\\\[[^\000]*?\\\\\\]" 0 nil)
- ("$$" "\\$\\$[^\000]*?\\$\\$" 0 nil))
- "Regular expressions for matching embedded LaTeX.")
-
-;;;; Node Property
-
-(defconst org-effort-property "Effort"
- "The property that is being used to keep track of effort estimates.
-Effort estimates given in this property need to have the format H:MM.")
-
-;;;; Table
-
-(defconst org-table-any-line-regexp "^[ \t]*\\(|\\|\\+-[-+]\\)"
- "Detect an org-type or table-type table.")
-
-(defconst org-table-line-regexp "^[ \t]*|"
- "Detect an org-type table line.")
-
-(defconst org-table-dataline-regexp "^[ \t]*|[^-]"
- "Detect an org-type table line.")
-
-(defconst org-table-hline-regexp "^[ \t]*|-"
- "Detect an org-type table hline.")
-
-(defconst org-table1-hline-regexp "^[ \t]*\\+-[-+]"
- "Detect a table-type table hline.")
-
-(defconst org-table-any-border-regexp "^[ \t]*[^|+ \t]"
- "Detect the first line outside a table when searching from within it.
-This works for both table types.")
-
-(defconst org-TBLFM-regexp "^[ \t]*#\\+TBLFM: "
- "Detect a #+TBLFM line.")
-
-;;;; Timestamp
-
-(defconst org-ts-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^\r\n>]*?\\)>"
- "Regular expression for fast time stamp matching.")
-
-(defconst org-ts-regexp-inactive
- "\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^\r\n>]*?\\)\\]"
- "Regular expression for fast inactive time stamp matching.")
-
-(defconst org-ts-regexp-both "[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]\r\n>]*?\\)[]>]"
- "Regular expression for fast time stamp matching.")
-
-(defconst org-ts-regexp0
- "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\)\\( +[^]+0-9>\r\n -]+\\)?\\( +\\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
- "Regular expression matching time strings for analysis.
-This one does not require the space after the date, so it can be used
-on a string that terminates immediately after the date.")
-
-(defconst org-ts-regexp1 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\) *\\([^]+0-9>\r\n -]*\\)\\( \\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
- "Regular expression matching time strings for analysis.")
-
-(defconst org-ts-regexp2 (concat "<" org-ts-regexp1 "[^>\n]\\{0,16\\}>")
- "Regular expression matching time stamps, with groups.")
-
-(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^]>\n]\\{0,16\\}[]>]")
- "Regular expression matching time stamps (also [..]), with groups.")
-
-(defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp)
- "Regular expression matching a time stamp range.")
-
-(defconst org-tr-regexp-both
- (concat org-ts-regexp-both "--?-?" org-ts-regexp-both)
- "Regular expression matching a time stamp range.")
-
-(defconst org-tsr-regexp (concat org-ts-regexp "\\(--?-?"
- org-ts-regexp "\\)?")
- "Regular expression matching a time stamp or time stamp range.")
-
-(defconst org-tsr-regexp-both
- (concat org-ts-regexp-both "\\(--?-?"
- org-ts-regexp-both "\\)?")
- "Regular expression matching a time stamp or time stamp range.
-The time stamps may be either active or inactive.")
-
-(defconst org-repeat-re
- "<[0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [^>\n]*?\\([.+]?\\+[0-9]+[hdwmy]\\(/[0-9]+[hdwmy]\\)?\\)"
- "Regular expression for specifying repeated events.
-After a match, group 1 contains the repeat expression.")
-
-(defconst org-time-stamp-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>")
- "Formats for `format-time-string' which are used for time stamps.")
-
-
-;;; The custom variables
-
-(defgroup org nil
- "Outline-based notes management and organizer."
- :tag "Org"
- :group 'outlines
- :group 'calendar)
-
-(defcustom org-mode-hook nil
- "Mode hook for Org mode, run after the mode was turned on."
- :group 'org
- :type 'hook)
-
-(defcustom org-load-hook nil
- "Hook that is run after org.el has been loaded."
- :group 'org
- :type 'hook)
-
-(defcustom org-log-buffer-setup-hook nil
- "Hook that is run after an Org log buffer is created."
- :group 'org
- :version "24.1"
- :type 'hook)
-
-(defvar org-modules) ; defined below
-(defvar org-modules-loaded nil
- "Have the modules been loaded already?")
-
-(defun org-load-modules-maybe (&optional force)
- "Load all extensions listed in `org-modules'."
- (when (or force (not org-modules-loaded))
- (dolist (ext org-modules)
- (condition-case nil (require ext)
- (error (message "Problems while trying to load feature `%s'" ext))))
- (setq org-modules-loaded t)))
-
-(defun org-set-modules (var value)
- "Set VAR to VALUE and call `org-load-modules-maybe' with the force flag."
- (set var value)
- (when (featurep 'org)
- (org-load-modules-maybe 'force)
- (org-element-cache-reset 'all)))
-
-(defcustom org-modules '(org-w3m org-bbdb org-bibtex org-docview org-gnus org-info org-irc org-mhe org-rmail)
- "Modules that should always be loaded together with org.el.
-
-If a description starts with <C>, the file is not part of Emacs
-and loading it will require that you have downloaded and properly
-installed the Org mode distribution.
-
-You can also use this system to load external packages (i.e. neither Org
-core modules, nor modules from the CONTRIB directory). Just add symbols
-to the end of the list. If the package is called org-xyz.el, then you need
-to add the symbol `xyz', and the package must have a call to:
-
- (provide \\='org-xyz)
-
-For export specific modules, see also `org-export-backends'."
- :group 'org
- :set 'org-set-modules
- :version "24.4"
- :package-version '(Org . "8.0")
- :type
- '(set :greedy t
- (const :tag " bbdb: Links to BBDB entries" org-bbdb)
- (const :tag " bibtex: Links to BibTeX entries" org-bibtex)
- (const :tag " crypt: Encryption of subtrees" org-crypt)
- (const :tag " ctags: Access to Emacs tags with links" org-ctags)
- (const :tag " docview: Links to doc-view buffers" org-docview)
- (const :tag " eww: Store link to url of eww" org-eww)
- (const :tag " gnus: Links to GNUS folders/messages" org-gnus)
- (const :tag " habit: Track your consistency with habits" org-habit)
- (const :tag " id: Global IDs for identifying entries" org-id)
- (const :tag " info: Links to Info nodes" org-info)
- (const :tag " inlinetask: Tasks independent of outline hierarchy" org-inlinetask)
- (const :tag " irc: Links to IRC/ERC chat sessions" org-irc)
- (const :tag " mhe: Links to MHE folders/messages" org-mhe)
- (const :tag " mouse: Additional mouse support" org-mouse)
- (const :tag " protocol: Intercept calls from emacsclient" org-protocol)
- (const :tag " rmail: Links to RMAIL folders/messages" org-rmail)
- (const :tag " w3m: Special cut/paste from w3m to Org mode." org-w3m)
-
- (const :tag "C annotate-file: Annotate a file with org syntax" org-annotate-file)
- (const :tag "C bookmark: Org links to bookmarks" org-bookmark)
- (const :tag "C checklist: Extra functions for checklists in repeated tasks" org-checklist)
- (const :tag "C choose: Use TODO keywords to mark decisions states" org-choose)
- (const :tag "C collector: Collect properties into tables" org-collector)
- (const :tag "C depend: TODO dependencies for Org mode\n\t\t\t(PARTIALLY OBSOLETE, see built-in dependency support))" org-depend)
- (const :tag "C drill: Flashcards and spaced repetition for Org mode" org-drill)
- (const :tag "C elisp-symbol: Org links to emacs-lisp symbols" org-elisp-symbol)
- (const :tag "C eshell Support for links to working directories in eshell" org-eshell)
- (const :tag "C eval-light: Evaluate inbuffer-code on demand" org-eval-light)
- (const :tag "C eval: Include command output as text" org-eval)
- (const :tag "C expiry: Expiry mechanism for Org entries" org-expiry)
- (const :tag "C favtable: Lookup table of favorite references and links" org-favtable)
- (const :tag "C git-link: Provide org links to specific file version" org-git-link)
- (const :tag "C interactive-query: Interactive modification of tags query\n\t\t\t(PARTIALLY OBSOLETE, see secondary filtering)" org-interactive-query)
- (const :tag "C invoice: Help manage client invoices in Org mode" org-invoice)
- (const :tag "C learn: SuperMemo's incremental learning algorithm" org-learn)
- (const :tag "C mac-iCal Imports events from iCal.app to the Emacs diary" org-mac-iCal)
- (const :tag "C mac-link: Grab links and url from various mac Applications" org-mac-link)
- (const :tag "C mairix: Hook mairix search into Org for different MUAs" org-mairix)
- (const :tag "C man: Support for links to manpages in Org mode" org-man)
- (const :tag "C mew: Links to Mew folders/messages" org-mew)
- (const :tag "C mtags: Support for muse-like tags" org-mtags)
- (const :tag "C notmuch: Provide org links to notmuch searches or messages" org-notmuch)
- (const :tag "C panel: Simple routines for us with bad memory" org-panel)
- (const :tag "C registry: A registry for Org links" org-registry)
- (const :tag "C screen: Visit screen sessions through Org links" org-screen)
- (const :tag "C secretary: Team management with Org" org-secretary)
- (const :tag "C sqlinsert: Convert Org tables to SQL insertions" orgtbl-sqlinsert)
- (const :tag "C toc: Table of contents for Org buffer" org-toc)
- (const :tag "C track: Keep up with Org mode development" org-track)
- (const :tag "C velocity Something like Notational Velocity for Org" org-velocity)
- (const :tag "C vm: Links to VM folders/messages" org-vm)
- (const :tag "C wikinodes: CamelCase wiki-like links" org-wikinodes)
- (const :tag "C wl: Links to Wanderlust folders/messages" org-wl)
- (repeat :tag "External packages" :inline t (symbol :tag "Package"))))
-
-(defvar org-export-registered-backends) ; From ox.el.
-(declare-function org-export-derived-backend-p "ox" (backend &rest backends))
-(declare-function org-export-backend-name "ox" (backend) t)
-(defcustom org-export-backends '(ascii html icalendar latex odt)
- "List of export back-ends that should be always available.
-
-If a description starts with <C>, the file is not part of Emacs
-and loading it will require that you have downloaded and properly
-installed the Org mode distribution.
-
-Unlike to `org-modules', libraries in this list will not be
-loaded along with Org, but only once the export framework is
-needed.
-
-This variable needs to be set before org.el is loaded. If you
-need to make a change while Emacs is running, use the customize
-interface or run the following code, where VAL stands for the new
-value of the variable, after updating it:
-
- (progn
- (setq org-export-registered-backends
- (cl-remove-if-not
- (lambda (backend)
- (let ((name (org-export-backend-name backend)))
- (or (memq name val)
- (catch \\='parentp
- (dolist (b val)
- (and (org-export-derived-backend-p b name)
- (throw \\='parentp t)))))))
- org-export-registered-backends))
- (let ((new-list (mapcar #\\='org-export-backend-name
- org-export-registered-backends)))
- (dolist (backend val)
- (cond
- ((not (load (format \"ox-%s\" backend) t t))
- (message \"Problems while trying to load export back-end \\=`%s\\='\"
- backend))
- ((not (memq backend new-list)) (push backend new-list))))
- (set-default \\='org-export-backends new-list)))
-
-Adding a back-end to this list will also pull the back-end it
-depends on, if any."
- :group 'org
- :group 'org-export
- :version "26.1"
- :package-version '(Org . "9.0")
- :initialize 'custom-initialize-set
- :set (lambda (var val)
- (if (not (featurep 'ox)) (set-default var val)
- ;; Any back-end not required anymore (not present in VAL and not
- ;; a parent of any back-end in the new value) is removed from the
- ;; list of registered back-ends.
- (setq org-export-registered-backends
- (cl-remove-if-not
- (lambda (backend)
- (let ((name (org-export-backend-name backend)))
- (or (memq name val)
- (catch 'parentp
- (dolist (b val)
- (and (org-export-derived-backend-p b name)
- (throw 'parentp t)))))))
- org-export-registered-backends))
- ;; Now build NEW-LIST of both new back-ends and required
- ;; parents.
- (let ((new-list (mapcar #'org-export-backend-name
- org-export-registered-backends)))
- (dolist (backend val)
- (cond
- ((not (load (format "ox-%s" backend) t t))
- (message "Problems while trying to load export back-end `%s'"
- backend))
- ((not (memq backend new-list)) (push backend new-list))))
- ;; Set VAR to that list with fixed dependencies.
- (set-default var new-list))))
- :type '(set :greedy t
- (const :tag " ascii Export buffer to ASCII format" ascii)
- (const :tag " beamer Export buffer to Beamer presentation" beamer)
- (const :tag " html Export buffer to HTML format" html)
- (const :tag " icalendar Export buffer to iCalendar format" icalendar)
- (const :tag " latex Export buffer to LaTeX format" latex)
- (const :tag " man Export buffer to MAN format" man)
- (const :tag " md Export buffer to Markdown format" md)
- (const :tag " odt Export buffer to ODT format" odt)
- (const :tag " org Export buffer to Org format" org)
- (const :tag " texinfo Export buffer to Texinfo format" texinfo)
- (const :tag "C confluence Export buffer to Confluence Wiki format" confluence)
- (const :tag "C deck Export buffer to deck.js presentations" deck)
- (const :tag "C freemind Export buffer to Freemind mindmap format" freemind)
- (const :tag "C groff Export buffer to Groff format" groff)
- (const :tag "C koma-letter Export buffer to KOMA Scrlttrl2 format" koma-letter)
- (const :tag "C RSS 2.0 Export buffer to RSS 2.0 format" rss)
- (const :tag "C s5 Export buffer to s5 presentations" s5)
- (const :tag "C taskjuggler Export buffer to TaskJuggler format" taskjuggler)))
-
-(eval-after-load 'ox
- '(dolist (backend org-export-backends)
- (condition-case nil (require (intern (format "ox-%s" backend)))
- (error (message "Problems while trying to load export back-end `%s'"
- backend)))))
-
-(defcustom org-support-shift-select nil
- "Non-nil means make shift-cursor commands select text when possible.
-\\<org-mode-map>\
-
-In Emacs 23, when `shift-select-mode' is on, shifted cursor keys
-start selecting a region, or enlarge regions started in this way.
-In Org mode, in special contexts, these same keys are used for
-other purposes, important enough to compete with shift selection.
-Org tries to balance these needs by supporting `shift-select-mode'
-outside these special contexts, under control of this variable.
-
-The default of this variable is nil, to avoid confusing behavior. Shifted
-cursor keys will then execute Org commands in the following contexts:
-- on a headline, changing TODO state (left/right) and priority (up/down)
-- on a time stamp, changing the time
-- in a plain list item, changing the bullet type
-- in a property definition line, switching between allowed values
-- in the BEGIN line of a clock table (changing the time block).
-Outside these contexts, the commands will throw an error.
-
-When this variable is t and the cursor is not in a special
-context, Org mode will support shift-selection for making and
-enlarging regions. To make this more effective, the bullet
-cycling will no longer happen anywhere in an item line, but only
-if the cursor is exactly on the bullet.
-
-If you set this variable to the symbol `always', then the keys
-will not be special in headlines, property lines, and item lines,
-to make shift selection work there as well. If this is what you
-want, you can use the following alternative commands:
-`\\[org-todo]' and `\\[org-priority]' \
-to change TODO state and priority,
-`\\[universal-argument] \\[universal-argument] \\[org-todo]' \
-can be used to switch TODO sets,
-`\\[org-ctrl-c-minus]' to cycle item bullet types,
-and properties can be edited by hand or in column view.
-
-However, when the cursor is on a timestamp, shift-cursor commands
-will still edit the time stamp - this is just too good to give up."
- :group 'org
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "When outside special context" t)
- (const :tag "Everywhere except timestamps" always)))
-
-(defcustom org-loop-over-headlines-in-active-region nil
- "Shall some commands act upon headlines in the active region?
-
-When set to t, some commands will be performed in all headlines
-within the active region.
-
-When set to `start-level', some commands will be performed in all
-headlines within the active region, provided that these headlines
-are of the same level than the first one.
-
-When set to a string, those commands will be performed on the
-matching headlines within the active region. Such string must be
-a tags/property/todo match as it is used in the agenda tags view.
-
-The list of commands is: `org-schedule', `org-deadline',
-`org-todo', `org-archive-subtree', `org-archive-set-tag' and
-`org-archive-to-archive-sibling'. The archiving commands skip
-already archived entries."
- :type '(choice (const :tag "Don't loop" nil)
- (const :tag "All headlines in active region" t)
- (const :tag "In active region, headlines at the same level than the first one" start-level)
- (string :tag "Tags/Property/Todo matcher"))
- :version "24.1"
- :group 'org-todo
- :group 'org-archive)
-
-(defgroup org-startup nil
- "Options concerning startup of Org mode."
- :tag "Org Startup"
- :group 'org)
-
-(defcustom org-startup-folded t
- "Non-nil means entering Org mode will switch to OVERVIEW.
-
-This can also be configured on a per-file basis by adding one of
-the following lines anywhere in the buffer:
-
- #+STARTUP: fold (or `overview', this is equivalent)
- #+STARTUP: nofold (or `showall', this is equivalent)
- #+STARTUP: content
- #+STARTUP: showeverything
-
-Set `org-agenda-inhibit-startup' to a non-nil value if you want
-to ignore this option when Org opens agenda files for the first
-time."
- :group 'org-startup
- :type '(choice
- (const :tag "nofold: show all" nil)
- (const :tag "fold: overview" t)
- (const :tag "content: all headlines" content)
- (const :tag "show everything, even drawers" showeverything)))
-
-(defcustom org-startup-truncated t
- "Non-nil means entering Org mode will set `truncate-lines'.
-This is useful since some lines containing links can be very long and
-uninteresting. Also tables look terrible when wrapped.
-
-The variable `org-startup-truncated' allows to configure
-truncation for Org mode different to the other modes that use the
-variable `truncate-lines' and as a shortcut instead of putting
-the variable `truncate-lines' into the `org-mode-hook'. If one
-wants to configure truncation for Org mode not statically but
-dynamically e. g. in a hook like `ediff-prepare-buffer-hook' then
-the variable `truncate-lines' has to be used because in such a
-case it is too late to set the variable `org-startup-truncated'."
- :group 'org-startup
- :type 'boolean)
-
-(defcustom org-startup-indented nil
- "Non-nil means turn on `org-indent-mode' on startup.
-This can also be configured on a per-file basis by adding one of
-the following lines anywhere in the buffer:
-
- #+STARTUP: indent
- #+STARTUP: noindent"
- :group 'org-structure
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Globally (slow on startup in large files)" t)))
-
-(defcustom org-use-sub-superscripts t
- "Non-nil means interpret \"_\" and \"^\" for display.
-
-If you want to control how Org exports those characters, see
-`org-export-with-sub-superscripts'. `org-use-sub-superscripts'
-used to be an alias for `org-export-with-sub-superscripts' in
-Org <8.0, it is not anymore.
-
-When this option is turned on, you can use TeX-like syntax for
-sub- and superscripts within the buffer. Several characters after
-\"_\" or \"^\" will be considered as a single item - so grouping
-with {} is normally not needed. For example, the following things
-will be parsed as single sub- or superscripts:
-
- 10^24 or 10^tau several digits will be considered 1 item.
- 10^-12 or 10^-tau a leading sign with digits or a word
- x^2-y^3 will be read as x^2 - y^3, because items are
- terminated by almost any nonword/nondigit char.
- x_{i^2} or x^(2-i) braces or parenthesis do grouping.
-
-Still, ambiguity is possible. So when in doubt, use {} to enclose
-the sub/superscript. If you set this variable to the symbol `{}',
-the braces are *required* in order to trigger interpretations as
-sub/superscript. This can be helpful in documents that need \"_\"
-frequently in plain text."
- :group 'org-startup
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Always interpret" t)
- (const :tag "Only with braces" {})
- (const :tag "Never interpret" nil)))
-
-(defcustom org-startup-with-beamer-mode nil
- "Non-nil means turn on `org-beamer-mode' on startup.
-This can also be configured on a per-file basis by adding one of
-the following lines anywhere in the buffer:
-
- #+STARTUP: beamer"
- :group 'org-startup
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-startup-align-all-tables nil
- "Non-nil means align all tables when visiting a file.
-This is useful when the column width in tables is forced with <N> cookies
-in table fields. Such tables will look correct only after the first re-align.
-This can also be configured on a per-file basis by adding one of
-the following lines anywhere in the buffer:
- #+STARTUP: align
- #+STARTUP: noalign"
- :group 'org-startup
- :type 'boolean)
-
-(defcustom org-startup-with-inline-images nil
- "Non-nil means show inline images when loading a new Org file.
-This can also be configured on a per-file basis by adding one of
-the following lines anywhere in the buffer:
- #+STARTUP: inlineimages
- #+STARTUP: noinlineimages"
- :group 'org-startup
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-startup-with-latex-preview nil
- "Non-nil means preview LaTeX fragments when loading a new Org file.
-
-This can also be configured on a per-file basis by adding one of
-the following lines anywhere in the buffer:
- #+STARTUP: latexpreview
- #+STARTUP: nolatexpreview"
- :group 'org-startup
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-insert-mode-line-in-empty-file nil
- "Non-nil means insert the first line setting Org mode in empty files.
-When the function `org-mode' is called interactively in an empty file, this
-normally means that the file name does not automatically trigger Org mode.
-To ensure that the file will always be in Org mode in the future, a
-line enforcing Org mode will be inserted into the buffer, if this option
-has been set."
- :group 'org-startup
- :type 'boolean)
-
-(defcustom org-replace-disputed-keys nil
- "Non-nil means use alternative key bindings for some keys.
-Org mode uses S-<cursor> keys for changing timestamps and priorities.
-These keys are also used by other packages like shift-selection-mode'
-\(built into Emacs 23), `CUA-mode' or `windmove.el'.
-If you want to use Org mode together with one of these other modes,
-or more generally if you would like to move some Org mode commands to
-other keys, set this variable and configure the keys with the variable
-`org-disputed-keys'.
-
-This option is only relevant at load-time of Org mode, and must be set
-*before* org.el is loaded. Changing it requires a restart of Emacs to
-become effective."
- :group 'org-startup
- :type 'boolean)
-
-(defcustom org-use-extra-keys nil
- "Non-nil means use extra key sequence definitions for certain commands.
-This happens automatically if `window-system' is nil. This
-variable lets you do the same manually. You must set it before
-loading Org."
- :group 'org-startup
- :type 'boolean)
-
-(defvaralias 'org-CUA-compatible 'org-replace-disputed-keys)
-
-(defcustom org-disputed-keys
- '(([(shift up)] . [(meta p)])
- ([(shift down)] . [(meta n)])
- ([(shift left)] . [(meta -)])
- ([(shift right)] . [(meta +)])
- ([(control shift right)] . [(meta shift +)])
- ([(control shift left)] . [(meta shift -)]))
- "Keys for which Org mode and other modes compete.
-This is an alist, cars are the default keys, second element specifies
-the alternative to use when `org-replace-disputed-keys' is t.
-
-Keys can be specified in any syntax supported by `define-key'.
-The value of this option takes effect only at Org mode startup,
-therefore you'll have to restart Emacs to apply it after changing."
- :group 'org-startup
- :type 'alist)
-
-(defun org-key (key)
- "Select key according to `org-replace-disputed-keys' and `org-disputed-keys'.
-Or return the original if not disputed."
- (when org-replace-disputed-keys
- (let* ((nkey (key-description key))
- (x (cl-find-if (lambda (x) (equal (key-description (car x)) nkey))
- org-disputed-keys)))
- (setq key (if x (cdr x) key))))
- key)
-
-(defun org-defkey (keymap key def)
- "Define a key, possibly translated, as returned by `org-key'."
- (define-key keymap (org-key key) def))
-
-(defcustom org-ellipsis nil
- "The ellipsis to use in the Org mode outline.
-
-When nil, just use the standard three dots. When a non-empty string,
-use that string instead.
-
-The change affects only Org mode (which will then use its own display table).
-Changing this requires executing `\\[org-mode]' in a buffer to become
-effective."
- :group 'org-startup
- :type '(choice (const :tag "Default" nil)
- (string :tag "String" :value "...#"))
- :safe (lambda (v) (and (string-or-null-p v) (not (equal "" v)))))
-
-(defvar org-display-table nil
- "The display table for Org mode, in case `org-ellipsis' is non-nil.")
-
-(defgroup org-keywords nil
- "Keywords in Org mode."
- :tag "Org Keywords"
- :group 'org)
-
-(defcustom org-closed-keep-when-no-todo nil
- "Remove CLOSED: time-stamp when switching back to a non-todo state?"
- :group 'org-todo
- :group 'org-keywords
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defgroup org-structure nil
- "Options concerning the general structure of Org files."
- :tag "Org Structure"
- :group 'org)
-
-(defgroup org-reveal-location nil
- "Options about how to make context of a location visible."
- :tag "Org Reveal Location"
- :group 'org-structure)
-
-(defcustom org-show-context-detail '((agenda . local)
- (bookmark-jump . lineage)
- (isearch . lineage)
- (default . ancestors))
- "Alist between context and visibility span when revealing a location.
-
-\\<org-mode-map>Some actions may move point into invisible
-locations. As a consequence, Org always expose a neighborhood
-around point. How much is shown depends on the initial action,
-or context. Valid contexts are
-
- agenda when exposing an entry from the agenda
- org-goto when using the command `org-goto' (`\\[org-goto]')
- occur-tree when using the command `org-occur' (`\\[org-sparse-tree] /')
- tags-tree when constructing a sparse tree based on tags matches
- link-search when exposing search matches associated with a link
- mark-goto when exposing the jump goal of a mark
- bookmark-jump when exposing a bookmark location
- isearch when exiting from an incremental search
- default default for all contexts not set explicitly
-
-Allowed visibility spans are
-
- minimal show current headline; if point is not on headline,
- also show entry
-
- local show current headline, entry and next headline
-
- ancestors show current headline and its direct ancestors; if
- point is not on headline, also show entry
-
- lineage show current headline, its direct ancestors and all
- their children; if point is not on headline, also show
- entry and first child
-
- tree show current headline, its direct ancestors and all
- their children; if point is not on headline, also show
- entry and all children
-
- canonical show current headline, its direct ancestors along with
- their entries and children; if point is not located on
- the headline, also show current entry and all children
-
-As special cases, a nil or t value means show all contexts in
-`minimal' or `canonical' view, respectively.
-
-Some views can make displayed information very compact, but also
-make it harder to edit the location of the match. In such
-a case, use the command `org-reveal' (`\\[org-reveal]') to show
-more context."
- :group 'org-reveal-location
- :version "26.1"
- :package-version '(Org . "9.0")
- :type '(choice
- (const :tag "Canonical" t)
- (const :tag "Minimal" nil)
- (repeat :greedy t :tag "Individual contexts"
- (cons
- (choice :tag "Context"
- (const agenda)
- (const org-goto)
- (const occur-tree)
- (const tags-tree)
- (const link-search)
- (const mark-goto)
- (const bookmark-jump)
- (const isearch)
- (const default))
- (choice :tag "Detail level"
- (const minimal)
- (const local)
- (const ancestors)
- (const lineage)
- (const tree)
- (const canonical))))))
-
-(defcustom org-indirect-buffer-display 'other-window
- "How should indirect tree buffers be displayed?
-
-This applies to indirect buffers created with the commands
-`org-tree-to-indirect-buffer' and `org-agenda-tree-to-indirect-buffer'.
-
-Valid values are:
-current-window Display in the current window
-other-window Just display in another window.
-dedicated-frame Create one new frame, and re-use it each time.
-new-frame Make a new frame each time. Note that in this case
- previously-made indirect buffers are kept, and you need to
- kill these buffers yourself."
- :group 'org-structure
- :group 'org-agenda-windows
- :type '(choice
- (const :tag "In current window" current-window)
- (const :tag "In current frame, other window" other-window)
- (const :tag "Each time a new frame" new-frame)
- (const :tag "One dedicated frame" dedicated-frame)))
-
-(defcustom org-use-speed-commands nil
- "Non-nil means activate single letter commands at beginning of a headline.
-This may also be a function to test for appropriate locations where speed
-commands should be active.
-
-For example, to activate speed commands when the point is on any
-star at the beginning of the headline, you can do this:
-
- (setq org-use-speed-commands
- (lambda () (and (looking-at org-outline-regexp) (looking-back \"^\\**\"))))"
- :group 'org-structure
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "At beginning of headline stars" t)
- (function)))
-
-(defcustom org-speed-commands-user nil
- "Alist of additional speed commands.
-This list will be checked before `org-speed-commands-default'
-when the variable `org-use-speed-commands' is non-nil
-and when the cursor is at the beginning of a headline.
-The car of each entry is a string with a single letter, which must
-be assigned to `self-insert-command' in the global map.
-The cdr is either a command to be called interactively, a function
-to be called, or a form to be evaluated.
-An entry that is just a list with a single string will be interpreted
-as a descriptive headline that will be added when listing the speed
-commands in the Help buffer using the `?' speed command."
- :group 'org-structure
- :type '(repeat :value ("k" . ignore)
- (choice :value ("k" . ignore)
- (list :tag "Descriptive Headline" (string :tag "Headline"))
- (cons :tag "Letter and Command"
- (string :tag "Command letter")
- (choice
- (function)
- (sexp))))))
-
-(defcustom org-bookmark-names-plist
- '(:last-capture "org-capture-last-stored"
- :last-refile "org-refile-last-stored"
- :last-capture-marker "org-capture-last-stored-marker")
- "Names for bookmarks automatically set by some Org commands.
-This can provide strings as names for a number of bookmarks Org sets
-automatically. The following keys are currently implemented:
- :last-capture
- :last-capture-marker
- :last-refile
-When a key does not show up in the property list, the corresponding bookmark
-is not set."
- :group 'org-structure
- :type 'plist)
-
-(defgroup org-cycle nil
- "Options concerning visibility cycling in Org mode."
- :tag "Org Cycle"
- :group 'org-structure)
-
-(defcustom org-cycle-skip-children-state-if-no-children t
- "Non-nil means skip CHILDREN state in entries that don't have any."
- :group 'org-cycle
- :type 'boolean)
-
-(defcustom org-cycle-max-level nil
- "Maximum level which should still be subject to visibility cycling.
-Levels higher than this will, for cycling, be treated as text, not a headline.
-When `org-odd-levels-only' is set, a value of N in this variable actually
-means 2N-1 stars as the limiting headline.
-When nil, cycle all levels.
-Note that the limiting level of cycling is also influenced by
-`org-inlinetask-min-level'. When `org-cycle-max-level' is not set but
-`org-inlinetask-min-level' is, cycling will be limited to levels one less
-than its value."
- :group 'org-cycle
- :type '(choice
- (const :tag "No limit" nil)
- (integer :tag "Maximum level")))
-
-(defcustom org-hide-block-startup nil
- "Non-nil means entering Org mode will fold all blocks.
-This can also be set in on a per-file basis with
-
-#+STARTUP: hideblocks
-#+STARTUP: showblocks"
- :group 'org-startup
- :group 'org-cycle
- :type 'boolean)
-
-(defcustom org-cycle-global-at-bob nil
- "Cycle globally if cursor is at beginning of buffer and not at a headline.
-
-This makes it possible to do global cycling without having to use `S-TAB'
-or `\\[universal-argument] TAB'. For this special case to work, the first \
-line of the buffer
-must not be a headline -- it may be empty or some other text.
-
-When used in this way, `org-cycle-hook' is disabled temporarily to make
-sure the cursor stays at the beginning of the buffer.
-
-When this option is nil, don't do anything special at the beginning of
-the buffer."
- :group 'org-cycle
- :type 'boolean)
-
-(defcustom org-cycle-level-after-item/entry-creation t
- "Non-nil means cycle entry level or item indentation in new empty entries.
-
-When the cursor is at the end of an empty headline, i.e., with only stars
-and maybe a TODO keyword, TAB will then switch the entry to become a child,
-and then all possible ancestor states, before returning to the original state.
-This makes data entry extremely fast: M-RET to create a new headline,
-on TAB to make it a child, two or more tabs to make it a (grand-)uncle.
-
-When the cursor is at the end of an empty plain list item, one TAB will
-make it a subitem, two or more tabs will back up to make this an item
-higher up in the item hierarchy."
- :group 'org-cycle
- :type 'boolean)
-
-(defcustom org-cycle-emulate-tab t
- "Where should `org-cycle' emulate TAB.
-nil Never
-white Only in completely white lines
-whitestart Only at the beginning of lines, before the first non-white char
-t Everywhere except in headlines
-exc-hl-bol Everywhere except at the start of a headline
-If TAB is used in a place where it does not emulate TAB, the current subtree
-visibility is cycled."
- :group 'org-cycle
- :type '(choice (const :tag "Never" nil)
- (const :tag "Only in completely white lines" white)
- (const :tag "Before first char in a line" whitestart)
- (const :tag "Everywhere except in headlines" t)
- (const :tag "Everywhere except at bol in headlines" exc-hl-bol)))
-
-(defcustom org-cycle-separator-lines 2
- "Number of empty lines needed to keep an empty line between collapsed trees.
-If you leave an empty line between the end of a subtree and the following
-headline, this empty line is hidden when the subtree is folded.
-Org mode will leave (exactly) one empty line visible if the number of
-empty lines is equal or larger to the number given in this variable.
-So the default 2 means at least 2 empty lines after the end of a subtree
-are needed to produce free space between a collapsed subtree and the
-following headline.
-
-If the number is negative, and the number of empty lines is at least -N,
-all empty lines are shown.
-
-Special case: when 0, never leave empty lines in collapsed view."
- :group 'org-cycle
- :type 'integer)
-(put 'org-cycle-separator-lines 'safe-local-variable 'integerp)
-
-(defcustom org-pre-cycle-hook nil
- "Hook that is run before visibility cycling is happening.
-The function(s) in this hook must accept a single argument which indicates
-the new state that will be set right after running this hook. The
-argument is a symbol. Before a global state change, it can have the values
-`overview', `content', or `all'. Before a local state change, it can have
-the values `folded', `children', or `subtree'."
- :group 'org-cycle
- :type 'hook)
-
-(defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees
- org-cycle-hide-drawers
- org-cycle-show-empty-lines
- org-optimize-window-after-visibility-change)
- "Hook that is run after `org-cycle' has changed the buffer visibility.
-The function(s) in this hook must accept a single argument which indicates
-the new state that was set by the most recent `org-cycle' command. The
-argument is a symbol. After a global state change, it can have the values
-`overview', `contents', or `all'. After a local state change, it can have
-the values `folded', `children', or `subtree'."
- :group 'org-cycle
- :type 'hook
- :version "26.1"
- :package-version '(Org . "8.3"))
-
-(defgroup org-edit-structure nil
- "Options concerning structure editing in Org mode."
- :tag "Org Edit Structure"
- :group 'org-structure)
-
-(defcustom org-odd-levels-only nil
- "Non-nil means skip even levels and only use odd levels for the outline.
-This has the effect that two stars are being added/taken away in
-promotion/demotion commands. It also influences how levels are
-handled by the exporters.
-Changing it requires restart of `font-lock-mode' to become effective
-for fontification also in regions already fontified.
-You may also set this on a per-file basis by adding one of the following
-lines to the buffer:
-
- #+STARTUP: odd
- #+STARTUP: oddeven"
- :group 'org-edit-structure
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-adapt-indentation t
- "Non-nil means adapt indentation to outline node level.
-
-When this variable is set, Org assumes that you write outlines by
-indenting text in each node to align with the headline (after the
-stars). The following issues are influenced by this variable:
-
-- The indentation is increased by one space in a demotion
- command, and decreased by one in a promotion command. However,
- in the latter case, if shifting some line in the entry body
- would alter document structure (e.g., insert a new headline),
- indentation is not changed at all.
-
-- Property drawers and planning information is inserted indented
- when this variable is set. When nil, they will not be indented.
-
-- TAB indents a line relative to current level. The lines below
- a headline will be indented when this variable is set.
-
-Note that this is all about true indentation, by adding and
-removing space characters. See also `org-indent.el' which does
-level-dependent indentation in a virtual way, i.e. at display
-time in Emacs."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-special-ctrl-a/e nil
- "Non-nil means `C-a' and `C-e' behave specially in headlines and items.
-
-When t, `C-a' will bring back the cursor to the beginning of the
-headline text, i.e. after the stars and after a possible TODO
-keyword. In an item, this will be the position after bullet and
-check-box, if any. When the cursor is already at that position,
-another `C-a' will bring it to the beginning of the line.
-
-`C-e' will jump to the end of the headline, ignoring the presence
-of tags in the headline. A second `C-e' will then jump to the
-true end of the line, after any tags. This also means that, when
-this variable is non-nil, `C-e' also will never jump beyond the
-end of the heading of a folded section, i.e. not after the
-ellipses.
-
-When set to the symbol `reversed', the first `C-a' or `C-e' works
-normally, going to the true line boundary first. Only a directly
-following, identical keypress will bring the cursor to the
-special positions.
-
-This may also be a cons cell where the behavior for `C-a' and
-`C-e' is set separately."
- :group 'org-edit-structure
- :type '(choice
- (const :tag "off" nil)
- (const :tag "on: after stars/bullet and before tags first" t)
- (const :tag "reversed: true line boundary first" reversed)
- (cons :tag "Set C-a and C-e separately"
- (choice :tag "Special C-a"
- (const :tag "off" nil)
- (const :tag "on: after stars/bullet first" t)
- (const :tag "reversed: before stars/bullet first" reversed))
- (choice :tag "Special C-e"
- (const :tag "off" nil)
- (const :tag "on: before tags first" t)
- (const :tag "reversed: after tags first" reversed)))))
-(defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e)
-
-(defcustom org-special-ctrl-k nil
- "Non-nil means `C-k' will behave specially in headlines.
-When nil, `C-k' will call the default `kill-line' command.
-When t, the following will happen while the cursor is in the headline:
-
-- When the cursor is at the beginning of a headline, kill the entire
- line and possible the folded subtree below the line.
-- When in the middle of the headline text, kill the headline up to the tags.
-- When after the headline text, kill the tags."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-ctrl-k-protect-subtree nil
- "Non-nil means, do not delete a hidden subtree with C-k.
-When set to the symbol `error', simply throw an error when C-k is
-used to kill (part-of) a headline that has hidden text behind it.
-Any other non-nil value will result in a query to the user, if it is
-OK to kill that hidden subtree. When nil, kill without remorse."
- :group 'org-edit-structure
- :version "24.1"
- :type '(choice
- (const :tag "Do not protect hidden subtrees" nil)
- (const :tag "Protect hidden subtrees with a security query" t)
- (const :tag "Never kill a hidden subtree with C-k" error)))
-
-(defcustom org-special-ctrl-o t
- "Non-nil means, make `C-o' insert a row in tables."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-catch-invisible-edits nil
- "Check if in invisible region before inserting or deleting a character.
-Valid values are:
-
-nil Do not check, so just do invisible edits.
-error Throw an error and do nothing.
-show Make point visible, and do the requested edit.
-show-and-error Make point visible, then throw an error and abort the edit.
-smart Make point visible, and do insertion/deletion if it is
- adjacent to visible text and the change feels predictable.
- Never delete a previously invisible character or add in the
- middle or right after an invisible region. Basically, this
- allows insertion and backward-delete right before ellipses.
- FIXME: maybe in this case we should not even show?"
- :group 'org-edit-structure
- :version "24.1"
- :type '(choice
- (const :tag "Do not check" nil)
- (const :tag "Throw error when trying to edit" error)
- (const :tag "Unhide, but do not do the edit" show-and-error)
- (const :tag "Show invisible part and do the edit" show)
- (const :tag "Be smart and do the right thing" smart)))
-
-(defcustom org-yank-folded-subtrees t
- "Non-nil means when yanking subtrees, fold them.
-If the kill is a single subtree, or a sequence of subtrees, i.e. if
-it starts with a heading and all other headings in it are either children
-or siblings, then fold all the subtrees. However, do this only if no
-text after the yank would be swallowed into a folded tree by this action."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-yank-adjusted-subtrees nil
- "Non-nil means when yanking subtrees, adjust the level.
-With this setting, `org-paste-subtree' is used to insert the subtree, see
-this function for details."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-M-RET-may-split-line '((default . t))
- "Non-nil means M-RET will split the line at the cursor position.
-When nil, it will go to the end of the line before making a
-new line.
-You may also set this option in a different way for different
-contexts. Valid contexts are:
-
-headline when creating a new headline
-item when creating a new item
-table in a table field
-default the value to be used for all contexts not explicitly
- customized"
- :group 'org-structure
- :group 'org-table
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (repeat :greedy t :tag "Individual contexts"
- (cons
- (choice :tag "Context"
- (const headline)
- (const item)
- (const table)
- (const default))
- (boolean)))))
-
-
-(defcustom org-insert-heading-respect-content nil
- "Non-nil means insert new headings after the current subtree.
-\\<org-mode-map>
-When nil, the new heading is created directly after the current line.
-The commands `\\[org-insert-heading-respect-content]' and \
-`\\[org-insert-todo-heading-respect-content]' turn this variable on
-for the duration of the command."
- :group 'org-structure
- :type 'boolean)
-
-(defcustom org-blank-before-new-entry '((heading . auto)
- (plain-list-item . auto))
- "Should `org-insert-heading' leave a blank line before new heading/item?
-The value is an alist, with `heading' and `plain-list-item' as CAR,
-and a boolean flag as CDR. The cdr may also be the symbol `auto', in
-which case Org will look at the surrounding headings/items and try to
-make an intelligent decision whether to insert a blank line or not."
- :group 'org-edit-structure
- :type '(list
- (cons (const heading)
- (choice (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "Auto" auto)))
- (cons (const plain-list-item)
- (choice (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "Auto" auto)))))
-
-(defcustom org-insert-heading-hook nil
- "Hook being run after inserting a new heading."
- :group 'org-edit-structure
- :type 'hook)
-
-(defcustom org-enable-fixed-width-editor t
- "Non-nil means lines starting with \":\" are treated as fixed-width.
-This currently only means they are never auto-wrapped.
-When nil, such lines will be treated like ordinary lines."
- :group 'org-edit-structure
- :type 'boolean)
-
-(defcustom org-goto-auto-isearch t
- "Non-nil means typing characters in `org-goto' starts incremental search.
-When nil, you can use these keybindings to navigate the buffer:
-
- q Quit the org-goto interface
- n Go to the next visible heading
- p Go to the previous visible heading
- f Go one heading forward on same level
- b Go one heading backward on same level
- u Go one heading up"
- :group 'org-edit-structure
- :type 'boolean)
-
-(defgroup org-sparse-trees nil
- "Options concerning sparse trees in Org mode."
- :tag "Org Sparse Trees"
- :group 'org-structure)
-
-(defcustom org-highlight-sparse-tree-matches t
- "Non-nil means highlight all matches that define a sparse tree.
-The highlights will automatically disappear the next time the buffer is
-changed by an edit command."
- :group 'org-sparse-trees
- :type 'boolean)
-
-(defcustom org-remove-highlights-with-change t
- "Non-nil means any change to the buffer will remove temporary highlights.
-\\<org-mode-map>\
-Such highlights are created by `org-occur' and `org-clock-display'.
-When nil, `\\[org-ctrl-c-ctrl-c]' needs to be used \
-to get rid of the highlights.
-The highlights created by `org-toggle-latex-fragment' always need
-`\\[org-toggle-latex-fragment]' to be removed."
- :group 'org-sparse-trees
- :group 'org-time
- :type 'boolean)
-
-(defcustom org-occur-case-fold-search t
- "Non-nil means `org-occur' should be case-insensitive.
-If set to `smart' the search will be case-insensitive only if it
-doesn't specify any upper case character."
- :group 'org-sparse-trees
- :version "26.1"
- :type '(choice
- (const :tag "Case-sensitive" nil)
- (const :tag "Case-insensitive" t)
- (const :tag "Case-insensitive for lower case searches only" smart)))
-
-(defcustom org-occur-hook '(org-first-headline-recenter)
- "Hook that is run after `org-occur' has constructed a sparse tree.
-This can be used to recenter the window to show as much of the structure
-as possible."
- :group 'org-sparse-trees
- :type 'hook)
-
-(defgroup org-imenu-and-speedbar nil
- "Options concerning imenu and speedbar in Org mode."
- :tag "Org Imenu and Speedbar"
- :group 'org-structure)
-
-(defcustom org-imenu-depth 2
- "The maximum level for Imenu access to Org headlines.
-This also applied for speedbar access."
- :group 'org-imenu-and-speedbar
- :type 'integer)
-
-(defgroup org-table nil
- "Options concerning tables in Org mode."
- :tag "Org Table"
- :group 'org)
-
-(defcustom org-self-insert-cluster-for-undo nil
- "Non-nil means cluster self-insert commands for undo when possible.
-If this is set, then, like in the Emacs command loop, 20 consecutive
-characters will be undone together.
-This is configurable, because there is some impact on typing performance."
- :group 'org-table
- :type 'boolean)
-
-(defcustom org-table-tab-recognizes-table.el t
- "Non-nil means TAB will automatically notice a table.el table.
-When it sees such a table, it moves point into it and - if necessary -
-calls `table-recognize-table'."
- :group 'org-table-editing
- :type 'boolean)
-
-(defgroup org-link nil
- "Options concerning links in Org mode."
- :tag "Org Link"
- :group 'org)
-
-(defvar-local org-link-abbrev-alist-local nil
- "Buffer-local version of `org-link-abbrev-alist', which see.
-The value of this is taken from the #+LINK lines.")
-
-(defcustom org-link-parameters
- '(("doi" :follow org--open-doi-link)
- ("elisp" :follow org--open-elisp-link)
- ("file" :complete org-file-complete-link)
- ("ftp" :follow (lambda (path) (browse-url (concat "ftp:" path))))
- ("help" :follow org--open-help-link)
- ("http" :follow (lambda (path) (browse-url (concat "http:" path))))
- ("https" :follow (lambda (path) (browse-url (concat "https:" path))))
- ("mailto" :follow (lambda (path) (browse-url (concat "mailto:" path))))
- ("news" :follow (lambda (path) (browse-url (concat "news:" path))))
- ("shell" :follow org--open-shell-link))
- "An alist of properties that defines all the links in Org mode.
-The key in each association is a string of the link type.
-Subsequent optional elements make up a p-list of link properties.
-
-:follow - A function that takes the link path as an argument.
-
-:export - A function that takes the link path, description and
-export-backend as arguments.
-
-:store - A function responsible for storing the link. See the
-function `org-store-link-functions'.
-
-:complete - A function that inserts a link with completion. The
-function takes one optional prefix arg.
-
-:face - A face for the link, or a function that returns a face.
-The function takes one argument which is the link path. The
-default face is `org-link'.
-
-:mouse-face - The mouse-face. The default is `highlight'.
-
-:display - `full' will not fold the link in descriptive
-display. Default is `org-link'.
-
-:help-echo - A string or function that takes (window object position)
-as arguments and returns a string.
-
-:keymap - A keymap that is active on the link. The default is
-`org-mouse-map'.
-
-:htmlize-link - A function for the htmlize-link. Defaults
-to (list :uri \"type:path\")
-
-:activate-func - A function to run at the end of font-lock
-activation. The function must accept (link-start link-end path bracketp)
-as arguments."
- :group 'org-link
- :type '(alist :tag "Link display parameters"
- :value-type plist)
- :version "26.1"
- :package-version '(Org . "9.1"))
-
-(defun org-link-get-parameter (type key)
- "Get TYPE link property for KEY.
-TYPE is a string and KEY is a plist keyword."
- (plist-get
- (cdr (assoc type org-link-parameters))
- key))
-
-(defun org-link-set-parameters (type &rest parameters)
- "Set link TYPE properties to PARAMETERS.
- PARAMETERS should be :key val pairs."
- (let ((data (assoc type org-link-parameters)))
- (if data (setcdr data (org-combine-plists (cdr data) parameters))
- (push (cons type parameters) org-link-parameters)
- (org-make-link-regexps)
- (org-element-update-syntax))))
-
-(defun org-link-types ()
- "Return a list of known link types."
- (mapcar #'car org-link-parameters))
-
-(defcustom org-link-abbrev-alist nil
- "Alist of link abbreviations.
-The car of each element is a string, to be replaced at the start of a link.
-The cdrs are replacement values, like (\"linkkey\" . REPLACE). Abbreviated
-links in Org buffers can have an optional tag after a double colon, e.g.,
-
- [[linkkey:tag][description]]
-
-The `linkkey' must be a single word, starting with a letter, followed
-by letters, numbers, `-' or `_'.
-
-If REPLACE is a string, the tag will simply be appended to create the link.
-If the string contains \"%s\", the tag will be inserted there. If the string
-contains \"%h\", it will cause a url-encoded version of the tag to be inserted
-at that point (see the function `url-hexify-string'). If the string contains
-the specifier \"%(my-function)\", then the custom function `my-function' will
-be invoked: this function takes the tag as its only argument and must return
-a string.
-
-REPLACE may also be a function that will be called with the tag as the
-only argument to create the link, which should be returned as a string.
-
-See the manual for examples."
- :group 'org-link
- :type '(repeat
- (cons
- (string :tag "Protocol")
- (choice
- (string :tag "Format")
- (function)))))
-
-(defcustom org-descriptive-links t
- "Non-nil means Org will display descriptive links.
-E.g. [[https://orgmode.org][Org website]] will be displayed as
-\"Org Website\", hiding the link itself and just displaying its
-description. When set to nil, Org will display the full links
-literally.
-
-You can interactively set the value of this variable by calling
-`org-toggle-link-display' or from the menu Org>Hyperlinks menu."
- :group 'org-link
- :type 'boolean)
-
-(defcustom org-link-file-path-type 'adaptive
- "How the path name in file links should be stored.
-Valid values are:
-
-relative Relative to the current directory, i.e. the directory of the file
- into which the link is being inserted.
-absolute Absolute path, if possible with ~ for home directory.
-noabbrev Absolute path, no abbreviation of home directory.
-adaptive Use relative path for files in the current directory and sub-
- directories of it. For other files, use an absolute path."
- :group 'org-link
- :type '(choice
- (const relative)
- (const absolute)
- (const noabbrev)
- (const adaptive)))
-
-(defvaralias 'org-activate-links 'org-highlight-links)
-(defcustom org-highlight-links '(bracket angle plain radio tag date footnote)
- "Types of links that should be highlighted in Org files.
-
-This is a list of symbols, each one of them leading to the
-highlighting of a certain link type.
-
-You can still open links that are not highlighted.
-
-In principle, it does not hurt to turn on highlighting for all
-link types. There may be a small gain when turning off unused
-link types. The types are:
-
-bracket The recommended [[link][description]] or [[link]] links with hiding.
-angle Links in angular brackets that may contain whitespace like
- <bbdb:Carsten Dominik>.
-plain Plain links in normal text, no whitespace, like http://google.com.
-radio Text that is matched by a radio target, see manual for details.
-tag Tag settings in a headline (link to tag search).
-date Time stamps (link to calendar).
-footnote Footnote labels.
-
-If you set this variable during an Emacs session, use `org-mode-restart'
-in the Org buffer so that the change takes effect."
- :group 'org-link
- :group 'org-appearance
- :type '(set :greedy t
- (const :tag "Double bracket links" bracket)
- (const :tag "Angular bracket links" angle)
- (const :tag "Plain text links" plain)
- (const :tag "Radio target matches" radio)
- (const :tag "Tags" tag)
- (const :tag "Timestamps" date)
- (const :tag "Footnotes" footnote)))
-
-(defcustom org-make-link-description-function nil
- "Function to use for generating link descriptions from links.
-This function must take two parameters: the first one is the
-link, the second one is the description generated by
-`org-insert-link'. The function should return the description to
-use."
- :group 'org-link
- :type '(choice (const nil) (function)))
-
-(defgroup org-link-store nil
- "Options concerning storing links in Org mode."
- :tag "Org Store Link"
- :group 'org-link)
-
-(defcustom org-url-hexify-p t
- "When non-nil, hexify URL when creating a link."
- :type 'boolean
- :version "24.3"
- :group 'org-link-store)
-
-(defcustom org-email-link-description-format "Email %c: %.30s"
- "Format of the description part of a link to an email or usenet message.
-The following %-escapes will be replaced by corresponding information:
-
-%F full \"From\" field
-%f name, taken from \"From\" field, address if no name
-%T full \"To\" field
-%t first name in \"To\" field, address if no name
-%c correspondent. Usually \"from NAME\", but if you sent it yourself, it
- will be \"to NAME\". See also the variable `org-from-is-user-regexp'.
-%s subject
-%d date
-%m message-id.
-
-You may use normal field width specification between the % and the letter.
-This is for example useful to limit the length of the subject.
-
-Examples: \"%f on: %.30s\", \"Email from %f\", \"Email %c\""
- :group 'org-link-store
- :type 'string)
-
-(defcustom org-from-is-user-regexp
- (let (r1 r2)
- (when (and user-mail-address (not (string= user-mail-address "")))
- (setq r1 (concat "\\<" (regexp-quote user-mail-address) "\\>")))
- (when (and user-full-name (not (string= user-full-name "")))
- (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>")))
- (if (and r1 r2) (concat r1 "\\|" r2) (or r1 r2)))
- "Regexp matched against the \"From:\" header of an email or usenet message.
-It should match if the message is from the user him/herself."
- :group 'org-link-store
- :type 'regexp)
-
-(defcustom org-context-in-file-links t
- "Non-nil means file links from `org-store-link' contain context.
-\\<org-mode-map>
-A search string will be added to the file name with :: as separator
-and used to find the context when the link is activated by the command
-`org-open-at-point'. When this option is t, the entire active region
-will be placed in the search string of the file link. If set to a
-positive integer, only the first n lines of context will be stored.
-
-Using a prefix arg to the command `org-store-link' (`\\[universal-argument] \
-\\[org-store-link]')
-negates this setting for the duration of the command."
- :group 'org-link-store
- :type '(choice boolean integer))
-
-(defcustom org-keep-stored-link-after-insertion nil
- "Non-nil means keep link in list for entire session.
-\\<org-mode-map>
-The command `org-store-link' adds a link pointing to the current
-location to an internal list. These links accumulate during a session.
-The command `org-insert-link' can be used to insert links into any
-Org file (offering completion for all stored links).
-
-When this option is nil, every link which has been inserted once using
-`\\[org-insert-link]' will be removed from the list, to make completing the \
-unused
-links more efficient."
- :group 'org-link-store
- :type 'boolean)
-
-(defgroup org-link-follow nil
- "Options concerning following links in Org mode."
- :tag "Org Follow Link"
- :group 'org-link)
-
-(defcustom org-link-translation-function nil
- "Function to translate links with different syntax to Org syntax.
-This can be used to translate links created for example by the Planner
-or emacs-wiki packages to Org syntax.
-The function must accept two parameters, a TYPE containing the link
-protocol name like \"rmail\" or \"gnus\" as a string, and the linked path,
-which is everything after the link protocol. It should return a cons
-with possibly modified values of type and path.
-Org contains a function for this, so if you set this variable to
-`org-translate-link-from-planner', you should be able follow many
-links created by planner."
- :group 'org-link-follow
- :type '(choice (const nil) (function)))
-
-(defcustom org-follow-link-hook nil
- "Hook that is run after a link has been followed."
- :group 'org-link-follow
- :type 'hook)
-
-(defcustom org-tab-follows-link nil
- "Non-nil means on links TAB will follow the link.
-Needs to be set before org.el is loaded.
-This really should not be used, it does not make sense, and the
-implementation is bad."
- :group 'org-link-follow
- :type 'boolean)
-
-(defcustom org-return-follows-link nil
- "Non-nil means on links RET will follow the link.
-In tables, the special behavior of RET has precedence."
- :group 'org-link-follow
- :type 'boolean)
-
-(defcustom org-mouse-1-follows-link
- (if (boundp 'mouse-1-click-follows-link) mouse-1-click-follows-link t)
- "Non-nil means mouse-1 on a link will follow the link.
-A longer mouse click will still set point. Needs to be set
-before org.el is loaded."
- :group 'org-link-follow
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(choice
- (const :tag "A double click follows the link" double)
- (const :tag "Unconditionally follow the link with mouse-1" t)
- (integer :tag "mouse-1 click does not follow the link if longer than N ms" 450)))
-
-(defcustom org-mark-ring-length 4
- "Number of different positions to be recorded in the ring.
-Changing this requires a restart of Emacs to work correctly."
- :group 'org-link-follow
- :type 'integer)
-
-(defcustom org-link-search-must-match-exact-headline 'query-to-create
- "Non-nil means internal fuzzy links can only match headlines.
-
-When nil, the a fuzzy link may point to a target or a named
-construct in the document. When set to the special value
-`query-to-create', offer to create a new headline when none
-matched.
-
-Spaces and statistics cookies are ignored during heading searches."
- :group 'org-link-follow
- :version "24.1"
- :type '(choice
- (const :tag "Use fuzzy text search" nil)
- (const :tag "Match only exact headline" t)
- (const :tag "Match exact headline or query to create it"
- query-to-create))
- :safe #'symbolp)
-
-(defcustom 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-other-window)
- (wl . wl-other-frame))
- "Setup the frame configuration for following links.
-When following a link with Emacs, it may often be useful to display
-this link in another window or frame. This variable can be used to
-set this up for the different types of links.
-For VM, use any of
- `vm-visit-folder'
- `vm-visit-folder-other-window'
- `vm-visit-folder-other-frame'
-For Gnus, use any of
- `gnus'
- `gnus-other-frame'
- `org-gnus-no-new-news'
-For FILE, use any of
- `find-file'
- `find-file-other-window'
- `find-file-other-frame'
-For Wanderlust use any of
- `wl'
- `wl-other-frame'
-For the calendar, use the variable `calendar-setup'.
-For BBDB, it is currently only possible to display the matches in
-another window."
- :group 'org-link-follow
- :type '(list
- (cons (const vm)
- (choice
- (const vm-visit-folder)
- (const vm-visit-folder-other-window)
- (const vm-visit-folder-other-frame)))
- (cons (const vm-imap)
- (choice
- (const vm-visit-imap-folder)
- (const vm-visit-imap-folder-other-window)
- (const vm-visit-imap-folder-other-frame)))
- (cons (const gnus)
- (choice
- (const gnus)
- (const gnus-other-frame)
- (const org-gnus-no-new-news)))
- (cons (const file)
- (choice
- (const find-file)
- (const find-file-other-window)
- (const find-file-other-frame)))
- (cons (const wl)
- (choice
- (const wl)
- (const wl-other-frame)))))
-
-(defcustom org-display-internal-link-with-indirect-buffer nil
- "Non-nil means use indirect buffer to display infile links.
-Activating internal links (from one location in a file to another location
-in the same file) normally just jumps to the location. When the link is
-activated with a `\\[universal-argument]' prefix (or with mouse-3), the link \
-is displayed in
-another window. When this option is set, the other window actually displays
-an indirect buffer clone of the current buffer, to avoid any visibility
-changes to the current buffer."
- :group 'org-link-follow
- :type 'boolean)
-
-(defcustom org-open-non-existing-files nil
- "Non-nil means `org-open-file' will open non-existing files.
-When nil, an error will be generated.
-This variable applies only to external applications because they
-might choke on non-existing files. If the link is to a file that
-will be opened in Emacs, the variable is ignored."
- :group 'org-link-follow
- :type 'boolean)
-
-(defcustom org-open-directory-means-index-dot-org nil
- "Non-nil means a link to a directory really means to index.org.
-When nil, following a directory link will run dired or open a finder/explorer
-window on that directory."
- :group 'org-link-follow
- :type 'boolean)
-
-(defcustom org-confirm-shell-link-function 'yes-or-no-p
- "Non-nil means ask for confirmation before executing shell links.
-Shell links can be dangerous: just think about a link
-
- [[shell:rm -rf ~/*][Google Search]]
-
-This link would show up in your Org document as \"Google Search\",
-but really it would remove your entire home directory.
-Therefore we advise against setting this variable to nil.
-Just change it to `y-or-n-p' if you want to confirm with a
-single keystroke rather than having to type \"yes\"."
- :group 'org-link-follow
- :type '(choice
- (const :tag "with yes-or-no (safer)" yes-or-no-p)
- (const :tag "with y-or-n (faster)" y-or-n-p)
- (const :tag "no confirmation (dangerous)" nil)))
-(put 'org-confirm-shell-link-function
- 'safe-local-variable
- (lambda (x) (member x '(yes-or-no-p y-or-n-p))))
-
-(defcustom org-confirm-shell-link-not-regexp ""
- "A regexp to skip confirmation for shell links."
- :group 'org-link-follow
- :version "24.1"
- :type 'regexp)
-
-(defcustom org-confirm-elisp-link-function 'yes-or-no-p
- "Non-nil means ask for confirmation before executing Emacs Lisp links.
-Elisp links can be dangerous: just think about a link
-
- [[elisp:(shell-command \"rm -rf ~/*\")][Google Search]]
-
-This link would show up in your Org document as \"Google Search\",
-but really it would remove your entire home directory.
-Therefore we advise against setting this variable to nil.
-Just change it to `y-or-n-p' if you want to confirm with a
-single keystroke rather than having to type \"yes\"."
- :group 'org-link-follow
- :type '(choice
- (const :tag "with yes-or-no (safer)" yes-or-no-p)
- (const :tag "with y-or-n (faster)" y-or-n-p)
- (const :tag "no confirmation (dangerous)" nil)))
-(put 'org-confirm-shell-link-function
- 'safe-local-variable
- (lambda (x) (member x '(yes-or-no-p y-or-n-p))))
-
-(defcustom org-confirm-elisp-link-not-regexp ""
- "A regexp to skip confirmation for Elisp links."
- :group 'org-link-follow
- :version "24.1"
- :type 'regexp)
-
-(defconst org-file-apps-defaults-gnu
- '((remote . emacs)
- (system . mailcap)
- (t . mailcap))
- "Default file applications on a UNIX or GNU/Linux system.
-See `org-file-apps'.")
-
-(defconst org-file-apps-defaults-macosx
- '((remote . emacs)
- (system . "open %s")
- ("ps.gz" . "gv %s")
- ("eps.gz" . "gv %s")
- ("dvi" . "xdvi %s")
- ("fig" . "xfig %s")
- (t . "open %s"))
- "Default file applications on a macOS system.
-The system \"open\" is known as a default, but we use X11 applications
-for some files for which the OS does not have a good default.
-See `org-file-apps'.")
-
-(defconst org-file-apps-defaults-windowsnt
- (list '(remote . emacs)
- (cons 'system (lambda (file _path)
- (with-no-warnings (w32-shell-execute "open" file))))
- (cons t (lambda (file _path)
- (with-no-warnings (w32-shell-execute "open" file)))))
- "Default file applications on a Windows NT system.
-The system \"open\" is used for most files.
-See `org-file-apps'.")
-
-(defcustom org-file-apps
- '((auto-mode . emacs)
- ("\\.mm\\'" . default)
- ("\\.x?html?\\'" . default)
- ("\\.pdf\\'" . default))
- "External applications for opening `file:path' items in a document.
-\\<org-mode-map>\
-
-Org mode uses system defaults for different file types, but
-you can use this variable to set the application for a given file
-extension. The entries in this list are cons cells where the car identifies
-files and the cdr the corresponding command.
-
-Possible values for the file identifier are:
-
- \"string\" A string as a file identifier can be interpreted in different
- ways, depending on its contents:
-
- - Alphanumeric characters only:
- Match links with this file extension.
- Example: (\"pdf\" . \"evince %s\")
- to open PDFs with evince.
-
- - Regular expression: Match links where the
- filename matches the regexp. If you want to
- use groups here, use shy groups.
-
- Example: (\"\\\\.x?html\\\\\\='\" . \"firefox %s\")
- (\"\\\\(?:xhtml\\\\|html\\\\)\\\\\\='\" . \"firefox %s\")
- to open *.html and *.xhtml with firefox.
-
- - Regular expression which contains (non-shy) groups:
- Match links where the whole link, including \"::\", and
- anything after that, matches the regexp.
- In a custom command string, %1, %2, etc. are replaced with
- the parts of the link that were matched by the groups.
- For backwards compatibility, if a command string is given
- that does not use any of the group matches, this case is
- handled identically to the second one (i.e. match against
- file name only).
- In a custom function, you can access the group matches with
- (match-string n link).
-
- Example: (\"\\\\.pdf::\\\\([0-9]+\\\\)\\\\\\='\" . \
-\"evince -p %1 %s\")
- to open [[file:document.pdf::5]] with evince at page 5.
-
- `directory' Matches a directory
- `remote' Matches a remote file, accessible through tramp or efs.
- Remote files most likely should be visited through Emacs
- because external applications cannot handle such paths.
-`auto-mode' Matches files that are matched by any entry in `auto-mode-alist',
- so all files Emacs knows how to handle. Using this with
- command `emacs' will open most files in Emacs. Beware that this
- will also open html files inside Emacs, unless you add
- (\"html\" . default) to the list as well.
- `system' The system command to open files, like `open' on Windows
- and macOS, and mailcap under GNU/Linux. This is the command
- that will be selected if you call `org-open-at-point' with a
- double prefix argument (`\\[universal-argument] \
-\\[universal-argument] \\[org-open-at-point]').
- t Default for files not matched by any of the other options.
-
-Possible values for the command are:
-
- `emacs' The file will be visited by the current Emacs process.
- `default' Use the default application for this file type, which is the
- association for t in the list, most likely in the system-specific
- part. This can be used to overrule an unwanted setting in the
- system-specific variable.
- `system' Use the system command for opening files, like \"open\".
- This command is specified by the entry whose car is `system'.
- Most likely, the system-specific version of this variable
- does define this command, but you can overrule/replace it
- here.
-`mailcap' Use command specified in the mailcaps.
- string A command to be executed by a shell; %s will be replaced
- by the path to the file.
- function A Lisp function, which will be called with two arguments:
- the file path and the original link string, without the
- \"file:\" prefix.
-
-For more examples, see the system specific constants
-`org-file-apps-defaults-macosx'
-`org-file-apps-defaults-windowsnt'
-`org-file-apps-defaults-gnu'."
- :group 'org-link-follow
- :type '(repeat
- (cons (choice :value ""
- (string :tag "Extension")
- (const :tag "System command to open files" system)
- (const :tag "Default for unrecognized files" t)
- (const :tag "Remote file" remote)
- (const :tag "Links to a directory" directory)
- (const :tag "Any files that have Emacs modes"
- auto-mode))
- (choice :value ""
- (const :tag "Visit with Emacs" emacs)
- (const :tag "Use default" default)
- (const :tag "Use the system command" system)
- (string :tag "Command")
- (function :tag "Function")))))
-
-(defcustom org-doi-server-url "http://dx.doi.org/"
- "The URL of the DOI server."
- :type 'string
- :version "24.3"
- :group 'org-link-follow)
-
-(defgroup org-refile nil
- "Options concerning refiling entries in Org mode."
- :tag "Org Refile"
- :group 'org)
-
-(defcustom org-directory "~/org"
- "Directory with Org files.
-This is just a default location to look for Org files. There is no need
-at all to put your files into this directory. It is used in the
-following situations:
-
-1. When a capture template specifies a target file that is not an
- absolute path. The path will then be interpreted relative to
- `org-directory'
-2. When the value of variable `org-agenda-files' is a single file, any
- relative paths in this file will be taken as relative to
- `org-directory'."
- :group 'org-refile
- :group 'org-capture
- :type 'directory)
-
-(defcustom org-default-notes-file (convert-standard-filename "~/.notes")
- "Default target for storing notes.
-Used as a fall back file for org-capture.el, for templates that
-do not specify a target file."
- :group 'org-refile
- :group 'org-capture
- :type 'file)
-
-(defcustom org-goto-interface 'outline
- "The default interface to be used for `org-goto'.
-Allowed values are:
-outline The interface shows an outline of the relevant file
- and the correct heading is found by moving through
- the outline or by searching with incremental search.
-outline-path-completion Headlines in the current buffer are offered via
- completion. This is the interface also used by
- the refile command."
- :group 'org-refile
- :type '(choice
- (const :tag "Outline" outline)
- (const :tag "Outline-path-completion" outline-path-completion)))
-
-(defcustom org-goto-max-level 5
- "Maximum target level when running `org-goto' with refile interface."
- :group 'org-refile
- :type 'integer)
-
-(defcustom org-reverse-note-order nil
- "Non-nil means store new notes at the beginning of a file or entry.
-When nil, new notes will be filed to the end of a file or entry.
-This can also be a list with cons cells of regular expressions that
-are matched against file names, and values."
- :group 'org-capture
- :group 'org-refile
- :type '(choice
- (const :tag "Reverse always" t)
- (const :tag "Reverse never" nil)
- (repeat :tag "By file name regexp"
- (cons regexp boolean))))
-
-(defcustom org-log-refile nil
- "Information to record when a task is refiled.
-
-Possible values are:
-
-nil Don't add anything
-time Add a time stamp to the task
-note Prompt for a note and add it with template `org-log-note-headings'
-
-This option can also be set with on a per-file-basis with
-
- #+STARTUP: nologrefile
- #+STARTUP: logrefile
- #+STARTUP: lognoterefile
-
-You can have local logging settings for a subtree by setting the LOGGING
-property to one or more of these keywords.
-
-When bulk-refiling from the agenda, the value `note' is forbidden and
-will temporarily be changed to `time'."
- :group 'org-refile
- :group 'org-progress
- :version "24.1"
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record timestamp" time)
- (const :tag "Record timestamp with note." note)))
-
-(defcustom org-refile-targets nil
- "Targets for refiling entries with `\\[org-refile]'.
-This is a list of cons cells. Each cell contains:
-- a specification of the files to be considered, either a list of files,
- or a symbol whose function or variable value will be used to retrieve
- a file name or a list of file names. If you use `org-agenda-files' for
- that, all agenda files will be scanned for targets. Nil means consider
- headings in the current buffer.
-- A specification of how to find candidate refile targets. This may be
- any of:
- - a cons cell (:tag . \"TAG\") to identify refile targets by a tag.
- This tag has to be present in all target headlines, inheritance will
- not be considered.
- - a cons cell (:todo . \"KEYWORD\") to identify refile targets by
- todo keyword.
- - a cons cell (:regexp . \"REGEXP\") with a regular expression matching
- headlines that are refiling targets.
- - a cons cell (:level . N). Any headline of level N is considered a target.
- Note that, when `org-odd-levels-only' is set, level corresponds to
- order in hierarchy, not to the number of stars.
- - a cons cell (:maxlevel . N). Any headline with level <= N is a target.
- Note that, when `org-odd-levels-only' is set, level corresponds to
- order in hierarchy, not to the number of stars.
-
-Each element of this list generates a set of possible targets.
-The union of these sets is presented (with completion) to
-the user by `org-refile'.
-
-You can set the variable `org-refile-target-verify-function' to a function
-to verify each headline found by the simple criteria above.
-
-When this variable is nil, all top-level headlines in the current buffer
-are used, equivalent to the value `((nil . (:level . 1))'."
- :group 'org-refile
- :type '(repeat
- (cons
- (choice :value org-agenda-files
- (const :tag "All agenda files" org-agenda-files)
- (const :tag "Current buffer" nil)
- (function) (variable) (file))
- (choice :tag "Identify target headline by"
- (cons :tag "Specific tag" (const :value :tag) (string))
- (cons :tag "TODO keyword" (const :value :todo) (string))
- (cons :tag "Regular expression" (const :value :regexp) (regexp))
- (cons :tag "Level number" (const :value :level) (integer))
- (cons :tag "Max Level number" (const :value :maxlevel) (integer))))))
-
-(defcustom org-refile-target-verify-function nil
- "Function to verify if the headline at point should be a refile target.
-The function will be called without arguments, with point at the
-beginning of the headline. It should return t and leave point
-where it is if the headline is a valid target for refiling.
-
-If the target should not be selected, the function must return nil.
-In addition to this, it may move point to a place from where the search
-should be continued. For example, the function may decide that the entire
-subtree of the current entry should be excluded and move point to the end
-of the subtree."
- :group 'org-refile
- :type '(choice
- (const nil)
- (function)))
-
-(defcustom org-refile-use-cache nil
- "Non-nil means cache refile targets to speed up the process.
-\\<org-mode-map>\
-The cache for a particular file will be updated automatically when
-the buffer has been killed, or when any of the marker used for flagging
-refile targets no longer points at a live buffer.
-If you have added new entries to a buffer that might themselves be targets,
-you need to clear the cache manually by pressing `C-0 \\[org-refile]' or,
-if you find that easier, \
-`\\[universal-argument] \\[universal-argument] \\[universal-argument] \
-\\[org-refile]'."
- :group 'org-refile
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-refile-use-outline-path nil
- "Non-nil means provide refile targets as paths.
-So a level 3 headline will be available as level1/level2/level3.
-
-When the value is `file', also include the file name (without directory)
-into the path. In this case, you can also stop the completion after
-the file name, to get entries inserted as top level in the file.
-
-When `full-file-path', include the full file path.
-
-When `buffer-name', use the buffer name."
- :group 'org-refile
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Yes" t)
- (const :tag "Start with file name" file)
- (const :tag "Start with full file path" full-file-path)
- (const :tag "Start with buffer name" buffer-name)))
-
-(defcustom org-outline-path-complete-in-steps t
- "Non-nil means complete the outline path in hierarchical steps.
-When Org uses the refile interface to select an outline path (see
-`org-refile-use-outline-path'), the completion of the path can be
-done in a single go, or it can be done in steps down the headline
-hierarchy. Going in steps is probably the best if you do not use
-a special completion package like `ido' or `icicles'. However,
-when using these packages, going in one step can be very fast,
-while still showing the whole path to the entry."
- :group 'org-refile
- :type 'boolean)
-
-(defcustom org-refile-allow-creating-parent-nodes nil
- "Non-nil means allow the creation of new nodes as refile targets.
-New nodes are then created by adding \"/new node name\" to the completion
-of an existing node. When the value of this variable is `confirm',
-new node creation must be confirmed by the user (recommended).
-When nil, the completion must match an existing entry.
-
-Note that, if the new heading is not seen by the criteria
-listed in `org-refile-targets', multiple instances of the same
-heading would be created by trying again to file under the new
-heading."
- :group 'org-refile
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "Prompt for confirmation" confirm)))
-
-(defcustom org-refile-active-region-within-subtree nil
- "Non-nil means also refile active region within a subtree.
-
-By default `org-refile' doesn't allow refiling regions if they
-don't contain a set of subtrees, but it might be convenient to
-do so sometimes: in that case, the first line of the region is
-converted to a headline before refiling."
- :group 'org-refile
- :version "24.1"
- :type 'boolean)
-
-(defgroup org-todo nil
- "Options concerning TODO items in Org mode."
- :tag "Org TODO"
- :group 'org)
-
-(defgroup org-progress nil
- "Options concerning Progress logging in Org mode."
- :tag "Org Progress"
- :group 'org-time)
-
-(defvar org-todo-interpretation-widgets
- '((:tag "Sequence (cycling hits every state)" sequence)
- (:tag "Type (cycling directly to DONE)" type))
- "The available interpretation symbols for customizing `org-todo-keywords'.
-Interested libraries should add to this list.")
-
-(defcustom org-todo-keywords '((sequence "TODO" "DONE"))
- "List of TODO entry keyword sequences and their interpretation.
-\\<org-mode-map>This is a list of sequences.
-
-Each sequence starts with a symbol, either `sequence' or `type',
-indicating if the keywords should be interpreted as a sequence of
-action steps, or as different types of TODO items. The first
-keywords are states requiring action - these states will select a headline
-for inclusion into the global TODO list Org produces. If one of the
-\"keywords\" is the vertical bar, \"|\", the remaining keywords
-signify that no further action is necessary. If \"|\" is not found,
-the last keyword is treated as the only DONE state of the sequence.
-
-The command `\\[org-todo]' cycles an entry through these states, and one
-additional state where no keyword is present. For details about this
-cycling, see the manual.
-
-TODO keywords and interpretation can also be set on a per-file basis with
-the special #+SEQ_TODO and #+TYP_TODO lines.
-
-Each keyword can optionally specify a character for fast state selection
-\(in combination with the variable `org-use-fast-todo-selection')
-and specifiers for state change logging, using the same syntax that
-is used in the \"#+TODO:\" lines. For example, \"WAIT(w)\" says that
-the WAIT state can be selected with the \"w\" key. \"WAIT(w!)\"
-indicates to record a time stamp each time this state is selected.
-
-Each keyword may also specify if a timestamp or a note should be
-recorded when entering or leaving the state, by adding additional
-characters in the parenthesis after the keyword. This looks like this:
-\"WAIT(w@/!)\". \"@\" means to add a note (with time), \"!\" means to
-record only the time of the state change. With X and Y being either
-\"@\" or \"!\", \"X/Y\" means use X when entering the state, and use
-Y when leaving the state if and only if the *target* state does not
-define X. You may omit any of the fast-selection key or X or /Y,
-so WAIT(w@), WAIT(w/@) and WAIT(@/@) are all valid.
-
-For backward compatibility, this variable may also be just a list
-of keywords. In this case the interpretation (sequence or type) will be
-taken from the (otherwise obsolete) variable `org-todo-interpretation'."
- :group 'org-todo
- :group 'org-keywords
- :type '(choice
- (repeat :tag "Old syntax, just keywords"
- (string :tag "Keyword"))
- (repeat :tag "New syntax"
- (cons
- (choice
- :tag "Interpretation"
- ;;Quick and dirty way to see
- ;;`org-todo-interpretations'. This takes the
- ;;place of item arguments
- :convert-widget
- (lambda (widget)
- (widget-put widget
- :args (mapcar
- (lambda (x)
- (widget-convert
- (cons 'const x)))
- org-todo-interpretation-widgets))
- widget))
- (repeat
- (string :tag "Keyword"))))))
-
-(defvar-local org-todo-keywords-1 nil
- "All TODO and DONE keywords active in a buffer.")
-(defvar org-todo-keywords-for-agenda nil)
-(defvar org-done-keywords-for-agenda nil)
-(defvar org-todo-keyword-alist-for-agenda nil)
-(defvar org-tag-alist-for-agenda nil
- "Alist of all tags from all agenda files.")
-(defvar org-tag-groups-alist-for-agenda nil
- "Alist of all groups tags from all current agenda files.")
-(defvar-local org-tag-groups-alist nil)
-(defvar org-agenda-contributing-files nil)
-(defvar-local org-current-tag-alist nil
- "Alist of all tag groups in current buffer.
-This variable takes into consideration `org-tag-alist',
-`org-tag-persistent-alist' and TAGS keywords in the buffer.")
-(defvar-local org-not-done-keywords nil)
-(defvar-local org-done-keywords nil)
-(defvar-local org-todo-heads nil)
-(defvar-local org-todo-sets nil)
-(defvar-local org-todo-log-states nil)
-(defvar-local org-todo-kwd-alist nil)
-(defvar-local org-todo-key-alist nil)
-(defvar-local org-todo-key-trigger nil)
-
-(defcustom org-todo-interpretation 'sequence
- "Controls how TODO keywords are interpreted.
-This variable is in principle obsolete and is only used for
-backward compatibility, if the interpretation of todo keywords is
-not given already in `org-todo-keywords'. See that variable for
-more information."
- :group 'org-todo
- :group 'org-keywords
- :type '(choice (const sequence)
- (const type)))
-
-(defcustom org-use-fast-todo-selection t
- "\\<org-mode-map>\
-Non-nil means use the fast todo selection scheme with `\\[org-todo]'.
-This variable describes if and under what circumstances the cycling
-mechanism for TODO keywords will be replaced by a single-key, direct
-selection scheme.
-
-When nil, fast selection is never used.
-
-When the symbol `prefix', it will be used when `org-todo' is called
-with a prefix argument, i.e. `\\[universal-argument] \\[org-todo]' \
-in an Org buffer, and
-`\\[universal-argument] t' in an agenda buffer.
-
-When t, fast selection is used by default. In this case, the prefix
-argument forces cycling instead.
-
-In all cases, the special interface is only used if access keys have
-actually been assigned by the user, i.e. if keywords in the configuration
-are followed by a letter in parenthesis, like TODO(t)."
- :group 'org-todo
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "By default" t)
- (const :tag "Only with C-u C-c C-t" prefix)))
-
-(defcustom org-provide-todo-statistics t
- "Non-nil means update todo statistics after insert and toggle.
-ALL-HEADLINES means update todo statistics by including headlines
-with no TODO keyword as well, counting them as not done.
-A list of TODO keywords means the same, but skip keywords that are
-not in this list.
-When set to a list of two lists, the first list contains keywords
-to consider as TODO keywords, the second list contains keywords
-to consider as DONE keywords.
-
-When this is set, todo statistics is updated in the parent of the
-current entry each time a todo state is changed."
- :group 'org-todo
- :type '(choice
- (const :tag "Yes, only for TODO entries" t)
- (const :tag "Yes, including all entries" all-headlines)
- (repeat :tag "Yes, for TODOs in this list"
- (string :tag "TODO keyword"))
- (list :tag "Yes, for TODOs and DONEs in these lists"
- (repeat (string :tag "TODO keyword"))
- (repeat (string :tag "DONE keyword")))
- (other :tag "No TODO statistics" nil)))
-
-(defcustom org-hierarchical-todo-statistics t
- "Non-nil means TODO statistics covers just direct children.
-When nil, all entries in the subtree are considered.
-This has only an effect if `org-provide-todo-statistics' is set.
-To set this to nil for only a single subtree, use a COOKIE_DATA
-property and include the word \"recursive\" into the value."
- :group 'org-todo
- :type 'boolean)
-
-(defcustom org-after-todo-state-change-hook nil
- "Hook which is run after the state of a TODO item was changed.
-The new state (a string with a TODO keyword, or nil) is available in the
-Lisp variable `org-state'."
- :group 'org-todo
- :type 'hook)
-
-(defvar org-blocker-hook nil
- "Hook for functions that are allowed to block a state change.
-
-Functions in this hook should not modify the buffer.
-Each function gets as its single argument a property list,
-see `org-trigger-hook' for more information about this list.
-
-If any of the functions in this hook returns nil, the state change
-is blocked.")
-
-(defvar org-trigger-hook nil
- "Hook for functions that are triggered by a state change.
-
-Each function gets as its single argument a property list with at
-least the following elements:
-
- (:type type-of-change :position pos-at-entry-start
- :from old-state :to new-state)
-
-Depending on the type, more properties may be present.
-
-This mechanism is currently implemented for:
-
-TODO state changes
-------------------
-:type todo-state-change
-:from previous state (keyword as a string), or nil, or a symbol
- `todo' or `done', to indicate the general type of state.
-:to new state, like in :from")
-
-(defcustom org-enforce-todo-dependencies nil
- "Non-nil means undone TODO entries will block switching the parent to DONE.
-Also, if a parent has an :ORDERED: property, switching an entry to DONE will
-be blocked if any prior sibling is not yet done.
-Finally, if the parent is blocked because of ordered siblings of its own,
-the child will also be blocked."
- :set (lambda (var val)
- (set var val)
- (if val
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent)))
- :group 'org-todo
- :type 'boolean)
-
-(defcustom org-enforce-todo-checkbox-dependencies nil
- "Non-nil means unchecked boxes will block switching the parent to DONE.
-When this is nil, checkboxes have no influence on switching TODO states.
-When non-nil, you first need to check off all check boxes before the TODO
-entry can be switched to DONE.
-This variable needs to be set before org.el is loaded, and you need to
-restart Emacs after a change to make the change effective. The only way
-to change is while Emacs is running is through the customize interface."
- :set (lambda (var val)
- (set var val)
- (if val
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes)))
- :group 'org-todo
- :type 'boolean)
-
-(defcustom org-treat-insert-todo-heading-as-state-change nil
- "Non-nil means inserting a TODO heading is treated as state change.
-So when the command `\\[org-insert-todo-heading]' is used, state change
-logging will apply if appropriate. When nil, the new TODO item will
-be inserted directly, and no logging will take place."
- :group 'org-todo
- :type 'boolean)
-
-(defcustom org-treat-S-cursor-todo-selection-as-state-change t
- "Non-nil means switching TODO states with S-cursor counts as state change.
-This is the default behavior. However, setting this to nil allows a
-convenient way to select a TODO state and bypass any logging associated
-with that."
- :group 'org-todo
- :type 'boolean)
-
-(defcustom org-todo-state-tags-triggers nil
- "Tag changes that should be triggered by TODO state changes.
-This is a list. Each entry is
-
- (state-change (tag . flag) .......)
-
-State-change can be a string with a state, and empty string to indicate the
-state that has no TODO keyword, or it can be one of the symbols `todo'
-or `done', meaning any not-done or done state, respectively."
- :group 'org-todo
- :group 'org-tags
- :type '(repeat
- (cons (choice :tag "When changing to"
- (const :tag "Not-done state" todo)
- (const :tag "Done state" done)
- (string :tag "State"))
- (repeat
- (cons :tag "Tag action"
- (string :tag "Tag")
- (choice (const :tag "Add" t) (const :tag "Remove" nil)))))))
-
-(defcustom org-log-done nil
- "Information to record when a task moves to the DONE state.
-
-Possible values are:
-
-nil Don't add anything, just change the keyword
-time Add a time stamp to the task
-note Prompt for a note and add it with template `org-log-note-headings'
-
-This option can also be set with on a per-file-basis with
-
- #+STARTUP: nologdone
- #+STARTUP: logdone
- #+STARTUP: lognotedone
-
-You can have local logging settings for a subtree by setting the LOGGING
-property to one or more of these keywords."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record CLOSED timestamp" time)
- (const :tag "Record CLOSED timestamp with note." note)))
-
-;; Normalize old uses of org-log-done.
-(cond
- ((eq org-log-done t) (setq org-log-done 'time))
- ((and (listp org-log-done) (memq 'done org-log-done))
- (setq org-log-done 'note)))
-
-(defcustom org-log-reschedule nil
- "Information to record when the scheduling date of a tasks is modified.
-
-Possible values are:
-
-nil Don't add anything, just change the date
-time Add a time stamp to the task
-note Prompt for a note and add it with template `org-log-note-headings'
-
-This option can also be set with on a per-file-basis with
-
- #+STARTUP: nologreschedule
- #+STARTUP: logreschedule
- #+STARTUP: lognotereschedule"
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record timestamp" time)
- (const :tag "Record timestamp with note." note)))
-
-(defcustom org-log-redeadline nil
- "Information to record when the deadline date of a tasks is modified.
-
-Possible values are:
-
-nil Don't add anything, just change the date
-time Add a time stamp to the task
-note Prompt for a note and add it with template `org-log-note-headings'
-
-This option can also be set with on a per-file-basis with
-
- #+STARTUP: nologredeadline
- #+STARTUP: logredeadline
- #+STARTUP: lognoteredeadline
-
-You can have local logging settings for a subtree by setting the LOGGING
-property to one or more of these keywords."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record timestamp" time)
- (const :tag "Record timestamp with note." note)))
-
-(defcustom org-log-note-clock-out nil
- "Non-nil means record a note when clocking out of an item.
-This can also be configured on a per-file basis by adding one of
-the following lines anywhere in the buffer:
-
- #+STARTUP: lognoteclock-out
- #+STARTUP: nolognoteclock-out"
- :group 'org-todo
- :group 'org-progress
- :type 'boolean)
-
-(defcustom org-log-done-with-time t
- "Non-nil means the CLOSED time stamp will contain date and time.
-When nil, only the date will be recorded."
- :group 'org-progress
- :type 'boolean)
-
-(defcustom org-log-note-headings
- '((done . "CLOSING NOTE %t")
- (state . "State %-12s from %-12S %t")
- (note . "Note taken on %t")
- (reschedule . "Rescheduled from %S on %t")
- (delschedule . "Not scheduled, was %S on %t")
- (redeadline . "New deadline from %S on %t")
- (deldeadline . "Removed deadline, was %S on %t")
- (refile . "Refiled on %t")
- (clock-out . ""))
- "Headings for notes added to entries.
-
-The value is an alist, with the car being a symbol indicating the
-note context, and the cdr is the heading to be used. The heading
-may also be the empty string. The following placeholders can be
-used:
-
- %t a time stamp.
- %T an active time stamp instead the default inactive one
- %d a short-format time stamp.
- %D an active short-format time stamp.
- %s the new TODO state or time stamp (inactive), in double quotes.
- %S the old TODO state or time stamp (inactive), in double quotes.
- %u the user name.
- %U full user name.
-
-In fact, it is not a good idea to change the `state' entry,
-because Agenda Log mode depends on the format of these entries."
- :group 'org-todo
- :group 'org-progress
- :type '(list :greedy t
- (cons (const :tag "Heading when closing an item" done) string)
- (cons (const :tag
- "Heading when changing todo state (todo sequence only)"
- state) string)
- (cons (const :tag "Heading when just taking a note" note) string)
- (cons (const :tag "Heading when rescheduling" reschedule) string)
- (cons (const :tag "Heading when an item is no longer scheduled" delschedule) string)
- (cons (const :tag "Heading when changing deadline" redeadline) string)
- (cons (const :tag "Heading when deleting a deadline" deldeadline) string)
- (cons (const :tag "Heading when refiling" refile) string)
- (cons (const :tag "Heading when clocking out" clock-out) string)))
-
-(unless (assq 'note org-log-note-headings)
- (push '(note . "%t") org-log-note-headings))
-
-(defcustom org-log-into-drawer nil
- "Non-nil means insert state change notes and time stamps into a drawer.
-When nil, state changes notes will be inserted after the headline and
-any scheduling and clock lines, but not inside a drawer.
-
-The value of this variable should be the name of the drawer to use.
-LOGBOOK is proposed as the default drawer for this purpose, you can
-also set this to a string to define the drawer of your choice.
-
-A value of t is also allowed, representing \"LOGBOOK\".
-
-A value of t or nil can also be set with on a per-file-basis with
-
- #+STARTUP: logdrawer
- #+STARTUP: nologdrawer
-
-If this variable is set, `org-log-state-notes-insert-after-drawers'
-will be ignored.
-
-You can set the property LOG_INTO_DRAWER to overrule this setting for
-a subtree.
-
-Do not check directly this variable in a Lisp program. Call
-function `org-log-into-drawer' instead."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "Not into a drawer" nil)
- (const :tag "LOGBOOK" t)
- (string :tag "Other")))
-
-(defvaralias 'org-log-state-notes-into-drawer 'org-log-into-drawer)
-
-(defun org-log-into-drawer ()
- "Name of the log drawer, as a string, or nil.
-This is the value of `org-log-into-drawer'. However, if the
-current entry has or inherits a LOG_INTO_DRAWER property, it will
-be used instead of the default value."
- (let ((p (org-entry-get nil "LOG_INTO_DRAWER" 'inherit t)))
- (cond ((equal p "nil") nil)
- ((equal p "t") "LOGBOOK")
- ((stringp p) p)
- (p "LOGBOOK")
- ((stringp org-log-into-drawer) org-log-into-drawer)
- (org-log-into-drawer "LOGBOOK"))))
-
-(defcustom org-log-state-notes-insert-after-drawers nil
- "Non-nil means insert state change notes after any drawers in entry.
-Only the drawers that *immediately* follow the headline and the
-deadline/scheduled line are skipped.
-When nil, insert notes right after the heading and perhaps the line
-with deadline/scheduling if present.
-
-This variable will have no effect if `org-log-into-drawer' is
-set."
- :group 'org-todo
- :group 'org-progress
- :type 'boolean)
-
-(defcustom org-log-states-order-reversed t
- "Non-nil means the latest state note will be directly after heading.
-When nil, the state change notes will be ordered according to time.
-
-This option can also be set with on a per-file-basis with
-
- #+STARTUP: logstatesreversed
- #+STARTUP: nologstatesreversed"
- :group 'org-todo
- :group 'org-progress
- :type 'boolean)
-
-(defcustom org-todo-repeat-to-state nil
- "The TODO state to which a repeater should return the repeating task.
-By default this is the first task in a TODO sequence, or the previous state
-in a TODO_TYP set. But you can specify another task here.
-alternatively, set the :REPEAT_TO_STATE: property of the entry."
- :group 'org-todo
- :version "24.1"
- :type '(choice (const :tag "Head of sequence" nil)
- (string :tag "Specific state")))
-
-(defcustom org-log-repeat 'time
- "Non-nil means record moving through the DONE state when triggering repeat.
-An auto-repeating task is immediately switched back to TODO when
-marked DONE. If you are not logging state changes (by adding \"@\"
-or \"!\" to the TODO keyword definition), or set `org-log-done' to
-record a closing note, there will be no record of the task moving
-through DONE. This variable forces taking a note anyway.
-
-nil Don't force a record
-time Record a time stamp
-note Prompt for a note and add it with template `org-log-note-headings'
-
-This option can also be set with on a per-file-basis with
-
- #+STARTUP: nologrepeat
- #+STARTUP: logrepeat
- #+STARTUP: lognoterepeat
-
-You can have local logging settings for a subtree by setting the LOGGING
-property to one or more of these keywords."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "Don't force a record" nil)
- (const :tag "Force recording the DONE state" time)
- (const :tag "Force recording a note with the DONE state" note)))
-
-
-(defgroup org-priorities nil
- "Priorities in Org mode."
- :tag "Org Priorities"
- :group 'org-todo)
-
-(defcustom org-enable-priority-commands t
- "Non-nil means priority commands are active.
-When nil, these commands will be disabled, so that you never accidentally
-set a priority."
- :group 'org-priorities
- :type 'boolean)
-
-(defcustom org-highest-priority ?A
- "The highest priority of TODO items. A character like ?A, ?B etc.
-Must have a smaller ASCII number than `org-lowest-priority'."
- :group 'org-priorities
- :type 'character)
-
-(defcustom org-lowest-priority ?C
- "The lowest priority of TODO items. A character like ?A, ?B etc.
-Must have a larger ASCII number than `org-highest-priority'."
- :group 'org-priorities
- :type 'character)
-
-(defcustom org-default-priority ?B
- "The default priority of TODO items.
-This is the priority an item gets if no explicit priority is given.
-When starting to cycle on an empty priority the first step in the cycle
-depends on `org-priority-start-cycle-with-default'. The resulting first
-step priority must not exceed the range from `org-highest-priority' to
-`org-lowest-priority' which means that `org-default-priority' has to be
-in this range exclusive or inclusive the range boundaries. Else the
-first step refuses to set the default and the second will fall back
-to (depending on the command used) the highest or lowest priority."
- :group 'org-priorities
- :type 'character)
-
-(defcustom org-priority-start-cycle-with-default t
- "Non-nil means start with default priority when starting to cycle.
-When this is nil, the first step in the cycle will be (depending on the
-command used) one higher or lower than the default priority.
-See also `org-default-priority'."
- :group 'org-priorities
- :type 'boolean)
-
-(defcustom org-get-priority-function nil
- "Function to extract the priority from a string.
-The string is normally the headline. If this is nil Org computes the
-priority from the priority cookie like [#A] in the headline. It returns
-an integer, increasing by 1000 for each priority level.
-The user can set a different function here, which should take a string
-as an argument and return the numeric priority."
- :group 'org-priorities
- :version "24.1"
- :type '(choice
- (const nil)
- (function)))
-
-(defgroup org-time nil
- "Options concerning time stamps and deadlines in Org mode."
- :tag "Org Time"
- :group 'org)
-
-(defcustom org-time-stamp-rounding-minutes '(0 5)
- "Number of minutes to round time stamps to.
-\\<org-mode-map>\
-These are two values, the first applies when first creating a time stamp.
-The second applies when changing it with the commands `S-up' and `S-down'.
-When changing the time stamp, this means that it will change in steps
-of N minutes, as given by the second value.
-
-When a setting is 0 or 1, insert the time unmodified. Useful rounding
-numbers should be factors of 60, so for example 5, 10, 15.
-
-When this is larger than 1, you can still force an exact time stamp by using
-a double prefix argument to a time stamp command like \
-`\\[org-time-stamp]' or `\\[org-time-stamp-inactive],
-and by using a prefix arg to `S-up/down' to specify the exact number
-of minutes to shift."
- :group 'org-time
- :get (lambda (var) ; Make sure both elements are there
- (if (integerp (default-value var))
- (list (default-value var) 5)
- (default-value var)))
- :type '(list
- (integer :tag "when inserting times")
- (integer :tag "when modifying times")))
-
-;; Normalize old customizations of this variable.
-(when (integerp org-time-stamp-rounding-minutes)
- (setq org-time-stamp-rounding-minutes
- (list org-time-stamp-rounding-minutes
- org-time-stamp-rounding-minutes)))
-
-(defcustom org-display-custom-times nil
- "Non-nil means overlay custom formats over all time stamps.
-The formats are defined through the variable `org-time-stamp-custom-formats'.
-To turn this on on a per-file basis, insert anywhere in the file:
- #+STARTUP: customtime"
- :group 'org-time
- :set 'set-default
- :type 'sexp)
-(make-variable-buffer-local 'org-display-custom-times)
-
-(defcustom org-time-stamp-custom-formats
- '("<%m/%d/%y %a>" . "<%m/%d/%y %a %H:%M>") ; american
- "Custom formats for time stamps. See `format-time-string' for the syntax.
-These are overlaid over the default ISO format if the variable
-`org-display-custom-times' is set. Time like %H:%M should be at the
-end of the second format. The custom formats are also honored by export
-commands, if custom time display is turned on at the time of export."
- :group 'org-time
- :type 'sexp)
-
-(defun org-time-stamp-format (&optional long inactive)
- "Get the right format for a time string."
- (let ((f (if long (cdr org-time-stamp-formats)
- (car org-time-stamp-formats))))
- (if inactive
- (concat "[" (substring f 1 -1) "]")
- f)))
-
-(defcustom org-deadline-warning-days 14
- "Number of days before expiration during which a deadline becomes active.
-This variable governs the display in sparse trees and in the agenda.
-When 0 or negative, it means use this number (the absolute value of it)
-even if a deadline has a different individual lead time specified.
-
-Custom commands can set this variable in the options section."
- :group 'org-time
- :group 'org-agenda-daily/weekly
- :type 'integer)
-
-(defcustom org-scheduled-delay-days 0
- "Number of days before a scheduled item becomes active.
-This variable governs the display in sparse trees and in the agenda.
-The default value (i.e. 0) means: don't delay scheduled item.
-When negative, it means use this number (the absolute value of it)
-even if a scheduled item has a different individual delay time
-specified.
-
-Custom commands can set this variable in the options section."
- :group 'org-time
- :group 'org-agenda-daily/weekly
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'integer)
-
-(defcustom org-read-date-prefer-future t
- "Non-nil means assume future for incomplete date input from user.
-This affects the following situations:
-1. The user gives a month but not a year.
- For example, if it is April and you enter \"feb 2\", this will be read
- as Feb 2, *next* year. \"May 5\", however, will be this year.
-2. The user gives a day, but no month.
- For example, if today is the 15th, and you enter \"3\", Org will read
- this as the third of *next* month. However, if you enter \"17\",
- it will be considered as *this* month.
-
-If you set this variable to the symbol `time', then also the following
-will work:
-
-3. If the user gives a time.
- If the time is before now, it will be interpreted as tomorrow.
-
-Currently none of this works for ISO week specifications.
-
-When this option is nil, the current day, month and year will always be
-used as defaults.
-
-See also `org-agenda-jump-prefer-future'."
- :group 'org-time
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Check month and day" t)
- (const :tag "Check month, day, and time" time)))
-
-(defcustom org-agenda-jump-prefer-future 'org-read-date-prefer-future
- "Should the agenda jump command prefer the future for incomplete dates?
-The default is to do the same as configured in `org-read-date-prefer-future'.
-But you can also set a deviating value here.
-This may t or nil, or the symbol `org-read-date-prefer-future'."
- :group 'org-agenda
- :group 'org-time
- :version "24.1"
- :type '(choice
- (const :tag "Use org-read-date-prefer-future"
- org-read-date-prefer-future)
- (const :tag "Never" nil)
- (const :tag "Always" t)))
-
-(defcustom org-read-date-force-compatible-dates t
- "Should date/time prompt force dates that are guaranteed to work in Emacs?
-
-Depending on the system Emacs is running on, certain dates cannot
-be represented with the type used internally to represent time.
-Dates between 1970-1-1 and 2038-1-1 can always be represented
-correctly. Some systems allow for earlier dates, some for later,
-some for both. One way to find out it to insert any date into an
-Org buffer, putting the cursor on the year and hitting S-up and
-S-down to test the range.
-
-When this variable is set to t, the date/time prompt will not let
-you specify dates outside the 1970-2037 range, so it is certain that
-these dates will work in whatever version of Emacs you are
-running, and also that you can move a file from one Emacs implementation
-to another. WHenever Org is forcing the year for you, it will display
-a message and beep.
-
-When this variable is nil, Org will check if the date is
-representable in the specific Emacs implementation you are using.
-If not, it will force a year, usually the current year, and beep
-to remind you. Currently this setting is not recommended because
-the likelihood that you will open your Org files in an Emacs that
-has limited date range is not negligible.
-
-A workaround for this problem is to use diary sexp dates for time
-stamps outside of this range."
- :group 'org-time
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-read-date-display-live t
- "Non-nil means display current interpretation of date prompt live.
-This display will be in an overlay, in the minibuffer."
- :group 'org-time
- :type 'boolean)
-
-(defcustom org-read-date-popup-calendar t
- "Non-nil means pop up a calendar when prompting for a date.
-In the calendar, the date can be selected with mouse-1. However, the
-minibuffer will also be active, and you can simply enter the date as well.
-When nil, only the minibuffer will be available."
- :group 'org-time
- :type 'boolean)
-(defvaralias 'org-popup-calendar-for-date-prompt
- 'org-read-date-popup-calendar)
-
-(defcustom org-extend-today-until 0
- "The hour when your day really ends. Must be an integer.
-This has influence for the following applications:
-- When switching the agenda to \"today\". It it is still earlier than
- the time given here, the day recognized as TODAY is actually yesterday.
-- When a date is read from the user and it is still before the time given
- here, the current date and time will be assumed to be yesterday, 23:59.
- Also, timestamps inserted in capture templates follow this rule.
-
-IMPORTANT: This is a feature whose implementation is and likely will
-remain incomplete. Really, it is only here because past midnight seems to
-be the favorite working time of John Wiegley :-)"
- :group 'org-time
- :type 'integer)
-
-(defcustom org-use-effective-time nil
- "If non-nil, consider `org-extend-today-until' when creating timestamps.
-For example, if `org-extend-today-until' is 8, and it's 4am, then the
-\"effective time\" of any timestamps between midnight and 8am will be
-23:59 of the previous day."
- :group 'org-time
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-use-last-clock-out-time-as-effective-time nil
- "When non-nil, use the last clock out time for `org-todo'.
-Note that this option has precedence over the combined use of
-`org-use-effective-time' and `org-extend-today-until'."
- :group 'org-time
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-edit-timestamp-down-means-later nil
- "Non-nil means S-down will increase the time in a time stamp.
-When nil, S-up will increase."
- :group 'org-time
- :type 'boolean)
-
-(defcustom org-calendar-follow-timestamp-change t
- "Non-nil means make the calendar window follow timestamp changes.
-When a timestamp is modified and the calendar window is visible, it will be
-moved to the new date."
- :group 'org-time
- :type 'boolean)
-
-(defgroup org-tags nil
- "Options concerning tags in Org mode."
- :tag "Org Tags"
- :group 'org)
-
-(defcustom org-tag-alist nil
- "Default tags available in Org files.
-
-The value of this variable is an alist. Associations either:
-
- (TAG)
- (TAG . SELECT)
- (SPECIAL)
-
-where TAG is a tag as a string, SELECT is character, used to
-select that tag through the fast tag selection interface, and
-SPECIAL is one of the following keywords: `:startgroup',
-`:startgrouptag', `:grouptags', `:engroup', `:endgrouptag' or
-`:newline'. These keywords are used to define a hierarchy of
-tags. See manual for details.
-
-When this variable is nil, Org mode bases tag input on what is
-already in the buffer. The value can be overridden locally by
-using a TAGS keyword, e.g.,
-
- #+TAGS: tag1 tag2
-
-See also `org-tag-persistent-alist' to sidestep this behavior."
- :group 'org-tags
- :type '(repeat
- (choice
- (cons :tag "Tag with key"
- (string :tag "Tag name")
- (character :tag "Access char"))
- (list :tag "Tag" (string :tag "Tag name"))
- (const :tag "Start radio group" (:startgroup))
- (const :tag "Start tag group, non distinct" (:startgrouptag))
- (const :tag "Group tags delimiter" (:grouptags))
- (const :tag "End radio group" (:endgroup))
- (const :tag "End tag group, non distinct" (:endgrouptag))
- (const :tag "New line" (:newline)))))
-
-(defcustom org-tag-persistent-alist nil
- "Tags always available in Org files.
-
-The value of this variable is an alist. Associations either:
-
- (TAG)
- (TAG . SELECT)
- (SPECIAL)
-
-where TAG is a tag as a string, SELECT is a character, used to
-select that tag through the fast tag selection interface, and
-SPECIAL is one of the following keywords: `:startgroup',
-`:startgrouptag', `:grouptags', `:engroup', `:endgrouptag' or
-`:newline'. These keywords are used to define a hierarchy of
-tags. See manual for details.
-
-Unlike to `org-tag-alist', tags defined in this variable do not
-depend on a local TAGS keyword. Instead, to disable these tags
-on a per-file basis, insert anywhere in the file:
-
- #+STARTUP: noptag"
- :group 'org-tags
- :type '(repeat
- (choice
- (cons :tag "Tag with key"
- (string :tag "Tag name")
- (character :tag "Access char"))
- (list :tag "Tag" (string :tag "Tag name"))
- (const :tag "Start radio group" (:startgroup))
- (const :tag "Start tag group, non distinct" (:startgrouptag))
- (const :tag "Group tags delimiter" (:grouptags))
- (const :tag "End radio group" (:endgroup))
- (const :tag "End tag group, non distinct" (:endgrouptag))
- (const :tag "New line" (:newline)))))
-
-(defcustom org-complete-tags-always-offer-all-agenda-tags nil
- "If non-nil, always offer completion for all tags of all agenda files.
-Instead of customizing this variable directly, you might want to
-set it locally for capture buffers, because there no list of
-tags in that file can be created dynamically (there are none).
-
- (add-hook \\='org-capture-mode-hook
- (lambda ()
- (setq-local org-complete-tags-always-offer-all-agenda-tags t)))"
- :group 'org-tags
- :version "24.1"
- :type 'boolean)
-
-(defvar org-file-tags nil
- "List of tags that can be inherited by all entries in the file.
-The tags will be inherited if the variable `org-use-tag-inheritance'
-says they should be.
-This variable is populated from #+FILETAGS lines.")
-
-(defcustom org-use-fast-tag-selection 'auto
- "Non-nil means use fast tag selection scheme.
-This is a special interface to select and deselect tags with single keys.
-When nil, fast selection is never used.
-When the symbol `auto', fast selection is used if and only if selection
-characters for tags have been configured, either through the variable
-`org-tag-alist' or through a #+TAGS line in the buffer.
-When t, fast selection is always used and selection keys are assigned
-automatically if necessary."
- :group 'org-tags
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (const :tag "When selection characters are configured" auto)))
-
-(defcustom org-fast-tag-selection-single-key nil
- "Non-nil means fast tag selection exits after first change.
-When nil, you have to press RET to exit it.
-During fast tag selection, you can toggle this flag with `C-c'.
-This variable can also have the value `expert'. In this case, the window
-displaying the tags menu is not even shown, until you press C-c again."
- :group 'org-tags
- :type '(choice
- (const :tag "No" nil)
- (const :tag "Yes" t)
- (const :tag "Expert" expert)))
-
-(defvar org-fast-tag-selection-include-todo nil
- "Non-nil means fast tags selection interface will also offer TODO states.
-This is an undocumented feature, you should not rely on it.")
-
-(defcustom org-tags-column -77
- "The column to which tags should be indented in a headline.
-If this number is positive, it specifies the column. If it is negative,
-it means that the tags should be flushright to that column. For example,
--80 works well for a normal 80 character screen.
-When 0, place tags directly after headline text, with only one space in
-between."
- :group 'org-tags
- :type 'integer)
-
-(defcustom org-auto-align-tags t
- "Non-nil keeps tags aligned when modifying headlines.
-Some operations (i.e. demoting) change the length of a headline and
-therefore shift the tags around. With this option turned on, after
-each such operation the tags are again aligned to `org-tags-column'."
- :group 'org-tags
- :type 'boolean)
-
-(defcustom org-use-tag-inheritance t
- "Non-nil means tags in levels apply also for sublevels.
-When nil, only the tags directly given in a specific line apply there.
-This may also be a list of tags that should be inherited, or a regexp that
-matches tags that should be inherited. Additional control is possible
-with the variable `org-tags-exclude-from-inheritance' which gives an
-explicit list of tags to be excluded from inheritance, even if the value of
-`org-use-tag-inheritance' would select it for inheritance.
-
-If this option is t, a match early-on in a tree can lead to a large
-number of matches in the subtree when constructing the agenda or creating
-a sparse tree. If you only want to see the first match in a tree during
-a search, check out the variable `org-tags-match-list-sublevels'."
- :group 'org-tags
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Always" t)
- (repeat :tag "Specific tags" (string :tag "Tag"))
- (regexp :tag "Tags matched by regexp")))
-
-(defcustom org-tags-exclude-from-inheritance nil
- "List of tags that should never be inherited.
-This is a way to exclude a few tags from inheritance. For way to do
-the opposite, to actively allow inheritance for selected tags,
-see the variable `org-use-tag-inheritance'."
- :group 'org-tags
- :type '(repeat (string :tag "Tag")))
-
-(defun org-tag-inherit-p (tag)
- "Check if TAG is one that should be inherited."
- (cond
- ((member tag org-tags-exclude-from-inheritance) nil)
- ((eq org-use-tag-inheritance t) t)
- ((not org-use-tag-inheritance) nil)
- ((stringp org-use-tag-inheritance)
- (string-match org-use-tag-inheritance tag))
- ((listp org-use-tag-inheritance)
- (member tag org-use-tag-inheritance))
- (t (error "Invalid setting of `org-use-tag-inheritance'"))))
-
-(defcustom org-tags-match-list-sublevels t
- "Non-nil means list also sublevels of headlines matching a search.
-This variable applies to tags/property searches, and also to stuck
-projects because this search is based on a tags match as well.
-
-When set to the symbol `indented', sublevels are indented with
-leading dots.
-
-Because of tag inheritance (see variable `org-use-tag-inheritance'),
-the sublevels of a headline matching a tag search often also match
-the same search. Listing all of them can create very long lists.
-Setting this variable to nil causes subtrees of a match to be skipped.
-
-This variable is semi-obsolete and probably should always be true. It
-is better to limit inheritance to certain tags using the variables
-`org-use-tag-inheritance' and `org-tags-exclude-from-inheritance'."
- :group 'org-tags
- :type '(choice
- (const :tag "No, don't list them" nil)
- (const :tag "Yes, do list them" t)
- (const :tag "List them, indented with leading dots" indented)))
-
-(defcustom org-tags-sort-function nil
- "When set, tags are sorted using this function as a comparator."
- :group 'org-tags
- :type '(choice
- (const :tag "No sorting" nil)
- (const :tag "Alphabetical" string<)
- (const :tag "Reverse alphabetical" string>)
- (function :tag "Custom function" nil)))
-
-(defvar org-tags-history nil
- "History of minibuffer reads for tags.")
-(defvar org-last-tags-completion-table nil
- "The last used completion table for tags.")
-(defvar org-after-tags-change-hook nil
- "Hook that is run after the tags in a line have changed.")
-
-(defgroup org-properties nil
- "Options concerning properties in Org mode."
- :tag "Org Properties"
- :group 'org)
-
-(defcustom org-property-format "%-10s %s"
- "How property key/value pairs should be formatted by `indent-line'.
-When `indent-line' hits a property definition, it will format the line
-according to this format, mainly to make sure that the values are
-lined-up with respect to each other."
- :group 'org-properties
- :type 'string)
-
-(defcustom org-properties-postprocess-alist nil
- "Alist of properties and functions to adjust inserted values.
-Elements of this alist must be of the form
-
- ([string] [function])
-
-where [string] must be a property name and [function] must be a
-lambda expression: this lambda expression must take one argument,
-the value to adjust, and return the new value as a string.
-
-For example, this element will allow the property \"Remaining\"
-to be updated wrt the relation between the \"Effort\" property
-and the clock summary:
-
- ((\"Remaining\" (lambda(value)
- (let ((clocksum (org-clock-sum-current-item))
- (effort (org-duration-to-minutes
- (org-entry-get (point) \"Effort\"))))
- (org-minutes-to-clocksum-string (- effort clocksum))))))"
- :group 'org-properties
- :version "24.1"
- :type '(alist :key-type (string :tag "Property")
- :value-type (function :tag "Function")))
-
-(defcustom org-use-property-inheritance nil
- "Non-nil means properties apply also for sublevels.
-
-This setting is chiefly used during property searches. Turning it on can
-cause significant overhead when doing a search, which is why it is not
-on by default.
-
-When nil, only the properties directly given in the current entry count.
-When t, every property is inherited. The value may also be a list of
-properties that should have inheritance, or a regular expression matching
-properties that should be inherited.
-
-However, note that some special properties use inheritance under special
-circumstances (not in searches). Examples are CATEGORY, ARCHIVE, COLUMNS,
-and the properties ending in \"_ALL\" when they are used as descriptor
-for valid values of a property.
-
-Note for programmers:
-When querying an entry with `org-entry-get', you can control if inheritance
-should be used. By default, `org-entry-get' looks only at the local
-properties. You can request inheritance by setting the inherit argument
-to t (to force inheritance) or to `selective' (to respect the setting
-in this variable)."
- :group 'org-properties
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Always" t)
- (repeat :tag "Specific properties" (string :tag "Property"))
- (regexp :tag "Properties matched by regexp")))
-
-(defun org-property-inherit-p (property)
- "Return a non-nil value if PROPERTY should be inherited."
- (cond
- ((eq org-use-property-inheritance t) t)
- ((not org-use-property-inheritance) nil)
- ((stringp org-use-property-inheritance)
- (string-match org-use-property-inheritance property))
- ((listp org-use-property-inheritance)
- (member-ignore-case property org-use-property-inheritance))
- (t (error "Invalid setting of `org-use-property-inheritance'"))))
-
-(defcustom org-columns-default-format "%25ITEM %TODO %3PRIORITY %TAGS"
- "The default column format, if no other format has been defined.
-This variable can be set on the per-file basis by inserting a line
-
-#+COLUMNS: %25ITEM ....."
- :group 'org-properties
- :type 'string)
-
-(defcustom org-columns-ellipses ".."
- "The ellipses to be used when a field in column view is truncated.
-When this is the empty string, as many characters as possible are shown,
-but then there will be no visual indication that the field has been truncated.
-When this is a string of length N, the last N characters of a truncated
-field are replaced by this string. If the column is narrower than the
-ellipses string, only part of the ellipses string will be shown."
- :group 'org-properties
- :type 'string)
-
-(defconst org-global-properties-fixed
- '(("VISIBILITY_ALL" . "folded children content all")
- ("CLOCK_MODELINE_TOTAL_ALL" . "current today repeat all auto"))
- "List of property/value pairs that can be inherited by any entry.
-
-These are fixed values, for the preset properties. The user variable
-that can be used to add to this list is `org-global-properties'.
-
-The entries in this list are cons cells where the car is a property
-name and cdr is a string with the value. If the value represents
-multiple items like an \"_ALL\" property, separate the items by
-spaces.")
-
-(defcustom org-global-properties nil
- "List of property/value pairs that can be inherited by any entry.
-
-This list will be combined with the constant `org-global-properties-fixed'.
-
-The entries in this list are cons cells where the car is a property
-name and cdr is a string with the value.
-
-You can set buffer-local values for the same purpose in the variable
-`org-file-properties' this by adding lines like
-
-#+PROPERTY: NAME VALUE"
- :group 'org-properties
- :type '(repeat
- (cons (string :tag "Property")
- (string :tag "Value"))))
-
-(defvar-local org-file-properties nil
- "List of property/value pairs that can be inherited by any entry.
-Valid for the current buffer.
-This variable is populated from #+PROPERTY lines.")
-
-(defgroup org-agenda nil
- "Options concerning agenda views in Org mode."
- :tag "Org Agenda"
- :group 'org)
-
-(defvar-local org-category nil
- "Variable used by Org files to set a category for agenda display.
-Such files should use a file variable to set it, for example
-
-# -*- mode: org; org-category: \"ELisp\"
-
-or contain a special line
-
-#+CATEGORY: ELisp
-
-If the file does not specify a category, then file's base name
-is used instead.")
-(put 'org-category 'safe-local-variable (lambda (x) (or (symbolp x) (stringp x))))
-
-(defcustom org-agenda-files nil
- "The files to be used for agenda display.
-
-If an entry is a directory, all files in that directory that are matched
-by `org-agenda-file-regexp' will be part of the file list.
-
-If the value of the variable is not a list but a single file name, then
-the list of agenda files is actually stored and maintained in that file,
-one agenda file per line. In this file paths can be given relative to
-`org-directory'. Tilde expansion and environment variable substitution
-are also made.
-
-Entries may be added to this list with `\\[org-agenda-file-to-front]'
-and removed with `\\[org-remove-file]'."
- :group 'org-agenda
- :type '(choice
- (repeat :tag "List of files and directories" file)
- (file :tag "Store list in a file\n" :value "~/.agenda_files")))
-
-(defcustom org-agenda-file-regexp "\\`[^.].*\\.org\\'"
- "Regular expression to match files for `org-agenda-files'.
-If any element in the list in that variable contains a directory instead
-of a normal file, all files in that directory that are matched by this
-regular expression will be included."
- :group 'org-agenda
- :type 'regexp)
-
-(defcustom org-agenda-text-search-extra-files nil
- "List of extra files to be searched by text search commands.
-These files will be searched in addition to the agenda files by the
-commands `org-search-view' (`\\[org-agenda] s') \
-and `org-occur-in-agenda-files'.
-Note that these files will only be searched for text search commands,
-not for the other agenda views like todo lists, tag searches or the weekly
-agenda. This variable is intended to list notes and possibly archive files
-that should also be searched by these two commands.
-In fact, if the first element in the list is the symbol `agenda-archives',
-then all archive files of all agenda files will be added to the search
-scope."
- :group 'org-agenda
- :type '(set :greedy t
- (const :tag "Agenda Archives" agenda-archives)
- (repeat :inline t (file))))
-
-(defvaralias 'org-agenda-multi-occur-extra-files
- 'org-agenda-text-search-extra-files)
-
-(defcustom org-agenda-skip-unavailable-files nil
- "Non-nil means to just skip non-reachable files in `org-agenda-files'.
-A nil value means to remove them, after a query, from the list."
- :group 'org-agenda
- :type 'boolean)
-
-(defcustom org-calendar-to-agenda-key [?c]
- "The key to be installed in `calendar-mode-map' for switching to the agenda.
-The command `org-calendar-goto-agenda' will be bound to this key. The
-default is the character `c' because then `c' can be used to switch back and
-forth between agenda and calendar."
- :group 'org-agenda
- :type 'sexp)
-
-(defcustom org-calendar-insert-diary-entry-key [?i]
- "The key to be installed in `calendar-mode-map' for adding diary entries.
-This option is irrelevant until `org-agenda-diary-file' has been configured
-to point to an Org file. When that is the case, the command
-`org-agenda-diary-entry' will be bound to the key given here, by default
-`i'. In the calendar, `i' normally adds entries to `diary-file'. So
-if you want to continue doing this, you need to change this to a different
-key."
- :group 'org-agenda
- :type 'sexp)
-
-(defcustom org-agenda-diary-file 'diary-file
- "File to which to add new entries with the `i' key in agenda and calendar.
-When this is the symbol `diary-file', the functionality in the Emacs
-calendar will be used to add entries to the `diary-file'. But when this
-points to a file, `org-agenda-diary-entry' will be used instead."
- :group 'org-agenda
- :type '(choice
- (const :tag "The standard Emacs diary file" diary-file)
- (file :tag "Special Org file diary entries")))
-
-(eval-after-load "calendar"
- '(progn
- (org-defkey calendar-mode-map org-calendar-to-agenda-key
- 'org-calendar-goto-agenda)
- (add-hook 'calendar-mode-hook
- (lambda ()
- (unless (eq org-agenda-diary-file 'diary-file)
- (define-key calendar-mode-map
- org-calendar-insert-diary-entry-key
- 'org-agenda-diary-entry))))))
-
-(defgroup org-latex nil
- "Options for embedding LaTeX code into Org mode."
- :tag "Org LaTeX"
- :group 'org)
-
-(defcustom org-format-latex-options
- '(:foreground default :background default :scale 1.0
- :html-foreground "Black" :html-background "Transparent"
- :html-scale 1.0 :matchers ("begin" "$1" "$" "$$" "\\(" "\\["))
- "Options for creating images from LaTeX fragments.
-This is a property list with the following properties:
-:foreground the foreground color for images embedded in Emacs, e.g. \"Black\".
- `default' means use the foreground of the default face.
- `auto' means use the foreground from the text face.
-:background the background color, or \"Transparent\".
- `default' means use the background of the default face.
- `auto' means use the background from the text face.
-:scale a scaling factor for the size of the images, to get more pixels
-:html-foreground, :html-background, :html-scale
- the same numbers for HTML export.
-:matchers a list indicating which matchers should be used to
- find LaTeX fragments. Valid members of this list are:
- \"begin\" find environments
- \"$1\" find single characters surrounded by $.$
- \"$\" find math expressions surrounded by $...$
- \"$$\" find math expressions surrounded by $$....$$
- \"\\(\" find math expressions surrounded by \\(...\\)
- \"\\=\\[\" find math expressions surrounded by \\=\\[...\\]"
- :group 'org-latex
- :type 'plist)
-
-(defcustom org-format-latex-signal-error t
- "Non-nil means signal an error when image creation of LaTeX snippets fails.
-When nil, just push out a message."
- :group 'org-latex
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-latex-to-mathml-jar-file nil
- "Value of\"%j\" in `org-latex-to-mathml-convert-command'.
-Use this to specify additional executable file say a jar file.
-
-When using MathToWeb as the converter, specify the full-path to
-your mathtoweb.jar file."
- :group 'org-latex
- :version "24.1"
- :type '(choice
- (const :tag "None" nil)
- (file :tag "JAR file" :must-match t)))
-
-(defcustom org-latex-to-mathml-convert-command nil
- "Command to convert LaTeX fragments to MathML.
-Replace format-specifiers in the command as noted below and use
-`shell-command' to convert LaTeX to MathML.
-%j: Executable file in fully expanded form as specified by
- `org-latex-to-mathml-jar-file'.
-%I: Input LaTeX file in fully expanded form.
-%i: The latex fragment to be converted.
-%o: Output MathML file.
-
-This command is used by `org-create-math-formula'.
-
-When using MathToWeb as the converter, set this option to
-\"java -jar %j -unicode -force -df %o %I\".
-
-When using LaTeXML set this option to
-\"latexmlmath \"%i\" --presentationmathml=%o\"."
- :group 'org-latex
- :version "24.1"
- :type '(choice
- (const :tag "None" nil)
- (string :tag "\nShell command")))
-
-(defcustom org-preview-latex-default-process 'dvipng
- "The default process to convert LaTeX fragments to image files.
-All available processes and theirs documents can be found in
-`org-preview-latex-process-alist', which see."
- :group 'org-latex
- :version "26.1"
- :package-version '(Org . "9.0")
- :type 'symbol)
-
-(defcustom org-preview-latex-process-alist
- '((dvipng
- :programs ("latex" "dvipng")
- :description "dvi > png"
- :message "you need to install the programs: latex and dvipng."
- :image-input-type "dvi"
- :image-output-type "png"
- :image-size-adjust (1.0 . 1.0)
- :latex-compiler ("latex -interaction nonstopmode -output-directory %o %f")
- :image-converter ("dvipng -fg %F -bg %B -D %D -T tight -o %O %f"))
- (dvisvgm
- :programs ("latex" "dvisvgm")
- :description "dvi > svg"
- :message "you need to install the programs: latex and dvisvgm."
- :use-xcolor t
- :image-input-type "dvi"
- :image-output-type "svg"
- :image-size-adjust (1.7 . 1.5)
- :latex-compiler ("latex -interaction nonstopmode -output-directory %o %f")
- :image-converter ("dvisvgm %f -n -b min -c %S -o %O"))
- (imagemagick
- :programs ("latex" "convert")
- :description "pdf > png"
- :message "you need to install the programs: latex and imagemagick."
- :use-xcolor t
- :image-input-type "pdf"
- :image-output-type "png"
- :image-size-adjust (1.0 . 1.0)
- :latex-compiler ("pdflatex -interaction nonstopmode -output-directory %o %f")
- :image-converter
- ("convert -density %D -trim -antialias %f -quality 100 %O")))
- "Definitions of external processes for LaTeX previewing.
-Org mode can use some external commands to generate TeX snippet's images for
-previewing or inserting into HTML files, e.g., \"dvipng\". This variable tells
-`org-create-formula-image' how to call them.
-
-The value is an alist with the pattern (NAME . PROPERTIES). NAME is a symbol.
-PROPERTIES accepts the following attributes:
-
- :programs list of strings, required programs.
- :description string, describe the process.
- :message string, message it when required programs cannot be found.
- :image-input-type string, input file type of image converter (e.g., \"dvi\").
- :image-output-type string, output file type of image converter (e.g., \"png\").
- :use-xcolor boolean, when non-nil, LaTeX \"xcolor\" macro is used to
- deal with background and foreground color of image.
- Otherwise, dvipng style background and foreground color
- format are generated. You may then refer to them in
- command options with \"%F\" and \"%B\".
- :image-size-adjust cons of numbers, the car element is used to adjust LaTeX
- image size showed in buffer and the cdr element is for
- HTML file. This option is only useful for process
- developers, users should use variable
- `org-format-latex-options' instead.
- :post-clean list of strings, files matched are to be cleaned up once
- the image is generated. When nil, the files with \".dvi\",
- \".xdv\", \".pdf\", \".tex\", \".aux\", \".log\", \".svg\",
- \".png\", \".jpg\", \".jpeg\" or \".out\" extension will
- be cleaned up.
- :latex-header list of strings, the LaTeX header of the snippet file.
- When nil, the fallback value is used instead, which is
- controlled by `org-format-latex-header',
- `org-latex-default-packages-alist' and
- `org-latex-packages-alist', which see.
- :latex-compiler list of LaTeX commands, as strings. Each of them is given
- to the shell. Place-holders \"%t\", \"%b\" and \"%o\" are
- replaced with values defined below.
- :image-converter list of image converter commands strings. Each of them is
- given to the shell and supports any of the following
- place-holders defined below.
-
-Place-holders used by `:image-converter' and `:latex-compiler':
-
- %f input file name
- %b base name of input file
- %o base directory of input file
- %O absolute output file name
-
-Place-holders only used by `:image-converter':
-
- %F foreground of image
- %B background of image
- %D dpi, which is used to adjust image size by some processing commands.
- %S the image size scale ratio, which is used to adjust image size by some
- processing commands."
- :group 'org-latex
- :version "26.1"
- :package-version '(Org . "9.0")
- :type '(alist :tag "LaTeX to image backends"
- :value-type (plist)))
-
-(defcustom org-preview-latex-image-directory "ltximg/"
- "Path to store latex preview images.
-A relative path here creates many directories relative to the
-processed Org files paths. An absolute path puts all preview
-images at the same place."
- :group 'org-latex
- :version "26.1"
- :package-version '(Org . "9.0")
- :type 'string)
-
-(defun org-format-latex-mathml-available-p ()
- "Return t if `org-latex-to-mathml-convert-command' is usable."
- (save-match-data
- (when (and (boundp 'org-latex-to-mathml-convert-command)
- org-latex-to-mathml-convert-command)
- (let ((executable (car (split-string
- org-latex-to-mathml-convert-command))))
- (when (executable-find executable)
- (if (string-match
- "%j" org-latex-to-mathml-convert-command)
- (file-readable-p org-latex-to-mathml-jar-file)
- t))))))
-
-(defcustom org-format-latex-header "\\documentclass{article}
-\\usepackage[usenames]{color}
-\[PACKAGES]
-\[DEFAULT-PACKAGES]
-\\pagestyle{empty} % do not remove
-% The settings below are copied from fullpage.sty
-\\setlength{\\textwidth}{\\paperwidth}
-\\addtolength{\\textwidth}{-3cm}
-\\setlength{\\oddsidemargin}{1.5cm}
-\\addtolength{\\oddsidemargin}{-2.54cm}
-\\setlength{\\evensidemargin}{\\oddsidemargin}
-\\setlength{\\textheight}{\\paperheight}
-\\addtolength{\\textheight}{-\\headheight}
-\\addtolength{\\textheight}{-\\headsep}
-\\addtolength{\\textheight}{-\\footskip}
-\\addtolength{\\textheight}{-3cm}
-\\setlength{\\topmargin}{1.5cm}
-\\addtolength{\\topmargin}{-2.54cm}"
- "The document header used for processing LaTeX fragments.
-It is imperative that this header make sure that no page number
-appears on the page. The package defined in the variables
-`org-latex-default-packages-alist' and `org-latex-packages-alist'
-will either replace the placeholder \"[PACKAGES]\" in this
-header, or they will be appended."
- :group 'org-latex
- :type 'string)
-
-(defun org-set-packages-alist (var val)
- "Set the packages alist and make sure it has 3 elements per entry."
- (set var (mapcar (lambda (x)
- (if (and (consp x) (= (length x) 2))
- (list (car x) (nth 1 x) t)
- x))
- val)))
-
-(defun org-get-packages-alist (var)
- "Get the packages alist and make sure it has 3 elements per entry."
- (mapcar (lambda (x)
- (if (and (consp x) (= (length x) 2))
- (list (car x) (nth 1 x) t)
- x))
- (default-value var)))
-
-(defcustom org-latex-default-packages-alist
- '(("AUTO" "inputenc" t ("pdflatex"))
- ("T1" "fontenc" t ("pdflatex"))
- ("" "graphicx" t)
- ("" "grffile" t)
- ("" "longtable" nil)
- ("" "wrapfig" nil)
- ("" "rotating" nil)
- ("normalem" "ulem" t)
- ("" "amsmath" t)
- ("" "textcomp" t)
- ("" "amssymb" t)
- ("" "capt-of" nil)
- ("" "hyperref" nil))
- "Alist of default packages to be inserted in the header.
-
-Change this only if one of the packages here causes an
-incompatibility with another package you are using.
-
-The packages in this list are needed by one part or another of
-Org mode to function properly:
-
-- inputenc, fontenc: for basic font and character selection
-- graphicx: for including images
-- grffile: allow periods and spaces in graphics file names
-- longtable: For multipage tables
-- wrapfig: for figure placement
-- rotating: for sideways figures and tables
-- ulem: for underline and strike-through
-- amsmath: for subscript and superscript and math environments
-- textcomp, amssymb: for various symbols used
- for interpreting the entities in `org-entities'. You can skip
- some of these packages if you don't use any of their symbols.
-- capt-of: for captions outside of floats
-- hyperref: for cross references
-
-Therefore you should not modify this variable unless you know
-what you are doing. The one reason to change it anyway is that
-you might be loading some other package that conflicts with one
-of the default packages. Each element is either a cell or
-a string.
-
-A cell is of the format
-
- (\"options\" \"package\" SNIPPET-FLAG COMPILERS)
-
-If SNIPPET-FLAG is non-nil, the package also needs to be included
-when compiling LaTeX snippets into images for inclusion into
-non-LaTeX output. COMPILERS is a list of compilers that should
-include the package, see `org-latex-compiler'. If the document
-compiler is not in the list, and the list is non-nil, the package
-will not be inserted in the final document.
-
-A string will be inserted as-is in the header of the document."
- :group 'org-latex
- :group 'org-export-latex
- :set 'org-set-packages-alist
- :get 'org-get-packages-alist
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(repeat
- (choice
- (list :tag "options/package pair"
- (string :tag "options")
- (string :tag "package")
- (boolean :tag "Snippet")
- (choice
- (const :tag "For all compilers" nil)
- (repeat :tag "Allowed compiler" string)))
- (string :tag "A line of LaTeX"))))
-
-(defcustom org-latex-packages-alist nil
- "Alist of packages to be inserted in every LaTeX header.
-
-These will be inserted after `org-latex-default-packages-alist'.
-Each element is either a cell or a string.
-
-A cell is of the format:
-
- (\"options\" \"package\" SNIPPET-FLAG)
-
-SNIPPET-FLAG, when non-nil, indicates that this package is also
-needed when turning LaTeX snippets into images for inclusion into
-non-LaTeX output.
-
-A string will be inserted as-is in the header of the document.
-
-Make sure that you only list packages here which:
-
- - you want in every file;
- - do not conflict with the setup in `org-format-latex-header';
- - do not conflict with the default packages in
- `org-latex-default-packages-alist'."
- :group 'org-latex
- :group 'org-export-latex
- :set 'org-set-packages-alist
- :get 'org-get-packages-alist
- :type '(repeat
- (choice
- (list :tag "options/package pair"
- (string :tag "options")
- (string :tag "package")
- (boolean :tag "Snippet"))
- (string :tag "A line of LaTeX"))))
-
-(defgroup org-appearance nil
- "Settings for Org mode appearance."
- :tag "Org Appearance"
- :group 'org)
-
-(defcustom org-level-color-stars-only nil
- "Non-nil means fontify only the stars in each headline.
-When nil, the entire headline is fontified.
-Changing it requires restart of `font-lock-mode' to become effective
-also in regions already fontified."
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-hide-leading-stars nil
- "Non-nil means hide the first N-1 stars in a headline.
-This works by using the face `org-hide' for these stars. This
-face is white for a light background, and black for a dark
-background. You may have to customize the face `org-hide' to
-make this work.
-Changing it requires restart of `font-lock-mode' to become effective
-also in regions already fontified.
-You may also set this on a per-file basis by adding one of the following
-lines to the buffer:
-
- #+STARTUP: hidestars
- #+STARTUP: showstars"
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-hidden-keywords nil
- "List of symbols corresponding to keywords to be hidden in the Org buffer.
-For example, a value \\='(title) for this list makes the document's title
-appear in the buffer without the initial \"#+TITLE:\" part."
- :group 'org-appearance
- :version "24.1"
- :type '(set (const :tag "#+AUTHOR" author)
- (const :tag "#+DATE" date)
- (const :tag "#+EMAIL" email)
- (const :tag "#+TITLE" title)))
-
-(defcustom org-custom-properties nil
- "List of properties (as strings) with a special meaning.
-The default use of these custom properties is to let the user
-hide them with `org-toggle-custom-properties-visibility'."
- :group 'org-properties
- :group 'org-appearance
- :version "24.3"
- :type '(repeat (string :tag "Property Name")))
-
-(defcustom org-fontify-done-headline nil
- "Non-nil means change the face of a headline if it is marked DONE.
-Normally, only the TODO/DONE keyword indicates the state of a headline.
-When this is non-nil, the headline after the keyword is set to the
-`org-headline-done' as an additional indication."
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-fontify-emphasized-text t
- "Non-nil means fontify *bold*, /italic/ and _underlined_ text.
-Changing this variable requires a restart of Emacs to take effect."
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-fontify-whole-heading-line nil
- "Non-nil means fontify the whole line for headings.
-This is useful when setting a background color for the
-org-level-* faces."
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-highlight-latex-and-related nil
- "Non-nil means highlight LaTeX related syntax in the buffer.
-When non nil, the value should be a list containing any of the
-following symbols:
- `latex' Highlight LaTeX snippets and environments.
- `script' Highlight subscript and superscript.
- `entities' Highlight entities."
- :group 'org-appearance
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "No highlighting" nil)
- (set :greedy t :tag "Highlight"
- (const :tag "LaTeX snippets and environments" latex)
- (const :tag "Subscript and superscript" script)
- (const :tag "Entities" entities))))
-
-(defcustom org-hide-emphasis-markers nil
- "Non-nil mean font-lock should hide the emphasis marker characters."
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-hide-macro-markers nil
- "Non-nil mean font-lock should hide the brackets marking macro calls."
- :group 'org-appearance
- :type 'boolean)
-
-(defcustom org-pretty-entities nil
- "Non-nil means show entities as UTF8 characters.
-When nil, the \\name form remains in the buffer."
- :group 'org-appearance
- :version "24.1"
- :type 'boolean)
-
-(defcustom org-pretty-entities-include-sub-superscripts t
- "Non-nil means, pretty entity display includes formatting sub/superscripts."
- :group 'org-appearance
- :version "24.1"
- :type 'boolean)
-
-(defvar org-emph-re nil
- "Regular expression for matching emphasis.
-After a match, the match groups contain these elements:
-0 The match of the full regular expression, including the characters
- before and after the proper match
-1 The character before the proper match, or empty at beginning of line
-2 The proper match, including the leading and trailing markers
-3 The leading marker like * or /, indicating the type of highlighting
-4 The text between the emphasis markers, not including the markers
-5 The character after the match, empty at the end of a line")
-
-(defvar org-verbatim-re nil
- "Regular expression for matching verbatim text.")
-
-(defvar org-emphasis-regexp-components) ; defined just below
-(defvar org-emphasis-alist) ; defined just below
-(defun org-set-emph-re (var val)
- "Set variable and compute the emphasis regular expression."
- (set var val)
- (when (and (boundp 'org-emphasis-alist)
- (boundp 'org-emphasis-regexp-components)
- org-emphasis-alist org-emphasis-regexp-components)
- (pcase-let*
- ((`(,pre ,post ,border ,body ,nl) org-emphasis-regexp-components)
- (body (if (<= nl 0) body
- (format "%s*?\\(?:\n%s*?\\)\\{0,%d\\}" body body nl)))
- (template
- (format (concat "\\([%s]\\|^\\)" ;before markers
- "\\(\\([%%s]\\)\\([^%s]\\|[^%s]%s[^%s]\\)\\3\\)"
- "\\([%s]\\|$\\)") ;after markers
- pre border border body border post)))
- (setq org-emph-re (format template "*/_+"))
- (setq org-verbatim-re (format template "=~")))))
-
-;; This used to be a defcustom (Org <8.0) but allowing the users to
-;; set this option proved cumbersome. See this message/thread:
-;; http://article.gmane.org/gmane.emacs.orgmode/68681
-(defvar org-emphasis-regexp-components
- '("- \t('\"{" "- \t.,:!?;'\")}\\[" " \t\r\n" "." 1)
- "Components used to build the regular expression for emphasis.
-This is a list with five entries. Terminology: In an emphasis string
-like \" *strong word* \", we call the initial space PREMATCH, the final
-space POSTMATCH, the stars MARKERS, \"s\" and \"d\" are BORDER characters
-and \"trong wor\" is the body. The different components in this variable
-specify what is allowed/forbidden in each part:
-
-pre Chars allowed as prematch. Beginning of line will be allowed too.
-post Chars allowed as postmatch. End of line will be allowed too.
-border The chars *forbidden* as border characters.
-body-regexp A regexp like \".\" to match a body character. Don't use
- non-shy groups here, and don't allow newline here.
-newline The maximum number of newlines allowed in an emphasis exp.
-
-You need to reload Org or to restart Emacs after customizing this.")
-
-(defcustom org-emphasis-alist
- '(("*" bold)
- ("/" italic)
- ("_" underline)
- ("=" org-verbatim verbatim)
- ("~" org-code verbatim)
- ("+" (:strike-through t)))
- "Alist of characters and faces to emphasize text.
-Text starting and ending with a special character will be emphasized,
-for example *bold*, _underlined_ and /italic/. This variable sets the
-marker characters and the face to be used by font-lock for highlighting
-in Org buffers.
-
-You need to reload Org or to restart Emacs after customizing this."
- :group 'org-appearance
- :set 'org-set-emph-re
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(repeat
- (list
- (string :tag "Marker character")
- (choice
- (face :tag "Font-lock-face")
- (plist :tag "Face property list"))
- (option (const verbatim)))))
-
-(defvar org-protecting-blocks '("src" "example" "export")
- "Blocks that contain text that is quoted, i.e. not processed as Org syntax.
-This is needed for font-lock setup.")
-
-;;; Functions and variables from their packages
-;; Declared here to avoid compiler warnings
-(defvar mark-active)
-
-;; Various packages
-(declare-function calc-eval "calc" (str &optional separator &rest args))
-(declare-function calendar-forward-day "cal-move" (arg))
-(declare-function calendar-goto-date "cal-move" (date))
-(declare-function calendar-goto-today "cal-move" ())
-(declare-function calendar-iso-from-absolute "cal-iso" (date))
-(declare-function calendar-iso-to-absolute "cal-iso" (date))
-(declare-function cdlatex-compute-tables "ext:cdlatex" ())
-(declare-function cdlatex-tab "ext:cdlatex" ())
-(declare-function dired-get-filename
- "dired"
- (&optional localp no-error-if-not-filep))
-(declare-function iswitchb-read-buffer
- "iswitchb"
- (prompt &optional
- default require-match _predicate start matches-set))
-(declare-function org-agenda-change-all-lines
- "org-agenda"
- (newhead hdmarker &optional fixface just-this))
-(declare-function org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item
- "org-agenda"
- (&optional end))
-(declare-function org-agenda-copy-local-variable "org-agenda" (var))
-(declare-function org-agenda-format-item
- "org-agenda"
- (extra txt &optional level category tags dotime
- remove-re habitp))
-(declare-function org-agenda-maybe-redo "org-agenda" ())
-(declare-function org-agenda-new-marker "org-agenda" (&optional pos))
-(declare-function org-agenda-save-markers-for-cut-and-paste
- "org-agenda"
- (beg end))
-(declare-function org-agenda-set-restriction-lock "org-agenda" (&optional type))
-(declare-function org-agenda-skip "org-agenda" ())
-(declare-function org-attach-reveal "org-attach" (&optional if-exists))
-(declare-function org-gnus-follow-link "org-gnus" (&optional group article))
-(declare-function org-indent-mode "org-indent" (&optional arg))
-(declare-function org-inlinetask-goto-beginning "org-inlinetask" ())
-(declare-function org-inlinetask-goto-end "org-inlinetask" ())
-(declare-function org-inlinetask-in-task-p "org-inlinetask" ())
-(declare-function org-inlinetask-remove-END-maybe "org-inlinetask" ())
-(declare-function orgtbl-send-table "org-table" (&optional maybe))
-(declare-function parse-time-string "parse-time" (string))
-(declare-function speedbar-line-directory "speedbar" (&optional depth))
-
-(defvar align-mode-rules-list)
-(defvar calc-embedded-close-formula)
-(defvar calc-embedded-open-formula)
-(defvar calc-embedded-open-mode)
-(defvar font-lock-unfontify-region-function)
-(defvar iswitchb-temp-buflist)
-(defvar org-agenda-tags-todo-honor-ignore-options)
-(defvar remember-data-file)
-(defvar texmathp-why)
-
-;;;###autoload
-(defun turn-on-orgtbl ()
- "Unconditionally turn on `orgtbl-mode'."
- (require 'org-table)
- (orgtbl-mode 1))
-
-(defun org-at-table-p (&optional table-type)
- "Non-nil if the cursor is inside an Org table.
-If TABLE-TYPE is non-nil, also check for table.el-type tables."
- (and (org-match-line (if table-type "[ \t]*[|+]" "[ \t]*|"))
- (or (not (derived-mode-p 'org-mode))
- (let ((e (org-element-lineage (org-element-at-point) '(table) t)))
- (and e (or table-type
- (eq 'org (org-element-property :type e))))))))
-
-(defun org-at-table.el-p ()
- "Non-nil when point is at a table.el table."
- (and (org-match-line "[ \t]*[|+]")
- (let ((element (org-element-at-point)))
- (and (eq (org-element-type element) 'table)
- (eq (org-element-property :type element) 'table.el)))))
-
-(defun org-at-table-hline-p ()
- "Non-nil when point is inside a hline in a table.
-Assume point is already in a table."
- (org-match-line org-table-hline-regexp))
-
-(defun org-table-map-tables (function &optional quietly)
- "Apply FUNCTION to the start of all tables in the buffer."
- (org-with-wide-buffer
- (goto-char (point-min))
- (while (re-search-forward org-table-any-line-regexp nil t)
- (unless quietly
- (message "Mapping tables: %d%%"
- (floor (* 100.0 (point)) (buffer-size))))
- (beginning-of-line 1)
- (when (and (looking-at org-table-line-regexp)
- ;; Exclude tables in src/example/verbatim/clocktable blocks
- (not (org-in-block-p '("src" "example" "verbatim" "clocktable"))))
- (save-excursion (funcall function))
- (or (looking-at org-table-line-regexp)
- (forward-char 1)))
- (re-search-forward org-table-any-border-regexp nil 1)))
- (unless quietly (message "Mapping tables: done")))
-
-(declare-function org-clock-save-markers-for-cut-and-paste "org-clock" (beg end))
-(declare-function org-clock-update-mode-line "org-clock" ())
-(declare-function org-resolve-clocks "org-clock"
- (&optional also-non-dangling-p prompt last-valid))
-
-(defun org-at-TBLFM-p (&optional pos)
- "Non-nil when point (or POS) is in #+TBLFM line."
- (save-excursion
- (goto-char (or pos (point)))
- (beginning-of-line)
- (and (let ((case-fold-search t)) (looking-at org-TBLFM-regexp))
- (eq (org-element-type (org-element-at-point)) 'table))))
-
-(defvar org-clock-start-time)
-(defvar org-clock-marker (make-marker)
- "Marker recording the last clock-in.")
-(defvar org-clock-hd-marker (make-marker)
- "Marker recording the last clock-in, but the headline position.")
-(defvar org-clock-heading ""
- "The heading of the current clock entry.")
-(defun org-clock-is-active ()
- "Return the buffer where the clock is currently running.
-Return nil if no clock is running."
- (marker-buffer org-clock-marker))
-
-(defun org-check-running-clock ()
- "Check if the current buffer contains the running clock.
-If yes, offer to stop it and to save the buffer with the changes."
- (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
- (y-or-n-p (format "Clock-out in buffer %s before killing it? "
- (buffer-name))))
- (org-clock-out)
- (when (y-or-n-p "Save changed buffer?")
- (save-buffer))))
-
-(defun org-clocktable-try-shift (dir n)
- "Check if this line starts a clock table, if yes, shift the time block."
- (when (org-match-line "^[ \t]*#\\+BEGIN:[ \t]+clocktable\\>")
- (org-clocktable-shift dir n)))
-
-;;;###autoload
-(defun org-clock-persistence-insinuate ()
- "Set up hooks for clock persistence."
- (require 'org-clock)
- (add-hook 'org-mode-hook 'org-clock-load)
- (add-hook 'kill-emacs-hook 'org-clock-save))
-
-(defgroup org-archive nil
- "Options concerning archiving in Org mode."
- :tag "Org Archive"
- :group 'org-structure)
-
-(defcustom org-archive-location "%s_archive::"
- "The location where subtrees should be archived.
-
-The value of this variable is a string, consisting of two parts,
-separated by a double-colon. The first part is a filename and
-the second part is a headline.
-
-When the filename is omitted, archiving happens in the same file.
-%s in the filename will be replaced by the current file
-name (without the directory part). Archiving to a different file
-is useful to keep archived entries from contributing to the
-Org Agenda.
-
-The archived entries will be filed as subtrees of the specified
-headline. When the headline is omitted, the subtrees are simply
-filed away at the end of the file, as top-level entries. Also in
-the heading you can use %s to represent the file name, this can be
-useful when using the same archive for a number of different files.
-
-Here are a few examples:
-\"%s_archive::\"
- If the current file is Projects.org, archive in file
- Projects.org_archive, as top-level trees. This is the default.
-
-\"::* Archived Tasks\"
- Archive in the current file, under the top-level headline
- \"* Archived Tasks\".
-
-\"~/org/archive.org::\"
- Archive in file ~/org/archive.org (absolute path), as top-level trees.
-
-\"~/org/archive.org::* From %s\"
- Archive in file ~/org/archive.org (absolute path), under headlines
- \"From FILENAME\" where file name is the current file name.
-
-\"~/org/datetree.org::datetree/* Finished Tasks\"
- The \"datetree/\" string is special, signifying to archive
- items to the datetree. Items are placed in either the CLOSED
- date of the item, or the current date if there is no CLOSED date.
- The heading will be a subentry to the current date. There doesn't
- need to be a heading, but there always needs to be a slash after
- datetree. For example, to store archived items directly in the
- datetree, use \"~/org/datetree.org::datetree/\".
-
-\"basement::** Finished Tasks\"
- Archive in file ./basement (relative path), as level 3 trees
- below the level 2 heading \"** Finished Tasks\".
-
-You may set this option on a per-file basis by adding to the buffer a
-line like
-
-#+ARCHIVE: basement::** Finished Tasks
-
-You may also define it locally for a subtree by setting an ARCHIVE property
-in the entry. If such a property is found in an entry, or anywhere up
-the hierarchy, it will be used."
- :group 'org-archive
- :type 'string)
-
-(defcustom org-agenda-skip-archived-trees t
- "Non-nil means the agenda will skip any items located in archived trees.
-An archived tree is a tree marked with the tag ARCHIVE. The use of this
-variable is no longer recommended, you should leave it at the value t.
-Instead, use the key `v' to cycle the archives-mode in the agenda."
- :group 'org-archive
- :group 'org-agenda-skip
- :type 'boolean)
-
-(defcustom org-columns-skip-archived-trees t
- "Non-nil means ignore archived trees when creating column view."
- :group 'org-archive
- :group 'org-properties
- :type 'boolean)
-
-(defcustom org-cycle-open-archived-trees nil
- "Non-nil means `org-cycle' will open archived trees.
-An archived tree is a tree marked with the tag ARCHIVE.
-When nil, archived trees will stay folded. You can still open them with
-normal outline commands like `show-all', but not with the cycling commands."
- :group 'org-archive
- :group 'org-cycle
- :type 'boolean)
-
-(defcustom org-sparse-tree-open-archived-trees nil
- "Non-nil means sparse tree construction shows matches in archived trees.
-When nil, matches in these trees are highlighted, but the trees are kept in
-collapsed state."
- :group 'org-archive
- :group 'org-sparse-trees
- :type 'boolean)
-
-(defcustom org-sparse-tree-default-date-type nil
- "The default date type when building a sparse tree.
-When this is nil, a date is a scheduled or a deadline timestamp.
-Otherwise, these types are allowed:
-
- all: all timestamps
- active: only active timestamps (<...>)
- inactive: only inactive timestamps ([...])
- scheduled: only scheduled timestamps
- deadline: only deadline timestamps"
- :type '(choice (const :tag "Scheduled or deadline" nil)
- (const :tag "All timestamps" all)
- (const :tag "Only active timestamps" active)
- (const :tag "Only inactive timestamps" inactive)
- (const :tag "Only scheduled timestamps" scheduled)
- (const :tag "Only deadline timestamps" deadline)
- (const :tag "Only closed timestamps" closed))
- :version "26.1"
- :package-version '(Org . "8.3")
- :group 'org-sparse-trees)
-
-(defun org-cycle-hide-archived-subtrees (state)
- "Re-hide all archived subtrees after a visibility state change.
-STATE should be one of the symbols listed in the docstring of
-`org-cycle-hook'."
- (when (and (not org-cycle-open-archived-trees)
- (not (memq state '(overview folded))))
- (save-excursion
- (let* ((globalp (memq state '(contents all)))
- (beg (if globalp (point-min) (point)))
- (end (if globalp (point-max) (org-end-of-subtree t))))
- (org-hide-archived-subtrees beg end)
- (goto-char beg)
- (when (looking-at-p (concat ".*:" org-archive-tag ":"))
- (message "%s" (substitute-command-keys
- "Subtree is archived and stays closed. Use \
-`\\[org-force-cycle-archived]' to cycle it anyway.")))))))
-
-(defun org-force-cycle-archived ()
- "Cycle subtree even if it is archived."
- (interactive)
- (setq this-command 'org-cycle)
- (let ((org-cycle-open-archived-trees t))
- (call-interactively 'org-cycle)))
-
-(defun org-hide-archived-subtrees (beg end)
- "Re-hide all archived subtrees after a visibility state change."
- (org-with-wide-buffer
- (let ((case-fold-search nil)
- (re (concat org-outline-regexp-bol ".*:" org-archive-tag ":")))
- (goto-char beg)
- ;; Include headline point is currently on.
- (beginning-of-line)
- (while (and (< (point) end) (re-search-forward re end t))
- (when (member org-archive-tag (org-get-tags))
- (org-flag-subtree t)
- (org-end-of-subtree t))))))
-
-(declare-function outline-end-of-heading "outline" ())
-(declare-function outline-flag-region "outline" (from to flag))
-(defun org-flag-subtree (flag)
- (save-excursion
- (org-back-to-heading t)
- (outline-end-of-heading)
- (outline-flag-region (point)
- (progn (org-end-of-subtree t) (point))
- flag)))
-
-(defalias 'org-advertized-archive-subtree 'org-archive-subtree)
-
-;; Declare Column View Code
-
-(declare-function org-columns-get-format-and-top-level "org-colview" ())
-(declare-function org-columns-compute "org-colview" (property))
-
-;; Declare ID code
-
-(declare-function org-id-store-link "org-id")
-(declare-function org-id-locations-load "org-id")
-(declare-function org-id-locations-save "org-id")
-(defvar org-id-track-globally)
-
-;;; Variables for pre-computed regular expressions, all buffer local
-
-(defvar-local org-todo-regexp nil
- "Matches any of the TODO state keywords.
-Since TODO keywords are case-sensitive, `case-fold-search' is
-expected to be bound to nil when matching against this regexp.")
-
-(defvar-local org-not-done-regexp nil
- "Matches any of the TODO state keywords except the last one.
-Since TODO keywords are case-sensitive, `case-fold-search' is
-expected to be bound to nil when matching against this regexp.")
-
-(defvar-local org-not-done-heading-regexp nil
- "Matches a TODO headline that is not done.
-Since TODO keywords are case-sensitive, `case-fold-search' is
-expected to be bound to nil when matching against this regexp.")
-
-(defvar-local org-todo-line-regexp nil
- "Matches a headline and puts TODO state into group 2 if present.
-Since TODO keywords are case-sensitive, `case-fold-search' is
-expected to be bound to nil when matching against this regexp.")
-
-(defvar-local org-complex-heading-regexp nil
- "Matches a headline and puts everything into groups:
-
-group 1: Stars
-group 2: The TODO keyword, maybe
-group 3: Priority cookie
-group 4: True headline
-group 5: Tags
-
-Since TODO keywords are case-sensitive, `case-fold-search' is
-expected to be bound to nil when matching against this regexp.")
-
-(defvar-local org-complex-heading-regexp-format nil
- "Printf format to make regexp to match an exact headline.
-This regexp will match the headline of any node which has the
-exact headline text that is put into the format, but may have any
-TODO state, priority and tags.")
-
-(defvar-local org-todo-line-tags-regexp nil
- "Matches a headline and puts TODO state into group 2 if present.
-Also put tags into group 4 if tags are present.")
-
-(defconst org-plain-time-of-day-regexp
- (concat
- "\\(\\<[012]?[0-9]"
- "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
- "\\(--?"
- "\\(\\<[012]?[0-9]"
- "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
- "\\)?")
- "Regular expression to match a plain time or time range.
-Examples: 11:45 or 8am-13:15 or 2:45-2:45pm. After a match, the following
-groups carry important information:
-0 the full match
-1 the first time, range or not
-8 the second time, if it is a range.")
-
-(defconst org-plain-time-extension-regexp
- (concat
- "\\(\\<[012]?[0-9]"
- "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
- "\\+\\([0-9]+\\)\\(:\\([0-5][0-9]\\)\\)?")
- "Regular expression to match a time range like 13:30+2:10 = 13:30-15:40.
-Examples: 11:45 or 8am-13:15 or 2:45-2:45pm. After a match, the following
-groups carry important information:
-0 the full match
-7 hours of duration
-9 minutes of duration")
-
-(defconst org-stamp-time-of-day-regexp
- (concat
- "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} +\\sw+ +\\)"
- "\\([012][0-9]:[0-5][0-9]\\(-\\([012][0-9]:[0-5][0-9]\\)\\)?[^\n\r>]*?\\)>"
- "\\(--?"
- "<\\1\\([012][0-9]:[0-5][0-9]\\)>\\)?")
- "Regular expression to match a timestamp time or time range.
-After a match, the following groups carry important information:
-0 the full match
-1 date plus weekday, for back referencing to make sure both times are on the same day
-2 the first time, range or not
-4 the second time, if it is a range.")
-
-(defconst org-startup-options
- '(("fold" org-startup-folded t)
- ("overview" org-startup-folded t)
- ("nofold" org-startup-folded nil)
- ("showall" org-startup-folded nil)
- ("showeverything" org-startup-folded showeverything)
- ("content" org-startup-folded content)
- ("indent" org-startup-indented t)
- ("noindent" org-startup-indented nil)
- ("hidestars" org-hide-leading-stars t)
- ("showstars" org-hide-leading-stars nil)
- ("odd" org-odd-levels-only t)
- ("oddeven" org-odd-levels-only nil)
- ("align" org-startup-align-all-tables t)
- ("noalign" org-startup-align-all-tables nil)
- ("inlineimages" org-startup-with-inline-images t)
- ("noinlineimages" org-startup-with-inline-images nil)
- ("latexpreview" org-startup-with-latex-preview t)
- ("nolatexpreview" org-startup-with-latex-preview nil)
- ("customtime" org-display-custom-times t)
- ("logdone" org-log-done time)
- ("lognotedone" org-log-done note)
- ("nologdone" org-log-done nil)
- ("lognoteclock-out" org-log-note-clock-out t)
- ("nolognoteclock-out" org-log-note-clock-out nil)
- ("logrepeat" org-log-repeat state)
- ("lognoterepeat" org-log-repeat note)
- ("logdrawer" org-log-into-drawer t)
- ("nologdrawer" org-log-into-drawer nil)
- ("logstatesreversed" org-log-states-order-reversed t)
- ("nologstatesreversed" org-log-states-order-reversed nil)
- ("nologrepeat" org-log-repeat nil)
- ("logreschedule" org-log-reschedule time)
- ("lognotereschedule" org-log-reschedule note)
- ("nologreschedule" org-log-reschedule nil)
- ("logredeadline" org-log-redeadline time)
- ("lognoteredeadline" org-log-redeadline note)
- ("nologredeadline" org-log-redeadline nil)
- ("logrefile" org-log-refile time)
- ("lognoterefile" org-log-refile note)
- ("nologrefile" org-log-refile nil)
- ("fninline" org-footnote-define-inline t)
- ("nofninline" org-footnote-define-inline nil)
- ("fnlocal" org-footnote-section nil)
- ("fnauto" org-footnote-auto-label t)
- ("fnprompt" org-footnote-auto-label nil)
- ("fnconfirm" org-footnote-auto-label confirm)
- ("fnplain" org-footnote-auto-label plain)
- ("fnadjust" org-footnote-auto-adjust t)
- ("nofnadjust" org-footnote-auto-adjust nil)
- ("constcgs" constants-unit-system cgs)
- ("constSI" constants-unit-system SI)
- ("noptag" org-tag-persistent-alist nil)
- ("hideblocks" org-hide-block-startup t)
- ("nohideblocks" org-hide-block-startup nil)
- ("beamer" org-startup-with-beamer-mode t)
- ("entitiespretty" org-pretty-entities t)
- ("entitiesplain" org-pretty-entities nil))
- "Variable associated with STARTUP options for Org.
-Each element is a list of three items: the startup options (as written
-in the #+STARTUP line), the corresponding variable, and the value to set
-this variable to if the option is found. An optional forth element PUSH
-means to push this value onto the list in the variable.")
-
-(defcustom org-group-tags t
- "When non-nil (the default), use group tags.
-This can be turned on/off through `org-toggle-tags-groups'."
- :group 'org-tags
- :group 'org-startup
- :type 'boolean)
-
-(defvar org-inhibit-startup nil) ; Dynamically-scoped param.
-
-(defun org-toggle-tags-groups ()
- "Toggle support for group tags.
-Support for group tags is controlled by the option
-`org-group-tags', which is non-nil by default."
- (interactive)
- (setq org-group-tags (not org-group-tags))
- (cond ((and (derived-mode-p 'org-agenda-mode)
- org-group-tags)
- (org-agenda-redo))
- ((derived-mode-p 'org-mode)
- (let ((org-inhibit-startup t)) (org-mode))))
- (message "Groups tags support has been turned %s"
- (if org-group-tags "on" "off")))
-
-(defun org--tag-add-to-alist (alist1 alist2)
- "Merge tags from ALIST1 into ALIST2.
-
-Duplicates tags outside a group are removed. Keywords and order
-are preserved.
-
-The function assumes ALIST1 and ALIST2 are proper tag alists.
-See `org-tag-alist' for their structure."
- (cond
- ((null alist2) alist1)
- ((null alist1) alist2)
- (t
- (let ((to-add nil)
- (group-flag nil))
- (dolist (tag-pair alist1)
- (pcase tag-pair
- (`(,(or :startgrouptag :startgroup))
- (setq group-flag t)
- (push tag-pair to-add))
- (`(,(or :endgrouptag :endgroup))
- (setq group-flag nil)
- (push tag-pair to-add))
- (`(,(or :grouptags :newline))
- (push tag-pair to-add))
- (`(,tag . ,_)
- ;; Remove duplicates from ALIST1, unless they are in
- ;; a group. Indeed, it makes sense to have a tag appear in
- ;; multiple groups.
- (when (or group-flag (not (assoc tag alist2)))
- (push tag-pair to-add)))
- (_ (error "Invalid association in tag alist: %S" tag-pair))))
- ;; Preserve order of ALIST1.
- (append (nreverse to-add) alist2)))))
-
-(defun org-set-regexps-and-options (&optional tags-only)
- "Precompute regular expressions used in the current buffer.
-When optional argument TAGS-ONLY is non-nil, only compute tags
-related expressions."
- (when (derived-mode-p 'org-mode)
- (let ((alist (org--setup-collect-keywords
- (org-make-options-regexp
- (append '("FILETAGS" "TAGS" "SETUPFILE")
- (and (not tags-only)
- '("ARCHIVE" "CATEGORY" "COLUMNS" "CONSTANTS"
- "LINK" "OPTIONS" "PRIORITIES" "PROPERTY"
- "SEQ_TODO" "STARTUP" "TODO" "TYP_TODO")))))))
- ;; Startup options. Get this early since it does change
- ;; behavior for other options (e.g., tags).
- (let ((startup (cdr (assq 'startup alist))))
- (dolist (option startup)
- (let ((entry (assoc-string option org-startup-options t)))
- (when entry
- (let ((var (nth 1 entry))
- (val (nth 2 entry)))
- (if (not (nth 3 entry)) (set (make-local-variable var) val)
- (unless (listp (symbol-value var))
- (set (make-local-variable var) nil))
- (add-to-list var val)))))))
- (setq-local org-file-tags
- (mapcar #'org-add-prop-inherited
- (cdr (assq 'filetags alist))))
- (setq org-current-tag-alist
- (org--tag-add-to-alist
- org-tag-persistent-alist
- (let ((tags (cdr (assq 'tags alist))))
- (if tags (org-tag-string-to-alist tags)
- org-tag-alist))))
- (setq org-tag-groups-alist
- (org-tag-alist-to-groups org-current-tag-alist))
- (unless tags-only
- ;; File properties.
- (setq-local org-file-properties (cdr (assq 'property alist)))
- ;; Archive location.
- (let ((archive (cdr (assq 'archive alist))))
- (when archive (setq-local org-archive-location archive)))
- ;; Category.
- (let ((cat (org-string-nw-p (cdr (assq 'category alist)))))
- (when cat
- (setq-local org-category (intern cat))
- (setq-local org-file-properties
- (org--update-property-plist
- "CATEGORY" cat org-file-properties))))
- ;; Columns.
- (let ((column (cdr (assq 'columns alist))))
- (when column (setq-local org-columns-default-format column)))
- ;; Constants.
- (setq org-table-formula-constants-local (cdr (assq 'constants alist)))
- ;; Link abbreviations.
- (let ((links (cdr (assq 'link alist))))
- (when links (setq org-link-abbrev-alist-local (nreverse links))))
- ;; Priorities.
- (let ((priorities (cdr (assq 'priorities alist))))
- (when priorities
- (setq-local org-highest-priority (nth 0 priorities))
- (setq-local org-lowest-priority (nth 1 priorities))
- (setq-local org-default-priority (nth 2 priorities))))
- ;; Scripts.
- (let ((scripts (assq 'scripts alist)))
- (when scripts
- (setq-local org-use-sub-superscripts (cdr scripts))))
- ;; TODO keywords.
- (setq-local org-todo-kwd-alist nil)
- (setq-local org-todo-key-alist nil)
- (setq-local org-todo-key-trigger nil)
- (setq-local org-todo-keywords-1 nil)
- (setq-local org-done-keywords nil)
- (setq-local org-todo-heads nil)
- (setq-local org-todo-sets nil)
- (setq-local org-todo-log-states nil)
- (let ((todo-sequences
- (or (nreverse (cdr (assq 'todo alist)))
- (let ((d (default-value 'org-todo-keywords)))
- (if (not (stringp (car d))) d
- ;; XXX: Backward compatibility code.
- (list (cons org-todo-interpretation d)))))))
- (dolist (sequence todo-sequences)
- (let* ((sequence (or (run-hook-with-args-until-success
- 'org-todo-setup-filter-hook sequence)
- sequence))
- (sequence-type (car sequence))
- (keywords (cdr sequence))
- (sep (member "|" keywords))
- names alist)
- (dolist (k (remove "|" keywords))
- (unless (string-match "^\\(.*?\\)\\(?:(\\([^!@/]\\)?.*?)\\)?$"
- k)
- (error "Invalid TODO keyword %s" k))
- (let ((name (match-string 1 k))
- (key (match-string 2 k))
- (log (org-extract-log-state-settings k)))
- (push name names)
- (push (cons name (and key (string-to-char key))) alist)
- (when log (push log org-todo-log-states))))
- (let* ((names (nreverse names))
- (done (if sep (org-remove-keyword-keys (cdr sep))
- (last names)))
- (head (car names))
- (tail (list sequence-type head (car done) (org-last done))))
- (add-to-list 'org-todo-heads head 'append)
- (push names org-todo-sets)
- (setq org-done-keywords (append org-done-keywords done nil))
- (setq org-todo-keywords-1 (append org-todo-keywords-1 names nil))
- (setq org-todo-key-alist
- (append org-todo-key-alist
- (and alist
- (append '((:startgroup))
- (nreverse alist)
- '((:endgroup))))))
- (dolist (k names) (push (cons k tail) org-todo-kwd-alist))))))
- (setq org-todo-sets (nreverse org-todo-sets)
- org-todo-kwd-alist (nreverse org-todo-kwd-alist)
- org-todo-key-trigger (delq nil (mapcar #'cdr org-todo-key-alist))
- org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))
- ;; Compute the regular expressions and other local variables.
- ;; Using `org-outline-regexp-bol' would complicate them much,
- ;; because of the fixed white space at the end of that string.
- (unless org-done-keywords
- (setq org-done-keywords
- (and org-todo-keywords-1 (last org-todo-keywords-1))))
- (setq org-not-done-keywords
- (org-delete-all org-done-keywords
- (copy-sequence org-todo-keywords-1))
- org-todo-regexp (regexp-opt org-todo-keywords-1 t)
- org-not-done-regexp (regexp-opt org-not-done-keywords t)
- org-not-done-heading-regexp
- (format org-heading-keyword-regexp-format org-not-done-regexp)
- org-todo-line-regexp
- (format org-heading-keyword-maybe-regexp-format org-todo-regexp)
- org-complex-heading-regexp
- (concat "^\\(\\*+\\)"
- "\\(?: +" org-todo-regexp "\\)?"
- "\\(?: +\\(\\[#.\\]\\)\\)?"
- "\\(?: +\\(.*?\\)\\)??"
- "\\(?:[ \t]+\\(:[[:alnum:]_@#%:]+:\\)\\)?"
- "[ \t]*$")
- org-complex-heading-regexp-format
- (concat "^\\(\\*+\\)"
- "\\(?: +" org-todo-regexp "\\)?"
- "\\(?: +\\(\\[#.\\]\\)\\)?"
- "\\(?: +"
- ;; Stats cookies can be stuck to body.
- "\\(?:\\[[0-9%%/]+\\] *\\)*"
- "\\(%s\\)"
- "\\(?: *\\[[0-9%%/]+\\]\\)*"
- "\\)"
- "\\(?:[ \t]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?"
- "[ \t]*$")
- org-todo-line-tags-regexp
- (concat "^\\(\\*+\\)"
- "\\(?: +" org-todo-regexp "\\)?"
- "\\(?: +\\(.*?\\)\\)??"
- "\\(?:[ \t]+\\(:[[:alnum:]:_@#%]+:\\)\\)?"
- "[ \t]*$"))
- (org-compute-latex-and-related-regexp)))))
-
-(defun org--setup-collect-keywords (regexp &optional files alist)
- "Return setup keywords values as an alist.
-
-REGEXP matches a subset of setup keywords. FILES is a list of
-file names already visited. It is used to avoid circular setup
-files. ALIST, when non-nil, is the alist computed so far.
-
-Return value contains the following keys: `archive', `category',
-`columns', `constants', `filetags', `link', `priorities',
-`property', `scripts', `startup', `tags' and `todo'."
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((case-fold-search t))
- (while (re-search-forward regexp nil t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'keyword)
- (let ((key (org-element-property :key element))
- (value (org-element-property :value element)))
- (cond
- ((equal key "ARCHIVE")
- (when (org-string-nw-p value)
- (push (cons 'archive value) alist)))
- ((equal key "CATEGORY") (push (cons 'category value) alist))
- ((equal key "COLUMNS") (push (cons 'columns value) alist))
- ((equal key "CONSTANTS")
- (let* ((constants (assq 'constants alist))
- (store (cdr constants)))
- (dolist (pair (split-string value))
- (when (string-match "^\\([a-zA-Z0][_a-zA-Z0-9]*\\)=\\(.*\\)"
- pair)
- (let* ((name (match-string 1 pair))
- (value (match-string 2 pair))
- (old (assoc name store)))
- (if old (setcdr old value)
- (push (cons name value) store)))))
- (if constants (setcdr constants store)
- (push (cons 'constants store) alist))))
- ((equal key "FILETAGS")
- (when (org-string-nw-p value)
- (let ((old (assq 'filetags alist))
- (new (apply #'nconc
- (mapcar (lambda (x) (org-split-string x ":"))
- (split-string value)))))
- (if old (setcdr old (append new (cdr old)))
- (push (cons 'filetags new) alist)))))
- ((equal key "LINK")
- (when (string-match "\\`\\(\\S-+\\)[ \t]+\\(.+\\)" value)
- (let ((links (assq 'link alist))
- (pair (cons (match-string-no-properties 1 value)
- (match-string-no-properties 2 value))))
- (if links (push pair (cdr links))
- (push (list 'link pair) alist)))))
- ((equal key "OPTIONS")
- (when (and (org-string-nw-p value)
- (string-match "\\^:\\(t\\|nil\\|{}\\)" value))
- (push (cons 'scripts (read (match-string 1 value))) alist)))
- ((equal key "PRIORITIES")
- (push (cons 'priorities
- (let ((prio (split-string value)))
- (if (< (length prio) 3) '(?A ?C ?B)
- (mapcar #'string-to-char prio))))
- alist))
- ((equal key "PROPERTY")
- (when (string-match "\\(\\S-+\\)[ \t]+\\(.*\\)" value)
- (let* ((property (assq 'property alist))
- (value (org--update-property-plist
- (match-string-no-properties 1 value)
- (match-string-no-properties 2 value)
- (cdr property))))
- (if property (setcdr property value)
- (push (cons 'property value) alist)))))
- ((equal key "STARTUP")
- (let ((startup (assq 'startup alist)))
- (if startup
- (setcdr startup
- (append (cdr startup) (split-string value)))
- (push (cons 'startup (split-string value)) alist))))
- ((equal key "TAGS")
- (let ((tag-cell (assq 'tags alist)))
- (if tag-cell
- (setcdr tag-cell (concat (cdr tag-cell) "\n" value))
- (push (cons 'tags value) alist))))
- ((member key '("TODO" "SEQ_TODO" "TYP_TODO"))
- (let ((todo (assq 'todo alist))
- (value (cons (if (equal key "TYP_TODO") 'type 'sequence)
- (split-string value))))
- (if todo (push value (cdr todo))
- (push (list 'todo value) alist))))
- ((equal key "SETUPFILE")
- (unless buffer-read-only ; Do not check in Gnus messages.
- (let ((f (and (org-string-nw-p value)
- (expand-file-name
- (org-unbracket-string "\"" "\"" value)))))
- (when (and f (file-readable-p f) (not (member f files)))
- (with-temp-buffer
- (setq default-directory (file-name-directory f))
- (insert-file-contents f)
- (setq alist
- ;; Fake Org mode to benefit from cache
- ;; without recurring needlessly.
- (let ((major-mode 'org-mode))
- (org--setup-collect-keywords
- regexp (cons f files) alist)))))))))))))))
- alist)
-
-(defun org-tag-string-to-alist (s)
- "Return tag alist associated to string S.
-S is a value for TAGS keyword or produced with
-`org-tag-alist-to-string'. Return value is an alist suitable for
-`org-tag-alist' or `org-tag-persistent-alist'."
- (let ((lines (mapcar #'split-string (split-string s "\n" t)))
- (tag-re (concat "\\`\\([[:alnum:]_@#%]+"
- "\\|{.+?}\\)" ; regular expression
- "\\(?:(\\(.\\))\\)?\\'"))
- alist group-flag)
- (dolist (tokens lines (cdr (nreverse alist)))
- (push '(:newline) alist)
- (while tokens
- (let ((token (pop tokens)))
- (pcase token
- ("{"
- (push '(:startgroup) alist)
- (when (equal (nth 1 tokens) ":") (setq group-flag t)))
- ("}"
- (push '(:endgroup) alist)
- (setq group-flag nil))
- ("["
- (push '(:startgrouptag) alist)
- (when (equal (nth 1 tokens) ":") (setq group-flag t)))
- ("]"
- (push '(:endgrouptag) alist)
- (setq group-flag nil))
- (":"
- (push '(:grouptags) alist))
- ((guard (string-match tag-re token))
- (let ((tag (match-string 1 token))
- (key (and (match-beginning 2)
- (string-to-char (match-string 2 token)))))
- ;; Push all tags in groups, no matter if they already
- ;; appear somewhere else in the list.
- (when (or group-flag (not (assoc tag alist)))
- (push (cons tag key) alist))))))))))
-
-(defun org-tag-alist-to-string (alist &optional skip-key)
- "Return tag string associated to ALIST.
-
-ALIST is an alist, as defined in `org-tag-alist' or
-`org-tag-persistent-alist', or produced with
-`org-tag-string-to-alist'.
-
-Return value is a string suitable as a value for \"TAGS\"
-keyword.
-
-When optional argument SKIP-KEY is non-nil, skip selection keys
-next to tags."
- (mapconcat (lambda (token)
- (pcase token
- (`(:startgroup) "{")
- (`(:endgroup) "}")
- (`(:startgrouptag) "[")
- (`(:endgrouptag) "]")
- (`(:grouptags) ":")
- (`(:newline) "\\n")
- ((and
- (guard (not skip-key))
- `(,(and tag (pred stringp)) . ,(and key (pred characterp))))
- (format "%s(%c)" tag key))
- (`(,(and tag (pred stringp)) . ,_) tag)
- (_ (user-error "Invalid tag token: %S" token))))
- alist
- " "))
-
-(defun org-tag-alist-to-groups (alist)
- "Return group alist from tag ALIST.
-ALIST is an alist, as defined in `org-tag-alist' or
-`org-tag-persistent-alist', or produced with
-`org-tag-string-to-alist'. Return value is an alist following
-the pattern (GROUP-TAG TAGS) where GROUP-TAG is the tag, as
-a string, summarizing TAGS, as a list of strings."
- (let (groups group-status current-group)
- (dolist (token alist (nreverse groups))
- (pcase token
- (`(,(or :startgroup :startgrouptag)) (setq group-status t))
- (`(,(or :endgroup :endgrouptag))
- (when (eq group-status 'append)
- (push (nreverse current-group) groups))
- (setq group-status nil current-group nil))
- (`(:grouptags) (setq group-status 'append))
- ((and `(,tag . ,_) (guard group-status))
- (if (eq group-status 'append) (push tag current-group)
- (setq current-group (list tag))))
- (_ nil)))))
-
-(defvar org--file-cache (make-hash-table :test #'equal)
- "Hash table to store contents of files referenced via a URL.
-This is the cache of file URLs read using `org-file-contents'.")
-
-(defun org-reset-file-cache ()
- "Reset the cache of files downloaded by `org-file-contents'."
- (clrhash org--file-cache))
-
-(defun org-file-url-p (file)
- "Non-nil if FILE is a URL."
- (require 'ffap)
- (string-match-p ffap-url-regexp file))
-
-(defun org-file-contents (file &optional noerror nocache)
- "Return the contents of FILE, as a string.
-
-FILE can be a file name or URL.
-
-If FILE is a URL, download the contents. If the URL contents are
-already cached in the `org--file-cache' hash table, the download step
-is skipped.
-
-If NOERROR is non-nil, ignore the error when unable to read the FILE
-from file or URL.
-
-If NOCACHE is non-nil, do a fresh fetch of FILE even if cached version
-is available. This option applies only if FILE is a URL."
- (let* ((is-url (org-file-url-p file))
- (cache (and is-url
- (not nocache)
- (gethash file org--file-cache))))
- (cond
- (cache)
- (is-url
- (with-current-buffer (url-retrieve-synchronously file)
- (goto-char (point-min))
- ;; Move point to after the url-retrieve header.
- (search-forward "\n\n" nil :move)
- ;; Search for the success code only in the url-retrieve header.
- (if (save-excursion
- (re-search-backward "HTTP.*\\s-+200\\s-OK" nil :noerror))
- ;; Update the cache `org--file-cache' and return contents.
- (puthash file
- (buffer-substring-no-properties (point) (point-max))
- org--file-cache)
- (funcall (if noerror #'message #'user-error)
- "Unable to fetch file from %S"
- file))))
- (t
- (with-temp-buffer
- (condition-case nil
- (progn
- (insert-file-contents file)
- (buffer-string))
- (file-error
- (funcall (if noerror #'message #'user-error)
- "Unable to read file %S"
- file))))))))
-
-(defun org-extract-log-state-settings (x)
- "Extract the log state setting from a TODO keyword string.
-This will extract info from a string like \"WAIT(w@/!)\"."
- (when (string-match "^\\(.*?\\)\\(?:(\\([^!@/]\\)?\\([!@]\\)?\\(?:/\\([!@]\\)\\)?)\\)?$" x)
- (let ((kw (match-string 1 x))
- (log1 (and (match-end 3) (match-string 3 x)))
- (log2 (and (match-end 4) (match-string 4 x))))
- (and (or log1 log2)
- (list kw
- (and log1 (if (equal log1 "!") 'time 'note))
- (and log2 (if (equal log2 "!") 'time 'note)))))))
-
-(defun org-remove-keyword-keys (list)
- "Remove a pair of parenthesis at the end of each string in LIST."
- (mapcar (lambda (x)
- (if (string-match "(.*)$" x)
- (substring x 0 (match-beginning 0))
- x))
- list))
-
-(defun org-assign-fast-keys (alist)
- "Assign fast keys to a keyword-key alist.
-Respect keys that are already there."
- (let (new e (alt ?0))
- (while (setq e (pop alist))
- (if (or (memq (car e) '(:newline :grouptags :endgroup :startgroup))
- (cdr e)) ;; Key already assigned.
- (push e new)
- (let ((clist (string-to-list (downcase (car e))))
- (used (append new alist)))
- (when (= (car clist) ?@)
- (pop clist))
- (while (and clist (rassoc (car clist) used))
- (pop clist))
- (unless clist
- (while (rassoc alt used)
- (cl-incf alt)))
- (push (cons (car e) (or (car clist) alt)) new))))
- (nreverse new)))
-
-;;; Some variables used in various places
-
-(defvar org-window-configuration nil
- "Used in various places to store a window configuration.")
-(defvar org-selected-window nil
- "Used in various places to store a window configuration.")
-(defvar org-finish-function nil
- "Function to be called when `C-c C-c' is used.
-This is for getting out of special buffers like capture.")
-(defvar org-last-state)
-
-;; Defined somewhere in this file, but used before definition.
-(defvar org-entities) ;; defined in org-entities.el
-(defvar org-struct-menu)
-(defvar org-org-menu)
-(defvar org-tbl-menu)
-
-;;;; Define the Org mode
-
-;; We use a before-change function to check if a table might need
-;; an update.
-(defvar org-table-may-need-update t
- "Indicates that a table might need an update.
-This variable is set by `org-before-change-function'.
-`org-table-align' sets it back to nil.")
-(defun org-before-change-function (_beg _end)
- "Every change indicates that a table might need an update."
- (setq org-table-may-need-update t))
-(defvar org-mode-map)
-(defvar org-inhibit-startup-visibility-stuff nil) ; Dynamically-scoped param.
-(defvar org-agenda-keep-modes nil) ; Dynamically-scoped param.
-(defvar org-inhibit-logging nil) ; Dynamically-scoped param.
-(defvar org-inhibit-blocking nil) ; Dynamically-scoped param.
-(defvar org-table-buffer-is-an nil)
-
-(defvar bidi-paragraph-direction)
-(defvar buffer-face-mode-face)
-
-(require 'outline)
-
-;; Other stuff we need.
-(require 'time-date)
-(unless (fboundp 'time-subtract) (defalias 'time-subtract 'subtract-time))
-(require 'easymenu)
-(autoload 'easy-menu-add "easymenu")
-(require 'overlay)
-
-;; (require 'org-macs) moved higher up in the file before it is first used
-(require 'org-entities)
-;; (require 'org-compat) moved higher up in the file before it is first used
-(require 'org-faces)
-(require 'org-list)
-(require 'org-pcomplete)
-(require 'org-src)
-(require 'org-footnote)
-(require 'org-macro)
-
-;; babel
-(require 'ob)
-
-;;;###autoload
-(define-derived-mode org-mode outline-mode "Org"
- "Outline-based notes management and organizer, alias
-\"Carsten's outline-mode for keeping track of everything.\"
-
-Org mode develops organizational tasks around a NOTES file which
-contains information about projects as plain text. Org mode is
-implemented on top of Outline mode, which is ideal to keep the content
-of large files well structured. It supports ToDo items, deadlines and
-time stamps, which magically appear in the diary listing of the Emacs
-calendar. Tables are easily created with a built-in table editor.
-Plain text URL-like links connect to websites, emails (VM), Usenet
-messages (Gnus), BBDB entries, and any files related to the project.
-For printing and sharing of notes, an Org file (or a part of it)
-can be exported as a structured ASCII or HTML file.
-
-The following commands are available:
-
-\\{org-mode-map}"
-
- ;; Get rid of Outline menus, they are not needed
- ;; Need to do this here because define-derived-mode sets up
- ;; the keymap so late. Still, it is a waste to call this each time
- ;; we switch another buffer into Org mode.
- (define-key org-mode-map [menu-bar headings] 'undefined)
- (define-key org-mode-map [menu-bar hide] 'undefined)
- (define-key org-mode-map [menu-bar show] 'undefined)
-
- (org-load-modules-maybe)
- (org-install-agenda-files-menu)
- (when org-descriptive-links (add-to-invisibility-spec '(org-link)))
- (add-to-invisibility-spec '(org-cwidth))
- (add-to-invisibility-spec '(org-hide-block . t))
- (setq-local outline-regexp org-outline-regexp)
- (setq-local outline-level 'org-outline-level)
- (setq bidi-paragraph-direction 'left-to-right)
- (when (and (stringp org-ellipsis) (not (equal "" org-ellipsis)))
- (unless org-display-table
- (setq org-display-table (make-display-table)))
- (set-display-table-slot
- org-display-table 4
- (vconcat (mapcar (lambda (c) (make-glyph-code c 'org-ellipsis))
- org-ellipsis)))
- (setq buffer-display-table org-display-table))
- (org-set-regexps-and-options)
- (org-set-font-lock-defaults)
- (when (and org-tag-faces (not org-tags-special-faces-re))
- ;; tag faces set outside customize.... force initialization.
- (org-set-tag-faces 'org-tag-faces org-tag-faces))
- ;; Calc embedded
- (setq-local calc-embedded-open-mode "# ")
- ;; Modify a few syntax entries
- (modify-syntax-entry ?@ "w")
- (modify-syntax-entry ?\" "\"")
- (modify-syntax-entry ?\\ "_")
- (modify-syntax-entry ?~ "_")
- (setq-local font-lock-unfontify-region-function 'org-unfontify-region)
- ;; Activate before-change-function
- (setq-local org-table-may-need-update t)
- (add-hook 'before-change-functions 'org-before-change-function nil 'local)
- ;; Check for running clock before killing a buffer
- (add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local)
- ;; Initialize macros templates.
- (org-macro-initialize-templates)
- ;; Initialize radio targets.
- (org-update-radio-target-regexp)
- ;; Indentation.
- (setq-local indent-line-function 'org-indent-line)
- (setq-local indent-region-function 'org-indent-region)
- ;; Filling and auto-filling.
- (org-setup-filling)
- ;; Comments.
- (org-setup-comments-handling)
- ;; Initialize cache.
- (org-element-cache-reset)
- ;; Beginning/end of defun
- (setq-local beginning-of-defun-function 'org-backward-element)
- (setq-local end-of-defun-function
- (lambda ()
- (if (not (org-at-heading-p))
- (org-forward-element)
- (org-forward-element)
- (forward-char -1))))
- ;; Next error for sparse trees
- (setq-local next-error-function 'org-occur-next-match)
- ;; Make sure dependence stuff works reliably, even for users who set it
- ;; too late :-(
- (if org-enforce-todo-dependencies
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent))
- (if org-enforce-todo-checkbox-dependencies
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes))
-
- ;; Align options lines
- (setq-local
- align-mode-rules-list
- '((org-in-buffer-settings
- (regexp . "^[ \t]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+")
- (modes . '(org-mode)))))
-
- ;; Imenu
- (setq-local imenu-create-index-function 'org-imenu-get-tree)
-
- ;; Make isearch reveal context
- (setq-local outline-isearch-open-invisible-function
- (lambda (&rest _) (org-show-context 'isearch)))
-
- ;; Setup the pcomplete hooks
- (setq-local pcomplete-command-completion-function 'org-pcomplete-initial)
- (setq-local pcomplete-command-name-function 'org-command-at-point)
- (setq-local pcomplete-default-completion-function 'ignore)
- (setq-local pcomplete-parse-arguments-function 'org-parse-arguments)
- (setq-local pcomplete-termination-string "")
- (setq-local buffer-face-mode-face 'org-default)
-
- ;; If empty file that did not turn on Org mode automatically, make
- ;; it to.
- (when (and org-insert-mode-line-in-empty-file
- (called-interactively-p 'any)
- (= (point-min) (point-max)))
- (insert "# -*- mode: org -*-\n\n"))
- (unless org-inhibit-startup
- (org-unmodified
- (when org-startup-with-beamer-mode (org-beamer-mode))
- (when org-startup-align-all-tables
- (org-table-map-tables #'org-table-align t))
- (when org-startup-with-inline-images (org-display-inline-images))
- (when org-startup-with-latex-preview (org-toggle-latex-fragment '(16)))
- (unless org-inhibit-startup-visibility-stuff (org-set-startup-visibility))
- (when org-startup-truncated (setq truncate-lines t))
- (when org-startup-indented (require 'org-indent) (org-indent-mode 1))
- (org-refresh-effort-properties)))
- ;; Try to set `org-hide' face correctly.
- (let ((foreground (org-find-invisible-foreground)))
- (when foreground
- (set-face-foreground 'org-hide foreground))))
-
-;; Update `customize-package-emacs-version-alist'
-(add-to-list 'customize-package-emacs-version-alist
- '(Org ("8.0" . "24.4")
- ("8.1" . "24.4")
- ("8.2" . "24.4")
- ("8.2.7" . "24.4")
- ("8.3" . "26.1")
- ("9.0" . "26.1")
- ("9.1" . "26.1")))
-
-(defvar org-mode-transpose-word-syntax-table
- (let ((st (make-syntax-table text-mode-syntax-table)))
- (dolist (c org-emphasis-alist st)
- (modify-syntax-entry (string-to-char (car c)) "w p" st))))
-
-(when (fboundp 'abbrev-table-put)
- (abbrev-table-put org-mode-abbrev-table
- :parents (list text-mode-abbrev-table)))
-
-(defun org-find-invisible-foreground ()
- (let ((candidates (remove
- "unspecified-bg"
- (nconc
- (list (face-background 'default)
- (face-background 'org-default))
- (mapcar
- (lambda (alist)
- (when (boundp alist)
- (cdr (assq 'background-color (symbol-value alist)))))
- '(default-frame-alist initial-frame-alist window-system-default-frame-alist))
- (list (face-foreground 'org-hide))))))
- (car (remove nil candidates))))
-
-(defun org-current-time (&optional rounding-minutes past)
- "Current time, possibly rounded to ROUNDING-MINUTES.
-When ROUNDING-MINUTES is not an integer, fall back on the car of
-`org-time-stamp-rounding-minutes'. When PAST is non-nil, ensure
-the rounding returns a past time."
- (let ((r (or (and (integerp rounding-minutes) rounding-minutes)
- (car org-time-stamp-rounding-minutes)))
- (time (decode-time)) res)
- (if (< r 1)
- (current-time)
- (setq res
- (apply 'encode-time
- (append (list 0 (* r (floor (+ .5 (/ (float (nth 1 time)) r)))))
- (nthcdr 2 time))))
- (if (and past (< (float-time (time-subtract (current-time) res)) 0))
- (seconds-to-time (- (float-time res) (* r 60)))
- res))))
-
-(defun org-today ()
- "Return today date, considering `org-extend-today-until'."
- (time-to-days
- (time-subtract (current-time)
- (list 0 (* 3600 org-extend-today-until) 0))))
-
-;;;; Font-Lock stuff, including the activators
-
-(defvar org-mouse-map (make-sparse-keymap))
-(org-defkey org-mouse-map [mouse-2] 'org-open-at-mouse)
-(org-defkey org-mouse-map [mouse-3] 'org-find-file-at-mouse)
-(when org-mouse-1-follows-link
- (org-defkey org-mouse-map [follow-link] 'mouse-face))
-(when org-tab-follows-link
- (org-defkey org-mouse-map [(tab)] 'org-open-at-point)
- (org-defkey org-mouse-map "\C-i" 'org-open-at-point))
-
-(require 'font-lock)
-
-(defconst org-non-link-chars "]\t\n\r<>")
-(defvar org-link-types-re nil
- "Matches a link that has a url-like prefix like \"http:\"")
-(defvar org-link-re-with-space nil
- "Matches a link with spaces, optional angular brackets around it.")
-(defvar org-link-re-with-space2 nil
- "Matches a link with spaces, optional angular brackets around it.")
-(defvar org-link-re-with-space3 nil
- "Matches a link with spaces, only for internal part in bracket links.")
-(defvar org-angle-link-re nil
- "Matches link with angular brackets, spaces are allowed.")
-(defvar org-plain-link-re nil
- "Matches plain link, without spaces.")
-(defvar org-bracket-link-regexp nil
- "Matches a link in double brackets.")
-(defvar org-bracket-link-analytic-regexp nil
- "Regular expression used to analyze links.
-Here is what the match groups contain after a match:
-1: http:
-2: http
-3: path
-4: [desc]
-5: desc")
-(defvar org-bracket-link-analytic-regexp++ nil
- "Like `org-bracket-link-analytic-regexp', but include coderef internal type.")
-(defvar org-any-link-re nil
- "Regular expression matching any link.")
-
-(defconst org-match-sexp-depth 3
- "Number of stacked braces for sub/superscript matching.")
-
-(defun org-create-multibrace-regexp (left right n)
- "Create a regular expression which will match a balanced sexp.
-Opening delimiter is LEFT, and closing delimiter is RIGHT, both given
-as single character strings.
-The regexp returned will match the entire expression including the
-delimiters. It will also define a single group which contains the
-match except for the outermost delimiters. The maximum depth of
-stacked delimiters is N. Escaping delimiters is not possible."
- (let* ((nothing (concat "[^" left right "]*?"))
- (or "\\|")
- (re nothing)
- (next (concat "\\(?:" nothing left nothing right "\\)+" nothing)))
- (while (> n 1)
- (setq n (1- n)
- re (concat re or next)
- next (concat "\\(?:" nothing left next right "\\)+" nothing)))
- (concat left "\\(" re "\\)" right)))
-
-(defconst org-match-substring-regexp
- (concat
- "\\(\\S-\\)\\([_^]\\)\\("
- "\\(?:" (org-create-multibrace-regexp "{" "}" org-match-sexp-depth) "\\)"
- "\\|"
- "\\(?:" (org-create-multibrace-regexp "(" ")" org-match-sexp-depth) "\\)"
- "\\|"
- "\\(?:\\*\\|[+-]?[[:alnum:].,\\]*[[:alnum:]]\\)\\)")
- "The regular expression matching a sub- or superscript.")
-
-(defconst org-match-substring-with-braces-regexp
- (concat
- "\\(\\S-\\)\\([_^]\\)"
- "\\(" (org-create-multibrace-regexp "{" "}" org-match-sexp-depth) "\\)")
- "The regular expression matching a sub- or superscript, forcing braces.")
-
-(defun org-make-link-regexps ()
- "Update the link regular expressions.
-This should be called after the variable `org-link-parameters' has changed."
- (let ((types-re (regexp-opt (org-link-types) t)))
- (setq org-link-types-re
- (concat "\\`" types-re ":")
- org-link-re-with-space
- (concat "<?" types-re ":"
- "\\([^" org-non-link-chars " ]"
- "[^" org-non-link-chars "]*"
- "[^" org-non-link-chars " ]\\)>?")
- org-link-re-with-space2
- (concat "<?" types-re ":"
- "\\([^" org-non-link-chars " ]"
- "[^\t\n\r]*"
- "[^" org-non-link-chars " ]\\)>?")
- org-link-re-with-space3
- (concat "<?" types-re ":"
- "\\([^" org-non-link-chars " ]"
- "[^\t\n\r]*\\)")
- org-angle-link-re
- (format "<%s:\\([^>\n]*\\(?:\n[ \t]*[^> \t\n][^>\n]*\\)*\\)>"
- types-re)
- org-plain-link-re
- (concat
- "\\<" types-re ":"
- "\\([^][ \t\n()<>]+\\(?:([[:word:]0-9_]+)\\|\\([^[:punct:] \t\n]\\|/\\)\\)\\)")
- ;; "\\([^]\t\n\r<>() ]+[^]\t\n\r<>,.;() ]\\)")
- org-bracket-link-regexp
- "\\[\\[\\([^][]+\\)\\]\\(\\[\\([^][]+\\)\\]\\)?\\]"
- org-bracket-link-analytic-regexp
- (concat
- "\\[\\["
- "\\(" types-re ":\\)?"
- "\\([^]]+\\)"
- "\\]"
- "\\(\\[" "\\([^]]+\\)" "\\]\\)?"
- "\\]")
- org-bracket-link-analytic-regexp++
- (concat
- "\\[\\["
- "\\(" (regexp-opt (cons "coderef" (org-link-types)) t) ":\\)?"
- "\\([^]]+\\)"
- "\\]"
- "\\(\\[" "\\([^]]+\\)" "\\]\\)?"
- "\\]")
- org-any-link-re
- (concat "\\(" org-bracket-link-regexp "\\)\\|\\("
- org-angle-link-re "\\)\\|\\("
- org-plain-link-re "\\)"))))
-
-(org-make-link-regexps)
-
-(defvar org-emph-face nil)
-
-(defun org-do-emphasis-faces (limit)
- "Run through the buffer and emphasize strings."
- (let ((quick-re (format "\\([%s]\\|^\\)\\([~=*/_+]\\)"
- (car org-emphasis-regexp-components))))
- (catch :exit
- (while (re-search-forward quick-re limit t)
- (let* ((marker (match-string 2))
- (verbatim? (member marker '("~" "="))))
- (when (save-excursion
- (goto-char (match-beginning 0))
- (and
- ;; Do not match table hlines.
- (not (and (equal marker "+")
- (org-match-line
- "[ \t]*\\(|[-+]+|?\\|\\+[-+]+\\+\\)[ \t]*$")))
- ;; Do not match headline stars. Do not consider
- ;; stars of a headline as closing marker for bold
- ;; markup either.
- (not (and (equal marker "*")
- (save-excursion
- (forward-char)
- (skip-chars-backward "*")
- (looking-at-p org-outline-regexp-bol))))
- ;; Match full emphasis markup regexp.
- (looking-at (if verbatim? org-verbatim-re org-emph-re))
- ;; Do not span over paragraph boundaries.
- (not (string-match-p org-element-paragraph-separate
- (match-string 2)))
- ;; Do not span over cells in table rows.
- (not (and (save-match-data (org-match-line "[ \t]*|"))
- (string-match-p "|" (match-string 4))))))
- (pcase-let ((`(,_ ,face ,_) (assoc marker org-emphasis-alist)))
- (font-lock-prepend-text-property
- (match-beginning 2) (match-end 2) 'face face)
- (when verbatim?
- (org-remove-flyspell-overlays-in
- (match-beginning 0) (match-end 0)))
- (add-text-properties (match-beginning 2) (match-end 2)
- '(font-lock-multiline t org-emphasis t))
- (when org-hide-emphasis-markers
- (add-text-properties (match-end 4) (match-beginning 5)
- '(invisible org-link))
- (add-text-properties (match-beginning 3) (match-end 3)
- '(invisible org-link)))
- (throw :exit t))))))))
-
-(defun org-emphasize (&optional char)
- "Insert or change an emphasis, i.e. a font like bold or italic.
-If there is an active region, change that region to a new emphasis.
-If there is no region, just insert the marker characters and position
-the cursor between them.
-CHAR should be the marker character. If it is a space, it means to
-remove the emphasis of the selected region.
-If CHAR is not given (for example in an interactive call) it will be
-prompted for."
- (interactive)
- (let ((erc org-emphasis-regexp-components)
- (string "") beg end move s)
- (if (org-region-active-p)
- (setq beg (region-beginning)
- end (region-end)
- string (buffer-substring beg end))
- (setq move t))
-
- (unless char
- (message "Emphasis marker or tag: [%s]"
- (mapconcat #'car org-emphasis-alist ""))
- (setq char (read-char-exclusive)))
- (if (equal char ?\s)
- (setq s ""
- move nil)
- (unless (assoc (char-to-string char) org-emphasis-alist)
- (user-error "No such emphasis marker: \"%c\"" char))
- (setq s (char-to-string char)))
- (while (and (> (length string) 1)
- (equal (substring string 0 1) (substring string -1))
- (assoc (substring string 0 1) org-emphasis-alist))
- (setq string (substring string 1 -1)))
- (setq string (concat s string s))
- (when beg (delete-region beg end))
- (unless (or (bolp)
- (string-match (concat "[" (nth 0 erc) "\n]")
- (char-to-string (char-before (point)))))
- (insert " "))
- (unless (or (eobp)
- (string-match (concat "[" (nth 1 erc) "\n]")
- (char-to-string (char-after (point)))))
- (insert " ") (backward-char 1))
- (insert string)
- (and move (backward-char 1))))
-
-(defconst org-nonsticky-props
- '(mouse-face highlight keymap invisible intangible help-echo org-linked-text htmlize-link))
-
-(defsubst org-rear-nonsticky-at (pos)
- (add-text-properties (1- pos) pos (list 'rear-nonsticky org-nonsticky-props)))
-
-(defun org-activate-links (limit)
- "Add link properties to links.
-This includes angle, plain, and bracket links."
- (catch :exit
- (while (re-search-forward org-any-link-re limit t)
- (let* ((start (match-beginning 0))
- (end (match-end 0))
- (style (cond ((eq ?< (char-after start)) 'angle)
- ((eq ?\[ (char-after (1+ start))) 'bracket)
- (t 'plain))))
- (when (and (memq style org-highlight-links)
- ;; Do not confuse plain links with tags.
- (not (and (eq style 'plain)
- (let ((face (get-text-property
- (max (1- start) (point-min)) 'face)))
- (if (consp face) (memq 'org-tag face)
- (eq 'org-tag face))))))
- (let* ((link-object (save-excursion
- (goto-char start)
- (save-match-data (org-element-link-parser))))
- (link (org-element-property :raw-link link-object))
- (type (org-element-property :type link-object))
- (path (org-element-property :path link-object))
- (properties ;for link's visible part
- (list
- 'face (pcase (org-link-get-parameter type :face)
- ((and (pred functionp) face) (funcall face path))
- ((and (pred facep) face) face)
- ((and (pred consp) face) face) ;anonymous
- (_ 'org-link))
- 'mouse-face (or (org-link-get-parameter type :mouse-face)
- 'highlight)
- 'keymap (or (org-link-get-parameter type :keymap)
- org-mouse-map)
- 'help-echo (pcase (org-link-get-parameter type :help-echo)
- ((and (pred stringp) echo) echo)
- ((and (pred functionp) echo) echo)
- (_ (concat "LINK: " link)))
- 'htmlize-link (pcase (org-link-get-parameter type
- :htmlize-link)
- ((and (pred functionp) f) (funcall f))
- (_ `(:uri ,link)))
- 'font-lock-multiline t)))
- (org-remove-flyspell-overlays-in start end)
- (org-rear-nonsticky-at end)
- (if (not (eq 'bracket style))
- (add-text-properties start end properties)
- ;; Handle invisible parts in bracket links.
- (remove-text-properties start end '(invisible nil))
- (let ((hidden
- (append `(invisible
- ,(or (org-link-get-parameter type :display)
- 'org-link))
- properties))
- (visible-start (or (match-beginning 4) (match-beginning 2)))
- (visible-end (or (match-end 4) (match-end 2))))
- (add-text-properties start visible-start hidden)
- (add-text-properties visible-start visible-end properties)
- (add-text-properties visible-end end hidden)
- (org-rear-nonsticky-at visible-start)
- (org-rear-nonsticky-at visible-end)))
- (let ((f (org-link-get-parameter type :activate-func)))
- (when (functionp f)
- (funcall f start end path (eq style 'bracket))))
- (throw :exit t))))) ;signal success
- nil))
-
-(defun org-activate-code (limit)
- (when (re-search-forward "^[ \t]*\\(:\\(?: .*\\|$\\)\n?\\)" limit t)
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (remove-text-properties (match-beginning 0) (match-end 0)
- '(display t invisible t intangible t))
- t))
-
-(defcustom org-src-fontify-natively t
- "When non-nil, fontify code in code blocks.
-See also the `org-block' face."
- :type 'boolean
- :version "26.1"
- :package-version '(Org . "8.3")
- :group 'org-appearance
- :group 'org-babel)
-
-(defcustom org-allow-promoting-top-level-subtree nil
- "When non-nil, allow promoting a top level subtree.
-The leading star of the top level headline will be replaced
-by a #."
- :type 'boolean
- :version "24.1"
- :group 'org-appearance)
-
-(defun org-fontify-meta-lines-and-blocks (limit)
- (condition-case nil
- (org-fontify-meta-lines-and-blocks-1 limit)
- (error (message "Org mode fontification error in %S at %d"
- (current-buffer)
- (line-number-at-pos)))))
-
-(defun org-fontify-meta-lines-and-blocks-1 (limit)
- "Fontify #+ lines and blocks."
- (let ((case-fold-search t))
- (when (re-search-forward
- "^\\([ \t]*#\\(\\(\\+[a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[ \t]*\\(\\([^ \t\n]*\\)[ \t]*\\(.*\\)\\)\\)"
- limit t)
- (let ((beg (match-beginning 0))
- (block-start (match-end 0))
- (block-end nil)
- (lang (match-string 7))
- (beg1 (line-beginning-position 2))
- (dc1 (downcase (match-string 2)))
- (dc3 (downcase (match-string 3)))
- end end1 quoting block-type)
- (cond
- ((and (match-end 4) (equal dc3 "+begin"))
- ;; Truly a block
- (setq block-type (downcase (match-string 5))
- quoting (member block-type org-protecting-blocks))
- (when (re-search-forward
- (concat "^[ \t]*#\\+end" (match-string 4) "\\>.*")
- nil t) ;; on purpose, we look further than LIMIT
- (setq end (min (point-max) (match-end 0))
- end1 (min (point-max) (1- (match-beginning 0))))
- (setq block-end (match-beginning 0))
- (when quoting
- (org-remove-flyspell-overlays-in beg1 end1)
- (remove-text-properties beg end
- '(display t invisible t intangible t)))
- (add-text-properties
- beg end '(font-lock-fontified t font-lock-multiline t))
- (add-text-properties beg beg1 '(face org-meta-line))
- (org-remove-flyspell-overlays-in beg beg1)
- (add-text-properties ; For end_src
- end1 (min (point-max) (1+ end)) '(face org-meta-line))
- (org-remove-flyspell-overlays-in end1 end)
- (cond
- ((and lang (not (string= lang "")) org-src-fontify-natively)
- (org-src-font-lock-fontify-block lang block-start block-end)
- (add-text-properties beg1 block-end '(src-block t)))
- (quoting
- (add-text-properties beg1 (min (point-max) (1+ end1))
- (list 'face
- (list :inherit
- (let ((face-name
- (intern (format "org-block-%s" lang))))
- (append (and (facep face-name) (list face-name))
- '(org-block))))))) ; end of source block
- ((not org-fontify-quote-and-verse-blocks))
- ((string= block-type "quote")
- (add-face-text-property
- beg1 (min (point-max) (1+ end1)) 'org-quote t))
- ((string= block-type "verse")
- (add-face-text-property
- beg1 (min (point-max) (1+ end1)) 'org-verse t)))
- (add-text-properties beg beg1 '(face org-block-begin-line))
- (add-text-properties (min (point-max) (1+ end)) (min (point-max) (1+ end1))
- '(face org-block-end-line))
- t))
- ((member dc1 '("+title:" "+author:" "+email:" "+date:"))
- (org-remove-flyspell-overlays-in
- (match-beginning 0)
- (if (equal "+title:" dc1) (match-end 2) (match-end 0)))
- (add-text-properties
- beg (match-end 3)
- (if (member (intern (substring dc1 1 -1)) org-hidden-keywords)
- '(font-lock-fontified t invisible t)
- '(font-lock-fontified t face org-document-info-keyword)))
- (add-text-properties
- (match-beginning 6) (min (point-max) (1+ (match-end 6)))
- (if (string-equal dc1 "+title:")
- '(font-lock-fontified t face org-document-title)
- '(font-lock-fontified t face org-document-info))))
- ((string-prefix-p "+caption" dc1)
- (org-remove-flyspell-overlays-in (match-end 2) (match-end 0))
- (remove-text-properties (match-beginning 0) (match-end 0)
- '(display t invisible t intangible t))
- ;; Handle short captions.
- (save-excursion
- (beginning-of-line)
- (looking-at "\\([ \t]*#\\+caption\\(?:\\[.*\\]\\)?:\\)[ \t]*"))
- (add-text-properties (line-beginning-position) (match-end 1)
- '(font-lock-fontified t face org-meta-line))
- (add-text-properties (match-end 0) (line-end-position)
- '(font-lock-fontified t face org-block))
- t)
- ((member dc3 '(" " ""))
- (org-remove-flyspell-overlays-in beg (match-end 0))
- (add-text-properties
- beg (match-end 0)
- '(font-lock-fontified t face font-lock-comment-face)))
- (t ;; just any other in-buffer setting, but not indented
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (remove-text-properties (match-beginning 0) (match-end 0)
- '(display t invisible t intangible t))
- (add-text-properties beg (match-end 0)
- '(font-lock-fontified t face org-meta-line))
- t))))))
-
-(defun org-fontify-drawers (limit)
- "Fontify drawers."
- (when (re-search-forward org-drawer-regexp limit t)
- (add-text-properties
- (match-beginning 0) (match-end 0)
- '(font-lock-fontified t face org-special-keyword))
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- t))
-
-(defun org-fontify-macros (limit)
- "Fontify macros."
- (when (re-search-forward "{{{\\([a-zA-Z][-a-zA-Z0-9_]*\\)" limit t)
- (let ((begin (match-beginning 0))
- (opening-end (match-beginning 1)))
- (when (and (re-search-forward "\n[ \t]*\n\\|\\(}}}\\)" limit t)
- (match-string 1))
- (let ((end (match-end 1))
- (closing-start (match-beginning 1)))
- (add-text-properties
- begin end
- '(font-lock-multiline t font-lock-fontified t face org-macro))
- (org-remove-flyspell-overlays-in begin end)
- (when org-hide-macro-markers
- (add-text-properties begin opening-end '(invisible t))
- (add-text-properties closing-start end '(invisible t)))
- t)))))
-
-(defun org-activate-footnote-links (limit)
- "Add text properties for footnotes."
- (let ((fn (org-footnote-next-reference-or-definition limit)))
- (when fn
- (let* ((beg (nth 1 fn))
- (end (nth 2 fn))
- (label (car fn))
- (referencep (/= (line-beginning-position) beg)))
- (when (and referencep (nth 3 fn))
- (save-excursion
- (goto-char beg)
- (search-forward (or label "fn:"))
- (org-remove-flyspell-overlays-in beg (match-end 0))))
- (add-text-properties beg end
- (list 'mouse-face 'highlight
- 'keymap org-mouse-map
- 'help-echo
- (if referencep "Footnote reference"
- "Footnote definition")
- 'font-lock-fontified t
- 'font-lock-multiline t
- 'face 'org-footnote))))))
-
-(defun org-activate-dates (limit)
- "Add text properties for dates."
- (when (and (re-search-forward org-tsr-regexp-both limit t)
- (not (equal (char-before (match-beginning 0)) 91)))
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (add-text-properties (match-beginning 0) (match-end 0)
- (list 'mouse-face 'highlight
- 'keymap org-mouse-map))
- (org-rear-nonsticky-at (match-end 0))
- (when org-display-custom-times
- ;; If it's a date range, activate custom time for second date.
- (when (match-end 3)
- (org-display-custom-time (match-beginning 3) (match-end 3)))
- (org-display-custom-time (match-beginning 1) (match-end 1)))
- t))
-
-(defvar-local org-target-link-regexp nil
- "Regular expression matching radio targets in plain text.")
-
-(defconst org-target-regexp (let ((border "[^<>\n\r \t]"))
- (format "<<\\(%s\\|%s[^<>\n\r]*%s\\)>>"
- border border border))
- "Regular expression matching a link target.")
-
-(defconst org-radio-target-regexp (format "<%s>" org-target-regexp)
- "Regular expression matching a radio target.")
-
-(defconst org-any-target-regexp
- (format "%s\\|%s" org-radio-target-regexp org-target-regexp)
- "Regular expression matching any target.")
-
-(defun org-activate-target-links (limit)
- "Add text properties for target matches."
- (when org-target-link-regexp
- (let ((case-fold-search t))
- (when (re-search-forward org-target-link-regexp limit t)
- (org-remove-flyspell-overlays-in (match-beginning 1) (match-end 1))
- (add-text-properties (match-beginning 1) (match-end 1)
- (list 'mouse-face 'highlight
- 'keymap org-mouse-map
- 'help-echo "Radio target link"
- 'org-linked-text t))
- (org-rear-nonsticky-at (match-end 1))
- t))))
-
-(defun org-update-radio-target-regexp ()
- "Find all radio targets in this file and update the regular expression.
-Also refresh fontification if needed."
- (interactive)
- (let ((old-regexp org-target-link-regexp)
- (before-re "\\(?:^\\|[^[:alnum:]]\\)\\(")
- (after-re "\\)\\(?:$\\|[^[:alnum:]]\\)")
- (targets
- (org-with-wide-buffer
- (goto-char (point-min))
- (let (rtn)
- (while (re-search-forward org-radio-target-regexp nil t)
- ;; Make sure point is really within the object.
- (backward-char)
- (let ((obj (org-element-context)))
- (when (eq (org-element-type obj) 'radio-target)
- (cl-pushnew (org-element-property :value obj) rtn
- :test #'equal))))
- rtn))))
- (setq org-target-link-regexp
- (and targets
- (concat before-re
- (mapconcat
- (lambda (x)
- (replace-regexp-in-string
- " +" "\\s-+" (regexp-quote x) t t))
- targets
- "\\|")
- after-re)))
- (unless (equal old-regexp org-target-link-regexp)
- ;; Clean-up cache.
- (let ((regexp (cond ((not old-regexp) org-target-link-regexp)
- ((not org-target-link-regexp) old-regexp)
- (t
- (concat before-re
- (mapconcat
- (lambda (re)
- (substring re (length before-re)
- (- (length after-re))))
- (list old-regexp org-target-link-regexp)
- "\\|")
- after-re)))))
- (org-with-wide-buffer
- (goto-char (point-min))
- (while (re-search-forward regexp nil t)
- (org-element-cache-refresh (match-beginning 1)))))
- ;; Re fontify buffer.
- (when (memq 'radio org-highlight-links)
- (org-restart-font-lock)))))
-
-(defun org-hide-wide-columns (limit)
- (let (s e)
- (setq s (text-property-any (point) (or limit (point-max))
- 'org-cwidth t))
- (when s
- (setq e (next-single-property-change s 'org-cwidth))
- (add-text-properties s e '(invisible org-cwidth))
- (goto-char e)
- t)))
-
-(defvar org-latex-and-related-regexp nil
- "Regular expression for highlighting LaTeX, entities and sub/superscript.")
-
-(defun org-compute-latex-and-related-regexp ()
- "Compute regular expression for LaTeX, entities and sub/superscript.
-Result depends on variable `org-highlight-latex-and-related'."
- (setq-local
- org-latex-and-related-regexp
- (let* ((re-sub
- (cond ((not (memq 'script org-highlight-latex-and-related)) nil)
- ((eq org-use-sub-superscripts '{})
- (list org-match-substring-with-braces-regexp))
- (org-use-sub-superscripts (list org-match-substring-regexp))))
- (re-latex
- (when (memq 'latex org-highlight-latex-and-related)
- (let ((matchers (plist-get org-format-latex-options :matchers)))
- (delq nil
- (mapcar (lambda (x)
- (and (member (car x) matchers) (nth 1 x)))
- org-latex-regexps)))))
- (re-entities
- (when (memq 'entities org-highlight-latex-and-related)
- (list "\\\\\\(there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\($\\|{}\\|[^[:alpha:]]\\)"))))
- (mapconcat 'identity (append re-latex re-entities re-sub) "\\|"))))
-
-(defun org-do-latex-and-related (limit)
- "Highlight LaTeX snippets and environments, entities and sub/superscript.
-LIMIT bounds the search for syntax to highlight. Stop at first
-highlighted object, if any. Return t if some highlighting was
-done, nil otherwise."
- (when (org-string-nw-p org-latex-and-related-regexp)
- (catch 'found
- (while (re-search-forward org-latex-and-related-regexp limit t)
- (unless
- (cl-some
- (lambda (f)
- (memq f '(org-code org-verbatim underline org-special-keyword)))
- (save-excursion
- (goto-char (1+ (match-beginning 0)))
- (face-at-point nil t)))
- (let ((offset (if (memq (char-after (1+ (match-beginning 0)))
- '(?_ ?^))
- 1
- 0)))
- (font-lock-prepend-text-property
- (+ offset (match-beginning 0)) (match-end 0)
- 'face 'org-latex-and-related)
- (add-text-properties (+ offset (match-beginning 0)) (match-end 0)
- '(font-lock-multiline t)))
- (throw 'found t)))
- nil)))
-
-(defun org-restart-font-lock ()
- "Restart `font-lock-mode', to force refontification."
- (when (and (boundp 'font-lock-mode) font-lock-mode)
- (font-lock-mode -1)
- (font-lock-mode 1)))
-
-(defun org-activate-tags (limit)
- (when (re-search-forward
- "^\\*+.*[ \t]\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$" limit t)
- (org-remove-flyspell-overlays-in (match-beginning 1) (match-end 1))
- (add-text-properties (match-beginning 1) (match-end 1)
- (list 'mouse-face 'highlight
- 'keymap org-mouse-map))
- (org-rear-nonsticky-at (match-end 1))
- t))
-
-(defun org-outline-level ()
- "Compute the outline level of the heading at point.
-
-If this is called at a normal headline, the level is the number
-of stars. Use `org-reduced-level' to remove the effect of
-`org-odd-levels'. Unlike to `org-current-level', this function
-takes into consideration inlinetasks."
- (org-with-wide-buffer
- (end-of-line)
- (if (re-search-backward org-outline-regexp-bol nil t)
- (1- (- (match-end 0) (match-beginning 0)))
- 0)))
-
-(defvar org-font-lock-keywords nil)
-
-(defsubst org-re-property (property &optional literal allow-null value)
- "Return a regexp matching a PROPERTY line.
-
-When optional argument LITERAL is non-nil, do not quote PROPERTY.
-This is useful when PROPERTY is a regexp. When ALLOW-NULL is
-non-nil, match properties even without a value.
-
-Match group 3 is set to the value when it exists. If there is no
-value and ALLOW-NULL is non-nil, it is set to the empty string.
-
-With optional argument VALUE, match only property lines with
-that value; in this case, ALLOW-NULL is ignored. VALUE is quoted
-unless LITERAL is non-nil."
- (concat
- "^\\(?4:[ \t]*\\)"
- (format "\\(?1::\\(?2:%s\\):\\)"
- (if literal property (regexp-quote property)))
- (cond (value
- (format "[ \t]+\\(?3:%s\\)\\(?5:[ \t]*\\)$"
- (if literal value (regexp-quote value))))
- (allow-null
- "\\(?:\\(?3:$\\)\\|[ \t]+\\(?3:.*?\\)\\)\\(?5:[ \t]*\\)$")
- (t
- "[ \t]+\\(?3:[^ \r\t\n]+.*?\\)\\(?5:[ \t]*\\)$"))))
-
-(defconst org-property-re
- (org-re-property "\\S-+" 'literal t)
- "Regular expression matching a property line.
-There are four matching groups:
-1: :PROPKEY: including the leading and trailing colon,
-2: PROPKEY without the leading and trailing colon,
-3: PROPVAL without leading or trailing spaces,
-4: the indentation of the current line,
-5: trailing whitespace.")
-
-(defvar org-font-lock-hook nil
- "Functions to be called for special font lock stuff.")
-
-(defvar org-font-lock-extra-keywords nil) ;Dynamically scoped.
-
-(defvar org-font-lock-set-keywords-hook nil
- "Functions that can manipulate `org-font-lock-extra-keywords'.
-This is called after `org-font-lock-extra-keywords' is defined, but before
-it is installed to be used by font lock. This can be useful if something
-needs to be inserted at a specific position in the font-lock sequence.")
-
-(defun org-font-lock-hook (limit)
- "Run `org-font-lock-hook' within LIMIT."
- (run-hook-with-args 'org-font-lock-hook limit))
-
-(defun org-set-font-lock-defaults ()
- "Set font lock defaults for the current buffer."
- (let* ((em org-fontify-emphasized-text)
- (lk org-highlight-links)
- (org-font-lock-extra-keywords
- (list
- ;; Call the hook
- '(org-font-lock-hook)
- ;; Headlines
- `(,(if org-fontify-whole-heading-line
- "^\\(\\**\\)\\(\\* \\)\\(.*\n?\\)"
- "^\\(\\**\\)\\(\\* \\)\\(.*\\)")
- (1 (org-get-level-face 1))
- (2 (org-get-level-face 2))
- (3 (org-get-level-face 3)))
- ;; Table lines
- '("^[ \t]*\\(\\(|\\|\\+-[-+]\\).*\\S-\\)"
- (1 'org-table t))
- ;; Table internals
- '("^[ \t]*|\\(?:.*?|\\)? *\\(:?=[^|\n]*\\)" (1 'org-formula t))
- '("^[ \t]*| *\\([#*]\\) *|" (1 'org-formula t))
- '("^[ \t]*|\\( *\\([$!_^/]\\) *|.*\\)|" (1 'org-formula t))
- '("| *\\(<[lrc]?[0-9]*>\\)" (1 'org-formula t))
- ;; Drawers
- '(org-fontify-drawers)
- ;; Properties
- (list org-property-re
- '(1 'org-special-keyword t)
- '(3 'org-property-value t))
- ;; Link related fontification.
- '(org-activate-links)
- (when (memq 'tag lk) '(org-activate-tags (1 'org-tag prepend)))
- (when (memq 'radio lk) '(org-activate-target-links (1 'org-link t)))
- (when (memq 'date lk) '(org-activate-dates (0 'org-date t)))
- (when (memq 'footnote lk) '(org-activate-footnote-links))
- ;; Targets.
- (list org-any-target-regexp '(0 'org-target t))
- ;; Diary sexps.
- '("^&?%%(.*\\|<%%([^>\n]*?>" (0 'org-sexp-date t))
- ;; Macro
- '(org-fontify-macros)
- '(org-hide-wide-columns (0 nil append))
- ;; TODO keyword
- (list (format org-heading-keyword-regexp-format
- org-todo-regexp)
- '(2 (org-get-todo-face 2) t))
- ;; DONE
- (if org-fontify-done-headline
- (list (format org-heading-keyword-regexp-format
- (concat
- "\\(?:"
- (mapconcat 'regexp-quote org-done-keywords "\\|")
- "\\)"))
- '(2 'org-headline-done t))
- nil)
- ;; Priorities
- '(org-font-lock-add-priority-faces)
- ;; Tags
- '(org-font-lock-add-tag-faces)
- ;; Tags groups
- (when (and org-group-tags org-tag-groups-alist)
- (list (concat org-outline-regexp-bol ".+\\(:"
- (regexp-opt (mapcar 'car org-tag-groups-alist))
- ":\\).*$")
- '(1 'org-tag-group prepend)))
- ;; Special keywords
- (list (concat "\\<" org-deadline-string) '(0 'org-special-keyword t))
- (list (concat "\\<" org-scheduled-string) '(0 'org-special-keyword t))
- (list (concat "\\<" org-closed-string) '(0 'org-special-keyword t))
- (list (concat "\\<" org-clock-string) '(0 'org-special-keyword t))
- ;; Emphasis
- (when em '(org-do-emphasis-faces))
- ;; Checkboxes
- '("^[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\)[ \t]+\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?\\(\\[[- X]\\]\\)"
- 1 'org-checkbox prepend)
- (when (cdr (assq 'checkbox org-list-automatic-rules))
- '("\\[\\([0-9]*%\\)\\]\\|\\[\\([0-9]*\\)/\\([0-9]*\\)\\]"
- (0 (org-get-checkbox-statistics-face) t)))
- ;; Description list items
- '("^[ \t]*[-+*][ \t]+\\(.*?[ \t]+::\\)\\([ \t]+\\|$\\)"
- 1 'org-list-dt prepend)
- ;; ARCHIVEd headings
- (list (concat
- org-outline-regexp-bol
- "\\(.*:" org-archive-tag ":.*\\)")
- '(1 'org-archived prepend))
- ;; Specials
- '(org-do-latex-and-related)
- '(org-fontify-entities)
- '(org-raise-scripts)
- ;; Code
- '(org-activate-code (1 'org-code t))
- ;; COMMENT
- (list (format
- "^\\*+\\(?: +%s\\)?\\(?: +\\[#[A-Z0-9]\\]\\)? +\\(?9:%s\\)\\(?: \\|$\\)"
- org-todo-regexp
- org-comment-string)
- '(9 'org-special-keyword t))
- ;; Blocks and meta lines
- '(org-fontify-meta-lines-and-blocks))))
- (setq org-font-lock-extra-keywords (delq nil org-font-lock-extra-keywords))
- (run-hooks 'org-font-lock-set-keywords-hook)
- ;; Now set the full font-lock-keywords
- (setq-local org-font-lock-keywords org-font-lock-extra-keywords)
- (setq-local font-lock-defaults
- '(org-font-lock-keywords t nil nil backward-paragraph))
- (kill-local-variable 'font-lock-keywords)
- nil))
-
-(defun org-toggle-pretty-entities ()
- "Toggle the composition display of entities as UTF8 characters."
- (interactive)
- (setq-local org-pretty-entities (not org-pretty-entities))
- (org-restart-font-lock)
- (if org-pretty-entities
- (message "Entities are now displayed as UTF8 characters")
- (save-restriction
- (widen)
- (decompose-region (point-min) (point-max))
- (message "Entities are now displayed as plain text"))))
-
-(defvar-local org-custom-properties-overlays nil
- "List of overlays used for custom properties.")
-
-(defun org-toggle-custom-properties-visibility ()
- "Display or hide properties in `org-custom-properties'."
- (interactive)
- (if org-custom-properties-overlays
- (progn (mapc #'delete-overlay org-custom-properties-overlays)
- (setq org-custom-properties-overlays nil))
- (when org-custom-properties
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((regexp (org-re-property (regexp-opt org-custom-properties) t t)))
- (while (re-search-forward regexp nil t)
- (let ((end (cdr (save-match-data (org-get-property-block)))))
- (when (and end (< (point) end))
- ;; Hide first custom property in current drawer.
- (let ((o (make-overlay (match-beginning 0) (1+ (match-end 0)))))
- (overlay-put o 'invisible t)
- (overlay-put o 'org-custom-property t)
- (push o org-custom-properties-overlays))
- ;; Hide additional custom properties in the same drawer.
- (while (re-search-forward regexp end t)
- (let ((o (make-overlay (match-beginning 0) (1+ (match-end 0)))))
- (overlay-put o 'invisible t)
- (overlay-put o 'org-custom-property t)
- (push o org-custom-properties-overlays)))))
- ;; Each entry is limited to a single property drawer.
- (outline-next-heading)))))))
-
-(defun org-fontify-entities (limit)
- "Find an entity to fontify."
- (let (ee)
- (when org-pretty-entities
- (catch 'match
- ;; "\_ "-family is left out on purpose. Only the first one,
- ;; i.e., "\_ ", could be fontified anyway, and it would be
- ;; confusing when adding a second white space character.
- (while (re-search-forward
- "\\\\\\(there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\($\\|{}\\|[^[:alpha:]\n]\\)"
- limit t)
- (when (and (not (org-at-comment-p))
- (setq ee (org-entity-get (match-string 1)))
- (= (length (nth 6 ee)) 1))
- (let* ((end (if (equal (match-string 2) "{}")
- (match-end 2)
- (match-end 1))))
- (add-text-properties
- (match-beginning 0) end
- (list 'font-lock-fontified t))
- (compose-region (match-beginning 0) end
- (nth 6 ee) nil)
- (backward-char 1)
- (throw 'match t))))
- nil))))
-
-(defun org-fontify-like-in-org-mode (s &optional odd-levels)
- "Fontify string S like in Org mode."
- (with-temp-buffer
- (insert s)
- (let ((org-odd-levels-only odd-levels))
- (org-mode)
- (org-font-lock-ensure)
- (buffer-string))))
-
-(defvar org-m nil)
-(defvar org-l nil)
-(defvar org-f nil)
-(defun org-get-level-face (n)
- "Get the right face for match N in font-lock matching of headlines."
- (setq org-l (- (match-end 2) (match-beginning 1) 1))
- (when org-odd-levels-only (setq org-l (1+ (/ org-l 2))))
- (if org-cycle-level-faces
- (setq org-f (nth (% (1- org-l) org-n-level-faces) org-level-faces))
- (setq org-f (nth (1- (min org-l org-n-level-faces)) org-level-faces)))
- (cond
- ((eq n 1) (if org-hide-leading-stars 'org-hide org-f))
- ((eq n 2) org-f)
- (t (unless org-level-color-stars-only org-f))))
-
-(defun org-face-from-face-or-color (context inherit face-or-color)
- "Create a face list that inherits INHERIT, but sets the foreground color.
-When FACE-OR-COLOR is not a string, just return it."
- (if (stringp face-or-color)
- (list :inherit inherit
- (cdr (assoc context org-faces-easy-properties))
- face-or-color)
- face-or-color))
-
-(defun org-get-todo-face (kwd)
- "Get the right face for a TODO keyword KWD.
-If KWD is a number, get the corresponding match group."
- (when (numberp kwd) (setq kwd (match-string kwd)))
- (or (org-face-from-face-or-color
- 'todo 'org-todo (cdr (assoc kwd org-todo-keyword-faces)))
- (and (member kwd org-done-keywords) 'org-done)
- 'org-todo))
-
-(defun org-get-priority-face (priority)
- "Get the right face for PRIORITY.
-PRIORITY is a character."
- (or (org-face-from-face-or-color
- 'priority 'org-priority (cdr (assq priority org-priority-faces)))
- 'org-priority))
-
-(defun org-get-tag-face (tag)
- "Get the right face for TAG.
-If TAG is a number, get the corresponding match group."
- (let ((tag (if (wholenump tag) (match-string tag) tag)))
- (or (org-face-from-face-or-color
- 'tag 'org-tag (cdr (assoc tag org-tag-faces)))
- 'org-tag)))
-
-(defun org-font-lock-add-priority-faces (limit)
- "Add the special priority faces."
- (while (re-search-forward "^\\*+ .*?\\(\\[#\\(.\\)\\]\\)" limit t)
- (add-text-properties
- (match-beginning 1) (match-end 1)
- (list 'face (org-get-priority-face (string-to-char (match-string 2)))
- 'font-lock-fontified t))))
-
-(defun org-font-lock-add-tag-faces (limit)
- "Add the special tag faces."
- (when (and org-tag-faces org-tags-special-faces-re)
- (while (re-search-forward org-tags-special-faces-re limit t)
- (add-text-properties (match-beginning 1) (match-end 1)
- (list 'face (org-get-tag-face 1)
- 'font-lock-fontified t))
- (backward-char 1))))
-
-(defun org-unfontify-region (beg end &optional _maybe_loudly)
- "Remove fontification and activation overlays from links."
- (font-lock-default-unfontify-region beg end)
- (let* ((buffer-undo-list t)
- (inhibit-read-only t) (inhibit-point-motion-hooks t)
- (inhibit-modification-hooks t)
- deactivate-mark buffer-file-name buffer-file-truename)
- (decompose-region beg end)
- (remove-text-properties beg end
- '(mouse-face t keymap t org-linked-text t
- invisible t intangible t
- org-emphasis t))
- (org-remove-font-lock-display-properties beg end)))
-
-(defconst org-script-display '(((raise -0.3) (height 0.7))
- ((raise 0.3) (height 0.7))
- ((raise -0.5))
- ((raise 0.5)))
- "Display properties for showing superscripts and subscripts.")
-
-(defun org-remove-font-lock-display-properties (beg end)
- "Remove specific display properties that have been added by font lock.
-The will remove the raise properties that are used to show superscripts
-and subscripts."
- (let (next prop)
- (while (< beg end)
- (setq next (next-single-property-change beg 'display nil end)
- prop (get-text-property beg 'display))
- (when (member prop org-script-display)
- (put-text-property beg next 'display nil))
- (setq beg next))))
-
-(defun org-raise-scripts (limit)
- "Add raise properties to sub/superscripts."
- (when (and org-pretty-entities org-pretty-entities-include-sub-superscripts
- (re-search-forward
- (if (eq org-use-sub-superscripts t)
- org-match-substring-regexp
- org-match-substring-with-braces-regexp)
- limit t))
- (let* ((pos (point)) table-p comment-p
- (mpos (match-beginning 3))
- (emph-p (get-text-property mpos 'org-emphasis))
- (link-p (get-text-property mpos 'mouse-face))
- (keyw-p (eq 'org-special-keyword (get-text-property mpos 'face))))
- (goto-char (point-at-bol))
- (setq table-p (looking-at-p org-table-dataline-regexp)
- comment-p (looking-at-p "^[ \t]*#[ +]"))
- (goto-char pos)
- ;; Handle a_b^c
- (when (member (char-after) '(?_ ?^)) (goto-char (1- pos)))
- (unless (or comment-p emph-p link-p keyw-p)
- (put-text-property (match-beginning 3) (match-end 0)
- 'display
- (if (equal (char-after (match-beginning 2)) ?^)
- (nth (if table-p 3 1) org-script-display)
- (nth (if table-p 2 0) org-script-display)))
- (add-text-properties (match-beginning 2) (match-end 2)
- (list 'invisible t))
- (when (and (eq (char-after (match-beginning 3)) ?{)
- (eq (char-before (match-end 3)) ?}))
- (add-text-properties (match-beginning 3) (1+ (match-beginning 3))
- (list 'invisible t))
- (add-text-properties (1- (match-end 3)) (match-end 3)
- (list 'invisible t))))
- t)))
-
-;;;; Visibility cycling, including org-goto and indirect buffer
-
-;;; Cycling
-
-(defvar-local org-cycle-global-status nil)
-(put 'org-cycle-global-status 'org-state t)
-(defvar-local org-cycle-subtree-status nil)
-(put 'org-cycle-subtree-status 'org-state t)
-
-(defvar org-inlinetask-min-level)
-
-(defun org-unlogged-message (&rest args)
- "Display a message, but avoid logging it in the *Messages* buffer."
- (let ((message-log-max nil))
- (apply 'message args)))
-
-;;;###autoload
-(defun org-cycle (&optional arg)
- "TAB-action and visibility cycling for Org mode.
-
-This is the command invoked in Org mode by the `TAB' key. Its main
-purpose is outline visibility cycling, but it also invokes other actions
-in special contexts.
-
-When this function is called with a `\\[universal-argument]' prefix, rotate \
-the entire
-buffer through 3 states (global cycling)
- 1. OVERVIEW: Show only top-level headlines.
- 2. CONTENTS: Show all headlines of all levels, but no body text.
- 3. SHOW ALL: Show everything.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix argument, \
-switch to the startup visibility,
-determined by the variable `org-startup-folded', and by any VISIBILITY
-properties in the buffer.
-
-With a `\\[universal-argument] \\[universal-argument] \
-\\[universal-argument]' prefix argument, show the entire buffer, including
-any drawers.
-
-When inside a table, re-align the table and move to the next field.
-
-When point is at the beginning of a headline, rotate the subtree started
-by this line through 3 different states (local cycling)
- 1. FOLDED: Only the main headline is shown.
- 2. CHILDREN: The main headline and the direct children are shown.
- From this state, you can move to one of the children
- and zoom in further.
- 3. SUBTREE: Show the entire subtree, including body text.
-If there is no subtree, switch directly from CHILDREN to FOLDED.
-
-When point is at the beginning of an empty headline and the variable
-`org-cycle-level-after-item/entry-creation' is set, cycle the level
-of the headline by demoting and promoting it to likely levels. This
-speeds up creation document structure by pressing `TAB' once or several
-times right after creating a new headline.
-
-When there is a numeric prefix, go up to a heading with level ARG, do
-a `show-subtree' and return to the previous cursor position. If ARG
-is negative, go up that many levels.
-
-When point is not at the beginning of a headline, execute the global
-binding for `TAB', which is re-indenting the line. See the option
-`org-cycle-emulate-tab' for details.
-
-As a special case, if point is at the beginning of the buffer and there is
-no headline in line 1, this function will act as if called with prefix arg
-\(`\\[universal-argument] TAB', same as `S-TAB') also when called without \
-prefix arg, but only
-if the variable `org-cycle-global-at-bob' is t."
- (interactive "P")
- (org-load-modules-maybe)
- (unless (or (run-hook-with-args-until-success 'org-tab-first-hook)
- (and org-cycle-level-after-item/entry-creation
- (or (org-cycle-level)
- (org-cycle-item-indentation))))
- (let* ((limit-level
- (or org-cycle-max-level
- (and (boundp 'org-inlinetask-min-level)
- org-inlinetask-min-level
- (1- org-inlinetask-min-level))))
- (nstars (and limit-level
- (if org-odd-levels-only
- (and limit-level (1- (* limit-level 2)))
- limit-level)))
- (org-outline-regexp
- (if (not (derived-mode-p 'org-mode))
- outline-regexp
- (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ "))))
- (bob-special (and org-cycle-global-at-bob (not arg) (bobp)
- (not (looking-at org-outline-regexp))))
- (org-cycle-hook
- (if bob-special
- (delq 'org-optimize-window-after-visibility-change
- (copy-sequence org-cycle-hook))
- org-cycle-hook))
- (pos (point)))
-
- (cond
-
- ((equal arg '(16))
- (setq last-command 'dummy)
- (org-set-startup-visibility)
- (org-unlogged-message "Startup visibility, plus VISIBILITY properties"))
-
- ((equal arg '(64))
- (outline-show-all)
- (org-unlogged-message "Entire buffer visible, including drawers"))
-
- ((equal arg '(4)) (org-cycle-internal-global))
-
- ;; Try hiding block at point.
- ((org-hide-block-toggle-maybe))
-
- ;; Try cdlatex TAB completion
- ((org-try-cdlatex-tab))
-
- ;; Table: enter it or move to the next field.
- ((org-at-table-p 'any)
- (if (org-at-table.el-p)
- (message "%s" (substitute-command-keys "\\<org-mode-map>\
-Use `\\[org-edit-special]' to edit table.el tables"))
- (if arg (org-table-edit-field t)
- (org-table-justify-field-maybe)
- (call-interactively 'org-table-next-field))))
-
- ((run-hook-with-args-until-success 'org-tab-after-check-for-table-hook))
-
- ;; Global cycling: delegate to `org-cycle-internal-global'.
- (bob-special (org-cycle-internal-global))
-
- ;; Drawers: delegate to `org-flag-drawer'.
- ((save-excursion
- (beginning-of-line 1)
- (looking-at org-drawer-regexp))
- (org-flag-drawer ; toggle block visibility
- (not (get-char-property (match-end 0) 'invisible))))
-
- ;; Show-subtree, ARG levels up from here.
- ((integerp arg)
- (save-excursion
- (org-back-to-heading)
- (outline-up-heading (if (< arg 0) (- arg)
- (- (funcall outline-level) arg)))
- (org-show-subtree)))
-
- ;; Inline task: delegate to `org-inlinetask-toggle-visibility'.
- ((and (featurep 'org-inlinetask)
- (org-inlinetask-at-task-p)
- (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol))))
- (org-inlinetask-toggle-visibility))
-
- ;; At an item/headline: delegate to `org-cycle-internal-local'.
- ((and (or (and org-cycle-include-plain-lists (org-at-item-p))
- (save-excursion (move-beginning-of-line 1)
- (looking-at org-outline-regexp)))
- (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol))))
- (org-cycle-internal-local))
-
- ;; From there: TAB emulation and template completion.
- (buffer-read-only (org-back-to-heading))
-
- ((run-hook-with-args-until-success
- 'org-tab-after-check-for-cycling-hook))
-
- ((org-try-structure-completion))
-
- ((run-hook-with-args-until-success
- 'org-tab-before-tab-emulation-hook))
-
- ((and (eq org-cycle-emulate-tab 'exc-hl-bol)
- (or (not (bolp))
- (not (looking-at org-outline-regexp))))
- (call-interactively (global-key-binding "\t")))
-
- ((if (and (memq org-cycle-emulate-tab '(white whitestart))
- (save-excursion (beginning-of-line 1) (looking-at "[ \t]*"))
- (or (and (eq org-cycle-emulate-tab 'white)
- (= (match-end 0) (point-at-eol)))
- (and (eq org-cycle-emulate-tab 'whitestart)
- (>= (match-end 0) pos))))
- t
- (eq org-cycle-emulate-tab t))
- (call-interactively (global-key-binding "\t")))
-
- (t (save-excursion
- (org-back-to-heading)
- (org-cycle)))))))
-
-(defun org-cycle-internal-global ()
- "Do the global cycling action."
- ;; Hack to avoid display of messages for .org attachments in Gnus
- (let ((ga (string-match "\\*fontification" (buffer-name))))
- (cond
- ((and (eq last-command this-command)
- (eq org-cycle-global-status 'overview))
- ;; We just created the overview - now do table of contents
- ;; This can be slow in very large buffers, so indicate action
- (run-hook-with-args 'org-pre-cycle-hook 'contents)
- (unless ga (org-unlogged-message "CONTENTS..."))
- (org-content)
- (unless ga (org-unlogged-message "CONTENTS...done"))
- (setq org-cycle-global-status 'contents)
- (run-hook-with-args 'org-cycle-hook 'contents))
-
- ((and (eq last-command this-command)
- (eq org-cycle-global-status 'contents))
- ;; We just showed the table of contents - now show everything
- (run-hook-with-args 'org-pre-cycle-hook 'all)
- (outline-show-all)
- (unless ga (org-unlogged-message "SHOW ALL"))
- (setq org-cycle-global-status 'all)
- (run-hook-with-args 'org-cycle-hook 'all))
-
- (t
- ;; Default action: go to overview
- (run-hook-with-args 'org-pre-cycle-hook 'overview)
- (org-overview)
- (unless ga (org-unlogged-message "OVERVIEW"))
- (setq org-cycle-global-status 'overview)
- (run-hook-with-args 'org-cycle-hook 'overview)))))
-
-(defvar org-called-with-limited-levels nil
- "Non-nil when `org-with-limited-levels' is currently active.")
-
-(defun org-invisible-p (&optional pos)
- "Non-nil if the character after POS is invisible.
-If POS is nil, use `point' instead."
- (get-char-property (or pos (point)) 'invisible))
-
-(defun org-cycle-internal-local ()
- "Do the local cycling action."
- (let ((goal-column 0) eoh eol eos has-children children-skipped struct)
- ;; First, determine end of headline (EOH), end of subtree or item
- ;; (EOS), and if item or heading has children (HAS-CHILDREN).
- (save-excursion
- (if (org-at-item-p)
- (progn
- (beginning-of-line)
- (setq struct (org-list-struct))
- (setq eoh (point-at-eol))
- (setq eos (org-list-get-item-end-before-blank (point) struct))
- (setq has-children (org-list-has-child-p (point) struct)))
- (org-back-to-heading)
- (setq eoh (save-excursion (outline-end-of-heading) (point)))
- (setq eos (save-excursion (org-end-of-subtree t t)
- (when (bolp) (backward-char)) (point)))
- (setq has-children
- (or (save-excursion
- (let ((level (funcall outline-level)))
- (outline-next-heading)
- (and (org-at-heading-p t)
- (> (funcall outline-level) level))))
- (save-excursion
- (org-list-search-forward (org-item-beginning-re) eos t)))))
- ;; Determine end invisible part of buffer (EOL)
- (beginning-of-line 2)
- (while (and (not (eobp)) ;This is like `next-line'.
- (get-char-property (1- (point)) 'invisible))
- (goto-char (next-single-char-property-change (point) 'invisible))
- (and (eolp) (beginning-of-line 2)))
- (setq eol (point)))
- ;; Find out what to do next and set `this-command'
- (cond
- ((= eos eoh)
- ;; Nothing is hidden behind this heading
- (unless (org-before-first-heading-p)
- (run-hook-with-args 'org-pre-cycle-hook 'empty))
- (org-unlogged-message "EMPTY ENTRY")
- (setq org-cycle-subtree-status nil)
- (save-excursion
- (goto-char eos)
- (outline-next-heading)
- (when (org-invisible-p) (org-flag-heading nil))))
- ((and (or (>= eol eos)
- (not (string-match "\\S-" (buffer-substring eol eos))))
- (or has-children
- (not (setq children-skipped
- org-cycle-skip-children-state-if-no-children))))
- ;; Entire subtree is hidden in one line: children view
- (unless (org-before-first-heading-p)
- (run-hook-with-args 'org-pre-cycle-hook 'children))
- (if (org-at-item-p)
- (org-list-set-item-visibility (point-at-bol) struct 'children)
- (org-show-entry)
- (org-with-limited-levels (org-show-children))
- (org-show-set-visibility 'canonical)
- ;; FIXME: This slows down the func way too much.
- ;; How keep drawers hidden in subtree anyway?
- ;; (when (memq 'org-cycle-hide-drawers org-cycle-hook)
- ;; (org-cycle-hide-drawers 'subtree))
-
- ;; Fold every list in subtree to top-level items.
- (when (eq org-cycle-include-plain-lists 'integrate)
- (save-excursion
- (org-back-to-heading)
- (while (org-list-search-forward (org-item-beginning-re) eos t)
- (beginning-of-line 1)
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (end (org-list-get-bottom-point struct)))
- (dolist (e (org-list-get-all-items (point) struct prevs))
- (org-list-set-item-visibility e struct 'folded))
- (goto-char (if (< end eos) end eos)))))))
- (org-unlogged-message "CHILDREN")
- (save-excursion
- (goto-char eos)
- (outline-next-heading)
- (when (org-invisible-p) (org-flag-heading nil)))
- (setq org-cycle-subtree-status 'children)
- (unless (org-before-first-heading-p)
- (run-hook-with-args 'org-cycle-hook 'children)))
- ((or children-skipped
- (and (eq last-command this-command)
- (eq org-cycle-subtree-status 'children)))
- ;; We just showed the children, or no children are there,
- ;; now show everything.
- (unless (org-before-first-heading-p)
- (run-hook-with-args 'org-pre-cycle-hook 'subtree))
- (outline-flag-region eoh eos nil)
- (org-unlogged-message
- (if children-skipped "SUBTREE (NO CHILDREN)" "SUBTREE"))
- (setq org-cycle-subtree-status 'subtree)
- (unless (org-before-first-heading-p)
- (run-hook-with-args 'org-cycle-hook 'subtree)))
- (t
- ;; Default action: hide the subtree.
- (run-hook-with-args 'org-pre-cycle-hook 'folded)
- (outline-flag-region eoh eos t)
- (org-unlogged-message "FOLDED")
- (setq org-cycle-subtree-status 'folded)
- (unless (org-before-first-heading-p)
- (run-hook-with-args 'org-cycle-hook 'folded))))))
-
-;;;###autoload
-(defun org-global-cycle (&optional arg)
- "Cycle the global visibility. For details see `org-cycle'.
-With `\\[universal-argument]' prefix ARG, switch to startup visibility.
-With a numeric prefix, show all headlines up to that level."
- (interactive "P")
- (let ((org-cycle-include-plain-lists
- (if (derived-mode-p 'org-mode) org-cycle-include-plain-lists nil)))
- (cond
- ((integerp arg)
- (outline-show-all)
- (outline-hide-sublevels arg)
- (setq org-cycle-global-status 'contents))
- ((equal arg '(4))
- (org-set-startup-visibility)
- (org-unlogged-message "Startup visibility, plus VISIBILITY properties."))
- (t
- (org-cycle '(4))))))
-
-(defun org-set-startup-visibility ()
- "Set the visibility required by startup options and properties."
- (cond
- ((eq org-startup-folded t)
- (org-overview))
- ((eq org-startup-folded 'content)
- (org-content))
- ((or (eq org-startup-folded 'showeverything)
- (eq org-startup-folded nil))
- (outline-show-all)))
- (unless (eq org-startup-folded 'showeverything)
- (when org-hide-block-startup (org-hide-block-all))
- (org-set-visibility-according-to-property 'no-cleanup)
- (org-cycle-hide-archived-subtrees 'all)
- (org-cycle-hide-drawers 'all)
- (org-cycle-show-empty-lines t)))
-
-(defun org-set-visibility-according-to-property (&optional no-cleanup)
- "Switch subtree visibilities according to :VISIBILITY: property."
- (interactive)
- (org-with-wide-buffer
- (goto-char (point-min))
- (while (re-search-forward "^[ \t]*:VISIBILITY:" nil t)
- (if (not (org-at-property-p)) (outline-next-heading)
- (let ((state (match-string 3)))
- (save-excursion
- (org-back-to-heading t)
- (outline-hide-subtree)
- (org-reveal))
- (cond
- ((equal state "folded")
- (outline-hide-subtree)
- (org-end-of-subtree t t))
- ((equal state "children")
- (org-show-hidden-entry)
- (org-show-children))
- ((equal state "content")
- (save-excursion
- (save-restriction
- (org-narrow-to-subtree)
- (org-content)))
- (org-end-of-subtree t t))
- ((member state '("all" "showall"))
- (outline-show-subtree))))))
- (unless no-cleanup
- (org-cycle-hide-archived-subtrees 'all)
- (org-cycle-hide-drawers 'all)
- (org-cycle-show-empty-lines 'all))))
-
-;; This function uses outline-regexp instead of the more fundamental
-;; org-outline-regexp so that org-cycle-global works outside of Org
-;; buffers, where outline-regexp is needed.
-(defun org-overview ()
- "Switch to overview mode, showing only top-level headlines.
-This shows all headlines with a level equal or greater than the level
-of the first headline in the buffer. This is important, because if the
-first headline is not level one, then (hide-sublevels 1) gives confusing
-results."
- (interactive)
- (save-excursion
- (let ((level
- (save-excursion
- (goto-char (point-min))
- (when (re-search-forward (concat "^" outline-regexp) nil t)
- (goto-char (match-beginning 0))
- (funcall outline-level)))))
- (and level (outline-hide-sublevels level)))))
-
-(defun org-content (&optional arg)
- "Show all headlines in the buffer, like a table of contents.
-With numerical argument N, show content up to level N."
- (interactive "P")
- (org-overview)
- (save-excursion
- ;; Visit all headings and show their offspring
- (and (integerp arg) (org-overview))
- (goto-char (point-max))
- (catch 'exit
- (while (and (progn (condition-case nil
- (outline-previous-visible-heading 1)
- (error (goto-char (point-min))))
- t)
- (looking-at org-outline-regexp))
- (if (integerp arg)
- (org-show-children (1- arg))
- (outline-show-branches))
- (when (bobp) (throw 'exit nil))))))
-
-(defun org-optimize-window-after-visibility-change (state)
- "Adjust the window after a change in outline visibility.
-This function is the default value of the hook `org-cycle-hook'."
- (when (get-buffer-window (current-buffer))
- (cond
- ((eq state 'content) nil)
- ((eq state 'all) nil)
- ((eq state 'folded) nil)
- ((eq state 'children) (or (org-subtree-end-visible-p) (recenter 1)))
- ((eq state 'subtree) (or (org-subtree-end-visible-p) (recenter 1))))))
-
-(defun org-remove-empty-overlays-at (pos)
- "Remove outline overlays that do not contain non-white stuff."
- (dolist (o (overlays-at pos))
- (and (eq 'outline (overlay-get o 'invisible))
- (not (string-match "\\S-" (buffer-substring (overlay-start o)
- (overlay-end o))))
- (delete-overlay o))))
-
-(defun org-clean-visibility-after-subtree-move ()
- "Fix visibility issues after moving a subtree."
- ;; First, find a reasonable region to look at:
- ;; Start two siblings above, end three below
- (let* ((beg (save-excursion
- (and (org-get-last-sibling)
- (org-get-last-sibling))
- (point)))
- (end (save-excursion
- (and (org-get-next-sibling)
- (org-get-next-sibling)
- (org-get-next-sibling))
- (if (org-at-heading-p)
- (point-at-eol)
- (point))))
- (level (looking-at "\\*+"))
- (re (when level (concat "^" (regexp-quote (match-string 0)) " "))))
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (when re
- ;; Properly fold already folded siblings
- (goto-char (point-min))
- (while (re-search-forward re nil t)
- (when (and (not (org-invisible-p))
- (save-excursion
- (goto-char (point-at-eol)) (org-invisible-p)))
- (outline-hide-entry))))
- (org-cycle-show-empty-lines 'overview)
- (org-cycle-hide-drawers 'overview)))))
-
-(defun org-cycle-show-empty-lines (state)
- "Show empty lines above all visible headlines.
-The region to be covered depends on STATE when called through
-`org-cycle-hook'. Lisp program can use t for STATE to get the
-entire buffer covered. Note that an empty line is only shown if there
-are at least `org-cycle-separator-lines' empty lines before the headline."
- (when (/= org-cycle-separator-lines 0)
- (save-excursion
- (let* ((n (abs org-cycle-separator-lines))
- (re (cond
- ((= n 1) "\\(\n[ \t]*\n\\*+\\) ")
- ((= n 2) "^[ \t]*\\(\n[ \t]*\n\\*+\\) ")
- (t (let ((ns (number-to-string (- n 2))))
- (concat "^\\(?:[ \t]*\n\\)\\{" ns "," ns "\\}"
- "[ \t]*\\(\n[ \t]*\n\\*+\\) ")))))
- beg end)
- (cond
- ((memq state '(overview contents t))
- (setq beg (point-min) end (point-max)))
- ((memq state '(children folded))
- (setq beg (point)
- end (progn (org-end-of-subtree t t)
- (line-beginning-position 2)))))
- (when beg
- (goto-char beg)
- (while (re-search-forward re end t)
- (unless (get-char-property (match-end 1) 'invisible)
- (let ((e (match-end 1))
- (b (if (>= org-cycle-separator-lines 0)
- (match-beginning 1)
- (save-excursion
- (goto-char (match-beginning 0))
- (skip-chars-backward " \t\n")
- (line-end-position)))))
- (outline-flag-region b e nil))))))))
- ;; Never hide empty lines at the end of the file.
- (save-excursion
- (goto-char (point-max))
- (outline-previous-heading)
- (outline-end-of-heading)
- (when (and (looking-at "[ \t\n]+")
- (= (match-end 0) (point-max)))
- (outline-flag-region (point) (match-end 0) nil))))
-
-(defun org-show-empty-lines-in-parent ()
- "Move to the parent and re-show empty lines before visible headlines."
- (save-excursion
- (let ((context (if (org-up-heading-safe) 'children 'overview)))
- (org-cycle-show-empty-lines context))))
-
-(defun org-files-list ()
- "Return `org-agenda-files' list, plus all open Org files.
-This is useful for operations that need to scan all of a user's
-open and agenda-wise Org files."
- (let ((files (mapcar #'expand-file-name (org-agenda-files))))
- (dolist (buf (buffer-list))
- (with-current-buffer buf
- (when (and (derived-mode-p 'org-mode) (buffer-file-name))
- (cl-pushnew (expand-file-name (buffer-file-name)) files
- :test #'equal))))
- files))
-
-(defsubst org-entry-beginning-position ()
- "Return the beginning position of the current entry."
- (save-excursion (org-back-to-heading t) (point)))
-
-(defsubst org-entry-end-position ()
- "Return the end position of the current entry."
- (save-excursion (outline-next-heading) (point)))
-
-(defun org-cycle-hide-drawers (state &optional exceptions)
- "Re-hide all drawers after a visibility state change.
-STATE should be one of the symbols listed in the docstring of
-`org-cycle-hook'. When non-nil, optional argument EXCEPTIONS is
-a list of strings specifying which drawers should not be hidden."
- (when (and (derived-mode-p 'org-mode)
- (not (memq state '(overview folded contents))))
- (save-excursion
- (let* ((globalp (eq state 'all))
- (beg (if globalp (point-min) (point)))
- (end (if globalp (point-max)
- (if (eq state 'children)
- (save-excursion (outline-next-heading) (point))
- (org-end-of-subtree t)))))
- (goto-char beg)
- (while (re-search-forward org-drawer-regexp (max end (point)) t)
- (unless (member-ignore-case (match-string 1) exceptions)
- (let ((drawer (org-element-at-point)))
- (when (memq (org-element-type drawer) '(drawer property-drawer))
- (org-flag-drawer t drawer)
- ;; Make sure to skip drawer entirely or we might flag
- ;; it another time when matching its ending line with
- ;; `org-drawer-regexp'.
- (goto-char (org-element-property :end drawer))))))))))
-
-(defun org-flag-drawer (flag &optional element)
- "When FLAG is non-nil, hide the drawer we are at.
-Otherwise make it visible. When optional argument ELEMENT is
-a parsed drawer, as returned by `org-element-at-point', hide or
-show that drawer instead."
- (let ((drawer (or element
- (and (save-excursion
- (beginning-of-line)
- (looking-at-p org-drawer-regexp))
- (org-element-at-point)))))
- (when (memq (org-element-type drawer) '(drawer property-drawer))
- (let ((post (org-element-property :post-affiliated drawer)))
- (save-excursion
- (outline-flag-region
- (progn (goto-char post) (line-end-position))
- (progn (goto-char (org-element-property :end drawer))
- (skip-chars-backward " \r\t\n")
- (line-end-position))
- flag))
- ;; When the drawer is hidden away, make sure point lies in
- ;; a visible part of the buffer.
- (when (and flag (> (line-beginning-position) post))
- (goto-char post))))))
-
-(defun org-subtree-end-visible-p ()
- "Is the end of the current subtree visible?"
- (pos-visible-in-window-p
- (save-excursion (org-end-of-subtree t) (point))))
-
-(defun org-first-headline-recenter ()
- "Move cursor to the first headline and recenter the headline."
- (let ((window (get-buffer-window)))
- (when window
- (goto-char (point-min))
- (when (re-search-forward (concat "^\\(" org-outline-regexp "\\)") nil t)
- (set-window-start window (line-beginning-position))))))
-
-;;; Saving and restoring visibility
-
-(defun org-outline-overlay-data (&optional use-markers)
- "Return a list of the locations of all outline overlays.
-These are overlays with the `invisible' property value `outline'.
-The return value is a list of cons cells, with start and stop
-positions for each overlay.
-If USE-MARKERS is set, return the positions as markers."
- (let (beg end)
- (org-with-wide-buffer
- (delq nil
- (mapcar (lambda (o)
- (when (eq (overlay-get o 'invisible) 'outline)
- (setq beg (overlay-start o)
- end (overlay-end o))
- (and beg end (> end beg)
- (if use-markers
- (cons (copy-marker beg)
- (copy-marker end t))
- (cons beg end)))))
- (overlays-in (point-min) (point-max)))))))
-
-(defun org-set-outline-overlay-data (data)
- "Create visibility overlays for all positions in DATA.
-DATA should have been made by `org-outline-overlay-data'."
- (org-with-wide-buffer
- (outline-show-all)
- (dolist (c data) (outline-flag-region (car c) (cdr c) t))))
-
-;;; Folding of blocks
-
-(defvar-local org-hide-block-overlays nil
- "Overlays hiding blocks.")
-
-(defun org-block-map (function &optional start end)
- "Call FUNCTION at the head of all source blocks in the current buffer.
-Optional arguments START and END can be used to limit the range."
- (let ((start (or start (point-min)))
- (end (or end (point-max))))
- (save-excursion
- (goto-char start)
- (while (and (< (point) end) (re-search-forward org-block-regexp end t))
- (save-excursion
- (save-match-data
- (goto-char (match-beginning 0))
- (funcall function)))))))
-
-(defun org-hide-block-toggle-all ()
- "Toggle the visibility of all blocks in the current buffer."
- (org-block-map 'org-hide-block-toggle))
-
-(defun org-hide-block-all ()
- "Fold all blocks in the current buffer."
- (interactive)
- (org-show-block-all)
- (org-block-map 'org-hide-block-toggle-maybe))
-
-(defun org-show-block-all ()
- "Unfold all blocks in the current buffer."
- (interactive)
- (mapc #'delete-overlay org-hide-block-overlays)
- (setq org-hide-block-overlays nil))
-
-(defun org-hide-block-toggle-maybe ()
- "Toggle visibility of block at point.
-Unlike to `org-hide-block-toggle', this function does not throw
-an error. Return a non-nil value when toggling is successful."
- (interactive)
- (ignore-errors (org-hide-block-toggle)))
-
-(defun org-hide-block-toggle (&optional force)
- "Toggle the visibility of the current block.
-When optional argument FORCE is `off', make block visible. If it
-is non-nil, hide it unconditionally. Throw an error when not at
-a block. Return a non-nil value when toggling is successful."
- (interactive)
- (let ((element (org-element-at-point)))
- (unless (memq (org-element-type element)
- '(center-block comment-block dynamic-block example-block
- export-block quote-block special-block
- src-block verse-block))
- (user-error "Not at a block"))
- (let* ((start (save-excursion
- (goto-char (org-element-property :post-affiliated element))
- (line-end-position)))
- (end (save-excursion
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (line-end-position)))
- (overlays (overlays-at start)))
- (cond
- ;; Do nothing when not before or at the block opening line or
- ;; at the block closing line.
- ((let ((eol (line-end-position))) (and (> eol start) (/= eol end))) nil)
- ((and (not (eq force 'off))
- (not (memq t (mapcar
- (lambda (o)
- (eq (overlay-get o 'invisible) 'org-hide-block))
- overlays))))
- (let ((ov (make-overlay start end)))
- (overlay-put ov 'invisible 'org-hide-block)
- ;; Make the block accessible to `isearch'.
- (overlay-put
- ov 'isearch-open-invisible
- (lambda (ov)
- (when (memq ov org-hide-block-overlays)
- (setq org-hide-block-overlays (delq ov org-hide-block-overlays)))
- (when (eq (overlay-get ov 'invisible) 'org-hide-block)
- (delete-overlay ov))))
- (push ov org-hide-block-overlays)
- ;; When the block is hidden away, make sure point is left in
- ;; a visible part of the buffer.
- (when (> (line-beginning-position) start)
- (goto-char start)
- (beginning-of-line))
- ;; Signal successful toggling.
- t))
- ((or (not force) (eq force 'off))
- (dolist (ov overlays t)
- (when (memq ov org-hide-block-overlays)
- (setq org-hide-block-overlays (delq ov org-hide-block-overlays)))
- (when (eq (overlay-get ov 'invisible) 'org-hide-block)
- (delete-overlay ov))))))))
-
-;; Remove overlays when changing major mode
-(add-hook 'org-mode-hook
- (lambda () (add-hook 'change-major-mode-hook
- 'org-show-block-all 'append 'local)))
-
-;;; Org-goto
-
-(defvar org-goto-window-configuration nil)
-(defvar org-goto-marker nil)
-(defvar org-goto-map)
-(defun org-goto-map ()
- "Set the keymap `org-goto'."
- (setq org-goto-map
- (let ((map (make-sparse-keymap)))
- (let ((cmds '(isearch-forward isearch-backward kill-ring-save set-mark-command
- mouse-drag-region universal-argument org-occur)))
- (dolist (cmd cmds)
- (substitute-key-definition cmd cmd map global-map)))
- (suppress-keymap map)
- (org-defkey map "\C-m" 'org-goto-ret)
- (org-defkey map [(return)] 'org-goto-ret)
- (org-defkey map [(left)] 'org-goto-left)
- (org-defkey map [(right)] 'org-goto-right)
- (org-defkey map [(control ?g)] 'org-goto-quit)
- (org-defkey map "\C-i" 'org-cycle)
- (org-defkey map [(tab)] 'org-cycle)
- (org-defkey map [(down)] 'outline-next-visible-heading)
- (org-defkey map [(up)] 'outline-previous-visible-heading)
- (if org-goto-auto-isearch
- (if (fboundp 'define-key-after)
- (define-key-after map [t] 'org-goto-local-auto-isearch)
- nil)
- (org-defkey map "q" 'org-goto-quit)
- (org-defkey map "n" 'outline-next-visible-heading)
- (org-defkey map "p" 'outline-previous-visible-heading)
- (org-defkey map "f" 'outline-forward-same-level)
- (org-defkey map "b" 'outline-backward-same-level)
- (org-defkey map "u" 'outline-up-heading))
- (org-defkey map "/" 'org-occur)
- (org-defkey map "\C-c\C-n" 'outline-next-visible-heading)
- (org-defkey map "\C-c\C-p" 'outline-previous-visible-heading)
- (org-defkey map "\C-c\C-f" 'outline-forward-same-level)
- (org-defkey map "\C-c\C-b" 'outline-backward-same-level)
- (org-defkey map "\C-c\C-u" 'outline-up-heading)
- map)))
-
-(defconst org-goto-help
- "Browse buffer copy, to find location or copy text.%s
-RET=jump to location C-g=quit and return to previous location
-\[Up]/[Down]=next/prev headline TAB=cycle visibility [/] org-occur")
-
-(defvar org-goto-start-pos) ; dynamically scoped parameter
-
-(defun org-goto (&optional alternative-interface)
- "Look up a different location in the current file, keeping current visibility.
-
-When you want look-up or go to a different location in a
-document, the fastest way is often to fold the entire buffer and
-then dive into the tree. This method has the disadvantage, that
-the previous location will be folded, which may not be what you
-want.
-
-This command works around this by showing a copy of the current
-buffer in an indirect buffer, in overview mode. You can dive
-into the tree in that copy, use org-occur and incremental search
-to find a location. When pressing RET or `Q', the command
-returns to the original buffer in which the visibility is still
-unchanged. After RET it will also jump to the location selected
-in the indirect buffer and expose the headline hierarchy above.
-
-With a prefix argument, use the alternative interface: e.g., if
-`org-goto-interface' is `outline' use `outline-path-completion'."
- (interactive "P")
- (org-goto-map)
- (let* ((org-refile-targets `((nil . (:maxlevel . ,org-goto-max-level))))
- (org-refile-use-outline-path t)
- (org-refile-target-verify-function nil)
- (interface
- (if (not alternative-interface)
- org-goto-interface
- (if (eq org-goto-interface 'outline)
- 'outline-path-completion
- 'outline)))
- (org-goto-start-pos (point))
- (selected-point
- (if (eq interface 'outline)
- (car (org-get-location (current-buffer) org-goto-help))
- (let ((pa (org-refile-get-location "Goto")))
- (org-refile-check-position pa)
- (nth 3 pa)))))
- (if selected-point
- (progn
- (org-mark-ring-push org-goto-start-pos)
- (goto-char selected-point)
- (when (or (org-invisible-p) (org-invisible-p2))
- (org-show-context 'org-goto)))
- (message "Quit"))))
-
-(defvar org-goto-selected-point nil) ; dynamically scoped parameter
-(defvar org-goto-exit-command nil) ; dynamically scoped parameter
-(defvar org-goto-local-auto-isearch-map) ; defined below
-
-(defun org-get-location (_buf help)
- "Let the user select a location in current buffer.
-This function uses a recursive edit. It returns the selected position
-or nil."
- (org-no-popups
- (let ((isearch-mode-map org-goto-local-auto-isearch-map)
- (isearch-hide-immediately nil)
- (isearch-search-fun-function
- (lambda () 'org-goto-local-search-headings))
- (org-goto-selected-point org-goto-exit-command))
- (save-excursion
- (save-window-excursion
- (delete-other-windows)
- (and (get-buffer "*org-goto*") (kill-buffer "*org-goto*"))
- (pop-to-buffer-same-window
- (condition-case nil
- (make-indirect-buffer (current-buffer) "*org-goto*")
- (error (make-indirect-buffer (current-buffer) "*org-goto*"))))
- (with-output-to-temp-buffer "*Org Help*"
- (princ (format help (if org-goto-auto-isearch
- " Just type for auto-isearch."
- " n/p/f/b/u to navigate, q to quit."))))
- (org-fit-window-to-buffer (get-buffer-window "*Org Help*"))
- (setq buffer-read-only nil)
- (let ((org-startup-truncated t)
- (org-startup-folded nil)
- (org-startup-align-all-tables nil))
- (org-mode)
- (org-overview))
- (setq buffer-read-only t)
- (if (and (boundp 'org-goto-start-pos)
- (integer-or-marker-p org-goto-start-pos))
- (progn (goto-char org-goto-start-pos)
- (when (org-invisible-p)
- (org-show-set-visibility 'lineage)))
- (goto-char (point-min)))
- (let (org-special-ctrl-a/e) (org-beginning-of-line))
- (message "Select location and press RET")
- (use-local-map org-goto-map)
- (recursive-edit)))
- (kill-buffer "*org-goto*")
- (cons org-goto-selected-point org-goto-exit-command))))
-
-(defvar org-goto-local-auto-isearch-map (make-sparse-keymap))
-(set-keymap-parent org-goto-local-auto-isearch-map isearch-mode-map)
-;; `isearch-other-control-char' was removed in Emacs 24.4.
-(if (fboundp 'isearch-other-control-char)
- (progn
- (define-key org-goto-local-auto-isearch-map "\C-i" 'isearch-other-control-char)
- (define-key org-goto-local-auto-isearch-map "\C-m" 'isearch-other-control-char))
- (define-key org-goto-local-auto-isearch-map "\C-i" nil)
- (define-key org-goto-local-auto-isearch-map "\C-m" nil)
- (define-key org-goto-local-auto-isearch-map [return] nil))
-
-(defun org-goto-local-search-headings (string bound noerror)
- "Search and make sure that any matches are in headlines."
- (catch 'return
- (while (if isearch-forward
- (search-forward string bound noerror)
- (search-backward string bound noerror))
- (when (save-match-data
- (and (save-excursion
- (beginning-of-line)
- (looking-at org-complex-heading-regexp))
- (or (not (match-beginning 5))
- (< (point) (match-beginning 5)))))
- (throw 'return (point))))))
-
-(defun org-goto-local-auto-isearch ()
- "Start isearch."
- (interactive)
- (goto-char (point-min))
- (let ((keys (this-command-keys)))
- (when (eq (lookup-key isearch-mode-map keys) 'isearch-printing-char)
- (isearch-mode t)
- (isearch-process-search-char (string-to-char keys)))))
-
-(defun org-goto-ret (&optional _arg)
- "Finish `org-goto' by going to the new location."
- (interactive "P")
- (setq org-goto-selected-point (point))
- (setq org-goto-exit-command 'return)
- (throw 'exit nil))
-
-(defun org-goto-left ()
- "Finish `org-goto' by going to the new location."
- (interactive)
- (if (org-at-heading-p)
- (progn
- (beginning-of-line 1)
- (setq org-goto-selected-point (point)
- org-goto-exit-command 'left)
- (throw 'exit nil))
- (user-error "Not on a heading")))
-
-(defun org-goto-right ()
- "Finish `org-goto' by going to the new location."
- (interactive)
- (if (org-at-heading-p)
- (progn
- (setq org-goto-selected-point (point)
- org-goto-exit-command 'right)
- (throw 'exit nil))
- (user-error "Not on a heading")))
-
-(defun org-goto-quit ()
- "Finish `org-goto' without cursor motion."
- (interactive)
- (setq org-goto-selected-point nil)
- (setq org-goto-exit-command 'quit)
- (throw 'exit nil))
-
-;;; Indirect buffer display of subtrees
-
-(defvar org-indirect-dedicated-frame nil
- "This is the frame being used for indirect tree display.")
-(defvar org-last-indirect-buffer nil)
-
-(defun org-tree-to-indirect-buffer (&optional arg)
- "Create indirect buffer and narrow it to current subtree.
-
-With a numerical prefix ARG, go up to this level and then take that tree.
-If ARG is negative, go up that many levels.
-
-If `org-indirect-buffer-display' is not `new-frame', the command removes the
-indirect buffer previously made with this command, to avoid proliferation of
-indirect buffers. However, when you call the command with a \
-`\\[universal-argument]' prefix, or
-when `org-indirect-buffer-display' is `new-frame', the last buffer is kept
-so that you can work with several indirect buffers at the same time. If
-`org-indirect-buffer-display' is `dedicated-frame', the \
-`\\[universal-argument]' prefix also
-requests that a new frame be made for the new buffer, so that the dedicated
-frame is not changed."
- (interactive "P")
- (let ((cbuf (current-buffer))
- (cwin (selected-window))
- (pos (point))
- beg end level heading ibuf)
- (save-excursion
- (org-back-to-heading t)
- (when (numberp arg)
- (setq level (org-outline-level))
- (when (< arg 0) (setq arg (+ level arg)))
- (while (> (setq level (org-outline-level)) arg)
- (org-up-heading-safe)))
- (setq beg (point)
- heading (org-get-heading 'no-tags))
- (org-end-of-subtree t t)
- (when (org-at-heading-p) (backward-char 1))
- (setq end (point)))
- (when (and (buffer-live-p org-last-indirect-buffer)
- (not (eq org-indirect-buffer-display 'new-frame))
- (not arg))
- (kill-buffer org-last-indirect-buffer))
- (setq ibuf (org-get-indirect-buffer cbuf heading)
- org-last-indirect-buffer ibuf)
- (cond
- ((or (eq org-indirect-buffer-display 'new-frame)
- (and arg (eq org-indirect-buffer-display 'dedicated-frame)))
- (select-frame (make-frame))
- (delete-other-windows)
- (pop-to-buffer-same-window ibuf)
- (org-set-frame-title heading))
- ((eq org-indirect-buffer-display 'dedicated-frame)
- (raise-frame
- (select-frame (or (and org-indirect-dedicated-frame
- (frame-live-p org-indirect-dedicated-frame)
- org-indirect-dedicated-frame)
- (setq org-indirect-dedicated-frame (make-frame)))))
- (delete-other-windows)
- (pop-to-buffer-same-window ibuf)
- (org-set-frame-title (concat "Indirect: " heading)))
- ((eq org-indirect-buffer-display 'current-window)
- (pop-to-buffer-same-window ibuf))
- ((eq org-indirect-buffer-display 'other-window)
- (pop-to-buffer ibuf))
- (t (error "Invalid value")))
- (narrow-to-region beg end)
- (outline-show-all)
- (goto-char pos)
- (run-hook-with-args 'org-cycle-hook 'all)
- (and (window-live-p cwin) (select-window cwin))))
-
-(defun org-get-indirect-buffer (&optional buffer heading)
- (setq buffer (or buffer (current-buffer)))
- (let ((n 1) (base (buffer-name buffer)) bname)
- (while (buffer-live-p
- (get-buffer
- (setq bname
- (concat base "-"
- (if heading (concat heading "-" (number-to-string n))
- (number-to-string n))))))
- (setq n (1+ n)))
- (condition-case nil
- (make-indirect-buffer buffer bname 'clone)
- (error (make-indirect-buffer buffer bname)))))
-
-(defun org-set-frame-title (title)
- "Set the title of the current frame to the string TITLE."
- (modify-frame-parameters (selected-frame) (list (cons 'name title))))
-
-;;;; Structure editing
-
-;;; Inserting headlines
-
-(defun org--line-empty-p (n)
- "Is the Nth next line empty?
-
-Counts the current line as N = 1 and the previous line as N = 0;
-see `beginning-of-line'."
- (save-excursion
- (and (not (bobp))
- (or (beginning-of-line n) t)
- (save-match-data
- (looking-at "[ \t]*$")))))
-
-(defun org-previous-line-empty-p ()
- "Is the previous line a blank line?
-When NEXT is non-nil, check the next line instead."
- (org--line-empty-p 0))
-
-(defun org-next-line-empty-p ()
- "Is the previous line a blank line?
-When NEXT is non-nil, check the next line instead."
- (org--line-empty-p 2))
-
-(defun org--blank-before-heading-p (&optional parent)
- "Non-nil when an empty line should precede a new heading here.
-When optional argument PARENT is non-nil, consider parent
-headline instead of current one."
- (pcase (assq 'heading org-blank-before-new-entry)
- (`(heading . auto)
- (save-excursion
- (org-with-limited-levels
- (unless (and (org-before-first-heading-p)
- (not (outline-next-heading)))
- (org-back-to-heading t)
- (when parent (org-up-heading-safe))
- (cond ((not (bobp))
- (org-previous-line-empty-p))
- ((outline-next-heading)
- (org-previous-line-empty-p))
- ;; Ignore trailing spaces on last buffer line.
- ((progn (skip-chars-backward " \t") (bolp))
- (org-previous-line-empty-p))
- (t nil))))))
- (`(heading . ,value) value)
- (_ nil)))
-
-(defun org-insert-heading (&optional arg invisible-ok top)
- "Insert a new heading or an item with the same depth at point.
-
-If point is at the beginning of a heading, insert a new heading
-or a new headline above the current one. When at the beginning
-of a regular line of text, turn it into a heading.
-
-If point is in the middle of a line, split it and create a new
-headline with the text in the current line after point (see
-`org-M-RET-may-split-line' on how to modify this behavior). As
-a special case, on a headline, splitting can only happen on the
-title itself. E.g., this excludes breaking stars or tags.
-
-With a `\\[universal-argument]' prefix, set \
-`org-insert-heading-respect-content' to
-a non-nil value for the duration of the command. This forces the
-insertion of a heading after the current subtree, independently
-on the location of point.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix, \
-insert the heading at the end of the tree
-above the current heading. For example, if point is within a
-2nd-level heading, then it will insert a 2nd-level heading at
-the end of the 1st-level parent subtree.
-
-When INVISIBLE-OK is set, stop at invisible headlines when going
-back. This is important for non-interactive uses of the
-command.
-
-When optional argument TOP is non-nil, insert a level 1 heading,
-unconditionally."
- (interactive "P")
- (let* ((blank? (org--blank-before-heading-p (equal arg '(16))))
- (level (org-current-level))
- (stars (make-string (if (and level (not top)) level 1) ?*)))
- (cond
- ((or org-insert-heading-respect-content
- (member arg '((4) (16)))
- (and (not invisible-ok)
- (invisible-p (max (1- (point)) (point-min)))))
- ;; Position point at the location of insertion.
- (if (not level) ;before first headline
- (org-with-limited-levels (outline-next-heading))
- ;; Make sure we end up on a visible headline if INVISIBLE-OK
- ;; is nil.
- (org-with-limited-levels (org-back-to-heading invisible-ok))
- (cond ((equal arg '(16))
- (org-up-heading-safe)
- (org-end-of-subtree t t))
- (t
- (org-end-of-subtree t t))))
- (unless (bolp) (insert "\n")) ;ensure final newline
- (unless (and blank? (org-previous-line-empty-p))
- (org-N-empty-lines-before-current (if blank? 1 0)))
- (insert stars " \n")
- (forward-char -1))
- ;; At a headline...
- ((org-at-heading-p)
- (cond ((bolp)
- (when blank? (save-excursion (insert "\n")))
- (save-excursion (insert stars " \n"))
- (unless (and blank? (org-previous-line-empty-p))
- (org-N-empty-lines-before-current (if blank? 1 0)))
- (end-of-line))
- ((and (org-get-alist-option org-M-RET-may-split-line 'headline)
- (org-match-line org-complex-heading-regexp)
- (org-pos-in-match-range (point) 4))
- ;; Grab the text that should moved to the new headline.
- ;; Preserve tags.
- (let ((split (delete-and-extract-region (point) (match-end 4))))
- (if (looking-at "[ \t]*$") (replace-match "")
- (org-set-tags nil t))
- (end-of-line)
- (when blank? (insert "\n"))
- (insert "\n" stars " ")
- (when (org-string-nw-p split) (insert split))
- (when (eobp) (save-excursion (insert "\n")))))
- (t
- (end-of-line)
- (when blank? (insert "\n"))
- (insert "\n" stars " ")
- (when (eobp) (save-excursion (insert "\n"))))))
- ;; On regular text, turn line into a headline or split, if
- ;; appropriate.
- ((bolp)
- (insert stars " ")
- (unless (and blank? (org-previous-line-empty-p))
- (org-N-empty-lines-before-current (if blank? 1 0))))
- (t
- (unless (org-get-alist-option org-M-RET-may-split-line 'headline)
- (end-of-line))
- (insert "\n" stars " ")
- (unless (and blank? (org-previous-line-empty-p))
- (org-N-empty-lines-before-current (if blank? 1 0))))))
- (run-hooks 'org-insert-heading-hook))
-
-(defun org-N-empty-lines-before-current (n)
- "Make the number of empty lines before current exactly N.
-So this will delete or add empty lines."
- (let ((column (current-column)))
- (beginning-of-line)
- (unless (bobp)
- (let ((start (save-excursion
- (skip-chars-backward " \r\t\n")
- (line-end-position))))
- (delete-region start (line-end-position 0))))
- (insert (make-string n ?\n))
- (move-to-column column)))
-
-(defun org-get-heading (&optional no-tags no-todo no-priority no-comment)
- "Return the heading of the current entry, without the stars.
-When NO-TAGS is non-nil, don't include tags.
-When NO-TODO is non-nil, don't include TODO keywords.
-When NO-PRIORITY is non-nil, don't include priority cookie.
-When NO-COMMENT is non-nil, don't include COMMENT string."
- (save-excursion
- (org-back-to-heading t)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp)
- (let ((todo (and (not no-todo) (match-string 2)))
- (priority (and (not no-priority) (match-string 3)))
- (headline (pcase (match-string 4)
- (`nil "")
- ((and (guard no-comment) h)
- (replace-regexp-in-string
- (eval-when-compile
- (format "\\`%s[ \t]+" org-comment-string))
- "" h))
- (h h)))
- (tags (and (not no-tags) (match-string 5))))
- (mapconcat #'identity
- (delq nil (list todo priority headline tags))
- " ")))))
-
-(defvar orgstruct-mode) ; defined below
-
-(defun org-heading-components ()
- "Return the components of the current heading.
-This is a list with the following elements:
-- the level as an integer
-- the reduced level, different if `org-odd-levels-only' is set.
-- the TODO keyword, or nil
-- the priority character, like ?A, or nil if no priority is given
-- the headline text itself, or the tags string if no headline text
-- the tags string, or nil."
- (save-excursion
- (org-back-to-heading t)
- (when (let (case-fold-search)
- (looking-at
- (if orgstruct-mode
- org-heading-regexp
- org-complex-heading-regexp)))
- (if orgstruct-mode
- (list (length (match-string 1))
- (org-reduced-level (length (match-string 1)))
- nil
- nil
- (match-string 2)
- nil)
- (list (length (match-string 1))
- (org-reduced-level (length (match-string 1)))
- (match-string-no-properties 2)
- (and (match-end 3) (aref (match-string 3) 2))
- (match-string-no-properties 4)
- (match-string-no-properties 5))))))
-
-(defun org-get-entry ()
- "Get the entry text, after heading, entire subtree."
- (save-excursion
- (org-back-to-heading t)
- (buffer-substring (point-at-bol 2) (org-end-of-subtree t))))
-
-(defun org-edit-headline (&optional heading)
- "Edit the current headline.
-Set it to HEADING when provided."
- (interactive)
- (org-with-wide-buffer
- (org-back-to-heading t)
- (let ((case-fold-search nil))
- (when (looking-at org-complex-heading-regexp)
- (let* ((old (match-string-no-properties 4))
- (new (save-match-data
- (org-trim (or heading (read-string "Edit: " old))))))
- (unless (equal old new)
- (if old (replace-match new t t nil 4)
- (goto-char (or (match-end 3) (match-end 2) (match-end 1)))
- (insert " " new))
- (org-set-tags nil t)
- (when (looking-at "[ \t]*$") (replace-match ""))))))))
-
-(defun org-insert-heading-after-current ()
- "Insert a new heading with same level as current, after current subtree."
- (interactive)
- (org-back-to-heading)
- (org-insert-heading)
- (org-move-subtree-down)
- (end-of-line 1))
-
-(defun org-insert-heading-respect-content (&optional invisible-ok)
- "Insert heading with `org-insert-heading-respect-content' set to t."
- (interactive)
- (org-insert-heading '(4) invisible-ok))
-
-(defun org-insert-todo-heading-respect-content (&optional force-state)
- "Insert TODO heading with `org-insert-heading-respect-content' set to t."
- (interactive)
- (org-insert-todo-heading force-state '(4)))
-
-(defun org-insert-todo-heading (arg &optional force-heading)
- "Insert a new heading with the same level and TODO state as current heading.
-
-If the heading has no TODO state, or if the state is DONE, use
-the first state (TODO by default). Also with one prefix arg,
-force first state. With two prefix args, force inserting at the
-end of the parent subtree.
-
-When called at a plain list item, insert a new item with an
-unchecked check box."
- (interactive "P")
- (when (or force-heading (not (org-insert-item 'checkbox)))
- (org-insert-heading (or (and (equal arg '(16)) '(16))
- force-heading))
- (save-excursion
- (org-forward-heading-same-level -1)
- (let ((case-fold-search nil)) (looking-at org-todo-line-regexp)))
- (let* ((new-mark-x
- (if (or (equal arg '(4))
- (not (match-beginning 2))
- (member (match-string 2) org-done-keywords))
- (car org-todo-keywords-1)
- (match-string 2)))
- (new-mark
- (or
- (run-hook-with-args-until-success
- 'org-todo-get-default-hook new-mark-x nil)
- new-mark-x)))
- (beginning-of-line 1)
- (and (looking-at org-outline-regexp) (goto-char (match-end 0))
- (if org-treat-insert-todo-heading-as-state-change
- (org-todo new-mark)
- (insert new-mark " "))))
- (when org-provide-todo-statistics
- (org-update-parent-todo-statistics))))
-
-(defun org-insert-subheading (arg)
- "Insert a new subheading and demote it.
-Works for outline headings and for plain lists alike."
- (interactive "P")
- (org-insert-heading arg)
- (cond
- ((org-at-heading-p) (org-do-demote))
- ((org-at-item-p) (org-indent-item))))
-
-(defun org-insert-todo-subheading (arg)
- "Insert a new subheading with TODO keyword or checkbox and demote it.
-Works for outline headings and for plain lists alike."
- (interactive "P")
- (org-insert-todo-heading arg)
- (cond
- ((org-at-heading-p) (org-do-demote))
- ((org-at-item-p) (org-indent-item))))
-
-;;; Promotion and Demotion
-
-(defvar org-after-demote-entry-hook nil
- "Hook run after an entry has been demoted.
-The cursor will be at the beginning of the entry.
-When a subtree is being demoted, the hook will be called for each node.")
-
-(defvar org-after-promote-entry-hook nil
- "Hook run after an entry has been promoted.
-The cursor will be at the beginning of the entry.
-When a subtree is being promoted, the hook will be called for each node.")
-
-(defun org-promote-subtree ()
- "Promote the entire subtree.
-See also `org-promote'."
- (interactive)
- (save-excursion
- (org-with-limited-levels (org-map-tree 'org-promote)))
- (org-fix-position-after-promote))
-
-(defun org-demote-subtree ()
- "Demote the entire subtree.
-See `org-demote' and `org-promote'."
- (interactive)
- (save-excursion
- (org-with-limited-levels (org-map-tree 'org-demote)))
- (org-fix-position-after-promote))
-
-(defun org-do-promote ()
- "Promote the current heading higher up the tree.
-If the region is active in `transient-mark-mode', promote all
-headings in the region."
- (interactive)
- (save-excursion
- (if (org-region-active-p)
- (org-map-region 'org-promote (region-beginning) (region-end))
- (org-promote)))
- (org-fix-position-after-promote))
-
-(defun org-do-demote ()
- "Demote the current heading lower down the tree.
-If the region is active in `transient-mark-mode', demote all
-headings in the region."
- (interactive)
- (save-excursion
- (if (org-region-active-p)
- (org-map-region 'org-demote (region-beginning) (region-end))
- (org-demote)))
- (org-fix-position-after-promote))
-
-(defun org-fix-position-after-promote ()
- "Fix cursor position and indentation after demoting/promoting."
- (let ((pos (point)))
- (when (save-excursion
- (beginning-of-line)
- (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
- (or (eq pos (match-end 1)) (eq pos (match-end 2))))
- (cond ((eobp) (insert " "))
- ((eolp) (insert " "))
- ((equal (char-after) ?\s) (forward-char 1))))))
-
-(defun org-current-level ()
- "Return the level of the current entry, or nil if before the first headline.
-The level is the number of stars at the beginning of the
-headline. Use `org-reduced-level' to remove the effect of
-`org-odd-levels'. Unlike to `org-outline-level', this function
-ignores inlinetasks."
- (let ((level (org-with-limited-levels (org-outline-level))))
- (and (> level 0) level)))
-
-(defun org-get-previous-line-level ()
- "Return the outline depth of the last headline before the current line.
-Returns 0 for the first headline in the buffer, and nil if before the
-first headline."
- (and (org-current-level)
- (or (and (/= (line-beginning-position) (point-min))
- (save-excursion (beginning-of-line 0) (org-current-level)))
- 0)))
-
-(defun org-reduced-level (l)
- "Compute the effective level of a heading.
-This takes into account the setting of `org-odd-levels-only'."
- (cond
- ((zerop l) 0)
- (org-odd-levels-only (1+ (floor (/ l 2))))
- (t l)))
-
-(defun org-level-increment ()
- "Return the number of stars that will be added or removed at a
-time to headlines when structure editing, based on the value of
-`org-odd-levels-only'."
- (if org-odd-levels-only 2 1))
-
-(defun org-get-valid-level (level &optional change)
- "Rectify a level change under the influence of `org-odd-levels-only'.
-LEVEL is a current level, CHANGE is by how much the level should
-be modified. Even if CHANGE is nil, LEVEL may be returned
-modified because even level numbers will become the next higher
-odd number. Returns values greater than 0."
- (if org-odd-levels-only
- (cond ((or (not change) (= 0 change)) (1+ (* 2 (/ level 2))))
- ((> change 0) (1+ (* 2 (/ (+ (1- level) (* 2 change)) 2))))
- ((< change 0) (max 1 (1+ (* 2 (/ (+ level (* 2 change)) 2))))))
- (max 1 (+ level (or change 0)))))
-
-(defun org-promote ()
- "Promote the current heading higher up the tree."
- (org-with-wide-buffer
- (org-back-to-heading t)
- (let* ((after-change-functions (remq 'flyspell-after-change-function
- after-change-functions))
- (level (save-match-data (funcall outline-level)))
- (up-head (concat (make-string (org-get-valid-level level -1) ?*) " "))
- (diff (abs (- level (length up-head) -1))))
- (cond
- ((and (= level 1) org-allow-promoting-top-level-subtree)
- (replace-match "# " nil t))
- ((= level 1)
- (user-error "Cannot promote to level 0. UNDO to recover if necessary"))
- (t (replace-match up-head nil t)))
- (unless (= level 1)
- (when org-auto-align-tags (org-set-tags nil 'ignore-column))
- (when org-adapt-indentation (org-fixup-indentation (- diff))))
- (run-hooks 'org-after-promote-entry-hook))))
-
-(defun org-demote ()
- "Demote the current heading lower down the tree."
- (org-with-wide-buffer
- (org-back-to-heading t)
- (let* ((after-change-functions (remq 'flyspell-after-change-function
- after-change-functions))
- (level (save-match-data (funcall outline-level)))
- (down-head (concat (make-string (org-get-valid-level level 1) ?*) " "))
- (diff (abs (- level (length down-head) -1))))
- (replace-match down-head nil t)
- (when org-auto-align-tags (org-set-tags nil 'ignore-column))
- (when org-adapt-indentation (org-fixup-indentation diff))
- (run-hooks 'org-after-demote-entry-hook))))
-
-(defun org-cycle-level ()
- "Cycle the level of an empty headline through possible states.
-This goes first to child, then to parent, level, then up the hierarchy.
-After top level, it switches back to sibling level."
- (interactive)
- (let ((org-adapt-indentation nil))
- (when (org-point-at-end-of-empty-headline)
- (setq this-command 'org-cycle-level) ; Only needed for caching
- (let ((cur-level (org-current-level))
- (prev-level (org-get-previous-line-level)))
- (cond
- ;; If first headline in file, promote to top-level.
- ((= prev-level 0)
- (cl-loop repeat (/ (- cur-level 1) (org-level-increment))
- do (org-do-promote)))
- ;; If same level as prev, demote one.
- ((= prev-level cur-level)
- (org-do-demote))
- ;; If parent is top-level, promote to top level if not already.
- ((= prev-level 1)
- (cl-loop repeat (/ (- cur-level 1) (org-level-increment))
- do (org-do-promote)))
- ;; If top-level, return to prev-level.
- ((= cur-level 1)
- (cl-loop repeat (/ (- prev-level 1) (org-level-increment))
- do (org-do-demote)))
- ;; If less than prev-level, promote one.
- ((< cur-level prev-level)
- (org-do-promote))
- ;; If deeper than prev-level, promote until higher than
- ;; prev-level.
- ((> cur-level prev-level)
- (cl-loop repeat (+ 1 (/ (- cur-level prev-level) (org-level-increment)))
- do (org-do-promote))))
- t))))
-
-(defun org-map-tree (fun)
- "Call FUN for every heading underneath the current one."
- (org-back-to-heading t)
- (let ((level (funcall outline-level)))
- (save-excursion
- (funcall fun)
- (while (and (progn
- (outline-next-heading)
- (> (funcall outline-level) level))
- (not (eobp)))
- (funcall fun)))))
-
-(defun org-map-region (fun beg end)
- "Call FUN for every heading between BEG and END."
- (let ((org-ignore-region t))
- (save-excursion
- (setq end (copy-marker end))
- (goto-char beg)
- (when (and (re-search-forward org-outline-regexp-bol nil t)
- (< (point) end))
- (funcall fun))
- (while (and (progn
- (outline-next-heading)
- (< (point) end))
- (not (eobp)))
- (funcall fun)))))
-
-(defun org-fixup-indentation (diff)
- "Change the indentation in the current entry by DIFF.
-
-DIFF is an integer. Indentation is done according to the
-following rules:
-
- - Planning information and property drawers are always indented
- according to the new level of the headline;
-
- - Footnote definitions and their contents are ignored;
-
- - Inlinetasks' boundaries are not shifted;
-
- - Empty lines are ignored;
-
- - Other lines' indentation are shifted by DIFF columns, unless
- it would introduce a structural change in the document, in
- which case no shifting is done at all.
-
-Assume point is at a heading or an inlinetask beginning."
- (org-with-wide-buffer
- (narrow-to-region (line-beginning-position)
- (save-excursion
- (if (org-with-limited-levels (org-at-heading-p))
- (org-with-limited-levels (outline-next-heading))
- (org-inlinetask-goto-end))
- (point)))
- (forward-line)
- ;; Indent properly planning info and property drawer.
- (when (looking-at-p org-planning-line-re)
- (org-indent-line)
- (forward-line))
- (when (looking-at org-property-drawer-re)
- (goto-char (match-end 0))
- (forward-line)
- (save-excursion (org-indent-region (match-beginning 0) (match-end 0))))
- (catch 'no-shift
- (when (zerop diff) (throw 'no-shift nil))
- ;; If DIFF is negative, first check if a shift is possible at all
- ;; (e.g., it doesn't break structure). This can only happen if
- ;; some contents are not properly indented.
- (let ((case-fold-search t))
- (when (< diff 0)
- (let ((diff (- diff))
- (forbidden-re (concat org-outline-regexp
- "\\|"
- (substring org-footnote-definition-re 1))))
- (save-excursion
- (while (not (eobp))
- (cond
- ((looking-at-p "[ \t]*$") (forward-line))
- ((and (looking-at-p org-footnote-definition-re)
- (let ((e (org-element-at-point)))
- (and (eq (org-element-type e) 'footnote-definition)
- (goto-char (org-element-property :end e))))))
- ((looking-at-p org-outline-regexp) (forward-line))
- ;; Give up if shifting would move before column 0 or
- ;; if it would introduce a headline or a footnote
- ;; definition.
- (t
- (skip-chars-forward " \t")
- (let ((ind (current-column)))
- (when (or (< ind diff)
- (and (= ind diff) (looking-at-p forbidden-re)))
- (throw 'no-shift nil)))
- ;; Ignore contents of example blocks and source
- ;; blocks if their indentation is meant to be
- ;; preserved. Jump to block's closing line.
- (beginning-of-line)
- (or (and (looking-at-p "[ \t]*#\\+BEGIN_\\(EXAMPLE\\|SRC\\)")
- (let ((e (org-element-at-point)))
- (and (memq (org-element-type e)
- '(example-block src-block))
- (or org-src-preserve-indentation
- (org-element-property :preserve-indent e))
- (goto-char (org-element-property :end e))
- (progn (skip-chars-backward " \r\t\n")
- (beginning-of-line)
- t))))
- (forward-line))))))))
- ;; Shift lines but footnote definitions, inlinetasks boundaries
- ;; by DIFF. Also skip contents of source or example blocks
- ;; when indentation is meant to be preserved.
- (while (not (eobp))
- (cond
- ((and (looking-at-p org-footnote-definition-re)
- (let ((e (org-element-at-point)))
- (and (eq (org-element-type e) 'footnote-definition)
- (goto-char (org-element-property :end e))))))
- ((looking-at-p org-outline-regexp) (forward-line))
- ((looking-at-p "[ \t]*$") (forward-line))
- (t
- (indent-line-to (+ (org-get-indentation) diff))
- (beginning-of-line)
- (or (and (looking-at-p "[ \t]*#\\+BEGIN_\\(EXAMPLE\\|SRC\\)")
- (let ((e (org-element-at-point)))
- (and (memq (org-element-type e)
- '(example-block src-block))
- (or org-src-preserve-indentation
- (org-element-property :preserve-indent e))
- (goto-char (org-element-property :end e))
- (progn (skip-chars-backward " \r\t\n")
- (beginning-of-line)
- t))))
- (forward-line)))))))))
-
-(defun org-convert-to-odd-levels ()
- "Convert an Org file with all levels allowed to one with odd levels.
-This will leave level 1 alone, convert level 2 to level 3, level 3 to
-level 5 etc."
- (interactive)
- (when (yes-or-no-p "Are you sure you want to globally change levels to odd? ")
- (let ((outline-level 'org-outline-level)
- (org-odd-levels-only nil) n)
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward "^\\*\\*+ " nil t)
- (setq n (- (length (match-string 0)) 2))
- (while (>= (setq n (1- n)) 0)
- (org-demote))
- (end-of-line 1))))))
-
-(defun org-convert-to-oddeven-levels ()
- "Convert an Org file with only odd levels to one with odd/even levels.
-This promotes level 3 to level 2, level 5 to level 3 etc. If the
-file contains a section with an even level, conversion would
-destroy the structure of the file. An error is signaled in this
-case."
- (interactive)
- (goto-char (point-min))
- ;; First check if there are no even levels
- (when (re-search-forward "^\\(\\*\\*\\)+ " nil t)
- (org-show-set-visibility 'canonical)
- (error "Not all levels are odd in this file. Conversion not possible"))
- (when (yes-or-no-p "Are you sure you want to globally change levels to odd-even? ")
- (let ((outline-regexp org-outline-regexp)
- (outline-level 'org-outline-level)
- (org-odd-levels-only nil) n)
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward "^\\*\\*+ " nil t)
- (setq n (/ (1- (length (match-string 0))) 2))
- (while (>= (setq n (1- n)) 0)
- (org-promote))
- (end-of-line 1))))))
-
-(defun org-tr-level (n)
- "Make N odd if required."
- (if org-odd-levels-only (1+ (/ n 2)) n))
-
-;;; Vertical tree motion, cutting and pasting of subtrees
-
-(defun org-move-subtree-up (&optional arg)
- "Move the current subtree up past ARG headlines of the same level."
- (interactive "p")
- (org-move-subtree-down (- (prefix-numeric-value arg))))
-
-(defun org-move-subtree-down (&optional arg)
- "Move the current subtree down past ARG headlines of the same level."
- (interactive "p")
- (setq arg (prefix-numeric-value arg))
- (let ((movfunc (if (> arg 0) 'org-get-next-sibling
- 'org-get-last-sibling))
- (ins-point (make-marker))
- (cnt (abs arg))
- (col (current-column))
- beg beg0 end txt folded ne-beg ne-end ne-ins ins-end)
- ;; Select the tree
- (org-back-to-heading)
- (setq beg0 (point))
- (save-excursion
- (setq ne-beg (org-back-over-empty-lines))
- (setq beg (point)))
- (save-match-data
- (save-excursion (outline-end-of-heading)
- (setq folded (org-invisible-p)))
- (progn (org-end-of-subtree nil t)
- (unless (eobp) (backward-char))))
- (outline-next-heading)
- (setq ne-end (org-back-over-empty-lines))
- (setq end (point))
- (goto-char beg0)
- (when (and (> arg 0) (org-first-sibling-p) (< ne-end ne-beg))
- ;; include less whitespace
- (save-excursion
- (goto-char beg)
- (forward-line (- ne-beg ne-end))
- (setq beg (point))))
- ;; Find insertion point, with error handling
- (while (> cnt 0)
- (or (and (funcall movfunc) (looking-at org-outline-regexp))
- (progn (goto-char beg0)
- (user-error "Cannot move past superior level or buffer limit")))
- (setq cnt (1- cnt)))
- (when (> arg 0)
- ;; Moving forward - still need to move over subtree
- (org-end-of-subtree t t)
- (save-excursion
- (org-back-over-empty-lines)
- (or (bolp) (newline))))
- (setq ne-ins (org-back-over-empty-lines))
- (move-marker ins-point (point))
- (setq txt (buffer-substring beg end))
- (org-save-markers-in-region beg end)
- (delete-region beg end)
- (org-remove-empty-overlays-at beg)
- (or (= beg (point-min)) (outline-flag-region (1- beg) beg nil))
- (or (bobp) (outline-flag-region (1- (point)) (point) nil))
- (and (not (bolp)) (looking-at "\n") (forward-char 1))
- (let ((bbb (point)))
- (insert-before-markers txt)
- (org-reinstall-markers-in-region bbb)
- (move-marker ins-point bbb))
- (or (bolp) (insert "\n"))
- (setq ins-end (point))
- (goto-char ins-point)
- (org-skip-whitespace)
- (when (and (< arg 0)
- (org-first-sibling-p)
- (> ne-ins ne-beg))
- ;; Move whitespace back to beginning
- (save-excursion
- (goto-char ins-end)
- (let ((kill-whole-line t))
- (kill-line (- ne-ins ne-beg)) (point)))
- (insert (make-string (- ne-ins ne-beg) ?\n)))
- (move-marker ins-point nil)
- (if folded
- (outline-hide-subtree)
- (org-show-entry)
- (org-show-children)
- (org-cycle-hide-drawers 'children))
- (org-clean-visibility-after-subtree-move)
- ;; move back to the initial column we were at
- (move-to-column col)))
-
-(defvar org-subtree-clip ""
- "Clipboard for cut and paste of subtrees.
-This is actually only a copy of the kill, because we use the normal kill
-ring. We need it to check if the kill was created by `org-copy-subtree'.")
-
-(defvar org-subtree-clip-folded nil
- "Was the last copied subtree folded?
-This is used to fold the tree back after pasting.")
-
-(defun org-cut-subtree (&optional n)
- "Cut the current subtree into the clipboard.
-With prefix arg N, cut this many sequential subtrees.
-This is a short-hand for marking the subtree and then cutting it."
- (interactive "p")
- (org-copy-subtree n 'cut))
-
-(defun org-copy-subtree (&optional n cut force-store-markers nosubtrees)
- "Copy the current subtree into the clipboard.
-With prefix arg N, copy this many sequential subtrees.
-This is a short-hand for marking the subtree and then copying it.
-If CUT is non-nil, actually cut the subtree.
-If FORCE-STORE-MARKERS is non-nil, store the relative locations
-of some markers in the region, even if CUT is non-nil. This is
-useful if the caller implements cut-and-paste as copy-then-paste-then-cut."
- (interactive "p")
- (let (beg end folded (beg0 (point)))
- (if (called-interactively-p 'any)
- (org-back-to-heading nil) ; take what looks like a subtree
- (org-back-to-heading t)) ; take what is really there
- (setq beg (point))
- (skip-chars-forward " \t\r\n")
- (save-match-data
- (if nosubtrees
- (outline-next-heading)
- (save-excursion (outline-end-of-heading)
- (setq folded (org-invisible-p)))
- (ignore-errors (org-forward-heading-same-level (1- n) t))
- (org-end-of-subtree t t)))
- ;; Include the end of an inlinetask
- (when (and (featurep 'org-inlinetask)
- (looking-at-p (concat (org-inlinetask-outline-regexp)
- "END[ \t]*$")))
- (end-of-line))
- (setq end (point))
- (goto-char beg0)
- (when (> end beg)
- (setq org-subtree-clip-folded folded)
- (when (or cut force-store-markers)
- (org-save-markers-in-region beg end))
- (if cut (kill-region beg end) (copy-region-as-kill beg end))
- (setq org-subtree-clip (current-kill 0))
- (message "%s: Subtree(s) with %d characters"
- (if cut "Cut" "Copied")
- (length org-subtree-clip)))))
-
-(defun org-paste-subtree (&optional level tree for-yank remove)
- "Paste the clipboard as a subtree, with modification of headline level.
-The entire subtree is promoted or demoted in order to match a new headline
-level.
-
-If the cursor is at the beginning of a headline, the same level as
-that headline is used to paste the tree.
-
-If not, the new level is derived from the *visible* headings
-before and after the insertion point, and taken to be the inferior headline
-level of the two. So if the previous visible heading is level 3 and the
-next is level 4 (or vice versa), level 4 will be used for insertion.
-This makes sure that the subtree remains an independent subtree and does
-not swallow low level entries.
-
-You can also force a different level, either by using a numeric prefix
-argument, or by inserting the heading marker by hand. For example, if the
-cursor is after \"*****\", then the tree will be shifted to level 5.
-
-If optional TREE is given, use this text instead of the kill ring.
-
-When FOR-YANK is set, this is called by `org-yank'. In this case, do not
-move back over whitespace before inserting, and move point to the end of
-the inserted text when done.
-
-When REMOVE is non-nil, remove the subtree from the clipboard."
- (interactive "P")
- (setq tree (or tree (and kill-ring (current-kill 0))))
- (unless (org-kill-is-subtree-p tree)
- (user-error "%s"
- (substitute-command-keys
- "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway")))
- (org-with-limited-levels
- (let* ((visp (not (org-invisible-p)))
- (txt tree)
- (old-level (if (string-match org-outline-regexp-bol txt)
- (- (match-end 0) (match-beginning 0) 1)
- -1))
- (force-level (cond (level (prefix-numeric-value level))
- ((and (looking-at "[ \t]*$")
- (string-match
- "^\\*+$" (buffer-substring
- (point-at-bol) (point))))
- (- (match-end 0) (match-beginning 0)))
- ((and (bolp)
- (looking-at org-outline-regexp))
- (- (match-end 0) (point) 1))))
- (previous-level (save-excursion
- (condition-case nil
- (progn
- (outline-previous-visible-heading 1)
- (if (looking-at org-outline-regexp-bol)
- (- (match-end 0) (match-beginning 0) 1)
- 1))
- (error 1))))
- (next-level (save-excursion
- (condition-case nil
- (progn
- (or (looking-at org-outline-regexp)
- (outline-next-visible-heading 1))
- (if (looking-at org-outline-regexp-bol)
- (- (match-end 0) (match-beginning 0) 1)
- 1))
- (error 1))))
- (new-level (or force-level (max previous-level next-level)))
- (shift (if (or (= old-level -1)
- (= new-level -1)
- (= old-level new-level))
- 0
- (- new-level old-level)))
- (delta (if (> shift 0) -1 1))
- (func (if (> shift 0) 'org-demote 'org-promote))
- (org-odd-levels-only nil)
- beg end newend)
- ;; Remove the forced level indicator
- (when force-level
- (delete-region (point-at-bol) (point)))
- ;; Paste
- (beginning-of-line (if (bolp) 1 2))
- (setq beg (point))
- (and (fboundp 'org-id-paste-tracker) (org-id-paste-tracker txt))
- (insert-before-markers txt)
- (unless (string-suffix-p "\n" txt) (insert "\n"))
- (setq newend (point))
- (org-reinstall-markers-in-region beg)
- (setq end (point))
- (goto-char beg)
- (skip-chars-forward " \t\n\r")
- (setq beg (point))
- (when (and (org-invisible-p) visp)
- (save-excursion (outline-show-heading)))
- ;; Shift if necessary
- (unless (= shift 0)
- (save-restriction
- (narrow-to-region beg end)
- (while (not (= shift 0))
- (org-map-region func (point-min) (point-max))
- (setq shift (+ delta shift)))
- (goto-char (point-min))
- (setq newend (point-max))))
- (when (or (called-interactively-p 'interactive) for-yank)
- (message "Clipboard pasted as level %d subtree" new-level))
- (when (and (not for-yank) ; in this case, org-yank will decide about folding
- kill-ring
- (eq org-subtree-clip (current-kill 0))
- org-subtree-clip-folded)
- ;; The tree was folded before it was killed/copied
- (outline-hide-subtree))
- (and for-yank (goto-char newend))
- (and remove (setq kill-ring (cdr kill-ring))))))
-
-(defun org-kill-is-subtree-p (&optional txt)
- "Check if the current kill is an outline subtree, or a set of trees.
-Returns nil if kill does not start with a headline, or if the first
-headline level is not the largest headline level in the tree.
-So this will actually accept several entries of equal levels as well,
-which is OK for `org-paste-subtree'.
-If optional TXT is given, check this string instead of the current kill."
- (let* ((kill (or txt (and kill-ring (current-kill 0)) ""))
- (re (org-get-limited-outline-regexp))
- (^re (concat "^" re))
- (start-level (and kill
- (string-match
- (concat "\\`\\([ \t\n\r]*?\n\\)?\\(" re "\\)")
- kill)
- (- (match-end 2) (match-beginning 2) 1)))
- (start (1+ (or (match-beginning 2) -1))))
- (if (not start-level)
- (progn
- nil) ;; does not even start with a heading
- (catch 'exit
- (while (setq start (string-match ^re kill (1+ start)))
- (when (< (- (match-end 0) (match-beginning 0) 1) start-level)
- (throw 'exit nil)))
- t))))
-
-(defvar org-markers-to-move nil
- "Markers that should be moved with a cut-and-paste operation.
-Those markers are stored together with their positions relative to
-the start of the region.")
-
-(defun org-save-markers-in-region (beg end)
- "Check markers in region.
-If these markers are between BEG and END, record their position relative
-to BEG, so that after moving the block of text, we can put the markers back
-into place.
-This function gets called just before an entry or tree gets cut from the
-buffer. After re-insertion, `org-reinstall-markers-in-region' must be
-called immediately, to move the markers with the entries."
- (setq org-markers-to-move nil)
- (when (featurep 'org-clock)
- (org-clock-save-markers-for-cut-and-paste beg end))
- (when (featurep 'org-agenda)
- (org-agenda-save-markers-for-cut-and-paste beg end)))
-
-(defun org-check-and-save-marker (marker beg end)
- "Check if MARKER is between BEG and END.
-If yes, remember the marker and the distance to BEG."
- (when (and (marker-buffer marker)
- (equal (marker-buffer marker) (current-buffer))
- (>= marker beg) (< marker end))
- (push (cons marker (- marker beg)) org-markers-to-move)))
-
-(defun org-reinstall-markers-in-region (beg)
- "Move all remembered markers to their position relative to BEG."
- (dolist (x org-markers-to-move)
- (move-marker (car x) (+ beg (cdr x))))
- (setq org-markers-to-move nil))
-
-(defun org-narrow-to-subtree ()
- "Narrow buffer to the current subtree."
- (interactive)
- (save-excursion
- (save-match-data
- (org-with-limited-levels
- (narrow-to-region
- (progn (org-back-to-heading t) (point))
- (progn (org-end-of-subtree t t)
- (when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
- (point)))))))
-
-(defun org-narrow-to-block ()
- "Narrow buffer to the current block."
- (interactive)
- (let* ((case-fold-search t)
- (blockp (org-between-regexps-p "^[ \t]*#\\+begin_.*"
- "^[ \t]*#\\+end_.*")))
- (if blockp
- (narrow-to-region (car blockp) (cdr blockp))
- (user-error "Not in a block"))))
-
-(defun org-clone-subtree-with-time-shift (n &optional shift)
- "Clone the task (subtree) at point N times.
-The clones will be inserted as siblings.
-
-In interactive use, the user will be prompted for the number of
-clones to be produced. If the entry has a timestamp, the user
-will also be prompted for a time shift, which may be a repeater
-as used in time stamps, for example `+3d'. To disable this,
-you can call the function with a universal prefix argument.
-
-When a valid repeater is given and the entry contains any time
-stamps, the clones will become a sequence in time, with time
-stamps in the subtree shifted for each clone produced. If SHIFT
-is nil or the empty string, time stamps will be left alone. The
-ID property of the original subtree is removed.
-
-In each clone, all the CLOCK entries will be removed. This
-prevents Org from considering that the clocked times overlap.
-
-If the original subtree did contain time stamps with a repeater,
-the following will happen:
-- the repeater will be removed in each clone
-- an additional clone will be produced, with the current, unshifted
- date(s) in the entry.
-- the original entry will be placed *after* all the clones, with
- repeater intact.
-- the start days in the repeater in the original entry will be shifted
- to past the last clone.
-In this way you can spell out a number of instances of a repeating task,
-and still retain the repeater to cover future instances of the task.
-
-As described above, N+1 clones are produced when the original
-subtree has a repeater. Setting N to 0, then, can be used to
-remove the repeater from a subtree and create a shifted clone
-with the original repeater."
- (interactive "nNumber of clones to produce: ")
- (unless (wholenump n) (user-error "Invalid number of replications %s" n))
- (when (org-before-first-heading-p) (user-error "No subtree to clone"))
- (let* ((beg (save-excursion (org-back-to-heading t) (point)))
- (end-of-tree (save-excursion (org-end-of-subtree t t) (point)))
- (shift
- (or shift
- (if (and (not (equal current-prefix-arg '(4)))
- (save-excursion
- (goto-char beg)
- (re-search-forward org-ts-regexp-both end-of-tree t)))
- (read-from-minibuffer
- "Date shift per clone (e.g. +1w, empty to copy unchanged): ")
- ""))) ;No time shift
- (doshift
- (and (org-string-nw-p shift)
- (or (string-match "\\`[ \t]*\\+?\\([0-9]+\\)\\([dwmy]\\)[ \t]*\\'"
- shift)
- (user-error "Invalid shift specification %s" shift)))))
- (goto-char end-of-tree)
- (unless (bolp) (insert "\n"))
- (let* ((end (point))
- (template (buffer-substring beg end))
- (shift-n (and doshift (string-to-number (match-string 1 shift))))
- (shift-what (pcase (and doshift (match-string 2 shift))
- (`nil nil)
- ("d" 'day)
- ("w" (setq shift-n (* 7 shift-n)) 'day)
- ("m" 'month)
- ("y" 'year)
- (_ (error "Unsupported time unit"))))
- (nmin 1)
- (nmax n)
- (n-no-remove -1)
- (idprop (org-entry-get nil "ID")))
- (when (and doshift
- (string-match-p "<[^<>\n]+ [.+]?\\+[0-9]+[hdwmy][^<>\n]*>"
- template))
- (delete-region beg end)
- (setq end beg)
- (setq nmin 0)
- (setq nmax (1+ nmax))
- (setq n-no-remove nmax))
- (goto-char end)
- (cl-loop for n from nmin to nmax do
- (insert
- ;; Prepare clone.
- (with-temp-buffer
- (insert template)
- (org-mode)
- (goto-char (point-min))
- (org-show-subtree)
- (and idprop (if org-clone-delete-id
- (org-entry-delete nil "ID")
- (org-id-get-create t)))
- (unless (= n 0)
- (while (re-search-forward org-clock-line-re nil t)
- (delete-region (line-beginning-position)
- (line-beginning-position 2)))
- (goto-char (point-min))
- (while (re-search-forward org-drawer-regexp nil t)
- (org-remove-empty-drawer-at (point))))
- (goto-char (point-min))
- (when doshift
- (while (re-search-forward org-ts-regexp-both nil t)
- (org-timestamp-change (* n shift-n) shift-what))
- (unless (= n n-no-remove)
- (goto-char (point-min))
- (while (re-search-forward org-ts-regexp nil t)
- (save-excursion
- (goto-char (match-beginning 0))
- (when (looking-at "<[^<>\n]+\\( +[.+]?\\+[0-9]+[hdwmy]\\)")
- (delete-region (match-beginning 1) (match-end 1)))))))
- (buffer-string)))))
- (goto-char beg)))
-
-;;; Outline Sorting
-
-(defun org-sort (&optional with-case)
- "Call `org-sort-entries', `org-table-sort-lines' or `org-sort-list'.
-Optional argument WITH-CASE means sort case-sensitively."
- (interactive "P")
- (org-call-with-arg
- (cond ((org-at-table-p) #'org-table-sort-lines)
- ((org-at-item-p) #'org-sort-list)
- (t #'org-sort-entries))
- with-case))
-
-(defun org-sort-remove-invisible (s)
- "Remove invisible part of links and emphasis markers from string S."
- (remove-text-properties 0 (length s) org-rm-props s)
- (replace-regexp-in-string
- org-verbatim-re (lambda (m) (format "%s " (match-string 4 m)))
- (replace-regexp-in-string
- org-emph-re (lambda (m) (format " %s " (match-string 4 m)))
- (org-link-display-format s)
- t t) t t))
-
-(defvar org-priority-regexp) ; defined later in the file
-
-(defvar org-after-sorting-entries-or-items-hook nil
- "Hook that is run after a bunch of entries or items have been sorted.
-When children are sorted, the cursor is in the parent line when this
-hook gets called. When a region or a plain list is sorted, the cursor
-will be in the first entry of the sorted region/list.")
-
-(defun org-sort-entries
- (&optional with-case sorting-type getkey-func compare-func property
- interactive?)
- "Sort entries on a certain level of an outline tree.
-If there is an active region, the entries in the region are sorted.
-Else, if the cursor is before the first entry, sort the top-level items.
-Else, the children of the entry at point are sorted.
-
-Sorting can be alphabetically, numerically, by date/time as given by
-a time stamp, by a property, by priority order, or by a custom function.
-
-The command prompts for the sorting type unless it has been given to the
-function through the SORTING-TYPE argument, which needs to be a character,
-\(?n ?N ?a ?A ?t ?T ?s ?S ?d ?D ?p ?P ?o ?O ?r ?R ?f ?F ?k ?K). Here is
-the precise meaning of each character:
-
-a Alphabetically, ignoring the TODO keyword and the priority, if any.
-c By creation time, which is assumed to be the first inactive time stamp
- at the beginning of a line.
-d By deadline date/time.
-k By clocking time.
-n Numerically, by converting the beginning of the entry/item to a number.
-o By order of TODO keywords.
-p By priority according to the cookie.
-r By the value of a property.
-s By scheduled date/time.
-t By date/time, either the first active time stamp in the entry, or, if
- none exist, by the first inactive one.
-
-Capital letters will reverse the sort order.
-
-If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies a function to be
-called with point at the beginning of the record. It must return a
-value that is compatible with COMPARE-FUNC, the function used to
-compare entries.
-
-Comparing entries ignores case by default. However, with an optional argument
-WITH-CASE, the sorting considers case as well.
-
-Sorting is done against the visible part of the headlines, it ignores hidden
-links.
-
-When sorting is done, call `org-after-sorting-entries-or-items-hook'.
-
-A non-nil value for INTERACTIVE? is used to signal that this
-function is being called interactively."
- (interactive (list current-prefix-arg nil nil nil nil t))
- (let ((case-func (if with-case 'identity 'downcase))
- start beg end stars re re2
- txt what tmp)
- ;; Find beginning and end of region to sort
- (cond
- ((org-region-active-p)
- ;; we will sort the region
- (setq end (region-end)
- what "region")
- (goto-char (region-beginning))
- (unless (org-at-heading-p) (outline-next-heading))
- (setq start (point)))
- ((or (org-at-heading-p)
- (ignore-errors (progn (org-back-to-heading) t)))
- ;; we will sort the children of the current headline
- (org-back-to-heading)
- (setq start (point)
- end (progn (org-end-of-subtree t t)
- (or (bolp) (insert "\n"))
- (when (>= (org-back-over-empty-lines) 1)
- (forward-line 1))
- (point))
- what "children")
- (goto-char start)
- (outline-show-subtree)
- (outline-next-heading))
- (t
- ;; we will sort the top-level entries in this file
- (goto-char (point-min))
- (or (org-at-heading-p) (outline-next-heading))
- (setq start (point))
- (goto-char (point-max))
- (beginning-of-line 1)
- (when (looking-at ".*?\\S-")
- ;; File ends in a non-white line
- (end-of-line 1)
- (insert "\n"))
- (setq end (point-max))
- (setq what "top-level")
- (goto-char start)
- (outline-show-all)))
-
- (setq beg (point))
- (when (>= beg end) (goto-char start) (user-error "Nothing to sort"))
-
- (looking-at "\\(\\*+\\)")
- (setq stars (match-string 1)
- re (concat "^" (regexp-quote stars) " +")
- re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[ \t\n]")
- txt (buffer-substring beg end))
- (unless (equal (substring txt -1) "\n") (setq txt (concat txt "\n")))
- (when (and (not (equal stars "*")) (string-match re2 txt))
- (user-error "Region to sort contains a level above the first entry"))
-
- (unless sorting-type
- (message
- "Sort %s: [a]lpha [n]umeric [p]riority p[r]operty todo[o]rder [f]unc
- [t]ime [s]cheduled [d]eadline [c]reated cloc[k]ing
- A/N/P/R/O/F/T/S/D/C/K means reversed:"
- what)
- (setq sorting-type (read-char-exclusive)))
-
- (unless getkey-func
- (and (= (downcase sorting-type) ?f)
- (setq getkey-func
- (or (and interactive?
- (org-read-function
- "Function for extracting keys: "))
- (error "Missing key extractor")))))
-
- (and (= (downcase sorting-type) ?r)
- (not property)
- (setq property
- (completing-read "Property: "
- (mapcar #'list (org-buffer-property-keys t))
- nil t)))
-
- (when (member sorting-type '(?k ?K)) (org-clock-sum))
- (message "Sorting entries...")
-
- (save-restriction
- (narrow-to-region start end)
- (let ((restore-clock?
- ;; The clock marker is lost when using `sort-subr'; mark
- ;; the clock with temporary `:org-clock-marker-backup'
- ;; text property.
- (when (and (eq (org-clock-is-active) (current-buffer))
- (<= start (marker-position org-clock-marker))
- (>= end (marker-position org-clock-marker)))
- (org-with-silent-modifications
- (put-text-property (1- org-clock-marker) org-clock-marker
- :org-clock-marker-backup t))
- t))
- (dcst (downcase sorting-type))
- (case-fold-search nil)
- (now (current-time)))
- (sort-subr
- (/= dcst sorting-type)
- ;; This function moves to the beginning character of the "record" to
- ;; be sorted.
- (lambda nil
- (if (re-search-forward re nil t)
- (goto-char (match-beginning 0))
- (goto-char (point-max))))
- ;; This function moves to the last character of the "record" being
- ;; sorted.
- (lambda nil
- (save-match-data
- (condition-case nil
- (outline-forward-same-level 1)
- (error
- (goto-char (point-max))))))
- ;; This function returns the value that gets sorted against.
- (lambda nil
- (cond
- ((= dcst ?n)
- (if (looking-at org-complex-heading-regexp)
- (string-to-number (org-sort-remove-invisible (match-string 4)))
- nil))
- ((= dcst ?a)
- (if (looking-at org-complex-heading-regexp)
- (funcall case-func (org-sort-remove-invisible (match-string 4)))
- nil))
- ((= dcst ?k)
- (or (get-text-property (point) :org-clock-minutes) 0))
- ((= dcst ?t)
- (let ((end (save-excursion (outline-next-heading) (point))))
- (if (or (re-search-forward org-ts-regexp end t)
- (re-search-forward org-ts-regexp-both end t))
- (org-time-string-to-seconds (match-string 0))
- (float-time now))))
- ((= dcst ?c)
- (let ((end (save-excursion (outline-next-heading) (point))))
- (if (re-search-forward
- (concat "^[ \t]*\\[" org-ts-regexp1 "\\]")
- end t)
- (org-time-string-to-seconds (match-string 0))
- (float-time now))))
- ((= dcst ?s)
- (let ((end (save-excursion (outline-next-heading) (point))))
- (if (re-search-forward org-scheduled-time-regexp end t)
- (org-time-string-to-seconds (match-string 1))
- (float-time now))))
- ((= dcst ?d)
- (let ((end (save-excursion (outline-next-heading) (point))))
- (if (re-search-forward org-deadline-time-regexp end t)
- (org-time-string-to-seconds (match-string 1))
- (float-time now))))
- ((= dcst ?p)
- (if (re-search-forward org-priority-regexp (point-at-eol) t)
- (string-to-char (match-string 2))
- org-default-priority))
- ((= dcst ?r)
- (or (org-entry-get nil property) ""))
- ((= dcst ?o)
- (when (looking-at org-complex-heading-regexp)
- (let* ((m (match-string 2))
- (s (if (member m org-done-keywords) '- '+)))
- (- 99 (funcall s (length (member m org-todo-keywords-1)))))))
- ((= dcst ?f)
- (if getkey-func
- (progn
- (setq tmp (funcall getkey-func))
- (when (stringp tmp) (setq tmp (funcall case-func tmp)))
- tmp)
- (error "Invalid key function `%s'" getkey-func)))
- (t (error "Invalid sorting type `%c'" sorting-type))))
- nil
- (cond
- ((= dcst ?a) 'string<)
- ((= dcst ?f)
- (or compare-func
- (and interactive?
- (org-read-function
- (concat "Function for comparing keys "
- "(empty for default `sort-subr' predicate): ")
- 'allow-empty))))
- ((member dcst '(?p ?t ?s ?d ?c ?k)) '<)))
- (when restore-clock?
- (move-marker org-clock-marker
- (1+ (next-single-property-change
- start :org-clock-marker-backup)))
- (remove-text-properties (1- org-clock-marker) org-clock-marker
- '(:org-clock-marker-backup t)))))
- (run-hooks 'org-after-sorting-entries-or-items-hook)
- (message "Sorting entries...done")))
-
-;;; The orgstruct minor mode
-
-;; Define a minor mode which can be used in other modes in order to
-;; integrate the Org mode structure editing commands.
-
-;; This is really a hack, because the Org mode structure commands use
-;; keys which normally belong to the major mode. Here is how it
-;; works: The minor mode defines all the keys necessary to operate the
-;; structure commands, but wraps the commands into a function which
-;; tests if the cursor is currently at a headline or a plain list
-;; item. If that is the case, the structure command is used,
-;; temporarily setting many Org mode variables like regular
-;; expressions for filling etc. However, when any of those keys is
-;; used at a different location, function uses `key-binding' to look
-;; up if the key has an associated command in another currently active
-;; keymap (minor modes, major mode, global), and executes that
-;; command. There might be problems if any of the keys is otherwise
-;; used as a prefix key.
-
-(defcustom orgstruct-heading-prefix-regexp ""
- "Regexp that matches the custom prefix of Org headlines in
-orgstruct(++)-mode."
- :group 'org
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'regexp)
-;;;###autoload(put 'orgstruct-heading-prefix-regexp 'safe-local-variable 'stringp)
-
-(defcustom orgstruct-setup-hook nil
- "Hook run after orgstruct-mode-map is filled."
- :group 'org
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'hook)
-
-(defvar orgstruct-initialized nil)
-
-(defvar org-local-vars nil
- "List of local variables, for use by `orgstruct-mode'.")
-
-;;;###autoload
-(define-minor-mode orgstruct-mode
- "Toggle the minor mode `orgstruct-mode'.
-This mode is for using Org mode structure commands in other
-modes. The following keys behave as if Org mode were active, if
-the cursor is on a headline, or on a plain list item (both as
-defined by Org mode)."
- nil " OrgStruct" (make-sparse-keymap)
- (funcall (if orgstruct-mode
- 'add-to-invisibility-spec
- 'remove-from-invisibility-spec)
- '(outline . t))
- (when orgstruct-mode
- (org-load-modules-maybe)
- (unless orgstruct-initialized
- (orgstruct-setup)
- (setq orgstruct-initialized t))))
-
-;;;###autoload
-(defun turn-on-orgstruct ()
- "Unconditionally turn on `orgstruct-mode'."
- (orgstruct-mode 1))
-
-(defvar-local orgstruct-is-++ nil
- "Is `orgstruct-mode' in ++ version in the current-buffer?")
-(defvar-local org-fb-vars nil)
-(defun orgstruct++-mode (&optional arg)
- "Toggle `orgstruct-mode', the enhanced version of it.
-In addition to setting orgstruct-mode, this also exports all
-indentation and autofilling variables from Org mode into the
-buffer. It will also recognize item context in multiline items."
- (interactive "P")
- (setq arg (prefix-numeric-value (or arg (if orgstruct-mode -1 1))))
- (if (< arg 1)
- (progn (orgstruct-mode -1)
- (dolist (v org-fb-vars)
- (set (make-local-variable (car v))
- (if (eq (car-safe (cadr v)) 'quote)
- (cl-cadadr v)
- (nth 1 v)))))
- (orgstruct-mode 1)
- (setq org-fb-vars nil)
- (unless org-local-vars
- (setq org-local-vars (org-get-local-variables)))
- (let (var val)
- (dolist (x org-local-vars)
- (when (string-match
- "^\\(paragraph-\\|auto-fill\\|normal-auto-fill\\|fill-paragraph\
-\\|fill-prefix\\|indent-\\)"
- (symbol-name (car x)))
- (setq var (car x) val (nth 1 x))
- (push (list var `(quote ,(eval var))) org-fb-vars)
- (set (make-local-variable var)
- (if (eq (car-safe val) 'quote) (nth 1 val) val))))
- (setq-local orgstruct-is-++ t))))
-
-;;;###autoload
-(defun turn-on-orgstruct++ ()
- "Unconditionally turn on `orgstruct++-mode'."
- (orgstruct++-mode 1))
-
-(defun orgstruct-error ()
- "Error when there is no default binding for a structure key."
- (interactive)
- (funcall (if (fboundp 'user-error)
- 'user-error
- 'error)
- "This key has no function outside structure elements"))
-
-(defun orgstruct-setup ()
- "Setup orgstruct keymap."
- (dolist (cell '((org-demote . t)
- (org-metaleft . t)
- (org-metaright . t)
- (org-promote . t)
- (org-shiftmetaleft . t)
- (org-shiftmetaright . t)
- org-backward-element
- org-backward-heading-same-level
- org-ctrl-c-ret
- org-ctrl-c-minus
- org-ctrl-c-star
- org-cycle
- org-force-cycle-archived
- org-forward-heading-same-level
- org-insert-heading
- org-insert-heading-respect-content
- org-kill-note-or-show-branches
- org-mark-subtree
- org-meta-return
- org-metadown
- org-metaup
- org-narrow-to-subtree
- org-promote-subtree
- org-reveal
- org-shiftdown
- org-shiftleft
- org-shiftmetadown
- org-shiftmetaup
- org-shiftright
- org-shifttab
- org-shifttab
- org-shiftup
- org-show-children
- org-show-subtree
- org-sort
- org-up-element
- outline-demote
- outline-next-visible-heading
- outline-previous-visible-heading
- outline-promote
- outline-up-heading))
- (let ((f (or (car-safe cell) cell))
- (disable-when-heading-prefix (cdr-safe cell)))
- (when (fboundp f)
- (let ((new-bindings))
- (dolist (binding (nconc (where-is-internal f org-mode-map)
- (where-is-internal f outline-mode-map)))
- (push binding new-bindings)
- ;; TODO use local-function-key-map
- (dolist (rep '(("<tab>" . "TAB")
- ("<return>" . "RET")
- ("<escape>" . "ESC")
- ("<delete>" . "DEL")))
- (setq binding (read-kbd-macro
- (let ((case-fold-search))
- (replace-regexp-in-string
- (regexp-quote (cdr rep))
- (car rep)
- (key-description binding)))))
- (cl-pushnew binding new-bindings :test 'equal)))
- (dolist (binding new-bindings)
- (let ((key (lookup-key orgstruct-mode-map binding)))
- (when (or (not key) (numberp key))
- (ignore-errors
- (org-defkey orgstruct-mode-map
- binding
- (orgstruct-make-binding
- f binding disable-when-heading-prefix))))))))))
- (run-hooks 'orgstruct-setup-hook))
-
-(defun orgstruct-make-binding (fun key disable-when-heading-prefix)
- "Create a function for binding in the structure minor mode.
-FUN is the command to call inside a table. KEY is the key that
-should be checked in for a command to execute outside of tables.
-Non-nil `disable-when-heading-prefix' means to disable the command
-if `orgstruct-heading-prefix-regexp' is not empty."
- (let ((name (concat "orgstruct-hijacker-" (symbol-name fun))))
- (let ((nname name)
- (i 0))
- (while (fboundp (intern nname))
- (setq nname (format "%s-%d" name (setq i (1+ i)))))
- (setq name (intern nname)))
- (eval
- (let ((bindings '((org-heading-regexp
- (concat "^"
- orgstruct-heading-prefix-regexp
- "\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ ]*$"))
- (org-outline-regexp
- (concat orgstruct-heading-prefix-regexp "\\*+ "))
- (org-outline-regexp-bol
- (concat "^" org-outline-regexp))
- (outline-regexp org-outline-regexp)
- (outline-heading-end-regexp "\n")
- (outline-level 'org-outline-level)
- (outline-heading-alist))))
- `(defun ,name (arg)
- ,(concat "In Structure, run `" (symbol-name fun) "'.\n"
- "Outside of structure, run the binding of `"
- (key-description key) "'."
- (when disable-when-heading-prefix
- (concat
- "\nIf `orgstruct-heading-prefix-regexp' is not empty, this command will always fall\n"
- "back to the default binding due to limitations of Org's implementation of\n"
- "`" (symbol-name fun) "'.")))
- (interactive "p")
- (let* ((disable
- ,(and disable-when-heading-prefix
- '(not (string= orgstruct-heading-prefix-regexp ""))))
- (fallback
- (or disable
- (not
- (let* ,bindings
- (org-context-p 'headline 'item
- ,(when (memq fun
- '(org-insert-heading
- org-insert-heading-respect-content
- org-meta-return))
- '(when orgstruct-is-++
- 'item-body))))))))
- (if fallback
- (let* ((orgstruct-mode)
- (binding
- (let ((key ,key))
- (catch 'exit
- (dolist
- (rep
- '(nil
- ("<\\([^>]*\\)tab>" . "\\1TAB")
- ("<\\([^>]*\\)return>" . "\\1RET")
- ("<\\([^>]*\\)escape>" . "\\1ESC")
- ("<\\([^>]*\\)delete>" . "\\1DEL"))
- nil)
- (when rep
- (setq key (read-kbd-macro
- (let ((case-fold-search))
- (replace-regexp-in-string
- (car rep)
- (cdr rep)
- (key-description key))))))
- (when (key-binding key)
- (throw 'exit (key-binding key))))))))
- (if (keymapp binding)
- (org-set-transient-map binding)
- (let ((func (or binding
- (unless disable
- 'orgstruct-error))))
- (when func
- (call-interactively func)))))
- (org-run-like-in-org-mode
- (lambda ()
- (interactive)
- (let* ,bindings
- (call-interactively ',fun)))))))))
- name))
-
-(defun org-contextualize-keys (alist contexts)
- "Return valid elements in ALIST depending on CONTEXTS.
-
-`org-agenda-custom-commands' or `org-capture-templates' are the
-values used for ALIST, and `org-agenda-custom-commands-contexts'
-or `org-capture-templates-contexts' are the associated contexts
-definitions."
- (let ((contexts
- ;; normalize contexts
- (mapcar
- (lambda(c) (cond ((listp (cadr c))
- (list (car c) (car c) (nth 1 c)))
- ((string= "" (cadr c))
- (list (car c) (car c) (nth 2 c)))
- (t c)))
- contexts))
- (a alist) r s)
- ;; loop over all commands or templates
- (dolist (c a)
- (let (vrules repl)
- (cond
- ((not (assoc (car c) contexts))
- (push c r))
- ((and (assoc (car c) contexts)
- (setq vrules (org-contextualize-validate-key
- (car c) contexts)))
- (mapc (lambda (vr)
- (unless (equal (car vr) (cadr vr))
- (setq repl vr)))
- vrules)
- (if (not repl) (push c r)
- (push (cadr repl) s)
- (push
- (cons (car c)
- (cdr (or (assoc (cadr repl) alist)
- (error "Undefined key `%s' as contextual replacement for `%s'"
- (cadr repl) (car c)))))
- r))))))
- ;; Return limited ALIST, possibly with keys modified, and deduplicated
- (delq
- nil
- (delete-dups
- (mapcar (lambda (x)
- (let ((tpl (car x)))
- (unless (delq
- nil
- (mapcar (lambda (y)
- (equal y tpl))
- s))
- x)))
- (reverse r))))))
-
-(defun org-contextualize-validate-key (key contexts)
- "Check CONTEXTS for agenda or capture KEY."
- (let (res)
- (dolist (r contexts)
- (dolist (rr (car (last r)))
- (when
- (and (equal key (car r))
- (if (functionp rr) (funcall rr)
- (or (and (eq (car rr) 'in-file)
- (buffer-file-name)
- (string-match (cdr rr) (buffer-file-name)))
- (and (eq (car rr) 'in-mode)
- (string-match (cdr rr) (symbol-name major-mode)))
- (and (eq (car rr) 'in-buffer)
- (string-match (cdr rr) (buffer-name)))
- (when (and (eq (car rr) 'not-in-file)
- (buffer-file-name))
- (not (string-match (cdr rr) (buffer-file-name))))
- (when (eq (car rr) 'not-in-mode)
- (not (string-match (cdr rr) (symbol-name major-mode))))
- (when (eq (car rr) 'not-in-buffer)
- (not (string-match (cdr rr) (buffer-name)))))))
- (push r res))))
- (delete-dups (delq nil res))))
-
-(defun org-context-p (&rest contexts)
- "Check if local context is any of CONTEXTS.
-Possible values in the list of contexts are `table', `headline', and `item'."
- (let ((pos (point)))
- (goto-char (point-at-bol))
- (prog1 (or (and (memq 'table contexts)
- (looking-at "[ \t]*|"))
- (and (memq 'headline contexts)
- (looking-at org-outline-regexp))
- (and (memq 'item contexts)
- (looking-at "[ \t]*\\([-+*] \\|[0-9]+[.)] \\)"))
- (and (memq 'item-body contexts)
- (org-in-item-p)))
- (goto-char pos))))
-
-;;;###autoload
-(defun org-run-like-in-org-mode (cmd)
- "Run a command, pretending that the current buffer is in Org mode.
-This will temporarily bind local variables that are typically bound in
-Org mode to the values they have in Org mode, and then interactively
-call CMD."
- (org-load-modules-maybe)
- (unless org-local-vars
- (setq org-local-vars (org-get-local-variables)))
- (let (binds)
- (dolist (var org-local-vars)
- (when (or (not (boundp (car var)))
- (eq (symbol-value (car var))
- (default-value (car var))))
- (push (list (car var) `(quote ,(cadr var))) binds)))
- (eval `(let ,binds
- (call-interactively (quote ,cmd))))))
-
-(defun org-get-category (&optional pos force-refresh)
- "Get the category applying to position POS."
- (save-match-data
- (when force-refresh (org-refresh-category-properties))
- (let ((pos (or pos (point))))
- (or (get-text-property pos 'org-category)
- (progn (org-refresh-category-properties)
- (get-text-property pos 'org-category))))))
-
-;;; Refresh properties
-
-(defun org-refresh-properties (dprop tprop)
- "Refresh buffer text properties.
-DPROP is the drawer property and TPROP is either the
-corresponding text property to set, or an alist with each element
-being a text property (as a symbol) and a function to apply to
-the value of the drawer property."
- (let* ((case-fold-search t)
- (inhibit-read-only t)
- (inherit? (org-property-inherit-p dprop))
- (property-re (org-re-property (concat (regexp-quote dprop) "\\+?") t))
- (global (and inherit? (org--property-global-value dprop nil))))
- (org-with-silent-modifications
- (org-with-point-at 1
- ;; Set global values (e.g., values defined through
- ;; "#+PROPERTY:" keywords) to the whole buffer.
- (when global (put-text-property (point-min) (point-max) tprop global))
- ;; Set local values.
- (while (re-search-forward property-re nil t)
- (when (org-at-property-p)
- (org-refresh-property tprop (org-entry-get (point) dprop) inherit?))
- (outline-next-heading))))))
-
-(defun org-refresh-property (tprop p &optional inherit)
- "Refresh the buffer text property TPROP from the drawer property P.
-The refresh happens only for the current headline, or the whole
-sub-tree if optional argument INHERIT is non-nil."
- (unless (org-before-first-heading-p)
- (save-excursion
- (org-back-to-heading t)
- (let ((start (point))
- (end (save-excursion
- (if inherit (org-end-of-subtree t t)
- (or (outline-next-heading) (point-max))))))
- (if (symbolp tprop)
- ;; TPROP is a text property symbol.
- (put-text-property start end tprop p)
- ;; TPROP is an alist with (property . function) elements.
- (pcase-dolist (`(,prop . ,f) tprop)
- (put-text-property start end prop (funcall f p))))))))
-
-(defun org-refresh-category-properties ()
- "Refresh category text properties in the buffer."
- (let ((case-fold-search t)
- (inhibit-read-only t)
- (default-category
- (cond ((null org-category)
- (if buffer-file-name
- (file-name-sans-extension
- (file-name-nondirectory buffer-file-name))
- "???"))
- ((symbolp org-category) (symbol-name org-category))
- (t org-category))))
- (org-with-silent-modifications
- (org-with-wide-buffer
- ;; Set buffer-wide category. Search last #+CATEGORY keyword.
- ;; This is the default category for the buffer. If none is
- ;; found, fall-back to `org-category' or buffer file name.
- (put-text-property
- (point-min) (point-max)
- 'org-category
- (catch 'buffer-category
- (goto-char (point-max))
- (while (re-search-backward "^[ \t]*#\\+CATEGORY:" (point-min) t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'keyword)
- (throw 'buffer-category
- (org-element-property :value element)))))
- default-category))
- ;; Set sub-tree specific categories.
- (goto-char (point-min))
- (let ((regexp (org-re-property "CATEGORY")))
- (while (re-search-forward regexp nil t)
- (let ((value (match-string-no-properties 3)))
- (when (org-at-property-p)
- (put-text-property
- (save-excursion (org-back-to-heading t) (point))
- (save-excursion (org-end-of-subtree t t) (point))
- 'org-category
- value)))))))))
-
-(defun org-refresh-stats-properties ()
- "Refresh stats text properties in the buffer."
- (org-with-silent-modifications
- (org-with-point-at 1
- (let ((regexp (concat org-outline-regexp-bol
- ".*\\[\\([0-9]*\\)\\(?:%\\|/\\([0-9]*\\)\\)\\]")))
- (while (re-search-forward regexp nil t)
- (let* ((numerator (string-to-number (match-string 1)))
- (denominator (and (match-end 2)
- (string-to-number (match-string 2))))
- (stats (cond ((not denominator) numerator) ;percent
- ((= denominator 0) 0)
- (t (/ (* numerator 100) denominator)))))
- (put-text-property (point) (progn (org-end-of-subtree t t) (point))
- 'org-stats stats)))))))
-
-(defun org-refresh-effort-properties ()
- "Refresh effort properties"
- (org-refresh-properties
- org-effort-property
- '((effort . identity)
- (effort-minutes . org-duration-to-minutes))))
-
-;;;; Link Stuff
-
-;;; Link abbreviations
-
-(defun org-link-expand-abbrev (link)
- "Apply replacements as defined in `org-link-abbrev-alist'."
- (if (string-match "^\\([^:]*\\)\\(::?\\(.*\\)\\)?$" link)
- (let* ((key (match-string 1 link))
- (as (or (assoc key org-link-abbrev-alist-local)
- (assoc key org-link-abbrev-alist)))
- (tag (and (match-end 2) (match-string 3 link)))
- rpl)
- (if (not as)
- link
- (setq rpl (cdr as))
- (cond
- ((symbolp rpl) (funcall rpl tag))
- ((string-match "%(\\([^)]+\\))" rpl)
- (replace-match
- (save-match-data
- (funcall (intern-soft (match-string 1 rpl)) tag)) t t rpl))
- ((string-match "%s" rpl) (replace-match (or tag "") t t rpl))
- ((string-match "%h" rpl)
- (replace-match (url-hexify-string (or tag "")) t t rpl))
- (t (concat rpl tag)))))
- link))
-
-;;; Storing and inserting links
-
-(defvar org-insert-link-history nil
- "Minibuffer history for links inserted with `org-insert-link'.")
-
-(defvar org-stored-links nil
- "Contains the links stored with `org-store-link'.")
-
-(defvar org-store-link-plist nil
- "Plist with info about the most recently link created with `org-store-link'.")
-
-(defun org-store-link-functions ()
- "Return a list of functions that are called to create and store a link.
-The functions defined in the :store property of
-`org-link-parameters'.
-
-Each function will be called in turn until one returns a non-nil
-value. Each function should check if it is responsible for
-creating this link (for example by looking at the major mode).
-If not, it must exit and return nil. If yes, it should return
-a non-nil value after calling `org-store-link-props' with a list
-of properties and values. Special properties are:
-
-:type The link prefix, like \"http\". This must be given.
-:link The link, like \"http://www.astro.uva.nl/~dominik\".
- This is obligatory as well.
-:description Optional default description for the second pair
- of brackets in an Org mode link. The user can still change
- this when inserting this link into an Org mode buffer.
-
-In addition to these, any additional properties can be specified
-and then used in capture templates."
- (cl-loop for link in org-link-parameters
- with store-func
- do (setq store-func (org-link-get-parameter (car link) :store))
- if store-func
- collect store-func))
-
-(defvar org-agenda-buffer-name) ; Defined in org-agenda.el
-(defvar org-id-link-to-org-use-id) ; Defined in org-id.el
-
-;;;###autoload
-(defun org-store-link (arg)
- "Store an org-link to the current location.
-\\<org-mode-map>
-This link is added to `org-stored-links' and can later be inserted
-into an Org buffer with `org-insert-link' (`\\[org-insert-link]').
-
-For some link types, a `\\[universal-argument]' prefix ARG is interpreted. \
-A single
-`\\[universal-argument]' negates `org-context-in-file-links' for file links or
-`org-gnus-prefer-web-links' for links to Usenet articles.
-
-A `\\[universal-argument] \\[universal-argument]' prefix ARG forces \
-skipping storing functions that are not
-part of Org core.
-
-A `\\[universal-argument] \\[universal-argument] \\[universal-argument]' \
-prefix ARG forces storing a link for each line in the
-active region."
- (interactive "P")
- (org-load-modules-maybe)
- (if (and (equal arg '(64)) (org-region-active-p))
- (save-excursion
- (let ((end (region-end)))
- (goto-char (region-beginning))
- (set-mark (point))
- (while (< (point-at-eol) end)
- (move-end-of-line 1) (activate-mark)
- (let (current-prefix-arg)
- (call-interactively 'org-store-link))
- (move-beginning-of-line 2)
- (set-mark (point)))))
- (setq org-store-link-plist nil)
- (let (link cpltxt desc description search txt custom-id agenda-link)
- (cond
- ;; Store a link using an external link type, if any function is
- ;; available. If more than one can generate a link from current
- ;; location, ask which one to use.
- ((and (not (equal arg '(16)))
- (let ((results-alist nil))
- (dolist (f (org-store-link-functions))
- (when (funcall f)
- ;; XXX: return value is not link's plist, so we
- ;; store the new value before it is modified. It
- ;; would be cleaner to ask store link functions to
- ;; return the plist instead.
- (push (cons f (copy-sequence org-store-link-plist))
- results-alist)))
- (pcase results-alist
- (`nil nil)
- (`((,_ . ,_)) t) ;single choice: nothing to do
- (`((,name . ,_) . ,_)
- ;; Reinstate link plist associated to the chosen
- ;; function.
- (apply #'org-store-link-props
- (cdr (assoc-string
- (completing-read
- "Which function for creating the link? "
- (mapcar #'car results-alist)
- nil t (symbol-name name))
- results-alist)))
- t))))
- (setq link (plist-get org-store-link-plist :link))
- (setq desc (or (plist-get org-store-link-plist :description)
- link)))
-
- ;; Store a link from a source code buffer.
- ((org-src-edit-buffer-p)
- (let ((coderef-format (org-src-coderef-format)))
- (cond ((save-excursion
- (beginning-of-line)
- (looking-at (org-src-coderef-regexp coderef-format)))
- (setq link (format "(%s)" (match-string-no-properties 3))))
- ((called-interactively-p 'any)
- (let ((label (read-string "Code line label: ")))
- (end-of-line)
- (setq link (format coderef-format label))
- (let ((gc (- 79 (length link))))
- (if (< (current-column) gc)
- (org-move-to-column gc t)
- (insert " ")))
- (insert link)
- (setq link (concat "(" label ")"))
- (setq desc nil)))
- (t (setq link nil)))))
-
- ;; We are in the agenda, link to referenced location
- ((equal (bound-and-true-p org-agenda-buffer-name) (buffer-name))
- (let ((m (or (get-text-property (point) 'org-hd-marker)
- (get-text-property (point) 'org-marker))))
- (when m
- (org-with-point-at m
- (setq agenda-link
- (if (called-interactively-p 'any)
- (call-interactively 'org-store-link)
- (org-store-link nil)))))))
-
- ((eq major-mode 'calendar-mode)
- (let ((cd (calendar-cursor-to-date)))
- (setq link
- (format-time-string
- (car org-time-stamp-formats)
- (apply 'encode-time
- (list 0 0 0 (nth 1 cd) (nth 0 cd) (nth 2 cd)
- nil nil nil))))
- (org-store-link-props :type "calendar" :date cd)))
-
- ((eq major-mode 'help-mode)
- (setq link (concat "help:" (save-excursion
- (goto-char (point-min))
- (looking-at "^[^ ]+")
- (match-string 0))))
- (org-store-link-props :type "help"))
-
- ((eq major-mode 'w3-mode)
- (setq cpltxt (if (and (buffer-name)
- (not (string-match "Untitled" (buffer-name))))
- (buffer-name)
- (url-view-url t))
- link (url-view-url t))
- (org-store-link-props :type "w3" :url (url-view-url t)))
-
- ((eq major-mode 'image-mode)
- (setq cpltxt (concat "file:"
- (abbreviate-file-name buffer-file-name))
- link cpltxt)
- (org-store-link-props :type "image" :file buffer-file-name))
-
- ;; In dired, store a link to the file of the current line
- ((derived-mode-p 'dired-mode)
- (let ((file (dired-get-filename nil t)))
- (setq file (if file
- (abbreviate-file-name
- (expand-file-name (dired-get-filename nil t)))
- ;; otherwise, no file so use current directory.
- default-directory))
- (setq cpltxt (concat "file:" file)
- link cpltxt)))
-
- ((setq search (run-hook-with-args-until-success
- 'org-create-file-search-functions))
- (setq link (concat "file:" (abbreviate-file-name buffer-file-name)
- "::" search))
- (setq cpltxt (or description link)))
-
- ((and (buffer-file-name (buffer-base-buffer)) (derived-mode-p 'org-mode))
- (org-with-limited-levels
- (setq custom-id (org-entry-get nil "CUSTOM_ID"))
- (cond
- ;; Store a link using the target at point
- ((org-in-regexp "[^<]<<\\([^<>]+\\)>>[^>]" 1)
- (setq cpltxt
- (concat "file:"
- (abbreviate-file-name
- (buffer-file-name (buffer-base-buffer)))
- "::" (match-string 1))
- link cpltxt))
- ((and (featurep 'org-id)
- (or (eq org-id-link-to-org-use-id t)
- (and (called-interactively-p 'any)
- (or (eq org-id-link-to-org-use-id 'create-if-interactive)
- (and (eq org-id-link-to-org-use-id
- 'create-if-interactive-and-no-custom-id)
- (not custom-id))))
- (and org-id-link-to-org-use-id (org-entry-get nil "ID"))))
- ;; Store a link using the ID at point
- (setq link (condition-case nil
- (prog1 (org-id-store-link)
- (setq desc (or (plist-get org-store-link-plist
- :description)
- "")))
- (error
- ;; Probably before first headline, link only to file
- (concat "file:"
- (abbreviate-file-name
- (buffer-file-name (buffer-base-buffer))))))))
- (t
- ;; Just link to current headline
- (setq cpltxt (concat "file:"
- (abbreviate-file-name
- (buffer-file-name (buffer-base-buffer)))))
- ;; Add a context search string
- (when (org-xor org-context-in-file-links
- (equal arg '(4)))
- (let* ((element (org-element-at-point))
- (name (org-element-property :name element)))
- (setq txt (cond
- ((org-at-heading-p) nil)
- (name)
- ((org-region-active-p)
- (buffer-substring (region-beginning) (region-end)))))
- (when (or (null txt) (string-match "\\S-" txt))
- (setq cpltxt
- (concat cpltxt "::"
- (condition-case nil
- (org-make-org-heading-search-string txt)
- (error "")))
- desc (or name
- (nth 4 (ignore-errors (org-heading-components)))
- "NONE")))))
- (when (string-match "::\\'" cpltxt)
- (setq cpltxt (substring cpltxt 0 -2)))
- (setq link cpltxt)))))
-
- ((buffer-file-name (buffer-base-buffer))
- ;; Just link to this file here.
- (setq cpltxt (concat "file:"
- (abbreviate-file-name
- (buffer-file-name (buffer-base-buffer)))))
- ;; Add a context string.
- (when (org-xor org-context-in-file-links
- (equal arg '(4)))
- (setq txt (if (org-region-active-p)
- (buffer-substring (region-beginning) (region-end))
- (buffer-substring (point-at-bol) (point-at-eol))))
- ;; Only use search option if there is some text.
- (when (string-match "\\S-" txt)
- (setq cpltxt
- (concat cpltxt "::" (org-make-org-heading-search-string txt))
- desc "NONE")))
- (setq link cpltxt))
-
- ((called-interactively-p 'interactive)
- (user-error "No method for storing a link from this buffer"))
-
- (t (setq link nil)))
-
- ;; We're done setting link and desc, clean up
- (when (consp link) (setq cpltxt (car link) link (cdr link)))
- (setq link (or link cpltxt)
- desc (or desc cpltxt))
- (cond ((not desc))
- ((equal desc "NONE") (setq desc nil))
- (t (setq desc
- (replace-regexp-in-string
- org-bracket-link-analytic-regexp
- (lambda (m) (or (match-string 5 m) (match-string 3 m)))
- desc))))
- ;; Return the link
- (if (not (and (or (called-interactively-p 'any)
- executing-kbd-macro)
- link))
- (or agenda-link (and link (org-make-link-string link desc)))
- (push (list link desc) org-stored-links)
- (message "Stored: %s" (or desc link))
- (when custom-id
- (setq link (concat "file:" (abbreviate-file-name
- (buffer-file-name)) "::#" custom-id))
- (push (list link desc) org-stored-links))
- (car org-stored-links)))))
-
-(defun org-store-link-props (&rest plist)
- "Store link properties.
-The properties are pre-processed by extracting names, addresses
-and dates."
- (let ((x (plist-get plist :from)))
- (when x
- (let ((adr (mail-extract-address-components x)))
- (setq plist (plist-put plist :fromname (car adr)))
- (setq plist (plist-put plist :fromaddress (nth 1 adr))))))
- (let ((x (plist-get plist :to)))
- (when x
- (let ((adr (mail-extract-address-components x)))
- (setq plist (plist-put plist :toname (car adr)))
- (setq plist (plist-put plist :toaddress (nth 1 adr))))))
- (let ((x (ignore-errors (date-to-time (plist-get plist :date)))))
- (when x
- (setq plist (plist-put plist :date-timestamp
- (format-time-string
- (org-time-stamp-format t) x)))
- (setq plist (plist-put plist :date-timestamp-inactive
- (format-time-string
- (org-time-stamp-format t t) x)))))
- (let ((from (plist-get plist :from))
- (to (plist-get plist :to)))
- (when (and from to org-from-is-user-regexp)
- (setq plist
- (plist-put plist :fromto
- (if (string-match org-from-is-user-regexp from)
- (concat "to %t")
- (concat "from %f"))))))
- (setq org-store-link-plist plist))
-
-(defun org-add-link-props (&rest plist)
- "Add these properties to the link property list."
- (let (key value)
- (while plist
- (setq key (pop plist) value (pop plist))
- (setq org-store-link-plist
- (plist-put org-store-link-plist key value)))))
-
-(defun org-email-link-description (&optional fmt)
- "Return the description part of an email link.
-This takes information from `org-store-link-plist' and formats it
-according to FMT (default from `org-email-link-description-format')."
- (setq fmt (or fmt org-email-link-description-format))
- (let* ((p org-store-link-plist)
- (to (plist-get p :toaddress))
- (from (plist-get p :fromaddress))
- (table
- (list
- (cons "%c" (plist-get p :fromto))
- (cons "%F" (plist-get p :from))
- (cons "%f" (or (plist-get p :fromname) (plist-get p :fromaddress) "?"))
- (cons "%T" (plist-get p :to))
- (cons "%t" (or (plist-get p :toname) (plist-get p :toaddress) "?"))
- (cons "%s" (plist-get p :subject))
- (cons "%d" (plist-get p :date))
- (cons "%m" (plist-get p :message-id)))))
- (when (string-match "%c" fmt)
- ;; Check if the user wrote this message
- (if (and org-from-is-user-regexp from to
- (save-match-data (string-match org-from-is-user-regexp from)))
- (setq fmt (replace-match "to %t" t t fmt))
- (setq fmt (replace-match "from %f" t t fmt))))
- (org-replace-escapes fmt table)))
-
-(defun org-make-org-heading-search-string (&optional string)
- "Make search string for the current headline or STRING."
- (let ((s (or string
- (and (derived-mode-p 'org-mode)
- (save-excursion
- (org-back-to-heading t)
- (org-element-property :raw-value (org-element-at-point))))))
- (lines org-context-in-file-links))
- (unless string (setq s (concat "*" s))) ;Add * for headlines
- (setq s (replace-regexp-in-string "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" "" s))
- (when (and string (integerp lines) (> lines 0))
- (let ((slines (org-split-string s "\n")))
- (when (< lines (length slines))
- (setq s (mapconcat
- 'identity
- (reverse (nthcdr (- (length slines) lines)
- (reverse slines))) "\n")))))
- (mapconcat #'identity (split-string s) " ")))
-
-(defconst org-link-escape-chars
- ;;%20 %5B %5D %25
- '(?\s ?\[ ?\] ?%)
- "List of characters that should be escaped in a link when stored to Org.
-This is the list that is used for internal purposes.")
-
-(defun org-make-link-string (link &optional description)
- "Make a link with brackets, consisting of LINK and DESCRIPTION."
- (unless (org-string-nw-p link) (error "Empty link"))
- (let ((uri (cond ((string-match org-link-types-re link)
- (concat (match-string 1 link)
- (org-link-escape (substring link (match-end 1)))))
- ((or (file-name-absolute-p link)
- (string-match-p "\\`\\.\\.?/" link))
- (org-link-escape link))
- ;; For readability, do not encode space characters
- ;; in fuzzy links.
- (t (org-link-escape link (remq ?\s org-link-escape-chars)))))
- (description
- (and (org-string-nw-p description)
- ;; Remove brackets from description, as they are fatal.
- (replace-regexp-in-string
- "[][]" (lambda (m) (if (equal "[" m) "{" "}"))
- (org-trim description)))))
- (format "[[%s]%s]"
- uri
- (if description (format "[%s]" description) ""))))
-
-(defun org-link-escape (text &optional table merge)
- "Return percent escaped representation of TEXT.
-TEXT is a string with the text to escape.
-Optional argument TABLE is a list with characters that should be
-escaped. When nil, `org-link-escape-chars' is used.
-If optional argument MERGE is set, merge TABLE into
-`org-link-escape-chars'."
- (let ((characters-to-encode
- (cond ((null table) org-link-escape-chars)
- (merge (append org-link-escape-chars table))
- (t table))))
- (mapconcat
- (lambda (c)
- (if (or (memq c characters-to-encode)
- (and org-url-hexify-p (or (< c 32) (> c 126))))
- (mapconcat (lambda (e) (format "%%%.2X" e))
- (or (encode-coding-char c 'utf-8)
- (error "Unable to percent escape character: %c" c))
- "")
- (char-to-string c)))
- text "")))
-
-(defun org-link-unescape (str)
- "Unhex hexified Unicode parts in string STR.
-E.g. `%C3%B6' becomes the german o-Umlaut. This is the
-reciprocal of `org-link-escape', which see."
- (if (org-string-nw-p str)
- (replace-regexp-in-string
- "\\(%[0-9A-Za-z]\\{2\\}\\)+" #'org-link-unescape-compound str t t)
- str))
-
-(defun org-link-unescape-compound (hex)
- "Unhexify Unicode hex-chars. E.g. `%C3%B6' is the German o-Umlaut.
-Note: this function also decodes single byte encodings like
-`%E1' (a-acute) if not followed by another `%[A-F0-9]{2}' group."
- (save-match-data
- (let* ((bytes (cdr (split-string hex "%")))
- (ret "")
- (eat 0)
- (sum 0))
- (while bytes
- (let* ((val (string-to-number (pop bytes) 16))
- (shift-xor
- (if (= 0 eat)
- (cond
- ((>= val 252) (cons 6 252))
- ((>= val 248) (cons 5 248))
- ((>= val 240) (cons 4 240))
- ((>= val 224) (cons 3 224))
- ((>= val 192) (cons 2 192))
- (t (cons 0 0)))
- (cons 6 128))))
- (when (>= val 192) (setq eat (car shift-xor)))
- (setq val (logxor val (cdr shift-xor)))
- (setq sum (+ (lsh sum (car shift-xor)) val))
- (when (> eat 0) (setq eat (- eat 1)))
- (cond
- ((= 0 eat) ;multi byte
- (setq ret (concat ret (char-to-string sum)))
- (setq sum 0))
- ((not bytes) ; single byte(s)
- (setq ret (org-link-unescape-single-byte-sequence hex))))))
- ret)))
-
-(defun org-link-unescape-single-byte-sequence (hex)
- "Unhexify hex-encoded single byte character sequences."
- (mapconcat (lambda (byte)
- (char-to-string (string-to-number byte 16)))
- (cdr (split-string hex "%")) ""))
-
-(defun org-xor (a b)
- "Exclusive or."
- (if a (not b) b))
-
-(defun org-fixup-message-id-for-http (s)
- "Replace special characters in a message id, so it can be used in an http query."
- (when (string-match "%" s)
- (setq s (mapconcat (lambda (c)
- (if (eq c ?%)
- "%25"
- (char-to-string c)))
- s "")))
- (while (string-match "<" s)
- (setq s (replace-match "%3C" t t s)))
- (while (string-match ">" s)
- (setq s (replace-match "%3E" t t s)))
- (while (string-match "@" s)
- (setq s (replace-match "%40" t t s)))
- s)
-
-(defun org-link-prettify (link)
- "Return a human-readable representation of LINK.
-The car of LINK must be a raw link.
-The cdr of LINK must be either a link description or nil."
- (let ((desc (or (cadr link) "<no description>")))
- (concat (format "%-45s" (substring desc 0 (min (length desc) 40)))
- "<" (car link) ">")))
-
-;;;###autoload
-(defun org-insert-link-global ()
- "Insert a link like Org mode does.
-This command can be called in any mode to insert a link in Org syntax."
- (interactive)
- (org-load-modules-maybe)
- (org-run-like-in-org-mode 'org-insert-link))
-
-(defun org-insert-all-links (arg &optional pre post)
- "Insert all links in `org-stored-links'.
-When a universal prefix, do not delete the links from `org-stored-links'.
-When `ARG' is a number, insert the last N link(s).
-`PRE' and `POST' are optional arguments to define a string to
-prepend or to append."
- (interactive "P")
- (let ((org-keep-stored-link-after-insertion (equal arg '(4)))
- (links (copy-sequence org-stored-links))
- (pr (or pre "- "))
- (po (or post "\n"))
- (cnt 1) l)
- (if (null org-stored-links)
- (message "No link to insert")
- (while (and (or (listp arg) (>= arg cnt))
- (setq l (if (listp arg)
- (pop links)
- (pop org-stored-links))))
- (setq cnt (1+ cnt))
- (insert pr)
- (org-insert-link nil (car l) (or (cadr l) "<no description>"))
- (insert po)))))
-
-(defun org-insert-last-stored-link (arg)
- "Insert the last link stored in `org-stored-links'."
- (interactive "p")
- (org-insert-all-links arg "" "\n"))
-
-(defun org-link-fontify-links-to-this-file ()
- "Fontify links to the current file in `org-stored-links'."
- (let ((f (buffer-file-name)) a b)
- (setq a (mapcar (lambda(l)
- (let ((ll (car l)))
- (when (and (string-match "^file:\\(.+\\)::" ll)
- (equal f (expand-file-name (match-string 1 ll))))
- ll)))
- org-stored-links))
- (when (featurep 'org-id)
- (setq b (mapcar (lambda(l)
- (let ((ll (car l)))
- (when (and (string-match "^id:\\(.+\\)$" ll)
- (equal f (expand-file-name
- (or (org-id-find-id-file
- (match-string 1 ll)) ""))))
- ll)))
- org-stored-links)))
- (mapcar (lambda(l)
- (put-text-property 0 (length l) 'face 'font-lock-comment-face l))
- (delq nil (append a b)))))
-
-(defvar org--links-history nil)
-(defun org-insert-link (&optional complete-file link-location default-description)
- "Insert a link. At the prompt, enter the link.
-
-Completion can be used to insert any of the link protocol prefixes in use.
-
-The history can be used to select a link previously stored with
-`org-store-link'. When the empty string is entered (i.e. if you just
-press `RET' at the prompt), the link defaults to the most recently
-stored link. As `SPC' triggers completion in the minibuffer, you need to
-use `M-SPC' or `C-q SPC' to force the insertion of a space character.
-
-You will also be prompted for a description, and if one is given, it will
-be displayed in the buffer instead of the link.
-
-If there is already a link at point, this command will allow you to edit
-link and description parts.
-
-With a `\\[universal-argument]' prefix, prompts for a file to link to. The \
-file name can be
-selected using completion. The path to the file will be relative to the
-current directory if the file is in the current directory or a subdirectory.
-Otherwise, the link will be the absolute path as completed in the minibuffer
-\(i.e. normally ~/path/to/file). You can configure this behavior using the
-option `org-link-file-path-type'.
-
-With a `\\[universal-argument] \\[universal-argument]' prefix, enforce an \
-absolute path even if the file is in
-the current directory or below.
-
-A `\\[universal-argument] \\[universal-argument] \\[universal-argument]' \
-prefix negates `org-keep-stored-link-after-insertion'.
-
-If the LINK-LOCATION parameter is non-nil, this value will be used as
-the link location instead of reading one interactively.
-
-If the DEFAULT-DESCRIPTION parameter is non-nil, this value will
-be used as the default description. Otherwise, if
-`org-make-link-description-function' is non-nil, this function
-will be called with the link target, and the result will be the
-default link description."
- (interactive "P")
- (let* ((wcf (current-window-configuration))
- (origbuf (current-buffer))
- (region (when (org-region-active-p)
- (buffer-substring (region-beginning) (region-end))))
- (remove (and region (list (region-beginning) (region-end))))
- (desc region)
- (link link-location)
- (abbrevs org-link-abbrev-alist-local)
- entry all-prefixes auto-desc)
- (cond
- (link-location) ; specified by arg, just use it.
- ((org-in-regexp org-bracket-link-regexp 1)
- ;; We do have a link at point, and we are going to edit it.
- (setq remove (list (match-beginning 0) (match-end 0)))
- (setq desc (when (match-end 3) (match-string-no-properties 3)))
- (setq link (read-string "Link: "
- (org-link-unescape
- (match-string-no-properties 1)))))
- ((or (org-in-regexp org-angle-link-re)
- (org-in-regexp org-plain-link-re))
- ;; Convert to bracket link
- (setq remove (list (match-beginning 0) (match-end 0))
- link (read-string "Link: "
- (org-unbracket-string "<" ">" (match-string 0)))))
- ((member complete-file '((4) (16)))
- ;; Completing read for file names.
- (setq link (org-file-complete-link complete-file)))
- (t
- ;; Read link, with completion for stored links.
- (org-link-fontify-links-to-this-file)
- (org-switch-to-buffer-other-window "*Org Links*")
- (with-current-buffer "*Org Links*"
- (erase-buffer)
- (insert "Insert a link.
-Use TAB to complete link prefixes, then RET for type-specific completion support\n")
- (when org-stored-links
- (insert "\nStored links are available with <up>/<down> or M-p/n (most recent with RET):\n\n")
- (insert (mapconcat 'org-link-prettify
- (reverse org-stored-links) "\n")))
- (goto-char (point-min)))
- (let ((cw (selected-window)))
- (select-window (get-buffer-window "*Org Links*" 'visible))
- (with-current-buffer "*Org Links*" (setq truncate-lines t))
- (unless (pos-visible-in-window-p (point-max))
- (org-fit-window-to-buffer))
- (and (window-live-p cw) (select-window cw)))
- (setq all-prefixes (append (mapcar 'car abbrevs)
- (mapcar 'car org-link-abbrev-alist)
- (org-link-types)))
- (unwind-protect
- ;; Fake a link history, containing the stored links.
- (let ((org--links-history
- (append (mapcar #'car org-stored-links)
- org-insert-link-history)))
- (setq link
- (org-completing-read
- "Link: "
- (append
- (mapcar (lambda (x) (concat x ":")) all-prefixes)
- (mapcar #'car org-stored-links))
- nil nil nil
- 'org--links-history
- (caar org-stored-links)))
- (unless (org-string-nw-p link) (user-error "No link selected"))
- (dolist (l org-stored-links)
- (when (equal link (cadr l))
- (setq link (car l))
- (setq auto-desc t)))
- (when (or (member link all-prefixes)
- (and (equal ":" (substring link -1))
- (member (substring link 0 -1) all-prefixes)
- (setq link (substring link 0 -1))))
- (setq link (with-current-buffer origbuf
- (org-link-try-special-completion link)))))
- (set-window-configuration wcf)
- (kill-buffer "*Org Links*"))
- (setq entry (assoc link org-stored-links))
- (or entry (push link org-insert-link-history))
- (setq desc (or desc (nth 1 entry)))))
-
- (when (funcall (if (equal complete-file '(64)) 'not 'identity)
- (not org-keep-stored-link-after-insertion))
- (setq org-stored-links (delq (assoc link org-stored-links)
- org-stored-links)))
-
- (when (and (string-match org-plain-link-re link)
- (not (string-match org-ts-regexp link)))
- ;; URL-like link, normalize the use of angular brackets.
- (setq link (org-unbracket-string "<" ">" link)))
-
- ;; Check if we are linking to the current file with a search
- ;; option If yes, simplify the link by using only the search
- ;; option.
- (when (and buffer-file-name
- (let ((case-fold-search nil))
- (string-match "\\`file:\\(.+?\\)::" link)))
- (let ((path (match-string-no-properties 1 link))
- (search (substring-no-properties link (match-end 0))))
- (save-match-data
- (when (equal (file-truename buffer-file-name) (file-truename path))
- ;; We are linking to this same file, with a search option
- (setq link search)))))
-
- ;; Check if we can/should use a relative path. If yes, simplify
- ;; the link.
- (let ((case-fold-search nil))
- (when (string-match "\\`\\(file\\|docview\\):" link)
- (let* ((type (match-string-no-properties 0 link))
- (path-start (match-end 0))
- (search (and (string-match "::\\(.*\\)\\'" link)
- (match-string 1 link)))
- (path
- (if search
- (substring-no-properties
- link path-start (match-beginning 0))
- (substring-no-properties link (match-end 0))))
- (origpath path))
- (cond
- ((or (eq org-link-file-path-type 'absolute)
- (equal complete-file '(16)))
- (setq path (abbreviate-file-name (expand-file-name path))))
- ((eq org-link-file-path-type 'noabbrev)
- (setq path (expand-file-name path)))
- ((eq org-link-file-path-type 'relative)
- (setq path (file-relative-name path)))
- (t
- (save-match-data
- (if (string-match (concat "^" (regexp-quote
- (expand-file-name
- (file-name-as-directory
- default-directory))))
- (expand-file-name path))
- ;; We are linking a file with relative path name.
- (setq path (substring (expand-file-name path)
- (match-end 0)))
- (setq path (abbreviate-file-name (expand-file-name path)))))))
- (setq link (concat type path (and search (concat "::" search))))
- (when (equal desc origpath)
- (setq desc path)))))
-
- (unless auto-desc
- (let ((initial-input
- (cond
- (default-description)
- ((not org-make-link-description-function) desc)
- (t (condition-case nil
- (funcall org-make-link-description-function link desc)
- (error
- (message "Can't get link description from `%s'"
- (symbol-name org-make-link-description-function))
- (sit-for 2)
- nil))))))
- (setq desc (read-string "Description: " initial-input))))
-
- (unless (string-match "\\S-" desc) (setq desc nil))
- (when remove (apply 'delete-region remove))
- (insert (org-make-link-string link desc))
- ;; Redisplay so as the new link has proper invisible characters.
- (sit-for 0)))
-
-(defun org-link-try-special-completion (type)
- "If there is completion support for link type TYPE, offer it."
- (let ((fun (org-link-get-parameter type :complete)))
- (if (functionp fun)
- (funcall fun)
- (read-string "Link (no completion support): " (concat type ":")))))
-
-(defun org-file-complete-link (&optional arg)
- "Create a file link using completion."
- (let ((file (read-file-name "File: "))
- (pwd (file-name-as-directory (expand-file-name ".")))
- (pwd1 (file-name-as-directory (abbreviate-file-name
- (expand-file-name ".")))))
- (cond ((equal arg '(16))
- (concat "file:"
- (abbreviate-file-name (expand-file-name file))))
- ((string-match
- (concat "^" (regexp-quote pwd1) "\\(.+\\)") file)
- (concat "file:" (match-string 1 file)))
- ((string-match
- (concat "^" (regexp-quote pwd) "\\(.+\\)")
- (expand-file-name file))
- (concat "file:"
- (match-string 1 (expand-file-name file))))
- (t (concat "file:" file)))))
-
-(defun org-completing-read (&rest args)
- "Completing-read with SPACE being a normal character."
- (let ((enable-recursive-minibuffers t)
- (minibuffer-local-completion-map
- (copy-keymap minibuffer-local-completion-map)))
- (org-defkey minibuffer-local-completion-map " " 'self-insert-command)
- (org-defkey minibuffer-local-completion-map "?" 'self-insert-command)
- (org-defkey minibuffer-local-completion-map (kbd "C-c !")
- 'org-time-stamp-inactive)
- (apply #'completing-read args)))
-
-;;; Opening/following a link
-
-(defvar org-link-search-failed nil)
-
-(defvar org-open-link-functions nil
- "Hook for functions finding a plain text link.
-These functions must take a single argument, the link content.
-They will be called for links that look like [[link text][description]]
-when LINK TEXT does not have a protocol like \"http:\" and does not look
-like a filename (e.g. \"./blue.png\").
-
-These functions will be called *before* Org attempts to resolve the
-link by doing text searches in the current buffer - so if you want a
-link \"[[target]]\" to still find \"<<target>>\", your function should
-handle this as a special case.
-
-When the function does handle the link, it must return a non-nil value.
-If it decides that it is not responsible for this link, it must return
-nil to indicate that that Org can continue with other options like
-exact and fuzzy text search.")
-
-(defun org-next-link (&optional search-backward)
- "Move forward to the next link.
-If the link is in hidden text, expose it."
- (interactive "P")
- (when (and org-link-search-failed (eq this-command last-command))
- (goto-char (point-min))
- (message "Link search wrapped back to beginning of buffer"))
- (setq org-link-search-failed nil)
- (let* ((pos (point))
- (ct (org-context))
- (a (assq :link ct))
- (srch-fun (if search-backward 're-search-backward 're-search-forward)))
- (cond (a (goto-char (nth (if search-backward 1 2) a)))
- ((looking-at org-any-link-re)
- ;; Don't stay stuck at link without an org-link face
- (forward-char (if search-backward -1 1))))
- (if (funcall srch-fun org-any-link-re nil t)
- (progn
- (goto-char (match-beginning 0))
- (when (org-invisible-p) (org-show-context)))
- (goto-char pos)
- (setq org-link-search-failed t)
- (message "No further link found"))))
-
-(defun org-previous-link ()
- "Move backward to the previous link.
-If the link is in hidden text, expose it."
- (interactive)
- (funcall 'org-next-link t))
-
-(defun org-translate-link (s)
- "Translate a link string if a translation function has been defined."
- (with-temp-buffer
- (insert (org-trim s))
- (org-trim (org-element-interpret-data (org-element-context)))))
-
-(defun org-translate-link-from-planner (type path)
- "Translate a link from Emacs Planner syntax so that Org can follow it.
-This is still an experimental function, your mileage may vary."
- (cond
- ((member type '("http" "https" "news" "ftp"))
- ;; standard Internet links are the same.
- nil)
- ((and (equal type "irc") (string-match "^//" path))
- ;; Planner has two / at the beginning of an irc link, we have 1.
- ;; We should have zero, actually....
- (setq path (substring path 1)))
- ((and (equal type "lisp") (string-match "^/" path))
- ;; Planner has a slash, we do not.
- (setq type "elisp" path (substring path 1)))
- ((string-match "^//\\(.?*\\)/\\(<.*>\\)$" path)
- ;; A typical message link. Planner has the id after the final slash,
- ;; we separate it with a hash mark
- (setq path (concat (match-string 1 path) "#"
- (org-unbracket-string "<" ">" (match-string 2 path))))))
- (cons type path))
-
-(defun org-find-file-at-mouse (ev)
- "Open file link or URL at mouse."
- (interactive "e")
- (mouse-set-point ev)
- (org-open-at-point 'in-emacs))
-
-(defun org-open-at-mouse (ev)
- "Open file link or URL at mouse.
-See the docstring of `org-open-file' for details."
- (interactive "e")
- (mouse-set-point ev)
- (when (eq major-mode 'org-agenda-mode)
- (org-agenda-copy-local-variable 'org-link-abbrev-alist-local))
- (org-open-at-point))
-
-(defvar org-window-config-before-follow-link nil
- "The window configuration before following a link.
-This is saved in case the need arises to restore it.")
-
-;;;###autoload
-(defun org-open-at-point-global ()
- "Follow a link or time-stamp like Org mode does.
-This command can be called in any mode to follow an external link
-or a time-stamp that has Org mode syntax. Its behavior is
-undefined when called on internal links (e.g., fuzzy links).
-Raise an error when there is nothing to follow. "
- (interactive)
- (cond ((org-in-regexp org-any-link-re)
- (org-open-link-from-string (match-string-no-properties 0)))
- ((or (org-in-regexp org-ts-regexp-both nil t)
- (org-in-regexp org-tsr-regexp-both nil t))
- (org-follow-timestamp-link))
- (t (user-error "No link found"))))
-
-;;;###autoload
-(defun org-open-link-from-string (s &optional arg reference-buffer)
- "Open a link in the string S, as if it was in Org mode."
- (interactive "sLink: \nP")
- (let ((reference-buffer (or reference-buffer (current-buffer))))
- (with-temp-buffer
- (let ((org-inhibit-startup (not reference-buffer)))
- (org-mode)
- (insert s)
- (goto-char (point-min))
- (when reference-buffer
- (setq org-link-abbrev-alist-local
- (with-current-buffer reference-buffer
- org-link-abbrev-alist-local)))
- (org-open-at-point arg reference-buffer)))))
-
-(defvar org-open-at-point-functions nil
- "Hook that is run when following a link at point.
-
-Functions in this hook must return t if they identify and follow
-a link at point. If they don't find anything interesting at point,
-they must return nil.")
-
-(defvar org-link-search-inhibit-query nil)
-(defvar clean-buffer-list-kill-buffer-names) ;Defined in midnight.el
-(defun org--open-doi-link (path)
- "Open a \"doi\" type link.
-PATH is a the path to search for, as a string."
- (browse-url (url-encode-url (concat org-doi-server-url path))))
-
-(defun org--open-elisp-link (path)
- "Open a \"elisp\" type link.
-PATH is the sexp to evaluate, as a string."
- (let ((cmd path))
- (if (or (and (org-string-nw-p
- org-confirm-elisp-link-not-regexp)
- (string-match-p org-confirm-elisp-link-not-regexp cmd))
- (not org-confirm-elisp-link-function)
- (funcall org-confirm-elisp-link-function
- (format "Execute \"%s\" as elisp? "
- (org-add-props cmd nil 'face 'org-warning))))
- (message "%s => %s" cmd
- (if (eq (string-to-char cmd) ?\()
- (eval (read cmd))
- (call-interactively (read cmd))))
- (user-error "Abort"))))
-
-(defun org--open-help-link (path)
- "Open a \"help\" type link.
-PATH is a symbol name, as a string."
- (pcase (intern path)
- ((and (pred fboundp) variable) (describe-function variable))
- ((and (pred boundp) function) (describe-variable function))
- (name (user-error "Unknown function or variable: %s" name))))
-
-(defun org--open-shell-link (path)
- "Open a \"shell\" type link.
-PATH is the command to execute, as a string."
- (let ((buf (generate-new-buffer "*Org Shell Output*"))
- (cmd path))
- (if (or (and (org-string-nw-p
- org-confirm-shell-link-not-regexp)
- (string-match
- org-confirm-shell-link-not-regexp cmd))
- (not org-confirm-shell-link-function)
- (funcall org-confirm-shell-link-function
- (format "Execute \"%s\" in shell? "
- (org-add-props cmd nil
- 'face 'org-warning))))
- (progn
- (message "Executing %s" cmd)
- (shell-command cmd buf)
- (when (featurep 'midnight)
- (setq clean-buffer-list-kill-buffer-names
- (cons (buffer-name buf)
- clean-buffer-list-kill-buffer-names))))
- (user-error "Abort"))))
-
-(defun org-open-at-point (&optional arg reference-buffer)
- "Open link, timestamp, footnote or tags at point.
-
-When point is on a link, follow it. Normally, files will be
-opened by an appropriate application. If the optional prefix
-argument ARG is non-nil, Emacs will visit the file. With
-a double prefix argument, try to open outside of Emacs, in the
-application the system uses for this file type.
-
-When point is on a timestamp, open the agenda at the day
-specified.
-
-When point is a footnote definition, move to the first reference
-found. If it is on a reference, move to the associated
-definition.
-
-When point is on a headline, display a list of every link in the
-entry, so it is possible to pick one, or all, of them. If point
-is on a tag, call `org-tags-view' instead.
-
-When optional argument REFERENCE-BUFFER is non-nil, it should
-specify a buffer from where the link search should happen. This
-is used internally by `org-open-link-from-string'.
-
-On top of syntactically correct links, this function will also
-try to open links and time-stamps in comments, example
-blocks... i.e., whenever point is on something looking like
-a timestamp or a link."
- (interactive "P")
- ;; On a code block, open block's results.
- (unless (call-interactively 'org-babel-open-src-block-result)
- (org-load-modules-maybe)
- (setq org-window-config-before-follow-link (current-window-configuration))
- (org-remove-occur-highlights nil nil t)
- (unless (run-hook-with-args-until-success 'org-open-at-point-functions)
- (let* ((context
- ;; Only consider supported types, even if they are not
- ;; the closest one.
- (org-element-lineage
- (org-element-context)
- '(clock footnote-definition footnote-reference headline
- inlinetask link timestamp)
- t))
- (type (org-element-type context))
- (value (org-element-property :value context)))
- (cond
- ;; On a headline or an inlinetask, but not on a timestamp,
- ;; a link, a footnote reference.
- ((memq type '(headline inlinetask))
- (org-match-line org-complex-heading-regexp)
- (if (and (match-beginning 5)
- (>= (point) (match-beginning 5))
- (< (point) (match-end 5)))
- ;; On tags.
- (org-tags-view arg (substring (match-string 5) 0 -1))
- ;; Not on tags.
- (pcase (org-offer-links-in-entry (current-buffer) (point) arg)
- (`(nil . ,_)
- (require 'org-attach)
- (org-attach-reveal 'if-exists))
- (`(,links . ,links-end)
- (dolist (link (if (stringp links) (list links) links))
- (search-forward link nil links-end)
- (goto-char (match-beginning 0))
- (org-open-at-point))))))
- ;; On a footnote reference or at definition's label.
- ((or (eq type 'footnote-reference)
- (and (eq type 'footnote-definition)
- (save-excursion
- ;; Do not validate action when point is on the
- ;; spaces right after the footnote label, in
- ;; order to be on par with behavior on links.
- (skip-chars-forward " \t")
- (let ((begin
- (org-element-property :contents-begin context)))
- (if begin (< (point) begin)
- (= (org-element-property :post-affiliated context)
- (line-beginning-position)))))))
- (org-footnote-action))
- ;; No valid context. Ignore catch-all types like `headline'.
- ;; If point is on something looking like a link or
- ;; a time-stamp, try opening it. It may be useful in
- ;; comments, example blocks...
- ((memq type '(footnote-definition headline inlinetask nil))
- (call-interactively #'org-open-at-point-global))
- ;; On a clock line, make sure point is on the timestamp
- ;; before opening it.
- ((and (eq type 'clock)
- value
- (>= (point) (org-element-property :begin value))
- (<= (point) (org-element-property :end value)))
- (org-follow-timestamp-link))
- ;; Do nothing on white spaces after an object.
- ((>= (point)
- (save-excursion
- (goto-char (org-element-property :end context))
- (skip-chars-backward " \t")
- (point)))
- (user-error "No link found"))
- ((eq type 'timestamp) (org-follow-timestamp-link))
- ((eq type 'link)
- (let ((type (org-element-property :type context))
- (path (org-link-unescape (org-element-property :path context))))
- ;; Switch back to REFERENCE-BUFFER needed when called in
- ;; a temporary buffer through `org-open-link-from-string'.
- (with-current-buffer (or reference-buffer (current-buffer))
- (cond
- ((equal type "file")
- (if (string-match "[*?{]" (file-name-nondirectory path))
- (dired path)
- ;; Look into `org-link-parameters' in order to find
- ;; a DEDICATED-FUNCTION to open file. The function
- ;; will be applied on raw link instead of parsed
- ;; link due to the limitation in `org-add-link-type'
- ;; ("open" function called with a single argument).
- ;; If no such function is found, fallback to
- ;; `org-open-file'.
- (let* ((option (org-element-property :search-option context))
- (app (org-element-property :application context))
- (dedicated-function
- (org-link-get-parameter
- (if app (concat type "+" app) type)
- :follow)))
- (if dedicated-function
- (funcall dedicated-function
- (concat path
- (and option (concat "::" option))))
- (apply #'org-open-file
- path
- (cond (arg)
- ((equal app "emacs") 'emacs)
- ((equal app "sys") 'system))
- (cond ((not option) nil)
- ((string-match-p "\\`[0-9]+\\'" option)
- (list (string-to-number option)))
- (t (list nil
- (org-link-unescape option)))))))))
- ((functionp (org-link-get-parameter type :follow))
- (funcall (org-link-get-parameter type :follow) path))
- ((member type '("coderef" "custom-id" "fuzzy" "radio"))
- (unless (run-hook-with-args-until-success
- 'org-open-link-functions path)
- (if (not arg) (org-mark-ring-push)
- (switch-to-buffer-other-window
- (org-get-buffer-for-internal-link (current-buffer))))
- (let ((destination
- (org-with-wide-buffer
- (if (equal type "radio")
- (org-search-radio-target
- (org-element-property :path context))
- (org-link-search
- (if (member type '("custom-id" "coderef"))
- (org-element-property :raw-link context)
- path)
- ;; Prevent fuzzy links from matching
- ;; themselves.
- (and (equal type "fuzzy")
- (+ 2 (org-element-property :begin context)))))
- (point))))
- (unless (and (<= (point-min) destination)
- (>= (point-max) destination))
- (widen))
- (goto-char destination))))
- (t (browse-url-at-point))))))
- (t (user-error "No link found")))))
- (run-hook-with-args 'org-follow-link-hook)))
-
-(defun org-offer-links-in-entry (buffer marker &optional nth zero)
- "Offer links in the current entry and return the selected link.
-If there is only one link, return it.
-If NTH is an integer, return the NTH link found.
-If ZERO is a string, check also this string for a link, and if
-there is one, return it."
- (with-current-buffer buffer
- (org-with-wide-buffer
- (goto-char marker)
- (let ((cnt ?0)
- have-zero end links link c)
- (when (and (stringp zero) (string-match org-bracket-link-regexp zero))
- (push (match-string 0 zero) links)
- (setq cnt (1- cnt) have-zero t))
- (save-excursion
- (org-back-to-heading t)
- (setq end (save-excursion (outline-next-heading) (point)))
- (while (re-search-forward org-any-link-re end t)
- (push (match-string 0) links))
- (setq links (org-uniquify (reverse links))))
- (cond
- ((null links)
- (message "No links"))
- ((equal (length links) 1)
- (setq link (car links)))
- ((and (integerp nth) (>= (length links) (if have-zero (1+ nth) nth)))
- (setq link (nth (if have-zero nth (1- nth)) links)))
- (t ; we have to select a link
- (save-excursion
- (save-window-excursion
- (delete-other-windows)
- (with-output-to-temp-buffer "*Select Link*"
- (dolist (l links)
- (cond
- ((not (string-match org-bracket-link-regexp l))
- (princ (format "[%c] %s\n" (cl-incf cnt)
- (org-unbracket-string "<" ">" l))))
- ((match-end 3)
- (princ (format "[%c] %s (%s)\n" (cl-incf cnt)
- (match-string 3 l) (match-string 1 l))))
- (t (princ (format "[%c] %s\n" (cl-incf cnt)
- (match-string 1 l)))))))
- (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
- (message "Select link to open, RET to open all:")
- (setq c (read-char-exclusive))
- (and (get-buffer "*Select Link*") (kill-buffer "*Select Link*"))))
- (when (equal c ?q) (user-error "Abort"))
- (if (equal c ?\C-m)
- (setq link links)
- (setq nth (- c ?0))
- (when have-zero (setq nth (1+ nth)))
- (unless (and (integerp nth) (>= (length links) nth))
- (user-error "Invalid link selection"))
- (setq link (nth (1- nth) links)))))
- (cons link end)))))
-
-;; TODO: These functions are deprecated since `org-open-at-point'
-;; hard-codes behavior for "file+emacs" and "file+sys" types.
-(defun org-open-file-with-system (path)
- "Open file at PATH using the system way of opening it."
- (org-open-file path 'system))
-(defun org-open-file-with-emacs (path)
- "Open file at PATH in Emacs."
- (org-open-file path 'emacs))
-
-
-;;; File search
-
-(defvar org-create-file-search-functions nil
- "List of functions to construct the right search string for a file link.
-These functions are called in turn with point at the location to
-which the link should point.
-
-A function in the hook should first test if it would like to
-handle this file type, for example by checking the `major-mode'
-or the file extension. If it decides not to handle this file, it
-should just return nil to give other functions a chance. If it
-does handle the file, it must return the search string to be used
-when following the link. The search string will be part of the
-file link, given after a double colon, and `org-open-at-point'
-will automatically search for it. If special measures must be
-taken to make the search successful, another function should be
-added to the companion hook `org-execute-file-search-functions',
-which see.
-
-A function in this hook may also use `setq' to set the variable
-`description' to provide a suggestion for the descriptive text to
-be used for this link when it gets inserted into an Org buffer
-with \\[org-insert-link].")
-
-(defvar org-execute-file-search-functions nil
- "List of functions to execute a file search triggered by a link.
-
-Functions added to this hook must accept a single argument, the
-search string that was part of the file link, the part after the
-double colon. The function must first check if it would like to
-handle this search, for example by checking the `major-mode' or
-the file extension. If it decides not to handle this search, it
-should just return nil to give other functions a chance. If it
-does handle the search, it must return a non-nil value to keep
-other functions from trying.
-
-Each function can access the current prefix argument through the
-variable `current-prefix-arg'. Note that a single prefix is used
-to force opening a link in Emacs, so it may be good to only use a
-numeric or double prefix to guide the search function.
-
-In case this is needed, a function in this hook can also restore
-the window configuration before `org-open-at-point' was called using:
-
- (set-window-configuration org-window-config-before-follow-link)")
-
-(defun org-search-radio-target (target)
- "Search a radio target matching TARGET in current buffer.
-White spaces are not significant."
- (let ((re (format "<<<%s>>>"
- (mapconcat #'regexp-quote
- (split-string target)
- "[ \t]+\\(?:\n[ \t]*\\)?")))
- (origin (point)))
- (goto-char (point-min))
- (catch :radio-match
- (while (re-search-forward re nil t)
- (backward-char)
- (let ((object (org-element-context)))
- (when (eq (org-element-type object) 'radio-target)
- (goto-char (org-element-property :begin object))
- (org-show-context 'link-search)
- (throw :radio-match nil))))
- (goto-char origin)
- (user-error "No match for radio target: %s" target))))
-
-(defun org-link-search (s &optional avoid-pos stealth)
- "Search for a search string S.
-
-If S starts with \"#\", it triggers a custom ID search.
-
-If S is enclosed within parenthesis, it initiates a coderef
-search.
-
-If S is surrounded by forward slashes, it is interpreted as
-a regular expression. In Org mode files, this will create an
-`org-occur' sparse tree. In ordinary files, `occur' will be used
-to list matches. If the current buffer is in `dired-mode', grep
-will be used to search in all files.
-
-When AVOID-POS is given, ignore matches near that position.
-
-When optional argument STEALTH is non-nil, do not modify
-visibility around point, thus ignoring `org-show-context-detail'
-variable.
-
-Search is case-insensitive and ignores white spaces. Return type
-of matched result, which is either `dedicated' or `fuzzy'."
- (unless (org-string-nw-p s) (error "Invalid search string \"%s\"" s))
- (let* ((case-fold-search t)
- (origin (point))
- (normalized (replace-regexp-in-string "\n[ \t]*" " " s))
- (starred (eq (string-to-char normalized) ?*))
- (words (split-string (if starred (substring s 1) s)))
- (s-multi-re (mapconcat #'regexp-quote words "\\(?:[ \t\n]+\\)"))
- (s-single-re (mapconcat #'regexp-quote words "[ \t]+"))
- type)
- (cond
- ;; Check if there are any special search functions.
- ((run-hook-with-args-until-success 'org-execute-file-search-functions s))
- ((eq (string-to-char s) ?#)
- ;; Look for a custom ID S if S starts with "#".
- (let* ((id (substring normalized 1))
- (match (org-find-property "CUSTOM_ID" id)))
- (if match (progn (goto-char match) (setf type 'dedicated))
- (error "No match for custom ID: %s" id))))
- ((string-match "\\`(\\(.*\\))\\'" normalized)
- ;; Look for coderef targets if S is enclosed within parenthesis.
- (let ((coderef (match-string-no-properties 1 normalized))
- (re (substring s-single-re 1 -1)))
- (goto-char (point-min))
- (catch :coderef-match
- (while (re-search-forward re nil t)
- (let ((element (org-element-at-point)))
- (when (and (memq (org-element-type element)
- '(example-block src-block))
- ;; Build proper regexp according to current
- ;; block's label format.
- (let ((label-fmt
- (regexp-quote
- (or (org-element-property :label-fmt element)
- org-coderef-label-format))))
- (save-excursion
- (beginning-of-line)
- (looking-at (format ".*?\\(%s\\)[ \t]*$"
- (format label-fmt coderef))))))
- (setq type 'dedicated)
- (goto-char (match-beginning 1))
- (throw :coderef-match nil))))
- (goto-char origin)
- (error "No match for coderef: %s" coderef))))
- ((string-match "\\`/\\(.*\\)/\\'" normalized)
- ;; Look for a regular expression.
- (funcall (if (derived-mode-p 'org-mode) #'org-occur #'org-do-occur)
- (match-string 1 s)))
- ;; From here, we handle fuzzy links.
- ;;
- ;; Look for targets, only if not in a headline search.
- ((and (not starred)
- (let ((target (format "<<%s>>" s-multi-re)))
- (catch :target-match
- (goto-char (point-min))
- (while (re-search-forward target nil t)
- (backward-char)
- (let ((context (org-element-context)))
- (when (eq (org-element-type context) 'target)
- (setq type 'dedicated)
- (goto-char (org-element-property :begin context))
- (throw :target-match t))))
- nil))))
- ;; Look for elements named after S, only if not in a headline
- ;; search.
- ((and (not starred)
- (let ((name (format "^[ \t]*#\\+NAME: +%s[ \t]*$" s-single-re)))
- (catch :name-match
- (goto-char (point-min))
- (while (re-search-forward name nil t)
- (let ((element (org-element-at-point)))
- (when (equal words
- (split-string
- (org-element-property :name element)))
- (setq type 'dedicated)
- (beginning-of-line)
- (throw :name-match t))))
- nil))))
- ;; Regular text search. Prefer headlines in Org mode buffers.
- ;; Ignore COMMENT keyword, TODO keywords, priority cookies,
- ;; statistics cookies and tags.
- ((and (derived-mode-p 'org-mode)
- (let ((title-re
- (format "%s.*\\(?:%s[ \t]\\)?.*%s"
- org-outline-regexp-bol
- org-comment-string
- (mapconcat #'regexp-quote words ".+")))
- (cookie-re "\\[[0-9]*\\(?:%\\|/[0-9]*\\)\\]")
- (comment-re (eval-when-compile
- (format "\\`%s[ \t]+" org-comment-string))))
- (goto-char (point-min))
- (catch :found
- (while (re-search-forward title-re nil t)
- (when (equal words
- (split-string
- (replace-regexp-in-string
- cookie-re ""
- (replace-regexp-in-string
- comment-re "" (org-get-heading t t t)))))
- (throw :found t)))
- nil)))
- (beginning-of-line)
- (setq type 'dedicated))
- ;; Offer to create non-existent headline depending on
- ;; `org-link-search-must-match-exact-headline'.
- ((and (derived-mode-p 'org-mode)
- (not org-link-search-inhibit-query)
- (eq org-link-search-must-match-exact-headline 'query-to-create)
- (yes-or-no-p "No match - create this as a new heading? "))
- (goto-char (point-max))
- (unless (bolp) (newline))
- (org-insert-heading nil t t)
- (insert s "\n")
- (beginning-of-line 0))
- ;; Only headlines are looked after. No need to process
- ;; further: throw an error.
- ((and (derived-mode-p 'org-mode)
- (or starred org-link-search-must-match-exact-headline))
- (goto-char origin)
- (error "No match for fuzzy expression: %s" normalized))
- ;; Regular text search.
- ((catch :fuzzy-match
- (goto-char (point-min))
- (while (re-search-forward s-multi-re nil t)
- ;; Skip match if it contains AVOID-POS or it is included in
- ;; a link with a description but outside the description.
- (unless (or (and avoid-pos
- (<= (match-beginning 0) avoid-pos)
- (> (match-end 0) avoid-pos))
- (and (save-match-data
- (org-in-regexp org-bracket-link-regexp))
- (match-beginning 3)
- (or (> (match-beginning 3) (point))
- (<= (match-end 3) (point)))
- (org-element-lineage
- (save-match-data (org-element-context))
- '(link) t)))
- (goto-char (match-beginning 0))
- (setq type 'fuzzy)
- (throw :fuzzy-match t)))
- nil))
- ;; All failed. Throw an error.
- (t (goto-char origin)
- (error "No match for fuzzy expression: %s" normalized)))
- ;; Disclose surroundings of match, if appropriate.
- (when (and (derived-mode-p 'org-mode) (not stealth))
- (org-show-context 'link-search))
- type))
-
-(defun org-get-buffer-for-internal-link (buffer)
- "Return a buffer to be used for displaying the link target of internal links."
- (cond
- ((not org-display-internal-link-with-indirect-buffer)
- buffer)
- ((string-suffix-p "(Clone)" (buffer-name buffer))
- (message "Buffer is already a clone, not making another one")
- ;; we also do not modify visibility in this case
- buffer)
- (t ; make a new indirect buffer for displaying the link
- (let* ((bn (buffer-name buffer))
- (ibn (concat bn "(Clone)"))
- (ib (or (get-buffer ibn) (make-indirect-buffer buffer ibn 'clone))))
- (with-current-buffer ib (org-overview))
- ib))))
-
-(defun org-do-occur (regexp &optional cleanup)
- "Call the Emacs command `occur'.
-If CLEANUP is non-nil, remove the printout of the regular expression
-in the *Occur* buffer. This is useful if the regex is long and not useful
-to read."
- (occur regexp)
- (when cleanup
- (let ((cwin (selected-window)) win beg end)
- (when (setq win (get-buffer-window "*Occur*"))
- (select-window win))
- (goto-char (point-min))
- (when (re-search-forward "match[a-z]+" nil t)
- (setq beg (match-end 0))
- (when (re-search-forward "^[ \t]*[0-9]+" nil t)
- (setq end (1- (match-beginning 0)))))
- (and beg end (let ((inhibit-read-only t)) (delete-region beg end)))
- (goto-char (point-min))
- (select-window cwin))))
-
-;;; The mark ring for links jumps
-
-(defvar org-mark-ring nil
- "Mark ring for positions before jumps in Org mode.")
-(defvar org-mark-ring-last-goto nil
- "Last position in the mark ring used to go back.")
-;; Fill and close the ring
-(setq org-mark-ring nil org-mark-ring-last-goto nil) ;; in case file is reloaded
-(dotimes (_ org-mark-ring-length)
- (push (make-marker) org-mark-ring))
-(setcdr (nthcdr (1- org-mark-ring-length) org-mark-ring)
- org-mark-ring)
-
-(defun org-mark-ring-push (&optional pos buffer)
- "Put the current position or POS into the mark ring and rotate it."
- (interactive)
- (setq pos (or pos (point)))
- (setq org-mark-ring (nthcdr (1- org-mark-ring-length) org-mark-ring))
- (move-marker (car org-mark-ring)
- (or pos (point))
- (or buffer (current-buffer)))
- (message "%s"
- (substitute-command-keys
- "Position saved to mark ring, go back with \
-`\\[org-mark-ring-goto]'.")))
-
-(defun org-mark-ring-goto (&optional n)
- "Jump to the previous position in the mark ring.
-With prefix arg N, jump back that many stored positions. When
-called several times in succession, walk through the entire ring.
-Org mode commands jumping to a different position in the current file,
-or to another Org file, automatically push the old position onto the ring."
- (interactive "p")
- (let (p m)
- (if (eq last-command this-command)
- (setq p (nthcdr n (or org-mark-ring-last-goto org-mark-ring)))
- (setq p org-mark-ring))
- (setq org-mark-ring-last-goto p)
- (setq m (car p))
- (pop-to-buffer-same-window (marker-buffer m))
- (goto-char m)
- (when (or (org-invisible-p) (org-invisible-p2)) (org-show-context 'mark-goto))))
-
-(defun org-add-angle-brackets (s)
- (unless (equal (substring s 0 1) "<") (setq s (concat "<" s)))
- (unless (equal (substring s -1) ">") (setq s (concat s ">")))
- s)
-
-;;; Following specific links
-
-(defvar org-agenda-buffer-tmp-name)
-(defvar org-agenda-start-on-weekday)
-(defun org-follow-timestamp-link ()
- "Open an agenda view for the time-stamp date/range at point."
- (cond
- ((org-at-date-range-p t)
- (let ((org-agenda-start-on-weekday)
- (t1 (match-string 1))
- (t2 (match-string 2)) tt1 tt2)
- (setq tt1 (time-to-days (org-time-string-to-time t1))
- tt2 (time-to-days (org-time-string-to-time t2)))
- (let ((org-agenda-buffer-tmp-name
- (format "*Org Agenda(a:%s)"
- (concat (substring t1 0 10) "--" (substring t2 0 10)))))
- (org-agenda-list nil tt1 (1+ (- tt2 tt1))))))
- ((org-at-timestamp-p 'lax)
- (let ((org-agenda-buffer-tmp-name
- (format "*Org Agenda(a:%s)" (substring (match-string 1) 0 10))))
- (org-agenda-list nil (time-to-days (org-time-string-to-time
- (substring (match-string 1) 0 10)))
- 1)))
- (t (error "This should not happen"))))
-
-
-;;; Following file links
-(declare-function mailcap-parse-mailcaps "mailcap" (&optional path force))
-(declare-function mailcap-extension-to-mime "mailcap" (extn))
-(declare-function mailcap-mime-info
- "mailcap" (string &optional request no-decode))
-(defvar org-wait nil)
-(defun org-open-file (path &optional in-emacs line search)
- "Open the file at PATH.
-First, this expands any special file name abbreviations. Then the
-configuration variable `org-file-apps' is checked if it contains an
-entry for this file type, and if yes, the corresponding command is launched.
-
-If no application is found, Emacs simply visits the file.
-
-With optional prefix argument IN-EMACS, Emacs will visit the file.
-With a double \\[universal-argument] \\[universal-argument] \
-prefix arg, Org tries to avoid opening in Emacs
-and to use an external application to visit the file.
-
-Optional LINE specifies a line to go to, optional SEARCH a string
-to search for. If LINE or SEARCH is given, the file will be
-opened in Emacs, unless an entry from org-file-apps that makes
-use of groups in a regexp matches.
-
-If you want to change the way frames are used when following a
-link, please customize `org-link-frame-setup'.
-
-If the file does not exist, an error is thrown."
- (let* ((file (if (equal path "")
- buffer-file-name
- (substitute-in-file-name (expand-file-name path))))
- (file-apps (append org-file-apps (org-default-apps)))
- (apps (cl-remove-if
- 'org-file-apps-entry-match-against-dlink-p file-apps))
- (apps-dlink (cl-remove-if-not
- 'org-file-apps-entry-match-against-dlink-p file-apps))
- (remp (and (assq 'remote apps) (org-file-remote-p file)))
- (dirp (unless remp (file-directory-p file)))
- (file (if (and dirp org-open-directory-means-index-dot-org)
- (concat (file-name-as-directory file) "index.org")
- file))
- (a-m-a-p (assq 'auto-mode apps))
- (dfile (downcase file))
- ;; Reconstruct the original link from the PATH, LINE and
- ;; SEARCH args.
- (link (cond (line (concat file "::" (number-to-string line)))
- (search (concat file "::" search))
- (t file)))
- (dlink (downcase link))
- (ext
- (and (string-match "\\`.*?\\.\\([a-zA-Z0-9]+\\(\\.gz\\)?\\)\\'" dfile)
- (match-string 1 dfile)))
- (save-position-maybe
- (let ((old-buffer (current-buffer))
- (old-pos (point))
- (old-mode major-mode))
- (lambda ()
- (and (derived-mode-p 'org-mode)
- (eq old-mode 'org-mode)
- (or (not (eq old-buffer (current-buffer)))
- (not (eq old-pos (point))))
- (org-mark-ring-push old-pos old-buffer)))))
- cmd link-match-data)
- (cond
- ((member in-emacs '((16) system))
- (setq cmd (cdr (assq 'system apps))))
- (in-emacs (setq cmd 'emacs))
- (t
- (setq cmd (or (and remp (cdr (assq 'remote apps)))
- (and dirp (cdr (assq 'directory apps)))
- ;; First, try matching against apps-dlink if we
- ;; get a match here, store the match data for
- ;; later.
- (let ((match (assoc-default dlink apps-dlink
- 'string-match)))
- (if match
- (progn (setq link-match-data (match-data))
- match)
- (progn (setq in-emacs (or in-emacs line search))
- nil))) ; if we have no match in apps-dlink,
- ; always open the file in emacs if line or search
- ; is given (for backwards compatibility)
- (assoc-default dfile (org-apps-regexp-alist apps a-m-a-p)
- 'string-match)
- (cdr (assoc ext apps))
- (cdr (assq t apps))))))
- (when (eq cmd 'system)
- (setq cmd (cdr (assq 'system apps))))
- (when (eq cmd 'default)
- (setq cmd (cdr (assoc t apps))))
- (when (eq cmd 'mailcap)
- (require 'mailcap)
- (mailcap-parse-mailcaps)
- (let* ((mime-type (mailcap-extension-to-mime (or ext "")))
- (command (mailcap-mime-info mime-type)))
- (if (stringp command)
- (setq cmd command)
- (setq cmd 'emacs))))
- (when (and (not (eq cmd 'emacs)) ; Emacs has no problems with non-ex files
- (not (file-exists-p file))
- (not org-open-non-existing-files))
- (user-error "No such file: %s" file))
- (cond
- ((and (stringp cmd) (not (string-match "^\\s-*$" cmd)))
- ;; Remove quotes around the file name - we'll use shell-quote-argument.
- (while (string-match "['\"]%s['\"]" cmd)
- (setq cmd (replace-match "%s" t t cmd)))
- (setq cmd (replace-regexp-in-string
- "%s"
- (shell-quote-argument (convert-standard-filename file))
- cmd
- nil t))
-
- ;; Replace "%1", "%2" etc. in command with group matches from regex
- (save-match-data
- (let ((match-index 1)
- (number-of-groups (- (/ (length link-match-data) 2) 1)))
- (set-match-data link-match-data)
- (while (<= match-index number-of-groups)
- (let ((regex (concat "%" (number-to-string match-index)))
- (replace-with (match-string match-index dlink)))
- (while (string-match regex cmd)
- (setq cmd (replace-match replace-with t t cmd))))
- (setq match-index (+ match-index 1)))))
-
- (save-window-excursion
- (message "Running %s...done" cmd)
- (start-process-shell-command cmd nil cmd)
- (and (boundp 'org-wait) (numberp org-wait) (sit-for org-wait))))
- ((or (stringp cmd)
- (eq cmd 'emacs))
- (funcall (cdr (assq 'file org-link-frame-setup)) file)
- (widen)
- (cond (line (org-goto-line line)
- (when (derived-mode-p 'org-mode) (org-reveal)))
- (search (condition-case err
- (org-link-search search)
- ;; Save position before error-ing out so user
- ;; can easily move back to the original buffer.
- (error (funcall save-position-maybe)
- (error (nth 1 err)))))))
- ((functionp cmd)
- (save-match-data
- (set-match-data link-match-data)
- (condition-case nil
- (funcall cmd file link)
- ;; FIXME: Remove this check when most default installations
- ;; of Emacs have at least Org 9.0.
- ((debug wrong-number-of-arguments wrong-type-argument
- invalid-function)
- (user-error "Please see Org News for version 9.0 about \
-`org-file-apps'--Lisp error: %S" cmd)))))
- ((consp cmd)
- ;; FIXME: Remove this check when most default installations of
- ;; Emacs have at least Org 9.0. Heads-up instead of silently
- ;; fall back to `org-link-frame-setup' for an old usage of
- ;; `org-file-apps' with sexp instead of a function for `cmd'.
- (user-error "Please see Org News for version 9.0 about \
-`org-file-apps'--Error: Deprecated usage of %S" cmd))
- (t (funcall (cdr (assq 'file org-link-frame-setup)) file)))
- (funcall save-position-maybe)))
-
-(defun org-file-apps-entry-match-against-dlink-p (entry)
- "This function returns non-nil if `entry' uses a regular
-expression which should be matched against the whole link by
-org-open-file.
-
-It assumes that is the case when the entry uses a regular
-expression which has at least one grouping construct and the
-action is either a lisp form or a command string containing
-`%1', i.e. using at least one subexpression match as a
-parameter."
- (let ((selector (car entry))
- (action (cdr entry)))
- (if (stringp selector)
- (and (> (regexp-opt-depth selector) 0)
- (or (and (stringp action)
- (string-match "%[0-9]" action))
- (consp action)))
- nil)))
-
-(defun org-default-apps ()
- "Return the default applications for this operating system."
- (cond
- ((eq system-type 'darwin)
- org-file-apps-defaults-macosx)
- ((eq system-type 'windows-nt)
- org-file-apps-defaults-windowsnt)
- (t org-file-apps-defaults-gnu)))
-
-(defun org-apps-regexp-alist (list &optional add-auto-mode)
- "Convert extensions to regular expressions in the cars of LIST.
-Also, weed out any non-string entries, because the return value is used
-only for regexp matching.
-When ADD-AUTO-MODE is set, make all matches in `auto-mode-alist'
-point to the symbol `emacs', indicating that the file should
-be opened in Emacs."
- (append
- (delq nil
- (mapcar (lambda (x)
- (unless (not (stringp (car x)))
- (if (string-match "\\W" (car x))
- x
- (cons (concat "\\." (car x) "\\'") (cdr x)))))
- list))
- (when add-auto-mode
- (mapcar (lambda (x) (cons (car x) 'emacs)) auto-mode-alist))))
-
-(defvar ange-ftp-name-format)
-(defun org-file-remote-p (file)
- "Test whether FILE specifies a location on a remote system.
-Return non-nil if the location is indeed remote.
-
-For example, the filename \"/user@host:/foo\" specifies a location
-on the system \"/user@host:\"."
- (cond ((fboundp 'file-remote-p)
- (file-remote-p file))
- ((fboundp 'tramp-handle-file-remote-p)
- (tramp-handle-file-remote-p file))
- ((and (boundp 'ange-ftp-name-format)
- (string-match (car ange-ftp-name-format) file))
- t)))
-
-
-;;;; Refiling
-
-(defun org-get-org-file ()
- "Read a filename, with default directory `org-directory'."
- (let ((default (or org-default-notes-file remember-data-file)))
- (read-file-name (format "File name [%s]: " default)
- (file-name-as-directory org-directory)
- default)))
-
-(defun org-notes-order-reversed-p ()
- "Check if the current file should receive notes in reversed order."
- (cond
- ((not org-reverse-note-order) nil)
- ((eq t org-reverse-note-order) t)
- ((not (listp org-reverse-note-order)) nil)
- (t (catch 'exit
- (dolist (entry org-reverse-note-order)
- (when (string-match (car entry) buffer-file-name)
- (throw 'exit (cdr entry))))))))
-
-(defvar org-refile-target-table nil
- "The list of refile targets, created by `org-refile'.")
-
-(defvar org-agenda-new-buffers nil
- "Buffers created to visit agenda files.")
-
-(defvar org-refile-cache nil
- "Cache for refile targets.")
-
-(defvar org-refile-markers nil
- "All the markers used for caching refile locations.")
-
-(defun org-refile-marker (pos)
- "Get a new refile marker, but only if caching is in use."
- (if (not org-refile-use-cache)
- pos
- (let ((m (make-marker)))
- (move-marker m pos)
- (push m org-refile-markers)
- m)))
-
-(defun org-refile-cache-clear ()
- "Clear the refile cache and disable all the markers."
- (dolist (m org-refile-markers) (move-marker m nil))
- (setq org-refile-markers nil)
- (setq org-refile-cache nil)
- (message "Refile cache has been cleared"))
-
-(defun org-refile-cache-check-set (set)
- "Check if all the markers in the cache still have live buffers."
- (let (marker)
- (catch 'exit
- (while (and set (setq marker (nth 3 (pop set))))
- ;; If `org-refile-use-outline-path' is 'file, marker may be nil
- (when (and marker (null (marker-buffer marker)))
- (message "Please regenerate the refile cache with `C-0 C-c C-w'")
- (sit-for 3)
- (throw 'exit nil)))
- t)))
-
-(defun org-refile-cache-put (set &rest identifiers)
- "Push the refile targets SET into the cache, under IDENTIFIERS."
- (let* ((key (sha1 (prin1-to-string identifiers)))
- (entry (assoc key org-refile-cache)))
- (if entry
- (setcdr entry set)
- (push (cons key set) org-refile-cache))))
-
-(defun org-refile-cache-get (&rest identifiers)
- "Retrieve the cached value for refile targets given by IDENTIFIERS."
- (cond
- ((not org-refile-cache) nil)
- ((not org-refile-use-cache) (org-refile-cache-clear) nil)
- (t
- (let ((set (cdr (assoc (sha1 (prin1-to-string identifiers))
- org-refile-cache))))
- (and set (org-refile-cache-check-set set) set)))))
-
-(defvar org-outline-path-cache nil
- "Alist between buffer positions and outline paths.
-It value is an alist (POSITION . PATH) where POSITION is the
-buffer position at the beginning of an entry and PATH is a list
-of strings describing the outline path for that entry, in reverse
-order.")
-
-(defun org-refile-get-targets (&optional default-buffer)
- "Produce a table with refile targets."
- (let ((case-fold-search nil)
- ;; otherwise org confuses "TODO" as a kw and "Todo" as a word
- (entries (or org-refile-targets '((nil . (:level . 1)))))
- targets tgs files desc descre)
- (message "Getting targets...")
- (with-current-buffer (or default-buffer (current-buffer))
- (dolist (entry entries)
- (setq files (car entry) desc (cdr entry))
- (cond
- ((null files) (setq files (list (current-buffer))))
- ((eq files 'org-agenda-files)
- (setq files (org-agenda-files 'unrestricted)))
- ((and (symbolp files) (fboundp files))
- (setq files (funcall files)))
- ((and (symbolp files) (boundp files))
- (setq files (symbol-value files))))
- (when (stringp files) (setq files (list files)))
- (cond
- ((eq (car desc) :tag)
- (setq descre (concat "^\\*+[ \t]+.*?:" (regexp-quote (cdr desc)) ":")))
- ((eq (car desc) :todo)
- (setq descre (concat "^\\*+[ \t]+" (regexp-quote (cdr desc)) "[ \t]")))
- ((eq (car desc) :regexp)
- (setq descre (cdr desc)))
- ((eq (car desc) :level)
- (setq descre (concat "^\\*\\{" (number-to-string
- (if org-odd-levels-only
- (1- (* 2 (cdr desc)))
- (cdr desc)))
- "\\}[ \t]")))
- ((eq (car desc) :maxlevel)
- (setq descre (concat "^\\*\\{1," (number-to-string
- (if org-odd-levels-only
- (1- (* 2 (cdr desc)))
- (cdr desc)))
- "\\}[ \t]")))
- (t (error "Bad refiling target description %s" desc)))
- (dolist (f files)
- (with-current-buffer (if (bufferp f) f (org-get-agenda-file-buffer f))
- (or
- (setq tgs (org-refile-cache-get (buffer-file-name) descre))
- (progn
- (when (bufferp f)
- (setq f (buffer-file-name (buffer-base-buffer f))))
- (setq f (and f (expand-file-name f)))
- (when (eq org-refile-use-outline-path 'file)
- (push (list (file-name-nondirectory f) f nil nil) tgs))
- (when (eq org-refile-use-outline-path 'buffer-name)
- (push (list (buffer-name (buffer-base-buffer)) f nil nil) tgs))
- (when (eq org-refile-use-outline-path 'full-file-path)
- (push (list (file-truename (buffer-file-name (buffer-base-buffer))) f nil nil) tgs))
- (org-with-wide-buffer
- (goto-char (point-min))
- (setq org-outline-path-cache nil)
- (while (re-search-forward descre nil t)
- (beginning-of-line)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))
- (let ((begin (point))
- (heading (match-string-no-properties 4)))
- (unless (or (and
- org-refile-target-verify-function
- (not
- (funcall org-refile-target-verify-function)))
- (not heading))
- (let ((re (format org-complex-heading-regexp-format
- (regexp-quote heading)))
- (target
- (if (not org-refile-use-outline-path) heading
- (mapconcat
- #'identity
- (append
- (pcase org-refile-use-outline-path
- (`file (list (file-name-nondirectory
- (buffer-file-name
- (buffer-base-buffer)))))
- (`full-file-path
- (list (buffer-file-name
- (buffer-base-buffer))))
- (`buffer-name
- (list (buffer-name
- (buffer-base-buffer))))
- (_ nil))
- (mapcar (lambda (s) (replace-regexp-in-string
- "/" "\\/" s nil t))
- (org-get-outline-path t t)))
- "/"))))
- (push (list target f re (org-refile-marker (point)))
- tgs)))
- (when (= (point) begin)
- ;; Verification function has not moved point.
- (end-of-line)))))))
- (when org-refile-use-cache
- (org-refile-cache-put tgs (buffer-file-name) descre))
- (setq targets (append tgs targets))))))
- (message "Getting targets...done")
- (delete-dups (nreverse targets))))
-
-(defun org--get-outline-path-1 (&optional use-cache)
- "Return outline path to current headline.
-
-Outline path is a list of strings, in reverse order. When
-optional argument USE-CACHE is non-nil, make use of a cache. See
-`org-get-outline-path' for details.
-
-Assume buffer is widened and point is on a headline."
- (or (and use-cache (cdr (assq (point) org-outline-path-cache)))
- (let ((p (point))
- (heading (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp)
- (if (not (match-end 4)) ""
- ;; Remove statistics cookies.
- (org-trim
- (org-link-display-format
- (replace-regexp-in-string
- "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" ""
- (match-string-no-properties 4))))))))
- (if (org-up-heading-safe)
- (let ((path (cons heading (org--get-outline-path-1 use-cache))))
- (when use-cache
- (push (cons p path) org-outline-path-cache))
- path)
- ;; This is a new root node. Since we assume we are moving
- ;; forward, we can drop previous cache so as to limit number
- ;; of associations there.
- (let ((path (list heading)))
- (when use-cache (setq org-outline-path-cache (list (cons p path))))
- path)))))
-
-(defun org-get-outline-path (&optional with-self use-cache)
- "Return the outline path to the current entry.
-
-An outline path is a list of ancestors for current headline, as
-a list of strings. Statistics cookies are removed and links are
-replaced with their description, if any, or their path otherwise.
-
-When optional argument WITH-SELF is non-nil, the path also
-includes the current headline.
-
-When optional argument USE-CACHE is non-nil, cache outline paths
-between calls to this function so as to avoid backtracking. This
-argument is useful when planning to find more than one outline
-path in the same document. In that case, there are two
-conditions to satisfy:
- - `org-outline-path-cache' is set to nil before starting the
- process;
- - outline paths are computed by increasing buffer positions."
- (org-with-wide-buffer
- (and (or (and with-self (org-back-to-heading t))
- (org-up-heading-safe))
- (reverse (org--get-outline-path-1 use-cache)))))
-
-(defun org-format-outline-path (path &optional width prefix separator)
- "Format the outline path PATH for display.
-WIDTH is the maximum number of characters that is available.
-PREFIX is a prefix to be included in the returned string,
-such as the file name.
-SEPARATOR is inserted between the different parts of the path,
-the default is \"/\"."
- (setq width (or width 79))
- (setq path (delq nil path))
- (unless (> width 0)
- (user-error "Argument `width' must be positive"))
- (setq separator (or separator "/"))
- (let* ((org-odd-levels-only nil)
- (fpath (concat
- prefix (and prefix path separator)
- (mapconcat
- (lambda (s) (replace-regexp-in-string "[ \t]+\\'" "" s))
- (cl-loop for head in path
- for n from 0
- collect (org-add-props
- head nil 'face
- (nth (% n org-n-level-faces) org-level-faces)))
- separator))))
- (when (> (length fpath) width)
- (if (< width 7)
- ;; It's unlikely that `width' will be this small, but don't
- ;; waste characters by adding ".." if it is.
- (setq fpath (substring fpath 0 width))
- (setf (substring fpath (- width 2)) "..")))
- fpath))
-
-(defun org-display-outline-path (&optional file current separator just-return-string)
- "Display the current outline path in the echo area.
-
-If FILE is non-nil, prepend the output with the file name.
-If CURRENT is non-nil, append the current heading to the output.
-SEPARATOR is passed through to `org-format-outline-path'. It separates
-the different parts of the path and defaults to \"/\".
-If JUST-RETURN-STRING is non-nil, return a string, don't display a message."
- (interactive "P")
- (let* (case-fold-search
- (bfn (buffer-file-name (buffer-base-buffer)))
- (path (and (derived-mode-p 'org-mode) (org-get-outline-path)))
- res)
- (when current (setq path (append path
- (save-excursion
- (org-back-to-heading t)
- (when (looking-at org-complex-heading-regexp)
- (list (match-string 4)))))))
- (setq res
- (org-format-outline-path
- path
- (1- (frame-width))
- (and file bfn (concat (file-name-nondirectory bfn) separator))
- separator))
- (if just-return-string
- (org-no-properties res)
- (org-unlogged-message "%s" res))))
-
-(defvar org-refile-history nil
- "History for refiling operations.")
-
-(defvar org-after-refile-insert-hook nil
- "Hook run after `org-refile' has inserted its stuff at the new location.
-Note that this is still *before* the stuff will be removed from
-the *old* location.")
-
-(defvar org-capture-last-stored-marker)
-(defvar org-refile-keep nil
- "Non-nil means `org-refile' will copy instead of refile.")
-
-(defun org-copy ()
- "Like `org-refile', but copy."
- (interactive)
- (let ((org-refile-keep t))
- (funcall 'org-refile nil nil nil "Copy")))
-
-(defun org-refile (&optional arg default-buffer rfloc msg)
- "Move the entry or entries at point to another heading.
-
-The list of target headings is compiled using the information in
-`org-refile-targets', which see.
-
-At the target location, the entry is filed as a subitem of the
-target heading. Depending on `org-reverse-note-order', the new
-subitem will either be the first or the last subitem.
-
-If there is an active region, all entries in that region will be
-refiled. However, the region must fulfill the requirement that
-the first heading sets the top-level of the moved text.
-
-With a `\\[universal-argument]' ARG, the command will only visit the target \
-location
-and not actually move anything.
-
-With a prefix `\\[universal-argument] \\[universal-argument]', go to the \
-location where the last
-refiling operation has put the subtree.
-
-With a numeric prefix argument of `2', refile to the running clock.
-
-With a numeric prefix argument of `3', emulate `org-refile-keep'
-being set to t and copy to the target location, don't move it.
-Beware that keeping refiled entries may result in duplicated ID
-properties.
-
-RFLOC can be a refile location obtained in a different way.
-
-MSG is a string to replace \"Refile\" in the default prompt with
-another verb. E.g. `org-copy' sets this parameter to \"Copy\".
-
-See also `org-refile-use-outline-path'.
-
-If you are using target caching (see `org-refile-use-cache'), you
-have to clear the target cache in order to find new targets.
-This can be done with a `0' prefix (`C-0 C-c C-w') or a triple
-prefix argument (`C-u C-u C-u C-c C-w')."
- (interactive "P")
- (if (member arg '(0 (64)))
- (org-refile-cache-clear)
- (let* ((actionmsg (cond (msg msg)
- ((equal arg 3) "Refile (and keep)")
- (t "Refile")))
- (regionp (org-region-active-p))
- (region-start (and regionp (region-beginning)))
- (region-end (and regionp (region-end)))
- (org-refile-keep (if (equal arg 3) t org-refile-keep))
- pos it nbuf file level reversed)
- (setq last-command nil)
- (when regionp
- (goto-char region-start)
- (or (bolp) (goto-char (point-at-bol)))
- (setq region-start (point))
- (unless (or (org-kill-is-subtree-p
- (buffer-substring region-start region-end))
- (prog1 org-refile-active-region-within-subtree
- (let ((s (point-at-eol)))
- (org-toggle-heading)
- (setq region-end (+ (- (point-at-eol) s) region-end)))))
- (user-error "The region is not a (sequence of) subtree(s)")))
- (if (equal arg '(16))
- (org-refile-goto-last-stored)
- (when (or
- (and (equal arg 2)
- org-clock-hd-marker (marker-buffer org-clock-hd-marker)
- (prog1
- (setq it (list (or org-clock-heading "running clock")
- (buffer-file-name
- (marker-buffer org-clock-hd-marker))
- ""
- (marker-position org-clock-hd-marker)))
- (setq arg nil)))
- (setq it
- (or rfloc
- (let (heading-text)
- (save-excursion
- (unless (and arg (listp arg))
- (org-back-to-heading t)
- (setq heading-text
- (replace-regexp-in-string
- org-bracket-link-regexp
- "\\3"
- (or (nth 4 (org-heading-components))
- ""))))
- (org-refile-get-location
- (cond ((and arg (listp arg)) "Goto")
- (regionp (concat actionmsg " region to"))
- (t (concat actionmsg " subtree \""
- heading-text "\" to")))
- default-buffer
- (and (not (equal '(4) arg))
- org-refile-allow-creating-parent-nodes)))))))
- (setq file (nth 1 it)
- pos (nth 3 it))
- (when (and (not arg)
- pos
- (equal (buffer-file-name) file)
- (if regionp
- (and (>= pos region-start)
- (<= pos region-end))
- (and (>= pos (point))
- (< pos (save-excursion
- (org-end-of-subtree t t))))))
- (error "Cannot refile to position inside the tree or region"))
- (setq nbuf (or (find-buffer-visiting file)
- (find-file-noselect file)))
- (if (and arg (not (equal arg 3)))
- (progn
- (pop-to-buffer-same-window nbuf)
- (goto-char (cond (pos)
- ((org-notes-order-reversed-p) (point-min))
- (t (point-max))))
- (org-show-context 'org-goto))
- (if regionp
- (progn
- (org-kill-new (buffer-substring region-start region-end))
- (org-save-markers-in-region region-start region-end))
- (org-copy-subtree 1 nil t))
- (with-current-buffer (setq nbuf (or (find-buffer-visiting file)
- (find-file-noselect file)))
- (setq reversed (org-notes-order-reversed-p))
- (org-with-wide-buffer
- (if pos
- (progn
- (goto-char pos)
- (setq level (org-get-valid-level (funcall outline-level) 1))
- (goto-char
- (if reversed
- (or (outline-next-heading) (point-max))
- (or (save-excursion (org-get-next-sibling))
- (org-end-of-subtree t t)
- (point-max)))))
- (setq level 1)
- (if (not reversed)
- (goto-char (point-max))
- (goto-char (point-min))
- (or (outline-next-heading) (goto-char (point-max)))))
- (unless (bolp) (newline))
- (org-paste-subtree level nil nil t)
- (when org-log-refile
- (org-add-log-setup 'refile nil nil org-log-refile)
- (unless (eq org-log-refile 'note)
- (save-excursion (org-add-log-note))))
- (and org-auto-align-tags
- (let ((org-loop-over-headlines-in-active-region nil))
- (org-set-tags nil t)))
- (let ((bookmark-name (plist-get org-bookmark-names-plist
- :last-refile)))
- (when bookmark-name
- (with-demoted-errors
- (bookmark-set bookmark-name))))
- ;; If we are refiling for capture, make sure that the
- ;; last-capture pointers point here
- (when (bound-and-true-p org-capture-is-refiling)
- (let ((bookmark-name (plist-get org-bookmark-names-plist
- :last-capture-marker)))
- (when bookmark-name
- (with-demoted-errors
- (bookmark-set bookmark-name))))
- (move-marker org-capture-last-stored-marker (point)))
- (when (fboundp 'deactivate-mark) (deactivate-mark))
- (run-hooks 'org-after-refile-insert-hook)))
- (unless org-refile-keep
- (if regionp
- (delete-region (point) (+ (point) (- region-end region-start)))
- (delete-region
- (and (org-back-to-heading t) (point))
- (min (1+ (buffer-size)) (org-end-of-subtree t t) (point)))))
- (when (featurep 'org-inlinetask)
- (org-inlinetask-remove-END-maybe))
- (setq org-markers-to-move nil)
- (message (concat actionmsg " to \"%s\" in file %s: done") (car it) file)))))))
-
-(defun org-refile-goto-last-stored ()
- "Go to the location where the last refile was stored."
- (interactive)
- (bookmark-jump (plist-get org-bookmark-names-plist :last-refile))
- (message "This is the location of the last refile"))
-
-(defun org-refile--get-location (refloc tbl)
- "When user refile to REFLOC, find the associated target in TBL.
-Also check `org-refile-target-table'."
- (car (delq
- nil
- (mapcar
- (lambda (r) (or (assoc r tbl)
- (assoc r org-refile-target-table)))
- (list (replace-regexp-in-string "/$" "" refloc)
- (replace-regexp-in-string "\\([^/]\\)$" "\\1/" refloc))))))
-
-(defun org-refile-get-location (&optional prompt default-buffer new-nodes)
- "Prompt the user for a refile location, using PROMPT.
-PROMPT should not be suffixed with a colon and a space, because
-this function appends the default value from
-`org-refile-history' automatically, if that is not empty."
- (let ((org-refile-targets org-refile-targets)
- (org-refile-use-outline-path org-refile-use-outline-path))
- (setq org-refile-target-table (org-refile-get-targets default-buffer)))
- (unless org-refile-target-table
- (user-error "No refile targets"))
- (let* ((cbuf (current-buffer))
- (cfn (buffer-file-name (buffer-base-buffer cbuf)))
- (cfunc (if (and org-refile-use-outline-path
- org-outline-path-complete-in-steps)
- #'org-olpath-completing-read
- #'completing-read))
- (extra (if org-refile-use-outline-path "/" ""))
- (cbnex (concat (buffer-name) extra))
- (filename (and cfn (expand-file-name cfn)))
- (tbl (mapcar
- (lambda (x)
- (if (and (not (member org-refile-use-outline-path
- '(file full-file-path)))
- (not (equal filename (nth 1 x))))
- (cons (concat (car x) extra " ("
- (file-name-nondirectory (nth 1 x)) ")")
- (cdr x))
- (cons (concat (car x) extra) (cdr x))))
- org-refile-target-table))
- (completion-ignore-case t)
- cdef
- (prompt (concat prompt
- (or (and (car org-refile-history)
- (concat " (default " (car org-refile-history) ")"))
- (and (assoc cbnex tbl) (setq cdef cbnex)
- (concat " (default " cbnex ")"))) ": "))
- pa answ parent-target child parent old-hist)
- (setq old-hist org-refile-history)
- (setq answ (funcall cfunc prompt tbl nil (not new-nodes)
- nil 'org-refile-history (or cdef (car org-refile-history))))
- (if (setq pa (org-refile--get-location answ tbl))
- (progn
- (org-refile-check-position pa)
- (when (or (not org-refile-history)
- (not (eq old-hist org-refile-history))
- (not (equal (car pa) (car org-refile-history))))
- (setq org-refile-history
- (cons (car pa) (if (assoc (car org-refile-history) tbl)
- org-refile-history
- (cdr org-refile-history))))
- (when (equal (car org-refile-history) (nth 1 org-refile-history))
- (pop org-refile-history)))
- pa)
- (if (string-match "\\`\\(.*\\)/\\([^/]+\\)\\'" answ)
- (progn
- (setq parent (match-string 1 answ)
- child (match-string 2 answ))
- (setq parent-target (org-refile--get-location parent tbl))
- (when (and parent-target
- (or (eq new-nodes t)
- (and (eq new-nodes 'confirm)
- (y-or-n-p (format "Create new node \"%s\"? "
- child)))))
- (org-refile-new-child parent-target child)))
- (user-error "Invalid target location")))))
-
-(declare-function org-string-nw-p "org-macs" (s))
-(defun org-refile-check-position (refile-pointer)
- "Check if the refile pointer matches the headline to which it points."
- (let* ((file (nth 1 refile-pointer))
- (re (nth 2 refile-pointer))
- (pos (nth 3 refile-pointer))
- buffer)
- (if (and (not (markerp pos)) (not file))
- (user-error "Please indicate a target file in the refile path")
- (when (org-string-nw-p re)
- (setq buffer (if (markerp pos)
- (marker-buffer pos)
- (or (find-buffer-visiting file)
- (find-file-noselect file))))
- (with-current-buffer buffer
- (org-with-wide-buffer
- (goto-char pos)
- (beginning-of-line 1)
- (unless (looking-at-p re)
- (user-error "Invalid refile position, please clear the cache with `C-0 C-c C-w' before refiling"))))))))
-
-(defun org-refile-new-child (parent-target child)
- "Use refile target PARENT-TARGET to add new CHILD below it."
- (unless parent-target
- (error "Cannot find parent for new node"))
- (let ((file (nth 1 parent-target))
- (pos (nth 3 parent-target))
- level)
- (with-current-buffer (or (find-buffer-visiting file)
- (find-file-noselect file))
- (org-with-wide-buffer
- (if pos
- (goto-char pos)
- (goto-char (point-max))
- (unless (bolp) (newline)))
- (when (looking-at org-outline-regexp)
- (setq level (funcall outline-level))
- (org-end-of-subtree t t))
- (org-back-over-empty-lines)
- (insert "\n" (make-string
- (if pos (org-get-valid-level level 1) 1) ?*)
- " " child "\n")
- (beginning-of-line 0)
- (list (concat (car parent-target) "/" child) file "" (point))))))
-
-(defun org-olpath-completing-read (prompt collection &rest args)
- "Read an outline path like a file name."
- (let ((thetable collection))
- (apply #'completing-read
- prompt
- (lambda (string predicate &optional flag)
- (cond
- ((eq flag nil) (try-completion string thetable))
- ((eq flag t)
- (let ((l (length string)))
- (mapcar (lambda (x)
- (let ((r (substring x l))
- (f (if (string-match " ([^)]*)$" x)
- (match-string 0 x)
- "")))
- (if (string-match "/" r)
- (concat string (substring r 0 (match-end 0)) f)
- x)))
- (all-completions string thetable predicate))))
- ;; Exact match?
- ((eq flag 'lambda) (assoc string thetable))))
- args)))
-
-;;;; Dynamic blocks
-
-(defun org-find-dblock (name)
- "Find the first dynamic block with name NAME in the buffer.
-If not found, stay at current position and return nil."
- (let ((case-fold-search t) pos)
- (save-excursion
- (goto-char (point-min))
- (setq pos (and (re-search-forward
- (concat "^[ \t]*#\\+\\(?:BEGIN\\|begin\\):[ \t]+" name "\\>") nil t)
- (match-beginning 0))))
- (when pos (goto-char pos))
- pos))
-
-(defun org-create-dblock (plist)
- "Create a dynamic block section, with parameters taken from PLIST.
-PLIST must contain a :name entry which is used as the name of the block."
- (when (string-match "\\S-" (buffer-substring (point-at-bol) (point-at-eol)))
- (end-of-line 1)
- (newline))
- (let ((col (current-column))
- (name (plist-get plist :name)))
- (insert "#+BEGIN: " name)
- (while plist
- (if (eq (car plist) :name)
- (setq plist (cddr plist))
- (insert " " (prin1-to-string (pop plist)))))
- (insert "\n\n" (make-string col ?\ ) "#+END:\n")
- (beginning-of-line -2)))
-
-(defun org-prepare-dblock ()
- "Prepare dynamic block for refresh.
-This empties the block, puts the cursor at the insert position and returns
-the property list including an extra property :name with the block name."
- (unless (looking-at org-dblock-start-re)
- (user-error "Not at a dynamic block"))
- (let* ((begdel (1+ (match-end 0)))
- (name (org-no-properties (match-string 1)))
- (params (append (list :name name)
- (read (concat "(" (match-string 3) ")")))))
- (save-excursion
- (beginning-of-line 1)
- (skip-chars-forward " \t")
- (setq params (plist-put params :indentation-column (current-column))))
- (unless (re-search-forward org-dblock-end-re nil t)
- (error "Dynamic block not terminated"))
- (setq params
- (append params
- (list :content (buffer-substring
- begdel (match-beginning 0)))))
- (delete-region begdel (match-beginning 0))
- (goto-char begdel)
- (open-line 1)
- params))
-
-(defun org-map-dblocks (&optional command)
- "Apply COMMAND to all dynamic blocks in the current buffer.
-If COMMAND is not given, use `org-update-dblock'."
- (let ((cmd (or command 'org-update-dblock)))
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward org-dblock-start-re nil t)
- (goto-char (match-beginning 0))
- (save-excursion
- (condition-case nil
- (funcall cmd)
- (error (message "Error during update of dynamic block"))))
- (unless (re-search-forward org-dblock-end-re nil t)
- (error "Dynamic block not terminated"))))))
-
-(defun org-dblock-update (&optional arg)
- "User command for updating dynamic blocks.
-Update the dynamic block at point. With prefix ARG, update all dynamic
-blocks in the buffer."
- (interactive "P")
- (if arg
- (org-update-all-dblocks)
- (or (looking-at org-dblock-start-re)
- (org-beginning-of-dblock))
- (org-update-dblock)))
-
-(defun org-update-dblock ()
- "Update the dynamic block at point.
-This means to empty the block, parse for parameters and then call
-the correct writing function."
- (interactive)
- (save-excursion
- (let* ((win (selected-window))
- (pos (point))
- (line (org-current-line))
- (params (org-prepare-dblock))
- (name (plist-get params :name))
- (indent (plist-get params :indentation-column))
- (cmd (intern (concat "org-dblock-write:" name))))
- (message "Updating dynamic block `%s' at line %d..." name line)
- (funcall cmd params)
- (message "Updating dynamic block `%s' at line %d...done" name line)
- (goto-char pos)
- (when (and indent (> indent 0))
- (setq indent (make-string indent ?\ ))
- (save-excursion
- (select-window win)
- (org-beginning-of-dblock)
- (forward-line 1)
- (while (not (looking-at org-dblock-end-re))
- (insert indent)
- (beginning-of-line 2))
- (when (looking-at org-dblock-end-re)
- (and (looking-at "[ \t]+")
- (replace-match ""))
- (insert indent)))))))
-
-(defun org-beginning-of-dblock ()
- "Find the beginning of the dynamic block at point.
-Error if there is no such block at point."
- (let ((pos (point))
- beg)
- (end-of-line 1)
- (if (and (re-search-backward org-dblock-start-re nil t)
- (setq beg (match-beginning 0))
- (re-search-forward org-dblock-end-re nil t)
- (> (match-end 0) pos))
- (goto-char beg)
- (goto-char pos)
- (error "Not in a dynamic block"))))
-
-(defun org-update-all-dblocks ()
- "Update all dynamic blocks in the buffer.
-This function can be used in a hook."
- (interactive)
- (when (derived-mode-p 'org-mode)
- (org-map-dblocks 'org-update-dblock)))
-
-
-;;;; Completion
-
-(declare-function org-export-backend-options "ox" (cl-x) t)
-(defun org-get-export-keywords ()
- "Return a list of all currently understood export keywords.
-Export keywords include options, block names, attributes and
-keywords relative to each registered export back-end."
- (let (keywords)
- (dolist (backend
- (bound-and-true-p org-export-registered-backends)
- (delq nil keywords))
- ;; Back-end name (for keywords, like #+LATEX:)
- (push (upcase (symbol-name (org-export-backend-name backend))) keywords)
- (dolist (option-entry (org-export-backend-options backend))
- ;; Back-end options.
- (push (nth 1 option-entry) keywords)))))
-
-(defconst org-options-keywords
- '("ARCHIVE:" "AUTHOR:" "BIND:" "CATEGORY:" "COLUMNS:" "CREATOR:" "DATE:"
- "DESCRIPTION:" "DRAWERS:" "EMAIL:" "EXCLUDE_TAGS:" "FILETAGS:" "INCLUDE:"
- "INDEX:" "KEYWORDS:" "LANGUAGE:" "MACRO:" "OPTIONS:" "PROPERTY:"
- "PRIORITIES:" "SELECT_TAGS:" "SEQ_TODO:" "SETUPFILE:" "STARTUP:" "TAGS:"
- "TITLE:" "TODO:" "TYP_TODO:" "SELECT_TAGS:" "EXCLUDE_TAGS:"))
-
-(defcustom org-structure-template-alist
- '(("s" "#+BEGIN_SRC ?\n\n#+END_SRC")
- ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE")
- ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE")
- ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE")
- ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM")
- ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER")
- ("C" "#+BEGIN_COMMENT\n?\n#+END_COMMENT")
- ("l" "#+BEGIN_EXPORT latex\n?\n#+END_EXPORT")
- ("L" "#+LaTeX: ")
- ("h" "#+BEGIN_EXPORT html\n?\n#+END_EXPORT")
- ("H" "#+HTML: ")
- ("a" "#+BEGIN_EXPORT ascii\n?\n#+END_EXPORT")
- ("A" "#+ASCII: ")
- ("i" "#+INDEX: ?")
- ("I" "#+INCLUDE: %file ?"))
- "Structure completion elements.
-This is a list of abbreviation keys and values. The value gets inserted
-if you type `<' followed by the key and then press the completion key,
-usually `TAB'. %file will be replaced by a file name after prompting
-for the file using completion. The cursor will be placed at the position
-of the `?' in the template.
-There are two templates for each key, the first uses the original Org syntax,
-the second uses Emacs Muse-like syntax tags. These Muse-like tags become
-the default when the /org-mtags.el/ module has been loaded. See also the
-variable `org-mtags-prefer-muse-templates'."
- :group 'org-edit-structure
- :type '(repeat
- (list
- (string :tag "Key")
- (string :tag "Template")))
- :version "26.1"
- :package-version '(Org . "8.3"))
-
-(defun org-try-structure-completion ()
- "Try to complete a structure template before point.
-This looks for strings like \"<e\" on an otherwise empty line and
-expands them."
- (let ((l (buffer-substring (point-at-bol) (point)))
- a)
- (when (and (looking-at "[ \t]*$")
- (string-match "^[ \t]*<\\([a-zA-Z]+\\)$" l)
- (setq a (assoc (match-string 1 l) org-structure-template-alist)))
- (org-complete-expand-structure-template (+ -1 (point-at-bol)
- (match-beginning 1)) a)
- t)))
-
-(defun org-complete-expand-structure-template (start cell)
- "Expand a structure template."
- (let ((rpl (nth 1 cell))
- (ind ""))
- (delete-region start (point))
- (when (string-match "\\`[ \t]*#\\+" rpl)
- (cond
- ((bolp))
- ((not (string-match "\\S-" (buffer-substring (point-at-bol) (point))))
- (setq ind (buffer-substring (point-at-bol) (point))))
- (t (newline))))
- (setq start (point))
- (when (string-match "%file" rpl)
- (setq rpl (replace-match
- (concat
- "\""
- (save-match-data
- (abbreviate-file-name (read-file-name "Include file: ")))
- "\"")
- t t rpl)))
- (setq rpl (mapconcat 'identity (split-string rpl "\n")
- (concat "\n" ind)))
- (insert rpl)
- (when (re-search-backward "\\?" start t) (delete-char 1))))
-
-;;;; TODO, DEADLINE, Comments
-
-(defun org-toggle-comment ()
- "Change the COMMENT state of an entry."
- (interactive)
- (save-excursion
- (org-back-to-heading)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))
- (goto-char (or (match-end 3) (match-end 2) (match-end 1)))
- (skip-chars-forward " \t")
- (unless (memq (char-before) '(?\s ?\t)) (insert " "))
- (if (org-in-commented-heading-p t)
- (delete-region (point)
- (progn (search-forward " " (line-end-position) 'move)
- (skip-chars-forward " \t")
- (point)))
- (insert org-comment-string)
- (unless (eolp) (insert " ")))))
-
-(defvar org-last-todo-state-is-todo nil
- "This is non-nil when the last TODO state change led to a TODO state.
-If the last change removed the TODO tag or switched to DONE, then
-this is nil.")
-
-(defvar org-setting-tags nil) ; dynamically skipped
-
-(defvar org-todo-setup-filter-hook nil
- "Hook for functions that pre-filter todo specs.
-Each function takes a todo spec and returns either nil or the spec
-transformed into canonical form." )
-
-(defvar org-todo-get-default-hook nil
- "Hook for functions that get a default item for todo.
-Each function takes arguments (NEW-MARK OLD-MARK) and returns either
-nil or a string to be used for the todo mark." )
-
-(defvar org-agenda-headline-snapshot-before-repeat)
-
-(defun org-current-effective-time ()
- "Return current time adjusted for `org-extend-today-until' variable."
- (let* ((ct (org-current-time))
- (dct (decode-time ct))
- (ct1
- (cond
- (org-use-last-clock-out-time-as-effective-time
- (or (org-clock-get-last-clock-out-time) ct))
- ((and org-use-effective-time (< (nth 2 dct) org-extend-today-until))
- (encode-time 0 59 23 (1- (nth 3 dct)) (nth 4 dct) (nth 5 dct)))
- (t ct))))
- ct1))
-
-(defun org-todo-yesterday (&optional arg)
- "Like `org-todo' but the time of change will be 23:59 of yesterday."
- (interactive "P")
- (if (eq major-mode 'org-agenda-mode)
- (apply 'org-agenda-todo-yesterday arg)
- (let* ((org-use-effective-time t)
- (hour (nth 2 (decode-time (org-current-time))))
- (org-extend-today-until (1+ hour)))
- (org-todo arg))))
-
-(defvar org-block-entry-blocking ""
- "First entry preventing the TODO state change.")
-
-(defun org-cancel-repeater ()
- "Cancel a repeater by setting its numeric value to zero."
- (interactive)
- (save-excursion
- (org-back-to-heading t)
- (let ((bound1 (point))
- (bound0 (save-excursion (outline-next-heading) (point))))
- (when (and (re-search-forward
- (concat "\\(" org-scheduled-time-regexp "\\)\\|\\("
- org-deadline-time-regexp "\\)\\|\\("
- org-ts-regexp "\\)")
- bound0 t)
- (re-search-backward "[ \t]+\\(?:[.+]\\)?\\+\\([0-9]+\\)[hdwmy]"
- bound1 t))
- (replace-match "0" t nil nil 1)))))
-
-(defvar org-state)
-(defvar org-blocked-by-checkboxes)
-(defun org-todo (&optional arg)
- "Change the TODO state of an item.
-
-The state of an item is given by a keyword at the start of the heading,
-like
- *** TODO Write paper
- *** DONE Call mom
-
-The different keywords are specified in the variable `org-todo-keywords'.
-By default the available states are \"TODO\" and \"DONE\". So, for this
-example: when the item starts with TODO, it is changed to DONE.
-When it starts with DONE, the DONE is removed. And when neither TODO nor
-DONE are present, add TODO at the beginning of the heading.
-
-With `\\[universal-argument]' prefix ARG, use completion to determine the new \
-state.
-With numeric prefix ARG, switch to that state.
-With a `\\[universal-argument] \\[universal-argument]' prefix, switch to the \
-next set of TODO \
-keywords (nextset).
-With a `\\[universal-argument] \\[universal-argument] \\[universal-argument]' \
-prefix, circumvent any state blocking.
-With a numeric prefix arg of 0, inhibit note taking for the change.
-With a numeric prefix arg of -1, cancel repeater to allow marking as DONE.
-
-When called through ELisp, arg is also interpreted in the following way:
-`none' -> empty state
-\"\" -> switch to empty state
-`done' -> switch to DONE
-`nextset' -> switch to the next set of keywords
-`previousset' -> switch to the previous set of keywords
-\"WAITING\" -> switch to the specified keyword, but only if it
- really is a member of `org-todo-keywords'."
- (interactive "P")
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level 'region))
- org-loop-over-headlines-in-active-region)
- (org-map-entries
- `(org-todo ,arg)
- org-loop-over-headlines-in-active-region
- cl (when (org-invisible-p) (org-end-of-subtree nil t))))
- (when (equal arg '(16)) (setq arg 'nextset))
- (when (equal arg -1) (org-cancel-repeater) (setq arg nil))
- (let ((org-blocker-hook org-blocker-hook)
- commentp
- case-fold-search)
- (when (equal arg '(64))
- (setq arg nil org-blocker-hook nil))
- (when (and org-blocker-hook
- (or org-inhibit-blocking
- (org-entry-get nil "NOBLOCKING")))
- (setq org-blocker-hook nil))
- (save-excursion
- (catch 'exit
- (org-back-to-heading t)
- (when (org-in-commented-heading-p t)
- (org-toggle-comment)
- (setq commentp t))
- (when (looking-at org-outline-regexp) (goto-char (1- (match-end 0))))
- (or (looking-at (concat " +" org-todo-regexp "\\( +\\|[ \t]*$\\)"))
- (looking-at "\\(?: *\\|[ \t]*$\\)"))
- (let* ((match-data (match-data))
- (startpos (copy-marker (line-beginning-position)))
- (logging (save-match-data (org-entry-get nil "LOGGING" t t)))
- (org-log-done org-log-done)
- (org-log-repeat org-log-repeat)
- (org-todo-log-states org-todo-log-states)
- (org-inhibit-logging
- (if (equal arg 0)
- (progn (setq arg nil) 'note) org-inhibit-logging))
- (this (match-string 1))
- (hl-pos (match-beginning 0))
- (head (org-get-todo-sequence-head this))
- (ass (assoc head org-todo-kwd-alist))
- (interpret (nth 1 ass))
- (done-word (nth 3 ass))
- (final-done-word (nth 4 ass))
- (org-last-state (or this ""))
- (completion-ignore-case t)
- (member (member this org-todo-keywords-1))
- (tail (cdr member))
- (org-state (cond
- ((and org-todo-key-trigger
- (or (and (equal arg '(4))
- (eq org-use-fast-todo-selection 'prefix))
- (and (not arg) org-use-fast-todo-selection
- (not (eq org-use-fast-todo-selection
- 'prefix)))))
- ;; Use fast selection.
- (org-fast-todo-selection))
- ((and (equal arg '(4))
- (or (not org-use-fast-todo-selection)
- (not org-todo-key-trigger)))
- ;; Read a state with completion.
- (completing-read
- "State: " (mapcar #'list org-todo-keywords-1)
- nil t))
- ((eq arg 'right)
- (if this
- (if tail (car tail) nil)
- (car org-todo-keywords-1)))
- ((eq arg 'left)
- (unless (equal member org-todo-keywords-1)
- (if this
- (nth (- (length org-todo-keywords-1)
- (length tail) 2)
- org-todo-keywords-1)
- (org-last org-todo-keywords-1))))
- ((and (eq org-use-fast-todo-selection t) (equal arg '(4))
- (setq arg nil))) ;hack to fall back to cycling
- (arg
- ;; User or caller requests a specific state.
- (cond
- ((equal arg "") nil)
- ((eq arg 'none) nil)
- ((eq arg 'done) (or done-word (car org-done-keywords)))
- ((eq arg 'nextset)
- (or (car (cdr (member head org-todo-heads)))
- (car org-todo-heads)))
- ((eq arg 'previousset)
- (let ((org-todo-heads (reverse org-todo-heads)))
- (or (car (cdr (member head org-todo-heads)))
- (car org-todo-heads))))
- ((car (member arg org-todo-keywords-1)))
- ((stringp arg)
- (user-error "State `%s' not valid in this file" arg))
- ((nth (1- (prefix-numeric-value arg))
- org-todo-keywords-1))))
- ((null member) (or head (car org-todo-keywords-1)))
- ((equal this final-done-word) nil) ;-> make empty
- ((null tail) nil) ;-> first entry
- ((memq interpret '(type priority))
- (if (eq this-command last-command)
- (car tail)
- (if (> (length tail) 0)
- (or done-word (car org-done-keywords))
- nil)))
- (t
- (car tail))))
- (org-state (or
- (run-hook-with-args-until-success
- 'org-todo-get-default-hook org-state org-last-state)
- org-state))
- (next (if org-state (concat " " org-state " ") " "))
- (change-plist (list :type 'todo-state-change :from this :to org-state
- :position startpos))
- dolog now-done-p)
- (when org-blocker-hook
- (let (org-blocked-by-checkboxes block-reason)
- (setq org-last-todo-state-is-todo
- (not (member this org-done-keywords)))
- (unless (save-excursion
- (save-match-data
- (org-with-wide-buffer
- (run-hook-with-args-until-failure
- 'org-blocker-hook change-plist))))
- (setq block-reason (if org-blocked-by-checkboxes
- "contained checkboxes"
- (format "\"%s\"" org-block-entry-blocking)))
- (if (called-interactively-p 'interactive)
- (user-error "TODO state change from %s to %s blocked (by %s)"
- this org-state block-reason)
- ;; Fail silently.
- (message "TODO state change from %s to %s blocked (by %s)"
- this org-state block-reason)
- (throw 'exit nil)))))
- (store-match-data match-data)
- (replace-match next t t)
- (cond ((equal this org-state)
- (message "TODO state was already %s" (org-trim next)))
- ((not (pos-visible-in-window-p hl-pos))
- (message "TODO state changed to %s" (org-trim next))))
- (unless head
- (setq head (org-get-todo-sequence-head org-state)
- ass (assoc head org-todo-kwd-alist)
- interpret (nth 1 ass)
- done-word (nth 3 ass)
- final-done-word (nth 4 ass)))
- (when (memq arg '(nextset previousset))
- (message "Keyword-Set %d/%d: %s"
- (- (length org-todo-sets) -1
- (length (memq (assoc org-state org-todo-sets) org-todo-sets)))
- (length org-todo-sets)
- (mapconcat 'identity (assoc org-state org-todo-sets) " ")))
- (setq org-last-todo-state-is-todo
- (not (member org-state org-done-keywords)))
- (setq now-done-p (and (member org-state org-done-keywords)
- (not (member this org-done-keywords))))
- (and logging (org-local-logging logging))
- (when (and (or org-todo-log-states org-log-done)
- (not (eq org-inhibit-logging t))
- (not (memq arg '(nextset previousset))))
- ;; We need to look at recording a time and note.
- (setq dolog (or (nth 1 (assoc org-state org-todo-log-states))
- (nth 2 (assoc this org-todo-log-states))))
- (when (and (eq dolog 'note) (eq org-inhibit-logging 'note))
- (setq dolog 'time))
- (when (or (and (not org-state) (not org-closed-keep-when-no-todo))
- (and org-state
- (member org-state org-not-done-keywords)
- (not (member this org-not-done-keywords))))
- ;; This is now a todo state and was not one before
- ;; If there was a CLOSED time stamp, get rid of it.
- (org-add-planning-info nil nil 'closed))
- (when (and now-done-p org-log-done)
- ;; It is now done, and it was not done before.
- (org-add-planning-info 'closed (org-current-effective-time))
- (when (and (not dolog) (eq 'note org-log-done))
- (org-add-log-setup 'done org-state this 'note)))
- (when (and org-state dolog)
- ;; This is a non-nil state, and we need to log it.
- (org-add-log-setup 'state org-state this dolog)))
- ;; Fixup tag positioning.
- (org-todo-trigger-tag-changes org-state)
- (and org-auto-align-tags (not org-setting-tags) (org-set-tags nil t))
- (when org-provide-todo-statistics
- (org-update-parent-todo-statistics))
- (run-hooks 'org-after-todo-state-change-hook)
- (when (and arg (not (member org-state org-done-keywords)))
- (setq head (org-get-todo-sequence-head org-state)))
- (put-text-property (point-at-bol) (point-at-eol) 'org-todo-head head)
- ;; Do we need to trigger a repeat?
- (when now-done-p
- (when (boundp 'org-agenda-headline-snapshot-before-repeat)
- ;; This is for the agenda, take a snapshot of the headline.
- (save-match-data
- (setq org-agenda-headline-snapshot-before-repeat
- (org-get-heading))))
- (org-auto-repeat-maybe org-state))
- ;; Fixup cursor location if close to the keyword.
- (when (and (outline-on-heading-p)
- (not (bolp))
- (save-excursion (beginning-of-line 1)
- (looking-at org-todo-line-regexp))
- (< (point) (+ 2 (or (match-end 2) (match-end 1)))))
- (goto-char (or (match-end 2) (match-end 1)))
- (and (looking-at " ") (just-one-space)))
- (when org-trigger-hook
- (save-excursion
- (run-hook-with-args 'org-trigger-hook change-plist)))
- (when commentp (org-toggle-comment))))))))
-
-(defun org-block-todo-from-children-or-siblings-or-parent (change-plist)
- "Block turning an entry into a TODO, using the hierarchy.
-This checks whether the current task should be blocked from state
-changes. Such blocking occurs when:
-
- 1. The task has children which are not all in a completed state.
-
- 2. A task has a parent with the property :ORDERED:, and there
- are siblings prior to the current task with incomplete
- status.
-
- 3. The parent of the task is blocked because it has siblings that should
- be done first, or is child of a block grandparent TODO entry."
-
- (if (not org-enforce-todo-dependencies)
- t ; if locally turned off don't block
- (catch 'dont-block
- ;; If this is not a todo state change, or if this entry is already DONE,
- ;; do not block
- (when (or (not (eq (plist-get change-plist :type) 'todo-state-change))
- (member (plist-get change-plist :from)
- (cons 'done org-done-keywords))
- (member (plist-get change-plist :to)
- (cons 'todo org-not-done-keywords))
- (not (plist-get change-plist :to)))
- (throw 'dont-block t))
- ;; If this task has children, and any are undone, it's blocked
- (save-excursion
- (org-back-to-heading t)
- (let ((this-level (funcall outline-level)))
- (outline-next-heading)
- (let ((child-level (funcall outline-level)))
- (while (and (not (eobp))
- (> child-level this-level))
- ;; this todo has children, check whether they are all
- ;; completed
- (when (and (not (org-entry-is-done-p))
- (org-entry-is-todo-p))
- (setq org-block-entry-blocking (org-get-heading))
- (throw 'dont-block nil))
- (outline-next-heading)
- (setq child-level (funcall outline-level))))))
- ;; Otherwise, if the task's parent has the :ORDERED: property, and
- ;; any previous siblings are undone, it's blocked
- (save-excursion
- (org-back-to-heading t)
- (let* ((pos (point))
- (parent-pos (and (org-up-heading-safe) (point)))
- (case-fold-search nil))
- (unless parent-pos (throw 'dont-block t)) ; no parent
- (when (and (org-not-nil (org-entry-get (point) "ORDERED"))
- (forward-line 1)
- (re-search-forward org-not-done-heading-regexp pos t))
- (setq org-block-entry-blocking (match-string 0))
- (throw 'dont-block nil)) ; block, there is an older sibling not done.
- ;; Search further up the hierarchy, to see if an ancestor is blocked
- (while t
- (goto-char parent-pos)
- (unless (looking-at org-not-done-heading-regexp)
- (throw 'dont-block t)) ; do not block, parent is not a TODO
- (setq pos (point))
- (setq parent-pos (and (org-up-heading-safe) (point)))
- (unless parent-pos (throw 'dont-block t)) ; no parent
- (when (and (org-not-nil (org-entry-get (point) "ORDERED"))
- (forward-line 1)
- (re-search-forward org-not-done-heading-regexp pos t)
- (setq org-block-entry-blocking (org-get-heading)))
- (throw 'dont-block nil)))))))) ; block, older sibling not done.
-
-(defcustom org-track-ordered-property-with-tag nil
- "Should the ORDERED property also be shown as a tag?
-The ORDERED property decides if an entry should require subtasks to be
-completed in sequence. Since a property is not very visible, setting
-this option means that toggling the ORDERED property with the command
-`org-toggle-ordered-property' will also toggle a tag ORDERED. That tag is
-not relevant for the behavior, but it makes things more visible.
-
-Note that toggling the tag with tags commands will not change the property
-and therefore not influence behavior!
-
-This can be t, meaning the tag ORDERED should be used, It can also be a
-string to select a different tag for this task."
- :group 'org-todo
- :type '(choice
- (const :tag "No tracking" nil)
- (const :tag "Track with ORDERED tag" t)
- (string :tag "Use other tag")))
-
-(defun org-toggle-ordered-property ()
- "Toggle the ORDERED property of the current entry.
-For better visibility, you can track the value of this property with a tag.
-See variable `org-track-ordered-property-with-tag'."
- (interactive)
- (let* ((t1 org-track-ordered-property-with-tag)
- (tag (and t1 (if (stringp t1) t1 "ORDERED"))))
- (save-excursion
- (org-back-to-heading)
- (if (org-entry-get nil "ORDERED")
- (progn
- (org-delete-property "ORDERED")
- (and tag (org-toggle-tag tag 'off))
- (message "Subtasks can be completed in arbitrary order"))
- (org-entry-put nil "ORDERED" "t")
- (and tag (org-toggle-tag tag 'on))
- (message "Subtasks must be completed in sequence")))))
-
-(defun org-block-todo-from-checkboxes (change-plist)
- "Block turning an entry into a TODO, using checkboxes.
-This checks whether the current task should be blocked from state
-changes because there are unchecked boxes in this entry."
- (if (not org-enforce-todo-checkbox-dependencies)
- t ; if locally turned off don't block
- (catch 'dont-block
- ;; If this is not a todo state change, or if this entry is already DONE,
- ;; do not block
- (when (or (not (eq (plist-get change-plist :type) 'todo-state-change))
- (member (plist-get change-plist :from)
- (cons 'done org-done-keywords))
- (member (plist-get change-plist :to)
- (cons 'todo org-not-done-keywords))
- (not (plist-get change-plist :to)))
- (throw 'dont-block t))
- ;; If this task has checkboxes that are not checked, it's blocked
- (save-excursion
- (org-back-to-heading t)
- (let ((beg (point)) end)
- (outline-next-heading)
- (setq end (point))
- (goto-char beg)
- (when (org-list-search-forward
- (concat (org-item-beginning-re)
- "\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ \t]*\\)?"
- "\\[[- ]\\]")
- end t)
- (when (boundp 'org-blocked-by-checkboxes)
- (setq org-blocked-by-checkboxes t))
- (throw 'dont-block nil))))
- t))) ; do not block
-
-(defun org-entry-blocked-p ()
- "Non-nil if entry at point is blocked."
- (and (not (org-entry-get nil "NOBLOCKING"))
- (member (org-entry-get nil "TODO") org-not-done-keywords)
- (not (run-hook-with-args-until-failure
- 'org-blocker-hook
- (list :type 'todo-state-change
- :position (point)
- :from 'todo
- :to 'done)))))
-
-(defun org-update-statistics-cookies (all)
- "Update the statistics cookie, either from TODO or from checkboxes.
-This should be called with the cursor in a line with a statistics
-cookie. When called with a \\[universal-argument] prefix, update
-all statistics cookies in the buffer."
- (interactive "P")
- (if all
- (progn
- (org-update-checkbox-count 'all)
- (org-map-entries 'org-update-parent-todo-statistics))
- (if (not (org-at-heading-p))
- (org-update-checkbox-count)
- (let ((pos (point-marker))
- end l1 l2)
- (ignore-errors (org-back-to-heading t))
- (if (not (org-at-heading-p))
- (org-update-checkbox-count)
- (setq l1 (org-outline-level))
- (setq end (save-excursion
- (outline-next-heading)
- (when (org-at-heading-p) (setq l2 (org-outline-level)))
- (point)))
- (if (and (save-excursion
- (re-search-forward
- "^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) \\[[- X]\\]" end t))
- (not (save-excursion (re-search-forward
- ":COOKIE_DATA:.*\\<todo\\>" end t))))
- (org-update-checkbox-count)
- (if (and l2 (> l2 l1))
- (progn
- (goto-char end)
- (org-update-parent-todo-statistics))
- (goto-char pos)
- (beginning-of-line 1)
- (while (re-search-forward
- "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)"
- (point-at-eol) t)
- (replace-match (if (match-end 2) "[100%]" "[0/0]") t t)))))
- (goto-char pos)
- (move-marker pos nil)))))
-
-(defvar org-entry-property-inherited-from) ;; defined below
-(defun org-update-parent-todo-statistics ()
- "Update any statistics cookie in the parent of the current headline.
-When `org-hierarchical-todo-statistics' is nil, statistics will cover
-the entire subtree and this will travel up the hierarchy and update
-statistics everywhere."
- (let* ((prop (save-excursion (org-up-heading-safe)
- (org-entry-get nil "COOKIE_DATA" 'inherit)))
- (recursive (or (not org-hierarchical-todo-statistics)
- (and prop (string-match "\\<recursive\\>" prop))))
- (lim (or (and prop (marker-position org-entry-property-inherited-from))
- 0))
- (first t)
- (box-re "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)")
- level ltoggle l1 new ndel
- (cnt-all 0) (cnt-done 0) is-percent kwd
- checkbox-beg cookie-present)
- (catch 'exit
- (save-excursion
- (beginning-of-line 1)
- (setq ltoggle (funcall outline-level))
- ;; Three situations are to consider:
-
- ;; 1. if `org-hierarchical-todo-statistics' is nil, repeat up
- ;; to the top-level ancestor on the headline;
-
- ;; 2. If parent has "recursive" property, repeat up to the
- ;; headline setting that property, taking inheritance into
- ;; account;
-
- ;; 3. Else, move up to direct parent and proceed only once.
- (while (and (setq level (org-up-heading-safe))
- (or recursive first)
- (>= (point) lim))
- (setq first nil cookie-present nil)
- (unless (and level
- (not (string-match
- "\\<checkbox\\>"
- (downcase (or (org-entry-get nil "COOKIE_DATA")
- "")))))
- (throw 'exit nil))
- (while (re-search-forward box-re (point-at-eol) t)
- (setq cnt-all 0 cnt-done 0 cookie-present t)
- (setq is-percent (match-end 2) checkbox-beg (match-beginning 0))
- (save-match-data
- (unless (outline-next-heading) (throw 'exit nil))
- (while (and (looking-at org-complex-heading-regexp)
- (> (setq l1 (length (match-string 1))) level))
- (setq kwd (and (or recursive (= l1 ltoggle))
- (match-string 2)))
- (if (or (eq org-provide-todo-statistics 'all-headlines)
- (and (eq org-provide-todo-statistics t)
- (or (member kwd org-done-keywords)))
- (and (listp org-provide-todo-statistics)
- (stringp (car org-provide-todo-statistics))
- (or (member kwd org-provide-todo-statistics)
- (member kwd org-done-keywords)))
- (and (listp org-provide-todo-statistics)
- (listp (car org-provide-todo-statistics))
- (or (member kwd (car org-provide-todo-statistics))
- (and (member kwd org-done-keywords)
- (member kwd (cadr org-provide-todo-statistics))))))
- (setq cnt-all (1+ cnt-all))
- (and (eq org-provide-todo-statistics t)
- kwd
- (setq cnt-all (1+ cnt-all))))
- (when (or (and (member org-provide-todo-statistics '(t all-headlines))
- (member kwd org-done-keywords))
- (and (listp org-provide-todo-statistics)
- (listp (car org-provide-todo-statistics))
- (member kwd org-done-keywords)
- (member kwd (cadr org-provide-todo-statistics)))
- (and (listp org-provide-todo-statistics)
- (stringp (car org-provide-todo-statistics))
- (member kwd org-done-keywords)))
- (setq cnt-done (1+ cnt-done)))
- (outline-next-heading)))
- (setq new
- (if is-percent
- (format "[%d%%]" (floor (* 100.0 cnt-done)
- (max 1 cnt-all)))
- (format "[%d/%d]" cnt-done cnt-all))
- ndel (- (match-end 0) checkbox-beg))
- (goto-char checkbox-beg)
- (insert new)
- (delete-region (point) (+ (point) ndel))
- (when org-auto-align-tags (org-fix-tags-on-the-fly)))
- (when cookie-present
- (run-hook-with-args 'org-after-todo-statistics-hook
- cnt-done (- cnt-all cnt-done))))))
- (run-hooks 'org-todo-statistics-hook)))
-
-(defvar org-after-todo-statistics-hook nil
- "Hook that is called after a TODO statistics cookie has been updated.
-Each function is called with two arguments: the number of not-done entries
-and the number of done entries.
-
-For example, the following function, when added to this hook, will switch
-an entry to DONE when all children are done, and back to TODO when new
-entries are set to a TODO status. Note that this hook is only called
-when there is a statistics cookie in the headline!
-
- (defun org-summary-todo (n-done n-not-done)
- \"Switch entry to DONE when all subentries are done, to TODO otherwise.\"
- (let (org-log-done org-log-states) ; turn off logging
- (org-todo (if (= n-not-done 0) \"DONE\" \"TODO\"))))
-")
-
-(defvar org-todo-statistics-hook nil
- "Hook that is run whenever Org thinks TODO statistics should be updated.
-This hook runs even if there is no statistics cookie present, in which case
-`org-after-todo-statistics-hook' would not run.")
-
-(defun org-todo-trigger-tag-changes (state)
- "Apply the changes defined in `org-todo-state-tags-triggers'."
- (let ((l org-todo-state-tags-triggers)
- changes)
- (when (or (not state) (equal state ""))
- (setq changes (append changes (cdr (assoc "" l)))))
- (when (and (stringp state) (> (length state) 0))
- (setq changes (append changes (cdr (assoc state l)))))
- (when (member state org-not-done-keywords)
- (setq changes (append changes (cdr (assq 'todo l)))))
- (when (member state org-done-keywords)
- (setq changes (append changes (cdr (assq 'done l)))))
- (dolist (c changes)
- (org-toggle-tag (car c) (if (cdr c) 'on 'off)))))
-
-(defun org-local-logging (value)
- "Get logging settings from a property VALUE."
- ;; Directly set the variables, they are already local.
- (setq org-log-done nil
- org-log-repeat nil
- org-todo-log-states nil)
- (dolist (w (split-string value))
- (let (a)
- (cond
- ((setq a (assoc w org-startup-options))
- (and (member (nth 1 a) '(org-log-done org-log-repeat))
- (set (nth 1 a) (nth 2 a))))
- ((setq a (org-extract-log-state-settings w))
- (and (member (car a) org-todo-keywords-1)
- (push a org-todo-log-states)))))))
-
-(defun org-get-todo-sequence-head (kwd)
- "Return the head of the TODO sequence to which KWD belongs.
-If KWD is not set, check if there is a text property remembering the
-right sequence."
- (let (p)
- (cond
- ((not kwd)
- (or (get-text-property (point-at-bol) 'org-todo-head)
- (progn
- (setq p (next-single-property-change (point-at-bol) 'org-todo-head
- nil (point-at-eol)))
- (get-text-property p 'org-todo-head))))
- ((not (member kwd org-todo-keywords-1))
- (car org-todo-keywords-1))
- (t (nth 2 (assoc kwd org-todo-kwd-alist))))))
-
-(defun org-fast-todo-selection ()
- "Fast TODO keyword selection with single keys.
-Returns the new TODO keyword, or nil if no state change should occur."
- (let* ((fulltable org-todo-key-alist)
- (done-keywords org-done-keywords) ;; needed for the faces.
- (maxlen (apply 'max (mapcar
- (lambda (x)
- (if (stringp (car x)) (string-width (car x)) 0))
- fulltable)))
- (expert nil)
- (fwidth (+ maxlen 3 1 3))
- (ncol (/ (- (window-width) 4) fwidth))
- tg cnt e c tbl
- groups ingroup)
- (save-excursion
- (save-window-excursion
- (if expert
- (set-buffer (get-buffer-create " *Org todo*"))
- (org-switch-to-buffer-other-window (get-buffer-create " *Org todo*")))
- (erase-buffer)
- (setq-local org-done-keywords done-keywords)
- (setq tbl fulltable cnt 0)
- (while (setq e (pop tbl))
- (cond
- ((equal e '(:startgroup))
- (push '() groups) (setq ingroup t)
- (unless (= cnt 0)
- (setq cnt 0)
- (insert "\n"))
- (insert "{ "))
- ((equal e '(:endgroup))
- (setq ingroup nil cnt 0)
- (insert "}\n"))
- ((equal e '(:newline))
- (unless (= cnt 0)
- (setq cnt 0)
- (insert "\n")
- (setq e (car tbl))
- (while (equal (car tbl) '(:newline))
- (insert "\n")
- (setq tbl (cdr tbl)))))
- (t
- (setq tg (car e) c (cdr e))
- (when ingroup (push tg (car groups)))
- (setq tg (org-add-props tg nil 'face
- (org-get-todo-face tg)))
- (when (and (= cnt 0) (not ingroup)) (insert " "))
- (insert "[" c "] " tg (make-string
- (- fwidth 4 (length tg)) ?\ ))
- (when (= (setq cnt (1+ cnt)) ncol)
- (insert "\n")
- (when ingroup (insert " "))
- (setq cnt 0)))))
- (insert "\n")
- (goto-char (point-min))
- (unless expert (org-fit-window-to-buffer))
- (message "[a-z..]:Set [SPC]:clear")
- (setq c (let ((inhibit-quit t)) (read-char-exclusive)))
- (cond
- ((or (= c ?\C-g)
- (and (= c ?q) (not (rassoc c fulltable))))
- (setq quit-flag t))
- ((= c ?\ ) nil)
- ((setq e (rassoc c fulltable) tg (car e))
- tg)
- (t (setq quit-flag t)))))))
-
-(defun org-entry-is-todo-p ()
- (member (org-get-todo-state) org-not-done-keywords))
-
-(defun org-entry-is-done-p ()
- (member (org-get-todo-state) org-done-keywords))
-
-(defun org-get-todo-state ()
- "Return the TODO keyword of the current subtree."
- (save-excursion
- (org-back-to-heading t)
- (and (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
- (match-end 2)
- (match-string 2))))
-
-(defun org-at-date-range-p (&optional inactive-ok)
- "Non-nil if point is inside a date range.
-
-When optional argument INACTIVE-OK is non-nil, also consider
-inactive time ranges.
-
-When this function returns a non-nil value, match data is set
-according to `org-tr-regexp-both' or `org-tr-regexp', depending
-on INACTIVE-OK."
- (interactive)
- (save-excursion
- (catch 'exit
- (let ((pos (point)))
- (skip-chars-backward "^[<\r\n")
- (skip-chars-backward "<[")
- (and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
- (>= (match-end 0) pos)
- (throw 'exit t))
- (skip-chars-backward "^<[\r\n")
- (skip-chars-backward "<[")
- (and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
- (>= (match-end 0) pos)
- (throw 'exit t)))
- nil)))
-
-(defun org-get-repeat (&optional timestamp)
- "Check if there is a time-stamp with repeater in this entry.
-
-Return the repeater, as a string, or nil. Also return nil when
-this function is called before first heading.
-
-When optional argument TIMESTAMP is a string, extract the
-repeater from there instead."
- (save-match-data
- (cond (timestamp
- (and (string-match org-repeat-re timestamp)
- (match-string-no-properties 1 timestamp)))
- ((org-before-first-heading-p) nil)
- (t
- (save-excursion
- (org-back-to-heading t)
- (let ((end (org-entry-end-position)))
- (catch :repeat
- (while (re-search-forward org-repeat-re end t)
- (when (save-match-data (org-at-timestamp-p 'agenda))
- (throw :repeat (match-string-no-properties 1)))))))))))
-
-(defvar org-last-changed-timestamp)
-(defvar org-last-inserted-timestamp)
-(defvar org-log-post-message)
-(defvar org-log-note-purpose)
-(defvar org-log-note-how nil)
-(defvar org-log-note-extra)
-(defun org-auto-repeat-maybe (done-word)
- "Check if the current headline contains a repeated time-stamp.
-
-If yes, set TODO state back to what it was and change the base date
-of repeating deadline/scheduled time stamps to new date.
-
-This function is run automatically after each state change to a DONE state."
- (let* ((repeat (org-get-repeat))
- (aa (assoc org-last-state org-todo-kwd-alist))
- (interpret (nth 1 aa))
- (head (nth 2 aa))
- (whata '(("h" . hour) ("d" . day) ("m" . month) ("y" . year)))
- (msg "Entry repeats: ")
- (org-log-done nil)
- (org-todo-log-states nil)
- (end (copy-marker (org-entry-end-position))))
- (unwind-protect
- (when (and repeat (not (zerop (string-to-number (substring repeat 1)))))
- (when (eq org-log-repeat t) (setq org-log-repeat 'state))
- (let ((to-state (or (org-entry-get nil "REPEAT_TO_STATE" 'selective)
- org-todo-repeat-to-state)))
- (org-todo (cond
- ((and to-state (member to-state org-todo-keywords-1))
- to-state)
- ((eq interpret 'type) org-last-state)
- (head)
- (t 'none))))
- (org-back-to-heading t)
- (org-add-planning-info nil nil 'closed)
- ;; When `org-log-repeat' is non-nil or entry contains
- ;; a clock, set LAST_REPEAT property.
- (when (or org-log-repeat
- (catch :clock
- (save-excursion
- (while (re-search-forward org-clock-line-re end t)
- (when (org-at-clock-log-p) (throw :clock t))))))
- (org-entry-put nil "LAST_REPEAT" (format-time-string
- (org-time-stamp-format t t)
- (current-time))))
- (when org-log-repeat
- (if (or (memq 'org-add-log-note (default-value 'post-command-hook))
- (memq 'org-add-log-note post-command-hook))
- ;; We are already setup for some record.
- (when (eq org-log-repeat 'note)
- ;; Make sure we take a note, not only a time stamp.
- (setq org-log-note-how 'note))
- ;; Set up for taking a record.
- (org-add-log-setup 'state
- (or done-word (car org-done-keywords))
- org-last-state
- org-log-repeat)))
- (let ((planning-re (regexp-opt
- (list org-scheduled-string org-deadline-string))))
- (while (re-search-forward org-ts-regexp end t)
- (let* ((ts (match-string 0))
- (planning? (org-at-planning-p))
- (type (if (not planning?) "Plain:"
- (save-excursion
- (re-search-backward
- planning-re (line-beginning-position) t)
- (match-string 0)))))
- (cond
- ;; Ignore fake time-stamps (e.g., within comments).
- ((not (org-at-timestamp-p 'agenda)))
- ;; Time-stamps without a repeater are usually
- ;; skipped. However, a SCHEDULED time-stamp without
- ;; one is removed, as they are no longer relevant.
- ((not (string-match "\\([.+]\\)?\\(\\+[0-9]+\\)\\([hdwmy]\\)"
- ts))
- (when (equal type org-scheduled-string)
- (org-remove-timestamp-with-keyword type)))
- (t
- (let ((n (string-to-number (match-string 2 ts)))
- (what (match-string 3 ts)))
- (when (equal what "w") (setq n (* n 7) what "d"))
- (when (and (equal what "h")
- (not (string-match-p "[0-9]\\{1,2\\}:[0-9]\\{2\\}"
- ts)))
- (user-error
- "Cannot repeat in Repeat in %d hour(s) because no hour \
-has been set"
- n))
- ;; Preparation, see if we need to modify the start
- ;; date for the change.
- (when (match-end 1)
- (let ((time (save-match-data
- (org-time-string-to-time ts))))
- (cond
- ((equal (match-string 1 ts) ".")
- ;; Shift starting date to today
- (org-timestamp-change
- (- (org-today) (time-to-days time))
- 'day))
- ((equal (match-string 1 ts) "+")
- (let ((nshiftmax 10)
- (nshift 0))
- (while (or (= nshift 0)
- (not (time-less-p (current-time) time)))
- (when (= (cl-incf nshift) nshiftmax)
- (or (y-or-n-p
- (format "%d repeater intervals were not \
-enough to shift date past today. Continue? "
- nshift))
- (user-error "Abort")))
- (org-timestamp-change n (cdr (assoc what whata)))
- (org-in-regexp org-ts-regexp3)
- (setq ts (match-string 1))
- (setq time
- (save-match-data
- (org-time-string-to-time ts)))))
- (org-timestamp-change (- n) (cdr (assoc what whata)))
- ;; Rematch, so that we have everything in place
- ;; for the real shift.
- (org-in-regexp org-ts-regexp3)
- (setq ts (match-string 1))
- (string-match "\\([.+]\\)?\\(\\+[0-9]+\\)\\([hdwmy]\\)"
- ts)))))
- (save-excursion
- (org-timestamp-change n (cdr (assoc what whata)) nil t))
- (setq msg
- (concat
- msg type " " org-last-changed-timestamp " "))))))))
- (setq org-log-post-message msg)
- (message "%s" msg))
- (set-marker end nil))))
-
-(defun org-show-todo-tree (arg)
- "Make a compact tree which shows all headlines marked with TODO.
-The tree will show the lines where the regexp matches, and all higher
-headlines above the match.
-With a `\\[universal-argument]' prefix, prompt for a regexp to match.
-With a numeric prefix N, construct a sparse tree for the Nth element
-of `org-todo-keywords-1'."
- (interactive "P")
- (let ((case-fold-search nil)
- (kwd-re
- (cond ((null arg) org-not-done-regexp)
- ((equal arg '(4))
- (let ((kwd
- (completing-read "Keyword (or KWD1|KWD2|...): "
- (mapcar #'list org-todo-keywords-1))))
- (concat "\\("
- (mapconcat 'identity (org-split-string kwd "|") "\\|")
- "\\)\\>")))
- ((<= (prefix-numeric-value arg) (length org-todo-keywords-1))
- (regexp-quote (nth (1- (prefix-numeric-value arg))
- org-todo-keywords-1)))
- (t (user-error "Invalid prefix argument: %s" arg)))))
- (message "%d TODO entries found"
- (org-occur (concat "^" org-outline-regexp " *" kwd-re )))))
-
-(defun org--deadline-or-schedule (arg type time)
- "Insert DEADLINE or SCHEDULE information in current entry.
-TYPE is either `deadline' or `scheduled'. See `org-deadline' or
-`org-schedule' for information about ARG and TIME arguments."
- (let* ((deadline? (eq type 'deadline))
- (keyword (if deadline? org-deadline-string org-scheduled-string))
- (log (if deadline? org-log-redeadline org-log-reschedule))
- (old-date (org-entry-get nil (if deadline? "DEADLINE" "SCHEDULED")))
- (old-date-time (and old-date (org-time-string-to-time old-date)))
- ;; Save repeater cookie from either TIME or current scheduled
- ;; time stamp. We are going to insert it back at the end of
- ;; the process.
- (repeater (or (and (org-string-nw-p time)
- ;; We use `org-repeat-re' because we need
- ;; to tell the difference between a real
- ;; repeater and a time delta, e.g. "+2d".
- (string-match org-repeat-re time)
- (match-string 1 time))
- (and (org-string-nw-p old-date)
- (string-match "\\([.+-]+[0-9]+[hdwmy]\
-\\(?:[/ ][-+]?[0-9]+[hdwmy]\\)?\\)"
- old-date)
- (match-string 1 old-date)))))
- (pcase arg
- (`(4)
- (when (and old-date log)
- (org-add-log-setup (if deadline? 'deldeadline 'delschedule)
- nil old-date log))
- (org-remove-timestamp-with-keyword keyword)
- (message (if deadline? "Item no longer has a deadline."
- "Item is no longer scheduled.")))
- (`(16)
- (save-excursion
- (org-back-to-heading t)
- (let ((regexp (if deadline? org-deadline-time-regexp
- org-scheduled-time-regexp)))
- (if (not (re-search-forward regexp (line-end-position 2) t))
- (user-error (if deadline? "No deadline information to update"
- "No scheduled information to update"))
- (let* ((rpl0 (match-string 1))
- (rpl (replace-regexp-in-string " -[0-9]+[hdwmy]" "" rpl0))
- (msg (if deadline? "Warn starting from" "Delay until")))
- (replace-match
- (concat keyword
- " <" rpl
- (format " -%dd"
- (abs (- (time-to-days
- (save-match-data
- (org-read-date
- nil t nil msg old-date-time)))
- (time-to-days old-date-time))))
- ">") t t))))))
- (_
- (org-add-planning-info type time 'closed)
- (when (and old-date
- log
- (not (equal old-date org-last-inserted-timestamp)))
- (org-add-log-setup (if deadline? 'redeadline 'reschedule)
- org-last-inserted-timestamp
- old-date
- log))
- (when repeater
- (save-excursion
- (org-back-to-heading t)
- (when (re-search-forward
- (concat keyword " " org-last-inserted-timestamp)
- (line-end-position 2)
- t)
- (goto-char (1- (match-end 0)))
- (insert " " repeater)
- (setq org-last-inserted-timestamp
- (concat (substring org-last-inserted-timestamp 0 -1)
- " " repeater
- (substring org-last-inserted-timestamp -1))))))
- (message (if deadline? "Deadline on %s" "Scheduled to %s")
- org-last-inserted-timestamp)))))
-
-(defun org-deadline (arg &optional time)
- "Insert the \"DEADLINE:\" string with a timestamp to make a deadline.
-With one universal prefix argument, remove any deadline from the item.
-With two universal prefix arguments, prompt for a warning delay.
-With argument TIME, set the deadline at the corresponding date. TIME
-can either be an Org date like \"2011-07-24\" or a delta like \"+2d\"."
- (interactive "P")
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (org-map-entries
- (lambda () (org--deadline-or-schedule arg 'deadline time))
- nil
- (if (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level
- 'region)
- (lambda () (when (org-invisible-p) (org-end-of-subtree nil t))))
- (org--deadline-or-schedule arg 'deadline time)))
-
-(defun org-schedule (arg &optional time)
- "Insert the SCHEDULED: string with a timestamp to schedule a TODO item.
-With one universal prefix argument, remove any scheduling date from the item.
-With two universal prefix arguments, prompt for a delay cookie.
-With argument TIME, scheduled at the corresponding date. TIME can
-either be an Org date like \"2011-07-24\" or a delta like \"+2d\"."
- (interactive "P")
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (org-map-entries
- (lambda () (org--deadline-or-schedule arg 'scheduled time))
- nil
- (if (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level
- 'region)
- (lambda () (when (org-invisible-p) (org-end-of-subtree nil t))))
- (org--deadline-or-schedule arg 'scheduled time)))
-
-(defun org-get-scheduled-time (pom &optional inherit)
- "Get the scheduled time as a time tuple, of a format suitable
-for calling org-schedule with, or if there is no scheduling,
-returns nil."
- (let ((time (org-entry-get pom "SCHEDULED" inherit)))
- (when time
- (apply 'encode-time (org-parse-time-string time)))))
-
-(defun org-get-deadline-time (pom &optional inherit)
- "Get the deadline as a time tuple, of a format suitable for
-calling org-deadline with, or if there is no scheduling, returns
-nil."
- (let ((time (org-entry-get pom "DEADLINE" inherit)))
- (when time
- (apply 'encode-time (org-parse-time-string time)))))
-
-(defun org-remove-timestamp-with-keyword (keyword)
- "Remove all time stamps with KEYWORD in the current entry."
- (let ((re (concat "\\<" (regexp-quote keyword) " +<[^>\n]+>[ \t]*"))
- beg)
- (save-excursion
- (org-back-to-heading t)
- (setq beg (point))
- (outline-next-heading)
- (while (re-search-backward re beg t)
- (replace-match "")
- (if (and (string-match "\\S-" (buffer-substring (point-at-bol) (point)))
- (equal (char-before) ?\ ))
- (backward-delete-char 1)
- (when (string-match "^[ \t]*$" (buffer-substring
- (point-at-bol) (point-at-eol)))
- (delete-region (point-at-bol)
- (min (point-max) (1+ (point-at-eol))))))))))
-
-(defvar org-time-was-given) ; dynamically scoped parameter
-(defvar org-end-time-was-given) ; dynamically scoped parameter
-
-(defun org-at-planning-p ()
- "Non-nil when point is on a planning info line."
- ;; This is as accurate and faster than `org-element-at-point' since
- ;; planning info location is fixed in the section.
- (org-with-wide-buffer
- (beginning-of-line)
- (and (looking-at-p org-planning-line-re)
- (eq (point)
- (ignore-errors
- (if (and (featurep 'org-inlinetask) (org-inlinetask-in-task-p))
- (org-back-to-heading t)
- (org-with-limited-levels (org-back-to-heading t)))
- (line-beginning-position 2))))))
-
-(defun org-add-planning-info (what &optional time &rest remove)
- "Insert new timestamp with keyword in the planning line.
-WHAT indicates what kind of time stamp to add. It is a symbol
-among `closed', `deadline', `scheduled' and nil. TIME indicates
-the time to use. If none is given, the user is prompted for
-a date. REMOVE indicates what kind of entries to remove. An old
-WHAT entry will also be removed."
- (let (org-time-was-given org-end-time-was-given default-time default-input)
- (catch 'exit
- (when (and (memq what '(scheduled deadline))
- (or (not time)
- (and (stringp time)
- (string-match "^[-+]+[0-9]" time))))
- ;; Try to get a default date/time from existing timestamp
- (save-excursion
- (org-back-to-heading t)
- (let ((end (save-excursion (outline-next-heading) (point))) ts)
- (when (re-search-forward (if (eq what 'scheduled)
- org-scheduled-time-regexp
- org-deadline-time-regexp)
- end t)
- (setq ts (match-string 1)
- default-time (apply 'encode-time (org-parse-time-string ts))
- default-input (and ts (org-get-compact-tod ts)))))))
- (when what
- (setq time
- (if (stringp time)
- ;; This is a string (relative or absolute), set
- ;; proper date.
- (apply #'encode-time
- (org-read-date-analyze
- time default-time (decode-time default-time)))
- ;; If necessary, get the time from the user
- (or time (org-read-date nil 'to-time nil nil
- default-time default-input)))))
-
- (org-with-wide-buffer
- (org-back-to-heading t)
- (forward-line)
- (unless (bolp) (insert "\n"))
- (cond ((looking-at-p org-planning-line-re)
- ;; Move to current indentation.
- (skip-chars-forward " \t")
- ;; Check if we have to remove something.
- (dolist (type (if what (cons what remove) remove))
- (save-excursion
- (when (re-search-forward
- (cl-case type
- (closed org-closed-time-regexp)
- (deadline org-deadline-time-regexp)
- (scheduled org-scheduled-time-regexp)
- (otherwise
- (error "Invalid planning type: %s" type)))
- (line-end-position) t)
- ;; Delete until next keyword or end of line.
- (delete-region
- (match-beginning 0)
- (if (re-search-forward org-keyword-time-not-clock-regexp
- (line-end-position)
- t)
- (match-beginning 0)
- (line-end-position))))))
- ;; If there is nothing more to add and no more keyword
- ;; is left, remove the line completely.
- (if (and (looking-at-p "[ \t]*$") (not what))
- (delete-region (line-beginning-position)
- (line-beginning-position 2))
- ;; If we removed last keyword, do not leave trailing
- ;; white space at the end of line.
- (let ((p (point)))
- (save-excursion
- (end-of-line)
- (unless (= (skip-chars-backward " \t" p) 0)
- (delete-region (point) (line-end-position)))))))
- ((not what) (throw 'exit nil)) ; Nothing to do.
- (t (insert-before-markers "\n")
- (backward-char 1)
- (when org-adapt-indentation
- (indent-to-column (1+ (org-outline-level))))))
- (when what
- ;; Insert planning keyword.
- (insert (cl-case what
- (closed org-closed-string)
- (deadline org-deadline-string)
- (scheduled org-scheduled-string)
- (otherwise (error "Invalid planning type: %s" what)))
- " ")
- ;; Insert associated timestamp.
- (let ((ts (org-insert-time-stamp
- time
- (or org-time-was-given
- (and (eq what 'closed) org-log-done-with-time))
- (eq what 'closed)
- nil nil (list org-end-time-was-given))))
- (unless (eolp) (insert " "))
- ts))))))
-
-(defvar org-log-note-marker (make-marker)
- "Marker pointing at the entry where the note is to be inserted.")
-(defvar org-log-note-purpose nil)
-(defvar org-log-note-state nil)
-(defvar org-log-note-previous-state nil)
-(defvar org-log-note-extra nil)
-(defvar org-log-note-window-configuration nil)
-(defvar org-log-note-return-to (make-marker))
-(defvar org-log-note-effective-time nil
- "Remembered current time so that dynamically scoped
-`org-extend-today-until' affects timestamps in state change log")
-
-(defvar org-log-post-message nil
- "Message to be displayed after a log note has been stored.
-The auto-repeater uses this.")
-
-(defun org-add-note ()
- "Add a note to the current entry.
-This is done in the same way as adding a state change note."
- (interactive)
- (org-add-log-setup 'note))
-
-(defun org-log-beginning (&optional create)
- "Return expected start of log notes in current entry.
-When optional argument CREATE is non-nil, the function creates
-a drawer to store notes, if necessary. Returned position ignores
-narrowing."
- (org-with-wide-buffer
- (let ((drawer (org-log-into-drawer)))
- (cond
- (drawer
- (org-end-of-meta-data)
- (let ((regexp (concat "^[ \t]*:" (regexp-quote drawer) ":[ \t]*$"))
- (end (if (org-at-heading-p) (point)
- (save-excursion (outline-next-heading) (point))))
- (case-fold-search t))
- (catch 'exit
- ;; Try to find existing drawer.
- (while (re-search-forward regexp end t)
- (let ((element (org-element-at-point)))
- (when (eq (org-element-type element) 'drawer)
- (let ((cend (org-element-property :contents-end element)))
- (when (and (not org-log-states-order-reversed) cend)
- (goto-char cend)))
- (throw 'exit nil))))
- ;; No drawer found. Create one, if permitted.
- (when create
- (unless (bolp) (insert "\n"))
- (let ((beg (point)))
- (insert ":" drawer ":\n:END:\n")
- (org-indent-region beg (point)))
- (end-of-line -1)))))
- (t
- (org-end-of-meta-data org-log-state-notes-insert-after-drawers)
- (skip-chars-forward " \t\n")
- (beginning-of-line)
- (unless org-log-states-order-reversed
- (org-skip-over-state-notes)
- (skip-chars-backward " \t\n")
- (forward-line)))))
- (if (bolp) (point) (line-beginning-position 2))))
-
-(defun org-add-log-setup (&optional purpose state prev-state how extra)
- "Set up the post command hook to take a note.
-If this is about to TODO state change, the new state is expected in STATE.
-HOW is an indicator what kind of note should be created.
-EXTRA is additional text that will be inserted into the notes buffer."
- (move-marker org-log-note-marker (point))
- (setq org-log-note-purpose purpose
- org-log-note-state state
- org-log-note-previous-state prev-state
- org-log-note-how how
- org-log-note-extra extra
- org-log-note-effective-time (org-current-effective-time))
- (add-hook 'post-command-hook 'org-add-log-note 'append))
-
-(defun org-skip-over-state-notes ()
- "Skip past the list of State notes in an entry."
- (when (ignore-errors (goto-char (org-in-item-p)))
- (let* ((struct (org-list-struct))
- (prevs (org-list-prevs-alist struct))
- (regexp
- (concat "[ \t]*- +"
- (replace-regexp-in-string
- " +" " +"
- (org-replace-escapes
- (regexp-quote (cdr (assq 'state org-log-note-headings)))
- `(("%d" . ,org-ts-regexp-inactive)
- ("%D" . ,org-ts-regexp)
- ("%s" . "\\(?:\"\\S-+\"\\)?")
- ("%S" . "\\(?:\"\\S-+\"\\)?")
- ("%t" . ,org-ts-regexp-inactive)
- ("%T" . ,org-ts-regexp)
- ("%u" . ".*?")
- ("%U" . ".*?")))))))
- (while (looking-at-p regexp)
- (goto-char (or (org-list-get-next-item (point) struct prevs)
- (org-list-get-item-end (point) struct)))))))
-
-(defun org-add-log-note (&optional _purpose)
- "Pop up a window for taking a note, and add this note later."
- (remove-hook 'post-command-hook 'org-add-log-note)
- (setq org-log-note-window-configuration (current-window-configuration))
- (delete-other-windows)
- (move-marker org-log-note-return-to (point))
- (pop-to-buffer-same-window (marker-buffer org-log-note-marker))
- (goto-char org-log-note-marker)
- (org-switch-to-buffer-other-window "*Org Note*")
- (erase-buffer)
- (if (memq org-log-note-how '(time state))
- (org-store-log-note)
- (let ((org-inhibit-startup t)) (org-mode))
- (insert (format "# Insert note for %s.
-# Finish with C-c C-c, or cancel with C-c C-k.\n\n"
- (cond
- ((eq org-log-note-purpose 'clock-out) "stopped clock")
- ((eq org-log-note-purpose 'done) "closed todo item")
- ((eq org-log-note-purpose 'state)
- (format "state change from \"%s\" to \"%s\""
- (or org-log-note-previous-state "")
- (or org-log-note-state "")))
- ((eq org-log-note-purpose 'reschedule)
- "rescheduling")
- ((eq org-log-note-purpose 'delschedule)
- "no longer scheduled")
- ((eq org-log-note-purpose 'redeadline)
- "changing deadline")
- ((eq org-log-note-purpose 'deldeadline)
- "removing deadline")
- ((eq org-log-note-purpose 'refile)
- "refiling")
- ((eq org-log-note-purpose 'note)
- "this entry")
- (t (error "This should not happen")))))
- (when org-log-note-extra (insert org-log-note-extra))
- (setq-local org-finish-function 'org-store-log-note)
- (run-hooks 'org-log-buffer-setup-hook)))
-
-(defvar org-note-abort nil) ; dynamically scoped
-(defun org-store-log-note ()
- "Finish taking a log note, and insert it to where it belongs."
- (let ((txt (prog1 (buffer-string)
- (kill-buffer)))
- (note (cdr (assq org-log-note-purpose org-log-note-headings)))
- lines)
- (while (string-match "\\`# .*\n[ \t\n]*" txt)
- (setq txt (replace-match "" t t txt)))
- (when (string-match "\\s-+\\'" txt)
- (setq txt (replace-match "" t t txt)))
- (setq lines (and (not (equal "" txt)) (org-split-string txt "\n")))
- (when (org-string-nw-p note)
- (setq note
- (org-replace-escapes
- note
- (list (cons "%u" (user-login-name))
- (cons "%U" user-full-name)
- (cons "%t" (format-time-string
- (org-time-stamp-format 'long 'inactive)
- org-log-note-effective-time))
- (cons "%T" (format-time-string
- (org-time-stamp-format 'long nil)
- org-log-note-effective-time))
- (cons "%d" (format-time-string
- (org-time-stamp-format nil 'inactive)
- org-log-note-effective-time))
- (cons "%D" (format-time-string
- (org-time-stamp-format nil nil)
- org-log-note-effective-time))
- (cons "%s" (cond
- ((not org-log-note-state) "")
- ((string-match-p org-ts-regexp
- org-log-note-state)
- (format "\"[%s]\""
- (substring org-log-note-state 1 -1)))
- (t (format "\"%s\"" org-log-note-state))))
- (cons "%S"
- (cond
- ((not org-log-note-previous-state) "")
- ((string-match-p org-ts-regexp
- org-log-note-previous-state)
- (format "\"[%s]\""
- (substring
- org-log-note-previous-state 1 -1)))
- (t (format "\"%s\""
- org-log-note-previous-state)))))))
- (when lines (setq note (concat note " \\\\")))
- (push note lines))
- (when (and lines (not org-note-abort))
- (with-current-buffer (marker-buffer org-log-note-marker)
- (org-with-wide-buffer
- ;; Find location for the new note.
- (goto-char org-log-note-marker)
- (set-marker org-log-note-marker nil)
- ;; Note associated to a clock is to be located right after
- ;; the clock. Do not move point.
- (unless (eq org-log-note-purpose 'clock-out)
- (goto-char (org-log-beginning t)))
- ;; Make sure point is at the beginning of an empty line.
- (cond ((not (bolp)) (let ((inhibit-read-only t)) (insert "\n")))
- ((looking-at "[ \t]*\\S-") (save-excursion (insert "\n"))))
- ;; In an existing list, add a new item at the top level.
- ;; Otherwise, indent line like a regular one.
- (let ((itemp (org-in-item-p)))
- (if itemp
- (indent-line-to
- (let ((struct (save-excursion
- (goto-char itemp) (org-list-struct))))
- (org-list-get-ind (org-list-get-top-point struct) struct)))
- (org-indent-line)))
- (insert (org-list-bullet-string "-") (pop lines))
- (let ((ind (org-list-item-body-column (line-beginning-position))))
- (dolist (line lines)
- (insert "\n")
- (indent-line-to ind)
- (insert line)))
- (message "Note stored")
- (org-back-to-heading t)
- (org-cycle-hide-drawers 'children))
- ;; Fix `buffer-undo-list' when `org-store-log-note' is called
- ;; from within `org-add-log-note' because `buffer-undo-list'
- ;; is then modified outside of `org-with-remote-undo'.
- (when (eq this-command 'org-agenda-todo)
- (setcdr buffer-undo-list (cddr buffer-undo-list))))))
- ;; Don't add undo information when called from `org-agenda-todo'.
- (let ((buffer-undo-list (eq this-command 'org-agenda-todo)))
- (set-window-configuration org-log-note-window-configuration)
- (with-current-buffer (marker-buffer org-log-note-return-to)
- (goto-char org-log-note-return-to))
- (move-marker org-log-note-return-to nil)
- (when org-log-post-message (message "%s" org-log-post-message))))
-
-(defun org-remove-empty-drawer-at (pos)
- "Remove an empty drawer at position POS.
-POS may also be a marker."
- (with-current-buffer (if (markerp pos) (marker-buffer pos) (current-buffer))
- (org-with-wide-buffer
- (goto-char pos)
- (let ((drawer (org-element-at-point)))
- (when (and (memq (org-element-type drawer) '(drawer property-drawer))
- (not (org-element-property :contents-begin drawer)))
- (delete-region (org-element-property :begin drawer)
- (progn (goto-char (org-element-property :end drawer))
- (skip-chars-backward " \r\t\n")
- (forward-line)
- (point))))))))
-
-(defvar org-ts-type nil)
-(defun org-sparse-tree (&optional arg type)
- "Create a sparse tree, prompt for the details.
-This command can create sparse trees. You first need to select the type
-of match used to create the tree:
-
-t Show all TODO entries.
-T Show entries with a specific TODO keyword.
-m Show entries selected by a tags/property match.
-p Enter a property name and its value (both with completion on existing
- names/values) and show entries with that property.
-r Show entries matching a regular expression (`/' can be used as well).
-b Show deadlines and scheduled items before a date.
-a Show deadlines and scheduled items after a date.
-d Show deadlines due within `org-deadline-warning-days'.
-D Show deadlines and scheduled items between a date range."
- (interactive "P")
- (setq type (or type org-sparse-tree-default-date-type))
- (setq org-ts-type type)
- (message "Sparse tree: [r]egexp [t]odo [T]odo-kwd [m]atch [p]roperty
- \[d]eadlines [b]efore-date [a]fter-date [D]ates range
- \[c]ycle through date types: %s"
- (cl-case type
- (all "all timestamps")
- (scheduled "only scheduled")
- (deadline "only deadline")
- (active "only active timestamps")
- (inactive "only inactive timestamps")
- (closed "with a closed time-stamp")
- (otherwise "scheduled/deadline")))
- (let ((answer (read-char-exclusive)))
- (cl-case answer
- (?c
- (org-sparse-tree
- arg
- (cadr
- (memq type '(nil all scheduled deadline active inactive closed)))))
- (?d (call-interactively 'org-check-deadlines))
- (?b (call-interactively 'org-check-before-date))
- (?a (call-interactively 'org-check-after-date))
- (?D (call-interactively 'org-check-dates-range))
- (?t (call-interactively 'org-show-todo-tree))
- (?T (org-show-todo-tree '(4)))
- (?m (call-interactively 'org-match-sparse-tree))
- ((?p ?P)
- (let* ((kwd (completing-read
- "Property: " (mapcar #'list (org-buffer-property-keys))))
- (value (completing-read
- "Value: " (mapcar #'list (org-property-values kwd)))))
- (unless (string-match "\\`{.*}\\'" value)
- (setq value (concat "\"" value "\"")))
- (org-match-sparse-tree arg (concat kwd "=" value))))
- ((?r ?R ?/) (call-interactively 'org-occur))
- (otherwise (user-error "No such sparse tree command \"%c\"" answer)))))
-
-(defvar-local org-occur-highlights nil
- "List of overlays used for occur matches.")
-(defvar-local org-occur-parameters nil
- "Parameters of the active org-occur calls.
-This is a list, each call to org-occur pushes as cons cell,
-containing the regular expression and the callback, onto the list.
-The list can contain several entries if `org-occur' has been called
-several time with the KEEP-PREVIOUS argument. Otherwise, this list
-will only contain one set of parameters. When the highlights are
-removed (for example with `C-c C-c', or with the next edit (depending
-on `org-remove-highlights-with-change'), this variable is emptied
-as well.")
-
-(defun org-occur (regexp &optional keep-previous callback)
- "Make a compact tree which shows all matches of REGEXP.
-
-The tree will show the lines where the regexp matches, and any other context
-defined in `org-show-context-detail', which see.
-
-When optional argument KEEP-PREVIOUS is non-nil, highlighting and exposing
-done by a previous call to `org-occur' will be kept, to allow stacking of
-calls to this command.
-
-Optional argument CALLBACK can be a function of no argument. In this case,
-it is called with point at the end of the match, match data being set
-accordingly. Current match is shown only if the return value is non-nil.
-The function must neither move point nor alter narrowing."
- (interactive "sRegexp: \nP")
- (when (equal regexp "")
- (user-error "Regexp cannot be empty"))
- (unless keep-previous
- (org-remove-occur-highlights nil nil t))
- (push (cons regexp callback) org-occur-parameters)
- (let ((cnt 0))
- (save-excursion
- (goto-char (point-min))
- (when (or (not keep-previous) ; do not want to keep
- (not org-occur-highlights)) ; no previous matches
- ;; hide everything
- (org-overview))
- (let ((case-fold-search (if (eq org-occur-case-fold-search 'smart)
- (isearch-no-upper-case-p regexp t)
- org-occur-case-fold-search)))
- (while (re-search-forward regexp nil t)
- (when (or (not callback)
- (save-match-data (funcall callback)))
- (setq cnt (1+ cnt))
- (when org-highlight-sparse-tree-matches
- (org-highlight-new-match (match-beginning 0) (match-end 0)))
- (org-show-context 'occur-tree)))))
- (when org-remove-highlights-with-change
- (add-hook 'before-change-functions 'org-remove-occur-highlights
- nil 'local))
- (unless org-sparse-tree-open-archived-trees
- (org-hide-archived-subtrees (point-min) (point-max)))
- (run-hooks 'org-occur-hook)
- (when (called-interactively-p 'interactive)
- (message "%d match(es) for regexp %s" cnt regexp))
- cnt))
-
-(defun org-occur-next-match (&optional n _reset)
- "Function for `next-error-function' to find sparse tree matches.
-N is the number of matches to move, when negative move backwards.
-This function always goes back to the starting point when no
-match is found."
- (let* ((limit (if (< n 0) (point-min) (point-max)))
- (search-func (if (< n 0)
- 'previous-single-char-property-change
- 'next-single-char-property-change))
- (n (abs n))
- (pos (point))
- p1)
- (catch 'exit
- (while (setq p1 (funcall search-func (point) 'org-type))
- (when (equal p1 limit)
- (goto-char pos)
- (user-error "No more matches"))
- (when (equal (get-char-property p1 'org-type) 'org-occur)
- (setq n (1- n))
- (when (= n 0)
- (goto-char p1)
- (throw 'exit (point))))
- (goto-char p1))
- (goto-char p1)
- (user-error "No more matches"))))
-
-(defun org-show-context (&optional key)
- "Make sure point and context are visible.
-Optional argument KEY, when non-nil, is a symbol. See
-`org-show-context-detail' for allowed values and how much is to
-be shown."
- (org-show-set-visibility
- (cond ((symbolp org-show-context-detail) org-show-context-detail)
- ((cdr (assq key org-show-context-detail)))
- (t (cdr (assq 'default org-show-context-detail))))))
-
-(defun org-show-set-visibility (detail)
- "Set visibility around point according to DETAIL.
-DETAIL is either nil, `minimal', `local', `ancestors', `lineage',
-`tree', `canonical' or t. See `org-show-context-detail' for more
-information."
- ;; Show current heading and possibly its entry, following headline
- ;; or all children.
- (if (and (org-at-heading-p) (not (eq detail 'local)))
- (org-flag-heading nil)
- (org-show-entry)
- ;; If point is hidden within a drawer or a block, make sure to
- ;; expose it.
- (dolist (o (overlays-at (point)))
- (when (memq (overlay-get o 'invisible) '(org-hide-block outline))
- (delete-overlay o)))
- (unless (org-before-first-heading-p)
- (org-with-limited-levels
- (cl-case detail
- ((tree canonical t) (org-show-children))
- ((nil minimal ancestors))
- (t (save-excursion
- (outline-next-heading)
- (org-flag-heading nil)))))))
- ;; Show all siblings.
- (when (eq detail 'lineage) (org-show-siblings))
- ;; Show ancestors, possibly with their children.
- (when (memq detail '(ancestors lineage tree canonical t))
- (save-excursion
- (while (org-up-heading-safe)
- (org-flag-heading nil)
- (when (memq detail '(canonical t)) (org-show-entry))
- (when (memq detail '(tree canonical t)) (org-show-children))))))
-
-(defvar org-reveal-start-hook nil
- "Hook run before revealing a location.")
-
-(defun org-reveal (&optional siblings)
- "Show current entry, hierarchy above it, and the following headline.
-
-This can be used to show a consistent set of context around
-locations exposed with `org-show-context'.
-
-With optional argument SIBLINGS, on each level of the hierarchy all
-siblings are shown. This repairs the tree structure to what it would
-look like when opened with hierarchical calls to `org-cycle'.
-
-With a \\[universal-argument] \\[universal-argument] prefix, \
-go to the parent and show the entire tree."
- (interactive "P")
- (run-hooks 'org-reveal-start-hook)
- (cond ((equal siblings '(4)) (org-show-set-visibility 'canonical))
- ((equal siblings '(16))
- (save-excursion
- (when (org-up-heading-safe)
- (org-show-subtree)
- (run-hook-with-args 'org-cycle-hook 'subtree))))
- (t (org-show-set-visibility 'lineage))))
-
-(defun org-highlight-new-match (beg end)
- "Highlight from BEG to END and mark the highlight is an occur headline."
- (let ((ov (make-overlay beg end)))
- (overlay-put ov 'face 'secondary-selection)
- (overlay-put ov 'org-type 'org-occur)
- (push ov org-occur-highlights)))
-
-(defun org-remove-occur-highlights (&optional _beg _end noremove)
- "Remove the occur highlights from the buffer.
-BEG and END are ignored. If NOREMOVE is nil, remove this function
-from the `before-change-functions' in the current buffer."
- (interactive)
- (unless org-inhibit-highlight-removal
- (mapc #'delete-overlay org-occur-highlights)
- (setq org-occur-highlights nil)
- (setq org-occur-parameters nil)
- (unless noremove
- (remove-hook 'before-change-functions
- 'org-remove-occur-highlights 'local))))
-
-;;;; Priorities
-
-(defvar org-priority-regexp ".*?\\(\\[#\\([A-Z0-9]\\)\\] ?\\)"
- "Regular expression matching the priority indicator.")
-
-(defvar org-remove-priority-next-time nil)
-
-(defun org-priority-up ()
- "Increase the priority of the current item."
- (interactive)
- (org-priority 'up))
-
-(defun org-priority-down ()
- "Decrease the priority of the current item."
- (interactive)
- (org-priority 'down))
-
-(defun org-priority (&optional action _show)
- "Change the priority of an item.
-ACTION can be `set', `up', `down', or a character."
- (interactive "P")
- (if (equal action '(4))
- (org-show-priority)
- (unless org-enable-priority-commands
- (user-error "Priority commands are disabled"))
- (setq action (or action 'set))
- (let (current new news have remove)
- (save-excursion
- (org-back-to-heading t)
- (when (looking-at org-priority-regexp)
- (setq current (string-to-char (match-string 2))
- have t))
- (cond
- ((eq action 'remove)
- (setq remove t new ?\ ))
- ((or (eq action 'set)
- (integerp action))
- (if (not (eq action 'set))
- (setq new action)
- (message "Priority %c-%c, SPC to remove: "
- org-highest-priority org-lowest-priority)
- (save-match-data
- (setq new (read-char-exclusive))))
- (when (and (= (upcase org-highest-priority) org-highest-priority)
- (= (upcase org-lowest-priority) org-lowest-priority))
- (setq new (upcase new)))
- (cond ((equal new ?\ ) (setq remove t))
- ((or (< (upcase new) org-highest-priority) (> (upcase new) org-lowest-priority))
- (user-error "Priority must be between `%c' and `%c'"
- org-highest-priority org-lowest-priority))))
- ((eq action 'up)
- (setq new (if have
- (1- current) ; normal cycling
- ;; last priority was empty
- (if (eq last-command this-command)
- org-lowest-priority ; wrap around empty to lowest
- ;; default
- (if org-priority-start-cycle-with-default
- org-default-priority
- (1- org-default-priority))))))
- ((eq action 'down)
- (setq new (if have
- (1+ current) ; normal cycling
- ;; last priority was empty
- (if (eq last-command this-command)
- org-highest-priority ; wrap around empty to highest
- ;; default
- (if org-priority-start-cycle-with-default
- org-default-priority
- (1+ org-default-priority))))))
- (t (user-error "Invalid action")))
- (when (or (< (upcase new) org-highest-priority)
- (> (upcase new) org-lowest-priority))
- (if (and (memq action '(up down))
- (not have) (not (eq last-command this-command)))
- ;; `new' is from default priority
- (error
- "The default can not be set, see `org-default-priority' why")
- ;; normal cycling: `new' is beyond highest/lowest priority
- ;; and is wrapped around to the empty priority
- (setq remove t)))
- (setq news (format "%c" new))
- (if have
- (if remove
- (replace-match "" t t nil 1)
- (replace-match news t t nil 2))
- (if remove
- (user-error "No priority cookie found in line")
- (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
- (if (match-end 2)
- (progn
- (goto-char (match-end 2))
- (insert " [#" news "]"))
- (goto-char (match-beginning 3))
- (insert "[#" news "] "))))
- (org-set-tags nil 'align))
- (if remove
- (message "Priority removed")
- (message "Priority of current item set to %s" news)))))
-
-(defun org-show-priority ()
- "Show the priority of the current item.
-This priority is composed of the main priority given with the [#A] cookies,
-and by additional input from the age of a schedules or deadline entry."
- (interactive)
- (let ((pri (if (eq major-mode 'org-agenda-mode)
- (org-get-at-bol 'priority)
- (save-excursion
- (save-match-data
- (beginning-of-line)
- (and (looking-at org-heading-regexp)
- (org-get-priority (match-string 0))))))))
- (message "Priority is %d" (if pri pri -1000))))
-
-(defun org-get-priority (s)
- "Find priority cookie and return priority."
- (save-match-data
- (if (functionp org-get-priority-function)
- (funcall org-get-priority-function)
- (if (not (string-match org-priority-regexp s))
- (* 1000 (- org-lowest-priority org-default-priority))
- (* 1000 (- org-lowest-priority
- (string-to-char (match-string 2 s))))))))
-
-;;;; Tags
-
-(defvar org-agenda-archives-mode)
-(defvar org-map-continue-from nil
- "Position from where mapping should continue.
-Can be set by the action argument to `org-scan-tags' and `org-map-entries'.")
-
-(defvar org-scanner-tags nil
- "The current tag list while the tags scanner is running.")
-
-(defvar org-trust-scanner-tags nil
- "Should `org-get-tags-at' use the tags for the scanner.
-This is for internal dynamical scoping only.
-When this is non-nil, the function `org-get-tags-at' will return the value
-of `org-scanner-tags' instead of building the list by itself. This
-can lead to large speed-ups when the tags scanner is used in a file with
-many entries, and when the list of tags is retrieved, for example to
-obtain a list of properties. Building the tags list for each entry in such
-a file becomes an N^2 operation - but with this variable set, it scales
-as N.")
-
-(defvar org--matcher-tags-todo-only nil)
-
-(defun org-scan-tags (action matcher todo-only &optional start-level)
- "Scan headline tags with inheritance and produce output ACTION.
-
-ACTION can be `sparse-tree' to produce a sparse tree in the current buffer,
-or `agenda' to produce an entry list for an agenda view. It can also be
-a Lisp form or a function that should be called at each matched headline, in
-this case the return value is a list of all return values from these calls.
-
-MATCHER is a function accepting three arguments, returning
-a non-nil value whenever a given set of tags qualifies a headline
-for inclusion. See `org-make-tags-matcher' for more information.
-As a special case, it can also be set to t (respectively nil) in
-order to match all (respectively none) headline.
-
-When TODO-ONLY is non-nil, only lines with a TODO keyword are
-included in the output.
-
-START-LEVEL can be a string with asterisks, reducing the scope to
-headlines matching this string."
- (require 'org-agenda)
- (let* ((re (concat "^"
- (if start-level
- ;; Get the correct level to match
- (concat "\\*\\{" (number-to-string start-level) "\\} ")
- org-outline-regexp)
- " *\\(\\<\\("
- (mapconcat #'regexp-quote org-todo-keywords-1 "\\|")
- "\\)\\>\\)? *\\(.*?\\)\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*$"))
- (props (list 'face 'default
- 'done-face 'org-agenda-done
- 'undone-face 'default
- 'mouse-face 'highlight
- 'org-not-done-regexp org-not-done-regexp
- 'org-todo-regexp org-todo-regexp
- 'org-complex-heading-regexp org-complex-heading-regexp
- 'help-echo
- (format "mouse-2 or RET jump to Org file %S"
- (abbreviate-file-name
- (or (buffer-file-name (buffer-base-buffer))
- (buffer-name (buffer-base-buffer)))))))
- (org-map-continue-from nil)
- lspos tags tags-list
- (tags-alist (list (cons 0 org-file-tags)))
- (llast 0) rtn rtn1 level category i txt
- todo marker entry priority
- ts-date ts-date-type ts-date-pair)
- (unless (or (member action '(agenda sparse-tree)) (functionp action))
- (setq action (list 'lambda nil action)))
- (save-excursion
- (goto-char (point-min))
- (when (eq action 'sparse-tree)
- (org-overview)
- (org-remove-occur-highlights))
- (while (let (case-fold-search)
- (re-search-forward re nil t))
- (setq org-map-continue-from nil)
- (catch :skip
- ;; Ignore closing parts of inline tasks.
- (when (and (fboundp 'org-inlinetask-end-p) (org-inlinetask-end-p))
- (throw :skip t))
- (setq todo
- ;; TODO: is the 1-2 difference a bug?
- (when (match-end 1) (match-string-no-properties 2))
- tags (when (match-end 4) (match-string-no-properties 4)))
- (goto-char (setq lspos (match-beginning 0)))
- (setq level (org-reduced-level (org-outline-level))
- category (org-get-category))
- (when (eq action 'agenda)
- (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp (point))
- ts-date (car ts-date-pair)
- ts-date-type (cdr ts-date-pair)))
- (setq i llast llast level)
- ;; remove tag lists from same and sublevels
- (while (>= i level)
- (when (setq entry (assoc i tags-alist))
- (setq tags-alist (delete entry tags-alist)))
- (setq i (1- i)))
- ;; add the next tags
- (when tags
- (setq tags (org-split-string tags ":")
- tags-alist
- (cons (cons level tags) tags-alist)))
- ;; compile tags for current headline
- (setq tags-list
- (if org-use-tag-inheritance
- (apply 'append (mapcar 'cdr (reverse tags-alist)))
- tags)
- org-scanner-tags tags-list)
- (when org-use-tag-inheritance
- (setcdr (car tags-alist)
- (mapcar (lambda (x)
- (setq x (copy-sequence x))
- (org-add-prop-inherited x))
- (cdar tags-alist))))
- (when (and tags org-use-tag-inheritance
- (or (not (eq t org-use-tag-inheritance))
- org-tags-exclude-from-inheritance))
- ;; Selective inheritance, remove uninherited ones.
- (setcdr (car tags-alist)
- (org-remove-uninherited-tags (cdar tags-alist))))
- (when (and
-
- ;; eval matcher only when the todo condition is OK
- (and (or (not todo-only) (member todo org-todo-keywords-1))
- (if (functionp matcher)
- (let ((case-fold-search t) (org-trust-scanner-tags t))
- (funcall matcher todo tags-list level))
- matcher))
-
- ;; Call the skipper, but return t if it does not
- ;; skip, so that the `and' form continues evaluating.
- (progn
- (unless (eq action 'sparse-tree) (org-agenda-skip))
- t)
-
- ;; Check if timestamps are deselecting this entry
- (or (not todo-only)
- (and (member todo org-todo-keywords-1)
- (or (not org-agenda-tags-todo-honor-ignore-options)
- (not (org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item))))))
-
- ;; select this headline
- (cond
- ((eq action 'sparse-tree)
- (and org-highlight-sparse-tree-matches
- (org-get-heading) (match-end 0)
- (org-highlight-new-match
- (match-beginning 1) (match-end 1)))
- (org-show-context 'tags-tree))
- ((eq action 'agenda)
- (setq txt (org-agenda-format-item
- ""
- (concat
- (if (eq org-tags-match-list-sublevels 'indented)
- (make-string (1- level) ?.) "")
- (org-get-heading))
- (make-string level ?\s)
- category
- tags-list)
- priority (org-get-priority txt))
- (goto-char lspos)
- (setq marker (org-agenda-new-marker))
- (org-add-props txt props
- 'org-marker marker 'org-hd-marker marker 'org-category category
- 'todo-state todo
- 'ts-date ts-date
- 'priority priority
- 'type (concat "tagsmatch" ts-date-type))
- (push txt rtn))
- ((functionp action)
- (setq org-map-continue-from nil)
- (save-excursion
- (setq rtn1 (funcall action))
- (push rtn1 rtn)))
- (t (user-error "Invalid action")))
-
- ;; if we are to skip sublevels, jump to end of subtree
- (unless org-tags-match-list-sublevels
- (org-end-of-subtree t)
- (backward-char 1))))
- ;; Get the correct position from where to continue
- (if org-map-continue-from
- (goto-char org-map-continue-from)
- (and (= (point) lspos) (end-of-line 1)))))
- (when (and (eq action 'sparse-tree)
- (not org-sparse-tree-open-archived-trees))
- (org-hide-archived-subtrees (point-min) (point-max)))
- (nreverse rtn)))
-
-(defun org-remove-uninherited-tags (tags)
- "Remove all tags that are not inherited from the list TAGS."
- (cond
- ((eq org-use-tag-inheritance t)
- (if org-tags-exclude-from-inheritance
- (org-delete-all org-tags-exclude-from-inheritance tags)
- tags))
- ((not org-use-tag-inheritance) nil)
- ((stringp org-use-tag-inheritance)
- (delq nil (mapcar
- (lambda (x)
- (if (and (string-match org-use-tag-inheritance x)
- (not (member x org-tags-exclude-from-inheritance)))
- x nil))
- tags)))
- ((listp org-use-tag-inheritance)
- (delq nil (mapcar
- (lambda (x)
- (if (member x org-use-tag-inheritance) x nil))
- tags)))))
-
-(defun org-match-sparse-tree (&optional todo-only match)
- "Create a sparse tree according to tags string MATCH.
-
-MATCH is a string with match syntax. It can contain a selection
-of tags (\"+work+urgent-boss\"), properties (\"LEVEL>3\"), and
-TODO keywords (\"TODO=\\\"WAITING\\\"\") or a combination of
-those. See the manual for details.
-
-If optional argument TODO-ONLY is non-nil, only select lines that
-are also TODO tasks."
- (interactive "P")
- (org-agenda-prepare-buffers (list (current-buffer)))
- (let ((org--matcher-tags-todo-only todo-only))
- (org-scan-tags 'sparse-tree (cdr (org-make-tags-matcher match))
- org--matcher-tags-todo-only)))
-
-(defalias 'org-tags-sparse-tree 'org-match-sparse-tree)
-
-(defvar org-cached-props nil)
-(defun org-cached-entry-get (pom property)
- (if (or (eq t org-use-property-inheritance)
- (and (stringp org-use-property-inheritance)
- (let ((case-fold-search t))
- (string-match-p org-use-property-inheritance property)))
- (and (listp org-use-property-inheritance)
- (member-ignore-case property org-use-property-inheritance)))
- ;; Caching is not possible, check it directly.
- (org-entry-get pom property 'inherit)
- ;; Get all properties, so we can do complicated checks easily.
- (cdr (assoc-string property
- (or org-cached-props
- (setq org-cached-props (org-entry-properties pom)))
- t))))
-
-(defun org-global-tags-completion-table (&optional files)
- "Return the list of all tags in all agenda buffer/files.
-Optional FILES argument is a list of files which can be used
-instead of the agenda files."
- (save-excursion
- (org-uniquify
- (delq nil
- (apply #'append
- (mapcar
- (lambda (file)
- (set-buffer (find-file-noselect file))
- (org--tag-add-to-alist
- (org-get-buffer-tags)
- (mapcar (lambda (x)
- (and (stringp (car-safe x))
- (list (car-safe x))))
- org-current-tag-alist)))
- (if (car-safe files) files
- (org-agenda-files))))))))
-
-(defun org-make-tags-matcher (match)
- "Create the TAGS/TODO matcher form for the selection string MATCH.
-
-Returns a cons of the selection string MATCH and a function
-implementing the matcher.
-
-The matcher is to be called at an Org entry, with point on the
-headline, and returns non-nil if the entry matches the selection
-string MATCH. It must be called with three arguments: the TODO
-keyword at the entry (or nil if none), the list of all tags at
-the entry including inherited ones and the reduced level of the
-headline. Additionally, the category of the entry, if any, must
-be specified as the text property `org-category' on the headline.
-
-This function sets the variable `org--matcher-tags-todo-only' to
-a non-nil value if the matcher restricts matching to TODO
-entries, otherwise it is not touched.
-
-See also `org-scan-tags'."
- (unless match
- ;; Get a new match request, with completion against the global
- ;; tags table and the local tags in current buffer.
- (let ((org-last-tags-completion-table
- (org--tag-add-to-alist
- (org-get-buffer-tags)
- (org-global-tags-completion-table))))
- (setq match
- (completing-read
- "Match: "
- 'org-tags-completion-function nil nil nil 'org-tags-history))))
-
- (let ((match0 match)
- (re "^&?\\([-+:]\\)?\\({[^}]+}\\|LEVEL\\([<=>]\\{1,2\\}\\)\\([0-9]+\\)\\|\\(\\(?:[[:alnum:]_]+\\(?:\\\\-\\)*\\)+\\)\\([<>=]\\{1,2\\}\\)\\({[^}]+}\\|\"[^\"]*\"\\|-?[.0-9]+\\(?:[eE][-+]?[0-9]+\\)?\\)\\|[[:alnum:]_@#%]+\\)")
- (start 0)
- tagsmatch todomatch tagsmatcher todomatcher)
-
- ;; Expand group tags.
- (setq match (org-tags-expand match))
-
- ;; Check if there is a TODO part of this match, which would be the
- ;; part after a "/". To make sure that this slash is not part of
- ;; a property value to be matched against, we also check that
- ;; there is no / after that slash. First, find the last slash.
- (let ((s 0))
- (while (string-match "/+" match s)
- (setq start (match-beginning 0))
- (setq s (match-end 0))))
- (if (and (string-match "/+" match start)
- (not (string-match-p "\"" match start)))
- ;; Match contains also a TODO-matching request.
- (progn
- (setq tagsmatch (substring match 0 (match-beginning 0)))
- (setq todomatch (substring match (match-end 0)))
- (when (string-prefix-p "!" todomatch)
- (setq org--matcher-tags-todo-only t)
- (setq todomatch (substring todomatch 1)))
- (when (string-match "\\`\\s-*\\'" todomatch)
- (setq todomatch nil)))
- ;; Only matching tags.
- (setq tagsmatch match)
- (setq todomatch nil))
-
- ;; Make the tags matcher.
- (when (org-string-nw-p tagsmatch)
- (let ((orlist nil)
- (orterms (org-split-string tagsmatch "|"))
- term)
- (while (setq term (pop orterms))
- (while (and (equal (substring term -1) "\\") orterms)
- (setq term (concat term "|" (pop orterms)))) ;repair bad split.
- (while (string-match re term)
- (let* ((rest (substring term (match-end 0)))
- (minus (and (match-end 1)
- (equal (match-string 1 term) "-")))
- (tag (save-match-data
- (replace-regexp-in-string
- "\\\\-" "-" (match-string 2 term))))
- (regexp (eq (string-to-char tag) ?{))
- (levelp (match-end 4))
- (propp (match-end 5))
- (mm
- (cond
- (regexp `(org-match-any-p ,(substring tag 1 -1) tags-list))
- (levelp
- `(,(org-op-to-function (match-string 3 term))
- level
- ,(string-to-number (match-string 4 term))))
- (propp
- (let* ((gv (pcase (upcase (match-string 5 term))
- ("CATEGORY"
- '(get-text-property (point) 'org-category))
- ("TODO" 'todo)
- (p `(org-cached-entry-get nil ,p))))
- (pv (match-string 7 term))
- (regexp (eq (string-to-char pv) ?{))
- (strp (eq (string-to-char pv) ?\"))
- (timep (string-match-p "^\"[[<].*[]>]\"$" pv))
- (po (org-op-to-function (match-string 6 term)
- (if timep 'time strp))))
- (setq pv (if (or regexp strp) (substring pv 1 -1) pv))
- (when timep (setq pv (org-matcher-time pv)))
- (cond ((and regexp (eq po 'org<>))
- `(not (string-match ,pv (or ,gv ""))))
- (regexp `(string-match ,pv (or ,gv "")))
- (strp `(,po (or ,gv "") ,pv))
- (t
- `(,po
- (string-to-number (or ,gv ""))
- ,(string-to-number pv))))))
- (t `(member ,tag tags-list)))))
- (push (if minus `(not ,mm) mm) tagsmatcher)
- (setq term rest)))
- (push `(and ,@tagsmatcher) orlist)
- (setq tagsmatcher nil))
- (setq tagsmatcher `(progn (setq org-cached-props nil) (or ,@orlist)))))
-
- ;; Make the TODO matcher.
- (when (org-string-nw-p todomatch)
- (let ((orlist nil))
- (dolist (term (org-split-string todomatch "|"))
- (while (string-match re term)
- (let* ((minus (and (match-end 1)
- (equal (match-string 1 term) "-")))
- (kwd (match-string 2 term))
- (regexp (eq (string-to-char kwd) ?{))
- (mm (if regexp `(string-match ,(substring kwd 1 -1) todo)
- `(equal todo ,kwd))))
- (push (if minus `(not ,mm) mm) todomatcher))
- (setq term (substring term (match-end 0))))
- (push (if (> (length todomatcher) 1)
- (cons 'and todomatcher)
- (car todomatcher))
- orlist)
- (setq todomatcher nil))
- (setq todomatcher (cons 'or orlist))))
-
- ;; Return the string and function of the matcher. If no
- ;; tags-specific or todo-specific matcher exists, match
- ;; everything.
- (let ((matcher (if (and tagsmatcher todomatcher)
- `(and ,tagsmatcher ,todomatcher)
- (or tagsmatcher todomatcher t))))
- (when org--matcher-tags-todo-only
- (setq matcher `(and (member todo org-not-done-keywords) ,matcher)))
- (cons match0 `(lambda (todo tags-list level) ,matcher)))))
-
-(defun org-tags-expand (match &optional single-as-list downcased tags-already-expanded)
- "Expand group tags in MATCH.
-
-This replaces every group tag in MATCH with a regexp tag search.
-For example, a group tag \"Work\" defined as { Work : Lab Conf }
-will be replaced like this:
-
- Work => {\\<\\(?:Work\\|Lab\\|Conf\\)\\>}
- +Work => +{\\<\\(?:Work\\|Lab\\|Conf\\)\\>}
- -Work => -{\\<\\(?:Work\\|Lab\\|Conf\\)\\>}
-
-Replacing by a regexp preserves the structure of the match.
-E.g., this expansion
-
- Work|Home => {\\(?:Work\\|Lab\\|Conf\\}|Home
-
-will match anything tagged with \"Lab\" and \"Home\", or tagged
-with \"Conf\" and \"Home\" or tagged with \"Work\" and \"home\".
-
-A group tag in MATCH can contain regular expressions of its own.
-For example, a group tag \"Proj\" defined as { Proj : {P@.+} }
-will be replaced like this:
-
- Proj => {\\<\\(?:Proj\\)\\>\\|P@.+}
-
-When the optional argument SINGLE-AS-LIST is non-nil, MATCH is
-assumed to be a single group tag, and the function will return
-the list of tags in this group.
-
-When DOWNCASE is non-nil, expand downcased TAGS."
- (if org-group-tags
- (let* ((case-fold-search t)
- (stable org-mode-syntax-table)
- (taggroups (or org-tag-groups-alist-for-agenda org-tag-groups-alist))
- (taggroups (if downcased
- (mapcar (lambda (tg) (mapcar #'downcase tg))
- taggroups)
- taggroups))
- (taggroups-keys (mapcar #'car taggroups))
- (return-match (if downcased (downcase match) match))
- (count 0)
- (work-already-expanded tags-already-expanded)
- regexps-in-match tags-in-group regexp-in-group regexp-in-group-escaped)
- ;; @ and _ are allowed as word-components in tags.
- (modify-syntax-entry ?@ "w" stable)
- (modify-syntax-entry ?_ "w" stable)
- ;; Temporarily replace regexp-expressions in the match-expression.
- (while (string-match "{.+?}" return-match)
- (cl-incf count)
- (push (match-string 0 return-match) regexps-in-match)
- (setq return-match (replace-match (format "<%d>" count) t nil return-match)))
- (while (and taggroups-keys
- (with-syntax-table stable
- (string-match
- (concat "\\(?1:[+-]?\\)\\(?2:\\<"
- (regexp-opt taggroups-keys) "\\>\\)")
- return-match)))
- (let* ((dir (match-string 1 return-match))
- (tag (match-string 2 return-match))
- (tag (if downcased (downcase tag) tag)))
- (unless (or (get-text-property 0 'grouptag (match-string 2 return-match))
- (member tag tags-already-expanded))
- (setq tags-in-group (assoc tag taggroups))
- (push tag work-already-expanded)
- ;; Recursively expand each tag in the group, if the tag hasn't
- ;; already been expanded. Restore the match-data after all recursive calls.
- (save-match-data
- (let (tags-expanded)
- (dolist (x (cdr tags-in-group))
- (if (and (member x taggroups-keys)
- (not (member x work-already-expanded)))
- (setq tags-expanded
- (delete-dups
- (append
- (org-tags-expand x t downcased
- work-already-expanded)
- tags-expanded)))
- (setq tags-expanded
- (append (list x) tags-expanded)))
- (setq work-already-expanded
- (delete-dups
- (append tags-expanded
- work-already-expanded))))
- (setq tags-in-group
- (delete-dups (cons (car tags-in-group)
- tags-expanded)))))
- ;; Filter tag-regexps from tags.
- (setq regexp-in-group-escaped
- (delq nil (mapcar (lambda (x)
- (if (stringp x)
- (and (equal "{" (substring x 0 1))
- (equal "}" (substring x -1))
- x)
- x))
- tags-in-group))
- regexp-in-group
- (mapcar (lambda (x)
- (substring x 1 -1))
- regexp-in-group-escaped)
- tags-in-group
- (delq nil (mapcar (lambda (x)
- (if (stringp x)
- (and (not (equal "{" (substring x 0 1)))
- (not (equal "}" (substring x -1)))
- x)
- x))
- tags-in-group)))
- ;; If single-as-list, do no more in the while-loop.
- (if (not single-as-list)
- (progn
- (when regexp-in-group
- (setq regexp-in-group
- (concat "\\|"
- (mapconcat 'identity regexp-in-group
- "\\|"))))
- (setq tags-in-group
- (concat dir
- "{\\<"
- (regexp-opt tags-in-group)
- "\\>"
- regexp-in-group
- "}"))
- (when (stringp tags-in-group)
- (org-add-props tags-in-group '(grouptag t)))
- (setq return-match
- (replace-match tags-in-group t t return-match)))
- (setq tags-in-group
- (append regexp-in-group-escaped tags-in-group))))
- (setq taggroups-keys (delete tag taggroups-keys))))
- ;; Add the regular expressions back into the match-expression again.
- (while regexps-in-match
- (setq return-match (replace-regexp-in-string (format "<%d>" count)
- (pop regexps-in-match)
- return-match t t))
- (cl-decf count))
- (if single-as-list
- (if tags-in-group tags-in-group (list return-match))
- return-match))
- (if single-as-list
- (list (if downcased (downcase match) match))
- match)))
-
-(defun org-op-to-function (op &optional stringp)
- "Turn an operator into the appropriate function."
- (setq op
- (cond
- ((equal op "<" ) '(< string< org-time<))
- ((equal op ">" ) '(> org-string> org-time>))
- ((member op '("<=" "=<")) '(<= org-string<= org-time<=))
- ((member op '(">=" "=>")) '(>= org-string>= org-time>=))
- ((member op '("=" "==")) '(= string= org-time=))
- ((member op '("<>" "!=")) '(org<> org-string<> org-time<>))))
- (nth (if (eq stringp 'time) 2 (if stringp 1 0)) op))
-
-(defun org<> (a b) (not (= a b)))
-(defun org-string<= (a b) (or (string= a b) (string< a b)))
-(defun org-string>= (a b) (not (string< a b)))
-(defun org-string> (a b) (and (not (string= a b)) (not (string< a b))))
-(defun org-string<> (a b) (not (string= a b)))
-(defun org-time= (a b) (setq a (org-2ft a) b (org-2ft b)) (and (> a 0) (> b 0) (= a b)))
-(defun org-time< (a b) (setq a (org-2ft a) b (org-2ft b)) (and (> a 0) (> b 0) (< a b)))
-(defun org-time<= (a b) (setq a (org-2ft a) b (org-2ft b)) (and (> a 0) (> b 0) (<= a b)))
-(defun org-time> (a b) (setq a (org-2ft a) b (org-2ft b)) (and (> a 0) (> b 0) (> a b)))
-(defun org-time>= (a b) (setq a (org-2ft a) b (org-2ft b)) (and (> a 0) (> b 0) (>= a b)))
-(defun org-time<> (a b) (setq a (org-2ft a) b (org-2ft b)) (and (> a 0) (> b 0) (org<> a b)))
-(defun org-2ft (s)
- "Convert S to a floating point time.
-If S is already a number, just return it. If it is a string, parse
-it as a time string and apply `float-time' to it. If S is nil, just return 0."
- (cond
- ((numberp s) s)
- ((stringp s)
- (condition-case nil
- (float-time (apply #'encode-time (org-parse-time-string s)))
- (error 0.)))
- (t 0.)))
-
-(defun org-time-today ()
- "Time in seconds today at 0:00.
-Returns the float number of seconds since the beginning of the
-epoch to the beginning of today (00:00)."
- (float-time (apply 'encode-time
- (append '(0 0 0) (nthcdr 3 (decode-time))))))
-
-(defun org-matcher-time (s)
- "Interpret a time comparison value."
- (save-match-data
- (cond
- ((string= s "<now>") (float-time))
- ((string= s "<today>") (org-time-today))
- ((string= s "<tomorrow>") (+ 86400.0 (org-time-today)))
- ((string= s "<yesterday>") (- (org-time-today) 86400.0))
- ((string-match "^<\\([-+][0-9]+\\)\\([hdwmy]\\)>$" s)
- (+ (org-time-today)
- (* (string-to-number (match-string 1 s))
- (cdr (assoc (match-string 2 s)
- '(("d" . 86400.0) ("w" . 604800.0)
- ("m" . 2678400.0) ("y" . 31557600.0)))))))
- (t (org-2ft s)))))
-
-(defun org-match-any-p (re list)
- "Does re match any element of list?"
- (setq list (mapcar (lambda (x) (string-match re x)) list))
- (delq nil list))
-
-(defvar org-add-colon-after-tag-completion nil) ;; dynamically scoped param
-(defvar org-tags-overlay (make-overlay 1 1))
-(delete-overlay org-tags-overlay)
-
-(defun org-get-local-tags-at (&optional pos)
- "Get a list of tags defined in the current headline."
- (org-get-tags-at pos 'local))
-
-(defun org-get-local-tags ()
- "Get a list of tags defined in the current headline."
- (org-get-tags-at nil 'local))
-
-(defun org-get-tags-at (&optional pos local)
- "Get a list of all headline tags applicable at POS.
-POS defaults to point. If tags are inherited, the list contains
-the targets in the same sequence as the headlines appear, i.e.
-the tags of the current headline come last.
-When LOCAL is non-nil, only return tags from the current headline,
-ignore inherited ones."
- (interactive)
- (if (and org-trust-scanner-tags
- (or (not pos) (equal pos (point)))
- (not local))
- org-scanner-tags
- (let (tags ltags lastpos parent)
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (or pos (point)))
- (save-match-data
- (catch 'done
- (condition-case nil
- (progn
- (org-back-to-heading t)
- (while (not (equal lastpos (point)))
- (setq lastpos (point))
- (when (looking-at ".+?:\\([[:alnum:]_@#%:]+\\):[ \t]*$")
- (setq ltags (org-split-string
- (match-string-no-properties 1) ":"))
- (when parent
- (setq ltags (mapcar 'org-add-prop-inherited ltags)))
- (setq tags (append
- (if parent
- (org-remove-uninherited-tags ltags)
- ltags)
- tags)))
- (or org-use-tag-inheritance (throw 'done t))
- (when local (throw 'done t))
- (or (org-up-heading-safe) (error nil))
- (setq parent t)))
- (error nil)))))
- (if local
- tags
- (reverse (delete-dups
- (reverse (append
- (org-remove-uninherited-tags
- org-file-tags)
- tags)))))))))
-
-(defun org-add-prop-inherited (s)
- (add-text-properties 0 (length s) '(inherited t) s)
- s)
-
-(defun org-toggle-tag (tag &optional onoff)
- "Toggle the tag TAG for the current line.
-If ONOFF is `on' or `off', don't toggle but set to this state."
- (save-excursion
- (org-back-to-heading t)
- (let ((current
- (when (re-search-forward "[ \t]:\\([[:alnum:]_@#%:]+\\):[ \t]*$"
- (line-end-position) t)
- (let ((tags (match-string 1)))
- ;; Clear current tags.
- (replace-match "")
- ;; Reverse the tags list so any new tag is appended to
- ;; the current list of tags.
- (nreverse (org-split-string tags ":")))))
- res)
- (pcase onoff
- (`off (setq current (delete tag current)))
- ((or `on (guard (not (member tag current))))
- (setq res t)
- (cl-pushnew tag current :test #'equal))
- (_ (setq current (delete tag current))))
- (end-of-line)
- (if current
- (progn
- (insert " :" (mapconcat #'identity (nreverse current) ":") ":")
- (org-set-tags nil t))
- (delete-horizontal-space))
- (run-hooks 'org-after-tags-change-hook)
- res)))
-
-(defun org--align-tags-here (to-col)
- "Align tags on the current headline to TO-COL.
-Assume point is on a headline."
- (let ((pos (point)))
- (beginning-of-line)
- (if (or (not (looking-at ".*?\\([ \t]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$"))
- (>= pos (match-beginning 2)))
- ;; No tags or point within tags: do not align.
- (goto-char pos)
- (goto-char (match-beginning 1))
- (let ((shift (max (- (if (>= to-col 0) to-col
- (- (abs to-col) (string-width (match-string 2))))
- (current-column))
- 1)))
- (replace-match (make-string shift ?\s) nil nil nil 1)
- ;; Preserve initial position, if possible. In any case, stop
- ;; before tags.
- (when (< pos (point)) (goto-char pos))))))
-
-(defun org-set-tags-command (&optional arg just-align)
- "Call the set-tags command for the current entry."
- (interactive "P")
- (if (or (org-at-heading-p) (and arg (org-before-first-heading-p)))
- (org-set-tags arg just-align)
- (save-excursion
- (unless (and (org-region-active-p)
- org-loop-over-headlines-in-active-region)
- (org-back-to-heading t))
- (org-set-tags arg just-align))))
-
-(defun org-set-tags-to (data)
- "Set the tags of the current entry to DATA, replacing current tags.
-DATA may be a tags string like \":aa:bb:cc:\", or a list of tags.
-If DATA is nil or the empty string, all tags are removed."
- (interactive "sTags: ")
- (let ((data
- (pcase (if (stringp data) (org-trim data) data)
- ((or `nil "") nil)
- ((pred listp) (format ":%s:" (mapconcat #'identity data ":")))
- ((pred stringp)
- (format ":%s:"
- (mapconcat #'identity (org-split-string data ":+") ":")))
- (_ (error "Invalid tag specification: %S" data)))))
- (org-with-wide-buffer
- (org-back-to-heading t)
- (let ((case-fold-search nil)) (looking-at org-complex-heading-regexp))
- (when (or (match-end 5) data)
- (goto-char (or (match-beginning 5) (line-end-position)))
- (skip-chars-backward " \t")
- (delete-region (point) (line-end-position))
- (when data
- (insert " " data)
- (org-set-tags nil 'align))))))
-
-(defun org-align-all-tags ()
- "Align the tags in all headings."
- (interactive)
- (save-excursion
- (or (ignore-errors (org-back-to-heading t))
- (outline-next-heading))
- (if (org-at-heading-p)
- (org-set-tags t)
- (message "No headings"))))
-
-(defvar org-indent-indentation-per-level)
-(defun org-set-tags (&optional arg just-align)
- "Set the tags for the current headline.
-With prefix ARG, realign all tags in headings in the current buffer.
-When JUST-ALIGN is non-nil, only align tags."
- (interactive "P")
- (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
- (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)
- 'region-start-level
- 'region))
- org-loop-over-headlines-in-active-region)
- (org-map-entries
- ;; We don't use ARG and JUST-ALIGN here because these args
- ;; are not useful when looping over headlines.
- #'org-set-tags
- org-loop-over-headlines-in-active-region
- cl
- '(when (org-invisible-p) (org-end-of-subtree nil t))))
- (let ((org-setting-tags t))
- (if arg
- (save-excursion
- (goto-char (point-min))
- (while (re-search-forward org-outline-regexp-bol nil t)
- (org-set-tags nil t)
- (end-of-line))
- (message "All tags realigned to column %d" org-tags-column))
- (let* ((current (org-get-tags-string))
- (tags
- (if just-align current
- ;; Get a new set of tags from the user.
- (save-excursion
- (let* ((table
- (setq
- org-last-tags-completion-table
- (org--tag-add-to-alist
- (and
- org-complete-tags-always-offer-all-agenda-tags
- (org-global-tags-completion-table
- (org-agenda-files)))
- (or org-current-tag-alist
- (org-get-buffer-tags)))))
- (current-tags (org-split-string current ":"))
- (inherited-tags
- (nreverse (nthcdr (length current-tags)
- (nreverse (org-get-tags-at))))))
- (replace-regexp-in-string
- "\\([-+&]+\\|,\\)"
- ":"
- (if (or (eq t org-use-fast-tag-selection)
- (and org-use-fast-tag-selection
- (delq nil (mapcar #'cdr table))))
- (org-fast-tag-selection
- current-tags inherited-tags table
- (and org-fast-tag-selection-include-todo
- org-todo-key-alist))
- (let ((org-add-colon-after-tag-completion
- (< 1 (length table))))
- (org-trim
- (completing-read
- "Tags: "
- #'org-tags-completion-function
- nil nil current 'org-tags-history))))))))))
-
- (when org-tags-sort-function
- (setq tags
- (mapconcat
- #'identity
- (sort (org-split-string tags "[^[:alnum:]_@#%]+")
- org-tags-sort-function)
- ":")))
-
- (if (or (string= ":" tags)
- (string= "::" tags))
- (setq tags ""))
- (if (not (org-string-nw-p tags)) (setq tags "")
- (unless (string-suffix-p ":" tags) (setq tags (concat tags ":")))
- (unless (string-prefix-p ":" tags) (setq tags (concat ":" tags))))
-
- ;; Insert new tags at the correct column.
- (unless (equal current tags)
- (save-excursion
- (beginning-of-line)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))
- ;; Remove current tags, if any.
- (when (match-end 5) (replace-match "" nil nil nil 5))
- ;; Insert new tags, if any. Otherwise, remove trailing
- ;; white spaces.
- (end-of-line)
- (if (not (equal tags ""))
- ;; When text is being inserted on an invisible
- ;; region boundary, it can be inadvertently sucked
- ;; into invisibility.
- (outline-flag-region (point) (progn (insert " " tags) (point)) nil)
- (skip-chars-backward " \t")
- (delete-region (point) (line-end-position)))))
- ;; Align tags, if any. Fix tags column if `org-indent-mode'
- ;; is on.
- (unless (equal tags "")
- (let* ((level (save-excursion
- (beginning-of-line)
- (skip-chars-forward "\\*")))
- (offset (if (bound-and-true-p org-indent-mode)
- (* (1- org-indent-indentation-per-level)
- (1- level))
- 0))
- (tags-column
- (+ org-tags-column
- (if (> org-tags-column 0) (- offset) offset))))
- (org--align-tags-here tags-column))))
- (unless just-align (run-hooks 'org-after-tags-change-hook))))))
-
-(defun org-change-tag-in-region (beg end tag off)
- "Add or remove TAG for each entry in the region.
-This works in the agenda, and also in an Org buffer."
- (interactive
- (list (region-beginning) (region-end)
- (let ((org-last-tags-completion-table
- (if (derived-mode-p 'org-mode)
- (org--tag-add-to-alist
- (org-get-buffer-tags)
- (org-global-tags-completion-table))
- (org-global-tags-completion-table))))
- (completing-read
- "Tag: " 'org-tags-completion-function nil nil nil
- 'org-tags-history))
- (progn
- (message "[s]et or [r]emove? ")
- (equal (read-char-exclusive) ?r))))
- (when (fboundp 'deactivate-mark) (deactivate-mark))
- (let ((agendap (equal major-mode 'org-agenda-mode))
- l1 l2 m buf pos newhead (cnt 0))
- (goto-char end)
- (setq l2 (1- (org-current-line)))
- (goto-char beg)
- (setq l1 (org-current-line))
- (cl-loop for l from l1 to l2 do
- (org-goto-line l)
- (setq m (get-text-property (point) 'org-hd-marker))
- (when (or (and (derived-mode-p 'org-mode) (org-at-heading-p))
- (and agendap m))
- (setq buf (if agendap (marker-buffer m) (current-buffer))
- pos (if agendap m (point)))
- (with-current-buffer buf
- (save-excursion
- (save-restriction
- (goto-char pos)
- (setq cnt (1+ cnt))
- (org-toggle-tag tag (if off 'off 'on))
- (setq newhead (org-get-heading)))))
- (and agendap (org-agenda-change-all-lines newhead m))))
- (message "Tag :%s: %s in %d headings" tag (if off "removed" "set") cnt)))
-
-(defun org-tags-completion-function (string _predicate &optional flag)
- (let (s1 s2 rtn (ctable org-last-tags-completion-table)
- (confirm (lambda (x) (stringp (car x)))))
- (if (string-match "^\\(.*[-+:&,|]\\)\\([^-+:&,|]*\\)$" string)
- (setq s1 (match-string 1 string)
- s2 (match-string 2 string))
- (setq s1 "" s2 string))
- (cond
- ((eq flag nil)
- ;; try completion
- (setq rtn (try-completion s2 ctable confirm))
- (when (stringp rtn)
- (setq rtn
- (concat s1 s2 (substring rtn (length s2))
- (if (and org-add-colon-after-tag-completion
- (assoc rtn ctable))
- ":" ""))))
- rtn)
- ((eq flag t)
- ;; all-completions
- (all-completions s2 ctable confirm))
- ((eq flag 'lambda)
- ;; exact match?
- (assoc s2 ctable)))))
-
-(defun org-fast-tag-insert (kwd tags face &optional end)
- "Insert KDW, and the TAGS, the latter with face FACE.
-Also insert END."
- (insert (format "%-12s" (concat kwd ":"))
- (org-add-props (mapconcat 'identity tags " ") nil 'face face)
- (or end "")))
-
-(defun org-fast-tag-show-exit (flag)
- (save-excursion
- (org-goto-line 3)
- (when (re-search-forward "[ \t]+Next change exits" (point-at-eol) t)
- (replace-match ""))
- (when flag
- (end-of-line 1)
- (org-move-to-column (- (window-width) 19) t)
- (insert (org-add-props " Next change exits" nil 'face 'org-warning)))))
-
-(defun org-set-current-tags-overlay (current prefix)
- "Add an overlay to CURRENT tag with PREFIX."
- (let ((s (concat ":" (mapconcat 'identity current ":") ":")))
- (put-text-property 0 (length s) 'face '(secondary-selection org-tag) s)
- (org-overlay-display org-tags-overlay (concat prefix s))))
-
-(defvar org-last-tag-selection-key nil)
-(defun org-fast-tag-selection (current inherited table &optional todo-table)
- "Fast tag selection with single keys.
-CURRENT is the current list of tags in the headline, INHERITED is the
-list of inherited tags, and TABLE is an alist of tags and corresponding keys,
-possibly with grouping information. TODO-TABLE is a similar table with
-TODO keywords, should these have keys assigned to them.
-If the keys are nil, a-z are automatically assigned.
-Returns the new tags string, or nil to not change the current settings."
- (let* ((fulltable (append table todo-table))
- (maxlen (if (null fulltable) 0
- (apply #'max
- (mapcar (lambda (x)
- (if (stringp (car x)) (string-width (car x))
- 0))
- fulltable))))
- (buf (current-buffer))
- (expert (eq org-fast-tag-selection-single-key 'expert))
- (buffer-tags nil)
- (fwidth (+ maxlen 3 1 3))
- (ncol (/ (- (window-width) 4) fwidth))
- (i-face 'org-done)
- (c-face 'org-todo)
- tg cnt e c char c1 c2 ntable tbl rtn
- ov-start ov-end ov-prefix
- (exit-after-next org-fast-tag-selection-single-key)
- (done-keywords org-done-keywords)
- groups ingroup intaggroup)
- (save-excursion
- (beginning-of-line 1)
- (if (looking-at ".*[ \t]\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$")
- (setq ov-start (match-beginning 1)
- ov-end (match-end 1)
- ov-prefix "")
- (setq ov-start (1- (point-at-eol))
- ov-end (1+ ov-start))
- (skip-chars-forward "^\n\r")
- (setq ov-prefix
- (concat
- (buffer-substring (1- (point)) (point))
- (if (> (current-column) org-tags-column)
- " "
- (make-string (- org-tags-column (current-column)) ?\ ))))))
- (move-overlay org-tags-overlay ov-start ov-end)
- (save-window-excursion
- (if expert
- (set-buffer (get-buffer-create " *Org tags*"))
- (delete-other-windows)
- (set-window-buffer (split-window-vertically) (get-buffer-create " *Org tags*"))
- (org-switch-to-buffer-other-window " *Org tags*"))
- (erase-buffer)
- (setq-local org-done-keywords done-keywords)
- (org-fast-tag-insert "Inherited" inherited i-face "\n")
- (org-fast-tag-insert "Current" current c-face "\n\n")
- (org-fast-tag-show-exit exit-after-next)
- (org-set-current-tags-overlay current ov-prefix)
- (setq tbl fulltable char ?a cnt 0)
- (while (setq e (pop tbl))
- (cond
- ((eq (car e) :startgroup)
- (push '() groups) (setq ingroup t)
- (unless (zerop cnt)
- (setq cnt 0)
- (insert "\n"))
- (insert (if (cdr e) (format "%s: " (cdr e)) "") "{ "))
- ((eq (car e) :endgroup)
- (setq ingroup nil cnt 0)
- (insert "}" (if (cdr e) (format " (%s) " (cdr e)) "") "\n"))
- ((eq (car e) :startgrouptag)
- (setq intaggroup t)
- (unless (zerop cnt)
- (setq cnt 0)
- (insert "\n"))
- (insert "[ "))
- ((eq (car e) :endgrouptag)
- (setq intaggroup nil cnt 0)
- (insert "]\n"))
- ((equal e '(:newline))
- (unless (zerop cnt)
- (setq cnt 0)
- (insert "\n")
- (setq e (car tbl))
- (while (equal (car tbl) '(:newline))
- (insert "\n")
- (setq tbl (cdr tbl)))))
- ((equal e '(:grouptags)) (insert " : "))
- (t
- (setq tg (copy-sequence (car e)) c2 nil)
- (if (cdr e)
- (setq c (cdr e))
- ;; automatically assign a character.
- (setq c1 (string-to-char
- (downcase (substring
- tg (if (= (string-to-char tg) ?@) 1 0)))))
- (if (or (rassoc c1 ntable) (rassoc c1 table))
- (while (or (rassoc char ntable) (rassoc char table))
- (setq char (1+ char)))
- (setq c2 c1))
- (setq c (or c2 char)))
- (when ingroup (push tg (car groups)))
- (setq tg (org-add-props tg nil 'face
- (cond
- ((not (assoc tg table))
- (org-get-todo-face tg))
- ((member tg current) c-face)
- ((member tg inherited) i-face))))
- (when (equal (caar tbl) :grouptags)
- (org-add-props tg nil 'face 'org-tag-group))
- (when (and (zerop cnt) (not ingroup) (not intaggroup)) (insert " "))
- (insert "[" c "] " tg (make-string
- (- fwidth 4 (length tg)) ?\ ))
- (push (cons tg c) ntable)
- (when (= (cl-incf cnt) ncol)
- (insert "\n")
- (when (or ingroup intaggroup) (insert " "))
- (setq cnt 0)))))
- (setq ntable (nreverse ntable))
- (insert "\n")
- (goto-char (point-min))
- (unless expert (org-fit-window-to-buffer))
- (setq rtn
- (catch 'exit
- (while t
- (message "[a-z..]:toggle [SPC]:clear [RET]:accept [TAB]:edit [!] %sgroups%s"
- (if (not groups) "no " "")
- (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " [C-c]:multi")))
- (setq c (let ((inhibit-quit t)) (read-char-exclusive)))
- (setq org-last-tag-selection-key c)
- (cond
- ((= c ?\r) (throw 'exit t))
- ((= c ?!)
- (setq groups (not groups))
- (goto-char (point-min))
- (while (re-search-forward "[{}]" nil t) (replace-match " ")))
- ((= c ?\C-c)
- (if (not expert)
- (org-fast-tag-show-exit
- (setq exit-after-next (not exit-after-next)))
- (setq expert nil)
- (delete-other-windows)
- (set-window-buffer (split-window-vertically) " *Org tags*")
- (org-switch-to-buffer-other-window " *Org tags*")
- (org-fit-window-to-buffer)))
- ((or (= c ?\C-g)
- (and (= c ?q) (not (rassoc c ntable))))
- (delete-overlay org-tags-overlay)
- (setq quit-flag t))
- ((= c ?\ )
- (setq current nil)
- (when exit-after-next (setq exit-after-next 'now)))
- ((= c ?\t)
- (condition-case nil
- (setq tg (completing-read
- "Tag: "
- (or buffer-tags
- (with-current-buffer buf
- (setq buffer-tags
- (org-get-buffer-tags))))))
- (quit (setq tg "")))
- (when (string-match "\\S-" tg)
- (cl-pushnew (list tg) buffer-tags :test #'equal)
- (if (member tg current)
- (setq current (delete tg current))
- (push tg current)))
- (when exit-after-next (setq exit-after-next 'now)))
- ((setq e (rassoc c todo-table) tg (car e))
- (with-current-buffer buf
- (save-excursion (org-todo tg)))
- (when exit-after-next (setq exit-after-next 'now)))
- ((setq e (rassoc c ntable) tg (car e))
- (if (member tg current)
- (setq current (delete tg current))
- (cl-loop for g in groups do
- (when (member tg g)
- (dolist (x g) (setq current (delete x current)))))
- (push tg current))
- (when exit-after-next (setq exit-after-next 'now))))
-
- ;; Create a sorted list
- (setq current
- (sort current
- (lambda (a b)
- (assoc b (cdr (memq (assoc a ntable) ntable))))))
- (when (eq exit-after-next 'now) (throw 'exit t))
- (goto-char (point-min))
- (beginning-of-line 2)
- (delete-region (point) (point-at-eol))
- (org-fast-tag-insert "Current" current c-face)
- (org-set-current-tags-overlay current ov-prefix)
- (while (re-search-forward "\\[.\\] \\([[:alnum:]_@#%]+\\)" nil t)
- (setq tg (match-string 1))
- (add-text-properties
- (match-beginning 1) (match-end 1)
- (list 'face
- (cond
- ((member tg current) c-face)
- ((member tg inherited) i-face)
- (t (get-text-property (match-beginning 1) 'face))))))
- (goto-char (point-min)))))
- (delete-overlay org-tags-overlay)
- (if rtn
- (mapconcat 'identity current ":")
- nil))))
-
-(defun org-get-tags-string ()
- "Get the TAGS string in the current headline."
- (unless (org-at-heading-p t)
- (user-error "Not on a heading"))
- (save-excursion
- (beginning-of-line 1)
- (if (looking-at ".*[ \t]\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$")
- (match-string-no-properties 1)
- "")))
-
-(defun org-get-tags ()
- "Get the list of tags specified in the current headline."
- (org-split-string (org-get-tags-string) ":"))
-
-(defun org-get-buffer-tags ()
- "Get a table of all tags used in the buffer, for completion."
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((tag-re (concat org-outline-regexp-bol
- "\\(?:.*?[ \t]\\)?:\\([[:alnum:]_@#%:]+\\):[ \t]*$"))
- tags)
- (while (re-search-forward tag-re nil t)
- (dolist (tag (org-split-string (match-string-no-properties 1) ":"))
- (push tag tags)))
- (mapcar #'list (append org-file-tags (org-uniquify tags))))))
-
-;;;; The mapping API
-
-(defvar org-agenda-skip-comment-trees)
-(defvar org-agenda-skip-function)
-(defun org-map-entries (func &optional match scope &rest skip)
- "Call FUNC at each headline selected by MATCH in SCOPE.
-
-FUNC is a function or a lisp form. The function will be called without
-arguments, with the cursor positioned at the beginning of the headline.
-The return values of all calls to the function will be collected and
-returned as a list.
-
-The call to FUNC will be wrapped into a save-excursion form, so FUNC
-does not need to preserve point. After evaluation, the cursor will be
-moved to the end of the line (presumably of the headline of the
-processed entry) and search continues from there. Under some
-circumstances, this may not produce the wanted results. For example,
-if you have removed (e.g. archived) the current (sub)tree it could
-mean that the next entry will be skipped entirely. In such cases, you
-can specify the position from where search should continue by making
-FUNC set the variable `org-map-continue-from' to the desired buffer
-position.
-
-MATCH is a tags/property/todo match as it is used in the agenda tags view.
-Only headlines that are matched by this query will be considered during
-the iteration. When MATCH is nil or t, all headlines will be
-visited by the iteration.
-
-SCOPE determines the scope of this command. It can be any of:
-
-nil The current buffer, respecting the restriction if any
-tree The subtree started with the entry at point
-region The entries within the active region, if any
-region-start-level
- The entries within the active region, but only those at
- the same level than the first one.
-file The current buffer, without restriction
-file-with-archives
- The current buffer, and any archives associated with it
-agenda All agenda files
-agenda-with-archives
- All agenda files with any archive files associated with them
-\(file1 file2 ...)
- If this is a list, all files in the list will be scanned
-
-The remaining args are treated as settings for the skipping facilities of
-the scanner. The following items can be given here:
-
- archive skip trees with the archive tag
- comment skip trees with the COMMENT keyword
- function or Emacs Lisp form:
- will be used as value for `org-agenda-skip-function', so
- whenever the function returns a position, FUNC will not be
- called for that entry and search will continue from the
- position returned
-
-If your function needs to retrieve the tags including inherited tags
-at the *current* entry, you can use the value of the variable
-`org-scanner-tags' which will be much faster than getting the value
-with `org-get-tags-at'. If your function gets properties with
-`org-entry-properties' at the *current* entry, bind `org-trust-scanner-tags'
-to t around the call to `org-entry-properties' to get the same speedup.
-Note that if your function moves around to retrieve tags and properties at
-a *different* entry, you cannot use these techniques."
- (unless (and (or (eq scope 'region) (eq scope 'region-start-level))
- (not (org-region-active-p)))
- (let* ((org-agenda-archives-mode nil) ; just to make sure
- (org-agenda-skip-archived-trees (memq 'archive skip))
- (org-agenda-skip-comment-trees (memq 'comment skip))
- (org-agenda-skip-function
- (car (org-delete-all '(comment archive) skip)))
- (org-tags-match-list-sublevels t)
- (start-level (eq scope 'region-start-level))
- matcher res
- org-todo-keywords-for-agenda
- org-done-keywords-for-agenda
- org-todo-keyword-alist-for-agenda
- org-tag-alist-for-agenda
- org--matcher-tags-todo-only)
-
- (cond
- ((eq match t) (setq matcher t))
- ((eq match nil) (setq matcher t))
- (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t))))
-
- (save-excursion
- (save-restriction
- (cond ((eq scope 'tree)
- (org-back-to-heading t)
- (org-narrow-to-subtree)
- (setq scope nil))
- ((and (or (eq scope 'region) (eq scope 'region-start-level))
- (org-region-active-p))
- ;; If needed, set start-level to a string like "2"
- (when start-level
- (save-excursion
- (goto-char (region-beginning))
- (unless (org-at-heading-p) (outline-next-heading))
- (setq start-level (org-current-level))))
- (narrow-to-region (region-beginning)
- (save-excursion
- (goto-char (region-end))
- (unless (and (bolp) (org-at-heading-p))
- (outline-next-heading))
- (point)))
- (setq scope nil)))
-
- (if (not scope)
- (progn
- (org-agenda-prepare-buffers
- (and buffer-file-name (list buffer-file-name)))
- (setq res
- (org-scan-tags
- func matcher org--matcher-tags-todo-only start-level)))
- ;; Get the right scope
- (cond
- ((and scope (listp scope) (symbolp (car scope)))
- (setq scope (eval scope)))
- ((eq scope 'agenda)
- (setq scope (org-agenda-files t)))
- ((eq scope 'agenda-with-archives)
- (setq scope (org-agenda-files t))
- (setq scope (org-add-archive-files scope)))
- ((eq scope 'file)
- (setq scope (and buffer-file-name (list buffer-file-name))))
- ((eq scope 'file-with-archives)
- (setq scope (org-add-archive-files (list (buffer-file-name))))))
- (org-agenda-prepare-buffers scope)
- (dolist (file scope)
- (with-current-buffer (org-find-base-buffer-visiting file)
- (org-with-wide-buffer
- (goto-char (point-min))
- (setq res
- (append
- res
- (org-scan-tags
- func matcher org--matcher-tags-todo-only)))))))))
- res)))
-
-;;; Properties API
-
-(defconst org-special-properties
- '("ALLTAGS" "BLOCKED" "CLOCKSUM" "CLOCKSUM_T" "CLOSED" "DEADLINE" "FILE"
- "ITEM" "PRIORITY" "SCHEDULED" "TAGS" "TIMESTAMP" "TIMESTAMP_IA" "TODO")
- "The special properties valid in Org mode.
-These are properties that are not defined in the property drawer,
-but in some other way.")
-
-(defconst org-default-properties
- '("ARCHIVE" "CATEGORY" "SUMMARY" "DESCRIPTION" "CUSTOM_ID"
- "LOCATION" "LOGGING" "COLUMNS" "VISIBILITY"
- "TABLE_EXPORT_FORMAT" "TABLE_EXPORT_FILE"
- "EXPORT_OPTIONS" "EXPORT_TEXT" "EXPORT_FILE_NAME"
- "EXPORT_TITLE" "EXPORT_AUTHOR" "EXPORT_DATE" "UNNUMBERED"
- "ORDERED" "NOBLOCKING" "COOKIE_DATA" "LOG_INTO_DRAWER" "REPEAT_TO_STATE"
- "CLOCK_MODELINE_TOTAL" "STYLE" "HTML_CONTAINER_CLASS")
- "Some properties that are used by Org mode for various purposes.
-Being in this list makes sure that they are offered for completion.")
-
-(defun org--valid-property-p (property)
- "Non nil when string PROPERTY is a valid property name."
- (not
- (or (equal property "")
- (string-match-p "\\s-" property))))
-
-(defun org--update-property-plist (key val props)
- "Associate KEY to VAL in alist PROPS.
-Modifications are made by side-effect. Return new alist."
- (let* ((appending (string= (substring key -1) "+"))
- (key (if appending (substring key 0 -1) key))
- (old (assoc-string key props t)))
- (if (not old) (cons (cons key val) props)
- (setcdr old (if appending (concat (cdr old) " " val) val))
- props)))
-
-(defun org-get-property-block (&optional beg force)
- "Return the (beg . end) range of the body of the property drawer.
-BEG is the beginning of the current subtree, or of the part
-before the first headline. If it is not given, it will be found.
-If the drawer does not exist, create it if FORCE is non-nil, or
-return nil."
- (org-with-wide-buffer
- (when beg (goto-char beg))
- (unless (org-before-first-heading-p)
- (let ((beg (cond (beg)
- ((or (not (featurep 'org-inlinetask))
- (org-inlinetask-in-task-p))
- (org-back-to-heading t))
- (t (org-with-limited-levels (org-back-to-heading t))))))
- (forward-line)
- (when (looking-at-p org-planning-line-re) (forward-line))
- (cond ((looking-at org-property-drawer-re)
- (forward-line)
- (cons (point) (progn (goto-char (match-end 0))
- (line-beginning-position))))
- (force
- (goto-char beg)
- (org-insert-property-drawer)
- (let ((pos (save-excursion (search-forward ":END:")
- (line-beginning-position))))
- (cons pos pos))))))))
-
-(defun org-at-property-p ()
- "Non-nil when point is inside a property drawer.
-See `org-property-re' for match data, if applicable."
- (save-excursion
- (beginning-of-line)
- (and (looking-at org-property-re)
- (let ((property-drawer (save-match-data (org-get-property-block))))
- (and property-drawer
- (>= (point) (car property-drawer))
- (< (point) (cdr property-drawer)))))))
-
-(defun org-property-action ()
- "Do an action on properties."
- (interactive)
- (message "Property Action: [s]et [d]elete [D]elete globally [c]ompute")
- (let ((c (read-char-exclusive)))
- (cl-case c
- (?s (call-interactively #'org-set-property))
- (?d (call-interactively #'org-delete-property))
- (?D (call-interactively #'org-delete-property-globally))
- (?c (call-interactively #'org-compute-property-at-point))
- (otherwise (user-error "No such property action %c" c)))))
-
-(defun org-inc-effort ()
- "Increment the value of the effort property in the current entry."
- (interactive)
- (org-set-effort nil t))
-
-(defvar org-clock-effort) ; Defined in org-clock.el.
-(defvar org-clock-current-task) ; Defined in org-clock.el.
-(defun org-set-effort (&optional value increment)
- "Set the effort property of the current entry.
-With numerical prefix arg, use the nth allowed value, 0 stands for the
-10th allowed value.
-
-When INCREMENT is non-nil, set the property to the next allowed value."
- (interactive "P")
- (when (equal value 0) (setq value 10))
- (let* ((completion-ignore-case t)
- (prop org-effort-property)
- (cur (org-entry-get nil prop))
- (allowed (org-property-get-allowed-values nil prop 'table))
- (existing (mapcar 'list (org-property-values prop)))
- (heading (nth 4 (org-heading-components)))
- rpl
- (val (cond
- ((stringp value) value)
- ((and allowed (integerp value))
- (or (car (nth (1- value) allowed))
- (car (org-last allowed))))
- ((and allowed increment)
- (or (cl-caadr (member (list cur) allowed))
- (user-error "Allowed effort values are not set")))
- (allowed
- (message "Select 1-9,0, [RET%s]: %s"
- (if cur (concat "=" cur) "")
- (mapconcat 'car allowed " "))
- (setq rpl (read-char-exclusive))
- (if (equal rpl ?\r)
- cur
- (setq rpl (- rpl ?0))
- (when (equal rpl 0) (setq rpl 10))
- (if (and (> rpl 0) (<= rpl (length allowed)))
- (car (nth (1- rpl) allowed))
- (org-completing-read "Effort: " allowed nil))))
- (t
- (org-completing-read
- (concat "Effort" (and cur (string-match "\\S-" cur)
- (concat " [" cur "]"))
- ": ")
- existing nil nil "" nil cur)))))
- (unless (equal (org-entry-get nil prop) val)
- (org-entry-put nil prop val))
- (org-refresh-property
- '((effort . identity)
- (effort-minutes . org-duration-to-minutes))
- val)
- (when (equal heading (bound-and-true-p org-clock-current-task))
- (setq org-clock-effort (get-text-property (point-at-bol) 'effort))
- (org-clock-update-mode-line))
- (message "%s is now %s" prop val)))
-
-(defun org-entry-properties (&optional pom which)
- "Get all properties of the current entry.
-
-When POM is a buffer position, get all properties from the entry
-there instead.
-
-This includes the TODO keyword, the tags, time strings for
-deadline, scheduled, and clocking, and any additional properties
-defined in the entry.
-
-If WHICH is nil or `all', get all properties. If WHICH is
-`special' or `standard', only get that subclass. If WHICH is
-a string, only get that property.
-
-Return value is an alist. Keys are properties, as upcased
-strings."
- (org-with-point-at pom
- (when (and (derived-mode-p 'org-mode)
- (ignore-errors (org-back-to-heading t)))
- (catch 'exit
- (let* ((beg (point))
- (specific (and (stringp which) (upcase which)))
- (which (cond ((not specific) which)
- ((member specific org-special-properties) 'special)
- (t 'standard)))
- props)
- ;; Get the special properties, like TODO and TAGS.
- (when (memq which '(nil all special))
- (when (or (not specific) (string= specific "CLOCKSUM"))
- (let ((clocksum (get-text-property (point) :org-clock-minutes)))
- (when clocksum
- (push (cons "CLOCKSUM" (org-duration-from-minutes clocksum))
- props)))
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "CLOCKSUM_T"))
- (let ((clocksumt (get-text-property (point)
- :org-clock-minutes-today)))
- (when clocksumt
- (push (cons "CLOCKSUM_T"
- (org-duration-from-minutes clocksumt))
- props)))
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "ITEM"))
- (let ((case-fold-search nil))
- (when (looking-at org-complex-heading-regexp)
- (push (cons "ITEM"
- (let ((title (match-string-no-properties 4)))
- (if (org-string-nw-p title)
- (org-remove-tabs title)
- "")))
- props)))
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "TODO"))
- (let ((case-fold-search nil))
- (when (and (looking-at org-todo-line-regexp) (match-end 2))
- (push (cons "TODO" (match-string-no-properties 2)) props)))
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "PRIORITY"))
- (push (cons "PRIORITY"
- (if (looking-at org-priority-regexp)
- (match-string-no-properties 2)
- (char-to-string org-default-priority)))
- props)
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "FILE"))
- (push (cons "FILE" (buffer-file-name (buffer-base-buffer)))
- props)
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "TAGS"))
- (let ((value (org-string-nw-p (org-get-tags-string))))
- (when value (push (cons "TAGS" value) props)))
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "ALLTAGS"))
- (let ((value (org-get-tags-at)))
- (when value
- (push (cons "ALLTAGS"
- (format ":%s:" (mapconcat #'identity value ":")))
- props)))
- (when specific (throw 'exit props)))
- (when (or (not specific) (string= specific "BLOCKED"))
- (push (cons "BLOCKED" (if (org-entry-blocked-p) "t" "")) props)
- (when specific (throw 'exit props)))
- (when (or (not specific)
- (member specific '("CLOSED" "DEADLINE" "SCHEDULED")))
- (forward-line)
- (when (looking-at-p org-planning-line-re)
- (end-of-line)
- (let ((bol (line-beginning-position))
- ;; Backward compatibility: time keywords used to
- ;; be configurable (before 8.3). Make sure we
- ;; get the correct keyword.
- (key-assoc `(("CLOSED" . ,org-closed-string)
- ("DEADLINE" . ,org-deadline-string)
- ("SCHEDULED" . ,org-scheduled-string))))
- (dolist (pair (if specific (list (assoc specific key-assoc))
- key-assoc))
- (save-excursion
- (when (search-backward (cdr pair) bol t)
- (goto-char (match-end 0))
- (skip-chars-forward " \t")
- (and (looking-at org-ts-regexp-both)
- (push (cons (car pair)
- (match-string-no-properties 0))
- props)))))))
- (when specific (throw 'exit props)))
- (when (or (not specific)
- (member specific '("TIMESTAMP" "TIMESTAMP_IA")))
- (let ((find-ts
- (lambda (end ts)
- ;; Fix next time-stamp before END. TS is the
- ;; list of time-stamps found so far.
- (let ((ts ts)
- (regexp (cond
- ((string= specific "TIMESTAMP")
- org-ts-regexp)
- ((string= specific "TIMESTAMP_IA")
- org-ts-regexp-inactive)
- ((assoc "TIMESTAMP_IA" ts)
- org-ts-regexp)
- ((assoc "TIMESTAMP" ts)
- org-ts-regexp-inactive)
- (t org-ts-regexp-both))))
- (catch 'next
- (while (re-search-forward regexp end t)
- (backward-char)
- (let ((object (org-element-context)))
- ;; Accept to match timestamps in node
- ;; properties, too.
- (when (memq (org-element-type object)
- '(node-property timestamp))
- (let ((type
- (org-element-property :type object)))
- (cond
- ((and (memq type '(active active-range))
- (not (equal specific "TIMESTAMP_IA")))
- (unless (assoc "TIMESTAMP" ts)
- (push (cons "TIMESTAMP"
- (org-element-property
- :raw-value object))
- ts)
- (when specific (throw 'exit ts))))
- ((and (memq type '(inactive inactive-range))
- (not (string= specific "TIMESTAMP")))
- (unless (assoc "TIMESTAMP_IA" ts)
- (push (cons "TIMESTAMP_IA"
- (org-element-property
- :raw-value object))
- ts)
- (when specific (throw 'exit ts))))))
- ;; Both timestamp types are found,
- ;; move to next part.
- (when (= (length ts) 2) (throw 'next ts)))))
- ts)))))
- (goto-char beg)
- ;; First look for timestamps within headline.
- (let ((ts (funcall find-ts (line-end-position) nil)))
- (if (= (length ts) 2) (setq props (nconc ts props))
- ;; Then find timestamps in the section, skipping
- ;; planning line.
- (let ((end (save-excursion (outline-next-heading))))
- (forward-line)
- (when (looking-at-p org-planning-line-re) (forward-line))
- (setq props (nconc (funcall find-ts end ts) props))))))))
- ;; Get the standard properties, like :PROP:.
- (when (memq which '(nil all standard))
- ;; If we are looking after a specific property, delegate
- ;; to `org-entry-get', which is faster. However, make an
- ;; exception for "CATEGORY", since it can be also set
- ;; through keywords (i.e. #+CATEGORY).
- (if (and specific (not (equal specific "CATEGORY")))
- (let ((value (org-entry-get beg specific nil t)))
- (throw 'exit (and value (list (cons specific value)))))
- (let ((range (org-get-property-block beg)))
- (when range
- (let ((end (cdr range)) seen-base)
- (goto-char (car range))
- ;; Unlike to `org--update-property-plist', we
- ;; handle the case where base values is found
- ;; after its extension. We also forbid standard
- ;; properties to be named as special properties.
- (while (re-search-forward org-property-re end t)
- (let* ((key (upcase (match-string-no-properties 2)))
- (extendp (string-match-p "\\+\\'" key))
- (key-base (if extendp (substring key 0 -1) key))
- (value (match-string-no-properties 3)))
- (cond
- ((member-ignore-case key-base org-special-properties))
- (extendp
- (setq props
- (org--update-property-plist key value props)))
- ((member key seen-base))
- (t (push key seen-base)
- (let ((p (assoc-string key props t)))
- (if p (setcdr p (concat value " " (cdr p)))
- (push (cons key value) props))))))))))))
- (unless (assoc "CATEGORY" props)
- (push (cons "CATEGORY" (org-get-category beg)) props)
- (when (string= specific "CATEGORY") (throw 'exit props)))
- ;; Return value.
- props)))))
-
-(defun org--property-local-values (property literal-nil)
- "Return value for PROPERTY in current entry.
-Value is a list whose car is the base value for PROPERTY and cdr
-a list of accumulated values. Return nil if neither is found in
-the entry. Also return nil when PROPERTY is set to \"nil\",
-unless LITERAL-NIL is non-nil."
- (let ((range (org-get-property-block)))
- (when range
- (goto-char (car range))
- (let* ((case-fold-search t)
- (end (cdr range))
- (value
- ;; Base value.
- (save-excursion
- (let ((v (and (re-search-forward
- (org-re-property property nil t) end t)
- (match-string-no-properties 3))))
- (list (if literal-nil v (org-not-nil v)))))))
- ;; Find additional values.
- (let* ((property+ (org-re-property (concat property "+") nil t)))
- (while (re-search-forward property+ end t)
- (push (match-string-no-properties 3) value)))
- ;; Return final values.
- (and (not (equal value '(nil))) (nreverse value))))))
-
-(defun org--property-global-value (property literal-nil)
- "Return value for PROPERTY in current buffer.
-Return value is a string. Return nil if property is not set
-globally. Also return nil when PROPERTY is set to \"nil\",
-unless LITERAL-NIL is non-nil."
- (let ((global
- (cdr (or (assoc-string property org-file-properties t)
- (assoc-string property org-global-properties t)
- (assoc-string property org-global-properties-fixed t)))))
- (if literal-nil global (org-not-nil global))))
-
-(defun org-entry-get (pom property &optional inherit literal-nil)
- "Get value of PROPERTY for entry or content at point-or-marker POM.
-
-If INHERIT is non-nil and the entry does not have the property,
-then also check higher levels of the hierarchy. If INHERIT is
-the symbol `selective', use inheritance only if the setting in
-`org-use-property-inheritance' selects PROPERTY for inheritance.
-
-If the property is present but empty, the return value is the
-empty string. If the property is not present at all, nil is
-returned. In any other case, return the value as a string.
-Search is case-insensitive.
-
-If LITERAL-NIL is set, return the string value \"nil\" as
-a string, do not interpret it as the list atom nil. This is used
-for inheritance when a \"nil\" value can supersede a non-nil
-value higher up the hierarchy."
- (org-with-point-at pom
- (cond
- ((member-ignore-case property (cons "CATEGORY" org-special-properties))
- ;; We need a special property. Use `org-entry-properties' to
- ;; retrieve it, but specify the wanted property.
- (cdr (assoc-string property (org-entry-properties nil property))))
- ((and inherit
- (or (not (eq inherit 'selective)) (org-property-inherit-p property)))
- (org-entry-get-with-inheritance property literal-nil))
- (t
- (let* ((local (org--property-local-values property literal-nil))
- (value (and local (mapconcat #'identity (delq nil local) " "))))
- (if literal-nil value (org-not-nil value)))))))
-
-(defun org-property-or-variable-value (var &optional inherit)
- "Check if there is a property fixing the value of VAR.
-If yes, return this value. If not, return the current value of the variable."
- (let ((prop (org-entry-get nil (symbol-name var) inherit)))
- (if (and prop (stringp prop) (string-match "\\S-" prop))
- (read prop)
- (symbol-value var))))
-
-(defun org-entry-delete (pom property)
- "Delete PROPERTY from entry at point-or-marker POM.
-Accumulated properties, i.e. PROPERTY+, are also removed. Return
-non-nil when a property was removed."
- (org-with-point-at pom
- (pcase (org-get-property-block)
- (`(,begin . ,origin)
- (let* ((end (copy-marker origin))
- (re (org-re-property
- (concat (regexp-quote property) "\\+?") t t)))
- (goto-char begin)
- (while (re-search-forward re end t)
- (delete-region (match-beginning 0) (line-beginning-position 2)))
- ;; If drawer is empty, remove it altogether.
- (when (= begin end)
- (delete-region (line-beginning-position 0)
- (line-beginning-position 2)))
- ;; Return non-nil if some property was removed.
- (prog1 (/= end origin) (set-marker end nil))))
- (_ nil))))
-
-;; Multi-values properties are properties that contain multiple values
-;; These values are assumed to be single words, separated by whitespace.
-(defun org-entry-add-to-multivalued-property (pom property value)
- "Add VALUE to the words in the PROPERTY in entry at point-or-marker POM."
- (let* ((old (org-entry-get pom property))
- (values (and old (split-string old))))
- (setq value (org-entry-protect-space value))
- (unless (member value values)
- (setq values (append values (list value)))
- (org-entry-put pom property (mapconcat #'identity values " ")))))
-
-(defun org-entry-remove-from-multivalued-property (pom property value)
- "Remove VALUE from words in the PROPERTY in entry at point-or-marker POM."
- (let* ((old (org-entry-get pom property))
- (values (and old (split-string old))))
- (setq value (org-entry-protect-space value))
- (when (member value values)
- (setq values (delete value values))
- (org-entry-put pom property (mapconcat #'identity values " ")))))
-
-(defun org-entry-member-in-multivalued-property (pom property value)
- "Is VALUE one of the words in the PROPERTY in entry at point-or-marker POM?"
- (let* ((old (org-entry-get pom property))
- (values (and old (split-string old))))
- (setq value (org-entry-protect-space value))
- (member value values)))
-
-(defun org-entry-get-multivalued-property (pom property)
- "Return a list of values in a multivalued property."
- (let* ((value (org-entry-get pom property))
- (values (and value (split-string value))))
- (mapcar #'org-entry-restore-space values)))
-
-(defun org-entry-put-multivalued-property (pom property &rest values)
- "Set multivalued PROPERTY at point-or-marker POM to VALUES.
-VALUES should be a list of strings. Spaces will be protected."
- (org-entry-put pom property (mapconcat #'org-entry-protect-space values " "))
- (let* ((value (org-entry-get pom property))
- (values (and value (split-string value))))
- (mapcar #'org-entry-restore-space values)))
-
-(defun org-entry-protect-space (s)
- "Protect spaces and newline in string S."
- (while (string-match " " s)
- (setq s (replace-match "%20" t t s)))
- (while (string-match "\n" s)
- (setq s (replace-match "%0A" t t s)))
- s)
-
-(defun org-entry-restore-space (s)
- "Restore spaces and newline in string S."
- (while (string-match "%20" s)
- (setq s (replace-match " " t t s)))
- (while (string-match "%0A" s)
- (setq s (replace-match "\n" t t s)))
- s)
-
-(defvar org-entry-property-inherited-from (make-marker)
- "Marker pointing to the entry from where a property was inherited.
-Each call to `org-entry-get-with-inheritance' will set this marker to the
-location of the entry where the inheritance search matched. If there was
-no match, the marker will point nowhere.
-Note that also `org-entry-get' calls this function, if the INHERIT flag
-is set.")
-
-(defun org-entry-get-with-inheritance (property &optional literal-nil)
- "Get PROPERTY of entry or content at point, search higher levels if needed.
-The search will stop at the first ancestor which has the property defined.
-If the value found is \"nil\", return nil to show that the property
-should be considered as undefined (this is the meaning of nil here).
-However, if LITERAL-NIL is set, return the string value \"nil\" instead."
- (move-marker org-entry-property-inherited-from nil)
- (org-with-wide-buffer
- (let (value)
- (catch 'exit
- (while t
- (let ((v (org--property-local-values property literal-nil)))
- (when v
- (setq value
- (concat (mapconcat #'identity (delq nil v) " ")
- (and value " ")
- value)))
- (cond
- ((car v)
- (org-back-to-heading t)
- (move-marker org-entry-property-inherited-from (point))
- (throw 'exit nil))
- ((org-up-heading-safe))
- (t
- (let ((global (org--property-global-value property literal-nil)))
- (cond ((not global))
- (value (setq value (concat global " " value)))
- (t (setq value global))))
- (throw 'exit nil))))))
- (if literal-nil value (org-not-nil value)))))
-
-(defvar org-property-changed-functions nil
- "Hook called when the value of a property has changed.
-Each hook function should accept two arguments, the name of the property
-and the new value.")
-
-(defun org-entry-put (pom property value)
- "Set PROPERTY to VALUE for entry at point-or-marker POM.
-
-If the value is nil, it is converted to the empty string. If it
-is not a string, an error is raised. Also raise an error on
-invalid property names.
-
-PROPERTY can be any regular property (see
-`org-special-properties'). It can also be \"TODO\",
-\"PRIORITY\", \"SCHEDULED\" and \"DEADLINE\".
-
-For the last two properties, VALUE may have any of the special
-values \"earlier\" and \"later\". The function then increases or
-decreases scheduled or deadline date by one day."
- (cond ((null value) (setq value ""))
- ((not (stringp value)) (error "Properties values should be strings"))
- ((not (org--valid-property-p property))
- (user-error "Invalid property name: \"%s\"" property)))
- (org-with-point-at pom
- (if (or (not (featurep 'org-inlinetask)) (org-inlinetask-in-task-p))
- (org-back-to-heading t)
- (org-with-limited-levels (org-back-to-heading t)))
- (let ((beg (point)))
- (cond
- ((equal property "TODO")
- (cond ((not (org-string-nw-p value)) (setq value 'none))
- ((not (member value org-todo-keywords-1))
- (user-error "\"%s\" is not a valid TODO state" value)))
- (org-todo value)
- (org-set-tags nil 'align))
- ((equal property "PRIORITY")
- (org-priority (if (org-string-nw-p value) (string-to-char value) ?\s))
- (org-set-tags nil 'align))
- ((equal property "SCHEDULED")
- (forward-line)
- (if (and (looking-at-p org-planning-line-re)
- (re-search-forward
- org-scheduled-time-regexp (line-end-position) t))
- (cond ((string= value "earlier") (org-timestamp-change -1 'day))
- ((string= value "later") (org-timestamp-change 1 'day))
- ((string= value "") (org-schedule '(4)))
- (t (org-schedule nil value)))
- (if (member value '("earlier" "later" ""))
- (call-interactively #'org-schedule)
- (org-schedule nil value))))
- ((equal property "DEADLINE")
- (forward-line)
- (if (and (looking-at-p org-planning-line-re)
- (re-search-forward
- org-deadline-time-regexp (line-end-position) t))
- (cond ((string= value "earlier") (org-timestamp-change -1 'day))
- ((string= value "later") (org-timestamp-change 1 'day))
- ((string= value "") (org-deadline '(4)))
- (t (org-deadline nil value)))
- (if (member value '("earlier" "later" ""))
- (call-interactively #'org-deadline)
- (org-deadline nil value))))
- ((member property org-special-properties)
- (error "The %s property cannot be set with `org-entry-put'" property))
- (t
- (let* ((range (org-get-property-block beg 'force))
- (end (cdr range))
- (case-fold-search t))
- (goto-char (car range))
- (if (re-search-forward (org-re-property property nil t) end t)
- (progn (delete-region (match-beginning 0) (match-end 0))
- (goto-char (match-beginning 0)))
- (goto-char end)
- (insert "\n")
- (backward-char))
- (insert ":" property ":")
- (when value (insert " " value))
- (org-indent-line)))))
- (run-hook-with-args 'org-property-changed-functions property value)))
-
-(defun org-buffer-property-keys
- (&optional specials defaults columns ignore-malformed)
- "Get all property keys in the current buffer.
-
-When SPECIALS is non-nil, also list the special properties that
-reflect things like tags and TODO state.
-
-When DEFAULTS is non-nil, also include properties that has
-special meaning internally: ARCHIVE, CATEGORY, SUMMARY,
-DESCRIPTION, LOCATION, and LOGGING and others.
-
-When COLUMNS in non-nil, also include property names given in
-COLUMN formats in the current buffer.
-
-When IGNORE-MALFORMED is non-nil, malformed drawer repair will not be
-automatically performed, such drawers will be silently ignored."
- (let ((case-fold-search t)
- (props (append
- (and specials org-special-properties)
- (and defaults (cons org-effort-property org-default-properties))
- nil)))
- (org-with-wide-buffer
- (goto-char (point-min))
- (while (re-search-forward org-property-start-re nil t)
- (let ((range (org-get-property-block)))
- (catch 'skip
- (unless range
- (when (and (not ignore-malformed)
- (not (org-before-first-heading-p))
- (y-or-n-p (format "Malformed drawer at %d, repair?"
- (line-beginning-position))))
- (org-get-property-block nil t))
- (throw 'skip nil))
- (goto-char (car range))
- (let ((begin (car range))
- (end (cdr range)))
- ;; Make sure that found property block is not located
- ;; before current point, as it would generate an infloop.
- ;; It can happen, for example, in the following
- ;; situation:
- ;;
- ;; * Headline
- ;; :PROPERTIES:
- ;; ...
- ;; :END:
- ;; *************** Inlinetask
- ;; #+BEGIN_EXAMPLE
- ;; :PROPERTIES:
- ;; #+END_EXAMPLE
- ;;
- (if (< begin (point)) (throw 'skip nil) (goto-char begin))
- (while (< (point) end)
- (let ((p (progn (looking-at org-property-re)
- (match-string-no-properties 2))))
- ;; Only add true property name, not extension symbol.
- (push (if (not (string-match-p "\\+\\'" p)) p
- (substring p 0 -1))
- props))
- (forward-line))))
- (outline-next-heading)))
- (when columns
- (goto-char (point-min))
- (while (re-search-forward "^[ \t]*\\(?:#\\+\\|:\\)COLUMNS:" nil t)
- (let ((element (org-element-at-point)))
- (when (memq (org-element-type element) '(keyword node-property))
- (let ((value (org-element-property :value element))
- (start 0))
- (while (string-match "%[0-9]*\\([[:alnum:]_-]+\\)\\(([^)]+)\\)?\
-\\(?:{[^}]+}\\)?"
- value start)
- (setq start (match-end 0))
- (let ((p (match-string-no-properties 1 value)))
- (unless (member-ignore-case p org-special-properties)
- (push p props))))))))))
- (sort (delete-dups props) (lambda (a b) (string< (upcase a) (upcase b))))))
-
-(defun org-property-values (key)
- "List all non-nil values of property KEY in current buffer."
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((case-fold-search t)
- (re (org-re-property key))
- values)
- (while (re-search-forward re nil t)
- (push (org-entry-get (point) key) values))
- (delete-dups values))))
-
-(defun org-insert-property-drawer ()
- "Insert a property drawer into the current entry."
- (org-with-wide-buffer
- (if (or (not (featurep 'org-inlinetask)) (org-inlinetask-in-task-p))
- (org-back-to-heading t)
- (org-with-limited-levels (org-back-to-heading t)))
- (forward-line)
- (when (looking-at-p org-planning-line-re) (forward-line))
- (unless (looking-at-p org-property-drawer-re)
- ;; Make sure we start editing a line from current entry, not from
- ;; next one. It prevents extending text properties or overlays
- ;; belonging to the latter.
- (when (bolp) (backward-char))
- (let ((begin (1+ (point)))
- (inhibit-read-only t))
- (insert "\n:PROPERTIES:\n:END:")
- (when (eobp) (insert "\n"))
- (org-indent-region begin (point))))))
-
-(defun org-insert-drawer (&optional arg drawer)
- "Insert a drawer at point.
-
-When optional argument ARG is non-nil, insert a property drawer.
-
-Optional argument DRAWER, when non-nil, is a string representing
-drawer's name. Otherwise, the user is prompted for a name.
-
-If a region is active, insert the drawer around that region
-instead.
-
-Point is left between drawer's boundaries."
- (interactive "P")
- (let* ((drawer (if arg "PROPERTIES"
- (or drawer (read-from-minibuffer "Drawer: ")))))
- (cond
- ;; With C-u, fall back on `org-insert-property-drawer'
- (arg (org-insert-property-drawer))
- ;; Check validity of suggested drawer's name.
- ((not (string-match-p org-drawer-regexp (format ":%s:" drawer)))
- (user-error "Invalid drawer name"))
- ;; With an active region, insert a drawer at point.
- ((not (org-region-active-p))
- (progn
- (unless (bolp) (insert "\n"))
- (insert (format ":%s:\n\n:END:\n" drawer))
- (forward-line -2)))
- ;; Otherwise, insert the drawer at point
- (t
- (let ((rbeg (region-beginning))
- (rend (copy-marker (region-end))))
- (unwind-protect
- (progn
- (goto-char rbeg)
- (beginning-of-line)
- (when (save-excursion
- (re-search-forward org-outline-regexp-bol rend t))
- (user-error "Drawers cannot contain headlines"))
- ;; Position point at the beginning of the first
- ;; non-blank line in region. Insert drawer's opening
- ;; there, then indent it.
- (org-skip-whitespace)
- (beginning-of-line)
- (insert ":" drawer ":\n")
- (forward-line -1)
- (indent-for-tab-command)
- ;; Move point to the beginning of the first blank line
- ;; after the last non-blank line in region. Insert
- ;; drawer's closing, then indent it.
- (goto-char rend)
- (skip-chars-backward " \r\t\n")
- (insert "\n:END:")
- (deactivate-mark t)
- (indent-for-tab-command)
- (unless (eolp) (insert "\n")))
- ;; Clear marker, whatever the outcome of insertion is.
- (set-marker rend nil)))))))
-
-(defvar org-property-set-functions-alist nil
- "Property set function alist.
-Each entry should have the following format:
-
- (PROPERTY . READ-FUNCTION)
-
-The read function will be called with the same argument as
-`org-completing-read'.")
-
-(defun org-set-property-function (property)
- "Get the function that should be used to set PROPERTY.
-This is computed according to `org-property-set-functions-alist'."
- (or (cdr (assoc property org-property-set-functions-alist))
- 'org-completing-read))
-
-(defun org-read-property-value (property)
- "Read PROPERTY value from user."
- (let* ((completion-ignore-case t)
- (allowed (org-property-get-allowed-values nil property 'table))
- (cur (org-entry-get nil property))
- (prompt (concat property " value"
- (if (and cur (string-match "\\S-" cur))
- (concat " [" cur "]") "") ": "))
- (set-function (org-set-property-function property))
- (val (if allowed
- (funcall set-function prompt allowed nil
- (not (get-text-property 0 'org-unrestricted
- (caar allowed))))
- (funcall set-function prompt
- (mapcar 'list (org-property-values property))
- nil nil "" nil cur))))
- (org-trim val)))
-
-(defvar org-last-set-property nil)
-(defvar org-last-set-property-value nil)
-(defun org-read-property-name ()
- "Read a property name."
- (let ((completion-ignore-case t)
- (default-prop (or (and (org-at-property-p)
- (match-string-no-properties 2))
- org-last-set-property)))
- (org-completing-read
- (concat "Property"
- (if default-prop (concat " [" default-prop "]") "")
- ": ")
- (mapcar #'list (org-buffer-property-keys nil t t))
- nil nil nil nil default-prop)))
-
-(defun org-set-property-and-value (use-last)
- "Allow to set [PROPERTY]: [value] direction from prompt.
-When use-default, don't even ask, just use the last
-\"[PROPERTY]: [value]\" string from the history."
- (interactive "P")
- (let* ((completion-ignore-case t)
- (pv (or (and use-last org-last-set-property-value)
- (org-completing-read
- "Enter a \"[Property]: [value]\" pair: "
- nil nil nil nil nil
- org-last-set-property-value)))
- prop val)
- (when (string-match "^[ \t]*\\([^:]+\\):[ \t]*\\(.*\\)[ \t]*$" pv)
- (setq prop (match-string 1 pv)
- val (match-string 2 pv))
- (org-set-property prop val))))
-
-(defun org-set-property (property value)
- "In the current entry, set PROPERTY to VALUE.
-
-When called interactively, this will prompt for a property name, offering
-completion on existing and default properties. And then it will prompt
-for a value, offering completion either on allowed values (via an inherited
-xxx_ALL property) or on existing values in other instances of this property
-in the current file.
-
-Throw an error when trying to set a property with an invalid name."
- (interactive (list nil nil))
- (let ((property (or property (org-read-property-name))))
- ;; `org-entry-put' also makes the following check, but this one
- ;; avoids polluting `org-last-set-property' and
- ;; `org-last-set-property-value' needlessly.
- (unless (org--valid-property-p property)
- (user-error "Invalid property name: \"%s\"" property))
- (let ((value (or value (org-read-property-value property)))
- (fn (cdr (assoc-string property org-properties-postprocess-alist t))))
- (setq org-last-set-property property)
- (setq org-last-set-property-value (concat property ": " value))
- ;; Possibly postprocess the inserted value:
- (when fn (setq value (funcall fn value)))
- (unless (equal (org-entry-get nil property) value)
- (org-entry-put nil property value)))))
-
-(defun org-find-property (property &optional value)
- "Find first entry in buffer that sets PROPERTY.
-
-When optional argument VALUE is non-nil, only consider an entry
-if it contains PROPERTY set to this value. If PROPERTY should be
-explicitly set to nil, use string \"nil\" for VALUE.
-
-Return position where the entry begins, or nil if there is no
-such entry. If narrowing is in effect, only search the visible
-part of the buffer."
- (save-excursion
- (goto-char (point-min))
- (let ((case-fold-search t)
- (re (org-re-property property nil (not value) value)))
- (catch 'exit
- (while (re-search-forward re nil t)
- (when (if value (org-at-property-p)
- (org-entry-get (point) property nil t))
- (throw 'exit (progn (org-back-to-heading t) (point)))))))))
-
-(defun org-delete-property (property)
- "In the current entry, delete PROPERTY."
- (interactive
- (let* ((completion-ignore-case t)
- (cat (org-entry-get (point) "CATEGORY"))
- (props0 (org-entry-properties nil 'standard))
- (props (if cat props0
- (delete `("CATEGORY" . ,(org-get-category)) props0)))
- (prop (if (< 1 (length props))
- (completing-read "Property: " props nil t)
- (caar props))))
- (list prop)))
- (if (not property)
- (message "No property to delete in this entry")
- (org-entry-delete nil property)
- (message "Property \"%s\" deleted" property)))
-
-(defun org-delete-property-globally (property)
- "Remove PROPERTY globally, from all entries.
-This function ignores narrowing, if any."
- (interactive
- (let* ((completion-ignore-case t)
- (prop (completing-read
- "Globally remove property: "
- (mapcar #'list (org-buffer-property-keys)))))
- (list prop)))
- (org-with-wide-buffer
- (goto-char (point-min))
- (let ((count 0)
- (re (org-re-property (concat (regexp-quote property) "\\+?") t t)))
- (while (re-search-forward re nil t)
- (when (org-entry-delete (point) property) (cl-incf count)))
- (message "Property \"%s\" removed from %d entries" property count))))
-
-(defvar org-columns-current-fmt-compiled) ; defined in org-colview.el
-
-(defun org-compute-property-at-point ()
- "Compute the property at point.
-This looks for an enclosing column format, extracts the operator and
-then applies it to the property in the column format's scope."
- (interactive)
- (unless (org-at-property-p)
- (user-error "Not at a property"))
- (let ((prop (match-string-no-properties 2)))
- (org-columns-get-format-and-top-level)
- (unless (nth 3 (assoc-string prop org-columns-current-fmt-compiled t))
- (user-error "No operator defined for property %s" prop))
- (org-columns-compute prop)))
-
-(defvar org-property-allowed-value-functions nil
- "Hook for functions supplying allowed values for a specific property.
-The functions must take a single argument, the name of the property, and
-return a flat list of allowed values. If \":ETC\" is one of
-the values, this means that these values are intended as defaults for
-completion, but that other values should be allowed too.
-The functions must return nil if they are not responsible for this
-property.")
-
-(defun org-property-get-allowed-values (pom property &optional table)
- "Get allowed values for the property PROPERTY.
-When TABLE is non-nil, return an alist that can directly be used for
-completion."
- (let (vals)
- (cond
- ((equal property "TODO")
- (setq vals (org-with-point-at pom
- (append org-todo-keywords-1 '("")))))
- ((equal property "PRIORITY")
- (let ((n org-lowest-priority))
- (while (>= n org-highest-priority)
- (push (char-to-string n) vals)
- (setq n (1- n)))))
- ((equal property "CATEGORY"))
- ((member property org-special-properties))
- ((setq vals (run-hook-with-args-until-success
- 'org-property-allowed-value-functions property)))
- (t
- (setq vals (org-entry-get pom (concat property "_ALL") 'inherit))
- (when (and vals (string-match "\\S-" vals))
- (setq vals (car (read-from-string (concat "(" vals ")"))))
- (setq vals (mapcar (lambda (x)
- (cond ((stringp x) x)
- ((numberp x) (number-to-string x))
- ((symbolp x) (symbol-name x))
- (t "???")))
- vals)))))
- (when (member ":ETC" vals)
- (setq vals (remove ":ETC" vals))
- (org-add-props (car vals) '(org-unrestricted t)))
- (if table (mapcar 'list vals) vals)))
-
-(defun org-property-previous-allowed-value (&optional _previous)
- "Switch to the next allowed value for this property."
- (interactive)
- (org-property-next-allowed-value t))
-
-(defun org-property-next-allowed-value (&optional previous)
- "Switch to the next allowed value for this property."
- (interactive)
- (unless (org-at-property-p)
- (user-error "Not at a property"))
- (let* ((prop (car (save-match-data (org-split-string (match-string 1) ":"))))
- (key (match-string 2))
- (value (match-string 3))
- (allowed (or (org-property-get-allowed-values (point) key)
- (and (member value '("[ ]" "[-]" "[X]"))
- '("[ ]" "[X]"))))
- (heading (save-match-data (nth 4 (org-heading-components))))
- nval)
- (unless allowed
- (user-error "Allowed values for this property have not been defined"))
- (when previous (setq allowed (reverse allowed)))
- (when (member value allowed)
- (setq nval (car (cdr (member value allowed)))))
- (setq nval (or nval (car allowed)))
- (when (equal nval value)
- (user-error "Only one allowed value for this property"))
- (org-at-property-p)
- (replace-match (concat " :" key ": " nval) t t)
- (org-indent-line)
- (beginning-of-line 1)
- (skip-chars-forward " \t")
- (when (equal prop org-effort-property)
- (org-refresh-property
- '((effort . identity)
- (effort-minutes . org-duration-to-minutes))
- nval)
- (when (string= org-clock-current-task heading)
- (setq org-clock-effort nval)
- (org-clock-update-mode-line)))
- (run-hook-with-args 'org-property-changed-functions key nval)))
-
-(defun org-find-olp (path &optional this-buffer)
- "Return a marker pointing to the entry at outline path OLP.
-If anything goes wrong, throw an error.
-You can wrap this call to catch the error like this:
-
- (condition-case msg
- (org-mobile-locate-entry (match-string 4))
- (error (nth 1 msg)))
-
-The return value will then be either a string with the error message,
-or a marker if everything is OK.
-
-If THIS-BUFFER is set, the outline path does not contain a file,
-only headings."
- (let* ((file (if this-buffer buffer-file-name (pop path)))
- (buffer (if this-buffer (current-buffer) (find-file-noselect file)))
- (level 1)
- (lmin 1)
- (lmax 1)
- end found flevel)
- (unless buffer (error "File not found :%s" file))
- (with-current-buffer buffer
- (unless (derived-mode-p 'org-mode)
- (error "Buffer %s needs to be in Org mode" buffer))
- (org-with-wide-buffer
- (goto-char (point-min))
- (dolist (heading path)
- (let ((re (format org-complex-heading-regexp-format
- (regexp-quote heading)))
- (cnt 0))
- (while (re-search-forward re end t)
- (setq level (- (match-end 1) (match-beginning 1)))
- (when (and (>= level lmin) (<= level lmax))
- (setq found (match-beginning 0) flevel level cnt (1+ cnt))))
- (when (= cnt 0)
- (error "Heading not found on level %d: %s" lmax heading))
- (when (> cnt 1)
- (error "Heading not unique on level %d: %s" lmax heading))
- (goto-char found)
- (setq lmin (1+ flevel) lmax (+ lmin (if org-odd-levels-only 1 0)))
- (setq end (save-excursion (org-end-of-subtree t t)))))
- (when (org-at-heading-p)
- (point-marker))))))
-
-(defun org-find-exact-headline-in-buffer (heading &optional buffer pos-only)
- "Find node HEADING in BUFFER.
-Return a marker to the heading if it was found, or nil if not.
-If POS-ONLY is set, return just the position instead of a marker.
-
-The heading text must match exact, but it may have a TODO keyword,
-a priority cookie and tags in the standard locations."
- (with-current-buffer (or buffer (current-buffer))
- (org-with-wide-buffer
- (goto-char (point-min))
- (let (case-fold-search)
- (when (re-search-forward
- (format org-complex-heading-regexp-format
- (regexp-quote heading)) nil t)
- (if pos-only
- (match-beginning 0)
- (move-marker (make-marker) (match-beginning 0))))))))
-
-(defun org-find-exact-heading-in-directory (heading &optional dir)
- "Find Org node headline HEADING in all \".org\" files in directory DIR.
-When the target headline is found, return a marker to this location."
- (let ((files (directory-files (or dir default-directory)
- t "\\`[^.#].*\\.org\\'"))
- visiting m buffer)
- (catch 'found
- (dolist (file files)
- (message "trying %s" file)
- (setq visiting (org-find-base-buffer-visiting file))
- (setq buffer (or visiting (find-file-noselect file)))
- (setq m (org-find-exact-headline-in-buffer
- heading buffer))
- (when (and (not m) (not visiting)) (kill-buffer buffer))
- (and m (throw 'found m))))))
-
-(defun org-find-entry-with-id (ident)
- "Locate the entry that contains the ID property with exact value IDENT.
-IDENT can be a string, a symbol or a number, this function will search for
-the string representation of it.
-Return the position where this entry starts, or nil if there is no such entry."
- (interactive "sID: ")
- (let ((id (cond
- ((stringp ident) ident)
- ((symbolp ident) (symbol-name ident))
- ((numberp ident) (number-to-string ident))
- (t (error "IDENT %s must be a string, symbol or number" ident)))))
- (org-with-wide-buffer (org-find-property "ID" id))))
-
-;;;; Timestamps
-
-(defvar org-last-changed-timestamp nil)
-(defvar org-last-inserted-timestamp nil
- "The last time stamp inserted with `org-insert-time-stamp'.")
-
-(defun org-time-stamp (arg &optional inactive)
- "Prompt for a date/time and insert a time stamp.
-
-If the user specifies a time like HH:MM or if this command is
-called with at least one prefix argument, the time stamp contains
-the date and the time. Otherwise, only the date is included.
-
-All parts of a date not specified by the user are filled in from
-the timestamp at point, if any, or the current date/time
-otherwise.
-
-If there is already a timestamp at the cursor, it is replaced.
-
-With two universal prefix arguments, insert an active timestamp
-with the current time without prompting the user.
-
-When called from lisp, the timestamp is inactive if INACTIVE is
-non-nil."
- (interactive "P")
- (let* ((ts (cond
- ((org-at-date-range-p t)
- (match-string (if (< (point) (- (match-beginning 2) 2)) 1 2)))
- ((org-at-timestamp-p 'lax) (match-string 0))))
- ;; Default time is either the timestamp at point or today.
- ;; When entering a range, only the range start is considered.
- (default-time (if (not ts) (current-time)
- (apply #'encode-time (org-parse-time-string ts))))
- (default-input (and ts (org-get-compact-tod ts)))
- (repeater (and ts
- (string-match "\\([.+-]+[0-9]+[hdwmy] ?\\)+" ts)
- (match-string 0 ts)))
- org-time-was-given
- org-end-time-was-given
- (time
- (and (if (equal arg '(16)) (current-time)
- ;; Preserve `this-command' and `last-command'.
- (let ((this-command this-command)
- (last-command last-command))
- (org-read-date
- arg 'totime nil nil default-time default-input
- inactive))))))
- (cond
- ((and ts
- (memq last-command '(org-time-stamp org-time-stamp-inactive))
- (memq this-command '(org-time-stamp org-time-stamp-inactive)))
- (insert "--")
- (org-insert-time-stamp time (or org-time-was-given arg) inactive))
- (ts
- ;; Make sure we're on a timestamp. When in the middle of a date
- ;; range, move arbitrarily to range end.
- (unless (org-at-timestamp-p 'lax)
- (skip-chars-forward "-")
- (org-at-timestamp-p 'lax))
- (replace-match "")
- (setq org-last-changed-timestamp
- (org-insert-time-stamp
- time (or org-time-was-given arg)
- inactive nil nil (list org-end-time-was-given)))
- (when repeater
- (backward-char)
- (insert " " repeater)
- (setq org-last-changed-timestamp
- (concat (substring org-last-inserted-timestamp 0 -1)
- " " repeater ">")))
- (message "Timestamp updated"))
- ((equal arg '(16)) (org-insert-time-stamp time t inactive))
- (t (org-insert-time-stamp
- time (or org-time-was-given arg) inactive nil nil
- (list org-end-time-was-given))))))
-
-;; FIXME: can we use this for something else, like computing time differences?
-(defun org-get-compact-tod (s)
- (when (string-match "\\(\\([012]?[0-9]\\):\\([0-5][0-9]\\)\\)\\(-\\(\\([012]?[0-9]\\):\\([0-5][0-9]\\)\\)\\)?" s)
- (let* ((t1 (match-string 1 s))
- (h1 (string-to-number (match-string 2 s)))
- (m1 (string-to-number (match-string 3 s)))
- (t2 (and (match-end 4) (match-string 5 s)))
- (h2 (and t2 (string-to-number (match-string 6 s))))
- (m2 (and t2 (string-to-number (match-string 7 s))))
- dh dm)
- (if (not t2)
- t1
- (setq dh (- h2 h1) dm (- m2 m1))
- (when (< dm 0) (setq dm (+ dm 60) dh (1- dh)))
- (concat t1 "+" (number-to-string dh)
- (and (/= 0 dm) (format ":%02d" dm)))))))
-
-(defun org-time-stamp-inactive (&optional arg)
- "Insert an inactive time stamp.
-
-An inactive time stamp is enclosed in square brackets instead of angle
-brackets. It is inactive in the sense that it does not trigger agenda entries,
-does not link to the calendar and cannot be changed with the S-cursor keys.
-So these are more for recording a certain time/date.
-
-If the user specifies a time like HH:MM or if this command is called with
-at least one prefix argument, the time stamp contains the date and the time.
-Otherwise, only the date is included.
-
-When called with two universal prefix arguments, insert an active time stamp
-with the current time without prompting the user."
- (interactive "P")
- (org-time-stamp arg 'inactive))
-
-(defvar org-date-ovl (make-overlay 1 1))
-(overlay-put org-date-ovl 'face 'org-date-selected)
-(delete-overlay org-date-ovl)
-
-(defvar org-ans1) ; dynamically scoped parameter
-(defvar org-ans2) ; dynamically scoped parameter
-
-(defvar org-plain-time-of-day-regexp) ; defined below
-
-(defvar org-overriding-default-time nil) ; dynamically scoped
-(defvar org-read-date-overlay nil)
-(defvar org-dcst nil) ; dynamically scoped
-(defvar org-read-date-history nil)
-(defvar org-read-date-final-answer nil)
-(defvar org-read-date-analyze-futurep nil)
-(defvar org-read-date-analyze-forced-year nil)
-(defvar org-read-date-inactive)
-
-(defvar org-read-date-minibuffer-local-map
- (let* ((map (make-sparse-keymap)))
- (set-keymap-parent map minibuffer-local-map)
- (org-defkey map (kbd ".")
- (lambda () (interactive)
- ;; Are we at the beginning of the prompt?
- (if (looking-back "^[^:]+: "
- (let ((inhibit-field-text-motion t))
- (line-beginning-position)))
- (org-eval-in-calendar '(calendar-goto-today))
- (insert "."))))
- (org-defkey map (kbd "C-.")
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-goto-today))))
- (org-defkey map [(meta shift left)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-backward-month 1))))
- (org-defkey map [(meta shift right)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-forward-month 1))))
- (org-defkey map [(meta shift up)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-backward-year 1))))
- (org-defkey map [(meta shift down)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-forward-year 1))))
- (org-defkey map [?\e (shift left)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-backward-month 1))))
- (org-defkey map [?\e (shift right)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-forward-month 1))))
- (org-defkey map [?\e (shift up)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-backward-year 1))))
- (org-defkey map [?\e (shift down)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-forward-year 1))))
- (org-defkey map [(shift up)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-backward-week 1))))
- (org-defkey map [(shift down)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-forward-week 1))))
- (org-defkey map [(shift left)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-backward-day 1))))
- (org-defkey map [(shift right)]
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-forward-day 1))))
- (org-defkey map "!"
- (lambda () (interactive)
- (org-eval-in-calendar '(diary-view-entries))
- (message "")))
- (org-defkey map ">"
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-scroll-left 1))))
- (org-defkey map "<"
- (lambda () (interactive)
- (org-eval-in-calendar '(calendar-scroll-right 1))))
- (org-defkey map "\C-v"
- (lambda () (interactive)
- (org-eval-in-calendar
- '(calendar-scroll-left-three-months 1))))
- (org-defkey map "\M-v"
- (lambda () (interactive)
- (org-eval-in-calendar
- '(calendar-scroll-right-three-months 1))))
- map)
- "Keymap for minibuffer commands when using `org-read-date'.")
-
-(defvar org-def)
-(defvar org-defdecode)
-(defvar org-with-time)
-
-(defvar calendar-setup) ; Dynamically scoped.
-(defun org-read-date (&optional with-time to-time from-string prompt
- default-time default-input inactive)
- "Read a date, possibly a time, and make things smooth for the user.
-The prompt will suggest to enter an ISO date, but you can also enter anything
-which will at least partially be understood by `parse-time-string'.
-Unrecognized parts of the date will default to the current day, month, year,
-hour and minute. If this command is called to replace a timestamp at point,
-or to enter the second timestamp of a range, the default time is taken
-from the existing stamp. Furthermore, the command prefers the future,
-so if you are giving a date where the year is not given, and the day-month
-combination is already past in the current year, it will assume you
-mean next year. For details, see the manual. A few examples:
-
- 3-2-5 --> 2003-02-05
- feb 15 --> currentyear-02-15
- 2/15 --> currentyear-02-15
- sep 12 9 --> 2009-09-12
- 12:45 --> today 12:45
- 22 sept 0:34 --> currentyear-09-22 0:34
- 12 --> currentyear-currentmonth-12
- Fri --> nearest Friday after today
- -Tue --> last Tuesday
- etc.
-
-Furthermore you can specify a relative date by giving, as the *first* thing
-in the input: a plus/minus sign, a number and a letter [hdwmy] to indicate
-change in days weeks, months, years.
-With a single plus or minus, the date is relative to today. With a double
-plus or minus, it is relative to the date in DEFAULT-TIME. E.g.
- +4d --> four days from today
- +4 --> same as above
- +2w --> two weeks from today
- ++5 --> five days from default date
-
-The function understands only English month and weekday abbreviations.
-
-While prompting, a calendar is popped up - you can also select the
-date with the mouse (button 1). The calendar shows a period of three
-months. To scroll it to other months, use the keys `>' and `<'.
-If you don't like the calendar, turn it off with
- (setq org-read-date-popup-calendar nil)
-
-With optional argument TO-TIME, the date will immediately be converted
-to an internal time.
-With an optional argument WITH-TIME, the prompt will suggest to
-also insert a time. Note that when WITH-TIME is not set, you can
-still enter a time, and this function will inform the calling routine
-about this change. The calling routine may then choose to change the
-format used to insert the time stamp into the buffer to include the time.
-With optional argument FROM-STRING, read from this string instead from
-the user. PROMPT can overwrite the default prompt. DEFAULT-TIME is
-the time/date that is used for everything that is not specified by the
-user."
- (require 'parse-time)
- (let* ((org-with-time with-time)
- (org-time-stamp-rounding-minutes
- (if (equal org-with-time '(16))
- '(0 0)
- org-time-stamp-rounding-minutes))
- (org-dcst org-display-custom-times)
- (ct (org-current-time))
- (org-def (or org-overriding-default-time default-time ct))
- (org-defdecode (decode-time org-def))
- (cur-frame (selected-frame))
- (mouse-autoselect-window nil) ; Don't let the mouse jump
- (calendar-setup
- (and (eq calendar-setup 'calendar-only) 'calendar-only))
- (calendar-move-hook nil)
- (calendar-view-diary-initially-flag nil)
- (calendar-view-holidays-initially-flag nil)
- ans (org-ans0 "") org-ans1 org-ans2 final cal-frame)
- ;; Rationalize `org-def' and `org-defdecode', if required.
- (when (< (nth 2 org-defdecode) org-extend-today-until)
- (setf (nth 2 org-defdecode) -1)
- (setf (nth 1 org-defdecode) 59)
- (setq org-def (apply #'encode-time org-defdecode))
- (setq org-defdecode (decode-time org-def)))
- (let* ((timestr (format-time-string
- (if org-with-time "%Y-%m-%d %H:%M" "%Y-%m-%d")
- org-def))
- (prompt (concat (if prompt (concat prompt " ") "")
- (format "Date+time [%s]: " timestr))))
- (cond
- (from-string (setq ans from-string))
- (org-read-date-popup-calendar
- (save-excursion
- (save-window-excursion
- (calendar)
- (when (eq calendar-setup 'calendar-only)
- (setq cal-frame
- (window-frame (get-buffer-window "*Calendar*" 'visible)))
- (select-frame cal-frame))
- (org-eval-in-calendar '(setq cursor-type nil) t)
- (unwind-protect
- (progn
- (calendar-forward-day (- (time-to-days org-def)
- (calendar-absolute-from-gregorian
- (calendar-current-date))))
- (org-eval-in-calendar nil t)
- (let* ((old-map (current-local-map))
- (map (copy-keymap calendar-mode-map))
- (minibuffer-local-map
- (copy-keymap org-read-date-minibuffer-local-map)))
- (org-defkey map (kbd "RET") 'org-calendar-select)
- (org-defkey map [mouse-1] 'org-calendar-select-mouse)
- (org-defkey map [mouse-2] 'org-calendar-select-mouse)
- (unwind-protect
- (progn
- (use-local-map map)
- (setq org-read-date-inactive inactive)
- (add-hook 'post-command-hook 'org-read-date-display)
- (setq org-ans0
- (read-string prompt
- default-input
- 'org-read-date-history
- nil))
- ;; org-ans0: from prompt
- ;; org-ans1: from mouse click
- ;; org-ans2: from calendar motion
- (setq ans
- (concat org-ans0 " " (or org-ans1 org-ans2))))
- (remove-hook 'post-command-hook 'org-read-date-display)
- (use-local-map old-map)
- (when org-read-date-overlay
- (delete-overlay org-read-date-overlay)
- (setq org-read-date-overlay nil)))))
- (bury-buffer "*Calendar*")
- (when cal-frame
- (delete-frame cal-frame)
- (select-frame-set-input-focus cur-frame))))))
-
- (t ; Naked prompt only
- (unwind-protect
- (setq ans (read-string prompt default-input
- 'org-read-date-history timestr))
- (when org-read-date-overlay
- (delete-overlay org-read-date-overlay)
- (setq org-read-date-overlay nil))))))
-
- (setq final (org-read-date-analyze ans org-def org-defdecode))
-
- (when org-read-date-analyze-forced-year
- (message "Year was forced into %s"
- (if org-read-date-force-compatible-dates
- "compatible range (1970-2037)"
- "range representable on this machine"))
- (ding))
-
- ;; One round trip to get rid of 34th of August and stuff like that....
- (setq final (decode-time (apply 'encode-time final)))
-
- (setq org-read-date-final-answer ans)
-
- (if to-time
- (apply 'encode-time final)
- (if (and (boundp 'org-time-was-given) org-time-was-given)
- (format "%04d-%02d-%02d %02d:%02d"
- (nth 5 final) (nth 4 final) (nth 3 final)
- (nth 2 final) (nth 1 final))
- (format "%04d-%02d-%02d" (nth 5 final) (nth 4 final) (nth 3 final))))))
-
-(defun org-read-date-display ()
- "Display the current date prompt interpretation in the minibuffer."
- (when org-read-date-display-live
- (when org-read-date-overlay
- (delete-overlay org-read-date-overlay))
- (when (minibufferp (current-buffer))
- (save-excursion
- (end-of-line 1)
- (while (not (equal (buffer-substring
- (max (point-min) (- (point) 4)) (point))
- " "))
- (insert " ")))
- (let* ((ans (concat (buffer-substring (point-at-bol) (point-max))
- " " (or org-ans1 org-ans2)))
- (org-end-time-was-given nil)
- (f (org-read-date-analyze ans org-def org-defdecode))
- (fmts (if org-dcst
- org-time-stamp-custom-formats
- org-time-stamp-formats))
- (fmt (if (or org-with-time
- (and (boundp 'org-time-was-given) org-time-was-given))
- (cdr fmts)
- (car fmts)))
- (txt (format-time-string fmt (apply 'encode-time f)))
- (txt (if org-read-date-inactive (concat "[" (substring txt 1 -1) "]") txt))
- (txt (concat "=> " txt)))
- (when (and org-end-time-was-given
- (string-match org-plain-time-of-day-regexp txt))
- (setq txt (concat (substring txt 0 (match-end 0)) "-"
- org-end-time-was-given
- (substring txt (match-end 0)))))
- (when org-read-date-analyze-futurep
- (setq txt (concat txt " (=>F)")))
- (setq org-read-date-overlay
- (make-overlay (1- (point-at-eol)) (point-at-eol)))
- (org-overlay-display org-read-date-overlay txt 'secondary-selection)))))
-
-(defun org-read-date-analyze (ans def defdecode)
- "Analyze the combined answer of the date prompt."
- ;; FIXME: cleanup and comment
- ;; Pass `current-time' result to `decode-time' (instead of calling
- ;; without arguments) so that only `current-time' has to be
- ;; overridden in tests.
- (let ((org-def def)
- (org-defdecode defdecode)
- (nowdecode (decode-time (current-time)))
- delta deltan deltaw deltadef year month day
- hour minute second wday pm h2 m2 tl wday1
- iso-year iso-weekday iso-week iso-date futurep kill-year)
- (setq org-read-date-analyze-futurep nil
- org-read-date-analyze-forced-year nil)
- (when (string-match "\\`[ \t]*\\.[ \t]*\\'" ans)
- (setq ans "+0"))
-
- (when (setq delta (org-read-date-get-relative ans (current-time) org-def))
- (setq ans (replace-match "" t t ans)
- deltan (car delta)
- deltaw (nth 1 delta)
- deltadef (nth 2 delta)))
-
- ;; Check if there is an iso week date in there. If yes, store the
- ;; info and postpone interpreting it until the rest of the parsing
- ;; is done.
- (when (string-match "\\<\\(?:\\([0-9]+\\)-\\)?[wW]\\([0-9]\\{1,2\\}\\)\\(?:-\\([0-6]\\)\\)?\\([ \t]\\|$\\)" ans)
- (setq iso-year (when (match-end 1)
- (org-small-year-to-year
- (string-to-number (match-string 1 ans))))
- iso-weekday (when (match-end 3)
- (string-to-number (match-string 3 ans)))
- iso-week (string-to-number (match-string 2 ans)))
- (setq ans (replace-match "" t t ans)))
-
- ;; Help matching ISO dates with single digit month or day, like 2006-8-11.
- (when (string-match
- "^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans)
- (setq year (if (match-end 2)
- (string-to-number (match-string 2 ans))
- (progn (setq kill-year t)
- (string-to-number (format-time-string "%Y"))))
- month (string-to-number (match-string 3 ans))
- day (string-to-number (match-string 4 ans)))
- (setq year (org-small-year-to-year year))
- (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
- t nil ans)))
-
- ;; Help matching dotted european dates
- (when (string-match
- "^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\.\\( ?[1-9][0-9]\\{3\\}\\)?" ans)
- (setq year (if (match-end 3) (string-to-number (match-string 3 ans))
- (setq kill-year t)
- (string-to-number (format-time-string "%Y")))
- day (string-to-number (match-string 1 ans))
- month (string-to-number (match-string 2 ans))
- ans (replace-match (format "%04d-%02d-%02d" year month day)
- t nil ans)))
-
- ;; Help matching american dates, like 5/30 or 5/30/7
- (when (string-match
- "^ *\\(0?[1-9]\\|1[012]\\)/\\(0?[1-9]\\|[12][0-9]\\|3[01]\\)\\(/\\([0-9]+\\)\\)?\\([^/0-9]\\|$\\)" ans)
- (setq year (if (match-end 4)
- (string-to-number (match-string 4 ans))
- (progn (setq kill-year t)
- (string-to-number (format-time-string "%Y"))))
- month (string-to-number (match-string 1 ans))
- day (string-to-number (match-string 2 ans)))
- (setq year (org-small-year-to-year year))
- (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
- t nil ans)))
- ;; Help matching am/pm times, because `parse-time-string' does not do that.
- ;; If there is a time with am/pm, and *no* time without it, we convert
- ;; so that matching will be successful.
- (cl-loop for i from 1 to 2 do ; twice, for end time as well
- (when (and (not (string-match "\\(\\`\\|[^+]\\)[012]?[0-9]:[0-9][0-9]\\([ \t\n]\\|$\\)" ans))
- (string-match "\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\(am\\|AM\\|pm\\|PM\\)\\>" ans))
- (setq hour (string-to-number (match-string 1 ans))
- minute (if (match-end 3)
- (string-to-number (match-string 3 ans))
- 0)
- pm (equal ?p
- (string-to-char (downcase (match-string 4 ans)))))
- (if (and (= hour 12) (not pm))
- (setq hour 0)
- (when (and pm (< hour 12)) (setq hour (+ 12 hour))))
- (setq ans (replace-match (format "%02d:%02d" hour minute)
- t t ans))))
-
- ;; Check if a time range is given as a duration
- (when (string-match "\\([012]?[0-9]\\):\\([0-6][0-9]\\)\\+\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?" ans)
- (setq hour (string-to-number (match-string 1 ans))
- h2 (+ hour (string-to-number (match-string 3 ans)))
- minute (string-to-number (match-string 2 ans))
- m2 (+ minute (if (match-end 5) (string-to-number
- (match-string 5 ans))0)))
- (when (>= m2 60) (setq h2 (1+ h2) m2 (- m2 60)))
- (setq ans (replace-match (format "%02d:%02d-%02d:%02d" hour minute h2 m2)
- t t ans)))
-
- ;; Check if there is a time range
- (when (boundp 'org-end-time-was-given)
- (setq org-time-was-given nil)
- (when (and (string-match org-plain-time-of-day-regexp ans)
- (match-end 8))
- (setq org-end-time-was-given (match-string 8 ans))
- (setq ans (concat (substring ans 0 (match-beginning 7))
- (substring ans (match-end 7))))))
-
- (setq tl (parse-time-string ans)
- day (or (nth 3 tl) (nth 3 org-defdecode))
- month
- (cond ((nth 4 tl))
- ((not org-read-date-prefer-future) (nth 4 org-defdecode))
- ;; Day was specified. Make sure DAY+MONTH
- ;; combination happens in the future.
- ((nth 3 tl)
- (setq futurep t)
- (if (< day (nth 3 nowdecode)) (1+ (nth 4 nowdecode))
- (nth 4 nowdecode)))
- (t (nth 4 org-defdecode)))
- year
- (cond ((and (not kill-year) (nth 5 tl)))
- ((not org-read-date-prefer-future) (nth 5 org-defdecode))
- ;; Month was guessed in the future and is at least
- ;; equal to NOWDECODE's. Fix year accordingly.
- (futurep
- (if (or (> month (nth 4 nowdecode))
- (>= day (nth 3 nowdecode)))
- (nth 5 nowdecode)
- (1+ (nth 5 nowdecode))))
- ;; Month was specified. Make sure MONTH+YEAR
- ;; combination happens in the future.
- ((nth 4 tl)
- (setq futurep t)
- (cond ((> month (nth 4 nowdecode)) (nth 5 nowdecode))
- ((< month (nth 4 nowdecode)) (1+ (nth 5 nowdecode)))
- ((< day (nth 3 nowdecode)) (1+ (nth 5 nowdecode)))
- (t (nth 5 nowdecode))))
- (t (nth 5 org-defdecode)))
- hour (or (nth 2 tl) (nth 2 org-defdecode))
- minute (or (nth 1 tl) (nth 1 org-defdecode))
- second (or (nth 0 tl) 0)
- wday (nth 6 tl))
-
- (when (and (eq org-read-date-prefer-future 'time)
- (not (nth 3 tl)) (not (nth 4 tl)) (not (nth 5 tl))
- (equal day (nth 3 nowdecode))
- (equal month (nth 4 nowdecode))
- (equal year (nth 5 nowdecode))
- (nth 2 tl)
- (or (< (nth 2 tl) (nth 2 nowdecode))
- (and (= (nth 2 tl) (nth 2 nowdecode))
- (nth 1 tl)
- (< (nth 1 tl) (nth 1 nowdecode)))))
- (setq day (1+ day)
- futurep t))
-
- ;; Special date definitions below
- (cond
- (iso-week
- ;; There was an iso week
- (require 'cal-iso)
- (setq futurep nil)
- (setq year (or iso-year year)
- day (or iso-weekday wday 1)
- wday nil ; to make sure that the trigger below does not match
- iso-date (calendar-gregorian-from-absolute
- (calendar-iso-to-absolute
- (list iso-week day year))))
- ; FIXME: Should we also push ISO weeks into the future?
- ; (when (and org-read-date-prefer-future
- ; (not iso-year)
- ; (< (calendar-absolute-from-gregorian iso-date)
- ; (time-to-days (current-time))))
- ; (setq year (1+ year)
- ; iso-date (calendar-gregorian-from-absolute
- ; (calendar-iso-to-absolute
- ; (list iso-week day year)))))
- (setq month (car iso-date)
- year (nth 2 iso-date)
- day (nth 1 iso-date)))
- (deltan
- (setq futurep nil)
- (unless deltadef
- ;; Pass `current-time' result to `decode-time' (instead of
- ;; calling without arguments) so that only `current-time' has
- ;; to be overridden in tests.
- (let ((now (decode-time (current-time))))
- (setq day (nth 3 now) month (nth 4 now) year (nth 5 now))))
- (cond ((member deltaw '("d" "")) (setq day (+ day deltan)))
- ((equal deltaw "w") (setq day (+ day (* 7 deltan))))
- ((equal deltaw "m") (setq month (+ month deltan)))
- ((equal deltaw "y") (setq year (+ year deltan)))))
- ((and wday (not (nth 3 tl)))
- ;; Weekday was given, but no day, so pick that day in the week
- ;; on or after the derived date.
- (setq wday1 (nth 6 (decode-time (encode-time 0 0 0 day month year))))
- (unless (equal wday wday1)
- (setq day (+ day (% (- wday wday1 -7) 7))))))
- (when (and (boundp 'org-time-was-given)
- (nth 2 tl))
- (setq org-time-was-given t))
- (when (< year 100) (setq year (+ 2000 year)))
- ;; Check of the date is representable
- (if org-read-date-force-compatible-dates
- (progn
- (when (< year 1970)
- (setq year 1970 org-read-date-analyze-forced-year t))
- (when (> year 2037)
- (setq year 2037 org-read-date-analyze-forced-year t)))
- (condition-case nil
- (ignore (encode-time second minute hour day month year))
- (error
- (setq year (nth 5 org-defdecode))
- (setq org-read-date-analyze-forced-year t))))
- (setq org-read-date-analyze-futurep futurep)
- (list second minute hour day month year)))
-
-(defvar parse-time-weekdays)
-(defun org-read-date-get-relative (s today default)
- "Check string S for special relative date string.
-TODAY and DEFAULT are internal times, for today and for a default.
-Return shift list (N what def-flag)
-WHAT is \"d\", \"w\", \"m\", or \"y\" for day, week, month, year.
-N is the number of WHATs to shift.
-DEF-FLAG is t when a double ++ or -- indicates shift relative to
- the DEFAULT date rather than TODAY."
- (require 'parse-time)
- (when (and
- (string-match
- (concat
- "\\`[ \t]*\\([-+]\\{0,2\\}\\)"
- "\\([0-9]+\\)?"
- "\\([hdwmy]\\|\\(" (mapconcat 'car parse-time-weekdays "\\|") "\\)\\)?"
- "\\([ \t]\\|$\\)") s)
- (or (> (match-end 1) (match-beginning 1)) (match-end 4)))
- (let* ((dir (if (> (match-end 1) (match-beginning 1))
- (string-to-char (substring (match-string 1 s) -1))
- ?+))
- (rel (and (match-end 1) (= 2 (- (match-end 1) (match-beginning 1)))))
- (n (if (match-end 2) (string-to-number (match-string 2 s)) 1))
- (what (if (match-end 3) (match-string 3 s) "d"))
- (wday1 (cdr (assoc (downcase what) parse-time-weekdays)))
- (date (if rel default today))
- (wday (nth 6 (decode-time date)))
- delta)
- (if wday1
- (progn
- (setq delta (mod (+ 7 (- wday1 wday)) 7))
- (when (= delta 0) (setq delta 7))
- (when (= dir ?-)
- (setq delta (- delta 7))
- (when (= delta 0) (setq delta -7)))
- (when (> n 1) (setq delta (+ delta (* (1- n) (if (= dir ?-) -7 7)))))
- (list delta "d" rel))
- (list (* n (if (= dir ?-) -1 1)) what rel)))))
-
-(defun org-order-calendar-date-args (arg1 arg2 arg3)
- "Turn a user-specified date into the internal representation.
-The internal representation needed by the calendar is (month day year).
-This is a wrapper to handle the brain-dead convention in calendar that
-user function argument order change dependent on argument order."
- (pcase calendar-date-style
- (`american (list arg1 arg2 arg3))
- (`european (list arg2 arg1 arg3))
- (`iso (list arg2 arg3 arg1))))
-
-(defun org-eval-in-calendar (form &optional keepdate)
- "Eval FORM in the calendar window and return to current window.
-Unless KEEPDATE is non-nil, update `org-ans2' to the cursor date."
- (let ((sf (selected-frame))
- (sw (selected-window)))
- (select-window (get-buffer-window "*Calendar*" t))
- (eval form)
- (when (and (not keepdate) (calendar-cursor-to-date))
- (let* ((date (calendar-cursor-to-date))
- (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
- (setq org-ans2 (format-time-string "%Y-%m-%d" time))))
- (move-overlay org-date-ovl (1- (point)) (1+ (point)) (current-buffer))
- (select-window sw)
- (select-frame-set-input-focus sf)))
-
-(defun org-calendar-select ()
- "Return to `org-read-date' with the date currently selected.
-This is used by `org-read-date' in a temporary keymap for the calendar buffer."
- (interactive)
- (when (calendar-cursor-to-date)
- (let* ((date (calendar-cursor-to-date))
- (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
- (setq org-ans1 (format-time-string "%Y-%m-%d" time)))
- (when (active-minibuffer-window) (exit-minibuffer))))
-
-(defun org-insert-time-stamp (time &optional with-hm inactive pre post extra)
- "Insert a date stamp for the date given by the internal TIME.
-See `format-time-string' for the format of TIME.
-WITH-HM means use the stamp format that includes the time of the day.
-INACTIVE means use square brackets instead of angular ones, so that the
-stamp will not contribute to the agenda.
-PRE and POST are optional strings to be inserted before and after the
-stamp.
-The command returns the inserted time stamp."
- (let ((fmt (funcall (if with-hm 'cdr 'car) org-time-stamp-formats))
- stamp)
- (when inactive (setq fmt (concat "[" (substring fmt 1 -1) "]")))
- (insert-before-markers (or pre ""))
- (when (listp extra)
- (setq extra (car extra))
- (if (and (stringp extra)
- (string-match "\\([0-9]+\\):\\([0-9]+\\)" extra))
- (setq extra (format "-%02d:%02d"
- (string-to-number (match-string 1 extra))
- (string-to-number (match-string 2 extra))))
- (setq extra nil)))
- (when extra
- (setq fmt (concat (substring fmt 0 -1) extra (substring fmt -1))))
- (insert-before-markers (setq stamp (format-time-string fmt time)))
- (insert-before-markers (or post ""))
- (setq org-last-inserted-timestamp stamp)))
-
-(defun org-toggle-time-stamp-overlays ()
- "Toggle the use of custom time stamp formats."
- (interactive)
- (setq org-display-custom-times (not org-display-custom-times))
- (unless org-display-custom-times
- (let ((p (point-min)) (bmp (buffer-modified-p)))
- (while (setq p (next-single-property-change p 'display))
- (when (and (get-text-property p 'display)
- (eq (get-text-property p 'face) 'org-date))
- (remove-text-properties
- p (setq p (next-single-property-change p 'display))
- '(display t))))
- (set-buffer-modified-p bmp)))
- (org-restart-font-lock)
- (setq org-table-may-need-update t)
- (if org-display-custom-times
- (message "Time stamps are overlaid with custom format")
- (message "Time stamp overlays removed")))
-
-(defun org-display-custom-time (beg end)
- "Overlay modified time stamp format over timestamp between BEG and END."
- (let* ((ts (buffer-substring beg end))
- t1 with-hm tf time str (off 0))
- (save-match-data
- (setq t1 (org-parse-time-string ts t))
- (when (string-match "\\(-[0-9]+:[0-9]+\\)?\\( [.+]?\\+[0-9]+[hdwmy]\\(/[0-9]+[hdwmy]\\)?\\)?\\'" ts)
- (setq off (- (match-end 0) (match-beginning 0)))))
- (setq end (- end off))
- (setq with-hm (and (nth 1 t1) (nth 2 t1))
- tf (funcall (if with-hm 'cdr 'car) org-time-stamp-custom-formats)
- time (org-fix-decoded-time t1)
- str (org-add-props
- (format-time-string
- (substring tf 1 -1) (apply 'encode-time time))
- nil 'mouse-face 'highlight))
- (put-text-property beg end 'display str)))
-
-(defun org-fix-decoded-time (time)
- "Set 0 instead of nil for the first 6 elements of time.
-Don't touch the rest."
- (let ((n 0))
- (mapcar (lambda (x) (if (< (setq n (1+ n)) 7) (or x 0) x)) time)))
-
-(defun org-time-stamp-to-now (timestamp-string &optional seconds)
- "Difference between TIMESTAMP-STRING and now in days.
-If SECONDS is non-nil, return the difference in seconds."
- (let ((fdiff (if seconds #'float-time #'time-to-days)))
- (- (funcall fdiff (org-time-string-to-time timestamp-string))
- (funcall fdiff (current-time)))))
-
-(defun org-deadline-close-p (timestamp-string &optional ndays)
- "Is the time in TIMESTAMP-STRING close to the current date?"
- (setq ndays (or ndays (org-get-wdays timestamp-string)))
- (and (<= (org-time-stamp-to-now timestamp-string) ndays)
- (not (org-entry-is-done-p))))
-
-(defun org-get-wdays (ts &optional delay zero-delay)
- "Get the deadline lead time appropriate for timestring TS.
-When DELAY is non-nil, get the delay time for scheduled items
-instead of the deadline lead time. When ZERO-DELAY is non-nil
-and `org-scheduled-delay-days' is 0, enforce 0 as the delay,
-don't try to find the delay cookie in the scheduled timestamp."
- (let ((tv (if delay org-scheduled-delay-days
- org-deadline-warning-days)))
- (cond
- ((or (and delay (< tv 0))
- (and delay zero-delay (<= tv 0))
- (and (not delay) (<= tv 0)))
- ;; Enforce this value no matter what
- (- tv))
- ((string-match "-\\([0-9]+\\)\\([hdwmy]\\)\\(\\'\\|>\\| \\)" ts)
- ;; lead time is specified.
- (floor (* (string-to-number (match-string 1 ts))
- (cdr (assoc (match-string 2 ts)
- '(("d" . 1) ("w" . 7)
- ("m" . 30.4) ("y" . 365.25)
- ("h" . 0.041667)))))))
- ;; go for the default.
- (t tv))))
-
-(defun org-calendar-select-mouse (ev)
- "Return to `org-read-date' with the date currently selected.
-This is used by `org-read-date' in a temporary keymap for the calendar buffer."
- (interactive "e")
- (mouse-set-point ev)
- (when (calendar-cursor-to-date)
- (let* ((date (calendar-cursor-to-date))
- (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
- (setq org-ans1 (format-time-string "%Y-%m-%d" time)))
- (when (active-minibuffer-window) (exit-minibuffer))))
-
-(defun org-check-deadlines (ndays)
- "Check if there are any deadlines due or past due.
-A deadline is considered due if it happens within `org-deadline-warning-days'
-days from today's date. If the deadline appears in an entry marked DONE,
-it is not shown. A numeric prefix argument NDAYS can be used to test that
-many days. If the prefix is a raw `\\[universal-argument]', all deadlines \
-are shown."
- (interactive "P")
- (let* ((org-warn-days
- (cond
- ((equal ndays '(4)) 100000)
- (ndays (prefix-numeric-value ndays))
- (t (abs org-deadline-warning-days))))
- (case-fold-search nil)
- (regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>"))
- (callback
- (lambda () (org-deadline-close-p (match-string 1) org-warn-days))))
- (message "%d deadlines past-due or due within %d days"
- (org-occur regexp nil callback)
- org-warn-days)))
-
-(defsubst org-re-timestamp (type)
- "Return a regexp for timestamp TYPE.
-Allowed values for TYPE are:
-
- all: all timestamps
- active: only active timestamps (<...>)
- inactive: only inactive timestamps ([...])
- scheduled: only scheduled timestamps
- deadline: only deadline timestamps
- closed: only closed time-stamps
-
-When TYPE is nil, fall back on returning a regexp that matches
-both scheduled and deadline timestamps."
- (cl-case type
- (all org-ts-regexp-both)
- (active org-ts-regexp)
- (inactive org-ts-regexp-inactive)
- (scheduled org-scheduled-time-regexp)
- (deadline org-deadline-time-regexp)
- (closed org-closed-time-regexp)
- (otherwise
- (concat "\\<"
- (regexp-opt (list org-deadline-string org-scheduled-string))
- " *<\\([^>]+\\)>"))))
-
-(defun org-check-before-date (d)
- "Check if there are deadlines or scheduled entries before date D."
- (interactive (list (org-read-date)))
- (let* ((case-fold-search nil)
- (regexp (org-re-timestamp org-ts-type))
- (ts-type org-ts-type)
- (callback
- (lambda ()
- (let ((match (match-string 1)))
- (and (if (memq ts-type '(active inactive all))
- (eq (org-element-type (save-excursion
- (backward-char)
- (org-element-context)))
- 'timestamp)
- (org-at-planning-p))
- (time-less-p
- (org-time-string-to-time match)
- (org-time-string-to-time d)))))))
- (message "%d entries before %s"
- (org-occur regexp nil callback)
- d)))
-
-(defun org-check-after-date (d)
- "Check if there are deadlines or scheduled entries after date D."
- (interactive (list (org-read-date)))
- (let* ((case-fold-search nil)
- (regexp (org-re-timestamp org-ts-type))
- (ts-type org-ts-type)
- (callback
- (lambda ()
- (let ((match (match-string 1)))
- (and (if (memq ts-type '(active inactive all))
- (eq (org-element-type (save-excursion
- (backward-char)
- (org-element-context)))
- 'timestamp)
- (org-at-planning-p))
- (not (time-less-p
- (org-time-string-to-time match)
- (org-time-string-to-time d))))))))
- (message "%d entries after %s"
- (org-occur regexp nil callback)
- d)))
-
-(defun org-check-dates-range (start-date end-date)
- "Check for deadlines/scheduled entries between START-DATE and END-DATE."
- (interactive (list (org-read-date nil nil nil "Range starts")
- (org-read-date nil nil nil "Range end")))
- (let ((case-fold-search nil)
- (regexp (org-re-timestamp org-ts-type))
- (callback
- (let ((type org-ts-type))
- (lambda ()
- (let ((match (match-string 1)))
- (and
- (if (memq type '(active inactive all))
- (eq (org-element-type (save-excursion
- (backward-char)
- (org-element-context)))
- 'timestamp)
- (org-at-planning-p))
- (not (time-less-p
- (org-time-string-to-time match)
- (org-time-string-to-time start-date)))
- (time-less-p
- (org-time-string-to-time match)
- (org-time-string-to-time end-date))))))))
- (message "%d entries between %s and %s"
- (org-occur regexp nil callback) start-date end-date)))
-
-(defun org-evaluate-time-range (&optional to-buffer)
- "Evaluate a time range by computing the difference between start and end.
-Normally the result is just printed in the echo area, but with prefix arg
-TO-BUFFER, the result is inserted just after the date stamp into the buffer.
-If the time range is actually in a table, the result is inserted into the
-next column.
-For time difference computation, a year is assumed to be exactly 365
-days in order to avoid rounding problems."
- (interactive "P")
- (or
- (org-clock-update-time-maybe)
- (save-excursion
- (unless (org-at-date-range-p t)
- (goto-char (point-at-bol))
- (re-search-forward org-tr-regexp-both (point-at-eol) t))
- (unless (org-at-date-range-p t)
- (user-error "Not at a time-stamp range, and none found in current line")))
- (let* ((ts1 (match-string 1))
- (ts2 (match-string 2))
- (havetime (or (> (length ts1) 15) (> (length ts2) 15)))
- (match-end (match-end 0))
- (time1 (org-time-string-to-time ts1))
- (time2 (org-time-string-to-time ts2))
- (t1 (float-time time1))
- (t2 (float-time time2))
- (diff (abs (- t2 t1)))
- (negative (< (- t2 t1) 0))
- ;; (ys (floor (* 365 24 60 60)))
- (ds (* 24 60 60))
- (hs (* 60 60))
- (fy "%dy %dd %02d:%02d")
- (fy1 "%dy %dd")
- (fd "%dd %02d:%02d")
- (fd1 "%dd")
- (fh "%02d:%02d")
- y d h m align)
- (if havetime
- (setq ; y (floor (/ diff ys)) diff (mod diff ys)
- y 0
- d (floor (/ diff ds)) diff (mod diff ds)
- h (floor (/ diff hs)) diff (mod diff hs)
- m (floor (/ diff 60)))
- (setq ; y (floor (/ diff ys)) diff (mod diff ys)
- y 0
- d (floor (+ (/ diff ds) 0.5))
- h 0 m 0))
- (if (not to-buffer)
- (message "%s" (org-make-tdiff-string y d h m))
- (if (org-at-table-p)
- (progn
- (goto-char match-end)
- (setq align t)
- (and (looking-at " *|") (goto-char (match-end 0))))
- (goto-char match-end))
- (when (looking-at
- "\\( *-? *[0-9]+y\\)?\\( *[0-9]+d\\)? *[0-9][0-9]:[0-9][0-9]")
- (replace-match ""))
- (when negative (insert " -"))
- (if (> y 0) (insert " " (format (if havetime fy fy1) y d h m))
- (if (> d 0) (insert " " (format (if havetime fd fd1) d h m))
- (insert " " (format fh h m))))
- (when align (org-table-align))
- (message "Time difference inserted")))))
-
-(defun org-make-tdiff-string (y d h m)
- (let ((fmt "")
- (l nil))
- (when (> y 0)
- (setq fmt (concat fmt "%d year" (if (> y 1) "s" "") " "))
- (push y l))
- (when (> d 0)
- (setq fmt (concat fmt "%d day" (if (> d 1) "s" "") " "))
- (push d l))
- (when (> h 0)
- (setq fmt (concat fmt "%d hour" (if (> h 1) "s" "") " "))
- (push h l))
- (when (> m 0)
- (setq fmt (concat fmt "%d minute" (if (> m 1) "s" "") " "))
- (push m l))
- (apply 'format fmt (nreverse l))))
-
-(defun org-time-string-to-time (s)
- "Convert timestamp string S into internal time."
- (apply #'encode-time (org-parse-time-string s)))
-
-(defun org-time-string-to-seconds (s)
- "Convert a timestamp string S into a number of seconds."
- (float-time (org-time-string-to-time s)))
-
-(org-define-error 'org-diary-sexp-no-match "Unable to match diary sexp")
-
-(defun org-time-string-to-absolute (s &optional daynr prefer buffer pos)
- "Convert time stamp S to an absolute day number.
-
-If DAYNR in non-nil, and there is a specifier for a cyclic time
-stamp, get the closest date to DAYNR. If PREFER is
-`past' (respectively `future') return a date past (respectively
-after) or equal to DAYNR.
-
-POS is the location of time stamp S, as a buffer position in
-BUFFER.
-
-Diary sexp timestamps are matched against DAYNR, when non-nil.
-If matching fails or DAYNR is nil, `org-diary-sexp-no-match' is
-signaled."
- (cond
- ((string-match "\\`%%\\((.*)\\)" s)
- ;; Sexp timestamp: try to match DAYNR, if available, since we're
- ;; only able to match individual dates. If it fails, raise an
- ;; error.
- (if (and daynr
- (org-diary-sexp-entry
- (match-string 1 s) "" (calendar-gregorian-from-absolute daynr)))
- daynr
- (signal 'org-diary-sexp-no-match (list s))))
- (daynr (org-closest-date s daynr prefer))
- (t (time-to-days
- (condition-case errdata
- (apply #'encode-time (org-parse-time-string s))
- (error (error "Bad timestamp `%s'%s\nError was: %s"
- s
- (if (not (and buffer pos)) ""
- (format-message " at %d in buffer `%s'" pos buffer))
- (cdr errdata))))))))
-
-(defun org-days-to-iso-week (days)
- "Return the iso week number."
- (require 'cal-iso)
- (car (calendar-iso-from-absolute days)))
-
-(defun org-small-year-to-year (year)
- "Convert 2-digit years into 4-digit years.
-YEAR is expanded into one of the 30 next years, if possible, or
-into a past one. Any year larger than 99 is returned unchanged."
- (if (>= year 100) year
- (let* ((current (string-to-number (format-time-string "%Y" (current-time))))
- (century (/ current 100))
- (offset (- year (% current 100))))
- (cond ((> offset 30) (+ (* (1- century) 100) year))
- ((> offset -70) (+ (* century 100) year))
- (t (+ (* (1+ century) 100) year))))))
-
-(defun org-time-from-absolute (d)
- "Return the time corresponding to date D.
-D may be an absolute day number, or a calendar-type list (month day year)."
- (when (numberp d) (setq d (calendar-gregorian-from-absolute d)))
- (encode-time 0 0 0 (nth 1 d) (car d) (nth 2 d)))
-
-(defvar org-agenda-current-date)
-(defun org-calendar-holiday ()
- "List of holidays, for Diary display in Org mode."
- (require 'holidays)
- (let ((hl (calendar-check-holidays org-agenda-current-date)))
- (and hl (mapconcat #'identity hl "; "))))
-
-(defun org-diary-sexp-entry (sexp entry d)
- "Process a SEXP diary ENTRY for date D."
- (require 'diary-lib)
- ;; `org-anniversary' and alike expect ENTRY and DATE to be bound
- ;; dynamically.
- (let* ((sexp `(let ((entry ,entry)
- (date ',d))
- ,(car (read-from-string sexp))))
- (result (if calendar-debug-sexp (eval sexp)
- (condition-case nil
- (eval sexp)
- (error
- (beep)
- (message "Bad sexp at line %d in %s: %s"
- (org-current-line)
- (buffer-file-name) sexp)
- (sleep-for 2))))))
- (cond ((stringp result) (split-string result "; "))
- ((and (consp result)
- (not (consp (cdr result)))
- (stringp (cdr result))) (cdr result))
- ((and (consp result)
- (stringp (car result))) result)
- (result entry))))
-
-(defun org-diary-to-ical-string (frombuf)
- "Get iCalendar entries from diary entries in buffer FROMBUF.
-This uses the icalendar.el library."
- (let* ((tmpdir temporary-file-directory)
- (tmpfile (make-temp-name
- (expand-file-name "orgics" tmpdir)))
- buf rtn b e)
- (with-current-buffer frombuf
- (icalendar-export-region (point-min) (point-max) tmpfile)
- (setq buf (find-buffer-visiting tmpfile))
- (set-buffer buf)
- (goto-char (point-min))
- (when (re-search-forward "^BEGIN:VEVENT" nil t)
- (setq b (match-beginning 0)))
- (goto-char (point-max))
- (when (re-search-backward "^END:VEVENT" nil t)
- (setq e (match-end 0)))
- (setq rtn (if (and b e) (concat (buffer-substring b e) "\n") "")))
- (kill-buffer buf)
- (delete-file tmpfile)
- rtn))
-
-(defun org-closest-date (start current prefer)
- "Return closest date to CURRENT starting from START.
-
-CURRENT and START are both time stamps.
-
-When PREFER is `past', return a date that is either CURRENT or
-past. When PREFER is `future', return a date that is either
-CURRENT or future.
-
-Only time stamps with a repeater are modified. Any other time
-stamp stay unchanged. In any case, return value is an absolute
-day number."
- (if (not (string-match "\\+\\([0-9]+\\)\\([hdwmy]\\)" start))
- ;; No repeater. Do not shift time stamp.
- (time-to-days (apply #'encode-time (org-parse-time-string start)))
- (let ((value (string-to-number (match-string 1 start)))
- (type (match-string 2 start)))
- (if (= 0 value)
- ;; Repeater with a 0-value is considered as void.
- (time-to-days (apply #'encode-time (org-parse-time-string start)))
- (let* ((base (org-date-to-gregorian start))
- (target (org-date-to-gregorian current))
- (sday (calendar-absolute-from-gregorian base))
- (cday (calendar-absolute-from-gregorian target))
- n1 n2)
- ;; If START is already past CURRENT, just return START.
- (if (<= cday sday) sday
- ;; Compute closest date before (N1) and closest date past
- ;; (N2) CURRENT.
- (pcase type
- ("h"
- (let ((missing-hours
- (mod (+ (- (* 24 (- cday sday))
- (nth 2 (org-parse-time-string start)))
- org-extend-today-until)
- value)))
- (setf n1 (if (= missing-hours 0) cday
- (- cday (1+ (/ missing-hours 24)))))
- (setf n2 (+ cday (/ (- value missing-hours) 24)))))
- ((or "d" "w")
- (let ((value (if (equal type "w") (* 7 value) value)))
- (setf n1 (+ sday (* value (/ (- cday sday) value))))
- (setf n2 (+ n1 value))))
- ("m"
- (let* ((add-months
- (lambda (d n)
- ;; Add N months to gregorian date D, i.e.,
- ;; a list (MONTH DAY YEAR). Return a valid
- ;; gregorian date.
- (let ((m (+ (nth 0 d) n)))
- (list (mod m 12)
- (nth 1 d)
- (+ (/ m 12) (nth 2 d))))))
- (months ; Complete months to TARGET.
- (* (/ (+ (* 12 (- (nth 2 target) (nth 2 base)))
- (- (nth 0 target) (nth 0 base))
- ;; If START's day is greater than
- ;; TARGET's, remove incomplete month.
- (if (> (nth 1 target) (nth 1 base)) 0 -1))
- value)
- value))
- (before (funcall add-months base months)))
- (setf n1 (calendar-absolute-from-gregorian before))
- (setf n2
- (calendar-absolute-from-gregorian
- (funcall add-months before value)))))
- (_
- (let* ((d (nth 1 base))
- (m (nth 0 base))
- (y (nth 2 base))
- (years ; Complete years to TARGET.
- (* (/ (- (nth 2 target)
- y
- ;; If START's month and day are
- ;; greater than TARGET's, remove
- ;; incomplete year.
- (if (or (> (nth 0 target) m)
- (and (= (nth 0 target) m)
- (> (nth 1 target) d)))
- 0
- 1))
- value)
- value))
- (before (list m d (+ y years))))
- (setf n1 (calendar-absolute-from-gregorian before))
- (setf n2 (calendar-absolute-from-gregorian
- (list m d (+ (nth 2 before) value)))))))
- ;; Handle PREFER parameter, if any.
- (cond
- ((eq prefer 'past) (if (= cday n2) n2 n1))
- ((eq prefer 'future) (if (= cday n1) n1 n2))
- (t (if (> (abs (- cday n1)) (abs (- cday n2))) n2 n1)))))))))
-
-(defun org-date-to-gregorian (d)
- "Turn any specification of date D into a Gregorian date for the calendar."
- (cond ((integerp d) (calendar-gregorian-from-absolute d))
- ((and (listp d) (= (length d) 3)) d)
- ((stringp d)
- (let ((d (org-parse-time-string d)))
- (list (nth 4 d) (nth 3 d) (nth 5 d))))
- ((listp d) (list (nth 4 d) (nth 3 d) (nth 5 d)))))
-
-(defun org-parse-time-string (s &optional nodefault)
- "Parse the standard Org time string.
-
-This should be a lot faster than the normal `parse-time-string'.
-
-If time is not given, defaults to 0:00. However, with optional
-NODEFAULT, hour and minute fields will be nil if not given."
- (cond ((string-match org-ts-regexp0 s)
- (list 0
- (when (or (match-beginning 8) (not nodefault))
- (string-to-number (or (match-string 8 s) "0")))
- (when (or (match-beginning 7) (not nodefault))
- (string-to-number (or (match-string 7 s) "0")))
- (string-to-number (match-string 4 s))
- (string-to-number (match-string 3 s))
- (string-to-number (match-string 2 s))
- nil nil nil))
- ((string-match "^<[^>]+>$" s)
- ;; FIXME: `decode-time' needs to be called with ZONE as its
- ;; second argument. However, this requires at least Emacs
- ;; 25.1. We can do it when we switch to this version as our
- ;; minimal requirement.
- (decode-time (seconds-to-time (org-matcher-time s))))
- (t (error "Not a standard Org time string: %s" s))))
-
-(defun org-timestamp-up (&optional arg)
- "Increase the date item at the cursor by one.
-If the cursor is on the year, change the year. If it is on the month,
-the day or the time, change that. If the cursor is on the enclosing
-bracket, change the timestamp type.
-With prefix ARG, change by that many units."
- (interactive "p")
- (org-timestamp-change (prefix-numeric-value arg) nil 'updown))
-
-(defun org-timestamp-down (&optional arg)
- "Decrease the date item at the cursor by one.
-If the cursor is on the year, change the year. If it is on the month,
-the day or the time, change that. If the cursor is on the enclosing
-bracket, change the timestamp type.
-With prefix ARG, change by that many units."
- (interactive "p")
- (org-timestamp-change (- (prefix-numeric-value arg)) nil 'updown))
-
-(defun org-timestamp-up-day (&optional arg)
- "Increase the date in the time stamp by one day.
-With prefix ARG, change that many days."
- (interactive "p")
- (if (and (not (org-at-timestamp-p 'lax))
- (org-at-heading-p))
- (org-todo 'up)
- (org-timestamp-change (prefix-numeric-value arg) 'day 'updown)))
-
-(defun org-timestamp-down-day (&optional arg)
- "Decrease the date in the time stamp by one day.
-With prefix ARG, change that many days."
- (interactive "p")
- (if (and (not (org-at-timestamp-p 'lax))
- (org-at-heading-p))
- (org-todo 'down)
- (org-timestamp-change (- (prefix-numeric-value arg)) 'day) 'updown))
-
-(defun org-at-timestamp-p (&optional extended)
- "Non-nil if point is inside a timestamp.
-
-By default, the function only consider syntactically valid active
-timestamps. However, the caller may have a broader definition
-for timestamps. As a consequence, optional argument EXTENDED can
-be set to the following values
-
- `inactive'
-
- Include also syntactically valid inactive timestamps.
-
- `agenda'
-
- Include timestamps allowed in Agenda, i.e., those in
- properties drawers, planning lines and clock lines.
-
- `lax'
-
- Ignore context. The function matches any part of the
- document looking like a timestamp. This includes comments,
- example blocks...
-
-For backward-compatibility with Org 9.0, every other non-nil
-value is equivalent to `inactive'.
-
-When at a timestamp, return the position of the point as a symbol
-among `bracket', `after', `year', `month', `hour', `minute',
-`day' or a number of character from the last know part of the
-time stamp.
-
-When matching, the match groups are the following:
- group 1: year
- group 2: month
- group 3: day number
- group 4: day name
- group 5: hours, if any
- group 6: minutes, if any"
- (let* ((regexp (if extended org-ts-regexp3 org-ts-regexp2))
- (pos (point))
- (match?
- (let ((boundaries (org-in-regexp regexp)))
- (save-match-data
- (cond ((null boundaries) nil)
- ((eq extended 'lax) t)
- (t
- (or (and (eq extended 'agenda)
- (or (org-at-planning-p)
- (org-at-property-p)
- (and (bound-and-true-p
- org-agenda-include-inactive-timestamps)
- (org-at-clock-log-p))))
- (eq 'timestamp
- (save-excursion
- (when (= pos (cdr boundaries)) (forward-char -1))
- (org-element-type (org-element-context)))))))))))
- (cond
- ((not match?) nil)
- ((= pos (match-beginning 0)) 'bracket)
- ;; Distinguish location right before the closing bracket from
- ;; right after it.
- ((= pos (1- (match-end 0))) 'bracket)
- ((= pos (match-end 0)) 'after)
- ((org-pos-in-match-range pos 2) 'year)
- ((org-pos-in-match-range pos 3) 'month)
- ((org-pos-in-match-range pos 7) 'hour)
- ((org-pos-in-match-range pos 8) 'minute)
- ((or (org-pos-in-match-range pos 4)
- (org-pos-in-match-range pos 5)) 'day)
- ((and (> pos (or (match-end 8) (match-end 5)))
- (< pos (match-end 0)))
- (- pos (or (match-end 8) (match-end 5))))
- (t 'day))))
-
-(defun org-toggle-timestamp-type ()
- "Toggle the type (<active> or [inactive]) of a time stamp."
- (interactive)
- (when (org-at-timestamp-p 'lax)
- (let ((beg (match-beginning 0)) (end (match-end 0))
- (map '((?\[ . "<") (?\] . ">") (?< . "[") (?> . "]"))))
- (save-excursion
- (goto-char beg)
- (while (re-search-forward "[][<>]" end t)
- (replace-match (cdr (assoc (char-after (match-beginning 0)) map))
- t t)))
- (message "Timestamp is now %sactive"
- (if (equal (char-after beg) ?<) "" "in")))))
-
-(defun org-at-clock-log-p ()
- "Non-nil if point is on a clock log line."
- (and (org-match-line org-clock-line-re)
- (eq (org-element-type (save-match-data (org-element-at-point))) 'clock)))
-
-(defvar org-clock-history) ; defined in org-clock.el
-(defvar org-clock-adjust-closest nil) ; defined in org-clock.el
-(defun org-timestamp-change (n &optional what updown suppress-tmp-delay)
- "Change the date in the time stamp at point.
-The date will be changed by N times WHAT. WHAT can be `day', `month',
-`year', `minute', `second'. If WHAT is not given, the cursor position
-in the timestamp determines what will be changed.
-When SUPPRESS-TMP-DELAY is non-nil, suppress delays like \"--2d\"."
- (let ((origin (point))
- (timestamp? (org-at-timestamp-p 'lax))
- origin-cat
- with-hm inactive
- (dm (max (nth 1 org-time-stamp-rounding-minutes) 1))
- extra rem
- ts time time0 fixnext clrgx)
- (unless timestamp? (user-error "Not at a timestamp"))
- (if (and (not what) (eq timestamp? 'bracket))
- (org-toggle-timestamp-type)
- ;; Point isn't on brackets. Remember the part of the time-stamp
- ;; the point was in. Indeed, size of time-stamps may change,
- ;; but point must be kept in the same category nonetheless.
- (setq origin-cat timestamp?)
- (when (and (not what) (not (eq timestamp? 'day))
- org-display-custom-times
- (get-text-property (point) 'display)
- (not (get-text-property (1- (point)) 'display)))
- (setq timestamp? 'day))
- (setq timestamp? (or what timestamp?)
- inactive (= (char-after (match-beginning 0)) ?\[)
- ts (match-string 0))
- (replace-match "")
- (when (string-match
- "\\(\\(-[012][0-9]:[0-5][0-9]\\)?\\( +[.+]?-?[-+][0-9]+[hdwmy]\\(/[0-9]+[hdwmy]\\)?\\)*\\)[]>]"
- ts)
- (setq extra (match-string 1 ts))
- (when suppress-tmp-delay
- (setq extra (replace-regexp-in-string " --[0-9]+[hdwmy]" "" extra))))
- (when (string-match "^.\\{10\\}.*?[0-9]+:[0-9][0-9]" ts)
- (setq with-hm t))
- (setq time0 (org-parse-time-string ts))
- (when (and updown
- (eq timestamp? 'minute)
- (not current-prefix-arg))
- ;; This looks like s-up and s-down. Change by one rounding step.
- (setq n (* dm (cond ((> n 0) 1) ((< n 0) -1) (t 0))))
- (unless (= 0 (setq rem (% (nth 1 time0) dm)))
- (setcar (cdr time0) (+ (nth 1 time0)
- (if (> n 0) (- rem) (- dm rem))))))
- (setq time
- (apply #'encode-time
- (or (car time0) 0)
- (+ (if (eq timestamp? 'minute) n 0) (nth 1 time0))
- (+ (if (eq timestamp? 'hour) n 0) (nth 2 time0))
- (+ (if (eq timestamp? 'day) n 0) (nth 3 time0))
- (+ (if (eq timestamp? 'month) n 0) (nth 4 time0))
- (+ (if (eq timestamp? 'year) n 0) (nth 5 time0))
- (nthcdr 6 time0)))
- (when (and (memq timestamp? '(hour minute))
- extra
- (string-match "-\\([012][0-9]\\):\\([0-5][0-9]\\)" extra))
- (setq extra (org-modify-ts-extra
- extra
- (if (eq timestamp? 'hour) 2 5)
- n dm)))
- (when (integerp timestamp?)
- (setq extra (org-modify-ts-extra extra timestamp? n dm)))
- (when (eq what 'calendar)
- (let ((cal-date (org-get-date-from-calendar)))
- (setcar (nthcdr 4 time0) (nth 0 cal-date)) ; month
- (setcar (nthcdr 3 time0) (nth 1 cal-date)) ; day
- (setcar (nthcdr 5 time0) (nth 2 cal-date)) ; year
- (setcar time0 (or (car time0) 0))
- (setcar (nthcdr 1 time0) (or (nth 1 time0) 0))
- (setcar (nthcdr 2 time0) (or (nth 2 time0) 0))
- (setq time (apply 'encode-time time0))))
- ;; Insert the new time-stamp, and ensure point stays in the same
- ;; category as before (i.e. not after the last position in that
- ;; category).
- (let ((pos (point)))
- ;; Stay before inserted string. `save-excursion' is of no use.
- (setq org-last-changed-timestamp
- (org-insert-time-stamp time with-hm inactive nil nil extra))
- (goto-char pos))
- (save-match-data
- (looking-at org-ts-regexp3)
- (goto-char
- (pcase origin-cat
- ;; `day' category ends before `hour' if any, or at the end
- ;; of the day name.
- (`day (min (or (match-beginning 7) (1- (match-end 5))) origin))
- (`hour (min (match-end 7) origin))
- (`minute (min (1- (match-end 8)) origin))
- ((pred integerp) (min (1- (match-end 0)) origin))
- ;; Point was right after the time-stamp. However, the
- ;; time-stamp length might have changed, so refer to
- ;; (match-end 0) instead.
- (`after (match-end 0))
- ;; `year' and `month' have both fixed size: point couldn't
- ;; have moved into another part.
- (_ origin))))
- ;; Update clock if on a CLOCK line.
- (org-clock-update-time-maybe)
- ;; Maybe adjust the closest clock in `org-clock-history'
- (when org-clock-adjust-closest
- (if (not (and (org-at-clock-log-p)
- (< 1 (length (delq nil (mapcar 'marker-position
- org-clock-history))))))
- (message "No clock to adjust")
- (cond ((save-excursion ; fix previous clock?
- (re-search-backward org-ts-regexp0 nil t)
- (looking-back (concat org-clock-string " \\[")
- (line-beginning-position)))
- (setq fixnext 1 clrgx (concat org-ts-regexp0 "\\] =>.*$")))
- ((save-excursion ; fix next clock?
- (re-search-backward org-ts-regexp0 nil t)
- (looking-at (concat org-ts-regexp0 "\\] =>")))
- (setq fixnext -1 clrgx (concat org-clock-string " \\[" org-ts-regexp0))))
- (save-window-excursion
- ;; Find closest clock to point, adjust the previous/next one in history
- (let* ((p (save-excursion (org-back-to-heading t)))
- (cl (mapcar (lambda(c) (abs (- (marker-position c) p))) org-clock-history))
- (clfixnth
- (+ fixnext (- (length cl) (or (length (member (apply 'min cl) cl)) 100))))
- (clfixpos (unless (> 0 clfixnth) (nth clfixnth org-clock-history))))
- (if (not clfixpos)
- (message "No clock to adjust")
- (save-excursion
- (org-goto-marker-or-bmk clfixpos)
- (org-show-subtree)
- (when (re-search-forward clrgx nil t)
- (goto-char (match-beginning 1))
- (let (org-clock-adjust-closest)
- (org-timestamp-change n timestamp? updown))
- (message "Clock adjusted in %s for heading: %s"
- (file-name-nondirectory (buffer-file-name))
- (org-get-heading t t)))))))))
- ;; Try to recenter the calendar window, if any.
- (when (and org-calendar-follow-timestamp-change
- (get-buffer-window "*Calendar*" t)
- (memq timestamp? '(day month year)))
- (org-recenter-calendar (time-to-days time))))))
-
-(defun org-modify-ts-extra (s pos n dm)
- "Change the different parts of the lead-time and repeat fields in timestamp."
- (let ((idx '(("d" . 0) ("w" . 1) ("m" . 2) ("y" . 3) ("d" . -1) ("y" . 4)))
- ng h m new rem)
- (when (string-match "\\(-\\([012][0-9]\\):\\([0-5][0-9]\\)\\)?\\( +\\+\\([0-9]+\\)\\([dmwy]\\)\\)?\\( +-\\([0-9]+\\)\\([dmwy]\\)\\)?" s)
- (cond
- ((or (org-pos-in-match-range pos 2)
- (org-pos-in-match-range pos 3))
- (setq m (string-to-number (match-string 3 s))
- h (string-to-number (match-string 2 s)))
- (if (org-pos-in-match-range pos 2)
- (setq h (+ h n))
- (setq n (* dm (with-no-warnings (signum n))))
- (unless (= 0 (setq rem (% m dm)))
- (setq m (+ m (if (> n 0) (- rem) (- dm rem)))))
- (setq m (+ m n)))
- (when (< m 0) (setq m (+ m 60) h (1- h)))
- (when (> m 59) (setq m (- m 60) h (1+ h)))
- (setq h (mod h 24))
- (setq ng 1 new (format "-%02d:%02d" h m)))
- ((org-pos-in-match-range pos 6)
- (setq ng 6 new (car (rassoc (+ n (cdr (assoc (match-string 6 s) idx))) idx))))
- ((org-pos-in-match-range pos 5)
- (setq ng 5 new (format "%d" (max 1 (+ n (string-to-number (match-string 5 s)))))))
-
- ((org-pos-in-match-range pos 9)
- (setq ng 9 new (car (rassoc (+ n (cdr (assoc (match-string 9 s) idx))) idx))))
- ((org-pos-in-match-range pos 8)
- (setq ng 8 new (format "%d" (max 0 (+ n (string-to-number (match-string 8 s))))))))
-
- (when ng
- (setq s (concat
- (substring s 0 (match-beginning ng))
- new
- (substring s (match-end ng))))))
- s))
-
-(defun org-recenter-calendar (d)
- "If the calendar is visible, recenter it to date D."
- (let ((cwin (get-buffer-window "*Calendar*" t)))
- (when cwin
- (let ((calendar-move-hook nil))
- (with-selected-window cwin
- (calendar-goto-date
- (if (listp d) d (calendar-gregorian-from-absolute d))))))))
-
-(defun org-goto-calendar (&optional arg)
- "Go to the Emacs calendar at the current date.
-If there is a time stamp in the current line, go to that date.
-A prefix ARG can be used to force the current date."
- (interactive "P")
- (let ((calendar-move-hook nil)
- (calendar-view-holidays-initially-flag nil)
- (calendar-view-diary-initially-flag nil)
- diff)
- (when (or (org-at-timestamp-p 'lax)
- (org-match-line (concat ".*" org-ts-regexp)))
- (let ((d1 (time-to-days (current-time)))
- (d2 (time-to-days (org-time-string-to-time (match-string 1)))))
- (setq diff (- d2 d1))))
- (calendar)
- (calendar-goto-today)
- (when (and diff (not arg)) (calendar-forward-day diff))))
-
-(defun org-get-date-from-calendar ()
- "Return a list (month day year) of date at point in calendar."
- (with-current-buffer "*Calendar*"
- (save-match-data
- (calendar-cursor-to-date))))
-
-(defun org-date-from-calendar ()
- "Insert time stamp corresponding to cursor date in *Calendar* buffer.
-If there is already a time stamp at the cursor position, update it."
- (interactive)
- (if (org-at-timestamp-p 'lax)
- (org-timestamp-change 0 'calendar)
- (let ((cal-date (org-get-date-from-calendar)))
- (org-insert-time-stamp
- (encode-time 0 0 0 (nth 1 cal-date) (car cal-date) (nth 2 cal-date))))))
-
-(defcustom org-effort-durations
- `(("min" . 1)
- ("h" . 60)
- ("d" . ,(* 60 8))
- ("w" . ,(* 60 8 5))
- ("m" . ,(* 60 8 5 4))
- ("y" . ,(* 60 8 5 40)))
- "Conversion factor to minutes for an effort modifier.
-
-Each entry has the form (MODIFIER . MINUTES).
-
-In an effort string, a number followed by MODIFIER is multiplied
-by the specified number of MINUTES to obtain an effort in
-minutes.
-
-For example, if the value of this variable is ((\"hours\" . 60)), then an
-effort string \"2hours\" is equivalent to 120 minutes."
- :group 'org-agenda
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(alist :key-type (string :tag "Modifier")
- :value-type (number :tag "Minutes")))
-
-(defcustom org-image-actual-width t
- "Should we use the actual width of images when inlining them?
-
-When set to t, always use the image width.
-
-When set to a number, use imagemagick (when available) to set
-the image's width to this value.
-
-When set to a number in a list, try to get the width from any
-#+ATTR.* keyword if it matches a width specification like
-
- #+ATTR_HTML: :width 300px
-
-and fall back on that number if none is found.
-
-When set to nil, try to get the width from an #+ATTR.* keyword
-and fall back on the original width if none is found.
-
-This requires Emacs >= 24.1, build with imagemagick support."
- :group 'org-appearance
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Use the image width" t)
- (integer :tag "Use a number of pixels")
- (list :tag "Use #+ATTR* or a number of pixels" (integer))
- (const :tag "Use #+ATTR* or don't resize" nil)))
-
-(defcustom org-agenda-inhibit-startup nil
- "Inhibit startup when preparing agenda buffers.
-When this variable is t, the initialization of the Org agenda
-buffers is inhibited: e.g. the visibility state is not set, the
-tables are not re-aligned, etc."
- :type 'boolean
- :version "24.3"
- :group 'org-agenda)
-
-(defcustom org-agenda-ignore-properties nil
- "Avoid updating text properties when building the agenda.
-Properties are used to prepare buffers for effort estimates,
-appointments, statistics and subtree-local categories.
-If you don't use these in the agenda, you can add them to this
-list and agenda building will be a bit faster.
-The value is a list, with zero or more of the symbols `effort', `appt',
-`stats' or `category'."
- :type '(set :greedy t
- (const effort)
- (const appt)
- (const stats)
- (const category))
- :version "26.1"
- :package-version '(Org . "8.3")
- :group 'org-agenda)
-
-;;;; Files
-
-(defun org-save-all-org-buffers ()
- "Save all Org buffers without user confirmation."
- (interactive)
- (message "Saving all Org buffers...")
- (save-some-buffers t (lambda () (derived-mode-p 'org-mode)))
- (when (featurep 'org-id) (org-id-locations-save))
- (message "Saving all Org buffers... done"))
-
-(defun org-revert-all-org-buffers ()
- "Revert all Org buffers.
-Prompt for confirmation when there are unsaved changes.
-Be sure you know what you are doing before letting this function
-overwrite your changes.
-
-This function is useful in a setup where one tracks Org files
-with a version control system, to revert on one machine after pulling
-changes from another. I believe the procedure must be like this:
-
-1. M-x org-save-all-org-buffers
-2. Pull changes from the other machine, resolve conflicts
-3. M-x org-revert-all-org-buffers"
- (interactive)
- (unless (yes-or-no-p "Revert all Org buffers from their files? ")
- (user-error "Abort"))
- (save-excursion
- (save-window-excursion
- (dolist (b (buffer-list))
- (when (and (with-current-buffer b (derived-mode-p 'org-mode))
- (with-current-buffer b buffer-file-name))
- (pop-to-buffer-same-window b)
- (revert-buffer t 'no-confirm)))
- (when (and (featurep 'org-id) org-id-track-globally)
- (org-id-locations-load)))))
-
-;;;; Agenda files
-
-;;;###autoload
-(defun org-switchb (&optional arg)
- "Switch between Org buffers.
-
-With `\\[universal-argument]' prefix, restrict available buffers to files.
-
-With `\\[universal-argument] \\[universal-argument]' \
-prefix, restrict available buffers to agenda files."
- (interactive "P")
- (let ((blist (org-buffer-list
- (cond ((equal arg '(4)) 'files)
- ((equal arg '(16)) 'agenda)))))
- (pop-to-buffer-same-window
- (completing-read "Org buffer: "
- (mapcar #'list (mapcar #'buffer-name blist))
- nil t))))
-
-(defun org-buffer-list (&optional predicate exclude-tmp)
- "Return a list of Org buffers.
-PREDICATE can be `export', `files' or `agenda'.
-
-export restrict the list to Export buffers.
-files restrict the list to buffers visiting Org files.
-agenda restrict the list to buffers visiting agenda files.
-
-If EXCLUDE-TMP is non-nil, ignore temporary buffers."
- (let* ((bfn nil)
- (agenda-files (and (eq predicate 'agenda)
- (mapcar 'file-truename (org-agenda-files t))))
- (filter
- (cond
- ((eq predicate 'files)
- (lambda (b) (with-current-buffer b (derived-mode-p 'org-mode))))
- ((eq predicate 'export)
- (lambda (b) (string-match "\\*Org .*Export" (buffer-name b))))
- ((eq predicate 'agenda)
- (lambda (b)
- (with-current-buffer b
- (and (derived-mode-p 'org-mode)
- (setq bfn (buffer-file-name b))
- (member (file-truename bfn) agenda-files)))))
- (t (lambda (b) (with-current-buffer b
- (or (derived-mode-p 'org-mode)
- (string-match "\\*Org .*Export"
- (buffer-name b)))))))))
- (delq nil
- (mapcar
- (lambda(b)
- (if (and (funcall filter b)
- (or (not exclude-tmp)
- (not (string-match "tmp" (buffer-name b)))))
- b
- nil))
- (buffer-list)))))
-
-(defun org-agenda-files (&optional unrestricted archives)
- "Get the list of agenda files.
-Optional UNRESTRICTED means return the full list even if a restriction
-is currently in place.
-When ARCHIVES is t, include all archive files that are really being
-used by the agenda files. If ARCHIVE is `ifmode', do this only if
-`org-agenda-archives-mode' is t."
- (let ((files
- (cond
- ((and (not unrestricted) (get 'org-agenda-files 'org-restrict)))
- ((stringp org-agenda-files) (org-read-agenda-file-list))
- ((listp org-agenda-files) org-agenda-files)
- (t (error "Invalid value of `org-agenda-files'")))))
- (setq files (apply 'append
- (mapcar (lambda (f)
- (if (file-directory-p f)
- (directory-files
- f t org-agenda-file-regexp)
- (list f)))
- files)))
- (when org-agenda-skip-unavailable-files
- (setq files (delq nil
- (mapcar (function
- (lambda (file)
- (and (file-readable-p file) file)))
- files))))
- (when (or (eq archives t)
- (and (eq archives 'ifmode) (eq org-agenda-archives-mode t)))
- (setq files (org-add-archive-files files)))
- files))
-
-(defun org-agenda-file-p (&optional file)
- "Return non-nil, if FILE is an agenda file.
-If FILE is omitted, use the file associated with the current
-buffer."
- (let ((fname (or file (buffer-file-name))))
- (and fname
- (member (file-truename fname)
- (mapcar #'file-truename (org-agenda-files t))))))
-
-(defun org-edit-agenda-file-list ()
- "Edit the list of agenda files.
-Depending on setup, this either uses customize to edit the variable
-`org-agenda-files', or it visits the file that is holding the list. In the
-latter case, the buffer is set up in a way that saving it automatically kills
-the buffer and restores the previous window configuration."
- (interactive)
- (if (stringp org-agenda-files)
- (let ((cw (current-window-configuration)))
- (find-file org-agenda-files)
- (setq-local org-window-configuration cw)
- (add-hook 'after-save-hook
- (lambda ()
- (set-window-configuration
- (prog1 org-window-configuration
- (kill-buffer (current-buffer))))
- (org-install-agenda-files-menu)
- (message "New agenda file list installed"))
- nil 'local)
- (message "%s" (substitute-command-keys
- "Edit list and finish with \\[save-buffer]")))
- (customize-variable 'org-agenda-files)))
-
-(defun org-store-new-agenda-file-list (list)
- "Set new value for the agenda file list and save it correctly."
- (if (stringp org-agenda-files)
- (let ((fe (org-read-agenda-file-list t)) b u)
- (while (setq b (find-buffer-visiting org-agenda-files))
- (kill-buffer b))
- (with-temp-file org-agenda-files
- (insert
- (mapconcat
- (lambda (f) ;; Keep un-expanded entries.
- (if (setq u (assoc f fe))
- (cdr u)
- f))
- list "\n")
- "\n")))
- (let ((org-mode-hook nil) (org-inhibit-startup t)
- (org-insert-mode-line-in-empty-file nil))
- (setq org-agenda-files list)
- (customize-save-variable 'org-agenda-files org-agenda-files))))
-
-(defun org-read-agenda-file-list (&optional pair-with-expansion)
- "Read the list of agenda files from a file.
-If PAIR-WITH-EXPANSION is t return pairs with un-expanded
-filenames, used by `org-store-new-agenda-file-list' to write back
-un-expanded file names."
- (when (file-directory-p org-agenda-files)
- (error "`org-agenda-files' cannot be a single directory"))
- (when (stringp org-agenda-files)
- (with-temp-buffer
- (insert-file-contents org-agenda-files)
- (mapcar
- (lambda (f)
- (let ((e (expand-file-name (substitute-in-file-name f)
- org-directory)))
- (if pair-with-expansion
- (cons e f)
- e)))
- (org-split-string (buffer-string) "[ \t\r\n]*?[\r\n][ \t\r\n]*")))))
-
-;;;###autoload
-(defun org-cycle-agenda-files ()
- "Cycle through the files in `org-agenda-files'.
-If the current buffer visits an agenda file, find the next one in the list.
-If the current buffer does not, find the first agenda file."
- (interactive)
- (let* ((fs (or (org-agenda-files t)
- (user-error "No agenda files")))
- (files (copy-sequence fs))
- (tcf (and buffer-file-name (file-truename buffer-file-name)))
- file)
- (when tcf
- (while (and (setq file (pop files))
- (not (equal (file-truename file) tcf)))))
- (find-file (car (or files fs)))
- (when (buffer-base-buffer) (pop-to-buffer-same-window (buffer-base-buffer)))))
-
-(defun org-agenda-file-to-front (&optional to-end)
- "Move/add the current file to the top of the agenda file list.
-If the file is not present in the list, it is added to the front. If it is
-present, it is moved there. With optional argument TO-END, add/move to the
-end of the list."
- (interactive "P")
- (let ((org-agenda-skip-unavailable-files nil)
- (file-alist (mapcar (lambda (x)
- (cons (file-truename x) x))
- (org-agenda-files t)))
- (ctf (file-truename
- (or buffer-file-name
- (user-error "Please save the current buffer to a file"))))
- x had)
- (setq x (assoc ctf file-alist) had x)
-
- (unless x (setq x (cons ctf (abbreviate-file-name buffer-file-name))))
- (if to-end
- (setq file-alist (append (delq x file-alist) (list x)))
- (setq file-alist (cons x (delq x file-alist))))
- (org-store-new-agenda-file-list (mapcar 'cdr file-alist))
- (org-install-agenda-files-menu)
- (message "File %s to %s of agenda file list"
- (if had "moved" "added") (if to-end "end" "front"))))
-
-(defun org-remove-file (&optional file)
- "Remove current file from the list of files in variable `org-agenda-files'.
-These are the files which are being checked for agenda entries.
-Optional argument FILE means use this file instead of the current."
- (interactive)
- (let* ((org-agenda-skip-unavailable-files nil)
- (file (or file buffer-file-name
- (user-error "Current buffer does not visit a file")))
- (true-file (file-truename file))
- (afile (abbreviate-file-name file))
- (files (delq nil (mapcar
- (lambda (x)
- (unless (equal true-file
- (file-truename x))
- x))
- (org-agenda-files t)))))
- (if (not (= (length files) (length (org-agenda-files t))))
- (progn
- (org-store-new-agenda-file-list files)
- (org-install-agenda-files-menu)
- (message "Removed from Org Agenda list: %s" afile))
- (message "File was not in list: %s (not removed)" afile))))
-
-(defun org-file-menu-entry (file)
- (vector file (list 'find-file file) t))
-
-(defun org-check-agenda-file (file)
- "Make sure FILE exists. If not, ask user what to do."
- (unless (file-exists-p file)
- (message "Non-existent agenda file %s. [R]emove from list or [A]bort?"
- (abbreviate-file-name file))
- (let ((r (downcase (read-char-exclusive))))
- (cond
- ((equal r ?r)
- (org-remove-file file)
- (throw 'nextfile t))
- (t (user-error "Abort"))))))
-
-(defun org-get-agenda-file-buffer (file)
- "Get an agenda buffer visiting FILE.
-If the buffer needs to be created, add it to the list of buffers
-which might be released later."
- (let ((buf (org-find-base-buffer-visiting file)))
- (if buf
- buf ; just return it
- ;; Make a new buffer and remember it
- (setq buf (find-file-noselect file))
- (when buf (push buf org-agenda-new-buffers))
- buf)))
-
-(defun org-release-buffers (blist)
- "Release all buffers in list, asking the user for confirmation when needed.
-When a buffer is unmodified, it is just killed. When modified, it is saved
-\(if the user agrees) and then killed."
- (let (file)
- (dolist (buf blist)
- (setq file (buffer-file-name buf))
- (when (and (buffer-modified-p buf)
- file
- (y-or-n-p (format "Save file %s? " file)))
- (with-current-buffer buf (save-buffer)))
- (kill-buffer buf))))
-
-(defun org-agenda-prepare-buffers (files)
- "Create buffers for all agenda files, protect archived trees and comments."
- (interactive)
- (let ((pa '(:org-archived t))
- (pc '(:org-comment t))
- (pall '(:org-archived t :org-comment t))
- (inhibit-read-only t)
- (org-inhibit-startup org-agenda-inhibit-startup)
- (rea (concat ":" org-archive-tag ":"))
- re pos)
- (setq org-tag-alist-for-agenda nil
- org-tag-groups-alist-for-agenda nil)
- (save-excursion
- (save-restriction
- (dolist (file files)
- (catch 'nextfile
- (if (bufferp file)
- (set-buffer file)
- (org-check-agenda-file file)
- (set-buffer (org-get-agenda-file-buffer file)))
- (widen)
- (org-set-regexps-and-options 'tags-only)
- (setq pos (point))
- (or (memq 'category org-agenda-ignore-properties)
- (org-refresh-category-properties))
- (or (memq 'stats org-agenda-ignore-properties)
- (org-refresh-stats-properties))
- (or (memq 'effort org-agenda-ignore-properties)
- (org-refresh-effort-properties))
- (or (memq 'appt org-agenda-ignore-properties)
- (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime))
- (setq org-todo-keywords-for-agenda
- (append org-todo-keywords-for-agenda org-todo-keywords-1))
- (setq org-done-keywords-for-agenda
- (append org-done-keywords-for-agenda org-done-keywords))
- (setq org-todo-keyword-alist-for-agenda
- (append org-todo-keyword-alist-for-agenda org-todo-key-alist))
- (setq org-tag-alist-for-agenda
- (org--tag-add-to-alist
- org-tag-alist-for-agenda
- org-current-tag-alist))
- ;; Merge current file's tag groups into global
- ;; `org-tag-groups-alist-for-agenda'.
- (when org-group-tags
- (dolist (alist org-tag-groups-alist)
- (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda)))
- (if old
- (setcdr old (org-uniquify (append (cdr old) (cdr alist))))
- (push alist org-tag-groups-alist-for-agenda)))))
- (org-with-silent-modifications
- (save-excursion
- (remove-text-properties (point-min) (point-max) pall)
- (when org-agenda-skip-archived-trees
- (goto-char (point-min))
- (while (re-search-forward rea nil t)
- (when (org-at-heading-p t)
- (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
- (goto-char (point-min))
- (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string))
- (while (re-search-forward re nil t)
- (when (save-match-data (org-in-commented-heading-p t))
- (add-text-properties
- (match-beginning 0) (org-end-of-subtree t) pc)))))
- (goto-char pos)))))
- (setq org-todo-keywords-for-agenda
- (org-uniquify org-todo-keywords-for-agenda))
- (setq org-todo-keyword-alist-for-agenda
- (org-uniquify org-todo-keyword-alist-for-agenda))))
-
-
-;;;; CDLaTeX minor mode
-
-(defvar org-cdlatex-mode-map (make-sparse-keymap)
- "Keymap for the minor `org-cdlatex-mode'.")
-
-(org-defkey org-cdlatex-mode-map "_" 'org-cdlatex-underscore-caret)
-(org-defkey org-cdlatex-mode-map "^" 'org-cdlatex-underscore-caret)
-(org-defkey org-cdlatex-mode-map "`" 'cdlatex-math-symbol)
-(org-defkey org-cdlatex-mode-map "'" 'org-cdlatex-math-modify)
-(org-defkey org-cdlatex-mode-map "\C-c{" 'org-cdlatex-environment-indent)
-
-(defvar org-cdlatex-texmathp-advice-is-done nil
- "Flag remembering if we have applied the advice to texmathp already.")
-
-(define-minor-mode org-cdlatex-mode
- "Toggle the minor `org-cdlatex-mode'.
-This mode supports entering LaTeX environment and math in LaTeX fragments
-in Org mode.
-\\{org-cdlatex-mode-map}"
- nil " OCDL" nil
- (when org-cdlatex-mode
- (require 'cdlatex)
- (run-hooks 'cdlatex-mode-hook)
- (cdlatex-compute-tables))
- (unless org-cdlatex-texmathp-advice-is-done
- (setq org-cdlatex-texmathp-advice-is-done t)
- (defadvice texmathp (around org-math-always-on activate)
- "Always return t in Org buffers.
-This is because we want to insert math symbols without dollars even outside
-the LaTeX math segments. If Org mode thinks that point is actually inside
-an embedded LaTeX fragment, let `texmathp' do its job.
-`\\[org-cdlatex-mode-map]'"
- (interactive)
- (let (p)
- (cond
- ((not (derived-mode-p 'org-mode)) ad-do-it)
- ((eq this-command 'cdlatex-math-symbol)
- (setq ad-return-value t
- texmathp-why '("cdlatex-math-symbol in org-mode" . 0)))
- (t
- (let ((p (org-inside-LaTeX-fragment-p)))
- (if (and p (member (car p) (plist-get org-format-latex-options :matchers)))
- (setq ad-return-value t
- texmathp-why '("Org mode embedded math" . 0))
- (when p ad-do-it)))))))))
-
-(defun turn-on-org-cdlatex ()
- "Unconditionally turn on `org-cdlatex-mode'."
- (org-cdlatex-mode 1))
-
-(defun org-try-cdlatex-tab ()
- "Check if it makes sense to execute `cdlatex-tab', and do it if yes.
-It makes sense to do so if `org-cdlatex-mode' is active and if the cursor is
- - inside a LaTeX fragment, or
- - after the first word in a line, where an abbreviation expansion could
- insert a LaTeX environment."
- (when org-cdlatex-mode
- (cond
- ;; Before any word on the line: No expansion possible.
- ((save-excursion (skip-chars-backward " \t") (bolp)) nil)
- ;; Just after first word on the line: Expand it. Make sure it
- ;; cannot happen on headlines, though.
- ((save-excursion
- (skip-chars-backward "a-zA-Z0-9*")
- (skip-chars-backward " \t")
- (and (bolp) (not (org-at-heading-p))))
- (cdlatex-tab) t)
- ((org-inside-LaTeX-fragment-p) (cdlatex-tab) t))))
-
-(defun org-cdlatex-underscore-caret (&optional _arg)
- "Execute `cdlatex-sub-superscript' in LaTeX fragments.
-Revert to the normal definition outside of these fragments."
- (interactive "P")
- (if (org-inside-LaTeX-fragment-p)
- (call-interactively 'cdlatex-sub-superscript)
- (let (org-cdlatex-mode)
- (call-interactively (key-binding (vector last-input-event))))))
-
-(defun org-cdlatex-math-modify (&optional _arg)
- "Execute `cdlatex-math-modify' in LaTeX fragments.
-Revert to the normal definition outside of these fragments."
- (interactive "P")
- (if (org-inside-LaTeX-fragment-p)
- (call-interactively 'cdlatex-math-modify)
- (let (org-cdlatex-mode)
- (call-interactively (key-binding (vector last-input-event))))))
-
-(defun org-cdlatex-environment-indent (&optional environment item)
- "Execute `cdlatex-environment' and indent the inserted environment.
-
-ENVIRONMENT and ITEM are passed to `cdlatex-environment'.
-
-The inserted environment is indented to current indentation
-unless point is at the beginning of the line, in which the
-environment remains unintended."
- (interactive)
- ;; cdlatex-environment always return nil. Therefore, capture output
- ;; first and determine if an environment was selected.
- (let* ((beg (point-marker))
- (end (copy-marker (point) t))
- (inserted (progn
- (ignore-errors (cdlatex-environment environment item))
- (< beg end)))
- ;; Figure out how many lines to move forward after the
- ;; environment has been inserted.
- (lines (when inserted
- (save-excursion
- (- (cl-loop while (< beg (point))
- with x = 0
- do (forward-line -1)
- (cl-incf x)
- finally return x)
- (if (progn (goto-char beg)
- (and (progn (skip-chars-forward " \t") (eolp))
- (progn (skip-chars-backward " \t") (bolp))))
- 1 0)))))
- (env (org-trim (delete-and-extract-region beg end))))
- (when inserted
- ;; Get indentation of next line unless at column 0.
- (let ((ind (if (bolp) 0
- (save-excursion
- (org-return-indent)
- (prog1 (org-get-indentation)
- (when (progn (skip-chars-forward " \t") (eolp))
- (delete-region beg (point)))))))
- (bol (progn (skip-chars-backward " \t") (bolp))))
- ;; Insert a newline before environment unless at column zero
- ;; to "escape" the current line. Insert a newline if
- ;; something is one the same line as \end{ENVIRONMENT}.
- (insert
- (concat (unless bol "\n") env
- (when (and (skip-chars-forward " \t") (not (eolp))) "\n")))
- (unless (zerop ind)
- (save-excursion
- (goto-char beg)
- (while (< (point) end)
- (unless (eolp) (indent-line-to ind))
- (forward-line))))
- (goto-char beg)
- (forward-line lines)
- (indent-line-to ind)))
- (set-marker beg nil)
- (set-marker end nil)))
-
-
-;;;; LaTeX fragments
-
-(defun org-inside-LaTeX-fragment-p ()
- "Test if point is inside a LaTeX fragment.
-I.e. after a \\begin, \\(, \\[, $, or $$, without the corresponding closing
-sequence appearing also before point.
-Even though the matchers for math are configurable, this function assumes
-that \\begin, \\(, \\[, and $$ are always used. Only the single dollar
-delimiters are skipped when they have been removed by customization.
-The return value is nil, or a cons cell with the delimiter and the
-position of this delimiter.
-
-This function does a reasonably good job, but can locally be fooled by
-for example currency specifications. For example it will assume being in
-inline math after \"$22.34\". The LaTeX fragment formatter will only format
-fragments that are properly closed, but during editing, we have to live
-with the uncertainty caused by missing closing delimiters. This function
-looks only before point, not after."
- (catch 'exit
- (let ((pos (point))
- (dodollar (member "$" (plist-get org-format-latex-options :matchers)))
- (lim (save-excursion (org-backward-paragraph) (point)))
- dd-on str (start 0) m re)
- (goto-char pos)
- (when dodollar
- (setq str (concat (buffer-substring lim (point)) "\000 X$.")
- re (nth 1 (assoc "$" org-latex-regexps)))
- (while (string-match re str start)
- (cond
- ((= (match-end 0) (length str))
- (throw 'exit (cons "$" (+ lim (match-beginning 0) 1))))
- ((= (match-end 0) (- (length str) 5))
- (throw 'exit nil))
- (t (setq start (match-end 0))))))
- (when (setq m (re-search-backward "\\(\\\\begin{[^}]*}\\|\\\\(\\|\\\\\\[\\)\\|\\(\\\\end{[^}]*}\\|\\\\)\\|\\\\\\]\\)\\|\\(\\$\\$\\)" lim t))
- (goto-char pos)
- (and (match-beginning 1) (throw 'exit (cons (match-string 1) m)))
- (and (match-beginning 2) (throw 'exit nil))
- ;; count $$
- (while (re-search-backward "\\$\\$" lim t)
- (setq dd-on (not dd-on)))
- (goto-char pos)
- (when dd-on (cons "$$" m))))))
-
-(defun org-inside-latex-macro-p ()
- "Is point inside a LaTeX macro or its arguments?"
- (save-match-data
- (org-in-regexp
- "\\\\[a-zA-Z]+\\*?\\(\\(\\[[^][\n{}]*\\]\\)\\|\\({[^{}\n]*}\\)\\)*")))
-
-(defun org--format-latex-make-overlay (beg end image &optional imagetype)
- "Build an overlay between BEG and END using IMAGE file.
-Argument IMAGETYPE is the extension of the displayed image,
-as a string. It defaults to \"png\"."
- (let ((ov (make-overlay beg end))
- (imagetype (or (intern imagetype) 'png)))
- (overlay-put ov 'org-overlay-type 'org-latex-overlay)
- (overlay-put ov 'evaporate t)
- (overlay-put ov
- 'modification-hooks
- (list (lambda (o _flag _beg _end &optional _l)
- (delete-overlay o))))
- (overlay-put ov
- 'display
- (list 'image :type imagetype :file image :ascent 'center))))
-
-(defun org--list-latex-overlays (&optional beg end)
- "List all Org LaTeX overlays in current buffer.
-Limit to overlays between BEG and END when those are provided."
- (cl-remove-if-not
- (lambda (o) (eq (overlay-get o 'org-overlay-type) 'org-latex-overlay))
- (overlays-in (or beg (point-min)) (or end (point-max)))))
-
-(defun org-remove-latex-fragment-image-overlays (&optional beg end)
- "Remove all overlays with LaTeX fragment images in current buffer.
-When optional arguments BEG and END are non-nil, remove all
-overlays between them instead. Return a non-nil value when some
-overlays were removed, nil otherwise."
- (let ((overlays (org--list-latex-overlays beg end)))
- (mapc #'delete-overlay overlays)
- overlays))
-
-(defun org-toggle-latex-fragment (&optional arg)
- "Preview the LaTeX fragment at point, or all locally or globally.
-
-If the cursor is on a LaTeX fragment, create the image and overlay
-it over the source code, if there is none. Remove it otherwise.
-If there is no fragment at point, display all fragments in the
-current section.
-
-With prefix ARG, preview or clear image for all fragments in the
-current subtree or in the whole buffer when used before the first
-headline. With a prefix ARG `\\[universal-argument] \
-\\[universal-argument]' preview or clear images
-for all fragments in the buffer."
- (interactive "P")
- (when (display-graphic-p)
- (catch 'exit
- (save-excursion
- (let (beg end msg)
- (cond
- ((or (equal arg '(16))
- (and (equal arg '(4))
- (org-with-limited-levels (org-before-first-heading-p))))
- (if (org-remove-latex-fragment-image-overlays)
- (progn (message "LaTeX fragments images removed from buffer")
- (throw 'exit nil))
- (setq msg "Creating images for buffer...")))
- ((equal arg '(4))
- (org-with-limited-levels (org-back-to-heading t))
- (setq beg (point))
- (setq end (progn (org-end-of-subtree t) (point)))
- (if (org-remove-latex-fragment-image-overlays beg end)
- (progn
- (message "LaTeX fragment images removed from subtree")
- (throw 'exit nil))
- (setq msg "Creating images for subtree...")))
- ((let ((datum (org-element-context)))
- (when (memq (org-element-type datum)
- '(latex-environment latex-fragment))
- (setq beg (org-element-property :begin datum))
- (setq end (org-element-property :end datum))
- (if (org-remove-latex-fragment-image-overlays beg end)
- (progn (message "LaTeX fragment image removed")
- (throw 'exit nil))
- (setq msg "Creating image...")))))
- (t
- (org-with-limited-levels
- (setq beg (if (org-at-heading-p) (line-beginning-position)
- (outline-previous-heading)
- (point)))
- (setq end (progn (outline-next-heading) (point)))
- (if (org-remove-latex-fragment-image-overlays beg end)
- (progn
- (message "LaTeX fragment images removed from section")
- (throw 'exit nil))
- (setq msg "Creating images for section...")))))
- (let ((file (buffer-file-name (buffer-base-buffer))))
- (org-format-latex
- (concat org-preview-latex-image-directory "org-ltximg")
- beg end
- ;; Emacs cannot overlay images from remote hosts. Create
- ;; it in `temporary-file-directory' instead.
- (if (or (not file) (file-remote-p file))
- temporary-file-directory
- default-directory)
- 'overlays msg 'forbuffer org-preview-latex-default-process))
- (message (concat msg "done")))))))
-
-(defun org-format-latex
- (prefix &optional beg end dir overlays msg forbuffer processing-type)
- "Replace LaTeX fragments with links to an image.
-
-The function takes care of creating the replacement image.
-
-Only consider fragments between BEG and END when those are
-provided.
-
-When optional argument OVERLAYS is non-nil, display the image on
-top of the fragment instead of replacing it.
-
-PROCESSING-TYPE is the conversion method to use, as a symbol.
-
-Some of the options can be changed using the variable
-`org-format-latex-options', which see."
- (when (and overlays (fboundp 'clear-image-cache)) (clear-image-cache))
- (unless (eq processing-type 'verbatim)
- (let* ((math-regexp "\\$\\|\\\\[([]\\|^[ \t]*\\\\begin{[A-Za-z0-9*]+}")
- (cnt 0)
- checkdir-flag)
- (goto-char (or beg (point-min)))
- ;; Optimize overlay creation: (info "(elisp) Managing Overlays").
- (when (and overlays (memq processing-type '(dvipng imagemagick)))
- (overlay-recenter (or end (point-max))))
- (while (re-search-forward math-regexp end t)
- (unless (and overlays
- (eq (get-char-property (point) 'org-overlay-type)
- 'org-latex-overlay))
- (let* ((context (org-element-context))
- (type (org-element-type context)))
- (when (memq type '(latex-environment latex-fragment))
- (let ((block-type (eq type 'latex-environment))
- (value (org-element-property :value context))
- (beg (org-element-property :begin context))
- (end (save-excursion
- (goto-char (org-element-property :end context))
- (skip-chars-backward " \r\t\n")
- (point))))
- (cond
- ((eq processing-type 'mathjax)
- ;; Prepare for MathJax processing.
- (if (not (string-match "\\`\\$\\$?" value))
- (goto-char end)
- (delete-region beg end)
- (if (string= (match-string 0 value) "$$")
- (insert "\\[" (substring value 2 -2) "\\]")
- (insert "\\(" (substring value 1 -1) "\\)"))))
- ((assq processing-type org-preview-latex-process-alist)
- ;; Process to an image.
- (cl-incf cnt)
- (goto-char beg)
- (let* ((processing-info
- (cdr (assq processing-type org-preview-latex-process-alist)))
- (face (face-at-point))
- ;; Get the colors from the face at point.
- (fg
- (let ((color (plist-get org-format-latex-options
- :foreground)))
- (if (and forbuffer (eq color 'auto))
- (face-attribute face :foreground nil 'default)
- color)))
- (bg
- (let ((color (plist-get org-format-latex-options
- :background)))
- (if (and forbuffer (eq color 'auto))
- (face-attribute face :background nil 'default)
- color)))
- (hash (sha1 (prin1-to-string
- (list org-format-latex-header
- org-latex-default-packages-alist
- org-latex-packages-alist
- org-format-latex-options
- forbuffer value fg bg))))
- (imagetype (or (plist-get processing-info :image-output-type) "png"))
- (absprefix (expand-file-name prefix dir))
- (linkfile (format "%s_%s.%s" prefix hash imagetype))
- (movefile (format "%s_%s.%s" absprefix hash imagetype))
- (sep (and block-type "\n\n"))
- (link (concat sep "[[file:" linkfile "]]" sep))
- (options
- (org-combine-plists
- org-format-latex-options
- `(:foreground ,fg :background ,bg))))
- (when msg (message msg cnt))
- (unless checkdir-flag ; Ensure the directory exists.
- (setq checkdir-flag t)
- (let ((todir (file-name-directory absprefix)))
- (unless (file-directory-p todir)
- (make-directory todir t))))
- (unless (file-exists-p movefile)
- (org-create-formula-image
- value movefile options forbuffer processing-type))
- (if overlays
- (progn
- (dolist (o (overlays-in beg end))
- (when (eq (overlay-get o 'org-overlay-type)
- 'org-latex-overlay)
- (delete-overlay o)))
- (org--format-latex-make-overlay beg end movefile imagetype)
- (goto-char end))
- (delete-region beg end)
- (insert
- (org-add-props link
- (list 'org-latex-src
- (replace-regexp-in-string "\"" "" value)
- 'org-latex-src-embed-type
- (if block-type 'paragraph 'character)))))))
- ((eq processing-type 'mathml)
- ;; Process to MathML.
- (unless (org-format-latex-mathml-available-p)
- (user-error "LaTeX to MathML converter not configured"))
- (cl-incf cnt)
- (when msg (message msg cnt))
- (goto-char beg)
- (delete-region beg end)
- (insert (org-format-latex-as-mathml
- value block-type prefix dir)))
- (t
- (error "Unknown conversion process %s for LaTeX fragments"
- processing-type)))))))))))
-
-(defun org-create-math-formula (latex-frag &optional mathml-file)
- "Convert LATEX-FRAG to MathML and store it in MATHML-FILE.
-Use `org-latex-to-mathml-convert-command'. If the conversion is
-sucessful, return the portion between \"<math...> </math>\"
-elements otherwise return nil. When MATHML-FILE is specified,
-write the results in to that file. When invoked as an
-interactive command, prompt for LATEX-FRAG, with initial value
-set to the current active region and echo the results for user
-inspection."
- (interactive (list (let ((frag (when (org-region-active-p)
- (buffer-substring-no-properties
- (region-beginning) (region-end)))))
- (read-string "LaTeX Fragment: " frag nil frag))))
- (unless latex-frag (user-error "Invalid LaTeX fragment"))
- (let* ((tmp-in-file
- (let ((file (file-relative-name
- (make-temp-name (expand-file-name "ltxmathml-in")))))
- (write-region latex-frag nil file)
- file))
- (tmp-out-file (file-relative-name
- (make-temp-name (expand-file-name "ltxmathml-out"))))
- (cmd (format-spec
- org-latex-to-mathml-convert-command
- `((?j . ,(and org-latex-to-mathml-jar-file
- (shell-quote-argument
- (expand-file-name
- org-latex-to-mathml-jar-file))))
- (?I . ,(shell-quote-argument tmp-in-file))
- (?i . ,latex-frag)
- (?o . ,(shell-quote-argument tmp-out-file)))))
- mathml shell-command-output)
- (when (called-interactively-p 'any)
- (unless (org-format-latex-mathml-available-p)
- (user-error "LaTeX to MathML converter not configured")))
- (message "Running %s" cmd)
- (setq shell-command-output (shell-command-to-string cmd))
- (setq mathml
- (when (file-readable-p tmp-out-file)
- (with-current-buffer (find-file-noselect tmp-out-file t)
- (goto-char (point-min))
- (when (re-search-forward
- (format "<math[^>]*?%s[^>]*?>\\(.\\|\n\\)*</math>"
- (regexp-quote
- "xmlns=\"http://www.w3.org/1998/Math/MathML\""))
- nil t)
- (prog1 (match-string 0) (kill-buffer))))))
- (cond
- (mathml
- (setq mathml
- (concat "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" mathml))
- (when mathml-file
- (write-region mathml nil mathml-file))
- (when (called-interactively-p 'any)
- (message mathml)))
- ((message "LaTeX to MathML conversion failed")
- (message shell-command-output)))
- (delete-file tmp-in-file)
- (when (file-exists-p tmp-out-file)
- (delete-file tmp-out-file))
- mathml))
-
-(defun org-format-latex-as-mathml (latex-frag latex-frag-type
- prefix &optional dir)
- "Use `org-create-math-formula' but check local cache first."
- (let* ((absprefix (expand-file-name prefix dir))
- (print-length nil) (print-level nil)
- (formula-id (concat
- "formula-"
- (sha1
- (prin1-to-string
- (list latex-frag
- org-latex-to-mathml-convert-command)))))
- (formula-cache (format "%s-%s.mathml" absprefix formula-id))
- (formula-cache-dir (file-name-directory formula-cache)))
-
- (unless (file-directory-p formula-cache-dir)
- (make-directory formula-cache-dir t))
-
- (unless (file-exists-p formula-cache)
- (org-create-math-formula latex-frag formula-cache))
-
- (if (file-exists-p formula-cache)
- ;; Successful conversion. Return the link to MathML file.
- (org-add-props
- (format "[[file:%s]]" (file-relative-name formula-cache dir))
- (list 'org-latex-src (replace-regexp-in-string "\"" "" latex-frag)
- 'org-latex-src-embed-type (if latex-frag-type
- 'paragraph 'character)))
- ;; Failed conversion. Return the LaTeX fragment verbatim
- latex-frag)))
-
-(defun org--get-display-dpi ()
- "Get the DPI of the display.
-The function assumes that the display has the same pixel width in
-the horizontal and vertical directions."
- (if (display-graphic-p)
- (round (/ (display-pixel-height)
- (/ (display-mm-height) 25.4)))
- (error "Attempt to calculate the dpi of a non-graphic display")))
-
-(defun org-create-formula-image
- (string tofile options buffer &optional processing-type)
- "Create an image from LaTeX source using external processes.
-
-The LaTeX STRING is saved to a temporary LaTeX file, then
-converted to an image file by process PROCESSING-TYPE defined in
-`org-preview-latex-process-alist'. A nil value defaults to
-`org-preview-latex-default-process'.
-
-The generated image file is eventually moved to TOFILE.
-
-The OPTIONS argument controls the size, foreground color and
-background color of the generated image.
-
-When BUFFER non-nil, this function is used for LaTeX previewing.
-Otherwise, it is used to deal with LaTeX snippets showed in
-a HTML file."
- (let* ((processing-type (or processing-type
- org-preview-latex-default-process))
- (processing-info
- (cdr (assq processing-type org-preview-latex-process-alist)))
- (programs (plist-get processing-info :programs))
- (error-message (or (plist-get processing-info :message) ""))
- (use-xcolor (plist-get processing-info :use-xcolor))
- (image-input-type (plist-get processing-info :image-input-type))
- (image-output-type (plist-get processing-info :image-output-type))
- (post-clean (or (plist-get processing-info :post-clean)
- '(".dvi" ".xdv" ".pdf" ".tex" ".aux" ".log"
- ".svg" ".png" ".jpg" ".jpeg" ".out")))
- (latex-header
- (or (plist-get processing-info :latex-header)
- (org-latex-make-preamble
- (org-export-get-environment (org-export-get-backend 'latex))
- org-format-latex-header
- 'snippet)))
- (latex-compiler (plist-get processing-info :latex-compiler))
- (image-converter (plist-get processing-info :image-converter))
- (tmpdir temporary-file-directory)
- (texfilebase (make-temp-name
- (expand-file-name "orgtex" tmpdir)))
- (texfile (concat texfilebase ".tex"))
- (image-size-adjust (or (plist-get processing-info :image-size-adjust)
- '(1.0 . 1.0)))
- (scale (* (if buffer (car image-size-adjust) (cdr image-size-adjust))
- (or (plist-get options (if buffer :scale :html-scale)) 1.0)))
- (dpi (* scale (if buffer (org--get-display-dpi) 140.0)))
- (fg (or (plist-get options (if buffer :foreground :html-foreground))
- "Black"))
- (bg (or (plist-get options (if buffer :background :html-background))
- "Transparent"))
- (log-buf (get-buffer-create "*Org Preview LaTeX Output*"))
- (resize-mini-windows nil)) ;Fix Emacs flicker when creating image.
- (dolist (program programs)
- (org-check-external-command program error-message))
- (if use-xcolor
- (progn (if (eq fg 'default)
- (setq fg (org-latex-color :foreground))
- (setq fg (org-latex-color-format fg)))
- (if (eq bg 'default)
- (setq bg (org-latex-color :background))
- (setq bg (org-latex-color-format
- (if (string= bg "Transparent") "white" bg))))
- (with-temp-file texfile
- (insert latex-header)
- (insert "\n\\begin{document}\n"
- "\\definecolor{fg}{rgb}{" fg "}\n"
- "\\definecolor{bg}{rgb}{" bg "}\n"
- "\n\\pagecolor{bg}\n"
- "\n{\\color{fg}\n"
- string
- "\n}\n"
- "\n\\end{document}\n")))
- (if (eq fg 'default)
- (setq fg (org-dvipng-color :foreground))
- (unless (string= fg "Transparent")
- (setq fg (org-dvipng-color-format fg))))
- (if (eq bg 'default)
- (setq bg (org-dvipng-color :background))
- (unless (string= bg "Transparent")
- (setq bg (org-dvipng-color-format bg))))
- (with-temp-file texfile
- (insert latex-header)
- (insert "\n\\begin{document}\n" string "\n\\end{document}\n")))
-
- (let* ((err-msg (format "Please adjust `%s' part of \
-`org-preview-latex-process-alist'."
- processing-type))
- (image-input-file
- (org-compile-file
- texfile latex-compiler image-input-type err-msg log-buf))
- (image-output-file
- (org-compile-file
- image-input-file image-converter image-output-type err-msg log-buf
- `((?F . ,(shell-quote-argument fg))
- (?B . ,(shell-quote-argument bg))
- (?D . ,(shell-quote-argument (format "%s" dpi)))
- (?S . ,(shell-quote-argument (format "%s" (/ dpi 140.0))))))))
- (copy-file image-output-file tofile 'replace)
- (dolist (e post-clean)
- (when (file-exists-p (concat texfilebase e))
- (delete-file (concat texfilebase e))))
- image-output-file)))
-
-(defun org-splice-latex-header (tpl def-pkg pkg snippets-p &optional extra)
- "Fill a LaTeX header template TPL.
-In the template, the following place holders will be recognized:
-
- [DEFAULT-PACKAGES] \\usepackage statements for DEF-PKG
- [NO-DEFAULT-PACKAGES] do not include DEF-PKG
- [PACKAGES] \\usepackage statements for PKG
- [NO-PACKAGES] do not include PKG
- [EXTRA] the string EXTRA
- [NO-EXTRA] do not include EXTRA
-
-For backward compatibility, if both the positive and the negative place
-holder is missing, the positive one (without the \"NO-\") will be
-assumed to be present at the end of the template.
-DEF-PKG and PKG are assumed to be alists of options/packagename lists.
-EXTRA is a string.
-SNIPPETS-P indicates if this is run to create snippet images for HTML."
- (let (rpl (end ""))
- (if (string-match "^[ \t]*\\[\\(NO-\\)?DEFAULT-PACKAGES\\][ \t]*\n?" tpl)
- (setq rpl (if (or (match-end 1) (not def-pkg))
- "" (org-latex-packages-to-string def-pkg snippets-p t))
- tpl (replace-match rpl t t tpl))
- (when def-pkg (setq end (org-latex-packages-to-string def-pkg snippets-p))))
-
- (if (string-match "\\[\\(NO-\\)?PACKAGES\\][ \t]*\n?" tpl)
- (setq rpl (if (or (match-end 1) (not pkg))
- "" (org-latex-packages-to-string pkg snippets-p t))
- tpl (replace-match rpl t t tpl))
- (when pkg (setq end
- (concat end "\n"
- (org-latex-packages-to-string pkg snippets-p)))))
-
- (if (string-match "\\[\\(NO-\\)?EXTRA\\][ \t]*\n?" tpl)
- (setq rpl (if (or (match-end 1) (not extra))
- "" (concat extra "\n"))
- tpl (replace-match rpl t t tpl))
- (when (and extra (string-match "\\S-" extra))
- (setq end (concat end "\n" extra))))
-
- (if (string-match "\\S-" end)
- (concat tpl "\n" end)
- tpl)))
-
-(defun org-latex-packages-to-string (pkg &optional snippets-p newline)
- "Turn an alist of packages into a string with the \\usepackage macros."
- (setq pkg (mapconcat (lambda(p)
- (cond
- ((stringp p) p)
- ((and snippets-p (>= (length p) 3) (not (nth 2 p)))
- (format "%% Package %s omitted" (cadr p)))
- ((equal "" (car p))
- (format "\\usepackage{%s}" (cadr p)))
- (t
- (format "\\usepackage[%s]{%s}"
- (car p) (cadr p)))))
- pkg
- "\n"))
- (if newline (concat pkg "\n") pkg))
-
-(defun org-dvipng-color (attr)
- "Return a RGB color specification for dvipng."
- (org-dvipng-color-format (face-attribute 'default attr nil)))
-
-(defun org-dvipng-color-format (color-name)
- "Convert COLOR-NAME to a RGB color value for dvipng."
- (apply #'format "rgb %s %s %s"
- (mapcar 'org-normalize-color
- (color-values color-name))))
-
-(defun org-latex-color (attr)
- "Return a RGB color for the LaTeX color package."
- (org-latex-color-format (face-attribute 'default attr nil)))
-
-(defun org-latex-color-format (color-name)
- "Convert COLOR-NAME to a RGB color value."
- (apply #'format "%s,%s,%s"
- (mapcar 'org-normalize-color
- (color-values color-name))))
-
-(defun org-normalize-color (value)
- "Return string to be used as color value for an RGB component."
- (format "%g" (/ value 65535.0)))
-
-
-
-;; Image display
-
-(defvar-local org-inline-image-overlays nil)
-
-(defun org-toggle-inline-images (&optional include-linked)
- "Toggle the display of inline images.
-INCLUDE-LINKED is passed to `org-display-inline-images'."
- (interactive "P")
- (if org-inline-image-overlays
- (progn
- (org-remove-inline-images)
- (when (called-interactively-p 'interactive)
- (message "Inline image display turned off")))
- (org-display-inline-images include-linked)
- (when (called-interactively-p 'interactive)
- (message (if org-inline-image-overlays
- (format "%d images displayed inline"
- (length org-inline-image-overlays))
- "No images to display inline")))))
-
-(defun org-redisplay-inline-images ()
- "Refresh the display of inline images."
- (interactive)
- (if (not org-inline-image-overlays)
- (org-toggle-inline-images)
- (org-toggle-inline-images)
- (org-toggle-inline-images)))
-
-(defun org-display-inline-images (&optional include-linked refresh beg end)
- "Display inline images.
-
-An inline image is a link which follows either of these
-conventions:
-
- 1. Its path is a file with an extension matching return value
- from `image-file-name-regexp' and it has no contents.
-
- 2. Its description consists in a single link of the previous
- type.
-
-When optional argument INCLUDE-LINKED is non-nil, also links with
-a text description part will be inlined. This can be nice for
-a quick look at those images, but it does not reflect what
-exported files will look like.
-
-When optional argument REFRESH is non-nil, refresh existing
-images between BEG and END. This will create new image displays
-only if necessary. BEG and END default to the buffer
-boundaries."
- (interactive "P")
- (when (display-graphic-p)
- (unless refresh
- (org-remove-inline-images)
- (when (fboundp 'clear-image-cache) (clear-image-cache)))
- (org-with-wide-buffer
- (goto-char (or beg (point-min)))
- (let* ((case-fold-search t)
- (file-extension-re (image-file-name-regexp))
- (link-abbrevs (mapcar #'car
- (append org-link-abbrev-alist-local
- org-link-abbrev-alist)))
- ;; Check absolute, relative file names and explicit
- ;; "file:" links. Also check link abbreviations since
- ;; some might expand to "file" links.
- (file-types-re (format "[][]\\[\\(?:file\\|[./~]%s\\)"
- (if (not link-abbrevs) ""
- (format "\\|\\(?:%s:\\)"
- (regexp-opt link-abbrevs))))))
- (while (re-search-forward file-types-re end t)
- (let ((link (save-match-data (org-element-context))))
- ;; Check if we're at an inline image, i.e., an image file
- ;; link without a description (unless INCLUDE-LINKED is
- ;; non-nil).
- (when (and (equal "file" (org-element-property :type link))
- (or include-linked
- (null (org-element-contents link)))
- (string-match-p file-extension-re
- (org-element-property :path link)))
- (let ((file (expand-file-name
- (org-link-unescape
- (org-element-property :path link)))))
- (when (file-exists-p file)
- (let ((width
- ;; Apply `org-image-actual-width' specifications.
- (cond
- ((not (image-type-available-p 'imagemagick)) nil)
- ((eq org-image-actual-width t) nil)
- ((listp org-image-actual-width)
- (or
- ;; First try to find a width among
- ;; attributes associated to the paragraph
- ;; containing link.
- (let ((paragraph
- (let ((e link))
- (while (and (setq e (org-element-property
- :parent e))
- (not (eq (org-element-type e)
- 'paragraph))))
- e)))
- (when paragraph
- (save-excursion
- (goto-char (org-element-property :begin paragraph))
- (when
- (re-search-forward
- "^[ \t]*#\\+attr_.*?: +.*?:width +\\(\\S-+\\)"
- (org-element-property
- :post-affiliated paragraph)
- t)
- (string-to-number (match-string 1))))))
- ;; Otherwise, fall-back to provided number.
- (car org-image-actual-width)))
- ((numberp org-image-actual-width)
- org-image-actual-width)))
- (old (get-char-property-and-overlay
- (org-element-property :begin link)
- 'org-image-overlay)))
- (if (and (car-safe old) refresh)
- (image-refresh (overlay-get (cdr old) 'display))
- (let ((image (create-image file
- (and width 'imagemagick)
- nil
- :width width)))
- (when image
- (let ((ov (make-overlay
- (org-element-property :begin link)
- (progn
- (goto-char
- (org-element-property :end link))
- (skip-chars-backward " \t")
- (point)))))
- (overlay-put ov 'display image)
- (overlay-put ov 'face 'default)
- (overlay-put ov 'org-image-overlay t)
- (overlay-put
- ov 'modification-hooks
- (list 'org-display-inline-remove-overlay))
- (push ov org-inline-image-overlays)))))))))))))))
-
-(defun org-display-inline-remove-overlay (ov after _beg _end &optional _len)
- "Remove inline-display overlay if a corresponding region is modified."
- (let ((inhibit-modification-hooks t))
- (when (and ov after)
- (delete ov org-inline-image-overlays)
- (delete-overlay ov))))
-
-(defun org-remove-inline-images ()
- "Remove inline display of images."
- (interactive)
- (mapc #'delete-overlay org-inline-image-overlays)
- (setq org-inline-image-overlays nil))
-
-;;;; Key bindings
-
-(defun org-remap (map &rest commands)
- "In MAP, remap the functions given in COMMANDS.
-COMMANDS is a list of alternating OLDDEF NEWDEF command names."
- (let (new old)
- (while commands
- (setq old (pop commands) new (pop commands))
- (org-defkey map (vector 'remap old) new))))
-
-;; Outline functions from `outline-mode-prefix-map'
-;; that can be remapped in Org:
-(define-key org-mode-map [remap outline-mark-subtree] 'org-mark-subtree)
-(define-key org-mode-map [remap outline-show-subtree] 'org-show-subtree)
-(define-key org-mode-map [remap outline-forward-same-level]
- 'org-forward-heading-same-level)
-(define-key org-mode-map [remap outline-backward-same-level]
- 'org-backward-heading-same-level)
-(define-key org-mode-map [remap outline-show-branches]
- 'org-kill-note-or-show-branches)
-(define-key org-mode-map [remap outline-promote] 'org-promote-subtree)
-(define-key org-mode-map [remap outline-demote] 'org-demote-subtree)
-(define-key org-mode-map [remap outline-insert-heading] 'org-ctrl-c-ret)
-(define-key org-mode-map [remap outline-next-visible-heading]
- 'org-next-visible-heading)
-(define-key org-mode-map [remap outline-previous-visible-heading]
- 'org-previous-visible-heading)
-(define-key org-mode-map [remap show-children] 'org-show-children)
-
-;; Outline functions from `outline-mode-prefix-map' that can not
-;; be remapped in Org:
-
-;; - the column "key binding" shows whether the Outline function is still
-;; available in Org mode on the same key that it has been bound to in
-;; Outline mode:
-;; - "overridden": key used for a different functionality in Org mode
-;; - else: key still bound to the same Outline function in Org mode
-
-;; | Outline function | key binding | Org replacement |
-;; |------------------------------------+-------------+--------------------------|
-;; | `outline-up-heading' | `C-c C-u' | still same function |
-;; | `outline-move-subtree-up' | overridden | better: org-shiftup |
-;; | `outline-move-subtree-down' | overridden | better: org-shiftdown |
-;; | `show-entry' | overridden | no replacement |
-;; | `show-branches' | `C-c C-k' | still same function |
-;; | `show-subtree' | overridden | visibility cycling |
-;; | `show-all' | overridden | no replacement |
-;; | `hide-subtree' | overridden | visibility cycling |
-;; | `hide-body' | overridden | no replacement |
-;; | `hide-entry' | overridden | visibility cycling |
-;; | `hide-leaves' | overridden | no replacement |
-;; | `hide-sublevels' | overridden | no replacement |
-;; | `hide-other' | overridden | no replacement |
-
-;; Make `C-c C-x' a prefix key
-(org-defkey org-mode-map "\C-c\C-x" (make-sparse-keymap))
-
-;; TAB key with modifiers
-(org-defkey org-mode-map "\C-i" 'org-cycle)
-(org-defkey org-mode-map [(tab)] 'org-cycle)
-(org-defkey org-mode-map [(control tab)] 'org-force-cycle-archived)
-(org-defkey org-mode-map "\M-\t" #'pcomplete)
-
-;; The following line is necessary under Suse GNU/Linux
-(org-defkey org-mode-map [S-iso-lefttab] 'org-shifttab)
-(org-defkey org-mode-map [(shift tab)] 'org-shifttab)
-(define-key org-mode-map [backtab] 'org-shifttab)
-
-(org-defkey org-mode-map [(shift return)] 'org-table-copy-down)
-(org-defkey org-mode-map [(meta shift return)] 'org-insert-todo-heading)
-(org-defkey org-mode-map (kbd "M-RET") #'org-meta-return)
-
-;; Cursor keys with modifiers
-(org-defkey org-mode-map [(meta left)] 'org-metaleft)
-(org-defkey org-mode-map [(meta right)] 'org-metaright)
-(org-defkey org-mode-map [(meta up)] 'org-metaup)
-(org-defkey org-mode-map [(meta down)] 'org-metadown)
-
-(org-defkey org-mode-map [(control meta shift right)] 'org-increase-number-at-point)
-(org-defkey org-mode-map [(control meta shift left)] 'org-decrease-number-at-point)
-(org-defkey org-mode-map [(meta shift left)] 'org-shiftmetaleft)
-(org-defkey org-mode-map [(meta shift right)] 'org-shiftmetaright)
-(org-defkey org-mode-map [(meta shift up)] 'org-shiftmetaup)
-(org-defkey org-mode-map [(meta shift down)] 'org-shiftmetadown)
-
-(org-defkey org-mode-map [(shift up)] 'org-shiftup)
-(org-defkey org-mode-map [(shift down)] 'org-shiftdown)
-(org-defkey org-mode-map [(shift left)] 'org-shiftleft)
-(org-defkey org-mode-map [(shift right)] 'org-shiftright)
-
-(org-defkey org-mode-map [(control shift right)] 'org-shiftcontrolright)
-(org-defkey org-mode-map [(control shift left)] 'org-shiftcontrolleft)
-(org-defkey org-mode-map [(control shift up)] 'org-shiftcontrolup)
-(org-defkey org-mode-map [(control shift down)] 'org-shiftcontroldown)
-
-;; Babel keys
-(define-key org-mode-map org-babel-key-prefix org-babel-map)
-(dolist (pair org-babel-key-bindings)
- (define-key org-babel-map (car pair) (cdr pair)))
-
-;;; Extra keys for tty access.
-;; We only set them when really needed because otherwise the
-;; menus don't show the simple keys
-
-(when (or org-use-extra-keys (not window-system))
- (org-defkey org-mode-map "\C-c\C-xc" 'org-table-copy-down)
- (org-defkey org-mode-map "\C-c\C-xM" 'org-insert-todo-heading)
- (org-defkey org-mode-map "\C-c\C-xm" 'org-meta-return)
- (org-defkey org-mode-map [?\e (return)] 'org-meta-return)
- (org-defkey org-mode-map [?\e (left)] 'org-metaleft)
- (org-defkey org-mode-map "\C-c\C-xl" 'org-metaleft)
- (org-defkey org-mode-map [?\e (right)] 'org-metaright)
- (org-defkey org-mode-map "\C-c\C-xr" 'org-metaright)
- (org-defkey org-mode-map [?\e (up)] 'org-metaup)
- (org-defkey org-mode-map "\C-c\C-xu" 'org-metaup)
- (org-defkey org-mode-map [?\e (down)] 'org-metadown)
- (org-defkey org-mode-map "\C-c\C-xd" 'org-metadown)
- (org-defkey org-mode-map "\C-c\C-xL" 'org-shiftmetaleft)
- (org-defkey org-mode-map "\C-c\C-xR" 'org-shiftmetaright)
- (org-defkey org-mode-map "\C-c\C-xU" 'org-shiftmetaup)
- (org-defkey org-mode-map "\C-c\C-xD" 'org-shiftmetadown)
- (org-defkey org-mode-map [?\C-c (up)] 'org-shiftup)
- (org-defkey org-mode-map [?\C-c (down)] 'org-shiftdown)
- (org-defkey org-mode-map [?\C-c (left)] 'org-shiftleft)
- (org-defkey org-mode-map [?\C-c (right)] 'org-shiftright)
- (org-defkey org-mode-map [?\C-c ?\C-x (right)] 'org-shiftcontrolright)
- (org-defkey org-mode-map [?\C-c ?\C-x (left)] 'org-shiftcontrolleft)
- (org-defkey org-mode-map [?\e (tab)] #'pcomplete)
- (org-defkey org-mode-map [?\e (shift return)] 'org-insert-todo-heading)
- (org-defkey org-mode-map [?\e (shift left)] 'org-shiftmetaleft)
- (org-defkey org-mode-map [?\e (shift right)] 'org-shiftmetaright)
- (org-defkey org-mode-map [?\e (shift up)] 'org-shiftmetaup)
- (org-defkey org-mode-map [?\e (shift down)] 'org-shiftmetadown))
-
-;; All the other keys
-(org-remap org-mode-map
- 'self-insert-command 'org-self-insert-command
- 'delete-char 'org-delete-char
- 'delete-backward-char 'org-delete-backward-char)
-(org-defkey org-mode-map "|" 'org-force-self-insert)
-
-(org-defkey org-mode-map "\C-c\C-a" 'outline-show-all) ; in case allout messed up.
-(org-defkey org-mode-map "\C-c\C-r" 'org-reveal)
-(if (boundp 'narrow-map)
- (org-defkey narrow-map "s" 'org-narrow-to-subtree)
- (org-defkey org-mode-map "\C-xns" 'org-narrow-to-subtree))
-(if (boundp 'narrow-map)
- (org-defkey narrow-map "b" 'org-narrow-to-block)
- (org-defkey org-mode-map "\C-xnb" 'org-narrow-to-block))
-(if (boundp 'narrow-map)
- (org-defkey narrow-map "e" 'org-narrow-to-element)
- (org-defkey org-mode-map "\C-xne" 'org-narrow-to-element))
-(org-defkey org-mode-map "\C-\M-t" 'org-transpose-element)
-(org-defkey org-mode-map "\M-}" 'org-forward-element)
-(org-defkey org-mode-map "\M-{" 'org-backward-element)
-(org-defkey org-mode-map "\C-c\C-^" 'org-up-element)
-(org-defkey org-mode-map "\C-c\C-_" 'org-down-element)
-(org-defkey org-mode-map "\C-c\C-f" 'org-forward-heading-same-level)
-(org-defkey org-mode-map "\C-c\C-b" 'org-backward-heading-same-level)
-(org-defkey org-mode-map "\C-c\M-f" 'org-next-block)
-(org-defkey org-mode-map "\C-c\M-b" 'org-previous-block)
-(org-defkey org-mode-map "\C-c$" 'org-archive-subtree)
-(org-defkey org-mode-map "\C-c\C-x\C-s" 'org-archive-subtree)
-(org-defkey org-mode-map "\C-c\C-x\C-a" 'org-archive-subtree-default)
-(org-defkey org-mode-map "\C-c\C-xd" 'org-insert-drawer)
-(org-defkey org-mode-map "\C-c\C-xa" 'org-toggle-archive-tag)
-(org-defkey org-mode-map "\C-c\C-xA" 'org-archive-to-archive-sibling)
-(org-defkey org-mode-map "\C-c\C-xb" 'org-tree-to-indirect-buffer)
-(org-defkey org-mode-map "\C-c\C-xq" 'org-toggle-tags-groups)
-(org-defkey org-mode-map "\C-c\C-j" 'org-goto)
-(org-defkey org-mode-map "\C-c\C-t" 'org-todo)
-(org-defkey org-mode-map "\C-c\C-q" 'org-set-tags-command)
-(org-defkey org-mode-map "\C-c\C-s" 'org-schedule)
-(org-defkey org-mode-map "\C-c\C-d" 'org-deadline)
-(org-defkey org-mode-map "\C-c;" 'org-toggle-comment)
-(org-defkey org-mode-map "\C-c\C-w" 'org-refile)
-(org-defkey org-mode-map "\C-c\M-w" 'org-copy)
-(org-defkey org-mode-map "\C-c/" 'org-sparse-tree) ; Minor-mode reserved
-(org-defkey org-mode-map "\C-c\\" 'org-match-sparse-tree) ; Minor-mode res.
-(org-defkey org-mode-map "\C-c\C-m" 'org-ctrl-c-ret)
-(org-defkey org-mode-map "\C-c\C-xc" 'org-clone-subtree-with-time-shift)
-(org-defkey org-mode-map "\C-c\C-xv" 'org-copy-visible)
-(org-defkey org-mode-map [(control return)] 'org-insert-heading-respect-content)
-(org-defkey org-mode-map [(shift control return)] 'org-insert-todo-heading-respect-content)
-(org-defkey org-mode-map "\C-c\C-x\C-n" 'org-next-link)
-(org-defkey org-mode-map "\C-c\C-x\C-p" 'org-previous-link)
-(org-defkey org-mode-map "\C-c\C-l" 'org-insert-link)
-(org-defkey org-mode-map "\C-c\M-l" 'org-insert-last-stored-link)
-(org-defkey org-mode-map "\C-c\C-\M-l" 'org-insert-all-links)
-(org-defkey org-mode-map "\C-c\C-o" 'org-open-at-point)
-(org-defkey org-mode-map "\C-c%" 'org-mark-ring-push)
-(org-defkey org-mode-map "\C-c&" 'org-mark-ring-goto)
-(org-defkey org-mode-map "\C-c\C-z" 'org-add-note) ; Alternative binding
-(org-defkey org-mode-map "\C-c." 'org-time-stamp) ; Minor-mode reserved
-(org-defkey org-mode-map "\C-c!" 'org-time-stamp-inactive) ; Minor-mode r.
-(org-defkey org-mode-map "\C-c," 'org-priority) ; Minor-mode reserved
-(org-defkey org-mode-map "\C-c\C-y" 'org-evaluate-time-range)
-(org-defkey org-mode-map "\C-c>" 'org-goto-calendar)
-(org-defkey org-mode-map "\C-c<" 'org-date-from-calendar)
-(org-defkey org-mode-map [(control ?,)] 'org-cycle-agenda-files)
-(org-defkey org-mode-map [(control ?\')] 'org-cycle-agenda-files)
-(org-defkey org-mode-map "\C-c[" 'org-agenda-file-to-front)
-(org-defkey org-mode-map "\C-c]" 'org-remove-file)
-(org-defkey org-mode-map "\C-c\C-x<" 'org-agenda-set-restriction-lock)
-(org-defkey org-mode-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
-(org-defkey org-mode-map "\C-c-" 'org-ctrl-c-minus)
-(org-defkey org-mode-map "\C-c*" 'org-ctrl-c-star)
-(org-defkey org-mode-map "\C-c^" 'org-sort)
-(org-defkey org-mode-map "\C-c\C-c" 'org-ctrl-c-ctrl-c)
-(org-defkey org-mode-map "\C-c\C-k" 'org-kill-note-or-show-branches)
-(org-defkey org-mode-map "\C-c#" 'org-update-statistics-cookies)
-(org-defkey org-mode-map [remap open-line] 'org-open-line)
-(org-defkey org-mode-map [remap comment-dwim] 'org-comment-dwim)
-(org-defkey org-mode-map [remap forward-paragraph] 'org-forward-paragraph)
-(org-defkey org-mode-map [remap backward-paragraph] 'org-backward-paragraph)
-(org-defkey org-mode-map "\M-^" 'org-delete-indentation)
-(org-defkey org-mode-map "\C-m" 'org-return)
-(org-defkey org-mode-map "\C-j" 'org-return-indent)
-(org-defkey org-mode-map "\C-c?" 'org-table-field-info)
-(org-defkey org-mode-map "\C-c " 'org-table-blank-field)
-(org-defkey org-mode-map "\C-c+" 'org-table-sum)
-(org-defkey org-mode-map "\C-c=" 'org-table-eval-formula)
-(org-defkey org-mode-map "\C-c'" 'org-edit-special)
-(org-defkey org-mode-map "\C-c`" 'org-table-edit-field)
-(org-defkey org-mode-map "\C-c\"a" 'orgtbl-ascii-plot)
-(org-defkey org-mode-map "\C-c\"g" 'org-plot/gnuplot)
-(org-defkey org-mode-map "\C-c|" 'org-table-create-or-convert-from-region)
-(org-defkey org-mode-map [(control ?#)] 'org-table-rotate-recalc-marks)
-(org-defkey org-mode-map "\C-c~" 'org-table-create-with-table.el)
-(org-defkey org-mode-map "\C-c\C-a" 'org-attach)
-(org-defkey org-mode-map "\C-c}" 'org-table-toggle-coordinate-overlays)
-(org-defkey org-mode-map "\C-c{" 'org-table-toggle-formula-debugger)
-(org-defkey org-mode-map "\C-c\C-e" 'org-export-dispatch)
-(org-defkey org-mode-map "\C-c:" 'org-toggle-fixed-width)
-(org-defkey org-mode-map "\C-c\C-x\C-f" 'org-emphasize)
-(org-defkey org-mode-map "\C-c\C-xf" 'org-footnote-action)
-(org-defkey org-mode-map "\C-c\C-x\C-mg" 'org-mobile-pull)
-(org-defkey org-mode-map "\C-c\C-x\C-mp" 'org-mobile-push)
-(org-defkey org-mode-map "\C-c@" 'org-mark-subtree)
-(org-defkey org-mode-map "\M-h" 'org-mark-element)
-(org-defkey org-mode-map [?\C-c (control ?*)] 'org-list-make-subtree)
-;;(org-defkey org-mode-map [?\C-c (control ?-)] 'org-list-make-list-from-subtree)
-
-(org-defkey org-mode-map "\C-c\C-x\C-w" 'org-cut-special)
-(org-defkey org-mode-map "\C-c\C-x\M-w" 'org-copy-special)
-(org-defkey org-mode-map "\C-c\C-x\C-y" 'org-paste-special)
-
-(org-defkey org-mode-map "\C-c\C-x\C-t" 'org-toggle-time-stamp-overlays)
-(org-defkey org-mode-map "\C-c\C-x\C-i" 'org-clock-in)
-(org-defkey org-mode-map "\C-c\C-x\C-x" 'org-clock-in-last)
-(org-defkey org-mode-map "\C-c\C-x\C-z" 'org-resolve-clocks)
-(org-defkey org-mode-map "\C-c\C-x\C-o" 'org-clock-out)
-(org-defkey org-mode-map "\C-c\C-x\C-j" 'org-clock-goto)
-(org-defkey org-mode-map "\C-c\C-x\C-q" 'org-clock-cancel)
-(org-defkey org-mode-map "\C-c\C-x\C-d" 'org-clock-display)
-(org-defkey org-mode-map "\C-c\C-x\C-r" 'org-clock-report)
-(org-defkey org-mode-map "\C-c\C-x\C-u" 'org-dblock-update)
-(org-defkey org-mode-map "\C-c\C-x\C-l" 'org-toggle-latex-fragment)
-(org-defkey org-mode-map "\C-c\C-x\C-v" 'org-toggle-inline-images)
-(org-defkey org-mode-map "\C-c\C-x\C-\M-v" 'org-redisplay-inline-images)
-(org-defkey org-mode-map "\C-c\C-x\\" 'org-toggle-pretty-entities)
-(org-defkey org-mode-map "\C-c\C-x\C-b" 'org-toggle-checkbox)
-(org-defkey org-mode-map "\C-c\C-xp" 'org-set-property)
-(org-defkey org-mode-map "\C-c\C-xP" 'org-set-property-and-value)
-(org-defkey org-mode-map "\C-c\C-xe" 'org-set-effort)
-(org-defkey org-mode-map "\C-c\C-xE" 'org-inc-effort)
-(org-defkey org-mode-map "\C-c\C-xo" 'org-toggle-ordered-property)
-(org-defkey org-mode-map "\C-c\C-xi" 'org-columns-insert-dblock)
-(org-defkey org-mode-map [(control ?c) (control ?x) ?\;] 'org-timer-set-timer)
-
-(org-defkey org-mode-map "\C-c\C-x." 'org-timer)
-(org-defkey org-mode-map "\C-c\C-x-" 'org-timer-item)
-(org-defkey org-mode-map "\C-c\C-x0" 'org-timer-start)
-(org-defkey org-mode-map "\C-c\C-x_" 'org-timer-stop)
-(org-defkey org-mode-map "\C-c\C-x," 'org-timer-pause-or-continue)
-
-(define-key org-mode-map "\C-c\C-x\C-c" 'org-columns)
-
-(define-key org-mode-map "\C-c\C-x!" 'org-reload)
-
-(define-key org-mode-map "\C-c\C-xg" 'org-feed-update-all)
-(define-key org-mode-map "\C-c\C-xG" 'org-feed-goto-inbox)
-
-(define-key org-mode-map "\C-c\C-x[" 'org-reftex-citation)
-
-
-(defconst org-speed-commands-default
- '(
- ("Outline Navigation")
- ("n" . (org-speed-move-safe 'org-next-visible-heading))
- ("p" . (org-speed-move-safe 'org-previous-visible-heading))
- ("f" . (org-speed-move-safe 'org-forward-heading-same-level))
- ("b" . (org-speed-move-safe 'org-backward-heading-same-level))
- ("F" . org-next-block)
- ("B" . org-previous-block)
- ("u" . (org-speed-move-safe 'outline-up-heading))
- ("j" . org-goto)
- ("g" . (org-refile t))
- ("Outline Visibility")
- ("c" . org-cycle)
- ("C" . org-shifttab)
- (" " . org-display-outline-path)
- ("s" . org-narrow-to-subtree)
- ("=" . org-columns)
- ("Outline Structure Editing")
- ("U" . org-metaup)
- ("D" . org-metadown)
- ("r" . org-metaright)
- ("l" . org-metaleft)
- ("R" . org-shiftmetaright)
- ("L" . org-shiftmetaleft)
- ("i" . (progn (forward-char 1) (call-interactively
- 'org-insert-heading-respect-content)))
- ("^" . org-sort)
- ("w" . org-refile)
- ("a" . org-archive-subtree-default-with-confirmation)
- ("@" . org-mark-subtree)
- ("#" . org-toggle-comment)
- ("Clock Commands")
- ("I" . org-clock-in)
- ("O" . org-clock-out)
- ("Meta Data Editing")
- ("t" . org-todo)
- ("," . (org-priority))
- ("0" . (org-priority ?\ ))
- ("1" . (org-priority ?A))
- ("2" . (org-priority ?B))
- ("3" . (org-priority ?C))
- (":" . org-set-tags-command)
- ("e" . org-set-effort)
- ("E" . org-inc-effort)
- ("W" . (lambda(m) (interactive "sMinutes before warning: ")
- (org-entry-put (point) "APPT_WARNTIME" m)))
- ("Agenda Views etc")
- ("v" . org-agenda)
- ("/" . org-sparse-tree)
- ("Misc")
- ("o" . org-open-at-point)
- ("?" . org-speed-command-help)
- ("<" . (org-agenda-set-restriction-lock 'subtree))
- (">" . (org-agenda-remove-restriction-lock))
- )
- "The default speed commands.")
-
-(defun org-print-speed-command (e)
- (if (> (length (car e)) 1)
- (progn
- (princ "\n")
- (princ (car e))
- (princ "\n")
- (princ (make-string (length (car e)) ?-))
- (princ "\n"))
- (princ (car e))
- (princ " ")
- (if (symbolp (cdr e))
- (princ (symbol-name (cdr e)))
- (prin1 (cdr e)))
- (princ "\n")))
-
-(defun org-speed-command-help ()
- "Show the available speed commands."
- (interactive)
- (if (not org-use-speed-commands)
- (user-error "Speed commands are not activated, customize `org-use-speed-commands'")
- (with-output-to-temp-buffer "*Help*"
- (princ "User-defined Speed commands\n===========================\n")
- (mapc #'org-print-speed-command org-speed-commands-user)
- (princ "\n")
- (princ "Built-in Speed commands\n=======================\n")
- (mapc #'org-print-speed-command org-speed-commands-default))
- (with-current-buffer "*Help*"
- (setq truncate-lines t))))
-
-(defun org-speed-move-safe (cmd)
- "Execute CMD, but make sure that the cursor always ends up in a headline.
-If not, return to the original position and throw an error."
- (interactive)
- (let ((pos (point)))
- (call-interactively cmd)
- (unless (and (bolp) (org-at-heading-p))
- (goto-char pos)
- (error "Boundary reached while executing %s" cmd))))
-
-(defvar org-self-insert-command-undo-counter 0)
-
-(defvar org-table-auto-blank-field) ; defined in org-table.el
-(defvar org-speed-command nil)
-
-(defun org-speed-command-activate (keys)
- "Hook for activating single-letter speed commands.
-`org-speed-commands-default' specifies a minimal command set.
-Use `org-speed-commands-user' for further customization."
- (when (or (and (bolp) (looking-at org-outline-regexp))
- (and (functionp org-use-speed-commands)
- (funcall org-use-speed-commands)))
- (cdr (assoc keys (append org-speed-commands-user
- org-speed-commands-default)))))
-
-(defun org-babel-speed-command-activate (keys)
- "Hook for activating single-letter code block commands."
- (when (and (bolp) (looking-at org-babel-src-block-regexp))
- (cdr (assoc keys org-babel-key-bindings))))
-
-(defcustom org-speed-command-hook
- '(org-speed-command-activate org-babel-speed-command-activate)
- "Hook for activating speed commands at strategic locations.
-Hook functions are called in sequence until a valid handler is
-found.
-
-Each hook takes a single argument, a user-pressed command key
-which is also a `self-insert-command' from the global map.
-
-Within the hook, examine the cursor position and the command key
-and return nil or a valid handler as appropriate. Handler could
-be one of an interactive command, a function, or a form.
-
-Set `org-use-speed-commands' to non-nil value to enable this
-hook. The default setting is `org-speed-command-activate'."
- :group 'org-structure
- :version "24.1"
- :type 'hook)
-
-(defun org-self-insert-command (N)
- "Like `self-insert-command', use overwrite-mode for whitespace in tables.
-If the cursor is in a table looking at whitespace, the whitespace is
-overwritten, and the table is not marked as requiring realignment."
- (interactive "p")
- (org-check-before-invisible-edit 'insert)
- (cond
- ((and org-use-speed-commands
- (let ((kv (this-command-keys-vector)))
- (setq org-speed-command
- (run-hook-with-args-until-success
- 'org-speed-command-hook
- (make-string 1 (aref kv (1- (length kv))))))))
- (cond
- ((commandp org-speed-command)
- (setq this-command org-speed-command)
- (call-interactively org-speed-command))
- ((functionp org-speed-command)
- (funcall org-speed-command))
- ((and org-speed-command (listp org-speed-command))
- (eval org-speed-command))
- (t (let (org-use-speed-commands)
- (call-interactively 'org-self-insert-command)))))
- ((and
- (org-at-table-p)
- (eq N 1)
- (not (org-region-active-p))
- (progn
- ;; Check if we blank the field, and if that triggers align.
- (and (featurep 'org-table) org-table-auto-blank-field
- (memq last-command
- '(org-cycle org-return org-shifttab org-ctrl-c-ctrl-c))
- (if (or (eq (char-after) ?\s) (looking-at "[^|\n]* |"))
- ;; Got extra space, this field does not determine
- ;; column width.
- (let (org-table-may-need-update) (org-table-blank-field))
- ;; No extra space, this field may determine column
- ;; width.
- (org-table-blank-field)))
- t)
- (looking-at "[^|\n]* \\( \\)|"))
- ;; There is room for insertion without re-aligning the table.
- (delete-region (match-beginning 1) (match-end 1))
- (self-insert-command N))
- (t
- (setq org-table-may-need-update t)
- (self-insert-command N)
- (org-fix-tags-on-the-fly)
- (when org-self-insert-cluster-for-undo
- (if (not (eq last-command 'org-self-insert-command))
- (setq org-self-insert-command-undo-counter 1)
- (if (>= org-self-insert-command-undo-counter 20)
- (setq org-self-insert-command-undo-counter 1)
- (and (> org-self-insert-command-undo-counter 0)
- buffer-undo-list (listp buffer-undo-list)
- (not (cadr buffer-undo-list)) ; remove nil entry
- (setcdr buffer-undo-list (cddr buffer-undo-list)))
- (setq org-self-insert-command-undo-counter
- (1+ org-self-insert-command-undo-counter))))))))
-
-(defun org-check-before-invisible-edit (kind)
- "Check is editing if kind KIND would be dangerous with invisible text around.
-The detailed reaction depends on the user option `org-catch-invisible-edits'."
- ;; First, try to get out of here as quickly as possible, to reduce overhead
- (when (and org-catch-invisible-edits
- (or (not (boundp 'visible-mode)) (not visible-mode))
- (or (get-char-property (point) 'invisible)
- (get-char-property (max (point-min) (1- (point))) 'invisible)))
- ;; OK, we need to take a closer look. Do not consider
- ;; invisibility obtained through text properties (e.g., link
- ;; fontification), as it cannot be toggled.
- (let* ((invisible-at-point
- (pcase (get-char-property-and-overlay (point) 'invisible)
- (`(,_ . ,(and (pred overlayp) o)) o)))
- ;; Assume that point cannot land in the middle of an
- ;; overlay, or between two overlays.
- (invisible-before-point
- (and (not invisible-at-point)
- (not (bobp))
- (pcase (get-char-property-and-overlay (1- (point)) 'invisible)
- (`(,_ . ,(and (pred overlayp) o)) o))))
- (border-and-ok-direction
- (or
- ;; Check if we are acting predictably before invisible
- ;; text.
- (and invisible-at-point
- (memq kind '(insert delete-backward)))
- ;; Check if we are acting predictably after invisible text
- ;; This works not well, and I have turned it off. It seems
- ;; better to always show and stop after invisible text.
- ;; (and (not invisible-at-point) invisible-before-point
- ;; (memq kind '(insert delete)))
- )))
- (when (or invisible-at-point invisible-before-point)
- (when (eq org-catch-invisible-edits 'error)
- (user-error "Editing in invisible areas is prohibited, make them visible first"))
- (if (and org-custom-properties-overlays
- (y-or-n-p "Display invisible properties in this buffer? "))
- (org-toggle-custom-properties-visibility)
- ;; Make the area visible
- (save-excursion
- (when invisible-before-point
- (goto-char
- (previous-single-char-property-change (point) 'invisible)))
- ;; Remove whatever overlay is currently making yet-to-be
- ;; edited text invisible. Also remove nested invisibility
- ;; related overlays.
- (delete-overlay (or invisible-at-point invisible-before-point))
- (let ((origin (if invisible-at-point (point) (1- (point)))))
- (while (pcase (get-char-property-and-overlay origin 'invisible)
- (`(,_ . ,(and (pred overlayp) o))
- (delete-overlay o)
- t)))))
- (cond
- ((eq org-catch-invisible-edits 'show)
- ;; That's it, we do the edit after showing
- (message
- "Unfolding invisible region around point before editing")
- (sit-for 1))
- ((and (eq org-catch-invisible-edits 'smart)
- border-and-ok-direction)
- (message "Unfolding invisible region around point before editing"))
- (t
- ;; Don't do the edit, make the user repeat it in full visibility
- (user-error "Edit in invisible region aborted, repeat to confirm with text visible"))))))))
-
-(defun org-fix-tags-on-the-fly ()
- "Align tags in headline at point.
-Unlike to `org-set-tags', it ignores region and sorting."
- (when (and (eq (char-after (line-beginning-position)) ?*) ;short-circuit
- (org-at-heading-p))
- (let ((org-ignore-region t)
- (org-tags-sort-function nil))
- (org-set-tags nil t))))
-
-(defun org-delete-backward-char (N)
- "Like `delete-backward-char', insert whitespace at field end in tables.
-When deleting backwards, in tables this function will insert whitespace in
-front of the next \"|\" separator, to keep the table aligned. The table will
-still be marked for re-alignment if the field did fill the entire column,
-because, in this case the deletion might narrow the column."
- (interactive "p")
- (save-match-data
- (org-check-before-invisible-edit 'delete-backward)
- (if (and (org-at-table-p)
- (eq N 1)
- (not (org-region-active-p))
- (string-match "|" (buffer-substring (point-at-bol) (point)))
- (looking-at ".*?|"))
- (let ((pos (point))
- (noalign (looking-at "[^|\n\r]* |"))
- (c org-table-may-need-update))
- (backward-delete-char N)
- (unless overwrite-mode
- (skip-chars-forward "^|")
- (insert " ")
- (goto-char (1- pos)))
- ;; noalign: if there were two spaces at the end, this field
- ;; does not determine the width of the column.
- (when noalign (setq org-table-may-need-update c)))
- (backward-delete-char N)
- (org-fix-tags-on-the-fly))))
-
-(defun org-delete-char (N)
- "Like `delete-char', but insert whitespace at field end in tables.
-When deleting characters, in tables this function will insert whitespace in
-front of the next \"|\" separator, to keep the table aligned. The table will
-still be marked for re-alignment if the field did fill the entire column,
-because, in this case the deletion might narrow the column."
- (interactive "p")
- (save-match-data
- (org-check-before-invisible-edit 'delete)
- (if (and (org-at-table-p)
- (not (bolp))
- (not (= (char-after) ?|))
- (eq N 1))
- (if (looking-at ".*?|")
- (let ((pos (point))
- (noalign (looking-at "[^|\n\r]* |"))
- (c org-table-may-need-update))
- (replace-match
- (concat (substring (match-string 0) 1 -1) " |") nil t)
- (goto-char pos)
- ;; noalign: if there were two spaces at the end, this field
- ;; does not determine the width of the column.
- (when noalign (setq org-table-may-need-update c)))
- (delete-char N))
- (delete-char N)
- (org-fix-tags-on-the-fly))))
-
-;; Make `delete-selection-mode' work with Org mode and Orgtbl mode
-(put 'org-self-insert-command 'delete-selection
- (lambda ()
- (not (run-hook-with-args-until-success
- 'self-insert-uses-region-functions))))
-(put 'orgtbl-self-insert-command 'delete-selection
- (lambda ()
- (not (run-hook-with-args-until-success
- 'self-insert-uses-region-functions))))
-(put 'org-delete-char 'delete-selection 'supersede)
-(put 'org-delete-backward-char 'delete-selection 'supersede)
-(put 'org-yank 'delete-selection 'yank)
-
-;; Make `flyspell-mode' delay after some commands
-(put 'org-self-insert-command 'flyspell-delayed t)
-(put 'orgtbl-self-insert-command 'flyspell-delayed t)
-(put 'org-delete-char 'flyspell-delayed t)
-(put 'org-delete-backward-char 'flyspell-delayed t)
-
-;; Make pabbrev-mode expand after Org mode commands
-(put 'org-self-insert-command 'pabbrev-expand-after-command t)
-(put 'orgtbl-self-insert-command 'pabbrev-expand-after-command t)
-
-(defun org-transpose-words ()
- "Transpose words for Org.
-This uses the `org-mode-transpose-word-syntax-table' syntax
-table, which interprets characters in `org-emphasis-alist' as
-word constituents."
- (interactive)
- (with-syntax-table org-mode-transpose-word-syntax-table
- (call-interactively 'transpose-words)))
-(org-remap org-mode-map 'transpose-words 'org-transpose-words)
-
-(defvar org-ctrl-c-ctrl-c-hook nil
- "Hook for functions attaching themselves to `C-c C-c'.
-
-This can be used to add additional functionality to the C-c C-c
-key which executes context-dependent commands. This hook is run
-before any other test, while `org-ctrl-c-ctrl-c-final-hook' is
-run after the last test.
-
-Each function will be called with no arguments. The function
-must check if the context is appropriate for it to act. If yes,
-it should do its thing and then return a non-nil value. If the
-context is wrong, just do nothing and return nil.")
-
-(defvar org-ctrl-c-ctrl-c-final-hook nil
- "Hook for functions attaching themselves to `C-c C-c'.
-
-This can be used to add additional functionality to the C-c C-c
-key which executes context-dependent commands. This hook is run
-after any other test, while `org-ctrl-c-ctrl-c-hook' is run
-before the first test.
-
-Each function will be called with no arguments. The function
-must check if the context is appropriate for it to act. If yes,
-it should do its thing and then return a non-nil value. If the
-context is wrong, just do nothing and return nil.")
-
-(defvar org-tab-first-hook nil
- "Hook for functions to attach themselves to TAB.
-See `org-ctrl-c-ctrl-c-hook' for more information.
-This hook runs as the first action when TAB is pressed, even before
-`org-cycle' messes around with the `outline-regexp' to cater for
-inline tasks and plain list item folding.
-If any function in this hook returns t, any other actions that
-would have been caused by TAB (such as table field motion or visibility
-cycling) will not occur.")
-
-(defvar org-tab-after-check-for-table-hook nil
- "Hook for functions to attach themselves to TAB.
-See `org-ctrl-c-ctrl-c-hook' for more information.
-This hook runs after it has been established that the cursor is not in a
-table, but before checking if the cursor is in a headline or if global cycling
-should be done.
-If any function in this hook returns t, not other actions like visibility
-cycling will be done.")
-
-(defvar org-tab-after-check-for-cycling-hook nil
- "Hook for functions to attach themselves to TAB.
-See `org-ctrl-c-ctrl-c-hook' for more information.
-This hook runs after it has been established that not table field motion and
-not visibility should be done because of current context. This is probably
-the place where a package like yasnippets can hook in.")
-
-(defvar org-tab-before-tab-emulation-hook nil
- "Hook for functions to attach themselves to TAB.
-See `org-ctrl-c-ctrl-c-hook' for more information.
-This hook runs after every other options for TAB have been exhausted, but
-before indentation and \t insertion takes place.")
-
-(defvar org-metaleft-hook nil
- "Hook for functions attaching themselves to `M-left'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-metaright-hook nil
- "Hook for functions attaching themselves to `M-right'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-metaup-hook nil
- "Hook for functions attaching themselves to `M-up'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-metadown-hook nil
- "Hook for functions attaching themselves to `M-down'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftmetaleft-hook nil
- "Hook for functions attaching themselves to `M-S-left'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftmetaright-hook nil
- "Hook for functions attaching themselves to `M-S-right'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftmetaup-hook nil
- "Hook for functions attaching themselves to `M-S-up'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftmetadown-hook nil
- "Hook for functions attaching themselves to `M-S-down'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-metareturn-hook nil
- "Hook for functions attaching themselves to `M-RET'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftup-hook nil
- "Hook for functions attaching themselves to `S-up'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftup-final-hook nil
- "Hook for functions attaching themselves to `S-up'.
-This one runs after all other options except shift-select have been excluded.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftdown-hook nil
- "Hook for functions attaching themselves to `S-down'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftdown-final-hook nil
- "Hook for functions attaching themselves to `S-down'.
-This one runs after all other options except shift-select have been excluded.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftleft-hook nil
- "Hook for functions attaching themselves to `S-left'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftleft-final-hook nil
- "Hook for functions attaching themselves to `S-left'.
-This one runs after all other options except shift-select have been excluded.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftright-hook nil
- "Hook for functions attaching themselves to `S-right'.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-(defvar org-shiftright-final-hook nil
- "Hook for functions attaching themselves to `S-right'.
-This one runs after all other options except shift-select have been excluded.
-See `org-ctrl-c-ctrl-c-hook' for more information.")
-
-(defun org-modifier-cursor-error ()
- "Throw an error, a modified cursor command was applied in wrong context."
- (user-error "This command is active in special context like tables, headlines or items"))
-
-(defun org-shiftselect-error ()
- "Throw an error because Shift-Cursor command was applied in wrong context."
- (if (and (boundp 'shift-select-mode) shift-select-mode)
- (user-error "To use shift-selection with Org mode, customize `org-support-shift-select'")
- (user-error "This command works only in special context like headlines or timestamps")))
-
-(defun org-call-for-shift-select (cmd)
- (let ((this-command-keys-shift-translated t))
- (call-interactively cmd)))
-
-(defun org-shifttab (&optional arg)
- "Global visibility cycling or move to previous table field.
-Call `org-table-previous-field' within a table.
-When ARG is nil, cycle globally through visibility states.
-When ARG is a numeric prefix, show contents of this level."
- (interactive "P")
- (cond
- ((org-at-table-p) (call-interactively 'org-table-previous-field))
- ((integerp arg)
- (let ((arg2 (if org-odd-levels-only (1- (* 2 arg)) arg)))
- (message "Content view to level: %d" arg)
- (org-content (prefix-numeric-value arg2))
- (org-cycle-show-empty-lines t)
- (setq org-cycle-global-status 'overview)))
- (t (call-interactively 'org-global-cycle))))
-
-(defun org-shiftmetaleft ()
- "Promote subtree or delete table column.
-Calls `org-promote-subtree', `org-outdent-item-tree', or
-`org-table-delete-column', depending on context. See the
-individual commands for more information."
- (interactive)
- (cond
- ((run-hook-with-args-until-success 'org-shiftmetaleft-hook))
- ((org-at-table-p) (call-interactively 'org-table-delete-column))
- ((org-at-heading-p) (call-interactively 'org-promote-subtree))
- ((if (not (org-region-active-p)) (org-at-item-p)
- (save-excursion (goto-char (region-beginning))
- (org-at-item-p)))
- (call-interactively 'org-outdent-item-tree))
- (t (org-modifier-cursor-error))))
-
-(defun org-shiftmetaright ()
- "Demote subtree or insert table column.
-Calls `org-demote-subtree', `org-indent-item-tree', or
-`org-table-insert-column', depending on context. See the
-individual commands for more information."
- (interactive)
- (cond
- ((run-hook-with-args-until-success 'org-shiftmetaright-hook))
- ((org-at-table-p) (call-interactively 'org-table-insert-column))
- ((org-at-heading-p) (call-interactively 'org-demote-subtree))
- ((if (not (org-region-active-p)) (org-at-item-p)
- (save-excursion (goto-char (region-beginning))
- (org-at-item-p)))
- (call-interactively 'org-indent-item-tree))
- (t (org-modifier-cursor-error))))
-
-(defun org-shiftmetaup (&optional _arg)
- "Drag the line at point up.
-In a table, kill the current row.
-On a clock timestamp, update the value of the timestamp like `S-<up>'
-but also adjust the previous clocked item in the clock history.
-Everywhere else, drag the line at point up."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-shiftmetaup-hook))
- ((org-at-table-p) (call-interactively 'org-table-kill-row))
- ((org-at-clock-log-p) (let ((org-clock-adjust-closest t))
- (call-interactively 'org-timestamp-up)))
- (t (call-interactively 'org-drag-line-backward))))
-
-(defun org-shiftmetadown (&optional _arg)
- "Drag the line at point down.
-In a table, insert an empty row at the current line.
-On a clock timestamp, update the value of the timestamp like `S-<down>'
-but also adjust the previous clocked item in the clock history.
-Everywhere else, drag the line at point down."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-shiftmetadown-hook))
- ((org-at-table-p) (call-interactively 'org-table-insert-row))
- ((org-at-clock-log-p) (let ((org-clock-adjust-closest t))
- (call-interactively 'org-timestamp-down)))
- (t (call-interactively 'org-drag-line-forward))))
-
-(defsubst org-hidden-tree-error ()
- (user-error
- "Hidden subtree, open with TAB or use subtree command M-S-<left>/<right>"))
-
-(defun org-metaleft (&optional _arg)
- "Promote heading, list item at point or move table column left.
-
-Calls `org-do-promote', `org-outdent-item' or `org-table-move-column',
-depending on context. With no specific context, calls the Emacs
-default `backward-word'. See the individual commands for more
-information.
-
-This function runs the hook `org-metaleft-hook' as a first step,
-and returns at first non-nil value."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-metaleft-hook))
- ((org-at-table-p) (org-call-with-arg 'org-table-move-column 'left))
- ((org-with-limited-levels
- (or (org-at-heading-p)
- (and (org-region-active-p)
- (save-excursion
- (goto-char (region-beginning))
- (org-at-heading-p)))))
- (when (org-check-for-hidden 'headlines) (org-hidden-tree-error))
- (call-interactively 'org-do-promote))
- ;; At an inline task.
- ((org-at-heading-p)
- (call-interactively 'org-inlinetask-promote))
- ((or (org-at-item-p)
- (and (org-region-active-p)
- (save-excursion
- (goto-char (region-beginning))
- (org-at-item-p))))
- (when (org-check-for-hidden 'items) (org-hidden-tree-error))
- (call-interactively 'org-outdent-item))
- (t (call-interactively 'backward-word))))
-
-(defun org-metaright (&optional _arg)
- "Demote heading, list item at point or move table column right.
-
-In front of a drawer or a block keyword, indent it correctly.
-
-Calls `org-do-demote', `org-indent-item', `org-table-move-column',
-`org-indent-drawer' or `org-indent-block' depending on context.
-With no specific context, calls the Emacs default `forward-word'.
-See the individual commands for more information.
-
-This function runs the hook `org-metaright-hook' as a first step,
-and returns at first non-nil value."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-metaright-hook))
- ((org-at-table-p) (call-interactively 'org-table-move-column))
- ((org-at-drawer-p) (call-interactively 'org-indent-drawer))
- ((org-at-block-p) (call-interactively 'org-indent-block))
- ((org-with-limited-levels
- (or (org-at-heading-p)
- (and (org-region-active-p)
- (save-excursion
- (goto-char (region-beginning))
- (org-at-heading-p)))))
- (when (org-check-for-hidden 'headlines) (org-hidden-tree-error))
- (call-interactively 'org-do-demote))
- ;; At an inline task.
- ((org-at-heading-p)
- (call-interactively 'org-inlinetask-demote))
- ((or (org-at-item-p)
- (and (org-region-active-p)
- (save-excursion
- (goto-char (region-beginning))
- (org-at-item-p))))
- (when (org-check-for-hidden 'items) (org-hidden-tree-error))
- (call-interactively 'org-indent-item))
- (t (call-interactively 'forward-word))))
-
-(defun org-check-for-hidden (what)
- "Check if there are hidden headlines/items in the current visual line.
-WHAT can be either `headlines' or `items'. If the current line is
-an outline or item heading and it has a folded subtree below it,
-this function returns t, nil otherwise."
- (let ((re (cond
- ((eq what 'headlines) org-outline-regexp-bol)
- ((eq what 'items) (org-item-beginning-re))
- (t (error "This should not happen"))))
- beg end)
- (save-excursion
- (catch 'exit
- (unless (org-region-active-p)
- (setq beg (point-at-bol))
- (beginning-of-line 2)
- (while (and (not (eobp)) ;; this is like `next-line'
- (get-char-property (1- (point)) 'invisible))
- (beginning-of-line 2))
- (setq end (point))
- (goto-char beg)
- (goto-char (point-at-eol))
- (setq end (max end (point)))
- (while (re-search-forward re end t)
- (when (get-char-property (match-beginning 0) 'invisible)
- (throw 'exit t))))
- nil))))
-
-(defun org-metaup (&optional _arg)
- "Move subtree up or move table row up.
-Calls `org-move-subtree-up' or `org-table-move-row' or
-`org-move-item-up', depending on context. See the individual commands
-for more information."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-metaup-hook))
- ((org-region-active-p)
- (let* ((a (min (region-beginning) (region-end)))
- (b (1- (max (region-beginning) (region-end))))
- (c (save-excursion (goto-char a)
- (move-beginning-of-line 0)))
- (d (save-excursion (goto-char a)
- (move-end-of-line 0) (point))))
- (transpose-regions a b c d)
- (goto-char c)))
- ((org-at-table-p) (org-call-with-arg 'org-table-move-row 'up))
- ((org-at-heading-p) (call-interactively 'org-move-subtree-up))
- ((org-at-item-p) (call-interactively 'org-move-item-up))
- (t (org-drag-element-backward))))
-
-(defun org-metadown (&optional _arg)
- "Move subtree down or move table row down.
-Calls `org-move-subtree-down' or `org-table-move-row' or
-`org-move-item-down', depending on context. See the individual
-commands for more information."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-metadown-hook))
- ((org-region-active-p)
- (let* ((a (min (region-beginning) (region-end)))
- (b (max (region-beginning) (region-end)))
- (c (save-excursion (goto-char b)
- (move-beginning-of-line 1)))
- (d (save-excursion (goto-char b)
- (move-end-of-line 1) (1+ (point)))))
- (transpose-regions a b c d)
- (goto-char d)))
- ((org-at-table-p) (call-interactively 'org-table-move-row))
- ((org-at-heading-p) (call-interactively 'org-move-subtree-down))
- ((org-at-item-p) (call-interactively 'org-move-item-down))
- (t (org-drag-element-forward))))
-
-(defun org-shiftup (&optional arg)
- "Increase item in timestamp or increase priority of current headline.
-Calls `org-timestamp-up' or `org-priority-up', or `org-previous-item',
-depending on context. See the individual commands for more information."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-shiftup-hook))
- ((and org-support-shift-select (org-region-active-p))
- (org-call-for-shift-select 'previous-line))
- ((org-at-timestamp-p 'lax)
- (call-interactively (if org-edit-timestamp-down-means-later
- 'org-timestamp-down 'org-timestamp-up)))
- ((and (not (eq org-support-shift-select 'always))
- org-enable-priority-commands
- (org-at-heading-p))
- (call-interactively 'org-priority-up))
- ((and (not org-support-shift-select) (org-at-item-p))
- (call-interactively 'org-previous-item))
- ((org-clocktable-try-shift 'up arg))
- ((run-hook-with-args-until-success 'org-shiftup-final-hook))
- (org-support-shift-select
- (org-call-for-shift-select 'previous-line))
- (t (org-shiftselect-error))))
-
-(defun org-shiftdown (&optional arg)
- "Decrease item in timestamp or decrease priority of current headline.
-Calls `org-timestamp-down' or `org-priority-down', or `org-next-item'
-depending on context. See the individual commands for more information."
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-shiftdown-hook))
- ((and org-support-shift-select (org-region-active-p))
- (org-call-for-shift-select 'next-line))
- ((org-at-timestamp-p 'lax)
- (call-interactively (if org-edit-timestamp-down-means-later
- 'org-timestamp-up 'org-timestamp-down)))
- ((and (not (eq org-support-shift-select 'always))
- org-enable-priority-commands
- (org-at-heading-p))
- (call-interactively 'org-priority-down))
- ((and (not org-support-shift-select) (org-at-item-p))
- (call-interactively 'org-next-item))
- ((org-clocktable-try-shift 'down arg))
- ((run-hook-with-args-until-success 'org-shiftdown-final-hook))
- (org-support-shift-select
- (org-call-for-shift-select 'next-line))
- (t (org-shiftselect-error))))
-
-(defun org-shiftright (&optional arg)
- "Cycle the thing at point or in the current line, depending on context.
-Depending on context, this does one of the following:
-
-- switch a timestamp at point one day into the future
-- on a headline, switch to the next TODO keyword.
-- on an item, switch entire list to the next bullet type
-- on a property line, switch to the next allowed value
-- on a clocktable definition line, move time block into the future"
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-shiftright-hook))
- ((and org-support-shift-select (org-region-active-p))
- (org-call-for-shift-select 'forward-char))
- ((org-at-timestamp-p 'lax) (call-interactively 'org-timestamp-up-day))
- ((and (not (eq org-support-shift-select 'always))
- (org-at-heading-p))
- (let ((org-inhibit-logging
- (not org-treat-S-cursor-todo-selection-as-state-change))
- (org-inhibit-blocking
- (not org-treat-S-cursor-todo-selection-as-state-change)))
- (org-call-with-arg 'org-todo 'right)))
- ((or (and org-support-shift-select
- (not (eq org-support-shift-select 'always))
- (org-at-item-bullet-p))
- (and (not org-support-shift-select) (org-at-item-p)))
- (org-call-with-arg 'org-cycle-list-bullet nil))
- ((and (not (eq org-support-shift-select 'always))
- (org-at-property-p))
- (call-interactively 'org-property-next-allowed-value))
- ((org-clocktable-try-shift 'right arg))
- ((run-hook-with-args-until-success 'org-shiftright-final-hook))
- (org-support-shift-select
- (org-call-for-shift-select 'forward-char))
- (t (org-shiftselect-error))))
-
-(defun org-shiftleft (&optional arg)
- "Cycle the thing at point or in the current line, depending on context.
-Depending on context, this does one of the following:
-
-- switch a timestamp at point one day into the past
-- on a headline, switch to the previous TODO keyword.
-- on an item, switch entire list to the previous bullet type
-- on a property line, switch to the previous allowed value
-- on a clocktable definition line, move time block into the past"
- (interactive "P")
- (cond
- ((run-hook-with-args-until-success 'org-shiftleft-hook))
- ((and org-support-shift-select (org-region-active-p))
- (org-call-for-shift-select 'backward-char))
- ((org-at-timestamp-p 'lax) (call-interactively 'org-timestamp-down-day))
- ((and (not (eq org-support-shift-select 'always))
- (org-at-heading-p))
- (let ((org-inhibit-logging
- (not org-treat-S-cursor-todo-selection-as-state-change))
- (org-inhibit-blocking
- (not org-treat-S-cursor-todo-selection-as-state-change)))
- (org-call-with-arg 'org-todo 'left)))
- ((or (and org-support-shift-select
- (not (eq org-support-shift-select 'always))
- (org-at-item-bullet-p))
- (and (not org-support-shift-select) (org-at-item-p)))
- (org-call-with-arg 'org-cycle-list-bullet 'previous))
- ((and (not (eq org-support-shift-select 'always))
- (org-at-property-p))
- (call-interactively 'org-property-previous-allowed-value))
- ((org-clocktable-try-shift 'left arg))
- ((run-hook-with-args-until-success 'org-shiftleft-final-hook))
- (org-support-shift-select
- (org-call-for-shift-select 'backward-char))
- (t (org-shiftselect-error))))
-
-(defun org-shiftcontrolright ()
- "Switch to next TODO set."
- (interactive)
- (cond
- ((and org-support-shift-select (org-region-active-p))
- (org-call-for-shift-select 'forward-word))
- ((and (not (eq org-support-shift-select 'always))
- (org-at-heading-p))
- (org-call-with-arg 'org-todo 'nextset))
- (org-support-shift-select
- (org-call-for-shift-select 'forward-word))
- (t (org-shiftselect-error))))
-
-(defun org-shiftcontrolleft ()
- "Switch to previous TODO set."
- (interactive)
- (cond
- ((and org-support-shift-select (org-region-active-p))
- (org-call-for-shift-select 'backward-word))
- ((and (not (eq org-support-shift-select 'always))
- (org-at-heading-p))
- (org-call-with-arg 'org-todo 'previousset))
- (org-support-shift-select
- (org-call-for-shift-select 'backward-word))
- (t (org-shiftselect-error))))
-
-(defun org-shiftcontrolup (&optional n)
- "Change timestamps synchronously up in CLOCK log lines.
-Optional argument N tells to change by that many units."
- (interactive "P")
- (if (and (org-at-clock-log-p) (org-at-timestamp-p 'lax))
- (let (org-support-shift-select)
- (org-clock-timestamps-up n))
- (user-error "Not at a clock log")))
-
-(defun org-shiftcontroldown (&optional n)
- "Change timestamps synchronously down in CLOCK log lines.
-Optional argument N tells to change by that many units."
- (interactive "P")
- (if (and (org-at-clock-log-p) (org-at-timestamp-p 'lax))
- (let (org-support-shift-select)
- (org-clock-timestamps-down n))
- (user-error "Not at a clock log")))
-
-(defun org-increase-number-at-point (&optional inc)
- "Increment the number at point.
-With an optional prefix numeric argument INC, increment using
-this numeric value."
- (interactive "p")
- (if (not (number-at-point))
- (user-error "Not on a number")
- (unless inc (setq inc 1))
- (let ((pos (point))
- (beg (skip-chars-backward "-+^/*0-9eE."))
- (end (skip-chars-forward "-+^/*0-9eE^.")) nap)
- (setq nap (buffer-substring-no-properties
- (+ pos beg) (+ pos beg end)))
- (delete-region (+ pos beg) (+ pos beg end))
- (insert (calc-eval (concat (number-to-string inc) "+" nap))))
- (when (org-at-table-p)
- (org-table-align)
- (org-table-end-of-field 1))))
-
-(defun org-decrease-number-at-point (&optional inc)
- "Decrement the number at point.
-With an optional prefix numeric argument INC, decrement using
-this numeric value."
- (interactive "p")
- (org-increase-number-at-point (- (or inc 1))))
-
-(defun org-ctrl-c-ret ()
- "Call `org-table-hline-and-move' or `org-insert-heading' dep. on context."
- (interactive)
- (cond
- ((org-at-table-p) (call-interactively 'org-table-hline-and-move))
- (t (call-interactively 'org-insert-heading))))
-
-(defun org-find-visible ()
- (let ((s (point)))
- (while (and (not (= (point-max) (setq s (next-overlay-change s))))
- (get-char-property s 'invisible)))
- s))
-(defun org-find-invisible ()
- (let ((s (point)))
- (while (and (not (= (point-max) (setq s (next-overlay-change s))))
- (not (get-char-property s 'invisible))))
- s))
-
-(defun org-copy-visible (beg end)
- "Copy the visible parts of the region."
- (interactive "r")
- (let ((result ""))
- (while (/= beg end)
- (when (get-char-property beg 'invisible)
- (setq beg (next-single-char-property-change beg 'invisible nil end)))
- (let ((next (next-single-char-property-change beg 'invisible nil end)))
- (setq result (concat result (buffer-substring beg next)))
- (setq beg next)))
- (kill-new result)))
-
-(defun org-copy-special ()
- "Copy region in table or copy current subtree.
-Calls `org-table-copy-region' or `org-copy-subtree', depending on
-context. See the individual commands for more information."
- (interactive)
- (call-interactively
- (if (org-at-table-p) #'org-table-copy-region #'org-copy-subtree)))
-
-(defun org-cut-special ()
- "Cut region in table or cut current subtree.
-Calls `org-table-cut-region' or `org-cut-subtree', depending on
-context. See the individual commands for more information."
- (interactive)
- (call-interactively
- (if (org-at-table-p) #'org-table-cut-region #'org-cut-subtree)))
-
-(defun org-paste-special (arg)
- "Paste rectangular region into table, or past subtree relative to level.
-Calls `org-table-paste-rectangle' or `org-paste-subtree', depending on context.
-See the individual commands for more information."
- (interactive "P")
- (if (org-at-table-p)
- (org-table-paste-rectangle)
- (org-paste-subtree arg)))
-
-(defun org-edit-special (&optional arg)
- "Call a special editor for the element at point.
-When at a table, call the formula editor with `org-table-edit-formulas'.
-When in a source code block, call `org-edit-src-code'.
-When in a fixed-width region, call `org-edit-fixed-width-region'.
-When in an export block, call `org-edit-export-block'.
-When in a LaTeX environment, call `org-edit-latex-environment'.
-When at an #+INCLUDE keyword, visit the included file.
-When at a footnote reference, call `org-edit-footnote-reference'
-On a link, call `ffap' to visit the link at point.
-Otherwise, return a user error."
- (interactive "P")
- (let ((element (org-element-at-point)))
- (barf-if-buffer-read-only)
- (pcase (org-element-type element)
- (`src-block
- (if (not arg) (org-edit-src-code)
- (let* ((info (org-babel-get-src-block-info))
- (lang (nth 0 info))
- (params (nth 2 info))
- (session (cdr (assq :session params))))
- (if (not session) (org-edit-src-code)
- ;; At a src-block with a session and function called with
- ;; an ARG: switch to the buffer related to the inferior
- ;; process.
- (switch-to-buffer
- (funcall (intern (concat "org-babel-prep-session:" lang))
- session params))))))
- (`keyword
- (if (member (org-element-property :key element) '("INCLUDE" "SETUPFILE"))
- (org-open-link-from-string
- (format "[[%s]]"
- (expand-file-name
- (let ((value (org-element-property :value element)))
- (cond ((org-file-url-p value)
- (user-error "The file is specified as a URL, cannot be edited"))
- ((not (org-string-nw-p value))
- (user-error "No file to edit"))
- ((string-match "\\`\"\\(.*?\\)\"" value)
- (match-string 1 value))
- ((string-match "\\`[^ \t\"]\\S-*" value)
- (match-string 0 value))
- (t (user-error "No valid file specified")))))))
- (user-error "No special environment to edit here")))
- (`table
- (if (eq (org-element-property :type element) 'table.el)
- (org-edit-table.el)
- (call-interactively 'org-table-edit-formulas)))
- ;; Only Org tables contain `table-row' type elements.
- (`table-row (call-interactively 'org-table-edit-formulas))
- (`example-block (org-edit-src-code))
- (`export-block (org-edit-export-block))
- (`fixed-width (org-edit-fixed-width-region))
- (`latex-environment (org-edit-latex-environment))
- (_
- ;; No notable element at point. Though, we may be at a link or
- ;; a footnote reference, which are objects. Thus, scan deeper.
- (let ((context (org-element-context element)))
- (pcase (org-element-type context)
- (`footnote-reference (org-edit-footnote-reference))
- (`inline-src-block (org-edit-inline-src-code))
- (`link (call-interactively #'ffap))
- (_ (user-error "No special environment to edit here"))))))))
-
-(defvar org-table-coordinate-overlays) ; defined in org-table.el
-(defun org-ctrl-c-ctrl-c (&optional arg)
- "Set tags in headline, or update according to changed information at point.
-
-This command does many different things, depending on context:
-
-- If a function in `org-ctrl-c-ctrl-c-hook' recognizes this location,
- this is what we do.
-
-- If the cursor is on a statistics cookie, update it.
-
-- If the cursor is in a headline, prompt for tags and insert them
- into the current line, aligned to `org-tags-column'. When called
- with prefix arg, realign all tags in the current buffer.
-
-- If the cursor is in one of the special #+KEYWORD lines, this
- triggers scanning the buffer for these lines and updating the
- information.
-
-- If the cursor is inside a table, realign the table. This command
- works even if the automatic table editor has been turned off.
-
-- If the cursor is on a #+TBLFM line, re-apply the formulas to
- the entire table.
-
-- If the cursor is at a footnote reference or definition, jump to
- the corresponding definition or references, respectively.
-
-- If the cursor is a the beginning of a dynamic block, update it.
-
-- If the current buffer is a capture buffer, close note and file it.
-
-- If the cursor is on a <<<target>>>, update radio targets and
- corresponding links in this buffer.
-
-- If the cursor is on a numbered item in a plain list, renumber the
- ordered list.
-
-- If the cursor is on a checkbox, toggle it.
-
-- If the cursor is on a code block, evaluate it. The variable
- `org-confirm-babel-evaluate' can be used to control prompting
- before code block evaluation, by default every code block
- evaluation requires confirmation. Code block evaluation can be
- inhibited by setting `org-babel-no-eval-on-ctrl-c-ctrl-c'."
- (interactive "P")
- (cond
- ((or (bound-and-true-p org-clock-overlays) org-occur-highlights)
- (when (boundp 'org-clock-overlays) (org-clock-remove-overlays))
- (org-remove-occur-highlights)
- (message "Temporary highlights/overlays removed from current buffer"))
- ((and (local-variable-p 'org-finish-function)
- (fboundp org-finish-function))
- (funcall org-finish-function))
- ((org-babel-hash-at-point))
- ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-hook))
- (t
- (let* ((context
- (org-element-lineage
- (org-element-context)
- ;; Limit to supported contexts.
- '(babel-call clock dynamic-block footnote-definition
- footnote-reference inline-babel-call inline-src-block
- inlinetask item keyword node-property paragraph
- plain-list planning property-drawer radio-target
- src-block statistics-cookie table table-cell table-row
- timestamp)
- t))
- (type (org-element-type context)))
- ;; For convenience: at the first line of a paragraph on the same
- ;; line as an item, apply function on that item instead.
- (when (eq type 'paragraph)
- (let ((parent (org-element-property :parent context)))
- (when (and (eq (org-element-type parent) 'item)
- (= (line-beginning-position)
- (org-element-property :begin parent)))
- (setq context parent)
- (setq type 'item))))
- ;; Act according to type of element or object at point.
- ;;
- ;; Do nothing on a blank line, except if it is contained in
- ;; a src block. Hence, we first check if point is in such
- ;; a block and then if it is at a blank line.
- (pcase type
- ((or `inline-src-block `src-block)
- (unless org-babel-no-eval-on-ctrl-c-ctrl-c
- (org-babel-eval-wipe-error-buffer)
- (org-babel-execute-src-block
- current-prefix-arg (org-babel-get-src-block-info nil context))))
- ((guard (org-match-line "[ \t]*$"))
- (or (run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook)
- (user-error
- (substitute-command-keys
- "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))
- ((or `babel-call `inline-babel-call)
- (let ((info (org-babel-lob-get-info context)))
- (when info (org-babel-execute-src-block nil info))))
- (`clock (org-clock-update-time-maybe))
- (`dynamic-block
- (save-excursion
- (goto-char (org-element-property :post-affiliated context))
- (org-update-dblock)))
- (`footnote-definition
- (goto-char (org-element-property :post-affiliated context))
- (call-interactively 'org-footnote-action))
- (`footnote-reference (call-interactively #'org-footnote-action))
- ((or `headline `inlinetask)
- (save-excursion (goto-char (org-element-property :begin context))
- (call-interactively #'org-set-tags)))
- (`item
- ;; At an item: `C-u C-u' sets checkbox to "[-]"
- ;; unconditionally, whereas `C-u' will toggle its presence.
- ;; Without a universal argument, if the item has a checkbox,
- ;; toggle it. Otherwise repair the list.
- (let* ((box (org-element-property :checkbox context))
- (struct (org-element-property :structure context))
- (old-struct (copy-tree struct))
- (parents (org-list-parents-alist struct))
- (prevs (org-list-prevs-alist struct))
- (orderedp (org-not-nil (org-entry-get nil "ORDERED"))))
- (org-list-set-checkbox
- (org-element-property :begin context) struct
- (cond ((equal arg '(16)) "[-]")
- ((and (not box) (equal arg '(4))) "[ ]")
- ((or (not box) (equal arg '(4))) nil)
- ((eq box 'on) "[ ]")
- (t "[X]")))
- ;; Mimic `org-list-write-struct' but with grabbing a return
- ;; value from `org-list-struct-fix-box'.
- (org-list-struct-fix-ind struct parents 2)
- (org-list-struct-fix-item-end struct)
- (org-list-struct-fix-bul struct prevs)
- (org-list-struct-fix-ind struct parents)
- (let ((block-item
- (org-list-struct-fix-box struct parents prevs orderedp)))
- (if (and box (equal struct old-struct))
- (if (equal arg '(16))
- (message "Checkboxes already reset")
- (user-error "Cannot toggle this checkbox: %s"
- (if (eq box 'on)
- "all subitems checked"
- "unchecked subitems")))
- (org-list-struct-apply-struct struct old-struct)
- (org-update-checkbox-count-maybe))
- (when block-item
- (message "Checkboxes were removed due to empty box at line %d"
- (org-current-line block-item))))))
- (`keyword
- (let ((org-inhibit-startup-visibility-stuff t)
- (org-startup-align-all-tables nil))
- (when (boundp 'org-table-coordinate-overlays)
- (mapc #'delete-overlay org-table-coordinate-overlays)
- (setq org-table-coordinate-overlays nil))
- (org-save-outline-visibility 'use-markers (org-mode-restart)))
- (message "Local setup has been refreshed"))
- (`plain-list
- ;; At a plain list, with a double C-u argument, set
- ;; checkboxes of each item to "[-]", whereas a single one
- ;; will toggle their presence according to the state of the
- ;; first item in the list. Without an argument, repair the
- ;; list.
- (let* ((begin (org-element-property :contents-begin context))
- (beginm (move-marker (make-marker) begin))
- (struct (org-element-property :structure context))
- (old-struct (copy-tree struct))
- (first-box (save-excursion
- (goto-char begin)
- (looking-at org-list-full-item-re)
- (match-string-no-properties 3)))
- (new-box (cond ((equal arg '(16)) "[-]")
- ((equal arg '(4)) (unless first-box "[ ]"))
- ((equal first-box "[X]") "[ ]")
- (t "[X]"))))
- (cond
- (arg
- (dolist (pos
- (org-list-get-all-items
- begin struct (org-list-prevs-alist struct)))
- (org-list-set-checkbox pos struct new-box)))
- ((and first-box (eq (point) begin))
- ;; For convenience, when point is at bol on the first
- ;; item of the list and no argument is provided, simply
- ;; toggle checkbox of that item, if any.
- (org-list-set-checkbox begin struct new-box)))
- (org-list-write-struct
- struct (org-list-parents-alist struct) old-struct)
- (org-update-checkbox-count-maybe)
- (save-excursion (goto-char beginm) (org-list-send-list 'maybe))))
- ((or `property-drawer `node-property)
- (call-interactively #'org-property-action))
- (`radio-target
- (call-interactively #'org-update-radio-target-regexp))
- (`statistics-cookie
- (call-interactively #'org-update-statistics-cookies))
- ((or `table `table-cell `table-row)
- ;; At a table, recalculate every field and align it. Also
- ;; send the table if necessary. If the table has
- ;; a `table.el' type, just give up. At a table row or cell,
- ;; maybe recalculate line but always align table.
- (if (eq (org-element-property :type context) 'table.el)
- (message "%s" (substitute-command-keys "\\<org-mode-map>\
-Use `\\[org-edit-special]' to edit table.el tables"))
- (if (or (eq type 'table)
- ;; Check if point is at a TBLFM line.
- (and (eq type 'table-row)
- (= (point) (org-element-property :end context))))
- (save-excursion
- (if (org-at-TBLFM-p)
- (progn (require 'org-table)
- (org-table-calc-current-TBLFM))
- (goto-char (org-element-property :contents-begin context))
- (org-call-with-arg 'org-table-recalculate (or arg t))
- (orgtbl-send-table 'maybe)))
- (org-table-maybe-eval-formula)
- (cond (arg (call-interactively #'org-table-recalculate))
- ((org-table-maybe-recalculate-line))
- (t (org-table-align))))))
- ((or `timestamp (and `planning (guard (org-at-timestamp-p 'lax))))
- (org-timestamp-change 0 'day))
- ((and `nil (guard (org-at-heading-p)))
- ;; When point is on an unsupported object type, we can miss
- ;; the fact that it also is at a heading. Handle it here.
- (call-interactively #'org-set-tags))
- ((guard
- (run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook)))
- (_
- (user-error
- (substitute-command-keys
- "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))))))
-
-(defun org-mode-restart ()
- (interactive)
- (let ((indent-status (bound-and-true-p org-indent-mode)))
- (funcall major-mode)
- (hack-local-variables)
- (when (and indent-status (not (bound-and-true-p org-indent-mode)))
- (org-indent-mode -1))
- (org-reset-file-cache))
- (message "%s restarted" major-mode))
-
-(defun org-kill-note-or-show-branches ()
- "Abort storing current note, or call `outline-show-branches'."
- (interactive)
- (if (not org-finish-function)
- (save-excursion
- (save-restriction
- (org-narrow-to-subtree)
- (org-flag-subtree t)
- (call-interactively 'outline-show-branches)
- (org-hide-archived-subtrees (point-min) (point-max))))
- (let ((org-note-abort t))
- (funcall org-finish-function))))
-
-(defun org-delete-indentation (&optional arg)
- "Join current line to previous and fix whitespace at join.
-
-If previous line is a headline add to headline title. Otherwise
-the function calls `delete-indentation'.
-
-With a non-nil optional argument, join it to the following one."
- (interactive "*P")
- (if (save-excursion
- (beginning-of-line (if arg 1 0))
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp)))
- ;; At headline.
- (let ((tags-column (when (match-beginning 5)
- (save-excursion (goto-char (match-beginning 5))
- (current-column))))
- (string (concat " " (progn (when arg (forward-line 1))
- (org-trim (delete-and-extract-region
- (line-beginning-position)
- (line-end-position)))))))
- (unless (bobp) (delete-region (point) (1- (point))))
- (goto-char (or (match-end 4)
- (match-beginning 5)
- (match-end 0)))
- (skip-chars-backward " \t")
- (save-excursion (insert string))
- ;; Adjust alignment of tags.
- (cond
- ((not tags-column)) ;no tags
- (org-auto-align-tags (org-set-tags nil t))
- (t (org--align-tags-here tags-column)))) ;preserve tags column
- (delete-indentation arg)))
-
-(defun org-open-line (n)
- "Insert a new row in tables, call `open-line' elsewhere.
-If `org-special-ctrl-o' is nil, just call `open-line' everywhere.
-As a special case, when a document starts with a table, allow to
-call `open-line' on the very first character."
- (interactive "*p")
- (if (and org-special-ctrl-o (/= (point) 1) (org-at-table-p))
- (org-table-insert-row)
- (open-line n)))
-
-(defun org-return (&optional indent)
- "Goto next table row or insert a newline.
-
-Calls `org-table-next-row' or `newline', depending on context.
-
-When optional INDENT argument is non-nil, call
-`newline-and-indent' instead of `newline'.
-
-When `org-return-follows-link' is non-nil and point is on
-a timestamp or a link, call `org-open-at-point'. However, it
-will not happen if point is in a table or on a \"dead\"
-object (e.g., within a comment). In these case, you need to use
-`org-open-at-point' directly."
- (interactive)
- (let ((context (if org-return-follows-link (org-element-context)
- (org-element-at-point))))
- (cond
- ;; In a table, call `org-table-next-row'. However, before first
- ;; column or after last one, split the table.
- ((or (and (eq (org-element-type context) 'table)
- (>= (point) (org-element-property :contents-begin context))
- (< (point) (org-element-property :contents-end context)))
- (org-element-lineage context '(table-row table-cell) t))
- (if (or (looking-at-p "[ \t]*$")
- (save-excursion (skip-chars-backward " \t") (bolp)))
- (insert "\n")
- (org-table-justify-field-maybe)
- (call-interactively #'org-table-next-row)))
- ;; On a link or a timestamp, call `org-open-at-point' if
- ;; `org-return-follows-link' allows it. Tolerate fuzzy
- ;; locations, e.g., in a comment, as `org-open-at-point'.
- ((and org-return-follows-link
- (or (and (eq 'link (org-element-type context))
- ;; Ensure point is not on the white spaces after
- ;; the link.
- (let ((origin (point)))
- (org-with-point-at (org-element-property :end context)
- (skip-chars-backward " \t")
- (> (point) origin))))
- (org-in-regexp org-ts-regexp-both nil t)
- (org-in-regexp org-tsr-regexp-both nil t)
- (org-in-regexp org-any-link-re nil t)))
- (call-interactively #'org-open-at-point))
- ;; Insert newline in heading, but preserve tags.
- ((and (not (bolp))
- (save-excursion (beginning-of-line)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))))
- ;; At headline. Split line. However, if point is on keyword,
- ;; priority cookie or tags, do not break any of them: add
- ;; a newline after the headline instead.
- (let ((tags-column (and (match-beginning 5)
- (save-excursion (goto-char (match-beginning 5))
- (current-column))))
- (string
- (when (and (match-end 4) (org-point-in-group (point) 4))
- (delete-and-extract-region (point) (match-end 4)))))
- ;; Adjust tag alignment.
- (cond
- ((not (and tags-column string)))
- (org-auto-align-tags (org-set-tags nil t))
- (t (org--align-tags-here tags-column))) ;preserve tags column
- (end-of-line)
- (org-show-entry)
- (if indent (newline-and-indent) (newline))
- (when string (save-excursion (insert (org-trim string))))))
- ;; In a list, make sure indenting keeps trailing text within.
- ((and indent
- (not (eolp))
- (org-element-lineage context '(item)))
- (let ((trailing-data
- (delete-and-extract-region (point) (line-end-position))))
- (newline-and-indent)
- (save-excursion (insert trailing-data))))
- (t
- ;; Do not auto-fill when point is in an Org property drawer.
- (let ((auto-fill-function (and (not (org-at-property-p))
- auto-fill-function)))
- (if indent
- (newline-and-indent)
- (newline)))))))
-
-(defun org-return-indent ()
- "Goto next table row or insert a newline and indent.
-Calls `org-table-next-row' or `newline-and-indent', depending on
-context. See the individual commands for more information."
- (interactive)
- (org-return t))
-
-(defun org-ctrl-c-star ()
- "Compute table, or change heading status of lines.
-Calls `org-table-recalculate' or `org-toggle-heading',
-depending on context."
- (interactive)
- (cond
- ((org-at-table-p)
- (call-interactively 'org-table-recalculate))
- (t
- ;; Convert all lines in region to list items
- (call-interactively 'org-toggle-heading))))
-
-(defun org-ctrl-c-minus ()
- "Insert separator line in table or modify bullet status of line.
-Also turns a plain line or a region of lines into list items.
-Calls `org-table-insert-hline', `org-toggle-item', or
-`org-cycle-list-bullet', depending on context."
- (interactive)
- (cond
- ((org-at-table-p)
- (call-interactively 'org-table-insert-hline))
- ((org-region-active-p)
- (call-interactively 'org-toggle-item))
- ((org-in-item-p)
- (call-interactively 'org-cycle-list-bullet))
- (t
- (call-interactively 'org-toggle-item))))
-
-(defun org-toggle-heading (&optional nstars)
- "Convert headings to normal text, or items or text to headings.
-If there is no active region, only convert the current line.
-
-With a `\\[universal-argument]' prefix, convert the whole list at
-point into heading.
-
-In a region:
-
-- If the first non blank line is a headline, remove the stars
- from all headlines in the region.
-
-- If it is a normal line, turn each and every normal line (i.e.,
- not an heading or an item) in the region into headings. If you
- want to convert only the first line of this region, use one
- universal prefix argument.
-
-- If it is a plain list item, turn all plain list items into headings.
-
-When converting a line into a heading, the number of stars is chosen
-such that the lines become children of the current entry. However,
-when a numeric prefix argument is given, its value determines the
-number of stars to add."
- (interactive "P")
- (let ((skip-blanks
- (function
- ;; Return beginning of first non-blank line, starting from
- ;; line at POS.
- (lambda (pos)
- (save-excursion
- (goto-char pos)
- (while (org-at-comment-p) (forward-line))
- (skip-chars-forward " \r\t\n")
- (point-at-bol)))))
- beg end toggled)
- ;; Determine boundaries of changes. If a universal prefix has
- ;; been given, put the list in a region. If region ends at a bol,
- ;; do not consider the last line to be in the region.
-
- (when (and current-prefix-arg (org-at-item-p))
- (when (listp current-prefix-arg) (setq current-prefix-arg 1))
- (org-mark-element))
-
- (if (org-region-active-p)
- (setq beg (funcall skip-blanks (region-beginning))
- end (copy-marker (save-excursion
- (goto-char (region-end))
- (if (bolp) (point) (point-at-eol)))))
- (setq beg (funcall skip-blanks (point-at-bol))
- end (copy-marker (point-at-eol))))
- ;; Ensure inline tasks don't count as headings.
- (org-with-limited-levels
- (save-excursion
- (goto-char beg)
- (cond
- ;; Case 1. Started at an heading: de-star headings.
- ((org-at-heading-p)
- (while (< (point) end)
- (when (org-at-heading-p t)
- (looking-at org-outline-regexp) (replace-match "")
- (setq toggled t))
- (forward-line)))
- ;; Case 2. Started at an item: change items into headlines.
- ;; One star will be added by `org-list-to-subtree'.
- ((org-at-item-p)
- (while (< (point) end)
- (when (org-at-item-p)
- ;; Pay attention to cases when region ends before list.
- (let* ((struct (org-list-struct))
- (list-end
- (min (org-list-get-bottom-point struct) (1+ end))))
- (save-restriction
- (narrow-to-region (point) list-end)
- (insert (org-list-to-subtree (org-list-to-lisp t)) "\n")))
- (setq toggled t))
- (forward-line)))
- ;; Case 3. Started at normal text: make every line an heading,
- ;; skipping headlines and items.
- (t (let* ((stars
- (make-string
- (if (numberp nstars) nstars (or (org-current-level) 0)) ?*))
- (add-stars
- (cond (nstars "") ; stars from prefix only
- ((equal stars "") "*") ; before first heading
- (org-odd-levels-only "**") ; inside heading, odd
- (t "*"))) ; inside heading, oddeven
- (rpl (concat stars add-stars " "))
- (lend (when (listp nstars) (save-excursion (end-of-line) (point)))))
- (while (< (point) (if (equal nstars '(4)) lend end))
- (when (and (not (or (org-at-heading-p) (org-at-item-p) (org-at-comment-p)))
- (looking-at "\\([ \t]*\\)\\(\\S-\\)"))
- (replace-match (concat rpl (match-string 2))) (setq toggled t))
- (forward-line)))))))
- (unless toggled (message "Cannot toggle heading from here"))))
-
-(defun org-meta-return (&optional arg)
- "Insert a new heading or wrap a region in a table.
-Calls `org-insert-heading', `org-insert-item' or
-`org-table-wrap-region', depending on context. When called with
-an argument, unconditionally call `org-insert-heading'."
- (interactive "P")
- (org-check-before-invisible-edit 'insert)
- (or (run-hook-with-args-until-success 'org-metareturn-hook)
- (call-interactively (cond (arg #'org-insert-heading)
- ((org-at-table-p) #'org-table-wrap-region)
- ((org-in-item-p) #'org-insert-item)
- (t #'org-insert-heading)))))
-
-;;; Menu entries
-
-(defsubst org-in-subtree-not-table-p ()
- "Are we in a subtree and not in a table?"
- (and (not (org-before-first-heading-p))
- (not (org-at-table-p))))
-
-;; Define the Org mode menus
-(easy-menu-define org-tbl-menu org-mode-map "Tbl menu"
- '("Tbl"
- ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p)]
- ["Next Field" org-cycle (org-at-table-p)]
- ["Previous Field" org-shifttab (org-at-table-p)]
- ["Next Row" org-return (org-at-table-p)]
- "--"
- ["Blank Field" org-table-blank-field (org-at-table-p)]
- ["Edit Field" org-table-edit-field (org-at-table-p)]
- ["Copy Field from Above" org-table-copy-down (org-at-table-p)]
- "--"
- ("Column"
- ["Move Column Left" org-metaleft (org-at-table-p)]
- ["Move Column Right" org-metaright (org-at-table-p)]
- ["Delete Column" org-shiftmetaleft (org-at-table-p)]
- ["Insert Column" org-shiftmetaright (org-at-table-p)])
- ("Row"
- ["Move Row Up" org-metaup (org-at-table-p)]
- ["Move Row Down" org-metadown (org-at-table-p)]
- ["Delete Row" org-shiftmetaup (org-at-table-p)]
- ["Insert Row" org-shiftmetadown (org-at-table-p)]
- ["Sort lines in region" org-table-sort-lines (org-at-table-p)]
- "--"
- ["Insert Hline" org-ctrl-c-minus (org-at-table-p)])
- ("Rectangle"
- ["Copy Rectangle" org-copy-special (org-at-table-p)]
- ["Cut Rectangle" org-cut-special (org-at-table-p)]
- ["Paste Rectangle" org-paste-special (org-at-table-p)]
- ["Fill Rectangle" org-table-wrap-region (org-at-table-p)])
- "--"
- ("Calculate"
- ["Set Column Formula" org-table-eval-formula (org-at-table-p)]
- ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
- ["Edit Formulas" org-edit-special (org-at-table-p)]
- "--"
- ["Recalculate line" org-table-recalculate (org-at-table-p)]
- ["Recalculate all" (lambda () (interactive) (org-table-recalculate '(4))) :active (org-at-table-p) :keys "C-u C-c *"]
- ["Iterate all" (lambda () (interactive) (org-table-recalculate '(16))) :active (org-at-table-p) :keys "C-u C-u C-c *"]
- "--"
- ["Toggle Recalculate Mark" org-table-rotate-recalc-marks (org-at-table-p)]
- "--"
- ["Sum Column/Rectangle" org-table-sum
- (or (org-at-table-p) (org-region-active-p))]
- ["Which Column?" org-table-current-column (org-at-table-p)])
- ["Debug Formulas"
- org-table-toggle-formula-debugger
- :style toggle :selected (bound-and-true-p org-table-formula-debug)]
- ["Show Col/Row Numbers"
- org-table-toggle-coordinate-overlays
- :style toggle
- :selected (bound-and-true-p org-table-overlay-coordinates)]
- "--"
- ["Create" org-table-create (not (org-at-table-p))]
- ["Convert Region" org-table-convert-region (not (org-at-table-p 'any))]
- ["Import from File" org-table-import (not (org-at-table-p))]
- ["Export to File" org-table-export (org-at-table-p)]
- "--"
- ["Create/Convert from/to table.el" org-table-create-with-table.el t]
- "--"
- ("Plot"
- ["Ascii plot" orgtbl-ascii-plot :active (org-at-table-p) :keys "C-c \" a"]
- ["Gnuplot" org-plot/gnuplot :active (org-at-table-p) :keys "C-c \" g"])))
-
-(easy-menu-define org-org-menu org-mode-map "Org menu"
- '("Org"
- ("Show/Hide"
- ["Cycle Visibility" org-cycle :active (or (bobp) (outline-on-heading-p))]
- ["Cycle Global Visibility" org-shifttab :active (not (org-at-table-p))]
- ["Sparse Tree..." org-sparse-tree t]
- ["Reveal Context" org-reveal t]
- ["Show All" outline-show-all t]
- "--"
- ["Subtree to indirect buffer" org-tree-to-indirect-buffer t])
- "--"
- ["New Heading" org-insert-heading t]
- ("Navigate Headings"
- ["Up" outline-up-heading t]
- ["Next" outline-next-visible-heading t]
- ["Previous" outline-previous-visible-heading t]
- ["Next Same Level" outline-forward-same-level t]
- ["Previous Same Level" outline-backward-same-level t]
- "--"
- ["Jump" org-goto t])
- ("Edit Structure"
- ["Refile Subtree" org-refile (org-in-subtree-not-table-p)]
- "--"
- ["Move Subtree Up" org-metaup (org-at-heading-p)]
- ["Move Subtree Down" org-metadown (org-at-heading-p)]
- "--"
- ["Copy Subtree" org-copy-special (org-in-subtree-not-table-p)]
- ["Cut Subtree" org-cut-special (org-in-subtree-not-table-p)]
- ["Paste Subtree" org-paste-special (not (org-at-table-p))]
- "--"
- ["Clone subtree, shift time" org-clone-subtree-with-time-shift t]
- "--"
- ["Copy visible text" org-copy-visible t]
- "--"
- ["Promote Heading" org-metaleft (org-in-subtree-not-table-p)]
- ["Promote Subtree" org-shiftmetaleft (org-in-subtree-not-table-p)]
- ["Demote Heading" org-metaright (org-in-subtree-not-table-p)]
- ["Demote Subtree" org-shiftmetaright (org-in-subtree-not-table-p)]
- "--"
- ["Sort Region/Children" org-sort t]
- "--"
- ["Convert to odd levels" org-convert-to-odd-levels t]
- ["Convert to odd/even levels" org-convert-to-oddeven-levels t])
- ("Editing"
- ["Emphasis..." org-emphasize t]
- ["Edit Source Example" org-edit-special t]
- "--"
- ["Footnote new/jump" org-footnote-action t]
- ["Footnote extra" (org-footnote-action t) :active t :keys "C-u C-c C-x f"])
- ("Archive"
- ["Archive (default method)" org-archive-subtree-default (org-in-subtree-not-table-p)]
- "--"
- ["Move Subtree to Archive file" org-archive-subtree (org-in-subtree-not-table-p)]
- ["Toggle ARCHIVE tag" org-toggle-archive-tag (org-in-subtree-not-table-p)]
- ["Move subtree to Archive sibling" org-archive-to-archive-sibling (org-in-subtree-not-table-p)]
- )
- "--"
- ("Hyperlinks"
- ["Store Link (Global)" org-store-link t]
- ["Find existing link to here" org-occur-link-in-agenda-files t]
- ["Insert Link" org-insert-link t]
- ["Follow Link" org-open-at-point t]
- "--"
- ["Next link" org-next-link t]
- ["Previous link" org-previous-link t]
- "--"
- ["Descriptive Links"
- org-toggle-link-display
- :style radio
- :selected org-descriptive-links
- ]
- ["Literal Links"
- org-toggle-link-display
- :style radio
- :selected (not org-descriptive-links)])
- "--"
- ("TODO Lists"
- ["TODO/DONE/-" org-todo t]
- ("Select keyword"
- ["Next keyword" org-shiftright (org-at-heading-p)]
- ["Previous keyword" org-shiftleft (org-at-heading-p)]
- ["Complete Keyword" pcomplete (assq :todo-keyword (org-context))]
- ["Next keyword set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-at-heading-p))]
- ["Previous keyword set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-at-heading-p))])
- ["Show TODO Tree" org-show-todo-tree :active t :keys "C-c / t"]
- ["Global TODO list" org-todo-list :active t :keys "\\[org-agenda] t"]
- "--"
- ["Enforce dependencies" (customize-variable 'org-enforce-todo-dependencies)
- :selected org-enforce-todo-dependencies :style toggle :active t]
- "Settings for tree at point"
- ["Do Children sequentially" org-toggle-ordered-property :style radio
- :selected (org-entry-get nil "ORDERED")
- :active org-enforce-todo-dependencies :keys "C-c C-x o"]
- ["Do Children parallel" org-toggle-ordered-property :style radio
- :selected (not (org-entry-get nil "ORDERED"))
- :active org-enforce-todo-dependencies :keys "C-c C-x o"]
- "--"
- ["Set Priority" org-priority t]
- ["Priority Up" org-shiftup t]
- ["Priority Down" org-shiftdown t]
- "--"
- ["Get news from all feeds" org-feed-update-all t]
- ["Go to the inbox of a feed..." org-feed-goto-inbox t]
- ["Customize feeds" (customize-variable 'org-feed-alist) t])
- ("TAGS and Properties"
- ["Set Tags" org-set-tags-command (not (org-before-first-heading-p))]
- ["Change tag in region" org-change-tag-in-region (org-region-active-p)]
- "--"
- ["Set property" org-set-property (not (org-before-first-heading-p))]
- ["Column view of properties" org-columns t]
- ["Insert Column View DBlock" org-columns-insert-dblock t])
- ("Dates and Scheduling"
- ["Timestamp" org-time-stamp (not (org-before-first-heading-p))]
- ["Timestamp (inactive)" org-time-stamp-inactive (not (org-before-first-heading-p))]
- ("Change Date"
- ["1 Day Later" org-shiftright (org-at-timestamp-p 'lax)]
- ["1 Day Earlier" org-shiftleft (org-at-timestamp-p 'lax)]
- ["1 ... Later" org-shiftup (org-at-timestamp-p 'lax)]
- ["1 ... Earlier" org-shiftdown (org-at-timestamp-p 'lax)])
- ["Compute Time Range" org-evaluate-time-range t]
- ["Schedule Item" org-schedule (not (org-before-first-heading-p))]
- ["Deadline" org-deadline (not (org-before-first-heading-p))]
- "--"
- ["Custom time format" org-toggle-time-stamp-overlays
- :style radio :selected org-display-custom-times]
- "--"
- ["Goto Calendar" org-goto-calendar t]
- ["Date from Calendar" org-date-from-calendar t]
- "--"
- ["Start/Restart Timer" org-timer-start t]
- ["Pause/Continue Timer" org-timer-pause-or-continue t]
- ["Stop Timer" org-timer-pause-or-continue :active t :keys "C-u C-c C-x ,"]
- ["Insert Timer String" org-timer t]
- ["Insert Timer Item" org-timer-item t])
- ("Logging work"
- ["Clock in" org-clock-in :active t :keys "C-c C-x C-i"]
- ["Switch task" (lambda () (interactive) (org-clock-in '(4))) :active t :keys "C-u C-c C-x C-i"]
- ["Clock out" org-clock-out t]
- ["Clock cancel" org-clock-cancel t]
- "--"
- ["Mark as default task" org-clock-mark-default-task t]
- ["Clock in, mark as default" (lambda () (interactive) (org-clock-in '(16))) :active t :keys "C-u C-u C-c C-x C-i"]
- ["Goto running clock" org-clock-goto t]
- "--"
- ["Display times" org-clock-display t]
- ["Create clock table" org-clock-report t]
- "--"
- ["Record DONE time"
- (progn (setq org-log-done (not org-log-done))
- (message "Switching to %s will %s record a timestamp"
- (car org-done-keywords)
- (if org-log-done "automatically" "not")))
- :style toggle :selected org-log-done])
- "--"
- ["Agenda Command..." org-agenda t]
- ["Set Restriction Lock" org-agenda-set-restriction-lock t]
- ("File List for Agenda")
- ("Special views current file"
- ["TODO Tree" org-show-todo-tree t]
- ["Check Deadlines" org-check-deadlines t]
- ["Tags/Property tree" org-match-sparse-tree t])
- "--"
- ["Export/Publish..." org-export-dispatch t]
- ("LaTeX"
- ["Org CDLaTeX mode" org-cdlatex-mode :active (require 'cdlatex nil t)
- :style toggle :selected org-cdlatex-mode]
- ["Insert Environment" cdlatex-environment (fboundp 'cdlatex-environment)]
- ["Insert math symbol" cdlatex-math-symbol (fboundp 'cdlatex-math-symbol)]
- ["Modify math symbol" org-cdlatex-math-modify
- (org-inside-LaTeX-fragment-p)]
- ["Insert citation" org-reftex-citation t])
- "--"
- ("MobileOrg"
- ["Push Files and Views" org-mobile-push t]
- ["Get Captured and Flagged" org-mobile-pull t]
- ["Find FLAGGED Tasks" (org-agenda nil "?") :active t :keys "\\[org-agenda] ?"]
- "--"
- ["Setup" (progn (require 'org-mobile) (customize-group 'org-mobile)) t])
- "--"
- ("Documentation"
- ["Show Version" org-version t]
- ["Info Documentation" org-info t])
- ("Customize"
- ["Browse Org Group" org-customize t]
- "--"
- ["Expand This Menu" org-create-customize-menu
- (fboundp 'customize-menu-create)])
- ["Send bug report" org-submit-bug-report t]
- "--"
- ("Refresh/Reload"
- ["Refresh setup current buffer" org-mode-restart t]
- ["Reload Org (after update)" org-reload t]
- ["Reload Org uncompiled" (org-reload t) :active t :keys "C-u C-c C-x !"])
- ))
-
-(defun org-info (&optional node)
- "Read documentation for Org in the info system.
-With optional NODE, go directly to that node."
- (interactive)
- (info (format "(org)%s" (or node ""))))
-
-;;;###autoload
-(defun org-submit-bug-report ()
- "Submit a bug report on Org via mail.
-
-Don't hesitate to report any problems or inaccurate documentation.
-
-If you don't have setup sending mail from (X)Emacs, please copy the
-output buffer into your mail program, as it gives us important
-information about your Org version and configuration."
- (interactive)
- (require 'reporter)
- (defvar reporter-prompt-for-summary-p)
- (org-load-modules-maybe)
- (org-require-autoloaded-modules)
- (let ((reporter-prompt-for-summary-p "Bug report subject: "))
- (reporter-submit-bug-report
- "emacs-orgmode@gnu.org"
- (org-version nil 'full)
- (let (list)
- (save-window-excursion
- (pop-to-buffer-same-window (get-buffer-create "*Warn about privacy*"))
- (delete-other-windows)
- (erase-buffer)
- (insert "You are about to submit a bug report to the Org mailing list.
-
-We would like to add your full Org and Outline configuration to the
-bug report. This greatly simplifies the work of the maintainer and
-other experts on the mailing list.
-
-HOWEVER, some variables you have customized may contain private
-information. The names of customers, colleagues, or friends, might
-appear in the form of file names, tags, todo states, or search strings.
-If you answer yes to the prompt, you might want to check and remove
-such private information before sending the email.")
- (add-text-properties (point-min) (point-max) '(face org-warning))
- (when (yes-or-no-p "Include your Org configuration ")
- (mapatoms
- (lambda (v)
- (and (boundp v)
- (string-match "\\`\\(org-\\|outline-\\)" (symbol-name v))
- (or (and (symbol-value v)
- (string-match "\\(-hook\\|-function\\)\\'" (symbol-name v)))
- (and
- (get v 'custom-type) (get v 'standard-value)
- (not (equal (symbol-value v) (eval (car (get v 'standard-value)))))))
- (push v list)))))
- (kill-buffer (get-buffer "*Warn about privacy*"))
- list))
- nil nil
- "Remember to cover the basics, that is, what you expected to happen and
-what in fact did happen. You don't know how to make a good report? See
-
- https://orgmode.org/manual/Feedback.html#Feedback
-
-Your bug report will be posted to the Org mailing list.
-------------------------------------------------------------------------")
- (save-excursion
- (when (re-search-backward "^\\(Subject: \\)Org mode version \\(.*?\\);[ \t]*\\(.*\\)" nil t)
- (replace-match "\\1Bug: \\3 [\\2]")))))
-
-
-(defun org-install-agenda-files-menu ()
- (let ((bl (buffer-list)))
- (save-excursion
- (while bl
- (set-buffer (pop bl))
- (when (derived-mode-p 'org-mode) (setq bl nil)))
- (when (derived-mode-p 'org-mode)
- (easy-menu-change
- '("Org") "File List for Agenda"
- (append
- (list
- ["Edit File List" (org-edit-agenda-file-list) t]
- ["Add/Move Current File to Front of List" org-agenda-file-to-front t]
- ["Remove Current File from List" org-remove-file t]
- ["Cycle through agenda files" org-cycle-agenda-files t]
- ["Occur in all agenda files" org-occur-in-agenda-files t]
- "--")
- (mapcar 'org-file-menu-entry
- ;; Prevent initialization from failing.
- (ignore-errors (org-agenda-files t)))))))))
-
-;;;; Documentation
-
-(defun org-require-autoloaded-modules ()
- (interactive)
- (mapc #'require
- '(org-agenda org-archive org-attach org-clock org-colview org-id
- org-table org-timer)))
-
-;;;###autoload
-(defun org-reload (&optional uncompiled)
- "Reload all Org Lisp files.
-With prefix arg UNCOMPILED, load the uncompiled versions."
- (interactive "P")
- (require 'loadhist)
- (let* ((org-dir (org-find-library-dir "org"))
- (contrib-dir (or (org-find-library-dir "org-contribdir") org-dir))
- (feature-re "^\\(org\\|ob\\|ox\\)\\(-.*\\)?")
- (remove-re (format "\\`%s\\'"
- (regexp-opt '("org" "org-loaddefs" "org-version"))))
- (feats (delete-dups
- (mapcar 'file-name-sans-extension
- (mapcar 'file-name-nondirectory
- (delq nil
- (mapcar 'feature-file
- features))))))
- (lfeat (append
- (sort
- (setq feats
- (delq nil (mapcar
- (lambda (f)
- (if (and (string-match feature-re f)
- (not (string-match remove-re f)))
- f nil))
- feats)))
- 'string-lessp)
- (list "org-version" "org")))
- (load-suffixes (when (boundp 'load-suffixes) load-suffixes))
- (load-suffixes (if uncompiled (reverse load-suffixes) load-suffixes))
- load-uncore load-misses)
- (setq load-misses
- (delq 't
- (mapcar (lambda (f)
- (or (org-load-noerror-mustsuffix (concat org-dir f))
- (and (string= org-dir contrib-dir)
- (org-load-noerror-mustsuffix (concat contrib-dir f)))
- (and (org-load-noerror-mustsuffix (concat (org-find-library-dir f) f))
- (add-to-list 'load-uncore f 'append)
- 't)
- f))
- lfeat)))
- (when load-uncore
- (message "The following feature%s found in load-path, please check if that's correct:\n%s"
- (if (> (length load-uncore) 1) "s were" " was") load-uncore))
- (if load-misses
- (message "Some error occurred while reloading Org feature%s\n%s\nPlease check *Messages*!\n%s"
- (if (> (length load-misses) 1) "s" "") load-misses (org-version nil 'full))
- (message "Successfully reloaded Org\n%s" (org-version nil 'full)))))
-
-;;;###autoload
-(defun org-customize ()
- "Call the customize function with org as argument."
- (interactive)
- (org-load-modules-maybe)
- (org-require-autoloaded-modules)
- (customize-browse 'org))
-
-(defun org-create-customize-menu ()
- "Create a full customization menu for Org mode, insert it into the menu."
- (interactive)
- (org-load-modules-maybe)
- (org-require-autoloaded-modules)
- (if (fboundp 'customize-menu-create)
- (progn
- (easy-menu-change
- '("Org") "Customize"
- `(["Browse Org group" org-customize t]
- "--"
- ,(customize-menu-create 'org)
- ["Set" Custom-set t]
- ["Save" Custom-save t]
- ["Reset to Current" Custom-reset-current t]
- ["Reset to Saved" Custom-reset-saved t]
- ["Reset to Standard Settings" Custom-reset-standard t]))
- (message "\"Org\"-menu now contains full customization menu"))
- (error "Cannot expand menu (outdated version of cus-edit.el)")))
-
-;;;; Miscellaneous stuff
-
-;;; Generally useful functions
-
-(defun org-get-at-eol (property n)
- "Get text property PROPERTY at the end of line less N characters."
- (get-text-property (- (point-at-eol) n) property))
-
-(defun org-find-text-property-in-string (prop s)
- "Return the first non-nil value of property PROP in string S."
- (or (get-text-property 0 prop s)
- (get-text-property (or (next-single-property-change 0 prop s) 0)
- prop s)))
-
-(defun org-display-warning (message)
- "Display the given MESSAGE as a warning."
- (display-warning 'org message :warning))
-
-(defun org-eval (form)
- "Eval FORM and return result."
- (condition-case error
- (eval form)
- (error (format "%%![Error: %s]" error))))
-
-(defun org-in-clocktable-p ()
- "Check if the cursor is in a clocktable."
- (let ((pos (point)) start)
- (save-excursion
- (end-of-line 1)
- (and (re-search-backward "^[ \t]*#\\+BEGIN:[ \t]+clocktable" nil t)
- (setq start (match-beginning 0))
- (re-search-forward "^[ \t]*#\\+END:.*" nil t)
- (>= (match-end 0) pos)
- start))))
-
-(defun org-in-verbatim-emphasis ()
- (save-match-data
- (and (org-in-regexp org-verbatim-re 2)
- (>= (point) (match-beginning 3))
- (<= (point) (match-end 4)))))
-
-(defun org-overlay-display (ovl text &optional face evap)
- "Make overlay OVL display TEXT with face FACE."
- (overlay-put ovl 'display text)
- (if face (overlay-put ovl 'face face))
- (if evap (overlay-put ovl 'evaporate t)))
-
-(defun org-overlay-before-string (ovl text &optional face evap)
- "Make overlay OVL display TEXT with face FACE."
- (if face (org-add-props text nil 'face face))
- (overlay-put ovl 'before-string text)
- (if evap (overlay-put ovl 'evaporate t)))
-
-(defun org-find-overlays (prop &optional pos delete)
- "Find all overlays specifying PROP at POS or point.
-If DELETE is non-nil, delete all those overlays."
- (let (found)
- (dolist (ov (overlays-at (or pos (point))) found)
- (cond ((not (overlay-get ov prop)))
- (delete (delete-overlay ov))
- (t (push ov found))))))
-
-(defun org-goto-marker-or-bmk (marker &optional bookmark)
- "Go to MARKER, widen if necessary. When marker is not live, try BOOKMARK."
- (if (and marker (marker-buffer marker)
- (buffer-live-p (marker-buffer marker)))
- (progn
- (pop-to-buffer-same-window (marker-buffer marker))
- (when (or (> marker (point-max)) (< marker (point-min)))
- (widen))
- (goto-char marker)
- (org-show-context 'org-goto))
- (if bookmark
- (bookmark-jump bookmark)
- (error "Cannot find location"))))
-
-(defun org-quote-csv-field (s)
- "Quote field for inclusion in CSV material."
- (if (string-match "[\",]" s)
- (concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\"")
- s))
-
-(defun org-force-self-insert (N)
- "Needed to enforce self-insert under remapping."
- (interactive "p")
- (self-insert-command N))
-
-(defun org-shorten-string (s maxlength)
- "Shorten string S so that it is no longer than MAXLENGTH characters.
-If the string is shorter or has length MAXLENGTH, just return the
-original string. If it is longer, the functions finds a space in the
-string, breaks this string off at that locations and adds three dots
-as ellipsis. Including the ellipsis, the string will not be longer
-than MAXLENGTH. If finding a good breaking point in the string does
-not work, the string is just chopped off in the middle of a word
-if necessary."
- (if (<= (length s) maxlength)
- s
- (let* ((n (max (- maxlength 4) 1))
- (re (concat "\\`\\(.\\{1," (int-to-string n) "\\}[^ ]\\)\\([ ]\\|\\'\\)")))
- (if (string-match re s)
- (concat (match-string 1 s) "...")
- (concat (substring s 0 (max (- maxlength 3) 0)) "...")))))
-
-(defun org-get-indentation (&optional line)
- "Get the indentation of the current line, interpreting tabs.
-When LINE is given, assume it represents a line and compute its indentation."
- (if line
- (when (string-match "^ *" (org-remove-tabs line))
- (match-end 0))
- (save-excursion
- (beginning-of-line 1)
- (skip-chars-forward " \t")
- (current-column))))
-
-(defun org-get-string-indentation (s)
- "What indentation has S due to SPACE and TAB at the beginning of the string?"
- (let ((n -1) (i 0) (w tab-width) c)
- (catch 'exit
- (while (< (setq n (1+ n)) (length s))
- (setq c (aref s n))
- (cond ((= c ?\ ) (setq i (1+ i)))
- ((= c ?\t) (setq i (* (/ (+ w i) w) w)))
- (t (throw 'exit t)))))
- i))
-
-(defun org-remove-tabs (s &optional width)
- "Replace tabulators in S with spaces.
-Assumes that s is a single line, starting in column 0."
- (setq width (or width tab-width))
- (while (string-match "\t" s)
- (setq s (replace-match
- (make-string
- (- (* width (/ (+ (match-beginning 0) width) width))
- (match-beginning 0)) ?\ )
- t t s)))
- s)
-
-(defun org-fix-indentation (line ind)
- "Fix indentation in LINE.
-IND is a cons cell with target and minimum indentation.
-If the current indentation in LINE is smaller than the minimum,
-leave it alone. If it is larger than ind, set it to the target."
- (let* ((l (org-remove-tabs line))
- (i (org-get-indentation l))
- (i1 (car ind)) (i2 (cdr ind)))
- (when (>= i i2) (setq l (substring line i2)))
- (if (> i1 0)
- (concat (make-string i1 ?\ ) l)
- l)))
-
-(defun org-remove-indentation (code &optional n)
- "Remove maximum common indentation in string CODE and return it.
-N may optionally be the number of columns to remove. Return CODE
-as-is if removal failed."
- (with-temp-buffer
- (insert code)
- (if (org-do-remove-indentation n) (buffer-string) code)))
-
-(defun org-do-remove-indentation (&optional n)
- "Remove the maximum common indentation from the buffer.
-When optional argument N is a positive integer, remove exactly
-that much characters from indentation, if possible. Return nil
-if it fails."
- (catch :exit
- (goto-char (point-min))
- ;; Find maximum common indentation, if not specified.
- (let ((n (or n
- (let ((min-ind (point-max)))
- (save-excursion
- (while (re-search-forward "^[ \t]*\\S-" nil t)
- (let ((ind (1- (current-column))))
- (if (zerop ind) (throw :exit nil)
- (setq min-ind (min min-ind ind))))))
- min-ind))))
- (if (zerop n) (throw :exit nil)
- ;; Remove exactly N indentation, but give up if not possible.
- (while (not (eobp))
- (let ((ind (progn (skip-chars-forward " \t") (current-column))))
- (cond ((eolp) (delete-region (line-beginning-position) (point)))
- ((< ind n) (throw :exit nil))
- (t (indent-line-to (- ind n))))
- (forward-line)))
- ;; Signal success.
- t))))
-
-(defun org-fill-template (template alist)
- "Find each %key of ALIST in TEMPLATE and replace it."
- (let ((case-fold-search nil))
- (dolist (entry (sort (copy-sequence alist)
- (lambda (a b) (< (length (car a)) (length (car b))))))
- (setq template
- (replace-regexp-in-string
- (concat "%" (regexp-quote (car entry)))
- (or (cdr entry) "") template t t)))
- template))
-
-(defun org-base-buffer (buffer)
- "Return the base buffer of BUFFER, if it has one. Else return the buffer."
- (if (not buffer)
- buffer
- (or (buffer-base-buffer buffer)
- buffer)))
-
-(defun org-wrap (string &optional width lines)
- "Wrap string to either a number of lines, or a width in characters.
-If WIDTH is non-nil, the string is wrapped to that width, however many lines
-that costs. If there is a word longer than WIDTH, the text is actually
-wrapped to the length of that word.
-IF WIDTH is nil and LINES is non-nil, the string is forced into at most that
-many lines, whatever width that takes.
-The return value is a list of lines, without newlines at the end."
- (let* ((words (split-string string))
- (maxword (apply 'max (mapcar 'org-string-width words)))
- w ll)
- (cond (width
- (org-do-wrap words (max maxword width)))
- (lines
- (setq w maxword)
- (setq ll (org-do-wrap words maxword))
- (if (<= (length ll) lines)
- ll
- (setq ll words)
- (while (> (length ll) lines)
- (setq w (1+ w))
- (setq ll (org-do-wrap words w)))
- ll))
- (t (error "Cannot wrap this")))))
-
-(defun org-do-wrap (words width)
- "Create lines of maximum width WIDTH (in characters) from word list WORDS."
- (let (lines line)
- (while words
- (setq line (pop words))
- (while (and words (< (+ (length line) (length (car words))) width))
- (setq line (concat line " " (pop words))))
- (setq lines (push line lines)))
- (nreverse lines)))
-
-(defun org-quote-vert (s)
- "Replace \"|\" with \"\\vert\"."
- (while (string-match "|" s)
- (setq s (replace-match "\\vert" t t s)))
- s)
-
-(defun org-uuidgen-p (s)
- "Is S an ID created by UUIDGEN?"
- (string-match "\\`[0-9a-f]\\{8\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{12\\}\\'" (downcase s)))
-
-(defun org-in-src-block-p (&optional inside)
- "Whether point is in a code source block.
-When INSIDE is non-nil, don't consider we are within a src block
-when point is at #+BEGIN_SRC or #+END_SRC."
- (let ((case-fold-search t))
- (or (and (eq (get-char-property (point) 'src-block) t))
- (and (not inside)
- (save-match-data
- (save-excursion
- (beginning-of-line)
- (looking-at ".*#\\+\\(begin\\|end\\)_src")))))))
-
-(defun org-context ()
- "Return a list of contexts of the current cursor position.
-If several contexts apply, all are returned.
-Each context entry is a list with a symbol naming the context, and
-two positions indicating start and end of the context. Possible
-contexts are:
-
-:headline anywhere in a headline
-:headline-stars on the leading stars in a headline
-:todo-keyword on a TODO keyword (including DONE) in a headline
-:tags on the TAGS in a headline
-:priority on the priority cookie in a headline
-:item on the first line of a plain list item
-:item-bullet on the bullet/number of a plain list item
-:checkbox on the checkbox in a plain list item
-:table in an Org table
-:table-special on a special filed in a table
-:table-table in a table.el table
-:clocktable in a clocktable
-:src-block in a source block
-:link on a hyperlink
-:keyword on a keyword: SCHEDULED, DEADLINE, CLOSE, COMMENT.
-:target on a <<target>>
-:radio-target on a <<<radio-target>>>
-:latex-fragment on a LaTeX fragment
-:latex-preview on a LaTeX fragment with overlaid preview image
-
-This function expects the position to be visible because it uses font-lock
-faces as a help to recognize the following contexts: :table-special, :link,
-and :keyword."
- (let* ((f (get-text-property (point) 'face))
- (faces (if (listp f) f (list f)))
- (case-fold-search t)
- (p (point)) clist o)
- ;; First the large context
- (cond
- ((org-at-heading-p t)
- (push (list :headline (point-at-bol) (point-at-eol)) clist)
- (when (progn
- (beginning-of-line 1)
- (looking-at org-todo-line-tags-regexp))
- (push (org-point-in-group p 1 :headline-stars) clist)
- (push (org-point-in-group p 2 :todo-keyword) clist)
- (push (org-point-in-group p 4 :tags) clist))
- (goto-char p)
- (skip-chars-backward "^[\n\r \t") (or (bobp) (backward-char 1))
- (when (looking-at "\\[#[A-Z0-9]\\]")
- (push (org-point-in-group p 0 :priority) clist)))
-
- ((org-at-item-p)
- (push (org-point-in-group p 2 :item-bullet) clist)
- (push (list :item (point-at-bol)
- (save-excursion (org-end-of-item) (point)))
- clist)
- (and (org-at-item-checkbox-p)
- (push (org-point-in-group p 0 :checkbox) clist)))
-
- ((org-at-table-p)
- (push (list :table (org-table-begin) (org-table-end)) clist)
- (when (memq 'org-formula faces)
- (push (list :table-special
- (previous-single-property-change p 'face)
- (next-single-property-change p 'face)) clist)))
- ((org-at-table-p 'any)
- (push (list :table-table) clist)))
- (goto-char p)
-
- (let ((case-fold-search t))
- ;; New the "medium" contexts: clocktables, source blocks
- (cond ((org-in-clocktable-p)
- (push (list :clocktable
- (and (or (looking-at "[ \t]*\\(#\\+BEGIN: clocktable\\)")
- (re-search-backward "[ \t]*\\(#+BEGIN: clocktable\\)" nil t))
- (match-beginning 1))
- (and (re-search-forward "[ \t]*#\\+END:?" nil t)
- (match-end 0))) clist))
- ((org-in-src-block-p)
- (push (list :src-block
- (and (or (looking-at "[ \t]*\\(#\\+BEGIN_SRC\\)")
- (re-search-backward "[ \t]*\\(#+BEGIN_SRC\\)" nil t))
- (match-beginning 1))
- (and (search-forward "#+END_SRC" nil t)
- (match-beginning 0))) clist))))
- (goto-char p)
-
- ;; Now the small context
- (cond
- ((org-at-timestamp-p)
- (push (org-point-in-group p 0 :timestamp) clist))
- ((memq 'org-link faces)
- (push (list :link
- (previous-single-property-change p 'face)
- (next-single-property-change p 'face)) clist))
- ((memq 'org-special-keyword faces)
- (push (list :keyword
- (previous-single-property-change p 'face)
- (next-single-property-change p 'face)) clist))
- ((org-at-target-p)
- (push (org-point-in-group p 0 :target) clist)
- (goto-char (1- (match-beginning 0)))
- (when (looking-at org-radio-target-regexp)
- (push (org-point-in-group p 0 :radio-target) clist))
- (goto-char p))
- ((setq o (cl-some
- (lambda (o)
- (and (eq (overlay-get o 'org-overlay-type) 'org-latex-overlay)
- o))
- (overlays-at (point))))
- (push (list :latex-fragment
- (overlay-start o) (overlay-end o)) clist)
- (push (list :latex-preview
- (overlay-start o) (overlay-end o)) clist))
- ((org-inside-LaTeX-fragment-p)
- ;; FIXME: positions wrong.
- (push (list :latex-fragment (point) (point)) clist)))
-
- (setq clist (nreverse (delq nil clist)))
- clist))
-
-(defun org-in-regexp (regexp &optional nlines visually)
- "Check if point is inside a match of REGEXP.
-
-Normally only the current line is checked, but you can include
-NLINES extra lines around point into the search. If VISUALLY is
-set, require that the cursor is not after the match but really
-on, so that the block visually is on the match.
-
-Return nil or a cons cell (BEG . END) where BEG and END are,
-respectively, the positions at the beginning and the end of the
-match."
- (catch :exit
- (let ((pos (point))
- (eol (line-end-position (if nlines (1+ nlines) 1))))
- (save-excursion
- (beginning-of-line (- 1 (or nlines 0)))
- (while (and (re-search-forward regexp eol t)
- (<= (match-beginning 0) pos))
- (let ((end (match-end 0)))
- (when (or (> end pos) (and (= end pos) (not visually)))
- (throw :exit (cons (match-beginning 0) (match-end 0))))))))))
-
-(defun org-between-regexps-p (start-re end-re &optional lim-up lim-down)
- "Non-nil when point is between matches of START-RE and END-RE.
-
-Also return a non-nil value when point is on one of the matches.
-
-Optional arguments LIM-UP and LIM-DOWN bound the search; they are
-buffer positions. Default values are the positions of headlines
-surrounding the point.
-
-The functions returns a cons cell whose car (resp. cdr) is the
-position before START-RE (resp. after END-RE)."
- (save-match-data
- (let ((pos (point))
- (limit-up (or lim-up (save-excursion (outline-previous-heading))))
- (limit-down (or lim-down (save-excursion (outline-next-heading))))
- beg end)
- (save-excursion
- ;; Point is on a block when on START-RE or if START-RE can be
- ;; found before it...
- (and (or (org-in-regexp start-re)
- (re-search-backward start-re limit-up t))
- (setq beg (match-beginning 0))
- ;; ... and END-RE after it...
- (goto-char (match-end 0))
- (re-search-forward end-re limit-down t)
- (> (setq end (match-end 0)) pos)
- ;; ... without another START-RE in-between.
- (goto-char (match-beginning 0))
- (not (re-search-backward start-re (1+ beg) t))
- ;; Return value.
- (cons beg end))))))
-
-(defun org-in-block-p (names)
- "Non-nil when point belongs to a block whose name belongs to NAMES.
-
-NAMES is a list of strings containing names of blocks.
-
-Return first block name matched, or nil. Beware that in case of
-nested blocks, the returned name may not belong to the closest
-block from point."
- (save-match-data
- (catch 'exit
- (let ((case-fold-search t)
- (lim-up (save-excursion (outline-previous-heading)))
- (lim-down (save-excursion (outline-next-heading))))
- (dolist (name names)
- (let ((n (regexp-quote name)))
- (when (org-between-regexps-p
- (concat "^[ \t]*#\\+begin_" n)
- (concat "^[ \t]*#\\+end_" n)
- lim-up lim-down)
- (throw 'exit n)))))
- nil)))
-
-(defun org-occur-in-agenda-files (regexp &optional _nlines)
- "Call `multi-occur' with buffers for all agenda files."
- (interactive "sOrg-files matching: ")
- (let* ((files (org-agenda-files))
- (tnames (mapcar #'file-truename files))
- (extra org-agenda-text-search-extra-files))
- (when (eq (car extra) 'agenda-archives)
- (setq extra (cdr extra))
- (setq files (org-add-archive-files files)))
- (dolist (f extra)
- (unless (member (file-truename f) tnames)
- (unless (member f files) (setq files (append files (list f))))
- (setq tnames (append tnames (list (file-truename f))))))
- (multi-occur
- (mapcar (lambda (x)
- (with-current-buffer
- ;; FIXME: Why not just (find-file-noselect x)?
- ;; Is it to avoid the "revert buffer" prompt?
- (or (get-file-buffer x) (find-file-noselect x))
- (widen)
- (current-buffer)))
- files)
- regexp)))
-
-(add-hook 'occur-mode-find-occurrence-hook
- (lambda () (when (derived-mode-p 'org-mode) (org-reveal))))
-
-(defun org-occur-link-in-agenda-files ()
- "Create a link and search for it in the agendas.
-The link is not stored in `org-stored-links', it is just created
-for the search purpose."
- (interactive)
- (let ((link (condition-case nil
- (org-store-link nil)
- (error "Unable to create a link to here"))))
- (org-occur-in-agenda-files (regexp-quote link))))
-
-(defun org-reverse-string (string)
- "Return the reverse of STRING."
- (apply 'string (reverse (string-to-list string))))
-
-;; defsubst org-uniquify must be defined before first use
-
-(defun org-uniquify-alist (alist)
- "Merge elements of ALIST with the same key.
-
-For example, in this alist:
-
-\(org-uniquify-alist \\='((a 1) (b 2) (a 3)))
- => \\='((a 1 3) (b 2))
-
-merge (a 1) and (a 3) into (a 1 3).
-
-The function returns the new ALIST."
- (let (rtn)
- (dolist (e alist rtn)
- (let (n)
- (if (not (assoc (car e) rtn))
- (push e rtn)
- (setq n (cons (car e) (append (cdr (assoc (car e) rtn)) (cdr e))))
- (setq rtn (assq-delete-all (car e) rtn))
- (push n rtn))))))
-
-(defun org-delete-all (elts list)
- "Remove all elements in ELTS from LIST.
-Comparison is done with `equal'. It is a destructive operation
-that may remove elements by altering the list structure."
- (while elts
- (setq list (delete (pop elts) list)))
- list)
-
-(defun org-back-over-empty-lines ()
- "Move backwards over whitespace, to the beginning of the first empty line.
-Returns the number of empty lines passed."
- (let ((pos (point)))
- (if (cdr (assq 'heading org-blank-before-new-entry))
- (skip-chars-backward " \t\n\r")
- (unless (eobp)
- (forward-line -1)))
- (beginning-of-line 2)
- (goto-char (min (point) pos))
- (count-lines (point) pos)))
-
-(defun org-skip-whitespace ()
- (skip-chars-forward " \t\n\r"))
-
-(defun org-point-in-group (point group &optional context)
- "Check if POINT is in match-group GROUP.
-If CONTEXT is non-nil, return a list with CONTEXT and the boundaries of the
-match. If the match group does not exist or point is not inside it,
-return nil."
- (and (match-beginning group)
- (>= point (match-beginning group))
- (<= point (match-end group))
- (if context
- (list context (match-beginning group) (match-end group))
- t)))
-
-(defun org-switch-to-buffer-other-window (&rest args)
- "Switch to buffer in a second window on the current frame.
-In particular, do not allow pop-up frames.
-Returns the newly created buffer."
- (org-no-popups
- (apply 'switch-to-buffer-other-window args)))
-
-(defun org-combine-plists (&rest plists)
- "Create a single property list from all plists in PLISTS.
-The process starts by copying the first list, and then setting properties
-from the other lists. Settings in the last list are the most significant
-ones and overrule settings in the other lists."
- (let ((rtn (copy-sequence (pop plists)))
- p v ls)
- (while plists
- (setq ls (pop plists))
- (while ls
- (setq p (pop ls) v (pop ls))
- (setq rtn (plist-put rtn p v))))
- rtn))
-
-(defun org-replace-escapes (string table)
- "Replace %-escapes in STRING with values in TABLE.
-TABLE is an association list with keys like \"%a\" and string values.
-The sequences in STRING may contain normal field width and padding information,
-for example \"%-5s\". Replacements happen in the sequence given by TABLE,
-so values can contain further %-escapes if they are define later in TABLE."
- (let ((tbl (copy-alist table))
- (case-fold-search nil)
- (pchg 0)
- re rpl)
- (dolist (e tbl)
- (setq re (concat "%-?[0-9.]*" (substring (car e) 1)))
- (when (and (cdr e) (string-match re (cdr e)))
- (let ((sref (substring (cdr e) (match-beginning 0) (match-end 0)))
- (safe "SREF"))
- (add-text-properties 0 3 (list 'sref sref) safe)
- (setcdr e (replace-match safe t t (cdr e)))))
- (while (string-match re string)
- (setq rpl (format (concat (substring (match-string 0 string) 0 -1) "s")
- (cdr e)))
- (setq string (replace-match rpl t t string))))
- (while (setq pchg (next-property-change pchg string))
- (let ((sref (get-text-property pchg 'sref string)))
- (when (and sref (string-match "SREF" string pchg))
- (setq string (replace-match sref t t string)))))
- string))
-
-(defun org-find-base-buffer-visiting (file)
- "Like `find-buffer-visiting' but always return the base buffer and
-not an indirect buffer."
- (let ((buf (or (get-file-buffer file)
- (find-buffer-visiting file))))
- (if buf
- (or (buffer-base-buffer buf) buf)
- nil)))
-
-;;; TODO: Only called once, from ox-odt which should probably use
-;;; org-export-inline-image-p or something.
-(defun org-file-image-p (file)
- "Return non-nil if FILE is an image."
- (save-match-data
- (string-match (image-file-name-regexp) file)))
-
-(defun org-get-cursor-date (&optional with-time)
- "Return the date at cursor in as a time.
-This works in the calendar and in the agenda, anywhere else it just
-returns the current time.
-If WITH-TIME is non-nil, returns the time of the event at point (in
-the agenda) or the current time of the day."
- (let (date day defd tp hod mod)
- (when with-time
- (setq tp (get-text-property (point) 'time))
- (when (and tp (string-match "\\([0-9][0-9]\\):\\([0-9][0-9]\\)" tp))
- (setq hod (string-to-number (match-string 1 tp))
- mod (string-to-number (match-string 2 tp))))
- (or tp (let ((now (decode-time)))
- (setq hod (nth 2 now)
- mod (nth 1 now)))))
- (cond
- ((eq major-mode 'calendar-mode)
- (setq date (calendar-cursor-to-date)
- defd (encode-time 0 (or mod 0) (or hod 0)
- (nth 1 date) (nth 0 date) (nth 2 date))))
- ((eq major-mode 'org-agenda-mode)
- (setq day (get-text-property (point) 'day))
- (when day
- (setq date (calendar-gregorian-from-absolute day)
- defd (encode-time 0 (or mod 0) (or hod 0)
- (nth 1 date) (nth 0 date) (nth 2 date))))))
- (or defd (current-time))))
-
-(defun org-mark-subtree (&optional up)
- "Mark the current subtree.
-This puts point at the start of the current subtree, and mark at
-the end. If a numeric prefix UP is given, move up into the
-hierarchy of headlines by UP levels before marking the subtree."
- (interactive "P")
- (org-with-limited-levels
- (cond ((org-at-heading-p) (beginning-of-line))
- ((org-before-first-heading-p) (user-error "Not in a subtree"))
- (t (outline-previous-visible-heading 1))))
- (when up (while (and (> up 0) (org-up-heading-safe)) (cl-decf up)))
- (if (called-interactively-p 'any)
- (call-interactively 'org-mark-element)
- (org-mark-element)))
-
-(defun org-file-newer-than-p (file time)
- "Non-nil if FILE is newer than TIME.
-FILE is a filename, as a string, TIME is a list of integers, as
-returned by, e.g., `current-time'."
- (and (file-exists-p file)
- ;; Only compare times up to whole seconds as some file-systems
- ;; (e.g. HFS+) do not retain any finer granularity. As
- ;; a consequence, make sure we return non-nil when the two
- ;; times are equal.
- (not (time-less-p (cl-subseq (nth 5 (file-attributes file)) 0 2)
- (cl-subseq time 0 2)))))
-
-(defun org-compile-file (source process ext &optional err-msg log-buf spec)
- "Compile a SOURCE file using PROCESS.
-
-PROCESS is either a function or a list of shell commands, as
-strings. EXT is a file extension, without the leading dot, as
-a string. It is used to check if the process actually succeeded.
-
-PROCESS must create a file with the same base name and directory
-as SOURCE, but ending with EXT. The function then returns its
-filename. Otherwise, it raises an error. The error message can
-then be refined by providing string ERR-MSG, which is appended to
-the standard message.
-
-If PROCESS is a function, it is called with a single argument:
-the SOURCE file.
-
-If it is a list of commands, each of them is called using
-`shell-command'. By default, in each command, %b, %f, %F, %o and
-%O are replaced with, respectively, SOURCE base name, name, full
-name, directory and absolute output file name. It is possible,
-however, to use more place-holders by specifying them in optional
-argument SPEC, as an alist following the pattern
-
- (CHARACTER . REPLACEMENT-STRING).
-
-When PROCESS is a list of commands, optional argument LOG-BUF can
-be set to a buffer or a buffer name. `shell-command' then uses
-it for output."
- (let* ((base-name (file-name-base source))
- (full-name (file-truename source))
- (out-dir (or (file-name-directory source) "./"))
- (output (expand-file-name (concat base-name "." ext) out-dir))
- (time (current-time))
- (err-msg (if (stringp err-msg) (concat ". " err-msg) "")))
- (save-window-excursion
- (pcase process
- ((pred functionp) (funcall process (shell-quote-argument source)))
- ((pred consp)
- (let ((log-buf (and log-buf (get-buffer-create log-buf)))
- (spec (append spec
- `((?b . ,(shell-quote-argument base-name))
- (?f . ,(shell-quote-argument source))
- (?F . ,(shell-quote-argument full-name))
- (?o . ,(shell-quote-argument out-dir))
- (?O . ,(shell-quote-argument output))))))
- (dolist (command process)
- (shell-command (format-spec command spec) log-buf))
- (when log-buf (with-current-buffer log-buf (compilation-mode)))))
- (_ (error "No valid command to process %S%s" source err-msg))))
- ;; Check for process failure. Output file is expected to be
- ;; located in the same directory as SOURCE.
- (unless (org-file-newer-than-p output time)
- (error (format "File %S wasn't produced%s" output err-msg)))
- output))
-
-;;; Indentation
-
-(defvar org-element-greater-elements)
-(defun org--get-expected-indentation (element contentsp)
- "Expected indentation column for current line, according to ELEMENT.
-ELEMENT is an element containing point. CONTENTSP is non-nil
-when indentation is to be computed according to contents of
-ELEMENT."
- (let ((type (org-element-type element))
- (start (org-element-property :begin element))
- (post-affiliated (org-element-property :post-affiliated element)))
- (org-with-wide-buffer
- (cond
- (contentsp
- (cl-case type
- ((diary-sexp footnote-definition) 0)
- ((headline inlinetask nil)
- (if (not org-adapt-indentation) 0
- (let ((level (org-current-level)))
- (if level (1+ level) 0))))
- ((item plain-list) (org-list-item-body-column post-affiliated))
- (t
- (goto-char start)
- (org-get-indentation))))
- ((memq type '(headline inlinetask nil))
- (if (org-match-line "[ \t]*$")
- (org--get-expected-indentation element t)
- 0))
- ((memq type '(diary-sexp footnote-definition)) 0)
- ;; First paragraph of a footnote definition or an item.
- ;; Indent like parent.
- ((< (line-beginning-position) start)
- (org--get-expected-indentation
- (org-element-property :parent element) t))
- ;; At first line: indent according to previous sibling, if any,
- ;; ignoring footnote definitions and inline tasks, or parent's
- ;; contents.
- ((= (line-beginning-position) start)
- (catch 'exit
- (while t
- (if (= (point-min) start) (throw 'exit 0)
- (goto-char (1- start))
- (let* ((previous (org-element-at-point))
- (parent previous))
- (while (and parent (<= (org-element-property :end parent) start))
- (setq previous parent
- parent (org-element-property :parent parent)))
- (cond
- ((not previous) (throw 'exit 0))
- ((> (org-element-property :end previous) start)
- (throw 'exit (org--get-expected-indentation previous t)))
- ((memq (org-element-type previous)
- '(footnote-definition inlinetask))
- (setq start (org-element-property :begin previous)))
- (t (goto-char (org-element-property :begin previous))
- (throw 'exit
- (if (bolp) (org-get-indentation)
- ;; At first paragraph in an item or
- ;; a footnote definition.
- (org--get-expected-indentation
- (org-element-property :parent previous) t))))))))))
- ;; Otherwise, move to the first non-blank line above.
- (t
- (beginning-of-line)
- (let ((pos (point)))
- (skip-chars-backward " \r\t\n")
- (cond
- ;; Two blank lines end a footnote definition or a plain
- ;; list. When we indent an empty line after them, the
- ;; containing list or footnote definition is over, so it
- ;; qualifies as a previous sibling. Therefore, we indent
- ;; like its first line.
- ((and (memq type '(footnote-definition plain-list))
- (> (count-lines (point) pos) 2))
- (goto-char start)
- (org-get-indentation))
- ;; Line above is the first one of a paragraph at the
- ;; beginning of an item or a footnote definition. Indent
- ;; like parent.
- ((< (line-beginning-position) start)
- (org--get-expected-indentation
- (org-element-property :parent element) t))
- ;; Line above is the beginning of an element, i.e., point
- ;; was originally on the blank lines between element's start
- ;; and contents.
- ((= (line-beginning-position) post-affiliated)
- (org--get-expected-indentation element t))
- ;; POS is after contents in a greater element. Indent like
- ;; the beginning of the element.
- ((and (memq type org-element-greater-elements)
- (let ((cend (org-element-property :contents-end element)))
- (and cend (<= cend pos))))
- ;; As a special case, if point is at the end of a footnote
- ;; definition or an item, indent like the very last element
- ;; within. If that last element is an item, indent like
- ;; its contents.
- (if (memq type '(footnote-definition item plain-list))
- (let ((last (org-element-at-point)))
- (goto-char pos)
- (org--get-expected-indentation
- last (eq (org-element-type last) 'item)))
- (goto-char start)
- (org-get-indentation)))
- ;; In any other case, indent like the current line.
- (t (org-get-indentation)))))))))
-
-(defun org--align-node-property ()
- "Align node property at point.
-Alignment is done according to `org-property-format', which see."
- (when (save-excursion
- (beginning-of-line)
- (looking-at org-property-re))
- (replace-match
- (concat (match-string 4)
- (org-trim
- (format org-property-format (match-string 1) (match-string 3))))
- t t)))
-
-(defun org-indent-line ()
- "Indent line depending on context.
-
-Indentation is done according to the following rules:
-
- - Footnote definitions, diary sexps, headlines and inline tasks
- have to start at column 0.
-
- - On the very first line of an element, consider, in order, the
- next rules until one matches:
-
- 1. If there's a sibling element before, ignoring footnote
- definitions and inline tasks, indent like its first line.
-
- 2. If element has a parent, indent like its contents. More
- precisely, if parent is an item, indent after the
- description part, if any, or the bullet (see
- `org-list-description-max-indent'). Else, indent like
- parent's first line.
-
- 3. Otherwise, indent relatively to current level, if
- `org-adapt-indentation' is non-nil, or to left margin.
-
- - On a blank line at the end of an element, indent according to
- the type of the element. More precisely
-
- 1. If element is a plain list, an item, or a footnote
- definition, indent like the very last element within.
-
- 2. If element is a paragraph, indent like its last non blank
- line.
-
- 3. Otherwise, indent like its very first line.
-
- - In the code part of a source block, use language major mode
- to indent current line if `org-src-tab-acts-natively' is
- non-nil. If it is nil, do nothing.
-
- - Otherwise, indent like the first non-blank line above.
-
-The function doesn't indent an item as it could break the whole
-list structure. Instead, use \\<org-mode-map>`\\[org-shiftmetaleft]' or \
-`\\[org-shiftmetaright]'.
-
-Also align node properties according to `org-property-format'."
- (interactive)
- (cond
- (orgstruct-is-++
- (let ((indent-line-function
- (cl-cadadr (assq 'indent-line-function org-fb-vars))))
- (indent-according-to-mode)))
- ((org-at-heading-p) 'noindent)
- (t
- (let* ((element (save-excursion (beginning-of-line) (org-element-at-point)))
- (type (org-element-type element)))
- (cond ((and (memq type '(plain-list item))
- (= (line-beginning-position)
- (org-element-property :post-affiliated element)))
- 'noindent)
- ((and (eq type 'latex-environment)
- (>= (point) (org-element-property :post-affiliated element))
- (< (point) (org-with-wide-buffer
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position 2))))
- 'noindent)
- ((and (eq type 'src-block)
- org-src-tab-acts-natively
- (> (line-beginning-position)
- (org-element-property :post-affiliated element))
- (< (line-beginning-position)
- (org-with-wide-buffer
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position))))
- (org-babel-do-key-sequence-in-edit-buffer (kbd "TAB")))
- (t
- (let ((column (org--get-expected-indentation element nil)))
- ;; Preserve current column.
- (if (<= (current-column) (current-indentation))
- (indent-line-to column)
- (save-excursion (indent-line-to column))))
- ;; Align node property. Also preserve current column.
- (when (eq type 'node-property)
- (let ((column (current-column)))
- (org--align-node-property)
- (org-move-to-column column)))))))))
-
-(defun org-indent-region (start end)
- "Indent each non-blank line in the region.
-Called from a program, START and END specify the region to
-indent. The function will not indent contents of example blocks,
-verse blocks and export blocks as leading white spaces are
-assumed to be significant there."
- (interactive "r")
- (save-excursion
- (goto-char start)
- (skip-chars-forward " \r\t\n")
- (unless (eobp) (beginning-of-line))
- (let ((indent-to
- (lambda (ind pos)
- ;; Set IND as indentation for all lines between point and
- ;; POS. Blank lines are ignored. Leave point after POS
- ;; once done.
- (let ((limit (copy-marker pos)))
- (while (< (point) limit)
- (unless (looking-at-p "[ \t]*$") (indent-line-to ind))
- (forward-line))
- (set-marker limit nil))))
- (end (copy-marker end)))
- (while (< (point) end)
- (if (or (looking-at-p " \r\t\n") (org-at-heading-p)) (forward-line)
- (let* ((element (org-element-at-point))
- (type (org-element-type element))
- (element-end (copy-marker (org-element-property :end element)))
- (ind (org--get-expected-indentation element nil)))
- (cond
- ;; Element indented as a single block. Example blocks
- ;; preserving indentation are a special case since the
- ;; "contents" must not be indented whereas the block
- ;; boundaries can.
- ((or (memq type '(export-block latex-environment))
- (and (eq type 'example-block)
- (not
- (or org-src-preserve-indentation
- (org-element-property :preserve-indent element)))))
- (let ((offset (- ind (org-get-indentation))))
- (unless (zerop offset)
- (indent-rigidly (org-element-property :begin element)
- (org-element-property :end element)
- offset)))
- (goto-char element-end))
- ;; Elements indented line wise. Be sure to exclude
- ;; example blocks (preserving indentation) and source
- ;; blocks from this category as they are treated
- ;; specially later.
- ((or (memq type '(paragraph table table-row))
- (not (or (org-element-property :contents-begin element)
- (memq type '(example-block src-block)))))
- (when (eq type 'node-property)
- (org--align-node-property)
- (beginning-of-line))
- (funcall indent-to ind (min element-end end)))
- ;; Elements consisting of three parts: before the
- ;; contents, the contents, and after the contents. The
- ;; contents are treated specially, according to the
- ;; element type, or not indented at all. Other parts are
- ;; indented as a single block.
- (t
- (let* ((post (copy-marker
- (org-element-property :post-affiliated element)))
- (cbeg
- (copy-marker
- (cond
- ((not (org-element-property :contents-begin element))
- ;; Fake contents for source blocks.
- (org-with-wide-buffer
- (goto-char post)
- (line-beginning-position 2)))
- ((memq type '(footnote-definition item plain-list))
- ;; Contents in these elements could start on
- ;; the same line as the beginning of the
- ;; element. Make sure we start indenting
- ;; from the second line.
- (org-with-wide-buffer
- (goto-char post)
- (end-of-line)
- (skip-chars-forward " \r\t\n")
- (if (eobp) (point) (line-beginning-position))))
- (t (org-element-property :contents-begin element)))))
- (cend (copy-marker
- (or (org-element-property :contents-end element)
- ;; Fake contents for source blocks.
- (org-with-wide-buffer
- (goto-char element-end)
- (skip-chars-backward " \r\t\n")
- (line-beginning-position)))
- t)))
- ;; Do not change items indentation individually as it
- ;; might break the list as a whole. On the other
- ;; hand, when at a plain list, indent it as a whole.
- (cond ((eq type 'plain-list)
- (let ((offset (- ind (org-get-indentation))))
- (unless (zerop offset)
- (indent-rigidly (org-element-property :begin element)
- (org-element-property :end element)
- offset))
- (goto-char cbeg)))
- ((eq type 'item) (goto-char cbeg))
- (t (funcall indent-to ind (min cbeg end))))
- (when (< (point) end)
- (cl-case type
- ((example-block verse-block))
- (src-block
- ;; In a source block, indent source code
- ;; according to language major mode, but only if
- ;; `org-src-tab-acts-natively' is non-nil.
- (when (and (< (point) end) org-src-tab-acts-natively)
- (ignore-errors
- (org-babel-do-in-edit-buffer
- (indent-region (point-min) (point-max))))))
- (t (org-indent-region (point) (min cend end))))
- (goto-char (min cend end))
- (when (< (point) end)
- (funcall indent-to ind (min element-end end))))
- (set-marker post nil)
- (set-marker cbeg nil)
- (set-marker cend nil))))
- (set-marker element-end nil))))
- (set-marker end nil))))
-
-(defun org-indent-drawer ()
- "Indent the drawer at point."
- (interactive)
- (unless (save-excursion
- (beginning-of-line)
- (looking-at-p org-drawer-regexp))
- (user-error "Not at a drawer"))
- (let ((element (org-element-at-point)))
- (unless (memq (org-element-type element) '(drawer property-drawer))
- (user-error "Not at a drawer"))
- (org-with-wide-buffer
- (org-indent-region (org-element-property :begin element)
- (org-element-property :end element))))
- (message "Drawer at point indented"))
-
-(defun org-indent-block ()
- "Indent the block at point."
- (interactive)
- (unless (save-excursion
- (beginning-of-line)
- (let ((case-fold-search t))
- (looking-at-p "[ \t]*#\\+\\(begin\\|end\\)_")))
- (user-error "Not at a block"))
- (let ((element (org-element-at-point)))
- (unless (memq (org-element-type element)
- '(comment-block center-block dynamic-block example-block
- export-block quote-block special-block
- src-block verse-block))
- (user-error "Not at a block"))
- (org-with-wide-buffer
- (org-indent-region (org-element-property :begin element)
- (org-element-property :end element))))
- (message "Block at point indented"))
-
-
-;;; Filling
-
-;; We use our own fill-paragraph and auto-fill functions.
-
-;; `org-fill-paragraph' relies on adaptive filling and context
-;; checking. Appropriate `fill-prefix' is computed with
-;; `org-adaptive-fill-function'.
-
-;; `org-auto-fill-function' takes care of auto-filling. It calls
-;; `do-auto-fill' only on valid areas with `fill-prefix' shadowed with
-;; `org-adaptive-fill-function' value. Internally,
-;; `org-comment-line-break-function' breaks the line.
-
-;; `org-setup-filling' installs filling and auto-filling related
-;; variables during `org-mode' initialization.
-
-(defun org-setup-filling ()
- (require 'org-element)
- ;; Prevent auto-fill from inserting unwanted new items.
- (when (boundp 'fill-nobreak-predicate)
- (setq-local
- fill-nobreak-predicate
- (org-uniquify
- (append fill-nobreak-predicate
- '(org-fill-line-break-nobreak-p
- org-fill-n-macro-as-item-nobreak-p
- org-fill-paragraph-with-timestamp-nobreak-p)))))
- (let ((paragraph-ending (substring org-element-paragraph-separate 1)))
- (setq-local paragraph-start paragraph-ending)
- (setq-local paragraph-separate paragraph-ending))
- (setq-local fill-paragraph-function 'org-fill-paragraph)
- (setq-local auto-fill-inhibit-regexp nil)
- (setq-local adaptive-fill-function 'org-adaptive-fill-function)
- (setq-local normal-auto-fill-function 'org-auto-fill-function)
- (setq-local comment-line-break-function 'org-comment-line-break-function))
-
-(defun org-fill-line-break-nobreak-p ()
- "Non-nil when a new line at point would create an Org line break."
- (save-excursion
- (skip-chars-backward "[ \t]")
- (skip-chars-backward "\\\\")
- (looking-at "\\\\\\\\\\($\\|[^\\\\]\\)")))
-
-(defun org-fill-paragraph-with-timestamp-nobreak-p ()
- "Non-nil when a new line at point would split a timestamp."
- (and (org-at-timestamp-p 'lax)
- (not (looking-at org-ts-regexp-both))))
-
-(defun org-fill-n-macro-as-item-nobreak-p ()
- "Non-nil when a new line at point would create a new list."
- ;; During export, a "n" macro followed by a dot or a closing
- ;; parenthesis can end up being parsed as a new list item.
- (looking-at-p "[ \t]*{{{n\\(?:([^\n)]*)\\)?}}}[.)]\\(?:$\\| \\)"))
-
-(declare-function message-in-body-p "message" ())
-(defvar orgtbl-line-start-regexp) ; From org-table.el
-(defun org-adaptive-fill-function ()
- "Compute a fill prefix for the current line.
-Return fill prefix, as a string, or nil if current line isn't
-meant to be filled. For convenience, if `adaptive-fill-regexp'
-matches in paragraphs or comments, use it."
- (catch 'exit
- (when (derived-mode-p 'message-mode)
- (save-excursion
- (beginning-of-line)
- (cond ((not (message-in-body-p)) (throw 'exit nil))
- ((looking-at-p org-table-line-regexp) (throw 'exit nil))
- ((looking-at message-cite-prefix-regexp)
- (throw 'exit (match-string-no-properties 0)))
- ((looking-at org-outline-regexp)
- (throw 'exit (make-string (length (match-string 0)) ?\s))))))
- (org-with-wide-buffer
- (unless (org-at-heading-p)
- (let* ((p (line-beginning-position))
- (element (save-excursion
- (beginning-of-line)
- (org-element-at-point)))
- (type (org-element-type element))
- (post-affiliated (org-element-property :post-affiliated element)))
- (unless (< p post-affiliated)
- (cl-case type
- (comment
- (save-excursion
- (beginning-of-line)
- (looking-at "[ \t]*")
- (concat (match-string 0) "# ")))
- (footnote-definition "")
- ((item plain-list)
- (make-string (org-list-item-body-column post-affiliated) ?\s))
- (paragraph
- ;; Fill prefix is usually the same as the current line,
- ;; unless the paragraph is at the beginning of an item.
- (let ((parent (org-element-property :parent element)))
- (save-excursion
- (beginning-of-line)
- (cond ((eq (org-element-type parent) 'item)
- (make-string (org-list-item-body-column
- (org-element-property :begin parent))
- ?\s))
- ((and adaptive-fill-regexp
- ;; Locally disable
- ;; `adaptive-fill-function' to let
- ;; `fill-context-prefix' handle
- ;; `adaptive-fill-regexp' variable.
- (let (adaptive-fill-function)
- (fill-context-prefix
- post-affiliated
- (org-element-property :end element)))))
- ((looking-at "[ \t]+") (match-string 0))
- (t "")))))
- (comment-block
- ;; Only fill contents if P is within block boundaries.
- (let* ((cbeg (save-excursion (goto-char post-affiliated)
- (forward-line)
- (point)))
- (cend (save-excursion
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position))))
- (when (and (>= p cbeg) (< p cend))
- (if (save-excursion (beginning-of-line) (looking-at "[ \t]+"))
- (match-string 0)
- "")))))))))))
-
-(declare-function message-goto-body "message" ())
-(defvar message-cite-prefix-regexp) ; From message.el
-
-(defun org-fill-element (&optional justify)
- "Fill element at point, when applicable.
-
-This function only applies to comment blocks, comments, example
-blocks and paragraphs. Also, as a special case, re-align table
-when point is at one.
-
-If JUSTIFY is non-nil (interactively, with prefix argument),
-justify as well. If `sentence-end-double-space' is non-nil, then
-period followed by one space does not end a sentence, so don't
-break a line there. The variable `fill-column' controls the
-width for filling.
-
-For convenience, when point is at a plain list, an item or
-a footnote definition, try to fill the first paragraph within."
- (with-syntax-table org-mode-transpose-word-syntax-table
- ;; Move to end of line in order to get the first paragraph within
- ;; a plain list or a footnote definition.
- (let ((element (save-excursion (end-of-line) (org-element-at-point))))
- ;; First check if point is in a blank line at the beginning of
- ;; the buffer. In that case, ignore filling.
- (cl-case (org-element-type element)
- ;; Use major mode filling function is src blocks.
- (src-block (org-babel-do-key-sequence-in-edit-buffer (kbd "M-q")))
- ;; Align Org tables, leave table.el tables as-is.
- (table-row (org-table-align) t)
- (table
- (when (eq (org-element-property :type element) 'org)
- (save-excursion
- (goto-char (org-element-property :post-affiliated element))
- (org-table-align)))
- t)
- (paragraph
- ;; Paragraphs may contain `line-break' type objects.
- (let ((beg (max (point-min)
- (org-element-property :contents-begin element)))
- (end (min (point-max)
- (org-element-property :contents-end element))))
- ;; Do nothing if point is at an affiliated keyword.
- (if (< (line-end-position) beg) t
- (when (derived-mode-p 'message-mode)
- ;; In `message-mode', do not fill following citation
- ;; in current paragraph nor text before message body.
- (let ((body-start (save-excursion (message-goto-body))))
- (when body-start (setq beg (max body-start beg))))
- (when (save-excursion
- (re-search-forward
- (concat "^" message-cite-prefix-regexp) end t))
- (setq end (match-beginning 0))))
- ;; Fill paragraph, taking line breaks into account.
- (save-excursion
- (goto-char beg)
- (let ((cuts (list beg)))
- (while (re-search-forward "\\\\\\\\[ \t]*\n" end t)
- (when (eq 'line-break
- (org-element-type
- (save-excursion (backward-char)
- (org-element-context))))
- (push (point) cuts)))
- (dolist (c (delq end cuts))
- (fill-region-as-paragraph c end justify)
- (setq end c))))
- t)))
- ;; Contents of `comment-block' type elements should be
- ;; filled as plain text, but only if point is within block
- ;; markers.
- (comment-block
- (let* ((case-fold-search t)
- (beg (save-excursion
- (goto-char (org-element-property :begin element))
- (re-search-forward "^[ \t]*#\\+begin_comment" nil t)
- (forward-line)
- (point)))
- (end (save-excursion
- (goto-char (org-element-property :end element))
- (re-search-backward "^[ \t]*#\\+end_comment" nil t)
- (line-beginning-position))))
- (if (or (< (point) beg) (> (point) end)) t
- (fill-region-as-paragraph
- (save-excursion (end-of-line)
- (re-search-backward "^[ \t]*$" beg 'move)
- (line-beginning-position))
- (save-excursion (beginning-of-line)
- (re-search-forward "^[ \t]*$" end 'move)
- (line-beginning-position))
- justify))))
- ;; Fill comments.
- (comment
- (let ((begin (org-element-property :post-affiliated element))
- (end (org-element-property :end element)))
- (when (and (>= (point) begin) (<= (point) end))
- (let ((begin (save-excursion
- (end-of-line)
- (if (re-search-backward "^[ \t]*#[ \t]*$" begin t)
- (progn (forward-line) (point))
- begin)))
- (end (save-excursion
- (end-of-line)
- (if (re-search-forward "^[ \t]*#[ \t]*$" end 'move)
- (1- (line-beginning-position))
- (skip-chars-backward " \r\t\n")
- (line-end-position)))))
- ;; Do not fill comments when at a blank line.
- (when (> end begin)
- (let ((fill-prefix
- (save-excursion
- (beginning-of-line)
- (looking-at "[ \t]*#")
- (let ((comment-prefix (match-string 0)))
- (goto-char (match-end 0))
- (if (looking-at adaptive-fill-regexp)
- (concat comment-prefix (match-string 0))
- (concat comment-prefix " "))))))
- (save-excursion
- (fill-region-as-paragraph begin end justify))))))
- t))
- ;; Ignore every other element.
- (otherwise t)))))
-
-(defun org-fill-paragraph (&optional justify region)
- "Fill element at point, when applicable.
-
-This function only applies to comment blocks, comments, example
-blocks and paragraphs. Also, as a special case, re-align table
-when point is at one.
-
-For convenience, when point is at a plain list, an item or
-a footnote definition, try to fill the first paragraph within.
-
-If JUSTIFY is non-nil (interactively, with prefix argument),
-justify as well. If `sentence-end-double-space' is non-nil, then
-period followed by one space does not end a sentence, so don't
-break a line there. The variable `fill-column' controls the
-width for filling.
-
-The REGION argument is non-nil if called interactively; in that
-case, if Transient Mark mode is enabled and the mark is active,
-fill each of the elements in the active region, instead of just
-filling the current element."
- (interactive (progn
- (barf-if-buffer-read-only)
- (list (if current-prefix-arg 'full) t)))
- (cond
- ((and (derived-mode-p 'message-mode)
- (or (not (message-in-body-p))
- (save-excursion (move-beginning-of-line 1)
- (looking-at message-cite-prefix-regexp))))
- ;; First ensure filling is correct in message-mode.
- (let ((fill-paragraph-function
- (cl-cadadr (assq 'fill-paragraph-function org-fb-vars)))
- (fill-prefix (cl-cadadr (assq 'fill-prefix org-fb-vars)))
- (paragraph-start (cl-cadadr (assq 'paragraph-start org-fb-vars)))
- (paragraph-separate
- (cl-cadadr (assq 'paragraph-separate org-fb-vars))))
- (fill-paragraph nil)))
- ((and region transient-mark-mode mark-active
- (not (eq (region-beginning) (region-end))))
- (let ((origin (point-marker))
- (start (region-beginning)))
- (unwind-protect
- (progn
- (goto-char (region-end))
- (while (> (point) start)
- (org-backward-paragraph)
- (org-fill-element justify)))
- (goto-char origin)
- (set-marker origin nil))))
- (t (org-fill-element justify))))
-(org-remap org-mode-map 'fill-paragraph 'org-fill-paragraph)
-
-(defun org-auto-fill-function ()
- "Auto-fill function."
- ;; Check if auto-filling is meaningful.
- (let ((fc (current-fill-column)))
- (when (and fc (> (current-column) fc))
- (let* ((fill-prefix (org-adaptive-fill-function))
- ;; Enforce empty fill prefix, if required. Otherwise, it
- ;; will be computed again.
- (adaptive-fill-mode (not (equal fill-prefix ""))))
- (when fill-prefix (do-auto-fill))))))
-
-(defun org-comment-line-break-function (&optional soft)
- "Break line at point and indent, continuing comment if within one.
-The inserted newline is marked hard if variable
-`use-hard-newlines' is true, unless optional argument SOFT is
-non-nil."
- (if soft (insert-and-inherit ?\n) (newline 1))
- (save-excursion (forward-char -1) (delete-horizontal-space))
- (delete-horizontal-space)
- (indent-to-left-margin)
- (insert-before-markers-and-inherit fill-prefix))
-
-
-;;; Fixed Width Areas
-
-(defun org-toggle-fixed-width ()
- "Toggle fixed-width markup.
-
-Add or remove fixed-width markup on current line, whenever it
-makes sense. Return an error otherwise.
-
-If a region is active and if it contains only fixed-width areas
-or blank lines, remove all fixed-width markup in it. If the
-region contains anything else, convert all non-fixed-width lines
-to fixed-width ones.
-
-Blank lines at the end of the region are ignored unless the
-region only contains such lines."
- (interactive)
- (if (not (org-region-active-p))
- ;; No region:
- ;;
- ;; Remove fixed width marker only in a fixed-with element.
- ;;
- ;; Add fixed width maker in paragraphs, in blank lines after
- ;; elements or at the beginning of a headline or an inlinetask,
- ;; and before any one-line elements (e.g., a clock).
- (progn
- (beginning-of-line)
- (let* ((element (org-element-at-point))
- (type (org-element-type element)))
- (cond
- ((and (eq type 'fixed-width)
- (looking-at "[ \t]*\\(:\\(?: \\|$\\)\\)"))
- (replace-match
- "" nil nil nil (if (= (line-end-position) (match-end 0)) 0 1)))
- ((and (memq type '(babel-call clock comment diary-sexp headline
- horizontal-rule keyword paragraph
- planning))
- (<= (org-element-property :post-affiliated element) (point)))
- (skip-chars-forward " \t")
- (insert ": "))
- ((and (looking-at-p "[ \t]*$")
- (or (eq type 'inlinetask)
- (save-excursion
- (skip-chars-forward " \r\t\n")
- (<= (org-element-property :end element) (point)))))
- (delete-region (point) (line-end-position))
- (org-indent-line)
- (insert ": "))
- (t (user-error "Cannot insert a fixed-width line here")))))
- ;; Region active.
- (let* ((begin (save-excursion
- (goto-char (region-beginning))
- (line-beginning-position)))
- (end (copy-marker
- (save-excursion
- (goto-char (region-end))
- (unless (eolp) (beginning-of-line))
- (if (save-excursion (re-search-backward "\\S-" begin t))
- (progn (skip-chars-backward " \r\t\n") (point))
- (point)))))
- (all-fixed-width-p
- (catch 'not-all-p
- (save-excursion
- (goto-char begin)
- (skip-chars-forward " \r\t\n")
- (when (eobp) (throw 'not-all-p nil))
- (while (< (point) end)
- (let ((element (org-element-at-point)))
- (if (eq (org-element-type element) 'fixed-width)
- (goto-char (org-element-property :end element))
- (throw 'not-all-p nil))))
- t))))
- (if all-fixed-width-p
- (save-excursion
- (goto-char begin)
- (while (< (point) end)
- (when (looking-at "[ \t]*\\(:\\(?: \\|$\\)\\)")
- (replace-match
- "" nil nil nil
- (if (= (line-end-position) (match-end 0)) 0 1)))
- (forward-line)))
- (let ((min-ind (point-max)))
- ;; Find minimum indentation across all lines.
- (save-excursion
- (goto-char begin)
- (if (not (save-excursion (re-search-forward "\\S-" end t)))
- (setq min-ind 0)
- (catch 'zerop
- (while (< (point) end)
- (unless (looking-at-p "[ \t]*$")
- (let ((ind (org-get-indentation)))
- (setq min-ind (min min-ind ind))
- (when (zerop ind) (throw 'zerop t))))
- (forward-line)))))
- ;; Loop over all lines and add fixed-width markup everywhere
- ;; but in fixed-width lines.
- (save-excursion
- (goto-char begin)
- (while (< (point) end)
- (cond
- ((org-at-heading-p)
- (insert ": ")
- (forward-line)
- (while (and (< (point) end) (looking-at-p "[ \t]*$"))
- (insert ":")
- (forward-line)))
- ((looking-at-p "[ \t]*:\\( \\|$\\)")
- (let* ((element (org-element-at-point))
- (element-end (org-element-property :end element)))
- (if (eq (org-element-type element) 'fixed-width)
- (progn (goto-char element-end)
- (skip-chars-backward " \r\t\n")
- (forward-line))
- (let ((limit (min end element-end)))
- (while (< (point) limit)
- (org-move-to-column min-ind t)
- (insert ": ")
- (forward-line))))))
- (t
- (org-move-to-column min-ind t)
- (insert ": ")
- (forward-line)))))))
- (set-marker end nil))))
-
-
-;;; Comments
-
-;; Org comments syntax is quite complex. It requires the entire line
-;; to be just a comment. Also, even with the right syntax at the
-;; beginning of line, some elements (e.g., verse-block or
-;; example-block) don't accept comments. Usual Emacs comment commands
-;; cannot cope with those requirements. Therefore, Org replaces them.
-
-;; Org still relies on `comment-dwim', but cannot trust
-;; `comment-only-p'. So, `comment-region-function' and
-;; `uncomment-region-function' both point
-;; to`org-comment-or-uncomment-region'. Eventually,
-;; `org-insert-comment' takes care of insertion of comments at the
-;; beginning of line.
-
-;; `org-setup-comments-handling' install comments related variables
-;; during `org-mode' initialization.
-
-(defun org-setup-comments-handling ()
- (interactive)
- (setq-local comment-use-syntax nil)
- (setq-local comment-start "# ")
- (setq-local comment-start-skip "^\\s-*#\\(?: \\|$\\)")
- (setq-local comment-insert-comment-function 'org-insert-comment)
- (setq-local comment-region-function 'org-comment-or-uncomment-region)
- (setq-local uncomment-region-function 'org-comment-or-uncomment-region))
-
-(defun org-insert-comment ()
- "Insert an empty comment above current line.
-If the line is empty, insert comment at its beginning. When
-point is within a source block, comment according to the related
-major mode."
- (if (let ((element (org-element-at-point)))
- (and (eq (org-element-type element) 'src-block)
- (< (save-excursion
- (goto-char (org-element-property :post-affiliated element))
- (line-end-position))
- (point))
- (> (save-excursion
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position))
- (point))))
- (org-babel-do-in-edit-buffer (call-interactively 'comment-dwim))
- (beginning-of-line)
- (if (looking-at "\\s-*$") (delete-region (point) (point-at-eol))
- (open-line 1))
- (org-indent-line)
- (insert "# ")))
-
-(defvar comment-empty-lines) ; From newcomment.el.
-(defun org-comment-or-uncomment-region (beg end &rest _)
- "Comment or uncomment each non-blank line in the region.
-Uncomment each non-blank line between BEG and END if it only
-contains commented lines. Otherwise, comment them. If region is
-strictly within a source block, use appropriate comment syntax."
- (if (let ((element (org-element-at-point)))
- (and (eq (org-element-type element) 'src-block)
- (< (save-excursion
- (goto-char (org-element-property :post-affiliated element))
- (line-end-position))
- beg)
- (>= (save-excursion
- (goto-char (org-element-property :end element))
- (skip-chars-backward " \r\t\n")
- (line-beginning-position))
- end)))
- ;; Translate region boundaries for the Org buffer to the source
- ;; buffer.
- (let ((offset (- end beg)))
- (save-excursion
- (goto-char beg)
- (org-babel-do-in-edit-buffer
- (comment-or-uncomment-region (point) (+ offset (point))))))
- (save-restriction
- ;; Restrict region
- (narrow-to-region (save-excursion (goto-char beg)
- (skip-chars-forward " \r\t\n" end)
- (line-beginning-position))
- (save-excursion (goto-char end)
- (skip-chars-backward " \r\t\n" beg)
- (line-end-position)))
- (let ((uncommentp
- ;; UNCOMMENTP is non-nil when every non blank line between
- ;; BEG and END is a comment.
- (save-excursion
- (goto-char (point-min))
- (while (and (not (eobp))
- (let ((element (org-element-at-point)))
- (and (eq (org-element-type element) 'comment)
- (goto-char (min (point-max)
- (org-element-property
- :end element)))))))
- (eobp))))
- (if uncommentp
- ;; Only blank lines and comments in region: uncomment it.
- (save-excursion
- (goto-char (point-min))
- (while (not (eobp))
- (when (looking-at "[ \t]*\\(#\\(?: \\|$\\)\\)")
- (replace-match "" nil nil nil 1))
- (forward-line)))
- ;; Comment each line in region.
- (let ((min-indent (point-max)))
- ;; First find the minimum indentation across all lines.
- (save-excursion
- (goto-char (point-min))
- (while (and (not (eobp)) (not (zerop min-indent)))
- (unless (looking-at "[ \t]*$")
- (setq min-indent (min min-indent (current-indentation))))
- (forward-line)))
- ;; Then loop over all lines.
- (save-excursion
- (goto-char (point-min))
- (while (not (eobp))
- (unless (and (not comment-empty-lines) (looking-at "[ \t]*$"))
- ;; Don't get fooled by invisible text (e.g. link path)
- ;; when moving to column MIN-INDENT.
- (let ((buffer-invisibility-spec nil))
- (org-move-to-column min-indent t))
- (insert comment-start))
- (forward-line)))))))))
-
-(defun org-comment-dwim (_arg)
- "Call `comment-dwim' within a source edit buffer if needed."
- (interactive "*P")
- (if (org-in-src-block-p)
- (org-babel-do-in-edit-buffer (call-interactively 'comment-dwim))
- (call-interactively 'comment-dwim)))
-
-
-;;; Timestamps API
-
-;; This section contains tools to operate on timestamp objects, as
-;; returned by, e.g. `org-element-context'.
-
-(defun org-timestamp--to-internal-time (timestamp &optional end)
- "Encode TIMESTAMP object into Emacs internal time.
-Use end of date range or time range when END is non-nil."
- (apply #'encode-time
- (cons 0
- (mapcar
- (lambda (prop) (or (org-element-property prop timestamp) 0))
- (if end '(:minute-end :hour-end :day-end :month-end :year-end)
- '(:minute-start :hour-start :day-start :month-start
- :year-start))))))
-
-(defun org-timestamp-has-time-p (timestamp)
- "Non-nil when TIMESTAMP has a time specified."
- (org-element-property :hour-start timestamp))
-
-(defun org-timestamp-format (timestamp format &optional end utc)
- "Format a TIMESTAMP object into a string.
-
-FORMAT is a format specifier to be passed to
-`format-time-string'.
-
-When optional argument END is non-nil, use end of date-range or
-time-range, if possible.
-
-When optional argument UTC is non-nil, time will be expressed as
-Universal Time."
- (format-time-string
- format (org-timestamp--to-internal-time timestamp end)
- (and utc t)))
-
-(defun org-timestamp-split-range (timestamp &optional end)
- "Extract a TIMESTAMP object from a date or time range.
-
-END, when non-nil, means extract the end of the range.
-Otherwise, extract its start.
-
-Return a new timestamp object."
- (let ((type (org-element-property :type timestamp)))
- (if (memq type '(active inactive diary)) timestamp
- (let ((split-ts (org-element-copy timestamp)))
- ;; Set new type.
- (org-element-put-property
- split-ts :type (if (eq type 'active-range) 'active 'inactive))
- ;; Copy start properties over end properties if END is
- ;; non-nil. Otherwise, copy end properties over `start' ones.
- (let ((p-alist '((:minute-start . :minute-end)
- (:hour-start . :hour-end)
- (:day-start . :day-end)
- (:month-start . :month-end)
- (:year-start . :year-end))))
- (dolist (p-cell p-alist)
- (org-element-put-property
- split-ts
- (funcall (if end #'car #'cdr) p-cell)
- (org-element-property
- (funcall (if end #'cdr #'car) p-cell) split-ts)))
- ;; Eventually refresh `:raw-value'.
- (org-element-put-property split-ts :raw-value nil)
- (org-element-put-property
- split-ts :raw-value (org-element-interpret-data split-ts)))))))
-
-(defun org-timestamp-translate (timestamp &optional boundary)
- "Translate TIMESTAMP object to custom format.
-
-Format string is defined in `org-time-stamp-custom-formats',
-which see.
-
-When optional argument BOUNDARY is non-nil, it is either the
-symbol `start' or `end'. In this case, only translate the
-starting or ending part of TIMESTAMP if it is a date or time
-range. Otherwise, translate both parts.
-
-Return timestamp as-is if `org-display-custom-times' is nil or if
-it has a `diary' type."
- (let ((type (org-element-property :type timestamp)))
- (if (or (not org-display-custom-times) (eq type 'diary))
- (org-element-interpret-data timestamp)
- (let ((fmt (funcall (if (org-timestamp-has-time-p timestamp) #'cdr #'car)
- org-time-stamp-custom-formats)))
- (if (and (not boundary) (memq type '(active-range inactive-range)))
- (concat (org-timestamp-format timestamp fmt)
- "--"
- (org-timestamp-format timestamp fmt t))
- (org-timestamp-format timestamp fmt (eq boundary 'end)))))))
-
-
-
-;;; Other stuff.
-
-(defvar reftex-docstruct-symbol)
-(defvar org--rds)
-
-(defun org-reftex-citation ()
- "Use reftex-citation to insert a citation into the buffer.
-This looks for a line like
-
-#+BIBLIOGRAPHY: foo plain option:-d
-
-and derives from it that foo.bib is the bibliography file relevant
-for this document. It then installs the necessary environment for RefTeX
-to work in this buffer and calls `reftex-citation' to insert a citation
-into the buffer.
-
-Export of such citations to both LaTeX and HTML is handled by the contributed
-package ox-bibtex by Taru Karttunen."
- (interactive)
- (let ((reftex-docstruct-symbol 'org--rds)
- org--rds bib)
- (org-with-wide-buffer
- (let ((case-fold-search t)
- (re "^[ \t]*#\\+BIBLIOGRAPHY:[ \t]+\\([^ \t\n]+\\)"))
- (if (not (save-excursion
- (or (re-search-forward re nil t)
- (re-search-backward re nil t))))
- (user-error "No bibliography defined in file")
- (setq bib (concat (match-string 1) ".bib")
- org--rds (list (list 'bib bib))))))
- (call-interactively 'reftex-citation)))
-
-;;;; Functions extending outline functionality
-
-(defun org-beginning-of-line (&optional n)
- "Go to the beginning of the current visible line.
-
-If this is a headline, and `org-special-ctrl-a/e' is set, ignore
-tags on the first attempt, and only move to after the tags when
-the cursor is already beyond the end of the headline.
-
-With argument N not nil or 1, move forward N - 1 lines first."
- (interactive "^p")
- (let ((origin (point))
- (special (pcase org-special-ctrl-a/e
- (`(,C-a . ,_) C-a) (_ org-special-ctrl-a/e)))
- deactivate-mark)
- ;; First move to a visible line.
- (if (bound-and-true-p visual-line-mode)
- (beginning-of-visual-line n)
- (move-beginning-of-line n)
- ;; `move-beginning-of-line' may leave point after invisible
- ;; characters if line starts with such of these (e.g., with
- ;; a link at column 0). Really move to the beginning of the
- ;; current visible line.
- (beginning-of-line))
- (cond
- ;; No special behavior. Point is already at the beginning of
- ;; a line, logical or visual.
- ((not special))
- ;; `beginning-of-visual-line' left point before logical beginning
- ;; of line: point is at the beginning of a visual line. Bail
- ;; out.
- ((and (bound-and-true-p visual-line-mode) (not (bolp))))
- ((let ((case-fold-search nil)) (looking-at org-complex-heading-regexp))
- ;; At a headline, special position is before the title, but
- ;; after any TODO keyword or priority cookie.
- (let ((refpos (min (1+ (or (match-end 3) (match-end 2) (match-end 1)))
- (line-end-position)))
- (bol (point)))
- (if (eq special 'reversed)
- (when (and (= origin bol) (eq last-command this-command))
- (goto-char refpos))
- (when (or (> origin refpos) (= origin bol))
- (goto-char refpos)))))
- ((and (looking-at org-list-full-item-re)
- (memq (org-element-type (save-match-data (org-element-at-point)))
- '(item plain-list)))
- ;; Set special position at first white space character after
- ;; bullet, and check-box, if any.
- (let ((after-bullet
- (let ((box (match-end 3)))
- (cond ((not box) (match-end 1))
- ((eq (char-after box) ?\s) (1+ box))
- (t box)))))
- (if (eq special 'reversed)
- (when (and (= (point) origin) (eq last-command this-command))
- (goto-char after-bullet))
- (when (or (> origin after-bullet) (= (point) origin))
- (goto-char after-bullet)))))
- ;; No special context. Point is already at beginning of line.
- (t nil))))
-
-(defun org-end-of-line (&optional n)
- "Go to the end of the line, but before ellipsis, if any.
-
-If this is a headline, and `org-special-ctrl-a/e' is set, ignore
-tags on the first attempt, and only move to after the tags when
-the cursor is already beyond the end of the headline.
-
-With argument N not nil or 1, move forward N - 1 lines first."
- (interactive "^p")
- (let ((origin (point))
- (special (pcase org-special-ctrl-a/e
- (`(,_ . ,C-e) C-e) (_ org-special-ctrl-a/e)))
- deactivate-mark)
- ;; First move to a visible line.
- (if (bound-and-true-p visual-line-mode)
- (beginning-of-visual-line n)
- (move-beginning-of-line n))
- (cond
- ;; At a headline, with tags.
- ((and special
- (save-excursion
- (beginning-of-line)
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp)))
- (match-end 5))
- (let ((tags (save-excursion
- (goto-char (match-beginning 5))
- (skip-chars-backward " \t")
- (point)))
- (visual-end (and (bound-and-true-p visual-line-mode)
- (save-excursion
- (end-of-visual-line)
- (point)))))
- ;; If `end-of-visual-line' brings us before end of line or
- ;; even tags, i.e., the headline spans over multiple visual
- ;; lines, move there.
- (cond ((and visual-end
- (< visual-end tags)
- (<= origin visual-end))
- (goto-char visual-end))
- ((eq special 'reversed)
- (if (and (= origin (line-end-position))
- (eq this-command last-command))
- (goto-char tags)
- (end-of-line)))
- (t
- (if (or (< origin tags) (= origin (line-end-position)))
- (goto-char tags)
- (end-of-line))))))
- ((bound-and-true-p visual-line-mode)
- (let ((bol (line-beginning-position)))
- (end-of-visual-line)
- ;; If `end-of-visual-line' gets us past the ellipsis at the
- ;; end of a line, backtrack and use `end-of-line' instead.
- (when (/= bol (line-beginning-position))
- (goto-char bol)
- (end-of-line))))
- (t (end-of-line)))))
-
-(define-key org-mode-map "\C-a" 'org-beginning-of-line)
-(define-key org-mode-map "\C-e" 'org-end-of-line)
-
-(defun org-backward-sentence (&optional _arg)
- "Go to beginning of sentence, or beginning of table field.
-This will call `backward-sentence' or `org-table-beginning-of-field',
-depending on context."
- (interactive)
- (let* ((element (org-element-at-point))
- (contents-begin (org-element-property :contents-begin element))
- (table (org-element-lineage element '(table) t)))
- (if (and table
- (> (point) contents-begin)
- (<= (point) (org-element-property :contents-end table)))
- (call-interactively #'org-table-beginning-of-field)
- (save-restriction
- (when (and contents-begin
- (< (point-min) contents-begin)
- (> (point) contents-begin))
- (narrow-to-region contents-begin
- (org-element-property :contents-end element)))
- (call-interactively #'backward-sentence)))))
-
-(defun org-forward-sentence (&optional _arg)
- "Go to end of sentence, or end of table field.
-This will call `forward-sentence' or `org-table-end-of-field',
-depending on context."
- (interactive)
- (if (and (org-at-heading-p)
- (save-restriction (skip-chars-forward " \t") (not (eolp))))
- (save-restriction
- (narrow-to-region (line-beginning-position) (line-end-position))
- (call-interactively #'forward-sentence))
- (let* ((element (org-element-at-point))
- (contents-end (org-element-property :contents-end element))
- (table (org-element-lineage element '(table) t)))
- (if (and table
- (>= (point) (org-element-property :contents-begin table))
- (< (point) contents-end))
- (call-interactively #'org-table-end-of-field)
- (save-restriction
- (when (and contents-end
- (> (point-max) contents-end)
- ;; Skip blank lines between elements.
- (< (org-element-property :end element)
- (save-excursion (goto-char contents-end)
- (skip-chars-forward " \r\t\n"))))
- (narrow-to-region (org-element-property :contents-begin element)
- contents-end))
- ;; End of heading is considered as the end of a sentence.
- (let ((sentence-end (concat (sentence-end) "\\|^\\*+ .*$")))
- (call-interactively #'forward-sentence)))))))
-
-(define-key org-mode-map "\M-a" 'org-backward-sentence)
-(define-key org-mode-map "\M-e" 'org-forward-sentence)
-
-(defun org-kill-line (&optional _arg)
- "Kill line, to tags or end of line."
- (interactive)
- (cond
- ((or (not org-special-ctrl-k)
- (bolp)
- (not (org-at-heading-p)))
- (when (and (get-char-property (min (point-max) (point-at-eol)) 'invisible)
- org-ctrl-k-protect-subtree
- (or (eq org-ctrl-k-protect-subtree 'error)
- (not (y-or-n-p "Kill hidden subtree along with headline? "))))
- (user-error
- (substitute-command-keys
- "`\\[org-kill-line]' aborted as it would kill a hidden subtree")))
- (call-interactively
- (if (bound-and-true-p visual-line-mode) 'kill-visual-line 'kill-line)))
- ((looking-at ".*?\\S-\\([ \t]+\\(:[[:alnum:]_@#%:]+:\\)\\)[ \t]*$")
- (kill-region (point) (match-beginning 1))
- (org-set-tags nil t))
- (t (kill-region (point) (point-at-eol)))))
-
-(define-key org-mode-map "\C-k" 'org-kill-line)
-
-(defun org-yank (&optional arg)
- "Yank. If the kill is a subtree, treat it specially.
-This command will look at the current kill and check if is a single
-subtree, or a series of subtrees[1]. If it passes the test, and if the
-cursor is at the beginning of a line or after the stars of a currently
-empty headline, then the yank is handled specially. How exactly depends
-on the value of the following variables.
-
-`org-yank-folded-subtrees'
- By default, this variable is non-nil, which results in
- subtree(s) being folded after insertion, except if doing so
- would swallow text after the yanked text.
-
-`org-yank-adjusted-subtrees'
- When non-nil (the default value is nil), the subtree will be
- promoted or demoted in order to fit into the local outline tree
- structure, which means that the level will be adjusted so that it
- becomes the smaller one of the two *visible* surrounding headings.
-
-Any prefix to this command will cause `yank' to be called directly with
-no special treatment. In particular, a simple `\\[universal-argument]' prefix \
-will just
-plainly yank the text as it is.
-
-\[1] The test checks if the first non-white line is a heading
- and if there are no other headings with fewer stars."
- (interactive "P")
- (org-yank-generic 'yank arg))
-
-(defun org-yank-generic (command arg)
- "Perform some yank-like command.
-
-This function implements the behavior described in the `org-yank'
-documentation. However, it has been generalized to work for any
-interactive command with similar behavior."
-
- ;; pretend to be command COMMAND
- (setq this-command command)
-
- (if arg
- (call-interactively command)
-
- (let ((subtreep ; is kill a subtree, and the yank position appropriate?
- (and (org-kill-is-subtree-p)
- (or (bolp)
- (and (looking-at "[ \t]*$")
- (string-match
- "\\`\\*+\\'"
- (buffer-substring (point-at-bol) (point)))))))
- swallowp)
- (cond
- ((and subtreep org-yank-folded-subtrees)
- (let ((beg (point))
- end)
- (if (and subtreep org-yank-adjusted-subtrees)
- (org-paste-subtree nil nil 'for-yank)
- (call-interactively command))
-
- (setq end (point))
- (goto-char beg)
- (when (and (bolp) subtreep
- (not (setq swallowp
- (org-yank-folding-would-swallow-text beg end))))
- (org-with-limited-levels
- (or (looking-at org-outline-regexp)
- (re-search-forward org-outline-regexp-bol end t))
- (while (and (< (point) end) (looking-at org-outline-regexp))
- (outline-hide-subtree)
- (org-cycle-show-empty-lines 'folded)
- (condition-case nil
- (outline-forward-same-level 1)
- (error (goto-char end))))))
- (when swallowp
- (message
- "Inserted text not folded because that would swallow text"))
-
- (goto-char end)
- (skip-chars-forward " \t\n\r")
- (beginning-of-line 1)
- (push-mark beg 'nomsg)))
- ((and subtreep org-yank-adjusted-subtrees)
- (let ((beg (point-at-bol)))
- (org-paste-subtree nil nil 'for-yank)
- (push-mark beg 'nomsg)))
- (t
- (call-interactively command))))))
-
-(defun org-yank-folding-would-swallow-text (beg end)
- "Would hide-subtree at BEG swallow any text after END?"
- (let (level)
- (org-with-limited-levels
- (save-excursion
- (goto-char beg)
- (when (or (looking-at org-outline-regexp)
- (re-search-forward org-outline-regexp-bol end t))
- (setq level (org-outline-level)))
- (goto-char end)
- (skip-chars-forward " \t\r\n\v\f")
- (not (or (eobp)
- (and (bolp) (looking-at-p org-outline-regexp)
- (<= (org-outline-level) level))))))))
-
-(define-key org-mode-map "\C-y" 'org-yank)
-
-(defun org-truely-invisible-p ()
- "Check if point is at a character currently not visible.
-This version does not only check the character property, but also
-`visible-mode'."
- (unless (bound-and-true-p visible-mode)
- (org-invisible-p)))
-
-(defun org-invisible-p2 ()
- "Check if point is at a character currently not visible.
-
-If the point is at EOL (and not at the beginning of a buffer too),
-move it back by one char before doing this check."
- (save-excursion
- (when (and (eolp) (not (bobp)))
- (backward-char 1))
- (org-invisible-p)))
-
-(defun org-back-to-heading (&optional invisible-ok)
- "Call `outline-back-to-heading', but provide a better error message."
- (condition-case nil
- (outline-back-to-heading invisible-ok)
- (error (error "Before first headline at position %d in buffer %s"
- (point) (current-buffer)))))
-
-(defun org-before-first-heading-p ()
- "Before first heading?"
- (save-excursion
- (end-of-line)
- (null (re-search-backward org-outline-regexp-bol nil t))))
-
-(defun org-at-heading-p (&optional ignored)
- (outline-on-heading-p t))
-
-(defun org-in-commented-heading-p (&optional no-inheritance)
- "Non-nil if point is under a commented heading.
-This function also checks ancestors of the current headline,
-unless optional argument NO-INHERITANCE is non-nil."
- (cond
- ((org-before-first-heading-p) nil)
- ((let ((headline (nth 4 (org-heading-components))))
- (and headline
- (let ((case-fold-search nil))
- (string-match-p (concat "^" org-comment-string "\\(?: \\|$\\)")
- headline)))))
- (no-inheritance nil)
- (t
- (save-excursion (and (org-up-heading-safe) (org-in-commented-heading-p))))))
-
-(defun org-at-comment-p nil
- "Is cursor in a commented line?"
- (save-excursion
- (save-match-data
- (beginning-of-line)
- (looking-at "^[ \t]*# "))))
-
-(defun org-at-drawer-p nil
- "Is cursor at a drawer keyword?"
- (save-excursion
- (move-beginning-of-line 1)
- (looking-at org-drawer-regexp)))
-
-(defun org-at-block-p nil
- "Is cursor at a block keyword?"
- (save-excursion
- (move-beginning-of-line 1)
- (looking-at org-block-regexp)))
-
-(defun org-point-at-end-of-empty-headline ()
- "If point is at the end of an empty headline, return t, else nil.
-If the heading only contains a TODO keyword, it is still still considered
-empty."
- (let ((case-fold-search nil))
- (and (looking-at "[ \t]*$")
- org-todo-line-regexp
- (save-excursion
- (beginning-of-line)
- (looking-at org-todo-line-regexp)
- (string= (match-string 3) "")))))
-
-(defun org-at-heading-or-item-p ()
- (or (org-at-heading-p) (org-at-item-p)))
-
-(defun org-at-target-p ()
- (or (org-in-regexp org-radio-target-regexp)
- (org-in-regexp org-target-regexp)))
-;; Compatibility alias with Org versions < 7.8.03
-(defalias 'org-on-target-p 'org-at-target-p)
-
-(defun org-up-heading-all (arg)
- "Move to the heading line of which the present line is a subheading.
-This function considers both visible and invisible heading lines.
-With argument, move up ARG levels."
- (outline-up-heading arg t))
-
-(defun org-up-heading-safe ()
- "Move to the heading line of which the present line is a subheading.
-This version will not throw an error. It will return the level of the
-headline found, or nil if no higher level is found.
-
-Also, this function will be a lot faster than `outline-up-heading',
-because it relies on stars being the outline starters. This can really
-make a significant difference in outlines with very many siblings."
- (when (ignore-errors (org-back-to-heading t))
- (let ((level-up (1- (funcall outline-level))))
- (and (> level-up 0)
- (re-search-backward (format "^\\*\\{1,%d\\} " level-up) nil t)
- (funcall outline-level)))))
-
-(defun org-first-sibling-p ()
- "Is this heading the first child of its parents?"
- (interactive)
- (let ((re org-outline-regexp-bol)
- level l)
- (unless (org-at-heading-p t)
- (user-error "Not at a heading"))
- (setq level (funcall outline-level))
- (save-excursion
- (if (not (re-search-backward re nil t))
- t
- (setq l (funcall outline-level))
- (< l level)))))
-
-(defun org-goto-sibling (&optional previous)
- "Goto the next sibling, even if it is invisible.
-When PREVIOUS is set, go to the previous sibling instead. Returns t
-when a sibling was found. When none is found, return nil and don't
-move point."
- (let ((fun (if previous 're-search-backward 're-search-forward))
- (pos (point))
- (re org-outline-regexp-bol)
- level l)
- (when (ignore-errors (org-back-to-heading t))
- (setq level (funcall outline-level))
- (catch 'exit
- (or previous (forward-char 1))
- (while (funcall fun re nil t)
- (setq l (funcall outline-level))
- (when (< l level) (goto-char pos) (throw 'exit nil))
- (when (= l level) (goto-char (match-beginning 0)) (throw 'exit t)))
- (goto-char pos)
- nil))))
-
-(defun org-show-siblings ()
- "Show all siblings of the current headline."
- (save-excursion
- (while (org-goto-sibling) (org-flag-heading nil)))
- (save-excursion
- (while (org-goto-sibling 'previous)
- (org-flag-heading nil))))
-
-(defun org-goto-first-child ()
- "Goto the first child, even if it is invisible.
-Return t when a child was found. Otherwise don't move point and
-return nil."
- (let (level (pos (point)) (re org-outline-regexp-bol))
- (when (ignore-errors (org-back-to-heading t))
- (setq level (outline-level))
- (forward-char 1)
- (if (and (re-search-forward re nil t) (> (outline-level) level))
- (progn (goto-char (match-beginning 0)) t)
- (goto-char pos) nil))))
-
-(defun org-show-hidden-entry ()
- "Show an entry where even the heading is hidden."
- (save-excursion
- (org-show-entry)))
-
-(defun org-flag-heading (flag &optional entry)
- "Flag the current heading. FLAG non-nil means make invisible.
-When ENTRY is non-nil, show the entire entry."
- (save-excursion
- (org-back-to-heading t)
- ;; Check if we should show the entire entry
- (if entry
- (progn
- (org-show-entry)
- (save-excursion
- (and (outline-next-heading)
- (org-flag-heading nil))))
- (outline-flag-region (max (point-min) (1- (point)))
- (save-excursion (outline-end-of-heading) (point))
- flag))))
-
-(defun org-get-next-sibling ()
- "Move to next heading of the same level, and return point.
-If there is no such heading, return nil.
-This is like outline-next-sibling, but invisible headings are ok."
- (let ((level (funcall outline-level)))
- (outline-next-heading)
- (while (and (not (eobp)) (> (funcall outline-level) level))
- (outline-next-heading))
- (unless (or (eobp) (< (funcall outline-level) level))
- (point))))
-
-(defun org-get-last-sibling ()
- "Move to previous heading of the same level, and return point.
-If there is no such heading, return nil."
- (let ((opoint (point))
- (level (funcall outline-level)))
- (outline-previous-heading)
- (when (and (/= (point) opoint) (outline-on-heading-p t))
- (while (and (> (funcall outline-level) level)
- (not (bobp)))
- (outline-previous-heading))
- (unless (< (funcall outline-level) level)
- (point)))))
-
-(defun org-end-of-subtree (&optional invisible-ok to-heading)
- "Goto to the end of a subtree."
- ;; This contains an exact copy of the original function, but it uses
- ;; `org-back-to-heading', to make it work also in invisible
- ;; trees. And is uses an invisible-ok argument.
- ;; Under Emacs this is not needed, but the old outline.el needs this fix.
- ;; Furthermore, when used inside Org, finding the end of a large subtree
- ;; with many children and grandchildren etc, this can be much faster
- ;; than the outline version.
- (org-back-to-heading invisible-ok)
- (let ((first t)
- (level (funcall outline-level)))
- (if (and (derived-mode-p 'org-mode) (< level 1000))
- ;; A true heading (not a plain list item), in Org
- ;; This means we can easily find the end by looking
- ;; only for the right number of stars. Using a regexp to do
- ;; this is so much faster than using a Lisp loop.
- (let ((re (concat "^\\*\\{1," (int-to-string level) "\\} ")))
- (forward-char 1)
- (and (re-search-forward re nil 'move) (beginning-of-line 1)))
- ;; something else, do it the slow way
- (while (and (not (eobp))
- (or first (> (funcall outline-level) level)))
- (setq first nil)
- (outline-next-heading)))
- (unless to-heading
- (when (memq (preceding-char) '(?\n ?\^M))
- ;; Go to end of line before heading
- (forward-char -1)
- (when (memq (preceding-char) '(?\n ?\^M))
- ;; leave blank line before heading
- (forward-char -1)))))
- (point))
-
-(defun org-end-of-meta-data (&optional full)
- "Skip planning line and properties drawer in current entry.
-When optional argument FULL is non-nil, also skip empty lines,
-clocking lines and regular drawers at the beginning of the
-entry."
- (org-back-to-heading t)
- (forward-line)
- (when (looking-at-p org-planning-line-re) (forward-line))
- (when (looking-at org-property-drawer-re)
- (goto-char (match-end 0))
- (forward-line))
- (when (and full (not (org-at-heading-p)))
- (catch 'exit
- (let ((end (save-excursion (outline-next-heading) (point)))
- (re (concat "[ \t]*$" "\\|" org-clock-line-re)))
- (while (not (eobp))
- (cond ((looking-at-p org-drawer-regexp)
- (if (re-search-forward "^[ \t]*:END:[ \t]*$" end t)
- (forward-line)
- (throw 'exit t)))
- ((looking-at-p re) (forward-line))
- (t (throw 'exit t))))))))
-
-(defun org-forward-heading-same-level (arg &optional invisible-ok)
- "Move forward to the ARG'th subheading at same level as this one.
-Stop at the first and last subheadings of a superior heading.
-Normally this only looks at visible headings, but when INVISIBLE-OK is
-non-nil it will also look at invisible ones."
- (interactive "p")
- (let ((backward? (and arg (< arg 0))))
- (if (org-before-first-heading-p)
- (if backward? (goto-char (point-min)) (outline-next-heading))
- (org-back-to-heading invisible-ok)
- (unless backward? (end-of-line)) ;do not match current headline
- (let ((level (- (match-end 0) (match-beginning 0) 1))
- (f (if backward? #'re-search-backward #'re-search-forward))
- (count (if arg (abs arg) 1))
- (result (point)))
- (while (and (> count 0)
- (funcall f org-outline-regexp-bol nil 'move))
- (let ((l (- (match-end 0) (match-beginning 0) 1)))
- (cond ((< l level) (setq count 0))
- ((and (= l level)
- (or invisible-ok
- (not (org-invisible-p
- (line-beginning-position)))))
- (cl-decf count)
- (when (= l level) (setq result (point)))))))
- (goto-char result))
- (beginning-of-line))))
-
-(defun org-backward-heading-same-level (arg &optional invisible-ok)
- "Move backward to the ARG'th subheading at same level as this one.
-Stop at the first and last subheadings of a superior heading."
- (interactive "p")
- (org-forward-heading-same-level (if arg (- arg) -1) invisible-ok))
-
-(defun org-next-visible-heading (arg)
- "Move to the next visible heading.
-
-This function wraps `outline-next-visible-heading' with
-`org-with-limited-levels' in order to skip over inline tasks and
-respect customization of `org-odd-levels-only'."
- (interactive "p")
- (org-with-limited-levels
- (outline-next-visible-heading arg)))
-
-(defun org-previous-visible-heading (arg)
- "Move to the previous visible heading.
-
-This function wraps `outline-previous-visible-heading' with
-`org-with-limited-levels' in order to skip over inline tasks and
-respect customization of `org-odd-levels-only'."
- (interactive "p")
- (org-with-limited-levels
- (outline-previous-visible-heading arg)))
-
-(defun org-next-block (arg &optional backward block-regexp)
- "Jump to the next block.
-
-With a prefix argument ARG, jump forward ARG many blocks.
-
-When BACKWARD is non-nil, jump to the previous block.
-
-When BLOCK-REGEXP is non-nil, use this regexp to find blocks.
-Match data is set according to this regexp when the function
-returns.
-
-Return point at beginning of the opening line of found block.
-Throw an error if no block is found."
- (interactive "p")
- (let ((re (or block-regexp "^[ \t]*#\\+BEGIN"))
- (case-fold-search t)
- (search-fn (if backward #'re-search-backward #'re-search-forward))
- (count (or arg 1))
- (origin (point))
- last-element)
- (if backward (beginning-of-line) (end-of-line))
- (while (and (> count 0) (funcall search-fn re nil t))
- (let ((element (save-excursion
- (goto-char (match-beginning 0))
- (save-match-data (org-element-at-point)))))
- (when (and (memq (org-element-type element)
- '(center-block comment-block dynamic-block
- example-block export-block quote-block
- special-block src-block verse-block))
- (<= (match-beginning 0)
- (org-element-property :post-affiliated element)))
- (setq last-element element)
- (cl-decf count))))
- (if (= count 0)
- (prog1 (goto-char (org-element-property :post-affiliated last-element))
- (save-match-data (org-show-context)))
- (goto-char origin)
- (user-error "No %s code blocks" (if backward "previous" "further")))))
-
-(defun org-previous-block (arg &optional block-regexp)
- "Jump to the previous block.
-With a prefix argument ARG, jump backward ARG many source blocks.
-When BLOCK-REGEXP is non-nil, use this regexp to find blocks."
- (interactive "p")
- (org-next-block arg t block-regexp))
-
-(defun org-forward-paragraph ()
- "Move forward to beginning of next paragraph or equivalent.
-
-The function moves point to the beginning of the next visible
-structural element, which can be a paragraph, a table, a list
-item, etc. It also provides some special moves for convenience:
-
- - On an affiliated keyword, jump to the beginning of the
- relative element.
- - On an item or a footnote definition, move to the second
- element inside, if any.
- - On a table or a property drawer, jump after it.
- - On a verse or source block, stop after blank lines."
- (interactive)
- (unless (eobp)
- (let* ((deactivate-mark nil)
- (element (org-element-at-point))
- (type (org-element-type element))
- (post-affiliated (org-element-property :post-affiliated element))
- (contents-begin (org-element-property :contents-begin element))
- (contents-end (org-element-property :contents-end element))
- (end (let ((end (org-element-property :end element)) (parent element))
- (while (and (setq parent (org-element-property :parent parent))
- (= (org-element-property :contents-end parent) end))
- (setq end (org-element-property :end parent)))
- end)))
- (cond ((not element)
- (skip-chars-forward " \r\t\n")
- (or (eobp) (beginning-of-line)))
- ;; On affiliated keywords, move to element's beginning.
- ((< (point) post-affiliated)
- (goto-char post-affiliated))
- ;; At a table row, move to the end of the table. Similarly,
- ;; at a node property, move to the end of the property
- ;; drawer.
- ((memq type '(node-property table-row))
- (goto-char (org-element-property
- :end (org-element-property :parent element))))
- ((memq type '(property-drawer table)) (goto-char end))
- ;; Consider blank lines as separators in verse and source
- ;; blocks to ease editing.
- ((memq type '(src-block verse-block))
- (when (eq type 'src-block)
- (setq contents-end
- (save-excursion (goto-char end)
- (skip-chars-backward " \r\t\n")
- (line-beginning-position))))
- (beginning-of-line)
- (when (looking-at "[ \t]*$") (skip-chars-forward " \r\t\n"))
- (if (not (re-search-forward "^[ \t]*$" contents-end t))
- (goto-char end)
- (skip-chars-forward " \r\t\n")
- (if (= (point) contents-end) (goto-char end)
- (beginning-of-line))))
- ;; With no contents, just skip element.
- ((not contents-begin) (goto-char end))
- ;; If contents are invisible, skip the element altogether.
- ((org-invisible-p (line-end-position))
- (cl-case type
- (headline
- (org-with-limited-levels (outline-next-visible-heading 1)))
- ;; At a plain list, make sure we move to the next item
- ;; instead of skipping the whole list.
- (plain-list (forward-char)
- (org-forward-paragraph))
- (otherwise (goto-char end))))
- ((>= (point) contents-end) (goto-char end))
- ((>= (point) contents-begin)
- ;; This can only happen on paragraphs and plain lists.
- (cl-case type
- (paragraph (goto-char end))
- ;; At a plain list, try to move to second element in
- ;; first item, if possible.
- (plain-list (end-of-line)
- (org-forward-paragraph))))
- ;; When contents start on the middle of a line (e.g. in
- ;; items and footnote definitions), try to reach first
- ;; element starting after current line.
- ((> (line-end-position) contents-begin)
- (end-of-line)
- (org-forward-paragraph))
- (t (goto-char contents-begin))))))
-
-(defun org-backward-paragraph ()
- "Move backward to start of previous paragraph or equivalent.
-
-The function moves point to the beginning of the current
-structural element, which can be a paragraph, a table, a list
-item, etc., or to the beginning of the previous visible one if
-point is already there. It also provides some special moves for
-convenience:
-
- - On an affiliated keyword, jump to the first one.
- - On a table or a property drawer, move to its beginning.
- - On comment, example, export, src and verse blocks, stop
- before blank lines."
- (interactive)
- (unless (bobp)
- (let* ((deactivate-mark nil)
- (element (org-element-at-point))
- (type (org-element-type element))
- (contents-end (org-element-property :contents-end element))
- (post-affiliated (org-element-property :post-affiliated element))
- (begin (org-element-property :begin element))
- (special? ;blocks handled specially
- (memq type '(comment-block example-block export-block src-block
- verse-block)))
- (contents-begin
- (if special?
- ;; These types have no proper contents. Fake line
- ;; below the block opening line as contents beginning.
- (save-excursion (goto-char begin) (line-beginning-position 2))
- (org-element-property :contents-begin element))))
- (cond
- ((not element) (goto-char (point-min)))
- ((= (point) begin)
- (backward-char)
- (org-backward-paragraph))
- ((<= (point) post-affiliated) (goto-char begin))
- ;; Special behavior: on a table or a property drawer, move to
- ;; its beginning.
- ((memq type '(node-property table-row))
- (goto-char (org-element-property
- :post-affiliated (org-element-property :parent element))))
- (special?
- (if (<= (point) contents-begin) (goto-char post-affiliated)
- ;; Inside a verse block, see blank lines as paragraph
- ;; separators.
- (let ((origin (point)))
- (skip-chars-backward " \r\t\n" contents-begin)
- (when (re-search-backward "^[ \t]*$" contents-begin 'move)
- (skip-chars-forward " \r\t\n" origin)
- (if (= (point) origin) (goto-char contents-begin)
- (beginning-of-line))))))
- ((eq type 'paragraph) (goto-char contents-begin)
- ;; When at first paragraph in an item or a footnote definition,
- ;; move directly to beginning of line.
- (let ((parent-contents
- (org-element-property
- :contents-begin (org-element-property :parent element))))
- (when (and parent-contents (= parent-contents contents-begin))
- (beginning-of-line))))
- ;; At the end of a greater element, move to the beginning of
- ;; the last element within.
- ((and contents-end (>= (point) contents-end))
- (goto-char (1- contents-end))
- (org-backward-paragraph))
- (t (goto-char (or post-affiliated begin))))
- ;; Ensure we never leave point invisible.
- (when (org-invisible-p (point)) (beginning-of-visual-line)))))
-
-(defun org-forward-element ()
- "Move forward by one element.
-Move to the next element at the same level, when possible."
- (interactive)
- (cond ((eobp) (user-error "Cannot move further down"))
- ((org-with-limited-levels (org-at-heading-p))
- (let ((origin (point)))
- (goto-char (org-end-of-subtree nil t))
- (unless (org-with-limited-levels (org-at-heading-p))
- (goto-char origin)
- (user-error "Cannot move further down"))))
- (t
- (let* ((elem (org-element-at-point))
- (end (org-element-property :end elem))
- (parent (org-element-property :parent elem)))
- (cond ((and parent (= (org-element-property :contents-end parent) end))
- (goto-char (org-element-property :end parent)))
- ((integer-or-marker-p end) (goto-char end))
- (t (message "No element at point")))))))
-
-(defun org-backward-element ()
- "Move backward by one element.
-Move to the previous element at the same level, when possible."
- (interactive)
- (cond ((bobp) (user-error "Cannot move further up"))
- ((org-with-limited-levels (org-at-heading-p))
- ;; At a headline, move to the previous one, if any, or stay
- ;; here.
- (let ((origin (point)))
- (org-with-limited-levels (org-backward-heading-same-level 1))
- ;; When current headline has no sibling above, move to its
- ;; parent.
- (when (= (point) origin)
- (or (org-with-limited-levels (org-up-heading-safe))
- (progn (goto-char origin)
- (user-error "Cannot move further up"))))))
- (t
- (let* ((elem (org-element-at-point))
- (beg (org-element-property :begin elem)))
- (cond
- ;; Move to beginning of current element if point isn't
- ;; there already.
- ((null beg) (message "No element at point"))
- ((/= (point) beg) (goto-char beg))
- (t (goto-char beg)
- (skip-chars-backward " \r\t\n")
- (unless (bobp)
- (let ((prev (org-element-at-point)))
- (goto-char (org-element-property :begin prev))
- (while (and (setq prev (org-element-property :parent prev))
- (<= (org-element-property :end prev) beg))
- (goto-char (org-element-property :begin prev)))))))))))
-
-(defun org-up-element ()
- "Move to upper element."
- (interactive)
- (if (org-with-limited-levels (org-at-heading-p))
- (unless (org-up-heading-safe) (user-error "No surrounding element"))
- (let* ((elem (org-element-at-point))
- (parent (org-element-property :parent elem)))
- (if parent (goto-char (org-element-property :begin parent))
- (if (org-with-limited-levels (org-before-first-heading-p))
- (user-error "No surrounding element")
- (org-with-limited-levels (org-back-to-heading)))))))
-
-(defun org-down-element ()
- "Move to inner element."
- (interactive)
- (let ((element (org-element-at-point)))
- (cond
- ((memq (org-element-type element) '(plain-list table))
- (goto-char (org-element-property :contents-begin element))
- (forward-char))
- ((memq (org-element-type element) org-element-greater-elements)
- ;; If contents are hidden, first disclose them.
- (when (org-invisible-p (line-end-position)) (org-cycle))
- (goto-char (or (org-element-property :contents-begin element)
- (user-error "No content for this element"))))
- (t (user-error "No inner element")))))
-
-(defun org-drag-element-backward ()
- "Move backward element at point."
- (interactive)
- (let ((elem (or (org-element-at-point)
- (user-error "No element at point"))))
- (if (eq (org-element-type elem) 'headline)
- ;; Preserve point when moving a whole tree, even if point was
- ;; on blank lines below the headline.
- (let ((offset (skip-chars-backward " \t\n")))
- (unwind-protect (org-move-subtree-up)
- (forward-char (- offset))))
- (let ((prev-elem
- (save-excursion
- (goto-char (org-element-property :begin elem))
- (skip-chars-backward " \r\t\n")
- (unless (bobp)
- (let* ((beg (org-element-property :begin elem))
- (prev (org-element-at-point))
- (up prev))
- (while (and (setq up (org-element-property :parent up))
- (<= (org-element-property :end up) beg))
- (setq prev up))
- prev)))))
- ;; Error out if no previous element or previous element is
- ;; a parent of the current one.
- (if (or (not prev-elem) (org-element-nested-p elem prev-elem))
- (user-error "Cannot drag element backward")
- (let ((pos (point)))
- (org-element-swap-A-B prev-elem elem)
- (goto-char (+ (org-element-property :begin prev-elem)
- (- pos (org-element-property :begin elem))))))))))
-
-(defun org-drag-element-forward ()
- "Move forward element at point."
- (interactive)
- (let* ((pos (point))
- (elem (or (org-element-at-point)
- (user-error "No element at point"))))
- (when (= (point-max) (org-element-property :end elem))
- (user-error "Cannot drag element forward"))
- (goto-char (org-element-property :end elem))
- (let ((next-elem (org-element-at-point)))
- (when (or (org-element-nested-p elem next-elem)
- (and (eq (org-element-type next-elem) 'headline)
- (not (eq (org-element-type elem) 'headline))))
- (goto-char pos)
- (user-error "Cannot drag element forward"))
- ;; Compute new position of point: it's shifted by NEXT-ELEM
- ;; body's length (without final blanks) and by the length of
- ;; blanks between ELEM and NEXT-ELEM.
- (let ((size-next (- (save-excursion
- (goto-char (org-element-property :end next-elem))
- (skip-chars-backward " \r\t\n")
- (forward-line)
- ;; Small correction if buffer doesn't end
- ;; with a newline character.
- (if (and (eolp) (not (bolp))) (1+ (point)) (point)))
- (org-element-property :begin next-elem)))
- (size-blank (- (org-element-property :end elem)
- (save-excursion
- (goto-char (org-element-property :end elem))
- (skip-chars-backward " \r\t\n")
- (forward-line)
- (point)))))
- (org-element-swap-A-B elem next-elem)
- (goto-char (+ pos size-next size-blank))))))
-
-(defun org-drag-line-forward (arg)
- "Drag the line at point ARG lines forward."
- (interactive "p")
- (dotimes (_ (abs arg))
- (let ((c (current-column)))
- (if (< 0 arg)
- (progn
- (beginning-of-line 2)
- (transpose-lines 1)
- (beginning-of-line 0))
- (transpose-lines 1)
- (beginning-of-line -1))
- (org-move-to-column c))))
-
-(defun org-drag-line-backward (arg)
- "Drag the line at point ARG lines backward."
- (interactive "p")
- (org-drag-line-forward (- arg)))
-
-(defun org-mark-element ()
- "Put point at beginning of this element, mark at end.
-
-Interactively, if this command is repeated or (in Transient Mark
-mode) if the mark is active, it marks the next element after the
-ones already marked."
- (interactive)
- (let (deactivate-mark)
- (if (and (called-interactively-p 'any)
- (or (and (eq last-command this-command) (mark t))
- (and transient-mark-mode mark-active)))
- (set-mark
- (save-excursion
- (goto-char (mark))
- (goto-char (org-element-property :end (org-element-at-point)))))
- (let ((element (org-element-at-point)))
- (end-of-line)
- (push-mark (org-element-property :end element) t t)
- (goto-char (org-element-property :begin element))))))
-
-(defun org-narrow-to-element ()
- "Narrow buffer to current element."
- (interactive)
- (let ((elem (org-element-at-point)))
- (cond
- ((eq (car elem) 'headline)
- (narrow-to-region
- (org-element-property :begin elem)
- (org-element-property :end elem)))
- ((memq (car elem) org-element-greater-elements)
- (narrow-to-region
- (org-element-property :contents-begin elem)
- (org-element-property :contents-end elem)))
- (t
- (narrow-to-region
- (org-element-property :begin elem)
- (org-element-property :end elem))))))
-
-(defun org-transpose-element ()
- "Transpose current and previous elements, keeping blank lines between.
-Point is moved after both elements."
- (interactive)
- (org-skip-whitespace)
- (let ((end (org-element-property :end (org-element-at-point))))
- (org-drag-element-backward)
- (goto-char end)))
-
-(defun org-unindent-buffer ()
- "Un-indent the visible part of the buffer.
-Relative indentation (between items, inside blocks, etc.) isn't
-modified."
- (interactive)
- (unless (eq major-mode 'org-mode)
- (user-error "Cannot un-indent a buffer not in Org mode"))
- (letrec ((parse-tree (org-element-parse-buffer 'greater-element))
- (unindent-tree
- (lambda (contents)
- (dolist (element (reverse contents))
- (if (memq (org-element-type element) '(headline section))
- (funcall unindent-tree (org-element-contents element))
- (save-excursion
- (save-restriction
- (narrow-to-region
- (org-element-property :begin element)
- (org-element-property :end element))
- (org-do-remove-indentation))))))))
- (funcall unindent-tree (org-element-contents parse-tree))))
-
-(defun org-show-children (&optional level)
- "Show all direct subheadings of this heading.
-Prefix arg LEVEL is how many levels below the current level
-should be shown. Default is enough to cause the following
-heading to appear."
- (interactive "p")
- ;; If `orgstruct-mode' is active, use the slower version.
- (if orgstruct-mode (call-interactively #'outline-show-children)
- (save-excursion
- (org-back-to-heading t)
- (let* ((current-level (funcall outline-level))
- (max-level (org-get-valid-level
- current-level
- (if level (prefix-numeric-value level) 1)))
- (end (save-excursion (org-end-of-subtree t t)))
- (regexp-fmt "^\\*\\{%d,%s\\}\\(?: \\|$\\)")
- (past-first-child nil)
- ;; Make sure to skip inlinetasks.
- (re (format regexp-fmt
- current-level
- (cond
- ((not (featurep 'org-inlinetask)) "")
- (org-odd-levels-only (- (* 2 org-inlinetask-min-level)
- 3))
- (t (1- org-inlinetask-min-level))))))
- ;; Display parent heading.
- (outline-flag-region (line-end-position 0) (line-end-position) nil)
- (forward-line)
- ;; Display children. First child may be deeper than expected
- ;; MAX-LEVEL. Since we want to display it anyway, adjust
- ;; MAX-LEVEL accordingly.
- (while (re-search-forward re end t)
- (unless past-first-child
- (setq re (format regexp-fmt
- current-level
- (max (funcall outline-level) max-level)))
- (setq past-first-child t))
- (outline-flag-region
- (line-end-position 0) (line-end-position) nil))))))
-
-(defun org-show-subtree ()
- "Show everything after this heading at deeper levels."
- (interactive)
- (outline-flag-region
- (point)
- (save-excursion
- (org-end-of-subtree t t))
- nil))
-
-(defun org-show-entry ()
- "Show the body directly following this heading.
-Show the heading too, if it is currently invisible."
- (interactive)
- (save-excursion
- (ignore-errors
- (org-back-to-heading t)
- (outline-flag-region
- (max (point-min) (1- (point)))
- (save-excursion
- (if (re-search-forward
- (concat "[\r\n]\\(" org-outline-regexp "\\)") nil t)
- (match-beginning 1)
- (point-max)))
- nil)
- (org-cycle-hide-drawers 'children))))
-
-(defun org-make-options-regexp (kwds &optional extra)
- "Make a regular expression for keyword lines.
-KWDS is a list of keywords, as strings. Optional argument EXTRA,
-when non-nil, is a regexp matching keywords names."
- (concat "^[ \t]*#\\+\\("
- (regexp-opt kwds)
- (and extra (concat (and kwds "\\|") extra))
- "\\):[ \t]*\\(.*\\)"))
-
-;;;; Integration with and fixes for other packages
-
-;;; Imenu support
-
-(defvar-local org-imenu-markers nil
- "All markers currently used by Imenu.")
-
-(defun org-imenu-new-marker (&optional pos)
- "Return a new marker for use by Imenu, and remember the marker."
- (let ((m (make-marker)))
- (move-marker m (or pos (point)))
- (push m org-imenu-markers)
- m))
-
-(defun org-imenu-get-tree ()
- "Produce the index for Imenu."
- (dolist (x org-imenu-markers) (move-marker x nil))
- (setq org-imenu-markers nil)
- (let* ((case-fold-search nil)
- (n org-imenu-depth)
- (re (concat "^" (org-get-limited-outline-regexp)))
- (subs (make-vector (1+ n) nil))
- (last-level 0)
- m level head0 head)
- (org-with-wide-buffer
- (goto-char (point-max))
- (while (re-search-backward re nil t)
- (setq level (org-reduced-level (funcall outline-level)))
- (when (and (<= level n)
- (looking-at org-complex-heading-regexp)
- (setq head0 (match-string-no-properties 4)))
- (setq head (org-link-display-format head0)
- m (org-imenu-new-marker))
- (org-add-props head nil 'org-imenu-marker m 'org-imenu t)
- (if (>= level last-level)
- (push (cons head m) (aref subs level))
- (push (cons head (aref subs (1+ level))) (aref subs level))
- (cl-loop for i from (1+ level) to n do (aset subs i nil)))
- (setq last-level level))))
- (aref subs 1)))
-
-(eval-after-load "imenu"
- '(progn
- (add-hook 'imenu-after-jump-hook
- (lambda ()
- (when (derived-mode-p 'org-mode)
- (org-show-context 'org-goto))))))
-
-(defun org-link-display-format (s)
- "Replace links in string S with their description.
-If there is no description, use the link target."
- (save-match-data
- (replace-regexp-in-string
- org-bracket-link-analytic-regexp
- (lambda (m)
- (if (match-end 5) (match-string 5 m)
- (concat (match-string 1 m) (match-string 3 m))))
- s nil t)))
-
-(defun org-toggle-link-display ()
- "Toggle the literal or descriptive display of links."
- (interactive)
- (if org-descriptive-links
- (progn (org-remove-from-invisibility-spec '(org-link))
- (org-restart-font-lock)
- (setq org-descriptive-links nil))
- (progn (add-to-invisibility-spec '(org-link))
- (org-restart-font-lock)
- (setq org-descriptive-links t))))
-
-;; Speedbar support
-
-(defvar org-speedbar-restriction-lock-overlay (make-overlay 1 1)
- "Overlay marking the agenda restriction line in speedbar.")
-(overlay-put org-speedbar-restriction-lock-overlay
- 'face 'org-agenda-restriction-lock)
-(overlay-put org-speedbar-restriction-lock-overlay
- 'help-echo "Agendas are currently limited to this item.")
-(delete-overlay org-speedbar-restriction-lock-overlay)
-
-(defun org-speedbar-set-agenda-restriction ()
- "Restrict future agenda commands to the location at point in speedbar.
-To get rid of the restriction, use `\\[org-agenda-remove-restriction-lock]'."
- (interactive)
- (require 'org-agenda)
- (let (p m tp np dir txt)
- (cond
- ((setq p (text-property-any (point-at-bol) (point-at-eol)
- 'org-imenu t))
- (setq m (get-text-property p 'org-imenu-marker))
- (with-current-buffer (marker-buffer m)
- (goto-char m)
- (org-agenda-set-restriction-lock 'subtree)))
- ((setq p (text-property-any (point-at-bol) (point-at-eol)
- 'speedbar-function 'speedbar-find-file))
- (setq tp (previous-single-property-change
- (1+ p) 'speedbar-function)
- np (next-single-property-change
- tp 'speedbar-function)
- dir (speedbar-line-directory)
- txt (buffer-substring-no-properties (or tp (point-min))
- (or np (point-max))))
- (with-current-buffer (find-file-noselect
- (let ((default-directory dir))
- (expand-file-name txt)))
- (unless (derived-mode-p 'org-mode)
- (user-error "Cannot restrict to non-Org mode file"))
- (org-agenda-set-restriction-lock 'file)))
- (t (user-error "Don't know how to restrict Org mode agenda")))
- (move-overlay org-speedbar-restriction-lock-overlay
- (point-at-bol) (point-at-eol))
- (setq current-prefix-arg nil)
- (org-agenda-maybe-redo)))
-
-(defvar speedbar-file-key-map)
-(declare-function speedbar-add-supported-extension "speedbar" (extension))
-(eval-after-load "speedbar"
- '(progn
- (speedbar-add-supported-extension ".org")
- (define-key speedbar-file-key-map "<" 'org-speedbar-set-agenda-restriction)
- (define-key speedbar-file-key-map "\C-c\C-x<" 'org-speedbar-set-agenda-restriction)
- (define-key speedbar-file-key-map ">" 'org-agenda-remove-restriction-lock)
- (define-key speedbar-file-key-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
- (add-hook 'speedbar-visiting-tag-hook
- (lambda () (and (derived-mode-p 'org-mode) (org-show-context 'org-goto))))))
-
-;;; Fixes and Hacks for problems with other packages
-
-(defun org--flyspell-object-check-p (element)
- "Non-nil when Flyspell can check object at point.
-ELEMENT is the element at point."
- (let ((object (save-excursion
- (when (looking-at-p "\\>") (backward-char))
- (org-element-context element))))
- (cl-case (org-element-type object)
- ;; Prevent checks in links due to keybinding conflict with
- ;; Flyspell.
- ((code entity export-snippet inline-babel-call
- inline-src-block line-break latex-fragment link macro
- statistics-cookie target timestamp verbatim)
- nil)
- (footnote-reference
- ;; Only in inline footnotes, within the definition.
- (and (eq (org-element-property :type object) 'inline)
- (< (save-excursion
- (goto-char (org-element-property :begin object))
- (search-forward ":" nil t 2))
- (point))))
- (otherwise t))))
-
-(defun org-mode-flyspell-verify ()
- "Function used for `flyspell-generic-check-word-predicate'."
- (if (org-at-heading-p)
- ;; At a headline or an inlinetask, check title only. This is
- ;; faster than relying on `org-element-at-point'.
- (and (save-excursion (beginning-of-line)
- (and (let ((case-fold-search t))
- (not (looking-at-p "\\*+ END[ \t]*$")))
- (let ((case-fold-search nil))
- (looking-at org-complex-heading-regexp))))
- (match-beginning 4)
- (>= (point) (match-beginning 4))
- (or (not (match-beginning 5))
- (< (point) (match-beginning 5))))
- (let* ((element (org-element-at-point))
- (post-affiliated (org-element-property :post-affiliated element)))
- (cond
- ;; Ignore checks in all affiliated keywords but captions.
- ((< (point) post-affiliated)
- (and (save-excursion
- (beginning-of-line)
- (let ((case-fold-search t)) (looking-at "[ \t]*#\\+CAPTION:")))
- (> (point) (match-end 0))
- (org--flyspell-object-check-p element)))
- ;; Ignore checks in LOGBOOK (or equivalent) drawer.
- ((let ((log (org-log-into-drawer)))
- (and log
- (let ((drawer (org-element-lineage element '(drawer))))
- (and drawer
- (eq (compare-strings
- log nil nil
- (org-element-property :drawer-name drawer) nil nil t)
- t)))))
- nil)
- (t
- (cl-case (org-element-type element)
- ((comment quote-section) t)
- (comment-block
- ;; Allow checks between block markers, not on them.
- (and (> (line-beginning-position) post-affiliated)
- (save-excursion
- (end-of-line)
- (skip-chars-forward " \r\t\n")
- (< (point) (org-element-property :end element)))))
- ;; Arbitrary list of keywords where checks are meaningful.
- ;; Make sure point is on the value part of the element.
- (keyword
- (and (member (org-element-property :key element)
- '("DESCRIPTION" "TITLE"))
- (save-excursion
- (search-backward ":" (line-beginning-position) t))))
- ;; Check is globally allowed in paragraphs verse blocks and
- ;; table rows (after affiliated keywords) but some objects
- ;; must not be affected.
- ((paragraph table-row verse-block)
- (let ((cbeg (org-element-property :contents-begin element))
- (cend (org-element-property :contents-end element)))
- (and cbeg (>= (point) cbeg) (< (point) cend)
- (org--flyspell-object-check-p element))))))))))
-(put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify)
-
-(defun org-remove-flyspell-overlays-in (beg end)
- "Remove flyspell overlays in region."
- (and (bound-and-true-p flyspell-mode)
- (fboundp 'flyspell-delete-region-overlays)
- (flyspell-delete-region-overlays beg end)))
-
-(defvar flyspell-delayed-commands)
-(eval-after-load "flyspell"
- '(add-to-list 'flyspell-delayed-commands 'org-self-insert-command))
-
-;; Make `bookmark-jump' shows the jump location if it was hidden.
-(eval-after-load "bookmark"
- '(if (boundp 'bookmark-after-jump-hook)
- ;; We can use the hook
- (add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
- ;; Hook not available, use advice
- (defadvice bookmark-jump (after org-make-visible activate)
- "Make the position visible."
- (org-bookmark-jump-unhide))))
-
-;; Make sure saveplace shows the location if it was hidden
-(eval-after-load "saveplace"
- '(defadvice save-place-find-file-hook (after org-make-visible activate)
- "Make the position visible."
- (org-bookmark-jump-unhide)))
-
-;; Make sure ecb shows the location if it was hidden
-(eval-after-load "ecb"
- '(defadvice ecb-method-clicked (after esf/org-show-context activate)
- "Make hierarchy visible when jumping into location from ECB tree buffer."
- (when (derived-mode-p 'org-mode)
- (org-show-context))))
-
-(defun org-bookmark-jump-unhide ()
- "Unhide the current position, to show the bookmark location."
- (and (derived-mode-p 'org-mode)
- (or (org-invisible-p)
- (save-excursion (goto-char (max (point-min) (1- (point))))
- (org-invisible-p)))
- (org-show-context 'bookmark-jump)))
-
-(defun org-mark-jump-unhide ()
- "Make the point visible with `org-show-context' after jumping to the mark."
- (when (and (derived-mode-p 'org-mode)
- (org-invisible-p))
- (org-show-context 'mark-goto)))
-
-(eval-after-load "simple"
- '(defadvice pop-to-mark-command (after org-make-visible activate)
- "Make the point visible with `org-show-context'."
- (org-mark-jump-unhide)))
-
-(eval-after-load "simple"
- '(defadvice exchange-point-and-mark (after org-make-visible activate)
- "Make the point visible with `org-show-context'."
- (org-mark-jump-unhide)))
-
-(eval-after-load "simple"
- '(defadvice pop-global-mark (after org-make-visible activate)
- "Make the point visible with `org-show-context'."
- (org-mark-jump-unhide)))
-
-;; Make session.el ignore our circular variable
-(defvar session-globals-exclude)
-(eval-after-load "session"
- '(add-to-list 'session-globals-exclude 'org-mark-ring))
-
-;;;; Finish up
-
-(provide 'org)
-
-(run-hooks 'org-load-hook)
-
-;;; org.el ends here
diff --git a/elpa/org-9.1.14/org.elc b/elpa/org-9.1.14/org.elc
deleted file mode 100644
index 4cc42d0..0000000
--- a/elpa/org-9.1.14/org.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/orgcard.pdf b/elpa/org-9.1.14/orgcard.pdf
deleted file mode 100644
index 3f3f8df..0000000
--- a/elpa/org-9.1.14/orgcard.pdf
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ox-ascii.el b/elpa/org-9.1.14/ox-ascii.el
deleted file mode 100644
index c3ccb59..0000000
--- a/elpa/org-9.1.14/ox-ascii.el
+++ /dev/null
@@ -1,2182 +0,0 @@
-;;; ox-ascii.el --- ASCII Back-End for Org Export Engine -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2012-2018 Free Software Foundation, Inc.
-
-;; Author: Nicolas Goaziou <n.goaziou at gmail dot com>
-;; Keywords: outlines, hypermedia, calendar, wp
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; This library implements an ASCII back-end for Org generic exporter.
-;; See Org manual for more information.
-
-;;; Code:
-
-(require 'ox)
-(require 'ox-publish)
-(require 'cl-lib)
-
-(declare-function aa2u "ext:ascii-art-to-unicode" ())
-
-;;; Define Back-End
-;;
-;; The following setting won't allow modifying preferred charset
-;; through a buffer keyword or an option item, but, since the property
-;; will appear in communication channel nonetheless, it allows
-;; overriding `org-ascii-charset' variable on the fly by the ext-plist
-;; mechanism.
-;;
-;; We also install a filter for headlines and sections, in order to
-;; control blank lines separating them in output string.
-
-(org-export-define-backend 'ascii
- '((bold . org-ascii-bold)
- (center-block . org-ascii-center-block)
- (clock . org-ascii-clock)
- (code . org-ascii-code)
- (drawer . org-ascii-drawer)
- (dynamic-block . org-ascii-dynamic-block)
- (entity . org-ascii-entity)
- (example-block . org-ascii-example-block)
- (export-block . org-ascii-export-block)
- (export-snippet . org-ascii-export-snippet)
- (fixed-width . org-ascii-fixed-width)
- (footnote-reference . org-ascii-footnote-reference)
- (headline . org-ascii-headline)
- (horizontal-rule . org-ascii-horizontal-rule)
- (inline-src-block . org-ascii-inline-src-block)
- (inlinetask . org-ascii-inlinetask)
- (inner-template . org-ascii-inner-template)
- (italic . org-ascii-italic)
- (item . org-ascii-item)
- (keyword . org-ascii-keyword)
- (latex-environment . org-ascii-latex-environment)
- (latex-fragment . org-ascii-latex-fragment)
- (line-break . org-ascii-line-break)
- (link . org-ascii-link)
- (node-property . org-ascii-node-property)
- (paragraph . org-ascii-paragraph)
- (plain-list . org-ascii-plain-list)
- (plain-text . org-ascii-plain-text)
- (planning . org-ascii-planning)
- (property-drawer . org-ascii-property-drawer)
- (quote-block . org-ascii-quote-block)
- (radio-target . org-ascii-radio-target)
- (section . org-ascii-section)
- (special-block . org-ascii-special-block)
- (src-block . org-ascii-src-block)
- (statistics-cookie . org-ascii-statistics-cookie)
- (strike-through . org-ascii-strike-through)
- (subscript . org-ascii-subscript)
- (superscript . org-ascii-superscript)
- (table . org-ascii-table)
- (table-cell . org-ascii-table-cell)
- (table-row . org-ascii-table-row)
- (target . org-ascii-target)
- (template . org-ascii-template)
- (timestamp . org-ascii-timestamp)
- (underline . org-ascii-underline)
- (verbatim . org-ascii-verbatim)
- (verse-block . org-ascii-verse-block))
- :menu-entry
- '(?t "Export to Plain Text"
- ((?A "As ASCII buffer"
- (lambda (a s v b)
- (org-ascii-export-as-ascii a s v b '(:ascii-charset ascii))))
- (?a "As ASCII file"
- (lambda (a s v b)
- (org-ascii-export-to-ascii a s v b '(:ascii-charset ascii))))
- (?L "As Latin1 buffer"
- (lambda (a s v b)
- (org-ascii-export-as-ascii a s v b '(:ascii-charset latin1))))
- (?l "As Latin1 file"
- (lambda (a s v b)
- (org-ascii-export-to-ascii a s v b '(:ascii-charset latin1))))
- (?U "As UTF-8 buffer"
- (lambda (a s v b)
- (org-ascii-export-as-ascii a s v b '(:ascii-charset utf-8))))
- (?u "As UTF-8 file"
- (lambda (a s v b)
- (org-ascii-export-to-ascii a s v b '(:ascii-charset utf-8))))))
- :filters-alist '((:filter-headline . org-ascii-filter-headline-blank-lines)
- (:filter-parse-tree org-ascii-filter-paragraph-spacing
- org-ascii-filter-comment-spacing)
- (:filter-section . org-ascii-filter-headline-blank-lines))
- :options-alist
- '((:subtitle "SUBTITLE" nil nil parse)
- (:ascii-bullets nil nil org-ascii-bullets)
- (:ascii-caption-above nil nil org-ascii-caption-above)
- (:ascii-charset nil nil org-ascii-charset)
- (:ascii-global-margin nil nil org-ascii-global-margin)
- (:ascii-format-drawer-function nil nil org-ascii-format-drawer-function)
- (:ascii-format-inlinetask-function
- nil nil org-ascii-format-inlinetask-function)
- (:ascii-headline-spacing nil nil org-ascii-headline-spacing)
- (:ascii-indented-line-width nil nil org-ascii-indented-line-width)
- (:ascii-inlinetask-width nil nil org-ascii-inlinetask-width)
- (:ascii-inner-margin nil nil org-ascii-inner-margin)
- (:ascii-links-to-notes nil nil org-ascii-links-to-notes)
- (:ascii-list-margin nil nil org-ascii-list-margin)
- (:ascii-paragraph-spacing nil nil org-ascii-paragraph-spacing)
- (:ascii-quote-margin nil nil org-ascii-quote-margin)
- (:ascii-table-keep-all-vertical-lines
- nil nil org-ascii-table-keep-all-vertical-lines)
- (:ascii-table-use-ascii-art nil nil org-ascii-table-use-ascii-art)
- (:ascii-table-widen-columns nil nil org-ascii-table-widen-columns)
- (:ascii-text-width nil nil org-ascii-text-width)
- (:ascii-underline nil nil org-ascii-underline)
- (:ascii-verbatim-format nil nil org-ascii-verbatim-format)))
-
-
-
-;;; User Configurable Variables
-
-(defgroup org-export-ascii nil
- "Options for exporting Org mode files to ASCII."
- :tag "Org Export ASCII"
- :group 'org-export)
-
-(defcustom org-ascii-text-width 72
- "Maximum width of exported text.
-This number includes margin size, as set in
-`org-ascii-global-margin'."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'integer)
-
-(defcustom org-ascii-global-margin 0
- "Width of the left margin, in number of characters."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'integer)
-
-(defcustom org-ascii-inner-margin 2
- "Width of the inner margin, in number of characters.
-Inner margin is applied between each headline."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'integer)
-
-(defcustom org-ascii-quote-margin 6
- "Width of margin used for quoting text, in characters.
-This margin is applied on both sides of the text. It is also
-applied on the left side of contents in descriptive lists."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'integer)
-
-(defcustom org-ascii-list-margin 0
- "Width of margin used for plain lists, in characters.
-This margin applies to top level list only, not to its
-sub-lists."
- :group 'org-export-ascii
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'integer)
-
-(defcustom org-ascii-inlinetask-width 30
- "Width of inline tasks, in number of characters.
-This number ignores any margin."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'integer)
-
-(defcustom org-ascii-headline-spacing '(1 . 2)
- "Number of blank lines inserted around headlines.
-
-This variable can be set to a cons cell. In that case, its car
-represents the number of blank lines present before headline
-contents whereas its cdr reflects the number of blank lines after
-contents.
-
-A nil value replicates the number of blank lines found in the
-original Org buffer at the same place."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Replicate original spacing" nil)
- (cons :tag "Set a uniform spacing"
- (integer :tag "Number of blank lines before contents")
- (integer :tag "Number of blank lines after contents"))))
-
-(defcustom org-ascii-indented-line-width 'auto
- "Additional indentation width for the first line in a paragraph.
-If the value is an integer, indent the first line of each
-paragraph by this width, unless it is located at the beginning of
-a section, in which case indentation is removed from that line.
-If it is the symbol `auto' preserve indentation from original
-document."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (integer :tag "Number of white spaces characters")
- (const :tag "Preserve original width" auto)))
-
-(defcustom org-ascii-paragraph-spacing 'auto
- "Number of white lines between paragraphs.
-If the value is an integer, add this number of blank lines
-between contiguous paragraphs. If is it the symbol `auto', keep
-the same number of blank lines as in the original document."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (integer :tag "Number of blank lines")
- (const :tag "Preserve original spacing" auto)))
-
-(defcustom org-ascii-charset 'ascii
- "The charset allowed to represent various elements and objects.
-Possible values are:
-`ascii' Only use plain ASCII characters
-`latin1' Include Latin-1 characters
-`utf-8' Use all UTF-8 characters"
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "ASCII" ascii)
- (const :tag "Latin-1" latin1)
- (const :tag "UTF-8" utf-8)))
-
-(defcustom org-ascii-underline '((ascii ?= ?~ ?-)
- (latin1 ?= ?~ ?-)
- (utf-8 ?═ ?─ ?╌ ?┄ ?┈))
- "Characters for underlining headings in ASCII export.
-
-Alist whose key is a symbol among `ascii', `latin1' and `utf-8'
-and whose value is a list of characters.
-
-For each supported charset, this variable associates a sequence
-of underline characters. In a sequence, the characters will be
-used in order for headlines level 1, 2, ... If no character is
-available for a given level, the headline won't be underlined."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(list
- (cons :tag "Underline characters sequence"
- (const :tag "ASCII charset" ascii)
- (repeat character))
- (cons :tag "Underline characters sequence"
- (const :tag "Latin-1 charset" latin1)
- (repeat character))
- (cons :tag "Underline characters sequence"
- (const :tag "UTF-8 charset" utf-8)
- (repeat character))))
-
-(defcustom org-ascii-bullets '((ascii ?* ?+ ?-)
- (latin1 ?§ ?¶)
- (utf-8 ?◊))
- "Bullet characters for headlines converted to lists in ASCII export.
-
-Alist whose key is a symbol among `ascii', `latin1' and `utf-8'
-and whose value is a list of characters.
-
-The first character is used for the first level considered as low
-level, and so on. If there are more levels than characters given
-here, the list will be repeated.
-
-Note that this variable doesn't affect plain lists
-representation."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(list
- (cons :tag "Bullet characters for low level headlines"
- (const :tag "ASCII charset" ascii)
- (repeat character))
- (cons :tag "Bullet characters for low level headlines"
- (const :tag "Latin-1 charset" latin1)
- (repeat character))
- (cons :tag "Bullet characters for low level headlines"
- (const :tag "UTF-8 charset" utf-8)
- (repeat character))))
-
-(defcustom org-ascii-links-to-notes t
- "Non-nil means convert links to notes before the next headline.
-When nil, the link will be exported in place. If the line
-becomes long in this way, it will be wrapped."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-ascii-table-keep-all-vertical-lines nil
- "Non-nil means keep all vertical lines in ASCII tables.
-When nil, vertical lines will be removed except for those needed
-for column grouping."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-ascii-table-widen-columns t
- "Non-nil means widen narrowed columns for export.
-When nil, narrowed columns will look in ASCII export just like in
-Org mode, i.e. with \"=>\" as ellipsis."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-ascii-table-use-ascii-art nil
- "Non-nil means \"table.el\" tables are turned into ASCII art.
-It only makes sense when export charset is `utf-8'. It is nil by
-default since it requires \"ascii-art-to-unicode.el\" package,
-available through, e.g., GNU ELPA."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-ascii-caption-above nil
- "When non-nil, place caption string before the element.
-Otherwise, place it right after it."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-ascii-verbatim-format "`%s'"
- "Format string used for verbatim text and inline code."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defcustom org-ascii-format-drawer-function
- (lambda (_name contents _width) contents)
- "Function called to format a drawer in ASCII.
-
-The function must accept three parameters:
- NAME the drawer name, like \"LOGBOOK\"
- CONTENTS the contents of the drawer.
- WIDTH the text width within the drawer.
-
-The function should return either the string to be exported or
-nil to ignore the drawer.
-
-The default value simply returns the value of CONTENTS."
- :group 'org-export-ascii
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'function)
-
-(defcustom org-ascii-format-inlinetask-function
- 'org-ascii-format-inlinetask-default
- "Function called to format an inlinetask in ASCII.
-
-The function must accept nine parameters:
- TODO the todo keyword, as a string
- TODO-TYPE the todo type, a symbol among `todo', `done' and nil.
- PRIORITY the inlinetask priority, as a string
- NAME the inlinetask name, as a string.
- TAGS the inlinetask tags, as a list of strings.
- CONTENTS the contents of the inlinetask, as a string.
- WIDTH the width of the inlinetask, as a number.
- INLINETASK the inlinetask itself.
- INFO the info channel.
-
-The function should return either the string to be exported or
-nil to ignore the inline task."
- :group 'org-export-ascii
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'function)
-
-
-
-;;; Internal Functions
-
-;; Internal functions fall into three categories.
-
-;; The first one is about text formatting. The core functions are
-;; `org-ascii--current-text-width' and
-;; `org-ascii--current-justification', which determine, respectively,
-;; the current text width allowed to a given element and its expected
-;; justification. Once this information is known,
-;; `org-ascii--fill-string', `org-ascii--justify-lines',
-;; `org-ascii--justify-element' `org-ascii--box-string' and
-;; `org-ascii--indent-string' can operate on a given output string.
-;; In particular, justification happens at the regular (i.e.,
-;; non-greater) element level, which means that when the exporting
-;; process reaches a container (e.g., a center block) content are
-;; already justified.
-
-;; The second category contains functions handling elements listings,
-;; triggered by "#+TOC:" keyword. As such, `org-ascii--build-toc'
-;; returns a complete table of contents, `org-ascii--list-listings'
-;; returns a list of referenceable src-block elements, and
-;; `org-ascii--list-tables' does the same for table elements.
-
-;; The third category includes general helper functions.
-;; `org-ascii--build-title' creates the title for a given headline
-;; or inlinetask element. `org-ascii--build-caption' returns the
-;; caption string associated to a table or a src-block.
-;; `org-ascii--describe-links' creates notes about links for
-;; insertion at the end of a section. It uses
-;; `org-ascii--unique-links' to get the list of links to describe.
-;; Eventually, `org-ascii--translate' translates a string according
-;; to language and charset specification.
-
-
-(defun org-ascii--fill-string (s text-width info &optional justify)
- "Fill a string with specified text-width and return it.
-
-S is the string being filled. TEXT-WIDTH is an integer
-specifying maximum length of a line. INFO is the plist used as
-a communication channel.
-
-Optional argument JUSTIFY can specify any type of justification
-among `left', `center', `right' or `full'. A nil value is
-equivalent to `left'. For a justification that doesn't also fill
-string, see `org-ascii--justify-lines' and
-`org-ascii--justify-block'.
-
-Return nil if S isn't a string."
- (when (stringp s)
- (let ((double-space-p sentence-end-double-space))
- (with-temp-buffer
- (let ((fill-column text-width)
- (use-hard-newlines t)
- (sentence-end-double-space double-space-p))
- (insert (if (plist-get info :preserve-breaks)
- (replace-regexp-in-string "\n" hard-newline s)
- s))
- (fill-region (point-min) (point-max) justify))
- (buffer-string)))))
-
-(defun org-ascii--justify-lines (s text-width how)
- "Justify all lines in string S.
-TEXT-WIDTH is an integer specifying maximum length of a line.
-HOW determines the type of justification: it can be `left',
-`right', `full' or `center'."
- (with-temp-buffer
- (insert s)
- (goto-char (point-min))
- (let ((fill-column text-width)
- ;; Disable `adaptive-fill-mode' so it doesn't prevent
- ;; filling lines matching `adaptive-fill-regexp'.
- (adaptive-fill-mode nil))
- (while (< (point) (point-max))
- (justify-current-line how)
- (forward-line)))
- (buffer-string)))
-
-(defun org-ascii--justify-element (contents element info)
- "Justify CONTENTS of ELEMENT.
-INFO is a plist used as a communication channel. Justification
-is done according to the type of element. More accurately,
-paragraphs are filled and other elements are justified as blocks,
-that is according to the widest non blank line in CONTENTS."
- (if (not (org-string-nw-p contents)) contents
- (let ((text-width (org-ascii--current-text-width element info))
- (how (org-ascii--current-justification element)))
- (cond
- ((eq (org-element-type element) 'paragraph)
- ;; Paragraphs are treated specially as they need to be filled.
- (org-ascii--fill-string contents text-width info how))
- ((eq how 'left) contents)
- (t (with-temp-buffer
- (insert contents)
- (goto-char (point-min))
- (catch 'exit
- (let ((max-width 0))
- ;; Compute maximum width. Bail out if it is greater
- ;; than page width, since no justification is
- ;; possible.
- (save-excursion
- (while (not (eobp))
- (unless (looking-at-p "[ \t]*$")
- (end-of-line)
- (let ((column (current-column)))
- (cond
- ((>= column text-width) (throw 'exit contents))
- ((> column max-width) (setq max-width column)))))
- (forward-line)))
- ;; Justify every line according to TEXT-WIDTH and
- ;; MAX-WIDTH.
- (let ((offset (/ (- text-width max-width)
- (if (eq how 'right) 1 2))))
- (if (zerop offset) (throw 'exit contents)
- (while (not (eobp))
- (unless (looking-at-p "[ \t]*$")
- (indent-to-column offset))
- (forward-line)))))
- (buffer-string))))))))
-
-(defun org-ascii--indent-string (s width)
- "Indent string S by WIDTH white spaces.
-Empty lines are not indented."
- (when (stringp s)
- (replace-regexp-in-string
- "\\(^\\)[ \t]*\\S-" (make-string width ?\s) s nil nil 1)))
-
-(defun org-ascii--box-string (s info)
- "Return string S with a partial box to its left.
-INFO is a plist used as a communication channel."
- (let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8)))
- (format (if utf8p "┌────\n%s\n└────" ",----\n%s\n`----")
- (replace-regexp-in-string
- "^" (if utf8p "│ " "| ")
- ;; Remove last newline character.
- (replace-regexp-in-string "\n[ \t]*\\'" "" s)))))
-
-(defun org-ascii--current-text-width (element info)
- "Return maximum text width for ELEMENT's contents.
-INFO is a plist used as a communication channel."
- (pcase (org-element-type element)
- ;; Elements with an absolute width: `headline' and `inlinetask'.
- (`inlinetask (plist-get info :ascii-inlinetask-width))
- (`headline
- (- (plist-get info :ascii-text-width)
- (let ((low-level-rank (org-export-low-level-p element info)))
- (if low-level-rank (* low-level-rank 2)
- (plist-get info :ascii-global-margin)))))
- ;; Elements with a relative width: store maximum text width in
- ;; TOTAL-WIDTH.
- (_
- (let* ((genealogy (org-element-lineage element nil t))
- ;; Total width is determined by the presence, or not, of an
- ;; inline task among ELEMENT parents.
- (total-width
- (if (cl-some (lambda (parent)
- (eq (org-element-type parent) 'inlinetask))
- genealogy)
- (plist-get info :ascii-inlinetask-width)
- ;; No inlinetask: Remove global margin from text width.
- (- (plist-get info :ascii-text-width)
- (plist-get info :ascii-global-margin)
- (let ((parent (org-export-get-parent-headline element)))
- ;; Inner margin doesn't apply to text before first
- ;; headline.
- (if (not parent) 0
- (let ((low-level-rank
- (org-export-low-level-p parent info)))
- ;; Inner margin doesn't apply to contents of
- ;; low level headlines, since they've got their
- ;; own indentation mechanism.
- (if low-level-rank (* low-level-rank 2)
- (plist-get info :ascii-inner-margin)))))))))
- (- total-width
- ;; Each `quote-block' and `verse-block' above narrows text
- ;; width by twice the standard margin size.
- (+ (* (cl-count-if (lambda (parent)
- (memq (org-element-type parent)
- '(quote-block verse-block)))
- genealogy)
- 2
- (plist-get info :ascii-quote-margin))
- ;; Apply list margin once per "top-level" plain-list
- ;; containing current line
- (* (cl-count-if
- (lambda (e)
- (and (eq (org-element-type e) 'plain-list)
- (not (eq (org-element-type (org-export-get-parent e))
- 'item))))
- genealogy)
- (plist-get info :ascii-list-margin))
- ;; Compute indentation offset due to current list. It is
- ;; `org-ascii-quote-margin' per descriptive item in the
- ;; genealogy, bullet's length otherwise.
- (let ((indentation 0))
- (dolist (e genealogy)
- (cond
- ((not (eq 'item (org-element-type e))))
- ((eq (org-element-property :type (org-export-get-parent e))
- 'descriptive)
- (cl-incf indentation org-ascii-quote-margin))
- (t
- (cl-incf indentation
- (+ (string-width
- (or (org-ascii--checkbox e info) ""))
- (string-width
- (org-element-property :bullet e)))))))
- indentation)))))))
-
-(defun org-ascii--current-justification (element)
- "Return expected justification for ELEMENT's contents.
-Return value is a symbol among `left', `center', `right' and
-`full'."
- (let (justification)
- (while (and (not justification)
- (setq element (org-element-property :parent element)))
- (pcase (org-element-type element)
- (`center-block (setq justification 'center))
- (`special-block
- (let ((name (org-element-property :type element)))
- (cond ((string= name "JUSTIFYRIGHT") (setq justification 'right))
- ((string= name "JUSTIFYLEFT") (setq justification 'left)))))))
- (or justification 'left)))
-
-(defun org-ascii--build-title
- (element info text-width &optional underline notags toc)
- "Format ELEMENT title and return it.
-
-ELEMENT is either an `headline' or `inlinetask' element. INFO is
-a plist used as a communication channel. TEXT-WIDTH is an
-integer representing the maximum length of a line.
-
-When optional argument UNDERLINE is non-nil, underline title,
-without the tags, according to `org-ascii-underline'
-specifications.
-
-If optional argument NOTAGS is non-nil, no tags will be added to
-the title.
-
-When optional argument TOC is non-nil, use optional title if
-possible. It doesn't apply to `inlinetask' elements."
- (let* ((headlinep (eq (org-element-type element) 'headline))
- (numbers
- ;; Numbering is specific to headlines.
- (and headlinep (org-export-numbered-headline-p element info)
- ;; All tests passed: build numbering string.
- (concat
- (mapconcat
- 'number-to-string
- (org-export-get-headline-number element info) ".")
- " ")))
- (text
- (org-trim
- (org-export-data
- (if (and toc headlinep) (org-export-get-alt-title element info)
- (org-element-property :title element))
- info)))
- (todo
- (and (plist-get info :with-todo-keywords)
- (let ((todo (org-element-property :todo-keyword element)))
- (and todo (concat (org-export-data todo info) " ")))))
- (tags (and (not notags)
- (plist-get info :with-tags)
- (let ((tag-list (org-export-get-tags element info)))
- (and tag-list
- (format ":%s:"
- (mapconcat 'identity tag-list ":"))))))
- (priority
- (and (plist-get info :with-priority)
- (let ((char (org-element-property :priority element)))
- (and char (format "(#%c) " char)))))
- (first-part (concat numbers todo priority text)))
- (concat
- first-part
- ;; Align tags, if any.
- (when tags
- (format
- (format " %%%ds"
- (max (- text-width (1+ (string-width first-part)))
- (string-width tags)))
- tags))
- ;; Maybe underline text, if ELEMENT type is `headline' and an
- ;; underline character has been defined.
- (when (and underline headlinep)
- (let ((under-char
- (nth (1- (org-export-get-relative-level element info))
- (cdr (assq (plist-get info :ascii-charset)
- (plist-get info :ascii-underline))))))
- (and under-char
- (concat "\n"
- (make-string (/ (string-width first-part)
- (char-width under-char))
- under-char))))))))
-
-(defun org-ascii--has-caption-p (element _info)
- "Non-nil when ELEMENT has a caption affiliated keyword.
-INFO is a plist used as a communication channel. This function
-is meant to be used as a predicate for `org-export-get-ordinal'."
- (org-element-property :caption element))
-
-(defun org-ascii--build-caption (element info)
- "Return caption string for ELEMENT, if applicable.
-
-INFO is a plist used as a communication channel.
-
-The caption string contains the sequence number of ELEMENT along
-with its real caption. Return nil when ELEMENT has no affiliated
-caption keyword."
- (let ((caption (org-export-get-caption element)))
- (when caption
- ;; Get sequence number of current src-block among every
- ;; src-block with a caption.
- (let ((reference
- (org-export-get-ordinal
- element info nil 'org-ascii--has-caption-p))
- (title-fmt (org-ascii--translate
- (pcase (org-element-type element)
- (`table "Table %d:")
- (`src-block "Listing %d:"))
- info)))
- (org-ascii--fill-string
- (concat (format title-fmt reference)
- " "
- (org-export-data caption info))
- (org-ascii--current-text-width element info) info)))))
-
-(defun org-ascii--build-toc (info &optional n keyword local)
- "Return a table of contents.
-
-INFO is a plist used as a communication channel.
-
-Optional argument N, when non-nil, is an integer specifying the
-depth of the table.
-
-Optional argument KEYWORD specifies the TOC keyword, if any, from
-which the table of contents generation has been initiated.
-
-When optional argument LOCAL is non-nil, build a table of
-contents according to the current headline."
- (concat
- (unless local
- (let ((title (org-ascii--translate "Table of Contents" info)))
- (concat title "\n"
- (make-string
- (string-width title)
- (if (eq (plist-get info :ascii-charset) 'utf-8) ?─ ?_))
- "\n\n")))
- (let ((text-width
- (if keyword (org-ascii--current-text-width keyword info)
- (- (plist-get info :ascii-text-width)
- (plist-get info :ascii-global-margin)))))
- (mapconcat
- (lambda (headline)
- (let* ((level (org-export-get-relative-level headline info))
- (indent (* (1- level) 3)))
- (concat
- (unless (zerop indent) (concat (make-string (1- indent) ?.) " "))
- (org-ascii--build-title
- headline info (- text-width indent) nil
- (or (not (plist-get info :with-tags))
- (eq (plist-get info :with-tags) 'not-in-toc))
- 'toc))))
- (org-export-collect-headlines info n (and local keyword)) "\n"))))
-
-(defun org-ascii--list-listings (keyword info)
- "Return a list of listings.
-
-KEYWORD is the keyword that initiated the list of listings
-generation. INFO is a plist used as a communication channel."
- (let ((title (org-ascii--translate "List of Listings" info)))
- (concat
- title "\n"
- (make-string (string-width title)
- (if (eq (plist-get info :ascii-charset) 'utf-8) ?─ ?_))
- "\n\n"
- (let ((text-width
- (if keyword (org-ascii--current-text-width keyword info)
- (- (plist-get info :ascii-text-width)
- (plist-get info :ascii-global-margin))))
- ;; Use a counter instead of retrieving ordinal of each
- ;; src-block.
- (count 0))
- (mapconcat
- (lambda (src-block)
- ;; Store initial text so its length can be computed. This is
- ;; used to properly align caption right to it in case of
- ;; filling (like contents of a description list item).
- (let* ((initial-text
- (format (org-ascii--translate "Listing %d:" info)
- (cl-incf count)))
- (initial-width (string-width initial-text)))
- (concat
- initial-text " "
- (org-trim
- (org-ascii--indent-string
- (org-ascii--fill-string
- ;; Use short name in priority, if available.
- (let ((caption (or (org-export-get-caption src-block t)
- (org-export-get-caption src-block))))
- (org-export-data caption info))
- (- text-width initial-width) info)
- initial-width)))))
- (org-export-collect-listings info) "\n")))))
-
-(defun org-ascii--list-tables (keyword info)
- "Return a list of tables.
-
-KEYWORD is the keyword that initiated the list of tables
-generation. INFO is a plist used as a communication channel."
- (let ((title (org-ascii--translate "List of Tables" info)))
- (concat
- title "\n"
- (make-string (string-width title)
- (if (eq (plist-get info :ascii-charset) 'utf-8) ?─ ?_))
- "\n\n"
- (let ((text-width
- (if keyword (org-ascii--current-text-width keyword info)
- (- (plist-get info :ascii-text-width)
- (plist-get info :ascii-global-margin))))
- ;; Use a counter instead of retrieving ordinal of each
- ;; src-block.
- (count 0))
- (mapconcat
- (lambda (table)
- ;; Store initial text so its length can be computed. This is
- ;; used to properly align caption right to it in case of
- ;; filling (like contents of a description list item).
- (let* ((initial-text
- (format (org-ascii--translate "Table %d:" info)
- (cl-incf count)))
- (initial-width (string-width initial-text)))
- (concat
- initial-text " "
- (org-trim
- (org-ascii--indent-string
- (org-ascii--fill-string
- ;; Use short name in priority, if available.
- (let ((caption (or (org-export-get-caption table t)
- (org-export-get-caption table))))
- (org-export-data caption info))
- (- text-width initial-width) info)
- initial-width)))))
- (org-export-collect-tables info) "\n")))))
-
-(defun org-ascii--unique-links (element info)
- "Return a list of unique link references in ELEMENT.
-ELEMENT is either a headline element or a section element. INFO
-is a plist used as a communication channel."
- (let* (seen
- (unique-link-p
- ;; Return LINK if it wasn't referenced so far, or nil.
- ;; Update SEEN links along the way.
- (lambda (link)
- (let ((footprint
- ;; Normalize description in footprints.
- (cons (org-element-property :raw-link link)
- (let ((contents (org-element-contents link)))
- (and contents
- (replace-regexp-in-string
- "[ \r\t\n]+" " "
- (org-trim
- (org-element-interpret-data contents))))))))
- ;; Ignore LINK if it hasn't been translated already. It
- ;; can happen if it is located in an affiliated keyword
- ;; that was ignored.
- (when (and (org-string-nw-p
- (gethash link (plist-get info :exported-data)))
- (not (member footprint seen)))
- (push footprint seen) link)))))
- (org-element-map (if (eq (org-element-type element) 'section)
- element
- ;; In a headline, only retrieve links in title
- ;; and relative section, not in children.
- (list (org-element-property :title element)
- (car (org-element-contents element))))
- 'link unique-link-p info nil 'headline t)))
-
-(defun org-ascii--describe-datum (datum info)
- "Describe DATUM object or element.
-If DATUM is a string, consider it to be a file name, per
-`org-export-resolve-id-link'. INFO is the communication channel,
-as a plist."
- (pcase (org-element-type datum)
- (`plain-text (format "See file %s" datum)) ;External file
- (`headline
- (format (org-ascii--translate "See section %s" info)
- (if (org-export-numbered-headline-p datum info)
- (mapconcat #'number-to-string
- (org-export-get-headline-number datum info)
- ".")
- (org-export-data (org-element-property :title datum) info))))
- (_
- (let ((number (org-export-get-ordinal
- datum info nil #'org-ascii--has-caption-p))
- ;; If destination is a target, make sure we can name the
- ;; container it refers to.
- (enumerable
- (org-element-lineage datum
- '(headline paragraph src-block table) t)))
- (pcase (org-element-type enumerable)
- (`headline
- (format (org-ascii--translate "See section %s" info)
- (if (org-export-numbered-headline-p enumerable info)
- (mapconcat #'number-to-string number ".")
- (org-export-data
- (org-element-property :title enumerable) info))))
- ((guard (not number))
- (org-ascii--translate "Unknown reference" info))
- (`paragraph
- (format (org-ascii--translate "See figure %s" info) number))
- (`src-block
- (format (org-ascii--translate "See listing %s" info) number))
- (`table
- (format (org-ascii--translate "See table %s" info) number))
- (_ (org-ascii--translate "Unknown reference" info)))))))
-
-(defun org-ascii--describe-links (links width info)
- "Return a string describing a list of links.
-LINKS is a list of link type objects, as returned by
-`org-ascii--unique-links'. WIDTH is the text width allowed for
-the output string. INFO is a plist used as a communication
-channel."
- (mapconcat
- (lambda (link)
- (let* ((type (org-element-property :type link))
- (description (org-element-contents link))
- (anchor (org-export-data
- (or description (org-element-property :raw-link link))
- info)))
- (cond
- ((member type '("coderef" "radio")) nil)
- ((member type '("custom-id" "fuzzy" "id"))
- ;; Only links with a description need an entry. Other are
- ;; already handled in `org-ascii-link'.
- (when description
- (let ((dest (if (equal type "fuzzy")
- (org-export-resolve-fuzzy-link link info)
- (org-export-resolve-id-link link info))))
- (concat
- (org-ascii--fill-string
- (format "[%s] %s" anchor (org-ascii--describe-datum dest info))
- width info)
- "\n\n"))))
- ;; Do not add a link that cannot be resolved and doesn't have
- ;; any description: destination is already visible in the
- ;; paragraph.
- ((not (org-element-contents link)) nil)
- ;; Do not add a link already handled by custom export
- ;; functions.
- ((org-export-custom-protocol-maybe link anchor 'ascii) nil)
- (t
- (concat
- (org-ascii--fill-string
- (format "[%s] %s" anchor (org-element-property :raw-link link))
- width info)
- "\n\n")))))
- links ""))
-
-(defun org-ascii--checkbox (item info)
- "Return checkbox string for ITEM or nil.
-INFO is a plist used as a communication channel."
- (let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8)))
- (pcase (org-element-property :checkbox item)
- (`on (if utf8p "☑ " "[X] "))
- (`off (if utf8p "☐ " "[ ] "))
- (`trans (if utf8p "☒ " "[-] ")))))
-
-
-
-;;; Template
-
-(defun org-ascii-template--document-title (info)
- "Return document title, as a string.
-INFO is a plist used as a communication channel."
- (let* ((text-width (plist-get info :ascii-text-width))
- ;; Links in the title will not be resolved later, so we make
- ;; sure their path is located right after them.
- (info (org-combine-plists info '(:ascii-links-to-notes nil)))
- (with-title (plist-get info :with-title))
- (title (org-export-data
- (when with-title (plist-get info :title)) info))
- (subtitle (org-export-data
- (when with-title (plist-get info :subtitle)) info))
- (author (and (plist-get info :with-author)
- (let ((auth (plist-get info :author)))
- (and auth (org-export-data auth info)))))
- (email (and (plist-get info :with-email)
- (org-export-data (plist-get info :email) info)))
- (date (and (plist-get info :with-date)
- (org-export-data (org-export-get-date info) info))))
- ;; There are two types of title blocks depending on the presence
- ;; of a title to display.
- (if (string= title "")
- ;; Title block without a title. DATE is positioned at the top
- ;; right of the document, AUTHOR to the top left and EMAIL
- ;; just below.
- (cond
- ((and (org-string-nw-p date) (org-string-nw-p author))
- (concat
- author
- (make-string (- text-width (string-width date) (string-width author))
- ?\s)
- date
- (when (org-string-nw-p email) (concat "\n" email))
- "\n\n\n"))
- ((and (org-string-nw-p date) (org-string-nw-p email))
- (concat
- email
- (make-string (- text-width (string-width date) (string-width email))
- ?\s)
- date "\n\n\n"))
- ((org-string-nw-p date)
- (concat
- (org-ascii--justify-lines date text-width 'right)
- "\n\n\n"))
- ((and (org-string-nw-p author) (org-string-nw-p email))
- (concat author "\n" email "\n\n\n"))
- ((org-string-nw-p author) (concat author "\n\n\n"))
- ((org-string-nw-p email) (concat email "\n\n\n")))
- ;; Title block with a title. Document's TITLE, along with the
- ;; AUTHOR and its EMAIL are both overlined and an underlined,
- ;; centered. Date is just below, also centered.
- (let* ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))
- ;; Format TITLE. It may be filled if it is too wide,
- ;; that is wider than the two thirds of the total width.
- (title-len (min (apply #'max
- (mapcar #'length
- (org-split-string
- (concat title "\n" subtitle) "\n")))
- (/ (* 2 text-width) 3)))
- (formatted-title (org-ascii--fill-string title title-len info))
- (formatted-subtitle (when (org-string-nw-p subtitle)
- (org-ascii--fill-string subtitle title-len info)))
- (line
- (make-string
- (min (+ (max title-len
- (string-width (or author ""))
- (string-width (or email "")))
- 2)
- text-width) (if utf8p ?━ ?_))))
- (org-ascii--justify-lines
- (concat line "\n"
- (unless utf8p "\n")
- (upcase formatted-title)
- (and formatted-subtitle (concat "\n" formatted-subtitle))
- (cond
- ((and (org-string-nw-p author) (org-string-nw-p email))
- (concat "\n\n" author "\n" email))
- ((org-string-nw-p author) (concat "\n\n" author))
- ((org-string-nw-p email) (concat "\n\n" email)))
- "\n" line
- (when (org-string-nw-p date) (concat "\n\n\n" date))
- "\n\n\n") text-width 'center)))))
-
-(defun org-ascii-inner-template (contents info)
- "Return complete document string after ASCII conversion.
-CONTENTS is the transcoded contents string. INFO is a plist
-holding export options."
- (org-element-normalize-string
- (let ((global-margin (plist-get info :ascii-global-margin)))
- (org-ascii--indent-string
- (concat
- ;; 1. Document's body.
- contents
- ;; 2. Footnote definitions.
- (let ((definitions (org-export-collect-footnote-definitions info))
- ;; Insert full links right inside the footnote definition
- ;; as they have no chance to be inserted later.
- (info (org-combine-plists info '(:ascii-links-to-notes nil))))
- (when definitions
- (concat
- "\n\n\n"
- (let ((title (org-ascii--translate "Footnotes" info)))
- (concat
- title "\n"
- (make-string
- (string-width title)
- (if (eq (plist-get info :ascii-charset) 'utf-8) ?─ ?_))))
- "\n\n"
- (let ((text-width (- (plist-get info :ascii-text-width)
- global-margin)))
- (mapconcat
- (lambda (ref)
- (let ((id (format "[%s] " (car ref))))
- ;; Distinguish between inline definitions and
- ;; full-fledged definitions.
- (org-trim
- (let ((def (nth 2 ref)))
- (if (org-element-map def org-element-all-elements
- #'identity info 'first-match)
- ;; Full-fledged definition: footnote ID is
- ;; inserted inside the first parsed
- ;; paragraph (FIRST), if any, to be sure
- ;; filling will take it into consideration.
- (let ((first (car (org-element-contents def))))
- (if (not (eq (org-element-type first) 'paragraph))
- (concat id "\n" (org-export-data def info))
- (push id (nthcdr 2 first))
- (org-export-data def info)))
- ;; Fill paragraph once footnote ID is inserted
- ;; in order to have a correct length for first
- ;; line.
- (org-ascii--fill-string
- (concat id (org-export-data def info))
- text-width info))))))
- definitions "\n\n"))))))
- global-margin))))
-
-(defun org-ascii-template (contents info)
- "Return complete document string after ASCII conversion.
-CONTENTS is the transcoded contents string. INFO is a plist
-holding export options."
- (let ((global-margin (plist-get info :ascii-global-margin)))
- (concat
- ;; Build title block.
- (org-ascii--indent-string
- (concat (org-ascii-template--document-title info)
- ;; 2. Table of contents.
- (let ((depth (plist-get info :with-toc)))
- (when depth
- (concat
- (org-ascii--build-toc info (and (wholenump depth) depth))
- "\n\n\n"))))
- global-margin)
- ;; Document's body.
- contents
- ;; Creator. Justify it to the bottom right.
- (and (plist-get info :with-creator)
- (org-ascii--indent-string
- (let ((text-width
- (- (plist-get info :ascii-text-width) global-margin)))
- (concat
- "\n\n\n"
- (org-ascii--fill-string
- (plist-get info :creator) text-width info 'right)))
- global-margin)))))
-
-(defun org-ascii--translate (s info)
- "Translate string S according to specified language and charset.
-INFO is a plist used as a communication channel."
- (let ((charset (intern (format ":%s" (plist-get info :ascii-charset)))))
- (org-export-translate s charset info)))
-
-
-
-;;; Transcode Functions
-
-;;;; Bold
-
-(defun org-ascii-bold (_bold contents _info)
- "Transcode BOLD from Org to ASCII.
-CONTENTS is the text with bold markup. INFO is a plist holding
-contextual information."
- (format "*%s*" contents))
-
-
-;;;; Center Block
-
-(defun org-ascii-center-block (_center-block contents _info)
- "Transcode a CENTER-BLOCK element from Org to ASCII.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- ;; Center has already been taken care of at a lower level, so
- ;; there's nothing left to do.
- contents)
-
-
-;;;; Clock
-
-(defun org-ascii-clock (clock _contents info)
- "Transcode a CLOCK object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (org-ascii--justify-element
- (concat org-clock-string " "
- (org-timestamp-translate (org-element-property :value clock))
- (let ((time (org-element-property :duration clock)))
- (and time
- (concat " => "
- (apply 'format
- "%2s:%02s"
- (org-split-string time ":"))))))
- clock info))
-
-
-;;;; Code
-
-(defun org-ascii-code (code _contents info)
- "Return a CODE object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (format (plist-get info :ascii-verbatim-format)
- (org-element-property :value code)))
-
-
-;;;; Drawer
-
-(defun org-ascii-drawer (drawer contents info)
- "Transcode a DRAWER element from Org to ASCII.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- (let ((name (org-element-property :drawer-name drawer))
- (width (org-ascii--current-text-width drawer info)))
- (funcall (plist-get info :ascii-format-drawer-function)
- name contents width)))
-
-
-;;;; Dynamic Block
-
-(defun org-ascii-dynamic-block (_dynamic-block contents _info)
- "Transcode a DYNAMIC-BLOCK element from Org to ASCII.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- contents)
-
-
-;;;; Entity
-
-(defun org-ascii-entity (entity _contents info)
- "Transcode an ENTITY object from Org to ASCII.
-CONTENTS are the definition itself. INFO is a plist holding
-contextual information."
- (org-element-property
- (intern (concat ":" (symbol-name (plist-get info :ascii-charset))))
- entity))
-
-
-;;;; Example Block
-
-(defun org-ascii-example-block (example-block _contents info)
- "Transcode a EXAMPLE-BLOCK element from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (org-ascii--justify-element
- (org-ascii--box-string
- (org-export-format-code-default example-block info) info)
- example-block info))
-
-
-;;;; Export Snippet
-
-(defun org-ascii-export-snippet (export-snippet _contents _info)
- "Transcode a EXPORT-SNIPPET object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (when (eq (org-export-snippet-backend export-snippet) 'ascii)
- (org-element-property :value export-snippet)))
-
-
-;;;; Export Block
-
-(defun org-ascii-export-block (export-block _contents info)
- "Transcode a EXPORT-BLOCK element from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (when (string= (org-element-property :type export-block) "ASCII")
- (org-ascii--justify-element
- (org-element-property :value export-block) export-block info)))
-
-
-;;;; Fixed Width
-
-(defun org-ascii-fixed-width (fixed-width _contents info)
- "Transcode a FIXED-WIDTH element from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (org-ascii--justify-element
- (org-ascii--box-string
- (org-remove-indentation
- (org-element-property :value fixed-width)) info)
- fixed-width info))
-
-
-;;;; Footnote Definition
-
-;; Footnote Definitions are ignored. They are compiled at the end of
-;; the document, by `org-ascii-inner-template'.
-
-
-;;;; Footnote Reference
-
-(defun org-ascii-footnote-reference (footnote-reference _contents info)
- "Transcode a FOOTNOTE-REFERENCE element from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (format "[%s]" (org-export-get-footnote-number footnote-reference info)))
-
-
-;;;; Headline
-
-(defun org-ascii-headline (headline contents info)
- "Transcode a HEADLINE element from Org to ASCII.
-CONTENTS holds the contents of the headline. INFO is a plist
-holding contextual information."
- ;; Don't export footnote section, which will be handled at the end
- ;; of the template.
- (unless (org-element-property :footnote-section-p headline)
- (let* ((low-level (org-export-low-level-p headline info))
- (width (org-ascii--current-text-width headline info))
- ;; Export title early so that any link in it can be
- ;; exported and seen in `org-ascii--unique-links'.
- (title (org-ascii--build-title headline info width (not low-level)))
- ;; Blank lines between headline and its contents.
- ;; `org-ascii-headline-spacing', when set, overwrites
- ;; original buffer's spacing.
- (pre-blanks
- (make-string (or (car (plist-get info :ascii-headline-spacing))
- (org-element-property :pre-blank headline)
- 0)
- ?\n))
- (links (and (plist-get info :ascii-links-to-notes)
- (org-ascii--describe-links
- (org-ascii--unique-links headline info) width info)))
- ;; Re-build contents, inserting section links at the right
- ;; place. The cost is low since build results are cached.
- (body
- (if (not (org-string-nw-p links)) contents
- (let* ((contents (org-element-contents headline))
- (section (let ((first (car contents)))
- (and (eq (org-element-type first) 'section)
- first))))
- (concat (and section
- (concat (org-element-normalize-string
- (org-export-data section info))
- "\n\n"))
- links
- (mapconcat (lambda (e) (org-export-data e info))
- (if section (cdr contents) contents)
- ""))))))
- ;; Deep subtree: export it as a list item.
- (if low-level
- (let* ((bullets (cdr (assq (plist-get info :ascii-charset)
- (plist-get info :ascii-bullets))))
- (bullet
- (format "%c "
- (nth (mod (1- low-level) (length bullets)) bullets))))
- (concat bullet title "\n" pre-blanks
- ;; Contents, indented by length of bullet.
- (org-ascii--indent-string body (length bullet))))
- ;; Else: Standard headline.
- (concat title "\n" pre-blanks body)))))
-
-
-;;;; Horizontal Rule
-
-(defun org-ascii-horizontal-rule (horizontal-rule _contents info)
- "Transcode an HORIZONTAL-RULE object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (let ((text-width (org-ascii--current-text-width horizontal-rule info))
- (spec-width
- (org-export-read-attribute :attr_ascii horizontal-rule :width)))
- (org-ascii--justify-lines
- (make-string (if (and spec-width (string-match "^[0-9]+$" spec-width))
- (string-to-number spec-width)
- text-width)
- (if (eq (plist-get info :ascii-charset) 'utf-8) ?― ?-))
- text-width 'center)))
-
-
-;;;; Inline Src Block
-
-(defun org-ascii-inline-src-block (inline-src-block _contents info)
- "Transcode an INLINE-SRC-BLOCK element from Org to ASCII.
-CONTENTS holds the contents of the item. INFO is a plist holding
-contextual information."
- (format (plist-get info :ascii-verbatim-format)
- (org-element-property :value inline-src-block)))
-
-
-;;;; Inlinetask
-
-(defun org-ascii-format-inlinetask-default
- (_todo _type _priority _name _tags contents width inlinetask info)
- "Format an inline task element for ASCII export.
-See `org-ascii-format-inlinetask-function' for a description
-of the parameters."
- (let* ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))
- (width (or width (plist-get info :ascii-inlinetask-width))))
- (org-ascii--indent-string
- (concat
- ;; Top line, with an additional blank line if not in UTF-8.
- (make-string width (if utf8p ?━ ?_)) "\n"
- (unless utf8p (concat (make-string width ? ) "\n"))
- ;; Add title. Fill it if wider than inlinetask.
- (let ((title (org-ascii--build-title inlinetask info width)))
- (if (<= (string-width title) width) title
- (org-ascii--fill-string title width info)))
- "\n"
- ;; If CONTENTS is not empty, insert it along with
- ;; a separator.
- (when (org-string-nw-p contents)
- (concat (make-string width (if utf8p ?─ ?-)) "\n" contents))
- ;; Bottom line.
- (make-string width (if utf8p ?━ ?_)))
- ;; Flush the inlinetask to the right.
- (- (plist-get info :ascii-text-width) (plist-get info :ascii-global-margin)
- (if (not (org-export-get-parent-headline inlinetask)) 0
- (plist-get info :ascii-inner-margin))
- (org-ascii--current-text-width inlinetask info)))))
-
-(defun org-ascii-inlinetask (inlinetask contents info)
- "Transcode an INLINETASK element from Org to ASCII.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- (let ((width (org-ascii--current-text-width inlinetask info)))
- (funcall (plist-get info :ascii-format-inlinetask-function)
- ;; todo.
- (and (plist-get info :with-todo-keywords)
- (let ((todo (org-element-property
- :todo-keyword inlinetask)))
- (and todo (org-export-data todo info))))
- ;; todo-type
- (org-element-property :todo-type inlinetask)
- ;; priority
- (and (plist-get info :with-priority)
- (org-element-property :priority inlinetask))
- ;; title
- (org-export-data (org-element-property :title inlinetask) info)
- ;; tags
- (and (plist-get info :with-tags)
- (org-element-property :tags inlinetask))
- ;; contents and width
- contents width inlinetask info)))
-
-
-;;;; Italic
-
-(defun org-ascii-italic (_italic contents _info)
- "Transcode italic from Org to ASCII.
-CONTENTS is the text with italic markup. INFO is a plist holding
-contextual information."
- (format "/%s/" contents))
-
-
-;;;; Item
-
-(defun org-ascii-item (item contents info)
- "Transcode an ITEM element from Org to ASCII.
-CONTENTS holds the contents of the item. INFO is a plist holding
-contextual information."
- (let* ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))
- (checkbox (org-ascii--checkbox item info))
- (list-type (org-element-property :type (org-export-get-parent item)))
- (bullet
- ;; First parent of ITEM is always the plain-list. Get
- ;; `:type' property from it.
- (pcase list-type
- (`descriptive
- (concat checkbox
- (org-export-data (org-element-property :tag item)
- info)))
- (`ordered
- ;; Return correct number for ITEM, paying attention to
- ;; counters.
- (let* ((struct (org-element-property :structure item))
- (bul (org-list-bullet-string
- (org-element-property :bullet item)))
- (num (number-to-string
- (car (last (org-list-get-item-number
- (org-element-property :begin item)
- struct
- (org-list-prevs-alist struct)
- (org-list-parents-alist struct)))))))
- (replace-regexp-in-string "[0-9]+" num bul)))
- (_ (let ((bul (org-list-bullet-string
- (org-element-property :bullet item))))
- ;; Change bullets into more visible form if UTF-8 is active.
- (if (not utf8p) bul
- (replace-regexp-in-string
- "-" "•"
- (replace-regexp-in-string
- "+" "⁃"
- (replace-regexp-in-string "*" "‣" bul))))))))
- (indentation (if (eq list-type 'descriptive) org-ascii-quote-margin
- (string-width bullet))))
- (concat
- bullet
- checkbox
- ;; Contents: Pay attention to indentation. Note: check-boxes are
- ;; already taken care of at the paragraph level so they don't
- ;; interfere with indentation.
- (let ((contents (org-ascii--indent-string contents indentation)))
- ;; Determine if contents should follow the bullet or start
- ;; a new line. Do the former when the first contributing
- ;; element to contents is a paragraph. In descriptive lists
- ;; however, contents always start a new line.
- (if (and (not (eq list-type 'descriptive))
- (org-string-nw-p contents)
- (eq 'paragraph
- (org-element-type
- (cl-some (lambda (e)
- (and (org-string-nw-p (org-export-data e info))
- e))
- (org-element-contents item)))))
- (org-trim contents)
- (concat "\n" contents))))))
-
-
-;;;; Keyword
-
-(defun org-ascii-keyword (keyword _contents info)
- "Transcode a KEYWORD element from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (let ((key (org-element-property :key keyword))
- (value (org-element-property :value keyword)))
- (cond
- ((string= key "ASCII") (org-ascii--justify-element value keyword info))
- ((string= key "TOC")
- (org-ascii--justify-element
- (let ((case-fold-search t))
- (cond
- ((string-match-p "\\<headlines\\>" value)
- (let ((depth (and (string-match "\\<[0-9]+\\>" value)
- (string-to-number (match-string 0 value))))
- (localp (string-match-p "\\<local\\>" value)))
- (org-ascii--build-toc info depth keyword localp)))
- ((string-match-p "\\<tables\\>" value)
- (org-ascii--list-tables keyword info))
- ((string-match-p "\\<listings\\>" value)
- (org-ascii--list-listings keyword info))))
- keyword info)))))
-
-
-;;;; Latex Environment
-
-(defun org-ascii-latex-environment (latex-environment _contents info)
- "Transcode a LATEX-ENVIRONMENT element from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (when (plist-get info :with-latex)
- (org-ascii--justify-element
- (org-remove-indentation (org-element-property :value latex-environment))
- latex-environment info)))
-
-
-;;;; Latex Fragment
-
-(defun org-ascii-latex-fragment (latex-fragment _contents info)
- "Transcode a LATEX-FRAGMENT object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (when (plist-get info :with-latex)
- (org-element-property :value latex-fragment)))
-
-
-;;;; Line Break
-
-(defun org-ascii-line-break (_line-break _contents _info)
- "Transcode a LINE-BREAK object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
- information." hard-newline)
-
-
-;;;; Link
-
-(defun org-ascii-link (link desc info)
- "Transcode a LINK object from Org to ASCII.
-
-DESC is the description part of the link, or the empty string.
-INFO is a plist holding contextual information."
- (let ((type (org-element-property :type link)))
- (cond
- ((org-export-custom-protocol-maybe link desc 'ascii))
- ((string= type "coderef")
- (let ((ref (org-element-property :path link)))
- (format (org-export-get-coderef-format ref desc)
- (org-export-resolve-coderef ref info))))
- ;; Do not apply a special syntax on radio links. Though, use
- ;; transcoded target's contents as output.
- ((string= type "radio") desc)
- ((member type '("custom-id" "fuzzy" "id"))
- (let ((destination (if (string= type "fuzzy")
- (org-export-resolve-fuzzy-link link info)
- (org-export-resolve-id-link link info))))
- (pcase (org-element-type destination)
- ((guard desc)
- (if (plist-get info :ascii-links-to-notes)
- (format "[%s]" desc)
- (concat desc
- (format " (%s)"
- (org-ascii--describe-datum destination info)))))
- ;; External file.
- (`plain-text destination)
- (`headline
- (if (org-export-numbered-headline-p destination info)
- (mapconcat #'number-to-string
- (org-export-get-headline-number destination info)
- ".")
- (org-export-data (org-element-property :title destination) info)))
- ;; Handle enumerable elements and targets within them.
- ((and (let number (org-export-get-ordinal
- destination info nil #'org-ascii--has-caption-p))
- (guard number))
- (if (atom number) (number-to-string number)
- (mapconcat #'number-to-string number ".")))
- ;; Don't know what to do. Signal it.
- (_ "???"))))
- (t
- (let ((raw-link (org-element-property :raw-link link)))
- (if (not (org-string-nw-p desc)) (format "[%s]" raw-link)
- (concat (format "[%s]" desc)
- (and (not (plist-get info :ascii-links-to-notes))
- (format " (%s)" raw-link)))))))))
-
-
-;;;; Node Properties
-
-(defun org-ascii-node-property (node-property _contents _info)
- "Transcode a NODE-PROPERTY element from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (format "%s:%s"
- (org-element-property :key node-property)
- (let ((value (org-element-property :value node-property)))
- (if value (concat " " value) ""))))
-
-
-;;;; Paragraph
-
-(defun org-ascii-paragraph (paragraph contents info)
- "Transcode a PARAGRAPH element from Org to ASCII.
-CONTENTS is the contents of the paragraph, as a string. INFO is
-the plist used as a communication channel."
- (org-ascii--justify-element
- (let ((indented-line-width (plist-get info :ascii-indented-line-width)))
- (if (not (wholenump indented-line-width)) contents
- (concat
- ;; Do not indent first paragraph in a section.
- (unless (and (not (org-export-get-previous-element paragraph info))
- (eq (org-element-type (org-export-get-parent paragraph))
- 'section))
- (make-string indented-line-width ?\s))
- (replace-regexp-in-string "\\`[ \t]+" "" contents))))
- paragraph info))
-
-
-;;;; Plain List
-
-(defun org-ascii-plain-list (plain-list contents info)
- "Transcode a PLAIN-LIST element from Org to ASCII.
-CONTENTS is the contents of the list. INFO is a plist holding
-contextual information."
- (let ((margin (plist-get info :ascii-list-margin)))
- (if (or (< margin 1)
- (eq (org-element-type (org-export-get-parent plain-list)) 'item))
- contents
- (org-ascii--indent-string contents margin))))
-
-
-;;;; Plain Text
-
-(defun org-ascii-plain-text (text info)
- "Transcode a TEXT string from Org to ASCII.
-INFO is a plist used as a communication channel."
- (let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8)))
- (when (and utf8p (plist-get info :with-smart-quotes))
- (setq text (org-export-activate-smart-quotes text :utf-8 info)))
- (if (not (plist-get info :with-special-strings)) text
- (setq text (replace-regexp-in-string "\\\\-" "" text))
- (if (not utf8p) text
- ;; Usual replacements in utf-8 with proper option set.
- (replace-regexp-in-string
- "\\.\\.\\." "…"
- (replace-regexp-in-string
- "--" "–"
- (replace-regexp-in-string "---" "—" text)))))))
-
-
-;;;; Planning
-
-(defun org-ascii-planning (planning _contents info)
- "Transcode a PLANNING element from Org to ASCII.
-CONTENTS is nil. INFO is a plist used as a communication
-channel."
- (org-ascii--justify-element
- (mapconcat
- #'identity
- (delq nil
- (list (let ((closed (org-element-property :closed planning)))
- (when closed
- (concat org-closed-string " "
- (org-timestamp-translate closed))))
- (let ((deadline (org-element-property :deadline planning)))
- (when deadline
- (concat org-deadline-string " "
- (org-timestamp-translate deadline))))
- (let ((scheduled (org-element-property :scheduled planning)))
- (when scheduled
- (concat org-scheduled-string " "
- (org-timestamp-translate scheduled))))))
- " ")
- planning info))
-
-
-;;;; Property Drawer
-
-(defun org-ascii-property-drawer (property-drawer contents info)
- "Transcode a PROPERTY-DRAWER element from Org to ASCII.
-CONTENTS holds the contents of the drawer. INFO is a plist
-holding contextual information."
- (and (org-string-nw-p contents)
- (org-ascii--justify-element contents property-drawer info)))
-
-
-;;;; Quote Block
-
-(defun org-ascii-quote-block (_quote-block contents info)
- "Transcode a QUOTE-BLOCK element from Org to ASCII.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- (org-ascii--indent-string contents (plist-get info :ascii-quote-margin)))
-
-
-;;;; Radio Target
-
-(defun org-ascii-radio-target (_radio-target contents _info)
- "Transcode a RADIO-TARGET object from Org to ASCII.
-CONTENTS is the contents of the target. INFO is a plist holding
-contextual information."
- contents)
-
-
-;;;; Section
-
-(defun org-ascii-section (section contents info)
- "Transcode a SECTION element from Org to ASCII.
-CONTENTS is the contents of the section. INFO is a plist holding
-contextual information."
- (let ((links
- (and (plist-get info :ascii-links-to-notes)
- ;; Take care of links in first section of the document.
- (not (org-element-lineage section '(headline)))
- (org-ascii--describe-links
- (org-ascii--unique-links section info)
- (org-ascii--current-text-width section info)
- info))))
- (org-ascii--indent-string
- (if (not (org-string-nw-p links)) contents
- (concat (org-element-normalize-string contents) "\n\n" links))
- ;; Do not apply inner margin if parent headline is low level.
- (let ((headline (org-export-get-parent-headline section)))
- (if (or (not headline) (org-export-low-level-p headline info)) 0
- (plist-get info :ascii-inner-margin))))))
-
-
-;;;; Special Block
-
-(defun org-ascii-special-block (_special-block contents _info)
- "Transcode a SPECIAL-BLOCK element from Org to ASCII.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- ;; "JUSTIFYLEFT" and "JUSTIFYRIGHT" have already been taken care of
- ;; at a lower level. There is no other special block type to
- ;; handle.
- contents)
-
-
-;;;; Src Block
-
-(defun org-ascii-src-block (src-block _contents info)
- "Transcode a SRC-BLOCK element from Org to ASCII.
-CONTENTS holds the contents of the item. INFO is a plist holding
-contextual information."
- (let ((caption (org-ascii--build-caption src-block info))
- (caption-above-p (plist-get info :ascii-caption-above))
- (code (org-export-format-code-default src-block info)))
- (if (equal code "") ""
- (org-ascii--justify-element
- (concat
- (and caption caption-above-p (concat caption "\n"))
- (org-ascii--box-string code info)
- (and caption (not caption-above-p) (concat "\n" caption)))
- src-block info))))
-
-
-;;;; Statistics Cookie
-
-(defun org-ascii-statistics-cookie (statistics-cookie _contents _info)
- "Transcode a STATISTICS-COOKIE object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (org-element-property :value statistics-cookie))
-
-
-;;;; Subscript
-
-(defun org-ascii-subscript (subscript contents _info)
- "Transcode a SUBSCRIPT object from Org to ASCII.
-CONTENTS is the contents of the object. INFO is a plist holding
-contextual information."
- (if (org-element-property :use-brackets-p subscript)
- (format "_{%s}" contents)
- (format "_%s" contents)))
-
-
-;;;; Superscript
-
-(defun org-ascii-superscript (superscript contents _info)
- "Transcode a SUPERSCRIPT object from Org to ASCII.
-CONTENTS is the contents of the object. INFO is a plist holding
-contextual information."
- (if (org-element-property :use-brackets-p superscript)
- (format "^{%s}" contents)
- (format "^%s" contents)))
-
-
-;;;; Strike-through
-
-(defun org-ascii-strike-through (_strike-through contents _info)
- "Transcode STRIKE-THROUGH from Org to ASCII.
-CONTENTS is text with strike-through markup. INFO is a plist
-holding contextual information."
- (format "+%s+" contents))
-
-
-;;;; Table
-
-(defun org-ascii-table (table contents info)
- "Transcode a TABLE element from Org to ASCII.
-CONTENTS is the contents of the table. INFO is a plist holding
-contextual information."
- (let ((caption (org-ascii--build-caption table info))
- (caption-above-p (plist-get info :ascii-caption-above)))
- (org-ascii--justify-element
- (concat
- ;; Possibly add a caption string above.
- (and caption caption-above-p (concat caption "\n"))
- ;; Insert table. Note: "table.el" tables are left unmodified.
- (cond ((eq (org-element-property :type table) 'org) contents)
- ((and (plist-get info :ascii-table-use-ascii-art)
- (eq (plist-get info :ascii-charset) 'utf-8)
- (require 'ascii-art-to-unicode nil t))
- (with-temp-buffer
- (insert (org-remove-indentation
- (org-element-property :value table)))
- (goto-char (point-min))
- (aa2u)
- (goto-char (point-max))
- (skip-chars-backward " \r\t\n")
- (buffer-substring (point-min) (point))))
- (t (org-remove-indentation (org-element-property :value table))))
- ;; Possible add a caption string below.
- (and (not caption-above-p) caption))
- table info)))
-
-
-;;;; Table Cell
-
-(defun org-ascii--table-cell-width (table-cell info)
- "Return width of TABLE-CELL.
-
-INFO is a plist used as a communication channel.
-
-Width of a cell is determined either by a width cookie in the
-same column as the cell, or by the maximum cell's length in that
-column.
-
-When `org-ascii-table-widen-columns' is non-nil, width cookies
-are ignored."
- (let* ((row (org-export-get-parent table-cell))
- (table (org-export-get-parent row))
- (col (let ((cells (org-element-contents row)))
- (- (length cells) (length (memq table-cell cells)))))
- (cache
- (or (plist-get info :ascii-table-cell-width-cache)
- (plist-get (setq info
- (plist-put info :ascii-table-cell-width-cache
- (make-hash-table :test 'equal)))
- :ascii-table-cell-width-cache)))
- (key (cons table col))
- (widenp (plist-get info :ascii-table-widen-columns)))
- (or (gethash key cache)
- (puthash
- key
- (let ((cookie-width (org-export-table-cell-width table-cell info)))
- (or (and (not widenp) cookie-width)
- (let ((contents-width
- (let ((max-width 0))
- (org-element-map table 'table-row
- (lambda (row)
- (setq max-width
- (max (string-width
- (org-export-data
- (org-element-contents
- (elt (org-element-contents row) col))
- info))
- max-width)))
- info)
- max-width)))
- (cond ((not cookie-width) contents-width)
- (widenp (max cookie-width contents-width))
- (t cookie-width)))))
- cache))))
-
-(defun org-ascii-table-cell (table-cell contents info)
- "Transcode a TABLE-CELL object from Org to ASCII.
-CONTENTS is the cell contents. INFO is a plist used as
-a communication channel."
- ;; Determine column width. When `org-ascii-table-widen-columns'
- ;; is nil and some width cookie has set it, use that value.
- ;; Otherwise, compute the maximum width among transcoded data of
- ;; each cell in the column.
- (let ((width (org-ascii--table-cell-width table-cell info)))
- ;; When contents are too large, truncate them.
- (unless (or (plist-get info :ascii-table-widen-columns)
- (<= (string-width (or contents "")) width))
- (setq contents (concat (substring contents 0 (- width 2)) "=>")))
- ;; Align contents correctly within the cell.
- (let* ((indent-tabs-mode nil)
- (data
- (when contents
- (org-ascii--justify-lines
- contents width
- (org-export-table-cell-alignment table-cell info)))))
- (setq contents
- (concat data
- (make-string (- width (string-width (or data ""))) ?\s))))
- ;; Return cell.
- (concat (format " %s " contents)
- (when (memq 'right (org-export-table-cell-borders table-cell info))
- (if (eq (plist-get info :ascii-charset) 'utf-8) "│" "|")))))
-
-
-;;;; Table Row
-
-(defun org-ascii-table-row (table-row contents info)
- "Transcode a TABLE-ROW element from Org to ASCII.
-CONTENTS is the row contents. INFO is a plist used as
-a communication channel."
- (when (eq (org-element-property :type table-row) 'standard)
- (let ((build-hline
- (function
- (lambda (lcorner horiz vert rcorner)
- (concat
- (apply
- 'concat
- (org-element-map table-row 'table-cell
- (lambda (cell)
- (let ((width (org-ascii--table-cell-width cell info))
- (borders (org-export-table-cell-borders cell info)))
- (concat
- ;; In order to know if CELL starts the row, do
- ;; not compare it with the first cell in the
- ;; row as there might be a special column.
- ;; Instead, compare it with first exportable
- ;; cell, obtained with `org-element-map'.
- (when (and (memq 'left borders)
- (eq (org-element-map table-row 'table-cell
- 'identity info t)
- cell))
- lcorner)
- (make-string (+ 2 width) (string-to-char horiz))
- (cond
- ((not (memq 'right borders)) nil)
- ((eq (car (last (org-element-contents table-row))) cell)
- rcorner)
- (t vert)))))
- info)) "\n"))))
- (utf8p (eq (plist-get info :ascii-charset) 'utf-8))
- (borders (org-export-table-cell-borders
- (org-element-map table-row 'table-cell 'identity info t)
- info)))
- (concat (cond
- ((and (memq 'top borders) (or utf8p (memq 'above borders)))
- (if utf8p (funcall build-hline "┍" "━" "┯" "┑")
- (funcall build-hline "+" "-" "+" "+")))
- ((memq 'above borders)
- (if utf8p (funcall build-hline "├" "─" "┼" "┤")
- (funcall build-hline "+" "-" "+" "+"))))
- (when (memq 'left borders) (if utf8p "│" "|"))
- contents "\n"
- (when (and (memq 'bottom borders) (or utf8p (memq 'below borders)))
- (if utf8p (funcall build-hline "┕" "━" "┷" "┙")
- (funcall build-hline "+" "-" "+" "+")))))))
-
-
-;;;; Timestamp
-
-(defun org-ascii-timestamp (timestamp _contents info)
- "Transcode a TIMESTAMP object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (org-ascii-plain-text (org-timestamp-translate timestamp) info))
-
-
-;;;; Underline
-
-(defun org-ascii-underline (_underline contents _info)
- "Transcode UNDERLINE from Org to ASCII.
-CONTENTS is the text with underline markup. INFO is a plist
-holding contextual information."
- (format "_%s_" contents))
-
-
-;;;; Verbatim
-
-(defun org-ascii-verbatim (verbatim _contents info)
- "Return a VERBATIM object from Org to ASCII.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (format (plist-get info :ascii-verbatim-format)
- (org-element-property :value verbatim)))
-
-
-;;;; Verse Block
-
-(defun org-ascii-verse-block (verse-block contents info)
- "Transcode a VERSE-BLOCK element from Org to ASCII.
-CONTENTS is verse block contents. INFO is a plist holding
-contextual information."
- (org-ascii--indent-string
- (org-ascii--justify-element contents verse-block info)
- (plist-get info :ascii-quote-margin)))
-
-
-
-;;; Filters
-
-(defun org-ascii-filter-headline-blank-lines (headline _backend info)
- "Filter controlling number of blank lines after a headline.
-
-HEADLINE is a string representing a transcoded headline. BACKEND
-is symbol specifying back-end used for export. INFO is plist
-containing the communication channel.
-
-This function only applies to `ascii' back-end. See
-`org-ascii-headline-spacing' for information."
- (let ((headline-spacing (plist-get info :ascii-headline-spacing)))
- (if (not headline-spacing) headline
- (let ((blanks (make-string (1+ (cdr headline-spacing)) ?\n)))
- (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" blanks headline)))))
-
-(defun org-ascii-filter-paragraph-spacing (tree _backend info)
- "Filter controlling number of blank lines between paragraphs.
-
-TREE is the parse tree. BACKEND is the symbol specifying
-back-end used for export. INFO is a plist used as
-a communication channel.
-
-See `org-ascii-paragraph-spacing' for information."
- (let ((paragraph-spacing (plist-get info :ascii-paragraph-spacing)))
- (when (wholenump paragraph-spacing)
- (org-element-map tree 'paragraph
- (lambda (p)
- (when (eq (org-element-type (org-export-get-next-element p info))
- 'paragraph)
- (org-element-put-property p :post-blank paragraph-spacing))))))
- tree)
-
-(defun org-ascii-filter-comment-spacing (tree _backend info)
- "Filter removing blank lines between comments.
-TREE is the parse tree. BACKEND is the symbol specifying
-back-end used for export. INFO is a plist used as
-a communication channel."
- (org-element-map tree '(comment comment-block)
- (lambda (c)
- (when (memq (org-element-type (org-export-get-next-element c info))
- '(comment comment-block))
- (org-element-put-property c :post-blank 0))))
- tree)
-
-
-
-;;; End-user functions
-
-;;;###autoload
-(defun org-ascii-export-as-ascii
- (&optional async subtreep visible-only body-only ext-plist)
- "Export current buffer to a text buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, strip title and
-table of contents from output.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Export is done in a buffer named \"*Org ASCII Export*\", which
-will be displayed when `org-export-show-temporary-export-buffer'
-is non-nil."
- (interactive)
- (org-export-to-buffer 'ascii "*Org ASCII Export*"
- async subtreep visible-only body-only ext-plist (lambda () (text-mode))))
-
-;;;###autoload
-(defun org-ascii-export-to-ascii
- (&optional async subtreep visible-only body-only ext-plist)
- "Export current buffer to a text file.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, strip title and
-table of contents from output.
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file's name."
- (interactive)
- (let ((file (org-export-output-file-name ".txt" subtreep)))
- (org-export-to-file 'ascii file
- async subtreep visible-only body-only ext-plist)))
-
-;;;###autoload
-(defun org-ascii-publish-to-ascii (plist filename pub-dir)
- "Publish an Org file to ASCII.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name."
- (org-publish-org-to
- 'ascii filename ".txt" `(:ascii-charset ascii ,@plist) pub-dir))
-
-;;;###autoload
-(defun org-ascii-publish-to-latin1 (plist filename pub-dir)
- "Publish an Org file to Latin-1.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name."
- (org-publish-org-to
- 'ascii filename ".txt" `(:ascii-charset latin1 ,@plist) pub-dir))
-
-;;;###autoload
-(defun org-ascii-publish-to-utf8 (plist filename pub-dir)
- "Publish an org file to UTF-8.
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name."
- (org-publish-org-to
- 'ascii filename ".txt" `(:ascii-charset utf-8 ,@plist) pub-dir))
-
-
-(provide 'ox-ascii)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; coding: utf-8
-;; End:
-
-;;; ox-ascii.el ends here
diff --git a/elpa/org-9.1.14/ox-ascii.elc b/elpa/org-9.1.14/ox-ascii.elc
deleted file mode 100644
index 6d57e2f..0000000
--- a/elpa/org-9.1.14/ox-ascii.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ox-beamer.el b/elpa/org-9.1.14/ox-beamer.el
deleted file mode 100644
index 15b78dc..0000000
--- a/elpa/org-9.1.14/ox-beamer.el
+++ /dev/null
@@ -1,1143 +0,0 @@
-;;; ox-beamer.el --- Beamer Back-End for Org Export Engine -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2007-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten.dominik AT gmail DOT com>
-;; Nicolas Goaziou <n.goaziou AT gmail DOT com>
-;; Keywords: org, wp, tex
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; This library implements both a Beamer back-end, derived from the
-;; LaTeX one and a minor mode easing structure edition of the
-;; document. See Org manual for more information.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'ox-latex)
-
-;; Install a default set-up for Beamer export.
-(unless (assoc "beamer" org-latex-classes)
- (add-to-list 'org-latex-classes
- '("beamer"
- "\\documentclass[presentation]{beamer}"
- ("\\section{%s}" . "\\section*{%s}")
- ("\\subsection{%s}" . "\\subsection*{%s}")
- ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))))
-
-
-
-;;; User-Configurable Variables
-
-(defgroup org-export-beamer nil
- "Options specific for using the beamer class in LaTeX export."
- :tag "Org Beamer"
- :group 'org-export
- :version "24.2")
-
-(defcustom org-beamer-frame-level 1
- "The level at which headlines become frames.
-
-Headlines at a lower level will be translated into a sectioning
-structure. At a higher level, they will be translated into
-blocks.
-
-If a headline with a \"BEAMER_env\" property set to \"frame\" is
-found within a tree, its level locally overrides this number.
-
-This variable has no effect on headlines with the \"BEAMER_env\"
-property set to either \"ignoreheading\", \"appendix\", or
-\"note\", which will respectively, be invisible, become an
-appendix or a note.
-
-This integer is relative to the minimal level of a headline
-within the parse tree, defined as 1."
- :group 'org-export-beamer
- :type 'integer)
-
-(defcustom org-beamer-frame-default-options ""
- "Default options string to use for frames.
-For example, it could be set to \"allowframebreaks\"."
- :group 'org-export-beamer
- :type '(string :tag "[options]"))
-
-(defcustom org-beamer-column-view-format
- "%45ITEM %10BEAMER_env(Env) %10BEAMER_act(Act) %4BEAMER_col(Col) %8BEAMER_opt(Opt)"
- "Column view format that should be used to fill the template."
- :group 'org-export-beamer
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Do not insert Beamer column view format" nil)
- (string :tag "Beamer column view format")))
-
-(defcustom org-beamer-theme "default"
- "Default theme used in Beamer presentations."
- :group 'org-export-beamer
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Do not insert a Beamer theme" nil)
- (string :tag "Beamer theme")))
-
-(defcustom org-beamer-environments-extra nil
- "Environments triggered by tags in Beamer export.
-Each entry has 4 elements:
-
-name Name of the environment
-key Selection key for `org-beamer-select-environment'
-open The opening template for the environment, with the following escapes
- %a the action/overlay specification
- %A the default action/overlay specification
- %R the raw BEAMER_act value
- %o the options argument, with square brackets
- %O the raw BEAMER_opt value
- %h the headline text
- %r the raw headline text (i.e. without any processing)
- %H if there is headline text, that raw text in {} braces
- %U if there is headline text, that raw text in [] brackets
-close The closing string of the environment."
- :group 'org-export-beamer
- :version "24.4"
- :package-version '(Org . "8.1")
- :type '(repeat
- (list
- (string :tag "Environment")
- (string :tag "Selection key")
- (string :tag "Begin")
- (string :tag "End"))))
-
-(defcustom org-beamer-outline-frame-title "Outline"
- "Default title of a frame containing an outline."
- :group 'org-export-beamer
- :type '(string :tag "Outline frame title"))
-
-(defcustom org-beamer-outline-frame-options ""
- "Outline frame options appended after \\begin{frame}.
-You might want to put e.g. \"allowframebreaks=0.9\" here."
- :group 'org-export-beamer
- :type '(string :tag "Outline frame options"))
-
-
-(defcustom org-beamer-subtitle-format "\\subtitle{%s}"
- "Format string used for transcoded subtitle.
-The format string should have at most one \"%s\"-expression,
-which is replaced with the subtitle."
- :group 'org-export-beamer
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(string :tag "Format string"))
-
-
-;;; Internal Variables
-
-(defconst org-beamer-column-widths
- "0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 0.0 :ETC"
-"The column widths that should be installed as allowed property values.")
-
-(defconst org-beamer-environments-special
- '(("againframe" "A")
- ("appendix" "x")
- ("column" "c")
- ("columns" "C")
- ("frame" "f")
- ("fullframe" "F")
- ("ignoreheading" "i")
- ("note" "n")
- ("noteNH" "N"))
- "Alist of environments treated in a special way by the back-end.
-Keys are environment names, as strings, values are bindings used
-in `org-beamer-select-environment'. Environments listed here,
-along with their binding, are hard coded and cannot be modified
-through `org-beamer-environments-extra' variable.")
-
-(defconst org-beamer-environments-default
- '(("block" "b" "\\begin{block}%a{%h}" "\\end{block}")
- ("alertblock" "a" "\\begin{alertblock}%a{%h}" "\\end{alertblock}")
- ("verse" "v" "\\begin{verse}%a %% %h" "\\end{verse}")
- ("quotation" "q" "\\begin{quotation}%a %% %h" "\\end{quotation}")
- ("quote" "Q" "\\begin{quote}%a %% %h" "\\end{quote}")
- ("structureenv" "s" "\\begin{structureenv}%a %% %h" "\\end{structureenv}")
- ("theorem" "t" "\\begin{theorem}%a[%h]" "\\end{theorem}")
- ("definition" "d" "\\begin{definition}%a[%h]" "\\end{definition}")
- ("example" "e" "\\begin{example}%a[%h]" "\\end{example}")
- ("exampleblock" "E" "\\begin{exampleblock}%a{%h}" "\\end{exampleblock}")
- ("proof" "p" "\\begin{proof}%a[%h]" "\\end{proof}")
- ("beamercolorbox" "o" "\\begin{beamercolorbox}%o{%h}" "\\end{beamercolorbox}"))
- "Environments triggered by properties in Beamer export.
-These are the defaults - for user definitions, see
-`org-beamer-environments-extra'.")
-
-(defconst org-beamer-verbatim-elements
- '(code example-block fixed-width inline-src-block src-block verbatim)
- "List of element or object types producing verbatim text.
-This is used internally to determine when a frame should have the
-\"fragile\" option.")
-
-
-
-;;; Internal functions
-
-(defun org-beamer--normalize-argument (argument type)
- "Return ARGUMENT string with proper boundaries.
-
-TYPE is a symbol among the following:
-`action' Return ARGUMENT within angular brackets.
-`defaction' Return ARGUMENT within both square and angular brackets.
-`option' Return ARGUMENT within square brackets."
- (if (not (string-match "\\S-" argument)) ""
- (cl-case type
- (action (format "<%s>" (org-unbracket-string "<" ">" argument)))
- (defaction
- (format "[<%s>]"
- (org-unbracket-string "<" ">" (org-unbracket-string "[" "]" argument))))
- (option (format "[%s]" (org-unbracket-string "[" "]" argument)))
- (otherwise (error "Invalid `type' argument to `org-beamer--normalize-argument': %s"
- type)))))
-
-(defun org-beamer--element-has-overlay-p (element)
- "Non-nil when ELEMENT has an overlay specified.
-An element has an overlay specification when it starts with an
-`beamer' export-snippet whose value is between angular brackets.
-Return overlay specification, as a string, or nil."
- (let ((first-object (car (org-element-contents element))))
- (when (eq (org-element-type first-object) 'export-snippet)
- (let ((value (org-element-property :value first-object)))
- (and (string-prefix-p "<" value) (string-suffix-p ">" value)
- value)))))
-
-
-
-;;; Define Back-End
-
-(org-export-define-derived-backend 'beamer 'latex
- :menu-entry
- '(?l 1
- ((?B "As LaTeX buffer (Beamer)" org-beamer-export-as-latex)
- (?b "As LaTeX file (Beamer)" org-beamer-export-to-latex)
- (?P "As PDF file (Beamer)" org-beamer-export-to-pdf)
- (?O "As PDF file and open (Beamer)"
- (lambda (a s v b)
- (if a (org-beamer-export-to-pdf t s v b)
- (org-open-file (org-beamer-export-to-pdf nil s v b)))))))
- :options-alist
- '((:headline-levels nil "H" org-beamer-frame-level)
- (:latex-class "LATEX_CLASS" nil "beamer" t)
- (:beamer-subtitle-format nil nil org-beamer-subtitle-format)
- (:beamer-column-view-format "COLUMNS" nil org-beamer-column-view-format)
- (:beamer-theme "BEAMER_THEME" nil org-beamer-theme)
- (:beamer-color-theme "BEAMER_COLOR_THEME" nil nil t)
- (:beamer-font-theme "BEAMER_FONT_THEME" nil nil t)
- (:beamer-inner-theme "BEAMER_INNER_THEME" nil nil t)
- (:beamer-outer-theme "BEAMER_OUTER_THEME" nil nil t)
- (:beamer-header "BEAMER_HEADER" nil nil newline)
- (:beamer-environments-extra nil nil org-beamer-environments-extra)
- (:beamer-frame-default-options nil nil org-beamer-frame-default-options)
- (:beamer-outline-frame-options nil nil org-beamer-outline-frame-options)
- (:beamer-outline-frame-title nil nil org-beamer-outline-frame-title))
- :translate-alist '((bold . org-beamer-bold)
- (export-block . org-beamer-export-block)
- (export-snippet . org-beamer-export-snippet)
- (headline . org-beamer-headline)
- (item . org-beamer-item)
- (keyword . org-beamer-keyword)
- (link . org-beamer-link)
- (plain-list . org-beamer-plain-list)
- (radio-target . org-beamer-radio-target)
- (template . org-beamer-template)))
-
-
-
-;;; Transcode Functions
-
-;;;; Bold
-
-(defun org-beamer-bold (bold contents _info)
- "Transcode BLOCK object into Beamer code.
-CONTENTS is the text being bold. INFO is a plist used as
-a communication channel."
- (format "\\alert%s{%s}"
- (or (org-beamer--element-has-overlay-p bold) "")
- contents))
-
-
-;;;; Export Block
-
-(defun org-beamer-export-block (export-block _contents _info)
- "Transcode an EXPORT-BLOCK element into Beamer code.
-CONTENTS is nil. INFO is a plist used as a communication
-channel."
- (when (member (org-element-property :type export-block) '("BEAMER" "LATEX"))
- (org-remove-indentation (org-element-property :value export-block))))
-
-
-;;;; Export Snippet
-
-(defun org-beamer-export-snippet (export-snippet _contents info)
- "Transcode an EXPORT-SNIPPET object into Beamer code.
-CONTENTS is nil. INFO is a plist used as a communication
-channel."
- (let ((backend (org-export-snippet-backend export-snippet))
- (value (org-element-property :value export-snippet)))
- ;; Only "latex" and "beamer" snippets are retained.
- (cond ((eq backend 'latex) value)
- ;; Ignore "beamer" snippets specifying overlays.
- ((and (eq backend 'beamer)
- (or (org-export-get-previous-element export-snippet info)
- (not (string-match "\\`<.*>\\'" value))))
- value))))
-
-
-;;;; Headline
-;;
-;; The main function to translate a headline is
-;; `org-beamer-headline'.
-;;
-;; Depending on the level at which a headline is considered as
-;; a frame (given by `org-beamer--frame-level'), the headline is
-;; either a section (`org-beamer--format-section'), a frame
-;; (`org-beamer--format-frame') or a block
-;; (`org-beamer--format-block').
-;;
-;; `org-beamer-headline' also takes care of special environments
-;; like "ignoreheading", "note", "noteNH", "appendix" and
-;; "againframe".
-
-(defun org-beamer--get-label (headline info)
- "Return label for HEADLINE, as a string.
-
-INFO is a plist used as a communication channel.
-
-The value is either the label specified in \"BEAMER_opt\"
-property, the custom ID, if there is one and
-`:latex-prefer-user-labels' property has a non nil value, or
-a unique internal label. This function assumes HEADLINE will be
-treated as a frame."
- (cond
- ((let ((opt (org-element-property :BEAMER_OPT headline)))
- (and (stringp opt)
- (string-match "\\(?:^\\|,\\)label=\\(.*?\\)\\(?:$\\|,\\)" opt)
- (let ((label (match-string 1 opt)))
- (if (string-match-p "\\`{.*}\\'" label)
- (substring label 1 -1)
- label)))))
- ((and (plist-get info :latex-prefer-user-labels)
- (org-element-property :CUSTOM_ID headline)))
- (t (format "sec:%s" (org-export-get-reference headline info)))))
-
-(defun org-beamer--frame-level (headline info)
- "Return frame level in subtree containing HEADLINE.
-INFO is a plist used as a communication channel."
- (or
- ;; 1. Look for "frame" environment in parents, starting from the
- ;; farthest.
- (catch 'exit
- (dolist (parent (nreverse (org-element-lineage headline)))
- (let ((env (org-element-property :BEAMER_ENV parent)))
- (when (and env (member-ignore-case env '("frame" "fullframe")))
- (throw 'exit (org-export-get-relative-level parent info))))))
- ;; 2. Look for "frame" environment in HEADLINE.
- (let ((env (org-element-property :BEAMER_ENV headline)))
- (and env (member-ignore-case env '("frame" "fullframe"))
- (org-export-get-relative-level headline info)))
- ;; 3. Look for "frame" environment in sub-tree.
- (org-element-map headline 'headline
- (lambda (hl)
- (let ((env (org-element-property :BEAMER_ENV hl)))
- (when (and env (member-ignore-case env '("frame" "fullframe")))
- (org-export-get-relative-level hl info))))
- info 'first-match)
- ;; 4. No "frame" environment in tree: use default value.
- (plist-get info :headline-levels)))
-
-(defun org-beamer--format-section (headline contents info)
- "Format HEADLINE as a sectioning part.
-CONTENTS holds the contents of the headline. INFO is a plist
-used as a communication channel."
- (let ((latex-headline
- (org-export-with-backend
- ;; We create a temporary export back-end which behaves the
- ;; same as current one, but adds "\protect" in front of the
- ;; output of some objects.
- (org-export-create-backend
- :parent 'latex
- :transcoders
- (let ((protected-output
- (function
- (lambda (object contents info)
- (let ((code (org-export-with-backend
- 'beamer object contents info)))
- (if (org-string-nw-p code) (concat "\\protect" code)
- code))))))
- (mapcar #'(lambda (type) (cons type protected-output))
- '(bold footnote-reference italic strike-through timestamp
- underline))))
- headline
- contents
- info))
- (mode-specs (org-element-property :BEAMER_ACT headline)))
- (if (and mode-specs
- (string-match "\\`\\\\\\(.*?\\)\\(?:\\*\\|\\[.*\\]\\)?{"
- latex-headline))
- ;; Insert overlay specifications.
- (replace-match (concat (match-string 1 latex-headline)
- (format "<%s>" mode-specs))
- nil nil latex-headline 1)
- latex-headline)))
-
-(defun org-beamer--format-frame (headline contents info)
- "Format HEADLINE as a frame.
-CONTENTS holds the contents of the headline. INFO is a plist
-used as a communication channel."
- (let ((fragilep
- ;; FRAGILEP is non-nil when HEADLINE contains an element
- ;; among `org-beamer-verbatim-elements'.
- (org-element-map headline org-beamer-verbatim-elements 'identity
- info 'first-match)))
- (concat "\\begin{frame}"
- ;; Overlay specification, if any. When surrounded by
- ;; square brackets, consider it as a default
- ;; specification.
- (let ((action (org-element-property :BEAMER_ACT headline)))
- (cond
- ((not action) "")
- ((string-match "\\`\\[.*\\]\\'" action )
- (org-beamer--normalize-argument action 'defaction))
- (t (org-beamer--normalize-argument action 'action))))
- ;; Options, if any.
- (let* ((beamer-opt (org-element-property :BEAMER_OPT headline))
- (options
- ;; Collect nonempty options from default value and
- ;; headline's properties. Also add a label for
- ;; links.
- (cl-remove-if-not 'org-string-nw-p
- (append
- (org-split-string
- (plist-get info :beamer-frame-default-options) ",")
- (and beamer-opt
- (org-split-string
- ;; Remove square brackets if user provided
- ;; them.
- (and (string-match "^\\[?\\(.*\\)\\]?$" beamer-opt)
- (match-string 1 beamer-opt))
- ","))
- ;; Provide an automatic label for the frame
- ;; unless the user specified one. Also refrain
- ;; from labeling `allowframebreaks' frames; this
- ;; is not allowed by beamer.
- (unless (and beamer-opt
- (or (string-match "\\(^\\|,\\)label=" beamer-opt)
- (string-match "allowframebreaks" beamer-opt)))
- (list
- (let ((label (org-beamer--get-label headline info)))
- ;; Labels containing colons need to be
- ;; wrapped within braces.
- (format (if (string-match-p ":" label)
- "label={%s}"
- "label=%s")
- label))))))))
- ;; Change options list into a string.
- (org-beamer--normalize-argument
- (mapconcat
- 'identity
- (if (or (not fragilep) (member "fragile" options)) options
- (cons "fragile" options))
- ",")
- 'option))
- ;; Title.
- (let ((env (org-element-property :BEAMER_ENV headline)))
- (format "{%s}"
- (if (and env (equal (downcase env) "fullframe")) ""
- (org-export-data
- (org-element-property :title headline) info))))
- "\n"
- ;; The following workaround is required in fragile frames
- ;; as Beamer will append "\par" to the beginning of the
- ;; contents. So we need to make sure the command is
- ;; separated from the contents by at least one space. If
- ;; it isn't, it will create "\parfirst-word" command and
- ;; remove the first word from the contents in the PDF
- ;; output.
- (if (not fragilep) contents
- (replace-regexp-in-string "\\`\n*" "\\& " (or contents "")))
- "\\end{frame}")))
-
-(defun org-beamer--format-block (headline contents info)
- "Format HEADLINE as a block.
-CONTENTS holds the contents of the headline. INFO is a plist
-used as a communication channel."
- (let* ((column-width (org-element-property :BEAMER_COL headline))
- ;; ENVIRONMENT defaults to "block" if none is specified and
- ;; there is no column specification. If there is a column
- ;; specified but still no explicit environment, ENVIRONMENT
- ;; is "column".
- (environment (let ((env (org-element-property :BEAMER_ENV headline)))
- (cond
- ;; "block" is the fallback environment.
- ((and (not env) (not column-width)) "block")
- ;; "column" only.
- ((not env) "column")
- ;; Use specified environment.
- (t env))))
- (raw-title (org-element-property :raw-value headline))
- (env-format
- (cond ((member environment '("column" "columns")) nil)
- ((assoc environment
- (append (plist-get info :beamer-environments-extra)
- org-beamer-environments-default)))
- (t (user-error "Wrong block type at a headline named \"%s\""
- raw-title))))
- (title (org-export-data (org-element-property :title headline) info))
- (raw-options (org-element-property :BEAMER_OPT headline))
- (options (if raw-options
- (org-beamer--normalize-argument raw-options 'option)
- ""))
- ;; Start a "columns" environment when explicitly requested or
- ;; when there is no previous headline or the previous
- ;; headline do not have a BEAMER_column property.
- (parent-env (org-element-property
- :BEAMER_ENV (org-export-get-parent-headline headline)))
- (start-columns-p
- (or (equal environment "columns")
- (and column-width
- (not (and parent-env
- (equal (downcase parent-env) "columns")))
- (or (org-export-first-sibling-p headline info)
- (not (org-element-property
- :BEAMER_COL
- (org-export-get-previous-element
- headline info)))))))
- ;; End the "columns" environment when explicitly requested or
- ;; when there is no next headline or the next headline do not
- ;; have a BEAMER_column property.
- (end-columns-p
- (or (equal environment "columns")
- (and column-width
- (not (and parent-env
- (equal (downcase parent-env) "columns")))
- (or (org-export-last-sibling-p headline info)
- (not (org-element-property
- :BEAMER_COL
- (org-export-get-next-element headline info))))))))
- (concat
- (when start-columns-p
- ;; Column can accept options only when the environment is
- ;; explicitly defined.
- (if (not (equal environment "columns")) "\\begin{columns}\n"
- (format "\\begin{columns}%s\n" options)))
- (when column-width
- (format "\\begin{column}%s{%s}\n"
- ;; One can specify placement for column only when
- ;; HEADLINE stands for a column on its own.
- (if (equal environment "column") options "")
- (format "%s\\columnwidth" column-width)))
- ;; Block's opening string.
- (when (nth 2 env-format)
- (concat
- (org-fill-template
- (nth 2 env-format)
- (nconc
- ;; If BEAMER_act property has its value enclosed in square
- ;; brackets, it is a default overlay specification and
- ;; overlay specification is empty. Otherwise, it is an
- ;; overlay specification and the default one is nil.
- (let ((action (org-element-property :BEAMER_ACT headline)))
- (cond
- ((not action) (list (cons "a" "") (cons "A" "") (cons "R" "")))
- ((and (string-prefix-p "[" action)
- (string-suffix-p "]" action))
- (list
- (cons "A" (org-beamer--normalize-argument action 'defaction))
- (cons "a" "")
- (cons "R" action)))
- (t
- (list (cons "a" (org-beamer--normalize-argument action 'action))
- (cons "A" "")
- (cons "R" action)))))
- (list (cons "o" options)
- (cons "O" (or raw-options ""))
- (cons "h" title)
- (cons "r" raw-title)
- (cons "H" (if (equal raw-title "") ""
- (format "{%s}" raw-title)))
- (cons "U" (if (equal raw-title "") ""
- (format "[%s]" raw-title))))))
- "\n"))
- contents
- ;; Block's closing string, if any.
- (and (nth 3 env-format) (concat (nth 3 env-format) "\n"))
- (when column-width "\\end{column}\n")
- (when end-columns-p "\\end{columns}"))))
-
-(defun org-beamer-headline (headline contents info)
- "Transcode HEADLINE element into Beamer code.
-CONTENTS is the contents of the headline. INFO is a plist used
-as a communication channel."
- (unless (org-element-property :footnote-section-p headline)
- (let ((level (org-export-get-relative-level headline info))
- (frame-level (org-beamer--frame-level headline info))
- (environment (let ((env (org-element-property :BEAMER_ENV headline)))
- (or (org-string-nw-p env) "block"))))
- (cond
- ;; Case 1: Resume frame specified by "BEAMER_ref" property.
- ((equal environment "againframe")
- (let ((ref (org-element-property :BEAMER_REF headline)))
- ;; Reference to frame being resumed is mandatory. Ignore
- ;; the whole headline if it isn't provided.
- (when (org-string-nw-p ref)
- (concat "\\againframe"
- ;; Overlay specification.
- (let ((overlay (org-element-property :BEAMER_ACT headline)))
- (when overlay
- (org-beamer--normalize-argument
- overlay
- (if (string-match "\\`\\[.*\\]\\'" overlay) 'defaction
- 'action))))
- ;; Options.
- (let ((options (org-element-property :BEAMER_OPT headline)))
- (when options
- (org-beamer--normalize-argument options 'option)))
- ;; Resolve reference provided by "BEAMER_ref"
- ;; property. This is done by building a minimal
- ;; fake link and calling the appropriate resolve
- ;; function, depending on the reference syntax.
- (let ((target
- (if (string-match "\\`\\(id:\\|#\\)" ref)
- (org-export-resolve-id-link
- `(link (:path ,(substring ref (match-end 0))))
- info)
- (org-export-resolve-fuzzy-link
- `(link (:path
- ;; Look for headlines only.
- ,(if (eq (string-to-char ref) ?*) ref
- (concat "*" ref))))
- info))))
- ;; Now use user-defined label provided in TARGET
- ;; headline, or fallback to standard one.
- (format "{%s}" (org-beamer--get-label target info)))))))
- ;; Case 2: Creation of an appendix is requested.
- ((equal environment "appendix")
- (concat "\\appendix"
- (org-element-property :BEAMER_ACT headline)
- "\n"
- (make-string (org-element-property :pre-blank headline) ?\n)
- contents))
- ;; Case 3: Ignore heading.
- ((equal environment "ignoreheading")
- (concat (make-string (org-element-property :pre-blank headline) ?\n)
- contents))
- ;; Case 4: HEADLINE is a note.
- ((member environment '("note" "noteNH"))
- (format "\\note{%s}"
- (concat (and (equal environment "note")
- (concat
- (org-export-data
- (org-element-property :title headline) info)
- "\n"))
- (org-trim contents))))
- ;; Case 5: HEADLINE is a frame.
- ((= level frame-level)
- (org-beamer--format-frame headline contents info))
- ;; Case 6: Regular section, extracted from
- ;; `org-latex-classes'.
- ((< level frame-level)
- (org-beamer--format-section headline contents info))
- ;; Case 7: Otherwise, HEADLINE is a block.
- (t (org-beamer--format-block headline contents info))))))
-
-
-;;;; Item
-
-(defun org-beamer-item (item contents info)
- "Transcode an ITEM element into Beamer code.
-CONTENTS holds the contents of the item. INFO is a plist holding
-contextual information."
- (org-export-with-backend
- ;; Delegate item export to `latex'. However, we use `beamer'
- ;; transcoders for objects in the description tag.
- (org-export-create-backend
- :parent 'beamer
- :transcoders
- (list
- (cons
- 'item
- (lambda (item _c _i)
- (let ((action
- (let ((first (car (org-element-contents item))))
- (and (eq (org-element-type first) 'paragraph)
- (org-beamer--element-has-overlay-p first))))
- (output (org-latex-item item contents info)))
- (if (not (and action (string-match "\\\\item" output))) output
- ;; If the item starts with a paragraph and that paragraph
- ;; starts with an export snippet specifying an overlay,
- ;; append it to the \item command.
- (replace-match (concat "\\\\item" action) nil nil output)))))))
- item contents info))
-
-
-;;;; Keyword
-
-(defun org-beamer-keyword (keyword contents info)
- "Transcode a KEYWORD element into Beamer code.
-CONTENTS is nil. INFO is a plist used as a communication
-channel."
- (let ((key (org-element-property :key keyword))
- (value (org-element-property :value keyword)))
- ;; Handle specifically BEAMER and TOC (headlines only) keywords.
- ;; Otherwise, fallback to `latex' back-end.
- (cond
- ((equal key "BEAMER") value)
- ((and (equal key "TOC") (string-match "\\<headlines\\>" value))
- (let ((depth (or (and (string-match "[0-9]+" value)
- (string-to-number (match-string 0 value)))
- (plist-get info :with-toc)))
- (options (and (string-match "\\[.*?\\]" value)
- (match-string 0 value))))
- (concat
- (when (wholenump depth) (format "\\setcounter{tocdepth}{%s}\n" depth))
- "\\tableofcontents" options)))
- (t (org-export-with-backend 'latex keyword contents info)))))
-
-
-;;;; Link
-
-(defun org-beamer-link (link contents info)
- "Transcode a LINK object into Beamer code.
-CONTENTS is the description part of the link. INFO is a plist
-used as a communication channel."
- (or (org-export-custom-protocol-maybe link contents 'beamer)
- ;; Fall-back to LaTeX export. However, prefer "\hyperlink" over
- ;; "\hyperref" since the former handles overlay specifications.
- (let ((latex-link (org-export-with-backend 'latex link contents info)))
- (if (string-match "\\`\\\\hyperref\\[\\(.*?\\)\\]" latex-link)
- (replace-match
- (format "\\\\hyperlink%s{\\1}"
- (or (org-beamer--element-has-overlay-p link) ""))
- nil nil latex-link)
- latex-link))))
-
-
-;;;; Plain List
-;;
-;; Plain lists support `:environment', `:overlay' and `:options'
-;; attributes.
-
-(defun org-beamer-plain-list (plain-list contents info)
- "Transcode a PLAIN-LIST element into Beamer code.
-CONTENTS is the contents of the list. INFO is a plist holding
-contextual information."
- (let* ((type (org-element-property :type plain-list))
- (attributes (org-combine-plists
- (org-export-read-attribute :attr_latex plain-list)
- (org-export-read-attribute :attr_beamer plain-list)))
- (latex-type (let ((env (plist-get attributes :environment)))
- (cond (env)
- ((eq type 'ordered) "enumerate")
- ((eq type 'descriptive) "description")
- (t "itemize")))))
- (org-latex--wrap-label
- plain-list
- (format "\\begin{%s}%s%s\n%s\\end{%s}"
- latex-type
- ;; Default overlay specification, if any.
- (org-beamer--normalize-argument
- (or (plist-get attributes :overlay) "")
- 'defaction)
- ;; Second optional argument depends on the list type.
- (org-beamer--normalize-argument
- (or (plist-get attributes :options) "")
- 'option)
- ;; Eventually insert contents and close environment.
- contents
- latex-type)
- info)))
-
-
-;;;; Radio Target
-
-(defun org-beamer-radio-target (radio-target text info)
- "Transcode a RADIO-TARGET object into Beamer code.
-TEXT is the text of the target. INFO is a plist holding
-contextual information."
- (format "\\hypertarget%s{%s}{%s}"
- (or (org-beamer--element-has-overlay-p radio-target) "")
- (org-export-get-reference radio-target info)
- text))
-
-
-;;;; Template
-;;
-;; Template used is similar to the one used in `latex' back-end,
-;; excepted for the table of contents and Beamer themes.
-
-(defun org-beamer-template (contents info)
- "Return complete document string after Beamer conversion.
-CONTENTS is the transcoded contents string. INFO is a plist
-holding export options."
- (let ((title (org-export-data (plist-get info :title) info))
- (subtitle (org-export-data (plist-get info :subtitle) info)))
- (concat
- ;; Time-stamp.
- (and (plist-get info :time-stamp-file)
- (format-time-string "%% Created %Y-%m-%d %a %H:%M\n"))
- ;; LaTeX compiler
- (org-latex--insert-compiler info)
- ;; Document class and packages.
- (org-latex-make-preamble info)
- ;; Insert themes.
- (let ((format-theme
- (function
- (lambda (prop command)
- (let ((theme (plist-get info prop)))
- (when theme
- (concat command
- (if (not (string-match "\\[.*\\]" theme))
- (format "{%s}\n" theme)
- (format "%s{%s}\n"
- (match-string 0 theme)
- (org-trim
- (replace-match "" nil nil theme)))))))))))
- (mapconcat (lambda (args) (apply format-theme args))
- '((:beamer-theme "\\usetheme")
- (:beamer-color-theme "\\usecolortheme")
- (:beamer-font-theme "\\usefonttheme")
- (:beamer-inner-theme "\\useinnertheme")
- (:beamer-outer-theme "\\useoutertheme"))
- ""))
- ;; Possibly limit depth for headline numbering.
- (let ((sec-num (plist-get info :section-numbers)))
- (when (integerp sec-num)
- (format "\\setcounter{secnumdepth}{%d}\n" sec-num)))
- ;; Author.
- (let ((author (and (plist-get info :with-author)
- (let ((auth (plist-get info :author)))
- (and auth (org-export-data auth info)))))
- (email (and (plist-get info :with-email)
- (org-export-data (plist-get info :email) info))))
- (cond ((and author email (not (string= "" email)))
- (format "\\author{%s\\thanks{%s}}\n" author email))
- ((or author email) (format "\\author{%s}\n" (or author email)))))
- ;; Date.
- (let ((date (and (plist-get info :with-date) (org-export-get-date info))))
- (format "\\date{%s}\n" (org-export-data date info)))
- ;; Title
- (format "\\title{%s}\n" title)
- (when (org-string-nw-p subtitle)
- (concat (format (plist-get info :beamer-subtitle-format) subtitle) "\n"))
- ;; Beamer-header
- (let ((beamer-header (plist-get info :beamer-header)))
- (when beamer-header
- (format "%s\n" (plist-get info :beamer-header))))
- ;; 9. Hyperref options.
- (let ((template (plist-get info :latex-hyperref-template)))
- (and (stringp template)
- (format-spec template (org-latex--format-spec info))))
- ;; Document start.
- "\\begin{document}\n\n"
- ;; Title command.
- (org-element-normalize-string
- (cond ((not (plist-get info :with-title)) nil)
- ((string= "" title) nil)
- ((not (stringp org-latex-title-command)) nil)
- ((string-match "\\(?:[^%]\\|^\\)%s"
- org-latex-title-command)
- (format org-latex-title-command title))
- (t org-latex-title-command)))
- ;; Table of contents.
- (let ((depth (plist-get info :with-toc)))
- (when depth
- (concat
- (format "\\begin{frame}%s{%s}\n"
- (org-beamer--normalize-argument
- (plist-get info :beamer-outline-frame-options) 'option)
- (plist-get info :beamer-outline-frame-title))
- (when (wholenump depth)
- (format "\\setcounter{tocdepth}{%d}\n" depth))
- "\\tableofcontents\n"
- "\\end{frame}\n\n")))
- ;; Document's body.
- contents
- ;; Creator.
- (if (plist-get info :with-creator)
- (concat (plist-get info :creator) "\n")
- "")
- ;; Document end.
- "\\end{document}")))
-
-
-
-;;; Minor Mode
-
-
-(defvar org-beamer-mode-map (make-sparse-keymap)
- "The keymap for `org-beamer-mode'.")
-(define-key org-beamer-mode-map "\C-c\C-b" 'org-beamer-select-environment)
-
-;;;###autoload
-(define-minor-mode org-beamer-mode
- "Support for editing Beamer oriented Org mode files."
- nil " Bm" 'org-beamer-mode-map)
-
-(when (fboundp 'font-lock-add-keywords)
- (font-lock-add-keywords
- 'org-mode
- '((":\\(B_[a-z]+\\|BMCOL\\):" 1 'org-beamer-tag prepend))
- 'prepend))
-
-(defface org-beamer-tag '((t (:box (:line-width 1 :color grey40))))
- "The special face for beamer tags."
- :group 'org-export-beamer)
-
-(defun org-beamer-property-changed (property value)
- "Track the BEAMER_env property with tags.
-PROPERTY is the name of the modified property. VALUE is its new
-value."
- (cond
- ((equal property "BEAMER_env")
- (save-excursion
- (org-back-to-heading t)
- ;; Filter out Beamer-related tags and install environment tag.
- (let ((tags (cl-remove-if (lambda (x) (string-match "^B_" x))
- (org-get-tags)))
- (env-tag (and (org-string-nw-p value) (concat "B_" value))))
- (org-set-tags-to (if env-tag (cons env-tag tags) tags))
- (when env-tag (org-toggle-tag env-tag 'on)))))
- ((equal property "BEAMER_col")
- (org-toggle-tag "BMCOL" (if (org-string-nw-p value) 'on 'off)))))
-
-(add-hook 'org-property-changed-functions 'org-beamer-property-changed)
-
-(defun org-beamer-allowed-property-values (property)
- "Supply allowed values for PROPERTY."
- (cond
- ((and (equal property "BEAMER_env")
- (not (org-entry-get nil (concat property "_ALL") 'inherit)))
- ;; If no allowed values for BEAMER_env have been defined,
- ;; supply all defined environments
- (mapcar 'car (append org-beamer-environments-special
- org-beamer-environments-extra
- org-beamer-environments-default)))
- ((and (equal property "BEAMER_col")
- (not (org-entry-get nil (concat property "_ALL") 'inherit)))
- ;; If no allowed values for BEAMER_col have been defined, supply
- ;; some.
- (split-string org-beamer-column-widths " "))))
-
-(add-hook 'org-property-allowed-value-functions
- 'org-beamer-allowed-property-values)
-
-
-
-;;; Commands
-
-;;;###autoload
-(defun org-beamer-export-as-latex
- (&optional async subtreep visible-only body-only ext-plist)
- "Export current buffer as a Beamer buffer.
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting buffer should be accessible
-through the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Export is done in a buffer named \"*Org BEAMER Export*\", which
-will be displayed when `org-export-show-temporary-export-buffer'
-is non-nil."
- (interactive)
- (org-export-to-buffer 'beamer "*Org BEAMER Export*"
- async subtreep visible-only body-only ext-plist (lambda () (LaTeX-mode))))
-
-;;;###autoload
-(defun org-beamer-export-to-latex
- (&optional async subtreep visible-only body-only ext-plist)
- "Export current buffer as a Beamer presentation (tex).
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return output file's name."
- (interactive)
- (let ((file (org-export-output-file-name ".tex" subtreep)))
- (org-export-to-file 'beamer file
- async subtreep visible-only body-only ext-plist)))
-
-;;;###autoload
-(defun org-beamer-export-to-pdf
- (&optional async subtreep visible-only body-only ext-plist)
- "Export current buffer as a Beamer presentation (PDF).
-
-If narrowing is active in the current buffer, only export its
-narrowed part.
-
-If a region is active, export that region.
-
-A non-nil optional argument ASYNC means the process should happen
-asynchronously. The resulting file should be accessible through
-the `org-export-stack' interface.
-
-When optional argument SUBTREEP is non-nil, export the sub-tree
-at point, extracting information from the headline properties
-first.
-
-When optional argument VISIBLE-ONLY is non-nil, don't export
-contents of hidden elements.
-
-When optional argument BODY-ONLY is non-nil, only write code
-between \"\\begin{document}\" and \"\\end{document}\".
-
-EXT-PLIST, when provided, is a property list with external
-parameters overriding Org default settings, but still inferior to
-file-local settings.
-
-Return PDF file's name."
- (interactive)
- (let ((file (org-export-output-file-name ".tex" subtreep)))
- (org-export-to-file 'beamer file
- async subtreep visible-only body-only ext-plist
- (lambda (file) (org-latex-compile file)))))
-
-;;;###autoload
-(defun org-beamer-select-environment ()
- "Select the environment to be used by beamer for this entry.
-While this uses (for convenience) a tag selection interface, the
-result of this command will be that the BEAMER_env *property* of
-the entry is set.
-
-In addition to this, the command will also set a tag as a visual
-aid, but the tag does not have any semantic meaning."
- (interactive)
- ;; Make sure `org-beamer-environments-special' has a higher
- ;; priority than `org-beamer-environments-extra'.
- (let* ((envs (append org-beamer-environments-special
- org-beamer-environments-extra
- org-beamer-environments-default))
- (org-current-tag-alist
- (append '((:startgroup))
- (mapcar (lambda (e) (cons (concat "B_" (car e))
- (string-to-char (nth 1 e))))
- envs)
- '((:endgroup))
- '(("BMCOL" . ?|))))
- (org-tag-persistent-alist nil)
- (org-use-fast-tag-selection t)
- (org-fast-tag-selection-single-key t))
- (org-set-tags)
- (let ((tags (or (ignore-errors (org-get-tags-string)) "")))
- (cond
- ;; For a column, automatically ask for its width.
- ((eq org-last-tag-selection-key ?|)
- (if (string-match ":BMCOL:" tags)
- (org-set-property "BEAMER_col" (read-string "Column width: "))
- (org-delete-property "BEAMER_col")))
- ;; For an "againframe" section, automatically ask for reference
- ;; to resumed frame and overlay specifications.
- ((eq org-last-tag-selection-key ?A)
- (if (equal (org-entry-get nil "BEAMER_env") "againframe")
- (progn (org-entry-delete nil "BEAMER_env")
- (org-entry-delete nil "BEAMER_ref")
- (org-entry-delete nil "BEAMER_act"))
- (org-entry-put nil "BEAMER_env" "againframe")
- (org-set-property
- "BEAMER_ref"
- (read-string "Frame reference (*Title, #custom-id, id:...): "))
- (org-set-property "BEAMER_act"
- (read-string "Overlay specification: "))))
- ((string-match (concat ":B_\\(" (mapconcat 'car envs "\\|") "\\):") tags)
- (org-entry-put nil "BEAMER_env" (match-string 1 tags)))
- (t (org-entry-delete nil "BEAMER_env"))))))
-
-;;;###autoload
-(defun org-beamer-publish-to-latex (plist filename pub-dir)
- "Publish an Org file to a Beamer presentation (LaTeX).
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name."
- (org-publish-org-to 'beamer filename ".tex" plist pub-dir))
-
-;;;###autoload
-(defun org-beamer-publish-to-pdf (plist filename pub-dir)
- "Publish an Org file to a Beamer presentation (PDF, via LaTeX).
-
-FILENAME is the filename of the Org file to be published. PLIST
-is the property list for the given project. PUB-DIR is the
-publishing directory.
-
-Return output file name."
- ;; Unlike to `org-beamer-publish-to-latex', PDF file is generated in
- ;; working directory and then moved to publishing directory.
- (org-publish-attachment
- plist
- ;; Default directory could be anywhere when this function is
- ;; called. We ensure it is set to source file directory during
- ;; compilation so as to not break links to external documents.
- (let ((default-directory (file-name-directory filename)))
- (org-latex-compile
- (org-publish-org-to
- 'beamer filename ".tex" plist (file-name-directory filename))))
- pub-dir))
-
-
-(provide 'ox-beamer)
-
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
-;;; ox-beamer.el ends here
diff --git a/elpa/org-9.1.14/ox-beamer.elc b/elpa/org-9.1.14/ox-beamer.elc
deleted file mode 100644
index f958512..0000000
--- a/elpa/org-9.1.14/ox-beamer.elc
+++ /dev/null
Binary files differ
diff --git a/elpa/org-9.1.14/ox-html.el b/elpa/org-9.1.14/ox-html.el
deleted file mode 100644
index ec80e83..0000000
--- a/elpa/org-9.1.14/ox-html.el
+++ /dev/null
@@ -1,3775 +0,0 @@
-;;; ox-html.el --- HTML Back-End for Org Export Engine -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2018 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten at orgmode dot org>
-;; Jambunathan K <kjambunathan at gmail dot com>
-;; Keywords: outlines, hypermedia, calendar, wp
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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.
-
-;; GNU Emacs 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 <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements a HTML back-end for Org generic exporter.
-;; See Org manual for more information.
-
-;;; Code:
-
-;;; Dependencies
-
-(require 'cl-lib)
-(require 'format-spec)
-(require 'ox)
-(require 'ox-publish)
-(require 'table)
-
-
-;;; Function Declarations
-
-(declare-function org-id-find-id-file "org-id" (id))
-(declare-function htmlize-region "ext:htmlize" (beg end))
-(declare-function mm-url-decode-entities "mm-url" ())
-
-(defvar htmlize-css-name-prefix)
-(defvar htmlize-output-type)
-(defvar htmlize-output-type)
-(defvar htmlize-css-name-prefix)
-
-;;; Define Back-End
-
-(org-export-define-backend 'html
- '((bold . org-html-bold)
- (center-block . org-html-center-block)
- (clock . org-html-clock)
- (code . org-html-code)
- (drawer . org-html-drawer)
- (dynamic-block . org-html-dynamic-block)
- (entity . org-html-entity)
- (example-block . org-html-example-block)
- (export-block . org-html-export-block)
- (export-snippet . org-html-export-snippet)
- (fixed-width . org-html-fixed-width)
- (footnote-definition . org-html-footnote-definition)
- (footnote-reference . org-html-footnote-reference)
- (headline . org-html-headline)
- (horizontal-rule . org-html-horizontal-rule)
- (inline-src-block . org-html-inline-src-block)
- (inlinetask . org-html-inlinetask)
- (inner-template . org-html-inner-template)
- (italic . org-html-italic)
- (item . org-html-item)
- (keyword . org-html-keyword)
- (latex-environment . org-html-latex-environment)
- (latex-fragment . org-html-latex-fragment)
- (line-break . org-html-line-break)
- (link . org-html-link)
- (node-property . org-html-node-property)
- (paragraph . org-html-paragraph)
- (plain-list . org-html-plain-list)
- (plain-text . org-html-plain-text)
- (planning . org-html-planning)
- (property-drawer . org-html-property-drawer)
- (quote-block . org-html-quote-block)
- (radio-target . org-html-radio-target)
- (section . org-html-section)
- (special-block . org-html-special-block)
- (src-block . org-html-src-block)
- (statistics-cookie . org-html-statistics-cookie)
- (strike-through . org-html-strike-through)
- (subscript . org-html-subscript)
- (superscript . org-html-superscript)
- (table . org-html-table)
- (table-cell . org-html-table-cell)
- (table-row . org-html-table-row)
- (target . org-html-target)
- (template . org-html-template)
- (timestamp . org-html-timestamp)
- (underline . org-html-underline)
- (verbatim . org-html-verbatim)
- (verse-block . org-html-verse-block))
- :filters-alist '((:filter-options . org-html-infojs-install-script)
- (:filter-parse-tree . org-html-image-link-filter)
- (:filter-final-output . org-html-final-function))
- :menu-entry
- '(?h "Export to HTML"
- ((?H "As HTML buffer" org-html-export-as-html)
- (?h "As HTML file" org-html-export-to-html)
- (?o "As HTML file and open"
- (lambda (a s v b)
- (if a (org-html-export-to-html t s v b)
- (org-open-file (org-html-export-to-html nil s v b)))))))
- :options-alist
- '((:html-doctype "HTML_DOCTYPE" nil org-html-doctype)
- (:html-container "HTML_CONTAINER" nil org-html-container-element)
- (:description "DESCRIPTION" nil nil newline)
- (:keywords "KEYWORDS" nil nil space)
- (:html-html5-fancy nil "html5-fancy" org-html-html5-fancy)
- (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url)
- (:html-link-home "HTML_LINK_HOME" nil org-html-link-home)
- (:html-link-up "HTML_LINK_UP" nil org-html-link-up)
- (:html-mathjax "HTML_MATHJAX" nil "" space)
- (:html-postamble nil "html-postamble" org-html-postamble)
- (:html-preamble nil "html-preamble" org-html-preamble)
- (:html-head "HTML_HEAD" nil org-html-head newline)
- (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline)
- (:subtitle "SUBTITLE" nil nil parse)
- (:html-head-include-default-style
- nil "html-style" org-html-head-include-default-style)
- (:html-head-include-scripts nil "html-scripts" org-html-head-include-scripts)
- (:html-allow-name-attribute-in-anchors
- nil nil org-html-allow-name-attribute-in-anchors)
- (:html-divs nil nil org-html-divs)
- (:html-checkbox-type nil nil org-html-checkbox-type)
- (:html-extension nil nil org-html-extension)
- (:html-footnote-format nil nil org-html-footnote-format)
- (:html-footnote-separator nil nil org-html-footnote-separator)
- (:html-footnotes-section nil nil org-html-footnotes-section)
- (:html-format-drawer-function nil nil org-html-format-drawer-function)
- (:html-format-headline-function nil nil org-html-format-headline-function)
- (:html-format-inlinetask-function
- nil nil org-html-format-inlinetask-function)
- (:html-home/up-format nil nil org-html-home/up-format)
- (:html-indent nil nil org-html-indent)
- (:html-infojs-options nil nil org-html-infojs-options)
- (:html-infojs-template nil nil org-html-infojs-template)
- (:html-inline-image-rules nil nil org-html-inline-image-rules)
- (:html-link-org-files-as-html nil nil org-html-link-org-files-as-html)
- (:html-mathjax-options nil nil org-html-mathjax-options)
- (:html-mathjax-template nil nil org-html-mathjax-template)
- (:html-metadata-timestamp-format nil nil org-html-metadata-timestamp-format)
- (:html-postamble-format nil nil org-html-postamble-format)
- (:html-preamble-format nil nil org-html-preamble-format)
- (:html-table-align-individual-fields
- nil nil org-html-table-align-individual-fields)
- (:html-table-caption-above nil nil org-html-table-caption-above)
- (:html-table-data-tags nil nil org-html-table-data-tags)
- (:html-table-header-tags nil nil org-html-table-header-tags)
- (:html-table-use-header-tags-for-first-column
- nil nil org-html-table-use-header-tags-for-first-column)
- (:html-tag-class-prefix nil nil org-html-tag-class-prefix)
- (:html-text-markup-alist nil nil org-html-text-markup-alist)
- (:html-todo-kwd-class-prefix nil nil org-html-todo-kwd-class-prefix)
- (:html-toplevel-hlevel nil nil org-html-toplevel-hlevel)
- (:html-use-infojs nil nil org-html-use-infojs)
- (:html-validation-link nil nil org-html-validation-link)
- (:html-viewport nil nil org-html-viewport)
- (:html-inline-images nil nil org-html-inline-images)
- (:html-table-attributes nil nil org-html-table-default-attributes)
- (:html-table-row-open-tag nil nil org-html-table-row-open-tag)
- (:html-table-row-close-tag nil nil org-html-table-row-close-tag)
- (:html-xml-declaration nil nil org-html-xml-declaration)
- (:html-klipsify-src nil nil org-html-klipsify-src)
- (:html-klipse-css nil nil org-html-klipse-css)
- (:html-klipse-js nil nil org-html-klipse-js)
- (:html-klipse-selection-script nil nil org-html-klipse-selection-script)
- (:infojs-opt "INFOJS_OPT" nil nil)
- ;; Redefine regular options.
- (:creator "CREATOR" nil org-html-creator-string)
- (:with-latex nil "tex" org-html-with-latex)
- ;; Retrieve LaTeX header for fragments.
- (:latex-header "LATEX_HEADER" nil nil newline)))
-
-
-;;; Internal Variables
-
-(defvar org-html-format-table-no-css)
-(defvar htmlize-buffer-places) ; from htmlize.el
-
-(defvar org-html--pre/postamble-class "status"
- "CSS class used for pre/postamble")
-
-(defconst org-html-doctype-alist
- '(("html4-strict" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01//EN\"
-\"http://www.w3.org/TR/html4/strict.dtd\">")
- ("html4-transitional" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"
-\"http://www.w3.org/TR/html4/loose.dtd\">")
- ("html4-frameset" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\"
-\"http://www.w3.org/TR/html4/frameset.dtd\">")
-
- ("xhtml-strict" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
-\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
- ("xhtml-transitional" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"
-\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">")
- ("xhtml-frameset" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\"
-\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">")
- ("xhtml-11" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\"
-\"http://www.w3.org/TR/xhtml1/DTD/xhtml11.dtd\">")
-
- ("html5" . "<!DOCTYPE html>")
- ("xhtml5" . "<!DOCTYPE html>"))
- "An alist mapping (x)html flavors to specific doctypes.")
-
-(defconst org-html-html5-elements
- '("article" "aside" "audio" "canvas" "details" "figcaption"
- "figure" "footer" "header" "menu" "meter" "nav" "output"
- "progress" "section" "video")
- "New elements in html5.
-
-For blocks that should contain headlines, use the HTML_CONTAINER
-property on the headline itself.")
-
-(defconst org-html-special-string-regexps
- '(("\\\\-" . "­") ; shy
- ("---\\([^-]\\)" . "—\\1") ; mdash
- ("--\\([^-]\\)" . "–\\1") ; ndash
- ("\\.\\.\\." . "…")) ; hellip
- "Regular expressions for special string conversion.")
-
-(defconst org-html-scripts
- "<script type=\"text/javascript\">
-/*
-@licstart The following is the entire license notice for the
-JavaScript code in this tag.
-
-Copyright (C) 2012-2018 Free Software Foundation, Inc.
-
-The JavaScript code in this tag is free software: you can
-redistribute it and/or modify it under the terms of the GNU
-General Public License (GNU GPL) as published by the Free Software
-Foundation, either version 3 of the License, or (at your option)
-any later version. The code is distributed WITHOUT ANY WARRANTY;
-without even the implied warranty of MERCHANTABILITY or FITNESS
-FOR A PARTICULAR PURPOSE. See the GNU GPL for more details.
-
-As additional permission under GNU GPL version 3 section 7, you
-may distribute non-source (e.g., minimized or compacted) forms of
-that code without the copy of the GNU GPL normally required by
-section 4, provided you include this license notice and a URL
-through which recipients can access the Corresponding Source.
-
-
-@licend The above is the entire license notice
-for the JavaScript code in this tag.
-*/
-<!--/*--><![CDATA[/*><!--*/
- function CodeHighlightOn(elem, id)
- {
- var target = document.getElementById(id);
- if(null != target) {
- elem.cacheClassElem = elem.className;
- elem.cacheClassTarget = target.className;
- target.className = \"code-highlighted\";
- elem.className = \"code-highlighted\";
- }
- }
- function CodeHighlightOff(elem, id)
- {
- var target = document.getElementById(id);
- if(elem.cacheClassElem)
- elem.className = elem.cacheClassElem;
- if(elem.cacheClassTarget)
- target.className = elem.cacheClassTarget;
- }
-/*]]>*///-->
-</script>"
- "Basic JavaScript that is needed by HTML files produced by Org mode.")
-
-(defconst org-html-style-default
- "<style type=\"text/css\">
- <!--/*--><![CDATA[/*><!--*/
- .title { text-align: center;
- margin-bottom: .2em; }
- .subtitle { text-align: center;
- font-size: medium;
- font-weight: bold;
- margin-top:0; }
- .todo { font-family: monospace; color: red; }
- .done { font-family: monospace; color: green; }
- .priority { font-family: monospace; color: orange; }
- .tag { background-color: #eee; font-family: monospace;
- padding: 2px; font-size: 80%; font-weight: normal; }
- .timestamp { color: #bebebe; }
- .timestamp-kwd { color: #5f9ea0; }
- .org-right { margin-left: auto; margin-right: 0px; text-align: right; }
- .org-left { margin-left: 0px; margin-right: auto; text-align: left; }
- .org-center { margin-left: auto; margin-right: auto; text-align: center; }
- .underline { text-decoration: underline; }
- #postamble p, #preamble p { font-size: 90%; margin: .2em; }
- p.verse { margin-left: 3%; }
- pre {
- border: 1px solid #ccc;
- box-shadow: 3px 3px 3px #eee;
- padding: 8pt;
- font-family: monospace;
- overflow: auto;
- margin: 1.2em;
- }
- pre.src {
- position: relative;
- overflow: visible;
- padding-top: 1.2em;
- }
- pre.src:before {
- display: none;
- position: absolute;
- background-color: white;
- top: -10px;
- right: 10px;
- padding: 3px;
- border: 1px solid black;
- }
- pre.src:hover:before { display: inline;}
- /* Languages per Org manual */
- pre.src-asymptote:before { content: 'Asymptote'; }
- pre.src-awk:before { content: 'Awk'; }
- pre.src-C:before { content: 'C'; }
- /* pre.src-C++ doesn't work in CSS */
- pre.src-clojure:before { content: 'Clojure'; }
- pre.src-css:before { content: 'CSS'; }
- pre.src-D:before { content: 'D'; }
- pre.src-ditaa:before { content: 'ditaa'; }
- pre.src-dot:before { content: 'Graphviz'; }
- pre.src-calc:before { content: 'Emacs Calc'; }
- pre.src-emacs-lisp:before { content: 'Emacs Lisp'; }
- pre.src-fortran:before { content: 'Fortran'; }
- pre.src-gnuplot:before { content: 'gnuplot'; }
- pre.src-haskell:before { content: 'Haskell'; }
- pre.src-hledger:before { content: 'hledger'; }
- pre.src-java:before { content: 'Java'; }
- pre.src-js:before { content: 'Javascript'; }
- pre.src-latex:before { content: 'LaTeX'; }
- pre.src-ledger:before { content: 'Ledger'; }
- pre.src-lisp:before { content: 'Lisp'; }
- pre.src-lilypond:before { content: 'Lilypond'; }
- pre.src-lua:before { content: 'Lua'; }
- pre.src-matlab:before { content: 'MATLAB'; }
- pre.src-mscgen:before { content: 'Mscgen'; }
- pre.src-ocaml:before { content: 'Objective Caml'; }
- pre.src-octave:before { content: 'Octave'; }
- pre.src-org:before { content: 'Org mode'; }
- pre.src-oz:before { content: 'OZ'; }
- pre.src-plantuml:before { content: 'Plantuml'; }
- pre.src-processing:before { content: 'Processing.js'; }
- pre.src-python:before { content: 'Python'; }
- pre.src-R:before { content: 'R'; }
- pre.src-ruby:before { content: 'Ruby'; }
- pre.src-sass:before { content: 'Sass'; }
- pre.src-scheme:before { content: 'Scheme'; }
- pre.src-screen:before { content: 'Gnu Screen'; }
- pre.src-sed:before { content: 'Sed'; }
- pre.src-sh:before { content: 'shell'; }
- pre.src-sql:before { content: 'SQL'; }
- pre.src-sqlite:before { content: 'SQLite'; }
- /* additional languages in org.el's org-babel-load-languages alist */
- pre.src-forth:before { content: 'Forth'; }
- pre.src-io:before { content: 'IO'; }
- pre.src-J:before { content: 'J'; }
- pre.src-makefile:before { content: 'Makefile'; }
- pre.src-maxima:before { content: 'Maxima'; }
- pre.src-perl:before { content: 'Perl'; }
- pre.src-picolisp:before { content: 'Pico Lisp'; }
- pre.src-scala:before { content: 'Scala'; }
- pre.src-shell:before { content: 'Shell Script'; }
- pre.src-ebnf2ps:before { content: 'ebfn2ps'; }
- /* additional language identifiers per \"defun org-babel-execute\"
- in ob-*.el */
- pre.src-cpp:before { content: 'C++'; }
- pre.src-abc:before { content: 'ABC'; }
- pre.src-coq:before { content: 'Coq'; }
- pre.src-groovy:before { content: 'Groovy'; }
- /* additional language identifiers from org-babel-shell-names in
- ob-shell.el: ob-shell is the only babel language using a lambda to put
- the execution function name together. */
- pre.src-bash:before { content: 'bash'; }
- pre.src-csh:before { content: 'csh'; }
- pre.src-ash:before { content: 'ash'; }
- pre.src-dash:before { content: 'dash'; }
- pre.src-ksh:before { content: 'ksh'; }
- pre.src-mksh:before { content: 'mksh'; }
- pre.src-posh:before { content: 'posh'; }
- /* Additional Emacs modes also supported by the LaTeX listings package */
- pre.src-ada:before { content: 'Ada'; }
- pre.src-asm:before { content: 'Assembler'; }
- pre.src-caml:before { content: 'Caml'; }
- pre.src-delphi:before { content: 'Delphi'; }
- pre.src-html:before { content: 'HTML'; }
- pre.src-idl:before { content: 'IDL'; }
- pre.src-mercury:before { content: 'Mercury'; }
- pre.src-metapost:before { content: 'MetaPost'; }
- pre.src-modula-2:before { content: 'Modula-2'; }
- pre.src-pascal:before { content: 'Pascal'; }
- pre.src-ps:before { content: 'PostScript'; }
- pre.src-prolog:before { content: 'Prolog'; }
- pre.src-simula:before { content: 'Simula'; }
- pre.src-tcl:before { content: 'tcl'; }
- pre.src-tex:before { content: 'TeX'; }
- pre.src-plain-tex:before { content: 'Plain TeX'; }
- pre.src-verilog:before { content: 'Verilog'; }
- pre.src-vhdl:before { content: 'VHDL'; }
- pre.src-xml:before { content: 'XML'; }
- pre.src-nxml:before { content: 'XML'; }
- /* add a generic configuration mode; LaTeX export needs an additional
- (add-to-list 'org-latex-listings-langs '(conf \" \")) in .emacs */
- pre.src-conf:before { content: 'Configuration File'; }
-
- table { border-collapse:collapse; }
- caption.t-above { caption-side: top; }
- caption.t-bottom { caption-side: bottom; }
- td, th { vertical-align:top; }
- th.org-right { text-align: center; }
- th.org-left { text-align: center; }
- th.org-center { text-align: center; }
- td.org-right { text-align: right; }
- td.org-left { text-align: left; }
- td.org-center { text-align: center; }
- dt { font-weight: bold; }
- .footpara { display: inline; }
- .footdef { margin-bottom: 1em; }
- .figure { padding: 1em; }
- .figure p { text-align: center; }
- .inlinetask {
- padding: 10px;
- border: 2px solid gray;
- margin: 10px;
- background: #ffffcc;
- }
- #org-div-home-and-up
- { text-align: right; font-size: 70%; white-space: nowrap; }
- textarea { overflow-x: auto; }
- .linenr { font-size: smaller }
- .code-highlighted { background-color: #ffff00; }
- .org-info-js_info-navigation { border-style: none; }
- #org-info-js_console-label
- { font-size: 10px; font-weight: bold; white-space: nowrap; }
- .org-info-js_search-highlight
- { background-color: #ffff00; color: #000000; font-weight: bold; }
- .org-svg { width: 90%; }
- /*]]>*/-->
-</style>"
- "The default style specification for exported HTML files.
-You can use `org-html-head' and `org-html-head-extra' to add to
-this style. If you don't want to include this default style,
-customize `org-html-head-include-default-style'.")
-
-
-;;; User Configuration Variables
-
-(defgroup org-export-html nil
- "Options for exporting Org mode files to HTML."
- :tag "Org Export HTML"
- :group 'org-export)
-
-;;;; Handle infojs
-
-(defvar org-html-infojs-opts-table
- '((path PATH "https://orgmode.org/org-info.js")
- (view VIEW "info")
- (toc TOC :with-toc)
- (ftoc FIXED_TOC "0")
- (tdepth TOC_DEPTH "max")
- (sdepth SECTION_DEPTH "max")
- (mouse MOUSE_HINT "underline")
- (buttons VIEW_BUTTONS "0")
- (ltoc LOCAL_TOC "1")
- (up LINK_UP :html-link-up)
- (home LINK_HOME :html-link-home))
- "JavaScript options, long form for script, default values.")
-
-(defcustom org-html-use-infojs 'when-configured
- "Non-nil when Sebastian Rose's Java Script org-info.js should be active.
-This option can be nil or t to never or always use the script.
-It can also be the symbol `when-configured', meaning that the
-script will be linked into the export file if and only if there
-is a \"#+INFOJS_OPT:\" line in the buffer. See also the variable
-`org-html-infojs-options'."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "When configured in buffer" when-configured)
- (const :tag "Always" t)))
-
-(defcustom org-html-infojs-options
- (mapcar (lambda (x) (cons (car x) (nth 2 x))) org-html-infojs-opts-table)
- "Options settings for the INFOJS JavaScript.
-Each of the options must have an entry in `org-html-infojs-opts-table'.
-The value can either be a string that will be passed to the script, or
-a property. This property is then assumed to be a property that is defined
-by the Export/Publishing setup of Org.
-The `sdepth' and `tdepth' parameters can also be set to \"max\", which
-means to use the maximum value consistent with other options."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type
- `(set :greedy t :inline t
- ,@(mapcar
- (lambda (x)
- (list 'cons (list 'const (car x))
- '(choice
- (symbol :tag "Publishing/Export property")
- (string :tag "Value"))))
- org-html-infojs-opts-table)))
-
-(defcustom org-html-infojs-template
- "<script type=\"text/javascript\" src=\"%SCRIPT_PATH\">
-/**
- *
- * @source: %SCRIPT_PATH
- *
- * @licstart The following is the entire license notice for the
- * JavaScript code in %SCRIPT_PATH.
- *
- * Copyright (C) 2012-2018 Free Software Foundation, Inc.
- *
- *
- * The JavaScript code in this tag is free software: you can
- * redistribute it and/or modify it under the terms of the GNU
- * General Public License (GNU GPL) as published by the Free Software
- * Foundation, either version 3 of the License, or (at your option)
- * any later version. The code is distributed WITHOUT ANY WARRANTY;
- * without even the implied warranty of MERCHANTABILITY or FITNESS
- * FOR A PARTICULAR PURPOSE. See the GNU GPL for more details.
- *
- * As additional permission under GNU GPL version 3 section 7, you
- * may distribute non-source (e.g., minimized or compacted) forms of
- * that code without the copy of the GNU GPL normally required by
- * section 4, provided you include this license notice and a URL
- * through which recipients can access the Corresponding Source.
- *
- * @licend The above is the entire license notice
- * for the JavaScript code in %SCRIPT_PATH.
- *
- */
-</script>
-
-<script type=\"text/javascript\">
-
-/*
-@licstart The following is the entire license notice for the
-JavaScript code in this tag.
-
-Copyright (C) 2012-2018 Free Software Foundation, Inc.
-
-The JavaScript code in this tag is free software: you can
-redistribute it and/or modify it under the terms of the GNU
-General Public License (GNU GPL) as published by the Free Software
-Foundation, either version 3 of the License, or (at your option)
-any later version. The code is distributed WITHOUT ANY WARRANTY;
-without even the implied warranty of MERCHANTABILITY or FITNESS
-FOR A PARTICULAR PURPOSE. See the GNU GPL for more details.
-
-As additional permission under GNU GPL version 3 section 7, you
-may distribute non-source (e.g., minimized or compacted) forms of
-that code without the copy of the GNU GPL normally required by
-section 4, provided you include this license notice and a URL
-through which recipients can access the Corresponding Source.
-
-
-@licend The above is the entire license notice
-for the JavaScript code in this tag.
-*/
-
-<!--/*--><![CDATA[/*><!--*/
-%MANAGER_OPTIONS
-org_html_manager.setup(); // activate after the parameters are set
-/*]]>*///-->
-</script>"
- "The template for the export style additions when org-info.js is used.
-Option settings will replace the %MANAGER-OPTIONS cookie."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defun org-html-infojs-install-script (exp-plist _backend)
- "Install script in export options when appropriate.
-EXP-PLIST is a plist containing export options. BACKEND is the
-export back-end currently used."
- (unless (or (memq 'body-only (plist-get exp-plist :export-options))
- (not (plist-get exp-plist :html-use-infojs))
- (and (eq (plist-get exp-plist :html-use-infojs) 'when-configured)
- (let ((opt (plist-get exp-plist :infojs-opt)))
- (or (not opt)
- (string= "" opt)
- (string-match "\\<view:nil\\>" opt)))))
- (let* ((template (plist-get exp-plist :html-infojs-template))
- (ptoc (plist-get exp-plist :with-toc))
- (hlevels (plist-get exp-plist :headline-levels))
- (sdepth hlevels)
- (tdepth (if (integerp ptoc) (min ptoc hlevels) hlevels))
- (options (plist-get exp-plist :infojs-opt))
- (infojs-opt (plist-get exp-plist :html-infojs-options))
- (table org-html-infojs-opts-table)
- style)
- (dolist (entry table)
- (let* ((opt (car entry))
- (var (nth 1 entry))
- ;; Compute default values for script option OPT from
- ;; `org-html-infojs-options' variable.
- (default
- (let ((default (cdr (assq opt infojs-opt))))
- (if (and (symbolp default) (not (memq default '(t nil))))
- (plist-get exp-plist default)
- default)))
- ;; Value set through INFOJS_OPT keyword has precedence
- ;; over the default one.
- (val (if (and options
- (string-match (format "\\<%s:\\(\\S-+\\)" opt)
- options))
- (match-string 1 options)
- default)))
- (pcase opt
- (`path (setq template
- (replace-regexp-in-string
- "%SCRIPT_PATH" val template t t)))
- (`sdepth (when (integerp (read val))
- (setq sdepth (min (read val) sdepth))))
- (`tdepth (when (integerp (read val))
- (setq tdepth (min (read val) tdepth))))
- (_ (setq val
- (cond
- ((or (eq val t) (equal val "t")) "1")
- ((or (eq val nil) (equal val "nil")) "0")
- ((stringp val) val)
- (t (format "%s" val))))
- (push (cons var val) style)))))
- ;; Now we set the depth of the *generated* TOC to SDEPTH,
- ;; because the toc will actually determine the splitting. How
- ;; much of the toc will actually be displayed is governed by the
- ;; TDEPTH option.
- (setq exp-plist (plist-put exp-plist :with-toc sdepth))
- ;; The table of contents should not show more sections than we
- ;; generate.
- (setq tdepth (min tdepth sdepth))
- (push (cons "TOC_DEPTH" tdepth) style)
- ;; Build style string.
- (setq style (mapconcat
- (lambda (x)
- (format "org_html_manager.set(\"%s\", \"%s\");"
- (car x) (cdr x)))
- style "\n"))
- (when (and style (> (length style) 0))
- (and (string-match "%MANAGER_OPTIONS" template)
- (setq style (replace-match style t t template))
- (setq exp-plist
- (plist-put
- exp-plist :html-head-extra
- (concat (or (plist-get exp-plist :html-head-extra) "")
- "\n"
- style)))))
- ;; This script absolutely needs the table of contents, so we
- ;; change that setting.
- (unless (plist-get exp-plist :with-toc)
- (setq exp-plist (plist-put exp-plist :with-toc t)))
- ;; Return the modified property list.
- exp-plist)))
-
-;;;; Bold, etc.
-
-(defcustom org-html-text-markup-alist
- '((bold . "<b>%s</b>")
- (code . "<code>%s</code>")
- (italic . "<i>%s</i>")
- (strike-through . "<del>%s</del>")
- (underline . "<span class=\"underline\">%s</span>")
- (verbatim . "<code>%s</code>"))
- "Alist of HTML expressions to convert text markup.
-
-The key must be a symbol among `bold', `code', `italic',
-`strike-through', `underline' and `verbatim'. The value is
-a formatting string to wrap fontified text with.
-
-If no association can be found for a given markup, text will be
-returned as-is."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(alist :key-type (symbol :tag "Markup type")
- :value-type (string :tag "Format string"))
- :options '(bold code italic strike-through underline verbatim))
-
-(defcustom org-html-indent nil
- "Non-nil means to indent the generated HTML.
-Warning: non-nil may break indentation of source code blocks."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-;;;; Drawers
-
-(defcustom org-html-format-drawer-function (lambda (_name contents) contents)
- "Function called to format a drawer in HTML code.
-
-The function must accept two parameters:
- NAME the drawer name, like \"LOGBOOK\"
- CONTENTS the contents of the drawer.
-
-The function should return the string to be exported.
-
-For example, the variable could be set to the following function
-in order to mimic default behavior:
-
-The default value simply returns the value of CONTENTS."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'function)
-
-;;;; Footnotes
-
-(defcustom org-html-footnotes-section "<div id=\"footnotes\">
-<h2 class=\"footnotes\">%s: </h2>
-<div id=\"text-footnotes\">
-%s
-</div>
-</div>"
- "Format for the footnotes section.
-Should contain a two instances of %s. The first will be replaced with the
-language-specific word for \"Footnotes\", the second one will be replaced
-by the footnotes themselves."
- :group 'org-export-html
- :type 'string)
-
-(defcustom org-html-footnote-format "<sup>%s</sup>"
- "The format for the footnote reference.
-%s will be replaced by the footnote reference itself."
- :group 'org-export-html
- :type 'string)
-
-(defcustom org-html-footnote-separator "<sup>, </sup>"
- "Text used to separate footnotes."
- :group 'org-export-html
- :type 'string)
-
-;;;; Headline
-
-(defcustom org-html-toplevel-hlevel 2
- "The <H> level for level 1 headings in HTML export.
-This is also important for the classes that will be wrapped around headlines
-and outline structure. If this variable is 1, the top-level headlines will
-be <h1>, and the corresponding classes will be outline-1, section-number-1,
-and outline-text-1. If this is 2, all of these will get a 2 instead.
-The default for this variable is 2, because we use <h1> for formatting the
-document title."
- :group 'org-export-html
- :type 'integer)
-
-(defcustom org-html-format-headline-function
- 'org-html-format-headline-default-function
- "Function to format headline text.
-
-This function will be called with six arguments:
-TODO the todo keyword (string or nil).
-TODO-TYPE the type of todo (symbol: `todo', `done', nil)
-PRIORITY the priority of the headline (integer or nil)
-TEXT the main headline text (string).
-TAGS the tags (string or nil).
-INFO the export options (plist).
-
-The function result will be used in the section format string."
- :group 'org-export-html
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'function)
-
-;;;; HTML-specific
-
-(defcustom org-html-allow-name-attribute-in-anchors nil
- "When nil, do not set \"name\" attribute in anchors.
-By default, when appropriate, anchors are formatted with \"id\"
-but without \"name\" attribute."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-;;;; Inlinetasks
-
-(defcustom org-html-format-inlinetask-function
- 'org-html-format-inlinetask-default-function
- "Function called to format an inlinetask in HTML code.
-
-The function must accept seven parameters:
- TODO the todo keyword, as a string
- TODO-TYPE the todo type, a symbol among `todo', `done' and nil.
- PRIORITY the inlinetask priority, as a string
- NAME the inlinetask name, as a string.
- TAGS the inlinetask tags, as a list of strings.
- CONTENTS the contents of the inlinetask, as a string.
- INFO the export options, as a plist
-
-The function should return the string to be exported."
- :group 'org-export-html
- :version "26.1"
- :package-version '(Org . "8.3")
- :type 'function)
-
-;;;; LaTeX
-
-(defcustom org-html-with-latex org-export-with-latex
- "Non-nil means process LaTeX math snippets.
-
-When set, the exporter will process LaTeX environments and
-fragments.
-
-This option can also be set with the +OPTIONS line,
-e.g. \"tex:mathjax\". Allowed values are:
-
- nil Ignore math snippets.
- `verbatim' Keep everything in verbatim
- `mathjax', t Do MathJax preprocessing and arrange for MathJax.js to
- be loaded.
- SYMBOL Any symbol defined in `org-preview-latex-process-alist',
- e.g., `dvipng'."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "Do not process math in any way" nil)
- (const :tag "Leave math verbatim" verbatim)
- (const :tag "Use MathJax to display math" mathjax)
- (symbol :tag "Convert to image to display math" :value dvipng)))
-
-;;;; Links :: Generic
-
-(defcustom org-html-link-org-files-as-html t
- "Non-nil means make file links to `file.org' point to `file.html'.
-When `org-mode' is exporting an `org-mode' file to HTML, links to
-non-html files are directly put into a href tag in HTML.
-However, links to other Org files (recognized by the extension
-\".org\") should become links to the corresponding HTML
-file, assuming that the linked `org-mode' file will also be
-converted to HTML.
-When nil, the links still point to the plain \".org\" file."
- :group 'org-export-html
- :type 'boolean)
-
-;;;; Links :: Inline images
-
-(defcustom org-html-inline-images t
- "Non-nil means inline images into exported HTML pages.
-This is done using an <img> tag. When nil, an anchor with href is used to
-link to the image."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.1")
- :type 'boolean)
-
-(defcustom org-html-inline-image-rules
- '(("file" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\'")
- ("http" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\'")
- ("https" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\'"))
- "Rules characterizing image files that can be inlined into HTML.
-A rule consists in an association whose key is the type of link
-to consider, and value is a regexp that will be matched against
-link's path."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(alist :key-type (string :tag "Type")
- :value-type (regexp :tag "Path")))
-
-;;;; Plain Text
-
-(defvar org-html-protect-char-alist
- '(("&" . "&")
- ("<" . "<")
- (">" . ">"))
- "Alist of characters to be converted by `org-html-encode-plain-text'.")
-
-;;;; Src Block
-
-(defcustom org-html-htmlize-output-type 'inline-css
- "Output type to be used by htmlize when formatting code snippets.
-Choices are `css' to export the CSS selectors only,`inline-css'
-to export the CSS attribute values inline in the HTML or `nil' to
-export plain text. We use as default `inline-css', in order to
-make the resulting HTML self-containing.
-
-However, this will fail when using Emacs in batch mode for export, because
-then no rich font definitions are in place. It will also not be good if
-people with different Emacs setup contribute HTML files to a website,
-because the fonts will represent the individual setups. In these cases,
-it is much better to let Org/Htmlize assign classes only, and to use
-a style file to define the look of these classes.
-To get a start for your css file, start Emacs session and make sure that
-all the faces you are interested in are defined, for example by loading files
-in all modes you want. Then, use the command
-`\\[org-html-htmlize-generate-css]' to extract class definitions."
- :group 'org-export-html
- :type '(choice (const css) (const inline-css) (const nil)))
-
-(defcustom org-html-htmlize-font-prefix "org-"
- "The prefix for CSS class names for htmlize font specifications."
- :group 'org-export-html
- :type 'string)
-
-;;;; Table
-
-(defcustom org-html-table-default-attributes
- '(:border "2" :cellspacing "0" :cellpadding "6" :rules "groups" :frame "hsides")
- "Default attributes and values which will be used in table tags.
-This is a plist where attributes are symbols, starting with
-colons, and values are strings.
-
-When exporting to HTML5, these values will be disregarded."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(plist :key-type (symbol :tag "Property")
- :value-type (string :tag "Value")))
-
-(defcustom org-html-table-header-tags '("<th scope=\"%s\"%s>" . "</th>")
- "The opening and ending tags for table header fields.
-This is customizable so that alignment options can be specified.
-The first %s will be filled with the scope of the field, either row or col.
-The second %s will be replaced by a style entry to align the field.
-See also the variable `org-html-table-use-header-tags-for-first-column'.
-See also the variable `org-html-table-align-individual-fields'."
- :group 'org-export-html
- :type '(cons (string :tag "Opening tag") (string :tag "Closing tag")))
-
-(defcustom org-html-table-data-tags '("<td%s>" . "</td>")
- "The opening and ending tags for table data fields.
-This is customizable so that alignment options can be specified.
-The first %s will be filled with the scope of the field, either row or col.
-The second %s will be replaced by a style entry to align the field.
-See also the variable `org-html-table-align-individual-fields'."
- :group 'org-export-html
- :type '(cons (string :tag "Opening tag") (string :tag "Closing tag")))
-
-(defcustom org-html-table-row-open-tag "<tr>"
- "The opening tag for table rows.
-This is customizable so that alignment options can be specified.
-Instead of strings, these can be a Lisp function that will be
-evaluated for each row in order to construct the table row tags.
-
-The function will be called with these arguments:
-
- `number': row number (0 is the first row)
- `group-number': group number of current row
- `start-group?': non-nil means the row starts a group
- `end-group?': non-nil means the row ends a group
- `top?': non-nil means this is the top row
- `bottom?': non-nil means this is the bottom row
-
-For example:
-
- (setq org-html-table-row-open-tag
- (lambda (number group-number start-group? end-group-p top? bottom?)
- (cond (top? \"<tr class=\\\"tr-top\\\">\")
- (bottom? \"<tr class=\\\"tr-bottom\\\">\")
- (t (if (= (mod number 2) 1)
- \"<tr class=\\\"tr-odd\\\">\"
- \"<tr class=\\\"tr-even\\\">\")))))
-
-will use the \"tr-top\" and \"tr-bottom\" classes for the top row
-and the bottom row, and otherwise alternate between \"tr-odd\" and
-\"tr-even\" for odd and even rows."
- :group 'org-export-html
- :type '(choice :tag "Opening tag"
- (string :tag "Specify")
- (function)))
-
-(defcustom org-html-table-row-close-tag "</tr>"
- "The closing tag for table rows.
-This is customizable so that alignment options can be specified.
-Instead of strings, this can be a Lisp function that will be
-evaluated for each row in order to construct the table row tags.
-
-See documentation of `org-html-table-row-open-tag'."
- :group 'org-export-html
- :type '(choice :tag "Closing tag"
- (string :tag "Specify")
- (function)))
-
-(defcustom org-html-table-align-individual-fields t
- "Non-nil means attach style attributes for alignment to each table field.
-When nil, alignment will only be specified in the column tags, but this
-is ignored by some browsers (like Firefox, Safari). Opera does it right
-though."
- :group 'org-export-html
- :type 'boolean)
-
-(defcustom org-html-table-use-header-tags-for-first-column nil
- "Non-nil means format column one in tables with header tags.
-When nil, also column one will use data tags."
- :group 'org-export-html
- :type 'boolean)
-
-(defcustom org-html-table-caption-above t
- "When non-nil, place caption string at the beginning of the table.
-Otherwise, place it near the end."
- :group 'org-export-html
- :type 'boolean)
-
-;;;; Tags
-
-(defcustom org-html-tag-class-prefix ""
- "Prefix to class names for TODO keywords.
-Each tag gets a class given by the tag itself, with this prefix.
-The default prefix is empty because it is nice to just use the keyword
-as a class name. But if you get into conflicts with other, existing
-CSS classes, then this prefix can be very useful."
- :group 'org-export-html
- :type 'string)
-
-;;;; Template :: Generic
-
-(defcustom org-html-extension "html"
- "The extension for exported HTML files."
- :group 'org-export-html
- :type 'string)
-
-(defcustom org-html-xml-declaration
- '(("html" . "<?xml version=\"1.0\" encoding=\"%s\"?>")
- ("php" . "<?php echo \"<?xml version=\\\"1.0\\\" encoding=\\\"%s\\\" ?>\"; ?>"))
- "The extension for exported HTML files.
-%s will be replaced with the charset of the exported file.
-This may be a string, or an alist with export extensions
-and corresponding declarations.
-
-This declaration only applies when exporting to XHTML."
- :group 'org-export-html
- :type '(choice
- (string :tag "Single declaration")
- (repeat :tag "Dependent on extension"
- (cons (string :tag "Extension")
- (string :tag "Declaration")))))
-
-(defcustom org-html-coding-system 'utf-8
- "Coding system for HTML export.
-Use utf-8 as the default value."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'coding-system)
-
-(defcustom org-html-doctype "xhtml-strict"
- "Document type definition to use for exported HTML files.
-Can be set with the in-buffer HTML_DOCTYPE property or for
-publishing, with :html-doctype."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type (append
- '(choice)
- (mapcar (lambda (x) `(const ,(car x))) org-html-doctype-alist)
- '((string :tag "Custom doctype" ))))
-
-(defcustom org-html-html5-fancy nil
- "Non-nil means using new HTML5 elements.
-This variable is ignored for anything other than HTML5 export.
-
-For compatibility with Internet Explorer, it's probably a good
-idea to download some form of the html5shiv (for instance
-https://code.google.com/p/html5shiv/) and add it to your
-HTML_HEAD_EXTRA, so that your pages don't break for users of IE
-versions 8 and below."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-(defcustom org-html-container-element "div"
- "HTML element to use for wrapping top level sections.
-Can be set with the in-buffer HTML_CONTAINER property or for
-publishing, with :html-container.
-
-Note that changing the default will prevent you from using
-org-info.js for your website."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-(defcustom org-html-divs
- '((preamble "div" "preamble")
- (content "div" "content")
- (postamble "div" "postamble"))
- "Alist of the three section elements for HTML export.
-The car of each entry is one of `preamble', `content' or `postamble'.
-The cdrs of each entry are the ELEMENT_TYPE and ID for each
-section of the exported document.
-
-Note that changing the default will prevent you from using
-org-info.js for your website."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(list :greedy t
- (list :tag "Preamble"
- (const :format "" preamble)
- (string :tag "element") (string :tag " id"))
- (list :tag "Content"
- (const :format "" content)
- (string :tag "element") (string :tag " id"))
- (list :tag "Postamble" (const :format "" postamble)
- (string :tag " id") (string :tag "element"))))
-
-(defconst org-html-checkbox-types
- '((unicode .
- ((on . "☑") (off . "☐") (trans . "☐")))
- (ascii .
- ((on . "<code>[X]</code>")
- (off . "<code>[ ]</code>")
- (trans . "<code>[-]</code>")))
- (html .
- ((on . "<input type='checkbox' checked='checked' />")
- (off . "<input type='checkbox' />")
- (trans . "<input type='checkbox' />"))))
- "Alist of checkbox types.
-The cdr of each entry is an alist list three checkbox types for
-HTML export: `on', `off' and `trans'.
-
-The choices are:
- `unicode' Unicode characters (HTML entities)
- `ascii' ASCII characters
- `html' HTML checkboxes
-
-Note that only the ascii characters implement tri-state
-checkboxes. The other two use the `off' checkbox for `trans'.")
-
-(defcustom org-html-checkbox-type 'ascii
- "The type of checkboxes to use for HTML export.
-See `org-html-checkbox-types' for for the values used for each
-option."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(choice
- (const :tag "ASCII characters" ascii)
- (const :tag "Unicode characters" unicode)
- (const :tag "HTML checkboxes" html)))
-
-(defcustom org-html-metadata-timestamp-format "%Y-%m-%d %a %H:%M"
- "Format used for timestamps in preamble, postamble and metadata.
-See `format-time-string' for more information on its components."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-
-;;;; Template :: Mathjax
-
-(defcustom org-html-mathjax-options
- '((path "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/MathJax.js?config=TeX-AMS_HTML" )
- (scale "100")
- (align "center")
- (font "TeX")
- (linebreaks "false")
- (autonumber "AMS")
- (indent "0em")
- (multlinewidth "85%")
- (tagindent ".8em")
- (tagside "right"))
- "Options for MathJax setup.
-
-Alist of the following elements. All values are strings.
-
-path The path to MathJax.
-scale Scaling with HTML-CSS, MathML and SVG output engines.
-align How to align display math: left, center, or right.
-font The font to use with HTML-CSS and SVG output. As of MathJax 2.5
- the following values are understood: \"TeX\", \"STIX-Web\",
- \"Asana-Math\", \"Neo-Euler\", \"Gyre-Pagella\",
- \"Gyre-Termes\", and \"Latin-Modern\".
-linebreaks Let MathJax perform automatic linebreaks. Valid values
- are \"true\" and \"false\".
-indent If align is not center, how far from the left/right side?
- Valid values are \"left\" and \"right\"
-multlinewidth The width of the multline environment.
-autonumber How to number equations. Valid values are \"None\",
- \"all\" and \"AMS Math\".
-tagindent The amount tags are indented.
-tagside Which side to show tags/labels on. Valid values are
- \"left\" and \"right\"
-
-You can also customize this for each buffer, using something like
-
-#+HTML_MATHJAX: align: left indent: 5em tagside: left font: Neo-Euler
-
-For further information about MathJax options, see the MathJax documentation:
-
- http://docs.mathjax.org/"
- :group 'org-export-html
- :package-version '(Org . "8.3")
- :type '(list :greedy t
- (list :tag "path (the path from where to load MathJax.js)"
- (const :format " " path) (string))
- (list :tag "scale (scaling for the displayed math)"
- (const :format " " scale) (string))
- (list :tag "align (alignment of displayed equations)"
- (const :format " " align) (string))
- (list :tag "font (used to display math)"
- (const :format " " font)
- (choice (const "TeX")
- (const "STIX-Web")
- (const "Asana-Math")
- (const "Neo-Euler")
- (const "Gyre-Pagella")
- (const "Gyre-Termes")
- (const "Latin-Modern")))
- (list :tag "linebreaks (automatic line-breaking)"
- (const :format " " linebreaks)
- (choice (const "true")
- (const "false")))
- (list :tag "autonumber (when should equations be numbered)"
- (const :format " " autonumber)
- (choice (const "AMS")
- (const "None")
- (const "All")))
- (list :tag "indent (indentation with left or right alignment)"
- (const :format " " indent) (string))
- (list :tag "multlinewidth (width to use for the multline environment)"
- (const :format " " multlinewidth) (string))
- (list :tag "tagindent (the indentation of tags from left or right)"
- (const :format " " tagindent) (string))
- (list :tag "tagside (location of tags)"
- (const :format " " tagside)
- (choice (const "left")
- (const "right")))))
-
-(defcustom org-html-mathjax-template
- "<script type=\"text/x-mathjax-config\">
- MathJax.Hub.Config({
- displayAlign: \"%ALIGN\",
- displayIndent: \"%INDENT\",
-
- \"HTML-CSS\": { scale: %SCALE,
- linebreaks: { automatic: \"%LINEBREAKS\" },
- webFont: \"%FONT\"
- },
- SVG: {scale: %SCALE,
- linebreaks: { automatic: \"%LINEBREAKS\" },
- font: \"%FONT\"},
- NativeMML: {scale: %SCALE},
- TeX: { equationNumbers: {autoNumber: \"%AUTONUMBER\"},
- MultLineWidth: \"%MULTLINEWIDTH\",
- TagSide: \"%TAGSIDE\",
- TagIndent: \"%TAGINDENT\"
- }
-});
-</script>
-<script type=\"text/javascript\"
- src=\"%PATH\"></script>"
- "The MathJax template. See also `org-html-mathjax-options'."
- :group 'org-export-html
- :type 'string)
-
-;;;; Template :: Postamble
-
-(defcustom org-html-postamble 'auto
- "Non-nil means insert a postamble in HTML export.
-
-When set to `auto', check against the
-`org-export-with-author/email/creator/date' variables to set the
-content of the postamble. When set to a string, use this string
-as the postamble. When t, insert a string as defined by the
-formatting string in `org-html-postamble-format'.
-
-When set to a function, apply this function and insert the
-returned string. The function takes the property list of export
-options as its only argument.
-
-Setting :html-postamble in publishing projects will take
-precedence over this variable."
- :group 'org-export-html
- :type '(choice (const :tag "No postamble" nil)
- (const :tag "Auto postamble" auto)
- (const :tag "Default formatting string" t)
- (string :tag "Custom formatting string")
- (function :tag "Function (must return a string)")))
-
-(defcustom org-html-postamble-format
- '(("en" "<p class=\"author\">Author: %a (%e)</p>
-<p class=\"date\">Date: %d</p>
-<p class=\"creator\">%c</p>
-<p class=\"validation\">%v</p>"))
- "Alist of languages and format strings for the HTML postamble.
-
-The first element of each list is the language code, as used for
-the LANGUAGE keyword. See `org-export-default-language'.
-
-The second element of each list is a format string to format the
-postamble itself. This format string can contain these elements:
-
- %t stands for the title.
- %s stands for the subtitle.
- %a stands for the author's name.
- %e stands for the author's email.
- %d stands for the date.
- %c will be replaced by `org-html-creator-string'.
- %v will be replaced by `org-html-validation-link'.
- %T will be replaced by the export time.
- %C will be replaced by the last modification time.
-
-If you need to use a \"%\" character, you need to escape it
-like that: \"%%\"."
- :group 'org-export-html
- :type '(repeat
- (list (string :tag "Language")
- (string :tag "Format string"))))
-
-(defcustom org-html-validation-link
- "<a href=\"http://validator.w3.org/check?uri=referer\">Validate</a>"
- "Link to HTML validation service."
- :group 'org-export-html
- :type 'string)
-
-(defcustom org-html-creator-string
- (format "<a href=\"https://www.gnu.org/software/emacs/\">Emacs</a> %s (<a href=\"https://orgmode.org\">Org</a> mode %s)"
- emacs-version
- (if (fboundp 'org-version) (org-version) "unknown version"))
- "Information about the creator of the HTML document.
-This option can also be set on with the CREATOR keyword."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type '(string :tag "Creator string"))
-
-;;;; Template :: Preamble
-
-(defcustom org-html-preamble t
- "Non-nil means insert a preamble in HTML export.
-
-When t, insert a string as defined by the formatting string in
-`org-html-preamble-format'. When set to a string, use this
-formatting string instead (see `org-html-postamble-format' for an
-example of such a formatting string).
-
-When set to a function, apply this function and insert the
-returned string. The function takes the property list of export
-options as its only argument.
-
-Setting :html-preamble in publishing projects will take
-precedence over this variable."
- :group 'org-export-html
- :type '(choice (const :tag "No preamble" nil)
- (const :tag "Default preamble" t)
- (string :tag "Custom formatting string")
- (function :tag "Function (must return a string)")))
-
-(defcustom org-html-preamble-format '(("en" ""))
- "Alist of languages and format strings for the HTML preamble.
-
-The first element of each list is the language code, as used for
-the LANGUAGE keyword. See `org-export-default-language'.
-
-The second element of each list is a format string to format the
-preamble itself. This format string can contain these elements:
-
- %t stands for the title.
- %s stands for the subtitle.
- %a stands for the author's name.
- %e stands for the author's email.
- %d stands for the date.
- %c will be replaced by `org-html-creator-string'.
- %v will be replaced by `org-html-validation-link'.
- %T will be replaced by the export time.
- %C will be replaced by the last modification time.
-
-If you need to use a \"%\" character, you need to escape it
-like that: \"%%\".
-
-See the default value of `org-html-postamble-format' for an
-example."
- :group 'org-export-html
- :type '(repeat
- (list (string :tag "Language")
- (string :tag "Format string"))))
-
-(defcustom org-html-link-up ""
- "Where should the \"UP\" link of exported HTML pages lead?"
- :group 'org-export-html
- :type '(string :tag "File or URL"))
-
-(defcustom org-html-link-home ""
- "Where should the \"HOME\" link of exported HTML pages lead?"
- :group 'org-export-html
- :type '(string :tag "File or URL"))
-
-(defcustom org-html-link-use-abs-url nil
- "Should we prepend relative links with HTML_LINK_HOME?"
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.1")
- :type 'boolean)
-
-(defcustom org-html-home/up-format
- "<div id=\"org-div-home-and-up\">
- <a accesskey=\"h\" href=\"%s\"> UP </a>
- |
- <a accesskey=\"H\" href=\"%s\"> HOME </a>
-</div>"
- "Snippet used to insert the HOME and UP links.
-This is a format string, the first %s will receive the UP link,
-the second the HOME link. If both `org-html-link-up' and
-`org-html-link-home' are empty, the entire snippet will be
-ignored."
- :group 'org-export-html
- :type 'string)
-
-;;;; Template :: Scripts
-
-(defcustom org-html-head-include-scripts t
- "Non-nil means include the JavaScript snippets in exported HTML files.
-The actual script is defined in `org-html-scripts' and should
-not be modified."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-
-;;;; Template :: Styles
-
-(defcustom org-html-head-include-default-style t
- "Non-nil means include the default style in exported HTML files.
-The actual style is defined in `org-html-style-default' and
-should not be modified. Use `org-html-head' to use your own
-style information."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'boolean)
-;;;###autoload
-(put 'org-html-head-include-default-style 'safe-local-variable 'booleanp)
-
-(defcustom org-html-head ""
- "Org-wide head definitions for exported HTML files.
-
-This variable can contain the full HTML structure to provide a
-style, including the surrounding HTML tags. You can consider
-including definitions for the following classes: title, todo,
-done, timestamp, timestamp-kwd, tag, target.
-
-For example, a valid value would be:
-
- <style type=\"text/css\">
- /*<![CDATA[*/
- p { font-weight: normal; color: gray; }
- h1 { color: black; }
- .title { text-align: center; }
- .todo, .timestamp-kwd { color: red; }
- .done { color: green; }
- /*]]>*/
- </style>
-
-If you want to refer to an external style, use something like
-
- <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\" />
-
-As the value of this option simply gets inserted into the HTML
-<head> header, you can use it to add any arbitrary text to the
-header.
-
-You can set this on a per-file basis using #+HTML_HEAD:,
-or for publication projects using the :html-head property."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-;;;###autoload
-(put 'org-html-head 'safe-local-variable 'stringp)
-
-(defcustom org-html-head-extra ""
- "More head information to add in the HTML output.
-
-You can set this on a per-file basis using #+HTML_HEAD_EXTRA:,
-or for publication projects using the :html-head-extra property."
- :group 'org-export-html
- :version "24.4"
- :package-version '(Org . "8.0")
- :type 'string)
-;;;###autoload
-(put 'org-html-head-extra 'safe-local-variable 'stringp)
-
-;;;; Template :: Viewport
-
-(defcustom org-html-viewport '((width "device-width")
- (initial-scale "1")
- (minimum-scale "")
- (maximum-scale "")
- (user-scalable ""))
- "Viewport options for mobile-optimized sites.
-
-The following values are recognized
-
-width Size of the viewport.
-initial-scale Zoom level when the page is first loaded.
-minimum-scale Minimum allowed zoom level.
-maximum-scale Maximum allowed zoom level.
-user-scalable Whether zoom can be changed.
-
-The viewport meta tag is inserted if this variable is non-nil.
-
-See the following site for a reference:
-https://developer.mozilla.org/en-US/docs/Mozilla/Mobile/Viewport_meta_tag"
- :group 'org-export-html
- :version "26.1"
- :package-version '(Org . "8.3")
- :type '(choice (const :tag "Disable" nil)
- (list :tag "Enable"
- (list :tag "Width of viewport"
- (const :format " " width)
- (choice (const :tag "unset" "")
- (string)))
- (list :tag "Initial scale"
- (const :format " " initial-scale)
- (choice (const :tag "unset" "")
- (string)))
- (list :tag "Minimum scale/zoom"
- (const :format " " minimum-scale)
- (choice (const :tag "unset" "")
- (string)))
- (list :tag "Maximum scale/zoom"
- (const :format " " maximum-scale)
- (choice (const :tag "unset" "")
- (string)))
- (list :tag "User scalable/zoomable"
- (const :format " " user-scalable)
- (choice (const :tag "unset" "")
- (const "true")
- (const "false"))))))
-
-;; Handle source code blocks with Klipse
-
-(defcustom org-html-klipsify-src nil
- "When non-nil, source code blocks are editable in exported presentation."
- :group 'org-export-html
- :package-version '(Org . "9.1")
- :type 'boolean)
-
-(defcustom org-html-klipse-css
- "https://storage.googleapis.com/app.klipse.tech/css/codemirror.css"
- "Location of the codemirror CSS file for use with klipse."
- :group 'org-export-html
- :package-version '(Org . "9.1")
- :type 'string)
-
-(defcustom org-html-klipse-js
- "https://storage.googleapis.com/app.klipse.tech/plugin_prod/js/klipse_plugin.min.js"
- "Location of the klipse javascript file."
- :group 'org-export-html
- :type 'string)
-
-(defcustom org-html-klipse-selection-script
- "window.klipse_settings = {selector_eval_html: '.src-html',
- selector_eval_js: '.src-js',
- selector_eval_python_client: '.src-python',
- selector_eval_scheme: '.src-scheme',
- selector: '.src-clojure',
- selector_eval_ruby: '.src-ruby'};"
- "Javascript snippet to activate klipse."
- :group 'org-export-html
- :package-version '(Org . "9.1")
- :type 'string)
-
-
-;;;; Todos
-
-(defcustom org-html-todo-kwd-class-prefix ""
- "Prefix to class names for TODO keywords.
-Each TODO keyword gets a class given by the keyword itself, with this prefix.
-The default prefix is empty because it is nice to just use the keyword
-as a class name. But if you get into conflicts with other, existing
-CSS classes, then this prefix can be very useful."
- :group 'org-export-html
- :type 'string)
-
-
-;;; Internal Functions
-
-(defun org-html-xhtml-p (info)
- (let ((dt (downcase (plist-get info :html-doctype))))
- (string-match-p "xhtml" dt)))
-
-(defun org-html-html5-p (info)
- (let ((dt (downcase (plist-get info :html-doctype))))
- (member dt '("html5" "xhtml5" "<!doctype html>"))))
-
-(defun org-html--html5-fancy-p (info)
- "Non-nil when exporting to HTML5 with fancy elements.
-INFO is the current state of the export process, as a plist."
- (and (plist-get info :html-html5-fancy)
- (org-html-html5-p info)))
-
-(defun org-html-close-tag (tag attr info)
- "Return close-tag for string TAG.
-ATTR specifies additional attributes. INFO is a property list
-containing current export state."
- (concat "<" tag
- (org-string-nw-p (concat " " attr))
- (if (org-html-xhtml-p info) " />" ">")))
-
-(defun org-html-doctype (info)
- "Return correct HTML doctype tag.
-INFO is a plist used as a communication channel. Doctype tag is
-extracted from `org-html-doctype-alist', or the literal value
-of :html-doctype from INFO if :html-doctype is not found in the
-alist."
- (let ((dt (plist-get info :html-doctype)))
- (or (cdr (assoc dt org-html-doctype-alist)) dt)))
-
-(defun org-html--make-attribute-string (attributes)
- "Return a list of attributes, as a string.
-ATTRIBUTES is a plist where values are either strings or nil. An
-attribute with a nil value will be omitted from the result."
- (let (output)
- (dolist (item attributes (mapconcat 'identity (nreverse output) " "))
- (cond ((null item) (pop output))
- ((symbolp item) (push (substring (symbol-name item) 1) output))
- (t (let ((key (car output))
- (value (replace-regexp-in-string
- "\"" """ (org-html-encode-plain-text item))))
- (setcar output (format "%s=\"%s\"" key value))))))))
-
-(defun org-html--wrap-image (contents info &optional caption label)
- "Wrap CONTENTS string within an appropriate environment for images.
-INFO is a plist used as a communication channel. When optional
-arguments CAPTION and LABEL are given, use them for caption and
-\"id\" attribute."
- (let ((html5-fancy (org-html--html5-fancy-p info)))
- (format (if html5-fancy "\n<figure%s>\n%s%s\n</figure>"
- "\n<div%s class=\"figure\">\n%s%s\n</div>")
- ;; ID.
- (if (org-string-nw-p label) (format " id=\"%s\"" label) "")
- ;; Contents.
- (if html5-fancy contents (format "<p>%s</p>" contents))
- ;; Caption.
- (if (not (org-string-nw-p caption)) ""
- (format (if html5-fancy "\n<figcaption>%s</figcaption>"
- "\n<p>%s</p>")
- caption)))))
-
-(defun org-html--format-image (source attributes info)
- "Return \"img\" tag with given SOURCE and ATTRIBUTES.
-SOURCE is a string specifying the location of the image.
-ATTRIBUTES is a plist, as returned by
-`org-export-read-attribute'. INFO is a plist used as
-a communication channel."
- (if (string= "svg" (file-name-extension source))
- (org-html--svg-image source attributes info)
- (org-html-close-tag
- "img"
- (org-html--make-attribute-string
- (org-combine-plists
- (list :src source
- :alt (if (string-match-p "^ltxpng/" source)
- (org-html-encode-plain-text
- (org-find-text-property-in-string 'org-latex-src source))
- (file-name-nondirectory source)))
- attributes))
- info)))
-
-(defun org-html--svg-image (source attributes info)
- "Return \"object\" embedding svg file SOURCE with given ATTRIBUTES.
-INFO is a plist used as a communication channel.
-
-The special attribute \"fallback\" can be used to specify a
-fallback image file to use if the object embedding is not
-supported. CSS class \"org-svg\" is assigned as the class of the
-object unless a different class is specified with an attribute."
- (let ((fallback (plist-get attributes :fallback))
- (attrs (org-html--make-attribute-string
- (org-combine-plists
- ;; Remove fallback attribute, which is not meant to
- ;; appear directly in the attributes string, and
- ;; provide a default class if none is set.
- '(:class "org-svg") attributes '(:fallback nil)))))
- (format "<object type=\"image/svg+xml\" data=\"%s\" %s>\n%s</object>"
- source
- attrs
- (if fallback
- (org-html-close-tag
- "img" (format "src=\"%s\" %s" fallback attrs) info)
- "Sorry, your browser does not support SVG."))))
-
-(defun org-html--textarea-block (element)
- "Transcode ELEMENT into a textarea block.
-ELEMENT is either a src block or an example block."
- (let* ((code (car (org-export-unravel-code element)))
- (attr (org-export-read-attribute :attr_html element)))
- (format "<p>\n<textarea cols=\"%s\" rows=\"%s\">\n%s</textarea>\n</p>"
- (or (plist-get attr :width) 80)
- (or (plist-get attr :height) (org-count-lines code))
- code)))
-
-(defun org-html--has-caption-p (element &optional _info)
- "Non-nil when ELEMENT has a caption affiliated keyword.
-INFO is a plist used as a communication channel. This function
-is meant to be used as a predicate for `org-export-get-ordinal' or
-a value to `org-html-standalone-image-predicate'."
- (org-element-property :caption element))
-
-;;;; Table
-
-(defun org-html-htmlize-region-for-paste (beg end)
- "Convert the region between BEG and END to HTML, using htmlize.el.
-This is much like `htmlize-region-for-paste', only that it uses
-the settings define in the org-... variables."
- (let* ((htmlize-output-type org-html-htmlize-output-type)
- (htmlize-css-name-prefix org-html-htmlize-font-prefix)
- (htmlbuf (htmlize-region beg end)))
- (unwind-protect
- (with-current-buffer htmlbuf
- (buffer-substring (plist-get htmlize-buffer-places 'content-start)
- (plist-get htmlize-buffer-places 'content-end)))
- (kill-buffer htmlbuf))))
-
-;;;###autoload
-(defun org-html-htmlize-generate-css ()
- "Create the CSS for all font definitions in the current Emacs session.
-Use this to create face definitions in your CSS style file that can then
-be used by code snippets transformed by htmlize.
-This command just produces a buffer that contains class definitions for all
-faces used in the current Emacs session. You can copy and paste the ones you
-need into your CSS file.
-
-If you then set `org-html-htmlize-output-type' to `css', calls
-to the function `org-html-htmlize-region-for-paste' will
-produce code that uses these same face definitions."
- (interactive)
- (or (require 'htmlize nil t)
- (error "Please install htmlize from https://github.com/hniksic/emacs-htmlize"))
- (and (get-buffer "*html*") (kill-buffer "*html*"))
- (with-temp-buffer
- (let ((fl (face-list))
- (htmlize-css-name-prefix "org-")
- (htmlize-output-type 'css)
- f i)
- (while (setq f (pop fl)
- i (and f (face-attribute f :inherit)))
- (when (and (symbolp f) (or (not i) (not (listp i))))
- (insert (org-add-props (copy-sequence "1") nil 'face f))))
- (htmlize-region (point-min) (point-max))))
- (pop-to-buffer-same-window "*html*")
- (goto-char (point-min))
- (if (re-search-forward "<style" nil t)
- (delete-region (point-min) (match-beginning 0)))
- (if (re-search-forward "</style>" nil t)
- (delete-region (1+ (match-end 0)) (point-max)))
- (beginning-of-line 1)
- (if (looking-at " +") (replace-match ""))
- (goto-char (point-min)))
-
-(defun org-html--make-string (n string)
- "Build a string by concatenating N times STRING."
- (let (out) (dotimes (_ n out) (setq out (concat string out)))))
-
-(defun org-html-fix-class-name (kwd) ; audit callers of this function
- "Turn todo keyword KWD into a valid class name.
-Replaces invalid characters with \"_\"."
- (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" kwd nil t))
-
-(defun org-html-footnote-section (info)
- "Format the footnote section.
-INFO is a plist used as a communication channel."
- (let* ((fn-alist (org-export-collect-footnote-definitions info))
- (fn-alist
- (cl-loop for (n _type raw) in fn-alist collect
- (cons n (if (eq (org-element-type raw) 'org-data)
- (org-trim (org-export-data raw info))
- (format "<div class=\"footpara\">%s</div>"
- (org-trim (org-export-data raw info))))))))
- (when fn-alist
- (format
- (plist-get info :html-footnotes-section)
- (org-html--translate "Footnotes" info)
- (format
- "\n%s\n"
- (mapconcat
- (lambda (fn)
- (let ((n (car fn)) (def (cdr fn)))
- (format
- "<div class=\"footdef\">%s %s</div>\n"
- (format
- (plist-get info :html-footnote-format)
- (org-html--anchor
- (format "fn.%d" n)
- n
- (format " class=\"footnum\" href=\"#fnr.%d\"" n)
- info))
- def)))
- fn-alist
- "\n"))))))
-
-
-;;; Template
-
-(defun org-html--build-meta-info (info)
- "Return meta tags for exported document.
-INFO is a plist used as a communication channel."
- (let* ((protect-string
- (lambda (str)
- (replace-regexp-in-string
- "\"" """ (org-html-encode-plain-text str))))
- (title (org-export-data (plist-get info :title) info))
- ;; Set title to an invisible character instead of leaving it
- ;; empty, which is invalid.
- (title (if (org-string-nw-p title) title "‎"))
- (author (and (plist-get info :with-author)
- (let ((auth (plist-get info :author)))
- (and auth
- ;; Return raw Org syntax, skipping non
- ;; exportable objects.
- (org-element-interpret-data
- (org-element-map auth
- (cons 'plain-text org-element-all-objects)
- 'identity info))))))
- (description (plist-get info :description))
- (keywords (plist-get info :keywords))
- (charset (or (and org-html-coding-system
- (fboundp 'coding-system-get)
- (coding-system-get org-html-coding-system
- 'mime-charset))
- "iso-8859-1")))
- (concat
- (when (plist-get info :time-stamp-file)
- (format-time-string
- (concat "<!-- "
- (plist-get info :html-metadata-timestamp-format)
- " -->\n")))
- (format
- (if (org-html-html5-p info)
- (org-html-close-tag "meta" "charset=\"%s\"" info)
- (org-html-close-tag
- "meta" "http-equiv=\"Content-Type\" content=\"text/html;charset=%s\""
- info))
- charset) "\n"
- (let ((viewport-options
- (cl-remove-if-not (lambda (cell) (org-string-nw-p (cadr cell)))
- (plist-get info :html-viewport))))
- (and viewport-options
- (concat
- (org-html-close-tag
- "meta"
- (format "name=\"viewport\" content=\"%s\""
- (mapconcat
- (lambda (elm) (format "%s=%s" (car elm) (cadr elm)))
- viewport-options ", "))
- info)
- "\n")))
- (format "<title>%s</title>\n" title)
- (org-html-close-tag "meta" "name=\"generator\" content=\"Org mode\"" info)
- "\n"
- (and (org-string-nw-p author)
- (concat
- (org-html-close-tag "meta"
- (format "name=\"author\" content=\"%s\""
- (funcall protect-string author))
- info)
- "\n"))
- (and (org-string-nw-p description)
- (concat
- (org-html-close-tag "meta"
- (format "name=\"description\" content=\"%s\"\n"
- (funcall protect-string description))
- info)
- "\n"))
- (and (org-string-nw-p keywords)
- (concat
- (org-html-close-tag "meta"
- (format "name=\"keywords\" content=\"%s\""
- (funcall protect-string keywords))
- info)
- "\n")))))
-
-(defun org-html--build-head (info)
- "Return information for the <head>..</head> of the HTML output.
-INFO is a plist used as a communication channel."
- (org-element-normalize-string
- (concat
- (when (plist-get info :html-head-include-default-style)
- (org-element-normalize-string org-html-style-default))
- (org-element-normalize-string (plist-get info :html-head))
- (org-element-normalize-string (plist-get info :html-head-extra))
- (when (and (plist-get info :html-htmlized-css-url)
- (eq org-html-htmlize-output-type 'css))
- (org-html-close-tag "link"
- (format "rel=\"stylesheet\" href=\"%s\" type=\"text/css\""
- (plist-get info :html-htmlized-css-url))
- info))
- (when (plist-get info :html-head-include-scripts) org-html-scripts))))
-
-(defun org-html--build-mathjax-config (info)
- "Insert the user setup into the mathjax template.
-INFO is a plist used as a communication channel."
- (when (and (memq (plist-get info :with-latex) '(mathjax t))
- (org-element-map (plist-get info :parse-tree)
- '(latex-fragment latex-environment) #'identity info t nil t))
- (let ((template (plist-get info :html-mathjax-template))
- (options (plist-get info :html-mathjax-options))
- (in-buffer (or (plist-get info :html-mathjax) "")))
- (dolist (e options (org-element-normalize-string template))
- (let ((name (car e))
- (val (nth 1 e)))
- (when (string-match (concat "\\<" (symbol-name name) ":") in-buffer)
- (setq val
- (car (read-from-string (substring in-buffer (match-end 0))))))
- (unless (stringp val) (setq val (format "%s" val)))
- (while (string-match (concat "%" (upcase (symbol-name name)))
- template)
- (setq template (replace-match val t t template))))))))
-
-(defun org-html-format-spec (info)
- "Return format specification for preamble and postamble.
-INFO is a plist used as a communication channel."
- (let ((timestamp-format (plist-get info :html-metadata-timestamp-format)))
- `((?t . ,(org-export-data (plist-get info :title) info))
- (?s . ,(org-export-data (plist-get info :subtitle) info))
- (?d . ,(org-export-data (org-export-get-date info timestamp-format)
- info))
- (?T . ,(format-time-string timestamp-format))
- (?a . ,(org-export-data (plist-get info :author) info))
- (?e . ,(mapconcat
- (lambda (e) (format "<a href=\"mailto:%s\">%s</a>" e e))
- (split-string (plist-get info :email) ",+ *")
- ", "))
- (?c . ,(plist-get info :creator))
- (?C . ,(let ((file (plist-get info :input-file)))
- (format-time-string timestamp-format
- (and file (nth 5 (file-attributes file))))))
- (?v . ,(or (plist-get info :html-validation-link) "")))))
-
-(defun org-html--build-pre/postamble (type info)
- "Return document preamble or postamble as a string, or nil.
-TYPE is either `preamble' or `postamble', INFO is a plist used as a
-communication channel."
- (let ((section (plist-get info (intern (format ":html-%s" type))))
- (spec (org-html-format-spec info)))
- (when section
- (let ((section-contents
- (if (functionp section) (funcall section info)
- (cond
- ((stringp section) (format-spec section spec))
- ((eq section 'auto)
- (let ((date (cdr (assq ?d spec)))
- (author (cdr (assq ?a spec)))
- (email (cdr (assq ?e spec)))
- (creator (cdr (assq ?c spec)))
- (validation-link (cdr (assq ?v spec))))
- (concat
- (when (and (plist-get info :with-date)
- (org-string-nw-p date))
- (format "<p class=\"date\">%s: %s</p>\n"
- (org-html--translate "Date" info)
- date))
- (when (and (plist-get info :with-author)
- (org-string-nw-p author))
- (format "<p class=\"author\">%s: %s</p>\n"
- (org-html--translate "Author" info)
- author))
- (when (and (plist-get info :with-email)
- (org-string-nw-p email))
- (format "<p class=\"email\">%s: %s</p>\n"
- (org-html--translate "Email" info)
- email))
- (when (plist-get info :time-stamp-file)
- (format
- "<p class=\"date\">%s: %s</p>\n"
- (org-html--translate "Created" info)
- (format-time-string
- (plist-get info :html-metadata-timestamp-format))))
- (when (plist-get info :with-creator)
- (format "<p class=\"creator\">%s</p>\n" creator))
- (format "<p class=\"validation\">%s</p>\n"
- validation-link))))
- (t
- (let ((formats (plist-get info (if (eq type 'preamble)
- :html-preamble-format
- :html-postamble-format)))
- (language (plist-get info :language)))
- (format-spec
- (cadr (or (assoc-string language formats t)
- (assoc-string "en" formats t)))
- spec)))))))
- (let ((div (assq type (plist-get info :html-divs))))
- (when (org-string-nw-p section-contents)
- (concat
- (format "<%s id=\"%s\" class=\"%s\">\n"
- (nth 1 div)
- (nth 2 div)
- org-html--pre/postamble-class)
- (org-element-normalize-string section-contents)
- (format "</%s>\n" (nth 1 div)))))))))
-
-(defun org-html-inner-template (contents info)
- "Return body of document string after HTML conversion.
-CONTENTS is the transcoded contents string. INFO is a plist
-holding export options."
- (concat
- ;; Table of contents.
- (let ((depth (plist-get info :with-toc)))
- (when depth (org-html-toc depth info)))
- ;; Document contents.
- contents
- ;; Footnotes section.
- (org-html-footnote-section info)))
-
-(defun org-html-template (contents info)
- "Return complete document string after HTML conversion.
-CONTENTS is the transcoded contents string. INFO is a plist
-holding export options."
- (concat
- (when (and (not (org-html-html5-p info)) (org-html-xhtml-p info))
- (let* ((xml-declaration (plist-get info :html-xml-declaration))
- (decl (or (and (stringp xml-declaration) xml-declaration)
- (cdr (assoc (plist-get info :html-extension)
- xml-declaration))
- (cdr (assoc "html" xml-declaration))
- "")))
- (when (not (or (not decl) (string= "" decl)))
- (format "%s\n"
- (format decl
- (or (and org-html-coding-system
- (fboundp 'coding-system-get)
- (coding-system-get org-html-coding-system 'mime-charset))
- "iso-8859-1"))))))
- (org-html-doctype info)
- "\n"
- (concat "<html"
- (cond ((org-html-xhtml-p info)
- (format
- " xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"%s\" xml:lang=\"%s\""
- (plist-get info :language) (plist-get info :language)))
- ((org-html-html5-p info)
- (format " lang=\"%s\"" (plist-get info :language))))
- ">\n")
- "<head>\n"
- (org-html--build-meta-info info)
- (org-html--build-head info)
- (org-html--build-mathjax-config info)
- "</head>\n"
- "<body>\n"
- (let ((link-up (org-trim (plist-get info :html-link-up)))
- (link-home (org-trim (plist-get info :html-link-home))))
- (unless (and (string= link-up "") (string= link-home ""))
- (format (plist-get info :html-home/up-format)
- (or link-up link-home)
- (or link-home link-up))))
- ;; Preamble.
- (org-html--build-pre/postamble 'preamble info)
- ;; Document contents.
- (let ((div (assq 'content (plist-get info :html-divs))))
- (format "<%s id=\"%s\">\n" (nth 1 div) (nth 2 div)))
- ;; Document title.
- (when (plist-get info :with-title)
- (let ((title (and (plist-get info :with-title)
- (plist-get info :title)))
- (subtitle (plist-get info :subtitle))
- (html5-fancy (org-html--html5-fancy-p info)))
- (when title
- (format
- (if html5-fancy
- "<header>\n<h1 class=\"title\">%s</h1>\n%s</header>"
- "<h1 class=\"title\">%s%s</h1>\n")
- (org-export-data title info)
- (if subtitle
- (format
- (if html5-fancy
- "<p class=\"subtitle\">%s</p>\n"
- (concat "\n" (org-html-close-tag "br" nil info) "\n"
- "<span class=\"subtitle\">%s</span>\n"))
- (org-export-data subtitle info))
- "")))))
- contents
- (format "</%s>\n" (nth 1 (assq 'content (plist-get info :html-divs))))
- ;; Postamble.
- (org-html--build-pre/postamble 'postamble info)
- ;; Possibly use the Klipse library live code blocks.
- (if (plist-get info :html-klipsify-src)
- (concat "<script>" (plist-get info :html-klipse-selection-script)
- "</script><script src=\""
- org-html-klipse-js
- "\"></script><link rel=\"stylesheet\" type=\"text/css\" href=\""
- org-html-klipse-css "\"/>"))
- ;; Closing document.
- "</body>\n</html>"))
-
-(defun org-html--translate (s info)
- "Translate string S according to specified language.
-INFO is a plist used as a communication channel."
- (org-export-translate s :html info))
-
-;;;; Anchor
-
-(defun org-html--anchor (id desc attributes info)
- "Format a HTML anchor."
- (let* ((name (and (plist-get info :html-allow-name-attribute-in-anchors) id))
- (attributes (concat (and id (format " id=\"%s\"" id))
- (and name (format " name=\"%s\"" name))
- attributes)))
- (format "<a%s>%s</a>" attributes (or desc ""))))
-
-;;;; Todo
-
-(defun org-html--todo (todo info)
- "Format TODO keywords into HTML."
- (when todo
- (format "<span class=\"%s %s%s\">%s</span>"
- (if (member todo org-done-keywords) "done" "todo")
- (or (plist-get info :html-todo-kwd-class-prefix) "")
- (org-html-fix-class-name todo)
- todo)))
-
-;;;; Priority
-
-(defun org-html--priority (priority _info)
- "Format a priority into HTML.
-PRIORITY is the character code of the priority or nil. INFO is
-a plist containing export options."
- (and priority (format "<span class=\"priority\">[%c]</span>" priority)))
-
-;;;; Tags
-
-(defun org-html--tags (tags info)
- "Format TAGS into HTML.
-INFO is a plist containing export options."
- (when tags
- (format "<span class=\"tag\">%s</span>"
- (mapconcat
- (lambda (tag)
- (format "<span class=\"%s\">%s</span>"
- (concat (plist-get info :html-tag-class-prefix)
- (org-html-fix-class-name tag))
- tag))
- tags " "))))
-
-;;;; Src Code
-
-(defun org-html-fontify-code (code lang)
- "Color CODE with htmlize library.
-CODE is a string representing the source code to colorize. LANG
-is the language used for CODE, as a string, or nil."
- (when code
- (cond
- ;; No language. Possibly an example block.
- ((not lang) (org-html-encode-plain-text code))
- ;; Plain text explicitly set.
- ((not org-html-htmlize-output-type) (org-html-encode-plain-text code))
- ;; No htmlize library or an inferior version of htmlize.
- ((not (and (or (require 'htmlize nil t)
- (error "Please install htmlize from \
-https://github.com/hniksic/emacs-htmlize"))
- (fboundp 'htmlize-region-for-paste)))
- ;; Emit a warning.
- (message "Cannot fontify src block (htmlize.el >= 1.34 required)")
- (org-html-encode-plain-text code))
- (t
- ;; Map language
- (setq lang (or (assoc-default lang org-src-lang-modes) lang))
- (let* ((lang-mode (and lang (intern (format "%s-mode" lang)))))
- (cond
- ;; Case 1: Language is not associated with any Emacs mode
- ((not (functionp lang-mode))
- (org-html-encode-plain-text code))
- ;; Case 2: Default. Fontify code.
- (t
- ;; htmlize
- (setq code
- (let ((output-type org-html-htmlize-output-type)
- (font-prefix org-html-htmlize-font-prefix))
- (with-temp-buffer
- ;; Switch to language-specific mode.
- (funcall lang-mode)
- (insert code)
- ;; Fontify buffer.
- (org-font-lock-ensure)
- ;; Remove formatting on newline characters.
- (save-excursion
- (let ((beg (point-min))
- (end (point-max)))
- (goto-char beg)
- (while (progn (end-of-line) (< (point) end))
- (put-text-property (point) (1+ (point)) 'face nil)
- (forward-char 1))))
- (org-src-mode)
- (set-buffer-modified-p nil)
- ;; Htmlize region.
- (let ((org-html-htmlize-output-type output-type)
- (org-html-htmlize-font-prefix font-prefix))
- (org-html-htmlize-region-for-paste
- (point-min) (point-max))))))
- ;; Strip any enclosing <pre></pre> tags.
- (let* ((beg (and (string-match "\\`<pre[^>]*>\n?" code) (match-end 0)))
- (end (and beg (string-match "</pre>\\'" code))))
- (if (and beg end) (substring code beg end) code)))))))))
-
-(defun org-html-do-format-code
- (code &optional lang refs retain-labels num-start)
- "Format CODE string as source code.
-Optional arguments LANG, REFS, RETAIN-LABELS and NUM-START are,
-respectively, the language of the source code, as a string, an
-alist between line numbers and references (as returned by
-`org-export-unravel-code'), a boolean specifying if labels should
-appear in the source code, and the number associated to the first
-line of code."
- (let* ((code-lines (split-string code "\n"))
- (code-length (length code-lines))
- (num-fmt
- (and num-start
- (format "%%%ds: "
- (length (number-to-string (+ code-length num-start))))))
- (code (org-html-fontify-code code lang)))
- (org-export-format-code
- code
- (lambda (loc line-num ref)
- (setq loc
- (concat
- ;; Add line number, if needed.
- (when num-start
- (format "<span class=\"linenr\">%s</span>"
- (format num-fmt line-num)))
- ;; Transcoded src line.
- loc
- ;; Add label, if needed.
- (when (and ref retain-labels) (format " (%s)" ref))))
- ;; Mark transcoded line as an anchor, if needed.
- (if (not ref) loc
- (format "<span id=\"coderef-%s\" class=\"coderef-off\">%s</span>"
- ref loc)))
- num-start refs)))
-
-(defun org-html-format-code (element info)
- "Format contents of ELEMENT as source code.
-ELEMENT is either an example block or a src block. INFO is
-a plist used as a communication channel."
- (let* ((lang (org-element-property :language element))
- ;; Extract code and references.
- (code-info (org-export-unravel-code element))
- (code (car code-info))
- (refs (cdr code-info))
- ;; Does the src block contain labels?
- (retain-labels (org-element-property :retain-labels element))
- ;; Does it have line numbers?
- (num-start (org-export-get-loc element info)))
- (org-html-do-format-code code lang refs retain-labels num-start)))
-
-
-;;; Tables of Contents
-
-(defun org-html-toc (depth info &optional scope)
- "Build a table of contents.
-DEPTH is an integer specifying the depth of the table. INFO is
-a plist used as a communication channel. Optional argument SCOPE
-is an element defining the scope of the table. Return the table
-of contents as a string, or nil if it is empty."
- (let ((toc-entries
- (mapcar (lambda (headline)
- (cons (org-html--format-toc-headline headline info)
- (org-export-get-relative-level headline info)))
- (org-export-collect-headlines info depth scope))))
- (when toc-entries
- (let ((toc (concat "<div id=\"text-table-of-contents\">"
- (org-html--toc-text toc-entries)
- "</div>\n")))
- (if scope toc
- (let ((outer-tag (if (org-html--html5-fancy-p info)
- "nav"
- "div")))
- (concat (format "<%s id=\"table-of-contents\">\n" outer-tag)
- (let ((top-level (plist-get info :html-toplevel-hlevel)))
- (format "<h%d>%s</h%d>\n"
- top-level
- (org-html--translate "Table of Contents" info)
- top-level))
- toc
- (format "</%s>\n" outer-tag))))))))
-
-(defun org-html--toc-text (toc-entries)
- "Return innards of a table of contents, as a string.
-TOC-ENTRIES is an alist where key is an entry title, as a string,
-and value is its relative level, as an integer."
- (let* ((prev-level (1- (cdar toc-entries)))
- (start-level prev-level))
- (concat
- (mapconcat
- (lambda (entry)
- (let ((headline (car entry))
- (level (cdr entry)))
- (concat
- (let* ((cnt (- level prev-level))
- (times (if (> cnt 0) (1- cnt) (- cnt))))
- (setq prev-level level)
- (concat
- (org-html--make-string
- times (cond ((> cnt 0) "\n<ul>\n<li>")
- ((< cnt 0) "</li>\n</ul>\n")))
- (if (> cnt 0) "\n<ul>\n<li>" "</li>\n<li>")))
- headline)))
- toc-entries "")
- (org-html--make-string (- prev-level start-level) "</li>\n</ul>\n"))))
-
-(defun org-html--format-toc-headline (headline info)
- "Return an appropriate table of contents entry for HEADLINE.
-INFO is a plist used as a communication channel."
- (let* ((headline-number (org-export-get-headline-number headline info))
- (todo (and (plist-get info :with-todo-keywords)
- (let ((todo (org-element-property :todo-keyword headline)))
- (and todo (org-export-data todo info)))))
- (todo-type (and todo (org-element-property :todo-type headline)))
- (priority (and (plist-get info :with-priority)
- (org-element-property :priority headline)))
- (text (org-export-data-with-backend
- (org-export-get-alt-title headline info)
- (org-export-toc-entry-backend 'html)
- info))
- (tags (and (eq (plist-get info :with-tags) t)
- (org-export-get-tags headline info))))
- (format "<a href=\"#%s\">%s</a>"
- ;; Label.
- (or (org-element-property :CUSTOM_ID headline)
- (org-export-get-reference headline info))
- ;; Body.
- (concat
- (and (not (org-export-low-level-p headline info))
- (org-export-numbered-headline-p headline info)
- (concat (mapconcat #'number-to-string headline-number ".")
- ". "))
- (apply (plist-get info :html-format-headline-function)
- todo todo-type priority text tags :section-number nil)))))
-
-(defun org-html-list-of-listings (info)
- "Build a list of listings.
-INFO is a plist used as a communication channel. Return the list
-of listings as a string, or nil if it is empty."
- (let ((lol-entries (org-export-collect-listings info)))
- (when lol-entries
- (concat "<div id=\"list-of-listings\">\n"
- (let ((top-level (plist-get info :html-toplevel-hlevel)))
- (format "<h%d>%s</h%d>\n"
- top-level
- (org-html--translate "List of Listings" info)
- top-level))
- "<div id=\"text-list-of-listings\">\n<ul>\n"
- (let ((count 0)
- (initial-fmt (format "<span class=\"listing-number\">%s</span>"
- (org-html--translate "Listing %d:" info))))
- (mapconcat
- (lambda (entry)
- (let ((label (and (org-element-property :name entry)
- (org-export-get-reference entry info)))
- (title (org-trim
- (org-export-data
- (or (org-export-get-caption entry t)
- (org-export-get-caption entry))
- info))))
- (concat
- "<li>"
- (if (not label)
- (concat (format initial-fmt (cl-incf count))
- " "
- title)
- (format "<a href=\"#%s\">%s %s</a>"
- label
- (format initial-fmt (cl-incf count))
- title))
- "</li>")))
- lol-entries "\n"))
- "\n</ul>\n</div>\n</div>"))))
-
-(defun org-html-list-of-tables (info)
- "Build a list of tables.
-INFO is a plist used as a communication channel. Return the list
-of tables as a string, or nil if it is empty."
- (let ((lol-entries (org-export-collect-tables info)))
- (when lol-entries
- (concat "<div id=\"list-of-tables\">\n"
- (let ((top-level (plist-get info :html-toplevel-hlevel)))
- (format "<h%d>%s</h%d>\n"
- top-level
- (org-html--translate "List of Tables" info)
- top-level))
- "<div id=\"text-list-of-tables\">\n<ul>\n"
- (let ((count 0)
- (initial-fmt (format "<span class=\"table-number\">%s</span>"
- (org-html--translate "Table %d:" info))))
- (mapconcat
- (lambda (entry)
- (let ((label (and (org-element-property :name entry)
- (org-export-get-reference entry info)))
- (title (org-trim
- (org-export-data
- (or (org-export-get-caption entry t)
- (org-export-get-caption entry))
- info))))
- (concat
- "<li>"
- (if (not label)
- (concat (format initial-fmt (cl-incf count))
- " "
- title)
- (format "<a href=\"#%s\">%s %s</a>"
- label
- (format initial-fmt (cl-incf count))
- title))
- "</li>")))
- lol-entries "\n"))
- "\n</ul>\n</div>\n</div>"))))
-
-
-;;; Transcode Functions
-
-;;;; Bold
-
-(defun org-html-bold (_bold contents info)
- "Transcode BOLD from Org to HTML.
-CONTENTS is the text with bold markup. INFO is a plist holding
-contextual information."
- (format (or (cdr (assq 'bold (plist-get info :html-text-markup-alist))) "%s")
- contents))
-
-;;;; Center Block
-
-(defun org-html-center-block (_center-block contents _info)
- "Transcode a CENTER-BLOCK element from Org to HTML.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- (format "<div class=\"org-center\">\n%s</div>" contents))
-
-;;;; Clock
-
-(defun org-html-clock (clock _contents _info)
- "Transcode a CLOCK element from Org to HTML.
-CONTENTS is nil. INFO is a plist used as a communication
-channel."
- (format "<p>
-<span class=\"timestamp-wrapper\">
-<span class=\"timestamp-kwd\">%s</span> <span class=\"timestamp\">%s</span>%s
-</span>
-</p>"
- org-clock-string
- (org-timestamp-translate (org-element-property :value clock))
- (let ((time (org-element-property :duration clock)))
- (and time (format " <span class=\"timestamp\">(%s)</span>" time)))))
-
-;;;; Code
-
-(defun org-html-code (code _contents info)
- "Transcode CODE from Org to HTML.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (format (or (cdr (assq 'code (plist-get info :html-text-markup-alist))) "%s")
- (org-html-encode-plain-text (org-element-property :value code))))
-
-;;;; Drawer
-
-(defun org-html-drawer (drawer contents info)
- "Transcode a DRAWER element from Org to HTML.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- (funcall (plist-get info :html-format-drawer-function)
- (org-element-property :drawer-name drawer)
- contents))
-
-;;;; Dynamic Block
-
-(defun org-html-dynamic-block (_dynamic-block contents _info)
- "Transcode a DYNAMIC-BLOCK element from Org to HTML.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information. See `org-export-data'."
- contents)
-
-;;;; Entity
-
-(defun org-html-entity (entity _contents _info)
- "Transcode an ENTITY object from Org to HTML.
-CONTENTS are the definition itself. INFO is a plist holding
-contextual information."
- (org-element-property :html entity))
-
-;;;; Example Block
-
-(defun org-html-example-block (example-block _contents info)
- "Transcode a EXAMPLE-BLOCK element from Org to HTML.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (let ((attributes (org-export-read-attribute :attr_html example-block)))
- (if (plist-get attributes :textarea)
- (org-html--textarea-block example-block)
- (format "<pre class=\"example\"%s>\n%s</pre>"
- (let* ((name (org-element-property :name example-block))
- (a (org-html--make-attribute-string
- (if (or (not name) (plist-member attributes :id))
- attributes
- (plist-put attributes :id name)))))
- (if (org-string-nw-p a) (concat " " a) ""))
- (org-html-format-code example-block info)))))
-
-;;;; Export Snippet
-
-(defun org-html-export-snippet (export-snippet _contents _info)
- "Transcode a EXPORT-SNIPPET object from Org to HTML.
-CONTENTS is nil. INFO is a plist holding contextual
-information."
- (when (eq (org-export-snippet-backend export-snippet) 'html)
- (org-element-property :value export-snippet)))
-
-;;;; Export Block
-
-(defun org-html-export-block (export-block _contents _info)
- "Transcode a EXPORT-BLOCK element from Org to HTML.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (when (string= (org-element-property :type export-block) "HTML")
- (org-remove-indentation (org-element-property :value export-block))))
-
-;;;; Fixed Width
-
-(defun org-html-fixed-width (fixed-width _contents _info)
- "Transcode a FIXED-WIDTH element from Org to HTML.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (format "<pre class=\"example\">\n%s</pre>"
- (org-html-do-format-code
- (org-remove-indentation
- (org-element-property :value fixed-width)))))
-
-;;;; Footnote Reference
-
-(defun org-html-footnote-reference (footnote-reference _contents info)
- "Transcode a FOOTNOTE-REFERENCE element from Org to HTML.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (concat
- ;; Insert separator between two footnotes in a row.
- (let ((prev (org-export-get-previous-element footnote-reference info)))
- (when (eq (org-element-type prev) 'footnote-reference)
- (plist-get info :html-footnote-separator)))
- (let* ((n (org-export-get-footnote-number footnote-reference info))
- (id (format "fnr.%d%s"
- n
- (if (org-export-footnote-first-reference-p
- footnote-reference info)
- ""
- ".100"))))
- (format
- (plist-get info :html-footnote-format)
- (org-html--anchor
- id n (format " class=\"footref\" href=\"#fn.%d\"" n) info)))))
-
-;;;; Headline
-
-(defun org-html-headline (headline contents info)
- "Transcode a HEADLINE element from Org to HTML.
-CONTENTS holds the contents of the headline. INFO is a plist
-holding contextual information."
- (unless (org-element-property :footnote-section-p headline)
- (let* ((numberedp (org-export-numbered-headline-p headline info))
- (numbers (org-export-get-headline-number headline info))
- (level (+ (org-export-get-relative-level headline info)
- (1- (plist-get info :html-toplevel-hlevel))))
- (todo (and (plist-get info :with-todo-keywords)
- (let ((todo (org-element-property :todo-keyword headline)))
- (and todo (org-export-data todo info)))))
- (todo-type (and todo (org-element-property :todo-type headline)))
- (priority (and (plist-get info :with-priority)
- (org-element-property :priority headline)))
- (text (org-export-data (org-element-property :title headline) info))
- (tags (and (plist-get info :with-tags)
- (org-export-get-tags headline info)))
- (full-text (funcall (plist-get info :html-format-headline-function)
- todo todo-type priority text tags info))
- (contents (or contents ""))
- (ids (delq nil
- (list (org-element-property :CUSTOM_ID headline)
- (org-export-get-reference headline info)
- (org-element-property :ID headline))))
- (preferred-id (car ids))
- (extra-ids
- (mapconcat
- (lambda (id)
- (org-html--anchor
- (if (org-uuidgen-p id) (concat "ID-" id) id)
- nil nil info))
- (cdr ids) "")))
- (if (org-export-low-level-p headline info)
- ;; This is a deep sub-tree: export it as a list item.
- (let* ((html-type (if numberedp "ol" "ul")))
- (concat
- (and (org-export-first-sibling-p headline info)
- (apply #'format "<%s class=\"org-%s\">\n"
- (make-list 2 html-type)))
- (org-html-format-list-item
- contents (if numberedp 'ordered 'unordered)
- nil info nil
- (concat (org-html--anchor preferred-id nil nil info)
- extra-ids
- full-text)) "\n"
- (and (org-export-last-sibling-p headline info)
- (format "</%s>\n" html-type))))
- ;; Standard headline. Export it as a section.
- (let ((extra-class (org-element-property :HTML_CONTAINER_CLASS headline))
- (first-content (car (org-element-contents headline))))
- (format "<%s id=\"%s\" class=\"%s\">%s%s</%s>\n"
- (org-html--container headline info)
- (concat "outline-container-"
- (org-export-get-reference headline info))
- (concat (format "outline-%d" level)
- (and extra-class " ")
- extra-class)
- (format "\n<h%d id=\"%s\">%s%s</h%d>\n"
- level
- preferred-id
- extra-ids
- (concat
- (and numberedp
- (format
- "<span class=\"section-number-%d\">%s</span> "
- level
- (mapconcat #'number-to-string numbers ".")))
- full-text)
- level)
- ;; When there is no section, pretend there is an
- ;; empty one to get the correct <div
- ;; class="outline-...> which is needed by
- ;; `org-info.js'.
- (if (eq (org-element-type first-content) 'section) contents
- (concat (org-html-section first-content "" info) contents))
- (org-html--container headline info)))))))
-
-(defun org-html-format-headline-default-function
- (todo _todo-type priority text tags info)
- "Default format function for a headline.
-See `org-html-format-headline-function' for details."
- (let ((todo (org-html--todo todo info))
- (priority (org-html--priority priority info))
- (tags (org-html--tags tags info)))
- (concat todo (and todo " ")
- priority (and priority " ")
- text
- (and tags "   ") tags)))
-
-(defun org-html--container (headline info)
- (or (org-element-property :HTML_CONTAINER headline)
- (if (= 1 (org-export-get-relative-level headline info))
- (plist-get info :html-container)
- "div")))
-
-;;;; Horizontal Rule
-
-(defun org-html-horizontal-rule (_horizontal-rule _contents info)
- "Transcode an HORIZONTAL-RULE object from Org to HTML.
-CONTENTS is nil. INFO is a plist holding contextual information."
- (org-html-close-tag "hr" nil info))
-
-;;;; Inline Src Block
-
-(defun org-html-inline-src-block (inline-src-block _contents info)
- "Transcode an INLINE-SRC-BLOCK element from Org to HTML.
-CONTENTS holds the contents of the item. INFO is a plist holding
-contextual information."
- (let* ((lang (org-element-property :language inline-src-block))
- (code (org-html-fontify-code
- (org-element-property :value inline-src-block)
- lang))
- (label
- (let ((lbl (and (org-element-property :name inline-src-block)
- (org-export-get-reference inline-src-block info))))
- (if (not lbl) "" (format " id=\"%s\"" lbl)))))
- (format "<code class=\"src src-%s\"%s>%s</code>" lang label code)))
-
-;;;; Inlinetask
-
-(defun org-html-inlinetask (inlinetask contents info)
- "Transcode an INLINETASK element from Org to HTML.
-CONTENTS holds the contents of the block. INFO is a plist
-holding contextual information."
- (let* ((todo (and (plist-get info :with-todo-keywords)
- (let ((todo (org-element-property :todo-keyword inlinetask)))
- (and todo (org-export-data todo info)))))
- (todo-type (and todo (org-element-property :todo-type inlinetask)))
- (priority (and (plist-get info :with-priority)
- (org-element-property :priority inlinetask)))
- (text (org-export-data (org-element-property :title inlinetask) info))
- (tags (and (plist-get info :with-tags)
- (org-export-get-tags inlinetask info))))
- (funcall (plist-get info :html-format-inlinetask-function)
- todo todo-type priority text tags contents info)))
-
-(defun org-html-format-inlinetask-default-function
- (todo todo-type priority text tags contents info)
- "Default format function for inlinetasks.
-See `org-html-format-inlinetask-function' for details."
- (format "<div class=\"inlinetask\">\n<b>%s</b>%s\n%s</div>"
- (org-html-format-headline-default-function
- todo todo-type priority text tags info)
- (org-html-close-tag "br" nil info)
- contents))
-
-;;;; Italic
-
-(defun org-html-italic (_italic contents info)
- "